-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathautocoder7.lst
More file actions
1534 lines (1504 loc) · 152 KB
/
autocoder7.lst
File metadata and controls
1534 lines (1504 loc) · 152 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
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
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
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
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
470
471
472
473
474
475
476
477
478
479
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
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
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
847
848
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
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1
CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2
BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3
0 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 1
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
101 1 01 000 JOB 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3
102 1 02 CTL 630 1
103 1 03 *
104 1 04 * EQUATERS USED BY THE PROGRAM
105 1 05 *
106 1 06 INITAP EQU %U0 %U0
107 1 07 SYSTAP EQU %U1 %U1
108 1 08 ORIGTP EQU %U4 %U4
109 1 09 WORKTP EQU %U5 %U5
110 1 10 XTRATP EQU %U6 %U6
111 1 11 FIXFRM EQU 0 0000
112 1 12 STLABL EQU FIXFRM&2 0002
113 1 13 STSTMT EQU FIXFRM&5 0005
114 1 14 COUNT EQU FIXFRM&7 0007
115 1 15 ORGADD EQU FIXFRM&32 0032
116 1 16 LABADD EQU FIXFRM&61 0061
117 1 17 SUPADD EQU FIXFRM&66 0066
118 1 18 OP EQU FIXFRM&67 0067
119 1 19 AOP EQU FIXFRM&70 0070
120 1 20 BOP EQU FIXFRM&73 0073
121 1 21 DMOD EQU FIXFRM&74 0074
122 1 22 TYPE EQU FIXFRM&75 0075
123 1 23 ALTER EQU FIXFRM&80 0080
124 1 24 XXXX EQU 0 0000
125 1 25 PRINT EQU 200 0200
126 1 26 ALT EQU PRINT&4 0204
127 1 27 PG EQU PRINT&7 0207
128 1 28 LIN EQU PRINT&11 0211
129 1 29 LAB EQU PRINT&19 0219
130 1 30 OPCODE EQU PRINT&25 0225
131 1 31 OPRAND EQU PRINT&78 0278
132 1 32 SUFFIX EQU PRINT&80 0280
133 1 33 CT EQU PRINT&84 0284
134 1 34 LOCN EQU PRINT&90 0290
135 1 35 INOP EQU PRINT&93 0293
136 1 36 INAOP EQU PRINT&97 0297
137 1 37 INBOP EQU PRINT&101 0301
138 1 38 INDMOD EQU PRINT&103 0303
139 1 39 KIND EQU PRINT&109 0309
140 1 40 CARDNO EQU PRINT&114 0314
141 1 41 PUNCH EQU 100 0100
142 1 42 LIBRN EQU 0 0000
143 1 43 ZONE EQU 189 0189
144 1 44 XR1 EQU 89 0089
145 1 45 XR2 EQU 94 0094
146 1 46 XR3 EQU 99 0099
147 1 47 *
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 2
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
148 1 48 * INITIALIZATION ROUTINE
149 1 49 *
150 1 50 ORG 1900 1900
151 1 51 SSOP DCW @B@ 1 1900 4
152 1 52 CS 332 4 1901 / 332 4
153 1 53 CS 1 1905 / 4
154 1 54 CS 1 1906 / 4
155 1 55 CS 1 1907 / 4
156 1 56 RTW SYSTAP,400 8 1908 L %U1 400 R 4
157 1 57 NOP XXXX 4 1916 N 000 4
158 1 58 BER TPERRI 5 1920 B M03 L 5
159 1 59 CW ENDIN2,LSTOP1 7 1925 ) X99 O93 5
160 1 60 SW ENDIN 4 1932 , I98 5
161 1 61 LCA ENDIN,333 7 1936 L I98 333 5
162 1 62 LCA ENDIN,181 7 1943 L I98 181 5
163 1 63 MCW SSOP,TSTSIZ 7 1950 M Z00 407 5
164 1 64 MCW SSOP,SSAVE1 7 1957 M Z00 O91 6
165 1 65 CW ENDIN 4 1964 ) I98 6
166 1 66 RWD ORIGTP 5 1968 U %U4 R 6
167 1 67 RWD WORKTP 5 1973 U %U5 R 6
168 1 68 RWD XTRATP 5 1978 U %U6 R 6
169 1 69 SW PUNCH&72,PUNCH&76 7 1983 , 172 176 6
170 1 70 A &1,PUNCH&75 7 1990 A O96 175 7
171 1 71 B READ4 4 1997 B T15 7
172 1 72 *
173 1 73 * CHECK FOR JOB CARD
174 1 74 *
175 1 75 C MNEMON-2,@JOB@ 7 2001 C H48 O99 7
176 1 76 BU CKCTL 5 2008 B !78 / 7
177 1 77 CW JOBSW#1 4 2013 ) P00 7
178 1 78 RT WORKTP,180 8 2017 M %U5 180 R 7
179 1 79 LCA 333,181 7 2025 L 333 181 8
180 1 80 MCW OPERND,JOBSAV 7 2032 M I02 O85 8
181 1 81 MCW IMAGE&80,PUNCH&80 7 2039 M I10 180 8
182 1 82 MCW ALTNO,JOBALT#4 7 2046 M I14 P04 8
183 1 83 MCW PAGENO,JOBPAG#2 7 2053 M H32 P06 8
184 1 84 MCW LINENO,JOBLIN#3 7 2060 M H35 P09 9
185 1 85 MCW LABEL,JOBLAB#6 7 2067 M H41 P15 9
186 1 86 B READ4 4 2074 B T15 9
187 1 87 *
188 1 88 * CHECK FOR CONTROL CARD
189 1 89 *
190 1 90 CKCTL C MNEMON-2,@CTL@ 7 2078 C H48 P18 9
191 1 91 BU TSTSIZ 5 2085 B 407 / 9
192 1 92 CW CTLSW#1 4 2090 ) P19 9
193 1 93 MCW IMAGE&30,CTLSAV#10 7 2094 M H60 P29 10
194 1 94 MCW ALTNO,CTLALT#4 7 2101 M I14 P33 10
195 1 95 MCW PAGENO,CTLPAG#2 7 2108 M H32 P35 10
196 1 96 MCW LINENO,CTLLIN#3 7 2115 M H35 P38 10
197 1 97 B READ4 4 2122 B T15 10
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 3
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
198 1 98 *
199 1 99 * TEST OUTPUT OPTIONS DESIRED
200 2 00 *
201 2 01 CHKOP BCE OPNTAP,LSTAPE,1 8 2126 B K14 P24 1 11
202 2 02 TSTOP BCE TSTSIZ,OUTOPN,0 8 2134 B 407 P22 0 11
203 2 03 BCE CONDOP,OUTOPN,1 8 2142 B 400 P22 1 11
204 2 04 BCE TSTSIZ,OUTOPN,2 8 2150 B 407 P22 2 11
205 2 05 BCE CONDOP,OUTOPN,3 8 2158 B 400 P22 3 12
206 2 06 BCE TSTSIZ,OUTOPN,4 8 2166 B 407 P22 4 12
207 2 07 BCE CONDOP,OUTOPN,5 8 2174 B 400 P22 5 12
208 2 08 BCE TSTSIZ,OUTOPN,6 8 2182 B 407 P22 6 12
209 2 09 BCE CONDOP,OUTOPN,7 8 2190 B 400 P22 7 13
210 2 10 BCE TSTSIZ,OUTOPN, 8 2198 B 407 P22 13
211 2 11 CW CTLSW1#1 4 2206 ) P39 13
212 2 12 B TSTSIZ 4 2210 B 407 13
213 2 13 OPNTAP CW TAPOP1 4 2214 ) O92 13
214 2 14 B TSTOP 4 2218 B J34 13
215 2 15 *
216 2 16 * SETUP & GET MAIN PROGRAM
217 2 17 *
218 2 18 GETMAN BSP ORIGTP 5 2222 U %U4 B 13
219 2 19 SW FIXFRM&1,FIXFRM&6 7 2227 , 001 006 14
220 2 20 SW FIXFRM&8,FIXFRM&14 7 2234 , 008 014 14
221 2 21 SW FIXFRM&23,FIXFRM&57 7 2241 , 023 057 14
222 2 22 SW FIXFRM&62,FIXFRM&67 7 2248 , 062 067 14
223 2 23 SW FIXFRM&68,FIXFRM&71 7 2255 , 068 071 14
224 2 24 SW FIXFRM&74 4 2262 , 074 14
225 2 25 CW 181,333 7 2266 ) 181 333 15
226 2 26 MCW KBLK1,HOLDA1-1 7 2273 M O27 O23 15
227 2 27 LCA @L0 , , , 1 @,PUNCH&71 7 2280 L P71 171 15
228 2 28 LCA @2SKB@,ZONE 7 2287 L P75 189 15
229 2 29 LCA @00000@,XR3&2 7 2294 L P80 101 15
230 2 30 LCA XR3&2 4 2301 L 101 15
231 2 31 LCA 1 2305 L 16
232 2 32 SW GRPMK3 4 2306 , O95 16
233 2 33 BCE SETOUT,CNDSW1,1 8 2310 B L49 O33 1 16
234 2 34 BW *&5,LSTOP1 8 2318 V L30 O93 1 16
235 2 35 B SETOUT 4 2326 B L49 16
236 2 36 BW *&5,TAPOP1 8 2330 V L42 O92 1 16
237 2 37 B SETOUT 4 2338 B L49 16
238 2 38 MCW @1@,NOOUT1 7 2342 M P81 O94 17
239 2 39 SETOUT MCW OUTOPN,OPNSV1 7 2349 M P22 O90 17
240 2 40 WTW XTRATP,SAVCN1 8 2356 L %U6 O21 W 17
241 2 41 NOP XXXX 4 2364 N 000 17
242 2 42 BER TPERRI 5 2368 B M03 L 17
243 2 43 RWD XTRATP 5 2373 U %U6 R 17
244 2 44 CW GRPMK3 4 2378 ) O95 18
245 2 45 RTW SYSTAP,201 8 2382 L %U1 201 R 18
246 2 46 NOP XXXX 4 2390 N 000 18
247 2 47 BER TPERRI 5 2394 B M03 L 18
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 4
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
248 2 48 B INIT2 4 2399 B 201 18
249 2 49 *
250 2 50 * TAPE REDUNDANCY ROUTINE
251 2 51 *
252 2 52 TPERRI SBR XR2 4 2403 H 094 18
253 2 53 SBR REDXI&3 4 2407 H M75 18
254 2 54 MZ &9,XR2 7 2411 Y P82 094 19
255 2 55 MCW 4000-10&X2,TPINSI&7 7 2418 M IR0 M66 19
256 2 56 MN TPINSI&3,BSPI&3 7 2425 D M62 M42 19
257 2 57 MCW TPINSI&7,INST2I&7 7 2432 M M66 N75 19
258 2 58 BSPI BSP INITAP 5 2439 U %U0 B 19
259 2 59 BCE WRTRDI,TPINSI&7,W 8 2444 B N48 M66 W 20
260 2 60 MCW &9,READCI#1 7 2452 M P82 P83 20
261 2 61 TPINSI RT INITAP,XXXX 8 2459 M %U0 000 R 20
262 2 62 BER RDRERI 5 2467 B M76 L 20
263 2 63 REDXI B XXXX 4 2472 B 000 20
264 2 64 RDRERI MN TPINSI&3,BSP2I&3 7 2476 D M62 M86 20
265 2 65 BSP2I BSP INITAP 5 2483 U %U0 B 21
266 2 66 S &1,READCI 7 2488 S O96 P83 21
267 2 67 BWZ TPINSI,READCI,B 8 2495 V M59 P83 B 21
268 2 68 MN TPINSI&3,TPHALI&6 7 2503 D M62 N16 21
269 2 69 TPHALI H XXXX,790 7 2510 . 000 790 21
270 2 70 MCW TPINSI&7,*&8 7 2517 M M66 N31 22
271 2 71 RT INITAP,XXXX 8 2524 M %U0 000 R 22
272 2 72 BSS BSPI,E 5 2532 B M39 E 22
273 2 73 H XXXX,711 7 2537 . 000 711 22
274 2 74 B REDXI 4 2544 B M72 22
275 2 75 WRTRDI SKP SYSTAP 5 2548 U %U1 E 22
276 2 76 BCE SUBCTI,WRTCTI-1,5 8 2553 B N85 P84 5 23
277 2 77 A &1,WRTCTI#2 7 2561 A O96 P85 23
278 2 78 INST2I WT INITAP,XXXX 8 2568 M %U0 000 W 23
279 2 79 BER BSPI 5 2576 B M39 L 23
280 2 80 B REDXI 4 2581 B M72 23
281 2 81 SUBCTI S WRTCTI 4 2585 S P85 23
282 2 82 MN TPINSI&3,*&7 7 2589 D M62 O02 24
283 2 83 H XXXX,760 7 2596 . 000 760 24
284 2 84 B INST2I 4 2603 B N68 24
285 2 85 CLRLEG DCW @CLEAR STORAGE @ 14 2620 24
286 2 86 HOLDA1 DCW &0000 4 2624 24
287 2 87 KBLK1 DCW @080@ 3 2627 24
288 2 88 CORSIZ DCW @ 3999@ 5 2632 25
289 2 89 CNDSW1 DCW @0@ 1 2633 25
290 2 90 JOBSAV DCW #52 52 2685 27
291 2 91 ERRCT1 DCW @0000@ 4 2689 27
292 2 92 OPNSV1 DCW @ @ 1 2690 27
293 2 93 SSAVE1 DCW @ @ 1 2691 27
294 2 94 TAPOP1 DCW @ @ 1 2692 27
295 2 95 LSTOP1 DCW @ @ 1 2693 28
296 2 96 NOOUT1 DCW @ @ 1 2694 28
297 2 97 GRPMK3 DC @}@ 1 2695 GMARK 28
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 5
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
298 2 98 SAVCN1 EQU HOLDA1-3 2621
299 2 99 LTORG * 2696
DCW &1 1 2696 LIT 28
DCW @JOB@ 3 2699 LIT 28
JOBSW DCW #01 1 2700 AREA 28
JOBALT DCW #04 4 2704 AREA 28
JOBPAG DCW #02 2 2706 AREA 28
JOBLIN DCW #03 3 2709 AREA 29
JOBLAB DCW #06 6 2715 AREA 29
DCW @CTL@ 3 2718 LIT 29
CTLSW DCW #01 1 2719 AREA 29
CTLSAV DCW #10 10 2729 AREA 29
CTLALT DCW #04 4 2733 AREA 29
CTLPAG DCW #02 2 2735 AREA 29
CTLLIN DCW #03 3 2738 AREA 30
CTLSW1 DCW #01 1 2739 AREA 30
DCW @L0 , , , 1 @ 32 2771 LIT 30
DCW @2SKB@ 4 2775 LIT 31
DCW @00000@ 5 2780 LIT 31
DCW @1@ 1 2781 LIT 31
DCW &9 1 2782 LIT 31
READCI DCW #01 1 2783 AREA 31
WRTCTI DCW #02 2 2785 AREA 31
300 3 00 ORG 3831 3831
301 3 01 INPUT4 DA 1X86 3831 3916
302 3 02 PAGENO 1,2 3832 FIELD
303 3 03 LINENO 3,5 3835 FIELD
304 3 04 LABEL 6,11 3841 FIELD
305 3 05 MNEMON 16,20 3850 FIELD
306 3 06 OPERND 21,72 3902 FIELD
307 3 07 ALTNO 81,84 3914 FIELD
308 3 08 IMAGE EQU INPUT4-1 3830
309 3 09 FIXINP EQU IMAGE&87&X3 3917 X
310 3 10 INPUT5 EQU FIXINP&1&X0 3918
311 3 11 PROSIZ EQU CTLSAV-9 2720
312 3 12 OBJSIZ EQU CTLSAV-8 2721
313 3 13 OUTOPN EQU CTLSAV-7 2722
314 3 14 LSTAPE EQU CTLSAV-5 2724
315 3 15 ENDIN EQU 3998 3998
316 3 16 3998 DCW @}@ 1 3998 GMARK 33
317 3 17 XFR LIBRN B 000 34
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 6
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
318 3 18 JOB 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3
319 3 19 ORG 400 0400
320 3 20 *
321 3 21 * CONDENSE OPTION
322 3 22 *
323 3 23 CONDOP MCW @1@,CNDSW1 7 0400 M T64 O33 37
324 3 24 *
325 3 25 * TEST OBJECT MACHINE SIZE
326 3 26 *
327 3 27 TSTSIZ BSS SENSW,F 5 0407 B /03 F 37
328 3 28 BW *&3,LSTOP1 8 0412 V 422 O93 1 37
329 3 29 CC 1 2 0420 F 1 37
330 3 30 MCW @1@,PRINT&15 7 0422 M T64 215 37
331 3 31 MCW CLRLEG 4 0429 M O20 37
332 3 32 MCW @1@,200 7 0433 M T64 200 38
333 3 33 BW IS4K,CTLSW 8 0440 V 544 P19 1 38
334 3 34 C OBJSIZ,@3@ 7 0448 C P21 T65 38
335 3 35 BL OVER4K 5 0455 B 464 T 38
336 3 36 B IS4K 4 0460 B 544 38
337 3 37 OVER4K C OBJSIZ,@6@ 7 0464 C P21 T66 38
338 3 38 BL BADCTL 5 0471 B 540 T 39
339 3 39 MCW @,053053N000000N00001026@,PUNCH&52 7 0476 M T89 152 39
340 3 40 LCA @,008015,022026,030037,044,049@ 4 0483 L U18 39
341 3 41 MCW PUNCH&52,PRINT&72 7 0487 M 152 272 39
342 3 42 B PRTPNH 4 0494 B S17 39
343 3 43 MCW @1,001/001117I0?@,PUNCH&71 7 0498 M U33 171 39
344 3 44 MCW @#071029C029056B026/B001/099@ 4 0505 M U60 39
345 3 45 LCA @L068116,105106,110117B101/I9I@ 4 0509 L U89 40
346 3 46 BCE IS8K,OBJSIZ,4 8 0513 B 651 P21 4 40
347 3 47 BCE IS12K,OBJSIZ,5 8 0521 B 669 P21 5 40
348 3 48 MCW @15@,CORSIZ-3 7 0529 M U91 O29 40
349 3 49 B CLRST2 4 0536 B 683 40
350 3 50 BADCTL CW CTLSW1 4 0540 ) P39 40
351 3 51 IS4K MCW @,0570571026@,PUNCH&44 7 0544 M V02 144 41
352 3 52 LCA @,008015,019026,030,034041,045,053@ 4 0551 L V35 41
353 3 53 MCW PUNCH&44,PRINT&64 7 0555 M 144 264 41
354 3 54 B PRTPNH 4 0562 B S17 41
355 3 55 MCW @B0010270B0261,001/001113I0@,PUNCH&70 7 0566 M V61 170 41
356 3 56 LCA @L068112,102106,113/101099/I99,027A070028)027@ 4 0573 L W05 41
357 3 57 BCE CLRST2,OBJSIZ,3 8 0577 B 683 P21 3 42
358 3 58 MZ @S@,PUNCH&27 7 0585 Y W06 127 42
359 3 59 MCW @1@,CORSIZ-3 7 0592 M T64 O29 42
360 3 60 BCE CLRST2,OBJSIZ,2 8 0599 B 683 P21 2 42
361 3 61 MCW @T@,PUNCH&27 7 0607 M W07 127 42
362 3 62 MCW @3@,CORSIZ-2 7 0614 M T65 O30 43
363 3 63 BCE CLRST2,OBJSIZ,1 8 0621 B 683 P21 1 43
364 3 64 CW CTLSW1 4 0629 ) P39 43
365 3 65 MCW @I@,PUNCH&27 7 0633 M W08 127 43
366 3 66 MCW @39@,CORSIZ-2 7 0640 M W10 O30 43
367 3 67 B CLRST2 4 0647 B 683 43
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 7
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
368 3 68 IS8K MZ @S@,PUNCH&29 7 0651 Y W06 129 44
369 3 69 MCW @7@,CORSIZ-3 7 0658 M W11 O29 44
370 3 70 B CLRST2 4 0665 B 683 44
371 3 71 IS12K MZ @K@,PUNCH&29 7 0669 Y W12 129 44
372 3 72 MCW @11@,CORSIZ-3 7 0676 M W14 O29 44
373 3 73 CLRST2 MCW PUNCH&71,PRINT&91 7 0683 M 171 291 44
374 3 74 MCW @2@,PRINT&15 7 0690 M W15 215 45
375 3 75 MCW CLRLEG 4 0697 M O20 45
376 3 76 B PRTPNH 4 0701 B S17 45
377 3 77 MCW @,0010011040@,PUNCH&71 7 0705 M W26 171 45
378 3 78 MCW @,061068,072/061039@,PUNCH&46 7 0712 M W44 146 45
379 3 79 LCA @,008015,022029,036040,047054@ 4 0719 L W72 45
380 3 80 MCW PUNCH&71,PRINT&91 7 0723 M 171 291 46
381 3 81 MCW @BOOTSTRAP@,PRINT&9 7 0730 M W81 209 46
382 3 82 B PRTPNH 4 0737 B S17 46
383 3 83 BW *&3,LSTOP1 8 0741 V 751 O93 1 46
384 3 84 CC K 2 0749 F K 46
385 3 85 BW DOHEAD,CTLSW 8 0751 V 818 P19 1 46
386 3 86 *
387 3 87 * TEST PROCESSOR MACHINE SIZE
388 3 88 *
389 3 89 C PROSIZ,@3@ 7 0759 C P20 T65 47
390 3 90 BE DOHEAD 5 0766 B 818 S 47
391 3 91 BH BADPRO 5 0771 B 814 U 47
392 3 92 C PROSIZ,@6@ 7 0776 C P20 T66 47
393 3 93 BL BADPRO 5 0783 B 814 T 47
394 3 94 MCW @400@,KBLK1 7 0788 M W84 O27 47
395 3 95 BCE DOHEAD,PROSIZ,4 8 0795 B 818 P20 4 48
396 3 96 A @400@,KBLK1 7 0803 A W84 O27 48
397 3 97 B DOHEAD 4 0810 B 818 48
398 3 98 BADPRO CW CTLSW1 4 0814 ) P39 48
399 3 99 *
400 4 00 * PRINT HEADING, JOB & CONTROL CARDS
401 4 01 *
402 4 02 DOHEAD MCW @1@,PRINT&114 7 0818 M T64 314 48
403 4 03 MCW @PAGE@,PRINT&109 7 0825 M W88 309 48
404 4 04 MCW JOBSAV,OPRAND 7 0832 M O85 278 49
405 4 05 MCW PUNCH&80,LOCN 7 0839 M 180 290 49
406 4 06 MCW @0@,200 7 0846 M W89 200 49
407 4 07 B PRINT2 4 0853 B '61 49
408 4 08 BW *&3,LSTOP1 8 0857 V 867 O93 1 49
409 4 09 CC K 2 0865 F K 49
410 4 10 CS PRINT&78 4 0867 / 278 49
411 4 11 MCW @SFX CT LOCN INSTRUCTION TYPE CARD@,PRINT&114 7 0871 M X25 314 50
412 4 12 MCW @SEQ PG LIN LABEL OP OPERANDS@,PRINT&34 7 0878 M X58 234 50
413 4 13 MCW @0@,200 7 0885 M W89 200 50
414 4 14 B PRINT2 4 0892 B '61 50
415 4 15 CS PRINT&132 4 0896 / 332 50
416 4 16 CS 1 0900 / 50
417 4 17 B PRINT2 4 0901 B '61 50
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 8
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
418 4 18 BW TSTCTL,JOBSW 8 0905 V 970 P00 1 51
419 4 19 MCS JOBALT,ALT 7 0913 Z P04 204 51
420 4 20 MCS JOBPAG,PG 7 0920 Z P06 207 51
421 4 21 MZ JOBPAG,PG 7 0927 Y P06 207 51
422 4 22 MCW JOBLIN,LIN 7 0934 M P09 211 51
423 4 23 MCW JOBLAB,LAB 7 0941 M P15 219 52
424 4 24 MCW @JOB@,OPCODE-2 7 0948 M X61 223 52
425 4 25 MCW JOBSAV,OPRAND 7 0955 M O85 278 52
426 4 26 B PRINT2 4 0962 B '61 52
427 4 27 CS OPRAND 4 0966 / 278 52
428 4 28 TSTCTL BW NOCNTL,CTLSW 8 0970 V '50 P19 1 52
429 4 29 MCS CTLALT,ALT 7 0978 Z P33 204 53
430 4 30 MCS CTLPAG,PG 7 0985 Z P35 207 53
431 4 31 MZ CTLPAG,PG 7 0992 Y P35 207 53
432 4 32 MCW CTLLIN,LIN 7 0999 M P38 211 53
433 4 33 MCW CTLSAV,PRINT&36 7 1006 M P29 236 53
434 4 34 MCW @CTL@,OPCODE-2 7 1013 M X64 223 54
435 4 35 BW CTLPNT,CTLSW1 8 1020 V '42 P39 1 54
436 4 36 MCW @BAD STATEMENT@,PRINT&128 7 1028 M X77 328 54
437 4 37 ERRCTL A &1,ERRCT1 7 1035 A X78 O89 54
438 4 38 CTLPNT B PRINT2 4 1042 B '61 54
439 4 39 B GETMAN 4 1046 B K22 54
440 4 40 NOCNTL MCW @NO CONTROL CARD@,PRINT&130 7 1050 M X93 330 55
441 4 41 B ERRCTL 4 1057 B '35 55
442 4 42 PRINT2 SBR PNT2XT&3 4 1061 H /02 55
443 4 43 BW *&2,LSTOP1 8 1065 V '74 O93 1 55
444 4 44 W 1 1073 2 55
445 4 45 BW PNT2XT,TAPOP1 8 1074 V '99 O92 1 55
446 4 46 WT 3,200 8 1082 M %U3 200 W 56
447 4 47 NOP XXXX 4 1090 N 000 56
448 4 48 BER TPERRI 5 1094 B M03 L 56
449 4 49 PNT2XT B XXXX 4 1099 B 000 56
450 4 50 *
451 4 51 * TEST SENSE SWITCHES FOR OUTPUT OPTIONS
452 4 52 *
453 4 53 SENSW LCA @0@,OUTOPN 7 1103 L W89 P22 56
454 4 54 LCA @0@,CNDSW1 7 1110 L W89 O33 56
455 4 55 MCW @ @,LSTAPE 7 1117 M X94 P24 57
456 4 56 SW TAPOP1 4 1124 , O92 57
457 4 57 BSS ADD1,B 5 1128 B /68 B 57
458 4 58 TSTSSC BSS ADD2,C 5 1133 B /79 C 57
459 4 59 TSTSSG BSS ADD4,G 5 1138 B /90 G 57
460 4 60 TSTSSD BSS LSTAP,D 5 1143 B S01 D 57
461 4 61 TSTSSE BSS SUPLST,E 5 1148 B S09 E 57
462 4 62 SSXT CW OUTOPN 4 1153 ) P22 58
463 4 63 MCW @N@,TSTSIZ 7 1157 M X95 407 58
464 4 64 B CHKOP 4 1164 B J26 58
465 4 65 ADD1 A &1,OUTOPN 7 1168 A X78 P22 58
466 4 66 B TSTSSC 4 1175 B /33 58
467 4 67 ADD2 A &2,OUTOPN 7 1179 A X96 P22 58
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 9
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
468 4 68 B TSTSSG 4 1186 B /38 58
469 4 69 ADD4 A &4,OUTOPN 7 1190 A X97 P22 59
470 4 70 B TSTSSD 4 1197 B /43 59
471 4 71 LSTAP CW TAPOP1 4 1201 ) O92 59
472 4 72 B TSTSSE 4 1205 B /48 59
473 4 73 SUPLST SW LSTOP1 4 1209 , O93 59
474 4 74 B SSXT 4 1213 B /53 59
475 4 75 *
476 4 76 * PRINT AND/OR PUNCH
477 4 77 *
478 4 78 PRTPNH SBR EXIT&3 4 1217 H T14 59
479 4 79 MCS PUNCH&75,CARDNO 7 1221 Z 175 314 60
480 4 80 BW *&2,LSTOP1 8 1228 V S37 O93 1 60
481 4 81 W 1 1236 2 60
482 4 82 BW PUNCH1,TAPOP1 8 1237 V S86 O92 1 60
483 4 83 WT 3,200 8 1245 M %U3 200 W 60
484 4 84 NOP XXXX 4 1253 N 000 60
485 4 85 BER TPERRI 5 1257 B M03 L 61
486 4 86 MCW @&@,100 7 1262 M X98 100 61
487 4 87 WT 3,100 8 1269 M %U3 100 W 61
488 4 88 NOP XXXX 4 1277 N 000 61
489 4 89 BER TPERRI 5 1281 B M03 L 61
490 4 90 PUNCH1 BCE *&2,CNDSW1,0 8 1286 B S95 O33 0 61
491 4 91 P 1 1294 4 61
492 4 92 A &1,PUNCH&75 7 1295 A X78 175 62
493 4 93 CS PRINT&132 4 1302 / 332 62
494 4 94 CS 1 1306 / 62
495 4 95 CS PUNCH&71 4 1307 / 171 62
496 4 96 EXIT B XXXX 4 1311 B 000 62
497 4 97 *
498 4 98 * READ ORIGINAL TAPE
499 4 99 *
500 5 00 READ4 SBR READ4X&3 4 1315 H T39 62
501 5 01 RT ORIGTP,INPUT4 8 1319 M %U4 H31 R 62
502 5 02 B CHKLG 4 1327 B T40 63
503 5 03 BER TPERRI 5 1331 B M03 L 63
504 5 04 READ4X B XXXX 4 1336 B 000 63
505 5 05 CHKLG BCE READ4&4,INPUT4&12,} 8 1340 B T19 H43 } GMARK 63
506 5 06 CHAIN 12 MACRO
507 BCE 1 1348 B GEN 63
508 BCE 1 1349 B GEN 63
509 BCE 1 1350 B GEN 63
510 BCE 1 1351 B GEN 64
511 BCE 1 1352 B GEN 64
512 BCE 1 1353 B GEN 64
513 BCE 1 1354 B GEN 64
514 BCE 1 1355 B GEN 64
515 BCE 1 1356 B GEN 64
516 BCE 1 1357 B GEN 64
517 BCE 1 1358 B GEN 65
1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 10
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
518 BCE 1 1359 B GEN 65
519 5 07 B READ4X-5 4 1360 B T31 65
520 5 08 LTORG * 1364
DCW @1@ 1 1364 LIT 65
DCW @3@ 1 1365 LIT 65
DCW @6@ 1 1366 LIT 65
DCW @,053053N000000N00001026@ 23 1389 LIT 65
DCW @,008015,022026,030037,044,049@ 29 1418 LIT 66
DCW @1,001/001117I0?@ 15 1433 LIT 67
DCW @#071029C029056B026/B001/099@ 27 1460 LIT 68
DCW @L068116,105106,110117B101/I9I@ 29 1489 LIT 69
DCW @15@ 2 1491 LIT 69
DCW @,0570571026@ 11 1502 LIT 70
DCW @,008015,019026,030,034041,045,053@ 33 1535 LIT 71
DCW @B0010270B0261,001/001113I0@ 26 1561 LIT 72
DCW @L068112,102106,113/101099/I99,027A070028)027@ 44 1605 LIT 74
DCW @S@ 1 1606 LIT 74
DCW @T@ 1 1607 LIT 74
DCW @I@ 1 1608 LIT 74
DCW @39@ 2 1610 LIT 74
DCW @7@ 1 1611 LIT 75
DCW @K@ 1 1612 LIT 75
DCW @11@ 2 1614 LIT 75
DCW @2@ 1 1615 LIT 75
DCW @,0010011040@ 11 1626 LIT 75
DCW @,061068,072/061039@ 18 1644 LIT 75
DCW @,008015,022029,036040,047054@ 28 1672 LIT 76
DCW @BOOTSTRAP@ 9 1681 LIT 76
DCW @400@ 3 1684 LIT 77
DCW @PAGE@ 4 1688 LIT 77
DCW @0@ 1 1689 LIT 77
DCW @SFX CT LOCN INSTRUCTION TYPE CARD@ 36 1725 LIT 78
DCW @SEQ PG LIN LABEL OP OPERANDS@ 33 1758 LIT 79
DCW @JOB@ 3 1761 LIT 79
DCW @CTL@ 3 1764 LIT 79
DCW @BAD STATEMENT@ 13 1777 LIT 80
DCW &1 1 1778 LIT 80
DCW @NO CONTROL CARD@ 15 1793 LIT 80
DCW @ @ 1 1794 LIT 80
DCW @N@ 1 1795 LIT 80
DCW &2 1 1796 LIT 80
DCW &4 1 1797 LIT 80
DCW @&@ 1 1798 LIT 81
521 5 09 ENDIN2 DCW @}@ 1 1799 GMARK 81
522 5 10 XFR LIBRN B 000 82
1 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3 3775L PAGE 11
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
523 5 11 JOB 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3
524 5 12 ORG ISIOCS 0794
525 5 13 *
526 5 14 * EX, END CARDS
527 5 15 *
528 5 16 EXEND MCW @B@,INOP 7 0794 M D12 293 85
529 5 17 MCW @B@,HOLDH&1 7 0801 M D12 D93 85
530 5 18 BCE SETAOP,TYPE,C 8 0808 B 830 075 C 85
531 5 19 MCW @/ 080@,INBOP 7 0816 M D21 301 85
532 5 20 MCW @/ 080@,HOLDH&7 7 0823 M D28 D99 85
533 5 21 SETAOP MCW AOP,INAOP 7 0830 M 070 297 86
534 5 22 MCW AOP,HOLDH&4 7 0837 M 070 D96 86
535 5 23 BCE SYMUND,AOP,# 8 0844 B L09 070 # 86
536 5 24 B SETLOC 4 0852 B U18 86
537 5 25 B CONDNS 4 0856 B L54 86
538 5 26 B PRNTLN 4 0860 B Y54 86
539 5 27 BCE GETOV1,TYPE,C 8 0864 B Z63 075 C 87
540 5 28 CC 1 2 0872 F 1 87
541 5 29 MCW @1@,200 7 0874 M D29 200 87
542 5 30 MCS ERRCNT,PRINT&4 7 0881 Z C66 204 87
543 5 31 C PRINT&4,BLANK4#4 7 0888 C 204 D33 87
544 5 32 BU SETERH 5 0895 B 945 / 87
545 5 33 TSTCOR BW EOJOB,ADDRSW#1 8 0900 V 928 D34 1 88
546 5 34 MCW WORD1,PRINT&20 7 0908 M S49 220 88
547 5 35 B WTAPE 4 0915 B J24 88
548 5 36 BW *&2,LSTOP 8 0919 V 928 C70 1 88
549 5 37 W 1 0927 2 88
550 5 38 EOJOB BW RESET,TAPOP 8 0928 V 543 C69 1 88
551 5 39 WTM 3 5 0936 U %U3 M 89
552 5 40 B RESET 4 0941 B 543 89
553 5 41 SETERH MCW @ERRORS@,PRINT&11 7 0945 M D40 211 89
554 5 42 C PRINT&4,@ 1@ 7 0952 C 204 D44 89
555 5 43 BU *&8 5 0959 B 971 / 89
556 5 44 MCW BLANK1,PRINT&11 7 0964 M D30 211 89
557 5 45 B WTAPE 4 0971 B J24 89
558 5 46 BW *&2,LSTOP 8 0975 V 984 C70 1 90
559 5 47 W 1 0983 2 90
560 5 48 CS PRINT&11 4 0984 / 211 90
561 5 49 B TSTCOR 4 0988 B 900 90
562 5 50 *
563 5 51 * CONDENSE EX, END CARDS
564 5 52 *
565 5 53 NOCARD C WMLOC,AWMSTR 7 0992 C C75 C78 90
566 5 54 BE TSTEND 5 0999 B '20 S 90
567 5 55 CW NEWSW 4 1004 ) G27 90
568 5 56 ENDRTN BW NOCARD,NEWSW 8 1008 V 992 G27 1 91
569 5 57 B PNCHCD 4 1016 B P62 91
570 5 58 TSTEND BCE EXCUTE,TYPE,C 8 1020 B '57 075 C 91
571 5 59 CS PUNCH&71 4 1028 / 171 91
572 5 60 MCW HOLDH&7,PUNCH&46 7 1032 M D99 146 91
1 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3 3775L PAGE 12
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
573 5 61 MCS PUNCH&75,CARDNO 7 1039 Z 175 314 91
574 5 62 SBR PNHXT&3,LSTCD 7 1046 H Q90 S11 92
575 5 63 B TSTPCH 4 1053 B Q21 92
576 5 64 EXCUTE MCE WMSTR,PUNCH&71 7 1057 E D11 171 92
577 5 65 MCW @N000000@,PUNCH&46 7 1064 M D51 146 92
578 5 66 MCW HOLDH&4,PUNCH&71 7 1071 M D96 171 92
579 5 67 MCS PUNCH&75,CARDNO 7 1078 Z 175 314 92
580 5 68 SBR PNHXT&3,EXOUT 7 1085 H Q90 '96 93
581 5 69 B TSTPCH 4 1092 B Q21 93
582 5 70 *
583 5 71 * PUNCH COMPATIBILITY CARDS
584 5 72 *
585 5 73 EXOUT CS PUNCH&71 4 1096 / 171 93
586 5 74 B READOG 4 1100 B B09 93
587 5 75 BSP ORIGTP 5 1104 U %U4 B 93
588 5 76 C MNEMON-2,@JOB@ 7 1109 C H48 D54 93
589 5 77 BU *&8 5 1116 B /28 / 93
590 5 78 MCW IMAGE&80,PUNCH&80 7 1121 M I10 180 94
591 5 79 MCW WORD2,PUNCH&39 7 1128 M S88 139 94
592 5 80 LCA WORD3,PUNCH&66 7 1135 L S99 166 94
593 5 81 MCW PUNCH&66,PUNCH&50 7 1142 M 166 150 94
594 5 82 BCE *&2,CONDSW,0 8 1149 B /58 C10 0 94
595 5 83 P 1 1157 4 94
596 5 84 B WTAP2 4 1158 B ?43 95
597 5 85 CS PUNCH&66 4 1162 / 166 95
598 5 86 A &1,PUNCH&75 7 1166 A D55 175 95
599 5 87 MCW WORD4,PUNCH&21 7 1173 M T20 121 95
600 5 88 MCW WORD5,PUNCH&71 7 1180 M T31 171 95
601 5 89 SBR PNHXT&3,OUTEX 7 1187 H Q90 S26 95
602 5 90 BCE *&2,CONDSW,0 8 1194 B S03 C10 0 96
603 5 91 P 1 1202 4 96
604 5 92 B WTAP2 4 1203 B ?43 96
605 5 93 B NEWCRD 4 1207 B Q34 96
606 5 94 LSTCD CS PUNCH&80 4 1211 / 180 96
607 5 95 BCE *&4,CONDSW,0 8 1215 B S26 C10 0 96
608 5 96 P 1 1223 4 96
609 5 97 SS 8 2 1224 K 8 97
610 5 98 OUTEX B CNDOUT&7 4 1226 B ?14 97
611 5 99 WORD1 DCW @OBJECT CORE EXCEEDED@ 20 1249 97
612 6 00 WORD2 DCW @,015022)024056,029036,040047,0540611001@ 39 1288 98
613 6 01 WORD3 DCW @,001008B001@ 11 1299 99
614 6 02 WORD4 DCW @,068072)063067/061039@ 21 1320 99
615 6 03 WORD5 DCW @,0010011040@ 11 1331 100
616 6 04 OV2GM DCW @}@ 1 1332 GMARK 100
617 6 05 XFR LIBRN B 000 101
1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 13
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
618 6 06 JOB 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3
619 6 07 *
620 6 08 * READ SECOND HALF OF MAIN PROGRAM
621 6 09 *
622 6 10 ORG 201 0201
623 6 11 INIT2 RTW SYSTAP,2000 8 0201 L %U1 !00 R 104
624 6 12 NOP XXXX 4 0209 N 000 104
625 6 13 BER TPERR 5 0213 B 334 L 104
626 6 14 RTW XTRATP,SAVCON 8 0218 L %U6 B98 R 104
627 6 15 NOP XXXX 4 0226 N 000 104
628 6 16 BER TPERR 5 0230 B 334 L 104
629 6 17 RWD XTRATP 5 0235 U %U6 R 104
630 6 18 CW GMSAVE,WMSW#1 7 0240 ) C72 D56 105
631 6 19 CW ENDE1,ENDE2 7 0247 ) Z94 H27 105
632 6 20 SW GM,181 7 0254 , 333 181 105
633 6 21 SW OV1GM 4 0261 , U17 105
634 6 22 WTW XTRATP,ISIOCS 8 0265 L %U6 794 W 105
635 6 23 NOP XXXX 4 0273 N 000 105
636 6 24 BER TPERR 5 0277 B 334 L 106
637 6 25 RWD XTRATP 5 0282 U %U6 R 106
638 6 26 CW OV1GM 4 0287 ) U17 106
639 6 27 ZA &5,LINCT 7 0291 ? D57 F13 106
640 6 28 BCE RESET,NOOUT,1 8 0298 B 543 C71 1 106
641 6 29 B GET 4 0306 B A24 106
642 6 30 B SETUP 4 0310 B 595 106
643 6 31 DCW @ @ 1 0314 107
644 6 32 *
645 6 33 * MAIN LINE PROGRAM
646 6 34 *
647 6 35 ORG 333 0333
648 6 36 GM DC @}@ 1 0333 GMARK 108
649 6 37 *
650 6 38 * TAPE REDUNDANCY ROUTINE
651 6 39 *
652 6 40 TPERR SBR XR2 4 0334 H 094 108
653 6 41 SBR REDXT&3 4 0338 H 406 108
654 6 42 MZ PLUS9,XR2 7 0342 Y 538 094 108
655 6 43 MCW 4000-10&X2,TPINST&7 7 0349 M IR0 397 108
656 6 44 MN TPINST&3,BSP1&3 7 0356 D 393 373 109
657 6 45 MCW TPINST&7,INST2&7 7 0363 M 397 506 109
658 6 46 BSP1 BSP INITAP 5 0370 U %U0 B 109
659 6 47 BCE WRTRED,TPINST&7,W 8 0375 B 479 397 W 109
660 6 48 MCW PLUS9,READCT 7 0383 M 538 540 109
661 6 49 TPINST RT INITAP,XXXX 8 0390 M %U0 000 R 110
662 6 50 BER RDRERR 5 0398 B 407 L 110
663 6 51 REDXT B XXXX 4 0403 B 000 110
664 6 52 RDRERR MN TPINST&3,BSP2&3 7 0407 D 393 417 110
665 6 53 BSP2 BSP INITAP 5 0414 U %U0 B 110
666 6 54 S PLUS1,READCT 7 0419 S 539 540 110
667 6 55 BWZ TPINSTM,READCT,B 8 0426 V 390 540 B 111
1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 14
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
668 6 56 MN TPINST&3,TPHALT&6 7 0434 D 393 447 111
669 6 57 TPHALT H XXXX,790 7 0441 . 000 790 111
670 6 58 MCW TPINST&7,*&8 7 0448 M 397 462 111
671 6 59 RT INITAP,XXXX 8 0455 M %U0 000 R 111
672 6 60 BSS BSP1,E 5 0463 B 370 E 112
673 6 61 H XXXX,712 7 0468 . 000 712 112
674 6 62 B REDXT 4 0475 B 403 112
675 6 63 WRTRED SKP SYSTAP 5 0479 U %U1 E 112
676 6 64 BCE SUBCTR,WRTCTR-1,5 8 0484 B 516 541 5 112
677 6 65 A PLUS1,WRTCTR 7 0492 A 539 542 112
678 6 66 INST2 WT INITAP,XXXX 8 0499 M %U0 000 W 113
679 6 67 BER BSP1 5 0507 B 370 L 113
680 6 68 B REDXT 4 0512 B 403 113
681 6 69 SUBCTR S WRTCTR 4 0516 S 542 113
682 6 70 MN TPINST&3,*&7 7 0520 D 393 533 113
683 6 71 H XXXX,760 7 0527 . 000 760 113
684 6 72 B INST2 4 0534 B 499 113
685 6 73 PLUS9 DCW &9 1 0538 114
686 6 74 PLUS1 DCW &1 1 0539 114
687 6 75 READCT DCW #1 1 0540 114
688 6 76 WRTCTR DCW #2 2 0542 114
689 6 77 *
690 6 78 * GET PASS F
691 6 79 *
692 6 80 RESET LCA SSAVE,201 7 0543 L C68 201 114
693 6 81 LCA 1 0550 L 114
694 6 82 RT SYSTAP,332 8 0551 M %U1 332 R 114
695 6 83 CW 181,333 7 0559 ) 181 333 115
696 6 84 RTW SYSTAP,2000 8 0566 L %U1 !00 R 115
697 6 85 NOP XXXX 4 0574 N 000 115
698 6 86 BER TPERR 5 0578 B 334 L 115
699 6 87 MCW 201,2001 7 0583 M 201 !01 115
700 6 88 MCW 1 0590 M 115
701 6 89 B 2002 4 0591 B !02 115
702 6 90 *
703 6 91 * BEGIN MAIN LINE PROGRAM
704 6 92 *
705 6 93 SETUP CS PRINT&132 4 0595 / 332 116
706 6 94 CS 1 0599 / 116
707 6 95 GETORG B READOG 4 0600 B B09 116
708 6 96 *
709 6 97 * DETERMINE TYPE
710 6 98 *
711 6 99 ANALWK SW TYPESW#1 4 0604 , D58 116
712 7 00 MN TYPE,TYPEA#1 7 0608 D 075 D59 116
713 7 01 BCE BYPASS,TYPE,% 8 0615 B S85 075 % 116
714 7 02 BCE BYPASS,TYPE,8 8 0623 B S85 075 8 116
715 7 03 BCE BYPASS,TYPE,I 8 0631 B S85 075 I 117
716 7 04 BCE BYPASS,TYPE,H 8 0639 B S85 075 H 117
717 7 05 BCE PROWRK,ALTER, 8 0647 B 881 080 117
1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 15
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
718 7 06 ANALOG BCE SETCOM,LABEL-5,* 8 0655 B J72 H36 * 117
719 7 07 BCE MAPCNT,IMAGE&75,R 8 0663 B 805 I05 R 118
720 7 08 BCE ISIOCS,IMAGE&75,W 8 0671 B 794 I05 W 118
721 7 09 BCE MAPCNT&7,IMAGE&75,S 8 0679 B 812 I05 S 118
722 7 10 BCE MAPCNT&7,IMAGE&75,Z 8 0687 B 812 I05 Z 118
723 7 11 C MNEMON-2,@JOB@ 7 0695 C H48 D54 118
724 7 115 BE DOJOB 5 0702 B 843 S 119
725 7 12 C ALTER,ALTNO 7 0707 C 080 I14 119
726 7 13 BU SEQERR 5 0714 B ?83 / 119
727 7 14 B SETFRE 4 0719 B T01 119
728 7 15 CW TYPESW 4 0723 ) D58 119
729 7 16 BCE INSTR,TYPE, 8 0727 B V43 075 119
730 7 17 MN TYPE,XR2 7 0735 D 075 094 120
731 7 18 A XR2 4 0742 A 094 120
732 7 19 A XR2 4 0746 A 094 120
733 7 20 B *&1&X2 4 0750 B 7N4 120
734 7 21 B DA 4 0754 B W52 120
735 7 22 B CONST 4 0758 B '62 120
736 7 23 B DSA 4 0762 B 969 120
737 7 24 B GETOV2 4 0766 B ?94 121
738 7 25 B SFX 4 0770 B L43 121
739 7 26 B TYPERR 4 0774 B S78 121
740 7 27 B ORG 4 0778 B K12 121
741 7 28 B DS 4 0782 B K85 121
742 7 29 B TYPERR 4 0786 B S78 121
743 7 30 B TYPERR 4 0790 B S78 121
744 7 31 *
745 7 32 * MACRO CARD
746 7 33 *
747 7 34 ISIOCS MCW @IOCS@,KIND-1 7 0794 M D63 308 122
748 7 35 B MAPCNT&7 4 0801 B 812 122
749 7 36 MAPCNT MCW @MACRO@,KIND 7 0805 M D68 309 122
750 7 37 B SETFRE 4 0812 B T01 122
751 7 38 BCE CALERR,IMAGE&86,7 8 0816 B 828 I16 7 122
752 7 39 B COMXT 4 0824 B J85 122
753 7 40 CALERR MCW @OVERCALL@,PRINT&123 7 0828 M D76 323 123
754 7 41 B BMPERR 4 0835 B L28 123
755 7 42 B COMXT 4 0839 B J85 123
756 7 43 *
757 7 44 * NEW JOB CARD
758 7 45 *
759 7 46 DOJOB MCW OPERND,JOB 7 0843 M I02 C62 123
760 7 47 BW DOIDT,NEWSW 8 0850 V 862 G27 1 123
761 7 48 B PNCHCD 4 0858 B P62 123
762 7 49 DOIDT MCW IMAGE&80,PUNCH&80 7 0862 M I10 180 124
763 7 50 S LINCT 4 0869 S F13 124
764 7 51 B PRTHDG 4 0873 B !00 124
765 7 52 B MAPCNT&7 4 0877 B 812 124
766 7 53 *
767 7 54 * PROGRAM GENERAGED RECORD
1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 16
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
768 7 55 *
769 7 56 PROWRK BCE XTRA,TYPE,Y 8 0881 B 924 075 Y 124
770 7 57 CW OP&1 4 0889 ) 068 124
771 7 58 MCS AOP,PRINT&11 7 0893 Z 070 211 124
772 7 59 SW OP&1 4 0900 , 068 125
773 7 60 BCE ADCON,TYPE,S 8 0904 B 944 075 S 125
774 7 61 BCE LITRAL,TYPEA,1 8 0912 B 999 D59 1 125
775 7 62 B TYPERR 4 0920 B S78 125
776 7 63 *
777 7 64 * LITERAL GREATER THAN 30 CHARACTERS
778 7 65 *
779 7 66 XTRA SW PRINT&27 4 0924 , 227 125
780 7 67 MCW FIXFRM&72,OPRAND 7 0928 M 072 278 125
781 7 68 CHAIN 5 MACRO
782 MCW 1 0935 M GEN 125
783 MCW 1 0936 M GEN 126
784 MCW 1 0937 M GEN 126
785 MCW 1 0938 M GEN 126
786 MCW 1 0939 M GEN 126
787 7 69 B BYPASS 4 0940 B S85 126
788 7 70 *
789 7 71 * ADCON CARD
790 7 72 *
791 7 73 ADCON MCW @ADCON@,KIND 7 0944 M D81 309 126
792 7 74 SW PRINT&27 4 0951 , 227 126
793 7 75 MCW FIXFRM&53,PRINT&40 7 0955 M 053 240 127
794 7 76 MCW FIXFRM&16,OPCODE-2 7 0962 M 016 223 127
795 7 77 DSA MCW BOP,PRINT&95 7 0969 M 073 295 127
796 7 78 MCW BOP,HOLDH&3 7 0976 M 073 D95 127
797 7 79 B SETADD 4 0983 B S45 127
798 7 80 BCE SYMUND,BOP,# 8 0987 B L09 073 # 128
799 7 81 B SETLIT 4 0995 B /56 128
800 7 82 *
801 7 83 * LITERAL AND AREA DEFINITION CARDS
802 7 84 *
803 7 85 LITRAL BWZ PROLIT,TYPE,S 8 0999 V '41 075 S 128
804 7 86 BWZ DADC,FIXFRM&1,B 8 1007 V S28 001 B 128
805 7 87 MCW @RMARK@,KIND 7 1015 M D86 309 128
806 7 88 BCE PROLIT&7,TYPE,A 8 1022 B '48 075 A 129
807 7 89 MCW @G@,KIND-4 7 1030 M D87 305 129
808 7 90 B PROLIT&7 4 1037 B '48 129
809 7 91 PROLIT MCW @LIT@,KIND-2 7 1041 M D90 307 129
810 7 92 MCW FIXFRM&53,PRINT&57 7 1048 M 053 257 129
811 7 93 MCW FIXFRM&16,OPCODE-2 7 1055 M 016 223 130
812 7 94 CONST B SETADD 4 1062 B S45 130
813 7 95 A @00@,COUNT 7 1066 A D92 007 130
814 7 96 C COUNT,@00@ 7 1073 C 007 D92 130
815 7 97 BL GOOD 5 1080 B '96 T 130
816 7 98 MZ ZONE-1,STSTMT 7 1085 Y 188 005 130
817 7 99 B SETLIT 4 1092 B /56 131
1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 17
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
818 8 00 GOOD BCE AREADF,PRINT&27,# 8 1096 B /83 227 # 131
819 8 01 BWZ AREADF,FIXFRM&4,B 8 1104 V /83 004 B 131
820 8 02 MCW OPRAND,HOLDDT-1 7 1112 M 278 E43 131
821 8 03 BCE SETLIT,PRINT&27,@ 8 1119 B /56 227 @ 131
822 8 04 BWZ UNSIGN,PRINT&27,2 8 1127 V /72 227 2 132
823 8 05 MCW COUNT,XR1 7 1135 M 007 089 132
824 8 06 MZ BLANK4,PRINT&27&X1 7 1142 Y D33 2S7 132
825 8 07 MZ PRINT&27,HOLDH&X1 7 1149 Y 227 DZ2 132
826 8 08 SETLIT B SETLOC 4 1156 B U18 132
827 8 09 B CONDNS 4 1160 B L54 132
828 8 10 LITOUT B PRNTLN 4 1164 B Y54 133
829 8 11 B BYPASS 4 1168 B S85 133
830 8 12 UNSIGN MCW OPRAND,HOLDDT#52 7 1172 M 278 E44 133
831 8 13 B SETLIT 4 1179 B /56 133
832 8 14 AREADF BW *&5,TYPESW 8 1183 V /95 D58 1 133
833 8 15 B SETLIT 4 1191 B /56 133
834 8 16 MCW FIXFRM&13,LAB 7 1195 M 013 219 133
835 8 17 MCW BLANK4-2,PRINT&31 7 1202 M D31 231 134
836 8 18 MCW COUNT 4 1209 M 007 134
837 8 19 MCW @#@ 4 1213 M E45 134
838 8 20 MCW @AREA@,KIND-1 7 1217 M E49 308 134
839 8 21 B SETLIT 4 1224 B /56 134
840 8 22 DADC B SETADD 4 1228 B S45 134
841 8 23 B CONDNS 4 1232 B L54 134
842 8 24 CS PRINT&132 4 1236 / 332 135
843 8 25 CS 1 1240 / 135
844 8 26 B BYPASS 4 1241 B S85 135
845 8 27 *
846 8 28 * SET CONDENSE ADDRESSES FOR CONSTANTS
847 8 29 *
848 8 30 SETADD SBR ADDXT&3 4 1245 H S77 135
849 8 31 ZA LABADD,LOADAD 7 1249 ? 061 E83 135
850 8 32 MCW LOADAD 4 1256 M E83 135
851 8 33 S COUNT,WMADDR 7 1260 S 007 E78 135
852 8 34 A &1,WMADDR 7 1267 A D55 E78 136
853 8 35 ADDXT B XXXX 4 1274 B 000 136
854 8 36 *
855 8 37 * GET NEXT RECORDS
856 8 38 *
857 8 39 TYPERR H XXXX,770 7 1278 . 000 770 136
858 8 40 BYPASS B GET 4 1285 B A24 136
859 8 41 BW ANALWK,TYPESW 8 1289 V 604 D58 1 136
860 8 42 B GETORG 4 1297 B 600 136
861 8 43 *
862 8 44 * FREE FORM RECORD TO PRINT AREA
863 8 45 *
864 8 46 SETFRE SBR FREEXT&3 4 1301 H T89 136
865 8 47 MCS ALTNO,ALT 7 1305 Z I14 204 137
866 8 48 MCS PAGENO,PG 7 1312 Z H32 207 137
867 8 49 MZ PAGENO,PG 7 1319 Y H32 207 137
1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 18
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
868 8 50 MCW LINENO,LIN 7 1326 M H35 211 137
869 8 51 MCW LABEL,LAB 7 1333 M H41 219 137
870 8 52 MCW MNEMON,OPCODE 7 1340 M H50 225 138
871 8 53 MCW OPERND,OPRAND 7 1347 M I02 278 138
872 8 54 BCE IOGEN,IMAGE&75,Z 8 1354 B T90 I05 Z 138
873 8 55 BCE IOGEN,IMAGE&75,Y 8 1362 B T90 I05 Y 138
874 8 56 BCE GENSTM,IMAGE&75,C 8 1370 B T97 I05 C 138
875 8 57 BCE GENSTM,IMAGE&75,S 8 1378 B T97 I05 S 139
876 8 58 FREEXT B XXXX 4 1386 B 000 139
877 8 59 IOGEN MCW @IO@,KIND 7 1390 M E51 309 139
878 8 60 GENSTM MCW @GEN@,KIND-2 7 1397 M E54 307 139
879 8 61 BCE COMERR,IMAGE&86,B 8 1404 B J97 I16 B 139
880 8 62 B FREEXT 4 1412 B T86 139
881 8 63 DCW @ @ 1 1416 139
882 8 64 OV1GM DC @}@ 1 1417 GMARK 140
883 8 65 *
884 8 66 * ASSEMBLED INFORMATION TO PRINT AREA
885 8 67 *
886 8 68 SETLOC SBR LOCXT&3 4 1418 H V01 140
887 8 69 MCS COUNT,CT 7 1422 Z 007 284 140
888 8 70 MCW SFXCTR,SUFFIX 7 1429 M G18 280 140
889 8 71 MN LABADD,LOCN 7 1436 D 061 290 140
890 8 72 MCW 1 1443 M 141
891 8 73 BWZ TSTFR,LABADD-1,2 8 1444 V U66 060 2 141
892 8 74 MCW @X@,PRINT&92 7 1452 M E55 292 141
893 8 75 MZ BLANK1,PRINT&89 7 1459 Y D30 289 141
894 8 76 TSTFR BCE FOURCH,LABADD-4,0 8 1466 B V02 057 0 141
895 8 77 TSTLBL BM DBLDEF,STLABL 8 1474 V V13 002 K 141
896 8 78 TSTSTM BM STMBAD,STSTMT 8 1482 V V28 005 K 142
897 8 79 BWZ STMBAD,STSTMT,S 8 1490 V V28 005 S 142
898 8 80 LOCXT B XXXX 4 1498 B 000 142
899 8 81 FOURCH MCW BLANK1,LOCN-4 7 1502 M D30 286 142
900 8 82 B TSTLBL 4 1509 B U74 142
901 8 83 DBLDEF MCW @LABEL@,PRINT&120 7 1513 M E60 320 142
902 8 84 B BMPERR 4 1520 B L28 143
903 8 85 B TSTSTM 4 1524 B U82 143
904 8 86 STMBAD MCW @BAD STATEMENT@,PRINT&128 7 1528 M E73 328 143
905 8 87 B BMPERR 4 1535 B L28 143
906 8 88 B LOCXT 4 1539 B U98 143
907 8 89 *
908 8 90 * INSTRUCTION CARD
909 8 91 *
910 8 92 INSTR MCW DMOD,INDMOD 7 1543 M 074 303 143
911 8 93 MCW BOP,INBOP 7 1550 M 073 301 143
912 8 94 MCW AOP,INAOP 7 1557 M 070 297 144
913 8 95 MCW OP,INOP 7 1564 M 067 293 144
914 8 96 MCW DMOD,HOLDH&8 7 1571 M 074 E00 144
915 8 97 MCW 1 1578 M 144
916 8 98 MCW 1 1579 M 144
917 8 99 MCW 1 1580 M 144
1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 19
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
918 9 00 MCW LABADD,WMADDR#5 7 1581 M 061 E78 144
919 9 01 MCW LABADD,LOADAD#5 7 1588 M 061 E83 145
920 9 02 A COUNT,LOADAD 7 1595 A 007 E83 145
921 9 03 S &1,LOADAD 7 1602 S D55 E83 145
922 9 04 BCE SYMUND,BOP,# 8 1609 B L09 073 # 145
923 9 05 BCE SYMUND,AOP,# 8 1617 B L09 070 # 145
924 9 06 BCE BADOP,OP, 8 1625 B W37 067 146
925 9 07 B SETLIT 4 1633 B /56 146
926 9 08 BADOP MCW @ OP@,PRINT&123 7 1637 M E86 323 146
927 9 09 B BMPERR 4 1644 B L28 146
928 9 10 B SETLIT 4 1648 B /56 146
929 9 11 *
930 9 12 * DEFINE AREA CARDS
931 9 13 *
932 9 14 DA BCE HEADER,TYPE,0 8 1652 B X41 075 0 146
933 9 15 MCW SUPADD,WMADDR 7 1660 M 066 E78 147
934 9 16 MCW @FIELD@,KIND 7 1667 M E91 309 147
935 9 17 BWZ SETDA,TYPE,B 8 1674 V W93 075 B 147
936 9 18 MCW @SBF@,KIND-2 7 1682 M E94 307 147
937 9 19 B ORGXT 4 1689 B K62 147
938 9 20 SETDA B SETLOC 4 1693 B U18 147
939 9 21 B CONDNS 4 1697 B L54 148
940 9 22 B PRNTLN 4 1701 B Y54 148
941 9 23 BYPDA B GET 4 1705 B A24 148
942 9 24 BCE RPTOUT,TYPE,' 8 1709 B X21 075 ' 148
943 9 25 B GETORG 4 1717 B 600 148
944 9 26 RPTOUT MCW SUPADD,WMADDR 7 1721 M 066 E78 148
945 9 27 B CONDNS 4 1728 B L54 148
946 9 28 CS PRINT&132 4 1732 / 332 149
947 9 29 CS 1 1736 / 149
948 9 30 B BYPDA 4 1737 B X05 149
949 9 31 HEADER BWZ BADDA,FIXFRM&4,B 8 1741 V Y24 004 B 149
950 9 32 B SETLOC 4 1749 B U18 149
951 9 33 NXTRPT MN SUPADD,PRINT&97 7 1753 D 066 297 149
952 9 34 MCW 1 1760 M 149
953 9 35 MCW LABADD,WMADDR 7 1761 M 061 E78 150
954 9 36 B CONDNS 4 1768 B L54 150
955 9 37 B GET 4 1772 B A24 150
956 9 38 C FIXFRM&16,@DA @ 7 1776 C 016 E97 150
957 9 39 BU PNTDA 5 1783 B X96 / 150
958 9 40 BCE NXTRPT,TYPE,' 8 1788 B X53 075 ' 150
959 9 41 PNTDA BCE ADDR4K,PRINT&93,0 8 1796 B Y39 293 0 151
960 9 42 C PRINT&97,OBJCOR 7 1804 C 297 C09 151
961 9 43 BL PUADSW 5 1811 B K97 T 151
962 9 44 B PRNTLN 4 1816 B Y54 151
963 9 45 B GETORG 4 1820 B 600 151
964 9 46 BADDA MCW @ NO B X L@,PRINT&129 7 1824 M F06 329 151
965 9 47 B BMPERR 4 1831 B L28 151
966 9 48 B HEADER&8 4 1835 B X49 152
967 9 49 ADDR4K SBR AD4KXT&3 4 1839 H Y53 152
1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 20
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
968 9 50 MCW BLANK1,PRINT&93 7 1843 M D30 293 152
969 9 51 AD4KXT B XXXX 4 1850 B 000 152
970 9 52 *
971 9 53 * PRINT STATEMENTS
972 9 54 *
973 9 55 PRNTLN SBR PRNTXT&3 4 1854 H Z50 152
974 9 56 BCE DOPNT,LOCN, 8 1858 B Y86 290 152
975 9 57 BCE DOPNT,TYPEA,7 8 1866 B Y86 D59 7 152
976 9 58 C LOCN,@ 0081@ 7 1874 C 290 F11 153