DOSQR: MOV 20H, R3 MOV 21H, R1 MOV 23H,R0 CLR C MOV A, R0 RRC A ADDC A, #00H MOV R2, A MOV 22H, A ZERO: MOV @R1,#00H INC R1 DJNZ R0, ZERO LP0: MOV R1,21H MOV R0, 23H MOV R3, #60H CLR C LP6: MOV A,@R1 RLC A MOV @R3, A INC R3 INC R1 DJNZ R0, LP6 SETB C MOV R3, #60H INC R2 LP1: MOV A,@R3 ADDC A, #00H MOV @R3, A INC R3 DJNZ R2, LP1 MOV R0,23H MOV R3, 20H MOV R1, #60H CLR C LP2: MOV A,@R3 SUBB A,@R1 MOV @R3, A INC R3 INC R1 DJNZ R0, LP2 JC RETURN MOV R1,21H MOV R2,22H SETB C LP4: MOV A,@R1 ADDC A, #00H MOV @R1, A INC R1 DJNZ R2, LP4 SJMP LP0 RETURN: RET