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 1016 9 90 DCW @037@ I 3 3699 128 1017 9 91 DCW @REC@ RECORD I 3 3702 129 1018 9 92 DCW @038@ I 3 3705 129 1019 9 93 COUTB DCW @HAS@ HASH I 3 3708 129 1020 9 94 DCW @@@ I 1 3709 129 1021 9 95 DCW @034@ I 3 3712 129 1022 9 96 DCW @CLE@ I 3 3715 129 1023 9 97 DCW @033@ I 3 3718 129 1024 9 98 DCW @PRO@ I 3 3721 130 1025 9 99 DCW @032@ I 3 3724 130 1026 10 00 REATB DCW @SCA@ I 3 3727 130 1027 10 01 * 1028 10 02 * DTF TABLE OF LABELS 1029 10 03 * 1030 10 04 DCW @@@ I 1 3728 130 1031 10 05 DCW @OVE@ OVERFLOW I 3 3731 130 1032 10 06 DCW @FOR@ FORMSCTL I 3 3734 130 1033 10 07 DCW @COB@ COBOL I 3 3737 130 1034 10 08 DCW @VAR@ VARBUILD I 3 3740 131 1035 10 09 DCW @CHA@ CHANDRIVE I 3 3743 131 1036 10 10 DCW @FIL@ FILETYPE I 3 3746 131 1037 10 11 DCW @MOD@ MODEPAR I 3 3749 131 1038 10 12 DCW @CAR@ CARDPROC I 3 3752 131 1039 10 13 DCW @ALT@ ALTTAPE I 3 3755 131 1040 10 14 DCW @REC@ RECFORM I 3 3758 131 1041 10 15 DCW @SIZ@ SIZEREC I 3 3761 132 1042 10 16 DCW @PAD@ PADDING I 3 3764 132 1043 10 17 DCW @BLO@ BLOCKSIZE I 3 3767 132 1044 10 18 DCW @IOA@ IOAREAS I 3 3770 132 1045 10 19 DCW @WOR@ WORKAREA I 3 3773 132 1046 10 20 DCW @IND@ INDEXREC I 3 3776 132 1047 10 21 DCW @EOF@ EOFADDR I 3 3779 132 1048 10 22 DCW @WLR@ WLRADDR I 3 3782 133 1049 10 23 DCW @TOT@ TOTALS I 3 3785 133 1050 10 24 DCW @TYP@ TYPELABEL I 3 3788 133 1051 10 25 DCW @CHE@ CHECKLABEL I 3 3791 133 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1052 10 26 DCW @HEA@ HEADER I 3 3794 133 1053 10 27 DCW @SER@ SERIALNUM I 3 3797 133 1054 10 28 DCW @REE@ REELSER I 3 3800 133 1055 10 29 DTFLAB DCW @REW@ REWIND I 3 3803 134 1056 10 30 * 1057 10 31 * 1058 10 32 * LABEL TABLE 1059 10 33 * 1060 10 34 DCW @@@ I 1 3804 134 1061 10 35 DCW @TAP@ TAPEUSE I 3 3807 134 1062 10 36 DCW @CHE@ CHECKPOINT I 3 3810 134 1063 10 37 DCW @DIO@ DIOCSORG I 3 3813 134 1064 10 38 DCW @FEA@ FEATURES I 3 3816 134 1065 10 39 DCW @IOD@ IODEVICES I 3 3819 134 1066 10 40 DCW @LAB@ LABELDEF I 3 3822 135 1067 10 41 DCW @ALT@ ALTTAPE I 3 3825 135 1068 10 42 DCW @EXI@ EXITS I 3 3828 135 1069 10 43 DCW @VAR@ VARBUILD I 3 3831 135 1070 10 44 DCW @COU@ COUNTS I 3 3834 135 1071 10 45 DCW @DRI@ DRIVETYPE I 3 3837 135 1072 10 46 DCW @RWD@ RWDOPTION I 3 3840 135 1073 10 47 DCW @REA@ READERROR I 3 3843 136 1074 10 48 LBLTBL DCW @INP@ INPFXNO I 3 3846 136 1075 10 49 LTORG * I 3847 DCW @EX@ I 2 3848 LIT 136 DCW @7@ I 1 3849 LIT 136 DCW @1 8@ I 3 3852 LIT 136 DCW @$@ I 1 3853 LIT 136 DCW @ @ I 1 3854 LIT 136 DCW @*@ I 1 3855 LIT 137 DCW @5@ I 1 3856 LIT 137 DCW @55555@ I 5 3861 LIT 137 DCW @'@ I 1 3862 LIT 137 SAVXL1 DCW #03 I 3 3865 AREA 137 DCW @, @ I 2 3867 LIT 137 DCW @ @ I 2 3869 LIT 137 DCW @1@ I 1 3870 LIT 138 DCW @6@ I 1 3871 LIT 138 DCW @ @ I 5 3876 LIT 138 DCW @DTF@ I 3 3879 LIT 138 DCW @33333@ I 5 3884 LIT 138 DCW @52@ I 2 3886 LIT 138 SAVX2I DCW #03 I 3 3889 AREA 138 DCW @ALT@ I 3 3892 LIT 139 DCW @JOB@ I 3 3895 LIT 139 DCW @CTL@ I 3 3898 LIT 139 HLDA1I DCW #04 I 4 3902 AREA 139 BALTRI DCW #01 I 1 3903 AREA 139 HLDBI DCW #04 I 4 3907 AREA 139 DCW @N@ I 1 3908 LIT 139 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD XCARDS DCW #01 I 1 3909 AREA 140 READSI DCW #01 I 1 3910 AREA 140 1076 10 50 * 1077 10 51 * OUTPUT AREA 1078 10 52 * 1079 10 53 ORG 3912 I 3912 1080 10 54 OUTPT DA 1X86,G I 3912 3997 1080 DCW @"@ I 1 3998 GMARK 141 1081 10 55 LOPUT EQU * I 3998 1082 10 56 EX I B 000 142 1 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 3723L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1083 10 57 JOB 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 I 1084 10 58 SFX I I 1085 10 59 ORG 341 I 0341 1086 10 60 DCW @,@ I 1 0341 145 1087 10 61 DCW @;@ EXITS YES I 1 0342 145 1088 10 62 DCW @;@ COBOL YES I 1 0343 145 1089 10 63 DCW #6 I 6 0349 145 1090 10 64 DCW @;@ 1 INPUT 1 FILETYPE I 1 0350 145 1091 10 65 DCW @;@ 2 OUTPUT 2 I 1 0351 145 1092 10 66 DCW @;@ 3 TAPE 3 I 1 0352 145 1093 10 67 DCW @;@ 4 READER 4 I 1 0353 146 1094 10 68 DCW @;@ 5 PUNCH 5 I 1 0354 146 1095 10 69 DCW @;@ 6 PRINTER 6 I 1 0355 146 1096 10 70 DCW @;@ 7 LOAD 7 MODEPAR I 1 0356 146 1097 10 71 DCW @;@ 8 CHECKPOINT 8 FEATURES I 1 0357 146 1098 10 72 DCW @;@ 9 NUMBER 9 CHANDRIVE I 1 0358 146 1099 10 73 DCW @;@ 10 NUMBER 10 CARDPROC I 1 0359 146 1100 10 74 DCW @;@ 11 NUMBER 11 ALTTAPE I 1 0360 147 1101 10 75 DCW @;@ 12 BLOCKED 12 RECFORM I 1 0361 147 1102 10 76 DCW @;@ 13 UNBLOCKED 13 I 1 0362 147 1103 10 77 DCW @;@ 14 MIXED 14 I 1 0363 147 1104 10 78 DCW @;@ 15 VARIABLE 15 I 1 0364 147 1105 10 79 DCW @ ;@ 16-19 NUMBER 16 SIZEREC I 4 0368 147 1106 10 80 DCW @;@ 29 NUMBER 17 PADDING I 1 0369 147 1107 10 81 DCW @ ;@ 21-24 NUMBER 18 BLOCKSIZE I 4 0373 148 1108 10 82 DCW @ ;@ 25-34 LABELS 19 IOAREAS I 10 0383 148 1109 10 83 DCW @ ;@ 35-44 20 I 10 0393 148 1110 10 84 DCW @ ;@ 45-54 LABEL 21 WORKAREA I 10 0403 148 1111 10 85 DCW @;@ 55 NUMBER 22 INDEXREG I 1 0404 148 1112 10 86 DCW @ ;@ 56-65 LABEL 23 EORADDR I 10 0414 149 1113 10 87 DCW @ ;@ 66-75 LABEL 24 WLRADDR I 10 0424 149 1114 10 88 DCW @;@ 76 RECORD 25 TOTALS I 1 0425 149 1115 10 89 DCW @ ;@ 77-80 HASH 26 I 4 0429 149 1116 10 90 DCW @;@ 81 STANDARD 27 TYPELABEL I 1 0430 149 1117 10 91 DCW @;@ 82 NONSTANDARD 28 I 1 0431 149 1118 10 92 DCW @;@ 83 TM 29 I 1 0432 149 1119 10 93 DCW @;@ 84 ALL 30 CHECKLABEL I 1 0433 150 1120 10 94 DCW @;@ 85 IDENT 31 I 1 0434 150 1121 10 95 DCW @ ;@ I 3 0437 150 1122 10 96 DCW @ ;@ I 5 0442 150 1123 10 97 DCW @ ;@ I 10 0452 150 1124 10 98 DCW @ ;@ 104-108 NUMBER 35 SERIALNUM I 5 0457 150 1125 10 99 DCW @ ;@ 109-118 39 EX1ADDR I 10 0467 150 1126 11 00 DCW @ ;@ 119-128 40 EX2ADDR I 10 0477 151 1127 11 01 DCW @ ;@ 129-138 41 EX3ADDR I 10 0487 151 1128 11 02 DCW @ ;@ 139-148 42 EX4ADDR I 10 0497 151 1129 11 03 DCW @ ;@ 149-158 43 EX5ADDR I 10 0507 152 1130 11 04 DCW @ ;@ 159-168 44 EX6ADDR I 10 0517 152 1131 11 05 DCW @ ;@ 169-178 45 EX7ADDR I 10 0527 152 1132 11 06 DCW @ ;@ 179-188 46 EX8ADDR I 10 0537 153 1 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 3723L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1133 11 07 DCW @ ;@ 189-198 47 VARBUILD I 10 0547 153 1134 11 08 DCW @;@ 199 UNLOAD 37 REWIND I 1 0548 153 1135 11 09 DCW @;@ 200 NOREWD 38 I 1 0549 153 1136 11 10 DCW @;@ 9 201 OVERFLOW I 1 0550 153 1137 11 11 DCW @;@ 12 202 I 1 0551 153 1138 11 12 DCW @ ;@ 203-205 NUMBER REELSEQ I 3 0554 153 1139 11 13 DCW @;@ 206 FORMCTL I 1 0555 154 1140 11 14 DCW #9 I 9 0564 154 1141 11 15 DCW @;@ 216 ADDRESS OVERFLOW I 1 0565 154 1142 11 16 DCW @ @ I 1 0566 154 1143 11 17 DCW @ @ I 1 0567 154 1144 11 18 DTFGM DCW @}@ I 1 0568 GMARK 154 1145 11 19 EX I B 000 155 1 1401 AUTOCODER-PASS 2-ALTER OVERLAY -VERSION 3 3724L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1146 11 20 JOB 1401 AUTOCODER-PASS 2-ALTER OVERLAY -VERSION 3 I 1147 11 21 SFX I I 1148 11 22 ORG 101 I 0101 1149 11 23 * 1150 11 24 * 1151 11 25 * CTL CARD ON TAPE 4 1152 11 26 * 1153 11 27 PUNCH CW GMOVL2 I 4 0101 ) 332 158 1154 11 28 BSP 1 I 5 0105 U %U1 B 158 1155 11 29 BSP 1 I 5 0110 U %U1 B 158 1156 11 30 B ALTER I 4 0115 B P63 158 1157 11 31 OUTCL MCW OUTPT&85,LMAINX I 7 0119 M I97 086 158 1158 11 32 BSS PREPS2,C I 5 0126 B 662 C 158 1159 11 33 NOSOL SBR RSOLV&7,NOALTB I 7 0131 H 182 Q20 158 1160 11 34 * 1161 11 35 * CTL CARD FROM CARDS 1162 11 36 * 1163 11 37 CRDCL BCE LEAVE,MAINX&23,1 I 8 0138 B 167 024 1 159 1164 11 38 MN MAINX&21,*&8 I 7 0146 D 022 160 159 1165 11 39 BCE LEAVE,@456@, I 8 0153 B 167 237 159 1166 11 40 CHAIN 2 I MACRO 1167 BCE I 1 0161 B GEN 159 1168 BCE I 1 0162 B GEN 159 1169 11 41 B LETBE I 4 0163 B 171 159 1170 11 42 LEAVE S SPECL I 4 0167 S 337 159 1171 11 43 LETBE B NOPCL I 4 0171 B 183 160 1172 11 44 RSOLV B WRTREC I 4 0175 B 721 160 1173 11 45 B WRTAL I 4 0179 B ?37 160 1174 11 46 * 1175 11 47 NOPCL SBR NPCLX&3 I 4 0183 H 204 160 1176 11 48 MCW @N@,ALTS2 I 7 0187 M 238 Q67 160 1177 11 49 MCW @N@,ALTS4 I 7 0194 M 238 ?82 160 1178 11 50 NPCLX B 0 I 4 0201 B 000 160 1179 11 51 NOPJB SBR NPJBX&3 I 4 0205 H 219 161 1180 11 52 SW ALTS1&4,ALTS3&4 I 7 0209 , Q51 ?66 161 1181 11 53 NPJBX B 0 I 4 0216 B 000 161 1182 11 54 NOTER MCW OUTPT&85,LMAINX I 7 0220 M I97 086 161 1183 11 55 B WRTREC I 4 0227 B 721 161 1184 11 56 CHUCK B NOALTB I 4 0231 B Q20 161 1185 11 57 LTORG * I 0235 DCW @456@ I 3 0237 LIT 161 DCW @N@ I 1 0238 LIT 162 1186 11 58 ORG 246 I 0246 1187 11 59 DA 1X86 I 0246 0331 1188 11 60 AREASV EQU * I 0331 1189 11 61 GMOVL2 DCW @}@ I 1 0332 GMARK 163 1190 11 62 EX I B 000 164 1 1401 AUTOCODER - PASS 2 - END OVERLAY -VERSION 3 3725L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1191 11 63 JOB 1401 AUTOCODER - PASS 2 - END OVERLAY -VERSION 3 I 1192 11 64 SFX I I 1193 11 65 ORG 341 I 0341 1194 11 66 OVLY3 MN @5@,TDF6&4 I 7 0341 D 432 768 167 1195 11 73 SBR LONG&3,@N@ I 7 0348 H J60 433 167 1196 11 74 LCA 186,LMAINX I 7 0355 L 186 086 167 1197 11 75 B NEWWRT I 4 0362 B J35 167 1198 11 76 CW OUTPT&80 I 4 0366 ) I92 167 1199 11 77 SW GMOVL4 I 4 0370 , 606 167 1200 11 78 MCW GMWMRK,GMOVL4 I 7 0374 M 773 606 168 1201 11 79 B CTAPE I 4 0381 B S22 168 1202 11 80 NOP TDF9 I 4 0385 N 412 168 1203 11 81 CW GMOVL4 I 4 0389 ) 606 168 1204 11 82 RWD 5 I 5 0393 U %U5 R 168 1205 11 83 B