fc TAPE 22-102-1 PETERSON
OCTAL
si10
si176
spa22		|tape feed
ca3		|column function is for
md6z5
ad4z5
ts1a26
ca3		|function is normal
clc4		|or primed
cpa25		|primed-normal|
ca2z3		|letter c for normal
a26,rc		|punch p or 2
1a26,ca0+
rc0		|punch column no.
clc10
rc0
ca21z3		|punch carriage return
rc0
ca24		|no. 4 contains largest input x 2-9
ts1z1
sf5z1
ao5z1
ca0
tsz2		|set 1st litteral to 0
tsz5
ca1
ts1z2		|set 2nd litteral to 1
ca3z5		|reset to skip +
tsa21		|first time through
a11,caz2		|reset references to main mask
ad2z1
tda1
td1a7
td2a7
tda3
tda27
a1,ca2000		|main mask empty
cpa10		|yes-no|
caz2		|reset secondary prod of literals
ad1
md1z1		|next product of literals
ts1z2
a13,ad2z1
tda2		|reset ref. to secondary mask
tda6
tda8
a2,ca2001
cpa4		|secondary mask empty
a3,sd2000
ck0
spa5		|masks agree
sf0
suz1		|do masks agree except 1 term
cpa5		|yes-no|
a4,ao1z2		|try next product
md1z1
ts1z2		|store it
ckz2
spa14		|main product a prime so print
spa13		|try again
a5,caz2		|1st prod of literals
sd1z2
a6,md2001
ck0
sp0		|common term identical
ts3z1		|save literals that are diff.
sf0
suz1		|do terms agree except 1 bit
cpa7		|yes-
spa4		|no-
a7,cs3z1		|the different terms
1a7,md2000		|remove
2a7,ts2000		|and store
ca1z2		|secondary literal
suz2		|primary literal   do we eliminate secondary literal
cpa9		|yes-no|
cs0
a8,ts2001		|clear secondary literal
a9,cs0
ts4z1		|memory of an action taken
a10,aoz2
md1z1
tsz2
ck0
spa12		|top of table check
spa11
a12,ca0
ex4z1
cpa11		|there are still some prime terms
si176
ca17z3
rc
rc
ca13z3		|record stop
rc0		|s
ca14z3
rc0		|t
ca15z3
rc0		|o
ca16z3
rc0		|p
spa22		|tape feed
ca25z3		|stop character
rc0
si0		|stop program
a14,ca2z5		|reset letter
tsa16
caa1
tda15		|set address of mask
ca5z1
ts1a15		|reset cycle instructions
tsa17
si176		|select tape unit 3 for recording
a21,spa20		| no. + 1st time
ca17z3
rc0		|sp
ca20z3
rc0		|+
ca17z3
rc0		|sp
aoz5		|count spaces used this line
aoz5
aoz5
a15,cs0+		|mask
1a15,clc0+
cpa18		|no letter  dont print- letter print|
a16,caz3		|print letter
rc0
aoz5		|count spaces
caz2		|product of literals
a17,clc0+
cpa18		|no print-  prime|
ca22z3
rc0		|u.c.
ca12z4
rc0		|1
ca23z3
rc0		|l.c.
aoz5		|space counter
a18,aoa16
ao1a15		|next literal
tsa17
su6z1		|more to check  (clc17)
cpa15		|yes-no|
caz5		|spaces this line
su1z5		|+90  more than 90 used
cpa19		|no-yes|
ca0
tsz5		|reset counter
ca21z3
rc0		|carriage return
a19,si630		|stop tape
cs0
a27,ts0+
spa10
a20,taa21		|next time print + s
spa15
a22,taa24
cs5z5
tsz5
a23,ca24z3
rc0
aoz5
cpa23
a24,sp0
a25,ca16z3
spa26
z1,0.40000		|1st bit checker
si17		|letters in use
si2000		|start of table
si0		|temp storage (literals that appear both 0 and 1)
+0		|all primes to date this run thru + otherwise
clc0
clc17
z3,0.15400		|a  flexo code punch 7th hole
1.45400		|b
0.71400		|c
0.45400		|d
0.05400		|e
0.65400		|f
1.51400		|g
1.21400		|h
0.31400		|i
0.55400		|j
0.75400		|k
0.25400		|s
1.01400		|t
1.41400		|o
1.31400		|p
0.21400		|space
0.33400		|+
1.23400		|carriage return
1.63400		|u.c.
1.73400		|l.c.
0.00400		|paper feed
1.42400		|stop
z4,1.75773		|flexo code for 00
1.75527		|01
1.75477		|02
1.75437		|03
1.75457		|04
1.75517		|05
1.75557		|06
1.75537		|07
1.75417		|08
1.75733		|09
0.53773		|10
0.53527		|11
0.53477		|12
0.53437		|13
0.53457		|14
0.53517		|15
z5,+0		|space counter
+90		|min no of spaces per line
caz3
spa20
caz4
+120
si17
z2,si0		|main literal product
si1		|secondary literal product
START AT 40
m