1401_autocoder Listing 1401 Autocoder
1401_autocoderListing 1401_autocoderListing
User Manual: 1401_autocoderListing
Open the PDF directly: View PDF 
.
Page Count: 211
| Download | |
| Open PDF In Browser | View PDF |
CLEAR STORAGE 1
CLEAR STORAGE 2
BOOTSTRAP
,008015,019026,030,034041,045,053,0570571026
L068112,102106,113/101099/I99,027A070028)027BOOI0270BO 261,001/00111310
,0010011040
,008015,022029,036040,047054,061068,012/061039
1401 AUTOCODER-PASS i-GENERATE SYSTEM TAPE-VERSION 3
-
SEQ PG LIN
LABEL
OP
101
102
1 0.1
1 02
1 03
1 04
1 05
1 06
000
1 07
XRl
JOB
CTl
EQU
EQU
EQU
ORG
DCW
103
-
104
105
106
107
108
109
110
111
1 08
1 09
1 10
116
1
1
1
1
1
1
111
1 11
112
113
114
115
11
12
13
14
15
16
SYSTP
CARD
PRINT
DC
XR2
XR3
ZONE
ABIT
NOBIT
XXXX
...
Dew
DC
Dew
DC
DCW
EQU
EQU
EQU
OPERANDS
CUI
0000
200
0200
3
000
3
2
3
00
000
000000
2SKB
lONE-2
lONE-3
0
START
122
123
1 23
RWO
CC
MCW
124
125
126
1 24
W
1 25
CC
CS
\,.')
128
1 28
129
130
131
1 29
1 30
1 31
...
MCW
132
1 32
NXTBK
133
1 33
134
1 34
1 35
1 36
1 31
135
136
137
138
139
140
141
142
143
144
145
146
147
1 38
1 39
1 40
1 41
1 42
1 43
1 44
1 45
1 46
1 41
333
SYSTP
1
'GENERATING 1401 AUTOCODER SYSTEM',PRINT+32
CARD
2
0089
0091
0094
0096
6
0099
0105
4
0109
4
4
4
4
4
4
4
0101
0106
0000
0333
5
0333
U CUI R
5
2
0338
F 1
7
0340
M *83 232
5
5
1
0347
2
5
1
2
PRINT+132
4
0348
0350
F 1
I 332
5
, . if'"
it
1
0087
000
00
1 21
1 22
12;
INSTRUCTION TYPE
87
... START OF MAIN LINE
1 26
1 21
loeN
(U1
0
it
ORG
SFX CT
PAGE
1401 AUTOCODER-PASS I-GENERATE SYSTEM TAPE-VERSION 3
1 18
120
121
371Il
630 1
1 19
1 20
118
119
1
2
3
1
1\-.,'::,.
U;JJ-r
I
7
0355
M 015 *81
6
1
0362
0363
0370
1
6
C 012 *94
B 792 1
V 726 080 2
B 811 018 9
6
6
6
.&.
CARO+75,SEQNO=4
5
I
~
-'
START OF NEXT BLOCK
it
R
C
BU
Bwl
BCE
sw
LA
cw
CARD+12,'CONTROl'
MACRO
CKSEQ,CARD+80,2
EOJOB,CARD+78,9
CARD+21
CARO+25,HCLD5=5
eARO+21
1
5
8
8
4
0375
0383
,
0391
0395
0402
...
025
)
021
7
0406
0414
0418
B 418 *99 ...
8 429
+ *98 *99
4
0425
8 406
7
4
021
6
1
*99
7
1
it
... FLOAT ADDRESS TO FIVE CHARACTERS
...
FLOAT
BeE
B
lA
B
it
"'+5,HOL05,+
CaMPI
HOLD5-1,HOL05
FLOAT
8
4
7
7
1
7
SEQ PG LIN
148
149
150
151
152
153
154
155
156
151
158
159
160
161
162
163
164
165
166
167
168
169
1'70
171
112
173
174
175
176
177
_
178
. ....
l.f~
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
LABEL
OP
OPERANDS
1 48
1 49
1 50
• TEST ADDRESS AGAINST HOME ADDRESS
.. TO DEVELOP INDEX VALUE
51
52
53
54
1 55
1 56
1 51
1 58
1 59
1 60
1 61
1 62
1 63
1 64
1 65
1 66
1 67
1 6e
1 69
1 70
1 71
1 12
CCr.-PI
1
1
1
1
1 73
1 14
1 15
Ml
S
C
BE
BH
S
MCW
S
A
BAV
MZ
MN
MI
Mew
B
SUBl
MCW
..
..*
B
DOCOR
INSTRUCTION TYPE
1
4
1
5
5
1
0429
y
CARD
Mew
Mew
BWl
n,."..
1 IT An...
BeE
C
BE
HZ
..
'96',WORK5-3
CNVRT+5
WORK5-4,WCRK5
WORK5-3,.+4
lONE,WORK5-2
WORK5.XRl
DOCOR
tOI500',WCRK5
SUB2
t045',XR3
'042',XR2
CKSEQ,CARD+80,2
OfwC
•..
7
0436
0440
0441
0452
0457
0464
0471
5
0478
7
0483
5
7
1
106 *99
S 091
C *99 104
B 538 S
B 521 U
S 109 *99
II 114 119
S *99 119
8
8
8
8
8
8
9
9
TO 3 DIGIT MACHINE ADDRESS
R
82
1 95
1 96
1 91
loeN
7
0490
0495
0502
0509
0516
0523
0527
4
0534
1
0538
0539
0546
1
7
7
4
B 483 I
A /21 /16
B 483 l
y 115 119
0 116 512
y 109 117
M 119 089
9
9
9
9
10
10
10
10
10
10
B 538
M 126 119
B
471
READ CONDENSED CARDS
83
1 84
1 85
1 86
1 90
1 91
1 92
1 93
1 94
NOBIT,HOlD5
XRl+2
HOlD5,'OI50C'
DOCOR
SUBl
'01500',HOlO5
tI6000',WORK5=5
HOlD5,WORK5
..• CONVERT INDEX VALUE
..
CNVRT BAV
*+1
SUB2
80
81
1 87
1 88
1 89
SFX CT
2
it
1 16
1 11
1 78
......
I 1'1
1
1
1
1
PAGE
3111l
1401 AUToCODER-PASS I-GENERATE SYSTEM TAPE-VERSION 3
1
7
8
0553
1
10
M /29 099
M 132 094
V 726 080 2
11
11
11
ftl Ar.1.t\"Ar;.I,J
v
0
nC;;Ll
VJV,-
IJ
SETWM,CARD+40,N
CARO+46,'OOI'
SETWM
ABIT.CARO+45
8
0569
0511
,. .. n
r"I •. L ()
0
T OO,O
Q
L7f:.
VI,.,
OLO
V'"'U
Q
U
1
0589
B 596 040 N
C 046 135
8 596 S
y 101 045
+DOCOR,CARD+11
7
'B'
4
0596
0603
M 139
7
5
0584
1 1
......
11
12
12
12
SET RETURN ADDRESS
SETWM
Mew
MCW
M 138 071
12
12
*
* INDEX WORD MARK ADDRESSES
•
Ca"P2
C
BE
A
A
C
BE
XR2,'063'
CARO+40
+1,XR3
+7,XR2
CARD+l+X2,'040'
*+8
1
5
1
1
7
5
0607
0614
0619
0626
0633
0640
C
8
A
A
094 142
040 S
C
B
0-1 146
652 S
143 099
143 094
12
13
13
13
13
13
-
PAGE
3711L
1401 AUTOCODER-PASS i-GENERATE SYSTEM TAPE-VERSION 3
3
!
SeQ PG LIN
LABEL
OP
OPERANDS
ABIT,CARD+X2
CARD+l+X3 t '040'
COMP2
ABIT,CARO+X3
COMP2
198
1 98
HZ
199
1 99
2 00
2 01
2 02
C
BE
Ml
200
201
202
203
204
205
206
201
208
209
210
211
212
213
214
215
216
211
218
219
220
221
222
223
224
225
226
227
228
229
230
231
2
2
2
2
2
2
2
2
2
2
03
04
05
06
07
08
09
10
11
12
2 13
..
kRITE CORE
....WTAPl
LeA
WTW
BER
CLEAR
2 18
2 19
2 20
2 21
2 22
2 23
2 24
2 25
2 26
2 27
SBR
C
BU
',3998
SYSTP,1500
WTERR
1
XXXX
CLEAR+3
CLEAR+3,'U99'
CLEAR
NXTBK
... CHECK CARD SEQUENCE
.CKSEQ SBR SEQXT+3
B
A
C
MCW
BU
..SEQXT
B
+I,SEQNO
CARD+15,SEQNO
CARD+75 t SEQNO
SEQER
XXXX
2 28
2 29
* CARD SEQUENCE ERROR
2 30
2 31
SEQER
INSTRUCTION TYPE
7
0645
y
7
0652
5
1
4
0659
0664
0671
107 0-0
C 0+1 $--_.
146__ .B 601
Y 107 0+0
CARD
13
14
---T4
14
14
B 607
7
8
5
1
4
4
1
5
4
4
1
7
1
5
0675
0682
0690
14
14
L 141 198
l lUi voo W
8 973 L
15
15
15
0695
0702
0706
0710
0111
0122
I
H
C
8
8
0726
H 759
16
0130
0737
0144
A 154 *81
C 015 *81
M 015 *87
B 160 I
16
16
B 000
16
4
0151
0756
7
0160
M 150 705
000
705
705 153
702 I
15
15
362
15
15
16
16
it
232
eARD+BO,PRINT+80
MCW
CHAIN 6
MCW
Mew
MCW
Mew
Mew
Mew
233
234
235
236
237
238
239
240
241
242
243
244
CS
LOCN
ON TAPE
.
.. CLEAR INPUT AREA
..
MCW
• 199' ,CLEAR+3
2 14
2 15
2 16
2 11
B
SFX CT
'SEQUENCE ERROR',PRINT+98
H
B
0,116
245
246
2 40
C
241
2 41
BU
..
1
0167
M
1
1
0768
0769
0710
M
1
1
1
Mew
W
2 32
2 33
2 34
2 35
2 36
2 37
2 38
2 39
DOSEQ
M 080 280
0111
0172
M
M
M
M 168 298
11
17
11
17
17
17
2
18
18
B
• 000 176
941
18
0192
N 911
0796
0803
C 020 173
B 917 1
18
18
18
1
0713
0780
1
4
0188
It
7
5
1
M
11
MACRO
GEN
GEN
GEN
SEN
GEN
GEN
0781
18
.. PROCESS MACRO LIBRARY
..
MACRO
NOP
CRDER
CARD+20,'HEAOR'
CRDER
1401 AUTOCODER-PASS I-GENERATE SYSTEM TAPE-VERSION 3
SEQ PG lIN
248
2 42
249
2 43
250
2 44
251
252
2
2
2
2
2
253
254
255
256
251
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
213
274
275
276
217
278
",)'"?ft
Lf7
45
46
41
48
49
BWl
CKSEQ,CARD+80,2
fS'.MACRO
• ',CARD+81
•
•
LCA
WTAP2
WI
8ER
C
BE
BWl
2
2
2
2
2
2
2
2
69
.,~
• .;J
283
11
286
287
2
2
288
289
290
291
292
293
2
2
2
76
*
EOJOB
2 85
•
HALT
loeN
INSTRUCTION TYPE
8
1
0808
1
0823
Y 726 080 2
M 139 192
l 141 081
19
19
19
8
5
0830
M CUi 001 W
B 973 l
19
19
COli 119
B 868 S
20
0816
CARD
7
5
1
0838
0843
0850
0855
0856
20
20
0864
1
V 126 080 2
B 830
0868
0813
U {U1 M
8 362
20
4
SYSTP
SYSTP
5
5
0817
0882
U CUi M
U (U1 R
21
0881
)
141
PRINT+132
It
4
0891
'1401 AUTOCODER SYSTEM GENERATED ON TAPE UNIT 1',246
1
7
1
1 332
I
0896
0903
2
1
2
0904
F 1
21
21
21
21
21
22
0,142
7
0906
'*
0913
B 906
4
0917
0921
I
I
0922
0929
0930
0931
M S52 227
2
• 000 117
CKSEQ,CARD+80,2
WTAP2
SYSTP
NXTBK
, ,
H
B
HALT
*
8
4
5
20
20
20
0895
M S25 246
21
• 000 142
22
22
* MISSING CONTROL CARD
*
CRDER
HAlT2
CS
CS
MCW
W
H
B
PRINT+132
1
'SYSTEM ceNTRal CARD MISSING',PRINT+27
0,111
HALT2
7
1
1
4
332
22
22
22
22
B 930
23
23
** AFTER SEQUENCE ERROR, CHECK BALANCE OF DeCK
*
DOSEQ
R
BWl
BCE
B
ENDSQ
90
2 91
SFX CT
*
* FINAL HALT
81
88
89
WTM
RWD
CS
CS
MCW
W
CC
2 86
2
2
2
2
WTM
B
cw
78
19
80
81
82
83
84
4
* END OF GENERATION
66
2.., 72
285
•
65
2 70
2 11
L
WTTM
62
63
64
67
68
SYSTP,CARD+!
WTERR
CARO+ll.'999999'
WITM
R
B
2 59
2 60
2 61
PAGE
* WRITE SKELETON INSTRUCTIONS ON TAPE
2 54
2 55
2 56
2 57
2 58
2
2
2
2
295
296
297
OPERANDS
2 53
2 74
2 75
294
OP
Mew
2 50
2 51
2 52
280
281
282
284
LABEL
3111l
H
B
*
CKSEQ,CARD+80.,2
ENDSQ,CARC+18,9
DOSEQ
0,152
ENDSQ
1
0941
1
23
8
0942
0950
V 126 080 2
23
8
7
0958
0962
4
0969
4
962 018 9
B 941
• 000 152
B 962
B
23
23
23
24
3711L
1401 AUToeOCER-PAS5 i-GENERATE SYSTEM TAPE-VERSION 3
SEQ PG LIN
298
299
92
300
301
302
303
2
2
2
2
2
2
304
2 98
305
2 99
306
307
308
309
3 00
3 01
310
311
312
313
93
LABEL
QP
*
SBR
5BR
96
91
BSP
95
0913
0971
H 099
HZ
+9,XR3
4000-6+X3,RETRY+7
SYSTP
SY5TP
5UBCT,WTCT-l,1
+1,WTeT=2
SYSTP,XXXX
SSP
XXXX
WTtT
0,161
RETRY
'GENERATING 1401 AUTOCODER SYSTEM'
=04
'CONTROL'
=05
'01500'
'01500'
'16000'
7
7
A
WT
BER
WTXT
SUBCT
B
128
133
SEQNO
138
HOL05
S
H
B
Dew
WORK5
=05
'96'
'01500'
'045'
'042'
'001'
+OOCOR
1B7
'B'
CARD
5
5
5
5
2
5
3
3
3
3
1
000
25
25
,1041
1048
1083
B *20
• 000 161
26
26
+9
=02
START
3
1
14
5
6
46
27
1
2
24
24
25-
*37 554 1
154 S55
25
25
25
CUI 000 W
995 L
1139
LIT
AREA
LIT
AREA
LIT
lIT
LIT
AREA
LIT
LIT
LIT
LIT
LIT
AOCON
LIT
1.-" •
1087
1094
1099
1104
1109
1114
1119
1121
1126
1129
1132
1135
1138
1143
1
3
24
S 555
1
3
J
24
1037
+7
,'040'
,
'1401 AUTceCDER SYSTEM GENERATED ON TAPE UNIT I'
'SYSTEM CONTROL CARD MISSING'
EX
5
Y 553 099
114 *21
CUI B
(UI E
1028
1033
1013
1020
1 '1 I. ~
.L .... ..,.,
'999999'
WTCT
It
4
7
4
32
4
7
24
24
H *36
M
U
U
8
A
M
8
8
'2
'SEQUENCE ERROR'
iHEADR'
238
1
8
5
0988
0995
1000
1005
...,...,.."
+1
246
256
271
284
5
5
8
0981
'n~~t
'199'
'U99'
3 08
4
Mew
BSP
SKP
BCE
110
314
INSTRUCTION TYPE
4
RETRY
307
lOCN
WTXT+3
XR3
3 02
3 03
3 04
3 05
3 06
3 07
123
153
156
157
157
SFX CT
5
* WRITE REDUNDANCY ROUTINE
WTERR
94
OPERANDS
PAGE
538
I
TT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
lIT
LIT
AREA
1146
1147
1150
1153
1154
1168
1113
1179
1225
1252
1253
1255
B 333
21
21
28
28
28
28
28
28
28
29
29
29
29
29
29
41')1'\
1:.7
30
30
30
30
30
30
30
31
31
33
33
33
33
34
1401 AUTOCODER-PASS 1 SELECT PROGRAM
SEQ PG LIN
315
316
317
3 09
3 10
3 11
318
3 12
319
3 13
3 14
3 15
320
321
3 16
LABEL
PASSA
OOPSA
SYSTP
OP
OPER.ANDS
JOB
SFX
EQU
EQU
B
EQU
-VERSION 3
37I2L
SFX CT
1401 AUTOCODER-PASS 1 SELECT PROGRAM
1650
1900
(Ul
LoeN
PAGE
INSTRUCTION TYPE
6
CARD
-VERSION 3
1650
1900
lUI
B
B
B
** BRANCH FROM TAPE LOAD BUTTON
..
322
323
3 17
QRG
1
324
3 18
B
333
325
326
3 19
3 20
.3 21
3 22
3 23
3 24
H
*-3
'599'
87
000
B
B
B
3
0089
00
B
2
000
B
3
00
B
8
B
2
3
0091
0094
0096
0099
38
38
38
38
38
2
0101
38
5
4
0333
0338
0342
0346
0350
0357
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
LOADO
XRl
Dew
DC
3 25
3 26
3 27
3 28
3 29
3 30
3 31
3 32
3 33
3
3
3
3
3
34
..
CLEAR
333
8ER
HALTl
GMRK1
3999
CLEAR+3
ClEAR+3,'U99'
CLEAR
es
349
350
351
3 45
352
353
3 47
SW
RT
BEF
354
3 48
8
355
3 49
3 50
3 51
356
351
358
359
RT
C
au
3 46
4
3
0001
0005
8 333
• 005
0011
31
37
37
0087
B
SYSTP,GMRKl-21
GMRKl-2,'999999
LOOPl
GMRKI
SYSTP t GMRKl-1
TSTSS
LOOP1
HEAOR'
8
8
4
a
1
8
5
8
8
4
8
4
0333
8 407 L
, 835
I 199
H 345
C 345 181
B 342 I
,
39
39
39
39
39
39
B
7
8
B
5
0362
0366
0374
0381
4
0386
B
8
8
5
M
B
B
4
0390
0398
0403
• 000 199
8 401
B 521 F
41
41
,
41
835
39
(Ul 814 R
C 833 802
B 362 I
t
835
40
tUl 834 R
418 K
40
M
B 362
40
40
40
40
41
*
* REDUNDANCY ON TAPE LOAD
*
3 52
3 53
HALTI
360
3 54
TSTSS
361
363
3 55
3 56
3 57
364
3 58
362
B
B
*
* GET PAST LIBRARY
*
GMRKI
LOOPI SW
3 41
3 42
3 43
3 44
348
00
ORG
SBR
C
BU
36
000
0001
4
PROGRAM
SW
37
3 39
3 40
DCW
DC
..* BEGIN
35
38
DCW
ORG
DCW
DC
B
B
B
•
•
H
0,199
a
7
B
HALTl
LIBRN.F
8
B
4
5
0407
0414
0418
B
4
0423
ass
41
• RETRIEVE PASS 2 FOR ASSEMBLY RUN
SW
GMRKI
835
1401 AUTOCODER-PASS 1 SELECT PROGRAM
SEQ PG LIN
365
366
361
3
3
3
3
LABEL
59
OPERANDS
LeA
GMRK1,3998
+PASSA+13,NOIS2+6
Mew
60
61
OP
0434
LDPSAtBYCT,4
B
B
0441
0449
SYSTP,PASSA
NOISE
+1,BYCT=l
lOOP2
8
B
8
4
8
B 476 807 4
3998
l (Ul W50 R
8 637
8
7
4
0453
0461
0465
0472
SYSTP,PASSA
NOISE
RDERR
GMRK1
PASSA-l
ClR+3
CLR+3,lOADD
ClR
DOPSA
B
B
8
0476
l
4
0484
5
0488
0493
B 631
B 616 l
) 835
I W49
'-13',NOIS2+6
GMRKI
OUTPT,B
~1~.
~_!l6
..
BCE
SW
RTW
313
3 61
314
375
376
377
378
319
380
381
382
3 68
3 69
3 10
3 71
383
3 71
384
3 18
SBR
385
386
387
388
3 19
3 80
3 81
C
391
392
393
394
395
'l.O~
lOPSA
B
3 75
BER
CW
CS
3 76
81
':t
Q~
397
398
3 91
3 92
3 93
3 94
3 95
3 96
3 97
3 98
3 99
4 00
408
409
RTW
3 14
3 88
3 89
·IV
4 01
4 02
410
4 03
4 04
411
412
413
414
4 05
4 06
4 01
4 08
CARD
41
41
B
4
,
198
A 806 807
B 441
42
4f42
42
42
42
.. PASS 2 FOUND
3 73
.."
399
...
...
...JI ., ....
400
401
402
403
404
405
406
401
B
A
B
3 72
3
1
*
311
3 83
3 84
3 85
3 86
l 835 198
M 805 658
0421
7
lOOP2
389
390
INSTRUCTION TYPE
1
3 64
3 65
3 82
loeN
B
... GET PAST LIBRARIAN
369
370
SFX CT
B
62
3 63
368
PAGE
3712L
-VERSION 3
CLR
au
•..
B
B
4
4
0497
4
7
5
4
0501
0505
B
1
B
B
4
0521
0528
5
8
B
B
B
B
0512
0511
43
43
43
43
H 500
43
43
C 500 011
8 497 I
B ZOO
44
44
43
LIBRARY RUN
*LIBRN
•...
B
8
(Ul W50 R
Mew
CW
8SS
44
44
0532
M 610 658
) 835
8 558 B
0531
0545
l (U1 -00 R
B 637
0549
0554
B
44
44
45
45
44
RETRIEVE UPDATE PROGRAfI
*'
BER
SYSTP,2000
NOISE
RDERR
B
2000
RTW
B
..
B
B
B
B
4
5
4
676 l
B -00
* RETRIEVE OUTPUT PROGRAM
•QUTPT
RTW
B
SW
LeA
RTW
B
RTW
B
SW
RTW
B
SYSTP,2000
NOISE
GMRKI
GMRKl,3998
SYSTP,2000
NOISE
SYSTP,2000
NOISE
3998
SY$TP,2000
NOISE
fUI -00 R
637
B
8
8
0558
0566
0510
0574
0581
4
0589
l 835 198
l (U1 -00 R
8 631
6
8
B
B
8
4
0593
0601
l lUi -00 R
B 637
4
8
0605
B
4
0611
8
B
8
It
B
B
1
4
0609
L
B
,
t
835
198
L (ut -00 R
B 637
45
45
45
45
46
46
46
46
46
46
47
1401 AUTOCODER-PASS 1 SELECT PROGRAM
SEQ PG LIN
415
4 09
416
417
418
4
4
10
11
4 12
419
420
421
422
423
424
4 13
425
426
421
428
14
4 15
4 16
4 17
4 18
4 19
4
LABEL
BER
CW
RDERR
GMRK1,3998
2000
SFX CT
BCE
BCE
BCE
BCE
BeE
BeE
BCE
BeE
BeE
BeE
BeE
BeE
432
433
434
435
436
437
* READ REDUNDANCY ROUTINE
*
XRl
RDERR SBR
RDXT+3
SBR
+9 t XRl
Ml
Mew 4000-10+Xl,ROTRY+1
..,0.
0621
0626
B 616 l
B
4
0633
B -00
4"1
B
4
B
0631
0641
0645
0652
H 615
H 089
Y 811 089
41
41
47
B
4
7
8
8 IY8 000
48
B
B
1
1
B
B
B
1
1
0660
0661
0662
0663
0664
0665
0666
0661
0668
0669
0610
0671
0612
•
B
B
0
1
1
1
1
1
1
B
1
1
B
4
B
4
4
0103
0710
0718
0123
L (Ul 000 R
B 121 l
B 000
5
4
452
453
4 35
aWl
454
455
456
457
4 36
4 37
4 38
H
0,191
B
MCW
RTW
B
4 39
ass
458
4 40
4 41
4 42
H
RDTRY+7,*-+a
SYSTP,O
BSP,E
0,111
ROXT
B
8
a
8
a
B
B
B
B
B
5
7
8
7
1
8
5
1
4
3
a
a
15
3
B
1
0121
0132
0139
0147
0754
0761
0769
0714
0781
V
0806
j"
'V.IL
49
49
50
50
50
c::n
",v
0
U
50
51
51
51
51
51
51
M 811 812
U
cut
B
S 806 812
V 110 812 B
.000 191
52
52
M "111 768
52
52
52
52
L lUI 000 R
B 698 E
• 000 111
8723
0185
LIT
0787
0802
0805
49
49
50
I
8
48
48
49
49
H 089
H 726
V Bll 089
11
'"'V "IV
48
48
49
1\'00.
B
HEADR'
B
48
48
6 000
J
ROXT
LTORG *
Dew
'U99'
'999999
+PASSA+13
+1
B
c;:
4 32
4 33
4 34
B
8
Q
7
asp
GEN
GEN
GEN
GEN
GEN
B
U
8
S
B
8
IlO 717
B
.., f £
B
B
101
B
i
8
0691
+9,RDCT=1
SYSTP,O
*+5
0
SYSTP
+l,RDCT
ROTRY,ROCT,e
~
B
7
Mew
RTW
BER
4 29
u~r
GEN
GEN
GEN
GEN
GEN
GEN
1
ROTRY
U~~
0616
GEN
0680
0684
4 30
4 31
349
366
835 198
B
B
8
~V<::TO
460
)
MACRO
D~D
459
47
47
5
Q~D
451
CARD
1
B
4 22
4 23
c..u
INSTRUCTION TYPE
B
B
B
B
B
NOSXT
24
25
26
27
lOCN
8
B
B
B
B
4 20
4 21
4
4
4
4
.,.L
PAGE
*
* TEST FOR NOISE RECORDS
*
NOSXT+3
NOISE SBR
SBR
XRl
+9,XRl
HZ
4000-12+Xl,Q,
NOIS2 BeE
CHAIN 12
430
431
439
440
441
442
443
444
445
LL..1..
.,..,.u
447
448
449
450
OPERANDS
B
429
438
OP
3"712L
-VERSION 3
W63
53
LIT
53
AOCON
LIT
53
53
1401 AUTOCODER-PASS 1 SELECT PROGRAM
SEQ PG
461
462
463
LIN
LABEL
374
Byer
447
4 43
RDCT
4 44
GMRKI
4 45
OP
Dew
Dew
EX
OPERANDS
-VERSION 3
loeN
INSTRUCTION TYPE
CARD
1
3
0807
0810
0811
0812
AREA
LIT
53
B
8
+9
B
1
=01
=22
8
1
22
0
,
9
SFX CT
=01
1-13'
t
PAGE
3112L
B
8
B
1
Ltt-···_AREA
53
53
54
54
0834
0835
B 000
54
55
1401 AUTOCODER-PASS 1 RETRIEVE UPDATE
SEQ
PG LIN
464
465
466
467
468
469
470
471
412
413
474
475
476
477
418
479
4 46
4 41
4 48
4 49
4 50
4 51
4 52
4 53
LABEL
JOB
SFX
SYSTP EQU
LTAPSW EQU
ORG
ass
cw
START
4 54
4 55
480
4 56
4
57
0,111
B
333
ENDRT
ENORT,1998
SYSTP,333
GET
LIST
SYSTP
SYSTP
ENDRT,1998
LTAPSW
'333',ROTRY+6
t333',AGAIN+6
SYSTP,333
RDERR
4 65
awz
496
H
499
4 66
4 67
4 68
4 69
500
4 70
501
4
502
4 72
4 73
504
505
506
507
508
509
510
511
512
513
ENDRT
H
494
503
2000
lIST,G
RTW
SSS
B
495
498
(Ul
2725
ROERR
333
SYSTP
+9,RDCT=1
SYSTP,1
*+5
333
SYSTP
+l,ROCT
RDiRY,RDCT,B
0,191
SYSTP,l
ROERR,E
4 58
4 59
4 60
4 61
4 62
4 63
4 64
497
1401 AUTOCODER-PASS 1 RETRIEVE UPDATE
R
RTW
SYSTP,l
START,013,
BeE
CHAIN 12
BeE
BCE
BeE
BeE
BCE
BCE
BeE
BCE
BeE
BeE
BeE
BER
485
493
OPERANDS
BeE
481
482
483
484
486
487
488
489
490
491
492
OP
71
4 74
4 75
4 76
4 17
4 18
4 19
4 80
4 81
4 82
4 83
RDERR
ROTRY
BSP
MCW
RTW
BER
B
SSP
S
AGAIN
LIST
GET
sw
LCA
RTW
SEF
B
SSP
BSP
CW
SW
Mew
Mew
RTW
8ER
-VERSION 3
3713L
SFX CT
LoeN
PAGE
INSTRUCTION TYPE
10
CARD
-VERSION 3
R
R
R
R
R
R
R
(Ul
2125
2000
5
4
8
8
2000
2005
2009
2011
58
B J26 G
) K12
L lUI 001 R
B -09 013
58
58
58
MACRO
GEN
R
1
2025
R
1
2026
R
R
R
R
R
R
R
R
R
R
R
R
1
1
2027
1
1
1
2029
2030
B
GEN
GEN
GEN
2031
8
GEN
59
59
1
1
1
2032
2033
2034
B
B
1
2035
B
GEN
GEN
GEN
GEN
59
59
60
1
2036
2031
2042
2046
2051
8
GEN
5
R
4
5
R
7
R
R
R
R
R
8
5
4
.,0
5
7
g
2028
2058
2066
2011
2075
2080
8
B
B
B
8
GEN
GEN
B
-46 L
333
U fUI B
M K06 K01
l lUI 001 R
8 -75 L
B
B
B 333
U IUl B
S K08 K07
c:.vv
?n07
f
\I
R
R
R
R
R
R
R
R
R
R
R
R
R
7
2095
2102
2110
2115
2122
2126
2130
2131
• 000
L (UI
B -46
• 000
B 333
R
4
7
R
R
R
R
8
5
7
4
4
7
8
5
2145
4
2150
2154
2159
2164
2171
2175
2182
2189
2197
5
5
7
7
8
5
"
t
.
_c;o
Iln7
JV
v
"'"
B
191
001 R
E
111
K12
l K12 Z98
L (Ul 333 R
S J54 K
B J26
B
U (Ul B
) K12 198
t P25
MKl1 -64
M Kll J08
L (Ul 333 R
8 -46 L
U (Ul
58
58
58
59
59
59
60
60
60
60
60
60
61
61
61
61
61
61
62
62
62
62
62
62
63
63
63
63
63
63
63
64
64
64
64
1401 AUTOCODER-PASS 1 RETRIEVE UPDATE
SEQ PG LIN
514
515
LABEL
4 84
4 85
489
OP
OPERANDS
6
333
lTORG
RDCT
Dew
*
+9
=01
+1
1333 1
516
511
4 86
4 87
ENORT
Dew
EX
• •
0
-VERSION 3
PAGE
3713L
SFX CT
R
R
R
R
R
R
R
R
lOCN
INSTRUCTION TYPE
4
2202
B 333
2206
1
1
1
3
1
22()6
AREA
liT
LIT
8 000
CARD
64
LIf"
2207
2208
2211
2212
11
----64
64
65
65
65
66
1401 AUTOCOCER-PASS 1 COpy SYSTEM TAPE
seQ
PG LIN
518
4 88
4 89
519
520
521
522
4 90
4 91
4 92
LABEL
XRl
523
524
525
526
521
4 93
4 94
XR2
4 95
4 96
4 97
XR3
528
4 98
4 99
5 00
5 01
5 02
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
541
5lt8
r ' J . ,..
:. ..... ":1
550
551
552
5
5
5
5
03
554
555
556
5 25
5 26
557
558
559
5 27
5 28
5 29
5 30
5 31
5 32
5 33
560
561
562
563
564
565
566
567
•
5 34
5 35
5 36
5 31
JOB
SFX
U
SFX CT
1401 AUTOCODER-PASS 1 COpy SYSTEM TAPE
81
Dew
DC
DCW
DC
Dew
DC
EQU
EQU
EQU
000
U
U
00
U
000
00
000
00
(Ul
(U6
INSTRUCTION TYPE
CARD
0087
3
2
u
3
2
3
U
2
U
U
1500
loeN
12
-VERSION 3
ORG
ORG
SW
RWD
RWD
ec
CS
es
05
06
5 07
5 08
5 09
5 10
5 11
5 12
5 13
5 14
5 15
5 16
5 11
5 18
r
:::J
""
.1'
5 20
5 21
OPERANDS
PAGE
3714L
69
69
69
69
69
69
0089
0091
0094
0096
0099
0101
U
(Ul
U
(U6
U
1500
** BEGIN PROGRAM
04
5 22
5 23
5 24
553
SVSTP
OUTAP
INPUT
OP
-VERSION 3
B
ass
333
ENDUP
SYSTP
OUTAP
1
332
U
U
U
U
u
CLEAR
COPV.C
** RETRIEVE UPDATE PROGRAM
*
SYSTP,INPUT
RTW
SBR
MN
sw
nl"il
U\",ft
•
u
4
1
U
4
U
5
U
8
U
0394
L (U6 VOO W
B 928 L
U
4
U
8
B
BER
A
B
vao R
a 159
a 798 L
U
U
B
L (Ul
H 089
0385
0389
5
B
5
4
B
7
5
B
5
B
/ 332
I
8 *21
B 525 C
1\.., 01.
V.:;JO"'9
J
4
BCE
RTW
DCW
U (U6 R
F 1
c::
U
U
U
U
U
HEADR'
0363
0371
0375
0379
10
10
10
It
U
SU
RTW
BEF
0353
0354
0358
139
U (U1 R
1
NOISE
RTW
0349
0333
U
ROERR
OUTAP,INPUT
WTERR
CLEAR
SYSTP,INPUT
INPUT+19,'999999
BYPSS
SYSTP,INPUT
GETUP
SYPSS
lDUPD,BYCT,3
SYSTP,INPUT
'NOOOOOOOOOOOOO'
NOISE
ROERR
+1,BYCT=1
GETUP
0331
0342
0347
,
U
u
~nvvvv'
0.333
4
4
BER
WTW
BER
C
GETUP
.....In nn 1'\
U
B
B
SYPSS
XRl
O+Xl
4
5
5
2
U
U
U
U
U
14
4
5
0402
0401
0411
0419
0426
0431
0439
0444
0448
0456
0477
0478
0482
U
U
1
0487
U
4
0494
0 0*0
t
8 4:21
l lUI VOO R
C V19 *70
I
L (Ul VOO R
B 448 K
B 411
B 498 *12 3
l (U1 VOO R
B 411
70
10
70
10
71
71
71
11
71
"7"
, ..L
11
12
12
72
12
12
72
73
73
73
13
73
13
8 159
74
74
B 798 l
A *71 *72
B 448
74
74
74
1401 AUTOCODER-PASS 1 COpy SYSTEM TAPE
seQ
PG LIN
LABEL
OP
OPERANDS
568
5 38
5 39
5 40
5 41
5 42
LDUPO
CS
CS
SW
SW
199
80
573
5 43
514
575
5 44
..
....
6,16
21
HEAD
BEGIN
569
510
511
512
516
577
578
519
580
581
582
583
584
585
586
587
588
5 45
5 46
5 47
5 48
5 49
5 50
5 51
5 52
5 53
5 54
5 55
594
5 56
5 51
5 58
5 59
5 60
5 61
5 62
5 63
5 64
.595
5 65
596
5 66
5 61
5 68
589
590
591
592
593
597
598
~ ..... '"
;)"'7":1
600
601
~
;)
I
"
0":1
5 10
B
B
COpy
BER
..
*
SWICH
606
5 16
5 71
5 18
5 79
5 80
5 81
5 82
614
615
616
617
5
5
5
5
84
85
86
87
SYSTP,INPUT
XR1
O+Xl
EOF
NOISE
RDERR
WTAPl
lIBSW
INPUT+10,'999999'
WTAPl
LIB5W=1
..
OUTAP,INPUT
wrAPl WTW
WTERR
BER
..
.. 00 NEXT BLOCK
.
CLEAR
REOUT B
COpy
B
..
..
5 83
LoeN
INSTRUCTION TYPE
U
4
0498
U
4
0502
U
U
i
·O~'-O6
I 199
I 080
4
0513
,
,
U
4
U
4
0517
0521
B N32
B VOO
U
U
4
l lUI voo R
H 089
0 0*0
B 601 K
B 759
16
B 798 L
16
N 580
16
*19
76
77
CARD
74
--------- 75
-006 016
-~r5--
15
75
15
021
U
U
4
1
0525
0533
0531
0541
U
5
0542
U
U
4
0547
0551
U
U
U
U
U
4
4
8
5
•
75
75
76
76
76
7
5
4
0556
0560
0564
0571
0516
t
C VIO *18
71
77
8 580 I
)
*79
*
EDF
611
Sf X CT
.. WRITE TAPE
5 75
612
613
sw
BU
CW
605
610
NOP
C
5 74
609
13
.. TEST END OF LIBRARY
603
601
608
RTW
SBR
MN
SW
BEF
B
604
602
PAGE
3714l
COpy SYSTEM
11
5 12
5 73
5
-VERSION 3
U
8
0580
U
5
0588
L (U6 voo
B 928 l
U
4
U
4
0593
0597
8 *21
B 525
17
77
0601
0606
0614
0618
U (U6 M
V 727 *80 1
78
18
18
W
71
17
.. END OF FILE
WTM
8ft
B
..
•
.
LeA
BW
B
DUIAP
ISMOR,EOFSW=1
CLEAR
ENDUP,3998
ERASE,UPDSW
HALTI
U
U
5
U
8
4
7
U
8
U
4
0625
0633
U
5
8
0631
0642
8
0650
0658
U
B *21
l 139 198
V 631 126 1
78
8 669
78
78
ERASE TAPE
ERASE
SKP
WT
BeE
A
OUTAP
OUTAP, INPUT
HALTl f SKPeT-l,2
+I,SKPCT=2
U
U
U
7
U (U6
E
M CU6 voo W
B 669 *81 2
A *71 *82
79
79
79
79
1401 AUTOCODER-PASS 1 COPY SYSTEM TAPE
SeQ PG LIN
618
619
620
621
622
623
624
625
626
627
628
5
5
5
5
5
5
5
5
5
5
5
5
88
89
90
91
92
04
6
635
6 05
636
637
06
6 01
6 08
6 09
6 10
6 11
6 12
6 13
6 14
643
644
645
646
6
6 15
648
6 16
6 11
6 18
LAO
L
650
651
6 21
652
653
6 22
6 23
647
U'"T":I
V
ERASE
10
..... 7
*
HALTl
CPYND
MCW
Mew
SW
B
IS~OR
..
'1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6',243
1
CPYND,UPDSW=1
OUTAP
SYSTP
0,122
CLEAR
SKPCT
'N',SWICH
EOFSW
COpy
BW
CW
Mew
B
BDEOf,LIBSW
EOFSW
'S',SWICH
REOUT
*' FALSE END OF FILE
*BDEOF asp
OUTAP
..
..
..
B
INSTRUCTION TYPE
4
0665
B 637
U
7
U
0669
0616
M
2
F
V
U
U
CARD
19
U
1
2
U
8
U
U
U
5
5
1
U
U
4
4
u
U
U
1
4
4
0712
0719
0723
U
U
u
8
4
0727
0135
1
0739
U
4
0146
u
5
U
4
0150
0155
11
V
~.
-r
UfJ7
0677
0619
0681
0692
0697
0104
0108
125 243
79
80
1
80
692 126 1
80
80
(U6 R
(Ul R
• 000 122
B *21
S *82
H 127 556
, t80
B 525
80
U
80
80
81
81
81
81
REOUT
I\.In"f~C
"v"".J ....
~DD
~un.
A.tn~VT..L"'2
.'tV,,","" t -.-..,
XR2
+9,XR2
4000-26+X2,INPUT+13,
BeE
CHAIN 12
BeE
BeE
BCE
BeE
BCE
BeE
BeE
BCE
BeE
BeE
BCE
BCE
SBR
MZ
NOIS2
656
658
659
660
661
662
663
NOSXT
..
V 750 *79 1
81
)
81
tao
M 128 556
B 593
81
82
8 593
82
82
n
u
...n..,
I "7 ,
H
094
0'
U (U6 B
TEST FOR NOISE RECORDS
657
6 25
lOCN
*.. SET UP COpy OF REST OF SVST EM
655
667
SFX CT
14
*'
654
6 24
BW
RWO
RWD
H
B
S
6 20
664
665
666
PAGE
.. END OF COpy RUN
98
6 03
642
B
CC
633
640
641
..
94
95
96
91
634
638
639
OPERANDS
W
631
632
630
OP
93
99
6 00
6 01
6 02
629
LABEL
3114L
-VERSION 3
8
0
l\"'7rn
U
U
4
1
0163
0761
U
8
0774
0 ....
82
y 129 094
B IP4 V13
82
82
MACRO
u
u
1
0782
B
GEN
83
1
B
GEN
83
U
1
B
1
1
GEN
GEN
83
U
0783
0184
0785
0786
GEN
83
GEN
GEN
GEN
83
83
84
84
84
U
u
u
1
u
1
1
1
U
1
U
U
1
0787
0188
0189
0790
0791
0792
1
0793
U
4
0194
U
B
8
B
8
B
B
B
B
B
8 000
GEN
GEN
GEN
GEN
83
84
84
84
1401 AUTOCODER-PASS 1 COpy SYSTEM TAPE
SEQ PG LIN
LABEL
OP
OPERANDS
6 28
6 29
6 30
6 31
6 32
6 33
6 34
6 35
6 36
6 37
6 38
6 39
6 40
6 41
6 42
6 43
6 44
6 45
6 46
6 47
6 48
6 49
6 50
6 51
6 52
6 53
6 54
6 55
6 56
READ REDUNDANCY ROUTINE
*
RDERR SBR
RDXT+3
XR3
SBR
+9,XR3
HZ
Mew 4000-24+X3,ROTRY+1
MN
RDTRY+3,BSPl+3
asp
SVSTP
BSPI
Mew +9,ROCT=1
SYSTP,O
RDTRY RT
BER
*+5
RDXT
B
0
RDTRY+3,BSP2+3
MN
SYSTP
SSP
BSP2
+ltROCT
S
RDTRY,RDCT,B
aWl
MN
RDTRY+3,*+7
0,190
H
RDTRY+7,*+8
MCW
SYSTP,Q
RT
BSP1,E
ass
H
0,111
ROXT
B
*
* WRITE REDUNDANCY ROUTINE
*
WTXT+3
WTERR SBR
XR3
SBR
+9,XR3
MZ
Mew 4000-6+X3,WTTRY+7
MN
WTTRY+3,BSP3+3
699
6
O~"':J
700
701
102
103
704
105
706
707
708
709
710
711
712
713
714
115
116
717
r--.
.:;J'
... ...
~
~
... t" f t
~.I'"
Ar ..
D~t'"
UVIAt'"
6 58
SKP
6 59
6 60
BCE
SYSTP
SUBCr,WTCT-l,l
+1,hTCT=2
OUTAP,O
SSP3
0
WTCT
WTTRY+3,*+7
0,160
WTTRY
6 61
6 62
6 63
6 64
6 65
6 66
6 67
6 68
6
6
6
6
6
6
69
70
11
12
73
74
6 75
PAGE
3714l
3
SFX CT
tOeN
4
4
7
0198
0802
0806
0813
0820
0827
0832
0839
0841
0852
0856
INSTRUCTION TYPE
15
CARD
*
668
669
670
671
672
673
614
675
616
677
618
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
6 26
6 21
-VERSION
A
WTTRY
WTXT
SUBer
WT
BER
8
S
MN
H
B
*'
*' CLEAR OUTPUT AREA
*'
ClRXT+3
CLEAR SBR
Mew
CLR
CS
SBR
C
'I99',CLR+3
3999
ClR+3
CLR+3,+INPUT-l
U
U
U
U
U
7
U
7
5
1
8
5
4
1
5
7
U
8
U
U
U
U
7
7
7
u
U
U
U
U
H
855
H 099
Y 129 099
M IG6 846
0 842 830
(Ul B
M 129 130
U
M (U1 000 R
B 856 L
B 000
5
7
4
0868
0875
0883
0890
0897
0904
0912
0911
OQ24
0 842 866
U (Ul 8
S *71 130
V 839 130 B
0 842 896
• 000 190
M 846 911
M (Ul 000 R
B 827 E
• 000 111
8 852
U
4
4
7
1
7
0928
0932
0936
0943
0950
H 099
Y 129 099
M 114 989
0 985 960
II
c::
:J
V7:J.
nn.:--,
II
U
U
U
5
0962
0961
0975
0982
0990
0995
0999
1003
1010
1017
U (U1
B 999
A *11
M (U6
B 951
B 000
S /32
0 985
• 000
B 982
1021
1025
1032
1036
1040
H
U
U
u
U
U
U
U
U
U
V
8
8
1
U
8
U
U
5
4
U
U
1
U
7
U
4
U
U
4
7
U
4
U
4
7
U
4
OB63
H 998
V
IIIL
lUO
£)
84
85
85
85
85
85
85
86
86
86
86
86
86
87
87
87
81
87
88
88
88
88
88
88
88
89
on
0
07
E
89
89
89
90
90
90
90
90
90
90
131 1
132
000 W
l
*16
160
*55
M 135 *35
1 199
H *35
C *35 138
91
91
91
91
91
1401 AUTOCODER-PASS 1 COpy SYSTEM TAPE
SEQ PG LIN
718
119
6 16
6 77
720
6 78
1070
1
1
6
1071
1072
1018
1019
U
LIBSW
EOFSW
SKPCT
6 80
15
U
0
591
717
6 19
1052
ClR
B
'999999'
=01
U
1
=01
U
1
1080
=02
U
2
U 43
U
1
1082
1125
U
1
U
1
1127
1128
U
U
1
1129
=02
u
1
2
1130
1132
+INPUT-l
U
U
3
3
1138
1
1139
0
U
U
HEADR ,.
+1
=01
'1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6'
UPDSW
=01
+9
=01
RDCr
WTeT
ENDUP
, 199'
Dew
EX
1041
U
U
U
U
U
'N'
'B'
121
722
5
4
BU
ClRXT
BVCT
676
102
LOCN
OPERANDS
566
589
625
SFX CT
OP
LTORG it
'999999
Dew
• •
PAGE
3114L
LABEL
556
606
611
622
-VERSION 3
INSTRUCTION TYPE
16
CARD
B *32 /
91
B 000
1056
91
lIT
LIT
AREA
LIT
AREA
AREA
AREA
LIT
AREA
LIT
1126
1135
U99
B 000
92
92
92
92
92
92
92
94
94
94
LIT
94
LIT
AREA
94
95
AREA
95
LIT
95
ADeON
95
95
96
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
SEQ
PG LIN
LABEL
OP
OPERANDS
723
6 '81
6 82
IMAGE
JOB
EQU
1401 AUTOCOCER-PASS 1 UPDATE LIBRARY
101
724
125
726
721
128
729
130
131
732
733
734
135
736
737
738
139
140
741
142
743
744
145
746
747
748
749
150
751
752
153
6 83
6 84
6 85
__86 ____
--- 6
6 87
..
BEGIN
cw
Mew
LCA
RT
Dew
B
CS
6
REBEG
B
BW
98
99
BW
01
02
03
..
SERCH
08
....f LL
"~
155
756
1 13
7 14
1 15
157
158
759
760
761
762
763
764
765
766
161
768
769
710
111
7 11
7 18
1 19
1 20
7 21
1 22
1 23
1 24
1 25
7 26
7 27
772
1 30
7 16
7 28
1 29
B
C
BE
C
BE
BH
MCW
01
.... r: 1_
f7"t
B
.
05
06
09
10
11
INSTRUCTION TYPE
CARD
3
0101
U
INPUT
SYSTP
HEDSW,ENOSW
+IHAGE+13,NOIS2+6
ENDUP,IMAGE+80
SYSTP,IMAGE
'NOOOOOOOCOOOOO'
NOISE
IMAGE+19
RDlP
READ
SERCH,INSW
SERCH,DElSW
REBEG
U
U
U
U
U
U
u
U
U
U
U
U
U
U
1500
5
1
7
1
B
14
4
4
4
4
8
8
4
(U1 R
1500
U
1505
+91 +98
M +30 780
l 139 181
1512
1519
1526
1547
1548
1552
1556
1560
1564
1572
1580
99
99
)
M
99
99
(U1 101 R
B 759
I 180
B MI1
8 L24
V VB4 +13
1
V V84 +79 1
B
V60
99
100
100
100
100
100
100
101
101
.. SEARCH FOR CORRECT SUBROUTINE
7 04
7
7
1
7
7
7
7
ORG
RWD
91
00
-VERSION
LOCN
17
*
6 91
6 92
6 93
6 94
6 95
6
6
6
1
7
1
7
SFX CT
PAGe
.. BEGIN UPDATE
6 88
6 89
6 90
6 96
3115L
-VERSION .3
lOOPl
MORE
S
8W
U
4
1584
B N94
U
7
5
1
5
5
7
4
8
1588
1595
1600
1601
1612
1617
C
B
C
B
B
DOCll
11,'999999'
ClNUP
8,NAME=3
FOUND
QUIT
8,NAME
SEQNO
HEADR,HEDSW
U
U
U
U
U
U
U
0
0
r\ulr
nnTn
SI
u
..,.,.
BW
HEAOR,HEOSW
WTAP2
LOOP1
U
U
U
8
4
4
B
8
1624
1628
"L"'L
1640
1648
J.u-~o
011 +36
K40 S
008 +39
X30 S
P75 U
+39
M 008
S A67
V W56
0
0
U.,., +91 1
to, J. ,
101
101
101
101
102
102
102
102
102
....LV,,"
"'..,
V W56 +91 1
B M95
103
103
1652
B W28
103
1656
1664
1671
1616
V Wa9 +98 1
C loa +39
B X30 S
1680
B W89
1685
B W48
103
103
103
104
104
104
*
.. HEADER LOCATED ON TAPE
•
HEAOR
8ft
C
BE
cw
Bl
•
B
• SUBROUTINE
..PAST
SSP
CS
cw
PAST,ENOSn
IMAGE+7,NAME
FOUND
HEDSW
PAST
MORE
U
U
U
U
U
U
8
7
5
4
5
4
)
+91
T
NOT ON TAPE
SYSTP
IMAGE+79
HEOSW
U
5
1689
U {Ul B
104
U
4
4
1694
I
180
104
1698
)
+91
104
U
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
SEQ PG LIN
773
174
115
776
777
778
119
180
781
782
183
784
785
786
781
788
189
790
191
792
793
194
795
196
797
798
199
800
801
802
803
........ 1
ov~
805
806
807
808
809
810
811
812
813
814
815
816
817
LABEL
7 31
7 32
1 33
1 34
7 35
7 36
7 37
7 38
7 39
7 40
7 41
7 42
7 43
7 44
7 45
7 46
1 41
7 48
1 49
7 50
7 51
7 52
1 53
1 54
1 55
7 56
7 57
7 58
7 59
7 60
1.., 61
...
I
BACK
OPERANDS
BW
UNKWN,DElSW
22 J •
UNKWN
PTCTL
INSER
C
BU
B
B
..
FOUND
•ALL
B
S
lOOP2
a
B
BW
8
EXIT
asp
CS
CW
BW
*
*
..
B
8
INSER
LOGP3
S
B
aw
BW
B
B
B
8
7 67
818
819
820
821
822
1 11
1 78
7 79
7,80
INSTRUCTION
V Q01 +19 1
C 022 +41
B QOl I
B 031
B Y06
104
U
8
1702
1
1110
1717
1122
1726
U
4
4
CARD
105
105
105
105
U
U
7
5
1730
1737
C
022 +41
8 Y46 I
105
1142
1149
1753
1757
1761
1165
1773
1717
1782
1186
1790
M +46 218
B 037
105
S A67
106
106
106
105
INSERT WHOLE SUBROUTINES
'OELET',218
PTCTl
SEQNO
PRINT
ROTP
EXIT,HEDS,.
lOOP2
SYSTP
IMAGE+79
HEDSW
REBEG,OELSW
u
7
U
U
4
U
U
4
4
U
8
U
4
u
U
U
U
4
5
4
4
8
a 072
B M17
V X11 +91 1
8 X57
U (Ul B
I 180
)
+91
V V60 +19 1
106
106
106
106
107
101
107
INSERTION OF WHOLE SUBROUTINE
7 64
7 65
7 66
7 72
7 73
7 74
7 15
7 76
AN~/OR
Mew
7 63
7 10
22,'
PARTl
C
BU
** DELETE
~
1 71
LoCN
U
U
U
5
TYPE
18
** SUBROUTINE FOUND
oc::
7 68
7 69
SFX CT
OP
PAGE
3715l
-VERSION 3
u
Doell
PfelL
SEQNO
READ
~
,... n,.. • •til"':>
t...
ft
.::)1: r\\... n
U
U
4
4
4
4
II
U
U
4
u
T
C" t _
SERCH,OElSW
OOOUT
PRINT
WTAP2
lOOP3
1198
1802
8 N94
107
107
101
101
B 031
1806
S A61
1810
B l24
0
... 0-' I.
LUL..,..
8
1822
1830
1834
1838
+73 1.L
+79
V V84
1
B L07
B 072
B M95
4
1842
B YIO
U
4
U
U
U
8
7
5
1
1846
1850
1858
S
V
C
B
A
v
U
U
U
U
4
4
\I
Y
\10/.
VU.,.
1no
LV'"
108
108
108
108
108
*
* DELETE AND/OR INSERT PARTS
..
PARTl
S
BkZ
e
BE
A
SW
XR3+2
SOME,21,2
24, '
ALL
+2,XR3
23
1865
U
U
4
1810
1871
U
4
1881
101
yal
024
X42
+41
108
021 2
+41
S
099
109
109
109
109
t
023
109
,
+48
109
*if SCAN FOR VALUES OF OPERANDS
..
SOME
Sw
OPSW=i
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
SEC
PG
LIN
823
824
825
826
821
7 81
829
7 81
8~O
88
7 89
7 90
8ze.
831
832
833
834
835
836
837
7
7
7
7
7
82
83
84
85
86
7 91
7 92
1 93
TEST!
BCE
TwaOP,21+X3,t
22+X3,'
TWOOP
+1,XR3
TESTl
20+X3,WK1=4
C
BE
A
B
TWOQP
ZA
A
BCE
B
NXTOP
ADD
sw
SBR
A
C
'O',WKI
NXTOP t 21+X3 t t
OUT
22+X3
XR2
+l,XR3
22+X3,' ,
Bl
OHOP
U
CW
OPSw
1+X2
23
*+8,OPSW
'OELET',218
PTeTl
U
U
U
U
8 00
8 02
8 03
8 04
8 05
8 06
8 01
8
B
8
8
08
09
10
11
1
IS20P
ClRWM
OUT
CW
CW
BW
MCW
B
*
tOMP
..,.
III
III
A +49 099
C 082 +41
B I50 I
+ aBO
A +54
C +53
B Q59
B K20
) +48
) 0-1
) 023
V -27
+58
+58
+58
T
S
+48 1
M +63 218
B 031
u
4
U
U
7
5
1
2043
A +49 A61
111
112
112
112
112
112
112
113
113
113
113
113
113
113
2031
2038
C +53 A61
B -10 S
114
114
114
-'.
"t'
t:.V~V
"'t"t=1"l.
n
0
U
U
4
2054
8
4
2058
u
2066
B Mi7
V Q84 +91 1
B -31
114
114
114
U
8
2010
V J46 +48 1
115
U
4
4
2018
2082
2086
B 012
B
C +58 A67
2093
B
2098
2106
V Q84 +91 1
115
115
115
115
115
116
BW
CaMP
862
863
8
864
865
8
866
8
867
868
869
870
811
812
8
8
8
21
22
23
24
25
26
21
28
29
30
8
8
062
H 094
Ii
B
8
,
U
15
16
8
B -08
111
111
I t .... A n""'\
8
8
8
8
8
8
20
1
III
t
n
RDTP
NTFND,HEDSW
861
.5
5
4
4
4
8
1938
1942
1946
1950
1957
1964
1969
1976
1983
1990
1995
2000
2004
2008
2012
2020
2027
+54 +53
8 Z42 081
A
WKl,SEQNO
GOTIT
+i,SEQNO
B
11
18
19
7
7
5
1
7
1
1916
1923
1930
B Y85
+ 080 +53
110
110
1.10
110
110
110
BE
A
C
13
8 14
860
4
4
4
1905
1912
CARD
* SEARCH FOR FIRST STATEMENT
1.£
859
U
8
1900
,
19
it
S
8
858
U
U
U
U
U
BE
1 99
8 01
851
U
U
ADO
842
856
1893
20+X3,WK2=4
'O',WK2
WKl,WK2
BADST
843
844
855
1885
7
5
7
4
7
1
ZA
A
C
B Z16 081
C 082 +41
8 l16 S
A +49 099
8
BU
96
INSTRUCTION TYPE
u
U
U
U
PAGE
LOCN
U
7 94
1 97
7 98
0::> ...
SFX CT
7 95
839
840
841
,..r-I
OPERANDS
31l5L
U
U
U
U
U
U
7
846
847
848
849
850
851
852
853
OP
7
838
845
LABEL
-VERSION 3
0
"I"''''-£.
U
unr::
1 "I I.
''l7~
J.L"T
*
* FIRST STATEMENT FOUND
*GOTIT BW
QINSR,OPSW
*
* SEARCH fOR SECOND STATEMENT
*
COMP2
B
B
C
BH
BW
B
PRINT
ROTP
WK2,SEQNO
BSPC
NTFNO,HEDSW
COMP2
** SECOND STATEMENT FOUND
U
U
U
U
U
1
5
8
4
Ml7
JIO
B -18
U
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
SEQ PG LIN
813
814
875
816
811
878
819
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
891
898
899
900
901
902
903
8
8
8
B
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
31
32
33
34
35
36
31
38
39
40
41
42
43
44
45
46
41
48
49
50
51
52
53
54
55
56
51
58
8
8 59
8 60
8 61
anL..
;IV,.
Q
V
905
906
907
908
909
8 63
910
911
912
913
914
915
916
917
918
919
920
921
922
L?
uc:.
8 64
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
65
66
67
68
69
70
71
72
73
74
15
LABEL
OPERANDS
BSP
CS
SYSTP
IMAGE+79
+I,SEQNO
LOOP3,DElSW
DOtIL
PTeTl
INSR+4
3715L
PAGE
20
SFX CT
loeN
INSTRUCTION TyPE
5
2110
2115
2119
2126
2134
2138
2142
U (U1 B
I 180
S +49 A67
V YlO +19 1
B N94
B 03-7
B J11
116
116
116
116
116
116
117
2146
2154
2158
2165
2169
V
8
S
/
B
J73 +73 1
012
+49 A61
180
J26
111
111
117
111
117
2173
2171
B M95
B l24
111
118
21Bl
V V84 +13 1
lIB
2189
2191
2201
2205
2209
2216
2220
2228
2232
V V84 +79 1
B lO1
118
118
118
118
118
119
119
119
119
CARD
.
BSPC
S
THRU
BW
B
B
B
...
U
U
4
7
U
U
U
4
U
U
4
4
U
U
4
8
... TEST INSERT OR DELETE
*QINSR
*
*
...
BW
B
S
CS
B
INSR,INSW
PRINT
+l,SEQNO
IMAGE+79
THRU
8
U
1
4
U
4
U
INSERT STATEMENTS
INSR
B
B
BW
Bk
B
cw
ONOP
WTAP2
READ
SERCH,INSh
SEReH,OElSW
DOOUT
SEQSW=1
PRINT
+l,SEQNO
U
4
U
U
U
4
U
8
8
4
4
sw
INSR
IS20P.INSW
OPSW
U
U
U
U
U
7
4
8
U
4
B
ClRWM
U
4
U
U
4
4
U
U
U
4
8
B
S
B
Bw
4
)
+64
B 072
S +49 A61
B J73
V -00 +13 1
,
+48
B -04
i!-
* REPLICATE
*
REPET B
CLNUP
B
B
BW
...
8
LIBRARY
WTAP2
ROTP
WTAP2
FINAl,ENDSW
ClNUP
B M95
B M1"7
B M95
V K60 +98 1
4
2236
2240
2244
2248
2256
5
7
1
4
4
1
2
8
2260
2265
2272
2279
2283
2287
2288
2290
U ( U6 M
M +61 780
B K40
119
119
119
120
120
... END OF UPDATE - GO TC COpy ROUTINE
...
FINAL
76
17
18
79
80
OP
-VERSION 3
BYPl
WTM
MeW
Cw
ew
CS
CS
ce
RT
aUTAP
+INPUT+13,NCIS2+6
LIBSW,EOFSW
u
U
U
UPDSW
u
332
U
U
1
SYSTP,IMAGE
u
U
*79 t80
/26
I 332
)
)
I
F 1
M
(Ul 101 R
120
120
120
120
120
121
121
121
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
seQ
PG LIN
923
8 81
924
925
926
927
8
82
8 83
8 84
OOOUT
930
8 89
932
8
933
934
935
936
937
938
939
940
941
942
943
944
945
946
941
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
910
911
972
90
8 91
8 92
8 93
8 94
8
8
QUrXT
READ
ROCD
04
01
9
9
9
9
16
COXT
lSTCD
SBR
Bw
B
OUTXT+3
80,IMAGE+19
SFX CT
LoeN
INSTRUCTION TYPE
B 593 K
B K90
U
5
2298
U
4
2303
U
U
It
2301
2311
2318
2319
2320
H
M
2324
2328
2336
2340
2341
2348
2355
2360
2364
2368
2375
2380
2384
2388
2395
2400
2405
U
0
COXT+3
RDeO,lSTSW
ClNUP
7
1
u
1
U
4
U
4
C
BU
Sw
C
BE
BlC
8
cw
INSW,DELSW
20 t 'INSERt
CKDEL
INSW=l
COXT-5
20,'OElET'
CKREP
OElSW=l
COXT-5
20t'REPET'
REPET
lSTCD
4
1
u
1
U
4
U
U
4
u
U
U
U
U
, . ...... u · ?
Ii
v
.,.
I.
U
4
\".UAI
U
8
4
U
U 10
U
BU
SW
C
7
4
4
0
C
4
U
U
B
BER
CW
7
5
4
lSTSW=l
0
SU
SW
B
5
5
5
U
U
U
U
U
SW
DeW
7
U
SYSTP,IMAGE
IMAGE+80
'NOOOOOOOOO'
NOISE
ROERR
HEOSW,ENOSW
IMAGE+19,'HEADR'
RTXT
HEDSW=l
IMAGE+I0,'999999'
RTXT
ENOSW=1
RT
...
8
U
U
*... READ TAPE SUBROUTINE
*RDTP
RTXT+3
S8R
RTXT
U
U
R
B
17
18
19
9 20
9 21
9 22
9 23
9 24
9 25
9 26
9 21
9 28
9 29
9 30
SBR
MCW
Mew
Mew
B
8
CKREP
9 08
9 09
9 10
9 11
9 12
9 13
9 14
9 15
B
B
CKOEl
9 05
9 06
9
REOUT
BYPI
au
sw
9 02
9
BEF
ew
C
9 01
9 03
OPERANDS
21
CARD
121
121
121
L23
080 180
lzt
M
122
M
B 000
122
122
H M08
V l40 +85
B K40
122
122
122
*... READ CARD SUBROUTINE
...
95
96
8 97
8 98
8 99
9 00
OP
PAGE
3715L
... seT UP INSERT CARD
...
931
929
...
8 85
8 86
8 87
8 88
928
LABEL
-VERSION 3
U
U
U
U
U
4
5
7
7
5
4
7
5
4
4
1
)
1
122
+13 +79
C 020 +72
B L68 I
,
+13
8 MOO
C 020 +18
8 La8 /
,
+19
B MOO
C 020 +84
S K36 S
B M09 A
B 000
123
123
123
123
123
123
123
124
124
124
124
124
124
124
2409
)
+85
")1. 1 '2
D
U
un.:
nv""
I.e.""
2417
2421
2429
2442
2443
2447
2452
H ,.,94
125
125
,".&,..;,1
2459
2466
2411
2475
2482
2487
2491
M lUI 101 R
181
t
B
759
B 798 l
) +91 +98
C 120 +90
8 M91 I
+91
C III +97
B M9l I
+98
t
B 000
,
1")1;
125
125
125
125
126
126
126
126
126
126
126
121
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
seQ
913
974
975
916
911
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
,
:1"'\1'\1.
.... vv'"'t
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
PG LIN
9
31
9 32
33
9 34
9 35
9 36
9 31
9 38
9 39
9 40
9 41
9 42
9 43
9 44
9 45
9 46
9 47
9 48
9 49
9
LABEL
WTAP2
SBR
e
BE
WT
BER
CS
WT2XT
•
Sf X CT
loeN
INSTRUCT'ION TYPE
2495
2499
2506
2511
2519
2524
2528
H N31
C 180
B N28
M tU6
B 928
I 180
B
2532
2536
H N93
WT2XT+3
IMAGE+19,BlANK
WT2XT
OUTAP,IMAGE
WTERR
U
U
U
4
7
U
U
8
5
IMAGE+79
U
4
0
U
4
* PRINT HEADING
*
HDXT+3
SBR
HEAD
CS
CS
MCW
Mew
A
MCS
332
'1401 AUTOCODER - LIBRARY CHANGES',251
'PAGE',275
+l t PGNO=3
PGNO,279
W
9 51
9 52
9 53
9 54
ec
K
CS
MCW
279
'SEQ
lABEL
OP
OPERANDS' ,227
W
5
U
it
U
U
U
4
1
2541
2548
U
7
1
1
1
u
2
U
4
7
1
u
U
U
U
U
ec
K
u
2
56
CS
228
U
4
B
0
U
4
u
4
57
HOXT
UL
9
9
9
9
9
9
63
64
rr
""""
CS
CS
MCW
65
Mew
MCW
Mew
66
67
68
9 69
9 70
9 71
9 12
9 73
CTlXT
B
v
"332
72,271
22,221
20,218
11,212
a
*4- PRINT CONTROL CARD
*PlCTl SBR
PTCXT+3
9 14
9 75
9 76
9 77
9 78
9 79
9 80
22
CARD
2555
2562
2569
2570
2572
2576
2583
2584
2586
2590
+21
S
101
l
B 000
I
I
M
M
A
Z
332
A30
Al4
+49
A3l
251
215
A37
279
2
F K
I 279
M A63 221
2
F K
I 228
w
127
127
127
127
121
121
128
128
128
128
128
128
128
129
129
129
129
129
129
129
130
B 000
130
2594
H 036
130
4-
* SET UP CONTROL CARD fOR PRINTING
*OOCTl SBR CTlxr+3
L",)
"7
2540
1
55
58
59
9 60
9 61
n
OPERANDS
PAGE
3115l
• WRITE TAPE SUBROUTINE
•
9 50
9
9
9
9
9
OP
-VERSION 3
*
L:.170
t.
U
4
2600
U
U
1 2604
7- 2605
I
I
ce
es
CS
BeV
B
0
"')
r
U
4
2633
8 000
U
4
1
2631
2641
2642
2644
2648
2649
2654
u
J
U
332
U
U
NEWPG
U
U
2
4
1
5
4
H
130
130
1
7
U
..L.:JV
"332
M 012
M 022
M 020
M 011
7
'~:I"'\
II
2612
2619
2626
u
U
W
PTCXT
L
",)I:no
V
II
211
221
218
212
057
2
F J
I 332
/
B 058
B
000
I
130
131
131
131
131
131
131
131
132
132
132
132
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
SEQ PG
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
9
9
9
9
9
9
9
LIN
LABEL
81
82
83
it
9 88
9 89
9 90
9 91
9
9
9
9
1056
1051
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1011
1072
NEWXT
SBR
ce
B
B
sw
SW
BeE
Mew
Mew
BW
sw
B
Mew
Mew
Mew
MCW
TSTSQ
00
01
02
03
CO""NT
04
SEQNC
MN
BUMP
MCS
A
10
10
10
10
B
07
08
09
10
'I '"'l
10 14
10 15
10 16
10 11
10 18
10 19
10 20
10 21
10 22
10 23
10 24
10 25
10 26
10 27
10 28
10 29
10 30
lOCN
INSTRUCTION
U
4
u
2
2658
2662
2664
2668
H
F
2672
2616
2683
2687
2695
2102
2709
2116
2124
2728
2732
2139
2740
2141
2745
2152
2153
2160
2761
2765
2166
2111
H P7't
SFX
NEWXT+3
1
HEAD
U
0
U
4
4
U
4
U
U
U
7
* PRINT STATEMENTS
*PRINT SBR
PTXT+3
9 97
9 98
9 99
10 05
10 06
eT
OPERANDS
TYPE
23
CARD
132
132
132
133
071
1
B N32
B 000
it
92
93
10 11
.,'"
.LV
L'
1055 10 13
.. I " I e l.
j,u.:>-t
*NEWPG
94
95
9 96
10
10
10
10
10
PAGE
3715l
NEW PAGE
84
85
86
87
OP
-VERSION 3
220.214
207
COMNT,IMAGE+5 t
IMAGE+71t211
IMAGE+19,218
IMAGE+I0,212
SEQNC,SEQSW
SEQSW
BUMP
IMAGE+71 t 213
*
TSTSQ
SEQNO,204
+1,SEQNO=4
U
u
1
1
U
8
U
U
U
4
4
U
U
1
1
U
U
U
4
U
7
7
1
7
U
1
332
U
Bev
U
4
1
NEWPG
U
5
B
0
U
It
U
4
1
1
W
CS
CS
PTXT
U
4
8
7
t
•
B
M
M
M
220 214
207
P32 106 ..
172
120
111
V P45
271
218
212
+64 1
+64
t
8 P53
M 172 213
M
M
B P16
0 A61 204
l
A +49 A61
2
I 332
I
B
058
,
B 000
133
133
133
133
133
134
134
134
134
134
134
134
135
135
135
135
135
135
135
136
136
136
~
..*
SEQUENCE ERROR
QUIT
CS
es
Mew
332
U
'INPUT CARDS OUT OF SEQUENCE - START OVERt,240
U
1
U
U
U
W
HAlT2
CC
H
B
*it
0,133
HAlT2
U
1
2
7
4
2175
2179
2780
2187
2788
2790
2197
I
I
2801
2809
2816
2821
2828
2829
V
C
8
M
332
~ B07 240
2
F 1
.000 133
B P90
136
136
136
136
131
131
137
SUBROUTINE UNKNOWN
*
UNKWN
ISUNK
Swl
e
BE
MCW
ISUNK,21,2
t
24, I
BACK
'SUBROUTINE UNKNOkN',299
U
U
L
U
W
ec
U
U
U
8
7
5
1
1
2
Q21 021 2
024 +41
X22 S
825 299
2
F l
137
137
137
138
138
138
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
SEQ PG LIN
1073
1074
1015
1016
1077
1018
1079
1080
1081
1082
1083
1084
1085
1086
1081
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
., 1
nl.
....... V"'T
10 31
10 32
10 33
10 34
10 35
10 36
10 31
10 38
10 39
10 40
10 41
10 42
10 43
10 44
10 45
10 46
10 47
10 48
10 49
10 50
10 51
10 52
10 53
10 54
10 55
10 56
10 57
10 58
10 59
10 60
10 61
In
V
.A.
1105 10
1106 10
1107 10
1108 10
1109 10
1110 10
1111 10
LABEL
OP
OPERANDS
299
lOOP4
CS
B
BW
Bill
B
*
* 8AO CONTROL CARD
*BAOST Mew
'BAD STATEMENT't299
W
CC
CS
ew
B
ec
CS
BW
B
67
BLANK
NAME
U
4
2855
8 Q35
U
7
2859
M 838 299
U
1
2
4
7
2866
2861
2
F l
2869
I
299
2813
2880
)
0-1 023
U
U
U
U
U
1
U
1
4
U
8
U
4
U
1
U
1
2
4
l
U
299
'END OF LIBRARY REAeHEO',222
U
CS
B
8
4
2
u
II
IMAGE+79
READ
LOOP6
=50
;29
Dew
DC
lTORG *
+IMAGE+13
Dew
'999999'
=03
,
822
OPSk
828
WKI
'DELETt
+2
=01
+1
=04
837
WK2
=04
186
U
8
8
4
U
SYSTP
'0'
I
U
CC
"
SSP
INSTRUCTION TYPE
2831
2835
2839
2847
u
l..l
loeN
4
CS
Mew
PAGE
U
U
299
END99,ENDSW
lOOP4
W
LOOP6
SFX C1
l
*
* END OF LIBRARY REACHED BEFORE ROUTINE FOUND
*END99 Mew
'SUBROUTINE UNKNQWN',299
66
146
748
299
1+X2,23
LOOP4
W
L"
68
69
731
l
*
* STATEMENT DOES NOT EXIST IN SUBROUTINE
*
NTFND Mew
'STATEMENT DOES NOT EXIST',299
U£.
63
64
65
READ
SERCH,INSW
SERCH,DELSW
LOOP4
3715L
-VERSION 3
1
1
2884
2891
2892
2894
2898
2906
2910
2911
2918
2920
2924
.,n'2'
V
.A.
c..7J.A.
U
5
2932
2937
2941
2945
2998
3027
U
4
U
4
4
50
U
U
U
U
29
U
U
3
U
3
U
2
U
5
3046
U
1
1
1
4
1
4
3047
3048
U
U
U
U
V V84 +79 1
139
139
139
139
139
139
B Q35
140
140
140
140
140
140
M B62 299
2
L
299
V RIO +98 1
F
I
B Q35
140
141
141
141
141
880 299
l
299
CO2 222
141
141
U (Ul B
I 180
141
142
142
144
145
8 L24
8 R41
3028
3030
3036
3039
3041
U
B L24
V V84 +73 1
,.,
CARD
138
138
138
138
139
299
M
2
F
I
M
24
6
3049
3053
30_54
3058
114
ADtON
LIT
AREA
LIT
LIT
LIT
AREA
LIT
AREA
LIT
AREA
145
145
146
146
146
146
146
146
146
147
147
1401 AUTOCODER-PASS 1 UPDATE LIBRARY
SEQ PG LIN
LABEL
OP
897
SEQSW
OELSW
LSTSW
HEDSW
970
98a
ENDSW
990
PGNO
U
U
5
3063
3064
LIT
AREA
141
1
U
U
3
5
3067
3012
U
U
1
5
3013
=01
U
1
'REPET'
U
5
=01
U
1
3019--3084
3085
'HEADR'
U
U
5
3090
1
3091
AREA
6
3097
1
32
4
3098
3
26
3131
LIT
AREA
LIT
LIT
AREA
LIT
AREA
lIT
LIT
LIT
LIT
LIT
LIT
'999999'
=01
11401 AUTOCODER - LIBRARY CHANGES'
'PAGE'
=03
OPERANDS'
'SEQ LABEL OP
SEQNO
1059
1070
1081
1090
1099
1103
1112 10 70
1113 10 71
CARD
=01
968
995
1048
INSTRUCTION TYPE
+INPUT+13
'INSER'
=01
'DElET'
INSW
3998
Dew
EX
25
LoeN
=01
916
941
943
9_,+5
947
949
953
965
967
PAGE
SFX CT
OPERANDS
'DELET'
846
3715L
-VERSION 3
U
U
U
U
U
U
=04
U
4
'INPUT CARDS OUT OF SEQUENCE - START OVER'
'SUBROUTINE UNKNOWN'
'BAD STATEMENT'
'STATEMENT DOES NOT EXIST'
'SUBROUTINE UNKNOWN'
'END OF LIBRARY REACHED'
U
40
18
13
24
18
22
1
I
0
•
U
U
U
U
U
U
U
Vl3
AntoN
LIT
AREA
LIT
3078
AREA
LIT
AR-EA
lIT
3130
3134
3163
3167
3207
3225
3238
3262
3280
3302
3998
B 000
147
141
147
147
148
fitEf-
148
148
148
148
148
149
149
149
150
150
150
152
152
152
153
154
155
156
157
1401 AUTOCODER-PASS 1 OUTPUT LIBRARY
SEQ PG LIN
1114 10 72
1115 10 73
1116 10 74
1117 10 15
1118 10 76
1119 10 77
1120 10 78
1121 10 19
1122 10 80
1123
1124
1125
1126
1127
1128
1129
LABEL
OP
SYSTP
XRl
JOB
SFX
EQU
ECU
10 81
10 82
10 83
10 84
10 85
10 86
10 81
1130 10 88
10 89
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1141
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
10 90
10 91
10 92
10 93
10 94
10 95
10 96
10 91
10 98
10
11
11
11
11
11
11
11
11
11
11
*
READ
C"
CC
B
MCW
C
BE
C
04
11 21
lUI
89
ENDOT
ENDOT,181
80
6,16
332
1
SYSTP
SYSTP,101
180
106,116
121
OOALl,E
HDRSW
1
PRTHD
R
03
11 20
CARD
-VERSION 3
lUI
0089
P
P
P
P
P
P
P
P
P
P
P
P
P
P
P
P
p
1
2000
2004
2011
2012
2016
4
2023
1
2
2021
2028
5
8
4
1
2030
4
1
1
4
4
5
2035
2043
2047
2054
2058
,
2000
+44
l +44 181
I
I 080
,
006 016
I 332
I
(U1
(Ul
I 180
106
t
121
t
8 l28
160
160
160
160
160
R
161
161
101 R
161
F 1
U
M
160
160
116
E
161
161
161
161
*
99
01
08
09
10
11
12
13
14
15
16
17
18
19
INSTRUCTION TYPE
26
.. PRINT AND/OR PUNCH SELECTED MACROS
00
01
02
05
11 06
11
11
11
11
11
11
11
11
11
ass
LoeN
PAGE
P
** BEGIN PROGRAM
*
ORG
2000
SW
LCA
CS
CS
SW
CS
CS
CC
RWO
RT
CS
SW
SW
SFX CT
OPERANDS
1401 AUTOCODER-PASS 1 OUTPUT LIBRARY
3716L
-VERSION 3
..
au
'2',OPCOD
20 t 'PRINT'
P
4
2
4
1
P
1
P
P
P
2063
2061
2069
2073
2074
)
R32
F 1
8 N59
1
162
162
162
162
162
162
2081
M Q90 069
C 020 Q95
"1'\00
D
2093
2100
C 020 ROO
B N06 /
163
163
2105
2112
A
0
ROI 069
ROI R02
163
163
C 008
B K96
M 020
M 011
B J85
ROS
163
163
164
P
7
c:..:tMr
....,
......... , ,...,
.-n
c:::
J
'VUU
20,'PUNCH'
ERROR
P
1
P
5
U
I'ln
"''''7
C!'
J
... L
~
.I.O&'
.. PUNCH OPTION
..
..
A
MN
+4,OPCOD
+4,OPSAV=1
P
1
p
1
P
P
P
1
5
1
7
5
2119
2126
2131
2138
5
1
8
2150
2155
2162
.. SEARCH FOR MACRO
*SELMC
C
BE
MCW
MCW
BL
RWD
LeA
RT
8,NAME=3
TSTLC
20,218
11,212
RDTP2
SVSTP
ENOOT,181
SYSTP,lOI
P
P
P
p
P
2145
S
218
212
T
lUI R
L +44 191
M (Ul 101 R
U
164
164
164
164
164
1401 AUTOCODER-PASS 1 OUTPUT LIBRARY
SEQ PG LIN
LABEL
OP
OPERANDS
RDTP2
CS
SW
SW
RT
180
106,116
121
SYSTP,101
NOISE
ROERR
111,'999999'
1164 11 22
1165
1166
1167
1168
1169
1170
11.11
1172
1173
1114
1115
1116
1111
1178
1179
1180
1181
1182
1183
1184
1185
1186
1181
1188
1189
1190
1191
1192
1193
1194
11 11 nc:-
11
11
11
11
1.1
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
......
".1.7~
J.J.
1196
1191
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
23
24
25
26
B
21
28
29
BER
C
BE
C
BU
C
BU
30
31
32
33
34
3.5
36
*
MCW
CC
PTAGN
B
C
au
49
50
SSP
58
59
60
61
62
63
64
65
66
67
68
P
4
8
7
2110
2114
2181
2185
2193
2197
2202
I
7
5
2209
1
2214
2221
2226
2233
P
P
4
5
5
p
P
7
P
P
7
2
5
CARD
165
180
106 116
t
, 121
M (UI 101 R
B P67
B C06 L
C 111 Rll
8 lO5 S
C 120 Rl6
8 J85 I
C 008 108
B J85 I
165
1"65---
165
165
165
165
166
166
166
166
166
K
P
1
P
4
P
4
K
P
PRINT
SYSTP,IOI
NOISE
RDERR
120,'HEADR'
PTAGN
SYSTP
P
P
P
2
4
p
8
4
5
1
5
P
5
.::ntrlO
C:U'"'UO
0
r
c:::
READ
p
P
P
2238
2245
2247
2248
2252
2256
2258
2262
2270
2274
2219
2286
2291
Q06 l
166
166
167
167
161
167
161
167
167
168
120 R21
168
K58 I
168
168
M 008 ROS
F K
2
S R48
B N17
F K
6 N81
M (Ul 101 R
B
B
C
B
U
P67
(UI B
it-
..
..
....
it
TEST END OF RUN
TC-Tlr
f..>t ... "
otr
Ot..\"
a
'"
4
.,.,OL
,'7V
Q
2301
B -67
168
168
169
169
169
U
UC,.
n",'T
A
fi1
lLO
.£.vv
MACRO NOT ON TAPE
UNKN
MCW
'UNKNOWN',299
W
CS
299
a
'999'.NAME
TSTLC
Mew
7
2305
M R28 299
2312
2313
2317
2324
2
p
1
4
7
4
299
R31 R05
B K96
p
P
5
2328
B L60 0
4
2333
5
4
2337
2342
R32
8 l46 G
B L60
P
P
P
P
I
M
169
*.. PRINT AND/OR PUNCH ALL OR PRINT HEADERS ONLY
*
DOAlL
ass
CW
BSS
11 69
11 70
11 71
8,NAME
B
48
57
RDTP2
CC
BER
54
55
56
4
P
120 t 'HEAOR'
RDTP2
B
46
41
...,:J
P
P
P
SEQNO
INSER
S
RT
c:'~
INSTRUCTION TYPE
UNKN
W
44
45
52
LOCN
27
* DESIRED MACRO FOUND
38
39
40
41
42
51
SFX CT
P
P
P
8 t l08
PAGE
3716L
flo
37
43
-VERSION 3
B
*
* PUNCH ALL
SETUP,D
HDRSW=1
*+5,G
SETUP
P
P
)
169
169
169
170
1401 AUTOCODER-PASS 1 OUTPUT LIBRARY
SEQ PG LIN
1214
1215
1216
1217
1218
1219
1220
1221
11
11
11
11
11
11
11
11
OP
OPERANDS
73
A
74
75
76
77
MN
+4,OPCOD
+4,OPSAV
HEADl
HDSWl=l
PRTHD
SYSTP,IOI
NOISE
ROERR
111,'999999'
EOJOB
120.'HEAOR'
DOPNT
INSER
72
78
79
LABEL
.
SETUP
CW
B
RDTP
11
11
11
11
11
11
11
11
11
11
11
11
11
BER
C
BE
1~ ?.t...1;
,.~
1 .,
..
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
81
82
92
93
11 94
11 95
11 96
11 91
11 98
11 99
12 00
12 01
12 02
.....
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
C
83
84
85
86
87
88
89
90
91
BU
B
DOPNT
..
*
..
EOJOB
19
CS
CS
CC
MCW
W
CC
rc:oJ
v
04
20
21
PAGE
3716L
SFX Cl
P
7
P
P
1
4
P
4
P
4
P
P
P
P
8
4
5
1
P
P
P
5
1
P
LoeN
INSTRUCTION TYPE
2346
2353
2360
2364
2368
2372
2380
2384
2389
A ROl 069
0 ROl R02
2396
4
2401
2408
2413
2411
2419
2426
2431
2435
2439
2446
2450
4
1
2
·7
1
2
2454
2458
2459
2461
2468
2469
5
K
P
4
2
PRTXT+3,"+6
NEWPG
SEQNO=4
PRINT
106,116
121
RDTP
P
P
1
5
P
P
P
P
P
4
4
7
4
8
P19
)
R33
B N59
M (Ul 101 R
8 P67
8 Q06 l
C 111 R39
B M54 S
C 120 R44
8 M35 I
B NI7
F K
H 083 "'31
B 097 '
5 R48
B
Nal
116
•t 106
121
B l12
28
CARD
110 .
110 .
110
110
170
110
111
171
171
171
111
171
171
112
112
172
112
172
172
172
173
END OF JOB
n2
07
08
09
10
11
12
13
14
15
16
11
18
CC
SBR
BCV
S
B
SW
SW
B
'J""
05
06
RT
8
1222 11 80
1223
1224
1225
1226
1221
1228
1229
1230
1231
1232
1233
1234
1235
1236
1231
1238
1239
1240
1,241
1242
1243
1244
B
-VERSION 3
RWO
HALT
CLRPH
BCE
RWO
H
B
P
55
B
332
K
'END OF LIBRARY',214
1
P
P
P
P
P
P
lon
",,\.IV
D
r
"T
I~
-)L. '71
c:;."T''''
CLRPH,OPSAV,4
SYSTP
0,155
HALT
P
P
P
8
2475
2483
2488
2495
2499
8
P
P
P
RWO
P
5
7
4
1
2
4
2500
2506
2513
2517
2521
2528
2535
2543
2547
2502
I
I
332
F K
M R62 214
2
F 1
,
I
lon
.&,UV
B M99 R02 4
113
113
113
113
173
173
1 .,,~.
&'f"T
4
K 8
B M83
114
174
114
114
174
114
175
• 000 144
B K96
175
175
H N58
115
115
115
176
116
176
U (ut R
• 000 155
B MBS
.
*
INCORRECT INPUT CARD
*
0,144
ERROR H
TSTLC
B
INSXT-+3
INSER SBR
MCW
• ,105
MeW
'INSER',120
*+5,OPSAV t 4
BCE
B
*+2
P
P
7
P
4
P
P
p
4
1
7
P
P
8
4
P
1
M R67 105
M R72 120
B N47 R02 4
B NitS
4
1401 AUTOCODER-PASS 1 OUTPUT LIBRARY
SEQ PG LIN
1264 12
1265 12
1266 12
1261 12
1268 12
12_69 12.
1270 12
1271 12
1272 12
1273 12
1214 12
1275 12
1216 12
1211 12
1278 12
1279 12
1280 12
1281 12
1282 12
1283 12
1284 12
1285 12
1286 12
1281 12
1288 12
1289 12
1290 12
1291 12
1292 12
1293 12
1294 12
.. -"'nr
LG..,,-;J
'1-"'
LG
22
23
24
25
26
21
28
29
12
12
12
12
12
12
12
12
12
12
12
12
12
INSXT
OP
OPERANDS
Mew
'HEAOR',120
0
B
PRTHO
SBR
MCW
HDXT+3
'SEQ LABEL
31
CS
228
0
HDXT
..
..*
PRINT
OPCOD
~.:J
rl n
t,.,LI"\
B
SBR
e
BE
Bw
DOHOR
es
es
BeE
MCW
Mew
MCW
DOSEQ
MN
PRTXT+3
120,'HEADR'
DCHOR
CLRtHDRSW
332
COMNT,106,.
112,211
120,218
111,212
SEQNO,204
MCS
MN
Mew
A
Mew
W
rc-
\#.;)
SEQNO,104
2548
2555
B 000
P
P
4
2559
2563
2570
2511
2573
2511
H N80
M +03
2
F t<
2581
2585
2592
2597
2605
2609
2610
2618
2625
2632
2639
2646
2647
2654
2655
2662
2669
H 083
C 120 +08
p
P
1
1
2
4
P
4
P
4
PRTXT
COMNT
7
P
5
p
p
8
4
1
8
p
p
P
7
p
7
P
P
P
P
7
7
1
1
1
7
P
1
n
r
I.
105
.,.,")
;;J.:JL
M R71 120
227
I 228
B 000
7
-r
"JL'"I"
,"VIV
B 005 S
V 070 R32 1
I 332
I
084
172
120
111
0 R48
Z
0 R48
B
M
M
M
106 *
211
218
212
204
104
M
A +09 Rlt8
M +10 105
2
,
~
CARD
176
176
116
176
171
171
111
11"1
1
2674
0
112.213
P
5
4
7
P
1
1
P
4
2615
2680
2684
2691
2692
2693
P
2
8
2697
F 1
2699
P
4
4
P
4
2701
2111
2715
V Pll R33 1
8 Pl9
B
MCW
Mew
** START NEW PAGE
DOSEQ
CC
BW
B
1
*+5,HDSW1
67
B
68
69
B
PRTHD
PRTXT
HEADl
** PRINT MAIN HEADING
p
P
P
I
8 091
B 000
M 172 273
M
•
M
B 039
8 N59
B aBO
179
119
119
119
119
119
179
180
.&.vv
P
P
NEWPG
171
177
117
178
118
118
178
118
118
lQn
'2'2"
JJ4
P
BCv
B
•NEWPG
p
P
• J
CS
•
OPERANDS',227
t
60
71
OP
P
61
62
70
7
4
p
Mew
64
65
66
INSTRUCTION TYPE
+I,SEQNO
59
63
P
LOCN
PRINT STATEMENT
31
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
r-,
p
P
W
K
35
36
SFX CT
29
• PRINT HEADING
•
ee
32
33
34
PAGE
3716L
*
30
1296 12 54
1297 12 55
1298 12 56
1299 12 51
1300 12 58
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
LABEL
-VERSION 3
180
180
180
180
180
181
181
181
181
181
181
181
1401 AUTOCODER-PASS 1 OUTPUT LIBRARY
SEQ PG LIN
1314
1315
1316
1311
1318
1319
1320
1321
12
12
12
12
12
12
12
12
1322 12
1323 12
1324
1325
1326
1321
12
12
12
12
1328 12
1329 12
1330 12
1331 12
1332 12
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
12
1?
HEADl
74
75
16
17
78
19
80
81
82
83
84
85
86
81
88
89
90
OP
OPERANDS
SBR
HD2XT+3
332
CS
CS
MCW
"13
MCw
A
MCS
W
CC
CS
H02XT
...
B
'1401 AUTOCODER - LIBRARY',243
'PAGE',275
+I,PGNO=3
PGNO,279
L
299
0
SFX CT
P
P
P
P
P
P
P
P
P
P
P
4
4
1
7
7
7
1
1
2
4
4
PAGE
30
LoeN
INSTRUCTION TYPE
2719
2123
2721
2728
2735
2742
2149
2756
2751
2159
2163
H P66
I 332
I
M +34 243
M +38 215
A +09 +41
Z +41 279
B 000
182
182
182
182
182
182
182
183
183
183
183
2167
2771
2115
2782
(;)05
H 089
y +42 089
B Iya 113
183
183
183
184
2790
2191
2792
2793
2794
2195
2796
2797
2798
2799
2800
2801
B
GEN
B
GEN
B
GEN
GEN
GEN
B
4:.
')01\')
V V 4:.
U
H Q3B
U tUl B
M +42 +43
M lUI 101 R
B Q39 L
2
F l
I 299
CARD
... TEST FOR NOISE RECORDS
NOISE
SBR
SBR
NOSXT+3
P
XRl
P
+9,XRl
4000-12+Xl,113,
"CHAI N 12
MZ
BeE
BeE
BCE
BCE
BCE
BCE
n
u
8
1
1
1
1
1
P
1
1
1
1
1
P
1
P
P
P
P
nv
4
4
1
H
MACRO
p
p
P
P
P
BCE
BCE
BCE
BCE
BCE
"-In <: VT
,.vv".
P
P
P
BCE
01
....
3716L
...
BeE
,
~'"
1346 12 92
1347 12 93
1348 12 94
1349 12 95
1350 12 96
1351 12 97
1352 12 98
1353 12 99
1354 13 00
1355 13 01
1356 13 02
1357 13 03
1358 13 04
1359 13 05
1360 13 06
1361 13 01
1362 13 08
1363 13 09
1"2'&"
~ _r-r """
LABEL
-VERSION 3
1
.,.
0
L.
P
P
4
r
B
B
B
GEN
GEN
B
GEN
GEN
B
B
B
B
Q
GEN
GEN
GEN
nnn
vvv
184
184
184
184
184
184
185
185
185
185
185
185
101:
,a.Q""
it
* READ REDUNDANCY ROUTINE
...
RDERR
SBR
SSP
SSP
MeW
RT
ROTRY
BER
ROXT
B
BSP
S
BWl
H
RT
BSS
H
P
8
7
8
5
P
P
7
2806
2810
2815
2822
2830
2835
2839
2844
2851
2859
2866
2874
2879
4
2886
RDXT+3
SYSTP
+9,RDCT=1
SYSTP,lOl
*+5
P
7
P
P
8
5
0
P
SYSTP
+l,RDCT
ROTRY,ROCT,B
0,191
SYSTP,101
BSP,E
0,111
RDXT
P
P
P
4
5
7
B
LTQRG *
P
P
P
5
8 000
U (Ul 8
S +09 +43
V QZ2 +43 B
• 000 191
(Ul 101 R
B QIO E
M
• 000 111
8 Q35
2890
186
186
186
186
186
186
186
187
181
181
187
187
188
188
1401 AUTOCODER-PASS 1 OUTPUT LIBRARY
SEQ PG LIN
LABEL
OP
OPERANDS
Dew
• 2'
1152
1156
1110
1172
1189
1200
OPSAV
NA,..E
1209
1218
1223
1225
1231
1242
1259
1260
1264
1270
1279
HDRSW
HDSWI
SEQNO
1351
1364 13 10
1365 13 11
'I
~
L
,
.L ..::Joo
...
J..:1
~
.,~
.LL
P
P
P
1
5
5
+4
p
1
=01
=03
P
P
1
'999999'
P
'HEADRt
'HEADR'
'UNKNOWN'
'999'
=01
=01
'999999'
'HEADR'
=04
'END OF LIBRARY'
t
'INSER'
'HEAOR'
'SEQ LABEL OP
'HEADR'
+1
P
P
, •
PGNO
RDCl
ENOOl
P
P
OPERANDS'
'1401 AUTCCOOER - LIBRARY'
'PAGE'
=03
+9
1317
1319
SFX CT
'PRINT'
'PUNCH'
1144
1146
Dew
EX
...... n
C:1'4U
3716L
-VERSION 3
=01
I
0
1"\
V
,
P
P
P
P
P
P
P
P
P
P
P
p
P
P
P
P
p
P
P
P
n
r
3
6
5
5
7
3
1
1
6
5
4
14
5
5
5
26
5
1
1
24
4
3
1
1
1
PAGE
LoeN
INSTRUCTION TYPE
2890
2895
LIT
LIT
LIT
LIT
AREA
AREA
LIT
LIT
LIT
LIT
LIT
AREA
AREA
lIT
lIT
AREA
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
AREA
LIT
AREA
2900
2901
2902
2905
2911
2916
2921
2928
2931
2932
2933
2939
2944
2948
2962
2967
2972
2977
3003
3008
3009
3010
3034
3038
3041
3042
3043
3044
B 000
,
I
,\I'U,\
non
vuu
VOV
31
CARD
188
188
lEfs-
188
188
189
189
189
189
189
189
189
190
190
190
190
190
190
191
191
191
192
192
192
192
192
192
192
193
193
194
'1n"7
J.71
3 ERRORS
CLEAR STORAGE 1
CLEAR STORAGE 2
BOOTSTRAP
,008015,019026,030,034041,045,053,0570511026
L068112 t l02106,113/101099/I99,027A010028)021BOOI0210BO 261,001/00111310
,0010011040
,008015,022029,036040,041054,061068,072/061039
1401 AUTOCODER-PASS 2-PROCESS IDeS-MAIN 2 -VERSION 3
SEQ PG LIN
LABEL
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
111
118
119
120
121
122
123
JOB
CTl
SFX
OTHER EQU
MINUS2 EQU
MINUS3 EQU
DIOCSB EQU
ORG
MAINX DA
LMAINX EQU
XINIT
INDEXI EQU
089
DCW
091
DC
INDEX2 EQU
094
Dew
096
DC
INDEX3 EQU
099
DCW
100
DC
124
125
126
1 01
1 02
1 03
1 04
1 05
1 06
1 07
1 08
1 09
1 10
1 11
01
02
04
05
06
08
09
10
12
1 12
1 13
1 14
1 15
1 16
1 17
..
OP
001
*
*
*'
START
RWD
RWD
2
3
lABDIO-4
1
lX86
*INOEXl,INDEX2,INOEX3
1
00
094
000
00
099
000
I
I
I
I
I
I
I
I
0
MAIN
101
4
5
,
,1,0
.. n
nlin
r\WU
0
128
129
130
131
1
1
1
1
1
1
1
19
8SS
B
C
OVLAY2,S
REDREC
MAINX+17, 'JOB'
CMefL
1
80,280
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
141
1
1
1
1
21
22
au
CC
Mew
23
24
25
26
21
28
29
30
31
32
1
1
1
1 33
1 34
1 350
1 36
W
CC
B
a
CMCll
C
BU
INSTRUCTION TYPE
CARD
1
WRTREC
REDREC
MAINX+11, 'CTl'
FIND
ROBIN,MAINX+23,1
MAINX+21,*+8
ROBIN,'456',
BeE
MN
BeE
CHAIN 2
BCE
BCE
BLUE
8
201
ORG
0101
0002
I
I
I
I
I
I
I
089
000
J.
20
lOCN
1
I
START
,1,£ I
11 ... ,
PAGE
1401 AUTOCODER-PASS 2-PROCESS IDeS-MAIN 2 -VERSION 3
630 1
START OF
ORG
3
3122l
SFX CT
OPERANDS
1
2
0003
0576
0001
0086
0001
0086
3
2
3
2
3
1
4
MACRO
GEN
0089
0089
0091
0094
0094
0096
0099
0099
0100
GEN
4
GEN
GEN
GEN
4
GEN
4
GEN
GEN
GEN
4
4
4
LINE
I
I
I
T
0101
5
5
r=
j.
:J
I
I
5
4
7
I
I
I
I
I
1
I
5
2
7
1
2
4
0132
0131
1
1
4
B
0
P32 "Ii
5
8 774
5
C 018 W05
B 151 I
5
5
5
5
F 1
8 721
6
6
6
0164
0169
0177
0184
I
I.
"T
\UU
0147
5
I
, IlL
II
V
2
0157
8
It
0146
7
1
4
U (US R
F 1
M 080 280
0149
0153
8
7
U CU4 R
0139
4
I
I
I
I
I
I
I
0101
0106
1'\"""
v .......
0116
0121
0125
0192
0193
0194
5
B 174
C 018 WOB
B 642 I
8 623 024 1
0 022 191
8 623 WI1
B
B
8 627
0201
6
6
6
6
1
MACRO
GEN
GEN
7
1
1
3722L
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3
SeQ PG LIN
LABEL
OP
OPERANDS
OA
lX132
6,6
LABDTF-l
333
NEXREe
149
1 37
1 38
150
1 39
DTFTAB EQU
151
152
1 40
1 41
ORG
153
154
1 42
1 43
1 44
1 45
1 46
148
155
156
157
158
159
160
161
16~
163
164
165
166
161
168
169
1"70
171
172
173
114
115
116
177
118
1 47
1 48
1 49
1 50
1 51
1 52
1
1
1
1
1
1
1
1
1
1
1
1
1
53
54
55
56
57
58
59
60
61
62
63
64
65
1 66
1 67
180
' .....
1 00
1 69
181
1 10
182
1 11
183
1 12
184
1 73
1 74
1 15
1i9
185
186
187
188
189
190
1 76
1 71
1 78
1 79
191
1 80
192
193
194
195
196
197
1 81
1 82
1 83
1 84
1 85
1 86
EITHER B
*if
*
*
*
lOCN
0201
INSTRUCTION TYPE
0332
2
CARD
1
1
I
I
I
I
I
4
0333
I
I
1
3
0337
8
0340
8
I
I
I
I
1
I
I
1
1
1
0341
8
0342
8
0206
FIELD
0349
0333
B 681
8
CONTROL CARD INFORMATION
*SPECL Dew
SYMNM
SFX CT
PAGE
Dew
'.'
=3
MAJOR
OfF
Dew
Dew
DCW
FILENM Dew
LABDTF Dew
Dew
Dew
Dew
DCW
Dew
DCW
DCW
Dew
Dew
Dew
DCW
Dew
Dew
1"'\:1""''1.
U\...W
Dew
Dew
DeH
DCW
Dew
Dew
Dew
Dew
DCW
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
TABLE
t , t
,• ••
COBOL
EXITS
YES
YES
=6
,
•
•
•,
•
•
,•
•
•,
•
•
•
•
•,
• •
t
,•
t
t
1
2
3
4
5
6
7
8
9
10
11
12
t
• •
•
•
•
13
14
,,~
!
t
L:1
I
, ,
•
I
t
t
t
•
2
3
READER
PUNCH
PRINTER
LOAD
CHECKPOINT
NUMBER
NUMBER
NUMBER
BLOCKED
UNBLOCKED
MIXED
11An .. AOI
•
fILETYPE
1
,..
¥Af'.lMDLt:
16-19 NUMBER
NUMBER
20
21-24 NUMBER
LABELS
25-34
35-44
45-54 LABEL
55
NUMBER
56-65 LABEL
66-75 LABEL
RECORD
16
11-80 HASH
STANDARD
81
NONSTANDARD
82
83
TM
84
ALL
85
IOENT
I
•
•
•
• •
, ••
, ,
INPUT
OUTPUT
TAPE
4
5
I
6
1
8
9
10
11
12
13
14
MOOEPAR
FEATURES
CHANDRIVE
eARDPOC
AlTTAPE
RECFORM
.
11::
.LJ
16
17
18
19
20
21
22
23
24
25
26
21
28
29
30
31
I
I
I
I
I
I
1
I
I
I
SIZEREC
PADDING
BLOCKSIIE
IOAREAS
WORK AREA
INDEXREG
EORADDR
WlRADDR
TOTALS
TYPE lABEL
CHECKlABEl
6
1
1
1
1
1
1
1
0343
0349
0350
0351
0352
0353
0354
0355
8
8
9
9
9
9
9
9
0356
9
1
0357
10
1
0358
1
1
10
10
10
1
1
0359
0360
0361
0362
1
0363
10
n~L~.
1 "1
....L
0368
0369
11
0373
11
0383
11
11
.
l'
'1
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1
I
4
1
4
10
V;;JU""
10
10
0393
0403
1
10
10
0404
1
0414
0424
0425
0429
0430
0431
0432
0433
0434
3
0437
5
0442
1
4
1
1
1
1
10
10
11
12
12
12
12
12
12
12
13
13
13
13
13
13
1401 AUTOCOCER-PASS 2-PROCESS IDeS-MAIN 2 -VERSION 3
SEQ PG LIN
LABEL
OP
OPERANDS
•
•
•
198
1 87
Dew
199
1 88
200
1 89
201
202
1 90
1 91
203
1
1
1
1
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
DCW
Dew
DCW
Dew
204
205
206
201
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
~"",..
~~"';J
230
231
232
233
234
235
236
231
238
239
240
241
242
243
244
245
246
247
92
93
94
95
1 96
1 97
1 98
1 99
2
2
2
2
2
00
Dew
01
Dew
Dew
DCW
Dew
DCW
Dew
ENODTF Dew
02
03
04
2 05
2 06
2 01
2 08
2 09
2 10
2 11
2 12
2 13
2 14
2 15
2 16
2 11
....
~
.. '""
J.O
2 19
2 20
2 21
2 22
2 23
2
2
2
2
2
24
25
26
21
28
2 29
2 30
2 31
2 32
2 33
2 34
2 35
2 36
•
•
•
t
1
I
t
t
I
••
•
• •
I
•
t
•
=9
• •
• t
I
1
LABOIO Dew
Dew
..
,• •
1
t
=9
t
t
•
U""W
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
44
45
46
47
31
38
OVERFLOW
REELSEQP
FORMeNTl
ADDRESS
216
OVERFLOW
M~JCR
t
I
• •
•
•t •
•
t
•
•
•
•
•
•
•
•
•
I
t
t
•
t
•
•
•,
t
•
•, •
•
t
t
SFX CT
LOCN
10
0452
5
0451
0467
0417
0487
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
10
10
10
10
10
10
10
0497
PAGE
INSTRUCTION TYPE
3
CARD
13
14
14
14
14
15
15
0507
0517
0521
15
16
10
0537
0541
16
16
1
1
0548
0549
16
1
1
0550
0551
3
1
0554
0555
0564
0565
10
16
16
16
11
17
17
11
I
9
1
1
0566
I
1
0567
17
17
I
I
I
1
0568
17
I
1
1
18
18
I
I
1
9
0568
0569
0570
0511
I
1
I
TABLE
' t •
.... " . J
DeW
Dew
43
I
DIoes
Dew
Dew
Dew
Dew
SERIALNUM
EX1ADDR
EX2AOOR
EX3ADDR
EX4ADDR
EX5ADDR
EX6ADDR
EX7AODR
EX8AODR
VARBUILD
REWIND
t
•
DIVIDE EQU
35
39
40
41
42
104-108 NUMBER
109-118
119-128
129-138
139-148
149-158
159-168
169-118
119-188
189-198
199 UNLOAD
200 NOREWD
9
201
202
12
203-205
NUMBER
206
3722L
40
39
38
PAR
PAR
PAR
OUT
INP
YES
DIOeSORG
TAPEUSE
TAPEUSE
EXITS
5
£
.... \ l c n t
An
Ct:::A'1"fiOr-t:"
rC;Mtunc..;)
0
UVC:f'\LAr
7
IODEVICES
TAPE
READER
PUNCH
PRINTER
lABELDEF
STANDARD
NONSTANDARD
MIxED
CHECK
IDENT
8
9
10
11
12
13
14
15
16
TM
11
18
19
YES
1
20
21
22
3
4
5
23
6
24
7
2
ALTDRIVE
EXITS
T
I.
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
0580
0581
18
18
18
nco")
10
1
0583
18
1
0584
19
1
1
1
0585
19
19
,I.
UJO'
0586
0587
1
1
0589
1
0590
1
0591
0592
1
1
1
1
1
0588
0593
0594
0595
0596
0597
1
1
1
0598
0599
1
0600
.... u
19
19
19
19
20
20
20
20
20
20
20
21
21
21
SEQ PG LIN
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
2 37
2 38
2 39
2 40
2 42
2 43
2 44
2 45
2 46
2 41
2 48
2 49
2 50
2 51
2 52
2 53
265
266
267
268
2 54
2 55
2 56
2 51
5 515
270
271
272
2 58
2 59
273
2 61
214
275
276
271
278
.,..,,,
,,7
280
281
282
283
284
285
286
287
288
289
290
2
2
2
2
2.,
291
2 80
2 60
,
*
ROBIN
BLUE
THRU
FINO
2 73
2 14
2 75
C
I
I
•
• •
•
t
t
, ••
=5
•
• •
• ,
t
I
t
38
CHECKPOINT
39-44
45
RELEASE
STORAGE
46
I
DRIVETYPE
RWDOPTION
READERROR
INPVAR
INPFXNO
COUNTS
FEATURES
1
1
1
0601
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1
1
1
1
1
1
1
1
1
CARD
21
21
21
21
0602
0603
0604
0605
0606
0607
0608
0609
22
22
0610
22
22
22
22
0611
0612
0613
0614
22
23
1
0619
0620
23
23
23
23
1
1
0621
0622
23
23
1
1
5
SPECL
MAINX+25,NORORL=1
WRTREC
REOREC
MAINX+19 t KOIOCS
GOTIT
I
I
I
I
4
7
t
I
0623
1
C 020 V71
5
0649
B 670 S
0
,nL CI.
a
4
8 098
4
4
24
24
24
24
24
24
S 337
H 026 W12
0621
0634
0638
0642
B 721
8 714
...
Dr~
O\#t:
PREPS2 B
B
GOTIT Mew
WHOM
B
NEXREC B
GAMMA BCE
C
BE
B
B
DTFNO
•
B
B
292
2 81
2 82
294
2 83
*it
295
2 84
2 85
2 86
WRTREC SBR
MCW
SW
297
t
8
LA8ELDEF
729
7330
29
NORWD
UNLOAD
30
TAPE,=
31
SCAN
32
33
PROCESS
READERROR
CLEAN
35
YES
36
YES
RECORD
31
HASH
INSTRUCTION TYPE
READ IN PHASE 2
293
296
I
25
ROLIN
27
28
LOCN
*
2 16
2 17
2 18
2 19
B
BE
£'7
2 10
S
Mew
B
...*
2 12
,• t•
, ,
, •
•
•t •
SFX CT
4
it
64
65
2 68
2 69
Dew
Dew
Dew
Dew
Dew
DCW
Dew
Dew
ENDOIO Dew
it
U.
OPERANDS
Dew
62
63
66
OP
Dew
Dew
Dew
Dew
Dew
Dew
DCW
Dew
2 41
264
269
LABEL
PAGE
3722L
1401 AUTOCODER-PASS 2-PRoeESS IOCS-MAIN 2 -VERSION 3
U A l' a.! v ..L c::
.t '-I·M 1 1,1\ T .J , ".-
T
A
0
SAVeD
PASS2
'M',LENGTH
WRTREC
REDREe
WHOM,MAINX+5,.
MAINX+11,'OTF'
OTFND
WRTREC
UPPER
SAVCD
CRDOUT
I
I
4
0662
0666
I
7
0670
I
I
I
I
1
I
I
I
I
4
4
8
7
0685
0693
5
0700
4
4
4
0105
0709
0713
0717
B V06
M W13 7lt3
B 121
B 774
B 671 006 ...
C 018 W16
B 113 S
B 121
B 821
B 098
B J68
I
I
I
4
7
0121
0725
M 086 197
4
0732
t
T
u [) t
• n" v
I
WRITE
4
VUJ"T
0617
0681
U
L"ll.
uJ ....
."nL
VVQ
-:.
,,.
. , 1'-
25
25
25
25
25
25
25
26
26
26
26
26
ROUTINE
WRTEXT+3
LMAINXtLOPUT-l
LOPUT
H 761
198
26
26
27
SEQ PG LIN
298
299
300
301
302
3Q~
304
30.5
306
307
30B
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
2 87
2 88
2
2
2
2
2
2
89
90
91
92
93
94
2 95
2 96
2 97
2 98
2 99
3 00
3 01
3 02
3 03
3 04
3 05
3 06
3 01
3 08
3 09
3 10
3 11
3 12
3 13
3 14
LABEL
OP
OPERANDS
Mew
GMWMRK.LOPUT
'W',OUTPT+74
CTAPE
TDF6
LENGTH NOP
SHORT B
NOP
WRTEXT B
TDF6
DC.W
WI
GMWMRK DC
*
*
*
REOREC
SBR
CS
ass
BlC
SSB
RTWED
8
Nap
REDEXT B
TOF4
Dew
RT
*UPPER
3 15
cw
346
347
I
I
I
I
I
I
4
tftso
M 713 198
N W17 186
B 522
27
4
4
0754
N 164
27
B 000
3
0758
0764
8
1
0165
0773
M (U6 112 W
27
27
28
0774
0778
H
809
I
086
0
+DTFOUT
4,MAINX
1
4
I
I
I
I
I
I
I
I
I
I
4
5
5
1
5
4
4
27
27
28
I
4
1
8
7
B
Dew
=3
B
Dew
B
Dew
3 30
Dew
3 31
B
Dew
B
Dew
'I'
4
3
8
0782
0187
0792
0193
B 798 C
28
28
28
B M46 A
28
1
K 806 1
28
0798
B
S22
29
0802
0806
0812
0813
N 812
29
29
B 000
M46
M CU4
28
29
001 R
29
L~8El
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
B
3 36
I
0143
eOMEQ
NEXREC,O+X3,'
'7',INOEX2
COMPR
ACTSCN
+010C58+36
REAse
=3
OPDseN
+RWDTB
OPDSCN
+ORITB
OPDSCN
+COUTB
ACTSCN
+010CS8+35
EXISB
3 29
3 32
0136
7
BE
BCE
A
,.. .... "
3 28
3 33
3 34
3 35
7
.I.
B
344
345
I
1flUCA.,:)
3 27
343
INSTRUCTION TYPE
~DK
B
BRTBL
LoeN
BCE
SBR
S
SBR
C
338
339
340
341
342
335
CCft.1PR
CARD
SFX CT
SCNSW=l
NEXREC,MAINX+20,
CHAIR+3,LSTPAR
INOEX2+1
INDEX3,lBlTBl
MAINX+l,O+X3
Dew
334
REOEXT,l
CTAPE
TDF4
LOOK UP
3 26
333
REOEXT+3
LMAINX
RTWED,C
OTFOUT
..*
336
331
332
, ,
R
337
328
329
330
000
6,OUTPT
5
READ ROUTINE
3 16
3 11
3 18
3 19
3 20
3 21
3 22
3 23
3 24
3 25
327
0
PAGE
3722l
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3
I
I
I
I
.In.r-V"""
T
INPFXNO
REAOERROR
RWDOPTION
DRIVETYPE
COUNTS
YARINP
1
I
-4
7
7
.,.
0821
0825
0833
C 008 0+0
nol!'~
LI
vo.:.Jo
5
1
0862
0867
0875
-4
0882
4
3
0886
0892
0893
0899
0900
0906
0901
0913
0914
0920
0921
0927
0928
0934
-4
3
4
3
4
3
4
3
4
3
4
3
W18
8 681 021
H 066 075
S 095
OB40
0844
0851
1-
8
)
H 099 H46
n
nnn
29
29
30
30
30
30
~,..
V7'
;;;;IV
B 98-4 S
30
31
31
31
31
31
8 681 0+0 •
A W19 094
B 851
B 113
612
B 173
31
G08
B 113
31
32
32
32
32
32
32
32
611
33
B 014
F95
B 014
F82
B 014
B 992
33
33
1401 AUTOCODER-PASS 2-PROCESS 10CS-MAIN 2 -VERSION 3
OP
SEQ
PG LIN
348
349
3 31
3 38
Dew
350
351
352
353
354
3 39
B
3 40
Dew
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
313
374
375
376
377
318
""'1'\
:'}f7
380
381
382
383
384
385
386
381
388
389
390
391
392
393
394
395
396
391
3 41
3 42
3 43
3 44
3 45
3 46
3 47
3 48
3 49
3 50
3 51
LABEL
B
3 58
3 59
3 60
3
3
3
3
3
3
61
62
63
64
65
66
*EXISB
S
NWSCNL C
SW
3 82
3 83
3 84
3 85
3 86
B 113
33
3
0941
0942
0948
0949
0955
593
33
IODEVICES
FEATURES
DIOCSORG
I
EXITS
I,OPOAR=3
INOEX2+1
MAINX+21+X3,'
MAINX+20
FDBLK
FOUND,MAINX+20+X3'f
INDEX3,'52'
BLKFD
MAINX+20+X3,OPDAR-2+X2
I
I
I
I
I
I
I
I
I
I
I
I
4
3
4
3
4
3
0956
0962
4
0963
0969
0970
0976
0977
3
4
4
3
4
3
B 014
33
33
34
34
34
B 014
E17
B 014
E52
B /47
31t
34
581
34
34
6 141
620
35
35
0983
B 014
E33
4
0984
0988
S 100
B 8Q6
35
35
7
4
3
0992
0999
1005
l
W20 571
B 014
35
F69
36
1006
H 104-
36
1010
1017
1021
1028
1032
M W23 W26
S 095
C 082 W28
36
36
4
7
4
7
4
5
,
35
.. I'\L".
A
I
A
B
A
FOUNO,INOEX2,3
'1',INDEX3
NWSCNL
'1',INDEX3
8
1
4
Sw
SCNSW
B
B
0
1071
1079
1086
1090
1097
1101
1105
1109
'"BeE
B
*
*
*
ACTSCN SBR
Mew
e
BU
LCA
ACTOUT B
~..L-'j.Hlur;;A'
I
I
1
I
I
I
I
SCANX
NWEXT
ACTUAL
SCAN
INDEX1
2+Xl,INDEXl
MAINX+22,'YES'
ACTOUT
'S',O+X1
EITHER
8
1
1037
5
1045
1052
•
7
4
4
4
4
J.UO'T
'"'8
35
36
021
1057
....
CARD
F20
"7
A
II-
0935
1
Mew
FCBLK
BLKFO
NWEXT
FOUND
4
T
J.
BE
3 11
LABElDEF
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
T"If"\~V"')
BCE
C
3 10
INSTRUCTION TYPE
B *90 S
8 105 OBI
C 099 W30
8 *97 S
M 081 WK4
BE
3 69
ALTDRIVE
NWEXT+3
MCW
£0
3 78
3 79
3 80
3 81
DCW
S
*NEkseN SBR
00
3 12
3 73
3 14
3 15
3 76
3 17
'S',DIVIDE+3
OPOSCN
+EXITB
DCW
B
3., 61
:.}
LeA
B
DCW
B
3 52
.3 53
3 54
3 55
3 56
3 57
B
B
Dew
B
Dew
B
ocw
COMEQ
ACTSCN
+DIOCSB+17
OPOSCN
+LABTB
OPDSCN
+100T8
OPDSCN
+FEATB
OIOSB
+010CS8+5
DIOSS
010CS8+44
OPOSCN
+TAPTB
INOEX3+1
BRTBL+X2
6
loeN
SFX CT
OPERANDS
PAGE
3722L
I_'"
..
ft..;JJ.
36
36
t
I~
v.,'"'t
1'\1'\
31
37
37
31
..,.,.
~I
105 094 3
A W31 099
38
8 *21
A W31 099
38
38
,
W18
38
B 000
8 N55
B 101
38
38
38
39
H 089
39
M 0*2 089
39
FOR YES
I
I
I
4
I
7
1
5
I
I
4
7
1113
1111
1124
1131
1136
1143
C 023 W34
B 143 1
l W20 0*0
B 333
39
39
39
39
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3
SEQ PG LIN
398
399
400
401
402
403
404
4_o5
406
401
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
I
.......
..... ~':1
430
431
432
433
434
435
436
431
438
439
440
441
442
443
444
445
446
447
81
88
89
90
3 91
3 92
3
3
3
3
3 93
3 94
3 95
3 96
3 97
LABEL
DIOSB
LCA
B
CHTAP
4
4
4
4
4
4
4
4
4
4
I
~
08
09
10
11
12
13
14
15
16
17
...
,1.0
...
4 19
4 20
4 21
4 22
4 23
4 24
4 25
SBR
B
DCW
C
BU
B
BeE
Mew
a
CHAIR+3,ChTAP
OPDSCN
+REATB
OPDAR,'TAP'
lSTPAR
SCANX
LSTPAR t MAINX+18+X3,
MAINX+18+X3,OIOCSB+31
LSTPAR
..
*
*CTAPE
LoeN
INSTRUCTION TYPE
1147
1151
1158
H 089
M 0*2 089
8 N55
40
1162
L OA9 OtO
B 681
40
CARD
I
I
I
I
I
4
1
It
7
It
1169
7
1173
1180
1186
1181
1194
1199
1203
1211
1218
40
40
40
READERRCR
.
03
4 04
4 05
4 06
INDEXI
2+Xl,INOEXl
SCANX
MAINX+18+X3,O+Xl
NEXREe
*
*
02
4 07
SBR
Mew
B
REASB
SFX C1
7
PAGE
DIOCSORG
...
3 99
00
01
OPERANDS
...
3 98
4
4
4
4
OP
3722l
I
I
I
I
I
4
3
7
5
I
4
I
I
I
8
7
4
H 066 /81
8 014
40
40
41
41
41
41
G27
C W26 W37
B 075 /
8 N55
B 015 OA9
M OA9 607
41
41
B 075
41
42
42
42
42
42
42
43
43
COMBINATION REACt WRITE ROUTINE
SBR
SBR
Mew
Mew
Mew
SW
Mew
A
cw
M."
.... :1.+
MN
MCW
ITAPEe RT
BeE
IEORC BEF
ICQMPR BeE
CHAIN
INOEX2
ICONPR+3
3+X2,INOEX2
8+X2,ITAPEC+7
O+X2,IEORC+3
ICOMPR+4
7+X2 t ICOMPR+6
'12',ICOMPR+6
leOMPR+4
an,...,...-, 1'IIAI T.L
1 I AYC\,T.:J,J.np1.,TO
T ...
ITAPEC+7,IHALT+6
'9',IERRCT=1
0,0
ICMETS,ITAPEC+7,W
I
I
I
I
I
1
I
I
I
T
J.
I
I
I
4
1222
1226
H 094
H T43
7
1230
7
7
1231
1244
1251
1255
1262
1269
M 0-3 094
M 0-8 T01
M 0-0 T13
4
4
1
7
4
.,
I
1
7
)
n
T19
~a"
7 f
43
1280
0 TOl U28
1287
1294
1302
M W40 1441
43
43
44
44
44
44
B
1
1
1324
1325
1326
1321
1328
1329
1330
1331
1332
1
1333
aCE
BeE
BCE
BeE
BeE
BCE
BeE
BeE
I
I
I
I
I
I
I
1
1
':1
-rJ
.~
B
1
1
~.
11"')0
VLO
LI
1323
I
I
I
I
BCE
BeE
BeE
T21
A W39 121
1315
8
5
8
ITAPEC,Q,
"",;J
T19
M 0-7
M (UO 000 R
W
B 000 K
8 594 000
8
I
1
I
a
1"')"7':1
,
1310
B T35 TOI
MACRO
12
1
1
1
1
B
8
B
GEN
GEN
GEN
GEN
GEN
B
GEN
B
B
8
GEN
GEN
GEN
GEN
B
GEN
8
44
44
44
45
45
45
45
45
45
45
46
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3
SEQ PG LIN
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
461
468
LABEL
OP
BeE
4 26
4
21
4 28
4 29
4 30
4 31
4 32
4 33
4 34
4 35
4 36
4 37
4 38
4 39
4
4
4
4
40
41
42
IaMETS BER
ICONPR B
IRkREO S
MN
BSP
BCE
BM
ITROW
8
A
SKP
BeE
B
ICI-iAlT S
H
8
IHALT
H
ass
MCW
RT
43
4 44
4 45
H
469
4 46
B
410
4 41
4 48
471
412
413
414
478
""tl":l
""t
480
481
4 57
4 58
4 59
4 60
4 61
4 62
4 63
4 64
416
477
,- ...,,,,
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
PASSI
4 49
4 50
4 51
4 52
4 53
4 54
4 55
475
OPERANDS
,-
rL
:;.JO
4 65
4 66
4 67
4 68
4 69
B
B
ALTey
nJll"l""lI
rA.:)";)£.
a
asp
n-r
1'\'
RT
SBR
B
NOP
B
*
NUMERC SBR
MCW
SW
MCW
B
KDloes Dew
BLORB 8
4 10
4 71
4 72
4 73
4 14
LeA
LCA
SBR
MCW
LCA
A
LeA
S
B
BLCWA
Dew
SFX CT
LoeN
INSTRUCTION TYPE
1334
B
B
B
S
D
I
I
1
5
1335
4
1340
7
1344
1351
1358
1363
1371
1319
1383
1390
1395
1403
1407
ElfHER+3,DIFREC
+OTFTAB+X1,OPDfND+6
186,LMAINX
WRTREC
OTFNM
BYPSS
4
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
'I
T
IRWRED
0
'1',IERRCT
ITAPEC+3.*+4
0
ITROW,ITAPEC+1,W
IHAlT.IERRCT
ITAPEC
• 1 ' , 1 ERA SC=2
6
ICHAlT,IERAse-l,5
ITAPEC-1
IERASC
0,202
ITAPEC-7
Ot200
ITAPEC-1.E
ITAPEC+7,*+8
0.0
0,201
IeONPR
ENDOIO,ENODTF
-'1"\1"\'"
J.,::J...,":I'
1,3997
TDF1+7,341
CTAPE
TOF.l
OVLY3
INDEXl
2+Xl.INDEX1
MAINX+20
MAINX+20,OTFTAB+X1
DIFREC
'OIoes'
SCANX
MAINX+18+X3,BlOWA-1
BlOWA-l,DTFTAB+24
BlOkA
EITHER
+00000
PAGE
3722l
1
5
8
8
4
7
5
8
4
4
1
1411
GEN
T44 l
W31 W41
S97 f61
W
V U22 W41 K
B S94
A W31 W43
U tU6 E
8 U01 W42 5
8 S87
S W43
• 000 202
7
1418
1422
1429
1434
1441
1449
1456
1460
1467
1468
1415
1482
4
1489
4
4
1493
1497
M W46 093
L 186 086
B 721
B 191
B C49
5
1501
U
'1CI'\L
"'1'\'" n1'\
M fUl 197 R
H P30 341
4
7
5
7
8
1
4
7
1
7
7
0
8 587
• 000 200
a 587 E
M T01 U48
M (UO 000 R
• 000 201
B 140
L 622 567
l
H
U
336 M06
tU4
• It'
46
B
47
47
47
47
41
48
48
48
48
48
48
48
49
49
49
49
49
49
50
50
50
50
50
50
50
C'I
I"
0
J..:JVO
8
1
I
1
1
7
1514
1522
4
4
4
1529
1533
1537
B 522
N P23
4
7
4
1541
1545
1552
1556
1563
1571
1512
1516
1583
1590
1594
1602
H 089
M 0*2 089
51
021
M 021 3U9
B MOb
52
52
52
52
52
52
I
I
I
I
I
I
I
7
4
5
I
4
7
1
I
4
I
4
I
5
1
I~I
\VJ.
CARD
46
46
46
46
46
000
U tUG B
B T83 TOI
8
.l7f
B 341
,
B N55
A OA9 WOl
WOl 373
S W02
L
B
333
:JJ.
51
51
51
51
51
52
53
53
53
53
SEQ
498
PG
LIN
LABEL
OP
OPERANDS
lTORG •
DCW
' JOJt'
'CTL'
4 75
269
NORORl
'456'
=01
323
SCNSW
=01
1M'
'OTF'
'W'
'1'
t
370
OPDAR
$'
=03
,
'52'
, 1'
'YES'
'TAP'
'12'
499
500
501
431
451
473
4 16
4 11
4 78
'9'
IERRCT
IERAse
=01
=02
+DTFTAB+Xl
eVER
ORG
DCW
EX
1649
, ,
PAGE
3722L
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3
SFX CT
loeN
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
CARD
1603
I
I
INSTRUCTION TYPE
9
3
1605
1608
1611
1612
1613
1616
1611
1618
1619
,1620
1623
1626
1628
1630
1631
1634
1637
1639
1640
1641
1643
1646
1
1649
3
3
3
1
1
3
1
1
1
1
3
3
2
2
1
3
3
2
1
1
2
LIT
LIT
LIT
AREA
LIT
LIT
LIT
3U9
53
·-53----53
54
54
54
54
AREA
54
LIT
LIT
LIT
AREA
LIT
LIT
LIT
LIT
LIT
LIT
lIT
AREA
AREA
AotON
54
54
55
55
55
55
55
55
55
56
56
56
56
56
1649
51
8 000
58
SEQ PG LIN
LABEL
OP
OPERANDS
SFX CT
502
4 79
JOB
503
504
505
506
4 80
4 81
ORG
1401 AUTOCODER-PASS 2-PRQCESS IOCS-MAIN 1 -VERSION 3
1650
I
SFX
I
501
4 84
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
4 85
4 86
4 87
4 88
4 89
529
.530
531
532
,...~
....
:>.::>.::>
534
535
536
531
538
539
540
541
542
543
544
545
546
547
548
549
550
551
4 82
4 83
4 90
4 91
4 92
4 93
4 94
4 95
4 96
4 97
4 98
4 99
5 00
5 01
5 02
5 03
5 04
5 05
5 06
5 07
5 08
5 09
,.,..
II'!'
:>
1.U
5 11
5 12
5 13
*
*
*
OTF
OF
Dew
INOEX3,OTFlAB
CHAIR+3,lSTPAP.
DIFREC,MAINX+20,
SCNSW
MAINX+6,'EX'
EXIRB
INDEX2+1
MAINX+7,O+X3
INOEX3
AGREE
DIFREC,O+X3,'
'7',INOEX2
SEEK
OPDSCN
REWXl
ACTUAL
+DTFTAB+205
ACTUAL
+DTFTAB+IC8
HEARS
+OTFTAB+I03
OPDSCN
+CHEXl
OPDSCN
+TYPXl
n
T n · T n ...
DTFINT SBR
SBR
BCE
CW
C
BE
S
SEEK
C
SBR
BE
BCE
A
B
DfFBR
TABLE
B
Dew
B
Dew
8
DCW
B
DCW
B
Dew
B
0
DCW
B
Dew
5 14
5 15
5 16
B
5 17
5 18
5 19
5 20
5 21
5 22
5 23
5 24
5 25
5 26
5 27
5 28
Dew
Dew
B
B
oew
B
Dew
B
Dew
B
Dew
B
Dew
B
=3
LOCN
INSTRUCTION TYPE
10
CARD
1650
BRANCHES
I
I
I
I
REWIND
REEL SEQ
SERIALNUM
eHECKlABEl
IYPElABEl
IU'''D
ACTUAL
+DTFTAB+75
ACTUAL
+OTFfAB+65
INDRB
=3
ACTUAL
+DTFTAB+54
IOARB
+DTFTAB+44
BLORS
+DTFTAB+24
NUMERC
'020'
ACTUAL
+OTFTAB+19
OPDSCN
PAGE
3721L
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3
TOTALS
WlRADDR
EOFAODR
INOEXREG
WORKAREA
IOAREAS
BlOCKSIZE
PADDING
SIXEREC
7
7
8
4
I
7
I
I
I
I
I
I
I
I
I
5
4
7
4
5
8
7
4
4
1
3
I
I
I
I
I
I
I
I
I
4
3
4
3
4
3
4
3
4
1
3
Y
.I.
"T
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1650
1657
1664
1672
1616
1683
1688
1692
1699
1103
1708
1716
1123
1727
1133
1734
1140
1141
1741
1748
1754
1155
1161
1762
1768
H 099 H03
61
H 066 075
61
61
61
61
61
62
62
62
M06 021
) W18
C 007 H48
8
B -31 S
S 095
C 008 0+0
H 099
8 135 S
62
M06 0+0 •
A H49 094
8 W92
8 014
EOO
B -89
554
B -89
457
B N31
62
62
62
8
452
8 014
087
8 014
014
I.
1 ""Ln
.L I U:7
3
4
3
4
1175
1716
1782
1183
1789
1790
1796
1797
1803
1804
3
1810
393
4
1811
1817
1818
1824
1825
1831
1832
B V12
313
B V41
4
3
4
3
4
3
3
4
3
1
4
I
I
3
4
0
U
"70'
4Q.&.
8 -89
424
8 -89
414
B -11
B -89
403
8 Z47
63
63
63
63
63
63
63
64
64
64
64
64
LI.
U"T
64
65
65
65
65
65
65
65
66
66
66
66
66
66
66
B -89
67
368
B 014
61
61
SEQ PG LIN
552
553
554
555
556
557
558
559
560
561
562
5 29
5 30
569
574
575
576
5 46
5 47
5 48
5 49
5 50
5 51
5 52
5 53
577
518
579
5 54
5 55
5 56
580
581
582
5 51
591
592
593
594
595
596
597
598
599
600
601
8
DCW
'009'
ACTUAL
OTFTAS+198
Ae 15eH
+DTFTAB-1
NUMERC
'206'
OVERS
=1
1900
1tl
HALT
OVER
OTHER
1
288
,"
au
5 61
5 62
590
Dew
B
5 58
5 59
e
B
39
584
589
AlTTAPE
NUMERC
'010'
OPDSCN
+MODXI
OPDSCN
+FILXZ
NUMERC
40
::;
586
581
588
'all'
B
38
::JO':)
585
RECFORM
Dew
5 41
5 42
5 43
5 44
5 45
ct'to~
+REeXI
NUMERC
5 35
5 36
564
565
566
567
568
513
Dew
Dew
B
Dew
563
570
OPERANDS
B
31
5 63
5 64
5 65
5 66
5 67
5 68
5 69
5 70
5 71
5 72
5 13
5 14
5 75
5 16
5 71
5 18
Dew
B
Dew
B
Dew
B
Dew
ORG
RTW
BER
cw
B
HALT
..AGREE
...
IOARB
....
..
TOTRB
BSP
Nap
H
MODEPAR
FIlETUPE
CHANDRIVE
I
I
I
I
I
I
I
I
1
VARBUILO
I
I
1
I
1853
B 014
68
68
3
1859
030
4
1860
1866
1867
1873
1874
1880
1881
1881
1888
1894
1895
1899
8 014
68
68
023
68
B V41
68
68
69
69
1852
4
3
4
3
4
3
4
3
4
3
I
4
1
I
8
5
4
4
5
4
1900
1908
1913
1917
1921
1926
1930
1931
1900
I
S
INDEX3+1
MAINX+20
I
I
...T
4
1935
4
,.
..,.
1939
sw
n
0
n .... r-nn.v."
ulrOr\TAL
1
n,.
~
.... 7-r:J
055
CARD
B V41
1838
3
I
I
I
1
I
I
I
I
1
INSTRUCTION TYPE
11
61
67
·61
67
3
4 1839
3 -1845
4 1846
B
B V41
8 -89
547
8 113
69
342
8 V41
69
69
69
8 -06
69
70
1900
L (U1 001 R
8 Z21 l
)
W49
BIOI
U (U1 B
N 288
70
70
70
10
70
til
70
11
8 lOa
11
S 100
021
t
D
vu"7
u
,,"-,
71
71
, ....
"'71
IOAREAS
B
LCA
Bw
B
LCA
B
SCANX
MAINX+18+X3,DTFTAB+44
EITHER,SCNSw
SeANX
MAINX+18+X3,DTFTAS+34
EITHER
I
I
I
I
I
I
4
1947
1
8
1951
1958
4
1966
7
4
1970
1977
I
1
I
I
I
1
I
I
4
1981
1988
1994
1995
N55
OA9 393
V 333 WlS 1
8 N55
L OA9 383
B
L
B 333
71
11
12
72
12
12
TOTALS
SBR
DeW
LCA
B
OVERB
CARDPOC
I
I
I .
LoeN
1
4
B
TOTJK
SFX CT
OP
5 31
5 32
5 33
5 34
5
5
5
5
511
512
LABEL
PAGE
3721l
1401 AUTOCODER-PASS 2-PROCESS IDeS-MAIN 1 -VERSION 3
SBR
B
CHAIR+3,TCTJK
OPOSCN
+TOlXZ
MAINX+18+X3,OTFTA8+80
LSTPAR
CHAIR+3,OVEJK
OPQSCN
3
7
4
7
4
2002
2006
2013
8 014
72
72
E20
72
H 066 195
L OA9 429
B 075
H 066 -20
B 014
73
13
73
73
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3
SEQ PG LIN
602
603
604
605
606
607
608
5 79
5 80
5 81
5
82
5 83
5 84
5 85
609
5 86
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
5
5
5
5
628
629
630
631
632
L~~
87
88
89
90
5 91
5 92
5 93
5 94
5 95
5
5
5
5
6
6
6
96
97
98
99
00
01
015
LABEL
OVEJK
*
*
*EXIRB
6 04
6 05
6 06
6 07
6, 08
An
V7
0;,:);,:)
0
634
635
636
631
638
639
640
641
642
643
644
645
646
641
648
649
650
651
6 10
6 11
6 12
6 13
6 14
6 15
6 16
6 17
6 18
6 19
6 20
6 21
6 22
6 23
6 24
6 25
6 26
6 27
Dew
+OVEXI
MAINX+18+X3,OTFTAB+216
LSTPAR
LCA
Mew
LCA
LCA
B
*
*
INDRB
MZ
B
*
*
*ACTUAL SBR
BW
Mew
SEARCH B
LCA
SBR
8ft
B
NEWWRT SBR
MeW
sw
Mew
LONG
MCW
.
...
B
Mew
SBR
8
es
SW
SBR
LODPAR
Mew
Mew
S8R
I
I
7
1
4
I
I
I
I
I
I
I
1
4
4
7
1
4
MAINX+21,CTFTAB+55
, ',DTFTAB+55
OIFREC
LOAD
1
PAR~METERS
4
LOCN
INSTRUCTION TyPE
2019
2020
2027
E13
l OA9 565
B 015
2031
2038
2045
2049
M H52 094
0 008 093
S 100
14
14
74
B N55
74
2053
2060
L OA9 3M9
l H53 343
B M06
74
74
15
022 404
15
15
75
CARD
73
13
73
2067
I
4
,I.
OUTPT+80
GMWMRK,OUTPT+80
'*',OUTPT+73
SHORT
I
I
I
I
'5',TDF6+4
LMAINX
'S5555',MAINX+19
INDEX3,ENCDIO
GOOO+4
LMAINX
1
INDEXl,MAINX+20
'*',MAINX+12
O+X3,WKAREA-l
INOEX2
0
y H54 404
B M06
STATEMENT
fOR
15
15
16
76
76
2089
2093
2101
2108
2112
2119
2123
2131
2135
L OA9 0*0
H 089
V M06 Wl8 1
8 J08
H 161
76
I
,,)''2n
c..,l.J7
u
T~""
~7f
-'7
4
2146
2150
2151
2164
192
M 113 192
17
11
77
71
2168
2175
2119
2186
2193
2191
2201
0 H56 768
I
8
I
7
I
I
I
1
I
I
4
l'
l"'I
MACRO
2011
2018
2085
- ACTUAL
n I 4 T _ .'1
Lf"IM 11'1A, L u r v I - ...
I
1
1
I
I
1
INDEXI
EITHER.SCNSw
2+Xl,INDEX1
SCANX
MAINX+18+X3,O+Xl
INDEXI
DIFREC.SCNSW
SEARCH
WRTEXT+3
I ... Jl ., 11., V
3
12
REGISTER
OUTPUT
CRDOUT MN
CS
Goae
'1 8',INDEX2
MAINX+1,INDEX2-1
INDEX3+1
SCANX
MA[NX+18+X3,OTFTAB+X2
'S',DTFTAB-6
DIFREC
INDEX
MN
OVERFLOW
PAGE
ROUTINE
EXITS
B
6 02
6 03
OPERANDS
MN
S
*
SFX C1
OP
B
3121L
7
4
8
4
...,4
7
7
4
H 089
V 333 W18 1
M 0*2 089
8 N55
''''I
I\OL
VQU
J
M H55 185
B 150
76
16
76
••
DIOC
I
I
I
I
I
I
I
I
I
1
I
7
4
1
7
4
4
4
1
1
7
4
2205
2212
2219
2226
I 086
M H61 020
H 099 622
8 KOI
I 086
, 001
H 089 021
M H62 073
M 0+0 L89
H 094
T7
78
78
78
78
78
18
18
19
79
19
1401 AUTOCODER-PASS 2-PRoeESS IOCS-MAIN 1 -VERSION 3
SEQ PG LIN
652
653
654
655
656
_6_57
658
_659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
616
617
678
679
680
681
682
In..,.
6 28
6 29
6 30
6 31
6 32
9 33
6 34
6 35
6 36
6 37
6 38
6 39
6 40
6 41
6 42
6 43
6 44
6 45
6 46
6 47
6 48
6 49
6 50
6 51
6 52
6 53
6 54
6 55
6 56
6 57
6 58
..
en
00';'
0
684
685
688
689
6 60
6 61
6 62
6 63
6 64
6 65
690
6 66
691
692
693
694
695
6 67
6 68
6 69
6 70
6 71
6 12
6 73
6 74
6 75
6 76
6 77
686
687
696
697
698
699
700
701
LABEL
;J~
OP
OPERANDS
Mew
INDEXl,SAVXL1=3
I+X2,O+Xl
INoEXl
'.O+Xl
' t
CONTIN,MAINX+72,t
HeM
SBR
Mew
BCE
Mew
SW
Mew
Mew
cw
B
CW
B
CaNTIN Mew
SBR
CC~BLK (
SAR
BE
A
B
B
ALLoiD Mew
MCW
B
ew
MN
BETTER B
WKAREA Dew
DTFNM S
B
LCA
O+Xl
',MAINX+79
MAINX+78
O+Xl
NEWWRT
OUTPT+80
GOOD
O+X3,Q+X3
INDEX3
0+X3, I ,
INDEX3
(OMBLK
11 ' .INDEX3
ALLOIO,O+X3.,
LODPAR
',O+Xl
• ',MAINX+12
NEWWRT
dUTPT+80
'6',TOF6+4
PASS!
INDEX3+1
*'
SCANX
LOCN
INSTRUCTION TYPE
I
I
I
I
1
1
2230
2237
M 089 H65
P 0-1 0*0
19
79
4
2244
79
1
1
8
7
H
M
B
M
Otf9
2248
2255
2263
2270
2274
2281
2285
2289
2293
2297
2301
2308
2312
2319
2323
2328
2335
2343
2347
2354
2361
2365
2369
2376
2390
2391
2395
2399
H67
LOl
H65
OtO
M H69
M 079
80
80
MAINX+18+X3,FIlENM
1
1
I
I
I
I
I
I
1
I
I
I
I
I
I
I
I
I
I
I
I
I
I
n
0
"l:Uf\C\"
I.
DELTA
BCE
C
ALPHA,MAINX+5,.
I
MAINX+19,'
DTFCUT
WRTREC
OIFREC,MAINX+5,.
DTFINT
'5',TDF6+4
INOEX3,ENDDTF
SAVCD
WALK+3,ALTBY
MAINX+17,'DTFt
LMAINX
'33333',MAINX+19
SEToSW
BETTER+3,PASS2
GOOO+4
BETTER+3,RNOTF
GOOD+4
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1
I
BU
ALPHA
8
BCE
B
DTFOUT MN
SBR
B
SBR
C
es
MeW
BE
RIVER
SBR
B
SETOSW SBR
B
n.-nnr-r-
I
I
I
M'I'r-nr-r-
Ulrf\c.",
13
(1
SFX
SAVXll,INIJEXl
PAGE
3721L
T
4
7
4
4
4
4
4
7
4
7
4
5
7
8
4
1
7
4
4
7
'+
11
4
4
7
,.,.
8
"7
5
4
8
4
7
7
4
"7
7
4
7
5
7
4
7
4
,
)
0*0
073
089
OtO
B J35
) 192
B J97
M 0+0
H 099
C 0+0
Q 099
B l12
A H70
8 L4-1
B K19
M H69
M H54
8 J35
) 192
0 H71
8 U60
0+0
H54
S
099
0+0
,
OtO
013
768
S 100
B N55
l
..,..".
f f"T
01.
O"T
B M30 006
C 020 H76
B M46 /
S 721
B M06 006
B W50
D H56 168
H 099 561
B 098
H Q99 U97
018
086
H84
N05
l79
B KOI
H L79
8
84
84
OA9 349
2410
2418
2425
2430
2434
2442
2446
2453
2460
2464
2471
2478
2482
2489
2494
2501
2505
2512
C
I
M
B
H
KOI
80
80
81
81
81
81
81
81
81
82
82
82
82
82
82
83
83
83
83
83
83
84
ft
0
80
80
080
"".I'\,L
L"TUU
*
CARD
H79
020
5
V06
N16
*
*
84
84
84
85
85
85
85
85
85
86
86
86
86
86
86
87
81
87
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3
708
709
6
6
6
6
6
6
6
6
110
6
711
112
713
714
115
116
717
118
719
720
721
722
123
124
125
126
727
128
729
6
6
702
103
104
105
706
701
730
731
732
7':12
• .J,.,
734
735
136
737
738
739
140
741
742
743
744
745
746
747
748
749
150
751
6
OP
OPERANDS
18
79
80
81
RNDTF
RTW
SSP
CW
82
83
HEARS
1,341
1
OTFGM
PASSI
SCANX
MAINX+18+X3,OTFTAB+103
ACTUAL
+OTFTAB+93
84
85
86
87
88
89
B
8
MCW
B
DCW
*
*
*SCANX
SBR
SW
C
SCANL
6 97
SETIT
SETWMS SW
CLUBS B
6 98
6 99
1 00
7 01
1 02
7 03
1 04
1 05
1 06
1 07
7 08
no
• ...,,,
7 10
1 11
1 17
1 18
7 19
24
SBR
CS
SW
Mew
B
0
CUD
un.
.J
MCW
SAR
BE
CHAIR
BeE
B
lSTPAR BW
B
OPDFNO LeA
B
SAveD
SVCOX
•..
*
TOFI
OPERAND
INDEX2
2+X2,SAVX2
NEWSCN
SAVX2=3,INDEX2
OPOAR,O+X2
INDEX2
O+X2,INOEXl
INOEX2
OPDFNO
LSTPAR,0+X2,'
SEEKOP
EITHER,SCNSW
OPDRTN
'$',DIOCSB+Xl
lSTPAR
SVCOX+3
186
101
LMAINX,186
Mew
B
Mew
SEEKOP C
22
7 25
1 26
1 27
0
SCAN
OPDseN SBR
20
21
23
'l',INOEX3
SETIT
SETWMS,MAINX+19+X3"
INDEX3,'52'
SCANl
SCNSW
MAINX+20+X3
....
READ
Dew
I
I
I
I
I
I
I
I
I
I
I
,
A
*
*
7
7 12
1 13
1 14
1 15
1 16
CLUBS+3
MAINX+20
MAINX+21+X3,'
BE
BCE
C
au
sw
OPORTN
I
I
I
I
I
I
I
I
lOCN
INSTRUCTION TYPE
L
14
CARD
8
2516
5
2524
IUl 341 R
U ( U1 B
4
2529
)
4
B U60
1
4
2533
2531
2541
2548
B -89
3
2554
442
88
88
88
88
4
2555
2559
2563
2570
H 013
88
4
87
87
568
B N55
M OA9
87
81
452
SCAN FOR A COMMA OR TWO BLANKS
6 90
6 91
6 92
6 93
6 94
6 95
6 96
7
7
7
7
7
SFX CT
LABEL
SEQ PG LIN
PAGE
3721L
=3
IN
4
7
7
5
8
1
5
4
4
4
,
021
C 082 H69
88
A H70 099
88
89
89
89
2571
2582
B 002 S
2590
2591
2602
2610
C 099 H86
B N59 I
W18
t
OBI
t
B 000
89
89
90
90
2614
2618
2625
2629
H 094
M 0-2 H89
B *06
M H89 094
90
90
90
90
90
2606
B 006 OBO
t
89
TABLE
OVERLAY
1
I
I
I
I
4
1
4
.,.
2636
C W26 0-0
"r
~.
--'L~. "'I
,g-r.:l
nLJ
I
I
I
7
2641
2654
2658
2663
2671
2675
2683
M 0-0 089
Q 094
V 333 WIB 1
92
B 025
92
2681
L H53 5X6
92
92
92
92
92
.A.
1
7
4
5
B 087 S
075 0-0
a
4
7
I
4
2694
I
I
4
4
2698
B 015
H P20
2702
I 186
I
4
I
I
7
4
2106
2110
2711
M 086 186
B 000
I
3
2723
4
8
B 036
,
'7.1
V"7~
I
I
I
I
I
8
",1
1"\1"11
101
•
91
91
91
91
91
93
93
TWO
93
SEQ PG
152
753
754
155
756
751
LIN
1 28
7 29
1 30
1 31
7 32
7 33
158
1 34
159
1 35
1 36
1 37
7 38
7 39
1 40
1 41
1 42
7 43
1 44
7 45
1 46
7 47
7 48
7 49
7 50
7 51
160
161
162
763
764
165
166
761
168
769
710
711
172
773
774
775
776
177
178
719
780
781
782
1~
....
10;)
784
785
786
181
788
789
790
791
192
193
794
195
196
1 52
7 53
7 54
1 55
1 56
7 51
1 58
,..,..
7
7
7
7
7
7
7
:>"1
60
61
62
63
64
65
1 66
7
7
7
7
7
B
NOP
B
LoeN
INSTRUCTION TYPE
8
2124
4
1
2732
lUI 101 R
332
M 1"73 -332
M (Ul 101 R
B 522
N P23
8 101
SFX CT
I
I
I
I
I
I
I
-273-6
8
2143
4
2751
2755
2759
4
4
l
,
CARD
93
93
-93 9494
94
94
ALTER PART OF IOCS
..
ALTER
NOP
MCW
BSS
CTAPE
TOF4A
QUTPT+7,SYMNM
DUTeLtC
BSP
4
SBR
SBR
RIVER+6 t TUNEL
PREPS2+3
8
R
C
au
HOMAl
B
B
NOALTB B
NOP
C
BE
PROPRE C
ALTSI BU
B
B
ALTS2E C
.... ,.
... ..
1" .... .....,.
ALI~L
Dc:
SOLVED Mew
SW
ALTIG BSS
TUNEl BW
WALK
B
B
BSPT4
REGl
71
1 71
1,101
GMOVl2
GMWMRK,GMCVL2
1,101
CTAPE
TOFI
PUNCH
it
BW
MN
B
10
OPERANDS
15
it
69
801
799
RTW
QVlAY2 SW
MCW
RT
a
800
198
OP
67
68
7 72
7 13
7 14
7 75
7 76
191
LABEL
PAGE
372lL
1401 AUTOCODER-PASS 2-PRoeESS IDeS-MAIN 1 -VERSION 3
PACKX
asp
LCA
B
SBR
SW
CW
S
B
MAINX+11,'ALT'
WALK
SAVXX
PACKX
CTAPE
TOF4A
QUTPT+83,HLOAl
CHECK
OUTPT+17,'JOS'
ALTS2E
NOPJB
NOTER
OUTPT+17,'CTL'
I
I
I
I
I
I
I
I
I
1
I
I
I
4
4
7
5
5
7
4
1
7
5
4
4
4
2163
2161
2171
2718
2783
2188
2195
2199
2800
2801
2812
2816
2820
8 S22
94
94
N A35
M 119 340
8 119 C
U CUlt 8
H
NOO Q88
H 665
1
C 018 H92
B Q96 I
B C19
B R43
8
94
95
95
95
95
95
95
95
96
96
96
522
A35
7
2824
2828
5
2835
7
2840
28lt1
C 129 H95
96
96
96
B Q60 I
97
2852
B
205
97
2856
2860
B 220
91
I
I
I
I
I
I
I
4
1
1
5
4
4
N
96
C 195 102
B +05 S
e 129 H98
97
n,.
UUI"L
J.
T
c::
J
LQQf
"')OL,.
D
0
OUTPT+85,LMAINX
READS
REGEN,G
BSPT4,REACS
SAveD
ALTBY
REGL,XCARCS
'5',TDF6+4
NEWWRT
REGL ... S
I
7
M 191 086
91
I
I
I
I
I
1
I
I
I
I
I
I
I
I
I
I
I
4
S
8
4
4
2872
2879
2883
110
A44 G
97
R04 110 1
98
098
U91
98
98
R27 109 1
98
H56 768
98
99
"". t T , . I
4
AREASV,186
ALTBY
PACKS+3
BAlTR
SCNSW
INOEX3+1
SCANX
8
7
4
4
5
2888
2896
2900
2904
2912
2919
2923
2927
4
2932
2939
2943
2947
4
4
4
2951
2955
2959
7
4
4
t
8
V
B
B
V
0
1 1 t'\
..L..L7
("
..;)
B J35
B R32
U (U4 B
L 331 186
B U97
H -+04
t
)
103
Wl8
"7 f
98
99
99
99
99
99
99
100
S 100
100
B N55
100
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION .3
seQ PG LIN
802
803
804
805
806
801
80a
809
810
811
812
1 78
7 79
1 80
7 82
7 83
1 84
7 85
1 86
1 87
1 88
7 89
1 90
816
7 92
1 93
7 94
7 95
7 96
7 97
1 98
7 99
8 00
8 01
8 02
8 03
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
841
848
849
850
851
04
a 05
8 06
8 07
B 08
... ,..
8 U'1
8 10
8 101
8 102
8 11
8 12
8 13
8 14
8 15
PARKS
PACKS
..
*
*CHECK
DBLAl
ZA
CW
CS
MAINX+18+X3,HlOAl=4
PARKS,SCNSW
SCANX
MAINX+18+X3,HLDB
BAlTR=l
LMAINX
B
1
0
sw
ALTER
BW
C
BE
B
NOP
B
WRTAL
BlC
R
C
BE
C
AlTS3
BU
B
B
AlTS4E C
ALTS4 BE
BW
cw
TUFF
B
B
,
2963
8
2910
4
2918
7
4
2982
2989
+ OA9 102
V R93 W1S 1
B N55
+ OA9 107
) 103
4
2993
I
4
4
29-97
,
3001
B 000
COMPARES
8
7
3005
3013
5
3020
3025
V +31 103 1
C 195 107
8 +37 S
B 522
WRTAL,BALTR
OUTPT+83,HLDB=4
WRTAl
CTAPE
TDF4A
DBLAl
TUNEL
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
MAINX+17,'ALT'
HOMAl
MAINX+17,'JOB'
ALTS4E
NOPJB
RSOlV
MAINX+17,'CTl'
CRDCl
TUFF,BALTR
I
READS
ALTIO
SAVXX
4
4
1
5
3029
3033
3031
3042
3043
3050
7
3055
5
4
3062
3061
4
5
1
4
3071
7
3075
3082
3087
3095
3099
3103
., .. "..,
::J.LV'
3111
3118
3122
3129
5
I
I
I
I
4
I.
8
4
4
SBR
SBR
MCW
RSOlV+1,SOLVED
CHUCK+3
tN',NOSOl
PROPRE
I
7
v,.. .. n n r
rDF
Dew
FOR
READING
cw
B
Mew
CHARACTER
TUNEl
4,QUTPT
REGENERATION
BW
SBR
SBR
86
ORDN,XCARCS
NEXREC+3,SPCAS
ALDIO-1,SCFT
READS
FINO
AREASV,LMAINX
OF
010es
086
001
16
CARD
100
100
100
100
101
101
101
101
EQUAL
..,.
RT
speAS
1
I
I
I
I
I
I
I
I
l'
*
*
*
*
REGEN
INSTRUCTION TYPE
~
•
TDF4A
LOCN
Al.AI\U:;
B
*
NUMBER
PAGE
SFX CT
~w
"..,
8 16
8 17
8 18
8 19
8 20
8 21
8 22
8 23
8 24
8 25
OPERANDS
B
ZA
7 91
8
OP
Bit
7 81
813
814
815
811
818
LABEL
3721l
AND
I
4
I
I
1
4
I
I
8
N A35
B +13
B
QaB
A
1
C 018 H92
B
QI2 S
C 018 H95
B +75 I
B 205
B 175
ala
H98
138 S
V A03 103 1
C
B
110
8 Q83
)
B C19
\
I
ornn
.lV'7
182 Q72
H 234
M 108 131
101
101
101
102
102
102
102
102
102
102
103
103
103
103
103
103
104
104
104
104
.. nl.
£,V'T
H
104-
B Q40
104
105
105
3135
3136
Q88
M (U4 112 R
105
3144
3152
V A85 109 1
H 684 A14
H B02 868
RECORDS
3
105
OTF
I
I
I
I
I
I
B
1
7
4
4
7
3159
3166
3170
3174
B 642
105
105
106
106
106
M 331 086
106
)
110
1401 AUTOCODER-PASS
seQ
PG LIN
852
853
8 26
LABEL
sw
XCAROS=l
NEXREC+3,ALDIO
DIFREC+3,ALDTF
FINO
LMAINX
RDT4A,REACS
lUNEr
855
856
8 29
857
8 31
858
8 32
859
860
8 33
R
8
C
861
8 35
8 36
862
863
864
865
866
861
868
869
870
871
812
813
814
875
8 27
8 28
8 30
8 40
FINAL
8 41
8 42
a
43
8 44
8 45
8 46
8 41
8 48
8 49
8 50
882
8
8
8
8
883
8
884
8 58
8 59
8 60
885
886
887
888
889
890
891
892
893
894
895
896
8
8
8
8
53
54
55
56
57
62
63
64
8 65
8 66
8 67
8 68
8 69
8 70
a 11
898
899
8 12
a 13
900
8 74
8 75
B
C
BE
SW
FINAl2 Mew
SOFT
B
DBLCK ew
BW
TRPCK C
BE
B
NOP
B
*
*
AlDTF
SAVXX
SAVXT
lUNET
BVPSS
READS=l
FINAl2,BAlTR
OUTPT+83,HLOB
ALOIO
CTAPE
TDF4A
TRPCK
ON
ALTER
4
3181
7
3185
7
3192
4
4
3199
3203
3201
8
5
1
3215
3220
3221
7
5
3228
4
3233
4
3237
It
3241
7
5
3245
3252
3257
3261
3268
3212
3276
3284
3291
3296
3300
3304
4
7
4
4
8
1
5
4
4
4
I
7
Mew
4
4...,
B
0
I
4
5w
MCW
B
SBR
READS
'N',FINAl
RDT4A
BYPSX+3
CTAPE
TDF4A
I
I
I
I
4
1
4
I
I
I
I
4
8
8
4
I
I
I
I
I
1
3
3
3381
3384
3
3390
3393
B
INSTRUCTION TYPE
t
109
H
H
684 803
MC9 C08
B 642
I 086
V 841 110 1
B C34 A
11
CARD
106
106
-- {Cft-- -----107
107
101
107
1
107
t 018 H92
107
108
108
B 868 I
B C19
B R43
B t49
C 195 102
B 872 S
,
110
M 197
086
B 685
110
V 861 103 1
)
e 195 107
B B03 S
108
loa
108
108
108
109
109
109
109
109
109
B 522
109
NA35
B 884
110
110
Bl1 MI0
B B03
H e33
.,.., ..
1"1 VOO
B 000
110
110
MODE
I
1
y
1
BVPSS+4,OUTPT+74,~
BVPSS+4,OUTPT+74,Z
0
3308
3315
3319
, ...... "')..,
1
4
4
~_Jc.:;J
3330
3334
3338
3345
3349
3353
3357
3361
3369
3317
H
U
nOL
110
.3.3~
AAU
"
"n
110
t
M 108 852
110
111
111
841
C80
B 522
N A35
B C53 186 V
B C53 186 Z
B 000
B
H
III
111
III
111
111
112
112
OlF TABLE OF OPERANDS
*
*
I
I
I
I
I
I
I
I
I
I
I
I
I
I
LoeN
SOFT+3,DElTA
AlOIO
5AVXT+3
LMAINX,AREASV
SBR
B
SBR
NOP
BCE
BeE
..
I
GAMMA
OTF
B
BYPSX
I
I
I
I
I
I
I
I
I
I
MAINX+ll,'AlT'
SOFT
SAVXX
PACKX
BVPSS
OUTPT+83,HlCAl
DBLCK
READS
OUTPT+85,lMAINX
*
61
897
901
B
B
RDT4A
8 51
8 52
881
au
8 31
8 38
8 39
876
879
880
ALOIO
34
871
818
ORDN
OPERANDS
PAGE
3721L
IDeS-MAIN 1 -VERSION 3
SFX CT
OP
SBR
SBR
B
es
BW
BlC
854
2-PRoeESS
DeW
Dew
Dew
oew
DeW
•• t
FILETYP
'001'
'INP'
'002'
'OUTI
INPUT
OUTPUT
3
3381
112
112
112
112
112
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3
SEQ PG LIN
902
903
904
905
906
907
908
909
910
911
912
913
8
8
8
8
8
8
8
8
8
8
8
16
17
78
19
80
9 02
9 03
930
9 04
931
932
9 05
9 06
0"2"2
0;#
934
9 08
9 09
9 10
9 11
9 12
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
9
FllXl
MODXZ
92
RECXI
01
TYPXZ
9 17
9 18
9 19
9 20
9 21
9 22
9 23
9 24
9 25
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
DCW
Dew
Dew
Dew
DCW
nrt..'
..... """
Dew
n'7
"'"
9 13
9 14
9 15
9 16
'003'
Dew
90
91
93
94
95
96
91
98
8 99
9 00
Dew
Dew
Dew
8 89
8
8
8
8
8
8
8
8
8
OPERANDS
Dew
Dew
Dew
82
83
84
85
86
8 81
8 88
OP
Dew
Dew
81
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
.7-'-'
LABEL
eHEXl
Dew
Dew
Dew
Dew
REWXl
OVEXl
TOTXI
...
...
...
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
SFX CT
TAPE
'TAP'
'004'
READER
'REA'
'005'
PUNCH
'PUN'
'008'
'eHE'
.
' ..
'006'
PRINTER
MOOEPAR
'PRI'
' ,
'001'
'LOA'
REeFORM
BLOCKED
'013'
UNBLOCKED
'UNB'
'014'
'FIX'
FIXED
'015'
VARIABLE
TYPELABEL
'VAR'
' ,,
'081'
STANDARD
'STA'
'082'
NONSTANDARD
'NON'
'083'
' ,,
,
TM
CHECKlABEl
'084'
AI •
• 1"'\
A ......
I I •-
'"'~~
'085'
IDENT
REWIND
'IDE'
• I •
'199-
'UNLt
UNLOAD
'200'
NOREWD
'NOR'
• ••
'201'
19
I
I
I
I
I
I
I
I
3396
3399
3
3
3
3
3
3405
3408
3411
3414
3411
3420
3423
3424
I
3
3
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
l'
1
3
3
3
3
3
3
1
3
3
3443
3446
3449
3452
3455
3456
3459
3462
3465
3468
3471
3474
3475
3478
111
117
117
~I.O
"l ......
3
3
3
3
1
3
~
3434
3440
..
115
115
115
116
116
116
116
116
116
116
.... ,
J
.:J~O.&.
I
I
I
I
I
I
1
I
I
I
3
3
1
3
3
3484
3481
3488
3491
3494
117
117
111
118
118
3
3497
118
3
3500
3501
3504
3501
3510
3513
3514
3511
3520
118
118
1
3
1
I
I
3
3
TABLE
113
113
113
113
113
113
114
114
114
114
114
114
114
115
115
115
115
l.
I
CPERAND
113
3431
• • I
DIoes
CARD
3
3
I
'REC'
3421
INSTRUCTION TYPE
18
3430
3431
'202'
'12 I
'016'
3402
PAGE
3
1
3
3
3
3
1
I
loeN
3
3
3
1
I
I
I
I
'012'
'SLO'
'TM
3121l
118
118
119
119
119
119
119
SEQ PG LIN
952
953
954
955
956
951
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
913
974
975
916
977
978
979
980
981
982
983
984
985
986
981
988
989
990
991
992
993
994
LABEL
OP
9 26
Dew
9 27
9 28
9 29
9 30
9 31
9 32
9 33
9 34
9 35
9 36
9 37
9 38
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
TAPIS
FEATS
9 39
9 40
9 41
9 42
9 43
9 44
9 45
9 46
9 41
9 48
9 49
9 50
9 51
9 52
9 53
9 54
9 55
9 56
9
9
9
9
9
9
9
9
9
9
9
9
995
9
996
997
998
999
1000
1001
9
9
9
9
9
9
10DT8
.....
:>1
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
,"",-.1""" • •
Ul.W
DCW
DCW
DeW
LABTB
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
OPERANDS
lOCN
INSTRUCTION TYPE
3521
3524
1ge
-----rto----------
19D
120
120
I
1
I
3
3
'INP'
I
I
1
I
I
1
I
I
I
I
I
I
I
I
I
I
I
I
I
I
j
t
I
.
I
' ,
'045'
'REl'
'046'
'STO'
'006'
JOVE'
' ,,
'007'
'TAP'
OVERLAP
TAPE
'008'
'REA'
'009'
READER
'PUN'
PUNeH
'010'
'PRI'
' ,,
PRINTER
'OIl'
'SlAt
STANDARD
'012'
'NON'
'013'
NONSTANDARD
'MIX'
MIXEO
I
'014'
'CHE'
CHECK
'015'
.. .. nr-_
W.lUC-
-y "',... .. I T
J.UC".
'026'
'ROl'
'016'
'TM •
' ,,
TM
·018'
'I
EXIT 1
'019'
'2
EXIT 2
'020'
'3
EXIT 3
'021'
'4
'022'
'5
'023'
'6
'024'
EXIT 4
EXIT 5
EXIT 6
19
SFX CT
-MINUS3+4
'OUT'
-MINU52+4
•
PAGE
3721l
1401 AUTOCODER-PASS 2-PROCESS IDeS-MAIN 1 -VERSION 3
I
I
I
I
1
I
'I'
1
I
I
I
1
I
I
I
I
I
I
I
I
I
I
I
---3-527-
3
3
3
3
3
3
3
3530
3533
3534
3537
3540
3543
3546
3549
3552
3553
3556
3559
3562
3565
3568
3571
3574
3517
3578
3581
3584
3587
3590
3593
3596
3599
3602
3605
.:1
:Jove
3
3611
3614
3611
3620
3621
3624
3627
3630
3633
3636
3639
3642
3645
3648
3651
3654
3657
3660
3
3
1
3
3
3
3
3
3
1
3
3
3
3
3
3
3
3
1
3
3
..,
3
3
3
1
3
3
3
3
3
3
3
3
3
3
I
3
I
I
3
3
.,,tJ'\O
CARD
119
119
120
120
120
120
121
121
121
121
121
121
121
122
122
122
122
122
122
122
123
123
123
123
123
123
123
124
11 ..,1.
... , ....
124
124
124
124
124
125
125
125
125
125
125
125
126
126
126
126
126
126
3721L
1401 AUTOCOCER-PASS 2-PRoeESS IDeS-MAIN 1 -VERSION 3
SEQ PG LIN
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
lC41t
1045
1046
1047
1048
1049
1050
1051
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
76
77
78
79
80
81
82
83
LABEL
EXITB
ORITS
84
85
86
87
88
89
90
91
92
93
94
95
96
91
98
99
00
01
02
03
04
05
06
Qi
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
OP
OPERANDS
Dew
'7
Dew
Dew
Dew
Dew
Dew
Dew
DCW
Dew
Dew
DCW
RWOTB
eOUTB
REATB
*
*
*
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
DCW
Dew
Dew
ocw
EXIT 7
·, ,
·, .
'025'
'8
'133'
1330
'029'
'NOR'
'030'
NO RWED
'UNL'
UNLOAD
' ,,
RECORD
'REC'
'038'
.
'HAS'
HASH
' ,
'CLE'
'033'
'PRO'
'032'
seA'
.
DCW
DCW
Dew
Dew
Dew
Dew
oew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
DCW
Dew
Dew
Dew
'VAR'
'eHAI
'FIL'
'MOO'
'CAR'
'ALT'
'REe'
'SIZ'
'PAO'
'BLO'
'IDA'
'ove'
'FOR'
•·..,uo·
"""""PII. ..
'WaR'
'IND'
'EOF'
'WlR'
'TOT'
'TYP'
'eHE'
3
I
3
3663
3666
I
3
1
3
3
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
'034'
',
I
I
'037'
DCW
DCW
DCW
n.,..,
i
729
'02S'
f
loeN
1
'021'
'129'
OlF
U\..W
EXIT 8
SFX CT
TABLE
OF
3
3
1
3
3
3
3
1
3
3
3
3
1
3
3
3
3
3
3
PAGE
INSTRUCTION TYPE
20
CARD
3105
3708
3709
3112
3115
3118
3721
3124
3127
126
127
12"7
127
121
121
127
127
128
128
128
128
128
128
128
129
129
129
129
129
129
129
130
130
130
3728
3731
3734
130
130
130
3669
3610
3673
3676
3679
3682
3683
3686
3689
3692
3695
3696
3699
3102
LABELS
OVERFLOW
FORMSCNTl
COBOL
VARBUILD
CHANORIVE
FILETYPE
MODEPAR
eARDROC
AlTTAPE
REeFORM
SIlEREC
PADDING
BLOCKSIZE
IOAREAS
WORKAREA
INDEXREe
EOFADDR
WLRADDR
TOTALS
TYPELABEl
CHECKlABEL
I
I
I
,".,
I
I
I
1
I
I
I
1
1
I
I
I
I
I
I
I
I
1
1
3
..,3
.,..,..,..,
;;J,,;},
.a..:;,u
3
3140
3743
3746
3149
3152
3155
3758
3161
3164
3167
131
.;)
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
"1 . , , ,
131
131
131
131
131
131
132
132
3770
132
132
3773
3716
3179
3782
3185
3788
3791
132
132
132
133
133
133
133
1401 AUTOCOCER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3
SEQ PG LIN
LABEL
1052 10 26
1053 10 27
1054
1055
1056
1057
1058
1059
1060
1061
1062
10 28
10 29
10 30
..*
10 32
10 33
*
*
1013 10 47
1074 10 48
1075 10 49
OPERANDS
Dew
Dew
Dew
'HEA'
DTFLAB DCW
10 31
10 34
10 3.5
10 36
1063 10 31
1064 10 38
1065 10 39
1066 10 40
1067 10 41
1068 10 42
1069 10 43
1070 10 44
1071 10 45
1072 10 46
OP
Dew
DCW
DCW
Dew
DCW
Dew
lTORG
Dew
tTAP'
'CHE'
tDIOt
'FEA'
1100'
'LAB'
'ALT'
'EXI'
'VAR'
'CQU'
'DRI'
'RWD'
'REA'
'INP'
it
'EX'
'I 8'
• $'
, ,
'*'
'5'
652
133
3
3191
133
3
3
3800
133
134
1
·3804
3
3
3807
3810
3813
3803
TAPEUSE
CHECKPOINT
DIOCSORG
FEATURES
IOOEVICES
LABELDEF
ALTTAPE
EXITS
VARBUILD
COUNTS
DRIVETYPE
RWDOPTION
REAOERROR
INPFXNO
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
t
I
I
I
I
I
3
3
3
3
3
3
3
3
3
3
3
3
134
134
134
134
134
3816
3819
134
3822
3825
3828
3831
3834
135
135
135
3837
3840
135
135
3843
3846
136
136
135
135
3847
2
1
3
1
1
1
1
3848
3849
3852
3853
3854
3855
3856
LIT
LIT
136
136
tiT
136
LIT
LIT
LIT
LIT
136
136
~..,
137
137
.,... .;;J,
"I
1
,
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
3
2
3862
3865
3861
3869
3870
LIT
AREA
137
137
lIT
137
137
138
3811
lIT
LIT
,*.
=03
'52'
806
814
3194
ITT
'OTF'
'33333'
HLCAI
BALTR
HlCB
3
., O L '
;;JOO'&'
685
802
CARD
e
, 1•
'6'
SAVX2
INSTRUCTION TYPE
I'
, t
731
LOCN
-:J:J:J?::»"
, ,
696
I
I
I
I
I
·.r"~rrr.
SAVXl1
HEADER
SERIAlNUM
REELSEQ
REWIND
t • •
'7 '
643
SFX CT
21
LABEL TABLE
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
LBLTBl
ISERt
'REE'
'REW'
PAGE
3721l
=03
'ALT'
'JOB'
'CTl'
=04
=01
=04
'N'
:J
2
1
1
5
3
5
2
3
3
3
3
3816
3879
3884
3886
3889
3892
3895
3898
4
1
3902
4
3907
3908
1
3903
... "1
LIT
LIT
LIT
lIT
LIT
AREA
LIT
LIT
lIT
AREA
AREA
AREA
LIT
138
138
138
138
138
138
139
139
139
139
139
139
139
1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3
SEQ PG LIN
1076 10
1071 10
1078 10
852
810
50
51
52
53
1079 10
1080 10 54
1081 10 55
1082 10 56
LABEL
OP
OPERANDS
=01
=01
XCARDS
READS
...
...
OUTPUT
...
OUTPT
LOPUT
ORG
3912
OA
lX86,G
Dew
EQU
EX
• •
...
PAGE
3721L
22
SFX CT
lOCN
INSTRUCTION TYPE
CARD
1
1
3909
3910
AREA
AREA
140
I
I
140
AREA
I
I
I
I
I
3912
3912
1
3991
140
GMARK
3998
3998
B 000
141
142
1401 AUTOCOCER-PASS 2-COPY DlF TABLE
SEQ PG LIN
1083 10 57
LABEL
OPERANDS
JOB
SFX
1401 AUTOCODER-PASS 2-COPY OTF TABLE
I
ORG
341
Dew
Dew
,
•
10
10
10
10
lO~J~
10 62
Dew
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
10 63
10 64
10 65
10 66
10 67
10 68
10 69
10 70
10 71
10 72
10 73
10 74
10 75
10 16
10 71
10 18
10 19
10 80
10 81
10 82
DCW
Dew
Dew
Dew
58
59
60
61
1109 10 83
1110 10 84
1111 10 85
1112 10 86
1113 10 87
1114 10 aa
1115 10 89
1116 10 90
1117 10 91
1118 10 92
1119
1120
1121
1122
1123
1124
1125
1126
1121
1128
1129
1130
1131
1132
10
10
10
10
10
10
10
11
93
94
95
96
97
98
99
00
11 01
11 02
11 03
11 04
11 05
11 06
Dew
Dew
Dew
Dew
Dew
Dew
DCW
DCW
Dew
Dew
Dew
DCW
Dew
Dew
Dew
DCW
Dew
Dew
Dew
Dew
DCW
DCW
Dew
Dew
Dew
Dew
Dew
DCW
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
EXITS
COBOL
t
I
I
I
YES
YES
=6
I
I
•
•
,
•,
•
•
,
,
,
,
,
•
•
•
•
,
,
•,
,
,•
•
I
t
I
1
2
3
4
5
6
7
I
8
9
10
11
12
I
I
•
,
•
•
•
• •
,
f
,
,
I
I
,
n .... .-,..n ....
Kt:~urUJ
77-80 HASH
STANDARD
81
NONSTANDARD
82
TM
83
ALL
84
85
lOENT
t
•
I
•
FILETYPE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
""~
&;.;J
MOOEPAR
FEATURES
eHANDRIVE
CARDPOC
ALTTAPE
RECFORM
SIZEREC
PADDING
BlOCKSIZE
IOAREAS
"T,.,.,.61
r
IUIAL.:l
26
27
28
29
30
31
,
•
104-108 NUMBER
109-118
119-128
129-138
139-148
149-158
159-168
169-178
119-188
35
39
40
41
42
43
44
45
46
INSTRUCTION TYPE
CARD
TYPElABEl
0341
0342
1
1
0343
I
I
I
I
I
I
I
I
I
I
I
I
6
I
1
1
1
0349
0350
0351
0352
0353
0354
0355
0356
0357
0358
0359
0360
0361
0362
0363
0364
0368
0369
0373
0383
I
I
I
I
I
I
I
I
I
I
I
l'
1
I
I
I
1
CHECKlABEL
SERIALNUM
EXIADOR
EX2ADDR
EX3AOOR
EX4ADOR
EX5ADOR
EX6AODR
EX7ADDR
EX8ADOR
0341
1
1
I
WORKAREA
INOEXREG
EORADOR
WlRAODR
I
t
•
35-44
45-54 LABEL
55
NUMBER
56-65 LABEL
66-75 LABEL
10
I
, •
,
13
MIXED
14
VARIABLE
15
16-19 NUMBER
NUMBER
20
21-24 NUMBER
LABELS
25-34
."
t
INPUT
OUTPUT
TAPE
READER
PUNCH
PRINTER
LOAD
CHECKPOINT
NUMBER
NUMBER
NUMBER
BLOCKED
UNBLOCKED
LOCN
23
-VERSION 3
' , I
I
PAGE
3723l
SFX C1
OP
1084
1085
1086
1087
-VERSION 3
I
I
I
I
I
I
I
I
1
I
I
I
I
I
1
1
1
1
1
1
1
1
1
1
1
1
4
1
4
10
10
10
1
10
10,
4
1
1
~
1
1
1
3
0393
0403
0404
0414
0424
149
149
149
0430
0431
0432
0433
0434
0437
0442
0452
5
0457
10
10
10
0461
0471
0487
0497
10
10
10
148
148
148
148
148
149
149
0429
5
10
147
1"\1_ "",c
u"'t£:J
10
10
145
145
145
145
145
145
145
146
146
146
146
146
146
146
141
147
147
141
147
147
0507
0517
0521
0531
149
149
150
150
150
150
150
150
150
151
151
151
152
152
152
153
1401 AUTOCODER-PASS 2-COPY OTF TABLE
SEQ PG LIN
LABEL
OP
OTFGM
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
1133 11 01
1134 11 08
1135 11 09
1136 11 10
1137
1138
1139
1140
1141
1142
1143
1144
1145
11
11
11
11
11
11
11
11
12
13
14
15
16
11
11 18
11 19
EX
-VERSION 3
OPERANDS
t
t
• ,
•
• •
•
=9
• •
t
I
I
t
189-198
199 UNLOAD
200 NOREWO
9
201
202
12
203-205
t
t
t
t
t
I
I
NUMBER
VAR8UIlO
REWIND
38
OVERFLOW
REEL SEQ
FORMCNTL
206
216
41
37
ADDRESS
OVERFLOW
3723L
PAGE
SFX CT
LOCN
10
0547
153
1
0548
0549
153
153
153
153
153
154
154
154
154
154
154
155
I
I
I
I
I
I
I
I
I
I
I
I
I
1
1
1
3
0550
0551
0554
1
0555
9
0564
0565
0566
0561
0568
1
1
1
1
INSTRUCTION TYPE
24
B 000
CARD
1401 AUTOCODER-PASS 2-ALTER OVERLAY
seQ
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1115
1176
li77
1178
1119
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
PG LIN
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
20
21
22
23
24
25
26
1.7
28
29
30
31
32
33
34
35
36
31
11
11
11
11
11
PUNCH
OUTCl
NOSOL
•
eRaCl
LEAVE
lElSE
RSOlV
50
NPClX
NOPJB
57
58
59
60
61
62
ORG
101
ew
SSP
Mew
BSS
SBR
NPJ8X
NOTER
CHUCK
CARD
ON
TAPE
CARD
FROM
LEAVE t MAINX+23,1
MAINX+21,·+8
lEAVE,'456't
2
B
S
B
8
8
lET8E
SPECl
Mopel
WRlREC
WRTAl
SBR
Mew
NPClX+3
'N',AlTS2
-VERSION 3
· t, . ,AL I
•
..... •
0101
4
0101
)
5
5
0105
0110
U (U1 B
U (Ul 8
4
1
5
7
0115
0119
0126
0131
8
M
B
H
197 086
662 C
182 Q20
158
158
158
158
158
158
158
I
8
I
I
1
0138
0146
0153
B 161 024 1
0 022 160
B 167 237
159
159
159
I
1
I
I
1
0161
0162
0163
0167
0111
0175
0119
B
I
I
I
I
I
I
I
~4t
1
I
1
1
4
0183
I
,
7
...,
0181
4
4
£
0
1
SBR
SW
NPJ8X+3
AlTS1+4,AlTS3+4
8
0
Mew
OUTPT+85 t LMAINX
WRTREe
NOAlTB
I
I
I
1
I
I
I
I
I
I
I
I
I
lTORG *
Dew
'456'
'N'
ORG
246
lX86
DA
it
AREASV EQU
, ,
GMCVl2 DCW
8
4
4
4
4
4
I
.. ......... ,... .I
332
P63
CARDS
B
EX
CARD
4
GMOVl2
1
1
ALTER
OUTPT+85,lMAINX
PREPS2,C
RSOLV+7,NOAlTB
SCE
MN
BCE
CIiAIN
BeE
BeE
B
INSTRUCTION TYPE
I
CTl
B
loeN
25
I
CTL
MCW
55
56
1401 AUTOCODER-PASS 2-AlTER OVERLAY
*
*
*NOPCl
54
JOB
SFX
asp
44
45
46
41
48
49
51
52
OPERANDS
PAGE
37t4L
SFX CT
OP
B
39
40
11 53
11
11
11
11
..
•
*..
38
11 41
11 42
11 43
11
11
11
11
11
it
11
11
11
LABEL
-VERSION 3
1
•
1'\1
a/.
MACRO
GEN
S
8
8
8
337
183
721
+37
160
160
u
11.n
,,)'2Q
,..;IV
I-I
B 000
4
0201
0205
0209
0216
0220
0227
0231
3
0231
1
0238
1
0246
0331
0332
1
4
159
159
159
159
160
160
160
H 204
M 238 Q61
V47-':
7
4
GEN
B
B 171
.&.0"
.... "'·u
• ve..
160
161
161
161
161
161
161
H 219
Q51 +66
t
B 000
M 197 086
B 121
8 Q20
0235
LIT
lIT
161
162
0246
0331
162
8 000
163
164
1401 AUTOCODER - PASS 2 - END OVERLAY
OP
OPERANDS
11 63
JOB
1401 AUTOCOCER - PASS 2 - END OVERLAY
11 64
11 65
11 66
11 73
11 14
11 75
11 76
11 77
11 78
11 79
11 80
11 81
11 82
11 83
11 84
11 85
11 86
11 81
11 88
11 89
11 92
11 93
SFX
I
ORG
341
'5 t .TOF6+4
LONG+3,'N'
186,LMAINX
NEWWRT
QUTPT+80
GMOVL4
GMWMRK,GMCVL4
CTAPE
TDF9
GMOVl4
SEQ PG LIN
1191
1192
1193
1194
1195
1196
1191
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
121ft
1215
1216
1217
1218
1219
_ _ ",,A
lL~U
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
11 94
11 95
11 96
11 91
11 98
11 99
"' ...
12 vu
12 01
12 02
12 03
12 04
12 05
12 06
12 07
12 08
12 09
12 10
12 11
12 12
12 13
12 14
12 15
12 16
12 17
12 18
LABEL
MN
SBR
OVLY3
LCA
B
CW
SW
MCW
B
NOP
CW
RWO
B
NOP
B
Dew
TDF9
WTW
TDFSYS DCW
RTW
*
lTORG
OVlY4
*
*
5
CTAPE
TDFSYS
1900
=3
5,OVLY4
=3
1,1650
Dew
*
'5'
EQU
SFX
*+1
'N'
- VERSION 3
PAGE
3125L
SFX
CT
LOCN
7
0341
0348
0355
0362
0366
0370
0314
0381
0385
INSTRUCTION TYPE
26
CARD
- VERSION 3
I
1
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
7
1
4
4
4
7
4
4
4
0389
5
0393
4
'+
4
0398
0402
0406
3
0412
8
0413
0423
0424
3
8
0341
432
H J60
l 186
B J35
) 192
, 606
M 773
B 522
N 412
} 606
U (U5
8 S22
N 423
B ZOO
o
168
161
167
161
161
167
167
168
168
168
168
433
086
606
166
168
R
168
169
169
169
169
169
l (U5 434 W
l
(Ul W50 R
0432
I
I
I
I
1
1
0432
0433
0434
X
X
7
5
0434
C -73
0441
B 450 S
LIT
LIT
169
169
X
END OF JOB
BE
CALLTX,BLANKS-2
STENDX
B
~urH:AA
#'Ii
V
J.
-r
SBROTX
X
5
X
4
5
5
5
C
STENDX B
RwD
BSP
asp
WTM
RWD
MCW
LeA
WT
WTM
RWD
BYPASX
cw
cw
RT
sw
BEF
B
CBSP2X RT
~'Inr-uv
1
X
1
x
6
X
X
X
X
6
SYMNMX,MAINX+2
lOPUT+l,MAINX+35
5,MAINX
5
'+
lIPUT+l,MI\It\X+35
100
1,3997
X
5
5
1
1
8
X
5
5
X
1
X
4
X
X
8
Lopur+l
x
4
CBSP2X
BYPASX
1,3997
X
5
4
8
X
X
n'.'.L
v-r-rv
0450
0454
0459
0464
0469
0474
0419
0486
0493
0501
0506
0511
0518
0522
0530
0534
0539
0543
WI4
170
170
Tno
,vv
1,L "'7n
......
B 033
110
170
170
170
111
171
111
171
111
171
172
172
172
112
112
112
172
173
D
u
U (U5 R
U (U1 B
(U1 B
U (U6 M
U
U (U6 R
M wOt 003
l 198 036
M (U5 001
W
U (U5 M
U (U4
R
187 036
100
M (Ul 197 R
)
)
,
198
B 543 K
B 522
M {Ul 197
R
1401 AUTQCODER - PASS 2 - END OVERLAY
SEQ PG LIN
LABEL
1239 12 19
1240
1241
1242
1243
1244
1245
1246
1241
1248
1249
1250
1251
1252
1253
1254
1255
1256
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
20
21
22
23
24
25
26
21
OP
OPERANDS
SW
S
BM
lOPUT+l
+I,CBSPIX
CBSP3X,CBSPIX
CBSP2X
B
*' LOAD PASS THREE
*'
*'
CBSP3X es
PARTS
es
CS
28
29
30
31
3725l
3
SFX CT
lOCN
4
X
X
0551
7 0555
B ·0562
4 0510
X
X
4
1
X
X
0574
0518
0579
0580
X
1
B
CTAPE
X
NOP
rOFEOJ
2465
+CCHALT
1,2210
X
4
4
X
4
0588
X
X
3
8
0594
0595
x
2
0604
1
1
0605
B
32
TDFEOJ Dew
33
RTW
34
eBSPIX Dew
35
36
*'
1251 12 31
1258 12 38
- VERSION
'II'
lTORG *'
Dew
+1
GMOVL4 Dew
• •
EX
0584
X
X
INSTRUCTION TYPE
,
27
CARD
113
198
S 605 604
V 514 6t14 K
113
113173
B 543
I 466
I
/
113
113
174
114
174
W50
594
B M65
B
N
174
174
174
114
Y34
L lUI KlO R
0605
X
x
PAGE
LIT
0606
B 000
175
175
176
3728l
1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3
seQ PG LIN
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1212
1213
1274
1275
1276
1277
1278
1219
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
........ ,,'"
1291
1292
1293
1294
L£~V
1295
1296
1291
1298
1299
1300
1301
1302
1303
1304
1305
1306
12
12
12
12
12
12
12
12
12
12
12
12
LABEL
39
40
41
42
43
*
*'
•
"
.....
,1£
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
OPERANDS
JOB
1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3
44
45
46
47
48
49
50
SFX
B
ORG
1
DA
EQU
lX86
53
54
55
56
DC
DA
57
58
59
60
61
62
DC
DC
DC
DCW
64
65
66
61
68
69
.,'"
IV
11
12
73
14
75
76
17
78
19
80
81
82
83
84
85
86
•
DCW
DC
DCW
DC
Dew
DC
ORG
*
*
INSTRUCTION TYPE
CARD
0001
0086
0001
0087
B
INDEXI
INOEX2
INDEX3
00
100
• ,
1X86
, •
INPUT
LIPUT+1
ZEROX
CARDSX
HLDSBX
0
0
,.* .. ,
119
0086
B
B
8
8
B
8
8
3
2
3
2
3
B
1
2
179
179
179
179
179
119
0089
0091
0094
0096
0099
0101
0100
180
180
181
181
181
181
B
1
B
3
0100
0101
0187
0188
0189
0192
4
1
4
4
4
0101
0105
0106
0110
0114
I -73
182
I
I 086
B W50
N 132
182
182
182
182
U
B
B
B
1
1
0186
INITIALIZATION
.
ORG
CS
CS
IOCAlT CS
VOICE
101
CALlTX
NOP
LMAINX
eTAPEX
TOFI05
orr-
T t"!I,.. r
B
B
C\"C
TDFI05 DCW
RT
IOCEOF MCW
MeW
8
8
B
8
8
B
'"Y'"
0101
IJ
V
0
n
110
VA. ... ..,
YOURS
+IOCEOF
B
8
4
5,MAINXX
B
B
S
8
7
4
4
4
4
4
0126
0132
0133
0141
0148
0152
0156
0160
0164
0168
1 U \,
n r
cur
t
U A 1' ... 1 V V
•
I-I A J. 1'0\ A T
'1',HAPPYX+4
'/086'
tt..!
f :;J , "
0
3
8
B
OKAY
LMAINX
CTAPEX
TOFI05
HAPPVX+5
lTORG
*
B
• 1•
t
"086
B
1
B
4
B
STRING CS
B
NOP
Dew
*
*
*
B
8
B
MAIN
LMAIN
81
000
00
000
00
000
ORG
52
63
LoeN
28
AREA DEFINITIONS
12 51
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
SFX (T
OP
PAGE
B
B
8
B
4
D
1 ".1
... "A.
n'7L
V
• .,.
,I\.J.
lQ")
4V'
182
183
183
183
183
183
183
B 541
141
M (US 001 R
M 172 N14
M 176
B 467
I 086
B W50
N 132
B N75
0172
0172
0116
183
184
184
LIT
LIT
184
184
PARA"'ETER TABLE
ORG
DA
201
lX266
B
B
0201
0201
0466
184
1401 AUTOCOCER - PASS 2 - ALTER ASSEMBLY - VERSION 3
SEQ PG LIN
1307- 12 81
1308 12
1309 12
131012
1311 12
1312 12
1313 12
1314 12
1315 12
1316 12
1317 12
1318 12
1319 12
1320 13
1321 13
1322 13
1323 13
1324 13
1325 13
1326 13
1327 13
1328 13
1329 13
1330 13
1331 13
1332 13
1333 13
1334 13
1335 13
1336 13
1337 13
1338 13
1339 13
LABEL
S8
89
90
91
92
93
94
95
96
97
...
98
.....PREEM
99
00
01
02
....
OKAY
EXSET
C
LORGS
C
BU
B
CMALT
CARDS
07
08
134Q 13
1341 13
1342 13 22
1343 13 23
1344 13 24
1345 13 25
1346 13 26
1347 13 27
1348 13 28
1349 13 29
1350 13 30
1351 13 31
1352 13 32
1353 13 33
1354 13 34
1355 13 35
1356 13 36
SBR
B
B
..
SFX CT
PARTSB
ass
ass
CS
R
SBR
MCW
C
BCE
au
S
B
ZA
B
Nap
...
"..
....
M"-II
SW
C
CALTR
BE
C
BE
B
NOP
B
ALTR3
BCE
B
Nap
AlTR5
B
B
IA
ALTR6
FIELD
0466
B
SWITCH+3,CMAlTB
CALLTX,BLANKS-2
PREEM
SUREXX
PREEM
CALLTX,BLANKS-2
HAUlIT
CARDS
Q. ANY CALLS
Q. ANY CALLS
7
0467
0474
B
5
0481
B
B
4
4
7
0486
0490
0494
0501
0506
B
B
B
B
B
Q. NO ALTERS
Q. NO MORE ALTERS
LSTCD,C
LSTCD,A
LMAINX
PREEM+3,S8RCTX
'SCR',CHARCR
MCW
ALTR4
INSTRUCTION TYPE
CARD
184
7
5
4
H lO4 510
185
185
185
185
185
185
185
186
C -13 W14
B 506 S
B T08
B 506
C -73 W14
B S64 I
B 525
INPUT ROUTINE
Mew
YOURS
LOCN
29
PROCESS EX
ATlSA
05
09
10
11
12
13
14
15
16
17
18
19
20
21
261,266
BE
03
04
06
OPERANDS
OP
PAGE
3128L
C
BE
B
NOP
a
B
5
5
B
B
B
4
1
1
B
7
B
1
1
1
B
MAINXX+l1,'ALT'
TREAO,MAINXX+5,*
TREAD
INDEX1+1
SCANXX
MAINXX+lS+Xl,HlOAI=4
CTAPEX
GET NEXT RECORD
TDFRAl
• ft.
,.,..
f
"'P' A·..... V
.a
n i.
·t\·tUV ..... 'I\TC"'t
LOPUTX+l
OUTPTX+83,HlDAI
Q. ALTER NUMBER EQUAL TO
ALTR3
NuMBER ON ALTER CARD
OUTPTX+17.'END'
NO. WRITE TAPE
ENDST
CTAPEX
TDF6 X
ALTR4
ALTR5,MAINXX+19+Xl"
Q. DLEETION
CTAPEX
TDF6 x
SWITCH
SCANXX
MAINXX+18+Xl,HLDAl
OUTPTX+83 t HLDAI
MACRO
DELETE UNTIL SECOND ALTER
NUMBER IS REACHED
CTAPEX
TOFRAl
B
B
B
8
B
B
B
B
S
8
5
4
4
1
4
4.,
,
7
B
B
B
B
B
B
1_
0678
5
B
t')
V::10~
4
B
8
8
B
B
B
B
J"\t::
4
4
7
B
B
0565
0569
0516
0580
0591
0595
0602
0607
0614
0619
0623
0627
0631
0639
0643
0641
0651
0655
0662
0669
06"14
B
B
0510
0515
0520
0524
0525
0532
0539
0540
0541
0548
0556
0561
5
4
4
4
8
4
4
4
4
1
7
5
B 686 C
a 686 A
086
1
H 509 033
M *15 U62
I
M
M
C 018
B 697
B 697
S 090
B M19
+ 0/9
a W50
N 922
U
'f"£.;)
'"I .L""""
, 198
C 195
B 631
C
B
B
N
8
B
B
N
B
B
+
C
B
B
N
*18
006 ...
I
188
*22
188
188
1t')O
T"'L
~70
*22
S
129 *26
t02 s
W50
024
576
651 050
W50
024
L01
M19
0/9 *22
195 f.:22
931 S
W50
922
186
186
lS6
186
186
186
181
181
187
181
187
187
187
.1.00
188
188
188
189
189
,
189
189
189
189
189
190
190
190
190
190
190
190
191
1401 AUTQCOCER - PASS 2 - ALTER ASSEMBLY - VERSION 3
SEQ PG LIN
1351 13 37
1358 13 38
1359 13 39
1360 13 40
1361 13 41
1362 13 42
1363 13 43
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1314
1315
1316
1377
1378
13 44
13 45
13 46
13 41
13 48
13 49
13 50
13 51
13 52
13 53
13 54
13 55
13 56
13 57
13 58
1319 13 59
1380 13 60
1381 13 61
1382 13 62
1383 13 63
1384 13 64
1385 13 65
1386 13 66
1381 13 67
.,..,00
UO
J.JOO
1389 13 69
1390 13 10
1391 13 11
1392 13 72
1393 13 13
1394 13 74
1395 13 15
1396 13 16
1391 13 11
1398 13 78
1399 13 79
1400 13 80
1401 13 81
1402 13 82
1403 13 83
1404 13 84
1405 13 85
1406 13 86
11~
,J.;)
LABEL
LSTCD
•
•
*
TREAD
OP
OPERANDS
B
AlTR6
'N',CALTR
ALTR4
MCW
B
SW
SBR
C
BE
C
BE
C
BE
C
BE
C
BE
C
BE
C
BE
C
CO~'1I0C
BE
C
BE
SBR
C
SBR
BE
or~
LO
O\.;oC
B
OUTIoe BCE
BCE
B
...*
...
ENTST
INSTRUCTION TYPE
4
0682
0686
B
0693
B 516
6
B
1
4
662
CARD
191
191
191
M 4=21 602
1
BRNCHX+3,SWITCH
HOMEXX,MAINXX+5 t *
MAINXX+17,'tlLC'
HOME XX
MAINXX+l1,'CHA'
CHAINX
MAINXX+l1,'ENT'
ENTST
MAINXX+17,'PlA I
MASETX
MAINXX+17,'EX ,
EXSET
MAINXX+17,'END'
ENOSTX
MAINXX+18,WHOOPS
CALlNX
MAINXX+19,INCLOX
CALlNX
MAINXX+19,LITORG-l
LORGS
INDEX3,TABLEI
MAINXX+17,Q+X3
INDEX3
MSUBTX
B
5
8
1
B
5
B
7
0807
0812
B
5
0819
0824
0831
0838
0842
, 001
H 099 LOI
B 048 006 ..
C 018 1:30
B 048 S
C 018 *33
B Hl1 S
C 018 1:36
B 819 S
C 018 *39
B U33 S
C 018 *42
B 414 S
C 018 *26
B U78 S
C 019 W05
B J51 S
C 020 U59
B J51 S
C 020 T57
B 494 S
H 099 T74
C 018 0+0
H 099
B P~Q S
8
B
8
Q. ENTER CARD
B
8
B
B
8
4
0697
7
8
7
5
1
5
0101
0108
0716
0123
0728
0135
0140
0141
0152
0759
0764
0771
0176
0783
0788
0195
1
B
5
Q. MODIFY ADDRESS MAeRO
B
B
7
Q. EX CARD
B
Q. END CARD
B
8
B
Q.
CALL STATEMENT
Q. GET, PUT, OPEN OR CLOSE
8
5
7
5
7
5
7
B
1
8
1
B
8
4
5
Oaoo
n.n
I.·..,
=
n.
aT I'nr
nLV'" _
UVI.l.U\.;o,VT".:.J,-
0
U
0
VO,.,
0
U
COM IDe
HOMEXX,MAINXX+19,
HOMEXX,MAINXX+15,
MSUBTX
B
B
4
8
8
B
4
0855
0859
0867
0875
831
048 020
B 048 016
B POQ
B 033
1
B 879 008 •
C 016 1:26
NO. MACRO
0
8
o&::n
OJ7
n..Ln
VTV
B
B
191
191
191
192
192
192
192
192
192
193
193
193
193
193
193
194
194
194
194
194
194
195
195
195
195
,na:::
,J.7J
195
196
196
196
PROCESS FIXED FORM RECORe
B
BCE
C
BE
•
LoeN
B
SBROTX
R
TOFRAL
SFX CT
30
MAJOR PROCESSING
BeE
SWMAI
SWtl;A2
PAGE
3128L
e
au
B
Dew
Dew
ENTST,MAINXX+7,·
MAINXX+15,'END'
ENDSTX
MAINXX+15,'ENT'
ENTST
PREEM
000
'M(U4I12Rt
Q. END CARD
Q. NEW MODE
B
4
B
B
1
8
B
3
0879
0883
0884
0892
0899
0904
0911
0916
0922
B
7
B
8
0930
B
5
B
1
B
5
4
B
B U18 S
C 016 *36
B 879 /
B 506
196
196
196
191
191
197
197
197
197
197
1401 AUTOCOCER
seQ
PG LIN
1407 13 87
1408 13 88
1409 13 89
1410 13 90
1411 13 91
1412 13 92
1413 13 93
1414 13 94
1415 13 95
1416 13 96
1417 13 97
1418 13 98
1419 13 99
1420 14 00
1421 14 01
1422 14 02
1423 14 03
1424 14 04
1425 14 05
1426 14 06
1335
OP
LABEL
*
MACRO
OUTMC
McaUT
BCE
B
B
NOP
C
BE
Mew
BCE
BCE
asp
MCW
*
•
OPERANDS
B
OUTMC,OUTPTX+14,R
SWITCH
CTAPEX
TOFRAl
QUTPTX+19,BLANKS
OUTMC
'N',MCOUT
OUTMC,OUTPTX+14,S
OUTMC,OUTPTX+74,C
4
OUTMC,MCOUT
CMALT
ENDST
MCW
B
LTORG
DCW
LOPUTX,LMAINX
ENDSTX
*
'seR'
'ALT'
=04
HLDAI
'END'
'N'
". ...,
1428 14 08
1 I. ")..,
1
~.
1\"7
V.
1429 14 09
3728l
SFX CT
LOCN
PAGE
INSTRuCTION TYPE
31
CARD
B
8
0931-
-8
B
"
4
7
5
0939
0943
0947
B L01
B
4
4
B
B
7
B
B
B
8
8
5
0951
0958
0963
0910
0978
7
0986
0991
8
4
0998
1002
1009
B
B
B
N
._
943 186 R
W50
922
... _.....
- - - _ .._-
198
198
19B
198
19-8
C 131 W16
B 943 S
M *27 958
198
198
199
199
199
199
199
B 943 186 S
B 943 186 C
U (U4 8
M 943 958
B 510
PROCESS END CARD
tRW
...
PASS 2 - ALTER ASSEMBLY - VERSION 3
DELETE ENTIRE MACRO
*
•
-
ru.,vvv
u .." " " . ' "
nru
",,\.on
NUORIG EQU
EX
B
7
B
B
It
B
B
3
3
4
1015
1018
1
1023
1026
1021
1030
1033
1036
B
a
a
S
B
B
'MLC'
'CHA'
tENT'
'MA ,
'EX
, , •
a
*+1
B
8
B
0
0
a
3
1
3
3
3
3
3
,J.
199
200
M 191 086
B U18
1013
LIT
LIT
AREA
1022
LIT
LIT
LIT
LIT
LIT
LIT
LIT
lIT
1039
1042
, 1'\ 1_ "'I
200
200
200
200
200
200
201
201
201
201
201
,.,,"' ..
£V.1
LV'"'t;.J
1044
B 000
202
seQ PG lIN
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1441
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
10
11
12
13
14
15
16
17
18
19
20
21
22
LABEL
...
14 380
14 39
14 40
14 41
14 42
14 43
14 44
14 45
14 46
14 47
14 48
14 49
14 50
14 51
14 52
14 53
14 54
14 55
JOB
1401 AUTOCOOER - PASS 2 - INITIAL ASSEMBLY VERSION 3
loeN
INSTRUCTION TYPE
CARD
AREA DEFINITION
it
SFX
A
ORG
1
1X86
87
'000'
00
'000'
MAINXX DA
ORG
DCW
DC
DCW
DC
DCW
DC
ORG
OA
lIPUTX EQU
DC
ZEROXX DC
CAROSX DC
HlDSBX DCW
..
START
ORG
DC
CS
CS
BCE
B
Mew
Mew
RED
SW
SW
Sw
BeE
Mew
MCW
B
ORG
DA
PARTBX
*
it
-
A
A
A
3
0089
205
2
205
A
3
2
0091
0094
0096
0099
0101
'000'
00
A
101
1X86
A
INPUTX
· ... ,
0
0
_
3
2
205
205
205
205
0101
A
A
A
t
205
A
A
A
A
00
*•
0001
0086
0087
0001
1
A
A
1
A
3
1
0186
0101
0186
0187
0188
0189
0192
205
206
206
206
206
INITIALIZATION
it
...
1461 14 314
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1413
1414
1415
1476
1471
1418
1479
OPERANDS
32
it
23
24
25
26
21
28
29
30
14 31
14 32
14 33
14 34
14 35
14 36
14 31
14 311
14 372
14 313
SFX CT
OP
PAGE
3727l
1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3
100
A
CAlLTX
A
A
*+.5 t CAROSX t 1
REO
'N',RHO+l
A
A
A
A
• ,
•
&'"1.
-r I"'-
...
r- ...... r
- " . ,I.') J t:J"tT;}
8
4
0114
4
1
207
207
207
207
207
208
I -13
I
B 118 189 1
B 132
M 959 164
7
0118
A
'7
f
I'\,"'C::::
v£,,..,
A
A
A
4
0132
.",
885
208
4
4
8
7
0136
f
179
t
762
208
208
208
209
1-\
NTPER+4
TSTEN+4
QUTS2+4
REAO-r,IOCSAV-3,·
'N',SWMAI
'N',SWMA2
READT
201
lX266
261,266
0100
0100
0101
0105
0106
1
A
A
A
7
A
A
4
0140
0144
0152
0159
0166
0201
0466
A
A
U
-,on
cu:::o
7,..17
IVV
B 461 H01
?nQ
_vv
it
M 959 526
M 959 533
209
209
B 461
0201
0466
FIELD
209
209
MAJOR PROCESSING
READT
TREAD
B
SW
SBR
BCE
C
TWEOB
1
BRNCHX+3,REAOT
OUTS2,MAINXX+5,*
MAINXX+19,'CHAIN'
GET NEXT RECORD
Q. COMMENTS CARD
A
A
A
A
A
8
0461
0471
0415
0482
1
0490
4
4
7
B 653
,
001
H 099 467
8 158 006
C 020 964
*
210
210
210
210
210
1401 AUTOCOCER - PASS 2 - INITIAL ASSEMBLY VERSION 3
SEQ
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
...
~
...
,L:;,.J ....
,.1.
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
OP
OPERANDS
56
BE
57
58
59
60
C
CHAINX
MAINXX+19,'MLCWA'
OUTS2
MAl NXX+ 17, 'ENT'
ENTST
MA INXX+ 19, • M.A
MASETX
MAINXX+!9,'EX
EXSET
MAINXX+11,'END'
ENDSTX
MAINXX+IBtWHOOPS
CAlLNX
MAINXX+19,INCLDX
CAllNX
MAINXX+19,'lTORG'
lORGS
INDEX3,TABLEI
MAINXX+11,O+X3
INDEX3
MSUBTX
MANY,O+X3,=
FEW
ourS2.HAINXX+19,
OUTS2,MAINXX+1S,
MSUBTX
PG LIN
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
'I
~_
.I.""
14
14
14
14
14
14
14
14
14
14
14
14
15
15
15
15
15
15
61
62
63
64
65
66
LABEL
BE
C
BE
SWMAI
SWMA2
BE
C
BE
C
70
11
72
13
74
15
76
17
18
FEw
79
MANY
83
84
85
*
*
*
TWEDB
0"'1
SBR
CS
0
CHART
RTwED
ass
R
SSB
B
a
96
91
98
99
DCW
DCW
CHANGE CW
MN
01
02
C
BE
B
MCW
00
cw
03
04
05
HOOHA
LoeN
A
5
A
1
A
5
Q. ENTER CARD
A
1
5
Q. MODIFY ADDRESS MACRO
A
A
0497
0502
05"<'-9
0514
0521
0526
0533
0538
0545
A
A
7
Q. EX CARD
A
A
Q. END CARD
A
Q. CALL STATEMENT
A
5
A
7
5
A
Q. lTORG CARD
A
A
A
A
7
5
1
7
4
5
A
8
A
4
8
A
A
A
A
NO.
MACRO
1
5
1
5
1
5
A
A
A
TWOBl+3
LMAINX
8
4
Mew
TWDBI.1
CTAPEX
TDF4
CHANGE,MAINXX+13.N
TREAD
+EOF4
'M(U5001R'
CHART.TSTEN+4
'4',TOF4+4
QUTS2+4,NTPER+4
CALlTX,BLANK
HOOHA
SUREXX
'SCR',CHARCR
A
5
A
A
1
A
A
4
4
~
'''CU
EOF4,A
A
A
nTu·~n
1"\
4
4
..,.
1
A
C
NOP
BCE
TWOSI
TDF4
SFX CT
0550
0557
0562
0569
0514
0581
0586
0593
0598
0605
0612
0616
0621
0629
0633
0641
0649
PAGE
INSTRUCTION TYPE
B HI! S
C 020
B 158
C 018
B 195
C 020
B U33
C 020
B 851
C 018
B U78
C 019
B J51
C 020
B J51
C 020
S 918
H 099
C 018
H 099
B POO
S 633
B 605
B 158
B 758
B POQ
969
S
912
S
911
-5---
982
S
985
S
wos
S
U59
S
990
S
T74
0+0
S
0+0 =
020
016
33
CARD
210
211
211
211
211
211
t1r212
212
212
212
212
212
213
213
213
213
213
213
214
214
214
214
214
214
215
INPUT ROUTINE
0
Of
88
BE
C
BE
C
BE
SBR
C
SBR
BE
BCE
B
BCE
BCE
B
86
89
90
91
92
93
94
95
BE
C
67
68
69
80
81
82
C
3121l
Q. LAST CARD
I.
0653
0657
H 696
/ 086
I'\LL'I
n
C
UOOJ..
A
8
7
A
1
A
A
7
0665
0666
0671
0672
0677
0681
0685
0693
0699
0701
0708
0715
0722
7
0729
A
5
A
A
4
7
A
1
0136
0741
0745
0152
5
A
8
A
4
3
A
A
0
B
L"'7"'7
Off
934 A
1
693 1
B W50
N 699
B 108 074 N
K
B 471
934
665 719
991 703
) 762 885
C -73 999
)
0
B 745 S
B Toa
M 994 U62
M
215
215
~'r
L.I.:J
215
215
215
216
216
216
216
216
216
216
217
211
217
217
217
211
218
218
1401 AUTOCODER - PASS 2 -
SEQ PG LIN
LABEL
OP
......
B
Mew
1530 15 06
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1551
1558
1559
1560
, ~L 1
~~O.J.
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1513
1514
1575
1576
1517
1578
1519
15
15
15
15
15
15
07
08
09
10
11
12
13
14
15
16
11
18
15
15
15
15
15
15
15 19
15 20
15 21
15 22
15 23
15 24
15 25
15 26
15 27
15 28
15 29
15 30
15 31
15 32
15 33
15 34
15 35
15 36
,r
OUTS2
RHO
....
..
TSTEN
ass
NOP
Mew
B
ass
B
B
MCW
SBR
aCE
C
BE
C
BU
OUTSBX,(
Q. TAPE INPUT
A
A
A
'8',RHO
OUTSBX
A
ENTST,C
Q. TAPE INPUT
NO. START RAD FEED
NOSIR+3,ANTST
'N',BUTIXX
SBROTX
TWEDB
'B',BUTIXX
NOSIR+3,TREAO
TSTEN t MAINXX+1 t *
MAINXX+15,'ENDf
ENOSTX
MAINXX+15 t 'ENT'
TSTEN
SBROTX
REAOT
A
A
A
Q. END CARD
A
A
Q. NEW MODE
A
A
15 51
15 52
15 53
15 54
15 55
*
lORGS
0849
0853
C 016 912
B 775 I
8 033
B 467
7
0857
C -73 999
221
c:::
J
nOL"
VUV"T
U
7
8
7
5
1
0831
H
911 411
B 715 008
C 016 985
B U78 S
4
4
0817
a
467
896 C
COMETS+3,CR~RED
a
eeONPR+3,NOSIR
CRWRED
A
1
A
4
B
TREAD
A
4
0881
0886
0887
0889
0896
0903
0910
0914
B
A
A
5
1
2
7
7
A
7
0918
*
CAlLTX t BlANl<=3
Q. ANY CAllS
nIIT~~
0
"71;0
f""O
C
.J
B 033
')."
c;..c;..4
221
222
222
READ RELEASE REDUNDANCY ROUT INE
SBR
•
H 911 803
M 959 037
B 033
B 653
M 996 037
4
YESIR
*
0181
0788
0795
0199
0803
0810
0817
0825
0832
8 TOa
R
SS
Mew
SBR
NaSIR
B 195 C
8
0869
0873
ass
15 50
0775
0780
219
219
219
219
219
219
220
220
220
220
220
221
221
221
221
1
A
NTPER
49
B 041
A
C
B
41
48
0764
0111
PROCESS EX
40
46
0763
4
A
A
SURE XX
SBROTX
REAOT
15
15
15
15
218
218
218
219
4
4
7
B
15 45
B 041 C
N
M 995 763
A
A
B
.
0158
7
39
43
44
5
1
7
4
1
15 38
*
*
218
A
A
A
A
42
21B
B 693
A
UVI';)L
41
M
0154
5
ac:
15
15
15
15
15
15
0153
4
D~
31
CARD
1
A
A
M
1..:.1
34
4
0844
B
EXSET
INSTRUCTION TYPE
5
B
"l'"
A
A
TWOSl
LO(N
PAGE
FIXED FORM RECORDS
Mew
*
*
*
SFX (T
OPERANDS
SRF
ANTST
3127l
READ RELEASE
SBR
ENTST
INITIAL ASSEMBLY VERSION 3
YESIR,C
Q. TAPE INPUT
A
A
A
1
IN' ,RHO
1
222
222
K 1
222
M 959 763
H X65 X11
8 x71
B 471
222
222
223
223
223
C -73 999
223
H
X70 914
PROCESS LTORG
C
CALlTX,8lANK
Q. ANY CALLS
1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3
SEQ PG
1580 15
1581 15
1582 15
1583 15
1584 15
158.5 15
1586 15
1587 15.
1588 15
LIN
~
1598 15
1599 15
1600 15
1601 15
1602 15
1603 15
1604 15
1605 15
1606 15
1607 15
1608 15
1609 15
1610 15
1611 15
1612 15
1613 15
1614 15
1615 15
8
B
-S64 1
758
I
4
1
0938
t
086
001
4
0942
0949
M *05
B U78
3
3
0955
0958
881
X71
0959
1
0959
lIT
5
5
3
5
5
3
5
1
3
0964
0969
LIT
B
HAUlIT
OUTS2
lMAINX
A
1
A
'END$$S',MAINXX+18
ENDSTX
+NTPERA
+CRWRED
A
A
A
A
*
'N'
A
A
59
60
61
62
63
64
1560
1584
1589 15 65
1590 15 66
1591 15 67
1592 15 68
1593 15 69
1594 15 70
1595 15 71
1596 15 12
..
.1:1
0925
0930
0934
au
CS
5.
MCW
B
ANTPER Dew
ACRWED DCW
lTORG
DCW
EOF4
~~
fj
14
75
16
77
*
*
*
89
90
91
LIT
LIT
LIT
lIT
0991
LIT
LIT
LIT
'LTORG'
'4'
'SCRt
'8'
A
A
A
A
A
1
=03
'END$$$'
A
3
0994
0995
0996
0999
A
6
1005
X
X
5
1044
1049
1053
U (Ul R
1051
1065
1069
1076
1083
1090
1094
1101
1108
1115
V 068 Ot3 K
B 119
M W16 0*5
M 089 Wil
M 099 094
B G46
A Wl1 089
M 0+0 Otl
M W1l 089
B A48
1119
1123
1130
M
M
RwD
1
S
PREVS
SWITCH
PROCESS LOZENGEO FIELD
*
lOZENG BM
X
X
6
MLBLZ,MAINX+2+Xl
B
LABEL
MCW
MCW
MCW
BLANKS,MAINX+4+Xl
INOEX1,SAVXl=3
INOEX3,INCEX2
SBGRD
5AVXl,INDEXI
Q+X3,MAINX+Xl
SAVX1,INOEX1
UPENGL
B
A
Mew
MCW
B
*
*
*
A
A
LIT
0912
0977
0982
0985
0990
A
X
NUORIG
B
'*
A
A
1
CARD
223
223
--2-23
224
224
224
224
224
019
'END'
ORG
SFX
EOFIB
*
A
35
LIT
LIT
AREA
LIT
224
224
225
225
225
225
225
225
225
226
226
226
226
226
MAIN LINE PROCESSING ANNEX
18
88
A
's'
BLANK
19
80
81
82
83
84
85
86
81
A
'CHAIN'
'MLCWA'
tENT'
'MA
I
'EX
1495
f
5
4
4
56
1487
;r~
INSTRUCTION TYPE
57
1485
.. r",_
lOCN
OPERANDS
58
PAGE
SFX CT
OP
LABEL
1479
1481
.1
3727l
-
1044
4
4
S H72
B L01
227
227
227
20
Q. INTERNAL LABEL
X
8
X
X
4
X
X
X
X
x
X
X
1
7
7
4
1
7
7
4
227
227
227
227
228
228
228
228
228
228
LOCATE PARAMETERS
LABEL
SBR
MCW
MCW
lEXIT+3
BLANKS=5,INOEX3
BLANKS,CNTP
X
4
1
X
7
X
H 563
W16 099
W16 w19
229
229
229
SeQ PG LIN
LABEL
1616 15 92
1611
1618
1619
1620
1621
1622
1623
1624
1625
1626
1621
1628
1629
1630
1631
1632
1633
1634
15 93
15 95
15 96
15 91
15 98
15 99
16 00
16 01
16 02
16 03
16
16
16
16
16
16
16
04
05
06
07
08
09
10
11
12
1635 16
1636 16
1637 16 13
1638 16 14
1639 16 15
1640 16 16
1641 16 17
1642 16 18
1643 16 19
1644 16 20
1645 16 21
1646 16 22
.,..,.
"I L
~_...,
CIReL
15 94
"I
L
LO.... '
LO
L:J
1648
1649
1650
1651
1652
1653
1654
1655
1656
1651
1658
1659
1660
1661
1662
1663
1664
1665
16 24
16 25
16 26
16 21
16 28
16 29
16 30
16 31
16 32
16 31
16 38
16 39
16 40
16 41
OPERANDS
MN
BWl
MAIN)(+1+X1,CNTP
+l,CNTP
TENSR,CNTP
'3',INDEX3
ClRCL
CHlON,DECTB-2+X3,O
BLANKS,CNTP=1
OECTB+X3,INOEX3
MAINX+2+Xl,CNTP
+l,CNTP
O+X3,O+X3
WAREA=3
Q. MISSING PARAMETER
eHZON,O+X3,t
Q. PARAMETER LOCATED
PUTIN,eNTP
WAREA,INDEX3
MOVINP
CHlON t O+X3,
OELET t MAINX+2+Xl t S
8
0
S
8M
A
B
TENSR
BeE
Mew
Mew
MN
MOVINP S
Mew
SAR
BeE
8M
MCW
B
PUTIN
LEXIT
BCE
*
PROCESS lTORG
*
*
HAUL IT Mew
'ORG ',MAINX+19
MCW
B
B
CS
MCW
MCW
B
'l',MAINX+74
SBROT
EXITe
lMAIN
LITORG,MAINX+20
CHARCC,MAINX+14
WHYYY
*
n n
fi-
*
SUREX
SBR
SW
CS
LeA
B
LCA
SIMPLE B
TDFEXT DCW
lITCRG
-*
*
c: nAn A T
T n t..1
f"'f\CrM"I1I.1Un
16 33
16 34
16 35
16 36
OP
Dew
Dew
r::no
rul"\
REPLACE lTORG WITH ORG
SFX CT
LoeN
INSTRUCTION TYPE
1131
1144
1151
1159
1166
1110
1178
1185
1192
1199
1206
1213
1217
1225
1233
1240
1244
1252
1260
0 0*2 W19
S Wl1 W19
X
7
X
X
1
X
X
1
4
X
x
8
1
7
X
X
1
1
X
7
4
x
x
8
X
X
X
X
1
4
r::v
c:v
LIUl"\U'L:At~A
no
Ul"\
8
8
X
8
4
X
7
Wi9
099
W19
S Wl1 W19
M 0+0 0+0
Q W22
B -74 0+0
,
V 544 W19 K
M W22 099
B /99
B -74 0+0
V 041 0*3 S
B 000
M W27 020
075
233
233
233
233
233
234
234
234
X
X
4
4
1
X
1
1297
M U61 075
X
4
1304
B K91
1308
1312
1316
1320
1321
1331
1338
1344
1352
1358
H T41
234
•
234
M W28
B 033
B 079
I 086
M T5S
021
I'nr~
.l.U\,...;J
X
4
X
X
4
4
7
+RWDEXT
tM{UIOO1Rt
'LIGRG-'
UIO 0
229
229
230
230
230
230
230
231
231
231
231
231
232
232
232
232
232
233
233
7
4
1
0
D 0*3
WI9 K
099
CARD
X
SIMPlE+3
LIPUTX
LMAINX,LIPUTX
EXITCX
LIPUTX,LMAINX
V 170
A W18
B /44
B -74
M W16
M UI2
36
1264
1211
1218
1282
1286
1290
x
1 TnOI'"
8
X
X
X
GENERATE LTORG*
PAGE
3727L
1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3
x
X
X
X
X
x
x
4
7
4
3
8
6
001
186
L 086 186
/
B 079
L 186 086
B 000
083
234
234
235
235
235
235
235
235
IOCS TABLE
Dew
Dew
Dew
Dew
•=t
'RLS'
'GETI
'PUTI
X
1
X
3
x
x
3
3
1359
1362
1365
1368
235
236
236
236
SEQ
PG LIN
LABEL
1666 16 42
1661
1668
1669
1610
1611
1612
.1613.
1674
1675
1616
1671
1618
1619
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
43
44
45
46
47
48
60
61
62
63
64
65
66
61
68
69
1694 16 70
1695 16 71
1696 16 72
......
1.0":11 16 I~
1698 16 74
1699 16 15
1700 16 76
1701 16 77
1702 16 78
1103 16 79
1704 16 80
1105 16 81
1706 16 82
1107 16 83
1708 16 84
1709 16 85
1710 16 86
1111 16 81
1712 16 88
1113 16 89
1714 16 90
1115 16 91
't
-
Dew
wOlF'
SFX CT
x
x
'OPE'
3
3
LQeN
INSTRUCTION TVPE
31
CARD
236
236
1311
1314
* GENERATE UNKNOWN MACRO CARD
NOROT
NROTC
POTS
•
NROTC+3
X
lMAINX
X
X
x
x
MCW
'B',MAINX+85
'UNKNOWN',MAINX+19
CHARCC,MAINX+14
'-',MAINX+5
B
0
X
1
7
4
MCW
MCW
'S',SWITCH
'N',NEXTeD
COOKER
X
7
8
MODIFY ADDRESS MACRO
*'
*
CHARCR.,MAINX+74
MASEr MCW
B
Mew
B
INCLDX Dew
CHARes Dew
CHARce Dew
CHAReR DCW
KINGS
DEeTB
ENOCe
MOVEC
UVLJ4tl
DCW
DA
EQU
LCA
+PARTB
9X3
*
I
, .0+X3
INDEX3
'3',INOEX2+1
MIDlE,INDEX2+1,3
BCE
A
SW
BCE
MCW
B
Mew
B
TDF5
'W'
B
A
WEEDD
·z·
tv·
NOP
SBR
LOWER
SBROTX
'D',MAINX+17
SGe
'INCLO'
NORDT
HlDSB,MAINX+I0
WHYYY
CTAPE
rOFS
B
MCW
B
ENDSTx B
.. ,.. ....
4
4
1
SBR
CS
Mew
Mew
Mew
50
59
OPERANDS
TABLEI Dew
49
51
52
53
54
55
56
57
58
OP
PAGE
3121L
1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3
Dew
RTW
1'""1'\ I. ..
"'" I
'l'tINOEXl
MAINX+20+Xl
MOVEC,MAINX+20+X1"
INDEX2+1,IOCSAV
WEEOBX
IOCSAV,INCEX2+1
COMSN
=3
5,OVLY41
NEWEST DC
0
SVMNM
·000'
Dew
'I"
X
7
x
1
X
4
X
1
X
X
4
x
x
x
7
4
5
1
X
X
1
1
X
X
I\.
4
1
4
4
4
,.
"'t
X
3
X
X
x
V
X
x
X
X
X
X
X
X
X
7
4
7
8
7
4
8
X
X
4
x
1
X
4
x
X
X
x
7
3
8
1
3
1375
1379
1383
1390
1397
1404
1411
1415
1422
1429
H
1433
1440
1444
1451
1459
1460
1461
1462
1463
1467
1474
1478
1482
M
I
M
M
M
M
B
M
M
B
U14
086
W29
W36
U61
W31
000
W29
W38
E90
236
236
237
237
237
237
237
231
238
238
086
020
015
006
lOl
N66
U62 075
B 033
M W39 018
B P18
238
238
238
238
238
239
239
239
239
239
239
239
240
B T15
M 192 011
B
B
N
K91
WSO
va9
,.
..,...;I"'t
J."'tQU
0
.".
"'ll.n
'''TV
1492
1493
1519
1520
1527
1531
1538
1546
1553
1551
1565
1572
1516
1583
1589
1590
1598
1601
466
1519
240
241
1 '.OL
0
L W40
099
A W18
B H22
A W41
, 051
B V20
M 095
0+0
H
B N39
M HIO
095
095 3
089
051
H10
,
095
B P19
l
(US 434 R
241
241
242
242
242
242
242
243
243
243
243
243
243
243
243
1401 AUTOCODER -
sec PG
LIN
1116 16 92
1117 16 93
1718 16 94
1603
1614
1622
1627
1638
LABEL
OP
OPERANDS
WHOOPS
Dew
'CALL'
+CALlTX
ADDCAL DCW
LTORG ..
=03
SAVXl DCW
=05
BLANKS
+1
'3'
CNTP
=01
=03
WAREA
'ORG
,
, L'
tB'
'UNKNOWN'
1614
'*'
IN'
to'
, ,
I I'
1719 16 95
1720 16 96
1721 16 91
ORG
GMI
DCW
EX
1649
, ,
PASS 2 -
INITIAL ASSEMBLY VERSION 3
PAGE
3721L
SFX CT
x
4
X
3
X
X
3
X
5
X
1
1
1
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
3
5
1
1
1
1
1
1
1
1
LoeN
1605
1608
INSTRUCTION TYPE
CARD
244
244
-13
1609
AREA
AREA
LIT
LIT
AREA
1611
1616
1611
1618
1619
1622
1621
1628
1629
1636
1637
1638
1639
1640
1641
38
AREA
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
244
244
244
244
244
245
245
245
245
245
245
245
246
246
246
1649
1
1649
B 000
247
248
3126l
1401 AUTOCODER - PASS 2 - MACRO-GENERA TOR- VERSION 3
SEQ PG
1722
1123
1124
1125
1126
1121
1728
1129
1730
1731
1732
1733
17341135
1736
1137
1738
1739
1740
1141
1742
1143
1144
1145
1146
1747
1748
1149
1150
1751
1752
...
~c: ~
16
16
17
17
17
17
17
11
17
11
17
11
17
11
17
17
11
17
17
17
11
17
17
17
17
11
17
11
17
17
17
'1'"7
..LIJJ
...1. ,
1154
11.55
1756
1757
1758
1759
1160
1761
1762
1763
1164
1765
1766
1761
1768
1769
1710
1111
17
17
17
11
11
LIN
LABEL
98
99
00
01
02
03
04
*
*
*
OPERANDS
JOB
SFX
1401 AUTOCODER - PASS 2 - MACRO-GENERA TOR- VERSION 3
X
ORG
eTAPEX SBR
SBR
Mew
Mew
Mew
sw
06
07
08
09
Mew
A
C\of
MN
MN
MCW
CTAPEC RT
BCE
CEGRC BEF
CCCMPR BCE
1650
INOEX2
CCONPR+3
3+X2,INDEX2
8+X2,CTAPEC+7
0+X2,CEORC+3
CCOMPR+4
7+X2,eeOMPR+6
'12',ceOMPR+6
CCOMPR+4
CTAPEC+3,CHALT+6
CTAPEC+7,CHALT+6
'9 f ,CERRCT=1
lOCN
INSTRUCTION TYPE
1650
1654
1658
1665
1672
1650
H 094
H X70
M 0-3
M 0-8
M 0-0
X47
t
M 0-1
24
25
26
27
B
B
B
B
8
28
B
,~
0
"n
X
X
x
X
X
X
X
x
X
X
X
X
OtO
X
X
0
X
X
CTAPEC.O,
X
X
X
X
1
X
X
X
5
0
X
'l',CERRCT
CTAPEC+3.*+4
CTROW
BeE
B
CCHAlT S
H
B
CHALT
H
ass
L
5
4
1
CRWREO S
MN
B
A
SKP
1
1
1
X
CRWREO
CTROW,CTAPEC+7,W
CHAlT,CERRCT
CTAPEC
'1',CERASC=2
6
CCHALT,CERASC-l,5
CTAPEC-7
CERASe
0,l02
CTAPEC-7
0,200
CTAPEC-7,E
8
1
X
COMETS BER
CCONPR B
BeE
BM
7
7
8
8
5
1
V
0
4
1
1
1
1
1,
A
SSP
4
7
7
7
4
7
7
X
X
X
B
4
X
X
0
30
X
COMETS,CTAPEC+7.W
B
B
B
23
31
32
33
34
11 35
17 36
17 37
11 38
17 39
11 40
11 41
17 42
17 43
11 44
11 45
17 46
17 47
SFX CT
39
CARD
GENERALIZED TAPE INPUT/OUTPUT ROUTINE
05
10
11
12
13
14
15
16
17
18
19
20
21
22
OP
PAGE
x
7
X
8
8
4
X
7
X
5
X
x
X
x
X
X
X
x
8
4
4
7
4
1
5
1683
1690
1697
1701
1708
1115
1722
1730
1738
1743
1751
1152
1753
1754
1155
1156
1757
1158
1759
B
B
B
B
B
8
B
B
B
251
251
251
251
251
251
252
252
252
252
252
252
253
253
253
253
253
253
253
254
254
254
254
254
254
'"'JLI'\
LIUV
0
U
t;..J'"T
1619
1761
1162
1167
1771
1778
1185
1190
1198
1806
1810
1817
1822
1830
1834
1838
1845
1849
1856
094
X29
X41
X49
A Y93 X49
X41
X25 Y55
0 X29 Y55
M Y94 Y95
M IUD 000 R
B X62 X29 W
B 000 K
B X22 000
)
0
., c: J'.
B
B X71 l
B 000
S Y96 Y95
0 X25 xes
U (UO B
B YIO Xl9 W
V Y49 Y95 K
B X22
A Y96 Y98
U (U6 E
B Y34 Y91 5
B Xi5
S Y98
• 000 202
B
X15
• 000 200
B XI5 E
255
255
255
255
255
255
255
256
256
256
256
256
256
257
251
257
257
257
1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION
SEQ
OP
OPERANDS
48
Mew
CTAPEC+7,*+8
49
RT
0,0
50
51
52
H
PG LIN
1712 11
1113 11
1774 17
1115 17
1716 17
1111 17
1763
17 54
17 55
17 56
17
11
17
17
17
17
17
11
17
11
17
17
17
11
17
17
17
1798 17
1199 11
1800 17
1801 17
51
58
59
595
60
61
62
63
64
65
66
61
615
68
69
70
71
72
13
74
15
0,201
ceONPR
Dew
'HEADR'
LTORG ..
Dew
'12'
B
HEADR
53
1139
1178
1779
1780
1181
1182
1783
1784
1785
1786
1781
1788
1789
1190
1191
1192
1793
1194
1795
1796
1197
LABEL
'9'
CERReT
=01
t I'
=02
CERAse
*
*
..
SFX eT
LoeN
INSTRUCTION TYPE
X
7
1861
M
X
8
1
1868
1876
1883
1891
M IUO 000 R
• 000 201
X
x
x
4
5
x
X
x
X
x
CARD
257
258
258
258
258
1893
2
1
1
1
2
1895
1896
1898
7
1900
1
7
1907
LIT
LIT
AREA
LIT
AREA
1894
258
258
258
259
259
INITIALIZATION
ORG
STAR TX Mew
Mew
Mew
B
NOP
cw
sw
Mew
ew
BSS
RWD
TDFSS
Mew
B
Dew
Dew
ALTER X B
NOP
ew
RWO
Mew
1900
340, IoeSA'J
X
x
x
NORDRl,HOLE=1
CTAPE
TDFSS
GMl
3998
LIPUT+1,3998
3995,3997
ALTERXtB
1
HOlE.eARDSX
STARTA
+ceHAlT
'LtUI001R'
CTAPEX
x
X
X
X
Tnrrr
V
x
4
X
5
1
1
lur~.;)
GM2XXX
1
IOCSAV,SVMN~
1931
X
1
5
X
5
4
1938
1945
1950
1955
1962
1968
1976
1977
I.
10Q1
.,1\1
1985
1989
1994
2001
2008
2015
2022
)
*43
U (U1 R
M HI0 WOI
M -58 lO4
H N13 156
M -59 041
M -59 031
2029
M -59 089
B 101 H01
M -59 759
x
x
x
1
X
X
4
x
"
x
x
3
8
"T
78
Mew
tN',ourSB
x
79
80
MCW
Mew
BCE
'N',BUTIX
'N',8UT2X
X
7
x
VOICEBtIOCS~V-3,*
X
7
8
X
1
4
Mew
83
HOLE
CALlT
'N',SWMA28
B
VOICEB
LTQRG ..
Dew =01
+IoeALT
ORG
DA
EQU
'N'
1900
lX174
.
M W12 -55
1
X
X
x
7
7
... "va.
2036
2044
2051
X
x
1
X
3
1
X
X
X
x
2055
2058
2059
1900
2013
260
260
260
260
260
260
260
261
261
261
261
261
261
261
262
262
M
4
4
4
X
1804
1805
1806
1801
81
82
1900
M 340 HI0
1908
1915
1919
1923
1921
4
+lOCALT,SWITCH+3
HAPPV+3,$TRING
1811 17 85
1812 17 86
1813 17 87
40
1892
Mew
S8R
84
1184
1802
X29 V75
B X67
X
1802 11 76
1803 17 77
11
17
11
11
1808 17
1809 17
1810 17
PAGE
3726L
3
B W50
N l68
)
W49
t
198
M 187 198
) 195 191
B
CUI R
B l11
U
M -55 189
BIOI
Y34
B W50
_.......
~I..~
7S-0
u
.&.. ....
262
262
262
262
263
263
263
263
..
263
264
264
B 101
2055
106
1900
2013
AREA
AOCON
LIT
264
264
264
264
3726L
1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3
SEQ PG
LIN
1814 11 88
1815 11 89
1816 11 90
1817 17 91
1818
1819
1820
1821
1822
1823
1824
1825
1826
1821
1828
1829
1830
1831
1832
1833
1834
1835
1836
1831
1838
1839
1840
1841
1842
17
17
17
17
17
11
11
11
18
18
18
18
18
18
18
18
18
18
18
93
lONeR
lONCH
SLASH
98
SUBSET
12
13
14
.I.O"'~
"In
..LO
MASKS
IONBR
Mew
MCW
CALIT
Mew
SW
YSCAlX BCE
C
BE
C
SAR
BE
B
SPADEX Mew
QUEEN
CW
NOCAlX NOP
0
t"onn-r
..:>Dl\UI
SCE
SWITCH,MAINX+19,D
0
*
*
..
ADDeAL,INDEX2
MAINXX+20
XXXX,INDEX2-2,Y
O+X2,'
SPAOEX
O+X2,MAINX+22
INDEX2
QUEEN
YSCALX
MAINX+22,O+X2
MAINXX+20
SKELCX
Q. CALL TABLE EXCEeOEO
V JOB 0*3 S
V 041 0*3 B
M H44 086
X
X
8
7
2074
2082
2090
X
X
X
X
7
2097
)
4
2104
210a
2115
2119
2126
2133
2140
2144
B +41
7
4
1
7
7
X
4
X
1
X
1
1
X
X
x
4
8
X
X
7
5
X
1
X
4
5
4
X
X
x
2151
2158
2165
2169
2111
2184
2189
2196
2200
2205
M
0*1 0*4
WIlt 0*3
B -91
M H45 L01
M H44 N66
MU60
B
M
M
M
,
8
C
B
C
Q
B
8
M
015
J58
H44 K20
U62 015
W08 094
021
K90 092 Y
0-0 H48
K09 S
0-0 023
094
K16 S
J69
023 0-0
021
R17
v
A
7
4
4
....
X
8
2228
8 lOI 020 D
X
7
2236
2243
2241
2251
2255
2259
2266
2270
2278
2286
2290
2297
2301
2305
M 011
X
X
X
X
Q. INCLD STATEMENT
INSTRUCTION TYPE
8
X
X
BEGIN SCAN OF CALL TABLE
LoeN
X
x
'N',SWITCH
'B',NEXTCC
CHARCS,MAINX+74
CALIT
'B',NOCAL
* PROCESSING CALL STATEMENT
*
*CAlLN MCW CHARCR,MAINX+74
'1.1'\.
1848 18 22
1849 18 23
1850 18 24
1851 18 25
1852 18 26
1853 18 27
1854 18 28
1855 18 29
1856 18 30
1851 18 31
1858 18 32
1859 18 33
1860 18 34
1861 18 35
1862 18 36
1863 18 31
B
B
.1.'7
1846 18 20
1841 18 21
B
MCW
cw
MCW
MCW
18 11
18
18
18
18
18
SFX CT
OPERANDS
DELET,MAINX+2+Xl,B
'S',MAINX+85
MAINX+Xl,MAINX+3+Xl
DEFND
BlANKS-Z,MAINX+2+XI
BWl
MCW
94
95
96
91
99
00
01
02
03
04
05
06
07
08
09
10
OP
*... PROCESS MISSING PARAMETERS WITH REGARD TO lONE
*
SLASH,MAINX+2+X1,S
CHZGN BWl
92
15
16
1843 18 11
1B44 18 IB
.. nl_e"
LABEL
PAGE
1-
2209
2216
2220
",
'" '" '" I-
....
}
N
n
0
...,,..'"
U.;J.:1
41
CARD
265
265
265
265
265
266
266
266
266
266
266
267
261
267
267
267
268
268
268
268
268
268
268
269
269
... , ....
,0"'1
269
LOAD PARAMETERS INTO TABLE
MeW
SBR
S
DIMNDX B
sw
LCA
SBR
BCE
BCE
B
XXXX
Mew
WHYYY B
SWITCH B
B
MAINX+I0,PARTB
INDEX3
INDEXl+l
X
4
4
4
4
1
4
X
8
X
X
8
SCANXX
X
1
X
X
MAINX+18+Xl,O+X3
INDEX3
HEARTX,MAINX+19+Xl,
WEEDBX,MAINX+19+Xl"
DIMNOX
t1',MAINX+85
SBROT
REAOTA
POTS
x
X
X
X
4
7
4
4
4
466
H 099
S 090
B M19
, 001
l 0/9 0+0
H 099
B L09 OSO
8 N39 OSO ,
B K51
M H49 086
B
8
033
461
B U15
269
269
269
270
210
270
270
270
270
210
271
211
271
271
1401 AUTOCOCER - PASS 2 - MACRO-GENERA TOR- VERSION 3
SEQ PG LIN
1864
1865
1866
1867
1868
1869
1870
1871
1812
1873
1874
1815
1876
1811
1878
1819
1880
1881
1882
1883
1884
1885
1886
18S1
1888
1889
1890
1891
1892
1893
1894
.. nrol!"
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
.. n
.10":1:»
.10
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1901
1908
1909
1910
1911
1912
1913
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
38
39
40
41
LABEL
OP
....
GENERATE BRANCH AND
*
t
HEARTX LeA
42
CS
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Mew
Mew
SAR
,n
0'7
70
11
12
13
14
75
16
77
18
79
80
81
MCW
SLAM
87
Mew
Mew
Mew
cw
B
CS
BCE
MCW
Mew
B
Mew
SAR
B
*
*
*
rVTT"1
\"J\J.'.1
A
A
C
L H50
/ 086
M 466
M 460
Q 099
H H44
M U6I
M 099
M H53
) 024
B 033
/ 086
B LOI
M H56
M 099
B G46
M 0+0
Q 099
B L4S
4
2419
2423
2427
2435
2443
2450
H Nl2
x
X
X
X
x
x
x
X
X
X
X
X
x
X
x
X
X
v,
lf~Ut:J\.1.
X
X
X
4
8
8
7
X
5
\I
'7
x
x
0+0
CARD
211
271
211
272
272
212
212
212
272
213
213
273
213
273
273
273
274
214
274
011
025
016
075
H53
099
0+0
018
094
051
'"
X
')1. &:::1:::
x
+10,INDEXl+1
ATlOK
X
X
1
4
X
X
4
4
2539
2543
ZA
BeE
S
B
'510',INOEXl+l
X
4
7
1
5
8
4
4
X
II.
'"'
uc:::n U
nco
U7
H 021
B N54
CXITl,MAINX+20+Xl~'
7
X
5
8
,
,
B N09 S
C 089 H61
B M23 I
e 012 H58
X
x
8 N13 OSI
B M98 OSI
C OSI H58
1
x
x
021
#:-'TJJ
2462
2469
2414
2481
2486
2494
2498
2502
2509
2513
2520
2528
2535
X
,
f
x
sw
42
,
0
B
*
'*
*
2309
2316
2320
2327
2334
2338
2345
2352
2359
2366
2310
2314
2318
2386
2393
2400
2404
2411
2415
A
BeE
eXIT
7
4
7
1
4
1
7
1
1
4
4
4
8
1
7
4
1
4
4
B
au
CLUBS
SCNAT
ATLCK
l' .. ,nt':'
INSTRUCTION TYPE
INOEX1,'S2'
SCANl
MAINX+11,'
CLUBS
eLU8S,MAINX+71,
eXIT
MAINX+21+X1
'1',INDEX1
C
BE
CETWMS
,.
LOCN
X
ClUBS+3
MAINX+20
seNAT,MAINX+20+Xl,'
CETWMS,MAINX+20+Xl"
MAINX+20+X1,'
CLUBS
- ... - ,
SFX eT
X
• t O+X3
lMAINX
PARTB,MAINX+IO
PARTB-6,MAINX+24
INDEX3
'B',MAINX+15
eHARce,MAINX+74
INOEX3,SAVXL2=3
SAVXL2,INOEX3
MAINX+23
SBRGT
lMAINX
SWITCH,O+X3,
'OCW',MAINX+17
INDEX3,INDEX2
SBGROX
O+X3,MAINX+20+Xl
INDEX3
SLAM
•
PAGE
Dew,S
SCAN FOR COMMA, TWO BLANKS, OR AN
seANXX SBR
SCANL sw
BeE
BeE
e
BE
82
83
84
85
86
OPERANDS
3726L
"
?7C:::
.... 7
"
B N09 S
B N09 012
8 N02
052
A H59 089
,
B 000
+ H64 090
B M55 OSI
S H66 090
B N20
214
'274
214
274
275
275
•
I
.....
275
215
275
276
276
276
276
276
216
216
217
271
277
CBTAIN MORE PARAMETERS FROM ADDITIONAL RECORDS
wEEDBX SBR
B
WEDXT+3
NEWEED
277
277
1401 AUTOCOIJER SEQ
1914
1915
1916
1917
1918
_1919
1920
_192.1_
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1931
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1951
1958
1959
1960
1961
1962
1963
PG LIN
LABEL
18
18
18
18
18
18
18
1.6
18
18
18
18
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
WEODBX A
NEWEED C
BU
.-.
,..
L'1
19
19
19
19
19
19
19
19
88
89
90
91
92
93
96
97
98
99
LOOPW
WEOXT
TDF6
Dew
Dew
•
OUTPUT
*
*5BROTX SBR
BUT1X
GUTSB
HC,..EX
B
MCW
Mew
BCE
MCW
B
NOP
...
•
MCW
B
lOOPW
X
x
4
X
X
4
1
7
4
8
4
BRNCH+3
HOMEX
ANTPER,COMETS+3
LMAIN,lOPlJT
BUT2X,QUTPT+73,.
8LANKS-3,CUTPT+73
LOPUT+l
lIPUT+l,LCPUT+1
CTAPEX
TOF6
ACRWED,COMETS+3
0
S
tR',MAINX+74
SBROTX
'1',SYMNM
MAINX+17,hLDSB
ENDDC
x
X
X
X
X
X
X
X
X
x
8
8
4
4
3
8
X
X
X
x
X
X
X
X
X
X
X
X
4
4
7
7
8
7
4
1
4
4
7
4
2633
2631
2641
2648
2655
2663
2670
2674
2681
2685
2689
2696
CHAIN
8
x
X
1
X
4
2700
2107
2711
2718
2725
5
X
S
X
X
1
1
1
1
1
1
1
1
4
7
2729
2730
2731
2732
2733
2734
2735
2736
2131
2741
B
A
Mew
S
19 28
19 29
READ NEXT RECORD
271
218
A H59 089
C 089
B 006
N G80
8 653
N
M U62
B 033
8 N70
S 090
B V20
B N41
OSl
B 000
,
H61
I
iia--
278
278
278
278
278
279
219
279
219
219
279
279
280
075
006
021
051
CARD
*
,
Y34
H 099
S
048
955 X65
086 191
089 185
Wl3 185
198
187 198
W50
024
958 X65
000
M
B
A
M
S
H61 075
033
H59 WOl
018 192
V19
S
S
S
S
S
S
5
S
S 096
A H68 095
B
M
M
B
M
,
M
B
N
M
280
280
280
280
280
281
281
281
281
281
281
281
*
PROCESS PARAMETERS FOR SUBSTITUTIONS
*M5UBTX Mew
SGC
2547
2554
2561
2566
2570
2574
2575
2582
2586
2594
2598
2606
2614
2618
2624
2632
7
1
5
INSTRUCTION TYPE
43
ROUTINE
sw
Mew
BUT2X
BRNCH
LOCN
X
X
CHARCR,MAINX+74
SBROTX
HAPPV,MAINX+5,.
INDEX}"'1
Q. FIRST PARAMETER MISSSING
MOVEC,MAINX+20"
WEDDBX,MAINX+20+Xl,
MAINX+20+Xl
0
+CCHALT
'M(U6II2W'
B
BCE
S
BCE
BeE
5W
B
SFX CT
INDEX1,'52'
CALLeD
TWEOBA
Mew
THRU
00
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'l',INDEXl
PAGE
3726L
MACRO-GENERATOR- VERSION 3
OPERANDS
NEXTCO NOP
HAPPY B
NOP
94
95
OP
PASS 2 -
S
5
S
S
S
S
A
X
X
282
282
282
282
282
MACRO
X
X
X
X
X
INDEX2+2
'3',INOEX2+!
7
4
7
X
X
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
282
282
283
283
283
283
283
283
283
284
1401 AUTOCODER -
SEQ PG LIN
1964
1965
1966
1961
1968
1969
1910
1971
1912
1913
1914
1915
1916
1971
1978
1979
1980
1981
1982
1983
1984
1985
1986
1981
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
-~~.----
.-,--
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
LABEL
3726l
PASS 2 - MACRO-GENERA TOR- VERSION 3
SFX CT
lOCN
INSTRUCTION TYPE
X
5
2148
2755
2759
2763
2111
2779
2186
2194
2198
2805
2809
2817
2825
2832
2836
2843
2850
2855
2860
M 011
H 099
S 090
B Q25
B V20
A H68
B H33
B M19
L 0/9
H 099
B V20
8 V65
L H69
I 086
C H72
M H75
X
1
4
4
8
8
7
8
4
7
4
8
8
7
4
1
7
5
5
X
X
X
X
X
X
4
4
4
7
5
1
OP
OPERANDS
30
Mew
31
32
33
SBR
S
BCE
A
BCE
MAINX+IO,PARTB
INDEX3
INDEXl+l
BTREND,MAINX+20,
MOVEC,MAINX+20,t
'3 ' ,INDEX2+1
ABOVE,INOEX2+1,3
B
SCANXX
LeA
Mew
MAINX+18+Xl,O+X3
INDEX3
MOVEC,MAINX+20+Xl"
WEEDD,MAINX+19+X1,t
',',O+X3
lMAINX
PREVS=3,HlDSB
'999',PREVS
BE
HAR~N
X
SH
RDTPI
1
34
3.5
36
31
38
BCE
COMSN
BELOW
39
SBR
40
41
42
BeE
43
44
45
46
47
48
49
50
51
52
53
BCE
BTRENO LCA
CS
C
EOFI
...
...
*RDTPI
RWD
54
NOP
55
56
51
58
C
MAINX+19,HEAOR
SU
C
ROTP1
MAINX+7,'999'
BE
KINGS
59
C
60
61
MAINX+7,HlDSB
RDTP1
B
~AOMN
62
SW
B
au
SKElC
X
X
X
X
X
X
x
X
x
X
x
X
X
X
X
x
466
021
021 ,
095
095 3
0+0
OS1
,
OSO
t
0+0
192
H12
B R65 S
B Q65 U
U (Ul R
44
CARD
284
284
284
284
284
285
285
285
285
285
285
286
286
286
286
286
286
287
281
SUBSTITUTIONS
100
CTAPE
TDFlIB
63
64
65
66
67
68
69
70
11
72
73
PAGE
Mew
MCW
B
BCE
MCW
BOUTS
CW
HARMN
Mew
8
CS
SW
Mew
B
74
NOP
75
76
17
78
19
C
MCW
BE
C
au
I 1,..'"'' . .,. ..
~
'N',NOCAl
CHARCS,MAINX+74
SBROT
HARMN,MAINX+19,O
',M.dINX+19
'8
ZEROX
eHAReC,MAINX+14
x
X
x
v
"x
X
X
X
X
X
x
SBRorx
x
lMAINX
1,100
lIPUT+1,100
CTAPEX
TOFLB2
MAINX+19,HEADR
MAINX+7,PREVS
X
X
X
X
5
7
5
I.
"'"
1
7
4
8
7
4
7
4
4
7
7
X
4
4
7
X
7
SWITCH
X
MAINX+1,'}OC'
X
5
7
5
LZFND
x
x
2865
2869
2813
2871
2884
2889
2896
2901
2908
"')n,.,
t
100
B W5Q
B18
020 Y91
Q65 I
008 H15
U63 S
C 008 192
B Q6S I
N
C
B
C
B
0
nL:r
1'\0::;1
L7.L..:J
0
2917
2924
2931
2935
2943
2950
2954
2961
2965
2969
2976
2983
2981
2991
2998
H45 K20
U60 015
033
R65 020 0
H8C 020
) IB8
M U61 015
B 033
I 086
001 100
t
M 187 100
B W50
N 829
C 020 Y91
M 008 H12
a lOl S
C 008 H83
8 +26 I
3005
3010
3017
M
H
8
B
M
287
287
287
287
287
288
288
288
288
288
288
289
289
289
289
2B9
289
290
290
290
290
290
290
290
291
291
291
291
SEQ PG LIN
2014 19 80
2015 19 81
2016 19 82
2017 19 8.3
2018 19 84
2019 19 85
2020 19 86
2Q21 19 81
2022 19 88
2023 19 89
2024 19 90
2025 19 91
2026 19 92
2021 19 93
2028 19 94
2029 19 95
2030 19 96
2031 19 97
2032 19 98
2033 19 99
2034 20 00
2035 20 01
2036 20 02
2037 20 03
2038 20 04
2039 20 05
2040 20 06
2041 20 07
2042 20 08
2043 20 09
2044 20 10
..,n~.1:
,"V'"TJ
2046
2047
2048
2049
2050
2051
2Q52
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
..,n
c.v
, 1
..L..L
20 12
20 13
20 14
20 15
20 16
20 11
20 18
20 19
20 20
20 21
20 22
20 23
20 24
20 25
20 26
20 27
20 28
20 29
LABEL
OP
OPERANDS
SW
ZEROX
*
* RIGHT TO LEFT SCAN FOR lOIEf\GES
*LZFNO ZA
'690',INDEXl+1
LOZSC
DEFNO
BeE
S
C
BU
S
eLEANC B
CW
C
BL
C
au
BCE
SW
Mew
Mew
ew
LICNT,MAINX+X1,)
+10,INDEX1+1
INDEXl,'lS'
Lozse
INDEXl+1
SCANXX
MAINX+20 t MAINX+20+Xl
INOEXl,'51'
ENDClN
MAINXX+20+Xl,'
CLEANC
ENDClN,tJ!AINX+5,*
MAINX+20+Xl
BLANKS-4,MAINXX+71
MAINXX+11
MAINXX+20+X1
OUISD
SBR
lONCH+3,UPENGl
LOZENG,MAINX+X1,)
+10,INDEX1+l
INOEX1,'04'
ENGLOl
IONCH+3,DEFND
~u
~*nn
l'\Iur
nAnTO
u""t.'''',.'t",
r","
I O"~IHl.nAT..LU
Mew
SBR
ENGlOZ BCE
UPENGL S
C
au
T
~T.
..Jnl.rlL
C
BE
C
BE
B
TDFLIB DCW
Dew
TDFL82 Dew
Dew
INSTRUCTION TYPE
X
4
3022
,
X
1
3026
x
8
3033
X
7
7
3041
3048
3055
3060
3064
3068
x
5
X
X
4
4
7
7
X
X
6
X
5
X
7
x
5
X
8
X
4
x
7
x
x
4
4
X
X
X
X
7
7
X
x
8
7
7
5
'N',SHIFTL
MAINX+18,WHCOPS
MASKS
MAIN.X+19,INClO
MASKS
x
7
X
7
5
BOUTS
X
+KINGS
'M(UIOOIR'
+EOFIB
'MIUIOO1R'
X
3
X
x
8
3
8
X
8
X
X
X
7
SW
8M
STSYM,MAINX+2+Xl
LABEL
INDEX3,SAVX3=3
3015
3082
3087
3094
3099
3107
3111
3118
3122
188
+ H86
B 838
S H66
C 089
a +33
S 090
B M19
) 021
C 089
B A26
C OS1
8 +64
B A26
CARD
291
090
0*1
090
Has
I
OS1
H90
T
H58
1
006 *
,
051
M
W12 072
M 012
)
45
OSI
291
292
292
292
292
292
292
293
293
293
293
293
293
294
294
294
294
20
7..,
MAINX+Xl,~AINX+3+X1
8
leCN
X
X
*
PROCESS LOZENGED FIELD 21
*
*LlCNT BeE
DEFND,MAINX+l+Xl,
Mew
SFX CT
X
*
RIGHT TO LEFT SCAN FOR LOZENGES
*
*
'015',INDEXl
ENDClN MCW
PAGE
3726l
1401 AUTOCODER - PASS 2 - MAeRO-GENERATOR- VERSION 3
X
X
X
x
1
7
5
4
3126
3133
3140
3148
3155
3162
3167
..... "
..., I
':>.LI«t
3181
3188
3195
3200
3207
3212
3218
3226
3229
3231
M H93 089
J07 A48
B *57 0*1
S H66 090
H
C 089 H95
B A40 1
H J07 +41
........
...N 466 U.Ll
M Hlt5
C
B
C
B
B
019
J44
020
J44
R50
A71t
W05
S
U59
S
294
294
295
295
295
295
295
296
296
296
296
296
296
297
U63
297
*44
297
297
297
72
x
8
4
7
3238
3246
3253
3261
3265
+41
0*1
V C56
B 119
M 099
B
,
0*2
297
0*4
0*3 K
298
H98
298
298
298
SEQ PG LIN
LABEL
2064 20 30
2065 20 31
2066 20 32
2061 20
2068 20
2069 20
2070 20
2071 20
2012 20
2073 20
2014 20
2075 20
2016 20
2077 20
2078 20
2019 20
2080 20
2081 20
2082 20
2083 20
33
34
35
36
37
38
39
40
41
42
43
44
45
46
41
48
49
2084 20 50
2085 20 51
2086
2087
2088
2089
2090
2091
""' ....
£U...,.:J ~v
'"""'.ft"~
I
Hew
Bl
Mew
SBR
cw
LMN
MOVE3
STSYM
cw
MCW
BCE
MCW
SBR
B
HOUSE
SPOUT
Mew
SBR
cw
n
0
2098 20 64
LBLMV
BW
20 66
MLBlZ
*
*
*
SFX CT
X
1
X
7
7
7
7
1
5
7
x
X
x
X
X
x
4
X
1
X
X
X
7
4
4
X
7
4
~AINX+Xl,MAINX+3+Xl
X
X
DEFND
X
MAINX+Xl,MAINX+3+Xl
BlANKS-2,MAINX+l1
HOUSE,INOEX3,h
OUTPT+12,~AINX+11
4
X
X
X
X
X
X
x
1
4
MCW
B
SYMNM,MAINX+I0
OUTSO
X
)
B
M
M
)
099
000
,.
8
X
4
7
4
4
7
4
X
4
X
5
4
4
3460
B
H
298
299
299
299
299
299
300
300
300
300
300
300
301
0*4
301
301
301
L 073
) 0*1
M W14
B 022
M
CARD
012
B +41
M
H
46
300
301
V 053 188 1
B R65
M 106 A14
) 188
V
A
X
)
M
M
3441
3449
3453
I
HARMN
H
T
013
1/5
4
B
B
M
099
097
105
"...IV
X
X
x
C
W22
102
099
C18
OG7
(47
0*4
H98
0+0
04:1
+41
069
WOI
0*1
"T
7
X
S
M
)
4
X
Mew
cw
S 099 W22
y W16 W22
M 101 099
Q
U
7
X
X
X
3272
3279
3286
3293
3300
3307
3314
3319
3326
3330
3334
3341
3348
3352
3356
3363
3367
3374
'2'. '2"7
J"TJJ
7
8
X
LI"IJ1I
INSTRUCTION TYPE
4
1
MOVE3+6
SPOUT
QUTPT+12,MAINX+70
MOVE3+6
OUTPT+3+Xl
U.o.!
lOCN
3378
3385
3392
3399
3401
3414
3418
3422
3429
3433
7
4
lBlMV,ZERCX
HARMN
'M',SHIFTL
lEROX
B
2099 20 65
20 11
20 78
20 79
MCW
MCW
CW
* SPECIAL PROCESSING CF ONE AND TWO CHARACTER OPERANDS
*
*
MAINX+12,CUTPT+72
SPTYP LCA
DElET
20 75
20 76
cw
B
O~
20 74
MCW
MCW
B
'I
20 67
20 68
20 69
20 70
20 11
20 12
20 13
INDEX3,WAREA
8LANKS,WAREA
'I99 I ,INOEX3
WAREA,INOEX3
'I',INDEX3-2
INDEX3t'I9F'
SPTYP
MAINX+16+X3,MAINX+72
MOVE3+6
MAINX+3+X1
SAVX3,INOEX3
O+X3.0
MAINX+X1
DEFNO
MAINX+68,MAINX+71
SYMNM
C
2096 20 62
2097 20 63
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
5
S
53
54
55
56
51
2092 20 58
2093 20 59
2094 20 60
OPERANDS
Ml
Mew
20 52
20
20
20
20
20
OP
PAGE
3726l
1401 AUTOCOCER - PASS 2 - MACRO-GENERATOR- VERSION 3
184
0*4
012
099 H
184 012
C41
033
184 011
C47
r~n
3464
3468
3415
B R65
M WOl 011
3479
3483
3488
3492
3496
3503
3507
3511
H G45
U (Ul R
B A67
301
302
302
302
302
302
302
303
303
303
'2./\'2.
- ' \wI-'
303
303
303
304
304
304
304
PULL IN CALLED SUBROUTINES AT LTORG, END OR EXECUTE CARDS
EXITC SBR
RWOEXT RWO
CWPRC CW
TFRDI sw
MCW
B
NOP
C
CEXIT1+3
1
NEWEST
100
lIPUT+l,ICO
CTAPEX
TDFEXT
MAINX+19,HEADR
X
X
X
X
X
X
1
4
4
7
)
V98
100
187 100
B W50
N T44
C 020 Y91
t
M
304
304
304
305
305
305
305
305
3126L
1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3
SEQ PG LIN
LABEL
OP
OPERANDS
SU
TPRDI
SOlUl
C
BE
MAINX+1,'999'
EOF1A
AOOCAL,INOEXI
TPRD1,INOEXl-2,Y
MAINX+5
O+X1,MAINX+7
INDEXI
PRTNER
TPRDl,I+Xl
MAINX+5
I+Xl
NEWEST
CTAPEX
TDFEXT
t-AINX+18,WHOOPS
SUBSET
MAINXX+19,INCLD
SUBSET
2114 20 80
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2131
2138
2139
2140
2141
2142
2143
2144
20
20
20
20
20
20
20
20
20
81
82
83
84
85
86
87
88
89
20 90
20 91
20 92
20 93
20 94
20 95
20 96
20 97
20 98
20 99
21 00
21 01
21 02
21 03
21 04
21 05
21 06
21 01
21 08
21 09
21 10
44-r.l
-'1'.1::
44
-'1
1 1
4.1.
2146
2141
2148
2149
2150
2151
2152
2153
2154
2155
2156
2151
2158
2159
2160
2161
2162
2163
21
21
21
21
21
21
21
21
21
21
21
21
21
21
21
21
21
21
12
13
14
15
16
11
18
19
20
21
22
23
24
25
26
21
28
29
OPPENT Mew
PRTNER BeE
SW
C
SAR
BU
BW
ew
sw
sw
COOKER B
NOP
C
BE
C
BE
EOFIA
COMBl
C
~AINX+19JHEAOR
BE
MCW
LeA
B
B
MCW
BeE
C
SAR
BE
SOLUI
CHARCC,MAINX+74
lOPUT+1,lOO
SBRGT
COOKER
ADDCAL,INOEXI
CEXIT,INDEXl-2,Y
O+Xl t '
INDEXI
CEXIT
COMBl,I+Xl
BW
OI..l
un
* CREATE COMMENTS CARD FOR UNKNOWN
*
*UNKNWN
NOROI
B
SW
Mew
B
B
eEXIT
CS
CS
ew
Mew
CEXITl B
SBGRD S8R
S
GRAND Bk
S
A
I+X1
3+Xl,MAINX+10
SBRGT
COMBL
CALlT
loeN
INSTRUCTION TYPE
CARD
5
1
3518
3523
B 092 I
C 008 H75
305
305
-3tf6306
306
306
x
x
X
X
X
X
X
5
-35-3-0
1
3535
8
4
3542
3550
7
3554
4
3561
3565
3570
3578
3582
3586
3590
3594
3598
3605
3610
3617
3622
3629
3634
3641
3648
3652
3656
3663
3611
3678
3682
3687
5
8
x
4
X
X
4
X
X
4
x
X
X
X
X
X
X
X
X
X
X
x
X
X
X
X
v
4
4
7
5
7
5
7
5
7
7
4
4
7
8
7
4
5
8
n
#<}'J'"\~
1'\
0
::>o~:>
X
4
4
3103
3707
3711
3718
3722
3726
3130
3731
3735
3742
3746
3750
3754
3762
3169
f3 F-56M WOB
B 092
006
t
C 0*0
S
089
081 Y
008
Q 089
B E42 I
V 092 0*1 1
)
,
t
B
N
C
B
C
8
C
B
006
0*1
V98
W50
T44
019
J19
020
J19
020
E23
U61
W05
S
U59
S
Y91
S
015
l 198 100
B 033
B E90
M
M woe 069
B G26 087 y
C OtO H4S
Q 089
B G26 S
V F63 Ot1 1
V
083 V96 1
..
306-
306
307
301
307
307
307
301
307
308
308
308
308
308
308
309
309
309
309
309
309
310
310
310
310
310
SUBROUTINES
X
7
X
X
4
)(
4
X
X
4
1
x
4
7
0
X
4
GRANO+3
INDEXl+l
O,O+X2
'lO',INDEX2+1
tl',INDEXl
X
X
X
X
4
4
100
'999',PREVS
41
SFX CT
X
X
X
o 1.1 f"'I c: VT U c: 1_, c: t:' -T
nnUL;;,I\. t ,PU;.. f l [ ; ' ) I
PAGE
x
X
8
7
7
B T15
310
Ot1
M 0*3 011
B 033
B F63
311
311
t
I -73
I
)
100
M H75 H72
B 000
H G57
S 090
000 0-0 1
S 108 095
"A
H59 089
311
311
311
311
311
312
312
312
312
312
312
313
SEQ PG LIN
21
21
21
21
21
21
21
21
21
21
21
OPERANDS
B
X
X
X
X
X
34
Mew
35
36
31
38
39
40
41
42
43
44
SW
1
B
THRU
=4
'R',MAINX+74
WHVYY
INDEX3,OECTB+X2
LOWER
INOEX3.0EeTB+X2
BELOW
CALLeD CS
B
NOP
IOCSAV Dew
CHAINX Mew
8
MIOlE
Mew
Mew
B
ABOVE
1
X
X
3
X
1
3
3
SAVXL2
X
·=03
x
..
'
PREVS
'8
, } 00'
'690'
'15'
'51'
'015'
'04'
=03
'199'
SAVX3
•I
I
'19F'
'M'
'10 '
2
1
2
3
X
X
X
2
1
1
x
1
3
v
t
1
X
X
X
X
X
=03
2000
~
LOCN
INSTRUCTION TYPE
3176
B G54
I 086
313
313
B W50
313
313
313
3780
3184
3188
3192
3799
3803
3810
3811
3818
3822
3829
3833
3840
313
314
314
314
314
314
314
314
M H67 015
8 K97
M 099 UR2
8 V46
M 099 UR2
B P94
3844
315
LIT
LIT
LIT
LIT
LIT
AREA
LIT
LIT
LIT
LIT
3868
3869
3812
~o..,c:;:
•
5
X
X
X
X
X
X
X
X
X
X
X
3
3
3880
3883
3886
3888
3890
3893
x
001
lIT
LIT
LIT
LIT
LIT
AREA
X
3
1
2
3908
T
T
'-1'
LIT
LIT
LIT
LIT
LIT
LIT
lIT
AREA
LIT
3895
3898
3901
3902
3905
3906
CARD
8 N82
3856
..lUI..,
3
3
1
,
T44
U60 075
3858
3859
3861
3864
3866
3867
-'
2
3
2
N
M
3844
3845
3848
3849
3850
3853
"-
2
48
lIT
LIT
LIT
LIT
315
315
315
315
315
315
316
316
316
316
316
316
316
317
317
311
..,17
.;;1.&.'
317
317
317
318
318
318
318
318
318
318
319
319
319
it
...
...
OUTPUT AREA
48
49
x
1
1000'
;#:7.1
46
41
X
X
4
1
4
1
x
'R'
21
21
21
21
X
X
'3'
2180
2181
2182
2183
x
4
1
4
4
4
1
'N'
'52'
'510'
+10
2179 21 45
x
4
4
'I'
2063
x
4
4
X
X
,'Dew'
1978
X
B
LTORG *
Dew
'8'
,'7',
1874
SFX CT
OP
GRAND
LMAINX
CTAPE
TDFEXT
eHARCS,MAINX+74
2164 21 30
2165 21 31
2166 21 32
2167 21 33
2168
2169
2170
2171
2112
2113
2114
2115
2176
2117
2118
LABEL
PAGE
3726l
1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3
QUIPT
ORG
DA
3912
lXB6,G
X
X
3912
3912
3991
319
1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3
SEQ PG LIN
2184 21 50
2185 21 51
2186 21 52
LABEL
lOPUT
OP
OPERANDS
Dew
I
EQU
EX
END
•
3126L
SFX CT
lOCN
1
3998
*-1
X
X
X
START
X
PAGE
INSTRUCTION TYPE
GMARK
49
CARD
320
3997
B 000
I lOO 080
321
324
3 ERRORS
CLEAR STORAGE 1
CLEAR STORAGE 2
BOOTSTRAP
,008015,019026,030,034041,045,053,0510511026
L068112,102106,113/101099/199,027A070028)027BOOI0210BO 261,001/00111310
,008015,022029,036040,047054,061068,0121061039
,0010011040
1401 AUTOCOCER-PASS 3-TRANSlATOR-INITIAl
SEQ PG LIN
101
102
103
104
105
106
107
108
109
110
III
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
... ..,
""
I
128
129
130
131
132
~
.
133
134
135
136
137
138
139
140
141
142
143
144
145
146
141
1 01
1 02
1 03
1 04
1 05
1 06
1 07
1 08
1 09
1 10
1 11
1 12
1 13
1 14
1 15
1 16
1 17
1 18
OP
OPERANDS
003
JOB
CTl
1401 AUTOCODER-PASS 3-TRANSLATOR-INITIAl
630 1
"28
1
1 29
1 30
INTAPE EQU
tU6
{U4
OUTAPE EQU
SYSTAP EQU
fUI
(UO
INITAP EQU
XXXX
EQU
0000
200
PRINT EQU
000
lIBRN EQU
*
-TAPE REDUNDANCY ROUTINE
-
TPERR
BSP1
1
1
1
1
1
1
REDXT
RDERR
BSP2
B
MN
BSP
S
Bwl
MN
33
TPhlT
35
36
37
38
39
40
RT
o r-n
DC.I"\
32
34
ORG
SBR
SBR
MI
MCW
MN
MCW
BSP
BCE
Mew
TPINS
1 31
1
1
1
1
INSTRUCTION TYPE
1
CARD
-VERSION 3
-
~.,
L
LOCN
PAGE
*EQUATES
1 19
1 20
1 21
1 22
1 23
1 24
1 25
1 26
.,
3731l
SFX CT
LABEL
.
-VERSION 3
1
2
3
WRTRO
41
1 42
1 43
1 44
INST2
1 45
1 46
1 47
SBCTR
H
Mew
RT
BSS
H
B
SKP
BCE
A
WT
BER
B
S
MN
(U6
(U4
(Ul
tuO
0000
0200
0000
RTEND+l
Xl3
4
REDXT+3
+9,Xl3
4000-10+X3,TPINS+7
TPINS+3,BSP1+3
TPINS+7,INST2+1
INITAP
WRTRO,TPINS+7,W
+9,RDCT=1
INITAP,XXXX
RDERR
XXXX
TPINS+3,BSP2+3
INITAP
+l.RDCT
TPINS,RDCT,8
TPINS+3,TPHlT+6
XXXX,390
TPINS+7,*+8
INITAP,XXXX
BSPl,E
XXXX,302
REDXT
SYSTAP
SBCTR,WRTCR-1,5
+l,WRTCR=2
INITAP,XXXX
BSPI
REDXT
WRTCR
TPINS+3 t *+1
4
BRING IN INSTRUCTION
THAT CAUSED
REDUNDANCY
,.
BACKSPACE TAPE
Q. WRITE REDUNDANCY
INITIALIZE COUNTER
RE-REAO
r.
\ail.
[,)r":l"'IiIMnAI.IT
f\CL./vnU.lRPf I
At'AYA.l
RUH Jot,.
EXIT
1
1
7
7
5
8
7
2251
2259
2266
")
J
4
2219
7
2283
5
2290
2295
2302
1
HALT
7
1
RESET COUNTER
2246
ac:: .., -,;.
",..,.
BACKSPACE AGA IN .
REDUCE COUNTER
Q. 10 SUCCESSIVE READS
RE-READ
DETERMINE OPTION
HALT AGAIN
EXIT
ERASE TAPE
Q. FIFTY SKIPS
INCREASE COUNTER
RE-WRITE
Q. REDUNDANT AGAIN
2210
2214
2218
2225
2232
2239
8
7
8
5
1
4
5
8
7
8
5
4
4
7
2210
H 099
H K82
Y MbO 099
M 110 K73
o K69 K49
M K73 L82
U (UO B
B l55 K13 W
M M60 M61
M (UO 000 R
D
0
VO":l
1'0.;11
I
"-
4
4
4
4
4
4
5
5
5
5
c::
J
5
B 000
0 K69 K93
U IUO B
6
6
S M62 H61
V K66 M61 B
6
2310
0 K69 l23
6
2311
2324
2331
• 000 390
M K73 L38
M {UO 000 R
B K46 E
• 000 302
B K19
U (Ui E
B 192 M63 5
A M62 M64
M (UO 000 W
B K46 L
B K79
S M64
0 K69 M09
7
2339
2344
2351
2355
2360
2368
2315
2383
2388
2392
2396
6
7
7
7
1
7
8
8
8
8
8
8
9
9
1401 AUTOCODER-PASS 3-TRANSLATOR-INITIAL
SEQ PG LIN
148
149
150
151
152
153
154
155
156
151
158
159
160
161
162
163
164
165
166
167
168
169
110
171
172
173
174
175
116
117
178
119
180
181
182
183
184
185
186
187
188
189
190
1 48
1 49
1 50
LABEL
...
OP
OPERANDS
H
XXXX,360
INST2
B
1 51
1 52
• NOISE RECORD ROUTINE
1 53
NOISE
125
SBR
SBR
Ml
N2
BCE
CHAIN
BCE
BeE
BCE
BeE
BeE
BeE
BCE
BCE
BCE
BeE
BCE
BCE
NSXT
B
OBJeOR Dew
HIVAL DCW
MANIM Dew
LTORG
Dew
RDel
142
WRTeR
1 54
1 55
1 56
1 57
1 58
1 59
1 60
1 61
1 62
1 63
1 64
1 65
1
1
1
1
1
*
66
61
68
69
70
1 11
1 12
1 73
1 14
75
191
1
1
1
1
1
192
193
1 80
1 81
16
77
78
79
•
HALT
LoeN
INSTRUCTION TYPE
7
2403
2410
B L7S
9
9
H 099
H M52
y M60 099
9
9
9
4
4
1
8
1
1
1
1
1
1
1
1
1
1
1
1
4
XXXX
'3'
999'
'='
...
OBJECT CORE SIZE CODe
HIGHEST OBJECT ADDRESS
EQUALS = OR A
2
SFX (T
4
SCAN FOR GROUP MARK
PAGE
3131L
1
5
1
2414
2418
2422
2429
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
• 000 360
B IH8 000
10
MACRO
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
B
B
B
B
B
B
8
B
B
B
B
2448
B
2449
2453
2458
2459
B 000
CARD
10
10
10
10
10
10
11
11
11
11
11
11
11
12
12
12
2460
+9
1
=01
+1
=02
1
1
2
2460
2461
2462
2464
LIT
AREA
LIT
AREA
12
12
12
12
OF MAIN LINE
*BEGIN
*BEGIN
XL3
NSXT+3
+9,XL3
4000-12+X3, XXXX,
12
-VERSION 3
RWD
RWO
CS
RTW
NOP
BER
SW
cw
CS
sw
RWD
Mew
Mew
Mew
RT
B
INTAPE
5
3999
SYSTAP,OOI
0
TPERR
GMKl,GMK2
SYSMK2
080
EQVADD
OUTAPE
+FREE+13 t N2+6
REWIND INPUT TAPE
REWIND 5
CLEAR INPUT AREA
READ LOWER HALF OF
PASS 3
INITIALIZE GROUP MARKS
CLEAR READ AREA
INITIALIZE TO UNOEF
RWD OUTPUT TAPE
5
5
4
8
4
5
1
4
4
4
5
7
'N' ,N3
'N' t N4
CRIPPLE TEST FOR NOISE
7
5.FREE+1
NOISE
READ IN MACRO FACTOR
WHICH IS
1
8
4
2465
2410
2475
2419
2487
2491
2496
2503
2501
2511
2515
2520
2521
2534
2541
2549
(U6 R
U {US R
U
I
199
L (UI 001 R
N 000
B KI0
,
)
+03
I
080
,
A69
(U4
M R20
M R21
M R21
U
L
IB9 181
R
M35
513
558
M (U5 101 R
B M14
13
13
13
13
13
13
13
14
14
14
14
14
14
14
15
15
1401 AUTOCODER-PASS 3-TRANSLATOR-INITIAL
SEQ PG LIN
194
195
196
197
198
1 82
1 83
199__
200
1 81
_2_01
202
203
204
205
206
201
20S
209
210
211
212
213
214
LABEL
OP
OPERANDS
BER
RWD
TPERR
1 84
Mew
1 85
1 86
ZA
88
89
90
91
1 92
1 93
1
1
1
1
FREE+3,JOSLBl=3
tl01',AlTRNC
'*
* PROCESS JOB CARD
'*
GET
B
BeE
C
COCJOB
au
Mew
WT
NOP
BER
A
1 94
1 95
1 96
1 97
1 98
1 99
2 00
2 01
2 02
5
B
...
MCW
MCW
GENJOB,FREE+6,*
FREE+18,'JOBt
GENJOB
JOBlBl,FREE+8
OUTAPE,FREE+l
SFX CT
PASSED ON FROM PASS 2
AND SAVE VALUE
RESET ALTER NUMBER
GET FIRST RECORD
Q. COMMENTS CARD
Q. JOB CARD
PICKUP FACTOR
PUT JOB CARD
'St,N3
GET NEXT RECORD
RESET NOISE ROUTINE
• M' ,N4
4
2571
8
2581
7
2589
5
7
2596
2601
2608
2616
M
M
2620
B K10
2625
2632
2636
2643
MR32
8
4
7
1
2 04
C
2 05
2 06
2 07
2 08
2 09
2 10
2 11
BU
FREE+18,'CTl'
CHNAD
CS
SBR
SBR
Bwl
CS
SBR
C
0
4
CLEAR+3
SVSZ=3
PROSl,ClEAR+3,2
15999
CLEAR+3
CLEAR+3,'I99'
4
233
234
235
236
237
238
CLEAR
2 12
2 15
2 16
2 17
2 18
2 19
2 20
2 21
2 22
2 23
02
03
04
239
05
240
241
242
243
07
08
09
2 24
C
B
524
Q53
118
Q53
R24
(U4
CARD
15
15
15
15
16
16
106 *
16
R30
I
16
16
16
108
101 W
N 000
17
L
A R31 184
M R33 558
17
11
11
17
11
C 118 R36
B Qa5 I
I 000
H 085
18
18
18
18
B 524
573
...
217
2 13
2 14
B
B
3
.PROCESS CONTROL CARD
2 03
220
221
222
223
224
225
226
227
228
229
230
231
232
INSTRUCTION TYPE
2553 B KI0 l
5 2558 U (U5 R
1- --2563 - M 103 R241 2570 +R27 184
215
216
218
219
LOCN
PAGE
5
4
5
1
0
TPERR
+I,ALTRNO
GET
3131L
-VERSION 3
..... :I.t
DU
PROSZ
e5l
Q. CONTROL CARD
CLEAR ABOVE 4K
Q. END OF CLEARING
,.. .... an
\,LCAK
2650
4
2657
2662
2666
2610
2674
2682
4
2686
7
2690
n-.,
'0"7'
2102
2109
2111
2724
2132
2139
2741
2754
2161
4
8
'6',PHOLO=1
CSZ,SVSZ,B
'S',PHOLD
aWL CSZ,SVSl,K
MCW
'4',PHOLO
CSZtSVSl,S
aWL
Mew t3',PHOLD
FREE+21,PHOlD
C
BE
INOBJ
MESSG 'INCORRECT PROCESSOR MACHINE SIZE SPECIFIEO',42
CS
332
CS
MCW
'INCORRECT PROCESSOR MACHINE SIZE SPECIFIEO',42+200
W
BCV
*+5
B
*+3
CC
1
Mew PHOLD,FREE+21
MCW
Bwl
MCW
7
5
c:
-:J
7
8
1
8
1
8
1
1
5
4
1
7
1
5
4
2
1
",L
2166
2770
2111
2778
2779
2184
2188
2190
H
R39
18
18
V P02 085 2
/ 191
H 085
C 085 Rlt2
n
0
1"\6",
UOL
R43
P54
R45
V P54.
M
V
M
M
V
M
C
a
I
18
19
19
.,n
19
19
19
~
~7
R44
R39 8
R44
R39 K
R46 R44
PS4 R39 S
R47 R41t
121 R44
P97 S
20
20
20
20
20
21
MACRO
GEN
I
I
332
M
R89 242
GEN
2
P88
B P90
B
F 1
M R44
•
121
GEN
GEN
GEN
GEN
GEN
21
21
21
21
21
21
22
22
1401 AUTOCOCER-PASS 3-TRANSLATQR-INITIAL
INSTRUCTION TYPE
7
1
7
2797
M 122 M53
22
2804
22
2811
+ M53 089
5 R91 090
CODE -HIVAL-
4
7
2818
2822
A 089
M R/1
Q. OBJECT CORE GT 4K
7
2829
2836
Q. MA HARDWARE
5
8
2841
C 122 R41
B 419 T
B Q99 124 1
4
2849
B Q92
5
7
7
1
1
2853
2858
U (U6 8
M 174 113
M R96 120
M
24
M 174 115
24
M
24
LABEL
OP
OPERANDS
244
2 25
2 26
INOBJ
Mew
FREE+22,OBJCOR
OBJCOR,XLI
+30,XLl+l
SAVE OBJECT MACH
A
XLI
MCW
OBJTBL+Xl,HIVAL-3
FREE+22.'3'
GETMN
SETHI,FREE+24,l
1541<
INTAPE
FREE+14,FREE+13
'JOB ',FREE+20
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
2 21
2 28
2 29
2 30
2 31
2 32
2 33
2 34
2 35
2 36
2 37
2 38
2 39
2 40
2 41
2 42
2 43
2 44
2 45
2 46
S
C
BL
BeE
8
GENJOB asp
MCW
MCW
Mew
Mew
B
CHNAD
IS4K
SETHI
226
MCW
Mew
MCW
B
OBJTBL
BLANK AREA
Dew
Dew
JOBlBL
5VSZ
PHOlD
4
INITIALIZE EXIT
255
260
2
'03'
'07'
2
2
2
'N'
1
=03
'101'
'JOB'
+1
3
3
3
1
'8'
'M'
'eTl'
1
2 51
SYSMK2 DCW
XFR
=03
'199'
•6I
=01
23
23
23
23
23
23
24
24
B 001
R99
24
M
463
+00
M59
M
M +02 M55
B 419
24
25
25
25
25
25
2915
25
25
2911
113
ADCON
LIT
AREA
LIT
LIT
LIT
'>0':1")
•
....
TT
1
2933
2936
2939
2942
2943
2944
2945
2946
lIT
LIT
26
26
26
26
26
·26
"L
£.v
27
27
AREA
27
LIT
27
27
27
2941
AREA
LIT
LIT
LIT
42
2
2989
LIT
30
2991
5
2996
2999
3000
3002
3003
LIT
LIT
AOCON
LIT
LIT
30
30
30
3
• 4'
, 3'
1
1
3
1
2
SYSTEM GROUP MARK
2920
2921
2924
2927
2930
2931
'-
, 5'
000
M55
£.7..14
1
1
1
, ,
2872
2873
2880
2881
2885
2892
2899
2906
2911
2913
22
22
,L
3
3
'03'
2 50
2865
CARD
2918
3
'A'
269
270
1
7
7
4
'INCORRECT PROCESSOR MACHINE SIZE SPECIFIEO'
+30
'JOB
+5U6XL
238
CODE
1
COD JOB
+5UBXL,IN1xT+3
'A'.MANAM
'03'.HIVAl-3
GETMN
Dew
' II'
DCW
'15'
l10RG '*
Dew +FREE+13
189
220
GENERATE JOB CARD
MCW
2 47
2 48
2 49
196
FREE+74,FREE+15
4
LOCN
PG LIN
I1.
PAGE
SFX C1
SEQ
245
373lL
-VERSION 3
1
LIT
634
B 000
27
28
28
30
31
31
32
1401 AUTOCODER-PASS 3 LEFT MAIN LINE
SEQ
PG LIN
211
272
2 52
2 53
2 54
2 55
2 56
01
02
04
05
273
274
275
216
277
278
219
280
06
281
282
08
09
283
10
12
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
"'10"'--'
3U£
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
57
58
59
60
61
62
63
LABEL
OP
OPERANDS
JOB
1401 AUTOCODER-PASS 3 LEFT MAIN LINE
69
10
11
12
73
-.1
I~
15
76
77
78
79
80
81
2 82
2 83
2 84
2 85
2 86
2 87
2 88
*
XLl
089
XINIT
EQU
DCW
DC
EQU
SFX
(1
LOCN
3
0089
0089
INSTRUCTION TYPE
5
CARD
-VERSION 3
Xll,XL2,XL3
089
000
00
091
094
XL2
094
Dew 000
096
DC
00
EQU
099
XL3
DCW
099
000
DC
100
0
*
*FREE FORM INPUT AREA
*
FREE
ORG
EQU
DA
MACRO
2
3
3
1
0099
GEN
GEN
0100
GEN
0100
0101
0101
0119
INPUT
U,,'"
nnl'"
.."."."
EQU
OA
*lX86
•
0186
FIELD
FIELD
FIELD
FIELD
FIELD
FIELD
FIELD
0116
0106
0121
H1,84
, t
GMK2
DC
*
*FIXED FORM INPUT AREA
35
35
35
35
35
35
0101
101
100
lX86
1,1
19,19
16,16
85,85
*
0091
0094
0094
0096
0099
21,21
ALTRNO
GEN
GEN
GEN
GEN
GEN
GEN
2
6,6
1
0184
0185
0181
35
35
35
35
36
36
36
36
31
1'\"""
::J::J:J
v:;):;):;)
40,40
17.11
28,28
0332
0333
0312
0349
0360
39,39
76,16
0371
0408
0418
FIELD
FIELD
FIELD
FIELD
FIELD
31
31
31
37
38
38
* GET UPPER HALF OF PASS 3
*
GETMN
RTW
NOP
8ER
Mew
RTW
NOP
BER
2 89
2 90
2 91
2 92
PAGE
3732L
*
*INITIALIZATION OF INDEX LOCATIONS
64
65
66
61
68
-VERSION 3
INTXT
8
SYSTAP,BEGIN
0
TPERR
MANAM,MASYM-3
SYSTAP,OVL2
8
4
5
1
0419
0421
0431
0436
8
0443
0
4
TPERR
NUREC
5
0451
0455
0460
4
L (UI M65 R
N 000
B KIO L
M M59 893
L lUI 626 R
N 000
B KID l
B 626
38
38
38
38
38
39
39
39
1401 AUTOCODER-PASS 3 LEFT MAIN LINE
OPERANDS
SEQ PG LIN
LABEL
321
322
323
324
*
* GET FIXED FORM OVERLAY
*'
SYSTAP,OVL2
GTFIX RTW
325
326
327
328
329
330
331
332
2 93
2 94
2 95
2 96
NOP
BER
2 97
2 98
asp
asp
2 99
3 00
3 01
BW
a
3 02
3 03
3 04
OP
3 05
3 06
3 07
3 08
3 09
338
3 10
it
339
340
341
342
3 11
*'GET ROUTINE
3 12
3 13
3 14
*
*
GTFRE
GET
351
-a.r-- .....
:;)?~
353
354
355
356
357
370
8
l
CARD
39
39
39
40
a
7
0532
M 182 180
4
40
40
INAREA+85,FREE+86
GETXT
ROTAP
B
xxx x
SBR
READ TAPE
&'1
M\,W
CHECK FOR NOISE
'''4«t
..
PUT
3 30
3 31
3 32
PUTXT
aVl2
........ ,.
(U1 626 R
N 000
8 KlO l
8 630
40
40
40
40
553
41
41
8 554
41
MACRO
1
1
1
1
... PUT
3 37
3 38
0499
6
39
V 661 H09 1
B 638
H
TPERR
XXXX
369
4
U (Ul
0524
0528
BER
B
3 33
3 34
3 35
3 36
0491
4
4
RDXT
3 29
8
GETXT+3
RDTAP
INAREA+79,FREE+80
SBR
24
25
361
362
363
364
365
366
367
368
0481
0486
PSTNU
NOISE
3 26
5
5
5
B
8
3 27
3 28
l (U1 626 R
N 000
B KIO L
U (Ul B
0412
0476
4
RT
358
0464
5
N3
359
360
8
TPERR
SYSTAP,QVl2
0
ROXT+3
." .... n,.. •• """ I.·'''''.L
T 1 I';A"CH T L£ t 1\0.£ TO
INTAPE,INAREA
3 21
22
23
3
3
3
3
INSTRUCTION TYPE
0503
0511
0515
0520
Mew
Mew
Mew
Mew
Mew
348
3 18
3 19
..... '"
3 £u
TPERR
SYSTAP
SYSTAP
PROFIX,FREESW
RSTMOD
MCW
CHAIN 4
346
347
3 17
LoeN
RTW
NOP
BER
B
3 15
3 16
350
SFX CT
4'
0
PAGE
*'
333
349
3732L
*' GET FREE FORM OVERLAY
334
335
336
337
343
344
345
-VERSION 3
0539
0540
1
0541
0542
0543
4
0550
.,.4
f
8
4
5
4
0554
0558
0565
0573
0511
0582
GEN
41
GEN
41
GEN
41
41
42
42
M
M
M
M
GEN
M 188 186
B 000
H 585
n
R43 u"':lC
rtJJ
M (U6 103 R
B M14
B KlO l
..
42
,.")
..,.,
B 000
42
42
42
43
H 625
43
121
M (U4 101 W
43
N 000
B KIO L
43
ROUTINE
SBR
CW
WT
NOP
BER
SW
A
B
Dew
Dew
XFR
PUTX.T+3
FREE+21
OUTAPE,FREE+l
4
TPERR
FREE+21
+l,ALTRNO
XXXX
5
4
4
8
4
a
INCREASE ALTER NUMBER
1
SYSTEM GROUP MARK
4
1
1
0
• •
0
0586
0590
0594
0602
0606
0611
0615
0622
0626
0621
)
t
121
A R44 184
B 000
43
43
43
44
44
44
44
B 000
45
1401 AUTOCOCER-PASS 3 LEFT MAIN LINE
SEQ PG LIN
LABEL
OP
OPERANDS
-VERSION 3
3734L
SFX CT
LOCN
PAGE
INSTRUCTION TYPE
1
CARD
1401 AUTOCODER-PASS 3 PROCESS FREE FORM
SEQ PG LIN
LABEL
OP
OPERANDS
371
3 39
1401 AUTOCODER-PASS 3 PROCESS FREE FORM
3 40
3 41
3 42
3 43
..
JOB
372
313
314
375
316
371
318
319
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
391
398
399
400
401
"" ...
-tv..:;
403
404
405
406
401
408
409
410
411
412
413
414
415
416
417
418
419
420
3 44
3 45
3 46
3 41
3 48
3 49
3 50
3 51
3 52
3
3
3
3
3
53
54
55
56
51
3 58
59
60
61
62
3 63
3
3
3
3
3 64
3 65
3 66
3 67
3 68
3 69
....IV'"
0
~
C
e
BL
3 71
3 72
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
73
74
15
76
17
18
79
B
Mew
Mew
BLNKX
80
81
82
83
84
85
86
81
88
CHNLP
BeE
BeE
Mew
MCW
MCW
MCW
Mew
MCW
Mew
B
Mew
S
C
LOCN
4
0626
0630
0634
0638
0642
0650
0658
0666
0614
0682
0690
0697
0705
0713
0718
0122
0121
0734
0742
0746
0753
0761
0165
0712
0180
0784
4
4
8
8
8
8
8
8
1
8
8
5
4
5
1
8
4
1
8
4
1
8
4
7
,.L
rVI
ACCOUNT FOR CHAIN 00
BLANK PAGE/LINE
BLANK LABEL FIELD
n..,Ol
V.
-",&.
7
0195
5
4
1
0802
0807
0811
0818
PAGE
INSTRUCTION TYPE
0626
B 586
B 524
, +02
a
CARD
)
48
48
48
H09
106 *
175
B 991 175 l
B 626
B 991
48
48
48
49
B 626 175 S
B 626 175 Z
B 626 185 R
C 118 R47
B 722 115 C
B 722 175 y
8 626 I
B 127
8 991 I
49
49
49
49
50
+ 122 A14
B 146 A14 +
50
B 153
51
+ A13
765
8 112
M R48
B 784
B 191
M R49
B
Q
U
50
50
50
50
51
A14
115 e
51
51
51
115
51
175 Y
52
52
115
-52..
"Q~
,JU,",
C A14 R51
8 811 T
8
0825
8
1
1
0833
B 630
M 175 R52
M R53 175
B 848 R52 R
B 848 R52 S
0841
0848
M R54 175
M A55 174
4
4
0855
0859
M 174
1
SAVOP
FREE+74,FREE+5
PUT
FREE+74,FREE+ll
+1,WAREA2
WAREA2 t +OO
SFX CT
4
nlJT
WAREA2,+OO
*+5
PSTNU
FREE+75,HlDCD=1
'C'tFREE+75
BLNKX,HLDCD,R
BLNKX,HLoeo,S
'Y',FREE+15
BLNK2 t FREE+74
FREE+74
3734L
-VERSION 3
*BEGINNING OF NEW FREE FCRM RECORD ANALYSIS
*
ORG
OVL2
PUT
NUREC B
PSTNU 8
GET
MODESW
SUBXl SW
FREESW
CW
NUREC t FREE+6,*
BCE
REG,FREE+15,
BCE
REG,FREE+15,L
BCE
NUREC,FREE+15,S
BeE
NUREC,FREE+75,l
BCE
NUREC,FREE+85,R
BCE
FREE+18,'CHA'
C
CKCHNt FREE+75,C
BCE
CKCHN,FREE+15,Y
BCE
NUREC
8U
PRCHN
B
CKCHN au
REG
FREE+22 t WAREA2
PReHN ZA
*+5,WAREA2,+
BCE
B
*+8
WAREA2-1,wAREA2
lA
*+5,FREE+15,C
BCE
B
*+8
Mew 'S',FREE+75
*+5,FREE+75,Y
BCE
8
*+8
Mew 'Z',FREE+75
~
3
-VERSION 3
M R8B
M
M
52
I;?
52
52
53
53
53
53
53
54
54
54
54
54
1
0863
1
0864
7
4
0865
M 174 105
0812
0876
0883
B 586
54
54
M 114 111
S R44 A14
C A14 R51
55
55
55
1
7
7
0890
1401 AUTOCODER-PASS 3 PROCESS FREE FORM
OP
OPERANDS
3 89
Bl
3 90
3 91
3 92
3 93
3 94
3 95
3 96
3 97
3 98
3 99
4 00
4 01
4 02
4 03
4 04
4 05
4 06
4 07
4 08
4 09
4 10
4 11
4 12
4 13
4 14
4 15
4 16
4 11
4 18
4 19
B
CHNlP
PSTNU
'+1 ',FREE+15
PUT
FREE+73,FREE+72
'C',FREE+75
HIVAl,FREE+25
'EQU
SEQ
PG LIN
421
422
423
424
425
426
421
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
410
...
~-
..,.'"
LV
4 21
4 22
4 23
4 24
4 25
4 26
4 27
4 28
4 29
4 30
4 31
4 32
4 33
4 34
4 35
LABEL
GENPS
Mew
8
Mew
Mew
Mew
MCW
Mew
MCW
MCW
MCW
Mew
B
ISHIV
NOP
MCW
Mew
REG
B
S
S
S
C
au
SVUP3
seE
Mew
Mew
C
BE
PSSw2
NOP
C
BE
'$HIVAL +P
FREE+13
+NUREC,GENPS+3
'S',ISHIV
NUREC
PSINU
HIVAL,FREE+25
'B',PSSW2
ISTRE
Xl3+1
FREE+ll, '$HIVAl'
ISHIV
TSTRE
FREE+I0,'SP
GENPS
ISREA,FREE+85,R
STFUN
B
MeW
TlUOP
FREE+15,SAVGP-5
NUREC,EQVAOO
FREE+15,'3 •
BW
C
BE
ISREA
TYPCL
EOJ
NUREC
FREE+12
FREE+15,EQVAOD
FREE+12
ew
TypeL,FREE+15,+
BCE
CHAIN 3
BCE
BCE
BCE
B
STFUN
EQVAOO-2
SW
STFUN,FREE+12,+
BCE
B
SW
LCA
Sw
EQVADD-l
SFX CT
LoeN
INSTRUCTION TYPE
5
4
0891
8
B
-M
B
M
M
4
1
7
7
4
1
4
4
7
SET NEW HIGHEST VALUE
FREE+18,'
SVUP3
TSTRE,FREE+19,
FREE+20,SAVGP=9
orr-
0\'1:
TO HIGHEST ADDRESS OF
OBJECT CORE
Q. ARITH MACRO PRESENT
LOOKUP MNEMONIC
0958
0965
0969
0913
0980
0987
0991
0995
7
5
0997
1004
1009
1017
1024
1025
1032
1037
1041
1048
1
1
7
5
4
7
5
8
4
7
Q. INSTRUCTION
0902
0906
0913
0917
0924
0931
0938
0942
0943
0947
0951
7
4
4
1
7
4
4
1
1
8
Q. HIVAL EQUATE PRESNT
PAGE
3734L
7
t
Tt"Tnr-
1';;'1"1:
-VERSION 3
8
1
5
4
4
1
4
8
1
1
1
4
4
8
4
0996
",I'\C::~
.LU-'J
1061
1065
1072
1080
1081
1092
1096
1100
1101
1111
1119
1120
1121
1122
1126
1130
1138
9
CARD
812 T
55
630
R57
55
irs
5-5-
586
173 172
R53 175
M M58 125
M R62
56
56
56
56
56
56
56
51
51
51
M
M R72
M 113
M R15 909
M R16 969
57
B 626
N 630
51
51
58
M M58 125
M R76 *37
B
*53
S
S
S
C
B
B
M
100
58
58
58
58
58
58
59
59
59
59
59
59
59
60
118 R79
*11 I
*53 119
120 RSS
M
C III R94
B 969 S
N *53
C 110 R99
8 9·06 S
0
.nL
T"7U
185 0n
u
8 M65
M 115 R83
V 626 A69 1
C 115 +01
B Q15 S
B 626
112
t
L 115 A69
) 112
B 126 115 +
B
B
B
B *65
t
A61
8 *65 112 +
,
A6a
Ln
'IV
60
60
60
60
61
61
61
61
61
61
MACRO
GEN
GEN
GEN
61
62
62
62
62
62
62
1401 AUTOCOCER-PASS 3 PROCESS FREE FORM
LABEL
OP
OPERANDS
4 36
4 37
BCE
SW
413
474
4 38
4 39
B
STFUN t FREE+13,+
EQVADD
STFUN
415
4 40
4 41
SEQ
PG LIN
471
472
476
Dew
Dew
XFR
-VERSION 3
0
I
SYSTEM GROUP MARK
PAGE
SFX C1
LOCN
INSTRUCTION TYPE
8
1142
1150
1154
1158
1159
B 4=65 113 +
A69
t
B *65
4
4
0
•
3134l
1
1
B
000
10
CARD
62
63
63
63
63
64
1401 AUTOCOCER-PASS 3 PROCESS FIX FORM
SEQ PG LIN
417
478
419
480
481
4Jj,2
483
4 42
43
4 44
4 45
4
4 46
.4 41
4 48
484
4 49
485
4 50
486
481
488
4
4
51
52
489
492
494
495
496
491
498
4 53
4 54
4 55
4 56
4 51
4 58
OPERANDS
JOB
ORG
1401 AUTOCODER-PASS 3 PROCESS FIX FORM
OVL2
*
ENTSPS B
BW
RSTMOD CW
B
PUT
GTFRE,FREESW
t40DESW=1. ABSW
ROTAP
INAREA+19,INPUT+80
Mew
CHAIN 5
MCW
MCW
Mew
MCW
PROFIX MCW
Mew
MCW
MCW
Mew
INPUT+80,FREE+80
BLANK,FREE+15
FREE+15
FREE+75,FREE+20
MCW
MCW
BCE
4 61
502
4 62
503
4 63
4 64
505
509
510
511
4 65
4 66
512
513
514
515
516
4 61
4 68
511
518
519
520
521
4 69
522
4 10
523
524
525
526
INSTRUCTION
TYPE
11
CARD
-VERSION 3
0626
*BEGINNING OF NEW FIXED FORM RECORD ANALYSIS
508
4 60
loeN
PAGE
*
506
501
4 59
501
504
SFX (T
OP
INPUT+82,FREE+86
Mew INPUT+13,FREE+ll
INPUT+5
MCW
COMCRD,INPUT+8,*
BeE
lBERR t FREE+11t t
BCE
CHAIN 4
BCE
BCE
BeE
499
500
3735L
3
BeE
CHAIN
BeE
BeE
BCE
BeE
BeE
CHAIN
BCE
BeE
BCE
BeE
BeE
CHAIN
BeE
BCE
aCE
BCE
4
8
0626
0630
RESET SWITCHES
GET A RECORD
MOVE TO FIXED FORM
1
0638
4
0645
) +02 AIO
B 554
1
0649
M 182 412
1
0656
0651
0658
1
0659
1
1
1
7
0660
0661
0668
0675
0619
1
0686
1
1
IDENTIFICATION
SET OPERAND PORTION
OF -FREE- TO BLANKS
SET BALANCE TO BLANK
MOVE
BLANK CODE POSITIONS
MOVE LABEL AND PG/lINE
NO TO -FREEQ. COMMENTS CARD
CHECK FOR INVALID
CHARACTERS IN LABELS
4
1
7
1
0687
0688
0695
0102
0106
4
8
8
0714
1
0122
1
0723
0724
1
V 503 H09
M
SEN
GEN
412 180
A54 115
115
115 120
68
68
68
414 186
345 111
69
69
331
69
69
69
B V7I 340 ..
B 118 I I I •
B
B
MACRO
GEN
GEN
10
70
B
GEN
I'\"~£:
£)
0
I"'r"'''.
VI';,)
8
0126
a 718 110 -
UC.il
70
'"'".
IV
70
MACRO
1
1
1
1
8
0134
0135
0136
0131
0738
GEN
GEN
B
B
GEN
6
GEN
8
8 118 110 =
MACRO
GEN
GEN
GEN
GEN
4
B
1
1
0146
0141
0148
0149
8
0750
B
1
1
LBERR,FREE+IO,+
67
67
68
68
68
68
69
69
4
LBERR,FREE+I0,=
61
MACRO
GEN
GEN
GEN
M
M
M
M
M
M
1'1
M
M
M
M
M
M
67
67
67
67
1
I..
1
LBERRtFREE+IO,-
B 586
PUT LAST RECORD
Q. FREE DONE IN FIXED
Mew
490
491
493
LABEL
-VERSION
B
B
a
4
I
0758
1
0759
0160
0161
1
1
B
8
8
B
178 110 +
70
10
71
71
11
71
11
11
11
12
MACRO
GEN
GEN
GEN
GEN
72
12
72
72
1401 AUTOCOCER-PASS 3 PROCESS FIX FORM
SEQ PG LIN
LABEL
OP
OPERANDS
4 71
BCE
LBERR,FREE+IO,t
4 12
4
530
CHAIN
BCE
BCE
531
532
BCE
BeE
527
528
529
534
4 13
4 74
535
4 75
536
531
538
539
540
541
542
543
544
545
546
541
548
549
550
551
552
4
4
4
4
533
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
510
511
512
513
514
515
576
B
lBERR
76
77
18
19
4 80
4 81
4 82
4 83
4 84
4 85
CS
CS
MCW
MCS
S
4 87
4 88
B
BW
BCE
4 89
4 92
4 93
4 94
4 95
4 96
CKB
4 91
Mew
4 98
4 99
5 00
A
MCW
BCE
5 01
5 02
5 03
8
CKOP
BE
5 04
5 05
5 06
5 07
5 08
5 09
5 10
5 11
5 12
5 13
CKMOD
C
BE
B
C
BE
C
LKNOP
5 14
5 15
5 16
C
ISMOD
BE
C
BE
Bk
BCE
BCE
lOCN
INS TR UC TION TYPE
8
0162
B 118 110
1
0170
0111
0772
0113
0174
0118
0182
1
4
4
1
1
'ILLEGAL LABEL - SEQUENCE NUMSER',231
ALTRNO t 236
INPUT+15,BLNK2
ABSfIX
BLNK2,SAVCP
INPUT+16
INPUT+16,FREE+18
XL3+1
TLUOP
FIXINS,EQVACO
FOUND,EQVAOC,
*• PROCESS INSTRUCTION
*FIXINS BCE
LKNOP,INPUT+11,
BeE
B
BeE
A
SFX CT
1
BCKI
332
FIXALF,INPUT+17,'
SCAN
CKMOD,INPUT+28,
+l,XL2
~,CtFREE+21+X2
+l,XL2
'Oll'tXLl
FIXALF,INPUT+28,'
SCAN
INPUT+16,'B
MAKBCE
INPUT+16,' B'
MOVMOD
LKNOP
INPUT+16,'B ,
AlTROP
INPUT+16,' S'
ALTROP
INPUT+16,'NCP'
CKNOP
PICKUP,ABSW
PICKUP,INPUT+39,
MOVMOD,FREE+15,
0783
5
0190
0791
0198
0805
1
4
0810
0817
7
4
1
0821
0828
0832
0833
LOOKUP MNEMONIC
Q. INSTRUCTION
Q. CONTROL OP
4
0834
8
8
0838
0846
Q. A OPERAND
Q. ALPHA LITERAL
8
8
4
1
1
7
Q. ACTUAL OP CODE
PRESENT IN fIxeD FORM
MOVE MNEMONIC TO FREE
RESET INDEX LOCATIONS
TO ZERO
SCAN A OPERAND
Q. 8 OPERAND
MOVE COMMA TO FREE
.... n
IU
"" ... n A n A"Tr:'
~crA~AIC
t'\n~n •
"''''t''
urC~Anu~
1
0854
B
GEN
8
B
GEN
GEN
GEN
B
B 798
72
72
13
73
13
13
13
73
1 332
/
M +33 231
Z 184 236
2
C 341 A5S
B $10 S
13
14
74
74
14
74
A55 R8a
348
M 348 118
S 100
S
M
M
S
B M65
V 854 A69 1
B T40 A69
B 974 349
8 184 349
8 Z09
CARD
•
74
14
15
15
75
15
75
75
15
16
76
8
7
f
va07
7
0896
0903
0910
B /84 360
0918
B lO9
71
C 348 +40
11
"11
78
-,
nOOll
Q. ALPHA
8
Q. ACTUAL BRANCH INST
4
1
5
1
Q. BRANCH INSTRUCTION
4
7
0922
0929
0934
0941
0946
0950
5
0957
1
5
0969
Q. NOP INSTRUCTION
1
0974
5
Q. ACTUAL OP CODE
Q. o CHARACTER
Q. ILLEGAL OP
8
8
0981
0986
5
Q. ACTUAL BRANCH INST
* MACRO
12
0862
0810
0814
0882
7
LITERAL
SCAN B OPERAND
Q. BRANCH INSTRUCTION
PAGE
3135l
1
W
C
BE
MCW
MCW
MCW
TLUFIX S
S
BCK1
4 86
4 90
4 91
-VERSION 3
8
0962
0994
1002
16
16
'7,
'"
17
77
8 950 360
A R44 091t
u
.".
...L " l l•
TJ"'T
.
. ",
... n. ...
A R44 094
M +31 089
I
8 *40 S
C 348 +43
B *18 S
8 914
C 348 +40
B
C
B
C
*51
348
*51
348
77
18
18
S
18
78
+43
78
S
79
19
+46
B /46 S
V *29 AlO 1
B *29 311
8 *18 115
79
19
19
80
1401 AUTOCODER-PASS 3 PROCESS FIX FORM
SEQ
577
578
579
580
581
562
583
5_84
585
586
587
588
589
PG LIN
5
5
5
5
5
5
5
5
5
5
5
590
591
5
592
5
593
594
5
5
595
5
5
596
597
598
599
600
601
17
18
19
20
21
22
5 23
5 24
5
25
26
27
28
29
30
31
32
33
34
35
36
5 37
5 38
5 39
5 40
5 41
602
5 42
603
605
606
607
5 43
5 44
5 45
5 46
5 47
OVO
~
604
,'''#'&
~
LABEL
I
MOVt-tOO
IOTYP,FREE+15,2
INPUT+39,FREE+23+X2
Mew
Mew
t , '
INPUT+55,FREE+72
ENDFIX
tBCe t ,FREE+18
ISHOD
PICKUP,INPUT+39,
'BIN',FREE+18
'+ B',FREE+15
XL1+1
BLNK2,FREE+20
BINTBL+XI,INPUT+39
BINFND
MOVMOD,BINTBL+5+X1,
+5,XL1
TLUBIN
BINTBL-l+X1.FREE+19
B
n
,.., A
"to
FREE+18,'BSS'
MOVMOD
INFUT+39,FREE+14
PICKUP
PICKUP,INPUT+39,
INPUT+39,FREE+14
'+'
INPUT+39,FREE+20
FREE+15
BLANK3
PICKUP
ENDALF,INPUT+27+X1,'
'I'll..
\"nA~t..
...
LOCN
INSTRUCTION TYPE
Q. 110 INSTRUCTION
8
MOVE D CHARACTER TO
FREE AREA
PICKUP COMMENTS
7
4
V /54 115 2
M 371 IK3
MOVE -BCE- MNEMONIC
TO OPERATION FIELD
Q. o CHARACTER, I.E.,
UNCONDITIONAL BRANCH
SET FIVE CHAR BRANCH
7
SEARCH 5-CHARACTER
BRANCH TABLE FOR
APPROPRIATE UNIQUE
MNEMONIC. IF NOT
PRESENT LEAVE
MNEMONIC -BINQ. BRANCH SENSE SWITCH
PICKUP 0 CHARACTER
CODE 110 INSTRUCTIONS
IN ACTUAL IN
OPERATION FIELD
49
50
51
52
53
54
55
56
51
58
VALUE
A
Mew
B
ENDALF SBR
S
ZS
A
A
MCW
WHCHOP C
4
1161
1
4
1165
1112
1176
7
4
4
8
7
1
4
1
7
5
8
7
4
1
1
1
5
1
4
8
4
SCAN FOR ENDING
t
SIGN
8
1180
1184
+34
387
626
+49
B t02
B *29
M +52
M +55
S 090
M
M
B
M
M A55
C H/4
8 115
172
118
80
81
81
371
liB
115
81
81
81
81
82
120
311
S
82
82
82
82
82
83
83
M
C 118 +59
83
S
83
lIlt
83
83
83
84
84
311
114
120
84
3V9
84
84
84
84
M 115
A56
B *29
M
B S18
•
UArftt"t
I-I"''''r..U
1
B
B
1
1195
B
1
1
1
1196
1197
B
GEN
B
GEN
GEN
GEN
1
PROCESS STATEMENT AS
UNPROCESSABLE ALPHA
LITERAL ILLEGAL OPNO
PICKUP LITERAL AND
MOVE TO FREE FORM
AREA
EXIT ON BASIS OF WHICH
1
7
7
4
4
7
4
B
GEN
GEN
GEN
GEN
1192
1193
1194
1
+1,XL2
'$$',FREE+21+X2
WHCHOP
WAREA3
+VALUE+2,WAREA3
WAREA3
WAREA3,XL1
WAREA3,XL2
INPUT+l1+Xl,FREE+21+X2
XL1,'Oll'
80
*18 H/9
A +56 089
B 1=84
M H/3 119
*18
311
B *29
8 *29
M 311
M +60
M 371
CARD
80
S
B
M
13
80
80
0
BCE
BCE
5
5
5
5
5
5
5
5
5
5
1
1010
1018
1025
1029
1036
1040
1047
1051
1059
1066
1013
1071
1084
1091
1096
1104
1111
1115
1122
1123
1130
1135
1142
1146
1154
4
BeE
615
PAGE
3135l
SFX CT
BCE
BeE
BCE
BeE
BCE
611
612
613
614
623
624
625
626
aWl
BINFND MCW
MCW
C
BE
MCW
B
CKNOP BeE
IOTYP MCW
MCW
Mew
Mew
MCW
B
FIXALF BCE
610
622
OPERANDS
PICKUP MCW
B
MAKBCE MCW
B
ALTROP BCE
MCW
MCW
S
MCW
TLUBIN C
BE
BCE
A
609
616
611
618
619
620
621
OP
-VERSION 3
1198
1199
8
1200
1207
1214
1218
1222
1229
A R44 094
7
1233
7
1240
7
1241
7
1254
B
M +62 1Kl
B S54
H A15
S +65 A15
- A15
A A15 089
A AlS 094
M 3U9 lKl
C 089 +37
85
85
85
85
85
85
85
86
86
86
86
86
86
86
81
87
87
81
1401 AUTOCODER-PASS 3 PROCESS FIX FORM
OP
OPERANDS
5 59
BH
5 60
5 61
5 62
B
eKB
CKOP
SAMFIX t INPUT+16,
INPUT+16,FREE+19
INPUT+39,FREE+20
SETABS
332
SEQ PG LIN
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
5
63
5
5
5
5
64
65
66
61
5 68
5 69
5 70
5 71
5 72
13
5 14
5 15
5 16
71
5
646
5 78
5 19
5 80
5 81
5 82
5 83
5 84
5 85
5 86
5 81
5 88
5 89
648
649
650
651
652
653
654
655
656
657
ABSFIX BCE
Mew
MCW
NOP
SWI
es
CS
MCW
ce
W
CC
Mew
SETABS SW
B
5
645
647
LABEL
SA~FIX
MCW
MCW
.
FOUND
BW
S
MN
A
A
8
B
B
B
B
Of'!
Q
.... .,,\J/
&::
J
659
5 91
B
660
5 92
S
661
662
5 93
5 94
B
663
5
5
5
5
665
666
667
668
669
610
611
612
673
674
615
616
.I ....
U
B
Mew
Mew
Mew
Mew
95
96
97
98
5 99
6 00
PRINT OUT MESSAGE ONLY
ONCE THAT ACTUAL OPS
ARE PRESENT IN FIXED
FORM IMAGES
THIS ACCOUNTS FOR
THE POSSIBILITY THAT
'ACTUAL OP CODES PRESENT IN FIXED FORM IMAGES't270
THE USER FORGOT TO
1
USE AN ENTER
AUTOCODER STATEMENT
1
WHEN RETURNING TO
tB'tSWl
FREE FORM
ASSW=l
TLUFIX
PROCESS SAME OP CODE
SAVOP,FREE+20
B
TLUFIX
*
.. BEGINNING OF PROCESS ceNTROL AND DECLARATIVE OPERATION CODES
;:'S:;Q
664
OPERAND ACTING UPON
B
INSPC
BCE
01
02
6 03
6 04
6 05
MCW
MCW
LeA
Mew
6 06
6 07
6 08
B
6
6
Mew
NOPNO
Mew
B
FIXINS,EQVACD
XL3+1
EQVADD-l t XL3
XL3
XL3
*+1+X3
BADOP
OCWSTM
ERHLT
ONEOP
ONEOP
ERHlT
CKLOR
DSTYP
INSPC
INPUT+55,FREE+59
DETERMINE TYPE OF
CONTROL OP AND GO TO
APPROPRIATE ROUTINE
OA ILLEGAL IN FIXED FM
GO TO CONSTANT RTN
SHOULD NEVER OCCUR
END, EX, XFR
GO TO SUFFIX RTN
SHOULD NEVER OCCUR
GO TO ORIGIN RTN
GO TO OS, EQU RTN
GO TO SPECIAL ROUTINE
SFX CT
LOCN
INSTRUCTION TYPE
5
4
B 922
8
1261
1266
1210
1
1
1218
1285
4
1292
4
1
1296
7
1300
1301
2
1308
1
1310
2
1
4
1311
1313
1320
4
1324
1
1
I
M A09 270
F 1
2
F 1
R16 592
Ala
B 828
M Ras 120
M
,
88
88
88
88
88
88
89
89
89
89
89
89
89
V 854 A69 1
S 100
4
4
1363
A 099
4
1361
1371
1375
1319
1383
B
TGI
B
B
6
B
P28
U84
91
U73
91
~.
',.,0"'7
... .,;;10.
g
4
1391
1395
8
4
7
4
4
4
4
~
4
4
4
1
8
7
7
4
7
4
4
PROCESS TWO CHARACTER
INSTRUCTIONS
M 348 119
M 371 120
N T20
/ 332
81
81
88
1340
1348
1352
1359
4
1
4
PROCESS
CC AND eca AND SS
AND SSB
B 128 348
CARD
M
1
ENDFIX
NOPND,INPUT+11,
'B',FREE+18
EQVADD-2,EQ"AOD
BLANK
EQVADD,FREE+15
, +'
FIXINS
INPUT+39,FREE+21
ENDFIX
1328
B 874 U
14
1335
1336
7
TO FREE FORM AREA
PAGE
3135L
-VERSION 3
7
4
1399
1403
1407
1414
1415
1416
1411
1421
1429
1436
1443
1447
1454
1458
1462
1469
8 828
0 A68 099
A 099
D
90
90
90
90
90
90
90
91
91
X60
91
VLJ'IIt
n'l
I\UU
"7.&.
B U13
91
B Y89
B X8S
8 U21
M 387 159
M
M
M
92
92
92
92
92
92
92
B 626
U62 349
M R76 118
M A67 A69
l A54
B
93
93
93
93
93
M A69 115
93
M Al2
8 854
M 371 121
94
B
626
94
94
94
-VERSION 3
1401 AUTOCODER-PASS 3 PROCESS FIX FORM
SEQ PG LIN
677
678
619
6~O
681
(:)82
683
09
6 10
6 11
6 12
6
6 13
6 14
6 15
LABEL
OP
OPERANDS
ERHlT
H
0,301
ERHlT
B
*'
*PROCESS DCW, DC
*DCwSTM BCE
A
684
6 16
685
686
6 i1
687
688
689
6 19
6 20
MCW
MCW
6 21
B
690
6 22
6 23
6 24
6 25
6 26
6 21
6 28
6 29
6 30
6 31
6 32
6 33
691
692
693
694
695
696
697
698
699
700
101
702
103
704
705
706
701
6 18
6 3-7
6 38
6 39
6 40
6 41
710
711
It~"
713
714
115
116
6 42
6 43
6 44
6 45
6 46
6 47
6 48
711
718
719
6 49
6 50
6 51
720
721
6 52
6 53
722
6 54
125
726
MCW
MCW
MCW
MCW
DCWTYP CW
CW
BCE
BCE
BCE
BCE
MN
6 55
6 56
6 51
6 58
RTNOCW
DCWTVP,INPUT+17,*
BlANK,INPUT+17
FREE+18,WAREA6=6
'EQU',FREE+18
'+P •
INPUT+21,FREE+25
PUT
FREE+74,FREE+73
INPUT+22,FREE+11
WAREA6,FREE+18
INPUT+40,INPUT+39
INPur+28
DSARTN,FREE+14,J
KNOWN,INPUT+23,+
KNOWN,INPUT+23,KNOWN,INPlJT+23,,
INPUT+7,XL1
Q. DCW*
ASSURE NOT BLANK
GENERATE EQUATE
FOR DCW ACTUAL
RSTwM
KNOwN
Q. DSA STATEMENT
Q. IS THE LENGTH OF
THE CONSTANT TO BE
COMPUTED BY THE
PROCESSOR
1...1' "" ...
MCW
SW
Sk
"',FREE+22+Xl
INPUf+40,INPUT+39
INPUT+28
ENDFIX
INPUT+55,FREE+53
RSTwM
XLl+l
RTNOCW,INPUT+24+Xl,
+l,XLl
XLl,'S2'
RTNDCW
lPERR
•
C
BE
B
*' PROCESS DSA STATEMENTS
*'
OSARTN S
Xl2+2
MCW
B
• 000 301
B U73
S
1484
1
7
1
7
4
1492
1499
1506
1501
1514
1518
1525
B V51 349
A A54 349-
1
7
• • • ,._t:Oa:&::.£.?l
I
. , " - ...... 4. ....
A
1473
1480
REMOVE WORD MARKS
MilAl
CORERR S
LPERR BCE
7
4
7
7
1
Mew
MCW
INSTRUCTION TYPE
GENERATE FREE FORM
DCW ACTUAL
LT ZERO. IF
ERROR ATTEMPT TO
PROCESS RECORD ANYWAY
CONSTANT TO FREE FORM
B
lOCN
4
BlANK,Xll
XLl,'032'
CORERR
Xl1,'OOO'
COR ERR
INPUT+23+X1,FREE+21+X1
B
SFX CT
1
A
C
BL
C
BE
• +lV".
PAGE
15
CARD
94··-
94
STATE~ENTS
MN
6 34
6 35
6 36
708
109
723
724
MCW
Mew
Mew
SYSTEM ERROR HALT
3135l
'Oll'tXLl
SCAN
Q. COUNT GT 32 OR
CMrt nce:
u ,,;;n;;.
nru
u"',.
UTTU Yt.t
W -' I
n
,I'
AT SIGNS
RESET WORD HARKS
PICKUP ENTIRE Dew AREA
4
8
8
8
8
1
1
7
95
95
M A21 118
95
95
M A24
M 353
125
M 174 113
M 354 III
M AlB 118
)
)
1570
1578
1586
1594
0
1601
1602
0
372
360
X15
W69
W69
W69
339
311
96
96
114 J
9"1
355 +
355-
91
96
355
089
1647
4
1661
4
1665
B 626
1
1669
1616
1680
1684
1692
1699
1706
1111
M 381 153
B W54
S 090
B W33 3V6
A R44 089
C 089 A33
B W33 S
5
1
...
I
8
1
7
4
4
7
4
1609
1640
1654
1115
1119
1726
96
96
M
B
B
B
B
1616
1621
1628
1633
95
95
96
B 586
7
7
7
5
7
5
PICKUP FIXED FORM DSA
AND PLACE IN FREE FOR
FORM AREA
1562
94
95--
Al8
M 118
M
A A54 089
C 089 A21
8 W80 T
C 089 A30
8 wao S
M 3V5 lSI
.""'11"
M R!)1.
121
M A31 152
, 372 311
, 360
4
4
SCAN FOR FIRST BLANK
IN ATTEMPT TO CORRECT
Q) END OF RECORD
1529
1536
1543
1550
1551
1558
*'
B W84
S 096
M +31 089
B Z09
•
97
91
91
98
98
98
98
98
98
98
99
99
99
99
99
99
100
100
100
100
100
100
100
101
101
101
1401 AUTOCOCER-PASS 3 PROCESS FIX FORM
seQ
PG LIN
721
6 59
6 60
6 61
728
129
730
131
732
133
134
135
736
137
738
139
140
741
142
143
144
745
146
747
148
749
750
751
152
753
754
755
Mew
FREE+72 t FREE+73
'+'
RSTWM,INPUT+21,
INPUT+21,FREE+21
RSTwM
*+5,INPUT+17,
6 63
B
6 64
6 65
ONEOP
6 68
6 69
6 10
6 11
6 72
6 73
6 14
6 75
6 16
6 77
6 18
6 19
6 80
6 81
6 82
6 83
6 84
6 85
6 86
b
,
0
89
.....
"
7V
B
SCAN
B
C
6 66
6 67
757
'3 ',EQVADD
PREOJ
ENDFIX
BE
B
If UNSIGNED MAKE SIGN
PLUS
Q. NO SIGN
SIGN ADDRESS CONSTANT
PRocess THOSE
INSTRUCTIONS
THAT ONLY HAVE ONE OP
IF END CARD GOT TO EOJ
*DSTYP
DSACT,INPUT+11,*
*+5,INPUT+l1,
*+8
BlANK,INPUT+l1
'EQU',FREE+18
'P',FREE+14
ONEOP
INPUT+6
BlANK,INPUT+7
INPUT+6
INPUT+7,'OO'
OOECU
INPUT+1,FREE+22
ENDFIX
BCE
BeE
B
DOEQU
NOP
MCw
Mew
B
DSACT
Sw
A
cw
C
BE
MCw
B
*.. PROCESS COMMENTS CARDS
*
INPUT+S5,FREE+53
COMCRO MCW
rli &
~
"-I
.... nMlfl
IF OS IS REALLY AN
EQU CHANGE OP
CODE. ASSURE
OPERAND NOT BLANK
PROCESS OS ACTUAL
SFX CT
LOCN
INSTRUCTION TYPE
1
1130
M
4
M +60
112 113
16
CARD
101
101
101
102
7
1737
1141
1149
4
1156
4
7
1768
B Z09
102
1172
1119
1784
C +01 A69
B Q67 S
B 626
102
102
102
8
4
1188
1196
1804
B Y33 349
B voa 349
1
1
1808
1815
1
4
5
1
4
1822
1829
1833
1837
1844
1848
1855
1860
1861
C 339 A36
B Y15 S
M 339 122
8 626
1
1871
M
8
a 1760
5
4
8
4
1
4
Q. NO COUNT
B W54 359
M 359 121
B W54
8 X72 349
102
102
PROCESS COMMENTS CARDS
7
103
103
B V15
A54 349
A21 118
M A34 114
103
103
103
N
M
104
104
104
104
B X60
,
338
A A54 339
)
338
381 153
104
104
104
105
105
105
UArnn
nH\'-I'\U
I
1
Mew
Mew
1
1
1
Mew
1
1
4
Mew
MCw
B
*
""7
MCW
MCW
1
ENTSPS
1878
1879
1880
lB81
1882
1883
1884
1885
GEN
M
M
GEN
GEN
GEN
GEN
M
M
M
M
M
B 626
GEN
GEN
105
105
105
105
106
106
106
106
*
* PROCESS ORIGIN, lTORG STATEMENTS
.
CKlOR
6 96
6 97
6 98
6 99
7 00
7 01
PAGE
*
760
6 91
6 92
6 93
6 94
6 95
3735L
• PROCESS DS, EQU STATEMENTS
759
161
162
163
164
165
766
161
768
169
170
711
772
173
114
715
176
OPERANDS
6 62
156
I:;;JO
OP
Mew
BeE
MCW
6 87
6 88
"'~n
LABEL
-VERSION 3
BCE
Mew
MCW
ONEOP,FREE+16,O
'lTORG',FREE+20
B
ONEOP
CHANGE MNEMONIC TO
-LTORG- IF LITERAL
ORG STATEMENT
*-SCAN ROUTINE WHICH CONVERTS FIXED FORM RECORDS INTO FREE FORM
*
7
1
1889
1891
1904
B X60 116 0
M A41 120
4
1905
B
8
M
X60
106
106
106
101
1401 AUTOCOCER-PASS 3 PROCESS FIX FORM
SEQ PG LIN
LABEL
OP
OPERANDS
117
SCAN
SBR
S
SCNXT+3
XL 3 ... 1
CKIBK,INPUT+18+X1,
XL3,'05'
NDOPD
+l t XLI
+1,XL2
+1 t XL3
LOOP1
XL3,'04'
NDOPD
*+5,INPUT+19+Xl,
CXL1
INPUT+11+X1,FREE+21+X2
XLl,'Oll'
XLl+2
BH
*+8
176
779
180
781
782
783
784
785
186
7
7
7
7
7
7
1
02
04
05
06
07
08
7 09
7 10
1 11
181
7 12
788
189
1 13
1 14
790
1
791
192
1 16
7 11
1 18
793
S
03
15
LOCPl
CXLI
BCE
e
BE
A
A
A
B
CKIBK
NDOPD
e
BE
BeE
B
Mew
C
194
7 19
Mew
195
7 20
1 21
7 22
BCE
aWl
Mew
196
791
798
799
800
801
802
803
804
805
806
801
808
809
810
811
812
813
814
815
816
811
818
819
820
821
822
823
824
825
826
7
1
7
7
1
1
1
23
24
25
26
21
28
29
30
31
32
RTN2
A
A
Mew
Mew
cw
NOADJ
1
1
7
7 33
7 34
1 35
7 36
7 31
7 38
7 39
1 40
7 41
7 42
1 43
7 44
7 45
7 46
1 47
7
7
1
7
48
49
50
51
sw
seNXT
t-1K,..IN
BeE
BeE
SCE
A
MN
Mew
B
Mew
B
FIXLIT BCE
A
MN
B
NOTll
BCE
sueT
B
A
A
B
CKLIT2 Bee
BeE
B
Dew
SYSt-1Kl Dew
'011',XLl
CKlIT2,INPUT+23+Xl,
MKMIN,INPUT+23+Xl,K
'+',INPUT+23+X1
INPUT+24+Xl,INPUT+23+Xl
BLANK,INPLT+26+Xl
+4,XL2
INPUT+26+Xl,FREE+21+X2
INPUT+24+Xl,INPUT+23+Xl
FIXLIT,INPuT+11+Xl,+
FIXLIT,INPUT+17+Xl,seNXT,INPLT+21+Xl,
+3,Xl2
iNPUT+27+Xl,FREE+21+X2
'+X'
XXXX
'-',INPUT+23+Xl
RTN2
NOTl1,INPUT+21+Xl,
+1,XL2
INPUT+21+Xl,FREE+21+X2
SCNXT
SUBT,INPUT+26+X1,
SCNXT
'199',XLl
'I99',XL2
NOTll
SCNXT,INPLT+l1+Xl,+
SCNXT,INPLT+11+X1,NOADJ
RESET INDEX 3
Q. BLANK CHARACTER
Q. END OF ADDRESS
INCREASE ALL INDEX
REGISTERS
lOCN
INSTRUCTION TYPE
4
1909
4
1913
1917
1925
1932
1931
H J20
5 100
8
1
5
7
1
4
1
5
8
4
MOVE ADDRESS PORTION
TO FREE FORM AREA
7
7
4
5
1
Q. NO CHARACTER AOJ
ASSURE CHAR ADJ
+ OR PROCESS CHARACTER
ADJUSTMENT
8
8
1
7
7
7
1
1
1
Q. LITERAL
8
8
Q. INDEXING
PROCESS INDEXING
EXIT
seT CHAR ADJ SIGN
TO MINUS
PROCESS REMAINDER OF
FIXED FORM NUMERIC
LITERAL
8
1
Q. LITERAL
1951
1958
1962
1969
1974
1982
1986
1993
2000
2004
2009
2016
2024
2032
2039
2046
2053
2060
2067
2068
2075
2083
2091
2099
,
.3V6
M 3V8
3V6
108
108
108
108
lOB
108
A45
S
3Vl
109
109
lKl
+37
109
109
109
109
U
089
3V5
3V5 K
3V5
3V5
110
110
110
110
110
111
lKl
111
3V5
111
112
2113
2117
2121
M
A49
4
2128
8
1
7
8
4
2132
2140
2141
2154
2158
2166
7
2170
1
4
2177
2184
2188
2196
2204
2208
2209
I
094
099
B J32 3U9 B Jl1 3V9
A Altl 094
4
4
1
1
107
107
111
3V9
4
S
089
B J32 3U9 +
n
8
lcff-
107
III
V
,,'lnL
CARD
101
3VO
A43
M
)
17
107
A A54 3ve
A A46 094
£.LVO
8
SYSTEM GROUP MARK
1944
B Z62
C 099
8 l86
A R44
A R44
A R44
B I17
C 099
B l86
B l86
B l25
M 3U9
C 089
S 091
B -16
M +31
B Ja8
V J21
M +60
...,
4
0
• •
SFX CT
7
TOLERATE ONE BLANK
IN ADDRESS
PAGE
3735l
-VERSION 3
"lv1
.L "'-.L
£ .... ,
8 000
113
113
113
113
B Jl1
8 J70 3V8
8 J11
A A53 089
B -15
112
,,.,
112
112
112
M A50 3V5
B -39
B J58 3V9
A R44 094
0 3V9 lKI
A A53 094
B J58
B J11 3U9
B J17 3U9
111
+
-
113
113
114
114
114
114
114
114
115
115
115
1401 AUTOCODER-PASS 3 PROCESS FIX FORM
SEQ PG LIN
LABEL
OP
OPERANDS
821
828
RTENC
XFR
EQU
o
7 52
1 53
*
-VERSION 3
3735L
SFX CT
loeN
PAGE
INSTRUCTION TYPE
B 000
2209
18
CARD
116
1401 AUTOCODER-PASS 3 RIGHT MAIN LINE
SEQ PG LIN
829
830
831
832
833
834
835
836
837
838
839
840
841
7 54
55
56
1 51
7 58
7 59
7 60
1 61
7 62
1 63
7 64
7 65
7
1
7 66
844
7 61
7 68
1 69
845
846
1 10
1 71
841
1 12
848
7
7
7
1
73
74
15
7
7
1
7
78
79
842
843
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
816
877
878
76
1 17
80
81
7 82
7 83
1.., 84
85
7 86
,
1 81
88
1
7
7
7
1
89
LABEL
OP
TLUXT
ENTER
'*
..-nrr-
a
"I
...
A
n.
lit'
rLV~
t ' ... i""IU
.:>1..,"
BE
MCW
B
*+8
'+',OOO+X3
XXXX
FREE+23,'SPS'
GTFIX
INPUT+20,'AliTO'
GTFRE
PSTNU,MODESW
RSTMOD
EXIT
DETERMINE TYPE OF
ENTER CARD AND
GO TO APPROPRIATE
ROUTINE
MLCTYP,EQ~ACD-l.B
Q. MlC TYPE
C
91
C
B 00
8 01
8 02
8 03
VI'"
Al.":),Tr"'CCT..LJ.
BE
BW
B
SPECIN BWl
LCA
CKEl
BCE
Mew
B
MLCTYP LCA
B
EQVADD-2,EQVACD
SAvCOD,FREE+19,
'L',EQVACC
SAVCOD
'M',EQVAOC
CKEL
it
* PROCESS ILLEGAL OPERATION caCE
CT
LOCN
4
2465
2469
2476
2481
2488
2495
1
5
7
7
1
1
7
8
7
4
4
7
4
8
7
5
7
7
5
7
5
7
5
1
4
...,,
5
7
4
7
5
1
5
8
4
Q. SHOULD OP BE-L-
MAKE OP CODE -LMAKE OP -M-
PAGE
3733L
SFX
~
BE
7 93
7 94
7 95
1 96
'7 97
7 98
7 99
OPERANDS
-vERSION 3
1401 AUTOCODER-PASS 3 RIGHT MAIN LINE
JOB
*
*TABLE LOOKUP OF MNEMONIC OP CODE
*
ORG
BEGIN
TLUXT+3
TLUOP SBR
Q. ACTUAL
C
FREE+18,BlANK3=3
OP CODE
ABSCOD
BE
MlC
FREE+18,Xl2
A
FREE+18,Xl2-1
A
FREE+18,XL2-2
TABLE LOOKUP
A
FREE+16,XL2
USES ADDRESS
+5500,XL2+1
SUBI
S
CONVERSION TECHNIQUE
SUB1,XL2+1,e
aWl
MLCWA OPND-549+X2,EQVADO=9
SAR
GETOP+3
S
XL2+2
SEARCH TABLE FOR
GETOP MLCWA XXXX,EQVAOD
MNEMONIC
GETDP+3
SAR
Q. OP NOT IN TABLE
BADOP,EQVADD,'
BCE
Q. OP CODE FOUND
EQVADD,FREE+IB
C
GElOP
BU
SHIFT TABLE FUNCTION
EQVAOD-3,EQVAOO
LeA
Q. ENTER CARD
C
'N 'tEQVACD
ENTER
BE
Q.MLC, MLCWA TYPE
EQVADO,'B ,
C
SPECIN
BE
Q. RAHAC INSTN
EQVADD,'2 ,
C
SPECIN
BE
PLACE TABLE FUNCTION
EQVADO,FREE+15
SAVCOD MCW
ON RECORD PRECEDED BY
SBR
XL3
,.
90
92
-VERSION 3
8
7
a
2502
2509
2516
2524
2531
2535
2539
2546
2550
2558
2565
2510
2571
2584
2589
2596
2601
2608
2613
2620
., L ., I .
'0'''''
2631
2636
2643
2647
2654
2659
2666
2671
2679
2683
2691
2698
4
2106
2713
1
2717
4
2724
7
INSTRUCTION TYPE
2465
H 046
C 118
B P55
M 118
A 118
A 118
A 116
S A60
V N09
L BN9
Q N42
S 096
094
093
095
A69
a
A69
t
C A69 118
B N39 I
l A66 A69
C A71 A69
B 047 S
C A69 A73
B 083 S
C A69 A15
B 083 S
M A69 115
H 099
r
'" V77 "'.0
1'\01'\
A "'70
B 043 5
M
+60 0+0
B 000
C 123 A8l
B 464 S
C 352 AS5
B 503 S
V 630 +02 1
B
V
L
8
M
638
Pl1 A68 B
A67 A69
013 119
A86 A69
B 013
L A87 A69
B 098
120
120
120
120
l 000 A69
Q N42
B P28
CARD
119
119
119
119
119
119
A56
S
092
094
095
19
120
120
121
121
121
121
121
121
122
122
122
122
122
122
123
123
,..,,,
~'J
123
123
123
124
124
124
124
124
124
125
125
125
125
125
126
126
1401 AUTOCOCER-PASS 3 RIGHT MAIN LINE
SEQ PG LIN
LABEL
819
*BADoP
880
881
882
883
884
885
886
881
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
901
8
8
8
8
04
05
06
07
8 08
8 09
8 10
8 11
8 12
8 13
8 14
8 15
16
8 11
8 18
8 19
LeA
BLANK,EQVAOIJ
SAVCOD,FREESW
CKFF,MODESW
SAVCOD
SAVCOD,FREE+19,
BLANK,EQVADO
FREE+19,EQVADD
SAVCOQ,FREE+20,
EQVAOO
Bw
B
ABSCOD BCE
LeA
Mew
8
CKFF
BeE
ew
SW
MCW
B
BCE
MCW
CHAIN
Mew
MCW
FREE+20,ECVADD-l
SAveOD
SAveOD,FREE+14,
FREE+80,INPUT+80
Mew
CS
es
MCW
8 20
8 21
8 24
913
8
25
8
8
8
8
8
2"1
28
29
30
31
32
SW
8 33
8 34
a 35
8 36
01
02
03
04
BCV
RESTR
B
eeB
INSTRUCTION TYPE
1
2128
2735
2743
2751
2155
2763
2710
L
V
V
8
B
l
2717
2785
8 013 120
PROCESS ACTUAL OP
CODES
8
8
1
1
8
4
1
7
IF RECORD APPEARS TO B
BE FIXED FORM RECORD
4
8
7
2789
2190
2797
2801
2809
A54 A69
013 H09 1
QOl +02 1
013
013 119
A54 A69
)
,
1
1
1
1
1
1
1
1
1
332
4
1
7
FREfSW
RESTR
GTFIX
GTFIX, 1
126
126
121
127
121
121
127
127
128
128
128
128
A69
M 120 A68
B 013
B 013 114
M 180 412
M
M
M
M
M
M
M
M
M
I 332
I
M 180 280
CARD
MACRO
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
128
128
128
129
129
129
129
129
129
129
130
130
1
,1
2837
2838
M
M
MACRO
GEN
130
GEN
130
2839
1'1
u
rCfll
1'2n
1
2840
2841
M
GEN
M
2848
2
130
130
131
131
131
131
131
A-
'PROCESSING AS FIXED FORM RECORD',332
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2829
2830
20
126
126
M 119 A69
9
W
8 26
8
LoeN
8
Mew
MCW
MCW
MCW
SFX CT
4
FREE+80,PRINT+80
CHAIN 4
MCW
8 22
8 23
PAGE
3733L
MAKE OP BLANK
Q. IN FREE FORM MODE
Q. IN FREE FORM MODE
Mew
MCW
Mew
MCW
Mew
Mew
909
9iO
911
912
928
OPERANDS
8ft
908
914
915
916
911
918
919
920
921
922
923
924
925
926
921
OP
-VERSION 3
7
QL~'
B18 332
1
4
2849
t
5
2853
B Q62 '
4
5
2858
2862
B 464
8
2867
2875
2879
H09
F 464 1
4JV
*
.. END OF JOB PROCEDURE
..
PRECJ
EoJ
SYSTAP,OVL2
PUT
OUTAPE
WTM
HESSG 'PASS 3 CGMPLETED',60,K,1
CC
K
CS
332
CS
Mew 'PASS 3 CCMPLETEO',60+200
RTW
B
SKIP PAST OVERLAY
PUT END CARD
WRITE TAPE MARK
4
5
2
4
1
1
2884
2886
2890
2891
L (Ul 626 R
131
131
132
B 586
U {U4 M
F K
I 332
I
M B34 260
MACRO
GEN
GEN
GEN
GEN
132
132
132
132
1401 AUTOCODER-PASS 3 RIGHT MAIN LINE
SEQ PG LIN
929
9)4
935
936
931
938
8
8
8
8
8
8
8
8
OP
OPERANDS
W
05
06
9JO
931
932
933
LA8EL
cc
Cw
cw
37
38
39
'to .
41
RTW
RTW
NOP
BER
42
43
B
44
LTORG
Dew
352
1
SYSMKI
GMKl t GMK2
5YSTAP,OVL2
SYSTAP,085
CLEAR GROUP MK WI WM
TPERR
PASSB2
*
3
1
3
1
1
2
1
1
1
3
5
10
3
1
3
+00
=01
'C'
'V'
,
'B'
445
447
450
484
536
SAVCP
9
6
5
=09
'SHIVAL'
'SP
MOOESW
,
'3
=01
'ILLEGAL LABEL -
SEQUENCE NUMBER'
640
684
ABSw
WAREA6
2
1
31
i t i
1
'011'
'8 •
3
B'
'NOP'
'BCE'
'BIN'
621
635
4
GO TO NEXT PASS
• Z'
428
430
432
2898
2899
2901
2905
2912
2920
2928
2932
2931
8
+lNAREA+12
+1
'+1 •
'EQU
'$HIVAL +p
+NUREC
1
2
4
5
4
'CHAI
HLDCO
LoeN
READ IN PASS 4
'5'
406
SFX CT
1
8
0
'+ B'
+5
'BSS'
'+'
'SS'
+VAlUE+2
'ACTUAL OP CODES PRESENT IN FIXEO FORM IMAGES'
=01
, +'
=06
'EQU'
'+P •
PAGE
3733l
-VERSION 3
.L
3
3
3
3
3
3
1
3
1
2
3
44
1
2
6
3
3
2943
2944
2941
2948
2949
2951
2952
2953
2954
2951
2962
2972
2915
2976
2919
2988
2994
2999
3001
3002
3033
3"
'2~.
VJ-r
3031
3040
3043
3046
3049
3052
3055
INSTRUCTION TYPE
2
GEN
F 1
) K09
GEN
189 187
L (Ul 626 R
l (Ul 085 R
N OC())
B KID L
8 200
2941
115
T T
1"27
.•
.., I
LIT
137
137
138
138
138
138
138
138
138
139
139
139
LIT
AREA
LIT
LIT
LIT
LIT
LIT
AOCON
LIT
LIT
AREA
lIT
.......
•
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
3059
3060
502
132
132
133
133
133
133
i33
133
134
LIT
LIT
AREA
LIT
LIT
LIT
LIT
626
CARD
134
134
134
134
134
134
135
135
135
135
135
135
135
136
136
136
136
136
136
136
131
LIT
3056
3062
3065
3109
3110
3112
3118
3121
3124
AOCON
21
LIT
LIT
AOCON
[rr·
AREA
LIT
AREA
LIT
LIT
141
141
141
141
141
142
1401 AUTOCOCER-PASS 3 RIGHT MAIN LINE
SEQ PG LIN
LABEL
OP
LOCN
'032'
3
3127
'000'
3
1
2
3130
3131
3133
3134
3136
3141
3143
3145
3146
3141
'52'
'PI
'00'
'LTORG'
'05'
'04'
+4
+3
'+X'
,- ,
835
843
EQVADD
=09
,
'N
'S ,,
'2
+FREE+l1
'SPS'
'AUTO'
860
'l'
1M'
'PROCESSING AS FIXED FORM RECORD'
'PASS 3 C(MPLETEO'
912
942
943
928
8 45
8 46
8 47
8 48
8 49
944
945
946
947
948
8 50
8 51
8 52
8 53
8 54
949
950
8 55
8 56
8 57
8 58
8 59
8 60
8 61
939
940
941
951
952
953
954
955
956
951
958
959
960
961
8 62
8 63
8 64
8 65
8 66
8 67
1
2
5
2
2
1
1
2
1
'199'
=03
+5500
BLANK3
3733l
SFX CT
OPERANDS
,, ,
711
-VERSION 3
3
3
4
9
2
2
2
3
3
4
1
PAGE
INSTRUCTION TYPE
LIT
LIT
LIT
LIT
3149
3150
3153
3156
3160
3169
3171
3173
3175
3178
3181
3185
3186
1
3187
31
3218
16
3234
CARD
142
142
142
142
LIT
142
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
lIT
AREA
LIT
AREA
142
LIT
III
22
liT
LIT
ADtON
LIT
LIT
LIT
LIT
LIT
lIT
143
143
143
143
143
143
143
144
144
144
144
144
144
144
145
145
145
145
145
146
147
*
*TABLE OF "NEMONIC OPERATION ceDES
*
MASVM
ORG
DCW
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
DCW
Dew
Dew
Dew
Dew
3253
3253
..
'"
=4
=2
'NNOP'
'e XFR'
1
3253
148
4
2
4
5
3257
3259
3263
148
148
148
3268
3273
3278
148
~
'0 LOR t
5
• I JOB'
'ICS , ,
'a DA
'S2WSS'
'=MA I
'3 END'
'PMCM'
'N ENT'
'BRMRTB'
'ABBlC'
5
4
148
4
S
4
3296
148
149
149
149
149
3301
149
3305
149
5
3310
6
5
3316
3321
5
5
3282
3287
3292
1
3322
149
150
150
150
'B~MBCt
5
•(D
4
3327
3331
150
150
t t
1401 AUTOCODER-PASS 3 RIGHT MAIN LINE
SEQ PG LIN
962
963
964
965
966
.9.61
968
_ 9_69
910
971
912
973
974
915
916
917
918
919
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
991
998
999
1000
1001
1002
1003
1004
1005
1006
1001
1008
1009
1010
1011
8 68
8
8
8
8
8
69
10
11
72
73
8 74
8 75
8
8
8
8
8
8
16
77
18
19
80
81
8 82
8 83
8 84
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
00
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
LABEL
3733l
9
3340
150
5
3345
150
'S1DUDCR'
'yMLZ'
7
4
33-52
3356
151
, •M
4
6
5
3360
3366
3311
3315
3381
3385
3386
3390
3396
3401
3405
3411
3415
3424
3428
3433
3440
3444
3449
3454
3459
Dew
'F3WM2 WDC'
, FeeB'
•
'UEUSKP'
'0 ORG'
'HSBR'
'Ke ss '
4
6
'YMI '
4
, )ew '
4
6
t
,
'UWlWTW'
IB MlC'
'IMes'
'UWMWT '
• MMCW'
'F2WM2 WOT'
'QSAR'
'R6WRF'
'SlEUECR'
'8SRF'
')2WM '
'lVBW '
'9BBC9'
1
5
4
6
4
9
4
5
7
4
5
5
5
'IR
It
3463
'URLRTW'
'FIRMRD '
'FIRlROW'
'MMU t
6
7
3469
3476
1
3483
3487
4
'vawz'
4
u~w
! t
"t
DCW
'RBBPC'
ICC '
'C4PCB'
'OMLN'
'UMUWTM'
'EMCE'
'C EX '
, UCU •
'ZBBAV'
J
Dew
DCW
DCW
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
SW
!
I.
5
4
5
4
6
4
5
3491
3495
3500
3504
3509
3513
3519
3523
3528
5
3533
5
3538
3542
'5RP ,
4
'. H
4
4
3546
6
3556
5
5
4
3561
3566
3570
6
6
3582
'LLU '
'BWMWTS'
• KSSS'
'KBBEFI
'PMRC'
'UBUBSP'
'URMRT •
3550
3576
INSTRUCTION TYPE
23
lOCN
OPERANDS
1"'\"1
PAGE
SFX CT
OP
Dew
Dew
Dew
Dew
Dew
DCW
Dew
DCW
Dew
Dew
Dew
Dew
Dew
Dew
DeW
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
-VERSION 3
CARD
151
151
151
151
151
151
152
152
152
152
152
152
152
153
153
153
153
153
153
153
154
154
154
154
154
154
154
155
155
155
155
155
155
155
156
156
156
156
156
156
156
157
151
157
157
151
151
1401 AUTOCOCER-PASS 3 RIGHT MAIN LINE
SEQ
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1021
1028
1029
1030
1031
1032
1033
1034
1035
1036
1031
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
PG LIN
9
9
9
9
9
9
9
9
9
q
9
LABEL
18
19
20
21
22
23
24
25
26
21
28
29
OP
OPERANDS
DCW
'SBBE
Dew
Dew
'3WR '
'SS •
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
9
9 30
Dew
DCW
Dew
DeH
Dew
Dew
DCw
Dew
Dew
Dew
Dew
Dew
9 31
9 32
9 33
9 34
9 35
9 36
9 37
9 38
9 39
9 40
9 41
9 42
9 43
Dew
Dew
9 44
9 45
Dew
DCW
Dew
9 46
9 47
DCW
9 48
Dew
9 49
9 50
9 51
DCW
DCW
DCW
9 52
9
9
9
9
9
Dew
Dew
DCW
Dew
Dew
Dew
Dew
Dew
Dew
53
54
55
56
57
9 58
9
9
9
9
9
9
59
60
61
62
63
64
9 65
9 66
9 67
Dew
OPND
•
Dew
Dew
Dew
,
-VERSION 3
3133L
SFX C1
LOCN
5
'I Dew'
'WBBE'
'J DSA'
'lLCA'
'A DC •
'FIWlWOW'
'7WRP'
•
BBIN'
'KVBM ,
'PBBPB'
'9SPF'
'M SFX'
'4P
'FORMSO
' • BBC V'
'-IS •
'a LTO'
'P EQU'
, BBSS'
'Fa ce •
'AA I
'LBBER'
'/BBU •
'BBCE'
,
'UBBH
,
'TB8l
'X OS
,
•
=F2RH2 ROT'
'AMMBO'
'2W
'F1WMWD
'DMN •
'C1RCS'
•
'6WP ,
'XMIZ'
=9
=3
5
4
3617
5
1
4
5
5
5
4
5
4
7
5
4
5
5
5
6
4
5
5
4
5
5
5
3622
3629
3633
3638
3643
3648
3652
3657
3661
3668
3673
3671
3682
3681
3692
3698
3102
3101
3712
3116
3121
3126
3731
n
"'2 ...,~."
1",-'.)
5
3745
3149
3756
3760
3165
162
162
162
162
163
4
9
3169
3713
3182
163
163
163
163
163
163
164
164
164
164
"7
4
1
4
5
4
J
(""TV
3
3785
4
IR4RF
5
1
3189
3190
3796
3802
3807
3808
•
* CONSTANTS AND TABLES
*
eARD
158
158
158
158
158
158
159
159
159
159
159
159
159
160
160
160
160
160
160
160
161
161
161
161
161
161
161
162
162
4
5
4
'+ZA '
=1
'UUURWU'
'URURWO'
=1
INSTRUCTION TYPE
24
3587
3591
3595
3599
3604
3608
3613
4
4
'SB
PAGE
1
6
6
151
158
",V4
1401 AUTOCODER-PASS 3 RIGHT MAIN LINE
SEQ PG LIN
1062
1063
1064
1065
1066
1061
1068
.1069
1070
1071
1012
1073
1074
1075
1076
1011
1078
1019
1080
1081
1082
1083
1084
1085
9 68
9 69
LABEL
FREESW DC
BINTBl Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
Dew
9 70
9 71
9 72
9 73
9 74
9 75
9 76
9 77
9 78
9 79
9 80
9 81
9 82
9 83
9 84
9 85
9 86
9 87
9 88
9 89
9 90
9 91
1086
1087
1088
1089
1090
1091
9 92
9 93
9 94
9 95
9 96
9 91
"LU~'
"''''4'\
".
~
...,
':10
".
1093 9 99
1094 10 00
1095 10 01
QP
OPERANDS
-VERSION 3
3133l
SFX CT
LOCN
3809
U'
1
5
5
5
5
5
5
5
5
'Bl TI
'SlC A'
tBPS P'
5
3854
5
5
'BSS
'BSS
'BSS
'8SS
'BSS
tBSS
5
5
5
5
5
5
3859
3864
3869
3814
3879
3884
0
tBAV It
'Be9 9'
'au /'
'Bev • •
'BE
S'
'BEF K'
'BER It
'BH
'speBR'
S'
c·
0'
E'
F'
G'
s
PAGE
INSTRUCTION TYPE
25
CARD
164
164
3814
3819
3824
3829
3834
3839
3844
3849
164
164
165
165
165
165
165
165
165
166
166
166
166
166
166
166
167
3889
3894
3899
**TAPE INPUT AREA
..
INAREA
GMKI
*
*
DS
Dew
OA
EQU
3902
3903
3
1X86,G
, ,
1
3988
GMARK
3989
*
3989
3154
3155
167
168
EQUATES
*
BLANK
BlNK2
EQU
EQU
BlANK3-2
BlANK3-1
rt. ........ TV
CI'1IU r 1/\
C'-!U
""''U I
C ..... .,> .... ..>
UU.(;.U
WAREA6-3
3115
3114
WAREA3 EQU
WAREA2 EQU
EX
t'"' .. I T r n r
WAREA6-4
lIBRN
nL~L
8 000
169
1401 AUTOCOCER-PASS 4-LEFT MAIN LINE
seQ
PG LIN
1096 10 02
1091 10 03
1098 10 04
1099 10 05
1100 10 06
1101 10 01
1102 10 08
1103 10 09
1104 10 10
1105 10 11
1106 10 12
1101 10 13
1108 10 14
1109 10 15
1110 10 16
1111 10 17
1112 10 18
1113 10 19
1114 10 20
1115 10 21
1116 10 22
1117 10 23
1118 10 24
1119 10 25
1120 10 26
1121 10 27
1122 10 28
1123 10 29
1124 10 30
1125 10 31
10 32
1126
, , ... .., ,,.. ..,...,.
.LJ.~I
1128
1129
1130
1131
1132
1133
1134
.LV
LABEL
...
34
35
36
37
38
10 39
10 40
10 41
10 42
10 43
10 44
10 45
10 46
10 47
10 48
10 49
10 50
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145 10 51
OPERANDS
JOB
SFX
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
LoeN
INSTRUCTION TYPE
26
CARD
-VERSION 3
Z
* INITIALIZATION Of INDEX LOCATIONS
...
ORG
GRP~Kl
XLI
XL2
XL3
DC
DC
Dew
DC
Dew
DC
Dew
085
l
0
Z
Z
• •
z
Z
z
000
00
000
00
000
OS
1
*
*FIXED FORM IMAGE AREA
*
...
IMAGE EQU
OS
84
GRP~K4 DC
• I
Dew
ZONE
'2SKB'
99
EXOVFL DCW
00
EXNUMB DCW
PROCOR DCW
=1
+0000
TOTLBL DCW
0
JOBSW Dew
Z
l
Z
0085
1
0085
1
0086
0089
3
2
3
2
3
l
z
CONSTANTS USED IN
l
MAKING LITERAL LABELS Z
l
Z
l
172
112
172
172
172
172
172
0091
0094
0096
0099
0100
0100
Z
Z
..
1
4
2
2
1
4
1
0184
0185
0189
0191
0193
0194
0198
0199
8
0200
1'1..,'
"',.&.,..,
u
173
173
173
173
113
174
174
.. READ IN CONTROL CARD OvERLAP
*
PASS82 RTW
NOP
nr-n
:J .:J
10
10
10
10
10
SFX CT
OP
PAGE
3741L
-VERSION 3
DC"
..
..*TAPE
TPERR
asP!
8
SBR
SBR
MZ
MeW
MN
MCW
asp
Mew
REDXT
RDERR
BSP2
I
Z
Ire""
4.
START
Z
4
c;:
..,
4
0
-rnr-nn
7
0208
(Ul N15 R
000
N
l
Q
..,.., 1
"
....
174
114
1"7L..
I
Ao I ""T
L.
0217
8 N75
174
099
114
175
175
REDUNDANCY ROUTINE
BCE
TPINS
SVSTAP,DOPRGG
RT
BER
a
MN
SSP
XL3
REDXT+3
.. 9,XL3
4000-10+X3,TPINS+7
TPINS+3,BSP1+3
TPINS+7,INST2+1
INITAP
WRTRD,TPINS+7,W
+9,ROCT=1
INITAP,XXXX
RDERR
xxxx
TPINS+3,BSP2+3
INITAP
BRING IN INSTRUCTION
THAT caUSED
REDUNDANCY
BACKSPACE TAPE
Q. WRITE REDUNDANCY
INITIALIZE COUNTER
RE-REAO
Q. REDUNDANT AGAIN
EXIT
BACKSPACE AGAIN
Z
4
0221
H
Z
4
0225
H 293
Z
1
0229
Y 464 099
Z
7
0236
1
0243
0250
0257
M
0
M
U
B
z
I
Z
7
5
Z
8
I
1
7
8
Z
5
l
4
Z
7
5
I
0262
02·70
0211
0285
0290
0294
0301
175
175
110 284
280 260
284 393
tuO B
366 284 W
M 464 465
M (UO 000
8 294 l
8 000
0 280 304
U cue 8
R
175
115
1"76
116
116
176
176
176
171
1401 AUTOCODER-PASS 4-lEFT MAIN LINE
SEQ
1146
1147
1148
1149
1150
1151
1152
11~3
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1161
1168
1169
1170
1171
1172
1173
1174
1175
1116
1177
1118
1179
1180
1181
1182
1183
1184
1185
1186
PG LIN
LABEL
10 52
10 53
10 54
10 55
10 56
10 57
60
61
62
63
64
65
TPHlT
10 73
10 74
10 75
10 76
10 77
10 78
10 19
10 80
1140
1157
10 81
10 82
10 83
10 84
1187
1188
1189
1190
1191 10 85
+ltROCT
TPINS,ROCT,e
TPINS+3,TPHlT+6
XXXX,490
TPINS+7,*+8
INITAP,XXXX
BSP1,E
XXXX,402
REDXT
SYSTAP
SBCTR,WRTCR-1,5
+1, WRTCR=2
INITAP,XXXX
aSP1
REDXT
WRTCR
TPINS+3,*+7
XXXX,460
INST2
H
MCW
RT
BSS
H
B
WRTRO
INST2
SKP
BCE
A
WT
BER
B
SBCTR
68
69
70
71
72
S
MN
66
61
OPERANDS
aWl
10 58
10 59
10
10
10
10
10
10
10
10
10
10
10
10
10
OP
S
MN
H
B
SFX CT
loeN
INSTRUCTION TYPE
S 466 465
V 211 465
D 280 334
• 000 490
M 284 349
M (UO 000
B 251 E
• 000 402
8 290
U (Ul E
B 403 467
A 466 468
M ruo 000
B 257 l
a 290
S 468
0 280 420
• 000 460
B 386
7
0306
8
0313
I
I
Z
l
I
l
Z
I
Z
I
Z
l
Z
I
Z
l
Z
7
1
7
0321
0328
0335
0342
0350
0355
0362
0366
0311
0319
0386
0394
0399
0403
0407
0414
0421
I
I
Z
l
4
4
7
REDUCE COUNTER
Z
Q. 10 SUCCESSIVE READS l
HALT
RE-REAO
DETERMINE OPTION
HALT AGAIN
EXIT
ERASE TAPE
Q. FIFTY SKIPS
INCREASE COUNTER
RE-WRITE
Q. REDUNDANT AGAIN
RESET COUNTER
HALT
PAGE
3741l
-VERSION 3
8
5
7
4
5
8
1
8
5
4
4
7
1
4
27
eARD
117
171
117
177
118
178
118
118
178
178
119
179
179
119
119
179
180
180
180
B
R
5
W
*
* NOISE RECORD ROUTINE
•
NOISE
N2
NSXT
SBR
SBR
Ml
BCE
CHAIN
BeE
BCE
BCE
BCE
BCE
BCE
BCE
BCE
BeE
BCE
BeE
BeE
Xl3
NSXT+3
+9,Xl3
4000-12+X3,XXXX,
12
SCAN FOR GROUP MARK
Z
Z
I
7
L
Z
Z
I
I
Z
z
XXXX
lTORG *
DCW
+9
B
ROel
=01
WRTeR
+1
=02
•
z
I
I
Z
l
Z
Z
8
0425
0429
0433
0440
1
1
0448
0449
1
1,
180
180
180
181
099
463
H
H
Y 464 099
B IH8 000
MACRO
GEN
GEN
0451
B
B
B
GEN
GEN
181
181
181
181
.L
0452
D
U
rCAI
101
1
1
0453
0454
8
1
1
0455
GEN
GEN
GEN
GEN
tEN
GEN
GEN
181
182
182
182
182
182
182
182
lIT
AREA
LIT
AREA
183
183
183
1
1
1
4
0450
0456
0451
0458
0459
0460
8
UL.''I
B
8
8
B
B
B
8 000
""u""
0464
1
Z
1
1
2
Z
4
Z
4
0464
0465
0466
0468
183
-END OF CONTROL CARD ANALYSIS, READ IN MAIN LINE
II
eWI<)8
CW
Sw
3998
JOBSW
0469
0413
)
t
198
199
183
183
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
SEQ PG LIN
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1211
1218
1219
1220
1221
1222
'1 ..,..,.,
L";J
1224
1225
1226
1221
1228
1229
1230
1231
1232
1233
1234
1235
1236
1231
1238
1239
1240
1241
LABEL
10 86
10
87
RTNJB
10 88
10 89
10 90
10 91
10 92
10 93
10 94
10 95
10 96
10 91
10 98
'1 '1
LJ.
02
03
04
05
06
OPERANDS
B
PUT
J08SW
WRTP
SYSTAP.OOPROG
cw
B
LOOPTB RTW
NOP
BER
CW
MlC
-
*BYPASS B
S
S
S
B
..
NUREC
GET
B
SBR
CS
sw
09
SBR
RT
J. f
11 18
11 19
11 20
11 21
11 22
11 23
11 24
11 25
11 26
TPERR
GRPMK5.GRPMI<8
'0',fACTOR-3
4
4
4
8
4
5
7
7
LoeN
INSTRUCTION TYPE
0471
0481
0485
B 610
J 199
183
184
578
L (Ul N75 R
184
0489
B
CARD
184
184
184
184
184
0491
0501
0506
0513
N 000
B 221 l
0520
0524
0528
0529
0530
B 538
8 610
H 577
185
080
021
186
,
N14 H99
M Ma3 H45
PROCESS BYPASSED CARDS l
GET
XL3+1
CKCOM
4
Z
Z
4
1
l
Z
1
4
Z
I
Z
Z
Z
Z
Z
l
l
'+
0534
4
4
4
7
0538
185
185
S 100
S
S
B 106
185
185
185
*
08
'1"'7
READ IN MAIN LINE
OVERLAP
Z
I
Z
Z
Z
Z
Z
Z
28
-BEGINNING OF NEW CARD ANALYSIS
01
10
11
12
13
14
15
16
0
SFX CT
PAGE
-START OF MAIN LINE
10 99
11 00
11 01
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
OP
3741l
-VERSION 3
B
BER
GETXT
...
B
PUT
GETXT+3
INPUT+80
INPUT+21
N2+6,INPUT+I3
INTAP,INPUT+l
NOISE
TPERR
XXXX
PUT LAST RECORD
GET ROUTINE
READ TAPE
CHECK FOR NOISE
EXIT
8
0542
0.546
0550
0557
0565
I
,
186
186
H 446 01'3
M (U4 001 R
5
0569
425
B 221 L
4
0574
8 000
.,.
0578
n
M (US 118 W
N 000
B 221 l
M H86 M91
B 000
4
185
186
186
186
186
B
-IMAGE TO OUTPUT AREA
...
LInTn
n"lr
("On
,;)Or;.
"V T
-'-- ..,
'7
.c;..
""'AIT;}
OUTAP,OUTPUT+l
0
TPERR
'OOO',HOlOC
XXXX
B
PUTXT+3
SBR
HOLOe,XL3
MLC
IMAGE+80.CUTPUT+80+X3
MlC
CHAIN 10
MLC
MLC
MlC
MLC
MLC
MLC
MlC
MLC
MLC
WT
NOP
BER
MlC
WRTXT
PUT
1.10 T
WRITE TAPE
PUT ROUTINE
WORK AREA TO OUTPUT
~.
Z
8
0582
Z
Z
Z
4
5
0590
1
0599
l
I
4
4
0594
Z
1
Z
1
0606
0610
0614
0621
Z
Z
1
1
0628
0629
1
0630
0631
0632
0633
0634
0635
0636
Z
l
l
Z
Z
l
l
1
1
1
1
1
1
u
LAn
au?
~o.,
.J.Qf
181
181
181
187
18'7
187
188
188
H 105
M M91 099
M
180 111
M
M
M
MACRO
GEN
GEN
GEN
M
GEN
188
188
M
GEN
188
188
188
M
M
GEN
189
GEN
189
189
M
M
GEN
GEN
189
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
seQ
PG LIN
LABEL
OP
TPYET
CKTAP
MlC
A
BCE
1242
1243
1244
1245
1246
.1.247
1248
124.9
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1261
1268
1269
1210
1211
1272
11 27
11 28
11 29
11 30
11 ~l
11 32
11 33
11 34
11 35
11 36
11 31
11 38
11 39
11 40
11 41
11 42
11 43
11 44
11 45
BW
CS
SW
MRCM
BW
SPGlIN S
S
S
PUTXT
SAVE2
CKCOM
CK2
46
41
48
49
50
11 51
11 52
11 53
11 55
11 56
11 51
11 58
1278 11 59
1219 11
1280 11
1281 11
1282 11
1283 11
1284 11
1285 11
1286 11
1287 11
1288 11
1289 11
1290 11
1291 11
60
61
62
63
64
65
66
67
68
69
10
11
12
B
ORG
BCE
MN
MZ
BeE
CHAIN
BCE
BCE
BCE
MlC
Bwl
B
Mew
sw
MlC
LCA
MCW
n
.... ,..
+80,HOlDC=3
WRTP,XL3-2,O
DCWXT, DCWSk2
SPGLIN,INITSW
INPUT+80
INPUT+21
INPUT+l,IMAGE+l
RTNJB,JOBSW
IMAGE+5
XL3+l
Q. WRITE YET
Q. DCW GT 30 CHARS
Q. DA RECORD
CLEAR IMAGE AND
INPUT AREAS
Q. JOB CARD
WIPE OUT PG/llN NUMBR
ZERO INDEX
LOCATIONS
XXXX
*
BVPASS,INPUT+6,*
INPUT+75,CK2+7
INPUT+15,CK2+7
BVPASS,IRSWZ',O
3
nt
••
,..w-...,. ......
C
XLl,'I9G'
'I99',Xll
PLSCAN
GOBK.INPUT+14+Xl,+
EQUADD+l+Xl
INPUT+15,EQUADO=4
XLl+2
INSTR,EQUAOD
CTRlOP,EQUAOO,
INSTR
BCE
B
1
1
0631
M
GEN
0638
A M88 M91
V J85 H92 1
V 692 H87 1
1 080
I
Z
Z
I
Z
Z
l
l
11"\.11 ...... ,.
...
~.
V"I
•
06-45
z
1
8
0728
Z
Z
1
1
Z
Z
Z
EXIT
Z
Z
Q. COMMENTS CARD
Z
l
RETRIEVE TABLE FUNCTN
THAT WAS
GENERATED BY PASS 3
8
8
8
0653
0661
0669
0613
0671
0684
0692
0696
0100
0701
0102
0706
0706
0714
0721
I
GOBK
SW
TYPE
l
rLu~rU,!~rUIT~~TA~,T
MCW
S
BW
INSTRUCTION
ALTER NO TO FIXED FORM Z
Q. IS THERE LABEL
I
PROCESS LABEL
l
MNEMONIC TO FIXED FORM l
l
RESET SCAN SWITCH
INPUT+84,IMAGE+BO
*+5,INPUT+6,2
PROlBl
INPUT+18,IMAGE+16
SCANSW
'OOC',FREEA=3
BLANK4,EQUACO
'I9I',XL1
Dl.r:
A
LQeN
Z
Z
PLSCAN
Bl
PLUSFD BCE
SFX CT
Z
S
11
11
11
11
11
1273 11 54
1274
1275
1276
1217
BW
OPERANDS
PAGE
3741l
-VERSION 3
Z
Z
.,
L
Z
l
Z
l
I
Z
Z
Q. REGULAR INSTRUCTION Z
Q. CONTROL OP
Z
Z
4
4
1
8
4
4
1
1
4
8
7
1
7
8
4
7
4
1
1
7
8
1
0736
0731
0738
0739
0146
0754
0758
0165
0769
0116
0783
S
B 000
*
191
191
192
192
o 015 735
Y 015 735
B 520 M95 0
MACRO
GEN
GEN
GEN
B
8
B
M 084 180
V
B V38
M 018 116
,
N15
M98
Nil
M N01 089
t
192
193
193
193
193
M M86
L H62
8'1'7
... I
192
192
192
192
758 006 2
C 089
A N01
B 790
B 198
0805
4
S
0198
0812
0817
0825
0829
0836
0840
0848
0856
8
S 105
S 100
0706
8 520 006
189
189
fecf
021
D
U
7
7
4
8
f
CARD
190
190
190
190
190
190
191
191
191
191
191
P 001 101
V 481 199 1
""'Jnn
Vf7V
5
8
4
B 518 097 ·0
29
193
193
...
194
T
0/4 +
194
194
194
194
194
195
n/r::.
V#.J
N04
089
N/2
015 NIl
S 091
M
V N75 NIl
8 (61 NIl
8 N15
195
1
195
195
195
*-SCAN FOR COMMA OR BLANK
*
CCMSCN SBR
S
SW
TSTCCM A
A
CSCNXT+3
XL3+l
INPUT+21+X2,SCANSW
+1,XL2
+I,Xl3
INDEX LOCATION 3
CONTAINS TOTAL
POSITIONS SCANNED
INCLUDING COMMA OR
BLANK FOR OPERAND
Z
Z
I
I
Z
4
4
7
7
1
0860
0864
0868
0875
0882
H 932
S 100
OKI N15
,
196
NI2 094
A NI2 099
196
196
A
195
195
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
OP
OPERANDS
1292 11 73
BCE
1293
1294
1295
1296
1291
1298
1299
1300
1301
1302
1303
1304
1305
1306
1301
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
C
BE
PRSCXT,INPUT+20+X2"
INPUT+21+X2,BLANK2
CSCNXT
XL2,'54 1
SCNERR
TSTCOM
SCANSW=l
XXXX
BBIT,IMAGE+5
eSCNXT,IMAGE+75,3
NUREC
SEQ
PG LIN
11 74
11 15
11 16
1324
1325
1326
1327
1328
1329
1330
1331
13·32
1333
1334
1335
1336
1331
1338
1339
1340
1341
C
BE
B
11 71
11 78
11 19
11
11
11
11
11
11
11
80
81
82
83
84
85
86
11 87
11
11
11
11
11
11
11
11
11
11
11
88
89
90
91
92
93
94
PRSCXT cw
CSCNXT 8
SCNERR MI
BCE
•
..
FR2FIX SBR
Mew
Mew
SCNDEX C
BH
BE
C
au
MN
A
97
98
12 01
12 02
12 03
1'\
~_
B
B
CKADJ
SCANS
DOMIN
BeE
EQU
BeE
BeE
BCE
BCE
v ..
D\"C:
12
12
12
12
12
12
12
12
12
12
12
12
12
12
05
BeE
BeE
08
09
10
11
12
13
14
15
16
11
18
12 19
12 20
12 21
12 22
SFX Cl
INDEX LOCATION 2
CONTAINS TOTAL
POSITIONS SCANNED FOR
ALL OPERANDS
SCANSW SHOWS WHETHER
SCAN TERMINATED BY
COMMA OR TWO BLANKS
FR2FXT+3
BLANK,W6AREA
XL2+1,XL3+1
XL3,'04'
DOADRS
eKADJ
INPUT+18+X3,'+X'
CKADJ
INPUT+19+X3 t IMAGE+27+Xl
+K4K-3,Xl3
SCNDEX
CKMIN,INPUT+18+X3,+
*-1
Z
Z
Z
Z
I
8
7
5
1
5
Z
4
I
4
Z
4
I
7
z
8
I
4
l
4
7
1
7
z
Z
.ANY CHARACTER
ADJ
OR INDEXIl\G
Q. INDEXING
PROCESS INDEXING
CHARACTER ADJUSTMENT
OR AREA DEfINITION
LITERAL CODE
ISADJ,INPUT+18+X3,ISAOJ,INPUT+18+X3,=
MZ
MN
SW
A
CW
MlC
B
DOADRS
W3AREA
+SCANB,W3AREA
XL2.HOLD3
W3AREA,XL2
'00'
INPUT+19+X3,W3AREA-4+X2
XL2+1,XL3+1
INPUT+20+X3,W3ARE_-4+X2
INPUT+20+X3,W6AREA
IMAGE+24+Xl
W3AREA-4+X2,IMAGE+26+Xl
IMAGE+24+Xl
HOLD3,XL2
SCNDEX
z
I
Z
l
5
7
5
1
7
4
8
Z
1
Z
Z
8
1
"7
L.
.I.
z
PROCESS CHARACTER
ADJUSTMENT
5
l
Z
I
Z
BCE
B
ISAOJ SBR
PRQADJ S
MLC
MLNS
MLC
MLC
S
I
l
Z
Z
Dr~
~
06
01
3741L
PAGE
LoeN
INSTRUCTION TYPE
0889
B 925 OKO
C OK1 H60
B 929 S
C 094 N14
B 933 5
0891
0904
0909
0916
0921
0925
0929
0933
0940
0948
t
B 815
) N15
B 000
y 188 105
B 929 115 3
B 534
30
CARD
196
196
197
191
191
191
197
197
191
198
198
• CONVERT fREE TO fIXED FORM
95
96
11 99
12 00
.L:JL:J ..LL
"")~"")
LABEL
-VERSION 3
I
Z
Z
Z
I
0952
H
0956
0963
M H59 H71
M 095 100
C 099 Nl1
0970
0977
0982
0981
0994
0999
1006
1013
1017
532
/50 U
*17 S
e OA8 N19
B
B
B tl1 I
0 OA9 IS1
A N22 099
B 970
B 134 OA8 +
198
198
198
198
199
199
199
199
199
199
200
200
1023
1
,
8
1
1
4
4
7
7
Z
1
Z
Z
l
Z
l
l
ADD CHAR ADJUSTMENT TO I
FIXED FORM
I
Z
I
4
7
7
7
7
4
7
4
1
4
1025
1026
1021
1035
,n'2L
.l.V..;;JU
1037
1045
1046
1041
1051
1055
1062
1069
1076
1080
1081
1094
1101
1108
1112
1119
1123
1130
B
8
B *51 OA8 -
B
200
200
200
200
U
D
..,nn.
c.vv
B *51 OAS =
201
B
201
8
201
B 150
H H74
201
S N25 H74
M 094 H65
0 H14 094
M N27
M OA9 HPO
S 095 100
y 080 HPO
0 080 H17
• 154
A HPO IS6
) 1S4
M H65 094
B 910
201
201
201
202
202
202
202
202
202
203
203
203
203
203
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
SEQ PG
1342
1343
1344
1345
1346
1·347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
12
12
12
12
12
12
12
1.2
12
12
12
12
12
12
12
12
12
12
12
12
12
12
..
LIN
LABEL
OP
OPERANDS
23
24
25
26
21
28
29
30
31
32
33
34
35
36
37
38
39
40
CKMIN
SBR
W3AREA
OOMIN,INPUT+18+X3,PROAOJ
FREEA t XL3
XL3,+OOl
FIXER
FREEA t Xl3
BLANKtXL3
'*',INPUT+20+X3
FREEA,XL3
INPUT+21+X3,IMAGE+17+X1
XL3
ABBIT,XL3
BLANK f ·4000-1 +X3
W6AREA,IMAGE+23+Xl
XXXX
FIX5W=1
'OOO',XL3
ABIT,IMAGE+5
*+8,XL1,O
'OO3',Xl3
'===',IMAGE+70+X3
ABBIT,IMAGE+1+X3
FR2FXT,FIXSW
LTER2
1369
1370
1371
1372
11~"'~
...
1374
1375
1376
1371
1318
1319
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
12 55
12 56
12 51
,l.~l~
<')
.1.£
~
1-
:J"'t
12 58
12 59
12 60
12 61
12 62
12 63
12 64
12 65
12
12
12
12
12
12
12
DOADRS S
C
BL
A
Ml
Mew
MLC
MReM
SBR
HZ
MCW
MN
FR2FXT B
FIXER sw
OPCER Mew
41
42
43
44
12 45
12 46
12 41
12 48
12 49
12 50
12 51
12 52
12 53
1368
BeE
B
66
67
68
69
70
71
12
MZ
aeE
Mew
MCW
MZ
BW
B
-VERSION 3
SFX
ACCOUNT FOR POSSIBLE
MULTI-CHAR ADJ OF
+1-2 TYPE
PROCESS ADDRESS
Q. OlLEGAl ADDRESS
LENGTH
Z
Z
STATEMENT
BAD BUT PROCESSABLE
LoeN
INSTRUCTION TYPE
4
1134
1138
1146
1150
1157
1164
1169
1116
1183
1190
1191
1204
1208
1215
1222
1229
1233
1231
1244
1251
1259
1266
1273
H
8
4
7
Z
7
Z
Z
Z
5
1
Z
1
Z
1
Z
eXIT
coDe
CT
Z
Z
Z
MOVE ADDRESS TO IMAGE
PAGE
3141L
Z
I
l
I
I
Z
1
7
7
7
4
1
1
7
4
4
1
7
H14
S
*55
M98
099
C 099 N30
B 533 T
A M98 099
y H59 099
M N31 OBO
203
--204
204
204
204
204
204
205
205
M M98 099
P OBI 1/1
H 099
205
205
M H59
Y 189 099
I 19
205
0 H77 IS3
206
206
205
B 000
206
206
N32
f
M M86 099
y 187 105
Z
l
8
1
1
1
Z
Z
8
4
1280
B
M
M
y
V
1288
B
Z
4
Z
Z
1
7
1292
1296
1303
H T85
, OK1 N15
+ N41 100
7
l..
0
0
... ",'1 t'\
,l.;:;' I.V
0
I
I
7
4
1318
1325
1329
1336
1341
1349
1356
1361
z
CARD
203
B *21 OAB B
31
206
566 089 0
N35 099
N38 1GO
189 1+1
529 N32 1
U09
206
201
201
201
207
207
*
*SCAN FOR t SIGN
*
SCANAT SBR
SCNATX+3
INPUT+21+X2,SCANSW
SW
'5l0',XL3+1
ZA
e
are
NDASCN,INPUT+21+X3,'
H.l.HLr
+10,Xl3+1
S
A1ALF
a
Xl2,Xl3
NDASCN C
BE
LTERR
BCE
SETSW,INPUT+22+X3"
INPUT+23+X3,BLANK2
C
BU
LTERR
Xl2+1,XL3+1
S
SXL
+2,Xl3
A
A
Xl3 t Xl2
XXXX
SCNATX B
SCANSW
SETSW CW
B
SXL
A 1
A.
0,",1;
•
-IMPROPERLY
•
LTERR
SCAN IS EXECUTED FROM
RIGHT TO LEFT
MlZS
CW
Q. NO ENDING
t
SIGN
,
SIGN
FOLLOWED BY COMMA OR
TWO BLANKS
Q. IS ENDING
Z
Z
Z
l
l
8
1
5
Z
Z
7
7
1
4
4
Z
4
I
Z
7
Z
Z
Z
EXIT
7
5
1368
1375
1382
1386
1390
0
T")n
"7
no'
VU.,l.
207
,
208
208
208
S N43 100
208
B TlO
C 094 099
B T94 S
8 T86 082
208
209
,
209
OB3 H60
209
209
a T94 I
S 095 100
209
C
A N44 099
A 099 094
8 000
209
N15
210
210
210
210
8 f61
210
y
IB1 105
)
N32
210
210
)
CODEn STATEMENT ROUTINE
ABIT,IMAGE+5
FIXSW
MARK STATEMENT
BAD BUT PROCESSABLE
4
1394
1401
1401 AUTOCOCER-PASS 4-LEFT MAIN LINE
SEQ PG LIN
LABEL
1392 12 73
1393
1394
1395
1396
1391
12
12
12
12
12
1398 12
1399 12
1400 12
1401 12
1402 12
1403 12
1404 12
1405 12
1406 12
1407 12
1408 12
1409 12
1410 12
1411 12
1412 12
1413 12
1414 12
1415 12
1416 12
1417 12
1418 12
1419 13
1420 13
1421 13
1422 13
1423 13
1424 13
1425 13
1426 13
1427 13
1'4-2a 13
1429 13
1430 13
1431 13
1432 13
1433 13
1434 13
1435 13
1436 13
1437 13
1438 13
1439 13
1440 13
1441 13
74
75
LTER2
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
91
98
99
00
01
02
03
OPERANDS
B
OPDER
COMSCN
"',INPUT+20+X3
+l t XL3
SCNATX
8
MCW
16
77
78
79
OP
A
B
*PlACE LITERALS ON MASTER TAPE
*
CAll
Bw
CKlOR,lITSW=l
RT
SYSTAP,INPUT+l
RTW
SYSTAP,DOPROG
NOP
0
TPERR
BER
OVLLIT
B
SYSTAPtOOPRQG
RECALL RTW
NOP
0
TPERR
BER
BYPASS,IM~GE+75t
CKlOR BCE
NUREC,IMAGE+15,C
BCE
SYSTAP,INPUT+l
RT
RT
SYSTAP,INPUT+l
SYSTAP,EOJRT
RTW
NOP
0
BER
TPERR
EOJRT
B
..
..*GENERATE
PROlBl SBR
MlC
MLC
B
MLC
A
06
Q. ANY LITERALS
READ IN PROCESS
LITERALS OVERLAP
GO TO ROUTINE
RECALL MAIN LINE
OVERLAP
Q. LITERAL ORIGIN
Q. EXECUTE
SKIP PAST OVERLAPS
AND READ IN END OF
JOB OVERLAP
XTlABl+3
INPUT+l1,IMAGE+13
IMAGE+13,W6AREA
PROLAB
W3AREA,IMAGE+56
+1,rOTLBL
XXXX
Z
4
B
1
Z
Z
4
1
1
Z
4
1405
1409
1413
1420
1421
Z
1
8
8
Z
8
Z
4
Z
Z
4
Z
Z
1
8
4
5
Z
1
Z
Z
Z
I
Z
I
8
537
M
CARD
211
211
8 860
N45 080
211
211
A NI2 099
8 T82
5
8
8
8
8
4
5
4
1431
1439
1447
1455
1459
1464
1468
1476
1480
1485
1493
1501
1509
1517
1525
1529
1534
211
V U85 N46 1
lUI 001 R
M
L (Ul N75 R
N 000
B 221 l
B N75
l lUI N75
000
221 l
B 520 175
B 534 175
M lUI 001
M lUI 001
L lUI 706
R
N
8
C
R
R
R
211
212
212
212
212
212
212
213
213
213
213
213
214
8 221 l
214
214
214
B 706
214
N 000
4
1538
1542
1549
H
M
M
V77
011 113
113 H77
214
215
215
!.fi'.'"
ft"Tf
215
215
Z
7
7
7
J~
"T
.L..,IJV
11::C:L
D
1
Z
1
7
1560
M H14 156
A NI2 198
B 000
c..
-CONVERT FREE FORM NUMBER TO FIVE CHARACTERS
U
215
7
1561
4
1514
4
1518
8
4
1582
1590
Z
Z
7
1594
+ H75 H76
4
1601
B
V82
216
1
Z
1
I
4
1605
1609
1617
1624
H
W27
216
216
217
215
it
..
SBR
BCE
CVT5XT B
ZA
CVRT5
•
B
CVT5XT+3
*+5,W5AREA t T
XXX X
W5AREA-l,W5AREA
CVRT5+4
1
Z
Z
H V93
B V94
216
H16 +
B 000
216
216
216
* CHECK FOR FINAL OPERAND
..
FNlOP
SBR
FNlXT+3
FNlXT,SCANS~
FNLXT
BW
MI
B
20
21
22
INSTRUCTION TYPE
Z
Z
09
19
lOCN
32
ENTRY ADDRESS fOR LABELS
XTLABL 8
13
14
15
16
17
18
CT
SFX
07
08
12
PAGE
*
04
05
10
11
3·741l
-VERSION 3
ABIT,IMAGE+5
XXXX
Q. FINAL OPERAND
FOLLOWED BY TWO
BLANKS
8
1
4
V W24 N15 1
y lS·7 105
B 000
211
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
SEQ PG LIN
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1451
1458
1459
1460
1461
1462
1463
1464
l4.§~
1466
1467
1468
1469
1470
1471
1412
13 23
13 24
13 25
13 26
13 27
LABEL
a
FLAXT
B
•
*CONVERT
•
4
7
1628
1632
4
1639
INSTRUCTION TYPE
Cl-RO
ZA
BCE
B
Mew
MPYlP
MULT
ZA
A
A
MlZS
ZA
MLNS
lA
BeE
A
S
B
NXTDGT S
aWL
S
BAV
lOOPl
-
LBlXr
FLAXT+3
IMAGE+21,w5AREA
CVRT5
XXXX
LINK TO SUBROUTINE
1
I
l
Z
4 -1643
H W46
217
211
211
211
+ 121 H76
8 V7S
S 000
SYMBOLS TO THREE CHARACTER ENTRY ADDRESS
PROLAB SBR
1474 13 55
1475 13 56
1476 13 57
1479 13 60
1480 13 61
1481 13 62
1482 13 63
1483 13 64
1484 13 65
1485 13 66
1486 13 61
1481 13 68
1488 13 69
1489 13 70
1490 13 71
1491 13 12
LoeN
..
CVTFLA SBR
ZA
1473 13 54
,-~.--"........
SFX CT
33
*
13 29
13 30
13 3i
13 32
13 33
13 34
13 35
13 36
13 37
13 38
13 39
13 40
13 41
13 42
13 43
13 44
13 45
13 46
13 47
13 48
13 49
13 50
13 51
13 52
13 53
,~,--.
OPERANDS
PAGE
3141L
*CONVERT FLOATING A OPERAND ACTUAL ADDRESS TO FIVE CHARACTERS
13 2.8
58
lit}}, 13
- _.1478 13 59
OP
-VERSION 3
A
BAV
MLlS
MlC
MlNS
M.L. ZS
8
LBLXT+3
+2,HOLD2
*+5,W6AREA,
*+8
SFXHlO,W6AREA
W6AREA-2,HOL04
W6AREA,HOlD4
W6AREA,HOlO4-2
BlANK,HOlD4
FACTOR,HOlD7
HOlO7,HOLC1
NXTOGT,HOlO1,+
HOLD4,HOlC7-2
+l,HOLDI
MUlT
+1,HOLD2
MPYLP,HOLC2,B
W5AREA
*+1
+96,HOlD7-5
LOOPl
HOlD1-6,W3AREA
HOL01-3
HOLD7-5,.+4
IQNE,W3AREA-2
XXXX
ADO SUFFIX CHAR TO
LABELS FIVE CHARS
OR lESS
l
7
Z
1
1641
1651
1658
1666
1610
1671
1684
1691
1698
1105
1712
1719
1720
1728
1735
l
4
1742
1146
1153
1761
1765
1110
4
Z
Z
7
Z
l
8
4
Z
7
1
1
FOLD SYMBOL TO
FOUR CHARACTERS
I
l
I
Z
MULTIPLY BY FACTOR
Z
l
Z
Z
7
7
7
7
1
8
H VlO
+ N44 H64
B Pl70 H17
217
218
218
218
218
218
219
8 W77
H86
+ H15
A H77
A H77
H17
H71
H11
H69
y H59 H71
M
219
+ H48 Ha4
0 Halt HB5
+
8 X46 Ha5 +
A H11 H82
S N12
X20
S N12
V X12
S H76
B X70
A N48
H85
B
H64
H64 B
219
219
219
219
220
220
220
220
220
221
221
221
221
221
221
Z
7
l
l
I
8
4
Z
,
7
;J
-1. f I ,
0
CHARACTER TABLE ENTRY Z
ADDRESS
I
7
1782
1189
1193
1800
1807
M H81
0 H19 V03
y 189 H72
222
B 000
222
FOLD FIVE CHARACTER
Dt:C'11I T
n. .... ..:Iv&...
Tn
J\,J
TUnee
101'\1:1:
L
5
r!
4
I
l
l
1
z
8
7
4
'I ... . , ....
n
v ....
l
H79
A
l
y H18 H74
A/U
222
222
*
*PROCESS DCW, DC, OSA CARDS
*
DCWCD
CKDCW
BCE
BeE
BCE
BCE
MLC
MCW
SW
B
BCE
B
OCWAlF,INPUT+21,'
ARDEF,INPUT+21,=
CKDCW,INPUT+21,+
CKDCW,INPUT+21,INPUT+72,INPUT+73
• +'
Dewsw
COMSCN
ISDSA,INPUT+22,'
Ft\lOP
Q. ALPHA CONs-rANT
Q. AREA DEFINITION
Q. NUMERIC LITERAL
•
222
222
Y58 021 +
Y58 021 M 012 073
M N49
, H89
223
223
224
224
SH 1FT RIGHT
I
Z
SET NO lONING SWITCH
SCAN FOR BLANK
Q. AOCON OF LITERAL
CHECK LAST OPERAND
Z
4
1811
1819
1827
1835
1843
1850
1854
Z
4
1858
B 860
Z
8
8 Y90 022
I
'+
1862
1870
l
Z
Z
8
8
8
7
4
B K44
021
B L01 021 =
B
B
B
W05
•
223
223
223
22:3
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
seQ
LABEL
OP
OPERANDS
1492 13 73
BeE
74
15
76
77
BWZ
ISDSA,IMAGE+15,J
ISDCW,INPUT+22,2
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
PG LIN
13
13
13
13
13
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
MLNS
MZ
MCW
BWl
B
HZ
SW
MLC
MCW
BeE
BCE
BeE
B
HZ
13 80
13 81
82
83
84
85
13 86
13 87
13 88
13 89
13 90
13 91
13 92
13 93
13 94
13 95
13 96
13 97
13 98
13 99
14 00
14 01
14 02
14 03
~e""""
;I.;)":>
~
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
14 05
14 06
14 07
14 08
14 09
14 10
14 11
14 12
14 13
14 14
14 15
14 16
14 17
14 18
14 19
I
~«t
DSAX1
HZ
eKAOP
MLC
MLC
BeE
aWL
BWl
B
MLC
B
DCWACT MLC
MLC
' " I.
v"'t
14 20
14 21
14 22
DCwAST
BMPCTR
DSETAD
CKMACR
+2,IMAGE+15
INPUT+21,IMAGE+27
BlANK,INPlJT+21
*+5,IMAGE+75,K
*+8
BLANK,IMAGE+15
OSASW2
'OOl',FREEA
INPUT+34,IMAGE+53
DSAoe,INPUT+22,'
DSADe,INPUT+22,+
DSADt,INPUT+22,FR2FIX
IMAGE+21,INPUT+21
IMAGE+27,IMAGE+40
'03',IMAGE+7
'03',XL2
oeWAST.INPUT+6,
DCWAST.IMAGE+75,S
*+5,INPUT+6,2
DCWAST
INPUT+IO,IMAGE+21
eVTFlA
W5AREA,IM~GE+21
W5AREA,IMAGE+61
n
D
rVUArn
\.-1'\'·1104""
A
MCW
Xl2,ORGeTR
'*',IMAGE+17
ORGCTR,IMAGE+61
NUREC,lMAGE+15,P
NUREC,IMAGE+75,X
DCWXT,DSASW2
INPUT+51,IMAGE+53
A
BCE
BeE
BW
MLC
Mle
MLe
MLC
C
BH
MN
BWl
MZ
MCW
Mew
SW
Xl2,IMAGE+7
XL2,'030'
DeWXT
'S',INPUT+15
*+8,IMAGE+75 t B
IMAGE+75,INPUT+75
HOLDe,Xl3
INPUT+80,GUTPUT+8C+X3
DCWSW2
3741L
INSTRUCTION TYPE
8
8
1874
1882
B Y90 175 J
V K71 022 2
224
224
1890
1891
1904
1911
1918
1926
1930
1931
1941
1948
1955
1963
1971
1979
M N52 089
D N44 115
224
225
225
225
225
225
226
226
226
Z
7
CODE RECORD
I
7
7
7
Z
Z
Z
l
Z
I
Z
4
Z
Z
7
7
z
z
CONVERT FREE TO FIXED
Z
1
I
INSERT COUNT
Q. ANY LABEL
Q. LITERAL
Q. ACTUAL ADDRESS
PROCESS ACTUAL
ADDRESS
ADDRESS TO FIXED
FORM
BUMP ORIGIN COUNTER
SET TO DeW ASSIGN ADDRESS
Q. EQU STATEMENT
Q. OS STATEMENT
Q. OSA STATEMENT
MOVE CONSTANT TO
FIXED FORM
COUNT TO FIXED FORM
Q. COUNT GREATER THAN
30
WRITE FREE FORM RECORD
ON TAPE
34
lOCN
z
SET DSA SwITCH
PAGE
SFX CT
Q. OSA STATEMENT
Q. DC. Dew STATEMENT
*-PROCESS OSA CARDS, SUBSET OF DCW
*ISDSA MLC
'Oll',XLI
13 79
13
13
1503 13
1504 13
1505
1506
1501
1508
18
-VERSION 3
Z
Z
Z
I
Z
I
I
l
I
Z
Z
.,
'"I
Z
Z
l
8
4
7
8
8
8
4
7
7
B L54
022 +
M
1
7
'"T
LVV'"T
7
1
7
8
8
4
7
4
,.
1
1
1
1
5
7
8
1
7
1
4
1983
226
I
B L54 022 8 952
2004
2011
2019
2027
2035
2039
2046
2050
2051
7
I
Z
l
l
I
M 034 153
B l54 022
7
8
8
I
1
z
M N55 M98
1990
8
Z
115
H91
1997
8
Z
,
7
Z
Z
B I31
y H59
y 121 021
y 121 140
Z
z
Y 021 127
M H59 021
V Z30 175 K
N57 107
H N57 094
B -68 006
V -68 115 S
V -39 006 2
8 -68
M
CARD
010 121
8 WZ8
226
227
227
227
227
227
228
228
228
228
228
229
229
229
229
H16 121
M H76 161
229
")ALI.
8
2068
2075
2082
A
M
"7
2089
B 534 175 P
8 534 115 X
V JB5 H91 1
M 051 153
2097
2105
2113
2120
2121
2122
2129
2136
2141
2148
2156
2163
2110
2117
M
_on
-U7
094 H58
N58 117
A H58 161
M
M
M
094 107
C 094 N61
8 JB5 U
0 N62 075
V
J63 175 B
y 175 075
M M91 099
M 080 I 11
, H92
..,..,0
230
230
230
230
230
231
231
231
231
231
231
231
232
232
232
232
232
233
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
SEQ PG LIN
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1510
1571
1512
,. .,.. .......
14 23
14 24
14 25
14 26
14 27
14 28
14 29
14 30
14 31
14 32
14 33
14 34
14 35
14 36
14 37
14 38
14 39
14 40
14 41
14 42
14 43
14 44
14 45
14 46
14 41
14 48
14 49
14 50
14 51
14 52
14 53
~
I
e"i
.1:11;;)
.1 ....
:.J ....
1574
1515
1576
1517
1578
1579
1580
1581
1582
1583
1584
1585
1586
1581
1588
1589
1590
1591
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
55
LABEL
OP
OPERANDS
B
DCWXT
ew
TPYET
OSASW2,DeWSw2
*+5,LITSW2
NUREC
LITRTN,INPUT+21,'
LTGEN,INPlJT+Z2,+
LTGEN,INPUT"22,lTGEN,INPllT+22,'
LITRTN
XlZ+2
SCANAT
FNLOP
ACNRT,DSASW2
+30,XL2+1
eKAOP
+20,Xl2+1
NOZONE,DCWSW
INPUT+21,INPUT+21+X2
DCWSW
CKAOP
INPUT+22
INPUT+24,W5AREA
eVRT5
ABBIT,IMAGE+4
W5AREA,XL2
8w
B
BCE
BeE
BCE
BCE
B
PDCWLF S
DCWALF B
B
BW
S
B
ISDew
s
BW
MLZS
NOlONE ew
B
ARDEF sw
ZA
B
MLIS
MLNS
Mle
e
BH
HZ
,;)
it'"
T.1v,AL.:J T .1
Mew
XL3,W3AREA
XL3,'OO6'
DOBIG
XALF1,INPUT+22,'
XLITI
PUT
"',IMAGE+75
LAREA+72,INPUT+72
57
BL
BCE
58
59
60
61
62
63
B
LTGEN
64
65
66
61
68
8
Mew
Mew
Mew
Mew
Mew
MCW
B
69
S
S
70
B
11
14 12
XL2,'053'
CKAOP
BB IT, I M-AGE+5
CKAOP
PDeWLF,INPUT+22,'
A\,Nf"\t
e
Z
4
I
1
Z
8
4
l
Z
Q. AOCON Of LITERAL
8
8
Z
Z
4
4
SCAN FOR ENDING , SIGN Z
CHECK LAST OPERAND
Z
Q. ADCON OF LITERAL
Z
ZONE CONSTANT
Z
7
Z
I
I
I
Z
CODE RECORD
I
I
l
Z
.,,,
v.~
..
MARK BAD STATEMENT
Q. AOCON OF ALPHA LIT
"1
Dcweo
it
*CAll IN OA ROUTINE
Z
I
Z
I
Z
"7
L
Z
Q. LARGE LITERAL
I
I
Q. ALPHA LITERAL
l
l
PUT AOeON
l
seT UP LITERAL
Z
TO BE PROCESSED
Z
NOTE. ADDRESS CONSTANT Z
LOGIC MAKES IT
I
RECURSIVE
LAREA+74,lAREA+73
PROLBL
Xl2+2
4
8
1
PROCESS AREA
Q. ILLEGAL LENGTH
4
I
z
Q. CONSTANT lONED
8
8
I
I
I
I
OSAoe
56
RESET SWITCHES
z
Z
I
Z
Z
I
4
8
7
4
4
4
1
4
1
7
1
7
5
7
4
8
..,
loeN
INSTRUCTION TYPE
2181
2185
2192
B 638
)
H91 H92
2200
B
B
B
B
B
8
534
P31
MOO
MOO
MOO
P31
2204
2212
2220
2228
2236
2240
2244
2248
2252
2260
2261
2271
2218
2286
2293
2297
2301
2305
2312
2316
2323
2330
2331
2338
2343
2350
2354
"'''')·L
~
V--koit---H90 1
021 t
022 +
022 -
V K93 H89 1
236
)
236
236
V
5
B
S
l62 H91 1
N64 095
-11
N66 095
H89
8 -11
t
022
V18
B
y
0
M
C
8
y
189 104
H76 094
094 N69
-11 U
188 105
B -11
B K40 022
...1VV •
2369
fill 099 H74
C 099 N12
1
7
4
4
"'".
MN73
115
M H31 072
M
M
2420
M
M H33 H32
B V38
S 096
1
2436
S
4
2437
B
VII
236
236
237
237
231
231
231
237
231
,.,0
~
.... n
238
238
B A51 T
B +93 022
B 882
B 610
2421
2428
2432
236
236
+ 024 H76
1
1
5
1
233
234
Y 021 OKl
I
S 096
B 592
8 wos
S N43
4
4
7
1
1
233
23j
233
234
234
234
234
234
235
235
235
235
235
235
022
L.:JOL
8
CARD
233
I
2376
2383
2388
2396
2400
2404
2411
2418
2419
35
PAGE
3741L
SFX CT
B
BCE
&,. "LA""
-VERSION 3
238
I
238
238
239
239
239
239
239
239
239
240
240
240
240
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
SEQ
1592
1593
1594
1595
1596
1591
1598
1599
1600
1601
PG LIN
LABEL
14
14
14
14
14
14
14
14
14
14
*
73
74
75
76
DARTN
OPERANDS
RTft
SvSTAPtDOPRGG
NOP
BER
71
78
19
80
81
82
OP
B
FINOA
RTW
NOP
BER
B
TPERR
DASTMT
SVSTAP,OOPROG
0
TPERR
CKCOM
LTORG *
Dew
'0'
EQUAOD
'+X'
+K4K-3
+SCANB
'00'
+007
'* '
=01
8
4
5
4
Z
Z
Z
l
Z
Z
Z
Z
Z
Z
l
I
Z
Z
l
Z
Z
I
I
Z
."
3
4
1
2
1
2
2
3
3
2
3
1
1
,
•
.ft." ......
"UV.,,9
L
:J
'==='
I
l
I
I
Z
Z
Z
Z
Z
Z
l
l
I
l
I
3
3
2
1
1
1
2
1
3
3
2
1
3
1
2
2
3
3
'SID'
+10
+2
I ••
LITSW
Z
Z
2453
2458
2462
2410
2474
2419
Z
l
1219
1400
4
+80
'RSWZ'
FIXSW
5
Z
1
=03
'191'
'19G'
'199'
=04
+1
'54'
=01
'04'
1358
2449
3
2
3
4
3
3
3
FREEA
=01
+96
• +'
'011'
'001'
'03'
•'030'
*'
'S'
+30
+20
'053'
'OOb'
L (U1 N75 R
N 000
B 221 L
B N75
L (Ul N75 R
2441
4
Z
1270
INSTRUCTION TYPE
8
z
=03
1315
1329
GO TO OA ROUTINE
LoeN
Z
Z
Z
'000'
HOLDe
SCANSW
CALL OA ROUTINE
PAGE
3741L
SFX CT
0
1243
1298
-VERSION 3
Z
I
Z
2483
2486
2488
2491
2495
2498
2501
2504
2507
2511
2512
2514
2515
2517
2519
2522
2525
2527
2530
2531
2532
2535
2538
2541
2543
2544
2545
2546
2548
2549
2552
2555
2551
2558
2561
2562
2564
2566
2569
2512
CARD
240
240
240
241
241
241
241
241
N 000
8 221 L
B 706
2483
LIT
LIT
197
*23
36
LIT
AREA
LIT·
AREA
LIT
LIT
LIT
AREA
LIT
LIT
AREA
liT
LIT
AOtON
AOtON
LIT
LIT
LIT
AREA
t
T T
"'~I
LIT
LIT
lIT
LIT
LIT
AREA
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
241
241
242
242
242
242
242
242
242
243
243
243
243
243
243
243
244
244
244
244
244
~I_I-
L~4f'
244
245
245
245
245
245
245
245
246
246
246
246
246
246
246
247
247
247
1401 AUTOCODER-PASS 4-LEFT MAIN LINE
SEQ PG LIN
LABEL
OP
OPERANDS
1603 14 84
GRPMK5 Dew
EX
.
,I'
I
1602 14 83
-VERSION 3
OOZERO
3741l
SFX CT
SYSTEM GROUP MARK
z
Z
Z
1
1
loeN
PAGE
INSTRUCTION TYPE
LIT
2573
2574
B 000
37
CARD
241
247
248
1401 AUTOCODER-PASS 4 PROCESS JOB/CTL
SEQ PG LIN
1604 14 85
1605 14 86
1606 14 87
1607 14 88
1608 14 89
1609 14 90
1610 14 91
1611 14 92
1612 14 93
1613 14 94
1614 14 95
1615 14 96
1616 14 97
1611 14 98
1618 14 99
1619 15 00
1620 15 01
1621 15 02
1622 15 03
1623 15 04
1624 15 05
1625 15 06
1626 15 07
1627 15 08
1628 15 09
1629 15 10
1630 ·15 11
1631 15 12
1632 15 13
1633 15 14
1634 15 15
1635 15 16
1636 15 17
1637 15 18
1638 15 19
1639 15 20
f6-lio 15 21
1641 15 22
1642 15 23
1643 15 24
1644 15 25
1645 15 26
1646 15 21
1647 15 28
1648 15 29
1649 15 30
1650 15 31
1651 15 32
1652 15 33
1653 15 34
LABEL
OP
OPERANDS
..
JOB
1401 AUTOCODER-PASS 4 PROCESS JOB/CTl
-VERSION 3
3742l
SFX CT
LoeN
PAGE
INSTRUCTION TYPE
38
CARD
-VERSION 3
• PROCESS CONTROL CARD
*
DOPROG ORG
START CS
CS
SW
sw
SW
SW
SW
SW
SW
SW
SW
CW
RWD
RWD
RhO
MlC
B
MCW
MCW
sw
B
BeE
C
au
MlNS
CTL3
BCE
..
INPUT+84
3999
INPUT+21,INPUT+81
IMAGE+l,IMAGE+6
IMAGE+8,IMAGE+14
IMAGE+17,IMAGE+28
IMAGE+39,IMAGE+57
IMAGE+62,IMAGE+67
IMAGE+23
GRPMKl,GRPMK8
GRPMK3,GRPMK4
INITSW
INTAP
OUTAP
lITAPE
'OOO',HOlec
GET
INPUT+80,IMAGE+21
'I',IMAGE+75
3998
GET
NOCTl,lNPUT+6,.
INPUT+18,'CTl'
Noell
INPUT+21,Cll3+7
CTl2,CKPRO,
MLC
ZA
S
A
A
•
MLC
MlC
MLC
BCE
BeE
BCE
MLC
5
2657
1
4
1
2662
l
SET WORD MARKS IN
Z
FIXED FORM IMAGE AREA Z
l
Z
I
I
Z
INITIALIZE GROUP MARKS I
I
I
Z
Z
Z
4
7
7
7
GET JOB CARD
PROCESS JOB CARD
IDENTIFICATION
GET SECOND RECORD
Q. COMMENTS CARD
Q. CONTROL CARD
CHECK PROCESSOR SIZE
FOR VALID CODE
z
Z
1
I
PROCESSOR MACHINE
SIZE
7
4
Z
8,
I
I
I
I
I
Z
Z
Z
I
I
* INITIALIZE OUTPUT AREA AND SET UP BLOCKING SIZE
*
4
1
I
1
1
I
l
Z
Q. 16K PROCESSOR
Q. 16K PROCESSOR
Q. 8K PROCESSOR
7
1
4
7
INITIALIZE AREAS
7
Z
L
NoeTl
INPUT+21,PROCOR
INPUT+21,Xll
+30 t Xl1+1
XLI
XLi
FCTBL+Xl,FACTOR
'0',FACTOR-3
FCTBL-3+Xl,CKTAP+7
ISI6K,INPUT+21,6
ISI6K,INPUT+21,5
IS8K,INPUT+21,4
'3',PROCOR
2652
4
BeE
BCE
B
5
Z
Ark
OJ .........
eTl2
7
4
5
2515
2515
2579
2583
2590
2591
2604
2611
2618
2625
2629
2636
2643
2641
Z
Z
I
l
I
8
7
5
1
2669
2613
2680
2687
2691
2695
2703
2710
2715
2722
")"'7., ....
2575
I 084
I 199
f
,
,
,
,
,
,
t
t
)
021 081
101 106
108 114
117 128
139 151
162 161
123
085 H99
H44 185
H81
U (U4 R
U (U5 R
U (U6 R
M R16 M91
B 538
080 121
R17 115
M
M
,
198
B 538
B Q1l 006 ..
C 018 R20
8 Ql1 I
o 021 P29
8 P37 R13
n
251
251
251
251
251
251
252
252
252
252
252
252
253
253
253
253
253
253
254
254
254
254
254
254
255
255
,.. ... r '
L
L'::JV
D
£~J
1
2131
2132
2733
2137
2744
2751
2158
2762
2766
2713
2780
2781
2795
8
255
255
255
1
4
7
1
7
4
4
1
7
7
8
8
8
7
2803
2811
B
B
Q71
M 021 194
+ 021 089
S R22 090
A 089
A 089
M Ol7 H48
M R23 H45
M QZ4 652
B Q52 021 6
8 Q52 021 5
B Q33 021 4
M R24 194
255
256
256
256
256
256
256
257
257
257
251
257
1401 AUTOCODER-PASS 4 PROCESS JOB/CTL
SEQ PG LIN
1654 15 35
1655 15 36
1656 15 31
1657 15 38
1658 15 39
16~9 15 40
1660 15 41
1661 l~ 42
1662 15 43
1663 15 44
1664 15 45
1665 15 46
1666 15 47
1661 15 48
1668 15 49
1669 15 50
1670 15 51
1611 15 52
1612 15 53
1673 15 54
1674 15 55
LABEL
IS4K
ISBK
OP
OPERANDS
LCA
GRPMKS,39'3S
B
PUT
B
LDOPTB
LCA
GRPMK8 t 4318
Mew
MCW
B
.IS 1tJ_K
LeA
Mew
Mew
B
NOCTL
MLC
MLC
SSP
B
FeTBL
CKPRO
SET GROUP MARK AT END
OF OUTPUT AREA
'{,
PROCESS WHEN NO
CONTROL CARD
1684 15 65
l
H99 198
B
610
1
4
4
7
I
4
4
7
Z
Z
1
z
z
z
l
3
1
3
2
1
l
Z
'0'
I
'3'
Z
(
I
CON S TAN T S
AND
W0 R K
4
4
4
4
4
+30
l 1 N E
5
4
1
1
Z
·.
4
7
4
4
4
Z
Z
Z
,I •
1685 15 66
1686 15 67
1681 15 68
1688 15 69
1689 15 70
1690 15 71
1691 15 12
1692 15 73
1693 15 74
1694 15 75
1695 15 76
1696 15 17
2818
2825
2829
2833
2840
2844
2848
2852
2859
2863
2867
2871
2878
2885
2890
2897
2901
2905
2909
2913
Z
Z
Z
Z
z
DCW
Dew
Dew
Dew
DCW
LTORG *
'000'
Dew
*
*M A I N
INSTRUCTION TYPE
Z
I
(
'C Tl'
1675 15 56
1616 15 57
1671 15 58
1678 15 59
1619 15 60
1680 15 61
1681 15 62
1682 15 63
1683 15 64
LOCN
l
l
·,
4717
eWl98
FCTBL,FACTOR
'3',PROC.OR
INTAP
IS4K
0015
3051
7087
7127
3456
Sf X CT
Z
4317
CWI98
GRPMK8,4718
PAGE
3742L
-VERSION 3
H99
M
M
R25
31X
CARD
258
258
-258
B 4S-9
l
39
258
258
258
31V
B 469
l H99 11V
M R25
M 11X
258
259
259
259
259
B 469
Q91 H48
2.59
M R24 194
259
259
260
260
260
260
260
260
M
U (U4 B
B Q18
2914
1
1
lIT
LIT
lIT
LIT
LIT
LIT
LIT
2916
2917
2920
2922
2923
2924
2925
260
261
261
261
261
261
261
ARE A S
*
*LITERAl HOLD AREA
*
ORG
SAVE
LAREA EQU
*
oew
+00000
Dew
=10
,
Dew
'Dew
Dew =1
53
OS
DCW
'I'
9
OS
GRPMK3 DC
• ,
lAREA+1
HLDLIT EQU
3760
Z
Z
I
3159
5
3764
5
1
3774
3779
3780
3833
Z
Z
1
3834
l
Z
1
LABEL CONVERSION FACTR l
BIG LITERAL LABEL eNTR z
Z
ORIGIN COUNTER
4
5
z 10
z
I
Z
262
262
262
262
263
3843
3844
264
3760
*
*CCNSTANTS AND WORK AREAS
*
FACTOR Dew
BIGeTR DCW
ORGeTR Dew
'0000'
'00000'
'00332'
5
3848
3853
3858
264
264
264
1401 AUTOCODER-PASS 4 PROCESS JOB/CTl
SEQ
PG
LIN
1697 15 78
1698 15 79
1699 15 80
1100 15 81
1101 15 82
1702 15 83
1703 15 84
1704 15 85
1705 15 86
1106 15 87
15 88
15 89
1.5 90
15 91
1711 15 92
1112 15 93
1101
1108
1109
1710
LABEL
OP
OPERANDS
BlANK4
B2CNTR
HOLC4
W6AREA
HOLD7
HOLDl
SFXHLD
INITSW
MARKSW
DCWSW
LITSW2
DSASW2
DCWSW2
GRPMK8
Dew
=4
=5
=4
=6
3899
Dew
DCW
DCW
Dew
Dew
DCW
Dew
De
DC
DC
DC
DC
EQU
Dew
EX
=1
+0
0
0
0
0
0
0
0
3899
I
,
DOlERO
-VERSION 3
3142L
SFX CT
BLANKS
WORK AREA
WORK AREA
WORK AREA
USED FOR LABEL
CONVERSION ONLY
SUFFIX CHARACTER
DA SWITCH
DA SWITCH
Dew SWITCH
LITERAL SWITCH
OSA SWITCH
Dew SWITCH
SYSTEM GROUP MARK
I
Z
Z
Z
Z
I
I
I
I
I
I
Z
z
1
I
Z
LOCN
PAGE
INSTRUCTION TYPE
40
CARD
4
5
3862
264
3867
4
6
7
3871
3817
3884
3885
3886
3887
3888
3889
3890
265
265
265
1
1
1
1
1
1
1
1
3892
1
3899
265
265
265
265
266
266
266
266
266
3891
3899
267
B 000
268
1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY
SEQ PG LIN
1113
1714
1715
1716
1717
1118
1719
1120
1721
1722
1723
1124
1125
1726
1721
1728
1129
1730
1131
1132
1133
1734
1735
1736
1731
1738
1139
1740
1141
1742
1143
1744
1145
1146
1747
1148
1149
1150
1151
1752
1153
1154
1155
1156
1751
1158
1159
LABEL
15 94
15 95
15 96
15 91
15 98
15
16
16
16
16
99
00
01
02
03
16 04
16 05
16 06
16
16
16
16
01
08
09
10
16 11
16 12
16 13
16
16
16
16
16
16
16
16
16
16
16
16
14
15
16
11
18
19
20
21
22
23
24
25
16 26
16 21
16 28
16 29
16 30
16 31
16 32
16 33
16 34
16 35
16 36
16 31
16 38
16 39
16 40
1760 16 41
1161 16 42
1762 16 43
OP
OPERANDS
JOB
1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY
3143L
-VERSION 3
SFX
CT
lOCN
1
2515
2582
2586
2593
2601
2605
2613
2621
2628
2632
2639
2646
2654
2662
2666
2614
2681
2689
2696
2101
2108
2116
2120
2121
2131
2739
PAGE
INSTRUCTION TYPE
41
CARD
-VERSION 3
*
-PROCESS INSTRUCTION STATEMENTS
*
ORG
OOPROG
EQUADD,IMAGE+61
INSTR Mew
cw
LENSW=1
MLC
'OI',IMAGE+7
*+5,EQUAOD
BW
B
AUGMNT
DONE,INPUT+21+X2,
DOCNT BCE
BeE
XISALF,INPUT+21+X2,'
BLANK2+1,INPUT+20+X2
LCA
eOMSCN
B
XL3,W3AREA
MLe
FREEA,XL3
MlC
XISlIT,INPUT+21+X3,+
BCE
XISlIT,INPUT+21+X3,BeE
B
FR2FIX
SMLTVP,IMAGE+23+X1,=
BCE
+3,IMAGE+7
CKOONE A
FREMODtLENSk
BW
C
XLl,'OI0'
DONE
BL
MlC
'OI1',XLl
8W
*+5,SCANSW
ElMBlK
B
XL2,FREEA
INTXL1 MCW
DOCNT
B
CKMOO1,SCANSW
DONE
BW
INPUT+21+X2,IMAGE+39
FREMOO MLC
*+5,IMAGE+39,
BeE
Cl
B
Cl,INPUT+22+X2,
BCE
INPUT+22+X2,IMAGE+39
Mew
+1,Xl2
A
INPUT+23+X2,BlANK2
C
C1
ISMOD
BE
ABIT,IMAGE+5
HZ
ISMOO
B
OOIADO,IMAGE+39,
CKHODI BCE
+1,IMAGE+7
ISMOO A
IMAGE+7,XL2
MLC
IMAGE+39 t IMAGE+66+X2
MlC
ORGCTR,IMAGE+61
DOIADO MLC
A
+l t IMAGE+61
A
IMAGE+1,ORGCTR
BLANK,IMAGE+75
MlC
NUREC
B
+I,XL2
lOOPBL A
GET ACTUAL OP
RESET SWITCH
SET COUNT TO ONE
Q. REGULAR OP CODE
l
Z
Z
Z
4
1
Z
8
4
WIPE OUT PREY OPERAND
SCAN FOR COMMA, BLANK
I
Z
Z
Z
I
Q. NUMERIC LITERAL OR
Z
l
Q. IS THERE OPERAND
Q. ALPHAMERIC LITERAL
ADDRESS CONSTANT
CONVERT FREE TO FIXEO
Q. AREA OEF L{TERAL
ADD THREE TO COUNT
Q. FIVE CHAR INST
Q. B OPERAND JUST
PROCESSED
z
l
Z
Z
I
I
Z
Z
Z
Q. TWO BLABKSAFTER OP Z
ELIMINATE BLANKS
Z
Z
l
Q. o MODIFIER IN
Z
OPERAND
FIELD
,..
.,Z
D MODIFIER OFFSET
ONE POSITION
IF BOTH POSITIONS
BLANK ASSUME FIRST
BLANK SIGNIfICANT
Q. o MODIFIER
FOLLOWED BY TWO
BLANKS
\Il.
8
8
1
4
1
1
8
8
4
8
7
8
1
5
7
8
4
7
It
8
7
n
~.,
1_ L
L
0
£' .... 0
l
Z
4
I
l
I
l
Z
7
1
1
2515
M NIl 167
) G34
M G36 101
V 005 NIl 1
B R06
B P31 OKl
B +17 OKI •
L H61 OKO
B 860
M 099 H14
M M98 099
B
B
8
B
A
851
851
952
+40
G31
V P39
C 089
6 P31
M G43
V P20
081 +
OBI IS3 =
101
G34 1
G40
T
089
N15 1
B Q83
M 094
M98
8 005
V Q03 N15 1
275
215
275
0
nrn
r~o
".,n
J.J~
B PSO
Z
7
CODE RECORD
Z
1
2853
4
WEED OUT BLANKS
l
Z
2860
2864
B 534
A G44 094
PROCESS D CHARACTER
Z
l
I
Z
Z
ASSIGN ADDRESS AND
BUMP UP COUNTER
l
Z
1
4
8
7
7
7
1
1
7
215
n
106
161
A G44 161
A 101 H58
M H59 175
Q. o CHARACTER
5
iii
211
211
211
271
272
212
212
212
272
213
213
273
273
273
274
274
214
274
214
214
215
275
M OK1 139
2754
2158
2766
2113
2180
2187
2192
2199
2803
2811
2818
2825
2832
2839
2846
8
211
B pao
OK2
A G44
C OK3
B Ql1
y 187
B Q11
B 032
A 644
M 101
M 139
M
OK2
139
094
H60
S
105
139
107
094
M H58
276
276
216
276
276
271
217
277
211
277
218
278
218
278
218
278
219
1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY
SEQ
1763
1764
1165
1166
1167
1168
1169
1170
1771
1712
1773
1714
1775
1776
1777
1718
1179
1780
1781
1182
1183
1784
1185
1186
1181
1188
1789
1190
1191
1192
1193
PG LIN
16
16
16
16
16
16
16
16
16
16
16
44
45
46
41
48
49
50
51
52
53
54
16 55
16 56
16 59
16 60
16 61
16 62
16 63
16 64
16 65
16 66
16 665
16 61
16
16
16
16
16
16
68
69
10
12
73
1805
1806
1801
1808
1809
1810
1811
1812
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
17
18
19
80
81
-
89
90
91
92
93
C
XL2t'51'
ERRBlK
LOOPBL,INPUT+21+X2,
INTXL1
ABIT t IMAGE+5
CKDONE
B
BETWEEN OPERANDS
PAGE
3743L
SFX CT
LOCN
INSTRUCTION TYPE
Z
l
7
t 094 G46
Z
1
8
2811
2878
2883
2891
5
I
l
4
1
4
Z
7
I
l
8
2895
2902
42
CARD
219
219
219
219
279
280
B Q95 T
B Q64 OKl
8 P20
y 18"7 105
B 014
-PROCESS UNIQUE MNEMONICS
*
AUGMNT
CKREG
Mew
BCE
BW
BW
MCW
MLC
B
TAPAUG C
BH
BCE
C
BE
MCW
B
MSCSW cw
GETPOP MN
MCW
MLC
MLC
OPOCNE MLlS
B
ISFIVE sw
B
EQUADD-1,IMAGE+39
ISFIVE,EQUADD-l,
OOCNT,EQUADD-l
TAPAUG,EQUADD-2
EQUADD-2,IMAGE+10
o MOO TO IMAGE AREA
Q. BIN TYPE
Q. TYPICAL UNIQUE MNEM
Q. TAPE TYPE
ERGO RAMAt TYPE
' ( I
OPDONE
INPUT+21,'Q'
DoeNT
MSCSW,INPUT+22,t
INPUT+23,BLANK2
GETPOP
'===',IMAGE+70
OPDONE
5CANSW
PROCESS TAPE TYPE OF
UNIQUE MNEMONICS
CHECK FOR PROPERLY
CODED A OPERAND
8
Z
8
l
Z
1
7
4
4
Z
7
Z
5
8
Z
1
Z
Z
l
Z
7
5
1
4
4
7
INPUT+21fIM~GE+70
Z
EQUADO-2
l
Z
Z
Z
4
Z
4
Z
4
' ( I
'Q02',XL2
ABBIT,IMAGE+l
CKOONE
LENSW
CKREG
MARK A OPERAND DONE
SET SWITCH FOR FIVE
,.. •• An
.... nAri.
'" fl..
r
'T .....
fr
'T T I"I"~
1 Ill,,;) • ~u'" I l u n
?
L
4
1
1
...,.
2906
2913
2921
2929
2937
2944
2948
2952
2959
2964
2912
2919
2984
2991
2995
2999
3006
3010
3014
3021
3028
3032
3036
HIO 139
B +32 N10
V 005 NIO 1
V R52 N09 1
M H09 170
M
M G41
B +21
C 021 G48
B 005 U
B
C
B
H
8
)
0
M
M
M
y
B
,
B
R95
023
R99
G51
+21
N15
021
N09
G41
G54
189
014
G34
R21
022
H60
S
170
110
•
280
280
280
280
281
281
281
281
281
281
282
282
282
282
282
282
282
283
094
101
283
283
283
283
")0"2
,"VJ
*
*PROCESS AREA DEFINITION LITERAL
-
S~LTYP
83
84
85
88
OPERANDS
ELMBlK BeE
B
ERRBLK MI
82
86
81
OP
Bl
16 57
16 58
14
1794 16 15
1195 16 76
1196
1197
1798
1199
1800
1801
1802
1803
1804
LABEL
-VERSION 3
SW
MLC
MLC
CW
MCW
MeW
B
IMAGE.+24+X1
IMAGE+26+X1,LAREA+24
'='
IMAGE+24+X1
BlANK4 t IMAGE+26+Xl
INPUT+84,LAREA+4
WRTLIT
MOVE LENGTH TO
LITERAL HOLD AREA
REMOVE LENGTH FROM
CHAR ADJ PORTION
OF OPERAND AND SAVE
ALTER NUMBER
1
Z
l
Z
I
4
7
4
4
7
3040
3044
3051
3055
3059
•
M
M
)
154
1S6 G83
G55
154
Z
7
3066
M H62 156
M 084 G63
l
4
3073
B A89
Z
Z
1
Z
Z
4
1
3077
3081
B 592
C 099
B A57
A 099
M OJ9
283
284
284
284
284
284
284
*
-PROCESS ALPHAMERIC LITERALS
-
XISAlF B
C
Bl
XAlFl A
MCW
SCANAT
XL3,'07'
DOaIG
XL3,XL1
INPUT+19+X2,IMAGE+15+Xl
SCAN FOR • SIGN
Q. BIG LITERAL
GENERATE UNIQUE LABEL
5
30aB
1
3093
7
3100
G57
T
089
1/5
284
285
285
285
285
1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY
SEQ PG
LIN
LABEL
1813 16 94
1814 16 95
1815 16 96
1816 16 97
1817 16 98
1818 16 99
1819 11 00
1820 11 01
1821 11 02
ADO
SETEX
11
17
17
17
17
11
17
11
11
11
1836 17
1831 17
1838
1839
1840
1841
1842
1843
07
08
09
10
11
12
13
14
15
16
11
18
19
20
21
22
17
11
11
17
17 23
17 24
1844 17 25
1845 17 26
1846 17 27
1847 17 28
1848 17 29
1849 17 30
1850 17 31
1851 11 32
1852 11 33
1853 11 34
1854 17 35
1855 11 36
1856 11 37
1857 17 38
1858 17 39
1859 11 40
1860 17 41
1861 11 42
1862 17 43
OPERANDS
BCE
BCE
BCE
BCE
S
MZ
MCW
GM1t FREE+18+X2,
B
GM1
HZ
XL3+1,XL1+1
EXOVFL-l f IMAGE+l1+Xl
EXNUMB-l,IMAGE+22+Xl
PROLIT
BLANK4,IMAGE+14+Xl
AND STRIP lONING
OfF GROUP MARKS IN
LITERAL TO ELIMINATE
CONFLICT
WITH NOISE RECORD
ROUTINE
GIVE LITERAL SECTION
CODE
B
tOeN
INSTRUCTION TYPE
8 A43 OJ8
8
B
l
8
3107
Z
Z
1
1
1
3115
3116
3111
3118
Z
8
S 100 090
y 190 1/7
Z
Z
Z
Z
1
7
1
3132
M 192 152
4
3139
l
l
1
3143
3150
3151
3152
3153
8 A82
y H62 1/4
Z
I
l
ADO
PAGE
3743L
3
SFX CT
MZ
MZ
MZ
1822 11 03
1823 17 04
1824 17 05
1825 11 06
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
OP
-VERSION
1
1
1
4
3125
43
CARD
285
285
285
286
286
286
286
286
2"86
y
286
y
281
y
287
8 AIS
281
*-PROCESS BIG LITERALS
•
OOBIG
-
MLC
MLC
BIGCTR,IMAGE+22+X1
'$ ,
GENERATE BIG LITERAL
LABEL
A
+1,BIGCTR
INPUT+84,lAREA+4
SAVE ALTER NUMBER
Mew
I
I
Z
I
1
I
1
7
8
8
4
7
7
3157
3164
3168
3115
M
M
A
M
3182
M
3189
3196
3204
3212
3216
3221
3228
N
H53 IS2
G58
G44 H53
084 G63
287
287
281
281
*PLACE LITERALS IN HOlO AREA AND WRITE OUT ON LITERAL TAPE
*PROLIT MlC
WRTLIT MLC
BW
WT
NOP
BER
MeW
MLC
e..
BW
-
B
INPUT+19+X2,lAREA+19+X3
IMAGE+22+X1,LAREA+l1
DSAXl,lITSW2
LITAPE,HLOlIT
LITERAL TO HOLD AREA
LITERAL LABEL TO AREA
Z
l
I
I
WRITE OUT LITERAL
0
TPERR
BLANK4,LAREA+4
LAREA+74 t lAREA+73
LliSW
OSAX1,DSASW2
CKOONE
CLEAR HOLD AREA
,. ... 'Y'
~t:1
,.,.
~w
~'"
tU
.. ... n l ' , . A ' Y ' r -
11'UJ' .... J.\ I C
Z
A'Y'
AI
4
5
Z
7
I
..,
7
L
OJ9 GG8
M 152 G10
V 190 H90 1
M (U6 G60 W
000
8 221 l
M
H62
G63
M H33 H32
....
1-
""')<,,\""')r
;)4. :::r::J
,I
3239
3247
V 190 H91 1
B 074
3251
3258
C 082
M H74
B A57
C 099
B A57
A 089
M OJ9
y 190
M M98
Q. RECURSIVE DCW
I
8
LEAST ONE LIT EXISTS
I
4
Q. ADDRESS CONSTANT
Z
7
l
I
7
5
Q. BIG LITERAL
1
I
7
3270
PROCESS SMALL NUMERIC
LITERALS
GENERATE UNIQUE LABEL
FOR LITERAL
1
I
I
I
Z
I
l
5
1
7
3271
3282
.".,.0
.'1_ L
288
288
288
288
288
288
289
289
nn
7
20
289
289
.PROCESS NUMERIC LITERALS
-
XISLIT C
MLC
BH
C
Bl
XLITl A
MLC
MZ
HlC
MllS
MlC
.
B
INPUT+22+X3,'O'
W3AREA,XL3
DOBIG
XL3,'07'
DOBIG
XL1,Xl3
INPUT+19+X2,IMAGE+14+X3
EXOVFl-1,IMAGE+21+X1
FREEA,Xl3
INPUT+21+X3,IMAGE+18+X1
W3AREA,Xl3
SETEX
1
7
7
1
4
3265
3289
3296
3303
3310
3317
3324
y
G48
099
U
G51
T
099
lA4
lSI
099
OBI 1/8
M H74 099
B A32
289
290
290
290
290
290
290
291
291
291
291
291
1401 AUTOCODER-PASS 4 MAIN lINE OVERLAY
SEQ PG LIN
1863 11 44
1864 17 45
1865
1866
1867
1868
1869
1870
1811
1812
1813
1874
1875
1816
1871
1878
1879
1880
1881
1882
1883
1884
18B5
1886
1887
1888
1889
1890
1891
1892
1893
17 46
11 47
17 48
11 49
17 50
17 51
17 52
11 53
17 54
11 55
11 56
11 51
17 58
17 59
17 60
17 61
11 62
11 63
17 64
17 65
17 66
11 61
11 68
17 69
11 70
..,7 71
17 12
17 73
17 14
LABEL
OP
.GENERATE LABEL ENTRY ADDRESS FOR SYMBOLIC OPERANDS
*
BOPXT+3
PROPNO SBR
BOPXT,IMAGE+17
BCE
IMAGE+22tft6AREA
MCW
LINK TO SUBROUTINE
PRO LAB
B
W3AREA,IMAGE+70
MLC
XXXX
BOPXT 8
*DETERMINE TVPE Of CONTROL OP
*
EQUAOD-1,IMAGE+75
CTRLOP Mew
XL3+1
S
MN
EQUAOO-l,Xl3
XL3
A
A
XL3
B
*+1+X3
DAR TN
B
DCWCD
B
ERRHLT
B
EXEND
B
DOSFX
B
ERRHLT
B
ORGSTM
8
DSSTMT
B
INSPC
B
INPUT+80,IM~GE+21
Mew
NUREC
8
EQUADD-2,IMAGE+61
INSPC Mew
BLANK2,IMAGE+75
MCW
'Ol',IMAGE+7
MLC
l'?
..,C:;:
Q
.L •
fJ
IJ
1895
1896
1891
1898
1899
1900
1901
17
11
11
17
16
11
18
19
11 80
11 81
17 82
1902 11 83
1903 11 84
1904 17 85
1905 11 86
1906 17 81
1901 17 88
1908 11 89
1909 11 90
1910 17 91
1911 11 92
1912 11 93
44
CARD
SFX CT
LOCN
INSTRUCTION TYPE
4
7
7
4
7
3328
3332
3339
H
3346
B W41
291
292
292
292
3350
3351
M H71t 170
292
4
8 000
292
1
3361
M NIO 115
292
4
1
3368
S 100
o N10 099
293
Z
Z
Z
Z
Z
l
C60
8 C57 111
M 122 H77
it
..L U 7""
1 QOi.
OPERANDS
PAGE
3743l
-VERSION 3
ERRHLT H
B
...
CODE RECORD
BRANCH TO APPROPRIATE
ROUTINE
PROCESS ce" SS
TYPE OF
INSTRUCTIONS
l
l
Z
Z
I
I
Z
Z
l
I
I
I
I
z
SYSTEM ERROR HALT
SHOULD NEVER OCCUR
4
4
4
4
4
4
4
4
4
4
4
4
1
4
1
3372
3319
3383
3387
3391
3395
3399
3403
3407
3411
3415
3419
3423
3427
3434
3438
3445
3452
1
1
Z
L
7
,,"'t'
Z
7
I
4
Z
4
3474
l
1
4
4
8
3478
3482
3486
3494
3502
3509
3511
3525
3529
"7
,,"'I"lUU
0,0402
ERRHLT
Z
1
I:::nl:::uon
t
l
l
3459
3463
3410
A 099
A 099
B CII
8 M41
8 VlI
B 063
B GI0
8F92
8 063
B 014
B FOO
8 038
M 080 121
B 534
M N09 167
175
M G36 101
....
n
t"':;)...,
0
• 000 402
M H60
".")
293
293
293
293
293
293
294
294
294
294
294
294
294
295
295
295
295
295
295
8 063
296
296
B 860
B W05
8 952
296
296
296
B E63 124 X
296
B E89 111 *
- G44 H58
B E33 117
V E78 111 2
296
.PROCESS LITERAL ORIGIN AND ORIGIN CARDS
•
ORGSTM B
B
B
BeE
BCE
IS
BeE
BWl
S
B
ORGADJ A
TYPORG MLC
BCE
COMSCN
FNLOP
FR2FIX
SUBORG,IMAGE+24,X
ORGPRO,IMAGE+17,.
+l,ORGCTR
ORGADJ,IMAGE+17,
ORGcvt,IMAGE+11,2
XL2+1
PROPND
IMAGE+26,ORGCTR
ORGCTR,IMAGE+61
NUREC,INPUT+16,Q
SCAN FOR BLANK
CHECK LAST OPERAND
FREE TO FIXED FORM
Q. ADJUSTMENT +XOD
Q. ASTERISK OPERAND
SET COUNTER TO -1
Q. BLANK OPERAND
Q. ACTUAL ORIGIN
PROCESS A OPERAND OF
SYMBOLIC ORIGIN
ADO CHAR ADJUSTMENT
SAvE ORIGIN VALUE
Q. ORIGIN CARD
Z
Z
I
Z
Z
Z
Z
8
1
8
8
4
4
Z
7
Z
l
1
3533
3540
8
3547
S 095
B C28
A 126 H58
M H58 161
8 534 016 0
291
291
297
291
291
297
298
298
1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY
SEQ PG LIN
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
17
11
17
11
17
11
18
94
95
96
91
98
99
00
18 01
18 02
LABEL
B
B
SUBORG IS
ORGCVT
B
B
B
A
ORGPRO HZ
B
PUT
CALL
+l,ORGCTR
PROPNO
TYPORG
CVTFLA
W5AREA t ORGCTR
ABBITtIMAGE+l
ORGAOJ
18 03
18 04
*PROCESS OS STATEMENTS
18 05
18 06
18 07
-
DSSTMT B
1931 18 12
1932 18 13
1933 18 14
1934 18 15
1935 18 16
1936 18 11
1931 18 18
1938 18 19
1939 18 20
1940 18 21
1941 18 22
1942 18 23
1943 18 24
1944 18 2.5
1945 18 26
1946 18 27
1941 18 28
1948 18 29
1949 18 30
18 31
18 32
18 33
18 34
18 35
18 36
1119
B
B
awl
BeE
BeE
B
B
CK4AOJ lA
B
CKEQU
lA
B
A
BCE
A
COMSCN
FNLOP
FR2FIX
CKEQU t INPUT+21,2
CK4ADJtIM~GE+17t*
NUREC.IMAGE+17,{
PROPND
NUREC
IMAGE+26 t IMAGE+61
DSETAO
IMAGE+21,W5AREA
CVRT5
IMAGE+26 t W5AREA
OCWACT,IMAGE+15,P
W5AREA,ORGCTR
BMPCTR
PUT LTORG RECORD
GO TO LITERAL ROUTINE
SET COUNTER TO -1
PROCESS A OPERAND
SCAN FOR COMMA/BLANK
CHECK LAST OPERAND
CONVERT TO FIXED FORM
Q. ACTUAL OPERAND
Q. ASTERISK OPERAND
Q. 1/0 OPERAND
GENERATE LABEL ADDRESS
*
MLC
MCW
B
INPUT+21,IMAGE+17
INPUT+21,SFXHlD
NUREC
*
*PROCESS EXECUTE, END STATEMEN"TS
*
COMSCN
EXEND B
FNLOP
B
FR2FIX
B
NUREC,INPUT+16,X
BCE
CALL
B
lTQRG *
LENSW Dew
=01
'01'
+3
'010'
'011 t
+1
'51'
I
I
Z
Z
I
Z
I
SUFFIX
CHARACTER
t"Anr-
.;)AOC:
SCAN FOR COMMA/BLANK
CHECK LAS"T OPERAND
CONVERT TO FIXED FORM
MERGE LITERALS
4
4
1
4
4
4
7
1
4
LoeN
INSTRUCTION TYPE
3555
B
3559
3563
B U31
- G44 H58
3570
3514
3518
3582
B
3596
B
B 860
8 w05
I
l
I
8
4
3600
3604
3608
3612
3620
3628
3636
Z
I
4
1
4
7
3644
3651
3655
4
3662
7
8
4
8
8
3640
45
CARD
298
298
l-
ri
104
'" r-
1
1
1994
M
M
M
H
GEN
GEN
1
GEN
1
GEN
1
GEN
GEN
8
1
1
GET
1925
1932
1937
1944
1951
MACRO
Mew
S
PUT
7
5
1
7
1
1
MCW
MCW
71
INSTRUCTION
1925
Mew
Mew
MCW
Mew
S
S
B
184
190
191
192
193
C
Mew
Mew
Mew
Mew
MCW
Mew
68
69
70
lOCN
ENDOFC+l
BlKCTtKBlKNG
WRITE
NXTREC A
+80,BLKCT
Mew BlKCT,XR3
INPUT,eARD+OBO
MOVEIN Mew
CHAIN 9
MCW
Mew
Mew
Mew
1 66
1 67
1
1
1
1
1
1
SFX (T
2
PASSES
BE
180
181
182
183
185
186
187
188
189
PAGE
3751L
3
..
1 61
1 62
1 63
1 64
1 65
lABElS-INITl~VERSI0N
1995
1996
1
1
1997
1998
1999
4
2000
B
4
4
2004
2008
089
H -16
y l31 089
M IIO -67
D -63 -43
M -61 J76
U (UO 8
B J49 -67 W
7
7
7
7
2026
2033
5
2040
8
2045
2012
2019
M
M
H
I..
uCI'l
Z25
I
7
7
8
8
8
8
8
8
9
9
9
1401 AUTOCOCER-PASS 5-PROCESS LABElS-INITl-VERSION 3
SEQ PG LIN
198
199
200
201
202
203
204
205
206
201
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
221
228
229
230
1
1
1
1
80
OP
OPERANDS
Mew
+9,READCT=1
INITAP,XXXX
RDRERR
XXXX
TPINST+3,BSP2+3
INITAP
+l,REAOCT
TPINST,REAOCT,B
TPINST+3,lPHAlT+6
XXXX t 590
TPINST+7,*+8
INITAP,XXXX
BSP1,E
XXXX,511
REDXT
SVSTPE
SUBCTR,WRTeTR-l.5
+I,WRTCTR=2
INITAP,XXXX
SSP1
REOXT
WRTCTR
TPINST+3,*+7
XXXX,560
INST2
81
82
TPINST RT
83
REDXT B
RORERR MN
ssP
BSP2
S
aWl
MN
TPHAlT H
1 84
1 85
1 86
1 81
1 88
1 89
1 90
1 91
1 92
1 93
1 94
1 95
1
1
1
1
2
2
2
2
2
LABEL
96
BER
Mew
RT
BSS
TPHlT3 H
B
WRTREO SKP
BCE
97
98
99
00
01
02
03
04
2 05
2 06
2 01
2 08
2 09
2 10
2 11
2 12
231
232
233
A
WT
BER
B
SUBCTR S
INST2
MN
TPHlT2
H
..
B
* CHECK FOR SHORT RECORDS
*
XRl
CHKlGT SBR
LGTXT+3
+9,XRl
HZ
4000-12+Xl,LiMIT,
BCE
CHAIN 12
BCE
BCE
SSR
LGiCK
SFX CT
4
7
5
2073
1
8
2096
7
2104
2111
2118
7
7
8
5
7
4
5
8
7
8
5
4
4
1
1
4
4
4
1
a
235
236
237
238
239
1
BeE
BCE
BCE
240
241
242
243
244
245
246
247
2 13
2 14
2 15
2 16
2 11
XXXX
lGTXT B
*
* CROSSOVER, C TO 0
*
SYSTPE,1
RDPSSD RTW
2125
2133
2138
2145
2149
2154
2162
2169
2111
2182
2186
2190
2191
2204
--To
10
B 000
0 -63 -87
U (UO B
S L39 l38
V -60 l38 B
0 -63 Jl1
• 000 590
M
10
10
10
10
11
11
-61 J32
11
11
11
12
12
12
12
12
12
13
13
13
13
13
13
M (UO 000 R
B -40 E
• 000 511
B -13
U (UI E
B J86 L40 5
A l39 L41
M (UO 000 W
8 -40 l
B -13
S l41
0 -63 K03
• 000 560
B
J69
2208
2212
2216
2223
H 089
H K46
y l31 089
B Iya i31
2231
2232
B
CARD
13
14
14
14
MACRO
1
BeE
BCE
2060
2017
3
9
9
2053
2084
2089
234
BCE
BeE
INSTRUCTION TYPE
M L31 l38
M (UO 000 R
20-6-8--------B -11 l
BeE
BCE
LOCN
7
8
5
1
1
1
8CE
PAGE
3151l
2233
2234
4
2235
2236
2237
2238
2239
2240
2241
2242
2243
8
2241
1
1
1
1
1
1
1
B
B
B
B
B
B
B
GEN
GEN
GEN
GEN
GEN
14
14
14
14
15
GEN
15
GEN
GEN
15
15
15
8
GEN
B
B
GEN
GEN
B
GEN
15
15
16
B 000
16
l (U1 001 R
16
1401 AUTOCOCER-PASS 5-PROCESS LABElS-INITl-VERSION 3
set'
PG LIN
.... \ai
18
19
20
248
249
250
251
2
2
2
252
2 22
2 23
2 24
2 25
2 26
2 27
2 28
2 29
2 30
2 31
2 32
2 33
2 34
2 35
2 36
2 37
2 38
253
254
255
256
251
258
259
260
261
262
263
264
265
266
267
268
269
210
271
272
273
214
275
216
LA8EL
2 21
2 39
2 40
2 41
2 42
2 43
2 44
2 45
2 46
OP
OPERANDS
NOP
BER
ew
XXXX
TPERR
ENDOFD
PASSO
8
*
ClR~AX
ClR~lN
fNCTN
TABMAX
MAXADO
TABLSZ
MAXSER
SFXCTR
KBlKNG
BUM POP
HOLDA
BlKCT
TPAO
278
2 48
219
2 49
2 50
2 51
2 52
2 53
2 54
2 55
2 56
2 51
2 58
2 59
2 60
2 61
2 62
4
2255
2259
2264
2268
N 000
16
B -04 l
) Y68
8 S90
16
16
16
L tU6 001 R
17
5
4
4
CARD
eOUlPT,1
4
2272
2280
2284
2289
2293
3
3
2302
8
xxxx
4
BER
CW
TPERR
ENOOFC
elRTAB
5
4
N 000
17
B -04 l
17
Z24
17
B V13
17
199
17
18
18
18
)
• COMMON CONSTANTS
277
290
291
292
INSTRUCTION TYPE
*
WRTCTR
289
lOeN
Nap
B
215
2 47
288
SFX e1
..
RDPSSC RTW
READer
287
4
• CROSSOVER, o TO C
i98
281
282
283
284
285
286
PAGE
*
Dew
DSA
'191'
2299
TABlE-OIO
,
6
2308
2311
Dew
Dew
Dew
DCW
+0150
3
3
4
DCW
DCW
EQU
DSA
LTORG
'='
+0000
HOLDA-OOI
TPAREA
..
+80
+9
=01
+1
=02
DCW
Dew
Dew
Dew
280
3751l
..
,
'von·
•
t
•
,
I
'080'
4
I
3
I
4
3
2314
2318
2322
2323
2326
2327
2331
2330
2334
17
18
18
18
18
19
19
19
118
2335
2
,1
2336
2331
""),,.,0
L
':;):;)0
1
2339
2341
2
LIT
LIT
AD!:A
""I;.."
LIT
AREA
19
19
1Q
,&.7
19
20
* PROTECTED CONSTANTS
•
FACTOR
MACHSZ
TOTLAB
UNPRSW
PROCSW
SERCHS
•
•..
EQU
EQU
EQU
EQU
EQU
EQU
2388
2389
2393
2394
2395
2399
TABlE-02l
TABLE-020
TABLE-016
TA8LE-OI5
TABlE-OI4
TABLE-OlO
INITIALIZE PASS CONE TIME
ORG
R.. O
RWD
RWD
TABLE-009
SAVETP
CINPUT
COUTPT
2400
5
2400
U (U4 R
5
5
2405
U (U5 R
U (U6 R
2410
21
21
21
SEQ PG LIN
293
294
295
296
291
298 _
299
300
301
302
303
304
305
306
301
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
":I"
.I.
..Ic..'"T
325
326
321
328
329
330
331
-332
333
334
2 66
2 61
_2_ 6e
2 69
2 70
2 71
2 72
2 13
2 74
2 15
..
* SET
2 18
MZ
SETIO
aWl
Mew
2 83
2 86
2 81
2 88
2 89
BeE
it
•
MCW
Mew
Mew
Mew
MCW
A
orr:
n.l.
U\#L.
7'"T
95
2 96
2 91
2 98
337
3 01
338
339
340
3 08
3 09
3 10
3 06
3 11
3 12
2415
2419
I
199
t
Q66
2423
2430
L
L
3999
4
GRPMRK
'OO',PROCSW
+OI50,SERCHS
'OO15',FACTOR
SYSTPE,l
4
XXXX
4
TPERR
ENDINT
5
4
7
1
7
8
2431
2444
2452
2456
2461
CARD
21
21
Q68
195
Q12 199
l Q16 L88
001 R
L (Ul
. --
---
N 000
B -04 l
) ROl
oil. 21
22
22
22
22
22
MACHSl,KEEP1=OOl
+3,KEEP1
KEEPl,*+OO4
ZONE2 t *+OO1
GRPMRK,GPMRK3
SETBMP,SETIC+OO6,2
4799
4399
'=',BUMP
SET8K,MACHSZ,4
1
1
7
2465
2412
2479
7
8
2486
2493
2500
2508
2512
2516
2523
7
1
7
1
1
1
2531
2538
2545
2552
2559
2566
7
1
8
4
4
M la9 Q17
A Q18 Q11
0 Q77 M89
y 109 M99
L Q66 198
V P18 1-199
I 19Z
I 39Z
22
23
23
23
23
2
23
24
24
MQ19 W81
B 020 L89 4
24
24
BLKG12,KBLKNG
TBSl12,TABlSZ
TBLM12,TABMAX
TPA012,TPAO
MOTP12,MOTP=OO3
+72,FACTOR
Q52
Q56
M Q59
M Q62
III
24
24
25
L34
25
M Q65 Q82
25
25
~r:TTn
UArL;~"7
-=
-.)t;;llr,nH\#O-')4,J
I'll
.,.~
......
M
M
l26
Ll8
A Q84 L88
..... La; 5
a ....uo,
25
0
'71:;)
1
2581
A Qa1 llS
26
7
2588
26
1
7
2602
7
4
2609
2616
A Q89 lSS
y 113 I I I
y 113 l34
Y 113 Q82
B 062
1
7
2620
2621
2634
2641
2648
2655
* 16K CONSTANTS
*
•
A
A
MZ
MZ
2 99
3 00
3 01
3 02
3 03
3 04
INSTRUCTION TYPE
12K CONSTANTS
2 91
2 92
2 93
.,
LoeN
it
2 90
"2
LeA
CS
CS
2 82
2 84
2 85
SFX CT
110 GROUP MARK
MCW
A
MN
2 79
2 80
2 81
OPERANDS
5
It
2 76
2 77
3 05
342
OP
CS
SW
LCA
LeA
LCA
RTW
NOP
BER
CW
2 63
2 64
2 65
335
336
341
LABEL
PAGE
3751L
1401 AUTOCODER-PASS 5-PROCESS lABElS-INITl-VERSION 3
HZ
B
*
•
8K
•SET8K
+400.TABlSI
+40,FACTOR
ABBIT,TABflAX
A8BIT,TPAC
ABBIl,HOTP
SETTP
2595
26
26
26
26
CONSTANTS
MCW
Mew
MCW
MCW
Mew
A
8lKG8K t KBLKNG
lBSZ8K,TABLSl
TBLM8K,TABMAX
TPAD8K,TPAD
MDTP8K.MDTP
+36,FACTOR
7
1
7
7
M Q36 L26
M Q40 LlB
M Q43 III
M Q46 L34
Q49 Q82
A Q91 LaB
M
27
21
27
27
21
28
1401 AUTOCOCER-PASS 5-PRoeESS LABElS-INITL-VERSICN 3
SEQ PG LIN
343
344
345
346
341
348
349
3 13
3 14
3 15
3 16
3 11
358
359
3 29
360
361
362
363
364
365
3 30
3 31
3 32
3 33
3 34
3 35
351
352
353
354
355
356
351
366
367
368
369
370
371
372
313
374
3
3
3
3
3 43
3 44
3
3
3
3
3
3
3
46
47
Ire
49
50
51
52
53
54
305
322
Mew
Mew
Mew
Mew
Mew
MA
SETBMP
Mew
Mew
LCA
PAGE
SFX eT
LoeN
INSTRUCTION TypE
1
1
1
1
7
2662
2669
2676
2683
2690
y
1
7
2697
2704
M
7
7
2111
2718
2725
1
6
CARD
L34 K99
28
M Q82 Z54
M Q82 Z90
M L34 X73
M l34 X98
28
28
28
29
29
29
M
l
l34 Q94
Q96 Q94
Q94 1<29
W81 l21
Q66 124
I
080
=
M
29
29
30
II
* WRITE PASS C CHECKPOINT ON 6
*
CS
80
SW
SW
SW
sw
SW
WTW
NOP
BER
cw
e
MCW
S
BE
8 I-!
Mew
3 42
318
383
384
TPAO,elRM'X
MDTP,MOVEIN+OO3
MDTP,PUT+OI3
TPAD,WRITE+OO6
TPAD,REAO+OIQ
TPAD,lIMAO=3
+I3,lIMAD
lIMAO,lGTCK+6
BUMP,BUMPOP
GRPMRKtENOOFe
39
3 40
3 41
3
3
382
HZ
38
.3 45
381
SETTP
36
376
317
380
OPERANDS
31
375
319
OP
3 18
3 19
3 20
3 21
3 22
3 23
3 24
3 25
3 26
3 27
3 28
350
LABEL
3751l
BLKG8K
TBSZ8K
TBLM8K
TPAD8K
MOTP8K
BlKG12
TBSZ12
TBLM12
TPA012
B
Dew
Dew
DSA
OSA
DSA
Dew
DCW
DSA
OSA
CARD+OOl,CARD+OO6
CARD+Ol1,CARD+024
CARD+028,CARO+035
eARD+051,CARD+062
CARO+068,CARO+011
eCUIPT,1
XXXX
TPERR
ENDOFC,GRPMRK
TOTlAB,TABlSI
TABLSl,SERCtiS
TOTLAB
ClRTAB
ClRTAS
+OOO9,SERCHS
CLRTAB
'400'
KEEPl
MOTP
7
7
7
·1
7
8
4
5
7
7
1
4
5
5
1
2732
2736
2143
2750
2157
2764
2171
2119
2783
2788
2795
2B02
2809
2813
2818
2823
2830
5100
4
3
..,.
3
7598
7597+X3
3
3
2843
2846
2849
'800'
3
2852
+0870
8700
11198
11197+X3
4
2856
2859
2862
2865
2866
+0510
DSA
I
GRPMRK DC
•
LTORG *
DCW
'00'
~DTP12
4
I.
3
3
3
1
2
4
'0015'
4
=01
+3
1
':1
1
3
2
+12
001
011
028
t
057
068
L (U6
30
006
024
035
062
071
001 W
30
30
30
30
31
31
31
31
31
31
32
32
32
N 000
B -04 l
) l24 Q66
C L93 LIB
M LIB 199
S 193
8 Vl3 S
B V13 U
M ROO 199
8 Yl3
32
32
32
32
2836
')o.l.n
'0
.... \1
"2."2
~~
lOt
E9Y
EIX
33
33
33
10-
33
33
33
A9Q
AlP
34
34
34
2867
+0150
=03
,
,
,
,
1
2868
2872
2876
2871
2878
2819
2882
2884
LIT
lIT
LIT
34
34
34
AREA
34
LIT
LIT
AREA
34
35
LIT
35
35
1401 AUTOCODER-PASS 5-PROCESS LABELS-INITl-VERSION 3
SEQ
PG LIN
348
385
366
3 55
3_ 56
LABEL
OP
lIMAD
ENOINT
Dew
XFR
OPERANDS
+400
+40
+36
=03
+13
+00o_9
• ,
LI8RN
3751L
PAGE
SFX CT
LOCN
3
2
LIT
LIT
2
2881
2889
2891
LIT
35
3
2894
2
2896
2900
29-01
AREA
LIT
LIT
36
4
1
INSTRUCTION TYPE
7
B 000
CARD
35
35
35
36
36
37
1401 AUTOCOCER-PASS 5 MAIN LINE
SEQ PG LIN
387
388
389
390
391
392
3
3
3
3
3
396
3 66
3 67
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
4.24
425
426
427
428
429
430
431
432
433
434
435
436
3
3
3
3
3
3
3
3
68
3
3
3
3
17
69
70
11
72
73
74
75
3 16
78
19
..
lONE
113
ZONE2
109
ABBIT
BBIT
ASIT
NOBIT
XRl
89
XR2
94
XR3
99
.
ANAL
4
'2SKS'
4
ZONE
EQU
EQU
EQU
EQU
DCW
EQU
DCW
EQU
Dew
ORG
ZONE-DOl
lONE-002
lONE-003
89
8M
Mew
MCW
3 85
86
87
3
eQu
BeE
BCE
MN
BCE
3 84
4
4
4
109
'000'
A
A
88
89
B
90
8
B
NOP
91
92
93
B
94
PUT,CARD+OO5
PUT,TYPE,(
INSTR,TYPE,
TYPE,XR2
DA,XR2,Q
'0' t INOFTR
'O',DASW
XR2
XR2
*+Q01+X2
XXXX
CaNST
CONST
EXENO
SFX
B
B
PUT
95
B
ORG
96
B
91
98
99
00
01
02
B
OS
PUT
PUT
4 03
4 04
4 05
4 06
lOCN
INSTRUCTION TYPE
8
CARD
-VERSION 3
113
'2SKB '
..
3 82
3 83
3
SFX CT
EQU
Dew
EQU
Dew
94
'000'
99
'000'
ZONE+OOI
PAGE
3752l
0113
0113
0109
0109
0113
0112
0111
0110
0089
40
41
3
0089
42
3
0094
0094
43
0099
3
0099
44
0114
.. DETERMINE RECORD TYPE
80
3 81
3
3
3
3
3
3
3
3
3
3
3
3
1401 AUTOCODER-PASS 5 MAIN LINE
.. PASS C-LOAD SYMBOL TABLE + SET ADDRESSES
3 65
403
JOB
59
60
61
395
401
402
OPERANDS
if.
394
397
398
399
400
OP
51
58
3 62
3 63
3 64
393
LABEL
-VERSION 3
•
B
8
8
8
1
8
7
7
4
4
....,.
4
4
4
4
4
4
4
4
4
4
0114
0122
V l·77
B I71
005 K
015 f
0130
B 219 015
0138
0145
0153
0160
0161
0171
0 075
B 871
M Y92
" ' " .... C'
V~f:.l
0119
0183
0181
0191
0195
0199
094
094 0
Y69
45
45
45
45
45
46
M Y92 Y68
A 094
A 094
46
46
46
n
J.r"7
~n'"
46
N 000
B 260
8 260
B 913
46
46
41
0
B 992
47
0203
B 316
47
41
41
0207
0211
0215
8 295
B Zll
8 Z77
41
48
0219
0226
0230
0234
0242
M
B
B
V
A
8 I11
47
.. PROCESS INSTRUCTIONS
..
INSTR
Mew
B
B
8wZ
A
'O',INDFTR
PRCAOD
PRoelS
PUT,STAODR,2
COUNT,NoweTR
1
4
4
8
7
Y92 Y69
t03
109
z71 003 2
001 Y48
48
48
48
48
48
1401 AUTOCODER-PASS 5 MAIN LINE
SeQ PG LIN
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
07
4 08
4
4 09
4 10
4 11
4 22
4 23
4 24
4 25
4 26
4 21
4 28
4 32
4 33
464
4 34
4 35
4 36
4 31
472
413
414
475
416
417
478
479
480
481
482
483
484
485
486
t1 t ,NOWCTR
PUT
4 38
4 39
4 40
4 41
4 42
4 43
4 44
4 45
4 46
4 41
4 48
4 56
BCE
Mew
B
B
INSTRUCTION TYPE
CARD
7
0249
S Y93 v48
49
4
0256
B Z17
49
PRCAST,AOPHO,·
'I t ,ACTSw
PROCLS
PUT
8
0260
8 283
49
1
4
4
0268
017 ...
M Y93 Y67
0275
0219
B 109
B I71
4949
49
0283
B t03
B 109
49
50
8 Z77
50
...
PReAST B
B
B
...
PRCADD
PROClB
PUT
* PROCESS DS + EQUATES
*OS
PROCTU,AOPHG,t
BCE
A
BeE
BWl
BWl
B
4
4
4
0287
0291
8
0295
B 361 011
50
AINDEX,INDFTR
eONST,AOPHO,*
CONST,AOPHO,2
*+OO5,STAGP,2
CONST
1
8
8
8
0303
A 027 Y69
50
0310
0318
0326
0334
B
260 017*
50
V 260 017 2
V 338 001 2
B 260
51
SETAOP
DSAPUT,LABRTN+OO3
UNPROC,STAOP,2
CONST
4
7
8
0338
B U35
51
0342
51
51
4
0351
V12 597
V 181 001 2
B 260
51
4
50
51
*
... EQUATE
..
B
Mew
BwZ
....
B
Mew
.
B
AOPER-003,LABAOD-OOl
7
0361
'0'
4
4
0368
M 019 060
M Y92
52
52
0312
8 260
52
8
0316
0384
V 40.5 033 8
52
52
CaNST
* PROCESS ORIGIN + LITERAL ORIGIN
*
SETHGH,CARD+033,B
BWZ
ORG
ZA
A
Ml
SETHGH BCE
C
BH
lA
*
0349
M
OS OF INPUT DEVICE
*PRCCTU Mew
4 52
4 53
4 54
4 55
LoeN
9
... PROCESS CONSTANTS + DSA
4 49
4 50
4 51
SFX C1
PAGE
...
*... CONSTANTS WITH ASTERISK ADDRESS
462
469
S
B
4 16
4 17
4 18
4 19
4 20
4 21
463
410
471
OPERANOS
CONST
460
461
466
467
468
...
OP
4 12
4 13
4 14
4 15
4 29
4 30
4 31
465
LABEL
3152L
-VERSION 3
LABAOD,ORGACD
'l',ORGADD
ABBIT,CARD+033
ORGSAV,MAXSw,1
NOWCTR,HGHCTR
ORGSAV
NOWCTR,HGHCTR
* PROCESS SAVE COUNTER OF ORIGIN
7
0391
+ 061 032
A Y93 032
7
0398
Y 113 033
52
53
8
7
5
7
0405
0413
0420
B 432 V60 1
53
C
B
0425
+ Vlt8 Y58
1
Y48 Y58
432 U
53
53
53
1401 AUTOCODER-PASS 5 MAIN LINE
seQ
PG LIN
487
488
489
4 58
4 59
490
491
492
493
494
495
496
491
498
499
500
501
502
503
504
505
506
507
SOB
509
510
511
512
513
514
515
516
511
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
4 57
4 60
4 61
4 62
4 63
4 64
4 65
4 66
4 67
4 68
4 69
4 10
4 11
4 12
4 13
4 74
4 15
4 16
4 11
4 18
LABEL
*
ORGSAV BeE
MCW
Mew
BWl
B
BCE
STOlAS B
B
BCE
BCE
B
STRSAV BCE
BeE
MCW
A
B
OPERANDS
AOPOR,lBlHO,
'OO5',XRl
+AOPOR,lABRTN+OO3
*+OO5,STlABl,2
AopeR
STRSAV,SUPACD,
DOlABl
SEARCH
STORE,DBlSW,1
STORE,5PCSW,O
UNPROC
UNPROC,AOORSw,1
UNPROC,LITRSW,l
NOWCTR,SUPACO
'1',SUPADO
BTOLAS
* PROCESS A OPERAND OF ORIGIN
*AOPOR BWl
*+OO5,STACP,2
B
BeE
MCW
S
BCE
4 80
4 81
10
SFX CT
LoeN
INSTRUCTION TYPE
8
0432
1
0440
1
8
0441
0454
0462
0466
0414
0478
B 536 008
M Y96 089
M V99 S97
V 466 002 2
54
54
54
54
8 536
B 502 066
B T58
54
4
8
4
4
8
0482
8
4
0490
0498
8
8
0502
7
1
4
0510
0518
0525
0532
B
8
8
8
8
8
M
W29
569
569
181
181
181
Y48
Y64 1
Y63 0
CARD
55
55
55
55
55
55
Y59 1
V6l 1
56
56
066
56
56
56
A Y93 066
B 474
ACTUAL
ASTRSK,AOPHC,.
'O',lITRSw
NOwCTR
BlKAOP,AOPHC,
0536
0544
0548
V 548 001 2
8 761
B 108 011 •
51
51
8
0567
M Y92 Ybl
S V4B
8 735 011
51
4
0556
0563
7
0515
0582
8
4
8
1
51
51
51
** SYMBOLIC ORIGIN
*
4 89
MCW
S
'O',ORGSW
XR1+001
B
.:>t:IAur
BCE
SETORG,ORGSW, 1
'11',MAXSW
SCNTB+1
LA8AOD .. ORGCTR
'O',ADDRS"
*+OO5,AOPAOJ-002,X
AOPOUT
Mew
4 90
4 91
SETSWS
4 92
4 93
4 94
4 95
4 96
SETORG MCW
B
RSTSWA
Mew
BeE
B
, . ...... .A.
"'ft
M Y92 Y66
58
58
8
0590
S 090
8
B 609 Y66 1
1
0598
M
4
0605
0609
0616
0623
0631
B 813
M 061 V53
4
..,.I.
7
7
8
4
nc:
OL
V;"QU
II~C:
U~J
lOI Y60
M Y92 Y59
B 635 024 X
8 669
c::o
..IU
58
58
58
59
59
59
59
*
4 97
* ADJUSTMENT OF XOO
4 98
4 99
*
BeE
5 00
C
01
5 02
5 03
BE
5
5 04
5 05
5 06
PAGE
3152l
*
4 19
4 82
4 83
4 84
4 85
4 86
4 87
4 88
OP
-VERSION 3
NXTCNT
Mew
A
AOPOUT A
IA
ZA
NXTCNT,AOPHC,*
ORGCTR,+OO
AOPOUT
+OO,ORGCTR
'l',ORGCTR-002
ORGCTR,ORGACO
ORGCTR,lABAIJD
ORGAOD,NOwCTR
8
0635
1
0643
5
1
7
0650
0655
0662
0669
0616
1
0683
7
1
B 655 017 *
Y53 Z03
B 669 S
e
M I03
Y53
A Y93 Y51
A Y53 032
+ Y53 061
+ 032 Y48
59
60
60
60
60
60
61
61
1401 AUTOCOCER-PASS 5 MAIN LINE
SEQ PG lIN
537
538
539
540
541
542
543
5it4
5 01
5 08
5 09
5 10
5 11
5 12
5 13
5 14
560
561
562
5 15
5 16
5 17
5 18
5 19
5 20
5 21
5 22
5 23
5 24
5 25
5 26
5 27
5 28
5 29
5 30
5 31
5 32
563
564
5 33
5 34
565
566
567
5 35
5 36
5 37
5 ':lA
5 39
5 40
5 41
5 42
5 43
5 44
5 45
5 46
5 47
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
C;J..G
.,..,'W
569
510
511
512
513
514
515
576
577
578
519
580
581
582
583
584
585
586
J
51
52
53
54
5 55
5 56
OP
OPERANDS
S
Ml
'1' ,NDWCTR
ABBIT,STAOP
PUT
B
..
3752l
PAGE
SFX CT
LOCN
INSTRUCTION TYPE
7
0690
0697
S Y93 vita
y 113 001
8 . ill···
7
4
··0704
8
0108
0716
11
CARD
61
61
-··--6I----
... ORIGIN ASTERISK
..
PUT,ADDRSW,l
SETSWS,lITRSW,l
NoweTR,ORGeTR
RSTSWA
ASTRSK BCE
BCE
Mew
B
..
...
..
8
7
4
0724
8
7
1
4
0735
0743
0750
0731
8 177 Y59 1
B 598 Y61
M Y4a Y53
B 616
1
62
62
62
62
ORIGIN MAXIMUM
SETSWS,MAXSW,l
HGHCTR,ORGCTR
'I' .ORGCTR
RSTSWA
BLKAOP BCE
MCW
A
..
B
0757
B 598 Y60 1
M Y58 V53
63
A Y93 Y53
B 616
63
63
+ 032 V48
S Y93 V48
63
62
... ORIGIN ACTUAL OR PROCESSED
...
ORGADO,NOWCTR
'1',NOWCTR
TSTXOO,AOPHC,*
'O',lITRS\\
SCNTB,AOPHO,2
SETORG,STAOP,K
'O',ADDRSW
ORGCTR
PUT
PUT,AOPADJ-002,X
PUT,CARD+034,B
ORGCTRjORGACD
PUT,AODRSW,I
PUT,lITRSk,l
ABS ITt CARC+O 3.4
ACTUAL
ACTUAL ZA
S
SCE
Mew
Bwl
8WI
SCNTB
Mew
S
B
TSTXOO BeE
BWl
A
....
5 48
5 49
5 50
5
5
5
5
LABEL
-VERSION 3
BeE
BCE
MI
..
B
* PROCESS
...
DA
BeE
BeE
BTOADD C
BL
MCW
DA
8
TSTRPT BeE
B
...
B
* DA HEADER
1
1
8
7
8
8
1
4
4
8
8
..,,
8
8
1
4
0761
0768
0175
0183
0790
0198
0806
0813
0817
0821
0829
no~"'I
VD3'
0844
0852
0860
0867
63
64
B 821 017 it
M Y92 V61
V 806 011 2
V 609 001 K
M Y92 Y59
64
S Y53
65
8 I71
8 Z77 024 X
V I77 034 B
A
O:)£
...
""S Y53
Z17 Y59 1
B I11 Vbl 1
y 113 034
B 161
65
4Ol
64
64
64
65
65
i
r'
O:J
65
66
66
66
STATEMENTS
ORIGDA,TYPE,O
TSTRPT,ACTSW,l
LABADO,SUPACD
*+8
'OO5',XR3
PRCADO
PUT,TYPE,.
PROCLS
PUT
8
0811
8
1
5
1
4
8
4
0819
0887
0894
0899
0906
0910
0918
4
0922
8 926 075 0
B 910 Y67 1
C 061 066
B 906 T
M Y96 099
8
8
B
B
t03
Z1'1 075
109
Z71
*
66
66
67
67
67
61
67
67
61
1401 AUTOCODER-PASS 5 MAIN LINE
SEQ PG
LIN
587
5 57
588
589
5 58
5 59
590
591
5 60
592
593
5
5
5
5
5
599
600
5 70
64
65
66
61
68
5 69
602
5 71
5 72
603
5 73
604
605
5 74
5 75
5 76
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
OP
OPERANDS
*
Mew
A
Mew
Mew
BeE
Mew
'O',INOFTR
AINDEX,INCFTR
'It,DASW
'O',ACTSW
BTOADO,AOPHO,·
'!'tAeTSW
TSTRPT
ORIGDA
5 61
5 62
5 63
594
595
596
597
598
601
LABEL
5 11
5 78
5 19
5 80
5 81
5
5
5
5
5
82
83
B4
..
B
• PROCESS EX + END
*
PUT,TYPE,B
EXEND BWl
MCW
'S',BRANCH
WRITE
B
*
* PROCESS SUFFIX
*
SFX
Mew AOPHO,SFXCTR
PUT
B
..*
PRCAOO SBR
Mew
aWl
TSTAOD BWl
BCE
A
A
C
5 87
Bl
5 8S
5 89
5 90
5 91
5 92
5 93
5 94
5 95
5 96
5 97
ZA
BCE
HZ
AOORTN B
lITTST Mew
BeE
B
•..
*
634
635
6 01
6 02
6 03
6 04
6 05
BCE
BCE
BeE
BeE
BTOlBL B
636
6 06
B
633
INSTRUCTION TYPE
1
0926
0933
0940
M Y92 Y69
A 027 Y69
M Y93 Y68
Y92 Y61
8 887 Ol7 ..
7
7
7
0941
8
7
0954
0962
4
0969
8
0973
0981
0988
7
4
7
4
M
CARD
68
68
68
68
68
M Y93 Y67
B 910
69
V .Z77 075 B
B X61
69
69
69
0992
0999
M 011 l23
B Z71
69
10
1003
1007
1014
H
70
M
V
10
10
M Z04 X84
69
AOORTN+OO3
'O',ACTSW
LITTST,STlABL,K
AOORTN,STAODR,B
AOORTN,AODRSW,1
ORGCTR,lABACD
ORGCTR,SUPACO
NOWCTR,lABAOD+X3
*+008
LA6AOD+X3,NGWCTR
ADDRTN,lITRSW,l
ABBIT,STAODR
XXXX
OSAPUT,LABRTN+OO3
lITRAl,TYPE,1
TSTAOO
4
1
8
8
1022
8
7
7
7
1030
1038
5..,.
1059
8
1071
7
4
1079
1086
1
1090
8
1091
1105
1045
1052
*89
Y92 Yb7
*90 002 i<
V *86 003 B
B *86 Y59 1
A Y53 061
A Y53 066
C V48 Of1
B *71 T
70
10
11
71
71
11
n..,., Y48
B *86 Y61 1
Y 113 003
72
B 000
12
M
B
Y12 S97
T25 075 /
B *22
12
1109
1113
1121
H 597
73
1125
8
1133
1141
1149
B S80 008
B /51 Y67 1
B 501 V61 1
B 501 Y59 1
4
1151
B
4
1161
f
4
"t " L I .
LUO"'t
+
vr.&.
",
fJ,.
72
12
72
PROCESS lABEL
PRCClS SBR
BWl
631
632
LOCN
PROCESS ADDRESSES
98
5 99
6 00
630
SFX C1"
12
41-
85
86
5
PAGE
3752L
-VERSION 3
B
LABRTN+OO3
*+OO5,STlABl,2
lABRTN
MRKPRC,lBlHC,
STOlBL,ACTSW,l
TSTOBl,LITRSW,l
TSTDBL,AOCRSW,l
DOlABl
SEARCH
4
8
4
8
8
8
/25 002 2
B 594
V
T58
B W29
73
13
13
73
74
74
74
74
1401 AUTOCODER-PASS 5 MAIN LINE
SEQ PG LIN
638
6 01
6 08
639
6
631
640
09
6 10
641
6 11
tJ42
6 12
6 13
6 14
6 15
643
644
645
646
647
648
649
650
651
652
653
654
655
656
651
658
659
660
661
662
663
664
665
666
661
668
669
670
671
612
613
614
6 16
6 17
6 18
6 19
LABEL
•
OBLDEF,DBlSw,l
STORE,SPCSW,o
..*
•
BCE
8
TSTOBL BCE
B
B
BeE
BCE
Ml
6 24
..
B
•SETSWl
•
STORE
LCA
LeA
6 36
6 31
6 38
6 39
MRKPRC MZ
MCW
lABRTN B
6 40
6 41
it
617
6 46
•
LOCN
INSTRUCTION TYPE
B
8
1165
1173
8 S98 Y64 1
74
B S69 Y63 0
75
1
1
1181
M Y93 L94
A Y93 193
8 550 075 I
B S94
75
75
4
1188
1195
1203
8
1201
4
1215
4
8
8
1223
8
CARD
15
75
UNPROC,LBLHC,$
DOLABL
SEARCH
UNPROC,DBlS",O
UNPROC,ADCHO,
BBIT,STLABl
lABRTN
7
4
1219
1231
1239
1246
B IBI 008
8 T58
8 W29
B 181 Y64 0
B IBI M-O
y 112 002
8 594
76
76
76
76
76
76
77
S94 008
lOI Y61
B S94
77
77
71
$
LA8RTN t LBlHC,$
'11',lITRSW
LABRTN
8
7
4
1250
1258
1265
B
M
1269
1276
1280
L lOS M-9
l l12
y 113 002
17
71
78
1~O'"
Y93
8 000
70
$
FNCTN,SYMBOl
1
HOLOAD
A88IT,STLABL
4
1
..,
....
·..... nr\,.. ....
ti
w.L",t'KU\..~ft
XXXX
f
,1,'0'
4
1294
nU
f n&:
L"7.J
tV
78
DOUBLY DEFINED LABEL
it
OBlOEF BeE
Ml
BCE
•
•
•
678
679
6
6
41
48
6
49
680
681
682
6 50
6 51
6 52
683
6 53
684
6 54
b 55
it
56
it
6
SFX CT
STORE LABEL IN TABLE
6 35
it
BCE
Mew
B
it
6 45
13
• UNPROCESSED LABEL OF LITERAL
6 33
6 34
6 42
6 43
6 44
'l'tTOTLAS
SETSWl,TYPE,1
lABRTN
PAGE
3752L
SEARCH TABLE FOR DBL OEF LITERAL
6 23
675
616
685
686
BCE
BeE
A
6 21
6 22
6 27
6 28
6 29
6 30
6 31
6 32
OPERANDS
• UNPROCESSED LABEL
..UNPRoe
Mew 'l',UNPRSW
6 20
6 25
6 26
OP
-VERSION 3
a
STORE,AODHO,
BBIT,STLASl
LITRAL,TYPE,I
LABRTN
569 M-O
Y 112 002
B T25 015 I
B S94
18
18
19
19
1347
V S94 004 B
M lOS 075
S 007 Y53
S 007 Y48
1354
B S94
80
8
1298
7
8
1306
1313
4
1321
8
7
1325
1333
1340
7
4
B
79
19
DOUBLY DEFINED LITERAL
LITRAl aWl
Mew
S
S
B
LABRTN,STBOP,e
'(',TYPE
COUNT,ORGCTR
COUNT,NOWCTR
LABRTN
SET UP LABEL + ADDRESS
1
19
80
1401 AUTOCODER-PASS 5 MAIN LINE
OP
SEQ PG LIN
LABEL
681
688
689
690
691
692
.. FOR TABLE SEARCH
106
107
108
6 77
6 78
109
710
6 79
111
81
6 82
6 83
712
113
714
115
716
717
718
719
720
721
722
723
124
125
126
121
128
129
730
731
6 80
6
6 84
6 85
OOINOX MN
HZ
•
•...
STRBNK LeA
•
~-~
1 05
1 06
1358
1362
H U34
M 013 lO8
1369
1376
056
8 TS8
1384
8 T95
M L23 loa
M OWl 112
1
1
8
4
7
7
8
7
1
7
1388
1395
1402
1410
1417
1424
1431
M
80
80
80
81
81
81
loa
loa
Y 113 Zll
B 000
1435
H U81
1439
7
7
4
4
8
8
It
1446
1453
1460
1464
1468
M
M
7
1488
CARD
80
B U11 OV1 0
y III l09
0 Y69 U27
4
1
FNCTN,SYMBOl
81
81
82
82
82
82
lIS U34
1416
022 loa
M 070 lOB
B T76
8 W29
8 V03 Y64 1
8 U8B Y63 0
1484
B 000
82
82
83
83
83
83
83
83
L.L7
84
64
4
1499
B U84
84
B
8 U84 14-0
M Y93 Y66
8
1503
1511
1518
1526
1530
1531
1544
1552
1560
1561
M V93 057
8 U84 015 0
86
1
1575
Y 060 120
86
8
AOPRTN
.... _, ._ ..
BeE
-
______
..
_ _ r.
_,_,
p ••.
__
........
MCW
awz
AOPRTN,ADCHC,
'1',ORGSW
.+5,LBLREF,2
B
-+8
HZ
A8IT t LBLREF
ADDLO,LABADD
AOPROC,LABACO-3,(
*+OOB,lABADD-003,2
'l',HOAOO
AOPRTN,TYPE,O
Mew
BCE
*... ADD CHARACTER
•
L
,.I.
,,~.,.~
MI
L LOB M-9
1495
I
MCW
BCE
aWl
1 01
735
736
.,~
AOOBNK
6 97
6 98
6 99
7 00
734
4
LeA
... RETRIEVE VALUE FROM TA8LE
...
_------
6 96
7 02
INSTRUCTION TYPE
LABEL NOT IN TABLE, STORE
...
1 03
7 04
LoeN
14
... WITH BLANK ADDRESS
6 86
732
SFX eT
4
• PROCESS A OPERAND OF ORIGIN + EQUATE
*
AOPRTN+OO3
SETAOP SBR
+BRSRH,DOLABR+OO3
Mew
Mew AOPER,FNCTN
Mew AOP,ARGUMT
SETFUN
B
SEARCH
BRSRH B
ADDBNK,OBLSw,l
BCE
ate STRBNK,SPCSk,O
AOPRTN B
xxxx
6 87
6 88
6 89
6 90
6 91
6 92
6 9'3
6 94
6 95
133
xxxx
OOLABR B
PAGE
3752l
3
•
"'1/"10
~
6 14
6 15
6 76
MZ
,
6 13
BeE
_
6 71
6 12
Mew
Mew
~
702
703
704
105
B
~
701
SETFUN BeE
.
100
6 69
6 70
Mew
~
698
699
Mew
~
691
DOLABR+OO3
LABEL,FNCTN
CNVLAB,ARGUMT=OO3
*+OO5,FNCTN.
*+008
SFXCTRtFNeTN
LABAOO+Xl,HOlDAO=OO4
OOINDX,HOADO+Xl,Q
ABIT,HOLDAO-OO3
INOFTR,.+004
ZONE,HOLDAD-OOI
SBR
_
694
695
696
•DOLABL
~
693
6 57
6 58
6 59
b 60
6 61
6 62
6 63
6 64
6 65
6 66
6 61
6 68
OPERANDS
-VERSION
AOJUST~ENT
1
8
4
1
1
8
8
7
84
V V30 M-l 2
B V31
y III M-l
M M-3 061
8 W18 058
V
(
V61 058 2
84
84
85
85
85
85
85
86
FOR EQUATE
lABADD-OOl,SAVEZN=OOI
1401 AUTOCODER-PASS 5 MAIN LINE
SEQ PG LIN
137
738
139
140
741
1~_2._
743
144
145
746
747
748
749
750
751
152
7 07
7 08
7 09
7 10
7 11
7 12
7 13
7 14
1 15
7 16
7 11
7 18
1 19
1 20
1 21
1 22
LABEL
OP
OPERANDS
A
AOPADJ,lABAOD
SAVEIN,LABACD-OOI
AOPRoe,AINOEX,
INOFTR,.+OO4
ZONE,lABAOO-OOI
ABBIT,STAOP
AOPRTN
MZ
BCE
MN
MZ
AOPROC MZ
B
...
•
SEARCH SBR
Mew
Mew
Mew
MCW
TBLSRH C
7 23
BE
754
7
1
7
7
BCE
755
156
757
758
SUMP
A
S
BM
C
1 28
159
160
1 29
au
7 30
761
162
163
764
765
766
767
7 31
7 32
1 33
1 34
7 35
1 36
BeE
MCW
76S
769
170
171
112
713
774
775
176
177
178
119
180
781
782
183
184
185
786
7 37
i 38
7 39
7 40
1 41
7 42
7 43
7 44
7 45
7 46
7 41
7 48
7 49
7 50
7 51
7 52
7 53
1 54
7 55
7 56
PAGE
3752L
SFX CT
1
1
8
1
1
7
4
lOCN
INSTRUCTION TYPE
A 026
Y Z20
15-96 -8 1418
1604 0 Y69
1611 V 113
1582
1589
061
060
021
W14
060
1618
y 113 001
1625
B
1629
1633
1640
1641
1654
1661
1668
1613
1681
1688
1695
1703
1710
H X66
M Y65 Y64
M l11 l14
M lOB 094
U84
15
CARD
86
86
-f3"1 -----
87
87
81
87
... TABLE SEARCH
753
24
25
26
21
-VERSION 3
Mew
S
..
•..
B
RETURN+OO3
DBLSW+OO1,DBlSW
TABMAX,MAXAOO
ARGUMT,XR2
SERCHS,MAXSER
FNCTN,SYMBOl
SETDBL
RETURN,SYMHC,
'010',XR2
' 11', MAXSER
SETSPC,MAXSER
XR2,MAXAOD
TBlSRH
SETSPC,WRAPSW,1
'1',WRAPSW
ARGUMT,MAXACO
XR2+001
TBlSRH
7
7
7
1130
M 199 l22
C loa M-9
B X45 S
B X63 M-4
A 123 094
S Y93 L22
V X56 L22 K
C 094 l14
B W61 I
B X56 V62 1
M Y93 V62
M lOB l14
4
4
1137
1741
S 095
B W61
....I
•.I.f-t'::;1
.... "r-
M
4
1152
B
7
4
1756
M Y93 V63
1763
B 000
8
5
1761
1775
1719
1784
1788
1192
1800
1804
4
1809
7
5
8
7
7
8
7
5
8
7
1715
1123
81
88
88
88
88
88
89
89
89
89
89
90
90
90
90
90
90
91
LABEL IN TABLE
SETCBl Mew
B
•
tl',DBlS"
RETURN
..• SPACE AVAILABLE
'1',SPCSW
SETSPC MCW
XXXX
RETURN B
.....
..
4
1
7
...
'-I"... ....
1"":13
...1"
:I
,o~
X63
....,
":1.1.
91
91
91
INPUT/OUTPUT - PASS C
WT
NOP
BER
BRANCH NOP
READ
S
RT
WRITE
8
BER
B
COUTPT,TPAREA
XXXX
TPERR
FINAL
HOLDA
CINPUT,TPAREA
CHKlGT
TPERR
NXTREC
4
5
4
4
8
4
M
tU6 118 W
N 000
-04 L
N V13
S L31
M (US 118 R
B
B K08
8 -04 L
B Z37
91
91
92
92
92
92
92
92
92
1401 AUTOCODER-PASS 5 MAIN LINE
seQ
PG LIN
781
788
789
790
791
7 51
1 58
792
793
194
195
196
797
198
199
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
'''..... n.
0.10
7 59
7 60
7 61
1 62
7 63
7 64
1 65
1 66
7 67
7 68
7 69
1 10
7 71
7 12
1 13
1 74
7 75
7 76
7 71
7 78
7 19
1 80
7 81
1 82
7 83
7 84
7 85
1 86
7 87
LABEL
OP
OPERANDS
3752L
-VERSION 3
SFX CT
LOCN
INSTRUCTION TYPE
1
4
1813
M K99 Y23
I 000
H Y23
C Y23 L02
B Y20 I
B X88
CLRTAS MCW
CLEAR CS
SBR
C
Bu
B
NOWCTR
ORGCTR
HGHCTR
AOORSW
MAXSW
lITRSW
WRAPSW
SPCSW
OBLSW
DCW
Dew
Dew
Dew
DC
DC
Dew
DC
DC
DC
ORGSW DCW
ACTSW Dew
OASW
Dew
INDFTR DCW
DSAPUT OSA
•
.. END
*
FINAL
CLRMAX,CLEAR+003
XXXX
ClEAR+Q03
CLEAR+OO3,ClRMIN
CLEAR
READ
+00000
+00000
+00000
'0'
'0'
'0'
'0'
'0'
'0'
tot
'0'
'0'
'0'
'0'
PUT
WTM
RWD
RWO
B
I
.... "",..,..
LtUt\\:I
ARGUMT
HOLCAD
136
SAVEIN
7
1820
1824
1828
5
4
5
1835
1840
1848
5
5
1
1853
1858
1859
1
1
1860
94
1861
1862
1863
1864
1865
1866
1861
1868
1869
1872
94
94
94
94
94
94
94
95
4
1
I
I
I
1
I
1
1
3
93
93
93
93
94
94
94
94
l77
95
95
U (U5 R
U (U6 R
95
5
5
4
*'
'0'
1
1892
LIT
1
+AOPOR
3
3
1893
1896
1899
• 11 •
2
1901
+00
2
'B'
1
1
=03
=04
3
4
3
1903
1904
1905
1908
1912
LIT
LIT
ADCON
LIT
LIT
, I'
'005'
..
+BRSRH
5
=01
'010'
• •
LIBRN
1873
1878
1883
1888
95
95
8 K47
., on'")
.L07'
4
ENDOFC DeW
XFR
U (U6 M
eQUIPT
eINPUT
CQUTPT
RDPSSD
(
691
695
705
93
93
93
OF PASS C, GET PASS 0
490
820
CARD
• CLEAR TABLE AREA
•
7 88
7 89
7 90
16
it
DCW
819
PAGE
1
3
1
1915
1919
536
U64
1920
1923
1924
95
96
96
96
96
LIT
96
96
LIT
AREA
97
AREA
AOCON
LIT
AREA
LIT
96
91
97
91
91
97
91
B 000
98
1401 AUTOCODER-PASS 6-PROCESS OPERANDS
lOCN
'00000'
'00000'
5
5
'00000'
'2SKB'
'2SKB'
lONE+OOI
5
0091
0096
0101
0109
0113
LIN
LABEL
OP
OPERANDS
821
91
92
..
JOB
1401 AUTOCODER-PASS 6-PROCfSS OPERANDS
823
824
825
826
827
828
829
830
831
7
7
7
7
7
7
7
93
91
DCW
94
96
101
DCW
Dew
95
96
97
7 98
7 99
8 00
01
02
03
833
834
8
8
8
8
835
8 05
836
8
8
8
8
8
a32
837
838
839
840
841
842
843
844
845
846
847
848
850
851
8
8
852
853
854
855
8
08
09
16
18
19
20
21
22
23
24
860
8
8
8 25
8 26
8 27
8 28
8 29
8 30
861
a
31
8
34
858
859
862
863
864
865
866
861
868
869
870
..
8 32
8 33
8 35
8 36
8 37
8 38
8 39
8 40
CARD
-VERSION 3
4
4
101
101
101
102
102
0114
SETAST
...
0114
0121
0129
M U32 U18
0131
0 015
MCW
BM
BCE
MN
BeE
BCE
BCE
BCE
BeE
BeE
a
'O',ASTRSW
PUT y CARD+OO5
PUT,TYPE,(
TYPE,TYPEA=QOl
PRINST,TYPEA,
PROSA,TYPEA,2
PROEND,TYPEA,3
PROSFX,TYPEA,4
ORGEQU,TYPEA,6
ORGEQU,TVPEA,1
PUT
1
8
8
7
B
LOADOR
'1',ASTRSW
..,,
0215
•.. PROCESS INSTRUCTIONS
•PRINST aWL SETAST,STADCR,2
8 11
8
8
851
•
Dew
DCW
ORG
INSTRUCTION TYPE
17
* DETERMINE RECORD TYPE
06
07
8 13
8 14
8 15
849
856
113
04
10
8 11
8 12
8
109
PAGE
3761l
3
SFX CT
SEQ PG
822
-VERSION
Mew
a 0144
8
0152
8
8
4
0160
0168
0116
0184
0192
8
0196
4
7
0204
0208
8
8
V Z17 005 K
B Z71 075 (
102
102
102
U33
102
8 196 U33
103
318
446
S79
B 489
B 489
B Z77
B
8
B
U33
U33
U33
U33
U33
2
.3
103
103
4
6
103
7
V 208 003 2
B 215
M U34 U18
104
104
104
104
104
104
... SET ASTERISK ADDRESS
4-
LOAD OR ZA
A
S
*..
..
CDUNT,ASTAOO
'1',ASTADO
7
7
0222
0229
• .,n
.... 061 tV37
A 007 U39
105
S U34 .U39
105
'tnt::
.l.VJ
TEST FOR A OPERAND
BCE
BCE
aWl
..
lAaAODtASTAOD~OO5
a
B
PUT,COUNT,l
PUT,COUNT,2
.+OO5,STAGP,2
SEEBOP
PROCOP
8
8
8
4
4
0236
0244
0252
0260
0264
B
Z71 001 1
B Z77 007 2
V 264 001 2
B 268
B 578
105
105
106
106
106
.. TEST FOR B OPERAND
*
SEE BOP aCE
BCE
Bwl
a
MCW
PUT,CQUNT,4
PUT,COUNT,5
*+OO5,STBCP,2
PUT
'OO3 t ,XR3
8
8
8
4
7
0268
0216
0284
0292
0296
B Z17 007 4
B l71 007 5
V 296 004 2
B lT7
M U42 099
106
106
107
107
107
1401 AUTOCODER-PASS 6-PROCESS OPERANDS
seQ
811
872
813
814
815
876
B17
£318
819
880
881
882
883
884
885
886
887
PG LIN
8
8
B
8
8
8
OP
OPERANDS
41
Mew
42
B
'011',XRl
PRoeop
PUT
43
44
45
46
8 41
8
8
8
8
49
50
51
8 52
889
8 59
890
8
8
8
8
8
8
8
8
893
894
895
896
897
898
899
900
901
902
903
904
60
61
62
63
64
65
66
61
a 68
8 69
8
8
8
8
70
MCW
SETOSA LA
Mew
Mew
BWl
B
B
aWl
BCE
eOMPRS MCW
BeE
B
Mew
S
IA
B
TSTPRe aWl
B
+16000.FNCTN-OOl
HOlOAR,FNCTN-OOl
FNCTN-OOl,HCLCAR=005
COMPRS
SETDSA,STBOP,2
PUT
73
PROEND S
8
78
8 79
910
911
8 80
a 81
912
8 82
8 83
8 84
aWl
a
B
BCE
B
ENOOPN Mew
•..
..
8
ORGEQU BWI
B
8 86
8 81
BCE
aWl
BeE
BeE
8 88
919
920
8 89
8 90
LoeN
INSTRUCTION TYPE
1
0303
4
4
0310
0314
M U45 089
B 578
B Z11
8
0318
4
1
7
0326
0330
0337
7
0344
CARD
101
101
101
7
0351
8
It
0358
4
8
8
7
8
4
V 330 003 2
B 434
M U34 U18
.. U42
061 U39
099
M
ttl U45 089
108
108
108
108
108
109
V 370 004 2
8 I77
109
B 578
109
109
109
110
110
110
0366
0310
0314
0382
0390
0397
0405
B 11-7 011
B *94
0409
0416
M U53 lO7
S US8 LOl
0423
0430
+ L07 US8
V Z71 004 2
8 409 021 M U48 178
{
109
ASTADD
*+OO5,STAOP,2
*+005
PROCOP
ENDOPN,TYPE,3
PUT
'B',BRNCH2
PUT
7
1
7
4
8
4
4
8
4
4
8
4
7
0434
0442
0446
0450
0458
0462
0466
0414
0478
8 390
110
110
111
111
331 004 2
Z11
III
S U39
V 462 001 2
8 466
III
III
B 518
B 478 075 3
B Z77
M U59 X84
B 177
112
112
112
112
112
112
112
113
113
113
113
113
V
8
4
0485
8
4
8
8
0489
0491
V 501 001 2
0501
B 574 017
V 514 011 2
B 514 017 ..
B 574 017
111
111
PROCESS ORIGIN + EQUATE
8 85
918
SFX eT
18
GET 16000 COMPLEMENT
CMP16K
.
CNVT03
• PROCESS EX + END
909
915
916
917
B
*+00_5, STADOR, 2
TSTPRC
'!',ASTRSW
LABADO,ASTACD
'OO3 1 ,XR3
'Oll',XRl
.+005,STBCP,2
PUT
PRoeop
PUT,STBOP,2
CMP16K,AINDEX,+PUT,OPRTN+3
PUT,AOP+l,(
it
908
914
aWL
72
906
907
913
PRDSA
..
•
..
PAGE
376lL
PROCESS DSA AND ADCON
11
8 74
8 75
8 76
8 77
905
B
8 53
8 54
8 55
888
892
..
•
..
48
8 56
8 57
8 58
891
LABEL
-VERSION 3
8
*+Q05,STAOP,2
ORGOUT
ORGOUT,AOPHC,
ORGOUT,AOPHO,2
ORGOUT,AOPHC, ..
ORGOUT,AOPHO,(
PRoeop
8
8
4
0509
0517
0525
0533
B 574
8 578
1401 AUTOCODER-PASS 6-PROCESS OPERANDS
SEQ PG LIN
921
922
923
924
925
8 91
8 92
8
8
8
93
94
95
96
97
926
927
8
928
8 98
929
8
9
9
9
930
931
932
933
934
935
936
931
938
939
940
941
942
943
944
945
946
941
948
949
950
951
LABEL
8
99
00
01
02
9
9
9
9
9
11
12
13
14
15
16
11
953
954
955
956
9
"7
.,.,
"23
...
*PROCOP SBR
BWZ
B
..
CNVSVM BCE
B
MCW
BCE
B
MCW
lA
ZA
A
A
HZ
ZA
unvt n
Uk'
nrll.r
'''in
MUlT
lA
BeE
9 30
Mew
961
962
9 31
9 32
9 33
9 34
9 35
9 36
9 31
9 38
9 39
9 40
BAV
910
B 561 -{il3 1
y 112 001
M U58 061
8 Z17
114
114
--114
114
114
115
OPRTN+OO3
*+OO5,STACP+X3,2
OPRTN
SETZRO,AOPHC+Xl,
PERCNT,AOPHC+Xl,(
FLOAT,AOPHO+Xl,2
PROAST,AOPHC+X1 t *
4
8
4
8
8
B
8
0578
0582
0590
0594
0602
0610
0618
H 118
V 594 0+1 2
B 175
B 942 0/1
B 950 011 I
V 521 0/7 2
B 190 0/7
...
115
115
115
115
115
116
116
.. CONVERT SYMBOL TO TABLE ADDRESS
959
965
966
961
968
969
0560
0561
0574
05-52-
CARD
...
960
963
964
7
0545
19
... PROCESS OPERAND SUB-ROUTINE
9 24
9 25
9 26
9 27
9 28
9 29
957
958
V 574 001 2
M U32 U28
4
ORGOUT B
9 20
9 21
n
0537
PUT
MZ
Mew
9 18
9 19
952
8
7
8
7
BCE
BCE
aWl
BCE
9
9
INSTRUCTION TYPE
ORGOUT,STAOP,2
10',ITERSW
*+OO8,TYPEA,7
BBIT,STAOP
HOlDAR,lABACD
9 04
9 09
9 10
LOCN
BWl
BCE
9 08
SFX CT
OPERANDS
Mew
PAGE
3761L
OP
9 03
9 05
9 06
9 07
-VERSION 3
A
S
B
NXTCGT S
BttZ
LOCP1
A
BAV
MZ
Mew
MN
...
•
•
Ml
*+OO5,AOP-002+X3,
SETSYM
AOPER+Xl,W6AREA=OO6
*+5,W6AREA,
*+8
SFXCTRtW6~REA
+2,HOlD2=OO2
W6AREA-002,HOlD4=OO4
W6AREA,HOlD4
W6AREA,HOlD4-002
NOBIT,HOlD4
FACTOR,HOLD7
uru n.,
un. n,
nu ... uf'nuL ......
8
4
7
8
4
1
7
1
1
7
SYMBOLIC OPERAND
0657
0664
0671
0618
0685
7
0692
7.,
0699
7
".,"L
UfVO
0113
0714
0722
0729
0736
0740
0747
0755
0162
0761
0714
0719
0186
0790
7
0191
f
1
NXTDGT,HOlDl,+
HOlD4,HOLD7-002
+l,HOLDl
MULT
+l,HOlD2
MPVlP,HOlO2.B
'OOO't AOP+ X3
*+001
+96.HOlD7-005
lOOPl
HOLD7-006,AOP+X3
HOt.() 7'-:003
HOLD7-005,·.OO4
lONE2,AOP-002+X3
0626
0634
0638
0645
0653
8
7
1
4
7
8
7
5
7
5
7
4
8 638 OF8
B 804
M OS2 U65
B 651 U65
8
664
M l23 U65
+ U66 U68
+ U63 U72
A U65 U72
A U65 U70
Y 110 U72
+ Laa U26
no
IJ
i t .......
u~o
...... .,
,
VL'
116
116
116
111
117
117
111
111
118
118
118
118
•
.. n
.1..1.0
+
118
B 140 U21 +
119
119
119
119
119
120
120
120
120
A U12 U24
S U73 U27
6
S
V
M
714
U13 U68
106 U68 B
U16 OGO
B 761 Z
A U18 U21
B 767 l
y U20 OGO
U23
U21 800
y 109 OF8
M
0
120
120
121
121
121
1401 AUTOCODER-PASS 6-PROCESS OPERANDS
SEQ PG LIN
LABEL
OP
OPERANDS
911
912
SerSYM
Mew
AOPER+Xl,FNCTN
*+OO5,FNCTN,
*+008
SFXCTR,FNCTN
TABMAX,MAXADD
'O',SWICH1
AOP+X3,XR2
SEReHS,MAXSER
973
914
975
976
977
978
919
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1011
1018
1019
1020
9
9
9
9
9
41
BeE
B
Mew
MCW
MCW
42
43
44
45
9 46
9 47
9 48
9 49
9 50
9 51
9 52
9 53
9 54
9 55
9 56
9 57
Mew
Mew
*
* TABLE SEARCH
*SRHLOP C
FNCTN,svMBOl
BE
BeE
BUMPER A
S
BM
C
9 58
9 59
au
BeE
Mew
MCW
5
9 60
9 61
9 62
9 63
9
9
9
9
9
9
65
66
61
68
69
9 10
9 71
9 72
9 73
9 14
9 75
9 76
9 11
9 78
9 79
9 80
9 81
9 82
9 83
9 84
9 85
9 86
9
9
9
9
B
64
87
88
89
90
RECAll
UNOEF,SYMHO,
'010',XR2
'1',MAXSER
UNCEF,MAXSER
XR2,MAXAOC
SRHLOP
UNOEF,SWICH1,1
'l',SWleHl
AOP+X3,MAXACO
XR2+001
SRHlOP
3761l
-VERSION 3
PAGE
SFX eT
lOCN
INSTRUCTION TYPE
7
0804
a
0811
0819
Oa23
M OS2 loa
8 823 loa
4
7
7
7
0830
0837
1
0844
7
0851
1
5
B
7
7
8
0858
1
0865
0870
0818
0885
0892
8 830
M l23 loa
M I I I l14
M U32 U19
M OGO 094
M 199 l22
C lO8
B 980
B 961
A U81
S U34
V 961
C 094
M-9
S
M-4
094
l22
L22 K
L14
20
CARD
121
121
121
122
122
122
122
122
123
123
123
123
8 858 I
8 961 U19 1
M U34 U19
M OGO LI4
S 095
B 858
123
124
124
124
124
124
125
125
125
125
125
7
0900
0901
0912
0920
7
0927
4
4
0934
0938
4
4
0946
S U58
B *49
7
4
0950
0957
M 0/9
B /68
8
7
4
0961
0969
0976
B /15 U28 0
M U84 OGO
B /75
126
126
8
0980
0988
0996
1000
B 961 M-O
V *00 M-l 2
B *07
126
8
4
5
8
*
* BLANK OPERAND
•
HOlDAR
SETZRO S
CHRADJ
B
*
* PERCENT OPERAND
0942
...
PERCNT Mew
B
..
AOPER-003+X1,AOP+X3
MARK
* UNDEFINED OPERAND
*
OPRTN,ITERSw,O
UNDEF BeE
'===I,AOP+X3
Mew
OPRTN
B
*
• RETRIEVE VALUE FROM TAelE
*
UNOEF,AODHO,
RECALL BeE
*+5,LBlREF,2
BWl
B
*+8
ABIT,lBLREF
MZ
ADDLO,HOlCAR
Mew
Mew
BeE
'0'
IOADO,HOLDAR-003,(
1
1
48
1001
1014
1018
OGO
y
111 M-l
M M-3 u58
MU32
B 179 U55
125
125
126
126
126
127
127
127
127
1401 AUTOCODER-PASS 6-PROCESS OPERANDS
SEQ
1021
1022
1023
1024
1025
lO~6
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1041
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
PG LIN
9
9
9
9
9
LABEL
91
95
9 96
9 91
9 98
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
01
02
03
04
05
06
07
08
09
10
11
12
13
14
17
18
19
20
21
10 22
10 23
10 24
10 25
10 26
10 27
10 28
10 29
10 30
.-
CHRADJ HZ
BCE
A
HZ
TSTCNV BM
BeE
SFX
cr LoeN
INSTRUCTION
8
TYPE
1026 V *41 U55 2
1034 M U34 U54
8 ··-104[- .···s- *7 SlJ3-j·-··6-----··
7
21
CARD
127
128
·-[2ff--···
AOJUST~ENT
HOlDAR-OOl t HOLDZN=OOl
TSTCNV,AOPADJ-002+Xl,X
AQPADJ+X1,HClDAR
HOLDIN.HOLDAR-OOI
MARK. TYPE
MARK,TVPEA,2
1
1049
8
1056
1
1064
1011
1018
7
8
8
1086
y U51 U85
B *78 OS4 X
A 056 U58Y U85 U51
V 168 015 K
B /68 U33 2
128
128
128
129
129
129
129
130
130
130
130
130
131
131
131
131
Y 113 0+1
129
it
.. CONVERT FIVE DIGIT ADDRESS TO THREE DIGIT ADDR
*
CNVT03 BAV
A
BAV
Ml
MN
Ml
HZ
BCE
MN
MI
......
STRADO
MARK
OPRTN
...
..
Mew
HZ
B
MCW
B
*
* ASTERISK
*PReAST BCE
B
BCE
Mew
*
8
7
1094
1099
1106
1111
1118
1125
1132
1139
1147
1
1154
7
1161
B *99 l
A U81 U55
8 *99 Z
Y U54 U5B
0 U55 128
y 109 U56
y U85 U57
B 161 057
0 OS1 151
Y 113 U51
M U5e OGO
7
1168
1175
B 000
131
132
132
132
5
7
5
7
1
7
1
ABBIT,STAGP+X3
XXXX
4
1/0 ADDRESS IN TABLE
IOADD
•
•
*+001
'96',HOLDAR-003
CNVT03+Q05
HOLDAR-004,NOLOAR
HOLOAR-003,.+OO4
lONE2.HOlDAR-002
HOLOIN,HOLOAR-OOI
STRAOO,AINOEX+Xl,
AINOEX+Xl,.+OO4
lQNE,HOLDAR-OOl
HOLOAR,AOP+X3
MARK OPERAND PROCESSED
10 31
10 32
10 33
10 34
10 35
10 36
10 37
10 38
10 39
10 40
*+OO8,HOlCAR-003,2
'l',HOlOAR-004
TSTCNV,TYPEA,6
.. ADO CHARACTER
15
16
aWl
BCE
..
9 99
10 00
10
10
10
10
OPERANDS
Mew
92
93
94
OP
PAGE
3761L
-VERSION 3
B
HOLDAR-001,AOP+X3
MARK
7
1179
4
1186
M U57 OGO
B 168
8
8
7
4
1190
1198
1202
1210
1211
B
8
B
M
B
8
8
8
1221
1229
1237
8 626 017 =
B 626 0/1
V 549 0/8 2
OPERAND
*+5,AOPER+X1,
CNV5YM
OPRTN,ASTRSw,l
ASTAOD,HOLDAR
eHRADJ
4
S02 OS2
626
175 U18 1
U39 U5B
*49
132
132
132
133
133
ACTUAL OPERAND - FLOAT TO 5 DIGITS
FLOAT
BCE
BCE
BWl
CNVSYM,AOPHG+Xl,=
CNVSYM,AOPHC+Xl,'
"+OO5,AOPER-004+Xl,2
,
133
133
133
1401 AUTOCODER-PASS 6-PROCESS OPERANDS
SEQ
1071
1072
1073
1074
1075
1076
1011
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1111
PG LIN
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
10
41
42
43
44
45
LABEL
B
ZA
REF lOT BCE
B
ZA
B
46
47
48
49
50
51
52
*
*
*
* INITIALIZE
*
*PASSO sw
..
72
it
13
14
75
16
77
18
79
80
81
82
83
84
85
86
81
it
PAGE
3161L
22
SfX CT
LOCN
INSTRUCTION TYPE
CNVSYM
4
AOPER-001+X1,HOLDAR
*+OO5,HOLCAR,+
CHRAOJ
HOlDAR-QOl,HOlDAR
REFlOT
7
1245
1249
1256
1264
1268
1275
B 626
+ OSI U58
8 S68 U58 +
B "*49
... U51 U58
B 556
133
134
134
134
134
134
1219
1286
M 017 l23
B Z77
134
135
1290
1294
1302
1306
1310
1317
1324
1331
1338
1345
1352
1359
1366
1313
1380
1387
U30
L CU6
) U30
I 080
001
t
011
t
028
057
068
M l27
M U88
M U88
M U88
M ll4
M l34
M U89
8
1
4
7
4
1
1
7
1
1
1
2
1394
1402
1403
1407
1414
1418
1419
1426
1427
1428
1429
1431
1900
B U01 195 0
8
B X8S
M U34 U28
B X8S
1
I
I
1432
1433
1434
OPERANDS
8
4
1
4
CARD
PROCESS SUFFIX
PROSFX MCW
B
53
54
55
56
51
58
59
60
61
62
63
64
65
66
67
68
69
10
71
835
OP
-VERSION 3
RTW
ew
CS
sw
SW
sw
sw
sw
Mew
Mew
~cw
~ew
Mew
Mew
Mew
iEST
t
a,., ...
LA~'
•
4
4
8
4
4
1
7
7
7
1
1
7
7
7
1
7
7
,
,
,
,
135
135
135
135
135
135
136
136
136
136
136
131
13"7
131
137
131
U29 R
006
024
035
062
071
878
J15
K01
J42
X73
X98
l23
ITERATION
8
READ2
'1',ITERSk
REA02
0
'0'
B
TYPEA
GPMRK2-1
OlNPUT,BYPRC
GPMRK2-1
CARD+080
CARD+001,CARD+OO6
eARD+017,CARD+024
eARO+028,CARD+035
eARO+057,CARO+062
CARO+068,eARD+011
8UMPOP,8UMPER
'6',TPHALT+4
'6',TPHlT2+4
'6',TPHlT3+4
TPAD,WRITE2+006
TPAD,READ2+010
, ,SFXCTR"
LSTITR,PROCSW,o
Dew
Dew
DCW
Dew
Dew
Dew
GPfJRK2 DC
SSOP
EQU
LTORG
Dew
1
PASS 0
BeE
BCE
lSTITR Mew
ASTRSW
SWleHl
HOL07
HOL01
ITERSW
BYPRO
AOPHO,SfxeTR
PUT
•
+0
'0'
, ,
• ,
,
1900
*
'0'
=01
• I'
138
138
138
138
138
138
138
139
139
139
139
139
1432
lIT
AREA
LIT
139
139
139
1401 AUTOCODER-PASS 6-PROCESS OPERANDS
SEQ PG LIN
852
LABEL
OP
ASTADO
OPERANDS
=05
'003'
'OIl'
+PUT
+16000
=05
888
896
HOLDAR
942
W6AREA
946
947
HOLDl
HOLD4
1027
'S'
=06
+2
=02
=04
+1
'000'
+96
'010'
'==='
=01
HOLDlN
1122
1123
1124
1125
1126
1121
1128
1129
1130
1131
1132
10 92
10
10
10
10
93
94
95
96
10 97
10 98
10 99
11 00
11 01
11 02
1133 11 03
1134
1135
1136
1131
1138
1139
1140
1141
1142
1143
1144
...
..
...
ORG
REA02
CARD
5
3
3
3
5
5
1439
AREA
1442
1445
1448
1453
1458
1459
1465
1466
1468
1472
1413
1416
1478
1481
1484
1485
1487
1488
1489
LIT
140
140
14-0
140
140
140
140
141
141
141
141
141
141
141
142
142
142
142
142
142
1
6
1
2
4
1
3
2
3
3
1
2
1
1
WRIfE
DOUTPT,TP"'REA
XXXX
TPERR
lIT
ADCON
LIT
Z71
AREA
LIT
AREA
LIT
AREA
AREA
LIT
LIT
LIT
LIT
lIT
AREA
lIT
LIT
LIT
1161
RT
B
4
BER
TPERR
r
"' nl'\ r~
B
NXTREC
4
1809
DOUTPT
OINPUT
DOUTPT
SVSTPE,333
XXXX
TPERR
ENDOVL
BUMPOP,TSTlST
BUMPOP,NOT
TSTREF
5
5
5
8
S
FINAlO WTM
RWD
RwD
RTW
11
12
13
14
INSTRUCTION TYPE
FINALD
HOLDA
DINPUT,TPAREA
CHKLGT
11 04
09
10
lOCN
1767
1715
1119
1784
1788
1792
1800
11 05
11 06
11 07
11 08
11
11
11
11
11
11
23
SFX CT
'96'
I
PAGE
INPUT/OUTPUT - PASS 0
WRITE2 WT
NOP
BER
BRNCH2 NOP
..
3161l
'6'
I
1118 10 88
1119 10 89
1120 10 90
1121 10 91
-VERSION 3
NOP
BER
CW
Mew
Mew
B
Dew
ENOOFD Dew
EX
,• ••
LIBRN
8
4
5
4
4
8
"J
4
5
4
1
1
4
1
1
.LOU"'t
B K08
143
143
143
143
143
143
143
0
't I. I.
M (U5
118 W
N 000
B -04 l
N VI3
S L31
M (U6 118 R
-04 •L
B l3l
D
1813
U (U5 M
1818
U {U6 R
1823
U (U5 R
l (Ul 333 R
1828
1836
1840
1845
1849
1856
1863
1867
1868
N 000
B -04 L
) S45
M l27 474
M L27 126
B 333
B 000
~"'T"'T
144
144
144
144
144
144
145
145
145
145
145
145
145
146
1401 AUTOCOCER-PASS 6 PRINT SYMBOL TABLE
SEQ PG LIN
1145
1146
1141
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1112
1173
lll4
1175
1176
1111
1118
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
15
16
17
18
19
20
21
22
23
24
25
26
21
28
29
30
31
32
33
LABEL
Ii
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11 62
11 63
11 64.
OPERANDS
JOB
1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE
ORG
333
PAGE
3762L
SFX C1
lOCN
INSTRUCTION TYPE
24
CARD
-·VERSION 3
II-
*
*
*
*
0333
END OF PASS D
PRINT lIST OF UNREFERENCED LABELS
II-
TSTREF CS
0332
CS
S
XR3+1
S
S
SW
NXTLBL BCE
BeE
BCE
C
BH
C
BL
34
35
36
31
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
OP
-VERSION 3
MN
awz
A
Bfwt
A
SWTAB
sw
S
DOREF
aWl
B
BW
DONEXT
cw
B
HEAOSW=OOI
TSTLST,SYMHO.
TSTlST,ADDHC,
LOZNG t SYMHO, )
SYMHO,tA'
DOREF
BE
BCV
B
NEhPGE CC
Mew
CC
DOREF
SYMHO,XR3
SWTAB,SY~HO,B
8
'OI0',XR3
SWTAB,SYMrO
'OI0',XR3
SORTAB+X3
XR3+2
*+5,lBlREF,2
TSTlST
NEWPGE,HEADSW
7
8
1
4
4
8
4
8
SYMHO,'Z'
HEADS.
....
PRINT
4
1
4
7
7
216
'OlO',XR2
XR2,TABMAX
DUMP
NEWPGE
NXTLBL
1
'UNREFERENCEC LABElS'.219
T
W
CS
BW
LOING
a
sw
B
*
8
7
5
7
5
7
W
CS
TSTlST A
C
4
1
4
1
1
4
8
8
0219
OONEXT,HEADSW
NXTLBL
~.
5
5
4
2
7
2
1
It
lIST-l
8
4
4
DOREF
4
0333
0337
0338
0342
0343
0344
0348
0356
0364
0372
0379
0384
0391
0396
0403
0411
0418
0426
0433
0437
0441
0449
0453
,,~.
L
'1
v .... OJ.
0465
0469
0470
0414
0481
0488
0493
0498
0502
0504
0511
0513
0514
0518
0526
0530
0534
I 332
I
S 100
S
S
,
180
B 414 M-4
B 474 M-O
B 530 M-4 )
C M-4 /81
8 441 U
C M-4 182
B 441 T
0 M-4 099
V 433 M-4 B
A 185 099
V 433 M-4 K
A 185 099
,
108
S 101
V 453 M-1 2
B 414
V 502 180 1
,
I
B
2
I
A
C
180
216
185 094
094 III
B 646 S
B 502
•
8 348
F 1
M 504 219
F T
2
I 219
V 461 180 1
,
118
B 441
,c:~
.LJ'
538
B 348
149
149
149
149
149
149
149
150
150
150
150
150
151
151
151
151
151
152
152
152
152
152
152
153
153
153
153
153
153
153
154
154
154
154
154
154
154
155
155
155
1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE
SEQ
1195
1196
1197
1198
1199
1200
1201
1_202
1203
1204
1205
1206
1201
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
PG LIN
LABEL
11
11
11
11
11
11
11
.. PRINT SUBROUTINE FOR UNREFERENCEO LABELS + SYMBOL TABLE
65
66
61
*
PRINT
68
69
"","U
11
11
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
BWl
Mew
BWl
MN
Mew
BWl
MN
aWl
PRTXT
0010
..
..
..
DUMP
01
02
03
04
05
06
01
08
09
10
11
12
13
14
B
S
5
5
,..
A
B
BeE
BeE
BCE
MCW
TSTlBL BCE
NOT
A
C
SCAN
SU
S
S
A
CW
BW
SW
B
DOPNT
OPERANDS
PRTXT+3
SYMBOl,206+Xl
DOIO,AODHC,(
AOOLO,2l2+Xl
*+8,AODHO,2
'I t ,208+Xl
PRTXT,ADDlO-l,2
'1',215+Xl
'+X'
PRTXT,AOOLO-l,S
'2',215+Xl
PRTXT,ADOLQ-l,K
'3',215+Xl
XXXX
AODlO,212+X1
PRTXT
SY~BOL
NXTCTR SW
6il
BMPXR3 BCE
7U
98
99
00
MN
B
Mew
B
PRINT
nL
97
Mew
MN
MN
MN
MN
70
71
11 13
11 74
11 75
11 76
11 77
11 78
11 79
11 80
11 81
11 82
11 83
11 84
11 85
11 86
11 81
11 88
11 89
11 90
11 91
11 92
11 93
11 94
11 95
SBR
BCE
11 12
.. "''''L ....
"''''
1227 11
1228
1229
1230
1231
1232
1233
1234
1235
1236
1231
1238
1239
1240
1241
1242
1243
1244
OP
-VERSION 3
BeE
B
3762L
SFX CT
loeN
INSTRUCTION TYPE
4
7
8
0538
0542
0549
0551
H
7
1
1
1
8
7
8
7
4
8
1
8
1
4
7
4
0564
0565
0566
0561
0575
0582
0590
0591
0601
0609
0616
0624
0631
0635
0642
CARD
-_ ... _....__ ._..
6-34
_._--_. __ ....
155
M M-9 2*6
B 635 M-O (
0 M-3 2/2
0
0
0
V 582 M-O 2
M 505
V 631
0 505
M S07
V 631
0 508
V 631
0 509
8 000
M M-3
B 631
25
2*8
M-2 2
2/5
14-2 S
2/5
M-2 K
2/5
2/2
---
155
155
155
156
156
fS6-
156
156
156
156
151
157
151
151
151
157
158
158
TABLE
NXTPGE
XR3+1
4
4
1
ENDSW=1
SCAN,SORTA8+1+X3
TSTEOJ,SORTAB+l+X3,'
1
4
8
8
0646
0650
0654
0655
0656
0660
0668
vn-,
.."
,
",-."
VOIO
NXTCTR
4
8
8
8
0683
0687
0695
0103
0111
0118
0126
0733
..L~
PAGE
T.I.'I\.I'\.::1
BMPXR3,SORTAB+l+X3,BMPXR3,SORTAS+l+X3,*
BMPXR3,SORTAS+l+X3,1
SORTAB+I+X3,TSTlBl+7
DOPNT,SYMHO,X
'OlO',XR2
XR2,TA8MAX
TSTLBL
XR2+1
+1,XR3
EN-OSW
PNTSYM,PNTSk
PNTSW
TSlESW
NOT,AOOHO,
PRINT
1
8
7
1
5
4
1
7
4
8
4
4
8
4
0740
0745
0749
0750
0157
0161
0169
0113
0771
0185
B 859
5 100
S
S
t
S10
V 687 109 1
8 888 109
... ""'.;).1.1.
An""
.., .. V~~
,
'"
B
656
B 668 109 -
B 668
B 668
M /09
B 771
ID9
*
/09 1
725
M-4 X
A 185 094
C 094 Lil
B 118 I
S 095
S
A 511 099
) S10
V 812 S18 1
518
B 847
B 726 M-O
B 538
,
158
158
158
158
158
159
159
.... '"
.L:;J~
159
159
160
160
160
160
160
161
161
161
161
161
161
161
162
162
162
162
1401 AUTOCOCER-PASS 6 PRINT SYMBOL TABLE
SeQ PG LIN
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1261
1268
1269
1210
1211
1212
1213
1274
1215
1 .,.., L
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
15
16
11
18
19
20
21
22
LABEL
OP
OPERANDS
SW
PNTSW
A
'016' ,XRl
XRl,'128 t
NOT
C
BU
23
PNTSVM W
ew
CS
CS
S
24
25
26
27
BeE
BCV
TSTESW Bri
BW
29
30
31
32
33
34
35
36
37
38
39
391
392
,.,
'/."
.LL
'"f",L
1271
1278
1279
128,0
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
42
43
44
1
XR1+1
§+9,ENOSW
TSTEOJ,SORTAB+1+X3,'
NXTPGE
NOT,ENDSW
NXTCTR
PGXT+3
332
4
8
8
5
8
1
50
51
52
53
54
55
56
57
58
59
I
S 090
V 842 S10 1
B 888 109 t
B 859 t
V 126 S10 1
B 656
H 887
164
1
1
1
8
0902
0903
0904
0905
GEN
I
GEN
I
I
GEN
B 997 U28 1
166
166
166
166
5
0913
0918
0923
0930
0931
0944
0951
U tUI B
U (Ul B
166
167
M 531
M 531
M $31
M 533
M 534
167
161
161
167
168
0958
0965
C L93 Ll8
PGXT
B
TSTEOJ BW
BeE
1
'SYMBOL TABLE',212
K
212
EOJOB,ITERSW,1
4
4
1
2
7
1
2
4
164
164
164
165
165
165
165
165
165
165
166
166
I 332
I
F 1
M 530 212
2
F K
1 212
8 000
V 898 180 1
F 1
I 332
MACRO
GET PASS C
BSP
SSP
Mew
Mew
MCW
Mew
...
4
e 089 S11
B 726 I
2
} 518
I 332
8
2
4
ce
es
47
48
49
.5
162
162
162
163
163
163
163
163
163
163
164
164
164
S18
A 514 089
4
MCW
W
45
46
1
,
CARD
*+3,HEADSw
CC
1
CS
332
CHAIN 3
CS
CS
CC
•
0189
0193
0800
0801
0812
0813
0811
0821
0822
0826
0834
0842
0847
INSTRUCTION TYPE
XXXX
NXTPGE SBR
CS
*
*
4
1
4
4
CS
.LL1Q
LOCN
PNTSW=1
332
CS
12 40
SFX CT
26
0855
0859
0863
0867
0868
0810
0877
0818
0880
0884
0888
0896
0898
B
28
PAGE
3162L
-VERSION 3
MCW
SYSTPE
SVSTPE
'5',TPHAlT+4
'5',TPHLT2+4
t5',TPHLT3+4
'OO',PRQCSW
1
• ,SFXCTR
5
7
7
1
7
1
J15
KOI
J42
L95
L23
§ SET NUMBER OF SEEKS FOR TABLE SEARCH
...
C
MCW
5
BE
BH
Mew
TOTLAB,TABLSl
TA8LSI,SERCHS
TOTlAB
ROPSSC
ROPSSC
+OOO9,SERCHS
1
7
4
5
5
1
0912
0916
0981
0986
M
S
8
B
M
LIB 199
L93
K12 S
K72 U
S38 199
168
168
168
168
168
169
1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE
SEQ PG LIN
1295 12
1~96 12
1297 12
1298 12
1299 12
l3PO 12
1301 12
13Q2 12
1303 12
1304
60
61
62
63
64
65
66
67
68
LA8EL
EOJOB
B
RDPSSC
cw
682
CS
BCE
CS
CHAIN
CS
CS
CS
CS
CS
CS
CS
C5
SBR
1308
1309
1310
1311 12 681
12
12
12
12
12
12
12
12
12
OPERANDS
*
* LAST ITERATION, GET PASS E
*
GPMRK2-1
1305
1306
1307
1312
1313
1314
1315
1316
1311
1318
1319
1320
1321
1322
1323
1324
1325
OP
CLR
12 78
12 79
1326 12 80
1327 12 81
1328 12 82
1329 1Z 83
1330 12 84
1331 1Z 85
1332 12 86
1333 12 87
1334 12 88
1158
Mew
Mew
B
GOrGE
5ysrPE
AGAIN SSP
'i',RDer
S
REiRY,RDCT,c
aWL
XXXX,691
H
SYSTPE,S5CP
RTW
ass SYSERR,E
XXXX,612
H
B
GOlDE
Dew • ABCOEFGHI-JKLMNOPQRt/SrUVWXYZ)"
LIST
lIST-31
SORTAB ECU
LTORG •
HEAOSW Dew
=01
B
1186
1223
B K12
169
4
4
0997
1001
1005
1013
UJO
199
B :1=44 la9 3
I 791
169
169
169
169
1
1
1017
1018
1
1
1
1019
I
I
I
/
I
I
I
I
4
8
)
I
1
1
4
4
7
5
8
4
5
7
a
°
7
1020
1021
1022
1023
1024
1028
1032
1039
1044
1052
1051
1064
1068
1075
1080
1088
1093
1097
1102
,
'I
nn
..1..1.\17
5
1117
1124
1132
7
1137
4
32
1144
1179
1148
1
1180
1181
1182
1185
1204
8
GEN
GEN
GEN
GEN
GEN
GEN
GEN
199
H
C
B
L
B
M
*27
t27
*24
CUI
*68
542
541
I
IOO R
L
ZOO
B lOI
M 543 S44
U (Ul B
L lUI ZOO R
B *91 l
B *51
U (U1 B
S 505 S44
\ I
V
..&.on
""0\1
544
-4IJ
• 000 691
L (Ul lOO R
113
173
113
114
174
175
8 *68 E
• 000 612
B
169
170
110
170
110
110
110
170
171
111
171
171
111
111
112
172
112
172
172
172
172
173
1""F"2
0
I,;J
*51
1180
'Z'
1
1
1208
1209
AREA
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
=01
1
1210
AREA
'A'
• Z'
'010'
'UNREFERENCEO LABELS'
3
'3'
CARD
MACRO
I
• 1•
'+X'
ENOSW
0993
5
GCTCE
RETRY
4
AGAIN
11
SYSERR
INSTRUCTION TYPE
BER
READE
BU
RTW
BER
73
LoeN
SSP
RTW
C
27
CT
5
7
4
7
5
8
683
74
lZ 15
12 76
12 17
3999
SFX
CLR+3
CLR+3,+S5GP-1
CLR
5YSTPE,5SGP
SYSERR
'N',SSOP
SSGP+l
+9,ROCT=1
SYSTPE
SYSTPE,SSCP
684
69
10
12
3999
REAOE,MAChSZ t 3
4199
7
PAGE
3162L
-'VERSION 3
1
19
1
2
1205
1207
175
115
175
175
176
176
176
116
176
176
1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE
SEQ PG LIN
LABEL
OP
OPERANDS
+1
'016'
1128'
1250
1263
PNTSw
=01
'SYMBOL TABLEt
'5'
'00'
• •
+0009
1313
ROCl
ENDOVL
Dew
EX
END
3762l
SFX CT
LoeN
1
3
3
1211
1214
1217
1218
1230
1231
1
12
1
2
1
4
+SSOP-l
3
'N'
1
1
1
1
+9
1319
1335 12 89
1336 12 90
1337 12 91
-VERSION 3
=01
, •
LIBRN
LIBRN
PAGE
INSTRUCTION TYPE
LIT
LIT
LIT
1233
1234
1238
1241
1242
1243
1244
1245
V99
B 000
I 000 080
AREA
LIT
LIT
LIT
LIT
LIT
AOtON
LIT
LIl
AREA
28
CARD
176
117
111
111
177
117
177
111
178
178
178
118
178
118
179
182
CLEAR STORAGE 1
CLEAR STORAGE 2
BOOTSTRAP
,008015,019026,03C,034041,045,053,0510571026
L068112,102106,113/101099/199,021A070028)021BOOI0270BO 261,001/00111310
,008015,022029,036040,041054,061068,072/061039
,0010011040
1401 AUTOCODER-PASS 7-lIST,CONDNS-INITL 1 -VERSION 3
SeQ PG LIN
101
1 01
102
1 02
103
104
1 03
1 04
105
1 05
1 06
106
101
108
109
110
III
112
113
114
115
116
111
118
119
120
121
122
123
124
125
126
'"J.~I
"" ...
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
141
1 01
1 08
1 09
1 10
1 11
1 12
1 13
1 14
1 15
1 16
1 11
1 18
1 19
1 20
1 21
1 22
1 23
1 24
1 25
1 26
.... .,
1 ~I
1 28
1 29
1 30
1 31
1 32
1 33
1 34
1 35
1 36
1 31
1 38
1 39
LABEL
OP
OPERANDS
000
JOB
CTL
1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3
630 1
3171L
SFX CT
LOCN
*
* EQUATES USED BY PROGRAM
*INITAP EQU
(UO
SYSTAP
ORIGTP
wORKTP
XTRATP
FIXFRM
STLABL
STSTMT
COUNT
ORGAOD
LABAOO
SUPAOD
OP
AOP
BOP
OMGO
TYPE
ALTER
XXXX
PRINT
AlT
.... ,.
t"~
EQU
EQU
Eeu
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
ECU
EQU
.-rUt
c::~u
1 40
1 41
1 42
1 43
1 44
1 45
1 46
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
ECU
EQU
KIND
CARONO EQU
PUNCH Eeu
LIBRN EQU
EQU
ZONE
EQU
XRl
EQU
XR2
EQU
XR3
1 41
*
LIN
LAB
OPCODE
OPRANO
SUFFIX
CT
LOCN
INCP
INAOP
INBOP
INDMOD
(U1
(U4
(U5
(U6
0
FIXFRM+2
FIXFRfI,+5
FIXFRM+7
FIXFRM+32
FIXFRM+61
FIXFRM+66
FIXFRM+67
FIXFRM+70
FIXFRM+73
FIxFRM+74
FIXFRM+15
FIXFRM+BO
0
200
PRINT+4
(UO
lUI
(U4
(U5
(U6
0000
0002
0005
0007
0032
0061
0066
0061
0010
0013
0014
0075
0080
0000
0200
0204
nn ...... J'T' ... ..,
t" l'\.l Jlj I ... f
""..,."...,
V£VI
PRINT+ll
PRINT+19
PRINT+25
PRINT+78
PRINT+80
PRINT+84
PRINT+90
PRINT+93
PRINT+97
PRINT+I01
PRINT+103
PRINT+109
PRINT+114
0211
0219
0225
0218
0280
0284
0290
0293
100
0
189
89
94
99
0291
0301
0303
0309
0314
0100
0000
0189
0089
0094
0099
1
2
3
PAGE
INSTRUCTION TYPE
1
CARD
1401 AUTOCODER-PASS 7-LIST,CONONS-INITL 1 -VERSION
seQ PG LIN
LABEL
148
149
150
151
...
152
153
154
155
156
151
158
159
160
161
162
163
164
165
166
1 48
1 49
1 50
1 51
1 52
1 53
1 54
1 55
1 56
1 57
1 58
1
1
1
1
1
1
1
59
60
61
62
63
64
65
168
1 66
1 61
1 68
169
1 69
110
111
112
113
174
115
176
111
118
119
180
181
182
1
1
1
1
1
167
183
184
185
186
181
188
189
190
191
192
193
194
195
196
197
1
1
1
1
1
1
10
11
12
73
74
15
16
71
78
19
80
81
82
OP
OPERANDS
*
SSGP
ORG
Dew
CS
CS
'S'
332
cs
es
RTW
NOP
BER
ew
SW
LCA
LeA
Mew
Mew
ek
RWD
RWD
RWO
SW
A
B
CW
RT
LeA
MCW
MeW
MCW
1908
1916
TPERRI
5
ENDIN2.LSTGPI
ENDIN
ENDIN,333
ENDIN,181
ssop, ISTS IZ
SSOP,SSAVEI
ENDIN
ORIGTP
WORKTP
XTRATP
PUNCH+12,PUNCH+76
+1,PUNCH+75
REA04
1
1920
1925
1932
CKCTl
JOBSW=1
WDRKTP,180
............
"'In'"
:>:>:>,J.OJ.
B
READ4
1 91
*
* CHECK FOR CONTROL CARD
*
MNEMON-2,'CTl'
CKCll C
BU
1 92
1 93
1 94
1 95
cw
MCW
Mew
Mew
1 96
1 97
MCW
B
1905
1906
1901
8
*
* CHECK FOR JOB CARD
*
C
MNEMON-Z,'JCB'
au
4
1
1
1
4
SYSTAP,40C
XXXX
1 85
1 87
1
1900
1901
INSTRUCTION TYPE
CARD
1900
1 86
1 88
1 89
1 90
LoeN
1900
Mew
MCW
Mew
1 83
1 84
SFX CT
2
INITIALIZATION ROUTINE
OPERND,JOBSAV
IMAGE+80,PUNCH+80
AlTNO,JOBALT=4
PAGENO.JOBPAG=2
LINENO,JOBLIN=3
LABEl,JOBlAS=6
1
1
PAGE
3711L
3
TSTSIZ
CTlSW=1
IMAGE+30,CTlSAV=10
ALTNO,CTlAlT=4
PAGENO,CTLPAG=2
LINENC,CTlLIN=3
READ4
4
7
1
7
7
1936
1943
1950
I 332
I
I
I
L (Ul 400 R
N 000
8 MO) l
) X99 093
t
l
l
198
198 333
198 181
M ZOO 401
M zoo 091
4
1951
1964
5
1968
198
U (U4 R
5
5
1973
U
7
1
4
1
5
4
8
...
1978
19B3
1990
1997
2001
2008
2013
2017
2025
)
(US R
U tU6 R
t 112 116
A 096 175
B T15
C H48 099
8 -78 I
)
poe
...
'In,
~~.,
2032
2039
2046
2053
2060
2067
2014
M
M
M
M
110 180
114 P04
7
2018
5
2085
2090
C H48 PIS
B 401 I
7
7
1
7
7
1
4
4
1
7
1
7
4
2094
2101
2108
2115
2122
~JJ
... 0.1.
102 085
H32 P06
M H35 P09
M H41 PI5
B T15
)
4
4
5
5
5
5
5
5
6
6
6
6
6
6
7
1
1
1
7
M {U5 180 R
t
f
4
4
4
4
4
P19
M H60 P29
7'
0
0
8
8
8
8
9
9
9
9
9
9
M
10
10
B T15
10
10
10
114 P33
M H32 P35
M H35 P38
1401 AUToeOCER-PASS 1-LIST,eONONS-iNITL 1 -VERSION 3
seQ
PG LIN
198
199
200
1 98
1 99
2 00
201
2 01
202
203
204
205
2 02
2 03
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
LABEL
....
..
2 07
2 08
2 09
2 10
2 11
2 12
2 13
2 14
2 15
2 16
2 17
2 18
2 19
2 20
2 21
2
22
2 23
2 24
2 25
26
2 27
2 2B
2
,
")
"")0
BeE
BeE
BCE
BeE
BeE
BeE
BeE
BeE
BCE
BeE
cw
B
OPNTAP CW
..
..•
B
GETMAN SSP
SW
SW
SW
SW
sw
sw
CW
MCW
LeA
LeA
•
,... A
Lv""
2 30
LCA
LeA
SW
31
2 32
2 33
SFX CT
lOCN
INSTRUCTION
8
8
8
8
8
2126
2134
2142
2150
2158
2166
2174
2182
2190
2198
2206
B K14 P24 1
B 407 P22 0
TYPE
3
CARD
OPNTAP,LSTAPE,I
TSTSIZ,OUTOPN,O
eONDOP,OUTOPN, 1
TSTSIZ,OUTOPN,2
CONDOP,OUTOPN,3
TSTSII,OUTOPN,4
CONDOP,OUTOPN,5
TSTSIZ,OUTOPN,6
eONDoP,OUTOPN,1
TSTSIZ,OUTOPN,
eTLSW1=1
TSTSIZ
TAPOP1
TSTOP
8
8
8
8
8
4
4
4
4
2210
B 400
407
B 400
B 401
B 400
B 401
B 400
P22 1
P22 2
P22 3
P22 4
P22 5
P22 6
P22 7
B 401 P22
) P39
B 407
B
2214
)
2218
B J34
2222
2221
2234
2241
2248
2255
2262
2266
U (U4 B
092
11
11
11
11
12
12
12
12
13
13
13
13
13
13
SETUP + GET MAIN PROGRAM
'7
2
OPERANDS
PAGE
TEST OUTPUT OPTION DESIRED
CHKOP
TSTOP
2 04
2 05
2 06
OP
3171L
BCE
2 34
Bk
2 35
2 36
2 37
2 38
2 39
2 40
2 41
2 42
2 43
B
SETOUT MCW
WTW
NOP
BER
RWO
2 44
2 45
2 46
2 41
RTW
NOP
BER
BW
8
Mew
cw
ORIGTP
FIXFRM+1,FIXFRM+6
FIXFRM+8 , FIXFRM+14
FIXFRM+23,FIXFRM+51
FIXFRM+62,FIXFRM+67
FIXFRM+68,FIXFRM+71
FIXFRM+14
181,333
KBlKl,HOlOA1-1
,
'LO
t
12SKB',ZONE
'OOOOO',XR3+2
XR3+2
GRPMK3
SETOUT.CNOSWl,l
*+5,LSTOPl
SETOUT
.+5,TAPOPI
SETOUT
'l',NOOUTl
OUTOPN,OPNSV1
XTRATP,SAVCNI
XXXX
TPERRI
XTRATP
GRPMK3
SYSTAP,201
XXXX
TPERRI
5
7
1
7
7
7
4
7
,
1
',PUNCH+71
,
,
t
1
t
001 006
008 014
023 057
062 067
068 071
0"74
181 333
M 027 023
t
)
7
2273
1
2280
1
...,
2'281
I
"""" "
1:.1:."''''
4
1
2301
L P71 111
l P15 189
"",.
l YOU .LV!.
l 101
2305
L
4
2306
8
2310
2318
8
4
8
4
1
...
2342
M
8
4
2356
2364
2368
2373
2378
2382
2390
2394
4
8
4
5
V
B
V
B
2349
5
,
B
2326
2330
2338
1
5
AnA
~
095
l49
l30
L49
l42
L49
PSI
13
14
14
14
14
14
14
15
15
15
15
15
15
16
16
033 1
093 1
092 1
094
M P22 090
L (U6 021 W
N 000
B M03 l
U (U6 R
) 095
L CUl 201 R
N 000
B M03 l
16
16
16
16
16
17
17
17
11
17
17
18
18
18
18
SEQ PG LIN
248
249
250
251
252
253
254
255
256
251
258
259
260
261
262
263
264
265
266
261
268
269
270
211
272
213
214
275
216
277
278
279
280
281
282
283
284
285
286
281
288
289
290
291
292
293
294
295
296
291
2 48
2 49
2 50
2 51
2 52
2 53
2 54
2 55
2 56
2 51
2 58
2 59
2 60
2 61
2 62
2 63
2 64
2 65
2 66
2 67
2 68
2 69
2 70
2 71
2 72
2 73
2 74
2 75
2 76
2 77
2 78
LABEL
OP
OPERANDS
..
B
INIT2
2 83
2 84
2 85
2 86
2 87
2 88
2 89
2 90
2 91
2 92
2 93
2 94
2 95
2 96
2 91
SFX
4
CT
LoeN
INSTRUCTION TYPE
4
2399
B 201
IB
4
2403
2401
2411
2418
2425
2432
2439
2444
2452
2459
2467
2472
2476
2483
2488
2495
2503
2510
2517
2524
2532
2537
2544
2548
2553
2561
2568
H 094
18
18
19
U (UO B
B N48 M66 W
19
20
P82 P83
(UO 000
B M16 l
B 000
0 M62 M86
U (UO B
S 096 P83
V M59 P83
D M62 N16
• 000 790
M M66 N31
M tuO 000
B M39 E
• 000 111
B M72
U lUI E
B N85 P84
A 096 P8S
H (UO 000
20
CARD
.. TAPE REDUNDANCY ROUTINE
*TPERRI
SBR
SBR
~l
MCW
MN
Mew
asp
BCE
MCW
TPINSI RT
BER
REDXI B
RORERI MN
aSP21 SSP
S
BWl
MN
TPHALI H
MeW
RT
BSS
aSPI
H
B
WRTRDI SKP
BCE
A
INST21 WT
2 79
2 80
2 81
2 82
PAGE
3171l
1401 AUTOCODER-PASS l-LIST,CONDNS-INITl 1 -VERSION .3
4
1
1
1
7
5
8
7
8
5
4
1
5
1
8
7
7
1
8
5
1
4
5
8
7
8
M15
P82 094
M IRO "166
D M62 M42
M M66 N75
H
y
M
M
nr .....
D~"'.l
IC:
DC"
2576
u
B
REOXI
WRTCTI
TPINSI+3,*+7
XXXX,160
INST2I
'CLEAR STCRAGE
+0000
'080'
I
3999'
4
2581
2585
2589
2596
2603
2620
2624
2621
2632
2633
2685
2689
B M72
S P85
n
... "
SUBCTI S
MN
H
B
CLRlEG
HOLDAI
KBLKl
CORSIZ
CNDSWI
JOBSAV
ERRCTI
OPNSVI
SSAVEI
TAPCPl
LSTOPl
NOOlfTl
GRPMK3
XR2
REDXl+3
+9,XR2
4000-10+X2,TPINSI+7
TP INS I +3 t eS.P I +3
TPINSI+7,INST2I+7
INITAP
WRTRDI,TPINSI+7,W
+9,REAOCI=l
INITAP,XXXX
RDRERI
XXXX
TPINSI+3,BSP2I+3
INITAP
+I,REAOCI
TPINSI,READCI,B
TPINSI+3,TPHALI+6
XXXX,190
TPINSI+7,1t+8
INITAP,XXXX
BSPI,E
XXXX,711
REDXI
SYSTAP
SUBCTI,WRTCTI-l,5
+1,WRTCTI=2
INITAP,XXXX
DCW
DCW
Dew
Dew
Dew
DCW
DCW
DCW
Dew
DCW
Dew
DCW
DC
'a·
=52
'0000'
,• •
, •
•, ,
•
I
t
I
J
4
7
7
•
4
14
4
3
5
1
52
4
1
1
1
1
1
1
2690
2691
2692
2693
2694
2695
D
M39
I
'-
0 M62 002
• 000 160
8 N6S
19
19
19
R
20
20
20
B
R
20
21
21
21
21
21
22
22
22
22
22
5
W
22
23
23
23
"":l
,
oJ
23
23
24
24
24
24
24
24
25
25
27
21
21
27
27
28
28
28
SEQ
PG LIN
298
299
2 98
2 99
LABEL
OP
SFX CT
OPERANDS
1
3
1
4
2
3
'JOB'
JOBSW
JOBALT
JOBPAG
JOBLIN
JOBLAB
192
193
194
CTLSW
CTlSAV
CTlALT
CTLPAG
CTLLIN
CTLSWI
195
196
211
227
229
=01
=04
=02
=03
=06
'CTlI
=01
=10
=04
=02
=03
=01
'LO
'2SKS'
'00000'
'I'
+9
260
300
217
3 00
301
3
302
303
304
3 02
3 03
3 04
3 05
01
305
306
301
3 06
30B
08
309
310
311
312
313
314
315
316
311
3
3
3
3
01
3
3
13
14
09
10
3 11
3 12
3 15
3 16
3 11
READe I
WRTeTI
ORG
INPUT4 DA
PAGENO
LINENO
LABEL
MNEMON
OPERND
ALTNO
IMAGE EQU
FIXINP EeU
INPUTS EQU
PROSII EQU
08JSIZ EeU
OUTOPN EQU
lSTAPE EQU
ENDIN ECU
3998
Dew
XFR
=01
=02
3831
lX86
LoeN
INSTRUCTION TYPE
2718
2119
10
4
2
3
t
t
1
,
1
32
AREA
AREA
2129
2133
AREA
AREA
AREA
AREA
LIT
LIT
LIT
LIT
LIT
AREA
AREA
2135
2138
2739
2111
4
2115
5
2180
1
2781
2182
2183
1
1
2
AREA
AREA
AREA
AREA
LIT
2709
3
2785
3831
3916
3831
3,5
3832
3835
6,11
16,20
21,12
81,84
3841
3850
3902
3914
FIELD
FIELD
FIELD
FIELD
fIELD
FIELD
INPUJ4-1
.."n1n
IMAGE+81+X3
3917 X
3918
2120
2121
CARD
- --_ .... _--_
............
28
28
28
28
28
29
29
29
29
29
29
29
30
30
30
31
31
31
31
31
31
31
32
32
32
32
32
32
.:JC.:JU
FIXINP+1+XO
CTLSAV-9
CTlSAV-8
CTlSAV-7
CTlSAV-5
3998
LIBRN
LIrLIT
AREA
2100
2104
2106
i1i5
1
2696
·t696····2699
6
It2
•,
5
2621
HOLDAl-3
SAVCNI EQU
LTORG *'
+1
Dew
117
182
183
184
185
PAGE
3171L
1401 AUTOCODER-PASS 7-LIST,CONONS-INITL 1 -VERSION 3
2122
2124
3998
1
33
3998
B 000
34
SEQ PG LIN
318
319
320
321
322
323
324
325
326
321
328
329
330
3
3
3
3
3
3
3
18
19
20
21
22
23
24
3
3
3
3
25
3
3
3
3 36
3 37
3 38
3 39
3 40
3 41
3 42
345
346
341
3 43
3 44
3 45
3 46
3 41
348
3 48
.....
:;) ~
::J
.... "..,
350
351
352
353
354
355
356
351
358
359
360
361
362
363
364
365
366
367
1401 AUTOCOCER-PASS 7 LIST,CONDNS-INITl 2 -VERSION 3
400
""
In
"''.1
3 50
3 51
3 52
3
3
3
3
53
54
55
56
3 51
3 58
3 59
3 60
3 61
3 62
3 63
3 64
3 65
3 66
3 67
SFX CT
loeN
INSTRUCTION TYPE
6
CARD
0400
*
* CONDENSE OPTION
*
'1',CNOSWl
CONDOP MCw
1
0400
M T64 033
37
1
2
'1',PRINT+15
CLRLEG
'1'.200
IS4K,CTLSW
OBJSII,'3'
OVER4K
IS4K
OBJSIZ,'6'
BADCTl
't053053NCOOOOONOOOO1026',PUNCH+52
',008015,022026,030031,044,049 1
PUNCH+52,PRINT+12
PRTPNH
'l,OOl/OOll11IO+',PUNCH+l1
'=071029C029056B026/8001/099'
'L068116 t l05106,110117BI01/19I'
1
0407
0412
0420
0422
0429
B
V
F
M
103 F
*+3,LSTOPl
5
8
37
37
31
31
0433
0440
M 164 200
C P21 T65
38
B 464 T
8 544
38
38
38
4
0448
0455
0460
0464
0411
0476
0483
0481
0494
1
0498
IS12K,OBJSIZ,5
4
4
8
8
'IS',CORSII-3
1
0505
0509
0513
0521
0529
M
nC::"L
D
0540
0544
)
P39
M V02 144
0551
0555
0562
M
*
* TEST OBJECT MACHINE SIZE
*TSTSIZ BSS
SENSW.F
BW
CC
MCw
Mew
BW
e
BL
3
3
343
344
JOB
ORG
Mew
332
342
28
29
OPERANDS
31
32
33
34
35
3
341
21
OP
3 30
331
333
334
335
336
337
338
339
340
26
LABEL
PAGE
3112l
1401 AUTOCODER-PASS 1 LIST,CONONS-INITL 2 -VERSION 3
B
OVER4K C
BL
Mew
LeA
MCW
B
MeW
Mew
LCA
BeE
BeE
Mew
n
0
BADCTL ew
IS4K
MeW
LeA
Mew
B
Mew
LeA
BeE
MZ
MCw
BCE
Mew
MCW
BCE
CW
MCW
MCW
B
IS8K~OBJSIZ~4
CLRST2
eTlSWl
't0570511C26',PUNCH+44
',008015,019026,030,034041,045,053'
PUNCH+44,PRINT+64
PRTPNH
'SOOlO270e0261,OOl/001113IO',PUNCH+l0
'L068112,102106,113/101099/I99,021A070028}027'
CLRST2,OBJSIZ,3
'S',PUNCH-+27
'1',CORSIZ-3
CLRST2,OBJSIZ,2
IT',PUNCH+21
'3',CORSIZ-2
CLRST2,OBJSIl,l
eTLSWl
'I',PUNCH+21
'39',CORSII-2
CLRST2
4
7
8
7
5
4
1
5
1
4
1
,.
"T
4
1
4
1
4
1
4
8
1
7
8
7
7
VJ:JV
422 093 1
1
T64 215
M 020
V
544 P19 1
C P21 T66
B 540 T
M T89 152
l U18
M 152 212
8 S11
M
M
L
B
B
U
l
U33
U60
U89
651
669
U91
171
P21 5
029
0585
0592
0599
y
40
40
40
'.n
"TV
B 517
l
39
40
P21 4
V35
144 264
M V61
39
39
39
39
39
39
683
0566
0513
0577
37
38
38
110
W05
B 683 P21 3
W06 127
M T64 029
B 683 P21 2
M W07 127
40
41
41
41
41
41
41
42
42
42
42
7
1
0607
0614
0621
0629
0633
0640
M 165 030
8 683 P21 1
) P39
M
127
M WiO 030
woe
43
43
43
4
0647
B 683
43
8
4
42
43
43
seQ
PG LIN
LABEL
OP
OPERANDS
368
3 68
IS8K
369
3 69
3 10
3 71
HZ
MCW
'S',PUNCH+29
'7',CORSIZ-3
ClRST2
'K',PUNCH+29
'11',CORSIZ-3
310
371
312
_313
374
315
376
371
318
379
3 72
3 73
3 74
383
3_ 75
3 16
3 11
3 78
3 19
3 80
3 81
3 82
3 83
384
3 84
385
3 85
3 86
3 87
3 88
3 89
3 90
3 91
3 92
3 93
3 94
3 95
380
381
382
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
96
3 97
3 98
B
MZ
MCW
eLRST2 Mew
Mew
MCW
B
MCW
Mew
LCA
Mew
MCW
IS12K
B
BW
CC
BW
99
00
01
02
BE
BH
C
Bl
Mew
BCE
A
B
BADPRO
cw
Mew
Mew
MCW
Mew
4 10
411
412
4 11
4 12
4 13
Mew
MCW
Mew
4 14
4 15
4 16
B
CS
CS
4 17
B
413
414
415
416
417
0651
0658
__ 0665
0669
0616
0683
0690
4
7
7
7
'2',PRINT+15
ClRLEG
PRTPNH
',OOI001104C',PUNCH+71
',061068,072/061039',PUNCH+46
',008015,022029,036040,047054'
PUNCH+11,PRINT+91
'BOOTSTRAP',PRINT+9
PRTPNH
*+3,LSTOPl
7
4
4
7
7
4
1
1
4
...
0697
0101
0105
0112
0119
Y W06 129
M Wit... 029
- -_... _.
8 683
Y W12
M Wl4
M 111
M W15
M 020
8 517
M W26
M W44
L W12
M 171
M WB1
8 51-1
129
029
291
215
171
146
291
8
0723
0130
0737
0741
K
2
0749
F K
DOHEAD,CTlS\\
8
0151
V 818 P19 1
7
0159
0766
C P20 T65
OOHEAO
BADPRO
PROSIZ,'6'
BADPRO
'400',KBlKl
OOHEAD,PROSIZ,4
'400',KBlKI
OOHEAD
eTlSWl
* PRINT HEADING, JOB + CONTROL CARDS
*
'l',PRINT+114
DOHEAO Mew
410
407
1
7
....... _........
INSTRUCTION TYPE
209
V 751 093 1
CARD
44
44
44
44
44
44
45
45
45
45
45
45
46
46
46
46
46
46
5
5
7
5
7
0771
0776
0783
0188
8
1
0795
4
0810
4
0814
7
7
0818
0825
7
7
7
0832
0839
0846
0853
0851
0865
0861
0803
B 818 5
8 814 U
C P20
B 814
M we4
8 818
A "184
T66
T
027
P20 4
027
B 818
) P39
41
47
41
47
41
47
48
48
48
48
it
408
409
404
405
406
LOCH
PUNCH~11,PRINT+91
* TEST PROCESSOR MACHINE SIZE
*
C
PROSIZ,'3'
4 03
4 04
4 05
4 06
4 01
4 08
4 09
403
SFX CT
1
*
3
3
4
4
4
PAGE
3712l
1401 AUTOCOCER-PASS 7 lIST,CONONS-INITl 2 -VERSION 3
B
BW
CC
CS
'PAGE' "PRINT+109
JOBSAV,OPRANO
PUNCH+80,lOCN
'0 t t 200
PRINTZ
*+3,LSTOPI
K
PRINT+78
'SFX CT LoeN INSTRUCTION TYPE CARO',PRINT+114
OPERANOS',PRINT+34
'SEQ PG LIN LABEL OP
4
8
2
'0',200
4
7
7
7
PRINT2
PRINT+132
4
4
0892
1
0900
0901
PRINT2
4
0871
0878
0885
0896
M T64 314
48
M W8S 309
M 085 278
48
M 180 290
M wa9 200
B *61
V 867 093 1
49
49
49
49
F K
I 278
49
49
M X25 314
234
200
50
50
M X58
M W89
B *61
I 332
/
B *61
49
50
50
50
50
50
1401 AUTOCODER-PASS 7 lIST,CONONS-INITl Z -VERSION 3
SEQ PG
LIN
18
418
419
4
420
421
4 20
4 21
4 22
4 23
4 24
4 25
4 26
4 27
4 28
4 29
4 30
4 31
4 32
4 33
4 34
4 35
4 36
4 31
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
431
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
461
LABEL
4 19
4 38
4 39
4 40
4 41
4 42
4 43
4
4
4
4
4
4
4
4
4
51
52
53
4 60
4 61
4 62
4 63
BW
MCS
Mes
Ml
TSTCTL,JOESW
JOBAlT,ALT
JOBPAG,PG
JOaPAGtPG
JOBlIN,LIN
JOBlAB,LAB
'JOS',OpeCOE-2
JOBSAV,OPRANO
PRINTZ
OPRAND
NOCNTl,CTlSw
CTLALT,AlT
CTLPAG,PG
eTLPAG,PG
CTllIN,LIN
eTLSAV,PRINT+36
'CTL',opeCDE-2
CTLPNT,CTLSWI
'BAD STATEMENT',PRINT+IZ8
+1,ERRCTI
PRINT2
GETMAN
'NO CONTROL CARO',PRINT+130
ERRCTL
PNTZXT+3
*+2,lSTOPl
a
es
TSTCTL 8W
MCS
MCS
MZ
Mew
Mew
Mew
aw
Mew
ERReTl A
CTLPNT B
B
NOCNTL MCW
B
PRINTZ SBR
BW
W
ft&. ...... ,.,.,,"' ....
..
.... 1~t£AI
aft
WT
NOP
BER
PNT2XT,TAPOPI
3,200
XXXX
TPERRI
B
A. A. A. A.
\.IuVU
SFX CT
loeN
INSTRUCTION TYPE
8
0905
0913
V 910 POO 1
Z P04 204
Z P06 207
y P06 207
M P09 211
M P15 219
M X61 223
7
7
1
7
7
7
7
4
4
B
7
0920
0927
0934
0941
0948
0955
0962
0966
0910
0978
7
0985
1
0992
0999
1006
'7
1
7
8
1
1
4
4
7
4
4
B
1
8
8
4
5
4
1013
M OBS
B *61
I
218
CARD
51
51
51
51
51
52
52
52
52
52
278
V *50
Z P33
Z P35
y P35
M P38
8
P19 1
204
207
201
52
53
53
53
211
53
M P29 236
M X64 223
53
54
54
54
1020
1028
1035
1042
1046
1050
1051
1061
1065
1013
1014
1082
1090
1094
B *35
H 102
J.V"':l~
vuv
V *42 P39 1
M
X17 328
A X18 089
B 1:61
8 K22
M X93 330
V *14 093 1
Z
V *99 092 1
M (U3 200 W
N
B
.. "',.."'" a
000
MOl l
hA_
54
54
54
55
55
55
55
55
55
56
56
56
56
.. TEST SENSE SWITCHES FOR OUTPUT OPTIONS
*
SENSW
54
55
56
57
58
59
OPERANDS
Mew
Mew
Mew
Mew
4 44
4 45
4 46
4 41
4 48
4 49
4 50
OP
PAGE
3112L
LeA
LeA
MCW
sw
BSS
TSTSSC BSS
TSTSSG BSS
TS1SS0 SSS
TSTSSE ass
SSXT
CW
MCW
4 64
4 65
4 66
ADDI
4 67
AD02
B
A
B
A
'O',OUTOPN
,'0',CNDSW1
',lSTAPE
TAPOPl
AOOltS
AD02,C
ADD4,G
LSTAP,O
SUPlST,E
OUTOPN
'N',TSTSIZ
CHKOP
+I,OUTOPN
TSTSSC
+Z,OUTOPN
7
7
7
4
5
5
5
5
5
1103
1110
1111
1124
1128
1133
1138
1143
l W89 P22
L wa9 033
M X94 P24
,
092
8 168 8
57
57
51
B
Sal
57
P22
58
58
1148
4
1153
)
1
4
1151
M X95 401
1164
1168
1175
1119
B J26
A X18 P22
B 133
A X96 P22
7
56
51
B 179 C
8 190 G
0
B S09 E
7
4
56
51
57
58
58
58
58
1401 AUTOCODER-PASS 7 LIST 1 CONONS-INITl 2 -VERSION 3
OP
OPERANDS
B
TSrSSG
+4,O_UTOPN
TSTSSO
TAPOP1
TSTSSE
LSTOPI
SSXT
SEQ PG LIN
LABEL
468
469
4 68
AD04
A
470
4 70
411
lSTAP
cw
4l~
4 11
4 12
4 73
474
4 14
4.15
4 15
416
477
478
419
4 16
412
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
4 69
4 17
4 78
4 79
4 80
4 81
4 82
4 83
4 84
B
B
SUPLST SW
B
.
PRTPNH SBR
MCS
814
W
BW
WT
NOP
BER
86
Mew
WT
NOP
BER
PUNCHl BeE
89
4 90
P
A
4 91
4 92
4 93
4 94
4 95
4 96
4 91
4 98
4 99
5 00
5 01
5 02
5 03
5 04
5 05
5 06
SFX CT
loeN
INSTRUCTION TYPE
4
1186
1190
8 138
A X97 P22
8 143
) 092
B 148
093
8 153
7
4
4
1191 -
4
4
1201
1205
1209
4
Iil3
4
1217
1221
9
CARD
58
59
5959
59
,
59
59
.. PRINT AND/OR PUNCH
87
88
PAGE
it
4 85
4
4
4
4
3772L
CS
CS
CS
EXIT
..
..
..
B
EXIT"'3
PUNCH+15,CARDNO
*+2,lSTOP1
PUNCHl,TAPOPl
3,200
XXXX
TPERRI
'+',100
3,100
XXXX
TPERRI
*+2,eNDSWl,O
+1,PUNCH+15
PRINT+132
PUNCH+71
XXXX
1
8
1228
1
1236
8
1237
8
1245
1253
1257
1262
1269
1217
1281
1286
1294
1295
1302
1306
4
5
1
8
4
5
B
1
7
4
1
4
1301
4
1311
4
4
1315
1319
1321
1331
1336
8
1
1
H
T14
l 115
V 531
2
V 586
M (U3
N 000
8 M03
M X98
M (U3
N 000
59
314
60
60
60
60
60
093 1
092 I
200 W
60
100
61
61
100 W
61
l
61
61
61
61
M03 l
8 595 033 0
'+
A X78 175
B
62
62
62
62
I 332
I
I 171
B 000
62
READ ORIGINAL TAPE
REA04
SBR
RT
B
BER
READ4X+3
ORIGTP,INPUT4
CHKlG
TPERRI
X)(XX
REA04+4,INPUT4+12,
REA04X B
CHKLG BCE
CHAIN 12
BeE
BeE
BeE
BCE
BCE
BeE
BeE
BCE
BCE
BCE
BCE
H T39
62
M CU4 H31 R
8 T40
62
63
63
1340
8 M03 l
B 000
B T19 H43
1348
B
1349
B
1
1350
B
1
1351
1
1352
1353
1354
1355
1356
B
B
8
4
5
1
1
1
1
1
1
1357
1358
B
8
B
B
B
8
63
63
MACRO
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
63
63
63
64
64
64
64
64
64
64
65
1401 AUTOCOCER-PASS 7 LIST,CONONS-INITL 2 -VERSION 3
SEQ PG LIN
518
519
520
LABEL
OP
OPERANDS
BeE
5 01
5 08
B
READ4X-5
LTORG *
11'
Dew
'3'
'6'
',053053NOOOOOONOOOOI026'
',008015,022026,030037,044,049'
'1,001/00111110+'
'=071029C0290568026/8001/099'
'l06BI16,105106,110111BIOI/19I'
339
340
343
344
345
'IS'
' ,0570571026'
',008015,019026,030,034041,045,053'
'8001021080261,001/00111310'
'L068112 t l02106,113/101099/I99,021A010028)021'
351
352
355
356
'S·
'T'
I'
'39'
'7'
I
'K'
'II'
'2'
',0010011040'
',061068.072/061039'
',008015,022029,036040,041054'
'BOOTSTRAP'
311
378
379
381
436
440
5 10
ENCIN2
Dew
XFR
1
1359
1360
B T31
4
•
+2
+4
'+'
,
I
lIBRN
B
10
CARD
GEN
65
65
LIT
LIT
LIT
LIT
LIT
65
65
65
65
66
1364
1
1364
1365
1
1366
23
1389
1418
1433
1460
1489
1491
1502
1535
1561
1605
1606
1601
1608
1
29
15
27
29
2
11
LIT
67
68
69
69
10
71
12
14
1689
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
'2L
1""~
.a. t .......
LIT
78
33
1758
1161
1764
1771
1718
LIT
LIT
LIT
79
19
33
26
44
1
1
1
2
1610
I
1611
1612
1614
1615
1626
1644
1672
1681
1
2
1
11
18
28
9
4
1
'N'
5 09
INSTRUCTION TYPE
3
I
521
522
LOCN
'PAGE'
iSfX Cl LOCH iNSiRUCTION TYPE CARD'
OPERANDS'
'SEQ PG LIN LABEL OP
'JOB'
'CTl'
'BAD STATEMENT'
+1
'NO CONTROL CARD'
PAGE
SFX CT
1400'
'0'
411
412
3772L
J'U
3
3
13
1
15
1
1
1
1
1
1
1684
1688
LIT
LIT
LIT
1793
LIT
1794
1795
1196
1797
1798
1199
LIT
LIT
LIT
LIT
B 000
74
14
74
74
75
75
75
15
75
15
76
76
77
11
17
79
80
80
80
80
80
80
80
81
81
82
1401 AUTOCOCER-PASS 7 PROCESS EX/END
SEQ PG LIN
523
524
525
526
527
_528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
5 11
5 12
5 13
5 14
5 15
5 16
5 17
5 18
5 19
5 20
5 21
5 22
5 23
5 24
LABEL
JOB
1401 AUTOCOCER-PASS 7 PROCESS EX/END
lOCN
INSTRUCTION TYPE
0794
*
•
EXENO
SE'TAOP
MCW
Mew
BCE
Mew
MCW
Mew
Mew
BCE
B
B
B
BCE
CC
Mew
5 29
5 30
MCS
e
au
'BttINOP
'B',HOlDH"1
SETAOP,TVPE,C
OBO',INBOP
080',HClOH+1
AOP,INAOP
AOP,HOlOH+4
SYMUNO,AOP,=
SETloe
CONDNS
PRNTlN
GETOV1,TYPE,C
1
1
7
8
1
2
'1',200
ERRCNT,PRINT+4
PRINT+4,BlANK4=4
SETERH
EOJ08,ADORSw=1
WDRDl f PRINT+20
WTAPE
*+2,lSTOP
7
I,.,
7
1
8
1
4
0794
OB01
OB08
0816
0823
0830
0837
0844
0852
4
0856
4
0860
8
0864
0812
0814
0881
0888
7
7
5
8
0895
M 012 293
M Oi2 093
8 830 015 C
M 021 301
M 028 099
M 010 291
M 010 096
B l09 010 =
8 U18
B l54
B Y54
B
F
M
l
Z63 015 C
1
029 200
945 I
928 034 1
S49 220
J24
V 928 C70 1
8
V
M
B
3
5
5 40
5 41
B
0941
554
SETERH ,..Mew
RESET
'ERRORS',PRINT+11
4
553
;,I
1
7
7
4
0945
0952
0959
0964
0971
B J24
8
1
0975
0983
2
4
0984
0988
I 211
B 900
0<;92
0999
C C75 C78
8 *20 S
1004
) G21
V 992 G21 1
B P62
8 4=51 015 C
I 111
M 099 146
552
555
556
557
558
559
560
561
562
563
564
565
566
561
568
569
510
571
512
t:.'
W
38
,.,
1- "')
EOJOB
""au
5 43
5 44
5 45
Mew
B
5 46
5 47
5 48
5 49
5 50
5 51
5 52
5 53
5 54
5 55
5 56
5 57
5 58
5 59
5 60
8ft
PRINT+4,
!
'I
•
J. •
*+8
BLANKl,PRINT+11
WTAPE
."Z.LSTOP
W
CS
B
PRINT+ll
TSTCOR
5
4
86
86
86
86
86
86
87
81
81
87
5 39
551
Bw
31
4
8
85
87
81
1
8
36
1
85
e66 204
RESET,TAPOP
34
35
TSTCOR Bk
MeW
B
85
85
85
C 204 033
Bw
WTM
548
549
550
5
5
5
5
5
CARD
-VERSION 3
ISloes
0900
0908
0915
0919
0927
0928
0936
545
546
547
11
• EX, END CARDS
5 25
5 26
5 21
5 28
5 31
5 32
5 33
OPERANDS
PAGE
3715l
SFX CT
OP
ORG
-VERSION 3
2
V 543 C69 1
U (U3 M
B 543
88
88
88
88
88
88
89
89
040 211
89
C 204 044
8 971 I
89
89
030 211
89
89
90
90
90
90
M
M
V
984 C10 1
*
• CONDENSE EX, END CARDS
•
NOCARD
e
BE
cw
ENORTN BW
B
TSTENO BeE
CS
Mew
WMloe,AWMSTR
TSTENO
NEWSW
NOCARO,NEwSW
PNCHCO
EXCUTE,TYPE,C
PUNCH .. 71
HOLOH+1,PUNCH+46
1
5
4
8
4
8
4
7
1008
1016
1020
1028
1032
90
90
90
91
91
91
91
91
1401 AUTOCODER-PASS 7 PROCESS EX/END
OP
SeQ PG LIN
LABEL
573
5 61
514
5 62
5 63
MCS
5BR
B
EXCUTE MCE
MCW
Mew
Mes
SBR
575
516
517
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
59'S
596
597
598
599
600
601
602
603
J..nL..
uV'-
605
606
601
608
609
5
5
5
5
5
5
5
5
5
64
65
66
67
68
69
70
11
12
5 13
5 ·74
5
5
5
5
5
B
•
EXOUT
B
asp
C
SU
Mew
MCW
LeA
MCW
BCE
P
B
CS
A
MCW
Mew
SBR
19
5 80
5 81
5 82
5 83
5 84
5 85
5 86
5 87
5 88
5 89
5 90
5 91
BeE
Q
U
LSTCD
6 03
6
04
OV2GM
6 05
B
CS
BeE
615
6 02
LOCN
INSTRUCTION TYPE
CARD
7
1039
Z 115 31lt
91
7
4
1046
H Q90 511
1053
1057
1064
E 011 171
M 051 146
M 096 171
92
92
92
92
92
Z 115 314
H Q90 *96
92
93
7
7
1
B Q21
1
4
1092
B Q21
93
PUNCH+71
READOG
ORIGTP
MNEMON-2,'JGB'
*+8
IMAGE+80,PUNCH+80
WORD2,PUNCH+39
WOR03,PUNCH+66
PUNCH+66,PUNCH+50
*+2,eONOSw,Q
4
4
1 111
B B09
U (U4 B
C H4S 054
93
93
WTAP2
PUNCH+66
+l,PUNCH+15
WOR04,PUNCH+21
WORD5.PUNCH-+11
PNHXT+3,OUTEX
*+2,eONDSW,O
4
1096
1100
1104
1109
1116
1121
1128
1135
1142
1149
1151
1158
1162
1166
7
NEWCRO
PUNCH+80
*+4,CONOSw t O
55
8
8
eNDOUT+7
'OBJECT CORE EXCEEDED'
',015022)024056,029036,040041,0540611001'
',0010088001'
Dew
Dew
Dew
Dew
Dew
Dew
XFR
5
7
5
7
7
7
7
8
1
4
1
7
7
7
8
1
UTAO,,)
",,.,r,
P
616
617
5 99
6 00
6 01
SFX CT
12
1071
1018
1085
P
;"
CUlEX
WORD1
WORD2
WORD3
WORD4
WORD5
610
611
612
613
614
es
15
5 95
5 96
5 97
5 98
PUNCH+15,CARONO
PNHXf+3,lSTCD
T5TPCH
WMSTR,PUNCH+11
'NOOOOOO',PUNCH+46
HOlDH+4,PUNCH+71
PUNCH+75,eARDNO
PNHXT+3,ExaUT
TSTPCH
PAGE
3775L
** PUNCH COMPATIBILITY CARDS
76
11
18
s; 0')
..,
5 93
5 94
OPERANDS
.... VERSION 3
..,.
1173
1180
1181
1194
1202
B 128 I
M 110 180
M 588 139
L 599 166
93
93
93
94
B 158 CI0 0
94
94
94
94
4
94
M
B
I
A
M
166 150
+43
166
95
95
055 175
95
T20 121
M T31 111
95
95
H Q90 $26
95
B S03 CI0 0
96
96
4
I. ~
I.
'~I'\"
LLV..:;J
rl
T..,.,;;)
96
4
1201
1211
1215
1223
1224
1226
8 Q34
1 180
96
4
8
1
2
4
D
"
96
B 526 CI0 0
4
K 8
96
B +14
91
96
97
20
1249
97
39
11
1288
1299
98
',068072)0630611061039'
21
',OO10011C4C'
11
1320
1331
1
1332
• ,
LIBRN
99
99
100
100
B 000
101
1401 AUTOCODER-PASS 1 LEFT MAIN LINE
SEQ PG LIN
618
6 06
619
620
621
622
6 01
623
624
625
626
621
628
629
630
6 08
6 11
INIT2
6 12
6 13
6 14
6 15
6 16
6 11
634
6 22
635
636
637
6 23
639
640
641
642
643
644
645
646
OP
OPERANDS
JOB
1401 AUTOCODER-PASS 7 LEFT MAIN LINE
ORG
RTW
NOP
BER
RTW
NOP
BER
RWO
Cf4
ew
SW
SW
WTW
NOP
BER
RWD
CW
6 24
6 25
6 26
6 21
ZA
6 28
BCE
6 29
6 30
B
B
6 31
Dew
6 32
6 33
6 34
*
* MAIN LINE
201
SYSTAP,2000
XXXX
TPERR
XTRATP,SAVCON
XXXX
TPERR
XTRATP
GMSAVE,WMSW=l
ENDEl,ENDE2
GH,181
OV1GM
XTRATP,ISIOCS
XXXX
TPERR
XTRATP
OVIGM
+5,LINCT
RESET,NOOUT,l
GET
SETUP
• •
ORG
DC
GM
650
651
6 38
6 39
* TAPE REOUNDANCY ROUTINE
*TPERR SBR XR2
..
652
6 40
653
6 41
SBR
654
655
6 42
43
6 44
6 45
6 46
6 41
HI
6
656
651
658
659
660
6 48
49
661
6
662
663
664
665
666
6 50
6 51
667
6 55
6 52
6 53
6 54
8
4
0201
0209
0213
l (Ul -00 R
N 000
0218
0226
0230
0235
l (U6 898 R
N 000
8 334 l
U (U6 R
0240
0241
0254
0261
0265
)
333 181
U17
l (U6 794 W
5
5
0273
0277
0282
N 000
B 334 l
U tU6 R
4
1
0281
0291
8
0298
) U11
+ 057 F13
8 543 e11 1
8 AZ4
8 595
CARD
-VERSION 3
0201
5
B
4
5
5
1
1
1
4
8
4
a 334 l
e12 056
Z94 H27
)
,
t
4
0306
4
1
0310
0314
1
0333
4
0334
0338
0342
H 094
H 406
y 538
0349
0356
0363
M IRO 397
0 393 313
M 397 506
U (UO B
B 419 391 W
M 538 540
104
104
104
104
104
104
104
105
105
105
105
105
105
106
106
106
106
106
106
106
107
MCW
MN
Mew
asp
BeE
Mew
TPINST RT
BER
REOXT B
RDRERR MN
SSP
BSP2
aSPl
S
aWL
0333
333
6 35
6 36
..,...,
;)1
INSTRUCTION TYPE
PROGRAM
647
6
LoeN
it
648
649
SFX CT
13
READ SECOND HALF OF MAIN PROGRAM
•
633
638
*•
6 09
6 10
6 18
6 19
6 20
6 21
631
632
LABEL
PAGE
3113l
-VERSION 3
, •
REDXT+3
PlUS9,XR2
4000-10+X2,TPINST+7
TPINST+3,BSPl+3
TPINST+1,INST2+1
INITAP
WRTRED,TPINST+1,W
PLUS9,REACCT
INITAP,XXXX
RDRERR
XXXX
TPINST+3,BSP2+3
INITAP
PlUS1,REAOCT
TPINST,REAOCT,B
4
7
7
1
1
5
8
7
8
5
4
1
5
7
8
0370
0375
0383
0390
0398
0403
0407
0414
0419
0426
108
094
(UO 000
B 407 l
B 000
M
108
108
108
R
0 393 1t11
(UO B
S 539 540
V 390 540 B
U
108
109
109
109
109
109
110
110
110
110
110
110
III
1401 AUTOCODER-PASS 1 LEFT MAIN LINE
SEQ PG LIN
668
669
670
611
612
613
614
675
6
6
6
6
6
56
57
58
59
60
LABEL
OP
OPERANDS
MN
TPHALT
H
TPINST+3,TPHAlT+6
XXXX t 790
TPINST+7,*+8
INITAP,XXXX
BSP1,E
XXXX.712
REDXT
SVSTAP
SUBCTR,WRTCTR-l,5
PLUS1,WRTCTR
INITAP,XXXX
SSP1
REDXT
WRTCTR
TPINST+3,·+1
XXXX,760
INST2
+9
+1
=1
=2
Mew
RT
BSS
6 61
H
6
6
6
6
6
62
63
B
WRTRED SKP
64
BCE
65
66
679
680
6
61
681
682
6 69
6 70
A
INST2 WT
BER
B
SUBCTR S
MN
683
6 71
684
6 12
685
686
681
688
689
690
691
692
6 73
6 74
676
611
618
693
694
695
6 68
6 15
6 76
6 17
6 78
6 19
6 80
6 81
6 82
691
698
6 83
6 84
6 85
6 86
699
100
A7
6 v.
6 88
101
702
6 89
696
705
6 90
6 91
6 92
6 93
706
6 94
701
708
709
710
111
112
713
6 95
6 96
!.Q}104
6 91
6 98
6 99
7 00
7 01
114
7 02
715
716
7 03
1 04
717
7 05
H
B
PLUS9 Dew
PLUSl DCW
READeT Dew
WRTCTR Dew
•
.. GET PASS
..
RESET
PAGE
3773l
SFX
CT
14
LOCN
INSTRUCTION TYPE
7
0434
7
7
0441
0448
0455
0463
0 393 447
• 000 790
111
111
M 391
M Cuo
B 370
• 000
III
III
8
5
1
4
5
8
7
8
5
4
4
1
7
4
1
1
0468
0415
0419
0484
0492
0499
0501
0512
0516
0520
0521
0534
0538
462
000 R
E
112
B 403
U (Ul E
8 516 541 5
A 539 542
M (UO 000 W
8 310 L
B
403
S 542
0 393 533
.000 160
8 499
CARD
112
112
112
112
112
112
113
113
113
113
113
113
113
114
114
1
0539
0540
lIlt
2
0542
114
0543
0550
0551
F
LeA
LeA
RT
SSAVE,201
7
SVSTAP,332
1
8
CW
181.333
1
RTW
NOP
BER
SYSTAP,2000
XXXX
TPERR
8
0559
0566
4
0514
0518
")nl_")nnl
..........
.,c;,.v""' ...
5.,
f
U:JO':'
M
.~U1.
li5
1
0590
4
0591
M
B -02
115
115
4
0595
0599
0600
/ 332
I
8 809
116
Mew
Mew
..
-VERSION 3
8
2002
A.C! ... .."
l C68 201
l
M (Ul 332 R
) 181 333
l (Ul -00 R
N 000
B 334 L
U
"..,.
.- -01
114
114
114
115
115
115
115
• BEGIN MAIN LINE PROGRAM
..
SETUP
CS
CS
PRINT+132
1
GETCRG B
READOG
*
.. DETERMINE TYPE
4
ANALWK SW
4
1
8
8
8
8
..
TYPE5W=1
MN
TYPE,TYPE~=l
BeE
BCE
BeE
BeE
BCE
BYPASS,TYPE,(
BYPASS,TYPE,8
BYPASS,TYPE,I
BYPASS,TYPE,H
PROWRK,ALTER,
8
0604
0608
0615
0623
0631
0639
0647
,
116
116
058
0 075
B 585
B 585
B 585
B S85
B 881
059
015 (
015 8
015 I
075 H
080
116
116
116
116
111
117
117
1401 AUTOCODER-PASS 7 LEFT MAIN LINE
OP
SEQ PG LIN
LABEL
118
719
720
121
ANALOG BeE
BCE
BCE
BCE
BCE
C
BE
C
122
723
724
725
726
1 06
7 07
7 08
7 09
1 10
7 11
7 115
7 12
7 13
729
7 14
7 15
7 16
130
131
7 17
1 18
732
7
733
134
135
1 20
7 21
1 22
7 23
7 24
121
128
736
737
738
139
140
741
742
743
144
145
146
1
1
7
1
748
7 35
749
f
753
154
36
7 40
156
7 43
751
758
159
160
761
7 44
1 45
1 46
1 47
1 48
1 49
1 50
1 51
1 52
7 53
7 54
DA
CaNST
OSA
GETOV2
SFX
TYPERR
ORG
OS
TYPERR
TYPERR
B
B
* "ACRO CARD
*IS10CS MCW
B
MACPNT
,.,""'.
\,w
B
BCE
B
CALERR
Mew
B
..
ISIOCS,IMAGE+75,W
MACPNT+7 t IMAGE+75,S
MACPNT+7,IMAGE+75,Z
MNEMON-2, 'JOB'
DOJOB
AlTERtALTNO
SEQERR
SETFRE
TYPESW
INSTR,TYPE,
TYPE,XR2
XR2
XR2
*+1+X2
B
B
B
..
SETCOM t lA8El-5 t *
MACPNTtIM~GE+15,R
B
B
B
B
B
1 38
7 39
155
164
765
766
167
B
1 31
1 41
1 42
762
763
A
A
26
27
28
1 33
1 34
152
BCE
MN
25
147
-750
751
B
cw
19
1 29
7 30
7 31
7 32
..
SU
OPERANDS
B
JI."'~n.
U'l' .. t~
, ,,! J·U..i
SETFRE
CALERR,IMAGE+86,7
COMXT
'OVERCALl',PRINT+123
BMPERR
COMXT
* NEW JOB CARD
*
OPERND,JOB
OOJOB Mew
BW
B
OOIOT
MCW
5
B
B
3773L
OOIOT,NEWSW
PNCHCO
IMAGE+80,PUNCH+80
LINCT
PRTHOG
MACPNT+7
* PROGRAM GENERATED RECORD
*
PAGE
SFX CT
loeN
INSTRUCTION TYPE
8
8
8
8
8
0655
B J72 H36 ..
0663
B
7
5
1
5
4
4
8
0679
B 812 105 5
B 812 105 Z
0695
Oi02
0707
0714
0119
CARD
117
805 105 R - ---- ---------11-8-------118
---ti)it-----fo-s-- w
0611
0681
15
C
HitS 054
118
119
119
119
119
119
119
B 843 S
C 080 114
B +83 I
B
TOI
)
058
lIB
118
8
0123
0121
1
4
0735
B V43 075
0 015 094
0742
A 094
4
4
0746
0750
A 094
B 1N4
4
4
0754
0158
B W52
B *62
4
0162
4
4
0166
0710
It
B 518
4
0714
0718
4
0782
4
0786
0790
B K85
B 518
B S18
121
121
121
121
121
121
0794
0801
M 063 308
8 812
122
122
0805
f"1
u
122
122
122
122
4
'IOCS',KIND-l
MACPNT+7
••
' I"'1A\..KU •
-VERSION 3
7
It
..,,
4
8
4
1
4
4
0812
0816
0824
0828
0835
0839
120
120
120
120
120
120
120
121
B 969
B +94
B L43
B
K12
nLO
1.100
309
B TOI
B 828 116
B J85
H 076 323
7
B L28
B J85
102 C62
7
0843
M
8
4
7
0850
V 862 G27 1
4
4
4
0858
B
0862
M
S
B
B
0869
0813
0871
P62
110 180
F13
-00
812
123
123
123
123
123
123
124
124
124
124
1401 AUTOCODER-PASS 7 LEFT MAIN LINE
SEQ PG LIN
LABEL
OP
OPERANDS
768
769
"*PROWRK
BCE
XTRA,TVPE,Y
OP+l
AOP.PRINT+11
OP+1
AOeON,TYPE,S
LITRAl, TYPEA, 1
TYPERR
170
171
172
773
714
1 55
7 56
7 57
7 58
7 59
1 60
1 61
1 62
it
718
7 63
7 64
7 65
179
780
781
7 66
1 67
7 68
XTRA
"1 10
1 11
7 12
789
190
791
792
793
794
195
796
791
198
799
BOO
801
802
803
804
805
806
807
808
809
alO
811
812
813
814
815
816
817
7 13
7 14
1 15
7 76
1 11
7 18
7 79
7 80
.... "
7 OJ.
1 82
1 83
7 Bit
1 85
7 86
1 81
1 88
...
94
)
068
070 211
068
B 944 015 S
B 999 059 1
8 578
124
124
124125
125
125
125
,
125
I
t
8
4
0912
0920
PRINT+21
Mew FIXFRM+72,OPRANO
CHAIN 5
4
7
0924
0928
MCW
MCW
1
SW
0904
1
1
BYPASS
221
M 072 218
125
MACRO
1
Mew
B
0935
0936
0931
GEN
GEN
M
M
M
GEN
GEN
GEN
M
1
4
0938
0939
0940
B $85
1
4
0944
0951
M 081 309
1
7
0955
0962
0969
0976
M 053 240
M 016 223
M 073 295
M 013 095
8 545
B lO9 013 =
ft
0
156
M
125
126
126
126
126
126
... ACCON CARD
AOtON
DSA
Mew
Sw
Mew
Mew
Mew
MCW
B
BCE
.... LITERAL
6
*
lITRAl aWL
BWI
Mew
BCE
MCW
B
PROlIT
CONST
Mew
Mew
Mew
8
95
A
96
C
Bl
91
98
99
0889
CARD
...
1 90
7
1
7
7
7
1
B 924 015 y
0900
Mew
7 89
7 91
7 92
1 93
oaSl
0893
Mew
188
8
4
16
... LITERAL GREATER THAN 30 CHARACTERS
784
785
786
7 69
INSTRUCTION TYPE
...
782
783
787
loeN
7
BeE
BeE
B
176
SFX CT
It
8
MCS
Sw
115
171
eft
PAGE
3773l
-VERSION 3
MZ
B
'ADCON',KINO
PRINT+21
FIXFRM+53,PRINT+40
FIXFRM+16,OPCOOE-2
BOP,PRINT+95
BOP,HOLDH+3
SETADD
SYMUNO,BOP,=
s elL!1
........
TT
1
1
4
8
.,.
i.
0983
0987
nnnc::
V77:J
,
126
221
126
127
121
121
121
127
128
.. "')D
'&"0
+ AREA DEFINITION CARDS
PROlIT,TYPE,S
DADC,FIXFRM+i,B
'RMARK',KINO
PROLIT+7,TYPE,A
'G',KIND-4
PROlIT+l
'LIT',KINIJ-2
FIXFRM+53,PRINT+51
FIXFRM+16,OPCODE-2
SETADO
'OO',COUNT
COUNTt'OO'
GOOD
lONE-1,STSTfiT
seTl I T
8
8
0999
1001
1
1015
8
1
1022
1030
1037
1041
4
1
7
1048
1
1
1055
1062
1066
1013
5
1080
1
1085
1092
4
7
4
V *41 075 S
V S28 001 B
M 086 309
B *48 015
M 087 305
B *48
M 090 307
M 053 257
M 016 223
B S45
A 092 007
C 007 092
8 *96 T
y 188 005
B 156
A
128
128
128
129
129
129
129
129
130
130
130
130
130
130
131
1401 AUTOCOCER-PASS 7 LEFT MAIN LINE
SEQ PG LIN
818
8 00
81c,t 8 01
820 8 02
821 8 03
822 8 04
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
of! 0.5. _
8 06
8 07
8 08
8 09
8 10
B 11
8 12
8 13
8 lit
8 15
LABEL
OP
OPERANDS
GOOD
BCE
BWZ
AREAOF,FIXFR~+4,B
Mew
BCE
BWI
MCW
MZ
HZ
SETlIT B
8
lITour B
B
UNSIGN
B
AREADF 8W
B
Mew
8 16
8 11
8 18
8 19
8 20
8 21
8 22
8 23
8 24
Mew
MCW
MCW
MCW
MCW
B
DADe
B
B
CS
CS
8 25
8 26
8
AREADF,PRINT+21 t
=
OPRAND,HOLOOT-l
SETLIT,PRINT+21,'
UNSIGN,PRINT+21,2
COUNT,XR1
BLANK4,PRINT+27+Xl
PRINT+21,HOLDH+Xl
SETLOC
CaNONS
PRNTlN
BYPASS
OPRANO,HOlDOT=52
SETLIT
*+5,TYPESW
SETliT
FIXFRM+13,lAB
BLANK4-2,PRINT+31
COUNT
,=t
'AREA',KIND-l
SETlIT
SETAOD
CONONS
PRINT+132
BYPASS
845
8 21
846
841
848
8 28
*
* SET CONDENSE ADDRESSES FOR CCNSTANTS
8 29
8 30
*
SETAOD SBR
31
ZA
849
850
8
8 32
Mew
851
852
8 33
8 34
8 .35
8 36
8 31
8 38
8 39
8 40
8 41
8 42
S
A
853
854
855
856
851
858
859
860
861
862
863
864
865
866
861
8
43
8 44
8 45
8 46
8 47
8 48
8 49
AODXT+3
LABAOD,LOADAD
lOADAO
COUNT,WMACOR
+I,WMAOOR
XXXX
ADDXr 8
*
* GET NEXT RECORDS
*TYPERR
H
BYPASS B
BW
B
XXXX.710
GET
ANAlWKtTYPESW
GETORG
-VERSION 3
PAGE
3713L
SFX CT
LoeN
INSTRUCTION TYPE
8
8
1096
1104
B 183 227
=
V /83 004 B
7
1112-
8
8
1119
1121
7
1135
1
1142
1149
1156
M 218 Eit 3
B /56 221
V /12 221 2
M 007 089
Y 033 2S1
y 221 Ol2
B U18
1160
B
1164
1168
B V54
7
4
4
4
4
7
1112
,
l54
8 S85
M 218
B 156
E44
11
CARD
131
131
131
131
132
132
132
132
132
132
133
1-33
133
133
1
4
1179
1183
1191
1195
1202
1209
1213
1217
1224
1228
1232
1236
1240
1241
4
1245
H S77
I
,l.L-..7
.. ""L.n
-"T
It
7
1
1256
1260
1267
4
1274
M Ea)
S 001 E78
A 055 E18
B 000
136
136
1
4
8
4
1218
It
8
4
1
7
4
4
1
4
4
4
4
...
V /95 058 1
8 156
M 013 219
M 031 231
M 007
M E45
M E49 308
B 156
8 S45
B l54
I 332
I
B S85
t"4L'I
vUJ.
133
133
133
134
134
134
134
134
134
134
135
135
135
135
E83
,.,C:
... ""--'
135
135
• 000 770
136
1285
1289
1297
8 A21t
V 604 058 1
136
136
B 600
136
H
T89
7
1301
1305
1312
136
131
131
7
1319
*
* FREE FOR"- RECORO TO PRINT AREA
*
FREEXT+3
SETFRE SBR
MCS
MCS
MZ
ALTNO,AlT
PAGENOtPG
PAGENO,PG
4
1
I 114 204
Z H32 201
y H32 207
137
1401 AUTOCOCER-PASS 1 LEFT MAIN LINE
SEQ PG LIN
LABEL
OP
OPERANDS
Mew
-VERSION 3
SFX
CT
loeN
INSTRUCTION TYPE
1
1
7
7
8
8
1326
1333
M H35
M H41
875
8
57
BCE
876
8 58
8 59
8 60
8 61
8 62
8 63
8 64
8 65
8 66
8 67
FREEXT 8
IOGEN MCW
GENSTM Mew
lINENO,LIN
lABEl,LAB
MNEMON,OPCOCE
OPERNO,OPRANO
IOGEN,IMAGE+75,Z
IOGEN t IMAGE+15,Y
GENSTM,IMAGE+75,e
GENSTM,IMAGE+75,S
XXXX
'IO',KIND
'GEN',KIND-2
BCE
COMERR,IM~GE+86fB
8
B
Dew
De
FREEXT
4
868
869
810
871
872
873
874
817
87B
879
880
881
882
883
884
885
8 50
8 51
8 52
8 53
8 54
8 55
8 56
886
887
8 68
888
889
8
890
891
892
893
894
895
896
891
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
8 69
OVIGM
8 88
8 89
B 90
8 91
8 92
93
94
8 95
8 96
8 97
8 98
8 99
,
• •
t
8
1340
1341
1354
1362
1310
8
4
1318
1386
7
1
1
1
211
219
M H50 225
M 102 278
B T90
8 T90
B T91
B T97
105
105
105
105
18
CARD
131
137
138
Z
138
138
y
138
C
S
138
139
B 000
139
1390
1391
1404
1412
1416
1411
M E51 309
M E54 301
B J91 116 B
139
139
139
B T86
139
1418
1422
1429
1436
1443
1444
1452
1459
1466
1414
1482
1490
1498
H
l
M
0
M
V
B 000
139
140
*
* ASSEMBLED INFORMATIOf\ TO PRINT AREA
*
SEILoe
SBR
Mes
Mew
10
8 11
a 72
8 13
8 14
B 15
8 76
8 77
8 78
8 79
8 80
r. ..
8 0,1
8 82
8 83
8 84
8 85
8 86
8 87
8
8
MCW
Mew
Mew
BCE
BeE
BCE
PAGE
3773l
MN
MCW
Bwl
MCW
HZ
TSTFR BCE
TSTLBl BM
TSISTM BM
aWl
LoeXT B
"'1"\,
,n,..,
ruuI'",n
U"I.J
M"'ft
B
OBLDEF MCW
B
8
STMBAD
MCW
B
B
LoeXT+3
COUNT,CT
SFxeTR,SUFFIX
LABAOO,LOCN
4
7
1
TSTFR,lABAOD-l,2
'X',PRINT+92
BLANK1,PRINT+89
FOURCH,LABADD-4,O
DBlOEFtSTLABl
STMBAO,STSTMT
8
7
Mew
7
8
8
8
Y 030 289
140
140
140
140
141
141
141
141
B V02 057 0
141
V V13 002 K
V V28 005 K
V V28 005 S
141
142
142
142
M
U66 060 2
E55 292
STMB.AO, STSTMT, S
8
XXXX
4
..... a .. , I~
..
• n r a.. _ I.
OLAP'''J. 'LU\..f'l- ....
'7
J
.l.JUL.
U
M
TSTLBl
'lA8El',PRINT+120
BMPERR
T5T51M
'SAD STATEMENT',PRINT+128
BMPERR
LOeXT
4
1
1509
B U74
* INSTRUCTION CARD
*
*INSTR MCW
OMOO,INDMCD
MeW
MCW
Mew
Mew
Mew
Mew
1
1
VOl
007 284
GIS 280
061 290
BOP,INBOP
AQP,INAOP
OP,INOP
DMOD,HOlOt-'+S
4
4
7
4
4
7
7
7
7
1
1
1
1
,c::::n"l
1513
1520
1524
1528
1535
1539
1543
1550
1557
1564
1571
1518
1579
1580
""2"
IJJV
286
' ,. .,
A."TL
B U82
142
142
143
143
M E73 328
B l28
143
143
B U98
143
M E60
320
8 l28
M 074 303
M 073 301
M 010 291
M 061 293
M 074 EOO
M
M
M
143
143
144
144
144
144
144
144
1401 AUTOCODER-PASS 7 LEFT MAIN LINE
OP
OPERANDS
9 00
Mew
9 01
9 02
9 03
Mew
LABAOO,WM"ODR=5
lABADD t lOAOAO=5
eOUNT,LOACAC
+l,lOADAO
SYMUNO,BOP t =
SYMUND,AOP,=
BADOPtOP,
SETLIT
• OP',PRINT+123
BMPERR
SETLIT
SEQ
PG LIN
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
931
938
939
940
941
942
943
944
945
946
LABEL
A
S
BCE
BeE
BeE
9 04
9
9
9
9
05
06
07
08
9 09
9 10
9 11
9 12
9 13
9 14
9 15
9 16
9 17
9 18
9 19
9 20
9 21
9 22
9 23
B
BAOOP
-
MCW
B
B
OA
BeE
MCW
Mew
SETDA
aWl
MCW
B
B
B
B
9 24
9 25
B
BYPDA
RPTOUT MCW
B
CS
941
9 29
CS
948
949
9 30
9 31
9 32
B
950
951
952
953
954
955
956
951
958
959
960
961
962
963
964
965
966
967
9 33
9 34
9 35
HEADER aWL
B
NXTRPT MN
Mew
Mew
B
B
C
9 36
9 37
9 38
9 39
au
9 40
9 41
9 42
9 43
9 44
9 45
9 46
9 41
9 48
9 49
PAGE
3773L
SFX CT
LOCN
INSTRUCTION TYPE
7
7
7
1
8
8
8
1581
M 061 E78
1588
1595
M 061 EB3
A oei7 E83
S 055 E83
B lO9 073 =
B lO9 010 =
4
1
4
4
1602
1609
1617
1625
1633
1637
1644
1648
B W37 061
B 156
M EB6
323
8 l28
B 156
19
CARD
144
145
145
145
145
145
146
146
146
146
146
*... DEFINE AREA CARDS
...
B
BCE
9 26
9 21
9 28
-VERSION 3
PNTOA
BCE
BCE
C
Bl
B
B
BADDA
Mew
B
B
ADDR4K SBR
HEADER,TYPEtO
SUPADO,WMADOR
'FIELD' ,KIND
SETOA,TYPE,B
'SBF',KINO-2
ORGXl
SElLoe
CONONS
PRNTlN
GET
RPTOUT,TYPE,t
GETORG
SUPAOO,WMADCR
CONONS
PRINT+132
4
BYPOA
BADDA,FIXFRM+4,o
0
SETlOe
SUPAOD,PRINT+97
LABADD.WHADDR
CONONS
GET
FIXFRM+16,'CA ,
PNTDA
NXTRPT,TYPE,f:
ADDR4K,PRINT+93,O
PRINT+97,OBJCOR
PUADSW
PRNTLN
GETORG
• NO 8 X L',PRINT+129
BMPERR
HEADER+8
AD4KXT+3
8
7
7
8
1
4
4
1652
1660
1667
1614
1682
1689
1693
4
1697
1101
1705
1709
1117
1721
1128
1132
1
1136
4
1131
1741
1149
1753
1160
4
4
8
4
7
4
0
4
7
1
1
4
4
7
1.161
1768
1712
1776
8
1183
1788
8
1196
1
5
4
4
1
1804
5
4
1811
1816
1820
1824
1831
X41
066
E91
W93
E94
K62
U1a
l54
Y54
075 0
E18
309
075 B
307
B A21t
*
8
M
M
V
M
B
B
B
B
146
147
141
141
147
141
B X2I 075
B 600
M 066 E18
147
148
148
148
148
148
148
8 L54
148
I 332
I
B X05
149
149
149
\I
v
V~L
'4"T
1\1\,.
VV"T
0
1
J.'"T7
*
149
149
149
150
150
150
150
150
150
151
151
151
151
151
151
151
152
152
8 U1a
0 066 291
M
M 061 E18
B L54
A24
C 016 E91
B
B X96
B X53
B Y39
C 297
I
075
293 0
C09
B K97 T
B Y54
B 600
M F06 329
B L28
4
1835
B X49
4
1839
H Y53
'.n
0
1401 AUTOCODER-PASS 7 LEFT MAIN LINE
SEQ
PG LIN
968
969
9 50
9 51
9 52
9 53
9 54
9 55
9 56
970
911
912
973
974
975
976
911
978
979
980
981
982
983
984
985
986
9
9
OPERANDS
Mew
BLANKl,PRINT+93
XXXX
*PRNTLN
SBR
OOPNT
BCE
BCE
C
BH
BW
B
64
65
ClR
68
BeE
C
Bl
CS
CS
BCE
RWO
B
DCw
XFR
LIBRN
9 69
A
BeE
989
9 11
9 72
9 73
PRNTXT B
aVRfLO B
S
9 14
B
994
995
996
997
998
999
1000
1001
9
9
9
9
9
9
9
9
15
16
GETOVI RTW
NOP
BER
71
ew
78
79
80
81
82
9 83
ENDE1
WTAPE
CLR,TYPEA,1
LOCN,OBJCOR
PUADSW
PRINT+132
PRNTXT,TYPE,3
+1,LINCT=2
OVRFLO,llNCT-l,5
XXXX
PRTHOG
lINCT
PRNTXT
XTRATP,ISIOCS
XXXX
TPERR
OVIGM
XTRATP
BYPASS
.. t
9 70
993
PRNTXT+3
DOPNT,LOCN,
DOPNT,TYPEA,1
LoeN t I 0081'
ADDERR
*+2,lSTOP
W
981
990
PAGE
20
SFX CT
loeN
INSTRUCTION TYPE
1
4
1843
1850
M 030 293
152
B 000
152
'+
1854
1858
1866
H I50
152
B Y86 290
8 Y86 059 7
C 290 Fl1
B J57 U
V Y95 e10 1
2
8 J24
8 Z19 059 7
C 290 C09
152
152
153
153
153
153
153
CARD
*
988
991
992
3173l
3
• PRINT STATEMENTS
63
66
67
OP
AD4KXT B
51
58
9 59
9 60
9 61
9 62
9
9
9
9
9
9
LABEL
-VERSION
Dew
8
8
1
5
8
1
It
8
1
5
4
1
8
1
8
4
4
4
4
8
4
5
4
5
1814
1881
1886
1894
1895
1899
1901
1914
1919
1923
1924
1932
1939
1947
1951
1955
1959
1963
1971
1975
1980
1984
1989
.
4
11
• •
.t.
1993
1
1994
B
K91 T
I 332
I
B Z47 075 3
A 055 F13
B lS1 F12 5
8 000
B -00
S F13
B Z41
l CU6 794 R
153
154
154
154
154
154
154
155
155
155
155
155
N 000
B 334
155
155
156
156
B S85
156
l
) U17
U CU6 R
156
11~"
.l~O
B 000
156
151
1401 AUTOCODER-PASS 1 RIGHT MAIN LINE
SEQ
1002
1003
1004
1005
1006
1001
1008
1.009,
1010
1011
1012
1013
1014
1015
PG LIN
9
9
9
9
9
9
9
9
9
9
9
9
9
9
LABEL
84
85
86
81
88
89
90
10
10
10
10
Mew
Mew
BW
ec
W
93
94
95
96
91
CC
WTHEAD
01
02
03
Mew
Mew
8
CS
CS
BW
10 11
10
10
10
10
10
20
21
W
B
PHOGXT B
WiAPE
WTXT
AOOERR
SBR
BW
WT
NOP
BfR
B
Mew
22
8
23
24
25
26
27
B
10
10
10
1046 10 28
1041 10 29
1048 10 30
1049 10 31
1050 10 32
1051 10 33
SFX CT
-VERSION
'PAGEt,PRINT+I09
+l,NUMBER
NUMBER, PRINT+114
JOB,OPRAND
PUNeH+BO,LOCN
WTHEAD,LSTOP
1
K
'1'1200
WTAPE
PRINT+132
'SFX eT LoeN INSTRUCTION TYPE eARO',PRINT+114
OPERANDS',PRINT+34
'SEQ PG LIN LABEL OP
*+2,lSTOP
** CQMMENTS
'*SETCOM B
COMXT
Mew
Mew
Mew
B
B
B
LOCN
INSTRUCTION TYPE
21
CARD
3
2000
4
7
1
2000
2004
2011
H J23
M F17 309
A 055 C84
7
2018
Z C84 314
7
2025
1
8
2032
M C62 218
M 180 290
V -52 C70 1
2
1
2039
2047
2049
F 1
2
F K
2
7
2050
4
2059
4
1
2063
M 029 200
8 J24
I 332
2067
I
7
2068
7
2075
M F53
M F86
8
1
1
2052
314
234
V -91 C70 1
160
160
160
160
160
160
161
161
161
161
161
161
161
162
162
162
*+2,LSTOP
8
2082
2090
2091
2098
2102
2106
2107
1
2115
2
163
WTAPE
4
4
2116
2120
B J24
163
I.
''')L.
W
10 08
10 09
10 10
1032 10 14
1033 10 is
1034 10 16
1035 10 11
1036 10 18
loa1 10 19
1038
1039
1040
1041
1042
1043
1044
1045
Bw
10 07
10 12
10 13
Mew
B
es
CS
MCW
04
1023 10 05
1024 10 06
1025
1026
1027
1028
1029
1030
1031
1401 AUTOCODER-PASS 7 RIGHT MAIN LINE
2000
A
MCS
1016
1019
1020
1021
1022
JOB
ORG
Mew
91
9 98
9 99
1018 10 00
OPERANDS
*
* PRINT PAGE HEADING
*PRTHOG SBR
PHDGXT+3
92
1011
OP
PAGE
3174l
-VERSION 3
'0',200
WTAPE
PRINT+132
xxx x
WiXi+3
WTXT,TAPOP
3,200
XXXX
TPERR
XXXX
• ADDR',PRINT+132
BMPERR
OOPNT
4
4
1
'T
8
a
4
5
2'1
.L''''
2128
2136
2144
2148
2153
2157
2
F81 200
J24
I 332
M
B
I
V Jl6 C10 1
B 000
.i::L
H vJU
V J53 C69 1
M (U3 200 W
N 000
8 334 l
162
162
162
162
163
163
163
163
lL'l.
"'...,.,
164
164
164
164
It
2164
F92 332
8 l28
4
2168
B Y8b
164
164
165
165
4
2172
8 TOI
165
7
2176
2183
M
M
4
1
8 000
M
CARD
SETFRE
OPERND,PRINT+80
1
PRNTlN
REAOOG
ANALOG
1
4
4
4
2184
M
2185
2189
2193
8
102 280
Y54
B 809
B 655
165
165
165
165
166
166
1401 AUTOCOCER-PASS 7 RIGHT MAIN LINE
SEQ PG LIN
1052
1053
1054
1055
1056
1057
10
10
10
10
34
35
36
37
1038
1082
OPERANDS
OP
'MACRO ERRORJ,PRINT+126
BMPERR
FREEXT
COMERR MCW
B
B
•
PAGE
3774l
SFX CT
loeN
INSTRUCTION TYPE
1
4
4
2191
2204
2208
M G03 326
7
7
2212
M 066 061
2219
M 032 066
8
2226
V Kl0 001 2
7
2234
2241
o 066 291
22
CARD
166
166
166
8 l28
B T86
* ORG t lTORG CARDS
10 39
1058 10 40
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1010
1071
1012
1073
1014
1015
1016
1071
1078
1019
1080
1081
LABEL
-VERSION 3
ORG
10 41
10 42
10 43
10 44
10 45
10 46
10 41
10 48
10 49
10 50
10 51
10 52
10 53
10 54
10 55
10 56
10 57
10 58
10 59
10
10
10
10
10
10
10
10
10
10
10
10
60
61
62
63
64
65
66
67
68
69
1083
1084
1085
1086
1087
1088
70
1089
11
1090 10 72
1091 10 73
1092 10 14
1093 10 75
1094 10 76
1095 10 71
1096 10 18
1097 10 19
1098 10 80
1099 10 81
1100 10 82
1101 10 83
SUPADO,lABAOD
ORGADO,SUPAOO
BADORG t FIXFRM+l,2
SUPAOD,PRINT+97
Mew
Mew
aWl
ORGOUT MN
Mew
AODR4K,PRINT+93,O
PRINT+97,OBJCOR
PUADSW
SETloe
LITOUT
, UNDEF ORG',PRINT+130
BMPERR
ORGOUT
BeE
e
ORGXT
BADORG
8l
B
B
Mew
B
B
** OS,
.DS
..
..
..
EQU
1
8
7
5
2242
M
B Y39
293 0
166
166
167
167
167
161
2266
2210
C 297 C09
8 K97 T
B U18
B 164
M G13 330
B l28
4
2211
2281
167
167
168
168
168
168
B K34
168
8
4
2285
2293
B L09 010
8 K62
4
4
4
2291
2301
2305
H loa
4
2309
7
2313
H L21
M G17321
4
2320
4
2324
ERREXT+3
+l,ERRCNT
XXXX
4
7
4
2328
2332
H L42
170
A 055 e66
2339
B 000
110
110
IMAGE+21,SFXCTR=1
lITOUT
7
4
2343
2350
8 /64
4
4
7
4
2250
2257
2262
CARDS
BeE
SY~UNo,AOP,=
B
ORGXT
=
168
168
ERROR - ADDRESS EXCEEDS CORE
PUADSW SBR
CW
ADSkXT B
ADSWXT+3
ADDRSW
XXXX
) 034
B 000
169
169
169
*• ERROR - UNDEFINED SYMBOL
..
SYMUND SBR
MCW
8
UNOXT
B
UNDXT+3
• SYM',PRINT+127
BMPERR
XXXX
8 l28
B 000
169
169
169
169
.. BUMP NUMBER OF ERRORS
*BMPERR SBR
A
ERREXT B
*.. SUFFIX CARD
*
SFX
Mew
..
B
.. CCNDENSE ROUTINE
M H51 G18
170
110
1401 AUTOCODER-PASS 1 RIGHT MAIN LINE
seQ PG LIN
84
85
LABEL
OP
1102
1103
1104
1105
1106
1101
1108
10
10
10
10
10
10
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
10 92
10 93
NXTRCD BCE
10 94
BWl
86
81
88
89_
10 90
1109 10 91
1128
10
10
10
10
10
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
1129
1130
1131
1132
1133 ,11
1134 11
1135 11
1136 11
95
96
97
98
99
00
01
02
03
04
05
06
01
08
09
10
11
12
13
14
15
16
17
18
19
*
ceNONS SBR
CW
BM
BW
BeE
SFX CT
LOCN
INSTRUCTION TYPE
2354
H +42
V +39 005 K
V P62 056 1
23
CARD
CONDXT+3
BIGSW,DCSW
4
CONDXTtSTST~T
8
2365
PNCHCD,WMSW
8
2313
8
8
8
2381
2389
2391
B N39 05-9 0
B *08 059 3
7
5
7
2405
2412
2411
2424
2431
2438
2443
C 007 G20
B Q91
M C81
A 001
C G23
B 009
V N98
1
2451
2458
2465
M G32 G37
A 001 G31
C E83 G31
5
7
2472
2417
B 009 I
A 007 G32
174
174
174
1
1
7
7
2484
2491
2498
2505
H 099 092
A 001 099
A 001 C81
H C8l 094
M 0+0 1-0
) G38
V 053 G21 1
v +07 075 B
174
114
115
115
175
175
115
176
M E18 G43
116
116
116
DOWM,TVPEA,O
ENORTN,TYPEA,3
TSTOt,TYPE,S
* TEST ROOM ON CARD
*TSTROM C
COUNT,139'
BL
Mew
A
c
Bl
BW
7
TSTCON
PNHLOC,ROGMCT=3
COUNT,ROOtlCT
"1
ROOMeTt'039'
7
SETPNH
RSTCTR,NEhSh=1
5
8
** TEST SEQUENCE
*
Mew
COUNTR=5,SEQCT=5
A
C
BU
A
----23-str----- ) HI1--G4S---- ----
170
170171
171
COUNT,SEQCT
lOADAOtSEQCT
SETPNH
COUNT,COUNTR
7
1
V 011 075 B
T
G23
G23
G26
T
G21 1
171.
171
172
112
112
172
112
173
173
113
113
173
* MOVE DATA TO PUNCH AREA
MVOATA SBR
A
A
Mew
Mew
1139 11 21
Cn
BW
BWl
11 22
11 23
11 24
11 25
11 26
11 27
11 28
11 29
1130
11 31
11 32
11 33
PAGE
3774l
** PROCESS RECORO
1131 11
1138 11 20
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
OPERANDS
-VERSION 3
XR3,HOLDH
COUNT,XR3
COUNT,PNHlOC
PNHLOC,XR2
XXXX+X3,PUNCH+X2
1
2512
DATASW=l
FIRST,NEWSw
CNOOUT,TYPE,B
4
8
8
2519
2523
2531
*
• SET WORD MARK ADDRESS
*
OOWM
Mew
B
A
Mew
MCW
Mew
C
WMADOR,CNVADD=5
eNVRT
+3,WMlOC
WMLOC,XRl
CNVAOD,WMADDR-2
WMADDR-2,XXXX+Xl
XR1,+WMSTR-3
1
4
7
1
7
1
7
2539
2546
2550
2557
2564
2571
2578
8 P16
A G44
M C75
M G43
M E76
C15
089
E16
0*0
C 089 G47
176
111
117
117
1401 AUTOCODER-PASS 7 RIGHT MAIN LINE
SeQ PG LIN
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1161
1168
1169
1170
1111
1112
1173
1174
1175
1176
1111
1178
1119
1 .. 0'2
OP
OPERANDS
SU
RSTCTR
sw
8
Mew
CNDOUT
WMSW
CNDOUT
LOADAD,CQUNTR
MVOATA
PNCHCD
NXlRCO
COMPWM,NEWSh
TSTROM
WMLOC,AWMSTR
TSTROM
DCSW=l
PNCHCD
rSTROM
11 34
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
11
1180 11
1181 11
1182 11
.... & . U J
LABEL
,.
&.&.
35
36
37
38
39
40
41
42
43
44
S
SETPNH B
B
TSlDC
8W
8
COMPWM C
BE
sw
45
46
B
47
B
48
49
50
51
*it FIRST DATA ON CARD
*FIRST cw
NEWSW
aWl
52
53
54
55
56
51
58
59
60
61
62
63
64
65
1184 11 66
1185 11 67
1186 11 68
11.81 11 69
1188 11 70
1189 11 71
1190 11 12
1191 11 13
1192 11 74
1193 11 15
1194 11 76
1195 11 71
1196 11 78
1197 11 19
1198 11 80
1199 11 81
1200 11 82
1201 11 83
B
PRODC,TYPE,S
CNDOUT
-VERSION 3
3714l
PAGE
$FX CT
LOCN
INSTRUCTION TYPE
5
4
4
2585
8 +01 I
056
t
7
2590
2594
2598
2605
2609
2613
2617
2625
2629
5
4
4
2641
2645
4
2649
4
2653
2651
2665
7
4
4
4
8
4
8
4
2636
B +01
M
Ea3 G32
B M84
B P62
B
LSI
V 029 G27 1
B M05
C C15 C18
B HOS S
G48
f
B P62
8 M05
)
V
B
G21
069 075 B
+01
24
CARD
111
117
177
178
118
118
118
178
178
118
119
119
119
119
179
119
119
it
* CONDENSE DC CARDS
•PRonc
MCW
MCW
')',PUNCH+41
WMADOR,CNYACD
B
CNVRT
MCW
Mew
Mew
A
CNVAOO,WMADCR-2
WMADDR-2,WMSTR-15
WMADDR-2
+6,WMLOC
CNDOUT
B
1
7
4
7
1
4
7
4
2669
2676
2683
2681
2694
2101
2705
2712
G49
E78
8 P16
M G43
M E76
M
M
141
G43
180
180
180
E16
C96
M E76
A G50 C75
8 +01
180
180
180
181
181
-!t
it
-
CONVERT 5 TO 3 DIGIT ACDRESS
CN\lRT
SBR
BAY
ADDAGN A
BAV
Ml
MN
Ml
CNVXT B
•
CNVXT+3
*+1
+96.CNVACO-3
ADDAGN
CNVADD-4,CNVADO
CNVADD-3,-+4
IONE,CNVADD-2
XXXX
P61
7
2716
2120
2125
5
2732
A G52 G40
B P25 I
7
2137
2744
2751
2758
y G39 G43
0 G40 P54
y 189 &41
B 000
It
8
2162
H Q90
2166
8
7
2174
2182
2189
C07 C4S 1
V Q07 G38 1
M 632 G43
8 P16
4
5
1
1
It
H
8 P25 Z
181
181
181
181
181
182
182
182
.. PUNCH A CARD
it
PNCHCD SBR
BW
BW
Mew
B
PNHXT+3
EOIT,OCSW
EOIT,OATASW
COUNTR,CNVACD
eNVRT
4
V
182
182
182
183
183
1401 AUTOCODER-PASS 7 RIGHT MAIN LINE
SEQ PG LIN
1202
1203
1204
1205
11 84
1206
88
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1211
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
11
11
11
11
11
11
11
11
85
86
87
89
90
91
92
11 93
11 94
11 95
11 96
11 91
11 98
11 99
12 00
12 01
12 02
12 03
12 04
12 05
12 06
12 01
12 08
12 09
12 10
12 11
12 12
12 13
12 14
12 i5
12 16
12 17
12 18
12 19
12 20
12 21
12 22
12 23
12 24
12 25
12 26
12 27
12 28
12 29
12 )0
12 31
12 32
12 33
LABEL
OP
OPERANDS
Mew
Mew
CNVADO,WMSTR-21
PNHLoe,WMSTR-24
WMSTR,PUNCH+71
'O',PUNCH+41
*+2,CONDSW,O
MCE
MN
TSTPCH BeE
P
EDIT
•
..•
B
SFX CT
LoeN
INSTRUCTION TYPE
7
7
2193
M G43
7
·7
8
1
WTAP2
PAGE
3774L
-VERSION 3
4
2800
2807
2814
2821
2829
2830
t90
M C81 C87
E 011 171
o Fa1 141
B Q30 C10 0
It
8 +43
25
CARD
183
183
183
183
184
184
184
RESET COUNTERS + SWITCHES
NEWCRD A
CS
LCA
SW
cw
Mew
MCW
MCW
PNt-iXT
•
B
+I,PUNCH+15
PUNCH+11
,
,
,
',PUNCH+71
1
NEWSW,OATASW
WMSW,DCSW
'OOO',PNHlOC
AWMSTR,wMLOC
'OO1001040040040040040040040',WMSTR
XXXX
'LO
2834
2841
2845
2852
2859
2866
2873
2880
2887
056 648
M G8l C81
M e78 C75
M H14 011
B 000
2891
2899
2903
2910
2917
2924
2931
2938
2945
R03 G27 1
P62
M 001 H16
M E83 G32
M G20 007
S G20 H16
S H16 G32
y 186 H16
, HI1
"7
2949
u
4
4
2956
2960
2964
2968
2975
7
4
7
7
7
7
1
1
4
A 055 175
I 171
L Ga4 171
,
G27 G38
)
184
184
184
184
185
185
185
185
185
... CONSTANT GREATER THAN 39 CHARACTERS
*TSTCON BW
B
Mew
Mew
Mew
S
S
MZ
SW
Mew
BIGRN
B
B
CW
Mew
Mew
Mew
Mew
A
B
*+5 t NEWSW
PNCHCD
COUNT,HOlDCT=2
lOAOAO,COUNIR
'39',COUNT
'39',HOLDCT
HOLDCT,COUNTR
lONE-3,HOlOCT
BIGSW=l
WMADDR,SAVEwM=5
MVOATA
PNCHCD
aIGSW
HOlOCT.COLJNT
'A',TYPE
HOLDOT,HOlOCT-39
SAVEWM,WMADCR
'39',WMAOOR
RSTCTR
8
It
7
7
7
7
7
7
4
f
4
7
7
7
7
7
V
B
'"' E78
B M84
u.,,'"
n~L
B P62
)
H17
M H16 001
M H23 075
186
186
186
186
186
187
187
181
187
10"'7
.... u.
187
188
188
188
18a
188
188
4
2989
2996
3003
M E44 E05
M H22 E78
A G20 E78
B N98
189
1
3007
l
4
1
1
3014
3018
3019
3020
3028
115 314
S 100
189
189
S
189
S
189
189
190
2982
189
*
... EXIT FROM CONDENSE ROUTINE
*
CNDOUT MCS
S
S
PUNCH+15,CARONO
XR3+1
S
BW
Mew
BIGRN,BIGSW
BlANKl,HOlOOT
8
7
y R60 H11 1
M 030 E44
lll-r 1 Al:T 0 COL; f R- PAS S 7 RIGHT MtIN LINE
QP
OPERANDS
1252 12 34
Mew
12 35
12 36
CONOXI B
WTAP2 SBR
BW
HOLDor
XXXX
WT2XT+3
WT2XT,TAPQP
SeQ PG
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
126-1
1268
1269
1210
1271
1212
1213
1214
1215
1276
1271
1278
1219
1280
1281
1282
..
..,.n~
~'O.:l
LIN
12 37
12 38
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
Mew
39
40
41
.1,
WT2XT
** SEQUENCE ERROR ON INPUT RECORDS
*
SEQERR H
XXXX,117
44
45
47
48
49
50
51
52
53
54
55
56
57
58
59
B
GETOV2 RTW
NOP
BER
cw
SSP
B
C
au
60
S
SBR
RT
61
62
63
65
B
69
10
71
72
73
r-,..
"I U T A
"I:~
, .. J\ ,
BER
A
'"Mew
Mew
CHAIN
Mew
Mew
Mew
Mew
MCW
Mew
Mew
Mew
MCW
Mew
1295
12
12
12
12
1301 12
SEQERR
SYSTAP,ISIOCS
XXXX
TPERR
OV2GM
SYSTAP
EXEND
*
* GET RECORD FROM WORKING TAPE
*GET
SBR
WORKXT+3
1284 12 66
1285 12 67
1286 12 68
1281
1288
1289
1290
1291
1292
1293
1294
1296
1297
1298
1299
1300
'+',100
3,100
XXXX
TPERR
XXXX
42
12 64
....
WT
NOP
BER
B
43
12 46
12
12
12
12
12
12
12
12
12
LABEL
S
S
S
wCRKXT B
*
BLKCT,KBLKNG
NXTREC
HOLDA
LGTCK+6,INPUT5+13
WORKTP,INPUT5
CHKlGT
TPERR
.n"
otvr-r
-rOU,Dl.."~1
BlKCT,XR3
FIXINP t FIXFRM+80
-VERSION 3
3714l
PAGE
SFX CT
loeN
INSTRUCTION TYPE
4
4
3035
M E44
8 000
4
8
1
8
4
5
4
3039
3043
3041
3055
3062
30iO
3014
3019
H
V
M
M
N
26
CARD
190
190
190
190
190
191
+82
+19 C69 1
H24 100
(U3 100 W
191
000
8 334 l
B 000
191
191
• 000 117
B +83
L CUI 794 R
N 000
B 334 l
) T32
U (U1 B
8 194
191
191
192
192
192
192
192
192
H 808
192
193
193
193
193
193
193
194
1
4
8
4
5
4
5
4
3083
4
7
5
4
7
8
4
5
3124
3128
3135
3140
3144
3151
3159
3163
"'7
~1ILO
.:l~OO
A
t i""l L
n,o
COO
11 ..... ....
""
.1,"7
7
3175
3182
M
M
COO 099
tAl 080
194
194
3189
M
3190
3191
3192
3193
3194
3195
3196
3191
3198
M
M
f
1
3090
3094
3102
3106
3111
3115
3120
C COO C04
B A68 I
S COl
H 880 131
M (U5 118 R
B 859
8 334 L
•
10
1
1
1
1
1
1
1
1
1
1
XR3+1
4
XXXX
1
1
4
3199
3203
3204
3205
M
M
M
M
M
M
M
S 100
S
S
B 000
MACRO
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
194
194
194
195
195
195
195
195
195
195
196
196
196
196
1401 AUTOCODER-PASS 1 RIGHT MAIN LINE
seQ PG LIN
1302
1303
1304
1305
1306
12
12
12
12
12
_ 1~P7
1308
_lJQ9
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
134;
134f
1349
1350
1351
14_ 19
74
75
76
11
LABEL
....
OPERANDS
REAOOG SBR
Mew
18
S
S
S
ORIGXT+3
BlANKl t IMAGE+21
IMAGE+20
s
lZ SJ
SBR
lGTCK+6,INPUT4+12
RT
ORIGTP,lNPUT4
B
85
BER
CHKlGT
TPERR
XR2+1
XXXX
S
ORIGXT B
..
... CHECK
eHKLGT SBR
XR2
lGTXT+3
'B',XR2
4000-12+X2 t XXXX,
BeE
CHAIN 12
BeE
SBR
MZ
lGTCK
BeE
BCE
BeE
BeE
BeE
BCE
INSTRUCTION TyPE
4
3209
3213
H 858
M 030 H51
3220
S H50
S
7
4
1
1
CARD
4
4
4
7
8
3259
3263
3267
3274
1
1
1
1
1
1
1
1
1
3282
3283
3284
3285
3286
3281
3288
3289
3290
8
B
B
B
GEN
B
GEN
B
8
8
B
GEN
GEN
rCM
7
8
4
5
4
S
S
H 880 H43
M (U4 H31 R
B 859
8 334 l
S 095
B 000
H 094
y 012 094
B IQ8 000
MACRO
~'7.L
.,"')n'l
Q
U
BeE
1
XXXX
HOLDA
Dew
+0000
1
4
4-
3292
3293
3294
3301
3300
3304
3309
3310
3362
3366
3367
3368
3369
3370
3371
3298
3372
3375
B
B
lGTXT
BeE
B
96
91
98
99
00
01
02
03
04
05
06
CJ7
CONDSW Dew
Dew
JOB
09
10
11
SAveON fOU
GMSAVE DC
WMLOC DSA
BlKCT EQU
KBlKNG Dew
OSJeOR DCW
ERRCNT DCW
TAPOP
LSlGf-i
~!rrtT
Dew
Dew
Dew
LLW
rr,:
HOLDA-1
'080'
3999'
•
'0'
=52
'0000'
• •
•
•
•
•
HOLDA-3
• •
3
5
1
52
4
•
•
,
1
1
1
1
1
WMSTR-21
3
t
198
198
198
198
H B91
J.
SSAVE
196
196
196
197
191
197
197
191
197
197
198
198
3224
3225
3226
3227
3234
3242
3246
3251
3255
1
BCE
ce
LOCN
FOR SHORT RECORDS
BeE
BeE
12
12
12
12
13
13
13
13
13
13
13
13
13
13
13
13
CT
1
82
83
84
86
87
88
89
90
91
92
93
94
95
SFX
27
READ ORIGINAL TAPE
12 80
12
12
12
12
12
12
12
12
12
12
12
12
12
12
OP
PAGE
3114l
-VERSION 3
1
B 000
GEN
GEN
GEN
GEN
GEN
198
199
199
199
199
199
199
199
200
')1\1\
UL.UI
4.V\J
GEN
200
200
GEN
200
200
200
201
201
203
203
203
203
203
201t
204
204-
e90
204
1401 AUTOCODER-PASS 7 RIGHT MAIN LINE
seQ
1352
1353
1354
1355
1356
PG LIN
13
13
13
13
13
12
13
14
15
16
LABEL
AWMSTR DSA
PNHLOC Dew
NUMBER DCW
WMSTR Dew
lTORG
Dew
531
532
543
545
553
OP
LoeN
INSTRUCTION TYPE
WMSTR-21
3
3
C90
3
27
3318
3381
3384
3411
1
3412
LIT
205
9
7
1
LIT
LIT
LIT
205
206
206
206
206
206
206
206
207
207
4
3421
3428
3429
3433
3434
3440
3444
3451
3454
3455
3456
3457
3458
3459
3463
3468
3416
3481
3486
3481
3490
3492
3544
3545
3549
"')
'2C:C:1
• T T
,?In
........
3554
3555
3560
3513
3518
3583
3586
3591
3594
3591
3606
3611
3613
3611
3653
3686
3687
3692
LIT
LIT
LIT
LIT
AREA
AREA
LIT
lIT
LIT
LIT
LIT
LIT
AREA
LIT
LIT
LIT
210
211
211
211
211
211
211
'000'
'001 1
'001001040040040040040040040'
'BI
08C'
080'
, 1'
=04
.:01
I'
630
WMSW
711
712
TYPESW
TYPEA
+1
=01
+5
=01
=01
1
1
1
1
aes'
'G'
'LIT'
HOLODT
'00'
=52
'='
'AREA'
901
904
918
919
964
916
987
1021
1022
1039
8
5
5
1
3
2
52
1
tGEN'
3
.:05
=05
,
1
5
13
5
5
opt
3
'FIELD'
5
'58Ft
IDA I
3
3
t
NO B X L'
0081'
=02
I
LINCT
1
4
5
,
'LABEL'
'BAD STATEMENT'
934
3
;10'
'X'
kMADOR
LOAOAD
4
7
•I
830
4
1
6
'NOOOOOO'
'JOS'
'MACRO'
'OVERCALl'
'AOCON'
'RMARK'
149
153
791
805
'PAGE'
'SFX CT LOeN INSTRUCTION TYPE CARD'
OPERANDS'
'SEQ PG LIN LABEL OP
'0'
•
CARD
204
204
204
205
3412
it
'ERRORS'
571
28
SFX CT
"
ADORSW
PAGE
3174L
OPERANDS
'I
BLANK4
-VERSION 3
ADOR'
9
5
2
4
36
33
1
5
JJJA.
AREA
AREA
LIT
LIT
LIT
LIT
liT
AREA
LIT
AREA
AREA
LIT
LIT
LIT
LIT
LIT
207
207
201
207
201
208
208
208
208
LIT
208
LIT
lIT
AREA
LIT
LIT
208
208
210
...
~,
LIT
LIT
210
210
211
212
212
212
212
212
212
213
214
214
214
1401 AUTOCODER-PASS 1 RIGHT MAIN LINE
SeQ PG LIN
LABEL
OP
SFX CT
OPERANDS
1098
SFXCTR
'MACRO ERROR'
, UNDEF ORG'
I
SYM'
=01
1118
ROOMer
'39'
=03
1122
1126
1126
1139
1145
NEWSW
eOUNTR
SEQCT
OATASW
CNVAOO
1052
1068
1151
1163
11
10
4
=05
1
2
3
3
1
5
5
=01
=05
1
5
'039'
=01
=05
+3
1
+WMSTR-3
-=01
3
..
Des"
)
+6
+96
,
,
1214
flO
1219
1226
1232
'001001040040040040040040040'
=02
t
'000'
1233
1357 13 11
1358 13 18
1359 13 19
1360 13 20
1361 13 21
HOLDeT
BIGSW
SAVEWM
ENDE2
Dew
END
1
t
1
1
1
2
32
3
21
2
=05
1
5
tAl
1
'+'
+80
1
2
=01
BLANKI EQU
HOLDH EQU
EX
3774L
-VERSION 3
• •
BlANK4-3
HOLDor-52
LIBRN
LIBRN
1
loeN
PAGE
INSTRUCTION TYPE
3703
3713
311l3718
3720
3723
3726
3721
3732
3737
3738
3143
3744
3747 008
3748
3149
3750
3752
3784
3787
3814
3816
3817
3822
3823
3824
3826
3827
3430
3492
8 000
I
nol'\
000 vov
,
LIT
LIT
LIT
AREA
LIT
AREA
LIT
AREA
AREA
AREA
AREA
AREA
LIT
ADCON
AREA
LIT
LIT
LIT
LIT
LIT
LIT
AREA
AREA
AREA
LIT
LIT
LIT
29
CARD
215
215
iTS215
215
215
215
216
216
216
216
216
216
216
211
211
217
217
217
21B
218
218
218
218
218
219
219
219
220
..,..,.,
;;.;;.;)
CLEAR STORAGE 1
CLEAR STORAGE 2
BOOTSTRAP
,008015,019026,030,034041,045,053,0570571026
L068112,102106,113/101099/I99,021A070028)021BOOI0270BO 261.001/001113IO
,008015,022029,036040,041054.061068,012/061039
,0010011040
1401 AUTOCOCER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
SEQ PG LIN
LABEL
OP
OPERANDS
101
102
000
JOB
CTL
630 1
103
104
105
106
107
108
109
110
III
112
113
114
115
116
111
118
119
120
121
122
123
124
125
126
1 01
1 02
1 03
1 04
1
1
1
1
1
1
1
05
06
07
08
09
10
11
1 12
1 13
1 14
1 15
1 16
1 11
1 18
1 19
1 20
1 21
1 22
1 23
*
fQU
EQU
EQU
EQU
EQU
EQU
xxxx EQU
COUNT EQU
LABADO EQU
SUPADD EQU
A(P
EQU
EQU
BOP
EQU
DHOO
EQU
TYPE
PRINT EQU
LIBRN EQU
INITAP
INTAPE
OUTAPE
PUNCH
OUTPUT
IMAGE
ORG
XRl
1 24
XR2
hl\j
128
129
1
1 28
1 29
130
1 30
131
132
1 31
133
134
135
136
137
138
139
140
141
142
11t3
144
145
146
147
.......
~,
1 32
1 33
1 34
1 35
1 36
1 37
1 38
1 39
1 40
1 41
1 42
1 43
1 44
1 45
1 46
1 47
2
3
3182l
SFX CT
LoeN
PAGE
INSTRUCTION TYPE
1
CARD
1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
** EQUATES USED BY PROGRAM
1 25
1 26
12;
1
u n ..,.
..
Dew
DC
Dew
DC
(UO
tuO
{U5
(U6
100
PUNCH+l
(U5
(U6
0100
0101
0000
0
0
0000
IMAGE+1
IMAGE+61
IMAGE+66
IMAGE+70
IMAGE+73
IMAGE+74
IMAGE+75
200
0001
0061
0066
0070
0073
0014
0075
0200
0000
0
87
000
0087
00
3
2
000
00
3
2
0089
4
0091
0094
4
4
0096
4
U\,W
"",..
VUU
.:J
VV77
nnnn
,..I..
DC
00
2
0101
4
4
0339
0340
0345
0352
",. I
l
"
* INITIALIZATION ROUTINE
*
ORG
ZONE
DeW
INITLZ RWO
C
8H
C
BL
RWD
RWD
ew
Mew
336
'2SKB'
OUTAPE
OUTOPN,'2'
END JOB
OUTOPN,'1'
ENDJOB
4
INTAPE
LTAPSW,PNH4SW
SSOP,TSTSS
0336
5
1
5
1
5
5
0357
0364
0369
7
1
0314
0319
0386
7
0393
8
0400
5
U (U6 R
C -00 P07
8 -55 U
C -00 poa
B -55 T
U (U4 R
U (US R
5
5
5
5
5
5
5
M -01 475
6
6
6
M PIt 058
M (U4 001 R
6
)
P25 P26
*
.. TEST FOR eTl CARD
..
REAC4
Mew
RT
'013',LGTCK+6
4,1
6
1401 AUTOCOtER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
SEQ PG LIN
INSTRUCTION TYPE
CHKlGT
TPERR
18,'JOB'
CKCTL
19 t IDENT=4
JOeSW=l
4
5
1
5
7
0408
B 037
B
I
7
PIa
7
READ4
4
la,'eTL'
OUTOPN t 23
4
TSTSS
'33',22
SENSW,F
LTAPOP,23,2
LTAPOP,23,3
LTAPOP,23,6
LTAPOP,23,1
LTAPSW=l
START
7
7
0412
Oitfl
0424
0429
0436
0440
0444
0451
C 018 P22
M -00 023
0458
U (U4 R
B 475 S
8
4
4
0463
0468
0415
0480
0488
0496
0504
0512
0516
1
7
1
B
8
8
TSTLSW
4
4
0520
0524
B
*
* TEST SENSE SWITCHES FOR OPTION
*SENSW LCA
•o.' ,23
ADD1,B
ass
7
5
0.528
0.535
0.540.
0.545
L P27 023
B 558 B
B 569 C
B 580 G
OPERANDS
1 48
B
1 49
1 50
1 51
1 52
1 53
1 54
1 55
1 56
1 57
1 58
1 59
1 60
I 61
1 62
1 63
1 64
1 65
1 66
1 67
1 68
1 69
1 70
1 71
1 72
1 73
1 74
BER
C
115
176
171
118
"I."'''
1 15
1 76
1 71
1 78
"I
..,1"':1.....
LI"':I
.1
180
181
182
183
1 80.
1 81
1 82
1 83
184
1 84
1 85
1 86
185
186
181
1
87
188
189
1 88
1 89
190
191
1 90.
1 91
1 92
192
193
194
195
196
197
1 93
1 94
1 95
1 96
1 97
2
LOCN
OP
148
111
112
173
114
PAGE
SFX CT
LABel
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
161
168
169
170
3782L
au
Mew
CW
B
(KeTL
e
Mew
TSTSS
TSTOP
RWO
BE
LeA
BSS
BeE
BeE
BeE
BeE
sw
B
** OPTION TO PUNCH NEW SOURCE DECK
*PNH40P sw
PNH4SW=1
8
TSTsse ass
TSTSSG ass
£'I"I""I,T
,.. I
~.
.,:)~I.JV'
\,W
ADOI
B
A
B
4
5
5
1
5
8
8
8
c
8
M
)
B
M33
ola
444
079
P19
393
L P24
B 528
B 591
B 591
B 591
B 591
, P25
B *17
,
6
1
-1-
022
8
F
8
8
023 2
023 3
023 6
023 1
9
9
9
9
9
9
10
10
10.
10
AD02,C
ADD4,G
5
6f'
V::J::;JV
VLJ
"''')~
'11'\
':J
4
0.554
8 480
10.
11
11
11
11
11
11
......
5
1-
TSTOP
'1',23
TSTSSe
n~~1'\
7
0.558
4
0565
A P2a 0.23
540.
A P.o.7 023
B
A
'2',23
7
0.569
TSTSSG
'4',23
SSOUT
4
0.516
0.580
0581
B 545
AOD4
B
A
B
I
* SET UP CLEAR STORAGE RECORD
*
PUNeH+80
LTAPOP CS
SW
LeA
LeA
LeA
LCA
LeA
LeA
p14
P26
*49
AD02
..
l
CARD
7
4
t
4
'B007'
' ) 02 I'
'Bo.41L'
4
4
0.591
0.595
0599
0.60.6
0.613
0617
0.621
4
0.625
GRPMRK
GRP~RK,PUNCH+99
IDENT,PUNCH-t19
4
4
1
1
A P29 0.23
B 550.
10
J.V
L
L
L
L
lac
P06
Po.6 199
PIa 179
P31
P35
12
12
l
P39
12
L P44
12
t
11
12
12
12
SEQ PG LIN
198
199
200
201
202
203
204
205
206
207
20B
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
221
228
229
230
231
232
233
234
235
236
231
238
239
240
241
242
243
244
245
246
247
LABEL
1 98
1 99
2 00
2 01
2 02
2 03
2 04
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
*
*
*
OPERANDS
LCA
LCA
LeA
'ltUIOOIR'
C
BE
BH
C
08
09
BL
10
11
12
13
14
15
16
11
18
19
20
21
22
23
24
25
26
27
28
29
30
LeA
LeA
LeA
LCA
LeA
LeA
LCA
LeA
LeA
BCE
BCE
Ml
B
IS12K
ft1Z
1541<
B
LeA
LCA
LeA
LeA
LeA
LeA
LeA
LeA
LeA
34
LeA
SW
35
BCE
2 33
Mew
36
37
BeE
2 38
2 39
Mew
BCE
MCW
2
2
2
2
2
40
41
42
43
44
2 45
2 46
2 47
t • '
BSPTUI
3
SFX CT
LOCN
INSTRUCTION TYPE
4
0629
l P52
13
4
4
0633
L P53
L 093
13
13
C 022 P54
13
B 141 S
8 141 U
13
13
13
14
14
14
14
14
14
14
15
15
15
15
15
15
0631
CARD
TEST OBJECT CORE SIZE
05
06
01
2 31
2 32
2
2
2
2
OP
PAGE
3782L
1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
22 J 13'
IS4K
IS4K
22.'6'
IS4K
'IO+t,PUNCH+44
'099'
'B053'
'M074099'
' ) 099'
'BOOI/'
'C004041'
'=044004'
'/191'
BTSTRP,22,6
IS121<,22,5
lONE-2,PUNCH+4
BTSTRP
lONE-1,PUNCH+4
BTSTRP
'IO',PUNCH+15
'B053',PUNCH+46
'H080099'
')099'
'SOOl'
.n"''''''''~ft'''''''''''A.
-DV.,£VV£V·
• ) 002'
'A015003'
',ooz'
'/199'
PUNCH+80
BTSTRP,22,3
'Z',PUNCH+2
BTSTRP,22,2
'T',PUNCH+2
BTSTRP,22,1
'I',PUNCH+2
1
5
5
7
5
1
4
4
4
4
4
4
4
4
8
8
1
4
1
It
1
0641
0648
0653
0658
0665
0610
0677
0681
0685
0689
0693
0697
0101
0105
0709
0711
0725
0132
0136
0743
C 022 P55
B 747 T
L P58 144
l
L P12
L P16
L PSI
L P8S
l P95
L P99
8 842
B 736
y 331
8 842
y 338
0761
0165
0769
l
l
"'t
~-
v
t
4
0177
0181
0785
0189
4
4
4
4
8
7
n ., .., ")
I ,:I
0193
104
15
104
Q01 115
L P65 146
l
4
4
022 6
022 5
B 842
0741
0154
7
4
P6l
L P65
Qoa
P76
L 012
n~'"
'-
1QlLV
L
L
L
L
Q35
Q39
,
Q24
Q31
180
0197
0805
0812
0820
0827
0835
B 842 022 3
4
0842
0846
B -30
) 199
1
0850
l
7
0851
8
7
8
1
M Q40 102
B 842 022 2
M Q41 102
B 842 022 1
M Q42 102
16
16
16
16
16
16
16
....,
.s.
t
17
17
17
17
17
11
18
18
18
18
18
*it SET UP BOOTSTRAP RECORD
it
BT5TRP B
CW
LCA
LCA
WRITEI
PUNCH+99
GRPMRK,PUNCH+80
, ',PUNCH+24
4
P06 180
L Q43 124
19
19
19
19
SEQ PG LIN
248
2 48
249
2 49
250
251
2 50
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
2 51
2 52
2 53
2 54
2 55
2 56
2 57
2 58
2 59
2 60
2 61
2
2
2
2
2
62
63
64
65
66
268
2 68
217
218
2 69
2 10
2 11
2 12
2 73
2 74
2 75
2 76
2 17
2 18
2i9
2
280
2 80
2 81
2 82
275
216
281
282
283
284
285
286
287
288
289
290
291
292
2 85
2 86
2
2
2
2
87
88
89
90
2 91
293
2 92
2 93
294
295
296
297
2 94
2 95
2 96
2 97
OPERANDS
LeA
LeA
LeA
LeA
LeA
1.020'
es
LCA
LeA
LeA
LeA
LeA
LCA
LeA
LeA
BER1
RDREC
•••
BSPTU1
WRITEl
PUNCH+15
, " PUNCH+35
'B001'
tNOOO'
IL
BERl
ROREe
,
BSPTUI
BE
BH
C
BL
MN
A
MN
HZ
LeA
cw
Mew
.
BCE
Po
*
* seT
*
START
START
START
21,'6'
START
21,SAvelN=1
+3,SAVElN
SAVElN,*+4
IONE,*+1
GRPMRK,GRPMRK
GRPMRK
'400',KBLKNG
START,21,4
•
I
"n.
u
n
I
t.t "-. , .
- ..-VV - ,"OL"I"'l,-,
4
SFX CT
LOCN
INSTRUCTION TYpE
4
4
It
4
It
4
4
7
It
4
4
4
0864
0868
0872
l Q41
l 080
L 088
0816
L P53
1920
0911
l
4
0915
0919
0923
l
21
4
4
t. f
*
* TEST PROCESSOR CORE SIZE
*
e
21,'3'
......
1"'1
2 83
2 84
OP
B
2 61
269
270
211
212
213
214
LABBl
PAGE
3782l
1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
7
5
5
7
5
7
7
7
7
7
4
1
8
..,,
CARD
19
19
0880
L 093
20
0884
0888
B -30
0892
L Q43 135
20
20
20
0899
0903
0907
0927
0934
0939
0944
0951
0956
0963
0970
0971
0984
0991
0995
1002
,,,,1\
/
175
L P35
l:. Q51
2cf
L Q58
20
21
080
21
L 088
L P53
21
21
093
C 021 P54
B *11 S
B *11 U
C 021
B *17
0 021
A Q60
0 059
P55
T
22
Q59
Q59
22
22
22
23
23
23
980
y 339 990
L P06 P06
) P06
M Q63 POI
8 t17 021 4
A
21
21
22
22
nn ..
r \10£
23
23
..".
.LV.LV
'" Q63
8
1017
1025
1033
1041
8 520 023 4
B 520 023 5
B 520 023 6
B 520 023 7
24
8
1049
1
4
1057
1064
1068
1076
1084
1091
1098
1105
1112
1116
V.
M
P25 1
P04
25
25
P19 1
25
+28 R
25
26
4"
PARAMETERS
BCE
BCE
BCE
BeE
TSTLSW BW
Mew
es
BW
RT
SETINP SW
SW
SW
SW
SW
B
PNJi40P,23.4
PNH40P,23,5
PNH40P,23,6
PNH40P,23,1
EOJ08,LTAPSW
KBLKNG,BlKCT
80
SETINP,JOSSv.
INTAPE,INPUT
IMAGE+23,IMAGE+51
IMAGE+62 t IMAGE+67
IMAGE+68 t IMAGE+11
IMAGE+74,IMAGE+6
IMAGE+l
GET
8
8
8
8
8
1
7
1
7
4
4
XBl
POI
I 080
V *84
M (U5
,
,
,
,
24
24
24
25
023 057
062 061
068 011
014 006
26
26
001
26
26
B -16
26
t
SEQ PG LIN
298
299
300
2 98
301
3
3
3
3
3
3
3
3
3
302
303
304
305
306
307
308
309
2 99
3 00
01
LABEL
•
•
•
OP
ANAlYl BCE
BM
03
BCE
04
BCE
05
MN
06
07
A
A
08
B
09
B
B
B
B
EXEND
B
BYPASS
BYPASS
BYPASS
BYPASS
XTRA
BYPASS
IMAGE+20.PUNCH+79
BYPASS
314
3 14
B
315
316
3 15
B
3 16
B
311
3 11
B
318
319
320
321
322
3 18
3 19
3 20
3 21
3 22
3 23
3 21t
3 25
3 26
3 21
.3 28
323
321t
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
BYPASS, TYPE,'
BVPASS,IMAGE+5
INSTR,TYPE,
DOJOB.TYPE,I
TYPE,XR2
02
313
311
312
3 29
3 30
3 31
3 32
3 33
3 34
3 35
3 36
3 37
3 38
3 39
3 40
3 41
3 42
3 43
3 44
3 45
3 46
3 47
SFX CT
loeN
INSTRUCTION TYPE
8
1120
1128
1136
1144
1152
1159
1163
1161
1171
1175
1179
1183
1187
B J59 015
5
CARD
ANALYZE RECORD TYPE
3 10
3 11
3 12
3 13
310
OPERANDS
PAGE
3782L
1401 AUTOCOCER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
B
DOJCB
Mew
B
XR2
8
8
8
7
4
4
XR2
*+1+X2
4
DA
4
CaNST
OSA
4
4
4
4
4
4
4
4
4
7
4
{
J59 005 K
8 522 075
B 511 015 1
0 075 094
V
21
21
094
27
28
28
IPI
28
V85
28
A 094
A
B
B
8
B
21
21
565
28
V59
28
28
29
B W82
B J59
1191
B J59
29
1195
1199
1203
1207
1211
1218
B J59
8 J59
29
B J59
30
1222
1229
M 074 142
M
M
30
30
M
M 061
30
30
29
29
B V34
8 J59
M 020 119
29
29
it
* PROCESS INSTRUCTION
*
DMOO,PUNCt4+42
INSTR MCW
Mew
MCW
Mew
MCW
A
S
INSTXT B
B
8
1
1
1
LABAOO,CN\lADO
COUNT,CNVAOC
'1',CNVADC
SETlOC
WRITE2
BYPASS
1
1
'"7
f
1
4
4
4
1230
1231
1232
1239
1246
1253
1257
1261
....
nn·...
VVf
30
+01
'2n
...L1\1
-'-V.L
JV
S P28 +01
31
31
'"
B J67
B K64
31
B J59
31
A Q65 001
C 001 Q65
8 588 T
B J59
31
31
31
32
32
32
32
*
* PROCESS CONSTANTS
•
CONST
A
C
Bl
B
BCE
aWl
MCW
BeE
8
ALPHA
Mew
A
'OO',COUNT
COUNT,'OO'
*+5
BYPASS
PCHCON,IMAGE+23,=
PCHeON,IMAGE+4 t B
IMAGE+53,HOLODT-22
ALPHA.IMAGE+23,·
PCHCON
+HOLDOT-51.XRl
COUNT,XRl
7
1
5
4
8
8
7
8
4
1
7
1265
1272
1279
1284
1288
1296
1304
1311
1319
1323
1330
B T44 023 =
V T44 OOlt B
M 053 R26
B
T23 023
8 144
M Q68 089
A 007 089
•
32
32
33
33
SEQ PG LIN
348
349
350
351
352
~?3
354
3,5.
356
351
358
3 48
3 49
3 50
3 51
3 52
3 53
LABEL
OP
OPERANDS
Mew
BLANKl=l,XXXX+Xl
HOLDDT-20,PUNCH+66
LABADD,eNVACO
eOUNT,'32'
LARGE
PROOC,TVPE,A
INS TXT
PCHeON Mew
MCW
C
Bl
BeE
3 54
3 55
...
3 56
3 57
3 58
...
B
LARGE
S
361
Mew
Mew
362
3 62
B
363
364
3 63
3 64
3 65
3 66
3 67
3 68
3 69
BCE
Mew
MCW
365
366
367
368
369
3 10
3 71
3 72
3 73
374 3 74
3153 75
376 3 76
317 3 77
378 3 78
............
3 19
~I~
310
371
312
313
S
LRGXT
B
...
Mew
'32',COUNT
COUNT,CNVAOD
COUNT,HOlDCT=2
'32'"eOUNT
SETloe
LRGOe,TYPE,A
HOLDeT,COUNT
HOLODT,TEMP=20
WRITE2
TEMP,PUNCH+54
PRODC
Mew
S
A
B
Mew
Mew
Mew
B
lABADD.CNVAOO
COUNT,CNVADD
'1',CNYADO
CNVRT
CNVWK,PUNCH+30
t ) t
LABADO,CNVAOD
INSTXT
3 80
• DC GREATER THAN 32 CHARACTERS
382
3 82
*LRGOC
383
3 83
s
384
385
3 84
S
B
3 85
3 86
Mew
Mew
3 88
3 89
B
392
3 92
393
394
395
396
3 93
3 94
391
Mew
3 87
3 90
3 91
INSTRUCTION TYPE
7
7
1331
1344
M Q690tO
-1'1
5
8
4
CARD
33
M R28 166
'-r3'sl . M061 +01-'
1358 C 007 Q71
1365 B T82 T
1310 B U47 015 A
1318 B S53··
33
..... "-3":3"
34
34
34
34
7
7
7
7
4
8
7
7
4
7
1382
1389
1396
1403
1410
14141422
1429
S Q7l 001
34
34
S 001 +01
M 007Q13
35
35
35
35
35
36
M Q71 007
B J67
8 U94 075 A
M Q13 001
M R48 Q93
1436
B K64
1440
M Q93 154
7
7
7
4
7
4
7
4
1447
1454
1461
1468
1472
1419
1483
1490
M 061 +01
S 001 +01
A P28 +01
B Kil
1
7
7
1494
150.1
1508
1515
1519
1526
1530
36
36
... PROCESS DC
3 81
386
LoeN
...
380
381
381
388
389
390
391
SFX CT
6
... CONSTANT GREATER THAN 32 CHARACTERS
3 59
3 60
3 61
359
360
PAGE
3182L
1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
LABAOD,CNVACO
HOLDCT.CNVAOO
'31',CNVACD
CNVRT
CNVWK,PUNCH+30
..
)
lRGXT
4
1
4
4
36
36
36
37
37
M +04 130
M Q94
37
31
31
M 061 +01
8 S53
M 061 +01
31
S Q73 -+01
38
S Q96 +01
B K1l
38
38
38
M +04 130
M Q94
38
38
B U22
...* EXTRA CARD FOR CONSTANT OVER 32 CHARACTERS
...
XTRA
BYPASS,IMAGE+21,
BCE
IMAGE+13,HOlDDT=52
MCW
CHAIN 6
Mew
Mew
Mew
8
1534
B J59 021
7
1542
M 073 R48
1
1
1
1549
M
M
M
39
39
MACRO
1550
1551
GEN
GEN
39
39
GEN
39
1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
SEQ PG LIN
LABEL
400
3 95
402
403
3 96
i
ft,
Cot V 0
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
loeN
1
1
1
1552
M
1553
M
1554
M
BYPASS
4
1555
B
BOP,PUNCH+31
PRODC,TYPE,B
LABAOD,CNVAOD
INSTXT
7
1559
1566
1581
M 013 131
8 U41 075 8
M 061 -+01
8 553
40
8
7
4
8
8
1585
1593
B J59 0·15 8 W24 075 0
40
41
1
1601
1608
M 066 +01
8 W41
8 WOl 015
B 120
41
MCW
401
3 91
3 98
3 99
4
4
4
4
......
4 16
4 11
4 18
4
4
4
Mew
MCW
4 15
4
4
*
DSA
01
02
03
19
20
21
22
23
24
25
26
8
..
OA
....
..
BCE
BCE
..
..
..
BVPASS,TVPE,HEADER,TYPE,O
Mew
B
BCE
B
SUPADO,CNVADD
DARTN
FIElO,TVPE,.:t
ANAlVI
4
8
1620
Mew
B
BCE
8
LABAOD,CNVACO
DARTN
HEADER,TVPE,*
ANALVl
7
4
1631
*
* OA SUBROUTINE
*DARTN SBR OAXI+3
B
.
Mew
CNVRT
CNVWK,PUNCH+26
.- . CN-'lw'k'
1635
4
4
1641
1651
1655
7
4
MCW
I , I
4
4 30
4 31
B
B
B
WRITE2
GET
4
·-·----~rc~f"·
OAXT
..*
XXXX
1624
8
4
4 29
446
40
40
40
41
*
41
41
HEADER, HEADER REPEAT
HEADER
•
1612
4
435
436
437
438
439
440
441
442
443
444
445
447
1574
FIELD, FIELD REPEAT
FIELD
4 21
4 38
4 39
4 40
4 41
J59
39
39
40
40
.. PROCESS DEFINE AREA
4" "iff
4 35
4 36
4 31
GEN
GEN
GEN
CARD
*'
434
4 32
4 33
4 34
INSTRUCTION TYPE
.. PROCESS DSA
BCE
4 14
4
4
..
vu
4 04
4 05
4 06
4 01
4 08
4 09
4 10
4 11
4 12
4 13
4
B
7
SFX CT
OPERANDS
Mew
Mew
398
399
404
405
OP
PAGE
3782L
4
4
1643
1662
1666
1610
1674
1618
M
B
8
8
061 +01
W47
W24 075
120
.
41
42
42
42
H WBi
42
8 Kll
M +04 126
M +04
M R49
42
42
42
8 K64
8 -16
B 000
43
43
43
43
PROCESS EX, END
EXEND
BCE
MeW
Mew
MCW
B
LeA
ENO,TYPE,3
AOP,PUNCH+30
'B'
'NOOOOOO'
WRITE2
• ',PUNCH+24
8
1682
7
1690
1697
4
4
4
1101
1105
7
1109
8
M
M
M
X58 075 3
43
010 130
43
43
44
44
R50
R51
B K64
L Q43 124
44
1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
OP
OPERANDS
42
43
LeA
44
45
46
41
48
49
50
51
52
BeE
'S007'
GET
ISJOB,TVPE,I
WRITEl
',PUNCH+26
'L
ANAlYZ
IMAGE+20,PUNCH+79
COMPAT
SEQ PG LIN
448
449
450
451
452
_453
454
_ ~_5~
456
457
458
459
460
461
462
463
464
465
466
461
468
469
410
411
412
473
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
53
54
55
56
51
58
59
60
61
62
63
64
65
66
4 67
474
4 68
475
416
477
478
4 70
4 71
4 12
LABEL
B
CO"PAT B
LCA
B
ISJOB
..
MCW
B
Mew
Mew
B
EOJOB
.
....
WTM
BW
B
PUNCH4 e5
ENOJOB
Mew
Mew
BlANK4-1tPU~eH+15
RT
B
BER
BCE
BCE
BCE
BeE
BCE
BUMP
A
4 74
481
482
It 15
4 16
BeE
Mew
C
483
4 17
4 78
494
495
496
497
080',PUNCH+26
'I
AOP"PUNeH+23
WRITE2
OUTAPE
PUNeH4,PNH4SW
PUNCH+80
'113',lGTCK+6
4,PUNCH+l
CHKlGT
TPERR
DOlTO,PUNCH+75,l
PUNCH4,PUNCH+75.S
PUNCH4,PUNCH+15,C
PUNeH4,PUNCH+75,l
PUNCH4,PUNCH+75,Y
+1,SEQCT-1
SEQCT,PUNCH+5
oopeH,PUNCH+6,·
BlANK4=4,PUNCH+15
PUNCH+1B,'JCB'
DOPCH
BlANK4,PUNCH+ll
BlANK4-2
Mew
Mew
493
INSTRUCTION TYPE
4
1716
1720
1724
1732
1136
1743
1747
1154
L P35
B -76
1158
1165
1712
1776
1781
1189
M
M
B
U
4
8
4
7
4
1
4
CARD
44
44
8 l41 015 I
-44
44
B -30
L R64 126
B 120
M 020 119
B X32
45
45
45
45
1
1
4
5
8
It
tU6 M
V X93 P26 1
45
45
46
46
46
B -55
46
1193
I 180
1797
1804
1812
1816
1821
1829
1837
1845
1853
1861
M R14 058
M (U4 101
8 037
B M33 L
8 l54 175
8 X93 115
B X93 115
B X93 115
B X93 175
A R75 097
nAn
u
n U"70 105
B Z13 106
M R79 115
C 118 P14
B ll3 I
MR19 111
46
46
R71 126
010 123
1<64
PUNCH NEW SOURCE DECK
4 73
4 82
4 83
4 84
4 85
4 86
4 87
4 88
4 89
4 90
4 91
LoeN
it
END
4 69
4 79
4 80
4 81
SFX CT
8
.. END
479
480
484
485
486
487
488
489
490
491
492
PAGE
3782L
8U
Mew
DOPCH
P
55
C
au
BCE
CS
P
55
B
DOLTO
Mew
B
4
PUNCH+18,'ENO'
PUNCH4
PUNeH4,PUNC~+6,
..
PUNCH+80
8
ENDJOB
'LTORG',PUNCH+20
BUMP
4
1
8
4
5
8
8
8
8
8
7
--
, nl n
f
~OOO
8
1875
1883
1890
7
7
5
1
4
7
1
2
7
5
8
4
1
2
4
7
4
1891
1902
1909
1913
1920
1921
1923
1930
1935
1943
1947
1948
1950
1954
1961
R
41
L
S
47
47
47
41
C
48
Z
48
y
48
48
I
...
M R77
M R78 175
4
K 4
C 118 R82
B X93 I
B X93 106
I 180
4
K 8
B -55
M
Ra7 120
B V61
~
'"'to
49
49
49
49
49
49
50
50
50
..
50
50
50
50
51
51
51
51
51
1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3
SEQ PG LIN
498
499
500
4 92
4 93
4 94
LABEL
OP
OPERANDS
ENDF1
Dew
Dew
•
• ,
XFR
t
lIBRN
3782L
SFX
CT
lOCN
1
1
1965
1966
PAGE
INSTRUCTION TYPE
B 000
9
CARD
51
51
52
1401 AUTOCODER-PASS a-LOAD TAPE-LEFT MAIN -VERSION 3
OP
OPERANDS
4 95
JOB
4 96
4 97
ORG
1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3
2000
SEQ PG LIN
501
502
503
504
505
506
501
5J>'8
509
510
511
512
513
514
515
516
4 98
99
00
02
cw
5
5
5
5
03
B
01
04
...
05
06
5 01
...
5 08
5 09
5 10
5 11
518
519
520
521
522
523
5 12
5 13
524
5 18
525
526
5 19
521
528
529
530
5 21
5 22
532
533
534
535
536
537
538
539
14
5 15
5 16
5 11
5
5 20
5 23
5 24
5 25
5 26
5 27
5 28
5 29
5 30
5 31
5 32
5 33
540
541
542
543
544
545
549
550
• •
eT loeN
PAGE
INSTRUCTION TYPE
10
CARD
2000
1
1
8
XXXX
TPERR
ENDF1,ENDF2
INITlZ
4
5
7
4
2000
2001
55
55
2002
L (Ul 001 R
55
2010
2014
2019
N 000
B ,.,33 l
55
55
55
2026
) Z66 198
B 340
2030
2034
H -54
l (U6 101 W
56
2042
2046
2051
N 000
56
8 M33 L
56
8 000
56
2055
2063
L (UI 333 R
N 000
B M33 L
56
56
55
.. WRITE CLEAR STORAGE AND BOOTSTRAP
WRITEl SBR
WTW
Nap
BER
WTIXT B
..
WTIxr+3
OUTAPE,OUTPUT
XXXX
TPERR
XXXX
4
8
4
5
4
56
.. GO BACK TO PASS E FOR EXTRA CUTPUT
•
END JOB RTW
NOP
BER
B
•
• RETRIEVE
•
GET
SBR
C
BU
S
Mew
RT
B
BER
NXTREC A
MeW
Mew
1,333
XXXX
TPERR
MESSAG
GETXT+3
BLKCT,KBLKNG
NXTREC
HOLDA
+INPUi+13,lGTCK+6
INTAPE,INPUT
CHKLGT
TPERR
+80.8lKCT
BLKCT,XR3
INPUT-l+X3tIMAGE+80
CHAIN a
MCW
MCW
Mew
Mew
S
S
S
8
4
5
4
2067
2012
4
2016
7
5
4
2080
2087
2092
H J58
C P04 POI
8 J20 I
S P05
•
2096
1'1
57
57
B 333
INPUT RECORD
MCW
Mew
Mew
5 34
5 35
5 36
SFX
'St
1,1
Mew
546
541
548
OUTOPN DCW
SSGP
Dew
RTW
NOP
BER
4
5
5
5
517
531
LABEL
3781L
XR3+1
'7
8
4
5
7
1
7
1
1
1
1
2103
2111
2115
2120
2121
2134
1
1
2141
2142
2143
2144
2145
2146
1
2147
1
2148
2149
2153
2154
4
1
1
u
on"
1"\7V
M (U5
51
51
57
57
C:...,
Octo
JO
Jf
+28 R
58
58
B 031
B M33 l
58
A R92 PQ4
58
58
58
P04 099
M +67 080
M
M
M
M
M
M
M
M
M
S 100
S
S
MACRO
GEN
GEN
GEN
GEN
GEN
GEN
GEN
GEN
58
59
59
59
59
59
59
59
60
60
60
1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3
SEQ PG LIN
LABEL
OP
OPERANDS
551
552
5 37
5 38
GETXT
B
XXXX
553
554
555
556
557
5 39
558
559
560
561
562
563
564
565
566
561
568
569
570
511
572
573
514
575
516
517
518
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
it
5 41
5 42
5 43
5 44
5 45
BYPASS B
B
..*
SETlOe SBR
B
MCW
ZA
A
B
MCW
LOCXT
....
5 57
CNVRT
5 61
5 62
5 63
5 64
5 65
5 66
5 67
5 6S
5 69
5 70
5 71
•
B
SBR
BAV
AOOAGN A
BAV
MZ
MN
MZ
CNVXT
....
MCW
B
4
2155
B 000
4
2159
2163
B -16
60
8 120
60
KI0
Kl1
M +04 126
+ R94 +01
60
61
A 001 +01
61
61
61
62
60
GET
ANALYZ
4
LOeXT+3
CNVRT
CNVWK,PUNCHi-26
+34,CNVADO
COUNT,CNVADC
CNVRT
CNVWK,PUNCH+23
XXXX
4
4
1
1
1
4
1
4
2167
2111
2175
2182
2189
2196
2200
2201
H
B
B
Kll
M +04 123
B 000
61
61
CNVXT+3
*+1
+96,CNVADC-3
ADOAGN
CNVADO-4,CNVADD=5
CNVADD-3,*+4
ZONE,CNVACO-2
CNVAOD,CNVWK=3
XXXX
4
5
7
5
7
7
7
7
4
2211
2215
2220
2221
2232
2239
2246
2253
2260
H K63
62
B K20 I
A R96 R98
62
62
62
62
62
63
63
63
8 K20 Z
Y R91 +01
o
R98 K49
2264
2268
2276
H
L30
2284
N 000
B M33 l
Y 339 R99
M +01 +04
B 000
WRITE OUTPUT RECORDS
5 78
5 19
5 80
Mew
Mew
5 81
5 82
5 83
5 84
5 85
5 86
INSTRUCTION TYPE
it
5 17
5 14
5 15
5 16
LOCN
CONVERT 5 TO 3 DIGIT ACORESS
WRITE2 SeR
BeE
WTW
NOP
BER
NOP
CLEAR Mew
Mew
MCW
5 72
5 73
CARD
SFX CT
SET ADDRESSES IN OUTPUT
5 53
5 54
5 55
5 56
5 60
11
it
5 49
5 50
5 51
5 52
5 58
5 59
PAGE
** DO NEXT RECORD
5 40
5 46
5 41
5 48
3181L
Mew
WT2XT
DOGM
8
CS
LCA
LCA
Mew
LeA
WT2XT+3
OOGM,PUNCH+35,
OUTAPE,OUTPUT+19
XXXX
TPERR
4
8
8
4
5
BLANK1,PU~eH+75
1
7
4
PUNeH+75
BLANKl,HOLDCT
HOLDDT
'NOOO',PUNeh+30
7
Il
4
I
7
4
XXXX
299
PUNCH+80,28C
7
PUNCH+66,214
1
1
•
I
It
4
4
2288
2293
2294
2301
2305
2312
2316
2323
2327
2331
2335
2342
2343
2350
B l31 135
L
tU6 120 w
63
63
63
180 280
64
64
64
64
64
64
64
65
65
65
65
65
M 166 274
65
65
N
M Q69 115
M
175
M Q69 R48
M R48
M Q51
M +11
130
8 000
1 299
l
L
l
Q43
66
3781L
1401 AUTOCODER-PASS B-LOAD TAPE-LEFT MAIN -VERSION 3
SEQ
601
QQ2
603
604
605
6Qb_
601
_QJ:>-8
609
610
611
612
613
614
615
616
611
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
-'6,~6
637
638
639
640
641
642
643
644
645
646
641
648
649
650
PG LIN
LABEL
5 81
5
e8
5 89
5 90
5 91
5 92
5 96
5 91
6 01
6 02
6 03
6 04
6 05
6 06
6 01
6 08
6 09
6 10
6 11
6 12
6 13
6 14
6 15
6 16
6 11
6 18
6 19
6 20
6 21
6 22
6 23
6 24
6 25
6 26
6 27
6 28
6 29
6 30
6 31
6 32
6 33
6 34
6 35
6 36
cw
NOP
BER
NOP
.
INSTRUCTION TYPE
'B007'
• ) 043043'
PUNCH+26
',043'
225,235
+8,221
225
WTGM,PUNCH+21 t N
PUNCH+30,237
235
QUTAPE,220
XXXX
TPERR
'+
2354
4
4
4
7
1
4
2358
2362
2366
2370
2317
P35
+18
126
+22
225 235
A +23 221
) 225
B M03 127 N
M 130 231
) 235
L (U6 220 W
N 000
B M33 L
280
CLEAR
4
4
LCA
LCA
LCA
LCA
SW
A
WTW
5 98
5 99
6 00
LoeN
OPERANDS
BCE
MCW
WTGM
SFX (T
OP
cw
5 93
5 _94
5 95
cw
B
PAGE
8
7
4
8
4
5
1
2384
2388
2396
2403
2407
2415
2419
2424
2425
2429
L
l
l
l
,
N
12
CARD
66
66
66
66
66
66
67
67
6761
61
67
68
68
280
68
8 1<94
68
H 094
68
68
)
.. TAPE REDUNDANCY ROUTINE
.
TPERR
SBR
SBR
MZ
Mew
MN
MCW
SSP
BCE
MCW
TPINST RT
BER
REDXT B
SSP1
RDRERR MN
BSP2
asp
S
BWl
MN
TPHALT H
Mew
RT
BSS
H
B
WRTREO SKP
BCE
A
INST2 WT
BER
B
SUBCTR S
MN
XR2
REDXT+3
+9,XR2
4000-10+X2,TPINST+1
TPINST+3,BSP1+3
TPINST+7,lNST2+1
INITAP
WRTRED,TPINST+1,W
+9,READCT=1
INITAP,XXXX
RDRERR
4
4
1
1
7
1
5
8
7
8
5
2433
2437
2441
2448
2455
2462
2469
2474
2482
2489
2497
2502
H
NOS
y +24 094
68
M IRO M96
69
69
69
69
0 M92 "72
M M96 005
U (UO 8
8 N78 M96 W
M +24 +25
M (UO 000 R
B N06 l
XXXX
TPiNST+3,BSP2+3
...4
f
':1\10
""~AI
n
INITAP
+l,REAOCT
TPINST,READCT,B
5
7
2513
2518
2525
U IUO 8
S R75 +25
V Me9 +25 B
2533
D M92 N46
• 000 890
M M96 N61
M tuo 000 R
B M69 E
• 000 811
B N02
U (Ul E
B 015 +26 5
A R75 +21
M (UO 000 W
B M69 l
B N02
S +27
0 M92 032
TPINST+3~TPHAlT+6
XXXX,890
TPINST+l,it+8
INITAP,XXXX
BSPl,E
XXXX,811
REDXT
1
SUBCTR,WRTCTR-l,5
+1,WRTCTR=2
INITAP,XXXX
BSPl
REOXT
WRTCTR
TPINST+3,*+7
8
1
1
7
a
5
7
4
5
8
7
8
5
4
4
7
2540
2541
2554
2562
2567
2514
2578
2583
2591
2598
2606
2611
2615
2619
8 000
U
... n""
I~~"
69
10
'10
70
10
•• , L
I~LO
.... 1'\
IV
70
11
11
71
71
11
72
12
12
72
12
12
13
73
73
73
13
73
1401 AUTOCODER-PASS a-LOAD TAPE-lEFT MAIN -VERSION 3
SEQ
PG LIN
651
652
6 37
6 38
6 39
6 40
6 41
6 42
6 43
6 44
6 45
653
654
655
656
651
658
659
660
661
662
663
LABEL
...
679
680
681
682
OP
OPERANDS
SFX CT
LOCN
INSTRUCTION TYPE
H
XXXX,860
INST2
1
2626
4
2633
• 000 860
B N98
74
14
4
4
2637
2641
2645
2652
H 094
H 015
y +24 094
B lQ8 000
14
14
14
74
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2611
2672
2680
2688
2693
2698
2701
2705
2704
2706
B
B
CHKLGT SBR
SBR
LGTCK
LGTXT
BERl
RDREC
BSPTUI
SEQCT
KBlKNG
HOLDA
XR2
LGTXT+3
+9,XR2
HZ
4000-12+X2,XXXX,
BCE
CHAIN 12
BCE
1
8
BCE
BCE
BCE
1
1
BCE
1
BCE
BCE
BCE
BCE
BCE
BCE
1
1
1
1
1
SCE
B
Dew
DCW
Dew
DCW
Dew
Dew
t.
....
LIUf\\:J
tDENT
JOBSW
1
1
XXXX
'SOOll'
'l(U1020R'
'U(UlS'
'0100 '
080
+0000
..12'
, 7'
'013'
'JOS'
=04
=01
'CTl'
165
170
LTAPSW
PNH4SW
'33'
=01
=01
'0'
, 1'
'4'
191
198
1
1
BlKCT EQU
HOLDA-l
GRPMRK DC 1""'&,...,.,. • •
DCW
152
153
CARD
... CHECK FOR SHORT RECORD
6 46
6 41
6 48
6 49
6 50
6 51
6 52
6 53
6 54
6 55
6 56
13
...
664
665
666
667
668
669
610
671
672
613
614
675
676
611
618
PAGE
3781L
4
5
8
5
5
3
4
1
MACRO
GEN
GEN
GEN
B
B
8
GEN
B
GEN
B
GEN
GEN
B
B
GEN
8
GEN
B
B
SEN
GEN
GEN
B
B
000
74
15
75
15
15
75
75
15
76
76
76
16
76
76
76
71
71
11
71
77
"'l''''-'
L'U'
1
1
3
3
2101
2108
2111
2714
LIT
LIT
LIT
LIT
17
77
17
78
4
2718
AREA
78
1
3
2
1
1
2719
2122
2724
2725
2726
AREA
LIT
18
18
18
1
1
1
2721
t
2
• B007'
, )021'
IB047l'
'l(UIOOIR'
4
4
5
8
2728
2129
2731
2735
2739
2744
2152
LIT
AREA
AREA
LIT
18
lIT
18
19
79
19
LIT
79
LIT
79
79
79
LIT
lIT
lIT
LIT
80
3781L
1401 AUTOCODER-PASS a-LOAD TAPE-lEFT MAIN -VERSION 3
SEQ PG LIN
LABEL
OP
SFX CT
LoeN
t. I
1
'3'
I
2753
2754
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
lIT
LIT
lIT
LIT
LIT
LIT
LIT
LIT
lIT
LIT
LIT
LIT
LIT
LIT
AREA
LIT
LIT
lIT
ACCON
AREA
LIT
AREA
AREA
LIT
OPERANDS
'6'
212
214
215
216
226
229
231
1
'M074099'
')099'
'SOOll'
4
'C004041'
7
'=044004'
1
2795
'/191'
'10'
'M080099'
'800 I'
4
2199
2
1
2801
2808
4
8
2812
2820
2824
2831
2835
2839
3
'099'
'8053'
4
3
1
, t 002'
'/199'
, ZI
4
1
'.020'
'NOOO'
'L
=01
+3
'400'
01
•• i n .
,
348
,
360
365
393
Z843
2
2841
2851
2858
2859
2860
2863
2865
1
~"'.I"\
~ooo
=01
1
'32'
2
2
2869
2871
2813
r'\f!"'\T
r!'cS
:;)
=02
=20
20
2"893
1
2
52
2894
2896
HOLCOT
'31'
=52
1
1
4
3
2949
2950
2957
2964
2911
2914
2915
2979
2982
5
2987
3
2990
,) ,
• t •
1
'NOOOOOO',
'L
7
1
080'
7
3
'B'
459
496
532
1
4
4
HOLDeT
TEMP
445
452
481
2841
2842
7
"
BLANK4
'113'
+1
=04
'END'
'LTORG'
+INPUT+13
CIt-
2840
1
1
1
1
3
TnULUlJl-::;JJ.
BLANKI
4
4
'00'
~
:;)CfO
5
'60320020'
, ) 002'
'A075003'
•
SAVEZN
7
INSTRUCTION TYPE
-Z-i5S---2758
2761
2165
2112
2716
2781
2188
'10+'
'T •
• I ',
258
271
PAGE
...........
\I':If
LIT
2948
+41
AREA
LIT
LIT
LIT
LIT
LIT
LIT
LIT
AREA
LIT
LIT
AOCON
14
CARD
sO
80
80
80
80
80
81
81
81
81
81
81
81
82
82
82
82
82
82
82
83
83
83
83
83
83
83
84
84
84
84
84
84
84
85
85
85
85
81
87
81
87
87
88
88
88
88
88
88
88
1401 AUTOCODER-PASS a-LOAD TAPE-lEFT MAIN -VERSION
SEQPG LIN
LABEL
OP
OPERANDS
+80
+34
+96
575
578
594
602
CNVAOO
CNVWK
=05
=03
'L
t
• ) 043043'
',043'
683
6
684
685
686
687
6
688
689
6
6
628
645
51
58
59
60
6 61
6 62
6 63
READer
WRTCTR
....
•
=01
=02
15
SFX CT
loeN
INSTRUCTION TYPE
CARD
2
2992
2994
2996
3001
LIT
LIT
LIT
AREA
AREA
LIT
LIT
89
89
89
89
2
2
5
3
7
7
4
1
+8
+9
PAGE
3181L
3
1
1
2
3004
3011
3018
3022
3023
3024
3025
3027
89
89
LIT
89
90
LIT
LIT
AREA
AREA
90
90
90
90
INPUT AREA
INPUT
ENDF2
3998
EQU
ecu
Dew
XFR
*+1
3028
3998
3998
I
•
LIBRN
1
3998
8 000
91
92
1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3
SEQ PG LIN
690 6 64
691 . 6 65
692 6 66
693 6 67
694 6 68
695 6 69
696 6 70
697 6 71
698 6 12
699 6 73
700 6 74
701 6 15
702 6 16
703 6 17
704 6 18
705 6 19
706 6 80
107
708
709
710
711
712
713
714
715
116
717
118
719
120
121
722
723
724
--725
726
721
728
129
730
131
132
133
734
735
736
737
138
739
6 81
6 82
6 83
6 84
6 85
6 86
6 87
6
6
6
6
6
6
88
89
90
91
92
93
LABEL
..
OP
OPERANDS
JOB
ORG
1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3
SFX
CT
.
MESSAG CC
1
2
0333
F 1
332
4
1
7
1
I 332
J
'END OF ASSEMBLY'.PRINT+15
CC
K
2
7
MCW
'IF EXTRA OUTPUT DESIRED, SET SENSE',PRINT+34
'SWITCH F ON t AND',PRINT+51
0335
0339
0340
0347
0348
0350
0357
0364
0365
0367
CS
CS
Mew
W
Mew
W
ec
CS
Mew
J
PRINT+71
'S ON FOR CCNDENSED CARDS',PRINT+24
2
4
7
1
1
1
W
MCW
W
Mew
'e
ON FOR LCAOABLE TAPE 6 ' f PRINT+24
'0 ON FOR LISTING TAPE
3',PRINT+24
7
1
W
Mew
'E ON TO SUPPRESS lISTING',PRINT+24
7
1
7
1
W
MCW
'G ON FOR NEW SOURCE DEeK',PRINT+24
W
CC
CS
MCW
7
1
J
2
PRINT+24
'AND PRESS START',PRINT+15
4
7
W
1
2
.,.
CC
Cw
1
2
GRPMRK
4
H
XXXX.,880
ass
GOTOE,F
PRINT+39
1
5
Mew
K
i
iF NO EXTRA OUTPUT DESIRED,
....... ".,..,..
t'1'f.t:.;).;)
START' ,PRINT+39
CS
Mew
1 03
W
7
7
7
1
ee
Mew
'END OF JGB't PRINT+I0
Mew
4
0311
0378
1
6
FINALfLTAPS\\
236
'LOAOABLE TAPE ON TAPE UNIT 6',PRINT+28
8
0490
0495
4
7
0503
0507
96
91
97
91
97
97
M 866 224
2
F J
I 224
M 881 215
5
5
96
96
2
2
0480
0485
95
95
M 818 224
0403
5
95
2
2
0402
0410
0411
0413
0411
0424
0425
'" I."''''
v..,."
0434
0435
0437
0441
0448
0453
95
95
96
96
96
96
97
M 842 224
1
4
5
5
2
F J
I 271
M 110 224
0395
1
7
2
F K
M 130 234
M 746 251
0394
0451
'INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4',PRINT+36
M 696 215
M794
0464
0465
0467
0414
0415
2
95
-(is
0379
0386
0387
7
K
~
RWD
RWD
RWO
RwD
BW
CS
f
1
W
1 02
1 09
1 10
1 11
1 12
7 13
CARD
.. PRINT END OF JOB MESSAGES
6 91
6 98
6 99
7 08
INSTRUCTION TYPE
16
0333
CC
04
05
06
01
loeN
333
6 94
6 95
6 96
7 00
1 01
PAGE
3783L
224
2
F K
M "..,'"
7'U 239
2
P06
98
98
98
99
• 000 8.80
B 530 F
I 2.39
M 930 210
2
F K
M 966
98
98
98
99
F 1
)
97
98
236
2
99
99
99
99
99
100
100
100
U (U1 R
100
U (U4
U (U5
U (U6
V 517
I 236
100
R
R
R
P25 1
M 994 228
100
100
101
101
101
1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION
SEQ PG LIN
740
741
742
143
744
745
746
741
148
149
750
751
752
753
754
755
756
757
758
759
760
761
762
163
164
765
766
767
768
769
170
771
712
LABEL
1 14
7 15
7 16
7 17
7 18
1 19
7 20
GOTGE
7 22
7 23
7 24
7 25
26
21
28
29
1 30
7 31
7 32
7 33
7 34
7 35
7 36
1 37
1 38
1 39
7 40
1 41
7 42
743
7 44
ce
ew
CW
CS
BSP
SSP
BSP
SSP
SSP
SSP
SSP
BSP
RTW
BER
TPERR2
RETRY
AGAIN
Mew
2
1
F K
2
1
XXXX t 889
FINAl+2
ENDF2 t ENDF3
INPUT+80
PUNCH+99
2
7
4
0514
0516
0517
0519
• 000 889
1
1
1
1
1
1,PASSE
TPERR2
PASSE+l
+9,READe=1
4
5
5
B 519
) 198 998
0537
)
0541
0545
0550
Aoa
102
102
102
/ 199
102
0555
0560
0565
5
05"70
5
5
8
5
0575
0580
0585
0593
0598
0602
0609
0614
0622
0621
0631
0636
0643
7
101
0526
0530
5
5
5
4
U (U1 B
102
U (Ul B
102
102
103
U (Ul 8
U (Ul 8
U (U1 8
U (U1 B
U (U1 B
U (Ul B
L tUI ZOO R
B 602 L
B IOI
103
103
103
103
103
103
8 lOI
104
104
104
104
104
104
U
CUI B
S 997 996
104
105
V 614 996 8
105
• 000 891
105
105
105
106
995 996
U {UI B
M
8
8
4
SSP
1
5
S
1
BSS
H
+l,READe
RETRY,REACC,B
XXXX t 891
I,PASSE
TPERR2,E
XXXX,812
D
PASSE;.l
~.
nL"O
VUIU
15
0696
0130
0146
0710
LIT
LIT
LIT
0194
0818
LIT
LIT
LIT
LIT
LIT
LIT
LIT
LIT
ltT
H
RTW
.....
L"TORG
Dew
718
121
728
131
739
READe
Dew
..
'END OF ASSEMBLY'
'IF EXTRA OUTPUT DESIRED, SET SENSE'
'SWITCH F ON, AND'
'6 ON FOR CCNDENSEO CARDS'
'C ON FOR LOACABLE TAPE 6'
'0 ON FOR LISTING TAPE 3'
'E ON TO SUPPRESS LISTING'
'G ON FOR NEW SOURCE DECK'
'AND PRESS START'
'IF NO EXTRA GUTPUT DESIRED, PRESS START'
'END OF JeBt
'INPUT FOR RE-ASSEMBlY ON TAPE UNIT 4'
'lOADABlE TAPE ON TAPE UNIT 6'
+9
5
8
7
8
5
7
..,.
0651
0658
0666
0671
(U1 ZOO R
l
B 631 l
L {U1 ZOO R
B 602 E
• 000 812
D
U
.,n ...
lnL
LV.&.
,,"\,IV
0682
34
16
24
24
24
24
0842
24
0866
15
0881
39
10
36
28
=01
1
+1
1
0920
0930
0966
0994
0995
0996
0997
1
0998
•,
CARD
101
1
1,PASSE
AGAIN
PASSE+l
BWl
ENDF3
1
1
1
7
4
f
17
101
101
5
702
706
708
710
712
714
1 47
K
1
SSP
RTW
BER
701
773
INSTRUCTION TYPE
CC
B
....I 45
7 46
698
759
LOeN
OPERANDS
H
B
1 21
7
7
7
7
SFX CT
OP
W
FINAL
PAGE
3"783l
3
1
LIT
LIT
AREA
LIT
106
107
108
109
110
111
112
113
113
114
115
116
117
117
117
117
117
1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVtRLAY-VERSION :3
seQ
PG LIN
LABEL
OP
OPERANDS
774
7 48
PASSE
1 49
EQU
EX
1900
775
'716
1 50
END
LIBRN
lIBRN
PAGE
3783L
SFX CT
tOeN
INSTRUCTION
TYPE
18
CARD
1900
8 000
/ 000
oaO'
118
121
AUT~ C(//J)E1<
AS5£I1l5L£R
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Create Date : 2003:09:14 19:04:04-07:00 Modify Date : 2009:09:01 00:06:16-07:00 Metadata Date : 2009:09:01 00:06:16-07:00 Producer : Adobe Acrobat 9.13 Paper Capture Plug-in Format : application/pdf Document ID : uuid:a2986a52-64a4-4ada-87c0-db09ddf2f890 Instance ID : uuid:7a86d81b-e86e-4ea6-b177-e2668e3081ab Page Layout : SinglePage Page Mode : UseOutlines Page Count : 211EXIF Metadata provided by EXIF.tools