6位无符号压缩BCD码加法子程序设计

        CODE  SEGMENT
              ASSUME    CS:CODE
              ORG       100H
      START:  JMP       BEGIN
           X  DB        56H,34H,12H
           Y  DB        67H,45H,23H
           Z  DB        4 DUP(0)

      BEGIN:  PUSH      CS
              POP       DS
              PUSH      CS
              POP       ES
              LEA       SI,X
              LEA       BX,Y
              LEA       DI,Z
              MOV       CX,3
              CLC
         @0:
              MOV       AL,[SI]
              ADC       AL,[BX]
              DAA
              MOV       [DI],AL
              INC       SI
              INC       BX
              INC       DI
              LOOP      @0
              JNC       @00
              MOV       BYTE PTR[DI],1
; 以下从高位到低位显示结果              
        @00:
              LEA       SI,Z
              ADD       SI,3
              MOV       CX,4
         @1:
              MOV       DL,[SI]
              PUSH      CX
              MOV       CX,4
              SHR       DL,CL
              OR        DL,30H
              MOV       AH,2
              INT       21H
              POP       CX
              MOV       DL,[SI]
              AND       DL,0FH
              OR        DL,30H
              INT       21H
              DEC       SI
              LOOP      @1
              
              MOV       AH,4CH
              INT       21H
        CODE  ENDS
              END       START