########## 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
