fc TAPE 22-104-0 PETERSON TABLE SORT
OCTAL
(24,6)
s1,si17
ca6c1
bic2
ovca4c1
su1
ts4c1
tvspa1
a1,taa7
cf101
si11
a2,ca2000+
ck0
spn1		|no ones
sf0
sdc1		|1/2
ck0
spd1		|one ones
sf0
sdc1		|1/2
ck0
spd2		|two ones
sf0
sdc1		|1/2
ck0
spd3		|3 ones
sf0
sdc1
ck0
spd4		|4 ones
sf0
sdc1
ck0
spd5		|5 ones
sf0
sdc1
ck0
spd6		|6 ones
sf0
sdc1
ck0
spd7		|7 ones
sf0
sdc1
ck0
spd8		|8 ones
sf0
sdc1
ck0
spd9		|9 ones
sf0
sdc1
ck0
spd10		|10 ones
sp0		|to many ones
n1,aoc2		|count no. of no ones
cpa8		|store routine
a3,aoa2		|index
tda9
su4c1
cpa2
tmova4,sp1a4
ca3c1
tda5
ca0
tsc3
ca3c1
tdf7
ca16f3
si1707
f7,cac2
slh1
rc
adc3
tsc3
aof7
su7c1
cpf7
ca13f3
suc3
rc
caf6
dm0
a5,abc2+
dm0
aoa5
su1c1
cpa5
caf6
exc2
ex1c2
ex2c2
ex3c2
ex4c2
ex5c2
ex6c2
ex7c2
ex10c2
ex11c2
ts12c2
spa6
a6,taa4
ca2c1
tda2
tda9
a7,sp0+
f1,ca13f3
su14f3
si1707
ts13f3
cf100
f2,ca2000
rc0
ca24
rc0
aof2
su12c2
cpf1
si0
13f3,0.54000
si2
+12
1.10000
ts12f3
ca2000
d1,ao1c2		|count 1 ones
a11,cpa8
spa3		|index
a8,tda10		|store routine
cf101
a9,ca2000
cf100
a10,ts0+
cf101+
spa3		|index
d2,ao2c2		|count 2 ones
spa11
d3,ao3c2		|count 3 ones
spa11
d4,ao4c2		|count 4 ones
spa11
d5,ao5c2		|count 5 ones
spa11
d6,ao6c2		|count 6 ones
spa11
d7,ao7c2		|count 7 ones
spa11
d8,ao10c2		|count 8 ones
spa11
d9,ao11c2		|count 9 ones
spa11
d10,ao12c2		|count 10 ones
spa11
tmc1,0.40000
ab12c2
ca2000
c2
ca0
si2000
+11
ca12c2
f6,-1c2,ca1777		|end of previous group
0		|number of no ones end of no ones
0		|number of 1 one end of 1 one
0		|number of 2 ones end of 2 ones
0		|number of 3 ones end of 3 ones
0		|number of 4 ones end of 4 ones
0		|number of 5 ones end of 4 ones
0		|number of 6 ones end of 6 ones
0		|number of 7 ones end of 7 ones
0		|number of 8 ones end of 8 ones
0		|number of 9 ones end of 9 ones
0		|number of 10 ones end of 10 ones
START AT 40
m