fc TAPE 1211 m14 BENNETT  PROGRAM PRINT PROGRAM
OCTAL		DA1.10000|
40|ca44		|Return to UCP
si703
ca45
bi44
0.54043
0.03700
siw60
si0
ta52		|Anelex Communication link
cf+
sp+
53|a1,caa2		|Start of Initialization
tsc3		|Set c3=32(d)
spr2		|Search for start of Program
ca3767
clh32
mdz4
ts47		|Number of Tapes
cs47
ad1
tsz5		|Set tape counter
ca3767
mdz4
ad46
cf400
w60,spz9		|Anelex
spz6		|Direct Flexo
sp4z7		|Delayed Flexo
spz7		|Delayed Punch
spz8		|Direct Punch
spz9		|Anelex
spz9		|Anelex
spz9		|Anelex
w61,ca0
tsd1		|all done ind
ts1c4		|Ditto Counter Ind
tsd5		|Start of Tape
tsc1		|Cell counter
ca1a2		|1.00000 Core Image
tsc5		|core image block designator
a3,si 337	|check for manual halt
rd
ck 3k1
0,sp 2r
sp 13r
2,si 300
rd
cp 6r
sp 13r
6,sp r27	|select
ca 20z4	|stop
sp r10	|record
sp r28	|deselect
si 0
13,si211		|select PETR
a4,rd
ts2a2		|T.S
ck3a2		|comparison, si77 for nullify
spa4		|branch to a4 if nullify
cac2		|total number of cells
suc1	|cell ctr.
su1
cpa5	|Last cell
ca2a2	|flexo
spr1	|translate
spr5
cpa5	|START AT
ca2a2
spr3	|store
a6,aoc1
spa4
a5,si630	|Stop PETR
ca2a2
spr3	|store
spb1
csd1		|All done Ind.
cpa3		|Not all done
ca1z5		|Finishing routine, Anelex indicator
cpx22
aoz5		|Tape counter
cpx30
sp40		|EXIT to UCP
x22,ta7x22		|Anelex Page Ejection
1,ca1r
2x22,ad1
cp2x22
si245
ca1z4
bo17z4	|1.70010
7x22,sp+
x30,cs3773
cp3x30		|Manual or Program Entry
si1
3x30,ca0		|Halt, manual entry
tsc1	|Cell Counter
tsd1	|All Done Ind.
tsd5	|Start of Tape
spa3
a2,32	|(d)
1a2,1.00000	|Core image
2a2,0	|T.S.
3a2,si77	|flexo for nullify
b1,tab6		|process cells
spr8		|find last CR
spr27		|Select output unit
cad5		|Start of Tape ind
cpb15		|Set, not first time thru
spr26		|print tape feed
ca1b2	|fc for lower case
spr10	|Print
spr15	|Print cells thru CR.
spr15	|Print cells thru CR.
cs0	|neg.
tsd5	|Set Start of Tape
b15,spr20	|check for empty line
cpb16	|empty line
b3,cad2	|Ditto/Skip Ind.
cpb7	|Set
spr6	|Check for DITTO or START AT
cpb9	|Either DIT or STA
spr24	|comment
cpb13
spr16	|check for skip
cpb10
b4,spr17	|Print addr. and reg.
b5,spr22	|print addr. if one is assigned
spr15	|Print thru CR.
b12,aoc3	|addr. ctr.
1b12,cac1	|Cell no. past CR.
su1c1	|Cell no. of last CR.
cpb17	|not last CR
spr26	|print tape feed
b18,spr28		|Deselect
cad1	|All Done Ind.
cpb6
spr19
b6,sp	|EXIT
b16,spr15	|print line
spb15
b17,spr20	|check for empty line
0r,cp2r	|empty line
spb3
2r,spr15	|print line
sp1b12
b7,ca1c4	|neg. if Ditto termination set
cpb8	|Set
spr4		|read slash address
tsc4		|set DITTO termination
cs0
ts1c4		|Restore 1c4
b8,cac3
ckc4
sp4b8		|End of DITTO
spb11		|Not end of DITTO
4b8,ca0
ts1c4
tsd2
spb4
b9,clh1
cpb14	|STA
cs0
tsd2	|Set Ditto/Skip Ind.
spb4
b10,spr4
tsc3	|set c3 to address for slash assignment
spb4
b11,spr17	|Print addr. and reg.
cab2	|fc. for CR.
spr10	|Print
spb12
b13,ca1x31	|si45, fc for tab
spr10	|punch flexo
ca1x31
spr10
ca1x31
spr10
spr15
sp1b12
b14,tsd1	|Set all Done Ind.
spr15
sp1b12
b2,0.00051	|C.R.
1b2,0.00075	|Lower Case
r1,ta1w5	|translate flexo code
ad2w5	|f1
tdw5
w5,ca
sp
f1
f1,0.40040
1.00000
0.20005
0.10400
1.00000
0.01020
0.20001
0.10140
10f1,0.40020
0.01400
0.20023
0.10200
0.20011
0.01004
0.20065
0.10100
20f1,0.40010
0.01001
0.20004
0.10240
0.20122
0.30054
0.20012
0.10340
30f1,0.20016
0.01010
0.20006
0.10300
0.20103
0.01002
0.20013
1.00000
40f1,0.20224
1.00000
0.20072
0.40004
0.30054
0.04000
0.20027
0.10000
50f1,0.20110
0.04001
0.20031
1.00000
0.20060
1.00000
0.20021
1.00000
60f1,0.30017
0.40002
0.20002
1.00000
0.20007
1.00000
0.10440
1.00000
70f1,0.20015
0.02001
0.20030
1.00000
0.20026
0.02000
0.30017
0.40001
r2,taw50	|search for start of program
w49,cac3
spr7
ck0
spw51
w50,sp	|EXIT
w51,aoc3
su5w79	|si3777
cpw49
spr25	|print Core Image Empty
sp0
r3,taw6	|pack or pick up flexo char.
tsw7	|AC
cac1	|cell ctr.
srh1
adw8	|f2
td1w10
td3w10
td4w10
tdw14
cac1
clh17
cpw9	|odd
ca3w8	|6
tdw10
ca4w8	|si32
tdw13
ca1w8	|0.07700
spw15
w9,ca0
tdw10
tdw13
ca2w8	|0.00077
w15,ts1w7	|mask
caw7
cpw11	|pick up
w10,clc
sd
md1w7	|mask
sd
4w10,ts
w6,sp
w11,cac2
suc1
cpw12	|cell no. too large
w14,ca
md1w7	|mask
w13,clc
spw6
w12,ca0
spw6
w7,0	|AC
0	|mask
w8,f2
0.07700
0.00077
6
4w8,si32
r4,tax20	|set c3 to address for slash assignment
cac1
ts3x21
ca0
tsx21	|storage register for address
x18,cs0	|neg. for pick-up
spr3	|pick up flexo char.
spr1	|translate to logical word
clh6
cpx19	|punc.
clh35
cp1x20		|number...
clh37
cp9x20		|letter...
9x18,aoc1
spx18
x19,ca3x21
tsc1		|Restore cell counter
cax21		|Obtain address
x20,sp+		|EXIT
1x20,clh30
md1x21
ts2x21
cax21
clh3
ad2x21
tsx21		|store number
sp9x18
9x20,ca2c4		|relative location counter
adx21
tsx21		|store relative address
spx19
x21,0
1x21,0.00007
2x21,0
3x21,0
r5,taw42	|check for START AT
tsw39
clh1
cpw41	|Ignore
clh3
cpw43	|Tab/CR
clh1
cpw45	|Shift case
ca1w39	|No match Ind.
cpw41	|Set
caw39	|Logical word
clh2
cpw46	|Letter
w40,cs0
ts1w39	|Set no Match Ind.
w41,ca0
w42,sp	|EXIT
w43,clh13
cpw44	|CR
spw41	|exit with pos. AC
w44,ca0
ts1w39	|Clear No Match Ind.
ts2w39	|Clear Char. no.
cs3w39	|End Phase Ind.
cpw41	|Not End Phase
ca0
ts3w39	|Clear End Phase Ind.
cs0
spw42
w45,clh12
ts4w39	|Set shift case Ind.
spw41
w46,cs4w39	|Case Ind.
cpw40	|Lower
ca12w39	|5w39
ad2w39
tdw47
caw39	|logical char
md11w39	|0.00037
w47,ck+
spw48
spw40
w48,ao2w39
su10w39	|2
cpw41	|Char. not greater than 2
cs0
ts3w39	|Set end phase Ind.
spw41
w39,0	|logical word
0	|no match ind.
0	|char. no.
0	|end phase ind.
0	|case ind.
19	|(d)S
20	|(d)T
1	|A
2
0.00037
5w39
r6,taw38	|search for DITTO and START AT
cac1	|cell ctr.
tsw24	|store original c1
cad4
ts1w24	|Case Ind.
ca0
ts2w24	|DIT/STA Ind.
ts3w24	|Char. Ind.
w26,cs0
spr3	|Picks up Flexo char. on neg. entry
spr1	|Translates Flexo char. into logical word
ts4w24	|Store logical word
clh1
cpw25	|Ignore
sp2w25
w25,aoc1	|cell ctr.
spw26
ca4w24	|logical word
clh4
cpw27	|Flexo Char. is Tab/CR
clh1
cpw29	|Shift case
ca4w24	|logical word
clh2
cpw30	|Letter
w28,caw24
tsc1	|Reset cell ctr.
spw38	|exit pos.
w27,clh13
cpw28	|CR
spw25
w29,clh12
ts1w24	|Case ind. set +lower -upper
spw25
w30,ca1w24
cp3r	|upper
spw28
ca2w24	|DIT/STA Ind
cpw35	|Other than first time
ca4w24	|logical wrd
md5w24	|0.00037
ckw31		|D
spw33
ca4w24	|logical word
md5w24	|0.00037
ckw32
spw34
spw28
w33,ca6w24	|1.00000
ts2w24	|DIT/STA Ind.
spw37
w34,ca7w24	|1.40000
ts2w24	|DIT/STA Ind
spw37
w35,ca2w24	|DIT/STA Ind
clh1
cpw36	|STA
ca3w31	|w31
sp1w36
w36,ca3w32	|w32
ad3w24	|Char. ctr.
r,td3r
ca4w24	|logical word
md5w24	|0.00037
3,ck+
spw37
spw28
w37,ao3w24	|Char. Ctr.
su10w24	|2
cpw25	|not done
caw24
tsc1	|Reset cell ctr.
ca2w24	|Pick up const. acc. to whether DIT or STA
w38,sp	|EXIT
w24,0	|original c1
0	|case ind. +lower -upper
0	|DIT/STA Ind.
0	|char.ctr.
0	|logical word
0.00037
1.00000
1.40000
2
w31,4	|D
9	|I
20	|T
w31
w32,19	|S
20	|T
1	|A
w32
r7,taw54	|pick up program register
tsw52	|Core addr.
md1w52	|1.77700
ckc5	|Comparison sbr.
spw53
caw52	|core addr.
md1w52	|1.77700
tsc5
w84,spr28	|Deselect
si703	|drum
ca2w52	|si100
bif3
spr27	|Reselect
w53,caw52	|Core addr.
md3w52	|0.00077
ad4w52	|f3
td4w53
ca
w54,sp	|EXIT
w52,0
1.77700
si100
0.00077
f3
r8,taw57	|determine last CR
cac2
suc1
su1
cpw58	|last cell
cac1
ts1c1
w56,ca0
tsc1	|set c1=0
w57,sp	|EXIT
w58,spr21	|search for CR
aoc1
w59,cac1
su1
ts1c1
su1
tsc1
spr21	|search for CR
aoc1
spr20
cpw59	|empty
spw56
r27,ta2r27		|Output selection
si630
sp+		|EXIT
r28,ta2r28		|Output deselection
si630
sp+		|EXIT
z6,ca2z4		|Direct Flexo Initialization
ts1r27
spw61		|EXIT
z7,ca3z4		|Delayed Punch Initialization
ts1r26
ca4z4
ts1w62
4z7,ca5z4		|Delayed Print Initialization
ts1r27
ca6z4
ts1r28
spw61		|EXIT
z8,ca7z4		|Direct Punch Initialization
ts1r27
ca3z4
ts1r26
spw61		|EXIT
z9,ca10z4		|Anelex Initialization
ts4r10
ts1z1
spx22		|Ejext page
cs1
ts1z5		|Set Anelex indicator
cf1000		|Determine active c.f.
ts2z5
clc35
mdz4	|7
ts3z5		|Original A field
clh3
ad11z4		|200
td1f2		|set up c.f. in anelex conversion
ca2z5
mdz4		|7
ts4z5		|Original B field
ad12z4		|100
td3b19
td14b19
z10,ao5z5		|Select new core field
ck3z5
spz10
ck4z5
spz10
ca5z5
ad12z4		|100
td1b19
td11b19
ca5z5
clh3
ad11z4		|200
td51
|shift conversion to new c.f.
ca13z4		|f3
tdb19
ca14z4		|2050
td2b19
cs15z4		|length of conversion
ts6z5
ao6z5
b19,ca+
1b19,cf+
2b19,ts+
3b19,cf+
aob19
ao2b19
ao6z5
cpb19
ca16z4
11b19,cf+
si17
bi2711
14b19,cf+
spw61		|EXIT
z5,0		|Tape counter
1z5,+1		|Anelex Indicator
2z5,0		|T.S. for cf assignment
3z5,0		|T.S. for original A c.f.
4z5,0		|T.S. for original B c.f.
5z5,1		|Core field for Conversion Program
6z5,0		|Conversion program counter
r10,taw62	|punch flexo char.
clc0
clh12
ad1w62
4r10,rc
w62,sp	|EXIT
1w62,si0
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 no.
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 octal frac.
tsw73	|o. frac.
clh21
md1
spr11	|print digit
ca1w73	|fc for period
spr10	|print flexo-char.
caw73	|o, frac.
md3w73	|0.77777
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 lst 5 bits to bits 11-15 of AC
md1w79	|0.00037
ad2w79	|w75
r,td1r
ca	|table look-up
ts3w79	|table word
cpw78	|char. is illegal
clh32
md4w79	|0.00077
spr10	|print flexo-char.
ca3w79	|table word
md4w79	|0.00077
spr10	|print flexo char
caw79	|orig. AC entry
md5w79	|0.03777
w76,spr12	|print n-digit octal no.
5	|n
-0	|neg. ind.
w77,sp	|EXIT
w78,caw79	|orig. AC entry
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.01244	|sl
0.01224	|sr
0.01232	|sf
0.03444	|cl
0.07022	|md
w79,0	|will contain orig AC entry
si37
w75
0	|will contain table word
4w79,si77
si3777
r15,tax15	|print a line thru CR
x13,cs0	|neg for pick-up
spr3	|pick up flexo
tsx17	|store
spr1	|translate into logical word
ts1x17	|store
clh5
cpx16	|case shift
x14,cax17	|stored flexo
spr10	|print
aoc1
cs1x17	|stored logical word
clh4
cpx13	|not tab/CR
clh13
cpx13	|not CR
x15,sp	|EXIT
x16,clh12
tsd4	|set d4
spx14
x17,0	|store flexo char
0	|store logical word
r16,tax61	|check for skip
cac1	|cell ctr.
tsx64	|store c1
3r16,ca0
ts2x64	|clear PC ind.
ca3r16	|ca0, exit for slash assignment
ts4x64	|TS xo contain neg. ind. for EXIT
x23,cs0	|make AC neg.
spr3	|pick up flexo-char.
spr1	|translate to logical word
ts1x64	|store logical word
clh6
cpx25	|punc.
clh34
cpx27	|letter
clh1
cpx26	|num.
clh1
cpx28	|tab/CR
x24,aoc1	|index cell ctr.
spx23
x25,clh5
cpx29	|slash
x26,cs0	|make AC neg.
ts2x64	|set PC ind.
spx24
x27,ca1x64	|stored logical word
sd3x64	|0.20122, logical word for letter r
dm0
cpx62	|letter r
spx26	|to set PC ind
x28,clh13
cpx63	|CR
ca2x64	|PC ind.
cpx63	|set
spx24	|to aoc1
x29,cax64	|stored orig. c1
tsc1	|restore c1
ca4x64	|TS containing neg. ind. for EXIT
x61,sp	|EXIT
x62,cs0
ts4x64	|set TS to -0 for exit, indicating regular skip
spx26	|set PC ind.
x63,cax64	|stored orig. c1
tsc1	|restore c1 - AC pos.
spx61	|with AC pos., go to EXIT
x64,0	|store c1
1x64,0	|store logical word
2x64,0	|PC ind.
3x64,0.20122	|logical word for letter r
4x64,1.00000	|TS to contain neg. ind. for EXIT
r17,tax34	|print address and register
cad4	|running case ind.
cpx35	|upper
x32,cac3	|addr. ctr.
spr12	|print 4 digit octal no.
4	|n=4
-0	|ind.
cax31	|0.00005,fc for slash
spr10
spr18	|check word type
cpx36	|instruction
x33,cac3	|addr. ctr.
spr7
spr13	|print octal frac.
x37,ca1x31	|0.00045,fc for tab
spr10
cad4
cpx38	|upper
x34,sp	|EXIT
x35,ca2x31	|0.00075,fc for lower case
spr10	|print flexo char.
spx32
x36,cac3
spr7
spr14	|print instruction
spx37
x38,ca3x31	|0,00071,fc for upper case
spr10	|print flexo char.
spx34
x31,0.00005	|fc for slash
0.00045	|fc for tab
0.00075	|fc for lower case
0.00071	|fc for upper case
r18,ta1x47	|check word type
cac1
tsx39	|store orig. c1
cad4
ts1d4
cad2	|DIT/skip ind.
cp3x45
spr16	|skip
cpx43	|yes
x40,cac1
ts1x39	|store c1 (may have been indexed)
spr23	|search for printed char.
cpx46	|no PC before CR
x41,cs0	|make AC reg for pick-up
spr3	|pick up flexo char.
spr1	|transl. into logical word
ts3x39	|store
clh6
cpx48	|punctuation
x42,clh36
cpx53	|Tab/CR
aoc1
spx41
x43,cs0
spr3	|pick up flexo char
spr1	|transl. into wd.
ts3x39	|log. word
clh5
cpx45	|shift case
x44,aoc1
ca3x39	|logical word
clh6
r,cp2r	|punc.
spx43
clh5
cpx40	|slash
spx43
x45,clh12
ts1d4	|set 1d4 for correct case
spx44
3x45,cad3	|const/instr ind.
sp1x47
x46,cax39
tsc1	|restore orig. c1
x47,tsd3	|const/instr ind
1x47,sp	|EXIT
x48,clh6
cpx49	|comma
spx42
x49,aoc1
ex1x39	|store for later reset
tsc1	|reset c1
x50,cs0	|make AC neg.
spr3	|pick up flexo-char.
spr1	|transl. into logical word
clh5
cpx52	|shift case
clh1
r,cp2r	|punc.
spx51
clh6
cpx53	|comma
x51,aoc1
spx50
x52,clh12
ts1d4	|set 1d4 to correct case
spx51
x53,ca1x39
tsc1	|reset c1
x54,ca0
ts2x39	|clear better ind.
x55,cs0	|neg for pick-up
spr3	|pick char.
spr1	|transl. to logical word
ts3x39	|store
clh5
cpx57	|shift case
clh35
cpx58	|letter
clh1
cpx46	|numeral
clh3
cpx46	|punc.
clh36
cpx59	|tab/CR
x56,aoc1
spx55
x57,clh12
ts1d4	|set 1d4 to correct case ind.
spx56
x58,ca1d4
cpx46	|upper case
cs2x39	|letter ind.
cpx60	|lst letter
cax39
tsc1	|restore orig. c1
cs0
spx47	|EXIT with neg. AC
x59,clh13
cpx46	|CR
cs2x39	|letter ind
cpx56	|not set
spx46
x60,ca3x39
clh12
cpx46	|p,z, or u
cs0
ts2x39	|set letter ind.
spx56
x39,0	|store orig. c1
0	|store c1
0	|letter ind. clear, not set-neg. set
0	|store logical word
r19,tav3	|copy remaining cells into initial cells
ca1c1	|cell no. of last CR
ad1
tsv1
ca0
ts1v1
v2,cav1
tsc1
cs0	|neg for pick-up
spr3	|pick up flexo-char.
ts2v1
ca1v1
tsc1
ca2v1
spr3	|pack flexo-char.
ao1v1
aov1
suc2	|no. of cells
ad1
cpv2	|not finished
ca1v1
tsc1
v3,sp	|EXIT
v1,0	|no. of cell t be printed
0	|no. of cell to store in
0	|TS
r20,tax5	|check for empty line
cac1
tsx1
x2,cs0	|neg. for pick-up
spr3	|pick up flexo char.
spr1	|transl. to log. word
clh2
cpx4	|letter
clh1
cpx4	|numeral
clh3
cpx6	|punctuation
clh36
cpx7	|tab/CR
x3,aoc1
spx2
x4,cax1		|If number or letter
tsc1
ca0
x5,sp	|EXIT
x6,clh5
cpx3	|slash, ignore
spx4
x7,clh13
cpx8	|CR
spx3		|Tab, ignore
x8,cax1
exc1
ts2c1
cs0
spx5	|to EXIT
x1,0	|will cont. cell ctr.
r21,tax12	|search for CR
x9,cs0	|make AC neg
spr3	|pick up char.
spr1	|transl. to logical word
clh4
cpx11	|tab or CR
x10,cac1
su1
tsc1	|store prededing cell no. in c1
spx9
x11,clh13
cpx12	|CR
spx10
x12,sp	|EXIT
r22,taw20	|print address if one is assigned
cac1
tsw83	|store orig. c1
w1,cs0	|neg. for pick-up
spr3	|pick up flexo char.
ts1w83	|store flexo char.
spr1	|translate to logical word
clh4
cpw3	|tab/CR
clh2
cpw17	|punc.
w2,aoc1
spw1
w3,caw83	|orig. c1
tsc1	|restore c1
w4,cs0	|neg. for pick-up
spr3	|pick up flexo char.
ts1w83	|store flexo char.
spr1	|translate to logical word
clh4
cpw18	|tab/CR
clh2
cpw21	|punc.
w16,aoc1
spw4
w17,clh6
cpv15	|comma
spw2
w18,caw83	|orig. c1
tsc1	|restore c1
w19,ca2w83	|flexo for tab
spr10	|print flexo char.
w20,sp	|EXIT
w21,clh5
cpw55	|slash
spw16
w55,caw21	|cycle for slash
sp1w22
v15,caw83
tsc1		|restore cell counter
v10,ca0
tsv16
ts1v16
3v10,cs0
spr3		|pick up flexo
spr1		|translate
clh3
cpv13		|number
clh37
cp2v11		|letter
clh4
cpv12		|punct.
v11,aoc1
sp3v10
2v11,cs0
ts1v16
spv11
w22,caw17	|cycle for comma
1w22,tdw81
caw83		|orig. c1
tsc1	|restore c1
w23,cs0	|neg. for pick-up
spr3	|pick up flexo char.
ts1w83
spr10	|print flexo char.
ca1w83	|stored flexo char.
spr1	|translate to logical word
clh6
cpw81	|punc.
w80,aoc1
spw23
w81,clh
cpw82	|comma or slash
spw80
w82,aoc1
spw19
w83,0	|store orig. c1
1w83,0	|store flexo char.
2w83,si45	|flexo for tab
v12,clh6
cp2v14		|comma
clh37
cpv14		|slash
spv11
v13,ts2v16		|TS
ca1v16		|letter ind.
cpv11		|set
ca2v16
clh30
md3vl6		|7
ts2v16		|digit
cav16		|number
clh3
ad2v16		|digit
tsv16
spv11
v14,aoc1
spv10
2v14,cac3		|current address ctr
suv16		|number
ts2c4		|relative address ctr
spw22
v16,0		|number
1v16,0		|letter indicator
2v16,0		|TS
3v16,7
r23,tav8	|search for printed char.
cac1
tsv4
v5,cs0
spr3	|pick up flexo char.
spr1	|translate to logical word
clh2
cpv7	|letter
clh1
cpv7	|numeral
clh3
cpv7	|punc.
clh36
cpv9	|tab/CR
v6,aoc1
spv5
v7,ca0
v8,sp	|EXIT with pos. AC
v9,clh13
r,cp2r	|CR
spv6
cav4
tsc1
cs0
spv8	|EXIT with neg. AC
v4,0	|store initial c1
r24,tav21	|check for comment
cac1
tsv20
spr23	|search for printed char.
cs0	|neg. for pick-up
spr3	|pick up flexo
spr1	|transl. to logical word
sd1v20	|1.77777
clh6
cpv22	|not punc.
clh5
cpv22	|not slash
v23,aoc1
spr23	|search for pc
cpv22	|CR encountered
cs0	|neg. for pick-up
spr3	|pick up flexo
spr1	|translate
sd1v20	|1.77777
clh6
cpv24	|not punc.
clh5
cpv24	|not slash
spv23
v24,cav20
tsc1
cs0	|neg. AC
v21,sp	|EXIT
v22,cav20
tsc1
spv21
v20,0	|to store c1
1v20,1.77777
r25,ta13r	|print Core Image Empty
si225
cs14r
ts15r
4r,ca16r
td6r
ca
spr10
10r,ao6r
ao
cp6r
sp
14r,16
0
17r
28	|c
20r,48	|o
20	|r
2	|e
8	|space
24r,12	|i
56	|m
6	|a
52	|g
30r,2	|e
8	|space
2	|e
56	|m
34r,44	|p
32	|t
42	|y
41	|CR
r26,taz2	|punch tape feed
spz2
cs1z3	|si77
tsz3	|ctr.
z1,ca2z3	|si400
rc
aoz3	|ctr.
cpz1	|not done
z2,sp	|EXIT
z3,si0	|ctr.
si77
si400
c1,0	|cell ctr.
1c1,0	|cell no. of last CR
2c1,0	|cell no. of CR at end of line
3c1,0	|cell no. of slash
c2,-f2+f3+f3-f2	|total no. of cells
c3,0	|addr. ctr.
c4,0	|DITTO/skip ctr.
1c4,0	|neg. if c4 has been set
2c4,0		|relative location counter
c5,1	|core image block desig.
d1,0	|all done ind.
d2,0	|DITTO/skip ind.
d3,0	|const./instr. IN. neg. if I
d4,0	|running case ind neg. if upper
1d4,0	|case ind. corr. for skipped lines
d5,0	|start of tape ind neg. later
2k1,2
3k1,3
4k1,4
5k1,5
z4,0.00007
1z4,0.00050
2z4,si225
3z4,ts0
4z4,si1400
5z4,si176
6z4,si134
7z4,si205
10z4,sp50
11z4,0.00200
12z4,0.00100
13z4,f2		|First loc. of conv. in Storage
14z4,0.02050		|First loc. of Conv. in new c.f.
15z4,si640		|Length of conversion program
16z4,si701		|Length of T.S. for conv. prog.
17z4,1.70010
20z4,si61		|stop
DITTO
2600|f2,
3600|f3,
STA 32
o