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

[FLOS-1R PIECED
[ENTER ADD
#1A CLR
ADD 0
JMP 1X-2
LDA 1 [DETERMINE WHICH ADDEND IS LARGER
COM
ADA 2
OVF [SKIP IF MAGNITUDES GROSSLY DIFFERENT
JMP p+4
SCR i14
BCO i
7763 [CONSTANT -14
SCR i1 [SIGN TO LINK BIT
ROL i 1
APO [MAGNITUDE OF EXPONENT DIFFERENCE
COM
ADD 1A+12 [-14
APO i
STC 0
ADD 1A+10 [CONTAINS SCR i14
STC 1A+61
[SET UP ADDITION
LDA 2
LZE i
LDA 1
STC 1N-10 [EXPONENT OF SMALLER ADDEND
LDA 2
LZE [LINK BIT SELECTS LARGER ADDEND
LDA 1
STA 3 [EXPONENT OF LARGER ADDEND
LDA i 1
LDA i 2
LZE
LDA 1
AZE 
JMP p+6
[ADDEND WITH LARGER EXPONENT HAS ZERO MANTISSA
ADD 1N-10
STA 3
ROL i1 [COMPLEMENT LINK BIT
COM
ROR i 1
LDA 2
LZE
LDA 1
STC 1N+1 [MANTISSA OF LARGER ADDEND
STC 1R-2 [SIGN
LDA 2
LZE i
LDA 1
SCR i1 [SIGN TO LINK BIT
ROL i 1
SCR i14 [SCALE DOWN SMALLER ADDEND
JMP 1N-7 [ROUNDOFF
ADM 
1N+1
OVF
JMP p+11
[ASSIMILATE MANTISSA OVERFLOW
SCR 1
BCO i
4000 [CONSTANT 4000
JMP 1N-7
STC 1N+1
JMP 1Q [INCREM EXPONENT
LDA 
1N+1
ADD 1N-10 [ROUNDOFF
OVF i
COM
STA 
1N+1
AZE i
JMP 1H+1 [ZERO RESULT
ROL i1 [SIGN BIT TO LINK
JMP 1N
LDA i
-1 [CONSTANT -1
JMP 1Q+2 [DECREM EXPONENT
JMP p-4
[END ADDS
[JAN 6|26