zcxm1-3_27.asm

来自「关于8086汇编的一些作业程序」· 汇编 代码 · 共 65 行

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
NUM DB 3,0,3 DUP(?)
OBF DB 8 DUP(?)
N DB ?
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 DX,OFFSET NUM
      MOV AH,10
      INT 21H
      MOV AL,NUM+2
      AND AL,0FH
      CMP NUM+3,0DH
      JE NADD
      MOV BL,10
      MUL BL
      MOV BL,NUM+3
      AND BL,0FH
      ADD AL,BL
NADD: MOV AH,0   
      CALL SUM
      MOV AX,BX
      MOV BX,6
      MOV OBF[BX],'H'
      MOV OBF[BX+1],'$'
      MOV CX,4
AGAIN:MOV DL,0FH
      AND DL,AL
      CMP DL,0AH
      JC NADD7
      ADD DL,7
NADD7:ADD DL,30H
      DEC BX
      MOV OBF[BX],DL
      SHR AX,CL
      AND AX,AX
      JNZ AGAIN
      DEC BX
      MOV BYTE PTR [BX],0AH
      MOV DX,BX
      MOV AH,9
      INT 21H
      ret
begin endp
SUM   PROC
      MOV CX,AX
      MOV BX,0
AGAIN1:MOV AX,CX
       ADD AX,AX
       ADC BX,AX
       LOOP AGAIN1
      RET
SUM ENDP
code ends
      end begin