3位bcd码转换成5位bcd码子程序.asm

来自「8个汇编程序」· 汇编 代码 · 共 35 行

BCD1       EQU       31H
BCD2       EQU       32H
BCD3       EQU       33H
BCD4       EQU       34H
BCD5       EQU       35H
           ORG 0000H
           LJMP 0100H
           ORG 0100H
MAIN:      MOV R0,#BCD1
           MOV A,#01H
           MOV @R0,A
           MOV R0,#BCD3
           MOV A,#63H
           MOV @R0,A
           MOV R0,#BCD5
           MOV A,#83H
           MOV @R0,A
           MOV R0,#BCD3
           LCALL SHIFT
           MOV R0,#BCD5
           LCALL SHIFT
           SJMP $
 SHIFT:     MOV A,@R0
           MOV R1,A
           ANL A,#0FH
           MOV @R0,A
           MOV A,R1
           SWAP A
           ANL A,#0FH
           DEC R0
           MOV @R0,A
           RET
           END