fc TAPE 1258 m 733 WW1  TONOTYPOTRON 14 x 14 PART 4 of 4 use fields 0 and 1
OCTAL
40|cak2	spp1	ca0	tss2	a1,spc1	aos2	cau4	tsu5	si17	ca1e3	bin11
tma10,spd1	a11,spe1	spb1	sph1	spv1	spw1	spt1	si1
aoh20	aoh21	aoh22	aoh23	aoh24	aoh25	aoh26	aoh27	aoh12	cpa11	aov20	aov21
aov22	aov23	aov24	aov25	aov26	aov27	aov12	cpa10	spe1	spb5
cas2	spz2	spn15	spt1	si1	spa12	spx2
||||||||
a12,ta2	cf103	si17	cas4	bi3000	ca1s4	ts11a12	ca2s4	ts12a12	cas2	ts3000	ao11a12
ao12a12	su3s4	cp11a12	ca4s4	cf723
||||||||||||||
s2,0
||||||||CHARACTER COUNTER STORAGE
n11,0r,0	DITTO	100r|0
s4,si110	cas2	ts3000	ts3101	si40
|||Frame number blank msg.
m2,1.04030	0.32014	0.06006	0.10122	0.24100
|||Rewrite Frame number Blank Msg.
b5,tab7	ca1b4	tsb4	cab8	tsb6	ca3b4	ts1b6	b6,cam2	tss1	aob6	ao1b6
aob4	cpb6	b7,sp0	b8,cam2
|||CONVERT FOR ANELEX DECIMAL PRINT.
z2,taz7	ta1z15	tsz10	ca1z13	ts2z14	ca0	tsz11	ts1z11	ts2z11	caz10	dm0	cpz15	caz10
z3,suz12	cpz4	tsz10	aoz11	caz10	spz3
z4,ad1	cp4z4	aoz11	spz7-3	caz10	su1z12	cpz5	tsz10	ao1z11	sp4z4	z5,ad1	cp4z5	ao1z11	spz7-3
caz10	ts2z11	caz11	spz14	spz6
z7,sp0	z6,ta2z6	adz13	sp0	z8,ta5z8	ta1z15	ca1z11	spz14	spz6	sp0	
z9,ta3z9	ca2z11	spz6	sp0	z10,0	z11,0	0	0
z12,si144	si12	z13,si51	cpz15	z14,ta4z14	su0	cpz15	ta2z14	sp0
z15,ca2z15	sp0	si77
|||Frame Count resets.
n15,tan25	can20	tsn16	ca2n20	tsn17	n16,can12	dmz11	dm0	cpn17	aon17	aon16
sun13	cpn16	si0	n18,0	n17,can14	tsn18	can18	clc4	md1n13	ts1r11	cas1
sd1r11	tss1	can18	clc5	md1n13	ts1r11	ca2s1	sd1r11	ts2s1	can18	clc6
md1n13	ts1r11	ca1s1	sd1r11	ts1s1	can18	clc7	md1n13	ts1r11	ca3s1	sd1r11
ts3s1	can18	clc10	md1n13	ts1r11	ca4s1	sd1r11	ts4s1	can18	clc10	md2n13
ts1r11	cas1	sd1r11	tss1
|||Reset to check 2nd digit.
can20	tsn21	ca2n20	tsn22	n21,can12	dm1z11	dm0	cpn22	aon22	aon21	sun13	cpn21
si0	n22,can14	tsn18	can18	clc3	md2n13	ts1r11	ca2s1	sd1r11	ts2s1	can18
clc4	md2n13	ts1r11	ca1s1	sd1r11	ts1s1	can18	clc5	md2n13	ts1r11	ca3s1
sd1r11	ts3s1	can18	clc6	md2n13	ts1r11	ca4s1	sd1r11	ts4s1	can18	clc6
md3n13	ts1r11	ca1s1	sd1r11	ts1s1	can18	clc7	md3n13	ts1r11	cas1	sd1r11
tss1
|||Reset to check 3rd digit
can20	tsn23	ca2n20	tsn24	n23,can12	dm2z11	dm0	cpn24	aon24	aon23	sun13
cpn23	si0	n24,can14	tsn18	can18	clc2	md3n13	ts1r11	ca2s1	sd1r11	ts2s1
can18	clc3	md3n13	ts1r11	ca4s1	sd1r11	ts4s1	can18	clc3	md4n13	ts1r11
ca1s1	sd1r11	ts1s1	can18	clc5	md3n13	ts1r11	ca3s1	sd1r11	ts3s1	can18
clc5	md4n13	ts1r11	cas1	sd1r11	tss1	can18	clc6	md4n13	ts1r11	ca2s1
sd1r11	ts2s1
n25,sp0	
|||Frame Number line list
n12,si0	si1	si2	si3	si4	si5	si6	si7	si10	si11	n13,ca11n12
0.01000	0.00400	0.00200	0.00100
n14,si61	si71	si1	si11	si60	si70	si0	si10	si67	si7	n20,can12
cpn17	can14
||||||||||SHIFT REQUEST CONTROL
x2,si10	ca5	clc1	cpx4	caa20	ts2x2	ca0	tsx5	spa16-1
x4,ao2x2	ca5	mdd14	adx5	tsx5
|||||||REPEAT FRAME CHECK
ca24	a16,clc1	cpa17	caa20	tsa16	spa15	a17,aoa16	cau5	tsu4	spa15	a20,clc1
||||||a15,ca12a15	ts13a15	ca10a15	dv11a15	ca13a15	ao13a15	cp2a15	spa1	si2	si4	1.60000	1.60000
|||||||
|||XMIT
t1,tat2	si6	ca1t2	bos1	t2,sp0	si5
||||||||||MSG BLOCK
s1,0	0	0	0	0
|||RESET Y COMP
c1,tac13	si10	ca3	mdd14	tsc11	ts2c11	cac11	srr1	ts1c11	tsc11	cs0	mdc10
sd1c11	ts7y1	ca0	sd1c11	ts6y1

cac11	ad2c11	tsc11	ca0	sdc11	ts5	spf1	ts5y1
cs0	mdc10	sdc11	ts5	spg1	ts10y1

cac11	ad2c11	tsc11	ca0	sdc11	ts5	spf1	ts4y1	cs0
mdc10	sdc11	ts5	spg1	ts11y1

cac11	ad2c11	tsc11	ca0	sdc11	ts5	spf1	ts3y1	cs0
mdc10	sdc11	ts5	spg1	ts12y1

cac11	ad2c11	tsc11	ca0	sdc11	ts5	spf1	ts2y1	cs0	mdc10
sdc11	ts5	spg1	ts13y1

cac11	ad2c11	tsc11	ca0	sdc11	ts5	spf1	ts1y1	cs0	mdc10	sdc11
ts5	spg1	ts14y1

cac11	ad2c11	tsc11	ca0	sdc11	ts5	spf1	tsy1	cs0	mdc10	sdc11	ts5	spg1	ts15y1

ca3c11	tsv20	tsv21	tsv22	tsv23	tsv24	tsv25	tsv26	tsv27	ca1v12	tsv12	c13,sp0
c10,si377	si200	c11,0	0	0	cay1	y1,0	0	0	0	0	0	0
0	0	0	0	0	0	0
|||||||
f1,taf2	ca5	clc10	cpf3	ca5	f2,sp0	f3,cad14	spf2
|||||||
g1,tag2	ca5	clc10	cpg3	ca1c10	g2,sp0	g3,ca5	spg2
|||RESET X COMP
d1,tad13	si10	ca2	mdd14	ts1d14	ts3d14	ca0	ts3x1
cs0	md2d14	sd1d14	ts5	spg1	ts2x1
ca0	sd1d14	ts5	spf1	ts4x1

ca1d14	ad3d14	ts1d14	cs0	md2d14	sd1d14	ts5	spg1	ts1x1	ca0
sd1d14	ts5	spf1	ts5x1

ca1d14	ad3d14	ts1d14	cs0	md2d14	sd1d14	ts5	spg1	tsx1	ca0
sd1d14	ts5	spf1	ts6x1	ca4d14	tsh20	tsh21	tsh22	tsh23
tsh24	tsh25	tsh26	tsh27	ca1h12	tsh12	x3,cax1	adx5	tsx1
ca1x1	adx5	ts1x1	ca2x1	adx5	ts2x1	ca3x1	adx5	ts3x1
ca4x1	adx5	ts4x1	ca5x1	adx5	ts5x1	ca6x1	adx5	ts6x1	d13,sp0
d14,si177	0	si377	0	cax1	x1,0	0	0	0
0	0	0
x5,0
|||ERASE MSG BLOCK
e1,tae2	si17	cae3	bis1	e2,sp0	e3,si5	si100
|||REWRITE BLANK MSG AND CODE ROUTINE
b1,tab3	ca1b4	tsb4	ca2b4	tsb2	ca3b4	ts1b2	b2,cam1	tss1	aob2	ao1b2
aob4	cpb2	b3,sp0	b4,1.77773	1.77773	cam1	tss1	m1,1.00030	0.00014	0.02406	0.02122	0.02500
|||WRITE X COMP
h1,tah13	h20,cax1	ts5	clc6	mdh10	tsh11	ca1s1	sdh11	ts1s1	h21,cax1	clc7	mdh10
tsh11	ca3s1	sdh11	ts3s1	h22,cax1	clc7	md1h10	tsh11	cas1	sdh11	tss1
h23,cax1	clc10	md1h10	tsh11	ca2s1	sdh11	ts2s1	h24,cax1	clc11	md1h10	tsh11
ca4s1	sdh11	ts4s1	h25,cax1	clc11	md2h10	tsh11	ca1s1	sdh11	ts1s1	h26,cax1
clc12	md2h10	tsh11	ca3s1	sdh11	ts3s1	h27,cax1	clc12	md3h10	tsh11	cas1	sdh11	tss1	h13,sp0
h10,0.20000	0.10000	0.04000	0.02000	h11,0	h12,1.77771	1.77771
|||WRITE Y COMP
v1,tav13	v20,cay1	ts7	clc6	mdh10	tsh11	ca2s1	sdh11	ts2s1	v21,cay1	clc7	mdh10
tsh11	ca4s1	sdh11	ts4s1	v22,cay1	clc7	md1h10	tsh11	ca1s1	sdh11	ts1s1

v23,cay1	clc10	md1h10	tsh11	ca3s1	sdh11	ts3s1	v24,cay1	clc10	md2h10	tsh11
cas1	sdh11	tss1	v25,cay1	clc11	md2h10	tsh11	ca2s1	sdh11	ts2s1	v26,cay1

clc12	md2h10	tsh11	ca4s1	sdh11	ts4s1	v27,cay1	clc12	md3h10	tsh11	ca1s1	sdh11	ts1s1	v13,sp0
v12,1.77762	1.77762
||||||||||RANDOM CHAR INSERT
|||SELECT 1st RANDOM NUMBER
w1,taw2	r1,spu1	mdr10	srr11	tsr11	ca2r11	ts3n2	spn1	spn5	car11	slr4	md1r10
ts1r11	cas1	sd1r11	tss1

car11	slr5	md1r10	ts1r11	ca2s1	sd1r11	ts2s1	car11	slr6	md1r10	ts1r11	ca1s1	sd1r11
ts1s1	car11	slr7	md1r10	ts1r11	ca3s1	sd1r11	ts3s1	car11	slr10	md1r10	ts1r11	ca4s1
sd1r11	ts4s1	car11	slr10	md2r10	ts1r11	cas1	sd1r11	tss1	spr2	r10,0.77000	0.01000
0.00400	0.00200	0.00100	r11,0	0	cpr1	cpr2
|||||random number gen
u1,tau2	cau4	mh1u4	clc17	tsu4	u2,sp0	u4,si347	0.25566	u5,0
|||SELECT 2nd RANDOM NUMBER
r2,spu1	mdr10	srr11	tsr11	ca3r11	ts3n2	spn1	spn5	car11	slr2	md3r10
ts1r11	ca2s1	sd1r11	ts2s1	car11
slr3	md3r10	ts1r11	ca4s1	sd1r11	ts4s1	car11	slr3	md4r10	ts1r11	ca1s1	sd1r11	ts1s1
car11	slr5	md3r10	ts1r11	ca3s1	sd1r11	ts3s1	car11	slr5	md4r10	ts1r11	cas1	sd1r11
tss1	car11	slr6	md4r10	ts1r11	ca2s1	sd1r11	ts2s1	w2,sp0
|||BLACK LIST CHECK
n1,tan3	can4	tsn2	n2,can10	dmr11	dm0	cpr1	aon2	su1n4	cpn2	n3,sp0	n4,can10
ca34n10	n10,si4	si5	si6	si14	si15	si16	si23	si24	si25	si32	si33	si34
si35	si36	si42	si43	si45	si46	si53	si54	si55	si64	si65	si66	si74
si75	si76	si77	si44
||||CHARACTER COUNTER
n5,tan7	car11	ad1n7	tdn6	n6,ao0	n7,sp0	sin11

||||||||||ANelex PRINT ROUTINE
p1,tap5	tdp2	adp6	td1p6	ca2p6	si17	bip7	ca6p1	td7p6	p2,ca	ts1p5	su3p6
cpp3-1	sp7p3	ca1p5	p3,ad7p6	td5p3	td6p3	ca4p6	srr0	sd	ts	7p3,ao4p3	su5p6	cpp4

ca0	td4p3	ca6p6	ad7p6	ts7p6	p4,aop2	su1p6	cpp2	si245	ca2p6	bop7	p5,sp	0
p6,si167	ca	si700	si67	ts	srr16	si70	7p6,0
|||PRINT HEADING
k1,si77	si77	si77	si40	si17	si34	si22	si51	si33	si77	si77	si21	si26
si17	si40	si17	si21	si42	si23	si40	si77	si77	si32	si52	si41	si42
si77	si77	si24	si51	si40	si77	si77	si36	si25	si33	si42	si65	si52
si53	si56	si61	si33	si60	si54	si54	si77	DITTO	170r|si77
k2,sik1	p7,0	DITTO	700r|0
START AT 40
m