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

[ARRAYORG
[I INTERLACE RE BLKS 0-13 AND RE BLKS 14-27
[RESULT ON BLKS 30-43
[S SHIFT RE USB-W.R.T. 100-TO BASEB
[REDUCNG TO A VALUE WITHIN +-PI
[DAT FO S ON BLKS 50-63
[RESULT ON BLKS 14-27
[GA DIS AMP-RE-
[GN DIS PHAS-IM-
[USES DIS PRO ON BLKS 30-32, UNIT 1
[
[
UMB 1  [RD DIS PRO
RDC u
4|30
RDC u
6|31
RDC u
7|32
#2A KBD i     [ENT COD
SAE i
34 [I
JMP p+2
JMP 2I    [INTERLACE
SAE i
46 [S
JMP 2D+1  [FOR CODS GA AND GN
CLR       [CLR PGS 2-4
SET i17
3777
UMB 2
STA i17
XSK 17
JMP p-2
UMB 3
STA i17
XSK 17
JMP p-2
UMB 4
STA i17
XSK 17
JMP p-2
UMB 5     [RD DAT FOR SHIFTING
RDC
4|50
RDC
5|51
RDC
6|52
RDC
7|53
UMB 6
RDC
4|54
RDC
5|55
RDC
6|56
RDC
7|57
UMB 7
RDC
4|60
RDC
5|61
RDC
6|62
RDC
7|63
SET i17
2000
SET i16
3776
SET i15
2200
UMB 6     [MSB
LDA 15
AZEi
JMP 2B-4  [ZERO
STC 2Z+1
UMB 5     [EXP
LDA 15
STC 2Z
UMB 7     [LSB
LDA 15
STC 2Z+2
LDA i
NOP
STC 2B+12
JMP 1M    [R|100
2Z
2J
2J+6
JMP p+4
LDA i
JMP 2K
STC 2B+12
LDA i15   [INDX
#2B LDA i17   [INDX
UMB 6     [MSB
LDA i15
STC 2Z+1
UMB 5     [EXP
LDA 15
STC 2Z
UMB 7
LDA 15
STC 2Z+2
XXX       [JMP 2K OR NOP
LDA     [LO FREQ
15
ADAi
-2000
SCR 1
STC 2J+12
JMP 1I    [FLT FREQ
2J+11
2Z+6
JMP 1M    [FREQ#R|100
2Z+6
2J+6
2Z+6
JMP 1S    [DAT -FREQ#R|100
2Z
2Z+6
2Z
#2K JMP 2H    [REDUCES TO WITHIN +-PI
JMP 1S    [MINUS DAT
2J+3 [0
2Z
2Z+6
UMB 2
LDA
2Z
STA i17
LDA
2Z+6
STA 16
UMB 3
LDA
2Z+1
STA 17
LDA
2Z+7
STA 16
UMB 4
LDA
2Z+2
STA 17
LDA
2Z+10
STA 16
#2C LDA i15   [INDX
LDA
15
SAE i
2777
JMP p+2
JMP p+6   [DONE
LDA i
-2
ADD 16
STC 16
JMP 2B     [NEXT VALU
UMB 2     [SV ON TP, BLKS 14-27
WRC
4|14
WRC
5|15
WRC
6|16
WRC
7|17
UMB 3
WRC
4|20
WRC
5|21
WRC
6|22
WRC
7|23
UMB 4
WRC
4|24
WRC
5|25
WRC
6|26
WRC
7|27
JMP 2A    [NEW COD
#2H CLR
ADD 0
STC 2I-1
JMP 1V    [REDUCES TO WITHIN +-2PI
2Z
2Z
[REDUCES FURTHER TO WITHIN +-PI
LDA
2Z+1
APO
JMP p+7   [DAT NEG
LDA i     [DAT POS
JMP 1S
STA
2G
STC 2G+10
JMP 2G
LDA i
JMP 1A
JMP p-6
#2G JMP XX    [1S FOR POS DAT, 1A FOR NEG DAT
2Z+3 [PI
2Z
2Z+6
LDA
2Z+7
APO i
JMP p+5   [|DAT| L.T. PI
JMP XX    [1S FOR POS DAT, 1A FOR NEG DAT
2Z
1V-3 [2PI
2Z
RETURN
#2I UMB 2     [RD DAT 1
RDC
4|0
RDC
5|1
RDC
6|2
RDC
7|3
UMB 3
RDC
4|4
RDC
5|5
RDC
6|6
RDC
7|7
UMB 4
RDC
4|10
RDC
5|11
RDC
6|12
RDC
7|13
UMB 5     [RD DAT 2
RDC
4|14
RDC
5|15
RDC
6|16
RDC
7|17
UMB 6
RDC
4|20
RDC
5|21
RDC
6|22
RDC
7|23
UMB 7
RDC
4|24
RDC
5|25
RDC
6|26
RDC
7|27
SET i17   [INTERLACE
3777
SET i16
2000
#2E UMB 5
LDA i17
UMB 2
STA i16
UMB 6
LDA 17
UMB 3
STA 16
UMB 7
LDA 17
UMB 4
STA 16
XSK i17
JMP p+2
JMP p+3   [DONE
LDA i16   [INDX
JMP 2E
UMB 2     [SV ON TP, BLKS 30-43
WRC
4|30
WRC
5|31
WRC
6|32
WRC
7|33
UMB 3
WRC
4|34
WRC
5|35
WRC
6|36
WRC
7|37
UMB 4
WRC
4|40
WRC
5|41
WRC
6|42
WRC
7|43
#2D KBD i     [ENT NEW COD
SAE i
32 [G
JMP 2A    [INVAL COD
LDA i     [CHANG PAGS IN DJS PRO
UMB 2
UMB 1
STA
3A
STA
3L
ADA i
1     [UMB 3
STA
3A+3
STA
3L+3
ADD p-5  [UMB 4
STA
3A+6
STA
3L+6
KBD i     [2ND LETT IN COD
SAE i
24 [A
JMP p+2
JMP 2F    [DIS AMP
SAE i
41 [N
JMP 2A    [INV COD
LDA i     [DIS PHA, ADD INS JMP 3E+7 IN DIS PRO
3E
ADA i
4007
UMB 1
STA
3F
LDA i     [ADD INST IN DIS PRO
NOP
STA
3E
LDA i
-1
JMP p+13
#2F LDA i     [DIS AMP, ADD INST JN DIS PRO
LDA i6
UMB 1
STA 
3E
LDA i     [ADD INS IN DIS PRO
NOP
STA
3F
CLR
LMB 1
JMP 20
JMP 2A
#2Z X    [TEMP
X
X
2    [PI
3110
1767
X    [TEM
X
X
#2J -5    [CONST 1|100
2000
0000
0     [CONST 0
0
0
X     [TEMP
X
X
0000 [FREQ FO FLT
XXX
[XXXXXXXXXXXXXXXXXXXXXX
3A=2034 [AD IN DIS PRO
3L=2154 [IBID
3E=2073 [IBID
3F=2025 [IBID
[XXXXXXXXXXXXXXXXXXXXX
[XXXXXXXXXXXXXXXXXXXXX
[2PIRLESD
[REDUCES X TO WITHIN APPRO +-2PI
[DOUBLE PRECISION
[USES FLOD-1R 1A,1S,1N,1R,1H,1Q,1X
[JMP 1V
[ADDR X
[ADDR RESULT
[
[2PI  1V-3
3
3110
1767
#1V CLR
ADD 0
JMP 1X-1
ADD 1R+1
STC 1V+26
ADD 3
STC 1V+43
LDAi
JMP 1S
STC 1V+40
LDA 2
STA 3
LDA i2
STA i3
LDA i2
STA i3
JMP 1V+44
LDA 2 [1V+21
COM
ADA i
4
APOi
JMP RETURN [1V+26
LDA
2
STC 1V+41
LDAi2
APOi
JMP p+4
LDAi
JMP 1A
STC p+1
JMP 1S [1V+40
ADDR X [1V+41
1V-3
ADDR RESULT 1V+43
SET 2
p-2
JMP 1V+21
[END 2PIRLESD
[JAN 9|2|69
[MOD: MJM 3-11-70
[XXXXXXXXXXXXXXXXXX
[FLOD-1R
[SUBTRACT, FLOAT, FIX
$1245
[ENTER SUBTRACT
#1S CLR
ADD 0
JMP 1X-2
LDA 2
STC 1M+112
LDA i2
COM
STC 1M+113
LDA i 2
COM
STC 1M+114
SET i2
1M+112
JMP 1A+3
[FLOAT INTEGER
#1I LDA i
26
APO
[FLOAT FRACTION
#1F CLR
STC 1M+112
STC 1N+15
ADD 0
JMP 1X-1
LDA 2
STC 1N+6
ADD 1M+112 [EXPONENT
STA 3
LDA i 2
ROL 1
STC 1N+1
ADD 1N+6
JMP 1A+73
[FIX INTEGER
#1J LDA i
-26
APO i
[FIX FRACTION
#1G CLR
STC 1M+60
STC 1N+15
ADD 0
JMP 1X-1
[CONTAINS ZERO ON RETURN
COM
ADD 1M+60
ADA 2
APO i
JMP 1H [OVERFLOW
XSK i 2
NOP
JMP 1A+111
STA 3
JMP 1R-7
[FLOD
[KERNEL
[PORTIONS FOLLOWING
[THIS POINT
[INTERACT STRONGLY
[WITH ONE ANOTHER
$1326
[ENTER MULTIPLY
#1M CLR
ADD 0
JMP 1X-2 [SET INDEX REGISTERS
LDA 2 [COMPUTE EXPONENT
ADA 1
JMP 1Q+3
STA 3
LDA i 2 [SET UP MULTIPLICANDS
STC 1M+113 [LEFT HALF
LDA i 2
STC 1M+112 [RIGHT HALF
LDA i 1
MUL [L1 X L2
4000+1M+113
AZE i
JMP 1H+1 [PRODUCT ZERO
LZE
COM
STC 1N+6
ZTA
STC 1N+1
LDA 1
MUL [L1 X R2
4000+1M+112
LZE
COM
ADM 
1N+1
ZTA
STC 1M+60
LZE
COM
STC 1N+15
LDA i 1
MUL [R1 X R2
4000+1M+112
LZE
COM
ADM 
1M+60
LDA 1
MUL [R1 X L2
4000+1M+113
LZE
COM
STC 0
ZTA
LAM i
0 [1M+60
BCL i 
3777
ROL i 2
LAM 
0
LAM
1N+1
BCL i
3777
ROL i 2
LAM 
1N+6
LDA
1M+60
ROL i 2
LDA 
1N+1
ROL i 1
STC 1N+1
[ CLEAR LINK
ROL i 1 [1M+104
JMP 1N [NORMALIZE
LDA i
-1
JMP 1Q+2 [DECREM EXPONENT
JMP p-4
[TEMPORARY
[STORAGE
0 [1M+112
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
[DIVIDE
#1D CLR
ADD 0
JMP 1X-2
[COMPUTE EXPONENT
LDA 2
COM
ADA 1
STA 3
JMP 1Q+3
JMP 1Q
[SET SIGN
LDA i 2
BCO i 1
SCR 14
STC 1N+15
[CLEAR QUOTIENT
STC 1N+1
STC 1N+6
LDA 2
AZE i
JMP 1H [DIVISOR ZERO
APO i
COM
BCL i 
4000 [1D+25
[LEFT DIVISOR
STC 1D+37
LDA i 2
APO i
COM
[CLEAR SIGN AND ADD +1
ADD 1D+25
ROL i 1
ROR 1
[RIGHT DIVISOR
STC 1M+112
LAM i
0 [1D+37
LDA 1
AZE i
JMP 1H+1
APO
COM
[LEFT DIVIDEND
STC 1D+100
LDA i 1
APO
COM
[RIGHT DIVIDEND
STC 1M+113
JMP 1D+105 [TRIAL SUB
APO
JMP p+10
LDA i
-1 [CONSTANT
JMP 1Q+2
JMP 1D+73 [DIVIDE LOOP
JMP 1D+105 [TRIAL SUB
APO i
JMP 1D+73
[SUBTRACTION SUCCEEDED
ROL i 1
STC 1D+100
ZTA
ROL 1
BCL i 
4000
JMP 1D+102
[SUBTRACTION FAILED
CLR [1D+73
ADD 1M+113
SCR 12
ADD p+2
ADM i
0 [1D+100
ZTA
STC 1M+113 [1D+102
JMP 1N
JMP 1D+61 [CLOSE LOOP
[TRIAL SUBTRACT SR
CLR [1D+105
ADD 1M+113
ADD 1M+112
ROR i 1
SCR i 12
ADD 1D+100
ADD 1D+37
JMP 0
[ENTER 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 1M+60
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 1M+60
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 1M+104
SAE
1N+1
JMP 1M+104
JMP 1H+1 [ZER0 RESULT
[SWAP REG1 AND REG2
STC 1D+37 [1A+101
ADD 2
SET 2
1
STC 1
ADD 1D+37
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 1D+37
LDA i 2
ROL 1
SCR 14 [1A+130
ADD 1D+37
LZE i
SCR 14
SCR X  [1A+134
JMP 0
[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
[FLOD-1R
[5-8-69,21:00
[XXXXXXXXXXXXXXXXXXXX
[XXXXXXXXXXXXXXXXXXXX