SBCDD:
MOV R1,#69H
MOV R0,#22H
DCU:
MOV A,R1
MOV 25,#00H
CLR C
MOV R4,A
MOV A,#9AH
SUBB A,R0
ADD A,R4
DA A
CPL C
JC C,LOOP2
PUSH ACC
PUSH PSW
MOV A,25H
ADD A,#01H
DA A
MOV 25H,A
POP PSW
POP ACC
MOV R1,25H
MOV 25H,#00H
MOV R2,A
CLR A
LOOP0:
MOV R3,A
CLR A
ADD A,R2
JZ A,LOOP1
MOV A,#9AH
SUBB A,#01H
ADD A,R2
DA A
MOV R2,A
CPL C
MOV A,#9A
SUBB A,R0
ADD A,R3
DA A
CPL C
PUSH ACC
PUSH PSW
MOV A,25H
ADD A,#01H
DA A
MOV 25H,A
POP PSW
POP ACC
SJMP LOOP0
LOOP1:
MOV R0,25H
RET
LOOP2:
ADD A,R0
DA A
RET