-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathautocoder2.lst
More file actions
2445 lines (2395 loc) · 247 KB
/
autocoder2.lst
File metadata and controls
2445 lines (2395 loc) · 247 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 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 1
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
101 1 01 001 JOB 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3
102 1 02 CTL 630 1
103 1 03 SFX I I
104 1 04 OTHER EQU START I 0101
105 1 05 MINUS2 EQU 2 I 0002
106 1 06 MINUS3 EQU 3 I 0003
107 1 07 DIOCSB EQU LABDIO-4 I 0576
108 1 08 ORG 1 I 0001
109 1 09 MAINX DA 1X86 I 0001 0086 ADDR
110 1 10 LMAINX EQU * I 0086
111 1 11 * XINIT INDEX1,INDEX2,INDEX3
112 01 INDEX1 EQU 089 I 0089
113 02 089 DCW 000 I 3 0089 4
114 04 091 DC 00 I 2 0091 4
115 05 INDEX2 EQU 094 I 0094
116 06 094 DCW 000 I 3 0094 4
117 08 096 DC 00 I 2 0096 4
118 09 INDEX3 EQU 099 I 0099
119 10 099 DCW 000 I 3 0099 4
120 12 100 DC 0 I 1 0100 4
121 1 12 *
122 1 13 * START OF MAIN LINE
123 1 14 *
124 1 15 ORG 101 I 0101
125 1 16 START RWD 4 I 5 0101 U %U4 R 4
126 1 17 RWD 5 I 5 0106 U %U5 R 4
127 1 18 RWD 6 I 5 0111 U %U6 R 4
128 1 19 BSS OVLAY2,B I 5 0116 B P32 B 5
129 1 20 B REDREC I 4 0121 B 774 5
130 1 21 C MAINX&17, @JOB@ I 7 0125 C 018 W05 5
131 1 22 BU CMCTL I 5 0132 B 157 / 5
132 1 23 CC 1 I 2 0137 F 1 5
133 1 24 MCW 80,280 I 7 0139 M 080 280 5
134 1 25 W I 1 0146 2 5
135 1 26 N1 CC 1 IN REV 0. I 2 0147 N 1 6
136 1 27 B WRTREC I 4 0149 B 721 6
137 1 28 B REDREC I 4 0153 B 774 6
138 1 29 CMCTL C MAINX&17, @CTL@ I 7 0157 C 018 W08 6
139 1 30 BU FIND I 5 0164 B 642 / 6
140 1 31 BCE ROBIN,MAINX&23,1 I 8 0169 B 623 024 1 6
141 1 32 MN MAINX&21,*&8 I 7 0177 D 022 191 6
142 1 33 BCE ROBIN,@456@, I 8 0184 B 623 W11 7
143 1 34 CHAIN 2 I MACRO
144 BCE I 1 0192 B GEN 7
145 BCE I 1 0193 B GEN 7
146 1 35 B BLUE I 4 0194 B 627 7
147 1 36 ORG 201 I 0201
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 2
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
148 1 37 DA 1X132 I 0201 0332
149 1 38 6,6 I 0206 FIELD
150 1 39 DTFTAB EQU LABDTF-1 I 0349
151 1 40 ORG 333 I 0333
152 1 41 EITHER B NEXREC I 4 0333 B 681 8
153 1 42 *
154 1 43 * CONTROL CARD INFORMATION
155 1 44 *
156 1 45 SPECL DCW @*@ I 1 0337 8
157 1 46 SYMNM DCW #3 I 3 0340 8
158 1 47 *
159 1 48 * DTF MAJOR TABLE
160 1 49 *
161 1 50 DCW @,@ I 1 0341 8
162 1 51 DCW @;@ COBOL YES I 1 0342 8
163 1 52 DCW @;@ EXITS YES I 1 0343 8
164 1 53 FILENM DCW #6 I 6 0349 8
165 1 54 LABDTF DCW @;@ 1 INPUT 1 FILETYPE I 1 0350 9
166 1 55 DCW @;@ 2 OUTPUT 2 I 1 0351 9
167 1 56 DCW @;@ 3 TAPE 3 I 1 0352 9
168 1 57 DCW @;@ 4 READER 4 I 1 0353 9
169 1 58 DCW @;@ 5 PUNCH 5 I 1 0354 9
170 1 59 DCW @;@ 6 PRINTER 6 I 1 0355 9
171 1 60 DCW @;@ 7 LOAD 7 MODEPAR I 1 0356 9
172 1 61 DCW @;@ 8 CHECKPOINT 8 FEATURES I 1 0357 10
173 1 62 DCW @;@ 9 NUMBER 9 CHANDRIVE I 1 0358 10
174 1 63 DCW @;@ 10 NUMBER 10 CARDPOC I 1 0359 10
175 1 64 DCW @;@ 11 NUMBER 11 ALTTAPE I 1 0360 10
176 1 65 DCW @;@ 12 BLOCKED 12 RECFORM I 1 0361 10
177 1 66 DCW @;@ 13 UNBLOCKED 13 I 1 0362 10
178 1 67 DCW @;@ 14 MIXED 14 I 1 0363 10
179 1 68 DCW @;@ 15 VARIABLE 15 I 1 0364 11
180 1 69 DCW @ ;@ 16-19 NUMBER 16 SIZEREC I 4 0368 11
181 1 70 DCW @;@ 20 NUMBER 17 PADDING I 1 0369 11
182 1 71 DCW @ ;@ 21-24 NUMBER 18 BLOCKSIZE I 4 0373 11
183 1 72 DCW @ ;@ 25-34 LABELS 19 IOAREAS I 10 0383 11
184 1 73 DCW @ ;@ 35-44 20 I 10 0393 11
185 1 74 DCW @ ;@ 45-54 21 WORKAREA I 10 0403 12
186 1 75 DCW @;@ 55 NUMBER 22 INDEXREG I 1 0404 12
187 1 76 DCW @ ;@ 56-65 LABEL 23 EORADDR I 10 0414 12
188 1 77 DCW @ ;@ 66-75 LABEL 24 WLRADDR I 10 0424 12
189 1 78 DCW @;@ 76 RECORD 25 TOTALS I 1 0425 12
190 1 79 DCW @ ;@ 77-80 HASH 26 I 4 0429 12
191 1 80 DCW @;@ 81 STANDARD 27 I 1 0430 12
192 1 81 DCW @;@ 82 NONSTANDARD 28 I 1 0431 13
193 1 82 DCW @;@ 83 TM 29 I 1 0432 13
194 1 83 DCW @;@ 84 ALL 30 I 1 0433 13
195 1 84 DCW @;@ 85 IDENT 31 I 1 0434 13
196 1 85 DCW @ ;@ I 3 0437 13
197 1 86 DCW @ ;@ I 5 0442 13
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 3
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
198 1 87 DCW @ ;@ I 10 0452 13
199 1 88 DCW @ ;@ 104-108 NUMBER 35 SERIALNUM I 5 0457 14
200 1 89 DCW @ ;@ 109-118 39 EX1ADDR I 10 0467 14
201 1 90 DCW @ ;@ 119-128 40 EX2ADDR I 10 0477 14
202 1 91 DCW @ ;@ 129-138 41 EX3ADDR I 10 0487 14
203 1 92 DCW @ ;@ 139-148 42 EX4ADDR I 10 0497 15
204 1 93 DCW @ ;@ 149-158 43 EX5ADDR I 10 0507 15
205 1 94 DCW @ ;@ 159-168 44 EX6ADDR I 10 0517 15
206 1 95 DCW @ ;@ 169-178 45 EX7ADDR I 10 0527 16
207 1 96 DCW @ ;@ 179-188 46 EX8ADDR I 10 0537 16
208 1 97 DCW @ ;@ 189-198 47 VARBUILD I 10 0547 16
209 1 98 DCW @;@ 199 UNLOAD 37 I 1 0548 16
210 1 99 DCW @;@ 100 NOREWD 38 I 1 0549 16
211 2 00 DCW @;@ 9 201 OVERFLOW I 1 0550 16
212 2 01 DCW @;@ 12 202 I 1 0551 16
213 2 02 DCW @ ;@ 203-205 NUMBER REELSEQP I 3 0554 17
214 2 03 DCW @;@ 206 FORMCNTL I 1 0555 17
215 2 04 DCW #9 I 9 0564 17
216 2 05 DCW @;@ 216 ADDRESS OVERFLOW I 1 0565 17
217 2 06 DCW @ @ I 1 0566 17
218 2 07 ENDDTF DCW @ @ I 1 0567 17
219 2 08 *
220 2 09 * DIOCS MAJOR TABLE
221 2 10 *
222 2 11 DCW @,@ I 1 0568 17
223 2 12 DIVIDE EQU * I 0568
224 2 13 DCW @;@ 40 PAR OUT TAPEUSE I 1 0569 18
225 2 14 DCW @;@ 39 PAR INP TAPEUSE I 1 0570 18
226 2 15 DCW @;@ 38 PAR YES EXITS I 1 0571 18
227 2 16 LABDIO DCW #9 DIOCSORG I 9 0580 18
228 2 17 DCW @;@ 5 I 1 0581 18
229 2 18 DCW @;@ 6 OVERLAP FEATURES I 1 0582 18
230 2 19 DCW @;@ 7 TAPE IODEVICES I 1 0583 18
231 2 20 DCW @;@ 8 READER I 1 0584 19
232 2 21 DCW @;@ 9 PUNCH I 1 0585 19
233 2 22 DCW @;@ 10 PRINTER I 1 0586 19
234 2 23 DCW @;@ 11 STANDARD LABELDEF I 1 0587 19
235 2 24 DCW @;@ 12 NONSTANDARD I 1 0588 19
236 2 25 DCW @;@ 13 MIXED I 1 0589 19
237 2 26 DCW @;@ 14 CHECK I 1 0590 19
238 2 27 DCW @;@ 15 IDENT I 1 0591 20
239 2 28 DCW @;@ 16 TM I 1 0592 20
240 2 29 DCW @;@ 17 YES ALTDRIVE I 1 0593 20
241 2 30 DCW @;@ 18 1 EXITS I 1 0594 20
242 2 31 DCW @;@ 19 2 I 1 0595 20
243 2 32 DCW @;@ 20 3 I 1 0596 20
244 2 33 DCW @;@ 21 4 I 1 0597 20
245 2 34 DCW @;@ 22 5 I 1 0598 21
246 2 35 DCW @;@ 23 6 I 1 0599 21
247 2 36 DCW @;@ 24 7 I 1 0600 21
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 4
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
248 2 37 DCW @;@ 25 8 I 1 0601 21
249 2 38 DCW @;@ RDLIN LABELDEF I 1 0602 21
250 2 39 DCW @;@ 27 729 DRIVETYPE I 1 0603 21
251 2 40 DCW @;@ 28 7330 I 1 0604 21
252 2 41 DCW @;@ 29 NORWD RWDOPTION I 1 0605 22
253 2 42 DCW @;@ 30 UNLOAD I 1 0606 22
254 2 43 DCW @;@ 31 TAPE,# READERROR I 1 0607 22
255 2 44 DCW @;@ 32 SCAN I 1 0608 22
256 2 45 DCW @;@ 33 PROCESS I 1 0609 22
257 2 46 DCW @;@ CLEAN READERROR I 1 0610 22
258 2 47 DCW @;@ 35 YES INPVAR I 1 0611 22
259 2 48 DCW @;@ 36 YES INPFXNO I 1 0612 23
260 2 49 DCW @;@ 37 RECORD COUNTS I 1 0613 23
261 2 50 DCW @;@ 38 HASH I 1 0614 23
262 2 51 DCW #5 I 5 0619 23
263 2 52 DCW @;@ 39-44 CHECKPOINT I 1 0620 23
264 2 53 DCW @;@ 45 RELEASE FEATURES I 1 0621 23
265 2 54 ENDDIO DCW @;@ 46 STORAGE I 1 0622 23
266 2 55 *
267 2 56 *
268 2 57 ROBIN S SPECL I 4 0623 S 337 24
269 2 575 BLUE MCW MAINX&25,NORDRL#1 I 7 0627 M 026 W12 24
270 2 58 THRU B WRTREC I 4 0634 B 721 24
271 2 59 B REDREC I 4 0638 B 774 24
272 2 60 FIND C MAINX&19,KDIOCS I 7 0642 C 020 V71 24
273 2 61 BE GOTIT I 5 0649 B 670 S 24
274 2 62 *
275 2 63 *
276 2 64 * READ IN PHASE 2
277 2 65 *
278 2 66 *
279 2 67 BCE THRU,MAINX&5,* I 8 0654 B 634 006 * 24
280 2 68 PREPS2 B SAVCD I 4 0662 B O98 25
281 2 69 B PASS2 I 4 0666 B V06 25
282 2 70 GOTIT MCW @M@,LENGTH I 7 0670 M W13 743 25
283 2 72 WHOM B WRTREC I 4 0677 B 721 25
284 2 73 NEXREC B REDREC I 4 0681 B 774 25
285 2 74 GAMMA BCE WHOM,MAINX&5,* I 8 0685 B 677 006 * 25
286 2 75 C MAINX&17,@DTF@ I 7 0693 C 018 W16 25
287 2 76 BE DTFND I 5 0700 B 713 S 26
288 2 77 B WRTREC I 4 0705 B 721 26
289 2 78 B UPPER I 4 0709 B 821 26
290 2 79 DTFND B SAVCD I 4 0713 B O98 26
291 2 80 B CRDOUT I 4 0717 B J68 26
292 2 81 *
293 2 82 * WRITE ROUTINE
294 2 83 *
295 2 84 WRTREC SBR WRTEXT&3 I 4 0721 H 761 26
296 2 85 MCW LMAINX,LOPUT-1 I 7 0725 M 086 I97 26
297 2 86 SW LOPUT I 4 0732 , I98 27
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 5
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
298 2 87 MCW GMWMRK,LOPUT I 7 0736 M 773 I98 27
299 2 88 LENGTH NOP @W@,OUTPT&74 I 7 0743 N W17 I86 27
300 2 89 SHORT B CTAPE I 4 0750 B S22 27
301 2 90 NOP TDF6 I 4 0754 N 764 27
302 2 91 WRTEXT B 0 I 4 0758 B 000 27
303 2 92 TDF6 DCW 000 I 3 0764 27
304 2 93 WT 6,OUTPT I 8 0765 M %U6 I12 W 28
305 2 94 GMWMRK DC @}@ I 1 0773 GMARK 28
306 2 95 *
307 2 96 * READ ROUTINE
308 2 97 *
309 2 98 REDREC SBR REDEXT&3 I 4 0774 H 809 28
310 2 99 CS LMAINX I 4 0778 / 086 28
311 3 00 BSS RTWED,C I 5 0782 B 798 C 28
312 3 01 BLC DTFOUT I 5 0787 B M46 A 28
313 3 02 R I 1 0792 1 28
314 3 03 SSB REDEXT,1 I 5 0793 K 806 1 28
315 3 04 RTWED B CTAPE I 4 0798 B S22 29
316 3 05 NOP TDF4 I 4 0802 N 812 29
317 3 06 REDEXT B 0 I 4 0806 B 000 29
318 3 07 TDF4 DCW &DTFOUT I 3 0812 M46 29
319 3 08 RT 4,MAINX I 8 0813 M %U4 001 R 29
320 3 09 *
321 3 10 * LOOK UP LABEL
322 3 11 *
323 3 12 UPPER CW SCNSW#1 I 4 0821 ) W18 29
324 3 13 BCE NEXREC,MAINX&20, I 8 0825 B 681 021 29
325 3 14 SBR CHAIR&3,LSTPAR I 7 0833 H O66 O75 30
326 3 15 S INDEX2&1 I 4 0840 S 095 30
327 3 16 SBR INDEX3,LBLTBL I 7 0844 H 099 H46 30
328 3 17 COMPR C MAINX&7,0&X3 I 7 0851 C 008 0?0 30
329 3 18 SBR INDEX3 I 4 0858 H 099 30
330 3 19 BE COMEQ I 5 0862 B 984 S 30
331 3 20 BCE NEXREC,0&X3,@ I 8 0867 B 681 0?0 @ 31
332 3 21 A @7@,INDEX2 I 7 0875 A W19 094 31
333 3 22 B COMPR I 4 0882 B 851 31
334 3 23 BRTBL B ACTSCN I 4 0886 B /13 31
335 3 24 DCW &DIOCSB&36 INPFXNO I 3 0892 612 31
336 3 25 B REASB I 4 0893 B /73 31
337 3 26 DCW #3 READERROR I 3 0899 31
338 3 27 B OPDSCN I 4 0900 B O14 32
339 3 28 DCW &RWDTB RWDOPT I 3 0906 F95 32
340 3 29 B OPDSCN I 4 0907 B O14 32
341 3 30 DCW &DRITB DRIVETYPE I 3 0913 F82 32
342 3 31 B OPDSCN I 4 0914 B O14 32
343 3 32 DCW &COUTB COUNTS I 3 0920 G08 32
344 3 33 B ACTSCN I 4 0921 B /13 32
345 3 34 DCW &DIOCSB&35 VARINP I 3 0927 611 33
346 3 35 B EXISB I 4 0928 B 992 33
347 3 36 DCW #3 I 3 0934 33
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 6
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
348 3 37 B ACTSCN I 4 0935 B /13 33
349 3 38 DCW &DIOCSB&17 ALTDRIVE I 3 0941 593 33
350 3 39 B OPDSCN I 4 0942 B O14 33
351 3 40 DCW &LABTB LABELDEF I 3 0948 F20 33
352 3 41 B OPDSCN I 4 0949 B O14 34
353 3 42 DCW &IODTB IODEVICES I 3 0955 E77 34
354 3 43 B OPDSCN I 4 0956 B O14 34
355 3 44 DCW &FEATB FEATURES I 3 0962 E52 34
356 3 45 B DIOSB DIOCSORG I 4 0963 B /47 34
357 3 46 DCW &DIOCSB&5 I 3 0969 581 34
358 3 47 B DIOSB I 4 0970 B /47 34
359 3 48 DCW &DIOCSB&44 I 3 0976 620 35
360 3 49 B OPDSCN I 4 0977 B O14 35
361 3 50 DCW &TAPTB I 3 0983 E33 35
362 3 51 COMEQ S INDEX3&1 I 4 0984 S 100 35
363 3 52 B BRTBL&X2 I 4 0988 B 8Q6 35
364 3 53 *
365 3 54 EXISB LCA @$@,DIVIDE&3 I 7 0992 L W20 571 35
366 3 55 B OPDSCN I 4 0999 B O14 35
367 3 56 DCW &EXITB EXITS I 3 1005 F69 36
368 3 57 *
369 3 58 NEWSCN SBR NWEXT&3 I 4 1006 H /04 36
370 3 59 MCW @ @,OPDAR#3 I 7 1010 M W23 W26 36
371 3 60 S INDEX2&1 I 4 1017 S 095 36
372 3 61 NWSCNL C MAINX&21&X3,@ @ I 7 1021 C 0B2 W28 36
373 3 62 SW MAINX&20 I 4 1028 , 021 36
374 3 63 BE FDBLK I 5 1032 B '90 S 36
375 3 64 BCE FOUND,MAINX&20&X3,, I 8 1037 B /05 0B1 , 37
376 3 65 C INDEX3,@52@ I 7 1045 C 099 W30 37
377 3 66 BE BLKFD I 5 1052 B '97 S 37
378 3 67 MCW MAINX&20&X3,OPDAR-2&X2 I 7 1057 M 0B1 WK4 37
379 3 68 A @1@,INDEX2 I 7 1064 A W31 094 37
380 3 69 BCE FOUND,INDEX2,3 I 8 1071 B /05 094 3 38
381 3 70 A @1@,INDEX3 I 7 1079 A W31 099 38
382 3 71 B NWSCNL I 4 1086 B '21 38
383 3 72 FDBLK A @1@,INDEX3 I 7 1090 A W31 099 38
384 3 73 BLKFD SW SCNSW I 4 1097 , W18 38
385 3 74 NWEXT B 0 I 4 1101 B 000 38
386 3 75 FOUND B SCANX I 4 1105 B N55 38
387 3 76 B NWEXT I 4 1109 B /01 39
388 3 77 *
389 3 78 * ACTUAL SCAN FOR YES
390 3 79 *
391 3 80 ACTSCN SBR INDEX1 I 4 1113 H 089 39
392 3 81 MCW 2&X1,INDEX1 I 7 1117 M 0'2 089 39
393 3 82 C MAINX&22,@YES@ I 7 1124 C 023 W34 39
394 3 83 BU ACTOUT I 5 1131 B /43 / 39
395 3 84 LCA @$@,0&X1 I 7 1136 L W20 0'0 39
396 3 85 ACTOUT B EITHER I 4 1143 B 333 39
397 3 86 *
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 7
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
398 3 87 * DIOCSORG
399 3 88 *
400 3 89 DIOSB SBR INDEX1 I 4 1147 H 089 40
401 3 90 MCW 2&X1,INDEX1 I 7 1151 M 0'2 089 40
402 3 91 B SCANX I 4 1158 B N55 40
403 3 92 LCA MAINX&18&X3,0&X1 I 7 1162 L 0A9 0'0 40
404 3 93 B NEXREC I 4 1169 B 681 40
405 3 94 *
406 3 95 * READERROR
407 3 96 *
408 3 97 REASB SBR CHAIR&3,CHTAP I 7 1173 H O66 /87 40
409 3 98 B OPDSCN I 4 1180 B O14 40
410 3 99 DCW &REATB I 3 1186 G27 41
411 4 00 CHTAP C OPDAR,@TAP@ I 7 1187 C W26 W37 41
412 4 01 BU LSTPAR I 5 1194 B O75 / 41
413 4 02 B SCANX I 4 1199 B N55 41
414 4 03 BCE LSTPAR,MAINX&18&X3, I 8 1203 B O75 0A9 41
415 4 04 MCW MAINX&18&X3,DIOCSB&31 I 7 1211 M 0A9 607 41
416 4 05 B LSTPAR I 4 1218 B O75 41
417 4 06 *
418 4 07 * COMBINATION READ/ WRITE ROUTINE
419 4 08 *
420 4 09 CTAPE SBR INDEX2 I 4 1222 H 094 42
421 4 10 SBR ICONPR&3 I 4 1226 H T43 42
422 4 11 MCW 3&X2,INDEX2 I 7 1230 M 0!3 094 42
423 4 12 MCW 8&X2,ITAPEC&7 I 7 1237 M 0!8 T01 42
424 4 13 MCW 0&X2,IEORC&3 I 7 1244 M 0!0 T13 42
425 4 14 SW ICOMPR&4 I 4 1251 , T19 42
426 4 15 MCW 7&X2,ICOMPR&6 I 7 1255 M 0!7 T21 43
427 4 16 A @12@,ICOMPR&6 I 7 1262 A W39 T21 43
428 4 17 CW ICOMPR&4 I 4 1269 ) T19 43
429 4 18 MN ITAPEC&3,IHALT&6 I 7 1273 D S97 U28 43
430 4 19 MN ITAPEC&7,IHALT&6 I 7 1280 D T01 U28 43
431 4 20 MCW @9@,IERRCT#1 I 7 1287 M W40 W41 43
432 4 21 ITAPEC RT 0,0 I 8 1294 M %U0 000 R 44
433 4 22 BCE IOMETS,ITAPEC&7,W I 8 1302 B T35 T01 W 44
434 4 23 IEORC BEF 0 I 5 1310 B 000 K 44
435 4 24 ICOMPR BCE ITAPEC,0,} I 8 1315 B S94 000 } GMARK 44
436 4 25 CHAIN 12 I MACRO
437 BCE I 1 1323 B GEN 44
438 BCE I 1 1324 B GEN 44
439 BCE I 1 1325 B GEN 44
440 BCE I 1 1326 B GEN 45
441 BCE I 1 1327 B GEN 45
442 BCE I 1 1328 B GEN 45
443 BCE I 1 1329 B GEN 45
444 BCE I 1 1330 B GEN 45
445 BCE I 1 1331 B GEN 45
446 BCE I 1 1332 B GEN 45
447 BCE I 1 1333 B GEN 46
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 8
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
448 BCE I 1 1334 B GEN 46
449 4 26 IOMETS BER IRWRED I 5 1335 B T44 L 46
450 4 27 ICONPR B 0 I 4 1340 B 000 46
451 4 28 IRWRED S @1@,IERRCT I 7 1344 S W31 W41 46
452 4 29 MN ITAPEC&3,*&4 I 7 1351 D S97 T61 46
453 4 30 BSP 0 I 5 1358 U %U0 B 46
454 4 31 BCE ITROW,ITAPEC&7,W I 8 1363 B T83 T01 W 47
455 4 32 BM IHALT,IERRCT I 8 1371 V U22 W41 K 47
456 4 33 B ITAPEC I 4 1379 B S94 47
457 4 34 ITROW A @1@,IERASC#2 I 7 1383 A W31 W43 47
458 4 35 SKP 6 I 5 1390 U %U6 E 47
459 4 36 BCE ICHALT,IERASC-1,5 I 8 1395 B U07 W42 5 48
460 4 37 B ITAPEC-7 I 4 1403 B S87 48
461 4 38 ICHALT S IERASC I 4 1407 S W43 48
462 4 39 H 0,202 I 7 1411 . 000 202 48
463 4 40 B ITAPEC-7 I 4 1418 B S87 48
464 4 41 IHALT H 0,200 I 7 1422 . 000 200 48
465 4 42 BSS ITAPEC-7,E I 5 1429 B S87 E 48
466 4 43 MCW ITAPEC&7,*&8 I 7 1434 M T01 U48 49
467 4 44 RT 0,0 I 8 1441 M %U0 000 R 49
468 4 45 H 0,201 I 7 1449 . 000 201 49
469 4 46 B ICONPR I 4 1456 B T40 49
470 4 47 PASSI LCA ENDDIO,ENDDTF I 7 1460 L 622 567 49
471 4 48 LCA I 1 1467 L 49
472 4 49 SBR EITHER&3,DIFREC I 7 1468 H 336 M06 50
473 4 50 MCW &DTFTAB&X1,OPDFND&6 I 7 1475 M W46 O93 50
474 4 51 LCA 186,LMAINX I 7 1482 L 186 086 50
475 4 52 B WRTREC I 4 1489 B 721 50
476 4 53 B DTFNM I 4 1493 B L91 50
477 4 54 ALTBY B BYPSS I 4 1497 B C49 50
478 4 55 BSP 4 I 5 1501 U %U4 B 50
479 4 56 PASS2 RT 1,3997 I 8 1506 M %U1 I97 R 51
480 4 57 RT 1,3997 I 8 1514 M %U1 I97 R 51
481 4 58 SBR TDF1&7,341 I 7 1522 H P30 341 51
482 4 59 B CTAPE I 4 1529 B S22 51
483 4 60 NOP TDF1 I 4 1533 N P23 51
484 4 61 B OVLY3 I 4 1537 B 341 51
485 4 62 *
486 4 63 NUMERC SBR INDEX1 I 4 1541 H 089 51
487 4 64 MCW 2&X1,INDEX1 I 7 1545 M 0'2 089 52
488 4 65 SW MAINX&20 I 4 1552 , 021 52
489 4 66 MCW MAINX&20,DTFTAB&X1 I 7 1556 M 021 3U9 52
490 4 67 B DIFREC I 4 1563 B M06 52
491 4 68 KDIOCS DCW @DIOCS@ I 5 1571 52
492 4 69 BLORB B SCANX I 4 1572 B N55 52
493 4 70 A MAINX&18&X3,BLOWA-1 I 7 1576 A 0A9 W01 52
494 4 71 LCA BLOWA-1,DTFTAB&24 I 7 1583 L W01 373 53
495 4 72 S BLOWA I 4 1590 S W02 53
496 4 73 B EITHER I 4 1594 B 333 53
497 4 74 BLOWA DCW &00000 I 5 1602 53
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 9
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
498 4 75 LTORG * I 1603
DCW @JOB@ I 3 1605 LIT 53
DCW @CTL@ I 3 1608 LIT 53
DCW @456@ I 3 1611 LIT 53
NORDRL DCW #01 I 1 1612 AREA 54
DCW @M@ I 1 1613 LIT 54
DCW @DTF@ I 3 1616 LIT 54
DCW @W@ I 1 1617 LIT 54
SCNSWI DCW #01 I 1 1618 AREA 54
DCW @7@ I 1 1619 LIT 54
DCW @$@ I 1 1620 LIT 54
DCW @ @ I 3 1623 LIT 55
OPDARI DCW #03 I 3 1626 AREA 55
DCW @ @ I 2 1628 LIT 55
DCW @52@ I 2 1630 LIT 55
DCW @1@ I 1 1631 LIT 55
DCW @YES@ I 3 1634 LIT 55
DCW @TAP@ I 3 1637 LIT 55
DCW @12@ I 2 1639 LIT 56
DCW @9@ I 1 1640 LIT 56
IERRCT DCW #01 I 1 1641 AREA 56
IERASC DCW #02 I 2 1643 AREA 56
DCW &DTFTAB&X I 3 1646 3U9 ADCON 56
499 4 76 ORG 1649 I 1649
500 4 77 OVER DCW @}@ I 1 1649 GMARK 57
501 4 78 EX I B 000 58
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 10
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
502 4 79 JOB 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 I
503 4 80 ORG 1650 I 1650
504 4 81 SFX I I
505 4 82 *
506 4 83 * DTF TABLE OF BRANCHES
507 4 84 *
508 4 85 DTFINT SBR INDEX3,DTFLAB I 7 1650 H 099 H03 61
509 4 86 SBR CHAIR&3,LSTPAR I 7 1657 H O66 O75 61
510 4 87 BCE DIFREC,MAINX&20, I 8 1664 B M06 021 61
511 4 88 CW SCNSW I 4 1672 ) W18 61
512 4 89 C MAINX&6,@EX@ I 7 1676 C 007 H48 61
513 4 90 BE EXIRB I 5 1683 B !31 S 61
514 4 91 S INDEX2&1 I 4 1688 S 095 62
515 4 92 SEEK C MAINX&7,0&X3 I 7 1692 C 008 0?0 62
516 4 93 SBR INDEX3 I 4 1699 H 099 62
517 4 94 BE AGREE I 5 1703 B Z35 S 62
518 4 95 BCE DIFREC,0&X3,@ I 8 1708 B M06 0?0 @ 62
519 4 96 A @7@,INDEX2 I 7 1716 A H49 094 62
520 4 97 B SEEK I 4 1723 B W92 62
521 4 98 DTFBR B OPDSCN I 4 1727 B O14 63
522 4 99 DCW REWXZ REWIND I 3 1733 E00 63
523 5 00 B ACTUAL I 4 1734 B !89 63
524 5 01 DCW &DTFTAB&205 REELSEQ I 3 1740 554 63
525 5 02 B ACTUAL I 4 1741 B !89 63
526 5 03 DCW &DTFTAB&108 SERIALNUM I 3 1747 457 63
527 5 04 B HEARB I 4 1748 B N37 63
528 5 05 DCW &DTFTAB&103 I 3 1754 452 64
529 5 06 B OPDSCN I 4 1755 B O14 64
530 5 07 DCW &CHEXZ CHECKLABEL I 3 1761 D87 64
531 5 08 B OPDSCN I 4 1762 B O14 64
532 5 09 DCW &TYPXZ TYPELABEL I 3 1768 D74 64
533 5 10 B TOTRB I 4 1769 B Z81 64
534 5 11 DCW #3 TOTALS I 3 1775 64
535 5 12 B ACTUAL I 4 1776 B !89 65
536 5 13 DCW &DTFTAB&75 WLRADDR I 3 1782 424 65
537 5 14 B ACTUAL I 4 1783 B !89 65
538 5 15 DCW &DTFTAB&65 EOFADDR I 3 1789 414 65
539 5 16 B INDRB I 4 1790 B !71 65
540 5 17 DCW #3 INDEXREG I 3 1796 65
541 5 18 B ACTUAL I 4 1797 B !89 65
542 5 19 DCW &DTFTAB&54 WORKAREA I 3 1803 403 66
543 5 20 B IOARB I 4 1804 B Z47 66
544 5 21 DCW &DTFTAB&44 IOAREAS I 3 1810 393 66
545 5 22 B BLORB I 4 1811 B V72 66
546 5 23 DCW &DTFTAB&24 BLOCKSIZE I 3 1817 373 66
547 5 24 B NUMERC I 4 1818 B V41 66
548 5 25 DCW @020@ PADDING I 3 1824 66
549 5 26 B ACTUAL I 4 1825 B !89 67
550 5 27 DCW &DTFTAB&19 SIXEREC I 3 1831 368 67
551 5 28 B OPDSCN I 4 1832 B O14 67
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 11
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
552 5 29 DCW &RECXZ RECFORM I 3 1838 D55 67
553 5 30 B NUMERC I 4 1839 B V41 67
554 5 31 DCW @011@ ALTTAPE I 3 1845 67
555 5 32 B NUMERC I 4 1846 B V41 67
556 5 33 DCW @010@ CARDPROC I 3 1852 68
557 5 34 B OPDSCN I 4 1853 B O14 68
558 5 35 DCW &MODXZ MODEPAR I 3 1859 D30 68
559 5 36 B OPDSCN I 4 1860 B O14 68
560 5 37 DCW &FILXZ FILETYPE I 3 1866 D23 68
561 5 38 B NUMERC I 4 1867 B V41 68
562 5 39 DCW @009@ CHANDRIVE I 3 1873 68
563 5 40 B ACTUAL I 4 1874 B !89 69
564 5 41 DCW DTFTAB&198 VARBUILD I 3 1880 547 69
565 5 42 B ACTSCN I 4 1881 B /13 69
566 5 43 DCW &DTFTAB-7 I 3 1887 342 69
567 5 44 B NUMERC I 4 1888 B V41 69
568 5 45 DCW @206@ I 3 1894 69
569 5 46 B OVERB I 4 1895 B !06 69
570 5 47 DCW #1 I 1 1899 70
571 5 48 ORG 1900 I 1900
572 5 49 RTW 1,1 I 8 1900 L %U1 001 R 70
573 5 50 BER HALT I 5 1908 B Z21 L 70
574 5 51 CW OVER I 4 1913 ) W49 70
575 5 52 B OTHER I 4 1917 B 101 70
576 5 53 HALT BSP 1 I 5 1921 U %U1 B 70
577 5 54 NOP 288 I 4 1926 N 288 70
578 5 55 H I 1 1930 . 71
579 5 56 B 1900 I 4 1931 B Z00 71
580 5 57 *
581 5 58 AGREE S INDEX3&1 I 4 1935 S 100 71
582 5 59 SW MAINX&20 I 4 1939 , 021 71
583 5 60 B DTFBR&X2 I 4 1943 B XK7 71
584 5 61 * IOAREAS
585 5 62 *
586 5 63 IOARB B SCANX I 4 1947 B N55 71
587 5 64 LCA MAINX&18&X3,DTFTAB&44 I 7 1951 L 0A9 393 71
588 5 65 BW EITHER,SCNSW I 8 1958 V 333 W18 1 72
589 5 66 B SCANX I 4 1966 B N55 72
590 5 67 LCA MAINX&18&X3,DTFTAB&34 I 7 1970 L 0A9 383 72
591 5 68 B EITHER I 4 1977 B 333 72
592 5 69 *
593 5 70 * TOTALS
594 5 71 *
595 5 72 TOTRB SBR CHAIR&3,TOTJK I 7 1981 H O66 Z95 72
596 5 73 B OPDSCN I 4 1988 B O14 72
597 5 74 DCW &TOTXZ I 3 1994 E20 72
598 5 75 TOTJK LCA MAINX&18&X3,DTFTAB&80 I 7 1995 L 0A9 429 73
599 5 76 B LSTPAR I 4 2002 B O75 73
600 5 77 OVERB SBR CHAIR&3,OVEJK I 7 2006 H O66 !20 73
601 5 78 B OPDSCN I 4 2013 B O14 73
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 12
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
602 5 79 DCW &OVEXZ I 3 2019 E13 73
603 5 80 OVEJK LCA MAINX&18&X3,DTFTAB&216 I 7 2020 L 0A9 565 73
604 5 81 B LSTPAR I 4 2027 B O75 73
605 5 82 *
606 5 83 * EXITS ROUTINE
607 5 84 *
608 5 85 EXIRB MCW @1 8@,INDEX2 I 7 2031 M H52 094 74
609 5 86 MN MAINX&7,INDEX2-1 I 7 2038 D 008 093 74
610 5 87 S INDEX3&1 I 4 2045 S 100 74
611 5 88 B SCANX I 4 2049 B N55 74
612 5 89 LCA MAINX&18&X3,DTFTAB&X2 I 7 2053 L 0A9 3M9 74
613 5 90 LCA @$@,DTFTAB-6 I 7 2060 L H53 343 74
614 5 91 B DIFREC I 4 2067 B M06 75
615 5 92 *
616 5 93 * INDEX REGISTER
617 5 94 *
618 5 95 INDRB MN MAINX&21,DTFTAB&55 I 7 2071 D 022 404 75
619 5 96 MZ @ @,DTFTAB&55 I 7 2078 Y H54 404 75
620 5 97 B DIFREC I 4 2085 B M06 75
621 5 98 *
622 5 99 * LOAD PARAMETERS - ACTUAL
623 6 00 *
624 6 01 ACTUAL SBR INDEX1 I 4 2089 H 089 75
625 6 015 BW EITHER,SCNSW I 8 2093 V 333 W18 1 75
626 6 02 MCW 2&X1,INDEX1 I 7 2101 M 0'2 089 76
627 6 03 SEARCH B SCANX I 4 2108 B N55 76
628 6 04 LCA MAINX&18&X3,0&X1 I 7 2112 L 0A9 0'0 76
629 6 05 SBR INDEX1 I 4 2119 H 089 76
630 6 06 BW DIFREC,SCNSW I 8 2123 V M06 W18 1 76
631 6 07 B SEARCH I 4 2131 B J08 76
632 6 08 NEWWRT SBR WRTEXT&3 I 4 2135 H 761 76
633 6 09 MCW LMAINX,LOPUT-1 I 7 2139 M 086 I97 77
634 6 10 SW OUTPT&80 I 4 2146 , I92 77
635 6 11 MCW GMWMRK,OUTPT&80 I 7 2150 M 773 I92 77
636 6 12 LONG MCW @*@,OUTPT&73 I 7 2157 M H55 I85 77
637 6 13 B SHORT I 4 2164 B 750 77
638 6 14 *
639 6 15 * OUTPUT MACRO STATEMENT FOR DIOC
640 6 16 *
641 6 17 CRDOUT MN @5@,TDF6&4 I 7 2168 D H56 768 77
642 6 18 CS LMAINX I 4 2175 / 086 78
643 6 19 MCW @55555@,MAINX&19 I 7 2179 M H61 020 78
644 6 20 SBR INDEX3,ENDDIO I 7 2186 H 099 622 78
645 6 21 B GOOD&4 I 4 2193 B K01 78
646 6 22 GOOD CS LMAINX I 4 2197 / 086 78
647 6 23 SW 1 I 4 2201 , 001 78
648 6 24 SBR INDEX1,MAINX&20 I 7 2205 H 089 021 78
649 6 25 MCW @'@,MAINX&72 I 7 2212 M H62 073 79
650 6 26 LODPAR MCW 0&X3,WKAREA-1 I 7 2219 M 0?0 L89 79
651 6 27 SBR INDEX2 I 4 2226 H 094 79
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 13
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
652 6 28 MCW INDEX1,SAVXL1#3 I 7 2230 M 089 H65 79
653 6 29 MCM 1&X2,0&X1 I 7 2237 P 0!1 0'0 79
654 6 30 SBR INDEX1 I 4 2244 H 089 79
655 6 31 MCW @, @,0&X1 I 7 2248 M H67 0'0 80
656 6 32 BCE CONTIN,MAINX&72,' I 8 2255 B L01 073 ' 80
657 6 33 MCW SAVXL1,INDEX1 I 7 2263 M H65 089 80
658 6 34 SW 0&X1 I 4 2270 , 0'0 80
659 6 35 MCW @ @,MAINX&79 I 7 2274 M H69 080 80
660 6 36 MCW MAINX&78 I 4 2281 M 079 80
661 6 37 CW 0&X1 I 4 2285 ) 0'0 81
662 6 38 B NEWWRT I 4 2289 B J35 81
663 6 39 CW OUTPT&80 I 4 2293 ) I92 81
664 6 40 B GOOD I 4 2297 B J97 81
665 6 41 CONTIN MCW 0&X3,0&X3 I 7 2301 M 0?0 0?0 81
666 6 42 SBR INDEX3 I 4 2308 H 099 81
667 6 43 COMBLK C 0&X3,@ @ I 7 2312 C 0?0 H54 81
668 6 44 SAR INDEX3 I 4 2319 Q 099 82
669 6 45 BE COMBLK I 5 2323 B L12 S 82
670 6 46 A @1@,INDEX3 I 7 2328 A H70 099 82
671 6 47 B ALLDIO,0&X3,, I 8 2335 B L47 0?0 , 82
672 6 48 B LODPAR I 4 2343 B K19 82
673 6 49 ALLDIO MCW @ @,0&X1 I 7 2347 M H69 0'0 82
674 6 50 MCW @ @,MAINX&72 I 7 2354 M H54 073 83
675 6 51 B NEWWRT I 4 2361 B J35 83
676 6 52 CW OUTPT&80 I 4 2365 ) I92 83
677 6 53 MN @6@,TDF6&4 I 7 2369 D H71 768 83
678 6 54 BETTER B PASSI I 4 2376 B U60 83
679 6 55 WKAREA DCW @ '@ I 11 2390 83
680 6 56 DTFNM S INDEX3&1 I 4 2391 S 100 84
681 6 57 B SCANX I 4 2395 B N55 84
682 6 58 LCA MAINX&18&X3,FILENM I 7 2399 L 0A9 349 84
683 6 59 DIFREC B REDREC I 4 2406 B 774 84
684 6 60 DELTA BCE ALPHA,MAINX&5,* I 8 2410 B M30 006 * 84
685 6 61 C MAINX&19,@ @ I 7 2418 C 020 H76 84
686 6 62 BU DTFOUT I 5 2425 B M46 / 84
687 6 63 ALPHA B WRTREC I 4 2430 B 721 85
688 6 64 BCE DIFREC,MAINX&5,* I 8 2434 B M06 006 * 85
689 6 65 B DTFINT I 4 2442 B W50 85
690 6 66 DTFOUT MN @5@,TDF6&4 I 7 2446 D H56 768 85
691 6 67 SBR INDEX3,ENDDTF I 7 2453 H 099 567 85
692 6 68 B SAVCD I 4 2460 B O98 85
693 6 69 SBR WALK&3,ALTBY I 7 2464 H Q99 U97 86
694 6 70 C MAINX&17,@DTF@ I 7 2471 C 018 H79 86
695 6 71 CS LMAINX I 4 2478 / 086 86
696 6 72 MCW @33333@,MAINX&19 I 7 2482 M H84 020 86
697 6 73 BE SETDSW I 5 2489 B N05 S 86
698 6 74 RIVER SBR BETTER&3,PASS2 I 7 2494 H L79 V06 86
699 6 75 B GOOD&4 I 4 2501 B K01 87
700 6 76 SETDSW SBR BETTER&3,RNDTF I 7 2505 H L79 N16 87
701 6 77 B GOOD&4 I 4 2512 B K01 87
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 14
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
702 6 78 RNDTF RTW 1,341 I 8 2516 L %U1 341 R 87
703 6 79 BSP 1 I 5 2524 U %U1 B 87
704 6 80 CW DTFGM I 4 2529 ) 568 87
705 6 81 B PASSI I 4 2533 B U60 87
706 6 82 HEARB B SCANX I 4 2537 B N55 88
707 6 83 MCW MAINX&18&X3,DTFTAB&103 I 7 2541 M 0A9 452 88
708 6 84 B ACTUAL I 4 2548 B !89 88
709 6 85 DCW &DTFTAB&93 I 3 2554 442 88
710 6 86 *
711 6 87 * SCAN FOR A COMMA OR TWO BLANKS
712 6 88 *
713 6 89 SCANX SBR CLUBS&3 I 4 2555 H O13 88
714 6 90 SCANL SW MAINX&20 I 4 2559 , 021 88
715 6 91 C MAINX&21&X3,@ @ I 7 2563 C 0B2 H69 88
716 6 92 A @1@,INDEX3 I 7 2570 A H70 099 89
717 6 93 BE SETIT I 5 2577 B O02 S 89
718 6 94 BCE SETWMS,MAINX&19&X3,, I 8 2582 B O06 0B0 , 89
719 6 95 C INDEX3,@52@ I 7 2590 C 099 H86 89
720 6 96 BU SCANL I 5 2597 B N59 / 89
721 6 97 SETIT SW SCNSW I 4 2602 , W18 89
722 6 98 SETWMS SW MAINX&20&X3 I 4 2606 , 0B1 90
723 6 99 CLUBS B 0 I 4 2610 B 000 90
724 7 00 *
725 7 01 * SCAN OPERAND TABLE
726 7 02 *
727 7 03 *
728 7 04 OPDSCN SBR INDEX2 I 4 2614 H 094 90
729 7 05 MCW 2&X2,SAVX2 I 7 2618 M 0!2 H89 90
730 7 06 OPDRTN B NEWSCN I 4 2625 B '06 90
731 7 07 MCW SAVX2#3,INDEX2 I 7 2629 M H89 094 90
732 7 08 SEEKOP C OPDAR,0&X2 I 7 2636 C W26 0!0 90
733 7 09 SBR INDEX2 I 4 2643 H 094 91
734 7 10 MCW 0&X2,INDEX1 I 7 2647 M 0!0 089 91
735 7 11 SAR INDEX2 I 4 2654 Q 094 91
736 7 12 BE OPDFND I 5 2658 B O87 S 91
737 7 13 CHAIR BCE LSTPAR,0&X2,@ I 8 2663 B O75 0!0 @ 91
738 7 14 B SEEKOP I 4 2671 B O36 91
739 7 15 LSTPAR BW EITHER,SCNSW I 8 2675 V 333 W18 1 92
740 7 16 B OPDRTN I 4 2683 B O25 92
741 7 17 OPDFND LCA @$@,DIOCSB&X1 I 7 2687 L H53 5X6 92
742 7 18 B LSTPAR I 4 2694 B O75 92
743 7 19 SAVCD SBR SVCDX&3 I 4 2698 H P20 92
744 7 20 CS 186 I 4 2702 / 186 92
745 7 21 SW 101 I 4 2706 , 101 92
746 7 22 MCW LMAINX,186 I 7 2710 M 086 186 93
747 7 23 SVCDX B 0 I 4 2717 B 000 93
748 7 24 *
749 7 25 * READ IN OVERLAY TWO
750 7 26 *
751 7 27 TDF1 DCW #3 I 3 2723 93
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 15
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
752 7 28 RTW 1,101 I 8 2724 L %U1 101 R 93
753 7 29 OVLAY2 SW GMOVL2 I 4 2732 , 332 93
754 7 30 MCW GMWMRK,GMOVL2 I 7 2736 M 773 332 93
755 7 31 RT 1,101 I 8 2743 M %U1 101 R 94
756 7 32 B CTAPE I 4 2751 B S22 94
757 7 33 NOP TDF1 I 4 2755 N P23 94
758 7 34 B PUNCH I 4 2759 B 101 94
759 7 35 *
760 7 36 * ALTER PART OF IOCS
761 7 37 *
762 7 38 ALTER B CTAPE I 4 2763 B S22 94
763 7 39 NOP TDF4A I 4 2767 N A35 94
764 7 40 MCW OUTPT&7,SYMNM I 7 2771 M I19 340 94
765 7 41 BSS OUTCL,C I 5 2778 B 119 C 95
766 7 42 BSP 4 I 5 2783 U %U4 B 95
767 7 43 SBR RIVER&6,TUNEL I 7 2788 H N00 Q88 95
768 7 44 SBR PREPS2&3 I 4 2795 H 665 95
769 7 45 R I 1 2799 1 95
770 7 46 C MAINX&17,@ALT@ I 7 2800 C 018 H92 95
771 7 47 BU WALK I 5 2807 B Q96 / 95
772 7 48 HOMAL B SAVXX I 4 2812 B C19 96
773 7 49 B PACKX I 4 2816 B R43 96
774 7 50 NOALTB B CTAPE I 4 2820 B S22 96
775 7 51 NOP TDF4A I 4 2824 N A35 96
776 7 52 C OUTPT&83,HLDA1 I 7 2828 C I95 I02 96
777 7 53 BE CHECK I 5 2835 B ?05 S 96
778 7 54 PROPRE C OUTPT&17,@JOB@ I 7 2840 C I29 H95 96
779 7 55 ALTS1 BU ALTS2E I 5 2847 B Q60 / 97
780 7 56 B NOPJB I 4 2852 B 205 97
781 7 57 B NOTER I 4 2856 B 220 97
782 7 58 ALTS2E C OUTPT&17,@CTL@ I 7 2860 C I29 H98 97
783 7 59 ALTS2 BE OUTCL I 5 2867 B 119 S 97
784 7 60 SOLVED MCW OUTPT&85,LMAINX I 7 2872 M I97 086 97
785 7 61 SW READS I 4 2879 , I10 97
786 7 62 ALTIO BSS REGEN,G I 5 2883 B A44 G 98
787 7 63 TUNEL BW BSPT4,READS I 8 2888 V R04 I10 1 98
788 7 64 WALK B SAVCD I 4 2896 B O98 98
789 7 65 B ALTBY I 4 2900 B U97 98
790 7 66 BSPT4 BW REGL,XCARDS I 8 2904 V R27 I09 1 98
791 7 67 MN @5@,TDF6&4 I 7 2912 D H56 768 98
792 7 68 B NEWWRT I 4 2919 B J35 99
793 7 69 B REGL&5 I 4 2923 B R32 99
794 7 70 REGL BSP 4 I 5 2927 U %U4 B 99
795 7 71 LCA AREASV,186 I 7 2932 L 331 186 99
796 7 72 B ALTBY I 4 2939 B U97 99
797 7 73 PACKX SBR PACKS&3 I 4 2943 H ?04 99
798 7 74 SW BALTR I 4 2947 , I03 99
799 7 75 CW SCNSW I 4 2951 ) W18 100
800 7 76 S INDEX3&1 I 4 2955 S 100 100
801 7 77 B SCANX I 4 2959 B N55 100
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 16
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
802 7 78 ZA MAINX&18&X3,HLDA1#4 I 7 2963 ? 0A9 I02 100
803 7 79 BW PARKS,SCNSW I 8 2970 V R93 W18 1 100
804 7 80 B SCANX I 4 2978 B N55 100
805 7 81 ZA MAINX&18&X3,HLDB I 7 2982 ? 0A9 I07 100
806 7 82 CW BALTR#1 I 4 2989 ) I03 101
807 7 83 PARKS CS LMAINX I 4 2993 / 086 101
808 7 84 SW 1 I 4 2997 , 001 101
809 7 85 PACKS B 0 I 4 3001 B 000 101
810 7 86 *
811 7 87 * ALTER NUMBER COMPARES EQUAL
812 7 88 *
813 7 89 CHECK BW WRTAL,BALTR I 8 3005 V ?37 I03 1 101
814 7 90 DBLAL C OUTPT&83,HLDB#4 I 7 3013 C I95 I07 101
815 7 91 BE WRTAL I 5 3020 B ?37 S 101
816 7 92 B CTAPE I 4 3025 B S22 102
817 7 93 NOP TDF4A I 4 3029 N A35 102
818 7 94 B DBLAL I 4 3033 B ?13 102
819 7 95 WRTAL BLC TUNEL I 5 3037 B Q88 A 102
820 7 96 R I 1 3042 1 102
821 7 97 C MAINX&17,@ALT@ I 7 3043 C 018 H92 102
822 7 98 BE HOMAL I 5 3050 B Q12 S 102
823 7 99 C MAINX&17,@JOB@ I 7 3055 C 018 H95 103
824 8 00 ALTS3 BU ALTS4E I 5 3062 B ?75 / 103
825 8 01 B NOPJB I 4 3067 B 205 103
826 8 02 B RSOLV I 4 3071 B 175 103
827 8 03 ALTS4E C MAINX&17,@CTL@ I 7 3075 C 018 H98 103
828 8 04 ALTS4 BE CRDCL I 5 3082 B 138 S 103
829 8 05 BW TUFF,BALTR I 8 3087 V A03 I03 1 104
830 8 06 CW READS I 4 3095 ) I10 104
831 8 07 B ALTIO I 4 3099 B Q83 104
832 8 08 TUFF B SAVXX I 4 3103 B C19 104
833 8 09 CW XCARDS I 4 3107 ) I09 104
834 8 101 SBR RSOLV&7,SOLVED I 7 3111 H 182 Q72 104
835 8 102 SBR CHUCK&3 I 4 3118 H 234 104
836 8 10 MCW @N@,NOSOL I 7 3122 M I08 131 105
837 8 11 B PROPRE I 4 3129 B Q40 105
838 8 12 *
839 8 13 * TDF FOR READING 86 CHARACTER RECORDS
840 8 14 *
841 8 15 TDF4A DCW TUNEL I 3 3135 Q88 105
842 8 16 RT 4,OUTPT I 8 3136 M %U4 I12 R 105
843 8 17 *
844 8 18 * REGENERATION OF DIOCS AND DTF
845 8 19 *
846 8 20 REGEN BW ORDN,XCARDS I 8 3144 V A85 I09 1 105
847 8 21 SBR NEXREC&3,SPCAS I 7 3152 H 684 A74 105
848 8 22 SBR ALDIO-1,SOFT I 7 3159 H B02 B68 106
849 8 23 CW READS I 4 3166 ) I10 106
850 8 24 B FIND I 4 3170 B 642 106
851 8 25 SPCAS MCW AREASV,LMAINX I 7 3174 M 331 086 106
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 17
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
852 8 26 SW XCARDS#1 I 4 3181 , I09 106
853 8 27 ORDN SBR NEXREC&3,ALDIO I 7 3185 H 684 B03 106
854 8 28 SBR DIFREC&3,ALDTF I 7 3192 H M09 C08 107
855 8 29 B FIND I 4 3199 B 642 107
856 8 30 ALDIO CS LMAINX I 4 3203 / 086 107
857 8 31 BW RDT4A,READS I 8 3207 V B41 I10 1 107
858 8 32 BLC LUNET I 5 3215 B C34 A 107
859 8 33 R I 1 3220 1 107
860 8 34 C MAINX&17,@ALT@ I 7 3221 C 018 H92 107
861 8 35 BU SOFT I 5 3228 B B68 / 108
862 8 36 B SAVXX I 4 3233 B C19 108
863 8 37 B PACKX I 4 3237 B R43 108
864 8 38 RDT4A B BYPSS I 4 3241 B C49 108
865 8 39 C OUTPT&83,HLDA1 I 7 3245 C I95 I02 108
866 8 40 FINAL BE DBLCK I 5 3252 B B72 S 108
867 8 41 SW READS I 4 3257 , I10 108
868 8 42 FINAL2 MCW OUTPT&85,LMAINX I 7 3261 M I97 086 109
869 8 43 SOFT B GAMMA I 4 3268 B 685 109
870 8 44 DBLCK CW READS#1 I 4 3272 ) I10 109
871 8 45 BW FINAL2,BALTR I 8 3276 V B61 I03 1 109
872 8 46 TRPCK C OUTPT&83,HLDB I 7 3284 C I95 I07 109
873 8 47 BE ALDIO I 5 3291 B B03 S 109
874 8 48 B CTAPE I 4 3296 B S22 109
875 8 49 NOP TDF4A I 4 3300 N A35 110
876 8 50 B TRPCK I 4 3304 B B84 110
877 8 51 *
878 8 52 * DTF ON ALTER MODE
879 8 53 *
880 8 54 ALDTF SBR SOFT&3,DELTA I 7 3308 H B71 M10 110
881 8 55 B ALDIO I 4 3315 B B03 110
882 8 56 SAVXX SBR SAVXT&3 I 4 3319 H C33 110
883 8 57 MCW LMAINX,AREASV I 7 3323 M 086 331 110
884 8 58 SAVXT B 0 I 4 3330 B 000 110
885 8 59 LUNET SW READS I 4 3334 , I10 111
886 8 60 MCW @N@,FINAL I 7 3338 M I08 B52 111
887 8 61 B RDT4A I 4 3345 B B41 111
888 8 62 BYPSS SBR BYPSX&3 I 4 3349 H C80 111
889 8 63 B CTAPE I 4 3353 B S22 111
890 8 64 NOP TDF4A I 4 3357 N A35 111
891 8 65 BCE BYPSS&4,OUTPT&74,Y I 8 3361 B C53 I86 Y 111
892 8 66 BCE BYPSS&4,OUTPT&74,Z I 8 3369 B C53 I86 Z 112
893 8 67 BYPSX B 0 I 4 3377 B 000 112
894 8 68 *
895 8 69 * DTF TABLE OF OPERANDS
896 8 70 *
897 8 71 DCW @@@ FILETYP I 1 3381 112
898 8 72 DCW @001@ I 3 3384 112
899 8 73 DCW @INP@ INPUT I 3 3387 112
900 8 74 DCW @002@ I 3 3390 112
901 8 75 DCW @OUT@ OUTPUT I 3 3393 112
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 18
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
902 8 76 DCW @003@ I 3 3396 113
903 8 77 DCW @TAP@ TAPE I 3 3399 113
904 8 78 DCW @004@ I 3 3402 113
905 8 79 DCW @REA@ READER I 3 3405 113
906 8 80 DCW @005@ I 3 3408 113
907 8 81 DCW @PUN@ PUNCH I 3 3411 113
908 8 82 DCW @008@ I 3 3414 113
909 8 83 DCW @CHE@ I 3 3417 114
910 8 84 DCW @006@ I 3 3420 114
911 8 85 FILXZ DCW @PRI@ PRINTER I 3 3423 114
912 8 86 DCW @@@ MODEPAR I 1 3424 114
913 8 87 DCW @007@ I 3 3427 114
914 8 88 MODXZ DCW @LOA@ I 3 3430 114
915 8 89 DCW @@@ RECFORM I 1 3431 114
916 8 90 DCW @012@ I 3 3434 115
917 8 91 DCW @BLO@ BLOCKED I 3 3437 115
918 8 92 DCW @013@ I 3 3440 115
919 8 93 DCW @UNB@ UNBLOCKED I 3 3443 115
920 8 94 DCW @014@ I 3 3446 115
921 8 95 DCW @FIX@ FIXED I 3 3449 115
922 8 96 DCW @015@ I 3 3452 115
923 8 97 RECXZ DCW @VAR@ VARIABLE I 3 3455 116
924 8 98 DCW @@@ TYPELABEL I 1 3456 116
925 8 99 DCW @081@ I 3 3459 116
926 9 00 DCW @STA@ STANDARD I 3 3462 116
927 9 01 DCW @082@ I 3 3465 116
928 9 02 DCW @NON@ NONSTANDARD I 3 3468 116
929 9 03 DCW @083@ I 3 3471 116
930 9 04 TYPXZ DCW @TM @ TM I 3 3474 117
931 9 05 DCW @@@ CHECKLABEL I 1 3475 117
932 9 06 DCW @084@ I 3 3478 117
933 9 07 DCW @ALL@ ALL I 3 3481 117
934 9 08 DCW @085@ I 3 3484 117
935 9 09 CHEXZ DCW @IDE@ IDENT I 3 3487 117
936 9 10 DCW @@@ REWIND I 1 3488 117
937 9 11 DCW @199@ I 3 3491 118
938 9 12 DCW @UNL@ UNLOAD I 3 3494 118
939 9 13 DCW @200@ I 3 3497 118
940 9 14 REWXZ DCW @NOR@ NOREWD I 3 3500 118
941 9 15 DCW @@@ I 1 3501 118
942 9 16 DCW @201@ I 3 3504 118
943 9 17 DCW @9 @ I 3 3507 118
944 9 18 DCW @202@ I 3 3510 119
945 9 19 OVEXZ DCW @12 @ I 3 3513 119
946 9 20 DCW @@@ I 1 3514 119
947 9 21 DCW @076@ I 3 3517 119
948 9 22 TOTXZ DCW @REC@ I 3 3520 119
949 9 23 *
950 9 24 * DIOCS OPERAND TABLE
951 9 25 *
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 19
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
952 9 26 DCW @@@ I 1 3521 119
953 9 27 DCW -MINUS3&4 I 3 3524 I9C 119
954 9 28 DCW @OUT@ I 3 3527 120
955 9 29 DCW -MINUS2&4 I 3 3530 I9D 120
956 9 30 TAPTB DCW @INP@ I 3 3533 120
957 9 31 DCW @@@ I 1 3534 120
958 9 32 DCW @045@ I 3 3537 120
959 9 33 DCW @REL@ I 3 3540 120
960 9 34 DCW @046@ I 3 3543 120
961 9 35 DCW @STO@ I 3 3546 121
962 9 36 DCW @006@ I 3 3549 121
963 9 37 FEATB DCW @OVE@ OVERLAP I 3 3552 121
964 9 38 DCW @@@ I 1 3553 121
965 9 39 DCW @007@ I 3 3556 121
966 9 40 DCW @TAP@ TAPE I 3 3559 121
967 9 41 DCW @008@ I 3 3562 121
968 9 42 DCW @REA@ READER I 3 3565 122
969 9 43 DCW @009@ I 3 3568 122
970 9 44 DCW @PUN@ PUNCH I 3 3571 122
971 9 45 DCW @010@ I 3 3574 122
972 9 46 IODTB DCW @PRI@ PRINTER I 3 3577 122
973 9 47 DCW @@@ I 1 3578 122
974 9 48 DCW @011@ I 3 3581 122
975 9 49 DCW @STA@ STANDARD I 3 3584 123
976 9 50 DCW @012@ I 3 3587 123
977 9 51 DCW @NON@ NONSTANDARD I 3 3590 123
978 9 52 DCW @013@ I 3 3593 123
979 9 53 DCW @MIX@ MIXED I 3 3596 123
980 9 54 DCW @014@ I 3 3599 123
981 9 55 DCW @CHE@ CHECK I 3 3602 123
982 9 56 DCW @015@ I 3 3605 124
983 9 57 DCW @IDE@ IDENT I 3 3608 124
984 9 58 DCW @026@ I 3 3611 124
985 9 59 DCW @RDL@ I 3 3614 124
986 9 60 DCW @016@ I 3 3617 124
987 9 61 LABTB DCW @TM @ TM I 3 3620 124
988 9 62 DCW @@@ I 1 3621 124
989 9 63 DCW @018@ I 3 3624 125
990 9 64 DCW @1 @ EXIT 1 I 3 3627 125
991 9 65 DCW @019@ I 3 3630 125
992 9 66 DCW @2 @ EXIT 2 I 3 3633 125
993 9 67 DCW @020@ I 3 3636 125
994 9 68 DCW @3 @ EXIT 3 I 3 3639 125
995 9 69 DCW @021@ I 3 3642 125
996 9 70 DCW @4 @ EXIT 4 I 3 3645 126
997 9 71 DCW @022@ I 3 3648 126
998 9 72 DCW @5 @ EXIT 5 I 3 3651 126
999 9 73 DCW @023@ I 3 3654 126
1000 9 74 DCW @6 @ EXIT 6 I 3 3657 126
1001 9 75 DCW @024@ I 3 3660 126
1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 20
0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD
1002 9 76 DCW @7 @ EXIT 7 I 3 3663 126
1003 9 77 DCW @025@ I 3 3666 127
1004 9 78 EXITB DCW @8 @ EXIT 8 I 3 3669 127
1005 9 79 DCW @@@ I 1 3670 127
1006 9 80 DCW @027@ I 3 3673 127
1007 9 81 DCW @729@ 729 I 3 3676 127
1008 9 82 DCW @028@ I 3 3679 127
1009 9 83 DRITB DCW @733@ 7330 I 3 3682 127
1010 9 84 DCW @@@ I 1 3683 128
1011 9 85 DCW @029@ I 3 3686 128
1012 9 86 DCW @NOR@ NO RWED I 3 3689 128
1013 9 87 DCW @030@ I 3 3692 128
1014 9 88 RWDTB DCW @UNL@ UNLOAD I 3 3695 128
1015 9 89 DCW @@@ I 1 3696 128