fc
OCTAL
v2,tsbi2g1		|nuri
mrbig1		|nupbt,stb
mrbix1		|e exm
mrbi12x2		|8 wst
mrbie6		|nu erd
tssi0		|bar papm
mrbia1		|a dmp
mrbix3		|3 sta
tsbie1		|space nu
mrbie1		|= nu
mrbix4		|s log
mrbix5		|4 nlg
mrbie1		|i nu
mrbie1		|+ nu
mrbii3		|u lck
mrbie1		|2 nu
20v2,tsbie1		|color nu
mrbie1		|. nu
mrsi6		|d ckr
mrbib1		|5 bri
mrbib10		|r cri
mrbib14		|1 dri
mrbie1		|j nu
mrbie1		|7 nu
mrbo30		|n drc
mrbie1		|, nu
cabie1		|f nu
mrsi0		|6 xfp
sibie1		|c nu
mrbie1		|- nu
mrbie1		|k nu
mrbie1		|nu nu
40v2,mrbo40		|t mtc
mrbie1		|nu nu
mrbie1		|z nu
tsbie1		|back nu
mrbid6		|l dtd
tsbie1		|tab nu
mrbie1		|w nu
mrbie1		|nu nu
mrbo50		|h scc
tsbie1		|car nu
mrbie1		|y nu
mrbie1		|nu nu
sibiei		|p nu
mrsi2		|nu ppp
mrbie1		|q nu
mrbie1		|nu nu
mrbo60		|o ptc
tsbie1		|stop nu
sibiu4		|b sup
mrbiu5		|nu nup
mrbib19		|g rmt
mrbie1		|nu nu
mrbie1		|9 nu
mrbie1		|nu nu
mrbie1		|m nu
tsbo71		|upper tsc
mrbie1		|x nu
mrbie1		|nu nu
mrbie1		|v nu
tsbie1		|lower nu
mrbih10		|0 set
tsbiz1		|mll nop
w2,ta11r
spn6		|print 3 letters space
sp3n2		|space
ca42v1		|lm
spn5		|print 2 letters
sp3n2		|space
ca3767		|LMIR
spn1		|octal fraction
sp3n2		|space
11w2,sp
h1,ta12n2
ca1h7		|hours
spn3		|2 digits
ca2h7		|minutes
spn3		|2 digits
cs		|+39
spn8		|pan+
cmh7		|.1 minutes
spn8		|1 digit
sp11n2		|space
h2,ta12n2
ca3h7		|month
spn4		|print
cs45b3		|+40
spn8		|hyphen
ca4h7		|day
spn4		|print
cs45b3		|+40
spn8		|hyphen
ca5h7		|year
spn4		|print
sp11n2		|space
h3,tah6
ad3762		|standard time
tsh7		|time in .1 min
		|+14400
su3f12
ts1h7		|time-24 hrs
ca3763		|date
clh24		|month
tdh4		|set
ts3h7		|save
ex0
clh5		|day
ts4h7		|save
clh7		|year
ts5h7		|save
ca1h7		|time-24 hrs
cph5		|new day|no-
tsh7		|save time
ca3h7		|month
ck3b3		|+2
sp1h6		|Feb special
ca		|+30
ts1h7		|criterion
ca		|0.05120
h4,clc
1h4,cp3h4		|long month|short-
ao1h7		|criterion
3h4,ao4h7		|day
su1h7		|criterion
cph5		|new month|no-
ts4h7		|day=1
ao3h7		|month
su		|+12
cph5		|new year|no-
ts3h7		|month=1
ao5h7		|year
h5,ca0		|initialize
ts1h7		|hours
ts2h7		|minutes
3h5,ca		|+600
dmh7		|.1 min
cp7h6		|less than whole hour|
6h5,cab3		|+10
dmh7		|.1 min
cp12h6		|less than whole min|
11h5,ca3h7		|month
clc5		|repack date
ad4h7		|day
clc7
ad5h7		|year
h6,sph9+
1h6,ca25b3		|+28
ts1h7		|criterion
cs5h7		|year
md60v1		|3
su363		|+2
sp1h4		|AC+ on leap year only
7h6,tsh7		|reduced .1 min
ao1h7		|index hours
sp3h5
12h6,tsh7		|reduced .1 min
ao2h7		|index min.
sp6h5
h10,1.10446		|set
1h10,spw2		|log
sps7		|desel
si11		|reset clock
ca0		|reset
ts3761		|last time
ts3762
ca3767		|LMIR
clh21
spn12		|save BR
mh46v1		|+5
sph8		|add to time
cat6
clh26		|hoars
spn12		|save BR
mh		|+600
sph8		|add to time
cat6
clh23		|10 min
spn12		|save BR
mh		|+100
sph8		|add to time
cat6
clh26		|min
mhb3		|+10
sph8		|add to time
sph3		|set up time
sps2		|sel log
sph1		|log time
sps7		|desel
cs3773
cp1f7		|return to prog. entry-
ca3163		|sp0
spf10		|set to comebade on restart
spm3		|read LMIR
clh24
ts3h7		|month
ex0
clh6		|day
ts4h7
ex0
clh6
ad		|+50
ts5h7		|year
sp11h5		|set up for log
h9,ts3763		|set standard
sps2		|sel log
sph2		|log date
sps7		|desel
sp1f7		|finished
z1,0.64446		|nop
1z1,spn6		|log nop
sps7		|des
sp1f7		|end
h8,ta4r
slr17		|product to AC
ad3762
ts3762		|accumulate
4h8,sp
x1,0.22730		|exm
1x1,spw2		|log
2x1,spn7		|car ret
ca3767		|LMIR
spn1		|octal fract
ca21a9
spn11		|slash
7x1,sps7		|desel
ca3767		|test for
spj1		|legal DA
ca3767
sps5		|sel drum
rd
ts3770		|save word
si510
rc		|display
sps2		|sel log
ca3770
spa5		|print ds wi, of
sps7		|desel
cs3773
cp1f7		|if Prog entry finished
ca31b3		|sp0
spf10		|set to return
spm3		|read LMIR
ex3767
ck3767		|compare
spz3		|=, insert
sps2		|sel log
sp2x1		|examine
z3,spm3		|read RMIR
ts3770
ca3767		|DA
sps6		|sel drum
ca3770
rc		|record
sps2		|sel log
ca		|ins
spn6		|print
sp7x1		|examine new contents
x2,1.32246		|wst
1x2,spn6		|log
sps7		|desel
si176		|sel MT3 del flexo
ao4n10
ts2n11		|insure set for flexo
ca0
ts41
spn7		|insure print not punch
spn7		|car ret + l.c.
ca
rc		|stop
rc
si134		|del
sp1f7		|finished
x3,1.12300		|sta
1x3,spw2		|log
ca3767
cp1s10		|use LMIR|last program-
tdz3		|in save sp
caz3
ts2		|spx to 2
spa5		|print
cf1000
sp5s10		|get core fields
s10,sps2		|sel log entry after ri
1s10,ca3766		|sp x last prog
ts2
spa5		|print sp
ca3765		|core field last prog
5s10,ts3		|to 3
ca3773		|prog entry.
cp7z4		|YES|NO-
ca2		|spx
ck31b3		|sp0
spz4		|check for return to master
ca3773		|set up
ts3757		|master
ca3774		|program
ts3760
sp7z4
z4,cs0		|set no master
ex3757		|master now
cp7z4		|YES|NO-
ts3		|set
ca3760		|to
ts2		|return to master
spa5		|log new sp x
7z4,ca
ts3777		|reset dispatcher
ca3
ad11b3		|form
ts3		|cf7ab
spa5		|log
sps7		|deselect log
sp4f10		|save par + restore cores
f4,ca7a10
ex1n8
ts2n11
ca2s2
ts1s2
sp20f3
6f4,ca
ts3s7
sp20f3
11f4,ca3771
mdf12
dm0
cp16f4
spw1
16f4,ta22f4
ca1f2
mdf12
dm0
22f4,cp
ao1f6
spf6
25f4,ca2s1
ts1s1
ca2r1
ts1r1
sp10f3
f12,1.40000
1.60000
0.13301
+14400
4f12,+600
+12
+30
si336
10f12,si326
si222
cp31
sp31
14f12,+4
si3564
si3742
f2,si7		|rd clock
rd		|coarse
2f2,srh4		|unpack
ex2f2
srh1
ab2f2
mr2f12		|0.13301
ex3761		|time in .1 min
su3761		|last time
cpf3		|flip...YES|NO-
ca2f12		|0.13301
sph3		|index date if necessary
ts3763		|new date
ca2f12		|0.13301
ad3762		|index time
ts3762		|clock=0
su3f12		|+14400
cpf3		|keep less
ts3762		|than 24 hrs
f3,ca3761		|compute
sph3		|date and time
ca3775		|set
ts1s8		|flexo reader
ca3747		|set
ts1s1		|binary reader
clc1		|cards
cp25f4		|NO|YES-
10f3,ca3756		|set
td1s2		|log select
clh1		|ANELEX
cpf4		|NO|YES-
srh5		|set
ts41		|for delayed punch if needed.
clc6		|delayed
cp6f4		|NO|YES-
20f3,ca3771		|set to
td1m3		|use proper MIR s
si301		|read ALT
rd		|in ROOM 222
ts1f2		|save
si300		|read ACT
rd
tsf2		|save
md1f12		|1.60000
dm0		|Any pertinent bit
cpf5		|YES|NO-
f6,ab0
1f6,ad7f12		|si336
ts3771		|set ACT
cs0
ts3757		|no master prog
ts3772		|no DP
ts3773		|no prog entry
ca3771
td1m3
spm3		|Read LM
ts3767		|save
spn3		|Read RD
ts3770		|save
ck11f12		|0.00222
sp11f4
w1,ca3770		|RMIR
md1f12		|1.6000
dm0		|PMR
cp6w1		|YES|NO-
4w1,cf1000		|log
sp13w1		|fields
6w1,ca3770		|RMIR
7w1,clc4
clc26		|core fields
su0
cp4w1		|selected|NO-
13w1,sp1j3		|switch fields + log
sps2		|select logger
sph1		|time
sps7		|desel
ca3770		|RMIR
md1f12		|1.60000
dm0		|PMR
cp6w3		|YES|NO-
23w1,cav3+		|DA of drum prog. pars
sps5		|sel drum
ca36b3		|+9
bia7		|read pars
sps2		|sel log
ca		|dup
spw2		|3 letters space lm sp. LMIR
ao23w1
tsw3
w3,cav2+		|block number
ts3753		|block number
spu3		|sum parameters
ck10a7
sp1u1		|= sum prog
sp21u1		|read in prog. from mag tape
6w3,ca3770		|RMIR
md1b3		|0.00077
adw3		|cav2
ts12w3
12w3,+0
td3753		|block number
td4f15		|address
clc2
cp24w3		|mtp type 1, 2 category
clc1
20w3,cpf15		|enter type 0 category
ca20w3		|type 3, 4 category
ad23w1		|set for entry
td23w1		|in dup table
sp23w1		|enter dup program
23,clc1
ts24w3
ca
spw2		|mtp
cs2yw3
cpe2		|erase if erase button on type 2
ca24w3
cp25u1
ca3753
spm1
sp
v3,1.37733
ca262
+0
+0
1.20277
ca250
+0
+0
+0
+0
+0
+0
+0
+0
+0
+0
f5,si337
rd
ck11f12
sp16f4
ca3
td3774
md43b3
su1
md43b3
td22f4
td11f4
si703
ca46v1
bif3
caf3
ck12f12
spf11
ck13f12
sp6f11
si17
ca60v1
bi3767
cs0
ts3773
spw1
f11,ca53v1
ts2f3
ca0
ts1f3
ts5f3
sp5f13
6f11,ca3774
ck7b3
10f11,sp3777
ca2f3
md1b3
ck1b3
sp17f11
ca3b3
sp20f11
17f11,cs14f12
ts5f3
ca15f12
si703
rd
ck22f4
spf13
sp5f13
f13,ca16f12
si703
rd
ck11f4
sp10f13
5f13,cm5f3
sa3774
spf14
10f13,ca16f12
si707
cm5f3
ad11f4
rc
ca10f11
f14,td3774
cf1000
ts3773
ca5f3
cp12f14
ca1f3
ts3767
ca2f3
ts3770
spw1
12f14,ca3f3
ts3767
ca4f3
es3770
ca2f3
sp7w1
f15,sps7
ao4f15
ta3f15
3f15,ca
4f15,sp
si30
si220
g1,ca10f11		|sp3777
sp3g1
2g1,cs0
3g1,ts3776
cs3770
clc3
cp12g1
cs30b3		|ts0
md3776
ts3776
12g1,ca3767
md53v1		|7
ck1
spg2
ca3767
clc7
clh23
su0
td3776
ex0
clh3
adr3
cf400
g3,ad36b3		|PETR     si11
su5f15		|MTR     si30
ad40v1		|KEY B D     si10
ad6f15		|MTR RM222     si220
su0
su0
su0
su0
cpe1
ts3775
ts1s8
sph2
ca3767
spn1
sps7
sps8
r3,rdg3
adw3
td3r3
3r3,ca
clc22
ad15r3
cf400
7r3,spe1		|b, c, p
spr3
11r3,sp13r3		|f
spe1		|ill
13r,ta11r3
ca
td7r3
spr3
si630
17r,ca3r3
ck1r4
sp2r4
ckr4
sp4r4
ca3775
ad3b3
ts3747
ts1s1
cs0
ts3750
ts3752
ca0
ts3754
ts3751
spe2
sps8
sp12b12
r4,ca34v2
ca54v2
2r4,cs0
sp6r4
4r4,spe2
ca3b3
6r4,tss4
|Direct read in, enter 7m2 with AC +, unit selected, positioned.
m2,rd
1m2,ts+		|store in CM
sa34m2		|add to check sum
ts34m2
4,ao1m2		|index
ao36m2		|count
cpm2		|loop
7m2,ts36m2		|set-n+1
10m2,rd		|read control word (CW)
td1m2		|set if address
ex34m2		|initialize check sum
ts35m2		|save old check sum
14,ca34m2		|CW
cp7m2		|-n+1....NO|YES-
su0
cp10m2		|si0...NO|YES-ignore
20,clh2
cp31m2		|sp....NO|YES-   Note.  must not address 4-7
clh1
cp25m2		|ck....NO|YES-   Note.  must not address 2, 3, 10, 11
spm2		|address
25m2,rd		|ck, read sum
ck35m2		|compare
sp10m2		|=.ok
sp		|error
31m2,rd		|read start
ts2		|into 2
si630		|stop mag. tape or PETR
34m2,		|execute CW sp1 or sp235m2,36m2,
3744|0.65073+f1		|check sum
3745|+0		|not used
3746|sp26		|used to set 40
3747|si102		|bin reader
3750|-0		|comp new interlock
3751|+0		|+ck1, -ck0
3752|-0		|+sig
3753|ca0		|block number
3754|-0		|dig 0 MT/paper 1 prog/rec 2 auto/mir rup
3755|0.57777		|DA of DP
3756|si225		|logger do nsl 1 AN 2 del 3 pn
3757|-0		|cf master prog
3760|sp0		|sp master
3761|+0		|last tine
3762|+0		|tine clock=0
3763|+0		|date clock=0
3764|+0		|interlock
3765|+1		|cf last tape
3766|sp0		|start last tape
3767|+0		|LMIR
3770|+0		|RMIR
3771|si336		|ACT, MIR si
3772|-0		|+DP, +0 si1 switch on
3773|-0		|cf prog entry
3774|sp0		|sp prog entry
3775|si211		|flexo reader
3776|-0		|d0 norm/pbt, stb d1 del out/dir out d2/sft
3777|spf1		|dispatcher for re-entry
STA32
