fc TAPE 1185m3 BENNETT TAPE PRINT
OCTAL
cak2	|112
td1r1	|SELECT MT for read
ca2k2	|176
td1r2	|Select MT for delayed print
spa2
a1,ca1k2	|132
td1r1	|Select MT for read
ca3k2	|156
td1r2	|Select MT for delayed print
a2,su6k3
td1r21
ca0
tsd1
spr2	|Select del. pr.
spr7	|Print C.R.s
4
spr21
cak6	|sp
ts40
a3,spr1	|si read MT
rd
tst1
rd
sdt1
0r,cp2r
spa16
2r,dm0
cpa5
a16,si225	|Select dir. pr.
spr8	|Sum check error
spr9	|in ID record
spr7	|c. 2
1
spr15	|operator instr.
spr7
5
ca1k6	|a4
td40
si0
ca1r1
su1
0r,ts1r
0	|Re-record reverse
spa3
a5,cat1
0r,cp2r
sp4r
2r,dm0
cp25
4r,rd
ts1t1
rd
sd1t1
0r,cp2r
spa16	|Error
2r,dm0
cpa6	|ok
spa16	|Error
a6,ca1t1
sut1
ad1
tse1	|Number of words in main block
rd
ts2t1	|Sum check
rd
ts3t1	|Core field
spr2	|Select delayed printer
cat1
cpa7	|BD or CF
mdk3	|Main Drum, extract field
dm0
cpa9	|Field zero
spr3	|Print Main Drum
cat1
mdk3	|extract field
clh25
spr12	|Print octal integer
2
-0
spr7	|Print 3 carriage returns
3
a8,cat1	|Initial address
md1k3	|0.03777
tsc1
spa10
a7,clh1
cpa11	|Core field
spr5	|Print Buffer Drum
cat1
md2k3	|0.34000 Extract field no.
clh25
spr11	|print digit
spr7	|print C.R.s
3
spa8
a9,spr4	|Print operating core, field
cat1	|Initial addr.
md1k3	|0.03777
su4k3	|0.01777
cpa12	|Group A
ca3t1	|Core fields
sp2a12
a12,ca3t1
clh85
md5k3	|0.00007
tst2	|Core field
spr11	|print digit
spr7	|print C.R.s
3
cat2	|Core field
clh15
cpa8	|Not 2 or 3
clh1
cpa13	|2 or 3
clh1
cpa8	|not 2,3 or 0
a13,cs0
tsd1	|Set ind. for inst.
spa8
a11,spr6	|Print Core field
cat1	|Initial addr.
md3k3	|0.16000 Extract field no.
clh26
tst2
spr11	|print digit
spr7	|Print C.R.s
3
cat1
md4k3	|0.01777
tsc1	|Addr. ctr.
cat2
clh15
cpa10	|Not 2 or 3
clh1
cpa14	|2 or 3
clh1
cpa10	|not 2,3,or 0
a14,cs0
tsd1	|Set ind. for inst.
a10,spr21
spr1	|Select MT read
cse1	|n
ad1
tsc2
ca3t1	|Core fields word
ts1t2
ca1k5
ts1a15
a15,rd
ts
sa1t2
ts1t2
ao1a15
aoc2
cpa15
spr2	|Select del. pr.
ca1t2	|Sum
sd2t1	|Sum check
0r,cp2r

sp4r
dm0
cpa17	|ok
4r,ca6w8
spr10
ca1k4
spr10
spr8	|Print sum check error
ca1k4	|Color
spr10
spr7	|C.R.s
3
a17,spb1	|Print block
spr21
ca0
tsd1
ts1c1
spa3
b1,tab5
ca0
ts1c1
cac1
md5k3	|0.00007
tsb3
dm0
cpb2	|Even multiple of 10 octal
spr20	|Print Address
spr16	|Print tabs
b3,0
cab3
ts2c1	|Col. ctr.
spb4
b2,spr20	|Print address
ca0
ts2c1
b4,cae1	|n
su1c1	|Word ctr.
ad2c1	|Col. ctr.
su1
ts3c1	|Last col.
su5k3	|7
0r,cp3r	|Last col. correct
ca5k3	|7
ts3c1	|Set last col. at 7
3r,spr19	|Print line
cse1	|n
ad1c1	|Word counter
ad1
cpb2	|Not done
spr7	|Print C.R.s
4
b5,sp
r1,ta2r	|Select MT for read
si
sp
r2,ta2r	|Select MT for delayed print
si
sp
r3,taw6	|print main drum
cs1w7
tsw7	|ctr.
ca2w7
tdw5
w5,ca
spr10	|print flexo char.
aow5
aow7	|index ctr.
cpw5
w6,sp
w7,0	|ctr.
1w7,si15
2w7,w8
w8,57	|fc for upper case
56	|m
61	|lower case
6	|a
4w8,12	|i
24	|n
8	|space
57	|upper case
10w8,18	|D
61	|lower case
20	|r
14	|u
14w8,56	|m
8	|space
r4,taw10	|print operating core, field
cs1w11
tsw11	|ctr.
ca2w11
tdw9
w9,ca
spr10	|print flexo char.
aow9
aow11	|index ctr.
cpw9
w10,sp
w11,0	|ctr.
1w11,si33
2w11,w12
w12,57	|fc for upper case
48	|0
61	|lower case
44	|p
2	|e
20	|r
6	|a
32	|t
10w12,12	|i
24	|n
52	|g
8	|space
57	|upper case
28	|c
61	|lower case
48	|0
20w12,20	|r
2	|e
25	|comma
8	|space
57	|upper case
26	|F
61	|lower case
12	|i
30w12,2	|e
36	|l
18	|d
8	|space
r5,taw14	|print Buffer Drum
||||||||||
cs1w15
tsw15	|ctr.
ca2w15
tdw13
w13,ca
spr10	|print flexo char.
aow13
aow15	|index ctr.
cpw13
w14,sp
w15,0	|ctr.
1w15,si17
2w15,w16
w16,57	|fc for upper case
50	|B
61	|lower case
14	|u
26	|f
26	|f
2	|e
20	|r
10w16,8	|space
57	|upper case
18	|D
61	|lower case
20	|r
14	|u
56	|m
8	|space
r6,taw18	|print core field
cs1w19
tsw19	|ctr.
ca2w19
tdw17
w17,ca
spr10	|print flexo char.
aow17
aow19	|index ctr.
cpw17
w18,sp
w19,0	|ctr.
1w19,si16
2w19,w20
w20,57	|fc for upper case
28	|C
61	|lower case
40	|0
20	|r
2	|e
8	|space
57	|upper case
10w20,26	|F
61	|lower case
12	|i
2	|e
36	|e
18	|d
8	|space
|||||||||
r7,ta1r17
cak4	|C.R.
spr17
r8,taw3	|Print sum check error
cs1w4
tsw4
ca2w4
tdw2
w2,ca
spr10	|Print flexo char.
aow2
aow4	|index ctr.
cpw2	|if not finished
w3,sp
w1,0.00071	|fc for upper case
0.00012	|S
0.00075	|lower case
0.00016	|u
4w1,0.00070	|m
0.00010	|space
0.00071	|upper case
0.00034	|c
10w1,0.00075	|lower case
0.00050	|h
0.00002	|e
0.00034	|c
14w1,0.00036	|k
0.00010	|space
0.00071	|upper case
0.00002	|E
20w1,0.00075	|lower case
0.00024	|r
0.00024	|r
0.00060	|0
24w1,0.00024	|r
0.00010	|space
w4,0	|ctr.
1w4,si25
2w4,w1
r9,taw22	|print in ID block
cs1w23
tsw23	|ctr.
ca2w23
tdw21
w21,ca
spr10	|print flexo char.
aow21
aow23	|index ctr.
cpw21
w22,sp
w23,0	|ctr.
1w23,si15
2w23,w24
w24,12	|fc for i
24	|n
8	|space
57	|upper case
12	|I
18	|D
61	|lower case
8	|space
10w24,50	|b
36	|l
48	|0
28	|c
30	|k
8	|space
||||||||||
r10,taw62	|Print Flexo Char.
clc0	|Clear BR
clh12
rc
w62,sp	|EXIT
r11,taw64	|Print digit
ad12w63
r,td1r
ca
spr10
w64,sp
w63,0.00076	|0
0.00025	|1
0.00017	|2
0.00007	|3
0.00013	|4
0.00023	|5
0.00033	|6
0.00027	|7
0.00003	|8
0.00066	|9
w63
r12,ta2r	|Print n-digit octal
tsw65
cs
ad1
ts1w65
ao2r
td7r
ca	|ind.
cpw66	|convert initial zeros
ca2w65	|+100
sp1w66
w66,ca0
ts3w65
ao2r12
tdw71	|to EXIT
w67,ca1w65	|ctr.
mh3k1	|3
slh17
ad4w65	|+40
tdw68
caw65	|bin equiv. of no.
w68,clh
md5w65	|0.00007
ts6w65
dm0
cpw72	|digit is zero
ca2w65
ts3w65
w69,ca6w65
spr11	|sp to print digit
w70,ao1w65	|ao ctr.
cpw67	|not finished
w71,sp	|EXIT
w72,cs1w65	|ctr.
su3w65	|ind.
cpw69	|do not convert zeros into spaces
ca7w65	|fc for space bar
spr10	|sp to print flexo-char.
spw70
w65,0	|will cont. bin equiv. of no.
0	|will cont. ctr. -(n-1)
si100
0	|ind.
si40
0.00007
0	|temp. stor. for bin. equiv. of digit
0.00010	|fc for space bar
r13,taw74	|Print o.f.
tsw73	|o. frac.
clh21
md1
spr11	|print digit
ca1w73	|fc for period
spr10	|print flexo-char.
caw73	|o, frac.
md3w73
spr12
5
+0
w74,sp	|EXIT
w73,0	|will cont. o. frac.
0.00021	|fc for period
0.00007
0.77777
r14,taw77	|print instruction
tsw79	|AC entry
clh25	|to get first 5 bits to bits 11-15 of AC
md1w79	|si37
ad2w79	|w75
r,td1r
ca	|table look-up
ts3w79	|table word
cpw78	|char. is illegal
clh32
md4w79	|si77
spr10	|print flexo-char.
ca3w79	|table word
md4w79	|si77
spr10	|print flexo-char.
caw79	|orig. AC entry
md5w79	|si3777
w76,spr12	|print n-digit octal no.
5
-0	|neg. ind.
w77,sp	|EXIT
w78,caw79	|orig. ACentry
spr13	|print octal frac.
spw77	|to EXIT
w75,0.01214	|si
1.00000	|illegal
0.06214	|bi
0.02422	|rd
0.06260	|bo
0.02434	|rc
0.01222	|sd
0.03432	|cf
0.04012	|ts
0.04022	|td
0.04006	|ta
0.03436	|ck
0.00662	|ab
0.00272	|ex
0.03454	|cp
0.01254	|sp
0.03406	|ca
0.03412	|cs
0.00622	|ad
0.01216	|su
0.03470	|cm
0.01206	|sa
0.00660	|ao
0.02270	|dm
0.07024	|mr
0.07050	|mh
0.02274	|dv
0.41244	|sl
0.41224	|sr
0.01232	|sf
0.63444	|cl
0.07022	|md
w79,0	|will contain orig. AC entry
si37
w75
0	|will contain table word
4w79,si77
si3777
r15,taw26	|print RESTART will try again, START AT 40 will skip block
cs1w27
tsw27	|ctr.
ca2w27
tdw25
w25,ca
spr10	|print flexo char.
aow25
aow27	|index ctr.
cpw25
w26,sp
w27,0	|ctr.
1w27,si67
2w27,w28
w28,57	|fc for upper case
20	|r
2	|E
10	|S
32	|T
6	|A
20	|R
32	|T
10w28,61	|lower case
8	|space
38	|w
12	|i
36	|l
36	|l
8	|space
32	|t
20w28,20	|r
42	|y
8	|space
6	|a
52	|g
6	|a
12	|i
24	|n
30w28,25	|comma
8	|space
57	|upper case
10	|5
32	|T
6	|A
20	|R
32	|T
40w28,8	|space
6	|A
32	|T
61	|lower case
8	|space
11	|4
62	|0
8	|space
50w28,38	|w
12	|i
36	|l
36	|l
8	|space
10	|s
30	|k
12	|i
60w28,44	|p
8	|space
50	|b
36	|l
48	|0
28	|c
30	|k
8	|space
||||||||||
r16,ta1r17
ca3k4	|Tab
spr17
r17,ts14r
cs
ad1
ts13r
4r,ao1r
td12r
ca14r
spr10
10r,ao13r
cp6r
sp
0
14r,0
r18,ta16r	|Print Word
ca1c1	|word counter
adk5	|2000
td7r
4r,td12r
cad1
cp12r	|Inst.
ca
10r,spr13	|o.f.
sp14r
ca
spr14	|Inst.
14r,ca3k4	|Tab
spr10
sp
r19,ta11r	|Print Line
spr18
aoc1
ao1c1
4r,ao2c1
su3c1	|Last col.
cp1r
spr7	|Print C.R.s
10r,2
sp
r20,ta11r	|Print Address
cac1	|Address
spr12	|print n-digit integer
4
4r,-0
ca2k4	|slash
spr10	|Print
spr16	|Print tabs
10r,2
sp
r21,ta2r
si
2r,sp
c1,0	|Address counter
1c1,0	|Word Counter
2c1,0	|Column Counter
3c1,0	|Last col.
c2,0	|Tape Read Counter
d1,0	|Ind. + for octal fractions, for instructions
e1,0	|n
2k1,2
3k1,3
4k1,4
k2,si112
1k2,si132
2k2,si176
3k2,si156
k3,0.74000
1k3,0.03777
2k3,0.34000
3k3,0.16000
4k3,0.01777
5k3,0.00007
6k3,si42
k4,0.00051	|CR
1k4,0.00020	|Color
2k4,0.00005	|Slash
3k4,0.00045	|Tab
k5,si2000
ts2000
k6,sp
1k6,a3
t1,0	|Initial addr.
1t1,0	|Final addr.
2t1,0	|Sum check
3t1,0	|Core fields
t2,0	|Core field
1t2,0	|Sum check
t3,0
3w20|48
START AT a1
4