CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9Z#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 ** TAPE LOADABLE VERSION TL PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 01 000 JOB ** TAPE LOADABLE VERSION 102 02 CTL 641111 103 * THIS PROGRAM WILL LOAD SORT 7 ON A 104 04 * SYSTEM TAPE.IT ALSO ENABLES A USER TO UPDATE HIS 105 05 * EXISTING DECK WITH CORRECTION CARDS FROM A 106 06 * MODIFICATION LEVEL 107 07 * 108 08 ORG 81 0081 109 09 GMARKA DCW @}@ GROUPMARK AT END OF PUNCH AREA 1 0081 4 110 10 ORG 181 0181 111 11 GMARKB DCW @}@ GROUPMARK AT END OF CARD READ AR 1 0181 5 112 12 ORG 7998 7998 113 13 GMARKC DCW @}@ HIGH ORDER GROUPMARK LOCATION 1 7998 6 114 14 ORG 182 0182 115 15 CNTRWR DCW @00@ 2 0183 7 116 16 CONTRE DCW @00@ 2 0185 7 117 17 ADDBKT DCW @000@ 3 0188 7 118 18 ORG 333 0333 119 19 ERHAL1 H *-3 AN INVALID CARD IS PRESENT IN 4 0333 . 333 8 120 20 * EITHER THE SORT DECK OR THE ALTER 121 21 * CARDS 122 22 PATBKT DCW @000@ ADDRESS OF PATCH AREA STORED HERE 3 0339 8 123 23 ERHAL2 H *-3 EOR DETECTED IN BUILDING OR 4 0340 . 340 8 124 24 * UPDATING TAPES 125 25 ERHAL3 H WRITEX 99 WRITE ATTEMPTS HAVE BEEN MADE 4 0344 . T71 8 126 26 MLC @00@,CNTRWR 7 0348 M M70 183 8 127 27 SKP 3 PUSH START TO REWRITE IN SAME 5 0355 U %U3 E 8 128 28 B TAPERW LOCATION START RESET/START TO 4 0360 B T33 8 129 29 * SKIP FOWARD AND RETRY 130 30 ERHAL4 H *-3 AN ALTER CARD SHOULD BE PRESENT 4 0364 . 364 9 131 31 * AND IS NOT DETECTED RESTART 132 32 ERHAL5 H *-3 EOF REACHED ON OLD SYSTEMS TAPE 4 0368 . 368 9 133 33 * PRIOR TO END OF CARDS IN READER 134 34 * CHECK ALTER CARDS FOR PROPER SEQ 135 35 * NUMBERS AND PROPER LOCATION IN 136 36 * DESIRED ASCENDING SEQUENCE 137 37 ERHAL6 H REEREX 99 ATTEMPTS TO READ-PERSS 4 0372 . /58 9 138 38 * START TO TRY AGAIN 139 39 ERHAL7 H *-3 AN INVALID LAST CARD HAS BEEN 4 0376 . 376 9 140 40 ERHAL8 H ALSRCH A RECORD ON THE ALTER TAPE IS 4 0380 . !98 9 141 41 BSP 2 NEITHER AN ALTER CARD NOR A LOAD 5 0384 U %U2 B 9 142 42 B ALSRCH CARD-PRESS START TO BYPASS RECORD 4 0389 B !98 9 143 43 * START-RESET AND START TO REREAD 144 44 * THE RECORD 145 45 * DETECTED 146 46 RCONTR CS 80 4 0393 / 080 10 147 47 RWD 3 REWIND UPDATE TAPE 5 0397 U %U3 R 10 ** TAPE LOADABLE VERSION TL PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 48 SW 81,181 7 0402 , 081 181 10 149 49 SW GMARKC 4 0409 , I9Y 10 150 50 USERE1 NOP 0 USER EXIT 4 0413 N 000 10 151 51 BSS CEECHK,C 5 0417 B 436 C 10 152 52 BSS O2KADJ,E 5 0422 B 562 E 10 153 53 BSS O6KADJ,F 5 0427 B 614 F 11 154 54 B SEUPCC 4 0432 B 818 11 155 55 CEECHK BSS FRESTO,F 5 0436 B 466 F 11 156 56 BSS ERESTO,E 5 0441 B 497 E 11 157 57 BCE ERRSSW,MESSAG-8,6 8 0446 B 528 M60 6 11 158 58 BCE ERRSSW,MESSAG-8,2 8 0454 B 528 M60 2 11 159 59 B SEUPCC 4 0462 B 818 11 160 60 FRESTO BCE ERRSSW,MESSAG-8,8 8 0466 B 528 M60 8 12 161 61 BCE ERRSSW,MESSAG-8,2 8 0474 B 528 M60 2 12 162 62 MLCWA GMARKC,15998 7 0482 L I9Y I9H 12 163 63 CW GMARKC 4 0489 ) I9Y 12 164 64 B SEUPCC 4 0493 B 818 12 165 65 ERESTO BCE ERRSSW,MESSAG-8,8 8 0497 B 528 M60 8 12 166 66 BCE ERRSSW,MESSAG-8,6 8 0505 B 528 M60 6 13 167 67 MLCWA GMARKC,11998 7 0513 L I9Y I9Q 13 168 68 CW GMARKC 4 0520 ) I9Y 13 169 69 B SEUPCC 4 0524 B 818 13 170 70 ERRSSW CS 332 4 0528 / 332 13 171 71 CS 1 0532 / 13 172 72 MLC MESSAG,243 7 0533 M M68 243 13 173 73 MLC @ERROR @ 4 0540 M M76 14 174 74 W 1 0544 2 14 175 75 CC 1 2 0545 F 1 14 176 76 H *-3 4 0547 . 547 14 177 77 SEVMVE MLC @60@,26 7 0551 M M78 026 14 178 78 B SETWMK&12 4 0558 B |28 14 179 79 O2KADJ MLC @00|@,ADDBKT 7 0562 M M81 188 14 180 80 MLC @ 12@,MESSAG-8 7 0569 M M84 M60 15 181 81 MLC @L@,ALERCK-9 INITIALIZE TO BYPASS ONLY 16K 7 0576 M M85 V70 15 182 82 MLCWA GMARKC,11998 7 0583 L I9Y I9Q 15 183 83 CLRO2K CS 11997 4 0590 / I9P 15 184 84 SBR CLRO2K&3 4 0594 H 593 15 185 85 C CLRO2K&3,@I9Z@ 7 0598 C 593 M88 15 186 86 BU CLRO2K 5 0605 B 590 / 16 187 87 B MOMAIN 4 0610 B 666 16 188 88 O6KADJ MLC @00!@,ADDBKT 7 0614 M M91 188 16 189 89 MLC @ 16@,MESSAG-8 7 0621 M M94 M60 16 190 90 MLC @K@,ALERCK-1 INITIALIZE TO BYPASS ONLY 12K 7 0628 M M95 V78 16 191 91 MLCWA GMARKC,15998 7 0635 L I9Y I9H 16 192 92 CLRO6K CS 15997 4 0642 / I9G 17 193 93 SBR CLRO6K&3 4 0646 H 645 17 194 94 C CLRO6K&3,@I9Z@ 7 0650 C 645 M88 17 195 95 BU CLRO6K 5 0657 B 642 / 17 196 96 B MOMAIN 4 0662 B 666 17 197 97 MOMAIN MA ADDBKT,BEHALT&3 7 0666 # 188 H8Z 17 ** TAPE LOADABLE VERSION TL PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 98 CW 7998 4 0673 ) I9Y 17 199 99 MA ADDBKT,BEHALT&7 7 0677 # 188 H9T 18 200 1 00 MA ADDBKT,BEHALT&10 7 0684 # 188 H9W 18 201 1 01 MA ADDBKT,ERRSTP&3 7 0691 # 188 I0| 18 202 1 02 MA ADDBKT,ERRSTP&6 7 0698 # 188 I0T 18 203 1 03 MA ADDBKT,ERRSTP&10 7 0705 # 188 I0X 18 204 1 04 MA ADDBKT,ERRSTP&13 7 0712 # 188 I1| 19 205 1 05 MA ADDBKT,MLSEND&3 7 0719 # 188 I2| 19 206 MA ADDBKT,MLSEND&6 7 0726 # 188 I2T 19 207 MA ADDBKT,MLSEND&10 7 0733 # 188 I2X 19 208 MA ADDBKT,MLSEND&32 7 0740 # 188 I4Z 19 209 1 09 MA ADDBKT,MLSEND&37 7 0747 # 188 I5U 20 210 1 10 MLC @N@,ALRMOD-4 7 0754 M M96 W33 20 211 1 11 MLC @B@,CKLDCD-4 7 0761 M M97 944 20 212 1 12 MA ADDBKT,BMLSEN&3 7 0768 # 188 I7U 20 213 1 13 SBR PATBKT,CONTER 7 0775 H 339 I7W 20 214 1 14 MA ADDBKT,PATBKT 7 0782 # 188 339 21 215 1 15 PALOAD MLC PATBKT,*&7 LOAD PATCH ACCORDING TO MACHINE 7 0789 M 339 802 21 216 1 16 MLCWA CONTER,000 SPECIFICATIONS 7 0796 L I7W 000 21 217 1 17 MLCWA 1 0803 L 21 218 1 18 MLCWA 1 0804 L 21 219 1 19 MLCWA 1 0805 L 21 220 1 20 MLCWA 1 0806 L 21 221 1 21 MLCWA 1 0807 L 22 222 1 22 MLCWA 1 0808 L 22 223 1 23 MLCWA 1 0809 L 22 224 1 24 MLCWA 1 0810 L 22 225 1 25 MLCWA 1 0811 L 22 226 1 26 MLCWA 1 0812 L 22 227 1 27 MLCWA 1 0813 L 22 228 1 28 MLCWA 1 0814 L 23 229 1 29 MLCWA 1 0815 L 23 230 1 30 MLCWA 1 0816 L 23 231 1 31 MLCWA 1 0817 L 23 232 1 32 SEUPCC CW 81,181 7 0818 ) 081 181 23 233 1 33 MLCWA MOVMER&3,12 7 0825 L L81 012 23 234 1 34 MLCWA 1 0832 L 23 235 1 35 MLCWA 1 0833 L 24 236 1 36 WTW 3,1 8 0834 L %U3 001 W 24 237 1 37 BAV *&1 5 0842 B 847 Z 24 238 1 38 BER TAPERW 5 0847 B T33 L 24 239 1 39 BEF ERHAL2 5 0852 B 340 K 24 240 1 40 SW 81,181 7 0857 , 081 181 24 241 1 41 CS 80 4 0864 / 080 24 242 1 42 SW 1 4 0868 , 001 25 243 1 43 MLC @N@,CKLDCD NOP BRANCH ON LOAD CARD 7 0872 M M96 948 25 244 1 44 BSS UPDATE,C BRANCH IF MODIFICATION LEVEL UPDATE 5 0879 B 893 C 25 245 1 45 RWD 1 REWIND SYSTEMS TAPE 5 0884 U %U1 R 25 246 1 46 * IS DESIRED 247 1 47 B BLDNEW OTHERWISE BRANCH TO BUILD NEW SYSTEMS 4 0889 B V22 25 ** TAPE LOADABLE VERSION TL PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 48 * TAPE 249 1 49 UPDATE MLC @N@,CKLDCD-4 7 0893 M M96 944 25 250 1 50 NOP 000,000 7 0900 N 000 000 25 251 1 51 SORTUD BLC LASINI 5 0907 B S75 A 26 252 1 52 R 1 0912 1 26 253 1 53 C 20,COPYBK 7 0913 C 020 M33 26 254 1 54 BE LASINI 5 0920 B S75 S 26 255 1 55 C 20,@DELET@ 7 0925 C 020 N02 26 256 1 56 BE DELMOD 5 0932 B S53 S 26 257 1 57 * OR END OF ROUTINE 258 1 58 C 20,ALTRLB IS AN ALTER CARD PRESENT 7 0937 C 020 M28 26 259 1 59 NOP ALRMOD 4 0944 N W37 27 260 1 60 CKLDCD BCE RELUSI,40,L BRANCH IF LOAD CARD IS DETECTED 8 0948 B |80 040 L 27 261 1 61 BU ERHAL4 NO ALTER CARD WHEN ONE SHOULD 5 0956 B 364 / 27 262 1 62 * BE PRESENT 263 1 63 MLC @B@,CKLDCD RESTORE BRANCH INSTRUCTION 7 0961 M M97 948 27 264 1 64 NOP ERHAL7 4 0968 N 376 27 265 1 65 SEARCH MLZS *-6,113 SEARCH TAPE RECORDS FOR EXECUTE 7 0972 Y 972 113 27 266 1 66 RT 1,101 CARD.WHEN EX CARD IS FOUND BSP 8 0979 M %U1 101 R 28 267 1 67 MLZS *-6,*&8 THE TAPE ONE RECORD AND WRITE 7 0987 Y 987 |01 28 268 1 68 BCE NOISEY,113, CORRECTION CARDS IMMEDIATELY 8 0994 B T14 113 28 269 1 69 BEF READEF 5 1002 B /21 K 28 270 1 70 BER READER PRIOR TO EX CARD ON OUTPUT TAPE 5 1007 B /25 L 28 271 1 71 NOP BYPASS 4 1012 N |53 28 272 1 72 SETWMK SW 172 SET WORDMARK TO CHECK SEQUENCE 4 1016 , 172 29 273 1 73 BCE SEVMVE,26, 8 1020 B 551 026 29 274 1 74 C 26,177 NUMBER OF CARD 7 1028 C 026 177 29 275 1 75 CW 172 4 1035 ) 172 29 276 1 76 BU BYPASS PROPER TAPE RECORD HAS NOT BEEN 5 1039 B |53 / 29 277 1 77 * FOUND WRITE TAPE UNIT 1 278 1 78 BSP 1 BACKSPACE TO REREAD EXECUTE REC 5 1044 U %U1 B 29 279 1 79 B SORTUD RETURN TO READ OBJECT CARD 4 1049 B 907 29 280 1 80 BYPASS WT 3,101 BYPASSED RECORDS ARE WRITTEN ON 8 1053 M %U3 101 W 30 281 1 81 BAV *&1 NEW OUTPUT TAPE**RETURN TO SEARCH 5 1061 B |66 Z 30 282 1 82 BER TAPERW OLD TAPE FOR EXECUTE CARDS 5 1066 B T33 L 30 283 1 83 BEF ERHAL2 5 1071 B 340 K 30 284 1 84 B SEARCH CHECK NEXT TAPE RECORD FOR EX CD 4 1076 B 972 30 285 1 85 RELUSI MLC BMLSEN&3,71 7 1080 M I7U 071 30 286 1 86 MOVWRA MLC 80,180 7 1087 M 080 180 31 287 1 87 WT 3,101 8 1094 M %U3 101 W 31 288 1 88 BAV *&1 5 1102 B /07 Z 31 289 1 89 BER TAPERW 5 1107 B T33 L 31 290 1 90 BEF ERHAL2 5 1112 B 340 K 31 291 1 91 B SORTUD 4 1117 B 907 31 292 1 92 READEF B ERHAL5 4 1121 B 368 31 293 1 93 READER SBR REEREX&3 4 1125 H /61 32 294 1 94 MA @I7?@,REEREX&3 7 1129 # N05 /61 32 295 1 95 BKSPAK BSP 1 5 1136 U %U1 B 32 296 1 96 BAV *&1 5 1141 B /46 Z 32 297 1 97 A @1@,CONTRE 7 1146 A N06 185 32 ** TAPE LOADABLE VERSION TL PAGE 5 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 1 98 BAV ERHAL6 5 1153 B 372 Z 32 299 1 99 REEREX B 000 4 1158 B 000 32 300 2 00 ENDALT MLC @N@,SEARCH-4 7 1162 M M96 968 33 301 2 01 SBR ALRCSB&3,ALRWRT 7 1169 H X76 V99 33 302 2 02 MLC @N@,SETWMK-4 7 1176 M M96 |12 33 303 2 03 SBR READEF&3,ERHAL5 7 1183 H /24 368 33 304 2 04 SBR CKLDCD&11,ERHAL4 7 1190 H 959 364 33 305 2 05 SBR READEF-1,SORTUD 7 1197 H /20 907 34 306 2 06 MLC @N@,ALRBLD-4 7 1204 M M96 V45 34 307 2 07 RWD 1 5 1211 U %U1 R 34 308 2 08 WTM 3 5 1216 U %U3 M 34 309 2 09 RWD 3 5 1221 U %U3 R 34 310 2 10 CS 332 4 1226 / 332 34 311 2 11 CS 1 1230 / 34 312 2 12 MLC @END OF UPDATE RUN@,218 7 1231 M N23 218 35 313 2 13 W 1 1238 2 35 314 2 14 MLC @MODIFIED OR COPIED TAPE ON UNIT 3@,234 7 1239 M N56 234 35 315 2 15 W 1 1246 2 35 316 2 16 CC 1 2 1247 F 1 35 317 2 17 H RCONTR 4 1249 . 393 35 318 2 18 DELMOD SBR BYPASS-1,DELEND 7 1253 H |52 S64 35 319 2 19 B SEARCH 4 1260 B 972 36 320 2 20 DELEND SBR BYPASS-1,SORTUD 7 1264 H |52 907 36 321 2 21 B SORTUD 4 1271 B 907 36 322 2 22 LASINI MLC @B@,SEARCH-4 7 1275 M M97 968 36 323 2 23 MLC @B@,SETWMK-4 7 1282 M M97 |12 36 324 2 24 SBR CKLDCD&11,ERHAL7 7 1289 H 959 376 36 325 2 25 SBR READEF-1,SEARCH 7 1296 H /20 972 37 326 2 26 SBR READEF&3,ENDALT 7 1303 H /24 /62 37 327 2 27 B SEARCH 4 1310 B 972 37 328 2 28 NOISEY SBR NOISEX&3 INITIALIZE NOISE EXIT 4 1314 H T32 37 329 2 29 MA @I7?@,NOISEX&3 7 1318 # N05 T32 37 330 2 30 CS 113 4 1325 / 113 37 331 2 31 NOISEX B 000 4 1329 B 000 37 332 2 32 TAPERW SBR WRITEX&3 4 1333 H T74 38 333 2 33 MA @I8B@,WRITEX&3 7 1337 # N59 T74 38 334 2 34 MLC WRITEX&3,ERHAL4-1 7 1344 M T74 363 38 335 2 35 BKSPAC BSP 3 5 1351 U %U3 B 38 336 2 36 A @1@,CNTRWR 7 1356 A N06 183 38 337 2 37 BCE SKPCHK,CNTRWR,0 8 1363 B T75 183 0 38 338 2 38 WRITEX B 000 4 1371 B 000 39 339 2 39 SKPCHK BCE ERHAL3&11,CNTRWR-1,1 8 1375 B 355 182 1 39 340 2 40 BCE ERHAL3&11,CNTRWR-1,2 8 1383 B 355 182 2 39 341 2 41 BCE ERHAL3,CNTRWR-1,3 8 1391 B 344 182 3 39 342 2 42 B WRITEX 4 1399 B T71 39 343 2 43 TMWERR SBR TMWREX 4 1403 H U38 39 344 2 44 MA @I8E@,TMWREX&3 7 1407 # N62 U41 40 345 2 45 SBR ERHAL4-1,TMWREX&3 7 1414 H 363 U41 40 346 2 46 TMWBSP BSP 3 5 1421 U %U3 B 40 347 2 47 A @1@,CNTRWR 7 1426 A N06 183 40 ** TAPE LOADABLE VERSION TL PAGE 6 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 2 48 BAV ERHALI 5 1433 B U42 Z 40 349 2 49 TMWREX B 000 4 1438 B 000 40 350 2 50 ERHALI H TMWREX 4 1442 . U38 40 351 2 51 PASS60 SBR RELUSI-1,REPASS 7 1446 H |79 U53 41 352 2 52 REPASS MLZS *-6,113 SEARCH TAPE FOR 61 IN COLUMN 77 7 1453 Y U53 113 41 353 2 53 RT 1,101 8 1460 M %U1 101 R 41 354 2 54 MLZS *-6,*&8 7 1468 Y U68 U82 41 355 2 55 BCE NOISEY,113, 8 1475 B T14 113 41 356 2 56 BEF READEF 5 1483 B /21 K 42 357 2 57 BER READER 5 1488 B /25 L 42 358 2 58 C 77,@60@ IS SORT 7 PRESENT 7 1493 C 077 M78 42 359 2 59 BE BYPASS 5 1500 B |53 S 42 360 2 60 SBR RELUSI-1,SEARCH 7 1505 H |79 972 42 361 2 61 BSP 1 5 1512 U %U1 B 42 362 2 62 B SORTUD 4 1517 B 907 42 363 2 63 DC @ @ 1 1521 43 364 2 64 BLDNEW RWD 2 REWIND ALTER TAPE FOR FIRST BUILD RUN 5 1522 U %U2 R 43 365 2 65 * THIS TAPE CONTAINS THE ALTER CARD 366 2 66 SW 1 4 1527 , 001 43 367 2 67 * THIS ROUTINE BUILDS TAPE UNIT 2. ON THIS TAPE 368 2 68 * WILL BE FOUND THE NECESSARY ALTER CARDS TO ADJUST 369 2 69 MLC @2@,ERHAL3&14 7 1531 M N63 358 43 370 2 70 * THE USERS SYSTEM TAPE ACCORDING TO MACHINE 371 2 71 * SPECIFICATIONS-------- 372 2 72 MLC @2@,BKSPAC&3 7 1538 M N63 T54 43 373 2 73 NOP 0 4 1545 N 000 44 374 2 74 ALRBLD BLC ALRFIX 5 1549 B X91 A 44 375 2 75 R 1 1554 1 44 376 2 76 BCE ALRBOT,1,, BRANCH IF CARD IS A BOOTSTRAP 8 1555 B X77 001 , 44 377 2 77 BCE ALRBLD,79,K BYPASS 12K ADJUSTMENT CARDS 8 1563 B V49 079 K 44 378 2 78 BCE ALRBLD,79,L BYPASS 16K ADJUSTMENT CARDS 8 1571 B V49 079 L 44 379 2 79 ALERCK BCE ALRBRN,40,L BRANCH IF CARD IS A LOAD CARD 8 1579 B W26 040 L 45 380 2 80 C 20,ALTRLB IS THE CARD AN ALTER CARD 7 1587 C 020 M28 45 381 2 81 BU ERHAL1 NO-THEN THERE IS AN ERROR 5 1594 B 333 / 45 382 2 82 ALRWRT WT 2,1 WRITE ALTER PATCHES ON TAPE #2 8 1599 M %U2 001 W 45 383 2 83 BAV *&1 5 1607 B W12 Z 45 384 2 84 BER TAPERW 5 1612 B T33 L 45 385 2 85 BEF ERHAL2 5 1617 B 340 K 46 386 2 86 B ALRBLD 4 1622 B V49 46 387 2 87 ALRBRN MLC BMLSEN&3,71 7 1626 M I7U 071 46 388 2 88 B ALRWRT 4 1633 B V99 46 389 2 89 ALRMOD C 39,MLSCOM 7 1637 C 039 L84 46 390 2 90 BE ADTSTB 5 1644 B W72 S 46 391 2 91 MA @I9I@,ALRMOD&3 7 1649 # N66 W40 46 392 2 92 C ALRMOD&3,@003@ 7 1656 C W40 N69 47 393 2 93 BE ALR40B-7 5 1663 B W98 S 47 394 2 94 B ALRMOD 4 1668 B W37 47 395 2 95 ADTSTB SW ALRMOD&1 4 1672 , W38 47 396 2 96 MLC ALRMOD&3,*&11 7 1676 M W40 W93 47 397 2 97 CW ALRMOD&1 4 1683 ) W38 47 ** TAPE LOADABLE VERSION TL PAGE 7 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 2 98 MA ADDBKT,000 7 1687 # 188 000 47 399 2 99 B ALRMOD&12 4 1694 B W49 48 400 3 00 MLC @039@,ALRMOD&3 7 1698 M N72 W40 48 401 3 01 ALR40B C 39,NOICOM 7 1705 C 039 L87 48 402 3 02 BE ADTSTN 5 1712 B X40 S 48 403 3 03 MA @I9I@,ALR40B&3 7 1717 # N66 X08 48 404 3 04 C ALR40B&3,@003@ 7 1724 C X08 N69 48 405 3 05 BE ALRCSB-7 5 1731 B X66 S 49 406 3 06 B ALR40B 4 1736 B X05 49 407 3 07 ADTSTN SW ALR40B&1 4 1740 , X06 49 408 3 08 MLC ALR40B&3,*&11 7 1744 M X08 X61 49 409 3 09 CW ALR40B&1 4 1751 ) X06 49 410 3 10 MA ADDBKT,000 7 1755 # 188 000 49 411 3 11 B ALR40B&12 4 1762 B X17 49 412 3 12 MLC @039@,ALR40B&3 7 1766 M N72 X08 50 413 3 13 ALRCSB B ALRWRT 4 1773 B V99 50 414 3 14 ALRBOT BCE *&5,68, 8 1777 B X89 068 50 415 3 15 B ALERCK 4 1785 B V79 50 416 3 16 R 1 1789 1 50 417 3 17 R 1 1790 1 50 418 3 18 ALRFIX MLC @2@,TMWBSP&3 INITIALIZE WRITE TAPEMARK ERROR 7 1791 M N63 U24 50 419 3 19 WTM 2 5 1798 U %U2 M 51 420 3 20 * ROUTINE 421 3 21 BAV *&1 5 1803 B Y08 Z 51 422 3 22 BER TMWERR TAPEMARK WRITE ERROR 5 1808 B U03 L 51 423 3 23 MLC @1@,TMWBSP&3 7 1813 M N06 U24 51 424 3 24 MLC @1@,BKSPAC&3 7 1820 M N06 T54 51 425 3 25 MLC @1@,ERHAL3&14 7 1827 M N06 358 51 426 3 26 RWD 2 5 1834 U %U2 R 52 427 3 27 REACAR BLC ENDRT1 5 1839 B !29 A 52 428 3 28 R 1 1844 1 52 429 3 29 BCE SKIP3S,1,, 8 1845 B Z05 001 , 52 430 3 30 BCE GMSHFT,1,} 8 1853 B Z42 001 } 52 431 3 31 EXECHK BCE EXEINI,68,B 8 1861 B Z31 068 B 52 432 3 32 BCE NORMAL,40,L 8 1869 B Z88 040 L 53 433 3 33 BCE ENDCRD,40,/ 8 1877 B Y89 040 / 53 434 3 34 B ERHAL1 4 1885 B 333 53 435 3 35 ENDCRD BCE *&5,68, 8 1889 B Z01 068 53 436 3 36 B ERHAL1 4 1897 B 333 53 437 3 37 B EXEINI 4 1901 B Z31 53 438 3 38 SKIP3S BCE *&5,68, 8 1905 B Z17 068 54 439 3 39 B EXECHK-8 4 1913 B Y53 54 440 3 40 R 1 1917 1 54 441 3 41 R 1 1918 1 54 442 3 42 BCE EXECHK-8,40,L 8 1919 B Y53 040 L 54 443 3 43 B REACAR 4 1927 B Y39 54 444 3 44 EXEINI MLC @1@,78 7 1931 M N06 078 54 445 3 45 B WRITAP 4 1938 B !02 55 446 3 46 GMSHFT SW 41,44 7 1942 , 041 044 55 447 3 47 MLC 46,50 7 1949 M 046 050 55 ** TAPE LOADABLE VERSION TL PAGE 8 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 3 48 MLC 38,39 7 1956 M 038 039 55 449 3 49 MLC @ @,1 7 1963 M N73 001 55 450 3 50 MA @001@,43 7 1970 # N76 043 55 451 3 51 CW 41,44 7 1977 ) 041 044 56 452 3 52 B EXECHK 4 1984 B Y61 56 453 3 53 NORMAL MLC BMLSEN&3,71 7 1988 M I7U 071 56 454 3 54 MLC @1@,BKSPAC&3 INITIALIZE WRITE ERROR ROUTINE 7 1995 M N06 T54 56 455 3 55 WRITAP WT 1,1 8 2002 M %U1 001 W 56 456 3 56 BAV *&1 5 2010 B !15 Z 56 457 3 57 BER TAPERW 5 2015 B T33 L 57 458 3 58 BEF ERHAL2 5 2020 B 340 K 57 459 3 59 B REACAR 4 2025 B Y39 57 460 3 60 ENDRT1 MLC @1@,TMWBSP&3 7 2029 M N06 U24 57 461 3 61 WTM 1 5 2036 U %U1 M 57 462 3 62 BAV *&1 5 2041 B !46 Z 57 463 3 63 BER TMWERR 5 2046 B U03 L 57 464 3 64 RWD 1 5 2051 U %U1 R 58 465 3 65 SBR BYPASS-1,ALSRCH 7 2056 H |52 !98 58 466 3 66 SBR READEF-1,ALSRCH 7 2063 H /20 !98 58 467 3 67 MLC @3@,BKSPAC&3 7 2070 M N77 T54 58 468 3 68 MLC @3@,ERHAL3&14 7 2077 M N77 358 58 469 3 69 MLC @3@,TMWBSP&3 7 2084 M N77 U24 59 470 3 70 MLC @0@,CONTRE 7 2091 M N78 185 59 471 3 71 ALSRCH MLZS *-6,13 7 2098 Y !98 013 59 472 3 72 RT 2,1 8 2105 M %U2 001 R 59 473 3 73 MLZS *-6,*&8 7 2113 Y J13 J27 59 474 3 74 BCE NOYSEY,13, 8 2120 B J62 013 60 475 3 75 BEF REEDEF 5 2128 B K03 K 60 476 3 76 BER REEDER 5 2133 B J70 L 60 477 3 77 C 20,ALTRLB 7 2138 C 020 M28 60 478 3 78 BCE MOVWRA,40,L 8 2145 B |87 040 L 60 479 3 79 BU ERHAL8 5 2153 B 380 / 60 480 3 80 ALBYPS B SEARCH 4 2158 B 972 61 481 3 81 NOYSEY CS 13 4 2162 / 013 61 482 3 82 B ALSRCH 4 2166 B !98 61 483 3 83 REEDER BSP 2 5 2170 U %U2 B 61 484 3 84 SBR ERHAL6&3,ALSRCH 7 2175 H 375 !98 61 485 3 85 BAV *&1 5 2182 B J87 Z 61 486 3 86 A @1@,CONTRE 7 2187 A N06 185 61 487 3 87 BAV ERHAL6 5 2194 B 372 Z 62 488 3 88 B ALSRCH 4 2199 B !98 62 489 3 89 REEDEF SBR BYPASS-1,SEARCH 7 2203 H |52 972 62 490 3 90 SBR SETWMK-11,EOBILD 7 2210 H |05 K28 62 491 3 91 MLC @B@,SETWMK-4 7 2217 M M97 |12 62 492 3 92 B SEARCH 4 2224 B 972 62 493 3 93 EOBILD CS 332 4 2228 / 332 62 494 3 94 CS 1 2232 / 63 495 3 95 WTM 3 5 2233 U %U3 M 63 496 3 96 MLC @N@,SETWMK-4 7 2238 M M96 |12 63 497 3 97 RWD 1 5 2245 U %U1 R 63 ** TAPE LOADABLE VERSION TL PAGE 9 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 3 98 RWD 2 5 2250 U %U2 R 63 499 3 99 RWD 3 5 2255 U %U3 R 63 500 4 00 MLC @END OF SYSTEM CONSTRUCTION@,226 7 2260 M O04 226 63 501 4 01 W 1 2267 2 64 502 4 02 MLC @SYSTEMS TAPE ON TAPE UNIT 3@,227 7 2268 M O31 227 64 503 4 03 W 1 2275 2 64 504 4 04 MLC MESSAG,235 7 2276 M M68 235 64 505 4 05 W 1 2283 2 64 506 4 06 CC 1 2 2284 F 1 64 507 4 07 H *-3 4 2286 . K86 64 508 4 08 SORT7 CW 5,9 7 2290 ) 005 009 65 509 4 09 SW 1,40 7 2297 , 001 040 65 510 4 10 SW 47,54 7 2304 , 047 054 65 511 4 11 SW 61,68 7 2311 , 061 068 65 512 4 12 SW 72 4 2318 , 072 65 513 4 13 CW 81 4 2322 ) 081 65 514 4 14 MLC BMLSEN&3,*&4 7 2326 M I7U L36 66 515 4 15 B 000 4 2333 B 000 66 516 4 16 EMERGE MLC @1@,REPASS&10 7 2337 M N06 U63 66 517 4 17 CS 80 4 2344 / 080 66 518 4 18 SW 1 4 2348 , 001 66 519 4 19 MLC @1@,BKSPAK&3 7 2352 M N06 /39 66 520 4 20 SBR BLDNEW-2,EMERCO 7 2359 H V20 L88 67 521 4 21 B REPASS 4 2366 B U53 67 522 4 22 H SORT7 4 2370 . K90 67 523 4 23 * PRESS START FOR SORT 7 524 4 24 * START-RESET AND START FOR REBUILD OR UPDATE 525 4 25 USERE2 NOP 0 USER EXIT 4 2374 N 000 67 526 4 26 MOVMER B RCONTR 4 2378 B 393 67 527 4 27 MLSCOM DCW &MLSEND 3 2384 I1X 67 528 4 28 NOICOM DCW &NOISE-1 3 2387 I6W 67 529 4 29 EMERCO SW 40,47 7 2388 , 040 047 68 530 4 30 SW 54,61 7 2395 , 054 061 68 531 4 31 SW 68,72 7 2402 , 068 072 68 532 4 32 SW 81 4 2409 , 081 68 533 4 33 MLC BMLSEN&3,*&4 7 2413 M I7U M23 68 534 4 34 B 000 4 2420 B 000 68 535 4 35 ALTRLB DCW @ALTER@ 5 2428 69 536 4 36 COPYBK DCW @COPY1@ 5 2433 69 537 4 37 MESSAG DCW @THIS TAPE IS BUILT FOR AN 8K SYSTEM@ 35 2468 70 538 4 38 LTORG * 2469 DCW @00@ 2 2470 LIT 70 173 @ERROR @ 6 2476 LIT 71 @60@ 2 2478 LIT 71 @00|@ 3 2481 LIT 71 @ 12@ 3 2484 LIT 71 @L@ 1 2485 LIT 71 @I9Z@ 3 2488 LIT 71 @00!@ 3 2491 LIT 71 @ 16@ 3 2494 LIT 72 ** TAPE LOADABLE VERSION TL PAGE 10 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @K@ 1 2495 LIT 72 @N@ 1 2496 LIT 72 @B@ 1 2497 LIT 72 255 @DELET@ 5 2502 LIT 72 @I7?@ 3 2505 LIT 72 @1@ 1 2506 LIT 72 312 @END OF UPDATE RUN@ 17 2523 LIT 73 314 @MODIFIED OR COPIED TAPE ON UNIT 3@ 33 2556 LIT 74 @I8B@ 3 2559 LIT 74 @I8E@ 3 2562 LIT 74 @2@ 1 2563 LIT 75 @I9I@ 3 2566 LIT 75 @003@ 3 2569 LIT 75 @039@ 3 2572 LIT 75 @ @ 1 2573 LIT 75 @001@ 3 2576 LIT 75 @3@ 1 2577 LIT 75 @0@ 1 2578 LIT 76 500 @END OF SYSTEM CONSTRUCTION@ 26 2604 LIT 76 502 @SYSTEMS TAPE ON TAPE UNIT 3@ 27 2631 LIT 77 539 4 39 * THIS ROUTINE IS LOADED INTO HIGH CORE 540 4 40 * DEPENDING UPON MACHINE SPECIFICATIONS 541 4 41 * AND IS USED THROUGHOUT THE SORT PROGRAM TO READ 542 4 42 * THE VARIOUS OVERLAYS. THIS AREA IS MODIFIED IN THE 543 4 43 * VARIOUS PHASES BUT ALWAYS REMAINS FIXED IN THE 544 4 44 * SAME AREA. THE USER SHOULD KEEP THIS AREA CLEAR 545 4 45 * OF USER PROGRAMMING 546 4 46 ORG 7886 7886 547 4 47 BEHALT H *-3 4 7886 . H8W 78 548 4 48 ZA *-6,CONTER#2 7 7890 ? H9| I7W 78 549 4 49 ERRSTP A *-6,CONTER 7 7897 A H9X I7W 78 550 4 50 BCE BEHALT,CONTER-1,9 8 7904 B H8W I7V 9 78 551 4 51 BSP 1 5 7912 U %U1 B 78 552 MLSEND MLZS *-6,MLNOIS&7 7 7917 Y I1X I5Y 78 553 MLC MLNOIS&7,14 7 7924 M I5Y 014 79 554 4 53 SW 1,68 7 7931 , 001 068 79 555 4 54 RT 1,001 8 7938 M %U1 001 R 79 556 4 55 BER ERRSTP 5 7946 B H9X L 79 557 MLNOIS BCE NOISE,14, 8 7951 B I6X 014 79 558 4 58 SW 72 4 7959 , 072 79 559 4 59 B 40 4 7963 B 040 80 560 4 60 NOISE CS 13 4 7967 / 013 80 561 4 61 BMLSEN B MLSEND 4 7971 B I1X 80 548 CONTER DCW #02 2 7976 AREA 80 562 4 62 EX RCONTR B 393 81 563 * REMOVE THE BOOTSTRAP CARDS 564 4 63 * JOB SORT 7 ALTERATIONS 565 4 64 * THE FOLLOWING ADJUSTMENT CARDS ALTER THE SORT 566 4 65 * ACCORDING TO MACHINE SIZE SPECIFICATIONS IN THE 567 4 66 * CALCULATION OF THE SORT CONSTANTS ** TAPE LOADABLE VERSION TL PAGE 11 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 568 4 67 * THIS SET OF ADJUSTMENT CARDS BRING IN THE NEXT 569 4 68 * OVERLAY THROUGH THE READ TAPE MONITOR 570 4 69 * INSERT ALTER CARD #1 HERE 571 4 70 ORG 6218 6218 572 4 71 SW 40,47 7 6218 , 040 047 84 573 4 72 SW 54,61 7 6225 , 054 061 84 574 4 73 B MLSEND 4 6232 B I1X 84 EIGHT K INITIALIZATION TL J PAGE 12 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 575 4 74 JOB EIGHT K INITIALIZATION 576 4 75 ORG 904 0904 577 4 76 BCE *&5,UAPHZ1, 8 0904 B 916 12W 85 578 4 77 B *&26 4 0912 B 941 85 579 4 78 MLC S7880,UAPHZ1 7 0916 M H0U 12W 85 580 4 79 ORG 7800 7800 581 4 80 S7880 DCW 07880 5 7804 86 582 4 81 UAPHZ1 EQU 4126 4126 583 4 82 ORG 941 0941 584 4 83 MLC S7880,TPAVLM 7 0941 M H0U 412 87 585 4 84 TPAVLM EQU 412 0412 586 4 85 ORG 1338 1338 587 4 86 DCW @ @ 1 1338 88 588 4 87 ORG 1358 1358 589 4 88 MLC ADIGIT,3 7 1358 M H0W 003 89 590 4 89 ORG 7806 7806 591 4 90 ADIGIT DCW 1 1 7806 90 592 4 91 ORG 2796 2796 593 4 92 BCE 3247,1,L 8 2796 B B47 001 L 91 TWELVE K INITIALIZATION TL K PAGE 13 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 594 4 93 JOB TWELVE K INITIALIZATION 595 4 94 ORG 768 0768 596 4 95 CLR12 SBR CLR&3,11799 7 0768 H 751 G9R 92 597 4 96 ORG 916 0916 598 4 97 MLC S11880,UAPHZ1 7 0916 M H0M 12W 93 599 4 98 ORG 11800 11800 600 4 99 S11880 DCW 11880 5 11804 94 601 5 00 ORG 941 0941 602 5 01 MLC S11880,TPAVLM 7 0941 M H0M 412 95 SIXTEEN K INITIALIZATION-ASSIGNMENT PHASE TL L PAGE 14 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 603 5 02 JOB SIXTEEN K INITIALIZATION-ASSIGNMENT PHASE 604 5 03 ORG 748 0748 605 5 04 CLR CS 15799 4 0748 / G9I 96 606 5 05 ORG 916 0916 607 5 06 MLC S15880,UAPHZ1 7 0916 M H0D 12W 97 608 5 07 ORG 15800 15800 609 5 08 S15880 DCW 15880 5 15804 98 610 5 09 ORG 941 0941 611 5 10 MLC S15880,TPAVLM 7 0941 M H0D 412 99 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 15 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 612 5 11 JOB INITIALIZATION FOR ALL MACHINE SIZES 613 5 12 * INSERT ALTER CARD #2 HERE 614 5 13 ORG 997 LOAD PHASE 1-1341 0997 615 5 14 SW 40,47 7 0997 , 040 047 100 616 5 15 SW 54,61 7 1004 , 054 061 100 617 5 16 B MLSEND 4 1011 B I1X 100 618 5 17 * INSERT ALTER CARD #3 HERE 619 5 18 ORG 2792 2792 620 5 19 SW 40,47 7 2792 , 040 047 101 621 5 20 SW 54,61 7 2799 , 054 061 101 622 5 21 B MLSEND 4 2806 B I1X 101 623 5 22 ORG 3099 3099 624 5 23 B 40 4 3099 B 040 102 625 5 24 ORG 4784 4784 626 5 25 B TAPPAS 4 4784 B |0/ 103 627 5 26 DCW @ @ 1 4788 103 628 5 27 ORG 4801 4801 629 5 28 SW 40,47 7 4801 , 040 047 104 630 5 29 SW 54,61 7 4808 , 054 061 104 631 5 30 B MLSEND 4 4815 B I1X 104 632 5 31 ORG 5001 5001 633 5 32 TAPPAS SBR NOISE-1,*&5 7 5001 H I6W |1S 105 634 5 33 B MLSEND 4 5008 B I1X 105 635 5 34 BCE MLSEND,78, 8 5012 B I1X 078 105 636 5 35 SBR NOISE-1,040 7 5020 H I6W 040 105 637 5 36 B NXTINT 4 5027 B 79X 105 638 5 37 DCW @ @ 1 5031 105 639 5 38 NXTINT EQU 4797 4797 640 5 39 * INSERT ALTER CARD #4 HERE 641 5 40 ORG 4786 4786 642 5 41 SW 40,47 7 4786 , 040 047 106 643 5 42 SW 54,61 7 4793 , 054 061 106 644 5 43 B MLSEND 4 4800 B I1X 106 645 5 44 * INSERT ALTER CARD #5 HERE 646 5 45 ORG 6162 6162 647 5 46 SW 40,47 7 6162 , 040 047 107 648 5 47 SW 54,61 7 6169 , 054 061 107 649 5 48 B MLSEND 4 6176 B I1X 107 650 5 49 * INSERT ALTER CARD #6 HERE 651 5 50 ORG 5586 5586 652 5 51 SW 40,47 7 5586 , 040 047 108 653 5 52 SW 54,61 7 5593 , 054 061 108 654 5 53 B MLSEND 4 5600 B I1X 108 655 5 54 * INSERT ALTER CARD #7 HERE 656 5 55 ORG 5020 5020 657 5 56 SW 40,47 7 5020 , 040 047 109 658 5 57 SW 54,61 7 5027 , 054 061 109 659 5 58 B MLSEND 4 5034 B I1X 109 660 5 59 ORG 5045 ALTER 554 5045 661 5 60 B TMLBSS 4 5045 B /5| 110 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 16 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 662 5 61 DCW @ @ 1 5049 110 663 5 62 ORG 5150 5150 664 5 63 TMLBSS SBR NOISE-1,*&5 7 5150 H I6W /6/ 111 665 5 64 B MLSEND 4 5157 B I1X 111 666 5 65 BCE MLSEND,78, 8 5161 B I1X 078 111 667 5 66 SBR NOISE-1,040 7 5169 H I6W 040 111 668 5 67 B LCRD 4 5176 B |1W 111 669 5 68 DCW @1@ 1 5180 111 670 5 69 LCRD EQU 5016 5016 671 5 70 * INSERT ALTER CARD #8 HERE 672 5 71 ORG 1113 1113 673 5 72 SW 40,47 7 1113 , 040 047 112 674 5 73 SW 54,61 7 1120 , 054 061 112 675 5 74 B MLSEND 4 1127 B I1X 112 676 5 75 * INSERT ALTER CARD #9 HERE 677 5 76 ORG 5354 5354 678 5 77 SW 40,47 7 5354 , 040 047 113 679 5 78 SW 54,61 7 5361 , 054 061 113 680 5 79 SBR NOISE-1,DECIDE 7 5368 H I6W U5Z 113 681 5 80 BCE STURPI,URPI,P 8 5375 B T9V 186 P 113 682 5 81 BCE STURPI,URPI,C 8 5383 B T9V 186 C 113 683 5 82 B DECIDE 4 5391 B U5Z 114 684 5 83 STURPI MLC URPI,DECIDE&7 7 5395 M 186 U6W 114 685 5 84 B DECIDE 4 5402 B U5Z 114 686 5 85 DCW @ @ 1 5406 114 687 5 86 ORG 5459 5459 688 5 87 DECIDE BCE YESSIR,79,T 8 5459 B U7/ 079 T 115 689 5 88 B MLSEND 4 5467 B I1X 115 690 5 89 YESSIR SBR NOISE-1,40 7 5471 H I6W 040 115 691 5 90 B 40 4 5478 B 040 115 692 5 91 ORG 5419 5419 693 5 92 SW 40,47 7 5419 , 040 047 116 694 5 93 SW 54,61 7 5426 , 054 061 116 695 5 94 SBR NOISE-1,SKIPIT 7 5433 H I6W U8S 116 696 5 95 B MLSEND 4 5440 B I1X 116 697 5 96 DCW @ @ 1 5444 116 698 5 97 ORG 5482 5482 699 5 98 SKIPIT BCE ALLCLR,79, 8 5482 B U9U 079 117 700 5 99 B MLSEND 4 5490 B I1X 117 701 6 00 ALLCLR SBR NOISE-1,40 7 5494 H I6W 040 117 702 6 01 B 2844 4 5501 B Q44 117 703 6 02 DCW #1 1 5505 117 704 ORG 5260 5260 705 NDRSTT H CKINND 4 5260 . V0W 118 706 ORG 5506 5506 707 CKINND SBR NOISE-1,CKREST 7 5506 H I6W V2/ 119 708 SW 81 4 5513 , 081 119 709 B MLSEND 4 5517 B I1X 119 710 CKREST C 75,@0600@ 7 5521 C 075 V5W 119 711 BE CKNORT 5 5528 B V3X S 119 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 17 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 712 B MLSEND 4 5533 B I1X 119 713 CKNORT SBR NOISE-1,40 7 5537 H I6W 040 119 714 CW 81 4 5544 ) 081 120 715 B 5000 4 5548 B |0| 120 716 DCW #1 1 5552 120 717 LTORG * 5553 DCW @0600@ 4 5556 LIT 120 718 6 03 URPI EQU 186 0186 719 6 04 * INSERT ALTER CARD #10 HERE 720 6 05 ORG 2410 2410 721 6 06 SW 40,47 7 2410 , 040 047 121 722 6 07 SW 54,61 7 2417 , 054 061 121 723 6 08 B MLSEND 4 2424 B I1X 121 724 6 09 ORG 2428 BYPASS 80 CHARACTER ROUTINE 2428 725 6 10 B SKEPAS 4 2428 B M59 121 726 6 11 DCW @ @ 1 2432 121 727 6 12 ORG 2459 2459 728 6 13 SKEPAS SBR NOISE-1,*&5 7 2459 H I6W M70 122 729 6 14 B MLSEND 4 2466 B I1X 122 730 6 15 BCE MLSEND,78, 8 2470 B I1X 078 122 731 6 16 SBR NOISE-1,40 7 2478 H I6W 040 122 732 6 17 B TWNEXT 4 2485 B M06 122 733 6 18 DCW @ @ 1 2489 122 734 6 19 TWNEXT EQU 2406 2406 735 6 20 * INSERT ALTER CARD #11 HERE 736 6 21 ORG 1415 1415 737 6 22 B BYLAPA 4 1415 B X00 123 738 6 23 DCW @ @ 1 1419 123 739 6 24 ORG 1700 1700 740 6 25 BYLAPA SBR NOISE-1,*&5 7 1700 H I6W X11 124 741 6 26 B MLSEND 4 1707 B I1X 124 742 6 27 BCE MLSEND,78, 8 1711 B I1X 078 124 743 6 28 SBR NOISE-1,040 7 1719 H I6W 040 124 744 6 29 B RETNOP 4 1726 B U28 124 745 6 30 DCW @ @ 1 1730 124 746 6 31 RETNOP EQU 1428 1428 747 6 32 ORG 1432 1432 748 6 33 SW 40,47 7 1432 , 040 047 125 749 6 34 SW 54,61 7 1439 , 054 061 125 750 6 35 B MLSEND 4 1446 B I1X 125 751 6 36 * INSERT ALTER CARD #12 HERE 752 6 37 ORG 1430 1430 753 6 38 SW 40,47 7 1430 , 040 047 126 754 6 39 SW 54,61 7 1437 , 054 061 126 755 6 40 B MLSEND 4 1444 B I1X 126 756 6 41 * INSERT ALTER CARD #13 HERE 757 6 42 * PHASE 2 ENTRY 758 6 43 ORG 575 0575 759 6 44 BSS PASMKT,C 5 0575 B 650 C 127 760 6 45 ORG 584 3786 0584 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 18 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 761 6 46 SW 40,47 7 0584 , 040 047 128 762 6 47 SW 54,61 7 0591 , 054 061 128 763 6 48 B MLSEND 4 0598 B I1X 128 764 6 49 ORG 602 0602 765 6 50 ENTMLT NOP 1 0602 N 128 766 6 51 ORG 610 0610 767 6 52 BE RESMLT 5 0610 B 661 S 129 768 6 53 B MLSEND 4 0615 B I1X 129 769 6 54 ORG 650 0650 770 6 55 PASMKT SBR NOISE-1,ENTMLT&1 7 0650 H I6W 603 130 771 6 56 B MLSEND 4 0657 B I1X 130 772 6 57 RESMLT SBR NOISE-1,040 7 0661 H I6W 040 130 773 6 58 B 40 4 0668 B 040 130 774 6 59 DCW @ @ 1 0672 130 775 6 60 * INSERT ALTER CARD #14 HERE 776 6 61 ORG 597 3804 0597 777 6 62 SW 40,47 7 0597 , 040 047 131 778 6 63 SW 54,61 7 0604 , 054 061 131 779 6 64 B MLSEND 4 0611 B I1X 131 780 6 65 * INSERT ALTER CARD #15 HERE 781 6 66 ORG 3518 3518 782 6 67 NOP 1 3518 N 132 783 6 68 ORG 4223 4223 784 6 69 SW 40,47 7 4223 , 040 047 133 785 6 70 SW 54,61 7 4230 , 054 061 133 786 6 71 B MLSEND 4 4237 B I1X 133 787 6 72 * PHASE 2 BYPASS 120 CHARACTER LABEL 788 6 73 ORG 4241 4241 789 6 74 B PASSKP 4 4241 B V7V 133 790 6 75 DCW @ @ 1 4245 133 791 6 76 ORG 5575 5575 792 6 77 PASSKP SBR NOISE-1,*&5 7 5575 H I6W V8W 134 793 6 78 B MLSEND 4 5582 B I1X 134 794 6 79 BCE MLSEND,78, 8 5586 B I1X 078 134 795 6 80 SBR NOISE-1,40 7 5594 H I6W 040 134 796 6 81 B OVLAP1 4 5601 B 25U 134 797 6 82 REST SBR NOISE-1,040 7 5605 H I6W 040 134 798 6 83 B 40 4 5612 B 040 135 799 6 84 DCW @ @ 1 5616 135 800 6 85 OVLAP1 EQU 4254 4254 801 6 86 ORG 5269 5269 802 6 87 NOP 1 5269 N 136 803 6 88 ORG 5258 PH2 REDUNDANT RECORD READ 5258 804 6 89 NOP 000 4 5258 N 000 137 805 6 90 SBR NOISE-1,IDENT 7 5262 H I6W T2V 137 806 6 91 NOP 1 5269 N 137 807 6 92 ORG 5324 5324 808 6 93 NOP 1 5324 N 138 809 6 94 IDENT BCE REST,79, 8 5325 B W0V 079 138 810 6 95 B MLSEND 4 5333 B I1X 138 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 19 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 811 6 96 RANOUT NOP 0 4 5337 N 000 138 812 6 97 SBR NOISE-1,FORGET 7 5341 H I6W T5Z 138 813 6 98 SW 40,47 7 5348 , 040 047 138 814 6 99 B FORGET 4 5355 B T5Z 138 815 7 00 FORGET BCE REST,79, 8 5359 B W0V 079 139 816 7 01 B MLSEND 4 5367 B I1X 139 817 7 02 * INSERT ALTER CARD #16 HERE 818 7 03 ORG 3526 3526 819 7 04 NOP 1 3526 N 140 820 7 05 * INSERT ALTER CARD #17 HERE 821 7 06 ORG 5223 5223 822 7 07 SW 40,47 7 5223 , 040 047 141 823 7 08 SW 54,61 7 5230 , 054 061 141 824 7 09 B MLSEND 4 5237 B I1X 141 825 7 10 * INSERT ALTER CARD #18 HERE 826 7 11 ORG 4225 4225 827 7 12 SETCLR BCE MLTSKP,LABELS,1 NO LABELS INITIALIZATION 8 4225 B R5| 413 1 142 828 7 13 LABELS EQU 413 0413 829 7 14 CONEND EQU 4378 4378 830 7 15 ORG 6950 6950 831 7 16 MLTSKP SBR NOISE-1,MLTPAT 7 6950 H I6W ?4Y 143 832 7 17 B MLSEND 4 6957 B I1X 143 833 7 18 MLTRES SBR NOISE-1,*&5 7 6961 H I6W R7S 143 834 7 19 B MLSEND 4 6968 B I1X 143 835 7 20 SBR NOISE-1,40 7 6972 H I6W 040 143 836 7 21 B NXTPS 4 6979 B 677 143 837 7 22 PH2PS SBR NOISE-1,*&1 7 6983 H I6W R9| 144 838 7 23 BCE *&5,40,/ 8 6990 B ?0S 040 / 144 839 7 24 B MLSEND 4 6998 B I1X 144 840 7 25 RWD 1 5 7002 U %U1 R 144 841 7 26 SBR NOISE-1,040 7 7007 H I6W 040 144 842 7 27 B CLSTX1-7 4 7014 B J84 144 843 7 28 ADBNOR SBR NOISE-1,*&5 7 7018 H I6W ?2Z 145 844 7 29 B MLSEND 4 7025 B I1X 145 845 7 30 BCE MLSEND,78, 8 7029 B I1X 078 145 846 7 31 SBR NOISE-1,040 7 7037 H I6W 040 145 847 7 32 B NORMUL 4 7044 B O6Y 145 848 7 33 MLTPAT C 021,CONEND 7 7048 C 021 37Y 145 849 7 34 BU MLTSKP 5 7055 B R5| / 146 850 7 35 B MLTRES 4 7060 B R6/ 146 851 7 36 DCW @ @ 1 7064 146 852 7 37 CLSTX1 EQU 2191 2191 853 7 38 NXTPS EQU 677 0677 854 7 39 ORG 4312 4312 855 7 40 PASMLT B MLTPAT 4 4312 B ?4Y 147 856 7 41 DCW @ @ 1 4316 147 857 7 42 ORG 4294 4294 858 7 43 SW 40,47 7 4294 , 040 047 148 859 7 44 SW 54,61 7 4301 , 054 061 148 860 7 45 B MLSEND 4 4308 B I1X 148 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 20 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 861 7 46 ORG 5936 5936 862 7 47 B PH2PS 4 5936 B R8T 149 863 7 48 DCW @ @ 1 5940 149 864 7 49 ORG 6633 6633 865 7 50 SW 40,47 7 6633 , 040 047 150 866 7 51 SW 54,61 7 6640 , 054 061 150 867 7 52 ORG 6655 6655 868 7 53 B ADBNOR 4 6655 B ?1Y 151 869 7 54 DCW @ @ 1 6659 151 870 7 55 ORG 6668 6668 871 7 56 NORMUL B MLSEND 4 6668 B I1X 152 872 ORG 7064 7064 873 CKJNND SBR NOISE-1,CKRESK 7 7064 H I6W ?7Z 153 874 SW 81 4 7071 , 081 153 875 B MLSEND 4 7075 B I1X 153 876 CKRESK C 75,@1470@ 7 7079 C 075 A1| 153 877 BE KCNORT 5 7086 B ?9V S 153 878 B MLSEND 4 7091 B I1X 153 879 KCNORT SBR NOISE-1,40 7 7095 H I6W 040 153 880 B 6040 4 7102 B !4| 154 881 DCW #1 1 7106 154 882 LTORG * 7107 DCW @1470@ 4 7110 LIT 154 883 ORG 6036 6036 884 H CKJNND 4 6036 . ?6U 155 885 CW 81 4 6040 ) 081 155 886 ORG 4251 4251 887 NOP 1 4251 N 156 888 7 57 * INSERT ALTER CARD #19 HERE 889 7 58 ORG 594 5523 0594 890 7 59 SW 40,47 7 0594 , 040 047 157 891 7 60 SW 54,61 7 0601 , 054 061 157 892 7 61 B MLSEND 4 0608 B I1X 157 893 7 62 * INSERT ALTER CARD #20 HERE 894 7 63 ORG 2663 2663 895 7 64 SW 40,47 7 2663 , 040 047 158 896 7 65 SW 54,61 7 2670 , 054 061 158 897 7 66 B MLSEND 4 2677 B I1X 158 898 7 67 ORG 3212 3212 899 7 68 SW 40,47 7 3212 , 040 047 159 900 7 69 SW 54,61 7 3219 , 054 061 159 901 7 70 B MLSEND 4 3226 B I1X 159 902 7 71 * MULTIPHASE BYPASS 120 CHARACTER LABEL 903 7 72 ORG 4582 4582 904 7 73 SW 40,47 7 4582 , 040 047 160 905 7 74 SW 54,61 7 4589 , 054 061 160 906 7 75 BCE LBBYBY,LBBUCK, 8 4596 B S0| 414 160 907 7 76 OLYRED B MLSEND 4 4604 B I1X 160 908 7 77 ORG 5200 5200 909 7 78 LBBYBY SBR NOISE-1,*&5 7 5200 H I6W S1/ 161 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 21 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 910 7 79 B MLSEND 4 5207 B I1X 161 911 7 80 BCE MLSEND,78, 8 5211 B I1X 078 161 912 7 81 SBR NOISE-1,040 7 5219 H I6W 040 161 913 7 82 B OLYRED 4 5226 B 60U 161 914 7 83 LBBUCK EQU 414 0414 915 7 84 * INSERT ALTER CARD #21 HERE 916 7 85 * MULTIPHASE REDUNDANCY ROUTINE 917 7 86 ORG 3913 3913 918 7 87 REED NOP 0 4 3913 N 000 162 919 7 88 ORG 3938 3938 920 7 89 SBR NOISE-1,IDENT1 7 3938 H I6W 02Z 163 921 7 90 SBR NOISE-1,IDENT1 7 3945 H I6W 02Z 163 922 7 91 ORG 4214 4214 923 7 92 PAPYT SBR NOISE-1,40 7 4214 H I6W 040 164 924 7 93 B 40 4 4221 B 040 164 925 7 94 DCW @ @ 1 4225 164 926 7 95 ORG 4028 4028 927 7 96 NOP 1 4028 N 165 928 7 97 IDENT1 BCE PAPYT,79, 8 4029 B 21U 079 165 929 7 98 B MLSEND 4 4037 B I1X 165 930 7 99 RAN SBR NOISE-1,FRGETP 7 4041 H I6W 06T 165 931 8 00 B MLSEND 4 4048 B I1X 165 932 8 01 ALSORN SBR NOISE-1,40 7 4052 H I6W 040 165 933 8 02 B 40 4 4059 B 040 165 934 8 03 FRGETP BCE ALSORN,79, 8 4063 B 05S 079 166 935 8 04 B MLSEND 4 4071 B I1X 166 936 8 05 * INSERT ALTER CARD #22 HERE 937 8 06 ORG 3442 3442 938 8 07 SW 40,47 7 3442 , 040 047 167 939 8 08 SW 54,61 7 3449 , 054 061 167 940 8 09 B MLSEND 4 3456 B I1X 167 941 8 10 ORG 3460 3460 942 8 11 SBR NOISE-1,*&5 7 3460 H I6W D71 167 943 8 12 B MLSEND 4 3467 B I1X 167 944 8 13 BCE MLSEND,78, 8 3471 B I1X 078 167 945 8 14 SBR NOISE-1,40 7 3479 H I6W 040 168 946 8 15 B STBRG 4 3486 B ?92 168 947 8 16 DCW @ @ 1 3490 168 948 8 17 STBRG EQU 3092 3092 949 8 18 * INSERT ALTER CARD #23 HERE 950 8 19 ORG 2610 2610 951 8 20 SW 40,47 7 2610 , 040 047 169 952 8 21 SW 54,61 7 2617 , 054 061 169 953 8 22 B MLSEND 4 2624 B I1X 169 954 8 23 * INSERT ALTER CARD #24 HERE 955 8 24 ORG 2673 2673 956 8 25 SW 40,47 7 2673 , 040 047 170 957 8 26 SW 54,61 7 2680 , 054 061 170 958 8 27 B MLSEND 4 2687 B I1X 170 959 8 28 * INSERT ALTER CARD #25 HERE INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 22 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 960 8 29 ORG 2366 2366 961 8 30 SW 40,47 7 2366 , 040 047 171 962 8 31 SW 54,61 7 2373 , 054 061 171 963 8 32 B MLSEND 4 2380 B I1X 171 964 8 33 * INSERT ALTER CARD #26 HERE 965 8 34 ORG 5042 5042 966 8 35 SW 40,47 7 5042 , 040 047 172 967 8 36 SW 54,61 7 5049 , 054 061 172 968 8 37 B MLSEND 4 5056 B I1X 172 969 8 38 ORG 4255 4255 970 8 39 RDBY B ADIMPL 4 4255 B !0X 173 971 8 40 NOP 1 4259 N 173 972 8 41 ORG 5701 5701 973 8 42 SBR NOISE-1,*&5 7 5701 H I6W X1S 174 974 8 43 B MLSEND 4 5708 B I1X 174 975 8 44 BCE MLSEND,78, 8 5712 B I1X 078 174 976 8 45 REPATC B PCHTA1 4 5720 B !9T 174 977 8 46 DCW @ @ 1 5724 174 978 8 47 PDCHKP EQU 5203 5203 979 8 48 ORG 4268 4268 980 8 49 RDBY1 B ADIMPL-7 4 4268 B !0| 175 981 8 50 DCW @ @ 1 4272 175 982 8 51 ORG 5012 5012 983 8 52 B NOKCHK 4 5012 B !6S 176 984 8 53 DCW @ @ 1 5016 176 985 8 54 ORG 5025 5025 986 8 55 SBR NORIGN-1,INTLB 7 5025 H !9/ |6/ 177 987 8 56 B NOKCHK 4 5032 B !6S 177 988 8 57 DCW @ @ 1 5036 177 989 8 58 ORG 6000 6000 990 8 59 A @1@,CNRWHT 7 6000 A !6/ !6| 178 991 8 60 ADIMPL SBR NOISE-1,WHEELR 7 6007 H I6W !1Y 178 992 8 61 B MLSEND 4 6014 B I1X 178 993 8 62 WHEELR BCE *&5,078,1 8 6018 B !3| 078 1 178 994 8 63 B MLSEND 4 6026 B I1X 178 995 8 64 A @1@,CNRWHT 7 6030 A !6/ !6| 178 996 8 65 BCE *&5,CNRWHT,4 8 6037 B !4Z !6| 4 179 997 8 66 B MLSEND 4 6045 B I1X 179 998 8 67 SBR NOISE-1,040 7 6049 H I6W 040 179 999 8 68 B CROMBY 4 6056 B 30/ 179 1000 8 69 CNRWHT DCW #1 1 6060 179 1001 8 70 LTORG * 6061 DCW @1@ 1 6061 LIT 179 1002 8 71 CROMBY EQU 4301 4301 1003 8 72 NOKCHK SBR NOISE-1,*&5 7 6062 H I6W !7T 179 1004 8 73 B MLSEND 4 6069 B I1X 180 1005 8 74 BCE MLSEND,78, 8 6073 B I1X 078 180 1006 8 75 SBR NOISE-1,40 7 6081 H I6W 040 180 1007 8 76 B OKEIGH 4 6088 B |3Y 180 1008 8 77 NORIGN DCW @ @ 1 6092 180 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 23 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1009 8 78 PCHTA1 SBR REPATC&3,*&5 7 6093 H X2T J0U 180 1010 8 79 B MLSEND 4 6100 B I1X 180 1011 8 80 SBR NOISE-1,40 7 6104 H I6W 040 181 1012 8 81 B PDCHKP-8 4 6111 B /9V 181 1013 8 82 DCW @ @ 1 6115 181 1014 8 83 LTORG * 6116 1015 8 84 OKEIGH EQU 5038 5038 1016 8 85 INTLB EQU 5061 5061 1017 ORG 6115 6115 1018 CKKIND SBR NOISE-1,KCRESK 7 6115 H I6W J3| 182 1019 SW 81 4 6122 , 081 182 1020 B MLSEND 4 6126 B I1X 182 1021 KCRESK C 75,@1534@ 7 6130 C 075 J6/ 182 1022 BE CCNORT 5 6137 B J4W S 182 1023 B MLSEND 4 6142 B I1X 182 1024 CCNORT SBR NOISE-1,40 7 6146 H I6W 040 182 1025 B 3598 4 6153 B E98 183 1026 DCW #1 1 6157 183 1027 LTORG * 6158 DCW @1534@ 4 6161 LIT 183 1028 ORG 3594 3594 1029 H CKKIND 4 3594 . J1V 184 1030 CW 81 4 3598 ) 081 184 1031 8 86 * INSERT ALTER CARD #27 HERE 1032 8 87 ORG 5298 5298 1033 8 88 SW 40,47 7 5298 , 040 047 185 1034 8 89 SW 54,61 7 5305 , 054 061 185 1035 8 90 B MLSEND 4 5312 B I1X 185 1036 8 91 B REDEEN 4 5316 B U5Z 185 1037 8 92 DCW @ @ 1 5320 185 1038 8 93 ORG 5459 5459 1039 8 94 REDEEN SBR NOISE-1,*&1 7 5459 H I6W U6W 186 1040 8 95 BCE *&5,40,/ 8 5466 B U7Y 040 / 186 1041 8 96 B MLSEND 4 5474 B I1X 186 1042 8 97 RWD 1 5 5478 U %U1 R 186 1043 8 98 SBR NOISE-1,40 7 5483 H I6W 040 186 1044 8 99 B 5329 4 5490 B T2Z 186 1045 9 00 DCW @ @ 1 5494 186 1046 9 01 * INSERT ALTER CARD #28 HERE 1047 9 02 ORG 5286 5286 1048 9 03 REDMPS B REDEEM 4 5286 B U2X 187 1049 9 04 DCW @ @ 1 5290 187 1050 9 05 ORG 5427 5427 1051 9 06 REDEEM SBR NOISE-1,*&1 7 5427 H I6W U3U 188 1052 9 07 BCE *&5,40,/ 8 5434 B U4W 040 / 188 1053 9 08 B MLSEND 4 5442 B I1X 188 1054 9 09 RWD 1 5 5446 U %U1 R 188 1055 9 10 SBR NOISE-1,40 7 5451 H I6W 040 188 1056 9 11 B 5299 4 5458 B S9Z 188 1057 9 12 DCW @ @ 1 5462 188 INITIALIZATION FOR ALL MACHINE SIZES TL PAGE 24 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1058 9 13 * INSERT ALTER CARD #29 HERE 1059 9 14 ORG 3249 3249 1060 9 15 RWD 1 5 3249 U %U1 R 189 1061 9 16 END RCONTR / 393 080 190 OBJECT CORE EXCEEDED