[an error occurred while processing this directive]
|
a = b / c
a - R6:R7
b = R6:R7
с = R4:R5
CJNE R4,#0x00,C:0011
CJNE R6,#0x00,C:0032
MOV A,R7
MOV B,R5
DIV AB
MOV R7,A
MOV R5,B
RET
C:0x0011:
CLR A
XCH A,R4
MOV R0,A
MOV B,#8
C:0x0017:
MOV A,R7
ADD A,R7
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R4
RLC A
MOV R4,A
MOV A,R6
SUBB A,R5
MOV A,R4
SUBB A,R0
JC C:002B
MOV R4,A
MOV A,R6
SUBB A,R5
MOV R6,A
INC R7
C:0x002B:
DJNZ B,C:0017
CLR A
XCH A,R6
MOV R5,A
RET
C:0x0032:
MOV A,R5
MOV R0,A
MOV B,A
MOV A,R6
DIV AB
JB OV(0xD0.2),C:0057
MOV R6,A
MOV R5,B(0xF0)
MOV B(0xF0),#a(0x08)
C:0x0041:
MOV A,R7
ADD A,R7
MOV R7,A
MOV A,R5
RLC A
MOV R5,A
JC C:0050
SUBB A,R0
JNC C:0052
DJNZ B(0xF0),C:0041
RET
C:0x0050:
CLR C
SUBB A,R0
MOV R5,A
INC R7
DJNZ B),C:0041
C:0x0057:
RET
E-mail: info@telesys.ru