Intel MCS48 User Manual page 149

APPLICATION EXAMPLES
16x8
DIVIDE-(ASSEMBLED BY MCS-48
MACRO
ASSEMBLER
SEE
AP-49)
IS IS-I
I
MCS-48/UPI-41 MACRO ASSEMBLER.
V3
.
B
LOC OBJ LINE SOURCE STATEMENT
BB6S
3?
- 238
239
CPL
A
IF
BORROUM
THEN
BB66 E66B
=
24B
241
JNC DIVIC
RESTORE DIVIDEND
BB68
61
» 242
ADD A,«R1
BB69 B46C
=
243
244
245
246
OIVIC
JflP
DIVID
ELSE
QUOTIENTCB
]:
*l
BB6B
1A
-
247
248
249
:
INC XA
ENDIF
COUNT:«COUNT-l
2SB
;
UNTIL COUNT=B
BB6C EB57
= 251 DIVIO
DJN2
COUNT. DIVILP
= 252
;
CLEAR OVERFLOW FLAG
BB6E
97 = 253
CLR
C
= 254
;
ENDIF
= 255
;
ENDDIVIDE
BB6F
2A = 2S6 DIVIB
XCH
A,
XA
8B7S
83 = 257
RET
5-29