HEXTOBCDM: CLR A MOV 24H,A MOV R5,A MOV R6,A MOV R7,A MOV R0,A MOV B,#20H LOP12: MOV A,R4 ADD A,R4 MOV R4,A LCALL LR0 MOV A,R0 ADDC A,R0 DA A MOV R0,A MOV A,R7 ADDC A,R7 DA A MOV R7,A MOV A,R6 ADDC A,R6 DA A MOV R6,A MOV A,R5 ADDC A,R5 DA A MOV R5,A MOV A,24H ADDC A,24H DA A MOV 24H,A DJNZ B,LOP12 MOV A,R0 MOV R4,A LCALL EXT RET