DODIV: MOV A,R0 MOV R4, A MOV A, R1 MOV R5, A MOV A, R3 MOV R7, A MOV A, R0 ADD A, R3 MOV R6,A MOV R1, A LP0: MOV @R1,#00H INC R1 DJNZ R3, LP0 MOV A,R7 ADD A, R7 MOV R2, A MOV B, #04H MUL AB LP1: PUSH A MOV A, R2 MOV R3, A MOV A, R4 MOV R1, A CLR C LP2: MOV A,@R1 RLC A MOV @R1, A INC R1 DJNZ R3, LP2 NEXT: MOV A, R6 MOV R0, A MOV A, R5 MOV R1, A MOV A, R7 MOV R3, A CLR C LP3: MOV A,@R0 SUBB A,@R1 PUSH A INC R0 INC R1 DJNZ R3, LP3 MOV A, R7 MOV R3, A JC SMALL MOV A, R4 MOV R0, A INC @R0 MOV A, R6 ADD A, R7 DEC A MOV R0, A LP4: POP A MOV @R0, A DEC R0 DJNZ R3, LP4 SJMP NEXT SMALL: POP A DJNZ R3, SMALL POP A DEC A JNZ LP1 I504: MOV A,R6 ADD A, R7 DEC A MOV R0, A MOV R2, A MOV A,@R0 JB E7H, ADD1 MOV A, R6 MOV R1, A MOV A, R7 MOV R3, A CLR C LP5: MOV A,@R1 RLC A MOV @R1, A INC R1 DJNZ R3, LP5 MOV A, R2 MOV R0, A MOV A, R7 MOV R3, A ADD A, R5 DEC A MOV R1, A LP6: CLR C MOV A,@R0 SUBB A,@R1 JC RETURN JNZ ADD1 DEC R0 DEC DJNZ R3, LP6 ADD1: MOV A,R4 MOV R1, A MOV A, R7 MOV R3, A SETB C LP7l: MOV A,@R1 ADDC A, #00H MOV @R1, A DJNZ R3, LP7 RETURN: MOV A,R4 MOV R0, A MOV A, R7 MOV R3, A RET