FLTTOFXD: MOV A,@R0 MOV C,ACC.7 MOV 1FH,C MOV C,ACC.6 MOV ACC.7,C MOV R2,A INC R0 MOV A,@R0 MOV R3,A INC R0 MOV A,@R0 MOV R4,A DEC R0 DEC R0 MOV A,R2 JZ FTD4 JB ACC.7 SETB C SUBB A,#10H JC LOOP1 SETB OV RET LOOP1: SETB C MOV A,R2 SUBB A,#8 JC LOOP3 LOOP2: MOV B,#10H LCALL LOOP8 SETB F0 CLR C CLR OV RET LOOP3: MOV B,#8 LCALL LOOP8 SETB C CLR F0 CLR OV RET LOOP4: MOV B,#0 LCALL LOOP8 CLR OV CLR F0 CLR C RET LOOP8: MOV A,R2 CJNE A,B, LOOP9 MOV A,R3 MOV @R0,A INC R0 MOV A,R4 MOV @R0,A DEC R0 RET LOOP9: CLR C LCALL FLTRRN SJMP LOOP8