fc 1318m2 CHECKER EXECUTIVE ROUTINES bennett
OCT
|executive routines
DA1.12540|12540|b49,spr7	|read in tape
0.73105	|uc R E
0.02200	|A D sp
0.70700	|I N sp
0.50060	|T A P
1.13736	|E lc lc
sp r28	|cr
sp 31	|read in tape
0	|lmr
0	|rmir
sp b21
|SET INDEX NUMBER
b37,sp r7	|xn
1.60700	|s n sp
sp r26	|print 4 digit address
su 1
sd k5	|-0
ts 1p6	|control register
sp b21-1
b12,	pa1=2000-b12	spr7	|perfvrm special function
0.73160	|uc S P
0.12174		|E C I
0.02600	|A L sp
0.15256	|F U N 
0.07234	|C T I
1.66736	|O N lc
sp r28	|cr
sp p7	|special function, control returned to b21
|HALT	pa1=2000-b20
b20,spr7
0.72401	|uc HA
1.31236	|L T lc
sp r28	|cr
ca 1p6
si 0
sp b21
|halt on si 1
pa1=2000-b48
b48,spr7
0.72401	|uc H A
0.31236	|L T lc
0.01556	|sp o n
0.01174	|sp s i
0.01556	|sp o n
1.12000	|e sp sp
sp r28
ca 1p6
si 1
sp b21
b42,	|STORE	pa1=2000-b42
sp r7	|store at
0.73164	|uc S T
0.67105	|O R E
0.00064	|sp A T
1.01736	|sp lc cl
sp r26	|core address
td2d1
sp r39	|comma, space
ao c1
sp c1-1
ts 1d1
sp r30	|wi + of
sp r2	|plant register
sp b21-1
|PRESERVE MEMORY	pa1=2000-b14
b14,sp r7	|pr
0.73022	|uc P R
0.13145	|E S E
0.45305	|R V E
0.00645	|sp M E
0.33562	|MO R
1.63717	|Y lc cr
sp c1-1
clc 12
cp x50+pa1	|same as last time
clh 26
sd k5	|-0
ad 1
ts c2	|area ctr
ts d2
ao c1
td x8+pa1
td 1d2
su c2
su c2
td x2+pa1
ad 1
td c1
x5,ca 7k5	|40
ts 1c3
sp r1
x8,ca	|p3
sp r13	|o.f.
spr39	|comma, space
ao x8+pa1
td x9+pa1
x9,ca
spr42	|pr 5 digits
sp r28
ao x8+pa1
x2,ca 	|initial addr
ts t1
ao x2+pa1
td x1+pa1
x1,ca	|no. regs
su1
ts2t3
ad t1	|initial addr
md k3	|1.77740
x3,ts c3	|initial addr of last block
cs k2	|37
ts 1c2	|counter for 40
sp r18	|obtain block
ca 11k6	|p9
su 1c2
td x4+pa1
si 116	|mt 1, rec fwd
ca 0	|zero
ts t3	|check sum
ts 1t3	|scramble ts

x4,ca	|p9
sp r27+pa1	|record scrambled
sd t3
ts t3
ca x4+pa1
su 1
ts x4+pa1
ao 1c2
cp x4+pa1
cat3
rc
si116
si114	|stop
ca c3	|initial address of current block
su t1	|initial address of area
cp x6+pa1	|all done
ca c3
su 7k5	|40
sp x3+pa1
x50,ca0
dmd2
ts d2
ts c2
ca 1d2
td x8+pa1
su d2
su d2
td x2+pa1
ohsp x5+pa1
x6,si 116
ca 2t3	|n-1
sp r27+pa1
ex t1	|initial addr.
sp r27+pa1
sd t1
rc
si 116
si 114
cs 3k1	|3
dm 0
ab x2+pa1
ao c2
cp x5+pa1
sp b21
|record scrambled
r27,ta 14r+pa1
clh 2
ad 1
3,ex1t3
4,clh 36
ex 1t3
clh 2
ck 0
10,sp 12r27+pa1
sp 3r27+pa1
12,ex 1t3
rc
14,sp
pa1=2000-b47
|ACTIVE REGION
b47,spr7	|pr
0.72043	|uc A C
0.51626	|T I V
0.12022	|E sp R
0.12374	|E G I
0.66700	|O N sp
1.75736	|lc lc lc
sp r26	|core address
su 1
ts d7
cs2k3	|50
sp r11	|print dash
ao c1
sp c1-1
ts 1d7
ad d7
sp r3	|pr no
sp b21-1
|BRANCHES
pa1=2000-b39
b39,sp r17+pa1	|conditional
sp r19+pa1	|branch to
sp r12+pa1	|pr
spr7	|type a
0.51420
1.12001
sp r28
si300
rd
cpb10+pa1	|set
sp b21
b10,si 337
rd
cp 3b13+pa1	|branch
sp b21
b40,	pa1=2000-b40
sp r17+pa1	|conditional
sp r19+pa1	|branch to
sp r12+pa1	|2 digit addr
spr7	|type b
0.51420
1.12002
sp r28
si 300
rd
clh 1
b8,cpb11+pa1
ca d9
cp 3b13+pa1
sp b21
b11,si336
rd
tsd9
sp1b8+pa1
b51,	pa1=2000-b51
spr17+pa1	|conditional
sp r19+pa1	|branch to
sp r12+pa1	|2 digit addr
spr7	|type c
0.51420
1.12003
sp r28
ca 1p6	|control reg
cp 3b13+pa1
sp b21
pa1=2000-b13
b13,sp r19+pa1	|branch to
sp r12+pa1	|two digit addr
sp r28
3b13,sp c1-1
md 2k8	|177
sp a3
r19,ta 3777
spr7
0.72122	|uc B R
0.02703	|A N C
0.20024	|H sp T
1.66036	|O sp lc
sp 3777
r17,ta 3777
spr7
0.72173	|uc C O
0.34234	|N D I
0.51633	|T I O
0.34054	|n A L
1.01675	|sp uc uc
sp 3777
|print address of executive instruction, space, comma
r12,ta 3777
sp c1-1
sp r4	|print no. to 177
sp r39	|comma, space
sp 3777
1.00036	|sp sp lc
|SET CONTROL REGISTER
b50,ao c1
sp c1-1
ts c3
sp r13	|o.f.
sp r7
0.00401	|sp h a
1.46036	|s sp lc
sp r34
ca 1
ts 1c3
sp r18	|obtain block
ca p9
ts 1p6	|control reg
sp r1
sp r30	|wi+o.f.
sp r7
0.37145	|cr s e
0.50003	|t sp c
0.66724	|o n t
0.45554	|r o l
0.01105	|sp r e
0.17623	|g is
1.50262	|t e r
sp b21-1
|COMPARE MEMORY
pa1=2000-b46
b46,spr7
0.72173	|uc C O
0.33001	|M P A
0.44240	|R E sp
0.32255	|M E M
0.67131	|O R Y
0.36754	|cr cr L
0.66141	|O C A
0.51633	|T I O
0.34037	|N sp ss
0.00037	|sp sp ss
0.01554	|sp O L
0.10037	|D sp ss
0	|3 spaces
0
0.00016	|sp sp N
1.13376	|E W cr
sp r28
ca d2	|preserver memory ind
cp x11+pa1
sp r1
spr7	|memory not preserved
0.72645	|uc M E
0.33562	|M O R
0.62016	|Y sp N
0.67200	|O T sp
0.41105	|P R E
0.46262	|S E R
0.54244	|V E D
1.75736	|lc lc lc
sp b21-1
x11-1,b56
x11,ts c2	|area ctr
cs d2
ts d2	|clear ind
ca 7k5	|40
ts 1c3	|n
pa2=x11-1+pa1
ca pa2	|b56
sp2a9	|block in main routine
|main routine
pa1=2000-b56
b56,sp r34	|deselect
x10,si113
rd
ts t3	|ck sum
rd
ts c3	|initial address
sd t3
ts t3
rd
si 630
ts3t3	|n-1
ck t3
spb24+pa1	|ok
sp r29+pa1	|ng
b24,ca3t3	|n-1
ad c3	|initial address
ts3t3	|final address
ca c3
md k3	|0.77740
ex c3
ts t1	|initial address
su c3
ts 1t3	|initial excess
x17,sp r6	|check for halt
cs k2	|37
ts 1c2
ca p8+pa1	|p1
td 1x13+pa1
ad 1t3	|initail excess
td x14+pa1
ca 11k6	|p9
ad 1t3	|initial excess
td 2x14+pa1
td x7+pa1
si 113
rd
ts t3	|check sum
x13,rd
1x13,ts	|1p8
sd t3
ts t3
ao 1x13+pa1
ao 1c2
cp x13+pa1
si 630
ca t3
ck 0
spb28+pa1	|ok
sp r29+pa1	|ng
b28,sp r18	|obtain block
ca 0
ex 1t3	|initial excess
su k2	|37
ts 1c2	|adjust ctr for excess
x14,ca	|1p8
ts 2t3	|old
2x14,ck	|p9, new
sp x16+pa1	|identical
sp r1
ca t1	|address ctr
sp r13	|of
ca 12k5	|41
sp r10	|print slash
sp r7	|print 3 spaces
1.00000
ca 2t3	|old
sp r30	|wi+ of
sp r7	|3 spaces
1.00000
x7,ca	|p9, new
sp r30	|wi + of
sp r28
x16,ao x14+pa1
ao 2x14+pa1
ao x7+pa1
ao t1	|current addr
su3t3	|final addr.
cpb29+pa1	|end of area| not-
sp x12+pa1
b29,ao 1c2
cp x14+pa1
ca c3
ad 7k5	|40
ts c3
sp x17+pa1	|area not done
x12,ao c2
cp x10+pa1
sp r1
sp b21-1
r29,ta 7r+pa1
sp r1
sp r7
0.47255	|s u m
0.00153	|sp c k
1.00707	|sp n g
sp r28
7,sp
p8,p1


b1,sp c1-1	|redisptatch
clh 31
ad 10k3	|b7
td a9
sp a9
|SET UP EXIT
b2,sp r7
0.72270	|uc E X
0.71200	|I T sp
0.03200	|A T sp
1.75736	|lc lc lc
spr26	|core addr
td 2d1
cs 0
ts d1
ca 6k3	|sp7
ts 1d1
sp r2
sp b21-1
|START AT
pa1=2000-b3
b3,sp r7	|start at
0.47201	|sta
0.45200	|r t sp
1.03200	|a t sp
sp r26	|pr addr.
td d4
sp r28
cs d3	|mode
cp b45+pa1	|direct operation
sp r1
ca 11k1	|11
sp r10	|print tab
ca p6
sp r25+pa1	|jumps checked for loop
sp r7	|loc, order
0.72633	|uc L O
0.06037	|C sp ss
0.00033	|sp sp O
0.44205	|R D E
1.44000	|R sp sp
csd3
clh2
cp b30+pa1	|changed reg
sp r7	|ac, br
0	|3 s1	|sp sp A
0.07740	|C ss sp
0	|3 spaces
0
2	|sp sp B
0.45740	|R ss sp
1.00000	|3 sp
b30,sp r7	|contents
0.00173	|sp C O
0.35205	|N T E
0.35223	|N T S
1.74757	|lc cg cr
sp r34
ca d3	|mode
clh 2
cp x15+pa1	|not changed reg.
ca k2	|37
ts d5	|initial addr.
ca 3k2	|3740
ts 1d5	|length
ts 2d5	|store type
x15,ca 1b44+pa1	|bi 2000
si17
ts 2000
cak2
bip9
ca b44+pa1	|da of interpretive
si 1713
ca 10k6	|length of perma
ad k8	|length of executive routines
sp 2000	
b44,b26	|da of interpretive
bi 2000
b45,ca d4
sd 3k3	|1.74000, convert to sp
ts 6
sp a7	|start
sp r1
5b45,sp r7	|exit with
0.72270	|uc E X
0.71200	|I T sp
0.57624	|W I T
0.20036	|H sp lc
0.00037	|sp sp ss
1.00000	|3 sp
ca d12	|ac
sp r30	|wi + of
sp r7
1.00000	|3 sp
ca 1d12	|br
sp r13	|o f
sp r7	|from
0.00322	|sp f r
1.66640	|o m sp
ca 2
su 1
sp r3	|pr no
ca 0
ex d1	|exit ind
cp r2	|restore exit
cf 1000
srh 3
sd 5
md 7k1
ck 0
sp b21-1	|a=b, ignore
cf 1000
sd 5
md2k5	|70
sd 5	|deposit a field
ts 5
sp b21-1
|SET NUMBER OF JUMPS CHECKED FOR LOOP
pa1=2000-b57
b57,sp c1-1
md 1k5	|17
ts p6
sp r25+pa1	|pr, jumps checked for loop
sp r34
sp b21
r25,ta 3777
sp r4	|print number
sp r7
0.00525	|sp j u
0.33023	|m p s
0.00150	|sp c h
0.12153	|e c k
0.12200	|e d sp
0.15562	|f o r
0.00633	|sp l o
1.67017	|o p cr
sp 3777
|BLOCK IN SPECIAL PROGRAM
pa1=2000-b4
b4,sp r7
0.72114	|uc B L
0.66153	|O C K
0.01616	|sp I N
0.01233	|sp TO
1.01736	|sp lc lc
ca 4a9	|bi
ts6
sp r26	|pr addr.
td 6
spr7	|pr from
0.00322	|sp f r
1.66640	|o m sp
ao c1
spc1-1
spr13	|of
spr28	|cr
spc1-1
spa10	|execute si
aoc1
spc1-1
spb41	|block-in
spb21
|SET MODE
pa1=2000-b6
b6,spr31+pa1
sp r7	|interested area
0.70724	|i n t
0.13105	|e r e
0.47205	|s t e
0.10001	|d sp a
0.44241	|r e a
spr26	|core address
su1
tsd5
ca1b16+pa1	|1.20000
tsd3	|set mode
cs 2k3	|50
sp r11	|print dash
ao c1
sp c1-1
ts 2d5
md 1k2	|3777
ts 1d5
ad d5
sp r3
sp r9	|cr
sp c1-1
clh1
sd2d5
cpb32+pa1
spr7	|store
0.47233	|s t o
1.44276	|r e lc
cs 2d5
cp b38+pa1
sp r7
0.00056	|sp a n
1.10036	|d sp lc
b32,cs 2d5
cp b38+pa1
spr7	|emps
0.12660	|e m p
1.31571	|l o y
b38,spr7	|type instructions
0.01231	|sp t y
0.40240	|p e sp
0.70723	|i n s
0.51125	|t r u
0.07234	|c t i
1.66723	| o n s
sp b21-1
pa1=2000-b18
b18,sp r31+pa1
spr7	|trace
0.51101	|t r a
1.06240	|c e sp
ca 1k11	|1.60000
sp 5b19+pa1
pa1=2000-b17
b17,sp r31+pa1	|set mode
spr7	|changed register
0.72150	|uc C H
0.02707	|A N G
0.12200	|E D sp
0.44247	|R E G
0.71164	|I S T
1.13136	|E R lc
ca b16+pa1	|1.40000
sp 5b19+pa1
b16,1.40000

1.20000
pa1=2000-b19
b19,sp r31+pa1	|set mode
spr7	|direct
0.11622	|d i r
1.12164	|e c t
ca 0
5b19,tsd3
sp b21-1
r31,ta 3777
spr7
0.73145	|uc S E
0.50015	|T sp M
0.66205	|O D E
1.74000	|lc sp sp
sp 3777
b55,	|set AC, BR
spr7
0.73145	|uc S E
0.50001	|Tsp A
0.06002	|C sp B
1.44036	|R sp lc
aoc1
spc1-1
tsd12	|AC
spr30	
sp r7
1.00000	|3 sp
aoc1
spc1-1
ts1d12	|BR
spr13	|of
spb21-1
|LOOP LIMIT
pa1=2000-b9
b9,spr7
0.72171	|uc C Y
0.06605	|C L E
0.00634	|sp L I
0.33624	|M I T
1.74036	|lc sp lc
ao c1
sp c1-1
ts  2p6
sp r42	|5 digits
sp b21-1
|INDEX CONTROL REGISTER
b36,sp r7
1.60140	|xc
ao 1p6	|control register
sp b21-1
|Change fields
pal = 2000 - b22
b22,sp r7
0.72150	|uc C H
0.02707	|A N G
0.12006	|E sp F
0.70254	|I E L
0.11176	|D S lc
0.00322	|sp f o
1.66640	|m sp lc
sp r5+pal	|print fields
sp r34	|deselect
sp c1-1
sd k5	|-0
ts t1
clh 10
cpw1+pal	|not A field
ca 2k5	|70
sp r8+pal	|process A field
w1,ca t1
clh 11
cpw3+pal	|not B field
ca 7k1	|7
sp r8+pal	|process B field
w3,sp r1	|select
sp r7
0.01233	|sp t o
1.01736	|sp lc lc
sp r5+pal	|print fields
sp b21-1
r5,ta 3777
ca 2d12
srh 3
md 7k1
spr11	|print digit
cs 3k8	|45
sp r11	|comma
ca 2d12
md 7k1
spr11
sp 3777
r8,ta 3777
ts t2
sp c1-1
sd 2d12
md t2
sd 2d12
ts 2d12
ts 5
sp 3777
|utility program request
pa1=2000-b15
b15,sp r7
1.53000	|u p sp
ao c1
sp c1-1
4,ts 15r+pa1
sp r13	|o f
sp r39	|comma, space
ao c1
10,sp c1-1
ts 16r +pa1
sp r13
sp r28
14,sp 31
15,+	|lmir
16,+	|rmir
sp b21
|filler
DITTO
14200|	|start of pre-checker
STA 32
