$20
RSW
STC 7C
LDAi
2000
STA
7B
SCR 13
STC 7A
JMP 7D
LDA
7B
STC 1N
LDAi
215
OPRi2
LDAi
212
OPRi2
JMP 1A
LDAi
4000
STC 7B
STC 7A
JMP 7D
LDAi
2000
MUL
7B+4000
STC 1N
LDAi
240
OPRi2
SROi
3567
JMP p-5
JMP 1A
KBDi
JMP 20
[4-DIGIT PT
#1A SET 10
0
LDAi
#1N 0000
ROL 3
STA
1N
BCLi
7770
ADAi
260
OPRi2
SROi
3567
JMP 1N-1
JMP 10
[EBND
[DPDIV2
[DOUBLE PREC.
[DIVISION SUB-
[ROUTINE.
[ON ENTRY -
[DIVIDEND MSB
[IN 7A, LSB IN
[7B, DIVISOR
[IN 7C.
[ON EXIT -
[QUOTIENT MSB
[IN 7A, LSB IN
[7B, DIVISOR
[UNCHANGED IN
[7C. REMAINDER
[IN ACCUMUL.
[AJH APR.67
#7D LDA
0
STC 7A+10
LDAi
#7C 0
AZEi
JMP 0
APOi
COM
STC 7B-11
STC 7B-13
ADD 7A
STAi
0
APOi
JMP p+6
COM
STC 7A
ADD 7B
COM
STC 7B
LDAi
3777
STC 7B+2
ADD 7B-2
STC 7B+5
CLR
ADD 7B
ROLi1
STC 7B
ADD 7A
ROLi1
STC 7A
ADD 7B-13
ROLi1
STAi
0
ADAi
0
AZEi
COM
APO
JMP p+6
STC 7B-13
LDAi
1
ADMi
#7B 0
SROi
3777
JMP 7B-25
SROi
0001
JMP 7B-25
LDA
7C+11
APOi
JMP p+5
LDA
7B-13
COM
STC 7B-13
LDA
7C
BCO
7C+11
APOi
JMP p+10
LDAi
#7A 0
COM
STC 7A
ADD 7B
COM
STC 7B
LDA
7B-13
JMP 000
[END