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

[DIVS
[FLOS-1R PIECED
[ENTER DIVIDE
#1D CLR [SAVE RETRUN
ADD 0
JMP 1X-2
LDA 2 [COMPUTE EXPONENT
COM
ADA 1
JMP 1Q+3 [TEST OVERFLOW
STA 3 [SAVE EXPONENT
LDA i 2
AZE i
JMP 1H [ZERO DIVISOR
APO [OBTAIN MAGNITUDE OF DIVISOR
COM
STC 1D+42
[SET UP DIVIDEND
LDA i1
AZE i [TEST FOR ZERO DIVIDEND
JMP 1H+1 [ZERO RESULT
BCO 2 [OBTAIN SIGN OF QUOTIENT
SCR 14
STC 1R-2
STC 1N+1
LDA 1
APO i [OBTAIN COMPLEMENT OF DIVIDEND MAGNITUDE
COM
STA 
1D+40
STA
1N-10
ADD 1D+42 [MAGNITUDE OF DIVISOR
APO [COMPARE MAGNITUDE OF DIVIDEND AND DIVISOR
JMP 1Q [INCREM EXPONENT
[TRIAL SUBTRACTION
LDA i
0 [COMPLEMENT OF DIVIDEND MAGNITUDE 1D+40
ADA i
0 [DIVISOR MAGNITUDE 1D+42
SCR i1 [SIGN TO LINK BIT
ROL i 1
APO
JMP p+3
[TRIAL SUBTRACTION FAILED
LDA 
1D+40
ROL 1
STA
1N-10
STC 1D+40
[GENERATE QUOTIENT
[NOTE ROLE OF LINK BIT
JMP 1N
JMP 1D+37 [DO NEXT TRIAL SUBTRACTION
[END DIVS
[JAN 6|26|69