Deloz.Net

又一年过去了,我怀念2009,但是怀念什么呢?我不知道..

今夜深难眠,发几个多年珍藏的汇编代码送给蛛蛛MM当作新年礼物...蛛蛛MM快来喔. 

由于历史悠久,不保证正确率...但是我知道蛛蛛MM不会介意的...

(不提供技术支持)

;---------------------------- 
STACK SEGMENT STACK 
DB 200 DUP(0) 
STACK ENDS 
;---------------------------- 
DATA SEGMENT 
BUF DB "ABCDEF$" 
COUNT EQU $-BUF 
DATA ENDS 
;------------------------------ 
CODE SEGMENT 
 ASSUME CS:CODE,DS:DATA,SS:STACK 
BEGIN: MOV AX,DATA 
 MOV DS,AX 
 MOV CX,COUNT 
 LEA BX,BUF
 ADD BX,COUNT
 DEC BX
 MOV AH,2
L1:
 MOV DL,[BX]
 DEC BX
 
 INT 21H 
 LOOP L1 
 
 MOV AH,4CH INT 21H 
;----------------------------- 
CODE ENDS 
END BEGIN

================以上为反向输入字符串

 
 
data segment
buf  db  13,10 'input error ! $'
msg1 db  'one:$'
msg2 db  'two:$'
msg3 db  'result:$'
data ends
sseg segment stack
     dw  64dup(0)
sseg ends
code segment
     assume  cs:code,ds:data,es:data
start: mov ax,data
       mov ds,ax
       lea dx,msg1;改
        mov ah,9
        int 21h 
        clc
       call read;假设这里已经读取了一个整数，在ax中
        jc  err
       mov bx,ax;保存到bx
       lea dx, msg2
       mov ah,9
        int 21h
        clc
       call read;假设这里已经读取了另一个整数，在ax中
       jc  err
         mov cx,ax;马上要乘法，所以先保存ax
         mov dx,0;清dx
         mul bx;用ax*bx，放在(dx,ax)中
         push dx;保存(dx,ax)，以后要用。目前两个原始数据还在cx,bx中。
         push ax;
         mov ax,cx;
     jmp loop1;
   
err: lea dx, buf
     mov ah, 9
     int  21h
      jmp exit
loop1:
        cmp bx,0;判断是否为0
        jz l1;如果为0则退出循环
        mov  dx,0;ax的扩展数据保存在(dx,ax)中
        div bx;       
        mov ax,bx;处理下一次循环用的被除数
        mov bx,dx;处理下一次循环用的除数
        mov dx,0;被除数ax的扩展
        jmp loop1       
l1：  mov bx,ax；退出循环时ax中保存的就是最大公约数，还要求最小公倍数，所以先保存到bx
    pop ax;回复以前保存的乘积（dx,bx）
    pop dx;
    div bx;用(dx,ax)除以bx，所得到的值就是最小公倍数，保存在ax中
    ;到此为止，最大公约数在bx中，最小公倍数在ax中
    ;以下是显示和写代码
mov bx,ax
mov  ah,9
int 21h
mov ax,bx
clc
call write
jmp exit
write proc    
     MOV AH, 09H
     INT 21H
ret

=============以上为最大公约数,最小公倍数
 

data segment
x dw 2
y dw 1
z dw 3
v dw 6
data ends
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
mov ax,x
imul y
mov cx,ax
mov bx,dx
mov ax,z
cwd
add cx,ax
adc bx,dx
sub cx,5
sbb bx,0
mov ax,v
cwd
sub ax,cx
sub dx,bx
idiv  x
mov ax,4c00h
int 21h
code ends
end start

================以上为加减乘除

相关文章

• 暂无相关日志