bcd-16.asm

双字节转BCD码

    org  0000h
    MOV  70H,#08H
    MOV  71H,#03H
    MOV  72H,#00H  
SS: MOV A,70H
    MOV B,#100
    MUL AB
    MOV R1,B
    CJNE R1,#00H,PO
    MOV 70H,A
    MOV  A,71H
    MOV  B,#10
    MUL AB
    CLR C
    ADDC A,70H
    ADDC A,72H
    JC PO                                           
    MOV  92H,#88H
    JMP  PP
PO: MOV  75H,#44H
PP: MOV 78H,A
    SJMP  $
    END