ts.asm

关于8086汇编的一些作业程序

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
N1 DB 2,0,2 DUP(?)
N2 DB 2,0,2 DUP(?)
NUM1 DB 5 DUP(?)
NUM2 DB 5 DUP(?)
SUM DB 6 DUP(?)
OUBF1 DB 'NUM1 IS:$'
OUBF2 DB 'NUM2 IS:$'
OUBF3 DB 'SUM IS:$'
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 CX,4
      MOV AX,0
      MOV SI,0
     

AGAIN1:MOV DX,OFFSET N1
      MOV AH,10
      INT 21H
      MOV AL,N1+2
      MOV NUM1[SI],AL
      INC SI
      LOOP AGAIN1
      MOV NUM1[SI],'$'

      MOV DX,OFFSET OUBF1
      MOV AH,9
      INT 21H
      
      MOV DX,OFFSET NUM1
      MOV AH,9
      INT 21H

      MOV DL,0AH
      MOV AH,2
      INT 21H
      MOV DL,0DH
      MOV AH,2
      INT 21H

      MOV CX,4
      MOV AX,0
      MOV SI,0

AGAIN2:MOV DX,OFFSET N2
      MOV AH,10
      INT 21H
      MOV AL,N2+2
      MOV NUM2[SI],AL
      INC SI
      LOOP AGAIN2
      MOV NUM2[SI],'$'
     
      MOV DX,OFFSET OUBF2
      MOV AH,9
      INT 21H
      
      MOV DX,OFFSET NUM2
      MOV AH,9
      INT 21H

      MOV DL,0AH
      MOV AH,2
      INT 21H
      MOV DL,0DH
      MOV AH,2
      INT 21H

     

      MOV CX,4
      MOV AX,0
      AND AX,AX
      MOV SI,3
SUMAGAIN:AND NUM1[SI],0FH
         MOV AL,NUM1[SI]
         AND NUM2[SI],0FH
         ADC AL,NUM2[SI]
         DAA
         
         OR AL,30H
         
         MOV SUM[SI],AL
         DEC SI
         LOOP SUMAGAIN
         MOV SUM[4],'$'

         MOV DX,OFFSET OUBF3
         MOV AH,9
         INT 21H

         MOV DX,OFFSET SUM
         MOV AH,9
         INT 21H

         ret 
begin endp
code ends
     end begin