[QIKDIV
[QUICK AND 
[DIRTY DIVISION
[SUBROUTINE
[AJH JAN 65
#7D STC p+23
ADD 0
STC p+17
ADD 7A
APOi
AZEi
JMP p+14
ADAi
-50
APOi
CLR
ADAi
p+2060
STC p+1
ADD 000
MUL
p+4003
JMP 000
LDAi
0
JMP p-3
3777
2000
1252
1000
631
525
444
400
343
314
272
252
235
222
210
200
170
161
153
146
141
135
131
125
121
116
113
111
106
104
102
100
76
74
72
70
67
65
64
63
[END