fc TAPE 1343 m501 ERROR PRINT PROGRAM - FEY
OCTAL
2000|si0		|halt in pa5
sp		|EXIT to A field
2002|0		|error card no. in pa3
2003|0		|e16 error indicator in pa4
2004|ta2001
tsc1		|error number
spa1		|start of print program
2007|spt1		|remark block read in routine
a1,cac3
adc1
tda3
tda11
a3,ca+		|puts location of remark in ac
tda4
ca2003		|test e16 error indicator
cpa2
a4,ca+		|select remark char. register
cpa5		|print two characters
clh1
cpa6		|print left character
sp2000		|halt in 2000
a5,si225		|select direct flexo
clh4
rc		|print left character
clh6
rc		|print right char.
si630		|deselect direct flexo
aoa4
spa4		|return to select remark
a6,si225		|select direct flexo
clh3
rc		|print left character
si630		|deselect direct flexo
sp2000		|halt in 2000
a2,taa14
cac10
tda7		|initialize clh instruction
cac11
tda9		|initialize storage loc.
csc6
ad1
tsc5		|initialize counter
|convert octal card no. to flexo code and store in 5 reg.
a10,ca2002		|error card number
a7,clh+
mdc4		|mask 0.00007
adc7		|address of flexo table
tda8
a8,ca+		|obtain flexo code
a9,tsc9		|store flexo code
aoa9		|index stor. reg.
aoc5		|index number ctr
aoa7		|index clh
aoa7		|index clh
aoa7		|index clh
cac5
cpa10		|not finished
|prepare to pack numbers in remark block
a11,ca+
tda12
a12,ca+
clh2
cpa13		|first remark reg.
aoa12
spa12		|return to search
a13,clh1
cpa16		|pack right char. first
spa15		|pack left char. first
|pack card number in remark block
a15,ca0
tsc15
ts1c15
ts2c15
cac14
tsa20		|plant exit
aoa16
aoa17
aoa18
aoa19		|end of initialization
cac9
clh6
mdc12		|0.07700
tsc15		|store 1st char.
a16,cac9
mdc13		|0.00077
adc15
tsc15		|store 2nd char.
a17,ca1c9
clh6
mdc12		|0.07700
ts1c15		|store 3rd char.
a18,ca2c9
mdc13		|0.00077
ad1c15
ts1c15		|store 4th char.
a19,ca3c9
clh6
mdc12
ts2c15		|store 5th char.
a20,clh0
ca4c9
mdc13		|0.00077
ad2c15
ts2c15		|store last word
a21,csc16
ad1
tsc17
caa12
tda22
td2a22
a22,ca+
1a22,adc15
2a22,ts+		|pack double word
aoa22
ao1a22
ao2a22
aoc17
cac17
cpa22		|not finished packing remarks
a14,sp+		|EXIT
c1,0		|error number
c2,d1		|address of initial rem. char. e0
DITTO
16r|c3,c2		|table of remark locations
c5,0
c10,0.00024		|initial clh argument
c11,c9		|initial storage loc. for 5 numbers
c6,0.00005		|number of numbers
c4,0.00004		|mask
c7,c8		|address of flexo table
c8,0.00076		|0 flexo
1c8,0.00025		|1 flexo
2c8,0.00017		|2 flexo
3c8,0.00007		|3 flexo
4c8,0.00013		|4 flexo
5c8,0.00023		|5 flexo
6c8,0.00033		|6 flexo
7c8,0.00027		|7 flexo
c9,0		|stor. first no.
1c9,0		|stor. sec. no.
2c9,0		|stor. third no.
3c9,0		|stor. 4th no.
4c9,0		|stor. 5th no.
c12,0.07700		|mask
c13,0.00077		|mask
c14,spa21
c15,0		|stor. double word
1c15,0		|stor. double word
2c15,0		|stor. double word
c16,0.00003		|number of reg. for 5 words
c17,0		|reg. ctr.
|Trailer Read-In
t1,cs1
tsk6
si211		|select PETR
g1,spg2		|read char.
ckk4		|nullify
spg1
ckk1		|stop code
spg3		|end of remark block
ckk2		|color shift
spg4		|end of error remark
ckk3		|slash
spg5		|error card no. storage
spg6		|store char.
g2,ta2g2		|read routine
rd
2g2,sp+		|EXIT
g3,cak6		|end of remark block
cpg7		|next char. goes in left pos.
cak8		|set indicators in last reg.
tdg8
td2g8
g8,ca+
adk9
2g8,ts+
g9,si630		|deselect PETR
sp0		|HALT
g7,cak8		|next char. goes in left pos.
su1
tdg10
td2g10
g10,ca+
adk10		|set indicators in last reg.
2g10,ts+
spg9		|exit to halt
g11,cak5
cpg1		|commemt not long, read next char.
si630		|deselect PETR
cag12
si225		|select direct printer
bo1g12
si630		|deselect printer
sp0		|HALT
g12,0.00026		|remark length
1g12,1.22000		|cr
0.50000		|r
0.04000		|e
1.60000		|m
0.14000		|a
0.50000		|r
0.74000		|k
0.20000		|space
1.00000		|t
0.14000		|a
1.30000		|p
0.04000		|e
0.20000		|space
1.00000		|t
1.40000		|o
1.40000		|o
0.20000		|space
1.10000		|l
1.40000		|o
0.60000		|n
1.50000		|g
1.22000		|cr
g4,cak6		|color code detected
cpr1		|next char. goes in left pos.
aok11
tdr2
cak8
td2r3
tdr3
ad1
r2,ts+		|store addreee of 1st char. of rem.
aok8		|reset storage loc. ctr.
cs1
tsk6		|reset rt - left ind.
r3,ca+
adk9		|set storage reg. indicators
2r3,ts+
spg11		|return to read char.
r1,aok11
tdr4
cak8
r4,ts+		|store address of 1st char. of rem.
cak8
su1
tdr5
td2r5
r5,ca+
adk10
2r5,ts+		|set storage reg. indicators
spg11		|return to read char.
g5,cak6		|slash detected
cps1		|next char. goes in left pos.
cak8
tds2
tds3
s2,ca+
adk13
s3,ts+		|set card no. storage ind.
spg11		|return to read char.
s1,cak8
tds4
tds5
s4,ca+
adk12
s5,ts+		|set card no. storage ind.
spg11		|return to read char.
|store character
g6,tsk14
cak6
cpn1		|this char. goes in left pos.
cak8
tdn2
tdn3
cak14
mdk4		|0.00077
n2,ad+
n3,ts+		|store in right pos.
aok8		|index storage location
cs1
tsk6		|reset rt - left store ind.
spg11		|return to read char.
n1,cak8
tdn4
tdn5
cak14
clh6
mdc12		|0.07700
n4,ad+
n5,ts+		|store in left pos.
ca1
tsk6		|reset rt - left store ind.
spg11		|return to read char.
k1,0.00061		|stop code
k2,0.00020		|color shift
k3,0.00005		|slash
k4,0.00077		|nullify
k5,3770-d1		|remark - block - length - remaining counter
k6,0		|right - left store ind.
k7,c2		|location of 1st word in rem. table
k8,d1		|present store register counter
k9,1.40000
k10,1.00000
k11,d1		|location of next 1st word in error rem.
k12,0.30000
k13,0.20000
k14,0		|buffer storage for character
d2,
100r|d1,		|remark block start
3775|ca3777
3776|cf610		|read in recovery program
3777|0.00032
START AT 3775
