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

[FLOS-1R PIECED
[JAN 6|26
[BASIC ROUTINES
[NORMALIZE,SETUP,ERROR,RETURN,DECREMENT EXPONENT
[1N,1R,1X,1Q,1H
[TEMPORARY STORAGE
0
[ROUNDOFF INTO 1N-10
STA i [1N-7
0
SCR 14
ROL i 1
STC 1N-10
ADD 1N-6
JMP 0
[NORMALIZE LEFT
[AND ASSIMILATE LINK BIT
#1N LDA i
0
LAM
1N+1
OVF
JMP 0
[NORMALIZE COMPLETED
ROR i 1
JMP 1N-7
ADD 1N-10
OVF i
COM
BCO i [CORRECT SIGN OF MANTISSA
0
STA i3 [STORE MANTISSA
[NORMAL RETURN
#1R NOP      [*  #1R LDA i 4
JMP p    [*      JMP 4
[SET INDEX REGISTERS
ADD 1Q+1 [+1
ADD 1Q+1
#1X ADD 1Q+1
STA
1R+1     [*      4
ADA i
-6003 [CONSTANT 1774
STC 3
LDA 3
STC 1
LDA i3
STC 2
LDA i3
STC 3
JMP 0
[INCREMENT EXPONENT
#1Q LDA i
1 [CONSTANT 1
[DECREMENT EXPONENT
ADM 3
[TEST OVERFLOW
OVF
JMP 0
[OVERFLOW OR UNDERFLOW
APO
[OVERFLOW STOP
[ERROR STOP OR RETURN
#1H HLT      [*  #1H JMP 4
CLR
STA 3
JMP 1R-1
[FLOS-1R