fc TAPE 126-52-571 SLURP HAMILTON
tan1	tst6
|BLOCK IN W.W. ADDRESS AND LENGTH OF BLOCKED INFORMATION
s1,cah10	si451	cad1	bin2	can2	td4s2
|BLOCK IN BLOCKED INFORMATION
s2,cah10	add1	si451	ca1n2	bi
|SET UP TABLE ADDRESSES
s3,can2	tdf11	td1f2	ad1	td7f11	ad1	td2f2	ad1	td5f2	td1j7	add1	td11f2	td4j7	td1j11
ad1	td1f3
|INITIAL SET UP
f1,cah6	td-1a8	ca0	tse6
|FIND CODE VALUE IN CODE TAG TABLE
f11,ca	td3f11	cat6	sd	dm0	cpf2	ao3f11	su	cp2f11	sp0
|PICK UP CORRESPONDING st
f2,ca3f11	su	ad	td4f2
|SET tt FROM ST AND SET CC.
ca	ad	td10f2	clh20	adh2	tda5
|SET ci FROM TT
ca	ad	tda1	spa1
|SET ci + TEST FOR LENGTH
f3,aoa1	su	cpa1	sp0
|STORE INSTRUCTION AND TEST FOR FLEXO
a1,ca	tst7	a5,cpm1
|PICK UP FLEXO CHARACTERS
dm0	cpf3	aoa1	td5a5	ca	ts1t7	cp0	cat7	mdg1	spf6	cat7	srh6	mdg1	spf6	cat7
srh15	ad1t7	slh3	mdg1	spf6	ca1t7	srh3	mdg1	spf6	ca1t7	srh9	spf6	spf3
|EXAMINE FLEXO CODE FOR STOP CHARACTER
f6,ta1a2	tst6	sdd4	dm0	cpa6
|GO TO OUTPUT
cat6	a2,sp	sp
|PICK UP OPERATION AND EXAMINE FOR JUMP AND TERMINATION
a6,ca4f7	md2d1	su1d1	cpa3	su1g2	cpf3	cae6	cpf4	spf3	a3,cae6	cpf4	ca5a6	tdf13
spj6	f4,can1	tdf13
|SET FOR RETURN JUMP
j6,ca17j1	suh6	cpf13	ca17j1	td7j6	su1	ts17j1	ca	cpj6	tda1	clh20	adh2	tda5	spa1
f13,sp
|EXAMINE COMPUTER TYPE
m1,spf16	spm2	spm3	m2,clh2	cpf16	spf3	m3,clh3	sp1m2	f16,cst7	clh1	cpf7	cs1	ts
spf7	f15,ca0
tse6	spf3
|SET UP TO PICK UP OPERATION
f7,cat7	mdg2	adh1	td4f7	ca	clh1	cpf8	clh1	cpf9	clh1	cpf12	sp0
|GO TO OPERATION WITH SUBROUTINE NO IN ACC.
f8,clh31	sp1f9
|GO TO OPERATION WITH PARAMETER IN ACC
f9,clh30	td5f9	cat7	clh26	mdg1	sp
|GO TO OPERATION WITH TAG NO IN ACC
f12,clh29	td10f12	cat7	clh26	mdg1	tst3	clh7	mdg3	adt3	tst3	sp	f14,ta2f14	ca0	sp
f5,tan1	tst6	spf1
|JUMP A,B,C.
j8,ca0	td6j7	spj7	j9,ca1	sp1j8	j10,cah7	sp1j8
|SET MEMORY
j11,cat3	ad	tdt9	caa1	td1j1	spj1	spf3
|RETURN JUMP
j12,caa5	suh2	cpf15	ca4d1	tdf13	spj6
|REMEMBER JUMP A,B,C.
j3,ca1	sp1j2	j4,cah7	sp1j2	j5,ta5j5	caa1	td1j1	ad1	tdt9	spj1	j7,cat3	ad	td3j7
ca	ad	tda1	ca	adh2	tda5	spa1	j2,ca0	td6j7	spj5	j1,taa8	ca	clh1	cp6j1	ca0
sp8j1	ca1
clh3	tst8	spr14	adt8	clh12	tst8	ao-1a8	cat9	tdt8	cat8	ts-1d3	a8,sp
|PRINT OR PUNCH
p2,srh1	td3p3	slh1	md1	td5p3	cah3	tda2	spf3	p3,si94	cat6	clh1	ad	clh1	ad
clh8	rc	si92	sp1a2	r14,ta4r14	caa5	suh2	cpf14	sp
|CONSTANTS
d1,+2	1d1,2e5	2d1,0.03777	+3	4d1,tsf3	d3,+0	10r|d4,+49	g1,0.00077	g2,0.00037	+3	g3,0.00100
h1,e5
h2,cpm1	h3,p3	h6,ts-1d3	h7,d1	h10,0.04000	n1,+0	n2,+0	1n2,+0	n8,ca0	t3,+0	t6,+0	t7,+0
+0
t8,+0	t9,+0	e5,0.10000+j2	0.10000+j3	0.10000+j4	0.10000+j8	0.10000+j9
0.10000+j10	0.40000+j12	0.40000+p2	e6,+0
OCTAL
START AT 0
