bcd.asm

来自「数码之间转换,供大家参考,汇编语言的源程序」· 汇编 代码 · 共 25 行

STACK SEGMENT STACK
      DW 16 DUP(?)
STACK ENDS
CODESG SEGMENT
       ASSUME CS:CODESG
START: ORG 100H
       MOV CX,0004H
       MOV DI,0150H
AAA:   MOV AL,[DI]
       ADD AL,AL
       MOV BL,AL
       ADD AL,AL
       ADD AL,AL
       INC DI
       MOV AH,00H
       ADD AL,[DI]
       MOV [DI+14H],AX
       INC DI
       LOOP AAA
       INT 20H
       ORG 150H
       DB 03H,06H,08H,09H,06H,05H,02H,09H
CODESG ENDS
END START