PPRNT2:
MOV R7,#00H
MOV R4,#00H
MOV DPL ,50H
MOV DPH,51H
MOV A,#00H
MOVC A,@A+DPTR
MOV R6,A
LNUMB:
INC R7
MOV A,R7
MOVC A,@A+DPTR
MOV R5,A
LCDB:
INC R7
MOV A,R7
MOVC A,@A+DPTR
JZ BCDB
LCALL SDTP
SJMP BNXT
BCDB:
LCALL XTPB
INC R4
BNXT:
DJNZ R5,LCDB
DJNZ R6,LNUMB
RET
SDTP:
PUSH DPH
PUSH DPL
MOV DPTR,#7FFFH
WT:
JB P1.0,WT
MOVX @DPTR,A
POP DPL
POP DPH
RET
XTPB:
PUSH DPH
PUSH DPL
MOV DPL,52H
MOV DPH,53H
MOV A,R4
JZ PSSB
RPB:
INC DPTR
DJNZ R4,RPB
MOV R4,A
PSSB:
MOVX A,@DPTR
PUSH A
SWAP A
ANL A,#0FH
ADD A,#30H
LCALL SDTP
POP A
ANL A,#0FH
ADD A,#30H
LCALL SDTP
POP DPL
POP DPH
RET