kkh21.asm

关于8086汇编的一些实验程序

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
W1 DD 08020407H
W2 DD 06030609H
OBF DB 5 DUP(?)
data ends
code segment
begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax
 
      MOV SI,0
      MOV DI,3
      MOV BX,0
      MOV CX,3

      MOV DL,BYTE PTR W1        

AGAIN: MOV AX,WORD PTR W1[SI]
       MOV AL,DL
       SUB AL,BYTE PTR W2[BX]
       AAS
       MOV DL,AH
       OR AL,30H
       MOV OBF[DI],AL
     
       INC SI
       INC BX
       DEC DI
       DEC CX
       JNZ AGAIN
      
       SUB AH,BYTE PTR W2[BX]
       OR AH,30H
       MOV OBF,AH
  
       MOV OBF+4,'$'
       MOV DX,OFFSET OBF
       MOV AH,9
       INT 21H
      
      ret
begin endp
code ends
     end begin