ASCII碼到BCD碼轉(zhuǎn)換子程序

ASCTOBCD:
MOV R7,#06H
MOV R1,#20H

MOV R0,#20H
ACALLASCBCD
LOOP:
SJMPLOOP
ASCBCD:
MOV A,@R0
CLRC
CJNEA,#30H,LOOP1
LOOP1:
JCC,LOOP3
CJNEA,#3AH,LOOP2
LOOP2:
JNCC,LOOP4
CLRC
SUBBA,#30H
LOOP3:
MOV X@R1,A.
INCR0
INCR1
DJNZR7,ASCBCD
RET
LOOP4:
MOV A,#0FFH
MOV X@R1,A
LJMPLOOP3
RET