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

[BOUNDS
[FOR UPPER BND PRESS U
[FOR LOWER BND PRESS L
[SET RSW TO INT ADD OF COMP RANGE AND PRESS I
[SET RSW TO FIN ADD AND PRESS F
[SET RSW TO NO. OF FNCS TO COMPARE AND PRESSN
[SET RSW TO INIT DAT BLK AND PRESS T
[SET RSW TO OUTP DAT BLK AND PRESS S
[BND IS SVD ON TP
[PRESS C FOR ADDIT. FNCS TO COMPARE WITH THE PREVIOUS SET
[AFTER C GIVE THE FOLLOW. INF
[SET RSW TO NO. OF ADDIT. FNCS AND PRESS N
[SET RSW TO NEW INIT INP BLK AND PRESS T
[SET RSW TO NEW OUTP BLK AND PRESS S
[
[
#2A KBD i [UPP|LOW BND
SAEi
50 [U
JMP p+5
LDA i
APO
STC 2B
JMP p+7
SAEi
37 [L
JMP 2A
LDA i
APO i
STC 2B
KBD i [INT ADD
SAE i
34 [I
JMP 2A
RSW
STA 
2I
STC 10
KBD i [FIN ADD
SAE i
31 [F
JMP 2A
RSW
ADA i
2
STC 2F
KBD i [NO. OF SEQUENC
SAE i
41 [N
JMP 2A
RSW
COM
STC 5
LDA i5 [INDX 5
KBD i [INP BLK
SAE i
47 [T
JMP 2A
RSW
STC 6
KBD i [OUT BLK
SAE i
46 [S
JMP 2A
RSW
STC 7
LDA i
6
STC 2T+12
LDA i [LO DAT 1
UMB 15
JMP 2D
LDA i
2R+2
JMP 2T
JMP 2R-3
#2G LDA [LO DAT 2
6
ADA i
14
STC 6
LDA i
UMB 12
JMP 2D
LDA i
2R+2
JMP 2T
JMP 2R-3
#2E UMB 15 [DAT 1
LDA 10
STC2X
UMB 16
LDA 10
STC 2X+1
UMB 17
LDA 10
STC 2X+2
UMB 12 [DAT 2
LDA 10
STC 2Y
UMB 13
LDA 10
STC 2Y+1
UMB 14
LDA 10
STC 2Y+2
JMP 1S [DAT1-DAT2
2X
2Y
2Z
LDA
2Z+1
#2B APO [FOR UPP B,APO i FOR L B
JMP p+2
JMP 2C
UMB 15 [DAT2 G.T. DAT1
LDA
2Y
STA 10
UMB 16
LDA 
2Y+1
STA 10
UMB 17
LDA 
2Y+2
STA 10
#2C LDA i 10 [INDX
LDA i 10 [INDX
LDA
10
SAE
2F
JMP 2E
LDA [RESET INIT ADD
2I
STC 10
XSK i5 [CHECK SEQ COUNT
JMP 2G
LDA i [SV ON TP
7
STC 2T+12
LDA i
2H+2
JMP 2T
JMP 2H-3
#2K KBDi [ADDIT SET OF FNCS TO COMP OR DIS
SAE i
26 [C
JMP 2L [CHECK FOR DIS
KBD i [NO. OF ADDIT FNCS
SAEi
41[N
JMP 2K
RSW
COM
STC 5
KBDi [INP BLK
SAE i
47 [T
JMP 2K
RSW
STC 6
KBD i [OUT BLK
SAE i
46 [S
JMP 2K
RSW
STC 7
LDA i
6
STC 2T+12
JMP 2G+5
[
#2D STA
2R
ADAi
1
STA
2R+11
ADD p-3
STC 2R+22
JMP 0 [RET
[
CLR
ADD0
STC 2Q
#2R UMB 15
RDC
4|100
RDC
5|101
RDC
6|102
RDC
7|103
UMB 16
RDC
4|104
RDC
5|105
RDC
6|106
RDC
7|107
UMB 17
RDC
4|110
RDC
5|111
RDC
6|112
RDC
7|113
#2Q RETURN
[
#2T STA
2T+15
STC 2T+23
ADD 0
STC 2S
SET i17
-14
SET i 16 
-4
LDA 
7
STC 2T+21
LDA 
2R+2
BCL i
0777
ADA i
X [BLK NO.
STA 
2R+2
LDA 
p-4
ADA i
1
STC p-7
XSK i17
JMP p+2
#2S X [RET
XSK i16
JMP p+2
JMP p+5
ADD 2T+15
ADA i
2
JMP p+6
ADD 2T+15
ADA i
3
SET i16
-4
STA
2T+15
STC 2T+23
JMP 2T+14
[
CLR
ADD 0
STC 2J
#2H UMB 15 [SV ON TP
WRC
4|100
WRC
5|101
WRC
6|102
WRC
7|103
UMB 16
WRC
4|104
WRC
5|105
WRC
6|106
WRC
7|107
UMB 17
WRC
4|110
WRC
5|111
WRC
6|112
WRC
7|113
#2J RET
[
#2F X [FIN ADD+1
#2I X [INIT ADD
#2X X [DAT 1
X
X
#2Y X [DAT 2
X
X
#2Z X [DAT1-DAT2
X
X
[
[
#2L SAE i [DIS
27 [D
JMP 2K
KBDi
SAEi
45 [R
JMP p+4
CLR
STC 2M+1
JMP p+7
SAE i
34 [I
JMP 2K
LDA i
-1
STC 2M+1
UMB 1 [LO DIS PRO
RDC u
4|30
RDC u
6|31
RDC u
7|32
RSW
STC 7
LDA i
2N+2
JMP 2T
#2N UMB 15
RDC
4|100
RDC
5|101
RDC
6|102
RDC
7|103
UMB 16
RDC
4|104
RDC
5|105
RDC
6|106
RDC
7|107
UMB 17
RDC
4|110
RDC
5|111
RDC
6|112
RDC
7|113
#2M LDA i
X
LMB 1
JMP 20
JMP 2K
[XXXXXXXXXXXXXXXX
[XXXXXXXXXXXXXXXX
$1000
[FLOSBASE
[FLOD-1R PIECED
[BASIC ROUTINES
[1N,1R,1X,1Q,1H
[TEMPORARY STORAGE
0
0
[NORMALIZE STEP
#1N LDA i
0
LAM
p-2
SCR 14
LDA i
0
LAM
p-2
OVF
JMP 0
ROR i 1
BCO i
0
STA i 3
ROL i 1
ZTA
BCO
p-5
ROL 1
ROR i1
STA i 3
[NORMAL EXIT
#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
[ADJUST EXPONENT
#1Q LDA i
1
ADM 3
OVF
JMP 0
APO [SKIP IF UNDERFLOW
[ERROR STOP OR RETURN
#1H HLT      [*  #1H JMP 4
CLR
STA 3
STA i3
JMP 1R-1
[END FLODBASE
[JAN 6|26|69
[ADDD
[FLOD-1R PIECED
[ADD
#1A CLR
ADD 0
JMP 1X-2
LDA 1
COM
ADA 2
OVF
JMP p+4
SCR 14 [1A+10
BCO i
-40
APO i
JMP 1A+101
STC 1N-1
STC 1N+15
[SET UP ADDITION
[REG1 POINTS TO
[ADDEND WITH LARGER
[EXPONENT
[
LDA 2
STC 1N+6 [SMALLER EXPONENT
LDA 1
STA 3 [LARGER EXPONENT
LDA i 2
LDA i1
AZE
JMP p+5
[ADDEND WITH LARGER
[EXPONENT IS ZERO
ADD 1N+6
STA 3
JMP 1A+101 [SWAP
[LOAD LEFT HALF
[OF LARGER
LDA 1
STC 1N+6
[LOAD RIGHT HALF OF LARGER
LDA i 1
ROL 1
STC 1N+1
[SCALE SMALLER
ADD 1N-1
JMP 1A+110
STC 1A+53
[CLEAR LINK
ROL i1
ZTA
ROL 1
ZZZ
ADD 1Q+1 [+1
[RIGHT + RIGHT
LAM 
1N+1
SCR 14
[LEFT + LEFT
LDA i
0    [1A+53
LAM
1N+6
OVF
JMP p+6
[OVERFLOW:INDEX EXP. AND SCALE RIGHT 1
JMP 1Q
LDA
1N+6
ROR i 1
JMP 1N+16 [EXIT
STC 0
LAM
1N+1
STC 0
LAM
1N+6
AZE    [1A+73
JMP 1A+136
SAE
1N+1
JMP 1A+136
JMP 1H+1 [ZER0 RESULT
[SWAP REG1 AND REG2
STC 1N-2 [1A+101
ADD 2
SET 2
1
STC 1
ADD 1N-2
JMP 0
[24-BIT SCALE
APO   [1A+110
COM   [1A+111
ADA i
-14
SCR i 1
ROL i 1
[IF SCALE>14, L=0
APO i
ADD p-4
APO i
CLR
ADD 1A+130
STC 1A+134
LDA 2
STC 1N-2
LDA i 2
ROL 1
SCR 14 [1A+130
ADD 1N-2
LZE i
SCR 14
SCR X  [1A+134
JMP 0
[CLEAR LINK
ROL i1 [1A+136
JMP 1N [NORMALIZE
LDA i
-1
JMP 1Q+2 [DECREM EXPONENT
JMP p-4
[END ADDD
[JAN 6|26|69
[SUBD
[FLOD-1R PIECED
[SUBTRACT
#1S CLR
ADD 0
JMP 1X-2
LDA 2
STC 1S+16
LDA i2
COM
STC 1S+17
LDA i2
COM
STC 1S+20
SET i2
1S+16
JMP 1A+3
[TEMPORARY STORAGE
0 [1S+16
0
0
[END SUBD
[JAN 6|26|69