Directory of image this file is from
This file as a plain text file

[DECDIV
[DECIMAL DIVISION
[USES DECMUL AND DECBASE
[JMP 1D
[ADDR DIVIDEND
[ADDR DIVISOR
[ADDR QUOTIENT
[#1B-ADDR BUFFER AREA
[1L=#DIGITS
[1L,1B SET IN DECBASE
[XR 1 TO 12
#1D CLR
ADD 0
JMP 1N
ROLi1
SCR 1
COM
ADD 1N+104 [EXP1
ADD 1N+62 [-1
STC 1N+104 [RESULT EXP
RORi1
BCO 2 [XOR SIGNS
BCLi
 3777
STC 1N+122
[ DIVIDEND TO BUFFER
LDHi2 [DIVIDEND
STAi7
XSKi10
 JMP p-3
CLR
STAi7 [CLEAR GUARD
STAi7
[ DIVISOR TO BUFFER
SETi10
-1L
LDHi3 [DIVISOR
STAi7
XSKi10
 JMP p-3
CLR
STAi7 [CLEAR GUARD
STAi7
[ T DIGIT
 LDA
1B+1L+3
AZEi
JMP 1N+26 [ZERO DIVISOR
ADAi
 -4
APO
 JMP p+27
COM
ADAi
5
AZEi
 JMP p+45 [D DIGIT
SHDi
 400
ADD p+16  [=2
SHDi
 300
ADD 1N+51 [1
STC p+125+2
JMP p+22
SETi10
-1L
 COM
STC p+31+1 [SETUP RESTORE FLAG
LDAi
 JMP p-32
STC p+160+2
JMP p+52+3
  2   [CONSTANT
[ DOUBLE
 LDAi
 APO [SKIP
STA
 p+70+1
STC p+106+1
SETi10
-1L-1
JMP p-16
[ RESTORE FOR MULTIPLY
 LDAi
 MUL
STC p+61+1
ADAi
MULi
STC p+75+1
LDAi
 JMP p+7
STC p+135+2
STC p+2+1 [RESET F|F
JMP 0
 SROi
 0
JMP p-15
 SETi2
1B+1L+2 [DENOM
SETi10
-1L
[ FIND DIGIT NOT=9
 LDAi2
SAEi
  11
 JMP p+13
XSKi10
 JMP p-5
CLR
SAE
1B
ADD p+4 [=UNDRED
ADAi
 74   [SIXTY
JMP 1M+60 [CARRIES AND EXIT
1130  [UNDRED
[
 COM
ADD p-17+2 [=11
STC p+40+2
ADD 1N+62 [-1
ADM
 10
COM
ADD p-31+1 [=1B+1L+2
STA
 2
ADAi
-1L-2
STC 3
SETi6
1B+1L+1L+4
SETi7
1B+1L+2
STC 11  [DENOM CARRY
STC 12  [NUMER CARRY
 LDA 2
MUL
 p+15+2   [D[I]
ADD 11  [CARRY
ADA 6
SETi11
 0      [CLEAR CARRY
 STA 6
ADD 1M+113 [-12
AZEi
 CLR
APO
 JMP p+3
XSKi11 [CARRY
JMP p-7
[
 LDA 3
MULi
 0     [D[I]
ADD 12 [CARRY
ADA 7
SETi12
 0
 STA 7
ADD 1M+113 [-12
AZEi
 CLR
APO
 JMP p+3
XSKi12 [CARRY
JMP p-7
[
 LDAi
 -1
ADD 7
STC 7
XSK 10
 AZE   [SKIP
JMP p+16
ADD 1N+62 [-1
ADM
 2
ADD p-50-10 [=-1L-2
STC 3
ADD 1N+62 [-1
ADD 6
STC 6
XSKi10
 JMP p-56
ADD 11
ADM 6
JMP p-42 [ONCE MORE FOR NUMERATOR
[
[ HIGH QUOTIENT DIGIT
 ADD 12 [CARRY
ADM 7
JMP p-131
[END DECDIV
[JAN 8|15|69