########## AUTOCODER CROSS REFERENCE, 1401 SOURCE 0101 JOB C R O S S CROS2 0102 CTL 6611 CROS2 0103 * MODIFIED BY R. WEAVER FOR 1401 CROS2 0104 * CROS2 0105 * 1. COMPACT PRINT FORMAT. THIS VERSION WILL ONLY PRINT THE FIRST CROS2 0106 * SIX CHARACTERS OF EACH LABEL. CROS2 0107 * 2. CHECK FOR VALID 1401 OP CODES. CROS2 0108 * 3. MINOR LOGIC CORRECTIONS. CROS2 0109 * CROS2 0110 ****************************************************************** CROS2 0111 * CROS2 0112 * WRITTEN BY - DAVID R. ANGELL CROS2 0113 * IBM CORP CROS2 0114 * DEPT. - 714 CROS2 0115 * 1701 NORTH STREET CROS2 0116 * ENDICOTT, N.Y. CROS2 0117 * CROS2 0118 * THIS PROGRAM WILL PRODUCE A CROSS REFERENCE LISTING FROM CROS2 0119 * 1401 AUTOCODER SOURCE CARDS. CROS2 0120 * CROS2 0121 * TAPES 4 AND 5 ARE USED. CROS2 0122 * CROS2 0123 * OPTIONS UNDER SENSE SWITCH CONTROL ARE - CROS2 0124 * 1. SWITCH B ON - WILL PRODUCE A CARD CROS2 0125 * IMAGE LISTING OF THE AUTOCODER DECK. CROS2 0126 * 2. SWITCH C ON - PUNCH RESEQUENCED SOURCE DECK. CROS2 0127 * CROS2 0128 * CROS2 0129 ORG 336 CROS2 0130 SEQNC CROS2 0131 INDEX CROS2 0132 104 DCW @0100@ CROS2 0133 106 DCW #1 CROS2 0134 176 DCW #1 CROS2 0135 JOB CROSS, INITALIZE CROS2 0136 START SW 1,16 CROS2 0137 SW 21 CROS2 0138 * CROS2 0139 S X1&1 CROS2 0140 SW SW BUILD&X1,TAPEIN&X1 CROS2 0141 SW MERGE&X1 CROS2 0142 SBR X1,L&X1 CROS2 0143 BCE SW,BUILD&X1, CROS2 0144 * CROS2 0146 N10040 RWD 4 CROS2 0147 RWD 5 CROS2 0148 BLC *&5 CROS2 0149 B PHASE1 CROS2 0150 WCSCS1,,@END OF JOB@ CROS2 0152 CC 1 CROS2 0153 H CROS2 0154 JOB CROSS, PHASE I, CARD-TO-TAPE SORTING RECORD CROS2 0155 PHASE1 MLC @1@,PHASE#1 PHASE SWITCH CROS2 0156 MLC @N@,SW5042 ONE TIME MERGE SWITCH CROS2 0157 SW SWF FIRST SWITCH FOR READ ROUTINE CROS2 0158 S X1&1 CROS2 0159 * CROS2 0160 READ B READR READ NEXT CROS2 0161 * CROS2 0162 QTYPE BCE READ,6,* Q. COMMENT CARD. CROS2 0163 C 20,JOB CROS2 0164 BE READ CROS2 0165 C 20,@CTL @ CROS2 0166 BE READ CROS2 0167 C 20,@DIOCS@ CHECK IF DIOCS CARD CROS2 0168 BE DIOCS CROS2 0169 C 20,@DTF @ IF DTF,TREAT AS TAG CROS2 0170 BE DTF CROS2 0171 C 20,@INDEX@ CROS2 0172 BE INDEX CROS2 0173 * CROS2 0174 B LABEL CROS2 0175 * CROS2 0176 BCE QOP4,20, Q. OP CODE 5 CHARACTERS CROS2 0177 C 20,@CHAIN@ CROS2 0178 BE READ CROS2 0179 SBR X3,OP5 CROS2 0180 B COP CROS2 0181 QOP4 BCE QOP3,19, CROS2 0182 SBR X3,OP4 CROS2 0183 B COP CROS2 0184 QOP3 BCE QOP2,18, CROS2 0185 C 18,@DCW@ CROS2 0186 BE DCW CROS2 0187 SBR X3,OP3 CROS2 0188 B COP CROS2 0189 QOP2 BCE QOP1,17, CROS2 0190 C 17,@DC@ CROS2 0191 BE DCW CROS2 0192 C 17,@DA@ CROS2 0193 BE DA CROS2 0194 SBR X3,OP2 CROS2 0195 B COP CROS2 0196 QOP1 SBR X3,OP1 CROS2 0197 COP MLC 2&X3,*&4 CROS2 0198 C 0,0&X3 Q. VALID OP CROS2 0199 SBR X3 CROS2 0200 BE OPOK CROS2 0201 BCE OPBLK,0&X3,* CROS2 0202 B COP&7 CROS2 0203 OPBLK MLC @OP@,205 CROS2 0204 BSS *&13,B CROS2 0205 WCSCS,,5,214 CROS2 0206 OPOK EQU *&1 CROS2 0207 * CROS2 0208 B OPR CROS2 0209 B READ CROS2 0210 * CROS2 0211 DIOCS B READQ CROS2 0212 B DIOCS CROS2 0213 * CROS2 0214 DTF MLC 26,TAGF1&X1 CROS2 0215 B REFA CROS2 0216 DTFR B READQ CROS2 0217 C 11,@INDEXR@ CROS2 0218 BE IOCS CROS2 0219 C 11,@IOAREA@ CROS2 0220 BE IOCS CROS2 0221 C 11,@ADD@ CROS2 0222 BE IOCS CROS2 0223 C 11,@WORKAR@ CROS2 0224 BU DTFR CROS2 0225 IOCS MLC @*IOCS@,20 CROS2 0226 B OPR CROS2 0227 B DTFR CROS2 0228 * CROS2 0229 INDEX MN &1,@X1@ CROS2 0230 INDEX2 MLC BLK4,TAGF1&X1 CROS2 0231 MLC @X1@ CROS2 0232 B REFA CROS2 0233 A *-6,@X1@ CROS2 0234 BCE READ,@X1@,4 CROS2 0235 B INDEX2 CROS2 0236 * CROS2 0237 DCW BCE READ,21,@ DROP LITERALS CROS2 0238 BCE USE22,21,& CROS2 0239 BCE USE22,21,- CROS2 0240 MLC 21,WK1#1 CROS2 0241 B *&8 CROS2 0242 USE22 MLC 22,WK1 CROS2 0243 C WK1,@Z@ CROS2 0244 BL READ DROP NUMERIC CONSTANTS CROS2 0245 B OPOK CROS2 0246 * CROS2 0247 DA B READQ CROS2 0248 B LABEL CROS2 0249 B DA CROS2 0250 * CROS2 0251 READQ SBR READQX&3 READ FOR DIOCS, DTF, DA BLANKS CROS2 0252 B READR CROS2 0253 BCE QTYPE,6,* CROS2 0254 C 20,BLK5 CROS2 0255 BU QTYPE CROS2 0256 READQX B * CROS2 0257 * CROS2 0258 LABEL SBR LABELX&3 CROS2 0259 C 11,BLK6 Q. LABELED STATEMENT CROS2 0260 BE LABELX CROS2 0261 MLC 11,TAGF1&X1 MOVE TAG CROS2 0262 B REFA CROS2 0263 LABELX B * CROS2 0264 * CROS2 0265 OPR SBR OPRX&3 TEST FOR REFERENCE TO LABEL CROS2 0266 S X3&1 CLEAR INDEX 3 CROS2 0267 B N03040 CROS2 0268 * CROS2 0269 N03210 MA @001@,X3 ..SCAN TO NEXT OPERAND CROS2 0270 BCE OPRX,21&X3, BLANK,READ NEXT CARD CROS2 0271 BCE N03250,21&X3,, COMMA,CHECK NEXT CHAR FOR COMMA CROS2 0272 C 21&X3,@A@ IF ALPHA, PICK UP CROS2 0273 BH N03210 CROS2 0274 C 21&X3,@0@ CROS2 0275 BH N03110 CROS2 0276 B N03210 CROS2 0277 N03250 MA @001@,X3 CROS2 0278 * CROS2 0279 N03040 S X2&1 ..BEGIN TEST FOR NEW SYMBOL CROS2 0280 MLC BLK6,WK6 CROS2 0281 BCE OPRX,21&X3, FOR BLANK-YES,READ NEXT CARD CROS2 0282 BCE N03250,21&X3,, CHAR IS COMMA,CHECK NEXT CHARACTER CROS2 0283 BCE N04040,21&X3,@ CHECK FOR LITERAL CROS2 0284 BCE N03210,21&X3,* NOT ALPHA,CHECK FOR * CROS2 0285 BCE N04062,21&X3,& CHECK FOR POSSIBLE ADCON CROS2 0286 BCE N04062,21&X3,- CROS2 0287 B N03110 CROS2 0288 N04062 BWZ *&5,21&1&X3,2 Q. ADCON CROS2 0289 B N03130 YES CROS2 0290 * CROS2 0291 N03110 MLC 21&X3,WORKB&X2 ..SCAN FOR END OF REFERENCE CROS2 0292 BCE *&8,X2,5 6 CHARACTER MAXIMUM CROS2 0293 MA @001@,X2 INCREMENT X2 BY 1 CROS2 0294 N03130 MA @001@,X3 INCREMENT X3 BY 1 CROS2 0295 BCE N04090,21&X3,, COMMA,&,-,#,OR BLANK FOUND,MOVE CROS2 0296 BCE N04090,21&X3,& CROS2 0297 BCE N04090,21&X3,- CROS2 0298 BCE N04021,21&X3,# CROS2 0299 BCE N04090,21&X3, CROS2 0300 B N03110 CROS2 0301 * CROS2 0302 N04040 MA @001@,X3 ..SCAN FOR END OF LITERAL CROS2 0303 BCE *&15,X2,5 CROS2 0304 SBR X2,1&X2 CROS2 0305 MLC 21&X3,WORKB&X2 CROS2 0306 BCE LITEND,21&X3,@ CROS2 0307 BCE OPRX,X3-1,6 CROS2 0308 B N04040 CROS2 0309 * CROS2 0310 N04021 MLC @A@,CODE&X1 ..SET UP AREA-DEFINING LITERAL CROS2 0311 MLC @#@,BLEND&X1 CROS2 0312 MLC 19 CROS2 0313 B N04085 CROS2 0314 * CROS2 0315 * END OF GOOD REF FOUND,MOVE PG-LINE AND SET UP FOR NEXT REF CROS2 0316 LITEND SBR X3,1&X3 CROS2 0317 N04090 MLC 20,BLEND&X1 MOVE OP CROS2 0318 MLC @B@,CODE&X1 MOVE B FOR REF CROS2 0319 N04085 BCE SYMB,WORKB,< CROS2 0320 BCE SYMB,WORKB,@ CROS2 0321 C WORKB,@A@ CHECK IF SPECIAL CHAR IN TAG CROS2 0322 BH N03040 YES,DROP CROS2 0323 SYMB BCE N03040,WORKB,\ CHECK IF RECORD MARK CROS2 0324 MLC WK6,TAGF1&X1 MOVE WORK TO AREA CROS2 0325 B REF CROS2 0326 B N03040 TO CHECK NEXT CHAR FOR COMMA CROS2 0327 OPRX B * CROS2 0328 * CROS2 0329 READR SBR READRX&3 READR DOES NOT RETURN CONTROL CROS2 0330 BWZ FIRST,SWF#1,1 ON END OF PROGRAM, BUT PASSES CROS2 0331 BLC E05040 TO PHASE 2. CROS2 0332 BCE *&13,6,* Q. COMMENT CARD CROS2 0333 C 18,@END@ END CARD CHECK CROS2 0334 BE E05040 YES TO END ROUTINE CROS2 0335 * CROS2 0336 BSS PT1,B CROS2 0337 BSS PCH1,C CROS2 0338 R FIXSEQ CROS2 0339 PT1 BSS *&5,C CROS2 0340 WR N01540 CROS2 0341 WRP N01573 CROS2 0342 PCH1 RP N01573 CROS2 0343 * CROS2 0344 FIRST R CROS2 0345 CW SWF FIRST SW OFF. CROS2 0346 MLC BLK5,SEQA CROS2 0347 MLC BLK5,180 CROS2 0348 MLC BLK52,HEAD1 CROS2 0349 S PGCNT CLEAR PAGE COUNTER CROS2 0350 BSS *&5,B CROS2 0351 B FIRSTC CROS2 0352 C 20,JOB CROS2 0353 BU HEAD CROS2 0354 FIRSTC BSS *&5,C CROS2 0355 B QPRNT CROS2 0356 * CROS2 0357 * TEST FOR AND SET UP PUNCH AREA CROS2 0358 N01573 MLC 72,172 MOVE TO PUNCH CROS2 0359 CHAIN2 CROS2 0360 A *-6,104 SEQUENCE CROS2 0361 MLC 105,5 CROS2 0362 C 20,JOB CROS2 0363 BE *&12 CROS2 0364 MLC 180,80 CROS2 0365 B *&8 CROS2 0366 MLC 80,180 CROS2 0367 * CROS2 0368 * TEST FOR AND SET UP PRINT AREA CROS2 0369 QPRNT BSS N01540,B B ON LIST CARDS CROS2 0370 B FIXSEQ CROS2 0371 N01540 CS 299 CROS2 0372 C 20,JOB CROS2 0373 BU *&12 CROS2 0374 MLC 72,HEAD1 CROS2 0375 B S50060 CROS2 0376 BCV S50060 CHAN 12, PRINT HEADINGS CROS2 0377 C 5,SEQA#5 SEQ CHECK CROS2 0378 BL S01550 CROS2 0379 C SEQA,BLK5 CROS2 0380 BE S01550 CROS2 0381 MLC @SEQ@,203 CROS2 0382 S01550 MLC 5,SEQA CROS2 0383 SW 216 CROS2 0384 MLC 80,290 MLC CARD TO PRINT CROS2 0385 MLC CROS2 0386 MLC CROS2 0387 MLC 5,214 CROS2 0388 * CROS2 0389 FIXSEQ C 5,BLK5 CROS2 0390 BE *&12 CROS2 0391 MLC 5,CDSEQ#5 CROS2 0392 B *&12 CROS2 0393 MLC @*@,5 CROS2 0394 MLC CDSEQ-1 CROS2 0395 READRX B * CROS2 0396 * CROS2 0397 * END CARD SENSED,PAD BUILD AREA WITH 9 S,GO TO FINAL MERGE CROS2 0398 * CROS2 0399 E05040 BSS *&5,B CROS2 0400 B *&4 CROS2 0401 WCSCS CROS2 0402 BSS *&5,C CROS2 0403 B *&8 CROS2 0404 P CROS2 0405 CS 180 CROS2 0406 P CROS2 0407 P CROS2 0408 N05065 C X1,@000@ CROS2 0409 BE PHASE2 AREA EMPTY,TO TAPE CHECK CROS2 0410 MLC NINES,BLEND&X1 PAD 9 S CROS2 0411 B REFB CROS2 0412 B N05065 CONTINUE PADDING CROS2 0413 * CROS2 0414 REFA SBR REFX&3 CROS2 0415 MLC 20,BLEND&X1 CROS2 0416 MLC @A@,CODE&X1 CROS2 0417 B *&5 CROS2 0418 REF SBR REFX&3 COMPLETE OUTPUT RECORD CROS2 0419 MLC 5,PGLIN1&X1 MOVE PG/LIN CROS2 0420 C TAGF1-5&X1,@0@ Q. NUMERIC CROS2 0421 BH REF2 NO CROS2 0422 B QRJST CROS2 0423 RJST MLC TAGF1-1&X1,TAGF1&X1 RIGHT JUSTIFY NUMERIC LABELS CROS2 0424 MLC BLK1 CROS2 0425 QRJST BCE RJST,TAGF1&X1, CROS2 0426 REF2 B *&5 CROS2 0427 REFB SBR REFX&3 CROS2 0428 SBR X1,L&X1 CROS2 0429 BCE S50360,BUILD&X1,! GM ,AREA FULL - TO MRGE CROS2 0430 REFX B * CROS2 0431 * CROS2 0432 * SUBROUTINE EXCECUTED WHEN BUILD AREA IS FILLED. CROS2 0433 * 1. SORT BUILD AREA CROS2 0434 * 2. MERGE WITH PREVIOUS BUILT UP RECORDS IN MERGE AREA CROS2 0435 * 3. WRITE OUT FOR NEXT PASS CROS2 0436 * CROS2 0437 S50360 SBR S50980&3 FOR EXIT CROS2 0438 MLC X3,HOLDX3 SAVE X3 CROS2 0439 S X3&1 CROS2 0440 MLC BLK1,EOFCT#1 CROS2 0441 MLC BLK17,WK17 CROS2 0442 * CROS2 0443 <0J011 MLC X3,X2 CROS2 0444 MLC X2&2 CROS2 0445 <0K011 SBR X2,L&X2 CROS2 0446 BCE <0N011,BUILD&X2,! CROS2 0447 C CODE&X2,CODE&X1 CROS2 0448 BL <0K011 CROS2 0449 BE <0K011 CROS2 0450 C CODE&X2,WK17-10 CROS2 0451 BE SORTE CROS2 0452 MLC X2,X1 CROS2 0453 B <0K011 CROS2 0454 SORTE MLC BLEND&X2,WK17 CROS2 0455 MLC BLEND&X3,BLEND&X2 CROS2 0456 MLC WK17,BLEND&X3 CROS2 0457 C X3,X1 CROS2 0458 BU *&8 CROS2 0459 MLC X2,X1 CROS2 0460 SBR X3,L&X3 CROS2 0461 B <0K011 CROS2 0462 <0N011 MLC BLEND&X1,WK17 CROS2 0463 MLC BLEND&X3,BLEND&X1 CROS2 0464 MLC WK17,BLEND&X3 CROS2 0465 SORTIC SBR X3,L&X3 CROS2 0466 BCE <1O011,BUILD&X3,! CROS2 0467 BCE <1O011,CODE&X3,9 CROS2 0468 C WK17-10,CODE&X3 CROS2 0469 BE SORTIC CROS2 0470 B <0J011 CROS2 0471 <1O011 S X3&1 CROS2 0472 S X2&1 CROS2 0473 S X1&1 CROS2 0474 * CROS2 0475 SW5042 NOP S50470 FIRST TIME NOP CROS2 0476 MLC @B@,SW5042 CROS2 0477 MRCM BUILD,MERGE MOVE FIRST BUILD CROS2 0478 B WTMRGE CROS2 0479 B S50864 CROS2 0480 * CROS2 0481 S50470 B RTBLD CROS2 0482 B S50800 CROS2 0483 * CROS2 0484 * COMPARE FOR MERGING CROS2 0485 S50490 C TAPTAG&X2,CODE&X1 CROS2 0486 BL S50620 BUILD LO, TO MOVE TO MERGE CROS2 0487 * CROS2 0488 * TAPEIN LO, MOVE TO MERGE CROS2 0489 TAPEMV MLC TPEND&X2,MRGEND&X3 CROS2 0490 SBR X2,L&X2 CROS2 0491 BCE S50710,TAPEIN&X2,! LAST TAG USED CROS2 0492 B S50550 TO STEP UP X3 CROS2 0493 S50710 S X2&1 CLEAR INDEX2 CROS2 0494 B RTBLD CROS2 0495 B S50800 CROS2 0496 B S50550 TO INCRA X3 CROS2 0497 S50800 MLZS @A@,EOFCT SET EOF FOR TAPE CROS2 0498 B S50550 CROS2 0499 * CROS2 0500 * BUILD LO, MOVE TO TO MERGE CROS2 0501 S50620 MLC BLEND&X1,MRGEND&X3 CROS2 0502 SBR X1,L&X1 CROS2 0503 BCE S50750,BUILD&X1,! LAST TAG USED CROS2 0504 B S50550 CROS2 0505 S50750 MLNS @A@,EOFCT SET EOF FOR BUILD AREA CROS2 0506 * CROS2 0507 S50550 SBR X3,L&X3 STEP UP X3 CROS2 0508 BCE S50670,MERGE&X3,! GM,AREA FULL - CROS2 0509 B SW5058 CROS2 0510 S50670 S X3&1 CLEAR X3 CROS2 0511 B WTMRGE CROS2 0512 SW5058 BCE S50490,EOFCT, Q. ANY EOF SET CROS2 0513 BCE S50620,EOFCT,& IF EOF TAPE, MOVE BUILD CROS2 0514 BCE TAPEMV,EOFCT,1 IF EOF BUILD, MOVE TAPE CROS2 0515 * CROS2 0516 S50864 B WTM CROS2 0517 * CROS2 0518 MLC HOLDX3,X3 RESTORE X3 CROS2 0519 S X1&1 CLEAR X1 CROS2 0520 S50980 B 0 EXIT CROS2 0521 JOB CROSS, PHASE 2, LIST MERGED TAPE CROS2 0522 PHASE2 MLC @2@,PHASE PHASE SWITCH CROS2 0523 SW SW2F CROS2 0524 S X2&1 CLEAR X2 , X1 CROS2 0525 * CROS2 0526 C06090 S X1&1 CROS2 0527 B RTBLD CROS2 0528 B E07060 EOF BRANCH CROS2 0529 B C06120 CROS2 0530 C06420 SBR X1,L&X1 CROS2 0531 BCE C06090,TAPEIN&X1,! GROUP MK , READ TAPE CROS2 0532 C06120 BCE E07060,CODE2&X1,9 CODE IS 9 LAST TAG IS LISTED CROS2 0533 * CROS2 0534 BWZ PFIRST,SW2F#1,1 CROS2 0535 BCE SETMIN,CODE2&X1,A Q. LABEL DEFINED CROS2 0536 C TAGF2&X1,SEQHLD REF EQUAL TO PREV TAG,OK CROS2 0537 BU SETMIN CROS2 0538 * CROS2 0539 PROCES BCE *&5,X3-1,9 CROS2 0540 B FLINE CROS2 0541 WCSCS CROS2 0542 S X3&1 CROS2 0543 BCV S50060 CROS2 0544 FLINE SW 227&X3,233&X3 CROS2 0545 MLC PGLIN2&X1,231&X3 CROS2 0546 MLC TPEND&X1,237&X3 CROS2 0547 SBR X3,13&X3 CROS2 0548 B C06420 CROS2 0549 * CROS2 0550 SETMIN SW SWMIN#1 MINOR BREAK SW ON CROS2 0551 * CROS2 0552 E07060 BWZ TLINE,233,1 Q. REFERENCES ON PREVIOUS LINE CROS2 0553 BWZ *&5,210,1 Q. LABEL ON PREVIOUS LINE CROS2 0554 B MINEND CROS2 0555 BCE *&8,221,# YES, OK IF AREA DEF LITERAL CROS2 0556 MLC @*UNREFERENCED@,238 CROS2 0557 TLINE WCSCS YES, PRINT CROS2 0558 MINEND BCV S50060 CROS2 0559 * CROS2 0560 BWZ RMIN,SWMIN,1 Q. MINOR BREAK CROS2 0561 * CROS2 0562 E07061 MLC NINES,MRGEND&X2 PAD TAPE 2 CROS2 0563 SBR X2,L&X2 CROS2 0564 BCE E07100,MERGE&X2,! GROUP MARK, END CROS2 0565 B E07061 CROS2 0566 E07100 B WTMRGE CROS2 0567 B WTM CROS2 0568 B PHASE3 CROS2 0569 * CROS2 0570 PFIRST CW SW2F CROS2 0571 MLC BLK6,SEQHLD BLANK LAST TAG HOLD AREA CROS2 0572 S PGCNT CROS2 0573 B S50060 TO PRINT HEADINGS CROS2 0574 * CROS2 0575 RMIN CW SWMIN CROS2 0576 S X3&1 CROS2 0577 BCE PLABEL,CODE2&X1,A CROS2 0578 BWZ PLABEL,TAPEIN&X1,2 Q. NUMBER OR LITERAL CROS2 0579 * CROS2 0580 MLC TPEND&X1,MRGEND&X2 MOVE UNREF TAG TO MERGE CROS2 0581 SBR X2,L&X2 CROS2 0582 BCE C06290,MERGE&X2,! GROUP MARK, AREA FULL CROS2 0583 B C06420 CROS2 0584 C06290 S X2&1 CROS2 0585 B WTMRGE CROS2 0586 B C06420 CROS2 0587 * CROS2 0588 PLABEL MLC TAGF2&X1,SEQHLD TAG TO LAST TAG HOLD AREA CROS2 0589 SW 210 CROS2 0590 MLC TAGF2&X1,215 CROS2 0591 BCE PROCES,CODE2&X1,B Q. TAG OR REFERENCE CROS2 0592 SW 203,217 CROS2 0593 MLC PGLIN2&X1,207 CROS2 0594 MLC TPEND&X1,221 CROS2 0595 B C06420 CROS2 0596 JOB CROSS, PHASE 3, LIST NON-EXISTANT TAGS CROS2 0597 PHASE3 MLC @3@,PHASE PHASE SWITCH CROS2 0598 SW SW3F#1 CROS2 0599 * CROS2 0600 E08100 S X1&1 CROS2 0601 B RTBLD CROS2 0602 B N10040 EOF BRANCH CROS2 0603 B E08120 CROS2 0604 PH3RD SBR X1,L&X1 CROS2 0605 BCE E08100,TAPEIN&X1,! GROUP MK ,RD TPE CROS2 0606 E08120 BCE N10040,CODE2&X1,9 9 S RECORD, TO EOJ CROS2 0607 * CROS2 0608 BWZ FIRST3,SW3F,1 CROS2 0609 * CROS2 0610 PROCS3 BCV S50060 TO HDGS ON CHAN 12 CROS2 0611 SW 274 CROS2 0612 SW 229,226 CROS2 0613 MLC PGLIN2&X1,231 MOVE PG/LINE CROS2 0614 MLC PGLIN2-3&X1,227 CROS2 0615 MLC TAGF2&X1,258 MOVE REF CROS2 0616 MLC TPEND&X1,278 MOVE OP CROS2 0617 WCSCS,PH3RD CROS2 0618 * CROS2 0619 FIRST3 CW SW3F CROS2 0620 S PGCNT CROS2 0621 B HEAD CROS2 0622 B PROCS3 CROS2 0623 JOB CROSS, SUBROUTINES AND WORK AREAS CROS2 0624 *************** SUBROUTINE SECTION **************** CROS2 0625 * CROS2 0626 * PRINT HEADINGS SUBROUTINE CROS2 0627 HEAD SBR HEADX&3 CROS2 0628 S50060 EQU HEAD CROS2 0629 CC 1 CROS2 0630 A *-6,PGCNT#3 CROS2 0631 MCS PGCNT,299 CROS2 0632 MLC HEAD1,288 CROS2 0633 WCSCS CROS2 0634 BCE HDPH2,PHASE,2 CROS2 0635 BCE HDPH3,PHASE,3 CROS2 0636 CCB HEADX,J CROS2 0638 HDPH2 MLC HEAD2,236 CROS2 0639 B N50280 CROS2 0640 HDPH3 WCSCSS,,HEAD3,286 CROS2 0641 MLC HEAD4,276 CROS2 0642 N50280 WCSCST CROS2 0643 HEADX B * CROS2 0644 * CROS2 0645 DCW @CROSS REFERENCE FOR @ CROS2 0646 HEAD1 DC #52 CROS2 0647 HEAD2 DCW @PG/LN TAG OP REFERENCES@ CROS2 0648 DCW @REFERENCES TO NON-EXISTENT TAGS,MACRO GENERATED@ CROS2 0649 HEAD3 DC @ TAGS, AND DIGIT MODIFIERS@ CROS2 0650 DCW @PAGE-LINE LABEL REFERENCED@ CROS2 0651 HEAD4 DC @ OP@ CROS2 0652 * CROS2 0653 RTBLD SBR RTBLDX&3 CROS2 0654 MLC BLK1,WLRT CROS2 0655 MN RT,*&4 CROS2 0656 RT 0,TAPEIN&X0 CROS2 0657 BEF RTBLDX CROS2 0658 MA @004@,RTBLDX&3 CROS2 0659 BCE *&5,WLRT,! CROS2 0660 B WLR CROS2 0661 MN RT,*&8 CROS2 0662 B *&9 CROS2 0663 RT 0,TAPEIN&X0 CROS2 0664 BER TAPERR CROS2 0665 RTBLDX B * CROS2 0666 * CROS2 0667 WTMRGE SBR WTMRGX&3 CROS2 0668 MN WT,*&4 CROS2 0669 WT 0,MERGE CROS2 0670 BER TAPERR CROS2 0671 WTMRGX B * CROS2 0672 * CROS2 0673 WTM SBR WTMX&3 CROS2 0674 MN WT,*&4 CROS2 0675 WTM2 WTM 0 CROS2 0676 RWD 4 CROS2 0677 RWD 5 CROS2 0678 MN RT,WT ALTERNATE TAPE DRIVES CROS2 0679 MN WTM2&3,RT CROS2 0680 WTMX B * CROS2 0681 * CROS2 0682 * TAPE ERROR ROUTINE CROS2 0683 * THE B TAPERR MUST BE PRECEEDED BY AN 8 CHARACTER TAPE I/O COMMAND CROS2 0684 * OR A COPY OF IT. CROS2 0685 TAPERR SBR TAPERX&3 STORE EXIT CROS2 0686 SBR *&4 INIT ADDR TO ERROR COMMAND&13 CROS2 0687 C *,TAPERC&13 USE COMPARE TO DECREMENT ADDRESS CROS2 0688 C TO ERROR COMMAND. CROS2 0689 MLC MOVE ERROR COMMAND TO ROUTINE. CROS2 0690 MLC @7@,TAPERX&4 SET ERROR COUNT TO 7. CROS2 0691 MN TAPERC&3,TAPERB&3 SET DRIVE IN BACKSPACE. CROS2 0692 TAPERP A *-6,TAPERX&4 ADD 1 TO COUNT. CROS2 0693 C TAPERX&4,@7@ COMPARE COUNT TO 7. CROS2 0694 BU TAPERB Q. 10 REPEATS. CROS2 0695 B WLR CROS2 0696 TAPERB BSP 0 BACKSPACE FOR ANOTHER TRY. CROS2 0697 BCE TAPERC,TAPERC&7,R Q. READ COMMAND CROS2 0698 BL TAPERC NO, Q. TWO REWRITES IN SME PLACE CROS2 0699 SKP 1 YES, TURN ON SKIP SWITCH CROS2 0700 TAPERC NOP *,*,* REPEAT TAPE I/O COMMAND. CROS2 0701 BER TAPERP Q. ERROR AGAIN CROS2 0702 TAPERX B * NO, EXIT TO PROGRAM. CROS2 0703 DCW #1 ERROR COUNT, NEVER OVERFLOW BITS CROS2 0704 * CROS2 0705 WLR WCSCS,,@BAD TAPE ON SELECTED DRIVE, REPLACE & RESTART@ CROS2 0706 H WLR CROS2 0707 B WLR CROS2 0708 * CROS2 0709 **************** CONSTANT AND AREA SECTION **************** CROS2 0710 * CROS2 0711 * WORK AREAS TO BUILD UP RECORDS CROS2 0712 * CROS2 0713 L EQU 17 LENGTH OF ONE TABLE ENTRY CROS2 0714 * CROS2 0715 * BUILD RECORD AREA CROS2 0716 BUILD DA 1X3774,G 222X17 CROS2 0717 TAGF1 1,6 1- 6 SYMBOL CROS2 0718 CODE 7 7- 7 A FOR TAG, B FOR REFERENCE CROS2 0719 PGLIN1 12 8-12 PAGE/LINE CROS2 0720 BLEND 17 13-17 OPERATION CROS2 0721 * CROS2 0722 * TAPE INPUT AREA CROS2 0723 TAPEIN DA 1X3774 222X17 CROS2 0724 TAPTAG 1,7 CROS2 0725 TAGF2 6 CROS2 0726 CODE2 7 CROS2 0727 PGLIN2 12 CROS2 0728 TPEND 17 CROS2 0729 WLRT DA 1X1,G CROS2 0730 * CROS2 0731 * MERGE AND TAPE OUTPUT AREA CROS2 0732 MERGE DA 1X3774,G 222X17 CROS2 0733 MRGEND 1,17 CROS2 0734 * CROS2 0735 * CONSTANTS AND WORK AREAS CROS2 0736 RT DCW 4 READ DRIVE CROS2 0737 WT DCW 5 WRITE DRIVE CROS2 0738 * CROS2 0739 * CROS2 0740 WORKB DCW #1 CROS2 0741 WK6 DC #5 CROS2 0742 * CROS2 0743 BLK1 DCW #1 CROS2 0744 BLK4 DC #3 CROS2 0745 BLK5 DC #1 CROS2 0746 BLK6 DC #1 CROS2 0747 BLK17 DC #11 CROS2 0748 BLK52 DC #35 CROS2 0749 HOLDX3 DCW 000 HOLD AREA FOR INDEX 3 CROS2 07495JOB DCW @JOB @ CROS2 0750 NINES DCW 99999999999999999 CROS2 0751 SEQHLD DCW #6 HOLD AREA FOR LAST TAG LISTED CROS2 0752 WK17 DCW #17 CROS2 0753 * CROS2 0754 LTORG* CROS2 0755 JOB TABLE OF ALL VALID OP CODES FOR UNIQUE 1401 CROS2 0756 DCW @*@ CROS2 0757 DCW @D@ CROS2 0758 DCW @M@ CROS2 0759 DCW @H@ CROS2 0760 DCW @W@ CROS2 0761 DCW @P@ CROS2 0762 DCW @R@ CROS2 0763 DCW @C@ CROS2 0764 DCW @A@ CROS2 0765 DCW @S@ CROS2 0766 OP1 DCW @B@ CROS2 0767 DCW 16 CROS2 0768 DCW @*@ CROS2 0769 DCW @**@ CROS2 0770 DCW @CU@ CROS2 0771 DCW @RF@ CROS2 0772 DCW @LU@ CROS2 0773 DCW @MU@ CROS2 0774 DCW @WM@ CROS2 0775 DCW @DS@ CROS2 0776 DCW @WP@ CROS2 0777 DCW @WR@ CROS2 0778 DCW @RP@ CROS2 0779 DCW @RT@ CROS2 0780 DCW @WT@ CROS2 0781 DCW @EX@ CROS2 0782 DCW @CS@ CROS2 0783 DCW @BM@ CROS2 0784 DCW @BW@ CROS2 0785 DCW @DC@ CROS2 0786 DCW @DA@ CROS2 0787 DCW @SS@ CROS2 0788 DCW @ZA@ CROS2 0789 DCW @ZS@ CROS2 0790 DCW @MA@ CROS2 0791 DCW @CC@ CROS2 0792 DCW @CW@ CROS2 0793 DCW @SW@ CROS2 0794 DCW @BU@ CROS2 0795 DCW @BH@ CROS2 0796 DCW @BL@ CROS2 0797 DCW @BE@ CROS2 0798 DCW @MN@ CROS2 0799 OP2 DCW @MZ@ CROS2 0800 DCW 17 CROS2 0801 DCW @*@ CROS2 0802 DCW @***@ CROS2 0803 DCW @SFX@ CROS2 0804 DCW @XFR@ CROS2 0805 DCW @PCB@ CROS2 0806 DCW @BBE@ CROS2 0807 DCW @BAV@ CROS2 0808 DCW @WTB@ CROS2 0809 DCW @RTB@ CROS2 0810 DCW @MBD@ CROS2 0811 DCW @MBC@ CROS2 0812 DCW @RCB@ CROS2 0813 DCW @RTW@ CROS2 0814 DCW @WTW@ CROS2 0815 DCW @WRF@ CROS2 0816 DCW @WRP@ CROS2 0817 DCW @BC9@ CROS2 0818 DCW @SKP@ CROS2 0819 DCW @BSP@ CROS2 0820 DCW @SSB@ CROS2 0821 DCW @DSA@ CROS2 0822 DCW @EQU@ CROS2 0823 DCW @RWU@ CROS2 0824 DCW @RWD@ CROS2 0825 DCW @WTM@ CROS2 0826 DCW @ENT@ CROS2 0827 DCW @END@ CROS2 0828 DCW @CTL@ CROS2 0829 DCW @JOB@ CROS2 0830 DCW @SAR@ CROS2 0831 DCW @BEF@ CROS2 0832 DCW @BER@ CROS2 0833 DCW @BIN@ CROS2 0834 DCW @GET@ CROS2 0835 DCW @PUT@ CROS2 0836 DCW @BLC@ CROS2 0837 DCW @BCV@ CROS2 0838 DCW @BSS@ CROS2 0839 DCW @CCB@ CROS2 0840 DCW @ORG@ CROS2 0841 DCW @NOP@ CROS2 0842 DCW @DCW@ CROS2 0843 DCW @MCS@ CROS2 0844 DCW @MCM@ CROS2 0845 DCW @BWZ@ CROS2 0846 DCW @BCE@ CROS2 0847 DCW @MCE@ CROS2 0848 DCW @LCA@ CROS2 0849 DCW @MLC@ CROS2 0850 DCW @MCW@ CROS2 0851 OP3 DCW @SBR@ CROS2 0852 DCW 18 CROS2 0853 DCW @*@ CROS2 0854 DCW @****@ CROS2 0855 DCW @CALL@ CROS2 0856 DCW @OPEN@ CROS2 0857 DCW @MLZS@ CROS2 0858 DCW @MLNS@ CROS2 0859 OP4 DCW @MRCM@ CROS2 0860 DCW 19 CROS2 0861 DCW @*@ CROS2 0862 DCW @*****@ CROS2 0863 DCW @*****@ CROS2 0864 DCW @TOPEN@ CROS2 0865 DCW @SORT7@ CROS2 0866 DCW @DCLOS@ CROS2 0867 DCW @TOVLY@ CROS2 0868 DCW @OVLAY@ CROS2 0869 DCW @INCLD@ CROS2 0870 DCW @FEORL@ CROS2 0871 DCW @RDLIN@ CROS2 0872 DCW @RELSE@ CROS2 0873 DCW @SEQNC@ CROS2 0874 DCW @INDEX@ CROS2 0875 DCW @LTORG@ CROS2 0876 DCW @ICODE@ CROS2 0877 DCW @CLOSE@ CROS2 0878 DCW @EDITT@ CROS2 0879 DCW @WCSCS@ CROS2 0880 DCW @CHAIN@ CROS2 0881 OP5 DCW @MLCWA@ CROS2 0882 DCW 20 CROS2 0883 END START CROS2