fc TAPE 22-107-1 PETERSON
OCTAL
omcac1
si713
rd0		|block in
su1c1
tst1
aoc1
si713
cat1
bik1
su1
tdc2
ca24		|Set clc
sf7c1
ao7c1
si17
cf103
ca15c1
bi2000
cf102
a1,ca1a26		|Term
sdk1		|Implicant
md1k1		|Mask
ck0
spa26		|count
a31,ao1a26		|next term
md24		|all checked
ck0
spa23		|YES-
spa1		|NO-
a23,ca1c2		|reset term
ts1a26
ao2a1		|index next implicant
td1a1
ao2a1
suc2		|thru
cpa1		|NO-YES|
cf101
a3,ca2000
cf102
cp1a2
ck0
cf107		|term not covered
tst1		|count
caa3		|term
a24,sdk1		|implicant
md1k1		|mask
ck0
oma2,spa27		|agree
aoa3		|index
md24
ck0		|done
spa25		|YES-
spa3-1		|NO-
a25,ca5c2		|reset to check for 1
tsa2
ca4c2		|reset start of table
tsa3
ao1a24
tda24		|index
tda10
ao1a24
suc2		|thru
cpa3-1		|NO-YES|
ca2c2		|reset checker
tsa10
ca0
ts1t1		|reset counter
a6,si11
si245
ca1
bo2c1		|top of page
si5
rd
su3c1
cpa6
ca3c2		|reset sp
tda17
cf101
a5,cs2000
cf102
cpa9		|something to check
a7,aoa5
ts2t1
md24
ck0
sp6a7		|done
spa5-1		|nope-
ca6c2
tsa5		|reset
ca0
ts1t1
cf103
ca3c2
cka17
spb1
tsa17
si245
ca16c1
bo2000
b1,si17
ca16c1		|clear
bi2000
cf102
a8,ao1a10
tda10		|index
ao1a10
suc2		|done
cpa5-1		|NO-YES|
ca2c2
tda10
ad1		|reset prime check
td1a10
oca2t1		|reset inputs start
tsa5
ts6c2
md24
ck0		|done
sp0		|yes
spa6-2		|no
a9,ao1t1		|count terms to be checked
su4c1		|whole page wide so far
cpa10-1
sp6a7		|NO-YES|
caa5		|term
a10,sdk1		|implicant
1a10,md1k1		|mask
ck0
3a10,spa17		|a match
cac3
sp2a17		|index
a17,spa11-2		|print implicant
ca7c2
tsa20
ca1t1
a18,dm5c1		|+15
cpa19
ts3t1
aoa20
ca3t1
spa18
a19,ab0
ad6c1		|srh1
tsa21
a20,ca0+
tsa22		|address of x in matrix
ca1
a21,srh2+
cf103
a22,ab0+
cf102
spa7
a26,cf101
ao2000
cp0
cf102
spa31
a27,cat1
ck1
spa28		|a single covered term-
sp1a2		|nope-
a28,spa11-1		|set up matrix
si244
ca17c1		|print
cf103
bo2000
si17
ca17c1		|clear
bi2000
cf102
ca4c2		|reset and select register to clear
exa3
spa29
caa3		|reset and select register to clear
sp1a29
a29,taa2		|clear from now on
tda30
cs0
cf101		|clear
a30,ts0+
cf102
sp1a2
taa17
taa16
a11,caa10
tda32
ad1
tda12
ca7c1		|reset clc
ts1a12
ts1a32
ca10c1		|reset srh2
tsa14
tmooa12,ca0+
ck0+
cpa32
ca11c1
a13,tsa15
ca1
a14,srh2
cf103
a15,ab0+
cf102
aoa14
ao1a12
ts1a32
su14c1		|clc17
cpa12
a16,sp0
a32,ca0+
clc0+
cpa33
ca12c1
spa13
a33,ca13c1
spa13
c1,1.10000
1.10001
1.40400
si1
+105
+15
srh1
clc0
srh2
ab2046		|x
ab2051		|0
ab2052		|1
clc17
si700
si700
si67
c2,md0
ao2000
sdk1
spa11-2
ca2000
spa27
cs2000
ca10c2
ab2136
ab2226
ab2316
ab2406
ab2476
ab2566
ab2656
tmc3,ca1c3
ab2157
ab2247
ab2337
ab2427
ab2517
ab2607
ab2677
t1,+0
+0
+0
+0
k1,+0
ca3k1
cf745
si32
START AT 1k1
{61}