################################################################################
THE PRESEEDING CARD IS USED TO SEPARATE FILES.  THE NEXT CARD OF EACH FILEHAS
COLS 1-10 = ########## THEN A DESCRIPTION BEGINNING IN COL 12.
        R. WEAVER  JUN 27, 1972
################################################################################
########## 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
################################################################################
########## FOVAL (AN EXTRACT/REFORMAT PROGRAM) 1401 SOURCE
0101           JOB  1401 FORMAT RETRIEVAL                                  FOVAL
0102           CTL  6611                                                   FOVAL
01020*         VERSION OF MARCH 68
01021*  CHANGES FROM PREVIOUS VERSION OF MAY 67                            FOVAL
01022*    1. RECORD MARK NO LONGER REQUIRED FOR BLOCKED RECORDS.           FOVAL
01023*    2. SORT7 MACRO REMOVED FROM EOJ.                                 FOVAL
01024*    3. TABLE SEARCH ROUTINE REMOVED.  UNDEFINED LABELS WILL          FOVAL
01025*       RESULT IN TABLE LOAD AND GENERATE CALL ROUTINES.              FOVAL
01026*    4. WLR CHECKING ADDED.                                           FOVAL
01027*                                                                     FOVAL
0103 SIZE      EQU  15999               USED TO ORG PROG IN UPPER CORE     FOVAL
0104           ORG  1                        DEFINE FIELDS IN I/O          FOVAL
0105 AHERE     DS   3                         CONTROL BLOCKS RELATIVE      FOVAL
0106 ALOW      DS   4                         TO ONE.                      FOVAL
0107 AHIGH     DS   4                                                      FOVAL
0108 AB        DS   1                                                      FOVAL
0109 BHERE     DS   3                                                      FOVAL
0110 BLOW      DS   4                                                      FOVAL
0111 BHIGH     DS   4                                                      FOVAL
0112 BC        DS   1    B AND/OR C, A IS AND, O IS OR   .SAME FOR A,B     FOVAL
0113 CHERE     DS   3    UNITS POS OF C FIELD            . FIELDS          FOVAL
0114 CLOW      DS   4    LOWEST C TO BE USED             .                 FOVAL
0115 CHIGH     DS   4    HIGHEST C TO BE USED            .                 FOVAL
0116 STATUS    DS   1    NO WM IN LAST,ZONE IF RD CDS FOR A LOW/HIGH       FOVAL
0117 COUNT     DS   6    COUNT OUTPUT RECORDS                              FOVAL
0118 NXTABC    DS   3    START OF NEXT I/O CONTROL BLOCK, AHERE-3          FOVAL
0119 IO        DS   1    START OF OUTPUT ROUTINE                           FOVAL
0120 *                                                                     FOVAL
0121           ORG  81                                                     FOVAL
0122 CGM       DCW  @!@                                                    FOVAL
0123 CBLK      DCW  @ @                CONSTANT BLANK                      FOVAL
0124 SW120     DC   #1                                                     FOVAL
0125 WK3       DCW  #3
0126 *                                                                     FOVAL
0127 *THROUGHOUT GENERATION, X3 IS LAST LOC ASSIGNED, CALLED ORIGIN        FOVAL
0128 *                                                                     FOVAL
0129 *FOR PROCESSING ROUTINES                                              FOVAL
0130 *  X1 IS START OF CURRENT OUTPUT BLOCK - 1                            FOVAL
0131 *  X2 IS START OF CURRENT AHERE - 1                                   FOVAL
0132 *  X3 IS START OF TAPE INPUT RECORD - 1, ZERO IF CARD INPUT           FOVAL
0133 *                                                                     FOVAL
0134 X1        DCW  #3                                                     FOVAL
0135           DS   1                                                      FOVAL
0136 SWW       DC   #1                  WM IF PRINT GEN                    FOVAL
0137 X2        DCW  #3                                                     FOVAL
0138           DS   1                                                      FOVAL
0139 SWP       DC   #1                  WM IF PUNCH GEN                    FOVAL
0140 X3        DCW  336                 ITITIAL ORIGIN                     FOVAL
0141           DS   1                                                      FOVAL
0142           ORG  181                                                    FOVAL
0143           DCW  @!@                                                    FOVAL
0144 RECNT     DCW  -000000                                                FOVAL
0145 NOISEC    DCW  #4                 NOISE RECORD COUNT                  FOVAL
0146 WLRC      DCW  #4                 WLR COUNT                           FOVAL
0148 TAPEL     DCW  001                GM ADDRESS&1 FOR WLR CHECK          FOVAL
0177           JOB  GENERATE PRINT AND PUNCH FILE CONTROLS                 FOVAL
0178           ORG  336                                                    FOVAL
0179           DCW  @!@                CORE PROTECTION                     FOVAL
0180 HEADPG    SBR  HDX&3                                                  FOVAL
0181           CC   1                   EJECT                              FOVAL
0182           MRCM HL1-131,201                                            FOVAL
0183           A    *-6,PAGECT          PAGE COUNT                         FOVAL
0184 PPAGE     NOP  PAGECT,*                                               FOVAL
0185 HSP1      CC   /                                                      FOVAL
0186           W                        PRINT HEADING                      FOVAL
0187           MRCM HL2-131,201                                            FOVAL
0188 HSP2      CC   S                                                      FOVAL
0189           W                                                           FOVAL
0190           MRCM HC-131,201          CLEAR PRINT                        FOVAL
0191 HDX       B    AFTIL                                                  FOVAL
0192           DCW  #1                                                     FOVAL
0193 HL1       DS   131                                                    FOVAL
0194           DCW  @\@                                                    FOVAL
0195 HL2       DS   132                                                    FOVAL
0196           DCW  @\@                                                    FOVAL
0197 HC        DS   132                                                    FOVAL
0198           DCW  @\@                                                    FOVAL
0199 PAGECT    DCW  #4                                                     FOVAL
0200 *                                                                     FOVAL
0201 FINCNT    DCW  #6                                                     FOVAL
0202 SEQCHK    DCW  #9                                                     FOVAL
0203           DS   45                  SAVE FOR ABC                       FOVAL
0204 COUTT     EQU  *-3                                                    FOVAL
0205 WI0       C    SEQCHK-8,SEQCHK-8                                      FOVAL
0206           BE   PRINT                                                  FOVAL
0207 WI1       MCW  *,*                 RESET SEQUENCE                     FOVAL
0208           BCE  *&6,*-2,*           FIRST RECORD SWITCH                FOVAL
0209           SW                        TO BRANCH TO PRINT                FOVAL
0210           B    PRINT                                                  FOVAL
0211 WI2       NOP  COUTT,*             MOVE COUNT TO PRINT AREA           FOVAL
0212           A    COUTT,FINCNT                                           FOVAL
0213           S    COUTT                                                  FOVAL
0214 WI3       NOP  PAGECT              RESET PAGE COUNT                   FOVAL
0215           NOP                      PRINT TOTAL LINE                   FOVAL
0216 WI4       NOP  COUTT,*             CLEAR PRINT AREA                   FOVAL
0217 WI5       NOP  HEADPG                                                 FOVAL
0218 SWTOT     B    PRINT&5                                                FOVAL
0219 *                                                                     FOVAL
0220 PRINT     BCV  HEADPG                                                 FOVAL
0221 *                                                                     FOVAL
0222 ORGSZE    EQU  SIZE-999            ORG TO LOAD AHEAD OF TAPERR        FOVAL
0223 ORGSZ2    EQU  ORGSZE-999           AT END OF CORE AND FOR            FOVAL
0224           ORG  ORGSZ2-465           HOLD-4 TO BE XXX00                FOVAL
0225 SETWM     B    *                   END SW STRING                      FOVAL
0226 DOSET     SBR  SETWM&3                                                FOVAL
0227           B    1&X2                                                   FOVAL
0228 STARTI    CC   1                                                      FOVAL
0229           MRCM 76,276              IDENTIFY PROGRAM AND VERSION       FOVAL
0230           MLC  CPROG,274                                              FOVAL
0231           CC   T                                                      FOVAL
0232           W    READ                                                   FOVAL
0233           C    6,CHEAD1            Q. HEAD                            FOVAL
0234           BE   GENH                                                   FOVAL
0235           CS   PRINT&4                                                FOVAL
0236           CS                                                          FOVAL
0237           CS                                                          FOVAL
0238           CS                                                          FOVAL
0239           CS                                                          FOVAL
0240           CS                                                          FOVAL
0241           CS                                                          FOVAL
0242           MLCWACGM,336            RESTORE CORE PROTECTION             FOVAL
0243           B    QPUNCH                                                 FOVAL
0244 GENH      SW   7                                                      FOVAL
0245           MCW  76,HL1-62           STORE 1-70                         FOVAL
0246           B    READ                                                   FOVAL
0247           C    6,CHEAD2                                               FOVAL
0248           BE   *&6                                                    FOVAL
0249           NOP  1111                HEAD 2 MISSING                     FOVAL
0250           H                                                           FOVAL
0251           SW   7,72                                                   FOVAL
0252           MCW  68,HL1              STORE 71-132                       FOVAL
0253           BCE  *&19,71,            Q. PAGE CT                         FOVAL
0254           SW   69                                                     FOVAL
0255           MCW  71,PPAGE&6                                             FOVAL
0256           MCW  CMCS,PPAGE                                             FOVAL
0257           BCE  *&8,72,                                                FOVAL
0258           MCW  72,HSP1&1                                              FOVAL
0259           B    READ                                                   FOVAL
0260           C    6,CHEAD3                                               FOVAL
0261           BU   NOHL3                                                  FOVAL
0262           SW   7                                                      FOVAL
0263           MLC  76,HL2-62                                              FOVAL
0264           B    READ                                                   FOVAL
0265           C    6,CHEAD4                                               FOVAL
0266           BE   *&6                                                    FOVAL
0267           NOP  1112                HEAD 4 MISSING                     FOVAL
0268           H                                                           FOVAL
0269           SW   7,72                                                   FOVAL
0270           MLC  68,HL2                                                 FOVAL
0271           BCE  *&8,72,                                                FOVAL
0272           MLC  72,HSP2&1                                              FOVAL
0273           B    READ                                                   FOVAL
0274           B    QPRINT                                                 FOVAL
0275           BIN  HDX,                                                   FOVAL
0276 NOHL3     SBR  HSP2-4,HC-131                                          FOVAL
0277           LCA  NOHL3-1,HSP2&4                                         FOVAL
0278 QPRINT    C    5,CPRINT                                               FOVAL
0279           BE   *&6                                                    FOVAL
0280           NOP  1114                NO PRINT AFTER HEAD                FOVAL
0281           H                                                           FOVAL
0282           SBR  X3,SEQCHK           UP ORIGIN                          FOVAL
0283           B    LDABC                                                  FOVAL
0284           BCE  NOTOT,F3,           Q. TOTALS                          FOVAL
0285           MCW  F3,WI2&6                                               FOVAL
0286           MCW  F3,WI4&6                                               FOVAL
0287           MCW  CMCS,WI2                                               FOVAL
0288           MCW  CMCS,WI4                                               FOVAL
0289           MCW  CW                                                     FOVAL
0290 NOTOT     BCE  NOSEQ,F1,           Q. SEQUENCE CHECK                  FOVAL
0291           MZ   CB,F1-1                                                FOVAL
0292           MCW  F1,WI0&3                                               FOVAL
0293           SBR  X1,SEQCHK-9                                            FOVAL
0294           MN   F2-2,*&7                                               FOVAL
0295           SBR  WI0&6,0&X1                                             FOVAL
0296           SBR  WI1&6                                                  FOVAL
0297           MCW  F1,WI1&3                                               FOVAL
0298           BCE  NOSEQ,F4-2,         Q. SPACE AFTER BREAK               FOVAL
0299           BCE  EJ,F4-2,1                                              FOVAL
0300           LCA  CNN,WI5&3           SET  CC X,  NOP X                  FOVAL
0301           MCW  F4-2                                                   FOVAL
0302           LCA  CCC                                                    FOVAL
0303           B    NOSEQ                                                  FOVAL
0304 EJ        MCW  CB,WI5                                                 FOVAL
0305           BCE  *&8,F4-1,           Q. RESET PAGE COUNT                FOVAL
0306           MCW  CS,WI3                                                 FOVAL
0307 NOSEQ     SBR  X3,PRINT&4          UP ORIGIN                          FOVAL
0308           B    GETDV                                                  FOVAL
0309           B    DOSET                                                  FOVAL
0310           BCE  *&22,F2-1,         Q. SPACE AFTER PRINT                FOVAL
0311           MCW  F2-1,2&X3                                              FOVAL
0312           MLCWACCC,1&X3                                               FOVAL
0313           SBR  X3,2&X3                                                FOVAL
0314           SBR  12&X3,PASS                                             FOVAL
0315           LCA  CB,9&X3                                                FOVAL
0316           LCA  CLRP&6                                                 FOVAL
0317           MLCWACW                                                     FOVAL
0318           SBR  X3,12&X3                                               FOVAL
0319           SW   1&X3,SWW            PRINT SW ON                        FOVAL
0320 *                                                                     FOVAL
0321 QPUNCH    C    5,CPUNCH                                               FOVAL
0322           BU   QTABLE              Q. PUNCH                           FOVAL
0323           B    LDABC                                                  FOVAL
0324           B    GETDV                                                  FOVAL
0325           B    DOSET               SET WM FOR PUNCH                   FOVAL
0326           LCA  CP,1&X3                                                FOVAL
0327           BCE  NSTACK,F1-2,        Q. STACKER SELECTION               FOVAL
0328           MCW  F1-2,6&X3                                              FOVAL
0329           SBR  5&X3,PASS                                              FOVAL
0330           LCA  CSS,2&X3                                               FOVAL
0331           SBR  X3,6&X3                                                FOVAL
0332           B    *&15                                                   FOVAL
0333 NSTACK    SBR  4&X3,PASS                                              FOVAL
0334           SBR  X3,4&X3                                                FOVAL
0335           SW   SWP,1&X3            PUNCH SW ON                        FOVAL
0336           B    QPUNCH                                                 FOVAL
0337 *                                                                     FOVAL
0338 EOTABL    B    READ                                                   FOVAL
0339 QTABLE    C    5,CTABLE           Q. TABLE                            FOVAL
0340           BU   CLRJNK                                                 FOVAL
0341 TABLE     B    READ                                                   FOVAL
0342           BCE  EOTABL,1,*         Q. END OF TABLE CARD                FOVAL
0343           SW   1,4                LOAD TABLES FOR LOOKUP              FOVAL
0344           MLC  3,X2                                                   FOVAL
0345           MA   X2                                                     FOVAL
0346           MA   3,X2                                                   FOVAL
0347           MLCWA6,STORE&X2                                             FOVAL
0348           B    TABLE                                                  FOVAL
0349 *                                                                     FOVAL
0350 CLRP      MRCM HC-131,201                                             FOVAL
0351 CCC       DCW  @F@                                                    FOVAL
0352 CHEAD1    DCW  @HEAD 1@                                               FOVAL
0353 CHEAD2    DCW  @HEAD 2@                                               FOVAL
0354 CHEAD3    DCW  @HEAD 3@                                               FOVAL
0355 CHEAD4    DCW  @HEAD 4@                                               FOVAL
0356 CMCS      MCS                                                         FOVAL
0357 CNN       DCW  @NN@                                                   FOVAL
0358 CP        P                                                           FOVAL
0359 CPRINT    DCW  @PRINT@                                                FOVAL
0360 CPROG     DCW  @PROGRAM@                                              FOVAL
0361 CPUNCH    DCW  @PUNCH@                                                FOVAL
0362 CSS       SS                                                          FOVAL
0363 CTABLE    DCW  @TABLE@                                                FOVAL
0364 CW        W                                                           FOVAL
0365 CLRJNK    CS   *                   DONE WITH PRINT/PUNCH              FOVAL
0366           CS                        CLEAR ROUTINES                    FOVAL
0367           CS                                                          FOVAL
0368           CS                                                          FOVAL
0369           CS                                                          FOVAL
0370           CS                                                          FOVAL
0371           CS                                                          FOVAL
0372           CS                                                          FOVAL
0373           CW   P                   PRINT OR PUNCH SWITCH OFF          FOVAL
0374           SBR  GETDV&10,*&4        NEW START FOR SW IN MCW            FOVAL
0375 CLRJK3    B    CLRJK2                                                 FOVAL
0376           JOB  GENERATE TAPE OUTPUT FILE CONTROLS                     FOVAL
0377 * THIS IS UPPER LIMIT OF USER GENERATED OUTPUT ROUTINES               FOVAL
0378           B    TUP                                                    FOVAL
0379 * HOLD MUST BE IN CORE FOR GENERATION AND INITP                       FOVAL
0380 HOLD      DCW  #1                  *HOLD FILE DEFINITION              FOVAL
0381           DC   #43                 *                                  FOVAL
0382 F1        DCW  #3                  *                                  FOVAL
0383 F2        DCW  #3                  *                                  FOVAL
0384 F3        DCW  #3                  *                                  FOVAL
0385 F4        DCW  #3                  *                                  FOVAL
0386           DC   #25                 *                                  FOVAL
0387 CLRJK2    CS   CLRJK3&3                                               FOVAL
0388           CS                                                          FOVAL
0389 *                                                                     FOVAL
0390 QTYPEF    BCE  READN,1,R           READ                               FOVAL
0391           BCE  END,1,E             END                                FOVAL
0392           BCE  TITLE,2,I           TITLE                              FOVAL
0393           BCE  TAPEN,3,P           TAPEN                              FOVAL
0394           NOP  2111                CARD TYPE ERROR                    FOVAL
0395           H                                                           FOVAL
0396 *                                                                     FOVAL
0397 *GENERATED TAPE OUTPUT ROUTINES, SAMPLE                               FOVAL
0398 *         DS   45                       A,B,C CONTROL                 FOVAL
0399 WTAPE2    SBR  X1   ,*                  * IS RECORD TO FILL - 1       FOVAL
0400 *              *,*                                                    FOVAL
0401 *              *,*                      GENERATED MOVE COMMANDS       FOVAL
0402 *              *,*                                                    FOVAL
0403           BCE  WTAPE,0&1&X1,!           Q. END BLOCK, 0 IS REC LNG    FOVAL
0404           SBR  WTAPE2&6                 SET TO NEXT BLOCK             FOVAL
0405           B    PASS                                                   FOVAL
0406           DCW  2                                                      FOVAL
0407 STD       DCW  #5                  BLOCKCOUNT                         FOVAL
0408 *WRITE AREA FOLLOWS WITH \S, GM, AND WMS                              FOVAL
0409 *                                                                     FOVAL
0410 *                                                                     FOVAL
0411 TAPEN     B    LDABC               LOAD ABC FOR TAPE FILE             FOVAL
0412           MN   HOLD&4,*&4                                             FOVAL
0413           RWD  2                                                      FOVAL
0414           LCA  WTAPE2&3,4&X3                                          FOVAL
0415           SBR  WHRWT2&3,7&X3        SBR X1,*                          FOVAL
0416           SBR  X3                                                     FOVAL
0417           B    GETDV                                                  FOVAL
0418 WHRWT2    SBR  *,22&X3                                                FOVAL
0419           MLCWASTD                                                    FOVAL
0420           MLCWA                                                       FOVAL
0421           LCA                                                         FOVAL
0422           LCA                                                         FOVAL
0423           LCA                                                         FOVAL
0424           MN   HOLD&4,17&X3                                           FOVAL
0425           MCW  WHRWT2&3,12&X3      MOVE SBR WTAPE2&6                  FOVAL
0426           MN   F1,TUP&6                                               FOVAL
0427           MN                                                          FOVAL
0428           MLC                                                         FOVAL
0429           A    *-6,F1                                                 FOVAL
0430           MN   F1,7&X3                                                FOVAL
0431           MN                                                          FOVAL
0432           MLC                                                         FOVAL
0433           SBR  X3,22&X3                                               FOVAL
0434           BCE  *&8,F2,            ASSUME 1 IF BLOCKING NOT GIVEN      FOVAL
0435 QBLOCK    S    C1,F2                                                  FOVAL
0436           BWZ  ORC,F2,K                                               FOVAL
0437           B    1&X2                                                   FOVAL
0438 TUP       SBR  X3,0&X3                                                FOVAL
0439           MLC  CRM                                                    FOVAL
0440           B    QBLOCK                                                 FOVAL
0441 ORC       SBR  X3,1&X3                                                FOVAL
0442           LCA  CGM                 END OF TAPE OUTPUT FILE GEN        FOVAL
0443           B    QTYPEF                                                 FOVAL
0444           JOB  DATA MOVE GENERATION AND MISC CONTROL CARDS            FOVAL
0445 READN     MRCM 1,HOLD                                                 FOVAL
0446           BWZ  *&5,5,2             Q. TAPE INPUT                      FOVAL
0447           B    NOLAB                                                  FOVAL
0448           MN   5,*&4                                                  FOVAL
0449           RWD  1                   REWIND INPUT TAPE                  FOVAL
04490          BCE  *&8,F2,                                                FOVAL
04492CALBLK    S    C1,F2              CALCULATE INPUT BLOCK LENGTH        FOVAL
04494          BWZ  *&12,F2,K                                              FOVAL
04496          MA   F1,TAPEL                                               FOVAL
04498          B    CALBLK                                                 FOVAL
0450           BCE  NOLAB,51,           Q. TAPE LABEL                      FOVAL
0451           MN   5,*&4                                                  FOVAL
0452           RT   1,201               READ TAPE LABEL                    FOVAL
0453           BER  TAPERR                                                 FOVAL
0454           W                                                           FOVAL
0455           MRCM 101,201                                                FOVAL
0456           MRCM 101,233                                                FOVAL
0457           MN   5,*&4              Q. TAPEMARK AFTER LABEL             FOVAL
0458           RT   1,79                                                   FOVAL
0459           BEF  NOLAB               YES                                FOVAL
0460           MN   5,*&4               NO                                 FOVAL
0461           BSP  1                                                      FOVAL
0462 NOLAB     MRCM HIGHM-28,260                                           FOVAL
0463           SBR  X3,1&X3             LEAVE WM IF PRINT/PCH ONLY         FOVAL
0464           SBR  293,0&X3                                               FOVAL
0465           W                                                           FOVAL
0466           MRCM 130,260                                                FOVAL
0467 LABC      SBR  X2,*               INITALIZE TO LAST ABC               FOVAL
0468           CW   STATUS&X2          NO WM IN LAST STATUS                FOVAL
0469 FABC      SBR  NXTABC&X2,*        CHAIN LAST TO FIRST ABC             FOVAL
0470           B    READ                                                   FOVAL
0471           B    QTYPEF                                                 FOVAL
0472 *                                                                     FOVAL
0473 TITLE     BCE  *&6,6,1                                                FOVAL
0474           NOP  2121                FIRST TITLE NOT 1                  FOVAL
0475           H                                                           FOVAL
0476           MRCM 7,201                                                  FOVAL
0477           R                                                           FOVAL
0478           C    6,CTIT                                                 FOVAL
0479           BE   *&6                                                    FOVAL
0480           NOP  2122                TITLE 2 MISSING                    FOVAL
0481           H                                                           FOVAL
0482           LCA  CGM,69                                                 FOVAL
0483           MRCM 7,271                                                  FOVAL
0484           CC   1                                                      FOVAL
0485           WR                                                          FOVAL
0486           CCB  HEADPG&6,L                                             FOVAL
0487 AFTIL     BCE  END2,1,E                                               FOVAL
0488           NOP  2124                NO END AFTER TITLE                 FOVAL
0489           H                                                           FOVAL
0490 *                                                                     FOVAL
0491 END       BWZ  HEADPG,SWW,1                                           FOVAL
0492 END2      CS   80                                                     FOVAL
0493           SW   56,63                                                  FOVAL
0494           R    56                                                     FOVAL
0495 *                                                                     FOVAL
0496 LDABC     SBR  LDABCX&3                                               FOVAL
0497           SW   6                                                      FOVAL
0498           LCA  BLK3,45&X3                                             FOVAL
0499           LCA  BLK6                LOAD ABC CONTROLS                  FOVAL
0500           LCA  41                                                     FOVAL
0501           MRCM 1,HOLD              HOLD FILE CARD                     FOVAL
0502 ANXTAB    SBR  FABC&6,0&X3         CHAIN NXTABC                       FOVAL
0503           SBR  LABC&6             SAVE LAST FOR INITALIZE IN READN    FOVAL
0504           S    X1&1                                                   FOVAL
0505 SWABC     SW   42&X1                                                  FOVAL
0506           S    C4,42&X1                                               FOVAL
0507           MN   42&X1,*&7                                              FOVAL
0508           SBR  X2,0&X3                                                FOVAL
0509           SW   4&X2,8&X2           SET WM FOR LENGTH ABC              FOVAL
0510           SW   1&X3                SET WM FOR LOCATION                FOVAL
0511           MZ   CB,2&X3             INDEX FOR LOCATION                 FOVAL
0512           BCE  *&19,X1,2                                              FOVAL
0513           SBR  X1,1&X1                                                FOVAL
0514           SBR  X3,12&X3                                               FOVAL
0515           B    SWABC                                                  FOVAL
0516           SW   12&X3               SET WM IN STATUS                   FOVAL
0517           SBR  ANXTAB&3,21&X3      CHAIN NXT ABC                      FOVAL
0518           SBR  X3                                                     FOVAL
0519 LDABCX    B    *                                                      FOVAL
0520 *                                                                     FOVAL
0521 GETDV     SBR  GETDVX&3            READ AND ASSEMBLE MOVES            FOVAL
0522           SBR  X2,SETWM-1          IWIT SW STRING, SEE MCW            FOVAL
0523 RCTL      B    READ                                                   FOVAL
0524           S    X1&1                SEARCH TABLE OF MOVES FOR TYPE     FOVAL
0525 QTYPEM    C    4,DATAMV&X1                                            FOVAL
0526           BU   *&16                                                   FOVAL
0527           MCW  DATAMV&3&X1,*&8                                        FOVAL
0528           S    X1&1                                                   FOVAL
0529           B    *                   EXIT TO PROCESS TYPE               FOVAL
0530 GETDVX    BCE  *,DATAMV&4&X1,*     EXIT TO FILE ASSEMBLY              FOVAL
0531           SBR  X1,7&X1                                                FOVAL
0532           B    QTYPEM                                                 FOVAL
0533 DATAMV    DCW  @MLC @                                                 FOVAL
0534           DCW  MCW                                                    FOVAL
0535           DCW  @MLZS@                                                 FOVAL
0536           DCW  MZ                                                     FOVAL
0537           DCW  @MLNS@                                                 FOVAL
0538           DCW  MN                                                     FOVAL
0539           DCW  @BWZ @                                                 FOVAL
0540           DCW  BWZ                                                    FOVAL
0541           DCW  @BCE @                                                 FOVAL
0542           DCW  BCE                                                    FOVAL
0543           DCW  @CONS@                                                 FOVAL
0544           DCW  CONST                                                  FOVAL
0545           DCW  @CORE@                                                 FOVAL
0546           DCW  CORE                                                   FOVAL
0547           DCW  @1HDR@                                                 FOVAL
0548           DCW  HDR                                                    FOVAL
0549           DCW  @2HDR@             WRITE 120 CHAR LABEL                FOVAL
0550           DCW  HDR120                                                 FOVAL
0551           DCW  @WTM @             WRITE TM ON DRIVE                   FOVAL
0552           DCW  WTM                                                    FOVAL
0553           DCW  @CNVR@                                                 FOVAL
0554           DCW  CNVRT                                                  FOVAL
0555           DCW  @*@                                                    FOVAL
0556 *                                                                     FOVAL
0557 BWZ       MCW  CBWZ,OP             ASSEMBLES                          FOVAL
0558           B    *&8                                                    FOVAL
0559 BCE       MCW  CB,OP                                                  FOVAL
0560           SW   6&X1,9&X1           BWZ/BCE  *&6,CCC&X3,D              FOVAL
0561           SW   10&X1                   B    *&9                       FOVAL
0562           MCW  8&X1,20&X3              DCW  @B@                       FOVAL
0563           SBR  17&X3,13&X3             MCW  *-1,AAA&X1                FOVAL
0564           LCA  CMCW,14&X3                                             FOVAL
0565           LCA  9&X1                                                   FOVAL
0566           SBR  12&X3,21&X3                                            FOVAL
0567           LCA  CB,9&X3                                                FOVAL
0568           MCW  13&X1                                                  FOVAL
0569           SBR  4&X3,14&X3                                             FOVAL
0570           LCA  OP,1&X3                                                FOVAL
0571 CBWZ      BWZ  *&8,P,1                                                FOVAL
0572           MZ   CS,19&X3                                               FOVAL
0573           MZ   CB,6&X3                                                FOVAL
0574           SBR  X3,20&X3                                               FOVAL
0575           BCE  RCTL,14&X1,                                            FOVAL
0576           SBR  X1,8&X1                                                FOVAL
0577           B    BCE&7                                                  FOVAL
0578 *                                                                     FOVAL
0579 CORE      MRCM ORGIS,230                                              FOVAL
0580           SBR  242,1&X3            PRINT ORIGIN FOR PATCH             FOVAL
0581           MA   8,X3                                                   FOVAL
0585           W                                                           FOVAL
0586           MRCM 130,230                                                FOVAL
0587           B    RCTL                                                   FOVAL
0588 ORGIS     DCW  @O@                                                    FOVAL
0589           DC   @RIGIN IS@                                             FOVAL
0590           DCW  @!@                                                    FOVAL
0591 *                                                                     FOVAL
0592 MCW       SW   6&X1,9&X1           ASSEMBLES                          FOVAL
0593           SW   12&X1                MCW AAA&X3,CCC&X1                 FOVAL
0594 CMCW      MCW  14&X1,7&X3                                             FOVAL
0595           MCW  8&X1                                                   FOVAL
0596           LCA  CMCW                                                   FOVAL
0597           MCW  11&X1,0&X2          GENERATE SW STRING TO SW IN        FOVAL
0598           LCA  CSW                  EACH OUTPUT RECORD OF BLOCK       FOVAL
0599           SBR  X2                                                     FOVAL
0600           BWZ  *&15,P,1                                               FOVAL
0601           MZ   CB,3&X2                                                FOVAL
0603           MZ   CS,6&X3                                                FOVAL
0604           MZ   CB,3&X3                                                FOVAL
0605           SBR  X3,7&X3                                                FOVAL
0606           BCE  RCTL,15&X1,                                            FOVAL
0607           SBR  X1,9&X1                                                FOVAL
0608           B    MCW                                                    FOVAL
0609 *                                                                     FOVAL
0610 MZ        MCW  CMZ,OP                                                 FOVAL
0611           B    *&8                                                    FOVAL
0612 MN        MCW  CMN,OP              ASSEMBLES                          FOVAL
0613           SW   6&X1                MZ/MN  AAA&X3,BBB&X1               FOVAL
0614           MCW  11&X1,7&X3                                             FOVAL
0615           LCA  OP                                                     FOVAL
0616           BWZ  *&8,P,1                                                FOVAL
0617 CMZ       MZ   CS,6&X3                                                FOVAL
0618           MZ   CB,3&X3                                                FOVAL
0619           SBR  X3,7&X3                                                FOVAL
0620           BCE  RCTL,12&X1,                                            FOVAL
0621           SBR  X1,6&X1                                                FOVAL
0622           B    MN&7                                                   FOVAL
0623 *                                                                     FOVAL
0624 CONST     SW   8,11                                                   FOVAL
0625           MLC  7,X1                                                   FOVAL
0626           MLC  BLK3,X1-2                                              FOVAL
0627           MLCWACB,1&X3                                                FOVAL
0628           MA   X1,X3                                                  FOVAL
0629           MLC  10,11&X3                                               FOVAL
0630           BWZ  *&8,P,1                                                FOVAL
0631           MLZS CS,10&X3                                               FOVAL
0632           MLCWACMCW,5&X3                                              FOVAL
0633           SBR  8&X3                                                   FOVAL
0634           MLCWA10&X1                                                  FOVAL
0635           SBR  *&4                                                    FOVAL
0636           SBR  *,5&X3                                                 FOVAL
0637           SBR  X3,11&X3                                               FOVAL
0638           B    RCTL                                                   FOVAL
0639 *                                                                     FOVAL
0640           MLC  0&X3,ARG                                               FOVAL
0641           B    CNVRT1                                                 FOVAL
0642           MLC  FUN,0                                                  FOVAL
0643 CNVRT     SW   7,10               CALL TABLE-LOOKUP SUBROUTINE        FOVAL
0644           MLCWACNVRT-1,18&X3                                          FOVAL
0645           CHAIN2                                                      FOVAL
0646           MN   12,18&X3                                               FOVAL
0647           MN                                                          FOVAL
0648           MLC                                                         FOVAL
0649           MN   9,4&X3                                                 FOVAL
0650           MN                                                          FOVAL
0651           MLC                                                         FOVAL
0652           BWZ  *&8,P,1                                                FOVAL
0653           MZ   CS,17&X3                                               FOVAL
0654           SBR  X3,18&X3                                               FOVAL
0655           B    RCTL                                                   FOVAL
0656 *                                                                     FOVAL
0657 HDR       MN   HOLD&4,*&4                                             FOVAL
0658           WT   2,1                                                    FOVAL
0659           BER  TAPERR                                                 FOVAL
0660           B    RCTL                                                   FOVAL
0661 *                                                                     FOVAL
0662 HDR120    MRCM 1,216                                                  FOVAL
0663           MLC  C1,216                                                 FOVAL
0664           MN   HOLD&4,*&4                                             FOVAL
0665           WT   2,216                                                  FOVAL
0666           BER  TAPERR                                                 FOVAL
0667           MRCM 101,216                                                FOVAL
0668           SW   SW120                                                  FOVAL
0669           B    RCTL                                                   FOVAL
0670 *                                                                     FOVAL
0671 WTM       MN   HOLD&4,*&4                                             FOVAL
0672           WTM  2                                                      FOVAL
0673           B    RCTL                                                   FOVAL
0674 *                                                                     FOVAL
0675 READ      SBR  READX&3             READ AND LIST CARD                 FOVAL
0676           CS   80                                                     FOVAL
0677           R                                                           FOVAL
0678           SBR  X1,1                                                   FOVAL
0679 READM     MRCM 0&X1,200&X1                                            FOVAL
0680           SAR  X1                                                     FOVAL
0681           BCE  *&5,X1-1,8          LOOP IF RM IN CARD STOPPED MOVE    FOVAL
0682           B    READM                                                  FOVAL
0683           W                                                           FOVAL
0684           MRCM 101,201                                                FOVAL
0685 READX     B    *                                                      FOVAL
0686 *                                                                     FOVAL
0687 BLK3      DCW  #3                                                     FOVAL
0688 BLK6      DC   #3                                                     FOVAL
0689 CRM       DCW  @\@                                                    FOVAL
0690 P         DCW  #1                  WM WHILE GEN PRINT/PUNCH           FOVAL
0691 CTIT      DCW  @TITLE2@                                               FOVAL
0692 C1        DCW  1                                                      FOVAL
0693 C4        DCW  4                                                      FOVAL
0694 HIGHM     DCW  @  HIGH LOCATION FOR OUTPUT IS@                        FOVAL
0695           DCW  @!@                                                    FOVAL
0696 OP        DCW  #1                  BWZ/BCE, MN/MZ FOR GENERATION      FOVAL
0697 CB        B                                                           FOVAL
0698 CMN       MN                                                          FOVAL
0699 CS        S                                                           FOVAL
0700 CSW       SW                                                          FOVAL
0701 *                                                                     FOVAL
0702           ORG  SIZE-101                                               FOVAL
0703 TAPERR    SBR  COMAND&16                REPEAT 8 CHARACTER TAPE       FOVAL
0704           SBR  *&4                       R/W COMMANDS  AFTER ERROR    FOVAL
0705           C    *,COMAND&13                                            FOVAL
0706           C                                                           FOVAL
0707           MCW                                                         FOVAL
0708           MN   COMAND&17,COMAND&18                                    FOVAL
0709           MN   COMAND&3,BACKSP&3                                      FOVAL
0710 REPEAT    A    *-6,COMAND&18                                          FOVAL
0711           C    COMAND&18,COMAND&17                                    FOVAL
0712           BU   *&11                                                   FOVAL
07125          NOP  2288                                                   FOVAL
0713           H                                                           FOVAL
0714           BSS  COMAND&13,G                                            FOVAL
0715 BACKSP    CU   %U1,B                                                  FOVAL
0716           BCE  COMAND,COMAND&7,R                                      FOVAL
0717           BL   COMAND                                                 FOVAL
0718           CU   %U1,E                                                  FOVAL
0719 COMAND    NOP  *,*,*                                                  FOVAL
0720           BER  REPEAT                                                 FOVAL
0721           B    *-3                                                    FOVAL
0722           DCW  7                                                      FOVAL
0723           DCW  @ @                                                    FOVAL
0724           EX   STARTI                                                 FOVAL
0725 *******************************************************************   FOVAL
0726 *     CONTROL CARDS HERE IN CONDENSED DECK                            FOVAL
0727 *******************************************************************   FOVAL
0728           JOB  INITALIZE PROCESSING                                   FOVAL
0729 ORGI      EQU  SIZE-999                                               FOVAL
0730           ORG  ORGI-100                                               FOVAL
0731           R    GETREC&11           CONSTANTS FOR CONVERSION           FOVAL
0732           BCE  LOADTR,1,,           OF GET TAPE TO READ CARD          FOVAL
0733           NOP                                                         FOVAL
0734 CARD      MLCWA*-7,QPAD9                                              FOVAL
0735           CHAIN2                                                      FOVAL
0736           S    X3&1                                                   FOVAL
0737           B    GETREC&7                                               FOVAL
0738 *                                                                     FOVAL
0739 INITP     CS   80                                                     FOVAL
07390          BWZ  WTT120,SW120,1     Q. 120 CHAR LABELS                  FOVAL
07391          MLCWACGM,WTE80           NO, SET TO 80                      FOVAL
07393          SBR  MVEBKC&6,WTCNT     MOVE BLOCKCOUNT,  80 LABEL          FOVAL
0740 WTT120    BCE  CARD,HOLD&4,C                                          FOVAL
0741           MZ   *-6,ABIT           MAKE A-BIT CONSTANT                 FOVAL
0742           MN   HOLD&4,RTAPE&3                                         FOVAL
0743           MN   HOLD&4,EOT1&3                                          FOVAL
07435          MN   HOLD&4,WLRBSP                                          FOVAL
0744           SBR  INTBLK&6,0&X3                                          FOVAL
0745           SBR  RTAPE&6,1&X3        SET START OF TAPE INPUT BLOCK      FOVAL
07455          MA   RTAPE&6,TAPEL      ADD BEGIN ADDR TO BLOCK LENGTH      FOVAL
0746           SBR  GETBL3&6,13&X3      INIT NOISE TEST                    FOVAL
0747           SBR  GETBLK&6                                               FOVAL
0748           MLC  ABIT,GETBL3&7                                          FOVAL
0749           A    *-6,F1                                                 FOVAL
0750           MN   F1,GETREC&13                                           FOVAL
0751           MN                                                          FOVAL
0752           MLC                                                         FOVAL
0753           MCW  RTAPE&7,GETBL2&7                                       FOVAL
0754           MLC  F3,REELS            SAVE INPUT REEL COUNT              FOVAL
0755           S    IPC1,REELS                                             FOVAL
0756           R                                                           FOVAL
0757           CS   *-4                                                    FOVAL
0758           SBR  *-4                                                    FOVAL
0759           BWZ  *-15,HOLD,1                                            FOVAL
0760           CS   GETBLK,*&1                                             FOVAL
0761 IPC1      DCW  1                                                      FOVAL
0762           JOB  PROCESSING ROUTINES, INPUT/OUTPUT, PASS/FAIL           FOVAL
0763           ORG  *&X00                                                  FOVAL
0764 ORGPRO    EQU  *&1                                                    FOVAL
0765 CPGM      DCW  @!@                 CORE PROTECTION                    FOVAL
0766 * THIS IS UPPER LIMIT OF USER TAPE INPUT BLOCK                        FOVAL
0767 *GET NEXT RECORD FROM BLOCKED INPUT TAPE                              FOVAL
07672WLR       A    *-6,WLRC           COUNT SKIPPED WLR                   FOVAL
07674          B    GETBLK                                                 FOVAL
0768 NOISE     A    *-6,NOISEC                                             FOVAL
0769 GETBLK    MLC  ABIT,0&12          INIT ABIT FOR NOISE REC TEST        FOVAL
0770 RTAPE     RT   1,*                 * IS READ AREA                     FOVAL
07702          SBR  X3                                                     FOVAL
0771           BEF  EOT1                                                   FOVAL
0772 GETBL3    BCE  NOISE,0&12,         Q. NOISE RECORD                    FOVAL
0773           B    *&9                                                    FOVAL
0774 GETBL2    RT   1,*                 CALLING SEQUENCE FOR TAPERR        FOVAL
0775           BER  TAPERR                                                 FOVAL
07750          C    TAPEL,X3           Q. WLR                              FOVAL
07751          BE   INTBLK              NO                                 FOVAL
07752          MN   0&X3                YES, DESTROY EXTRA GM              FOVAL
07753          MLC  CBLK                                                   FOVAL
07753          MLC  CGM,CPGM           IN CASE DESTROYED CORE PROTECT GM   FOVAL
07754          NOP  2244                                                   FOVAL
07755          H                                                           FOVAL
07756          BSS  WLR,G              DROP RECORD IF SWITCH G ON          FOVAL
07757WLRBSP    BSP  1                                                      FOVAL
07758          B    GETBLK                                                 FOVAL
0776 INTBLK    SBR  X3,*                * IS READ AREA - 1                 FOVAL
0777           B    QPAD9                                                  FOVAL
0778 EOT1      RWU  1                   INPUT REEL COMPLETED               FOVAL
0779           S    PRC1,REELS          Q. ALL REELS READ                  FOVAL
0780           BWZ  GETBLK,REELS,B                                         FOVAL
0781 LOADTR    SW   56,63                                                  FOVAL
0782           B    56                                                     FOVAL
0783 SCAN9     MCW  X3,X1               FIRST CHAR OF RECORD WAS 9,        FOVAL
0784           SBR  X1,1&X1              SCAN FOR ALL 9S                   FOVAL
0785           BCE  *-14,1&X1,9                                            FOVAL
0786           BCE  GETREC&7,1&X1,\      YES, WAS PADDING                  FOVAL
0787           B    QPAD9&8              NO, PROCESS                       FOVAL
0788 PASS      A    *-6,COUNT&X2                                           FOVAL
0789 SELX      BW   OUTSEL,STATUS&X2    Q. LAST FILE DEF TESTED            FOVAL
0790 GETREC    A    *-6,RECNT           COUNT LAST INPUT RECORD            FOVAL
0791           BCE  GETBLK,0&1&X3,!     Q. END OF BLK, 0 IS RECORD LNG     FOVAL
0792           SBR  X3                  SET TO NEXT RECORD                 FOVAL
0793 QPAD9     BCE  SCAN9,1&X3,9        Q. PADDING                         FOVAL
0794 *                                                                     FOVAL
0795 OUTSEL    MCW  NXTABC&X2,X2             TEST FOR TRUTH OF A,B,C       FOVAL
0796           BCE  IO&X2,AHERE&X2,     WHEN AHERE BLK, ACCEPT ALL REC     FOVAL
0797           MCW  AHERE&X2,*&4                                           FOVAL
0798           C    *,ALOW&X2                                              FOVAL
0799           BH   TSTAF                                                  FOVAL
0800           MCW  AHERE&X2,*&4                                           FOVAL
0801           C    *,AHIGH&X2                                             FOVAL
0802           BL   TSTAF                                                  FOVAL
0803           BCE  IO&X2,AB&X2,                                           FOVAL
0804           BCE  TSTBP,AB&X2,O                                          FOVAL
0805 TSTBL     MCW  BHERE&X2,*&4                                           FOVAL
0806           C    *,BLOW&X2                                              FOVAL
0807           BCE  TSTBN,AB&X2,N                                          FOVAL
0808           BH   TSTBF                                                  FOVAL
0809           MCW  BHERE&X2,*&4                                           FOVAL
0810           C    *,BHIGH&X2                                             FOVAL
0811           BL   TSTBF                                                  FOVAL
0812 TSTBP     BCE  IO&X2,BC&X2,                                           FOVAL
0813           BCE  IO&X2,BC&X2,O                                          FOVAL
0814 TSTCL     MCW  CHERE&X2,*&4                                           FOVAL
0815           C    *,CLOW&X2                                              FOVAL
0816           BCE  TSTCN,BC&X2,N                                          FOVAL
0817           BH   FAIL                                                   FOVAL
0818           MCW  CHERE&X2,*&4                                           FOVAL
0819           C    *,CHIGH&X2                                             FOVAL
0820           BL   FAIL                                                   FOVAL
0821           B    IO&X2                                                  FOVAL
0822 TSTAF     BCE  TSTBL,AB&X2,O                                          FOVAL
0823           BCE  FAIL,AB&X2,                                            FOVAL
0824           B    TSTBF                                                  FOVAL
0825 TSTBN     BH   TSTBP                                                  FOVAL
0826           MLC  BHERE&X2,*&4                                           FOVAL
0827           C    *,BHIGH&X2                                             FOVAL
0828           BL   TSTBP                                                  FOVAL
0829 TSTBF     B    TSTCL,BC&X2,O                                          FOVAL
0830 FAIL      BWZ  SELX,STATUS&X2,2                                       FOVAL
0831           BCE  SELX,1,,            Q. END OF CARDS                    FOVAL
0832           MCW  AHERE&X2,*&4                                           FOVAL
0833           C    *,AHIGH&X2                                             FOVAL
0834           BL   *&5                                                    FOVAL
0835           B    SELX                                                   FOVAL
0836           R                                                           FOVAL
0837           MCW  16,AHIGH&X2                                            FOVAL
0838           MCW                                                         FOVAL
0839           B    OUTSEL&7                                               FOVAL
0840 TSTCN     BH   IO&X2                                                  FOVAL
0841           MLC  CHERE&X2,*&4                                           FOVAL
0842           C    *,CHIGH&X2                                             FOVAL
0843           BL   IO&X2                                                  FOVAL
0844           B    FAIL                                                   FOVAL
0845 *                                                                     FOVAL
0846 *GENERALIZED WRITE AND TAPERR MUST BE IN CORE FOR PROCESSING          FOVAL
0847 * AND FOR CLOSE                                                       FOVAL
0848 *GENERALIZED WRITE OUTPUT BLOCK                                       FOVAL
0849 WTAPE     SBR  X1                                                     FOVAL
0850 WTAPEL    MCW  3&X1,*&4                 RESET ROUTINE TO FILL         FOVAL
0851           SBR  *,13&X1                   FIRST RECORD OF NEXT BLOCK   FOVAL
0852           MCW  8&X1,*&4                 DRIVE                         FOVAL
0853           WT   2,14&X1                                                FOVAL
0854           BER  TAPERR                                                 FOVAL
0855           A    *-6,13&X1           COUNT TAPE BLOCK                   FOVAL
0856 QEOT      BEF  *&5                 Q. EOT                             FOVAL
0857           B    PASS                                                   FOVAL
0858           MN   8&X1,*&4                                               FOVAL
0859           WTM  2                        TM                            FOVAL
0863 MVEBKC    MLC  13&X1,WTCNT2       MOVE BLOCKCOUNT TO LABEL            FOVAL
0866           MLC  WTTRL&25,13&X1     CLEAR BLOCKCOUNT FOR NEXT REEL      FOVAL
0867           MN   8&X1,*&4                                               FOVAL
0868           WT   2,WTTRL-4           WRITE TRAILER LABEL                FOVAL
0869           MN   8&X1,*&4                                               FOVAL
0870           WTM  2                   TM AFTER TRAILER                   FOVAL
0871           MN   8&X1,*&4                                               FOVAL
0872           RWU  2                                                      FOVAL
0873 WTEX      B    PASS                                                   FOVAL
0874 *                                                                     FOVAL
0875 WTTRL     DCW  @1EOR @                                                FOVAL
0876 WTCNT     DCW  #5                                                     FOVAL
0877           DCW  #52                                                    FOVAL
0878           DCW  #4                                                     FOVAL
0879 WTCNT2    DCW  @0     @                                               FOVAL
0880 WTE80     DCW  #9                  IF 80 CHAR LABEL, GM IN LAST POS   FOVAL
0881           DCW  #39                                                    FOVAL
0882           DCW  @!@                 GMARK                              FOVAL
0883 *                                                                     FOVAL
0884 ABIT      DCW  #1                                                     FOVAL
0885 PRC1      DCW  1                                                      FOVAL
0886 REELS     DCW  00                                                     FOVAL
0887           EX   INITP                                                  FOVAL
0888 *******************************************************************   FOVAL
0889 *     CARD INPUT, WHEN USED, HERE                                     FOVAL
0890 *******************************************************************   FOVAL
0891           JOB  CLOSE FILES, PRINT I/O COUNTS                          FOVAL
0892           ORG  ORGPRO                                                 FOVAL
0893 ENDPRG    SW   QEOT&4              MODIFY WT TO CLOSE FILE            FOVAL
0894           MLC  @F@,WTTRL-1         CHANGE EOR TO EOF                  FOVAL
0895           BSS  *&8,F                                                  FOVAL
0896           MCW  CR,WTEX-1                                              FOVAL
0897           SBR  WTEX&3,QLAST                                           FOVAL
0898           BWZ  PFT,SWW,1           Q. PRINTED OUTPUT                  FOVAL
0899           B    FINDON&2                                               FOVAL
0900 PFT       SBR  SWTOT&3,*&5         SWITCH TO FINAL TOTAL              FOVAL
0901           B    WI2                                                    FOVAL
0902           MLC  FINCNT,COUTT                                           FOVAL
0903           MCW  WI2&6,*&7                                              FOVAL
0904           NOP  *,*                                                    FOVAL
0905           W                                                           FOVAL
0906 FINDON    CC   1                                                      FOVAL
0907           CS   332                                                    FOVAL
0908           CS                                                          FOVAL
0909           MCW  CINPUT,250          INPUT COUNT                        FOVAL
0910           MCS  RECNT,258                                              FOVAL
0911           BCE  *&15,NOISEC,                                           FOVAL
0912           MLC  CNOISE,275                                             FOVAL
0913           MCS  NOISEC,282                                             FOVAL
09132          BCE  *&15,WLRC,                                             FOVAL
09134          MLC  CWLR,295                                               FOVAL
09136          MCS  WLRC,302                                               FOVAL
0914           CC   T                                                      FOVAL
0915           W                                                           FOVAL
0916           CS                                                          FOVAL
0917           CS                                                          FOVAL
0918           MCW  COUT,255                                               FOVAL
0919           CC   S                                                      FOVAL
0920           W                                                           FOVAL
0921           CS                                                          FOVAL
0922           CS                                                          FOVAL
0923 PCNT      MCW  NXTABC&X2,X2                                           FOVAL
0924           MCS  COUNT&X2,258                                           FOVAL
0925           BCE  ET,IO&X2,H          Q. TAPE FILE                       FOVAL
0926 QLAST     W                                                           FOVAL
0927           BWZ  PCNT,STATUS&X2,1    Q. LAST FILE                       FOVAL
0928           CC   1                                                      FOVAL
0929           BWZ  *&5,SWP,1                                              FOVAL
0930           B    *&7                                                    FOVAL
0931           CS   180                                                    FOVAL
0932           P                                                           FOVAL
0933           P                                                           FOVAL
0934           BLC  H2888              Q. ANOTHER PROGRAM IN READ          FOVAL
09340          BCE  *&5,1,,                                                FOVAL
09341          R    *-16                                                   FOVAL
09342          SW   1                                                      FOVAL
09343          B    1                                                      FOVAL
09344H2888     NOP  2888               END OF JOB HALT                     FOVAL
09345          H                                                           FOVAL
09346          B    H2888                                                  FOVAL
09347*                                                                     FOVAL
0935 ET        MCW  IO&6&X2,X3                                             FOVAL
0936 *                                                                     FOVAL
0937           SBR  X1,IO&7&X2          INIT FORWARD SEARCH FOR            FOVAL
0938 ET2       BWZ  ET3,0&X1,1           BCE WTAPE,XXX,GM                  FOVAL
0939 ET5       SBR  X1,1&X1              SBR WTAPE2&6                      FOVAL
0940           B    ET2                                                    FOVAL
0941 ET4       BCE  WTAPE               CONSTANTS FOR COMPARES             FOVAL
0942 ET6       SBR                                                         FOVAL
0943 ET3       C    3&X1,ET4&3          CAN BE EQUAL IF BCE WTAPE OR       FOVAL
0944           BU   ET5                  CONSTANT                          FOVAL
0945           C    ET6,8&X1             SO TEST FOR FOLLOWING SBR         FOVAL
0946           BU   ET5                                                    FOVAL
0947           SBR  X1,8&X1             X1 CALLING SEQ FOR WTAPE           FOVAL
0948 *                                                                     FOVAL
0949           MN   8&X1,250                                               FOVAL
0950           MCW  CTAPE,248                                              FOVAL
0951           SBR  WK3,13&X1          Q. IS THIS BLOCK EMPTY              FOVAL
09512          C    WK3,X3                                                 FOVAL
09514          BE   QEOT                                                   FOVAL
0952 FILL9     MCW  C9,1&X3             SCAN FORWARD TO GM,                FOVAL
09520          BCE  *&5,2&X3,!         Q. GM                               FOVAL
09521          B    *&9                 NO                                 FOVAL
09522          BWZ  WTAPEL,2&X3,1      Q. GM-WM                            FOVAL
0953           BCE  *&9,2&X3,\           FILL 9 PADDING                    FOVAL
0954           SBR  X3                                                     FOVAL
0955           B    FILL9                                                  FOVAL
0956           BCE  WTAPEL,3&X3,!       Q. PADDING COMPLETED               FOVAL
0957           SBR  X3                                                     FOVAL
0958           B    FILL9                                                  FOVAL
0959 CINPUT    DCW  @INPUT@                                                FOVAL
0960 CNOISE    DCW  @NOISE REC@                                            FOVAL
0961 COUT      DCW  @OUTPUT COUNTS@                                        FOVAL
0962 CR        DCW  @R@                                                    FOVAL
0963 CTAPE     DCW  @TAPE@                                                 FOVAL
09632CWLR      DCW  @WLR@                                                  FOVAL
0964 C9        DCW  @9@                                                    FOVAL
0965           END  ENDPRG                                                 FOVAL
################################################################################
########## PUNCH AUTOCODER TAPE 4, 1401 SOURCE
0101           JOB  PUNCH AUTOCODER WITH MACROS, VERSION 2                 PAUT2
0102           CTL  6611                                                   PAUT2
0103           DIOCS                                                       PAUT2
0104 DIOCSORG       336                                                    PAUT2
0105 IODEVICES      TAPE                                                   PAUT2
0106 READERROR      CLEAN,SCAN                                             PAUT2
0107 TAPEUSE        INPUT                                                  PAUT2
0108           DTF  IN                                                     PAUT2
0109 CHANDRIVE      4                                                      PAUT2
0110 EOFADDR        EOF4                                                   PAUT2
0111 FILETYPE       TAPE,INPUT                                             PAUT2
0112 IOAREA         INA                                                    PAUT2
0113 RECFORM        FIXED,UNBLOCKED                                        PAUT2
0114 SIZERECORD     86                                                     PAUT2
0115           SEQNC                                                       PAUT2
0116           INDEX                                                       PAUT2
0117 104       DCW  @0100@                                                 PAUT2
0118 INA       DA   1X86,G                                                 PAUT2
0119 LABEL          6,11                                                   PAUT2
0120 OP             16,20                                                  PAUT2
0121 OPR            72                                                     PAUT2
0122 TYPE           75,75                                                  PAUT2
0123 ID             76,80                                                  PAUT2
0124 CLEAR     DA   1X70                                                   PAUT2
0125 INSKIP    DA   1X2,G                                                  PAUT2
0126 *                                                                     PAUT2
0127 * IOCS MACROS                                                         PAUT2
0128           DCW  @*@                                                    PAUT2
0129           DCW  @GET  @                                                PAUT2
0130           DCW  @PUT  @                                                PAUT2
0131           DCW  @RELSE@                                                PAUT2
0132           DCW  @SPACE@                                                PAUT2
0133           DCW  @SKIP @                                                PAUT2
0134           DCW  @OPEN @                                                PAUT2
0135           DCW  @CLOSE@                                                PAUT2
0136           DCW  @FEORL@                                                PAUT2
0137           DCW  @RDLIN@                                                PAUT2
0138 IOCSM     DCW  @DCLOS@                                                PAUT2
0139 *                                                                     PAUT2
0140 START     OPEN IN                                                     PAUT2
0141           BLC  *&2                                                    PAUT2
0142           R                                                           PAUT2
0143 READ      GET  IN                                                     PAUT2
01435QTYPE     MLC  TYPE,105                                               PAUT2
0144           BCE  COMENT,LABEL-5,*    Q. TYPE                            PAUT2
0145           BCE  MACRO,TYPE,R                                           PAUT2
0146           BCE  MACRO,TYPE,S                                           PAUT2
0147           BCE  MACRO,TYPE,Z                                           PAUT2
0148           BCE  IOCSP,TYPE,W                                           PAUT2
0149           C    OP,@JOB  @                                             PAUT2
0150           BU   MOVE                                                   PAUT2
0151           MLC  ID,180              JOB, MOVE ID                       PAUT2
0152 MOVE      MLC  LABEL,111                                              PAUT2
0153 MOVE2     MLC  OPR,172                                                PAUT2
0154 GOP       B    PUNCH                                                  PAUT2
0155           B    READ                                                   PAUT2
0156 *                                                                     PAUT2
0157 COMENT    MLC  OPR,172             COMMENT                            PAUT2
0158           MLC                                                         PAUT2
0159           B    GOP                                                    PAUT2
0160 *                                                                     PAUT2
0161 IOCSP     MLC  OPR-1,172           IOCS PARAMETER                     PAUT2
0162           MLC                                                         PAUT2
0163           MLC  @*@                                                    PAUT2
0164           B    GOP                                                    PAUT2
0165 *                                                                     PAUT2
0166 MACRO     C    OP,@CHAIN@          MACRO                              PAUT2
0167           BU   MACROA                                                 PAUT2
0168           ZA   *-6,WK3                                                PAUT2
0169           BCE  MACRO1,OP&2,        Q. CHAIN X                         PAUT2
0170           BCE  MACRO2,OP&3,        Q. CHAIN XX                        PAUT2
0171           BCE  MACRO3,OP&4,        Q. CHAIN XXX                       PAUT2
0172           B    MACROA                                                 PAUT2
0173 MACRO1    MN   OP&1,WK3#3                                             PAUT2
0174           B    MACROB                                                 PAUT2
0175 MACRO2    MN   OP&2,WK3                                               PAUT2
0176           MN                                                          PAUT2
0177           B    MACROB                                                 PAUT2
0178 MACRO3    MN   OP&3,WK3                                               PAUT2
0179           MN                                                          PAUT2
0180           MN                                                          PAUT2
0181 MACROB    S    @1@,WK3                                                PAUT2
0182           BWZ  MOVE,WK3,K          DROP GENERATED CHAIN               PAUT2
0183           RT   4,INSKIP                                               PAUT2
0184           B    MACROB                                                 PAUT2
0185 *                                                                     PAUT2
0186 MACROA    SBR  X1,IOCSM                                               PAUT2
0187           C    OP,0&X1             Q. IOCS MACRO                      PAUT2
0188           SBR  X1                                                     PAUT2
0189           BE   MIOCS                                                  PAUT2
0190           BCE  *&5,0&X1,*                                             PAUT2
0191           B    MACROA&7                                               PAUT2
0192           BCE  MIOCS,TYPE,Z        Q. MACRO IN IOCS                   PAUT2
0193           BCE  MIOCS,TYPE,S                                           PAUT2
0194           BCE  MIOCS,1,B           Q. PUNCH ALL MACROS AS COMMENTS    PAUT2
0195           BCE  READ,1,A            Q. PUNCH GENERATED                 PAUT2
0196           MLC  OPR,172              NO                                PAUT2
0197           MLC  LABEL,111                                              PAUT2
01975          MLC  @ @,105                                                PAUT2
0198           B    PUNCH                                                  PAUT2
0199 READ2     GET  IN                                                     PAUT2
0200           BCE  READ2,TYPE,C                                           PAUT2
0201           B    QTYPE                                                  PAUT2
0202 *                                                                     PAUT2
0203 MIOCS     MLC  LABEL,112                                              PAUT2
0204           MLC  @*@                                                    PAUT2
0205           B    MOVE2                                                  PAUT2
0206 *                                                                     PAUT2
0207 PUNCH     SBR  PUNCHX&3            PUNCH CARD                         PAUT2
0208           A    *-6,104                                                PAUT2
0209           P                                                           PAUT2
0210           MLC  CLEAR&69,175                                           PAUT2
0211 PUNCHX    B    *                                                      PAUT2
0212 *                                                                     PAUT2
0213 EOF4      CLOSEIN                                                     PAUT2
0214           CS   180                                                    PAUT2
0215           P                                                           PAUT2
0216           P                                                           PAUT2
0217           H    *-3                                                    PAUT2
0218           END  START                                                  PAUT2
################################################################################
########## GENERALIZED UPDATE, 1401 OBJECT
,008015,022026,030037,044,049,053053N000000N00001026                   0001GENUP
L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002GENUP
,008015,022029,036040,047054,061068,072/061039              ,00100110400003GENUP
111NM080208LB2270681                   L020219,201202,203204,21121210400004GENUP
/040299H071238B040C080208B277/B212072C L038257,227234,238245,25004010400005GENUP
A258203C075203B212S/2802.              L025282,265272,277281,28204010400006GENUP
PROG DECK SEQUENC                      L017299,040040,040040,04004010400007GENUP
                                       N000000,040040,040040,040040B2000008GENUP
,015022<024056,029036,040047,0540611001,001008B001     ,001008B001     0009GENUP
,068072<063067/061039                                       ,00100110400010GENUP
!                                      L001081,087087,092097,10110810400011GENUP
                                       L001001,111121,126131,13612410400012GENUP
!1C007U06BT38/                         L014349,129134,139337,33834510400013GENUP
P001201F12//P001101,001004             L026375,357359,360361,36236910400014GENUP
,006A1K5089,0\6H7A10\5D1K37{8DM        L031406,380387,391398,40540610400015GENUP
H0940}5H0990A7B4487{5MB4411K5 B380     L034440,414421,429437,04004010400016GENUP
LT897{9H7920\5YU07791A462110D110687DM  L037477,448455,462469,47647710400017GENUP
S095U%U1RU%U2RB\821M%U1U59RB519K       L032509,482487,492496,49750510400018GENUP
U%U1BB557U%U2MB557                     L018527,515519,524040,04004010400019GENUP
M%U2U59WB984LBT38KB557A550T93M%U1U59R  L037564,536541,546550,55704010400020GENUP
H089B846KB550U70!BBBB                  L021585,569574,582583,58458510400021GENUP
BBBBBBB                                L007592,587588,589590,59159210400022GENUP
B605M%U1U59RB984LH099U58,IZIMU08617    L035627,597605,610617,62104010400023GENUP
V693IZI1BT38M099089H0890\1B6470\19     L034661,636640,647654,04004010400024GENUP
B6810\1\B701A674T99B5280{1!H099B6400{19L039700,670674,681689,69304010400025GENUP
N674C0{0711B674UB825TC0{0728B674UB825T L038738,705712,717722,72973410400026GENUP
C0{0745B674UB825TC0{0762B674UB825T     L034772,746751,756763,76804010400027GENUP
M005094D003795DMM0}00{0B814A1          L029801,780787,788789,79680110400028GENUP
B814001,B705MU09701B674P001201MU283002 L038839,810814,821825,83283910400029GENUP
//B796                                 L006845,841842,040040,04004010400030GENUP
U%U2MB\82U%U2MU%U2RU%U1UBT38701NZT99220L039884,851855,860865,87087810400031GENUP
F1MU352282/228ZT93220B928220 MU48234   L036920,887894,895899,90691410400032GENUP
2/234F1BT38AH089001<0\0B9630888        L031951,922926,928933,94094410400033GENUP
H0890\1B940B979002 ,001B001BI5A.       L032983,959963,971975,97998310400034GENUP
,001/I5DHI5HVI5E0011BI7F!U%U1R         L030I8{,I5EI5I,I6CI7A,I7EI7F10400035GENUP
L%U1001RBI7FLBP01                      L017I9G,I8II9D,040040,04004010400036GENUP
H\79H995C998\76CMD\80\81D\66\43        L031\14,988992,999\00,\01\0810400037GENUP
A\15\81C\81\80B\40/.B\76GU%U1BB\63\70R L038\52,\22\29,\34\35,\40\4510400038GENUP
B\63TU%U1EN\70\70*B\15LB\797           L029\81,\58\63,\71\76,\80\8110400039GENUP
H/69C120U58B/66SM%U1201RB984LBT38K     L034/15,\86\93,\98/06,/1104010400040GENUP
B/44321!B/36281!BT38,281B/48,321       L032/47,/24/32,/36/40,/4404010400041GENUP
M%U2201WB984LFS2//B/69                 L022/69,/56/61,/63/64,/65/6610400042GENUP
UNDEFINED ERROR                        L018/87,/85040,040040,04004010400043GENUP
TM INSTEAD OF TAPE LABEL/16            L027S14,S12040,040040,04004010400044GENUP
TAPE LABEL NOT 80 CHAR/36END OF JOB933 L038S52,S37S40,S50040,04004010400045GENUP
NOTE UNPROCESSED INPUT878              L025S77,S75040,040040,04004010400046GENUP
A WLR HAS BEEN READ640SHORT OUTPUT TAPEL039T16,S97T00,040040,04004010400047GENUP
546NO CONTROL CARD350H/87H099T41CIIG   L036T52,T20T35,T38T42,T4904010400048GENUP
H099C0{0/87BT49/MIIG260FA2/            L027T79,T57T64,T69T76,T78T7910400049GENUP
/.T81B773           CONTROLK           L028U07,T81T85,T90T94,U00U0710400050GENUP
NBSEQ ER OR UNMATCHEDRECORDS           L028U35,U09U10,U29040,04004010400051GENUP
NOISE RECORDS                          L023U58,U49040,040040,04004010400052GENUP
                                       /337080                         0053GENUP
################################################################################
########## PRINT SET-UP INSTRUCTIONS, 1401 SOURCE
0101           JOB  PRINT SET-UP INSTRUCTIONS              R. WEAVER       SETUP
0102           CTL  6611                                                   SETUP
0103 * THIS PROGRAM WILL LIST ALL CARDS FOLLOWING IT UNTIL THE NEXT PROG   SETUP
0104 START     SW   1                                                      SETUP
0105           CC   1                                                      SETUP
0106           R                                                           SETUP
0107           BCE  HALT,1,,                                               SETUP
0108           MLC  80,280                                                 SETUP
0109           W    START&6                                                SETUP
0110 HALT      CC   1                                                      SETUP
0112           H                                                           SETUP
0115 SORT7     SORT7*                                                      SETUP
0116           END  START                                                  SETUP
################################################################################
########## PRINT SET-UP INSTRUCTIONS, 1401 OBJECT
,008015,022026,030037,044,049,053053N000000N00001026                   0001SETUP
L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002SETUP
,008015,022029,036040,047054,061068,072/061039              ,00100110400003SETUP
,001F11B359001,M0802802339F1           L028360,337339,340348,35535910400004SETUP
.B395AB379001,1362BI5A002 ,001B001     L034394,362367,375379,38739110400005SETUP
.395.                                  L005399,399040,040040,04004010400006SETUP
,001/I5DHI5HVI5E0011BI7F!U%U1R         L030I8{,I5EI5I,I6CI7A,I7EI7F10400007SETUP
L%U1001RBI7FLBP01                      L017I9G,I8II9D,040040,04004010400008SETUP
                                       /333080                         0009SETUP
********************************************************************************
****                                                                        ****
****                                                                        ****
********************************************************************************
################################################################################
########## AUTOCODER MODIFICATIONS, 1401SOURCE
0101           JOB  DECODE ADDRESS IN AUTOCODER LISTING                    3744-
0102           CTL  6611                                                   3744-
0103           ORG  5000                                                   3744-
0104 CT        EQU  7                                                      3744-
0105           BCE  *&5,326,                                               3744-
0106           B    NOGM                                                   3744-
0107           BCE  *&5,303,!           Q. GROUP-MARK IN O. MODIFIER       3744-
0108           B    NOGM                                                   3744-
0109           MLC  @GMARK@,327                                            3744-
0110 NOGM      C    CT,@2@              Q. A ADDRESS                       3744-
0111           BL   HASA                                                   3744-
0112           B    EXIT                                                   3744-
0113 HASA      BCE  AODD,295,%          A ADD NOT TO BE CONVERTED          3744-
0114           MLC  297,DECODE                                             3744-
0115           B    CNVRT                                                  3744-
0116           MLC  RSLT,312                                               3744-
0117 AODD      C    CT,@6@              Q. B ADDRESS                       3744-
0118           BL   HASB                                                   3744-
0119           B    EXIT                                                   3744-
0120 HASB      MLC  301,DECODE                                             3744-
0121           B    CNVRT                                                  3744-
0122           MLC  RSLT,321                                               3744-
0123 EXIT      BCE  1637,293,           Q. BLANK OP, B BADOP               3744-
0124           B    1156                             B SETLIT              3744-
0125 *                                                                     3744-
0126 * DECODE 3 CHAR ADDR TO 5 CHAR AND INDEX REG                          3744-
0127 *     3 CHAR ADDR IN DECODE                                           3744-
0128 *     8 CHAR RESULT IN RSLT                                           3744-
0129 *                                                                     3744-
0130 CNVRT     SBR  CNVRTX&3            SOTRE EXIT                         3744-
0131           MLC  BK8#8,RSLT#8        SET RSLT TO BLANKS                 3744-
0132           BCE  CNVRTX,DECODE-1,#   Q. NO ADDRESS                      3744-
0133           BWZ  NOIX,DECODE-1,2     Q. ANY INDEX REG                   3744-
0134           MLC  @*X@,RSLT-1                                            3744-
0135           BWZ  HX1,DECODE-1,S      Q. X1                              3744-
0136           BWZ  HX2,DECODE-1,K      Q. X2                              3744-
0137           MLC  @3@,RSLT            SET X3                             3744-
0138           B    NOIX                                                   3744-
0139 HX1       MLC  @1@,RSLT            SET X1                             3744-
0140           B    NOIX                                                   3744-
0141 HX2       MLC  @2@,RSLT            SET X2                             3744-
0142 NOIX      MN   DECODE#3,RSLT-3     MOVE HUNDREDS DIGITS               3744-
0143           MN                                                          3744-
0144           MN                                                          3744-
0145           MLC  @  @,THOU#2                                            3744-
0146           BWZ  T1,DECODE-2,S       TEST FOR 1-2-3 THOUSAND            3744-
0147           BWZ  T2,DECODE-2,K                                          3744-
0148           BWZ  T3,DECODE-2,B                                          3744-
0149           B    TRY12                                                  3744-
0150 T1        MLC  @1@,THOU                                               3744-
0151           B    TRY12                                                  3744-
0152 T2        MLC  @2@,THOU                                               3744-
0153           B    TRY12                                                  3744-
0154 T3        MLC  @3@,THOU                                               3744-
0155 TRY12     BWZ  T4,DECODE,S         Q. 4-8-12 THOUSAND                 3744-
0156           BWZ  T8,DECODE,K                                            3744-
0157           BWZ  T12,DECODE,B                                           3744-
0158           B    NO12                                                   3744-
0159 T4        A    @4@,THOU                                               3744-
0160           B    NO12                                                   3744-
0161 T8        A    @8@,THOU                                               3744-
0162           B    NO12                                                   3744-
0163 T12       A    @12@,THOU                                              3744-
0164 NO12      MCS  THOU,TMP3#3                                            3744-
0165           MLC  TMP3,RSLT-6                                            3744-
0166 CNVRTX    B    *                                                      3744-
0167           END                                                         3744-
  010          JOB  CONTINUOUS RUNNING                                     CNTR-
  020          CTL  6611                                                   CNTR-
  022* WITH THIS MODIFICATION, AUTOCODER WILL CONTINUE TO ASSEMBLE         CNTR-
  024* ALL DECKS STACKED IN READER.  THE EXTRA OUTPUT OPTIONS WILL BE      CNTR-
  026* AVAILABLE ONLY FOR THE LAST DECK.                                   CNTR-
  030          ORG  335                                                    CNTR-
  040          B    998                                                    CNTR-
  042          ORG  530                                                    CNTR-
  044          CW   3998,ENDF3                                             CNTR-
  050          ORG  998                                                    CNTR-
  060          CS   332                                                    CNTR-
  070          CS                                                          CNTR-
  080          BLC  340                                                    CNTR-
  090          CS   899                                                    CNTR-
  100          CHAIN8                                                      CNTR-
  110RWD1      RWD  1                                                      CNTR-
  120          RTW  1,1                                                    CNTR-
  130          BER  RWD1                                                   CNTR-
  140          B    1                                                      CNTR-
  150ENDF3     DCW  @!@                                                    CNTR-
  180          END  0                                                      CNTR-
0101           JOB  SCAN LABEL FOR INVALID CHAR. / < \ * $                 3741-
0102           CTL  6611                                                   3741-
0103           ORG  997                                                    3741-
0104           BIN  SCAN,                                                  3741-
0105           ORG  1273                                                   3741-
0106           DCW  #1                  CLEAR OLD GM                       3741-
0107           ORG  1500                                                   3741-
0108 SCAN      BCE  NOLAB,111,.                                            3741-
0109           CHAIN5                                                      3741-
0110           BCE  NOLAB,111,/                                            3741-
0111           CHAIN5                                                      3741-
0112           BCE  NOLAB,111,<                                            3741-
0113           CHAIN4                   IOCS LABELS                        3741-
0114           BCE  NOLAB,111,\                                            3741-
0115           CHAIN5                                                      3741-
0116           BCE  NOLAB,111,$                                            3741-
0117           CHAIN5                                                      3741-
0118           BCE  NOLAB,111,*                                            3741-
0119           CHAIN5                                                      3741-
0120           C    118,2979                                               3741-
0121           B    1004                                                   3741-
0122 NOLAB     CS   332                                                    3741-
0123           CS                                                          3741-
0124           MLC  3033,231            MOVE ERROR MESSAGE                 3741-
0125           MCS  184,236             MOVE ALTNO                         3741-
0126           MLC  @<LABEL@,111        REPLACE LABEL TO STOP DEFINITION   3741-
0127           W                                                           3741-
0128           CS   1004,269                                               3741-
0129           LTORG*                                                      3741-
0130           DCW  @!@                                                    3741-
0131           END                                                         3741-
################################################################################
########## AUTOCODER, 1401 OBJECT AND MACROS
,008015,022026,030037,044,049,053053N000000N00001026                   0001CNTR-
L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0{0002CNTR-
,008015,022029,036040,047054,061068,072/061039              ,00100110400003CNTR-
00000000000000000002SKB                L023109,092097,106040,0400401040000437113
U%U1RF1M\832322F1/332/                 L022354,338340,347348,3503541040000537113
M075\871C012\94B792/V7260802B8770789   L036390,362363,370375,3830401040000637113
,021{025\99<021B418\99&B429{\98\99B406 L038428,395402,406414,4184251040000737113
Y106\99S091C\99/04B538SB527US/09\99    L035463,436440,447452,4570401040000837113
M/14/19S\99/19B483ZA/21/16B483ZY/15/19 L038501,471478,483490,4950401040000937113
D/16512Y109/17M/19089B538M/26/19B4711  L037538,509516,523527,5345381040001037113
M/29099M/32094V7260802B675068BB596040N L038576,546553,561569,0400401040001137113
C046/35B596SY107045M/38071M/39C094/42  L037613,584589,596603,6070401040001237113
B040SA/43099A/43094C0}1/46B652SY1070}0 L038651,619626,633640,6450401040001337113
C0{1/46B607SY1070{0B607L/47S9YL%U1V00W L038689,659664,671675,6820401040001437113
B973LM/50705/000H705C705/53B702/B362   L036725,695702,706710,7177221040001537113
H759A/54\87C075\87M075\87B760/B000     L034759,730737,744751,7560401040001637113
M080280MMMMMM                          L013772,767768,769770,7717721040001737113
M/682982.000176B941N917C020/73B917/    L035807,780781,788792,7968031040001837113
V7260802M/39792L/47081M%U1001WB973L    L035842,816823,830838,0400401040001937113
C011/79B868S1V7260802B830U%U1MB362     L034876,850855,856864,8688731040002037113
U%U1MU%U1R</47/332/MS252462            L027903,882887,891895,8969031040002137113
F1.000142B906/332/MS522272             L026929,906913,917921,9229291040002237113
.000177B9301V7260802B9620789B941.000152L039968,937941,942950,9589621040002337113
B962H\36H099YS53099MII4\27U%U1BU%U1E   L036\04,973977,981988,995\001040002437113
B\37S541A/54S55M%U1000WB995LB000SS55   L036\40,\13\20,\28\33,\370401040002537113
.000161B\20                            L011\51,\48040,040040,0400401040002637113
GENERATING 1401 AUTOCODER SYSTEM       L036\87,\84040,040040,0400401040002737113
CONTROL     015000150016000     96     L034/21,\95/00,/05/10,/15/201040002837113
01500045042001538B063                  L021/42,/27/30,/33/36,/39/401040002937113
G040!S9ZU99ASEQUENCE ERROR             L026/68,/44/47,/48/51,/54/551040003037113
HEADR999999                            L011/79,/74040,040040,0400401040003137113
1401 AUTOCODER SYSTEM GENERATED ON TAPEL039S18,040040,040040,0400401040003237113
 UNIT 1SYSTEM CONTROL CARD MISSINGI    L037S55<S19S19,S26S53,S540401040003337113
                                       N000000,040040,040040,040040B333003437113
     CONTROL        001    PASS 1    SELECT PROGRAM                    003537123
B333.005599                            L011011,005009,040040,0400401040003637123
000000000000000                        L015101,092097,040040,0400401040003737123
B407L,835/I99H345C345787B342/,835      L033365,338342,346350,3573621040003837123
M%U1814RC833802B362/,835M%U1834RB418K  L037402,374381,386390,3980401040003937123
B362.000199B407B521F,835L835I98M805658 L038440,407414,418423,4274341040004037123
B4768074,I98L%U1W50RB637A806807B441    L035475,449453,461465,4720401040004137123
L%U1W50RB637B676L<835/W49H500C500011   L036511,484488,493497,5015051040004237123
B497/BZ00M810658<835B558BL%U1}00RB637  L037548,517521,528532,5375451040004337123
B676LB}00L%U1}00RB637,835L835I98       L032580,554558,566570,5740401040004437123
L%U1}00RB637L%U1}00RB637,I98L%U1}00R   L036616,589593,601605,6090401040004537123
B637B676L<835I98B}00H675H089Y811089    L035651,621626,633637,6416451040004637123
BIY8000!BBBBBB                         L014665,660661,662663,6646651040004737123
BBBBBBB000                             L010675,667668,669670,6716721040004837123
H089H726Y811089MIZ0717U%U1BM811812     L034709,680684,691698,7030401040004937123
L%U1000RB727LB000U%U1BS806812V710812B  L037746,718723,727732,7390401040005037123
.000191M717768L%U1000RB698E.000111B723 L038784,754761,769774,7810401040005137123
U99999999    HEADRW63A }13I            L027811,788803,806807,8088111040005237123
                       !               L024835,813835,040040,0400401040005337123
                                       N000000,040040,040040,040040B000005437123
     EDITT     HEADR                                                       CTSTP
     <00       MLCWA<02,<03                                                    -
               MCE  <01,<03                                                    -
               MLCWA<05,<06                                          <0D       -
               MCE  <04,<06                                          <0E       -
               MLCWA<08,<09                                          <0G       -
               MCE  <07,<09                                          <0H       -
               MLCWA<11,<12                                          <1{       -
               MCE  <10,<12                                          <1A       -
               MLCWA<14,<15                                          <1C       -
               MCE  <13,<15                                          <1D       -
               MLCWA<17,<18                                          <1F       -
               MCE  <16,<18                                          <1G       -
               H    <99                                              <1I   CTSTP
     ICODE     HEADR                                                           -
     <00       <01  <0B                                              <0T       -
               <01  <02,<0C                                                    -
               <01  <0D                                              <0V       -
               <01  <04,<0E                                                    -
               <01  <0F                                              <0X       -
               <01  <06,<0G                                                    -
               <01  <0H                                              <0Z       -
               <01  <08,<0I                                                    -
               <01  <1{                                              <1/       -
               <01  <10,<1A                                                    -
               <01  <1B                                              <1T       -
               <01  <12,<1C                                                    -
               <01  <1D                                              <1V       -
               <01  <14,<1E                                                    -
               <01  <1F                                              <1X       -
               <01  <16,<1G                                                    -
               <01  <1H                                              <1Z       -
               <01  <18,<1I                                                    -
               H    <99                                              <2{       -
     INDEX     HEADR                                                           -
     87        DA   1X13                                                       -
     X1             3                                                          -
     X2             6,8                                                        -
     X3             11,13                                                      -
     MADXX     HEADR     MODIFY ADDRESS                                005537123
     <00       SW   <0B-2                                              005637123
               A    <01,<0B                                            005737123
               CW   <0B-2                                              005837123
               SW   <0A-2              <0S                             005937123
               A    <0A                <0S                             006037123
               CW   <0A-2              <0S                             006137123
               A                       <0/                             006237123
     OVLAY     HEADR     RETURN TO CARD LOADER                         006337123
     <00       CS   080                                                006437123
               SW   024,056                                            006537123
               SW   063,067                                            006637123
               R    056                                                006737123
               DCW  #1                                                 C0053712L
     SEQNC     HEADR                                                       SEQN-
     <0J       ORG  201                                                    SEQN-
     <0K       R                        READ FIRST COMPATIBILITY CARD      SEQN-
               R                             SECOND                            -
               R                        READ FIRST PROGRAM LOAD CARD           -
               MLC  80,<0K&7            STORE PROGRAM NAME                 SEQN-
               MLCWA                    STORE FIRST SEQUENCE NUMBER        SEQN-
     <0L       BCE  *&8,68,1            Q. LOAD CARD                       SEQN-
               CS   40,299               NO, CLEAR THIS ROUTINE            SEQN-
               SBR  71,*&5               YES, SET RETURN FROM CARD         SEQN-
               B    40                  LOAD CARD                          SEQN-
               C    80,<0K&7            Q. SAME PROGRAM NAME               SEQN-
               BU   <0M                  NO                                SEQN-
               BCE  <0L,72,C            Q. CORRECTION CARD                 SEQN-
               A    *-6,<0K&2            NO, INCREMENT SEQUENCE NUMBER     SEQN-
               C    75,<0K&2            Q. NEXT SEQUENCE NUMBER            SEQN-
               BE   <0L                  YES                               SEQN-
     <0M       CS   *                    NO, KILL RUN                      SEQN-
               W                                                           SEQN-
               H                                                           SEQN-
               DCW  @PROG DECK SEQUENC@                                    SEQN-
     <0N       BWZ  *&8,44,1           Q. AUTOTEST                             -
               CS   <0K,332             NO                                     -
               CS   299                 YES                                    -
               CW   *&5                                                        -
               R    56                                                         -
               DCW  332                                                        -
               ORG  *-7                                                        -
               CS                                                              -
               XFR  <0N                                                        -
               ORG  <0J                                                    SEQN-
     SORT7     HEADR                                                           -
     <00       BLC  <0M                                              <0A       -
               BCE  *&5,1,,                                          <0A       -
               R    *-16                                             <0A       -
               BCE  <0K,2,                                           <0A       -
               SW   1                                                <0A       -
               B    1                                                <0A       -
     <0M       NOP  2888                                             <0A       -
               H                                                     <0A       -
               B    <0M                                              <0A       -
               B    <0K                                              <0/       -
               H                                                               -
     <0J       ORG  15951                                                      -
     <0K       SW   1                                                          -
               CS   *-4                                                        -
               SBR  *-4                                                        -
               BWZ  <0K&4,1,1                                                  -
               B    *&2                                                        -
               DCW  @!@                                                        -
     <0L       RWD  1                                                          -
               RTW  1,1                                                        -
               BER  <0L                                                        -
               B    2701                                                       -
               ORG  <0J                                                        -
     TOPEN     HEADR                                                           -
     TOPEN     SBR  X3                                                         -
     <0J       SBR  X1,<0K             INIT TO SIXTH TAPE                      -
               BWZ  <0L,0&X1,2         Q. AVAILABLE                            -
     <0M       SBR  X1,15999&X1         NO, DECREMENT TO NEXT TAPE             -
               BWZ  *&5,1&X1,1         Q. LAST TAPE                            -
               B    <0J&7               NO, TRY NEXT                           -
               H    *-3                 YES, ERROR                             -
     <0L       BWZ  <0N,3&X3,1         Q. OUTPUT TAPE                          -
               MN   0&X1,*&4                                                   -
     <0O       RWD  1                  REWIND TAPE                             -
               MN   0&X1,*&4                                                   -
               RT   1,IOCSLB           RT FOR LABEL TEST                       -
               BER  <0O                                                        -
               C    IOCSLB&29,9&X3     Q. RIGHT TAPE                           -
               BU   <0M                 NO                                     -
               SBR  X3,10&X3                                                   -
     <0N       MLC  2&X3,X2            MOVE DTF LOC TO X2                      -
               MN   0&X1,15997&X2      SET TAPE DRIVE IN DTF TABLE             -
               MLC  5&X3,*&7                                                   -
               MN   0&X1,*             SET TAPE DRIVE IN 1K00X&9               -
               MLC  @N@,0&X1           SET DRIVE NOT AVAILABLE                 -
               SBR  X3,6&X3            INCREMENT TO NEXT FILE                  -
               SBR  <0Q&3,1&X3                                                 -
               BCE  *&5,0&X3,*         Q. END CALLING SEQUENCE                 -
               B    <0J                                                        -
               S    X1&1                                                       -
               S    X2&1                                                       -
               S    X3&1                                                       -
     <0Q       B    *                                                          -
     <0K       DCW  <0A                                                        -
     <0K       DCW  @N2345N@                                         <0/       -
     TOVLY     HEADR     RETURN TO TAPE LOADER                         006837123
     <0K       EQU  *&1                                                006937123
     <00       CS   080                                                007037123
               RTW  1,1                                                007137123
               BER  <0J                                                007237123
               B    007                                                007337123
     <0J       BSP  1                                                  007437123
               H    0,0                                                007537123
               B    <0K                                                007637123
     WCSCS     HEADR                                                       WCS -
     <00       CC   <0A                                                    WCS -
               MLC  <0C,<0D                                                    -
               MLC  <0C,260                                          <0U       -
               W                                                           WCS -
               CS                                                    <0U   WCS -
               CS                                                    <0U   WCS -
               CS   <0B,<0D                                                WCS -
               CS   <0D                                              <0S   WCS -
               B    <0B                                              <0U   WCS -
     999999    HEADR     END OF LIBRARY                                007737123
     CONTROL        2000   PASS 1    RETRIEVE UPDATE PROGRAM           007837133
BJ26G<K12L%U1001RB}09013!BBB           L028}27,}05}09,}17}25,}26}271040007937133
BBBBBBB                                L007}34,}29}30,}31}32,}33}341040008037133
BBB}46LB333U%U1BMK06K07L%U1001R        L031}65,}36}37,}42}46,}51}581040008137133
B}75LB333U%U1BSK08K07V}58K07B.000191   L036J01,}71}75,}80}87,}950401040008237133
L%U1001RB}46E.000111B333,K12LK12Z98    L035J36,J10J15,J22J26,J300401040008337133
L%U1333RBJ54KBJ26U%U1BU%U1B<K12Z98,P25 L038J74,J45J50,J54J59,J64J711040008437133
MK11}64MK11J08L%U1333RB}46LB333I       L033K07,J82J89,J97K02,K06K071040008537133
A333!                                  L005K12,K09K12,040040,0400401040008637133
BK12                                   L004-08,040040,040040,0400401040C0383713L
,K41LK41Z98                            L011J36,J30040,040040,0400401040C0393713L
<K41Z98                                L007J70,040040,040040,0400401040C0403713L
<K41//38//MK40963P900836B}09           L028K39,K16K20,K21K22,K29K361040C0413713L
\!                                     L002K41,K41040,040040,0400401040C0423713L
                                       N000000,040040,040040,040040B000008737133
     CONTROL        001    PASS 1    COPY SYSTEM                       008837143
000000000000000                        L015101,092097,040040,0400401040008937143
,/39U%U1RU%U6RF1/332/B\21              L025357,337342,347349,3533541040009037143
B525CL%U1V00RH089D0\0,N0000B759        L031388,363371,375379,3803851040009137143
B798LL%U6V00WB928LB\21L%U1V00RCV19\70  L037425,394402,407411,4190401040009237143
B411/L%U1V00RB448KB411B498\723L%U1V00R L038463,431439,444448,4560401040009337143
N0000000000000B759B798LA\71\72B448/199 L038501,478482,487494,4980401040009437143
/080,006016,021BN32BV00L%U1V00RH089    L035536,506513,517521,5255331040009537143
D0\0,B601KB759B798LN580,\79            L027563,541542,547551,5565601040009637143
CV10\78B580/<\79L%U6V00WB928LB\21B525  L037600,571576,580588,5935971040009737143
U%U6MV727\801B\21L/39I98V637/261B669   L036636,606614,618625,6330401040009837143
U%U6EM%U6V00WB669\812A\71\82B637M/25243L039675,642650,658665,6690401040009937143
2F1V692/261U%U6RU%U1R.000122B\21       L032707,677679,687692,6977041040010037143
S\82M/27556,\80B525V750\791<\80M/28556 L038745,712719,723727,7357391040010137143
B593U%U6BB593H797H094Y/29094BIP4V13!   L036781,750755,759763,7677741040010237143
BBBBBBB                                L007788,783784,785786,7877881040010337143
BBBBBB000H855                          L013801,790791,792793,7947981040010437143
H099Y/29099MIG6846D842830U%U1BM/29/30  L037838,806813,820827,8320401040010537143
M%U1000RB856LB000D842866U%U1BS\71/30   L036874,847852,856863,8680401040010637143
V839/30BD842896.000190M846911M%U1000R  L037911,883890,897904,0400401040010737143
B827E.000111B852H998H099Y/29099MII4989 L038949,917924,928932,9369431040010837143
D985960U%U6BU%U1EB999/311A\71/32       L032981,957962,967975,0400401040010937143
M%U6000WB957LB000S/32D985\16.000160B982L039\20,990995,999\03,\10\171040011037143
H\55M/35\35/I99H\35C\35/38B\32/B000    L035\55,\25\32,\36\40,\47\521040011137143
999999    HEADRA 999999                L027\82,\71\72,\73\79,\80\811040011237143
1401 AUTOCODER SYSTEM COPIED ON TAPE UNL039/21,040040,040040,0400401040011337143
IT 6 NBI                               L008/29</22/22,/26/27,/28/291040011437143
   I9ZU99!                             L010/39,/31/33,/36/39,0400401040011537143
N0000B759D0\0,                         L014388,380384,388040,0400401040C1013714L
N00000000B759N0000                     L018481,473477,040040,0400401040C1023714L
B601KB759D0\0,                         L014550,542546,550040,0400401040C1033714L
BIP9V13!                               L008781,040040,040040,0400401040C1043714L
                                       N000000,040040,040040,040040B000011637143
     CONTROL        1500   PASS 1    UPDATE LIBRARY                    011737153
U%U1R<{91{98M{30780L/39181M%U1101R     L034V33,V05V12,V19V26,0400401040011837153
N0000000000000B759/180BM17BL24VV84{731 L038V71,V48V52,V56V60,V640401040011937153
VV84{791BV60BN94C011{36BK40SC008{39    L035W06,V80V84,V88V95,W000401040012037153
BX30SBP75UM008{39SA67VW56{911BM17      L033W39,W12W17,W24W28,W360401040012137153
VW56{911BM95BW28VW89{981C108{39BX30S   L036W75,W48W52,W56W64,W710401040012237153
<{91BW89TBW48U%U1B/180<{91VQ01{791     L034X09,W80W85,W89W94,W98X021040012337153
C022{41BQ01/BO37BY06C022{41BY46/M{46218L039X48,X17X22,X26X30,X37X421040012437153
BO37SA67BO72BM17VX77{911BX57U%U1B      L033X81,X53X57,X61X65,X73X771040012537153
/180<{91VV60{791BN94BO37SA67BL24       L032Y13,X86X90,X98Y02,Y06Y101040012637153
VV84{731VV84{791BL07BO72BM95BY10S101   L036Y49,Y22Y30,Y34Y38,Y42Y461040012737153
VY810212C024{41BX42SA{47099,023,{48    L035Y84,Y58Y65,Y70Y77,Y810401040012837153
BZ160B1,C0B2{41BZ16SA{49099BY85{0B0{53 L038Z22,Y93Z00,Z05Z12,Z160401040012937153
A{54{53BZ420B1,B}08,0B2H094A{49099     L034Z56,Z30Z38,Z42Z46,Z500401040013037153
C0B2{41BZ50/{0B0{58A{54{58C{53{58BQ59T L038Z94,Z64Z69,Z76Z83,Z900401040013137153
BK20S<{48<0}1<023V}27{481M{63218BO37   L036}30,}00}04,}08}12,}20}271040013237153
C{53A67B}70SA{49A67BM95BM17VQ84{911B}31L039}69,}38}43,}50}54,}58}661040013337153
VJ46{481BO72BM17C{58A67BJ10UVQ84{911   L036J05,}78}82,}86}93,}980401040013437153
B}78U%U1B/180S{49A67VY10{791BN94BO37   L036J41,J10J15,J19J26,J34J381040013537153
BJ77VJ73{731BO72S{49A67/180BJ26BM95    L035J76,J46J54,J58J65,J69J731040013637153
BL24VV84{731VV84{791BL07<{64BO72S{49A67L039K15,J81J89,J97K01,K05K091040013737153
BJ73V}00{731,{48B}04BM95BM17BM95       L032K47,K20K28,K32K36,K40K441040013837153
VK60{981BK40U%U6MM{67780<\79\80</26/332L039K86,K56K60,K65K72,K79K831040013937153
/F1M%U1101RB593KBK90HL23M080180        L031L17,K88K90,K98L03,L07L111040014037153
MMB000HM08VL40{851BK401                L023L40,L19L20,L24L28,L36L401040014137153
<{73{79C020{72BL68/,{73BM00C020{78BL88/L039L79,L48L55,L60L64,L68L751040014237153
,{79BM00C020{84BK36SBM09AB000<{85      L033M12,L84L88,L95M00,M05M091040014337153
BM05HM94M%U1101R,181N000000000B759B798LL039M51,M17M21,M29M33,M43M471040014437153
<{91{98C120{90BM91/,{91C111{97BM91/,{98L039M90,M59M66,M71M75,M82M871040014537153
B000HN31C180{27BN28SM%U6101WB928L/180  L037N27,M95M99,N06N11,N19N241040014637153
B000HN93/332/MA30251MA34275A{49A37     L034N61,N32N36,N40N41,N48N551040014737153
ZA372792FK/279MA632272FK               L024N85,N69N70,N72N76,N83N841040014837153
/228B000HO36FK/332/M072271             L026O11,N90N94,N98O00,O04O051040014937153
M022221M020218M011212B000HO572FJ       L032O43,O19O26,O33O37,O41O421040015037153
/332/BO58@B000HO71F1BN32               L024O67,O48O49,O54O58,O62O641040015137153
B000HP74,220214,207BP32106*M172271     L034P01,O72O76,O83O87,O950401040015237153
M120218M111212VP45{641,{64BP53M172273M L038P39,P09P16,P24P28,P32P391040015337153
MBP16DA67204ZA{49A672/332              L025P64,P41P45,P52P53,P60P611040015437153
/BO58@B000/332/MB072402                L023P87,P66P71,P75P79,P80P871040015537153
F1.000133BP90VQ210212C024{41BX22S      L033Q20,P90P97,Q01Q09,Q160401040015637153
MB252992FL/299BL24VV84{731VV84{791     L034Q54,Q28Q29,Q31Q35,Q39Q471040015737153
BQ35MB382992FL/299<0}1023BQ35          L029Q83,Q59Q66,Q67Q69,Q73Q801040015837153
MB622992FL/299VR10{981BQ35MB80299      L033R16,Q91Q92,Q94Q98,R06R101040015937153
2FL/299MC022222U%U1B/180               L024R40,R18R20,R24R31,R32R371040016037153
BL24BR41                               L008R48,R45040,040040,0400401040016137153
                                       L039R87,040040,040040,0400401040016237153
                                       L011R98<R88R88,040040,0400401040016337153
                             114999999 L038{36<R99R99,{28{31,0400401040016437153
     DELETB A                          L017{53,{40{42,{47{48,{49{501040016537153
0    DELET V13INSER                    L020{73,{55{59,{64{65,{68{731040016637153
DELET REPET HEADR 999999               L024{97,{79{80,{85{86,{91{921040016737153
 1401 AUTOCODER - LIBRARY CHANGESPAGE  L037A34,{99A31,040040,0400401040016837153
   SEQ  LABEL  OP    OPERANDS          L033A67,A38A64,040040,0400401040016937153
INPUT CARDS OUT OF SEQUENCE - START OVEL039B06,040040,040040,0400401040017037153
RSUBROUTINE UNKNOWNBAD STATEMENT       L032B38<B07B07,B08B26,0400401040017137153
STATEMENT DOES NOT EXIST               L024B62,040040,040040,0400401040017237153
SUBROUTINE UNKNOWN                     L018B80,040040,040040,0400401040017337153
END OF LIBRARY REACHED                 L022C02,040040,040040,0400401040017437153
!                                      L001I98,040040,040040,0400401040017537153
BC03S                                  L005W11,040040,040040,0400401040C0883715L
BC15N                                  L005W75,W75040,040040,0400401040C0893715L
VX30C361BW12BC28S<C36BW76,C36BX30      L034C36,C11C15,C20C24,C28C321040C0903715L
N00000000B759N0000                     L018V51,V43V47,040040,0400401040C1053715L
N0000B759N0000                         L014M46,M38M42,040040,0400401040C1063715L
                                       N000000,040040,040040,040040B000017637153
     CONTROL        2000   PASS 1    OUTPUT LIBRARY                    017737163
,{44L{44181//080,006016/332/           L028}27,}04}11,}12}16,}23}271040017837163
F1U%U1RM%U1101R/180,106116,121BL28E    L035}62,}30}35,}43}47,}54}581040017937163
<R32F1BN591MQ90O69C020Q95BJ19S         L030}92,}67}69,}73}74,}81}881040018037163
C020R00BN06/AR01O69DR01R02C008R05BK96S L038J30,J00J05,J12J19,J260401040018137163
M020218M011212BJ85TU%U1RL{44181M%U1101RL039J69,J38J45,J50J55,J620401040018237163
/180,106116,121M%U1101RBP67BQ06LC111R11L039K08,J74J81,J85J93,J97K021040018337163
BL05SC120R16BJ85/C008108BJ85/M008R05FK L038K46,K14K21,K26K33,K38K451040018437163
2SR48BN17FKBN81M%U1101RBP67            L027K73,K48K52,K56K58,K62K701040018537163
BQ06LC120R21BK58/U%U1BBM54AB}67MR28299 L038L11,K79K86,K91K96,L01L051040018637163
2/299MR31R05BK96BL60D<R32BL46G         L030L41,L13L17,L24L28,L33L371040018737163
BL60AR01O69DR01R02BP19<R33BN59M%U1101R L038L79,L46L53,L60L64,L68L721040018837163
BP67BQ06LC111R39BM54SC120R44BM35/BN17  L037M16,L84L89,L96M01,M08M131040018937163
FKHO83M31BO97@SR48BN81,106116,121      L033M49,M19M26,M31M35,M39M461040019037163
BL72/332/FKMR622142F1                  L021M70,M54M58,M59M61,M68M691040019137163
/180BM99R024U%U1R.000155BM884K8        L031N01,M75M83,M88M95,M99N001040019237163
BM83.000144BK96HN58MR67105MR72120      L033N34,N06N13,N17N21,N280401040019337163
BN47R024BN484MR77120B000HN80M{03227    L035N69,N43N47,N48N55,N59N631040019437163
2FK/228B000HO83C120{08BO05S            L027N96,N71N73,N77N81,N85N921040019537163
VO70R321/332/BO84106*M172271M120218    L035O31,O05O09,O10O18,O250401040019637163
M111212DR48204ZDR48104MA{09R48M{10105  L037O68,O39O46,O47O54,O55O621040019737163
2/332/BO97@B000M172273M                L023O91,O70O74,O75O80,O84O911040019837163
MBO39F1VP11R331BP19BN59BO80            L027P18,O93O97,O99P07,P11P151040019937163
HP66/332/M{34243M{38275A{09{41Z{41279  L037P55,P23P27,P28P35,P42P491040020037163
2FL/299B000HQ05H089Y{42089             L026P81,P57P59,P63P67,P71P751040020137163
BIY8113!BBBBBB                         L014P95,P90P91,P92P93,P94P951040020237163
BBBBBBB000                             L010Q05,P97P98,P99Q00,Q01Q021040020337163
HQ38U%U1BM{42{43M%U1101RBQ39LB000U%U1B L038Q43,Q10Q15,Q22Q30,Q35Q391040020437163
S{09{43VQ22{43B.000191M%U1101RBQ10E    L035Q78,Q51Q59,Q66Q74,0400401040020537163
.000111BQ352PRINTPUNCHD                L024R02,Q86Q90,Q91Q96,R01R021040020637163
   999999HEADRHEADRUNKNOWN999          L030R32,R06R12,R17R22,R29R321040020737163
 999999HEADR    END OF LIBRARY         L035R67,R34R40,R45R49,R630401040020837163
INSERHEADRSEQ  LABEL  OP    OPERANDS   L036{03,R73R78,040040,0400401040020937163
HEADRA 1401 AUTOCODER - LIBRARYPAGE   IL039{42,{09{10,{11{35,{39{421040021037163
 !                                     L002{44,{44040,040040,0400401040021137163
B{44                                   L004}72,040040,040040,0400401040C0913716L
M{10R02M{64N80BN63}73!                 L022{65,{51{58,{62{65,0400401040C0923716L
,{65                                   L004}03,040040,040040,0400401040C0933716L
L{65                                   L004}07,040040,040040,0400401040C0943716L
L{65                                   L004J58,040040,040040,0400401040C0953716L
                                       N000000,040040,040040,040040B000021237163
     CONTROL        1650   PASS 2    PROCESS IOCS-MAIN 1               021337213
H099H03HO66O75BM06021 <W18C007H48B}31S L038W87,W57W64,W72W76,W830401040021437213
S095C0080{0H099BZ35SBM060{0@AH49094BW92L039X26,W92W99,X03X08,X16X231040021537213
BO14E00B}89554B}89457BN37              L025X51,X31X34,X38X41,X45X481040021637213
452BO14D87BO14D74BZ81                  L024X75,X55X59,X62X66,X69X731040021737213
B}89424B}89414B}71   B}89              L025Y00,X80X83,X87X90,X94X971040021837213
403BZ47393BV72373BV41020               L024Y24,Y04Y08,Y11Y15,Y18Y221040021937213
B}89368BO14D55BV41011BV41              L025Y49,Y29Y32,Y36Y39,Y43Y461040022037213
010BO14D30BO14D23BV41009               L024Y73,Y53Y57,Y60Y64,Y67Y711040022137213
B}89547B/13342BV41206B}06              L025Y98,Y78Y81,Y85Y88,Y92Y951040022237213
 L%U1001RBZ21L<W49B101U%U1BN288        L031Z29,Z00Z08,Z13Z17,Z21Z261040022337213
.BZ00S100,021BXK7BN55L0A9393           L028Z57,Z31Z35,Z39Z43,Z47Z511040022437213
V333W181BN55L0A9383B333HO66Z95BO14E20  L037Z94,Z66Z70,Z77Z81,Z88Z921040022537213
L0A9429BO75HO66}20BO14E13L0A9565BO75   L036}30,}02}06,}13}17,}20}271040022637213
MH52094D008093S100BN55L0A93M9LH53343   L036}66,}38}45,}49}53,}600401040022737213
BM06D022404YH54404BM06H089V333W181     L034J00,}71}78,}85}89,}930401040022837213
M0\2089BN55L0A90\0H089VM06W181BJ08H761 L038J38,J08J12,J19J23,J31J351040022937213
M086I97,I92M773I92MH55I85B750DH56768   L036J74,J46J50,J57J64,J680401040023037213
/086MH61020H099622BK01/086,001H089021  L037K11,J79J86,J93J97,K01K051040023137213
MH62073M0{0L89H094M089H65P0}10\0H089   L036K47,K19K26,K30K37,K440401040023237213
MH670\0BL01073\MH65089,0\0MH69080M079  L037K84,K55K63,K70K74,K810401040023337213
<0\0BJ35<I92BJ97M0{00{0H099C0{0H54     L034L18,K89K93,K97L01,L08L121040023437213
Q099BL12SAH70099BL470{0,BK19MH690\0    L035L53,L23L28,L35L43,L470401040023537213
MH54073BJ35<I92DH71768BU60          \  L037L90,L61L65,L69L76,L800401040023637213
S100BN55L0A9349B774BM30006*C020H76BM46/L039M29,L95L99,M06M10,M18M251040023737213
B721BM06006*BW50DH56768H099567BO98     L034M63,M34M42,M46M53,M600401040023837213
HQ99U97C018H79/086MH84020BN05SHL79V06  L037N00,M71M78,M82M89,M940401040023937213
BK01HL79N16BK01L%U1341RU%U1B<568BU60   L036N36,N05N12,N16N24,N29N331040024037213
BN55M0A9452B}89442HO13,021C0B2H69      L033N69,N41N48,N52N55,N59N631040024137213
AH70099BO02SBO060B0,C099H86BN59/,W18   L036O05,N77N82,N90N97,O020401040024237213
,0B1B000H094M0}2H89B\06MH89094CW260}0  L037O42,O10O14,O18O25,O29O361040024337213
H094M0}0089Q094BO87SBO750}0@BO36       L032O74,O47O54,O58O63,O710401040024437213
V333W181BO25LH535X6BO75HP20/186,101    L035P09,O83O87,O94O98,P02P061040024537213
M086186B000   L%U1101R,332M773332      L033P42,P17P21,P24P32,P360401040024637213
M%U1101RBS22NP23B101BS22NA35MI19340    L035P77,P51P55,P59P63,P67P711040024737213
B119CU%U4BHN00Q88H6651C018H92BQ96/     L034Q11,P83P88,P95P99,Q00Q071040024837213
BC19BR43BS22NA35CI95I02B{05SCI29H95    L035Q46,Q16Q20,Q24Q28,Q35Q401040024937213
BQ60/B205B220CI29H98B119SMI97086,I10   L036Q82,Q52Q56,Q60Q67,Q72Q791040025037213
BA44GVR04I101BO98BU97VR27I091DH56768   L036R18,Q88Q96,R00R04,R120401040025137213
BJ35BR32U%U4BL331186BU97H{04,I03       L032R50,R23R27,R32R39,R43R471040025237213
<W18S100BN55{0A9I02VR93W181BN55{0A9I07 L038R88,R55R59,R63R70,R78R821040025337213
<I03/086,001B000V{37I031CI95I07B{37S   L036{24,R93R97,{01{05,{13{201040025437213
BS22NA35B{13BQ88A1C018H92BQ12S         L030{54,{29{33,{37{42,{43{501040025537213
C018H95B{75/B205B175C018H98B138S       L032{86,{62{67,{71{75,{820401040025637213
VA03I031<I10BQ83BC19<I09H182Q72H234    L035A21,{95{99,A03A07,A11A181040025737213
MI08131BQ40Q88M%U4I12RVA85I091H684A74  L037A58,A29A33,A36A44,A520401040025837213
HB02B68<I10B642M331086,I09H684B03      L033A91,A66A70,A74A81,A850401040025937213
HM09C08B642/086VB41I101BC34A1C018H92   L036B27,A99B03,B07B15,B20B211040026037213
BB68/BC19BR43BC49CI95I02BB72S,I10      L033B60,B33B37,B41B45,B52B571040026137213
MI97086B685<I10VB61I031CI95I07BB03SBS22L039B99,B68B72,B76B84,B91B961040026237213
NA35BB84HB71M10BB03HC33M086331B000     L034C33,C04C08,C15C19,C23C301040026337213
,I10MI08B52BB41HC80BS22NA35BC53I86Y    L035C68,C38C45,C49C53,C57C611040026437213
BC53I86ZB000@001INP002OUT              L025C93,C77C81,C82C85,C88C911040026537213
003TAP004REA005PUN008                  L021D14,C97D00,D03D06,D09D121040026637213
CHE006PRI@007LOA@                      L017D31,D18D21,D24D25,D28D311040026737213
012BLO013UNB014FIX015                  L021D52,D35D38,D41D44,D47D501040026837213
VAR@081STA082NON083                    L019D71,D56D57,D60D63,D66D691040026937213
TM @084ALL085IDE@                      L017D88,D75D76,D79D82,D85D881040027037213
199UNL200NOR@2019                      L019E07,D92D95,D98E01,E02E051040027137213
20212 @076REC@I9C                      L017E24,E11E14,E15E18,E21E221040027237213
OUTI9DINP@045REL046                    L019E43,E28E31,E34E35,E38E411040027337213
STO006OVE@007TAP008                    L019E62,E47E50,E53E54,E57E601040027437213
REA009PUN010PRI@011                    L019E81,E66E69,E72E75,E78E791040027537213
STA012NON013MIX014CHE                  L021F02,E85E88,E91E94,E97F001040027637213
015IDE026RDL016TM @                    L019F21,F06F09,F12F15,F18F211040027737213
0181  0192  0203  021                  L021F42,F25F28,F31F34,F37F401040027837213
4  0225  0236  0247                    L021F63,F46F49,F52F55,F58F611040027937213
0258  @027729028733                    L019F82,F67F70,F71F74,F77F801040028037213
@029NOR030UNL@037                      L017F99,F84F87,F90F93,F96F971040028137213
REC038HAS@034CLE033                    L019G18,G03G06,G09G10,G13G161040028237213
PRO032SCA@OVEFORCOB                    L019G37,G22G25,G28G29,G32G351040028337213
VARCHAFILMODCARALTREC                  L021G58,G41G44,G47G50,G53G561040028437213
SIZPADBLOIOAWORINDEOF                  L021G79,G62G65,G68G71,G74G771040028537213
WLRTOTTYPCHEHEASERREE                  L021H00,G83G86,G89G92,G95G981040028637213
REW@TAPCHEDIOFEAIOD                    L019H19,H04H05,H08H11,H14H171040028737213
LABALTEXIVARCOUDRIRWD                  L021H40,H23H26,H29H32,H35H381040028837213
REAINPEX71 8$                          L014H54,H44H47,H49H50,H53H541040028937213
*555555\   ,                           L015H69,H56H57,H62H63,H66H681040029037213
16     DTF3333352                      L020H89,H71H72,H77H80,H85H871040029137213
ALTJOBCTL         N                    L019I08,H93H96,H99I03,I04I081040029237213
                                       L002I10,I10I12,040040,0400401040029337213
!                                      L001I98,040040,040040,0400401040029437213
006STO046                              L009E49,E47040,040040,0400401040C0063721L
U07                                    L003P23,040040,040040,0400401040C0073721L
                                       N000000,040040,040040,040040B000029537213
     CONTROL        001    PASS 2    PROCESS IOCS-MAIN 2               029637223
00000000000000U%U4RU%U5RU%U6R          L029115,001092,097101,1061111040029737223
BP32BB774C018W05B157/F1M0802802        L031146,121125,132137,1391461040029837223
N1B721B774C018W08B642/B6230241D022191  L037183,149153,157164,1691771040029937223
B623W11 BBB627                         L014197,192193,194201,2060401040030037223
B681*   ,;;                            L017349,337338,341342,3433441040030137223
;;;;;;;                                L007356,351352,353354,3553561040030237223
;;;;;;;                                L007363,358359,360361,3623631040030337223
;   ;;   ;         ;         ;         L030393,365369,370374,3840401040030437223
         ;;         ;         ;;   ;;  L037430,404405,415425,4264301040030537223
;;;;  ;    ;         ;                 L022452,432433,434435,4384431040030637223
    ;         ;         ;         ;    L035487,458468,478040,0400401040030737223
         ;         ;         ;         L030517,498508,040040,0400401040030837223
         ;         ;         ;;;;;     L034551,528538,548549,5505511040030937223
  ;;         ;  ,                      L017568,555556,565566,5675681040031037223
;;;         ;;;                        L015583,570571,572581,5825831040031137223
;;;;;;;                                L007590,585586,587588,5895901040031237223
;;;;;;;                                L007597,592593,594595,5965971040031337223
;;;;;;;                                L007604,599600,601602,6036041040031437223
;;;;;;;                                L007611,606607,608609,6106111040031537223
;;;     ;;;                            L011622,613614,615620,6216221040031637223
S337M026W12B721B774C020V71B670SB634006*L039661,627634,638642,6496541040031737223
BO98BV06MW13743B721B774B677006*C018W16 L038699,666670,677681,6856931040031837223
B713SB721B821BO98BJ68H761M086I97       L032731,705709,713717,7217251040031937223
,I98M773I98NW17I86BS22N764B000000      L033764,736743,750754,7587621040032037223
M%U6I12W!H809/086B798CBM46A1K8061      L033797,774778,782787,7927931040032137223
BS22N812B000M46M%U4001R<W18B681021     L035832,802806,810813,8218251040032237223
HO66O75S095H099H46C0080{0H099B984S     L034866,840844,851858,8620401040032337223
B6810{0@AW19094B851B/13612B/73         L033899,875882,886890,8938971040032437223
BO14F95BO14F82BO14G08B/13              L025924,904907,911914,9189211040032537223
611B992   B/13593BO14F20               L024948,928932,935939,9429461040032637223
BO14E77BO14E52B/47581B/47              L025973,953956,960963,9679701040032737223
620BO14E33S100B8Q6LW20571BO14          L029\02,977981,984988,9929991040032837223
F69H/04MW23W26S095C0B2W28,021B\90S     L034\36,\06\10,\17\21,\28\321040032937223
B/050B1,C099W30B\97SM0B1WK4AW31094     L034\70,\45\52,\57\64,0400401040033037223
B/050943AW31099B\21AW31099,W18B000BN55 L038/08,\79\86,\90\97,/01/051040033137223
B/01H089M0\2089C023W34B/43/LW200\0B333 L038/46,/13/17,/24/31,/36/431040033237223
H089M0\2089BN55L0A90\0B681HO66/87BO14  L037/83,/51/58,/62/69,/73/801040033337223
G27CW26W37BO75/BN55BO750A9 M0A9607BO75 L038S21,/87/94,/99S03,S11S181040033437223
H094HT43M0}3094M0}8T01M0}0T13,T19      L033S54,S26S30,S37S44,S510401040033537223
M0}7T21AW39T21<T19DS97U28DT01U28MW40W41L039S93,S62S69,S73S80,S870401040033637223
M%U0000RBT35T01WB000KBS94000!BBB       L032T25,T02T10,T15T23,T24T251040033737223
BBBBBBB                                L007T32,T27T28,T29T30,T31T321040033837223
BBBT44LB000SW31W41DS97T61U%U0B         L030T62,T34T35,T40T44,T51T581040033937223
BT83T01WVU22W41KBS94AW31W43U%U6E       L032T94,T71T79,T83T90,0400401040034037223
BU07W425BS87SW43.000202BS87.000200BS87EL039U33,U03U07,U11U18,U22U291040034137223
MT01U48M%U0000R.000201BT40L622567L     L034U67,U41U49,U56U60,U670401040034237223
H336M06MW46O93L186086B721BL91BC49U%U4B L038V05,U75U82,U89U93,U97V011040034337223
M%U1I97RM%U1I97RHP30341BS22NP23B341H089L039V44,V14V22,V29V33,V37V411040034437223
M0\2089,021M0213U9BM06DIOCSBN55A0A9W01 L038V82,V52V56,V63V67,V72V761040034537223
LW01373SW02B3330000{JOBCTL456          L029W11,V90V94,V98W03,W06W091040034637223
 MDTFW 7$                              L009W20,W13W14,W17W18,W19W201040034737223
        521YESTAP                      L017W37,W24W27,W29W31,W32W351040034837223
129   3U9                              L009W46,W40W41,W42W44,0400401040034937223
!                                      L001W49,040040,040040,0400401040035037223
DT01U27                                L007S86,040040,040040,0400401040C0083722L
B634006*B670S                          L013661,657040,040040,0400401040C0433722L
DS97U17                                L007S86,040040,040040,0400401040C0833722L
.000262BS87.000290                     L018U28,U18U22,040040,0400401040C0843722L
                                       N000000,040040,040040,040040B000035137223
     CONTROL        341    PASS 2    COPY DTF TABLE                    035237233
,;;      ;;;                           L012352,342343,344350,3513521040035337233
;;;;;;;                                L007359,354355,356357,3583591040035437233
;;;;;   ;;                             L010369,361362,363364,3653691040035537233
   ;         ;         ;         ;;    L035404,374384,394404,0400401040035637233
         ;         ;;   ;;;;           L028432,415425,426430,4314321040035737233
;;  ;    ;         ;    ;         ;    L035467,434435,438443,4534581040035837233
         ;         ;         ;         L030497,478488,040040,0400401040035937233
         ;         ;         ;         L030527,508518,040040,0400401040036037233
         ;         ;;;;;  ;            L027554,538548,549550,5515521040036137233
;         ;  !                         L014568,556565,566567,5680401040036237233
                                       N000000,040040,040040,040040B000036337233
     CONTROL        101    PASS 2    ALTER OVERLAY                     036437243
<332U%U1BU%U1BBP63MI97086B662CH182Q20  L037137,105110,115119,1261311040036537243
B1670241D022160B167237 BBB171S337      L033170,146153,161162,1631671040036637243
B183B721B{37H204M238Q67M238{82B000     L034204,175179,183187,1942011040036737243
H219,Q51{66B000MI97086B721BQ20456      L033237,209216,220227,2312351040036837243
N                                      L001238,246040,040040,0400401040036937243
!                                      L001332,040040,040040,0400401040037037243
                                       N000000,040040,040040,040040B000037137243
     CONTROL        341    PASS 2    END OVERLAY                       037237253
D432768HJ60433L186086BJ35<I92,606      L033373,348355,362366,3700401040037337253
M773606BS22N412<606U%U5RBS22N423       L032405,381385,389393,3984021040037437253
BZ00   L%U5434W   L%U1W50R5N           L028433,410413,421424,4324331040037537253
C}73W14B450SBT08BO33U%U5RU%U1BU%U1B    L035468,441446,450454,4594641040037637253
U%U6MU%U6RMW01003LI98036M%U5001WU%U5M  L037505,474479,486493,5010401040037737253
U%U4R<187036<100M%U1I97R,I98B543KB522  L037542,511518,522530,5345391040037837253
M%U1I97R,I98S605604V574604KB543/466/   L036578,551555,562570,5745781040037937253
/BW50N594BM65Y34L%U1K10R11             L026604,580584,588592,5956031040038037253
A!                                     L002606,606040,040040,0400401040038137253
U07                                    L003423,040040,040040,0400401040C0093725L
BT08/BO33BH50                          L013453,446450,040040,0400401040C0103725L
                                       N000000,040040,040040,040040B000038237253
     CONTROL        1650   PASS 2    MACRO GENERATOR                   038337263
H094HX70M0}3094M0}8X29M0}0X41,X47      L033W82,W54W58,W65W72,W790401040038437263
M0}7X49AY93X49<X47DX25Y55DX29Y55MY94Y95L039X21,W90W97,X01X08,X150401040038537263
M%U0000RBX62X29WB000KBX22000!BBB       L032X53,X30X38,X43X51,X52X531040038637263
BBBBBBB                                L007X60,X55X56,X57X58,X59X601040038737263
BBX71LB000SY96Y95DX25X88U%U0BBY10X29W  L037X97,X62X67,X71X78,X85X901040038837263
VY49Y95KBX22AY96Y98U%U6EBY34Y975BX15   L036Y33,Y06Y10,Y17Y22,Y300401040038937263
SY98.000202BX15.000200BX15EMX29Y75     L034Y67,Y38Y45,Y49Y56,Y610401040039037263
M%U0000R.000201BX67HEADR129            L028Y95,Y76Y83,Y87Y92,Y94Y951040039137263
1                                      L003Y98,Y97040,040040,0400401040039237263
M340H10MMW12}55BW50NZ68<W49,I98        L031Z30,Z07Z08,Z15Z19,Z23Z271040039337263
M187I98<I95I97BZ77BU%U1RM}55189B101Y34 L038Z68,Z38Z45,Z50Z55,Z62Z661040039437263
L%U1001RBW50NZ68<\43U%U1RMH10W01M}58L04L039}07,Z77Z81,Z85Z89,Z94}011040039537263
HN73156M}59O41M}59O37M}59O89B101H07*   L036}43,}15}22,}29}36,0400401040039637263
M}59759B101 106N                       L016}59,}51}55,}56}59,Z000401040039737263
VJ080\3SVD410\3BMH44086<0\10\4B{41     L034J07,}82}90,}97J04,0400401040039837263
MW140\3B}97MH45L01MH44N66MU60075BJ58   L036J43,J15J19,J26J33,J400401040039937263
MH44K20MU62075MW08094,021BK90092Y      L033J76,J51J58,J65J69,0400401040040037263
C0}0H48BK09SC0}0023Q094BK16SBJ69M0230}0L039K15,J84J89,J96K00,K05K091040040137263
<021NR17BO33BL01020DM011466H099S090    L035K50,K20K24,K28K36,K43K471040040237263
BM19,001L0/90{0H099BL090S0 BN390S0,BK51L039K89,K55K59,K66K70,K78K861040040337263
MH49086BO33B467BU15LH500{0/086M466011  L037L26,K97L01,L05L09,L16L201040040437263
M460025Q099MH44016MU61075M099H53MH53099L039L65,L34L38,L45L52,L590401040040537263
<024BO33/086BL010{0 MH56018M099094BG46 L038M03,L70L74,L78L86,L93M001040040637263
M0{00S1Q099BL45HN12,021BN130S1@BM980S1,L039M42,M11M15,M19M23,M27M351040040737263
C0S1H58BN09SAH59089C089H61BM23/C072H58 L038M80,M50M55,M62M69,M740401040040837263
BN09SBN09072 BN02,0S2AH59089B000{H64090L039N19,M86M94,M98N02,N09N131040040937263
BM550S1@SH66090BN20HO21BN54AH59089     L034N53,N28N35,N39N43,N470401040041037263
C089H61BO06/NG80B653NMU62075BO33       L032N85,N61N66,N70N74,N75N821040041137263
BN70006*S090BV20021,BN470S1 ,0S1B000Y34L039O24,N94N98,O06O14,O18O221040041237263
M%U6I12WHO99BO48M955X65M086I97BO89I85* L038O62,O33O37,O41O48,O550401040041337263
MW13I85,I98M187I98BW50NO24M958X65B000  L037O99,O70O74,O81O85,O89O961040041437263
MH67075BO33AH59W01M018192SV19SS        L031P30,P07P11,P18P25,P29P301040041537263
SSSSSSS096                             L010P40,P32P33,P34P35,P36P371040041637263
AH68095M011466H099S090BQ25021 BV20021, L038P78,P48P55,P59P63,P710401040041737263
AH68095BH330953BM19L0/90{0H099BV200S1, L038Q16,P86P94,P98Q05,Q090401040041837263
BV650S0,LH690{0/086CH72192MH75H72BR65S L038Q54,Q25Q32,Q36Q43,Q500401040041937263
BQ65UU%U1R,100BW50NB18C020Y91BQ65/     L034Q88,Q60Q65,Q69Q73,Q77Q841040042037263
C008H75BU63SC008192BQ65/BR65MH45K20    L035R23,Q96R01,R08R13,R170401040042137263
MU60075BO33BR65020DMH80020<188MU61075  L037R60,R31R35,R43R50,R540401040042237263
BO33/086,001100M187100BW50NB29C020Y91  L037R97,R65R69,R76R83,R87R911040042337263
M008H72BL01SC008H83B{26/,188{H86090    L035{32,{05{10,{17{22,{260401040042437263
BB380\1<SH66090C089H88B{33/S090BM19    L035{67,{41{48,{55{60,{640401040042537263
<0210S1C089H90BA26TC0S1H58B{64/BA26006*L039A06,{75{82,{87{94,{990401040042637263
,0S1MW12072M072<0S1MH93089HJ07A48      L033A39,A11A18,A22A26,A330401040042737263
B\570\1<SH66090C089H95BA40/HJ07{41     L034A73,A48A55,A62A67,0400401040042837263
N466011MH45A74C019W05BJ44SC020U59BJ44S L038B11,A81A88,A95B00,B070401040042937263
BR50U63M%U1001R\44M%U1001RB{410\2      L034B45,B16B19,B27B30,B380401040043037263
,0\10\4VC560\3KB/19M099H98S099W22      L033B78,B53B61,B65B72,0400401040043137263
YW16W22MI01099SW22099MI02097C099I05    L035C13,B86B93,C00C07,0400401040043237263
BC78TM0G7073HC47<0\4MH98099M0{0000<0\1 L038C51,C19C26,C30C34,C41C481040043337263
B{41M069072MW01<0\10\4B{41L073I84      L033C84,C56C63,C67C74,C780401040043437263
<0\10\4MW14072BD22099HMI84072HC47BD33  L037D21,C92C99,D07D14,D180401040043537263
MI84071HC47<I/5BC30VD531881BR65MI06A74 L038D59,D29D33,D37D41,D49D531040043637263
<188BR65MW01011BA67HG45U%U1R<V98       L032D91,D64D68,D75D79,D83D881040043737263
,100M187100BW50NT44C020Y91BD92/C008H75 L038E29,D96E03,E07E11,E18E231040043837263
BF56SMW08089BD92087Y,006C0\0008Q089    L035E64,E35E42,E50E54,E610401040043937263
BE42/VD920\11<006,0\1,V98BW50NT44      L033E97,E70E78,E82E86,E90E941040044037263
C019W05BJ19SC020U59BJ19SC020Y91BE23S   L036F33,F05F10,F17F22,F290401040044137263
MU61075LI98100BO33BE90MW08089BG26087Y  L037F70,F41F48,F52F56,F630401040044237263
C0\0H48Q089BG26SVF630\11VD83V981BT75   L036G06,F78F82,F87F95,G030401040044337263
,0\1M0\3011BO33BF63/}73/<100           L028G34,G11G18,G22G26,G30G311040044437263
MH75H72B000HG57S090V0000}01SI08095     L034G68,G42G46,G50G54,G620401040044537263
AH59089BG54/086BW50NT44MU60075,001     L034H02,G76G80,G84G88,G92G991040044637263
BN82    MH67075BK97M099UR2BV46M099UR2  L037H39,H07H11,H18H22,H29H331040044737263
BP94BN   7                             L014H53,H44H45,H46H49,H50H511040044837263
DCW  1525101{R                         L014H67,H57H59,H60H62,H65H671040044937263
3,   999B    <00690                    L019H86,H69H70,H73H76,H81H841040045037263
155101504   I99I                       L016I02,H89H91,H94H96,H99I021040045137263
I9FM10                                 L006I08,I06I07,I12040,0400401040045237263
!                                      L001I98,040040,040040,0400401040045337263
BV35                                   L004H32,040040,040040,0400401040C0013726L
DX29Y54                                L007X14,040040,040040,0400401040C0113726L
BM05BL01020DL011466                    L019K42,K28K36,040040,0400401040C0123726L
LH460{0                                L007L15,040040,040040,0400401040C0133726L
<024BO33/086BL010{0 MH69018M099094BG46 L038L89,L56L60,L64L72,L79L861040C0143726L
M0{00S1Q099BL45BO33,006BK2852          L029M18,L97M01,M05M09,M13M171040C0153726L
C0S1H47BN09SAI07089C089M18BM23/C072H47 L038M80,M50M55,M62M69,M740401040C0163726L
AI07089B000{I11090                     L018N19,N09N13,040040,0400401040C0173726L
SI08090BN20HO21BN54AI07089C089M18      L033N60,N35N39,N43N47,N540401040C0183726L
MH89075BO33AI07W01                     L018P17,P07P11,040040,0400401040C0193726L
AH90095                                L007P47,040040,040040,0400401040C0203726L
AH90095                                L007P85,040040,040040,0400401040C0213726L
LQ650{0                                L007Q31,040040,040040,0400401040C0223726L
SI08090                                L007{47,040040,040040,0400401040C0233726L
C089I10BA26TC0S1H47                    L019{93,{82{87,040040,0400401040C0243726L
SI08090                                L007A54,040040,040040,0400401040C0253726L
AI07089                                L007G75,040040,040040,0400401040C0263726L
MH89075                                L007H17,040040,040040,0400401040C0273726L
U%U5BBW50NV89B454DCW                   L020H69,H55H59,H63H67,0400401040C0283726L
R3                                     L002H90,H90040,040040,0400401040C0293726L
510                                    L003I11,040040,040040,0400401040C0303726L
BW37021,                               L008O05,040040,040040,0400401040C0443726L
NB11                                   L004Q76,040040,040040,0400401040C0453726L
NB22                                   L004R90,040040,040040,0400401040C0463726L
BB310\1<                               L008{40,040040,040040,0400401040C0473726L
N466011MH45A67C019W05BJ44SC020U59BJ44S L038B04,A74A81,A88A93,B000401040C0483726L
BR50U63M%U1001R\44M%U1001RHJ07{41      L033B37,B09B12,B20B23,B310401040C0493726L
MI06A67                                L007D59,040040,040040,0400401040C0503726L
DX25Y44                                L007X14,040040,040040,0400401040C0853726L
.000262BX15.000290                     L018Y55,Y45Y49,040040,0400401040C0863726L
                                       N000000,040040,040040,040040B000045437263
     CONTROL        001    PASS 2    INITIAL ASSEMBLY                  045537273
000000000000000                        L015101,001092,097101,0400401040045637273
!00***                                 L006192<187187,190040,0400401040045737273
!/}73/B1181891B132                     L018117<100100,101105,1061141040045837273
M959764M959780,885,779,762B467H07*     L034151,125132,136140,1440401040045937273
M959526M959533B467                     L018169,159166,201461,0400401040046037273
B653,001HO99467B758006*C020964BH11S    L035501,471475,482490,4970401040046137273
C020969B758SC018972B795SC020977BU33S   L036537,509514,521526,5330401040046237273
C020982B857SC018985BU78SC019W05BJ51S   L036573,545550,557562,5690401040046337273
C020U59BJ51SC020990B918SH099T74C0180{0 L038611,581586,593598,6050401040046437273
H099BP00SB6330{0#B605B758020 B758016   L037648,616621,629633,6410401040046537273
BP00H696/086B677CB934A1                L023671,653657,661665,6666711040046637273
K6931BW50N699B708074NB471934M%U5001R   L036707,677681,685693,6977001040046737273
<665779D991703<762885C}73999B745SBT08  L037744,715722,729736,7410401040046837273
M994U62MMB693BO41CNM995763             L026770,752753,754758,7637641040046937273
BO41B795C8H917803M959O37BO33B653       L032802,775780,781788,7957991040047037273
M996O37H917471B775008*C016985BU78S     L034836,810817,825832,0400401040047137273
C016972B775/BO33B467C}73999B758SBT08   L036872,844849,853857,8648691040047237273
BO33B467B896C1K1M959763HX65X71         L030902,877881,886887,8898961040047337273
HX70914BX71B471C}73999BS64/B758/086    L035937,910914,918925,9309341040047437273
,001M\05019BU78881X71NCHAIN            L027964,942949,953956,9599601040047537273
MLCWAENTMA   EX   ENDLTORG4            L027991,970973,978983,9869911040047637273
SCR8B   END$$$                         L014\05,995996,997\00,0400401040047737273
U%U1RSH72BL01VD680\3KB/19MW160\5M089W11L039\82,\49\53,\57\65,\69\761040047837273
M099094BG46AW11089M0{00\1MW11089BA48   L036/18,\90\94,/01/08,/150401040047937273
HS63MW16099MW16W19D0\2W19SW17W19       L032/50,/23/30,/37/44,0400401040048037273
V/70W19KAW18099B/44B}74UI00MW16W19     L034/84,/59/66,/70/78,0400401040048137273
MUI2099D0\3W19SW17W19M0{00{0QW22       L032S16,/92/99,S06S13,0400401040048237273
B}740{0,VS44W19KMW22099B/99B}740{0;    L035S51,S25S33,S40S44,0400401040048337273
VD410\3SB000MW27020MW28075BO33BD79/086 L038S89,S60S64,S71S78,S82S861040048437273
MT58021MU61075BK97HT41,001/186L086186  L037T26,S97T04,T08T12,T16T201040048537273
BD79L186086B000D83M%U1001RLTORG*#      L033T59,T31T38,T42T45,T53T591040048637273
RLSGETPUTDTFOPEHU14/086                L023T82,T63T66,T69T72,T75T791040048737273
MW29086MW36020MU61075MW37006B000MW29L01L039U21,T90T97,U04U11,U150401040048837273
MW38N66BE90MU62075BO33MW39018BP18INCLD L038U59,U29U33,U40U44,U51U551040048937273
ZYWBT75M192011BK97BW50                 L022U81,U61U62,U63U67,U74U781040049037273
NV89B434466                            L011U92,U86U90,U93U96,U99V021040049137273
LW400{0H099                            L011V30,V05V08,V11V14,V17V271040049237273
AW18095BH220953AW41089,0S1BV200S1,     L034V64,V38V46,V53V57,0400401040049337273
M095H10BN39MH10095BP79   L%U5434R0000  L037W01,V72V76,V83V87,V90V991040049437273
CALL}73        A3                      L018W19,W06W09,W12W17,W18W191040049537273
   ORG  LBUNKNOWN*N                    L019W38,W23W28,W29W30,W37W381040049637273
D;1                                    L003W41,W40W41,040040,0400401040049737273
!                                      L001W49,040040,040040,0400401040049837273
AW18095BH220953LW400{0H099             L026V45,V27V35,V42V42,0400401040C0023727L
B1321891N132                           L012117,114040,040040,0400401040C0313727L
Y34                                    L003V89,040040,040040,0400401040C0323727L
MT31075                                L007S77,040040,040040,0400401040C0513727L
MU78086MW36020MU61075MW48006           L028U10,T90T97,U04040,0400401040C0523727L
MU78L01MU82N66BE90MU62075BO33M/92018   L036U50,U22U29,U33U40,U440401040C0533727L
LW280{0H099AW29089                     L018V52,V42V46,040040,0400401040C0543727L
;1UNKNOWNMH10095BV20*                  L021W48,W29W30,W37W44,W480401040C0553727L
BO48C                                  L005762,040040,040040,0400401040C0873727L
                                       N000000,040040,040040,040040B000049937273
     CONTROL        001    PASS 2    ALTER ASSEMBLY                    050037283
000000000000000                        L015101,001092,097040,0400401040050137283
!                                      L001100<100100,101040,0400401040050237283
!00***                                 L006192<187187,190040,0400401040050337283
/}73//086BW50N132B141074NB541          L029129,105106,110114,1181261040050437283
141M%U5001RM172N74M176B467/086BW50     L034163,133141,148152,1561601040050537283
N132BN751/086                          L013176,168172,173201,4610401040050637283
HL04510C}73W14B506SBT08B506C}73W14BS64/L039505,474481,486490,4945011040050737283
B525B686CB686A/0861H509O33M\15U62      L033538,510515,520524,5255321040050837283
MMC018\18B697006*B697/S090BM19         L030568,540541,548556,5615651040050937283
{0/9\22BW50N922M\23I96,I98CI95\22B631S L038606,576580,584591,5956021040051037283
CI29\26B\02SBW50NO24B576B6510S0,BW50   L036642,614619,623627,6316391040051137283
NO24BL01BM19{0/9\22CI95\22B931SBW50    L035677,647651,655662,6696741040051237283
N922B662M\27602B576,001HO99L01BO48006* L038715,682686,693697,7017081040051337283
C018\30BO48SC018\33BH11SC018\36B879S   L036751,723728,735740,7470401040051437283
C018\39BU33SC018\42B474SC018\26BU78S   L036787,759764,771776,7830401040051537283
C019W05BJ51SC020U59BJ51SC020T57B494S   L036823,795800,807812,8190401040051637283
H099T74C0180{0H099BP00SB8590{0#B831    L035858,831838,842847,8550401040051737283
BO48020 BO48016 BP00BO331B879008*      L033891,867875,879883,8840401040051837283
C016\26BU78SC016\36B879/B506000M%U4I12RL039930,899904,911916,9209231040051937283
B943I86RBL01BW50N922CI31W16B943SM\27958L039969,939943,947951,9589631040052037283
B943I86SB943I86CU%U4BM943958B510MI97086L039\08,978986,991998,\020401040052137283
BU78SCRALT    RENDN                    L019\27,\13\16,\19\23,\24\271040052237283
MLCCHAENTMA EX !                       L016\43,\31\34,\37\40,\430401040052337283
Y34                                    L003922,040040,040040,0400401040C0333728L
                                       N000000,040040,040040,040040B000052437283
     CONTROL        2210   PASS 3    INITIALIZATION                    052537313
H099HK82YM60099MII0K73DK69K49MK73L82   L036K45,K14K18,K25K32,K390401040052637313
U%U0BBL55K73WMM60M61M%U0000RBK83LB000  L037K82,K51K59,K66K74,K790401040052737313
DK69K93U%U0BSM62M61VK66M61BDK69L23     L034L16,K90K95,L02L10,0400401040052837313
.000390MK73L38M%U0000RBK46E.000302BK79 L038L54,L24L31,L39L44,L510401040052937313
U%U1EBL92M635AM62M64M%U0000WBK46LBK79  L037L91,L60L68,L75L83,L880401040053037313
SM64DK69M09.000360BL75H099HM52YM60099  L037M28,L96M03,M10M14,M18M221040053137313
BIH8000!BBBBBB                         L014M42,M37M38,M39M40,M41M421040053237313
BBBBBBB000                             L010M52,M44M45,M46M47,M48M491040053337313
3  999#I A                             L012M64,M54M59,M60M61,M62M631040053437313
U%U6RU%U5R/I99L%U1001RN000BK10L,I89187 L038N02,M70M75,M79M87,M91M961040053537313
<{03/080,A69U%U4RMR20M35MR21573MR21558 L038N40,N07N11,N15N20,N27N341040053637313
M%U5101RBM14BK10LU%U5RM103R24{R27184   L036N76,N49N53,N58N63,N700401040053737313
B524BQ53106*C118R30BQ53/MR24108M%U4101WL039O15,N81N89,N96O01,O080401040053837313
N000BK10LAR31184B524MR32573MR33558     L034O49,O20O25,O32O36,O430401040053937313
C118R36BQ85//000HO85HR39VP02O852/I9I   L036O85,O57O62,O66O70,O74O821040054037313
HO85CO85R42BO82/MR43R44VP54R39BMR45R44 L038P23,O90O97,P02P09,P170401040054137313
VP54R39KMR46R44VP54R39SMR47R44C121R44  L037P60,P32P39,P47P54,0400401040054237313
BP97S/332/MR892422BP88@BP90            L027P87,P66P70,P71P78,P79P841040054337313
F1MR44121M122M53{M53089SR91090A089     L034Q21,P90P97,Q04Q11,Q180401040054437313
MR/1M55C122R47B419TBQ991241BQ92U%U6B   L036Q57,Q29Q36,Q41Q49,Q530401040054537313
M174173MR96120MM174115MBO01MR99463     L034Q91,Q65Q72,Q73Q80,Q81Q851040054637313
M{00M59M{02M55B41903071115             L026R17,Q99R06,R10R12,R14R161040054737313
113N   101JOBAB                        L015R32,R21R22,R25R28,R31R321040054837313
MCTL   I996 5                          L013R45,R34R37,R40R43,R44R451040054937313
43                                     L002R47,R47040,040040,0400401040055037313
INCORRECT PROCESSOR MACHINE SIZE SPECIFL039R86,040040,040040,0400401040055137313
IED3{JOB  634A                         L014{00<R87R87,R90R92,R97{001040055237313
03!                                    L003{03,{03040,040040,0400401040055337313
HR39YP19P34BP191216YP97P34BP191215     L034O99,O70O77,O85O92,0400401040C0563731L
YP31P34BP191214BP97CP34R39BP66U/I9IHP34L039P38,P07P15,P19P26,P31P351040C0573731L
CP34R42BP31/BP97                       L027P65,P46P51,P55040,0400401040C0583731L
MR47121                                L007P96,040040,040040,0400401040C0593731L
                                       N000000,040040,040040,040040B000055437313
     CONTROL        001    PASS 3    LEFT HAND IMAGE                   055537323
00000000000000                         L014100,092097,101101,1191161040055637323
                                       L001001,106121,181185,0400401040055737323
!                                      L001187<187187,333372,3493601040055837323
L%U1M65RN000BK10LMM59B93L%U1626R       L032450,371408,427431,4364431040055937323
N000BK10LB626L%U1626RN000BK10LU%U1B    L035485,455460,464472,4764811040056037323
U%U1BV661H091B638L%U1626RN000BK10LB630 L038523,491499,503511,5155201040056137323
H553B554MI82180MMMM                    L019542,528532,539540,5415421040056237323
MI88186B000H585MR43M35M%U6I03RBM14BK10LL039581,550554,558565,5735771040056337323
B000H625<121M%U4101WN000BK10L,121      L033614,586590,594602,6066111040056437323
AR44184B0000!                          L013627,622626,627040,0400401040056537323
                                       N000000,040040,040040,040040B000056637323
     CONTROL        2465   PASS 3    RIGHT HAND IMAGE                  056737333
HO46C118A56BP55SM118094A118093A118092  L037N01,M69M76,M81M88,M950401040056837333
A116094SA60095VN09095BLBN9A69QN42S096  L037N38,N09N16,N24N31,N350401040056937333
L000A69QN42BP28A69@CA69118BN39/LA66A69 L038N76,N46N50,N58N65,N700401040057037333
CA71A69BO47SCA69A73BO83SCA69A75BO83S   L036O12,N84N89,N96O01,O080401040057137333
MA69115H099C099A78BO43SM{600{0B000     L034O46,O20O24,O31O36,O430401040057237333
C123A81B464SC352A85B503SV630{021B638   L036O82,O54O59,O66O71,O790401040057337333
VP17A68BLA67A69BO13119 MA86A69BO13     L034P16,O91O98,P06P13,0400401040057437333
LA87A69BO98LA54A69VO13H091VQ01{021BO13 L038P54,P24P28,P35P43,P510401040057537333
BO13119 LA54A69M119A69BO13120 <A69,    L035P89,P63P70,P77P85,P890401040057637333
M120A68BO13BO13114 M180412MMM          L029Q18,P97Q01,Q09Q16,Q17Q181040057737333
MMMMMM/332                             L010Q28,Q20Q21,Q22Q23,Q24Q251040057837333
/M180280MMMMMB18332                    L019Q47,Q30Q37,Q38Q39,Q40Q411040057937333
2,H09BQ62@B464F4641L%U1626RB586        L031Q78,Q49Q53,Q58Q62,Q67Q751040058037333
U%U4MFK/332/MB342602F1                 L022R00,Q84Q86,Q90Q91,Q98Q991040058137333
<K09<I89187L%U1626RL%U1085RN000BK10L   L036R36,R05R12,R20R28,R320401040058237333
B200I15ACHASZ0{                        L015R51,R41R44,R45R48,R49R501040058337333
 CY&1 EQU  $HIVAL &P 626               L024R75,R53R54,R55R58,R63R731040058437333
B            $HIVAL$P   3              L027{02,R77R80,R89R95,{00{021040058537333
ILLEGAL LABEL - SEQUENCE NUMBER,011B   L038{40,{34{35,{38040,0400401040058637333
  BNOPBCEBIN& BEBSS                    L019{59,{44{47,{50{53,{56{571040058737333
&$$S02                                 L006{65,{61{63,040040,0400401040058837333
ACTUAL OP CODES PRESENT IN FIXED FORM IL039A04,040040,040040,0400401040058937333
MAGES  &      EQU                      L017A21<A05A05,A10A11,A13A191040059037333
&P 032000@52P00                        L015A36,A25A28,A31A32,A34A351040059137333
LTORG0504DC&X-                         L014A50,A42A44,A46A47,A48A501040059237333
I99   550{         N B 2               L025A75,A54A57,A61A70,A72A741040059337333
111SPSAUTOLM                           L012A87,A79A82,A86A87,0400401040059437333
PROCESSING AS FIXED FORM RECORD        L031B18,040040,040040,0400401040059537333
PASS 3 COMPLETED                       L016B34,040040,040040,0400401040059637333
@      NNOPC XFRO LORI JOB             L026B78,B54B58,B60B64,B69B741040059737333
/CS 0 DA S2WSS#MA 3 ENDPMCMN ENT       L032C10,B83B88,B93B97,C02C061040059837333
BRMRTBABBLC BMMBC%D  F3WM2 WDC FCCB    L035C45,C17C22,C23C28,C32C411040059937333
S1DUDCRYMLZ@M  UEUSKPO ORGHSBRK8 SS    L036C81,C53C57,C61C67,C72C761040060037333
YMZ  <CW UWLWTWB MLCZMCSUWMWT          L030D11,C86C87,C91C97,D02D061040060137333
MMCWF2WM2 WDTQSARR6WRFS1EUECR8SRF<2WM  L038D49,D16D25,D29D34,D41D451040060237333
1VBW 9BBC91R  URLRTWF1RMRD F1RLRDWMMU  L038D87,D55D60,D64D70,D77D841040060337333
VBWZ,SW RBBPCCC  C4PCBDMLNUMUWTM       L032E19,D92D96,E01E05,E10E141040060437333
EMCEC EX  UCU ZBBAV5RP .H  LLU         L031E50,E24E29,E34E39,E43E471040060537333
BWMWTB KSSBKBBEFPMRCUBUBSPURMRT SBBE   L037E87,E57E62,E67E71,E77E831040060637333
3WR SS  BB  1 DCWWBBEJ DSALLCA         L030F17,E92E96,F00F05,F09F141040060737333
A DC F1WLWDW7WRP BBINKVBM PBBPB9SPF    L035F52,F23F30,F34F39,F44F491040060837333
M SFX4P  F0RMSD @BBCV}ZS O LTOP EQU    L035F87,F58F62,F69F74,F78F831040060937333
 BBSSF8 CC AA  LBBER/BBU BBCEUBBH      L034G21,F93F99,G03G08,G13G171040061037333
TBBL X DS F2RM2 RDTAMMBD2W  F1WMWD DMN L039G60,G27G32,G41G46,G50G571040061137333
C1RCB6WP XMIZ            {ZA           L030G90,G66G70,G74G83,G86G901040061237333
UUURWUURURWDR4RF  0BAV ZBC9 9BU  /     L034H24,G97H03,H08H10,H15H201040061337333
BCV @BE  SBEF KBER LBH  UBL  TBLC A    L035H59,H30H35,H40H45,H50H551040061437333
BPB PBPCBRBSS BBSS CBSS DBSS EBSS F    L035H94,H65H70,H75H80,H85H901040061537333
BSS G                                  L005H99,I03040,040040,0400401040061637333
!                                      L001I89,040040,040040,0400401040061737333
B/59119                                L008P62,040040,040040,0400401040C0603733L
F3RM2 WDC                              L009C40,040040,040040,0400401040C0623733L
B221L                                  L005R36,040040,040040,0400401040C0963733L
                                       N000000,040040,040040,040040B000061837333
     CONTROL        626    PASS 3    PROCESS FREE FORM INPUT           061937343
B586B524,{02<H09B626106*B991175        L032657,630634,638642,6500401040062037343
B991175LB626175SB626175ZB626185RC118R47L039696,666674,682690,0400401040062137343
B722175CB722175YB626/B727B991/{122A14  L037733,705713,718722,7270401040062237343
B746A14&B753{A13A14B765175CB772MR48175 L038771,742746,753761,7650401040062337343
B784175YB791MR49175B586CA14R51B811TB630L039810,780784,791795,8028071040062437343
M175R52MR53175B848R52RB848R52SMR54175  L037847,818825,833841,0400401040062537343
MA55174M174MR88MMM174105B586           L028875,855859,863864,8658721040062637343
M174111SR44A14CA14R51B872TB630MR57115  L037912,883890,897902,9060401040062737343
B586M173172MR53175MM58125MR62MMR72     L034946,917924,931938,9429431040062837343
M173MR75909MR76969B626N630MM58125      L033979,951958,965969,9730401040062937343
MR76\37B\53S100SSC118R79B\17/          L029\08,987991,995996,997\041040063037343
B\53119 M120R88MC111R94B969SN\53C110R99L039\47,\17\24,\25\32,\37\411040063137343
B906SB\96185RBM65M115R83V626A691C115{01L039\86,\53\61,\65\72,\800401040063237343
BQ75SB626,112L115A69<112B/26115&B      L033/19,\92\96,/00/07,/11/191040063337343
BBB\65,A67B\65112&,A68B\65113&         L030/49,/21/22,/26/30,/38/421040063437343
,A69B\650!                             L010/59,/54/58,/59040,0400401040063537343
B/71A69 BP28BO13A68ABO13A681BP28 !     L034/92,/67/71,/79/87,/91/921040C0613734L
BS11                                   L004/70,040040,040040,0400401040C0633734L
BO13A68PBO13A68JBO13A68XCA69115H099    L035S21,/95S03,S11S18,0400401040C0643734L
C099A78BO13SMS45IIIBO36*               L024S45,S29S34,S41S45,0400401040C0653734L
BS46R52RBS46R52S                       L016840,833040,040040,0400401040C0663734L
B848R82&MR78R82YS53R82B848 !           L028S73,S54S61,S68S72,S730401040C0673734L
D0{0MS72BO36                           L012S45,S38S42,040040,0400401040C0813734L
*!                                     L002S73,S73S73,040040,0400401040C0823734L
BV00                                   L005\01,040040,040040,040040104000043741-
                                       L001S73,040040,040040,040040104000053741-
BV88111.BBBBBBV88111/                  L021V20,V08V09,V10V11,V12V13104000063741-
BBBBBBV88111<B                         L014V34,V22V23,V24V25,V26V34104000073741-
BBBBV88111\BBB                         L014V48,V36V37,V38V46,V47V48104000083741-
BBBV88111$BBBB                         L014V62,V50V51,V59V60,V61V62104000093741-
BBV88111*BBBBB                         L014V76,V64V72,V73V74,V75V76104000103741-
C118R79B\04/332/M{33231Z184236MW27111  L037W13,V84V88,V92V93,W00W07104000113741-
2/\04269<LABEL!                        L015W28,W15W22,W28040,040040104000123741-
                                       N000000,040040,040040,040040B000063637343
     CONTROL        626    PASS 3    PROCESS FIXED FORM INPUT          063737353
B586V503H091<{02A10B554MI82412MM       L032657,630638,645649,6566571040063837353
MMMM412180MA54175M175M175120           L028685,659660,661668,6756791040063937353
MMM414186M345111M337BY71340*B778111,   L036721,687688,695702,7067141040064037353
BBBBB778110-BB                         L014735,723724,725726,7347351040064137353
BBB778110#BBBB                         L014749,737738,746747,7487491040064237353
B778110&BBBBB778110\B                  L021770,758759,760761,7627701040064337353
BBBB798/332/M{33231                    L019789,772773,774778,7827831040064437353
Z1842362C347A55BS70SMA55R88M348M348118 L038827,797798,805810,8178211040064537353
S100SSBM65V854A691BT40A69 B974349      L034861,832833,834838,8468541040064637353
B/84349@BZ09B950360 AR44094M{341K1     L034895,870874,882889,0400401040064737353
AR44094M{37089B/84360@BZ09C348{40B\40S L038933,903910,918922,9290401040064837353
C348{43B\18SB974C348{40B\51SC348{43    L035968,941946,950957,9620401040064937353
B\51SC348{46B/46SV\29A101B\29371       L033\01,974981,986994,0400401040065037353
B\18115 V/541152M3711K3M{34M387172B626 L038\39,\10\18,\25\29,\360401040065137353
M{49118B\02B\29371 M{52118M{55115S090  L037\76,\47\51,\59\66,\730401040065237353
MA55120CH/4371B/15SB\18H/9 A{56089B\84 L038/14,\84\91,\96/04,/110401040065337353
MH/3119MC118{59B\18SM371114B\29B\29371 L039/53,/22/23,/30/35,/42/461040065437353
M371114M{60M371120M115MA56B\29BS183V9@ L038/91,/61/65,/72/76,/80/841040065537353
BBBBBBB                                L007/98,/93/94,/95/96,/97/981040065637353
BAR44094M{621K1BS54HA15S{65A15}A15     L034S32,S00S07,S14S18,S22S291040065737353
AA15089AA15094M3U91K1C089{37B874UB922  L037S69,S40S47,S54S61,S660401040065837353
BT28348 M348119M371120NT20/332/MA09270 L038T07,S78S85,S92S96,T00T011040065937353
F12F1MR76S92,A10B828MR88120            L027T34,T10T11,T13T20,T24T281040066037353
MB828V854A691S100DA68099A099A099       L032T66,T36T40,T48T52,T59T631040066137353
BTG1BP28BU84BU73BX60BX60BU73           L028T94,T71T75,T79T83,T87T911040066237353
BY89BX88BU21M387159MMM                 L022U16,T99U03,U07U14,U15U161040066337353
B626BU62349 MR76118MA67A69LA54MA69115  L037U53,U21U29,U36U43,U470401040066437353
MA12B854M371121B626.000301BU73BV51349* L038U91,U58U62,U69U73,U80U841040066537353
AA54349M118A18MMA21118MA24M353125B586  L037V28,U99V06,V07V14,V18V251040066637353
M174173M354111MA18118M<372371<360      L033V61,V36V43,V50V51,V580401040066737353
BX15114JBW69355&BW69355-BW69355@D339089L039W00,V70V78,V86V94,0400401040066837353
DAA54089C089A27BW80TC089A30BW80SM3V51S1L039W39,W02W09,W16W21,W28W331040066937353
MA31121MA311S2,372371,360B626M387153   L036W75,W47W54,W61W65,W690401040067037353
BW54S090BW333V6 AR44089C089A33BW33SBW84L039X14,W80W84,W92W99,X06X111040067137353
S096M{37089BZ09M172173M{60BW54359      L034X48,X19X26,X30X37,X410401040067237353
M359121BW54BX72349 BZ09C{01A69BQ67SB626L039X87,X56X60,X68X72,X79X841040067337353
BY33349*BY08349 BY15NA54349MA21118     L034Y21,X96Y04,Y08Y15,0400401040067437353
MA34114BX60,338AA54339<338C339A36BY15S L038Y59,Y29Y33,Y37Y44,Y48Y551040067537353
M339122B626M387153MMMM                 L022Y81,Y67Y71,Y78Y79,Y80Y811040067637353
MMMB626BX60116OMA41120M                L023Z04,Y83Y84,Y85Y89,Y97Z041040067737353
BX60HJ20S100BZ623V0 C099A43BZ86SAR44089L039Z43,Z09Z13,Z17Z25,Z32Z371040067837353
AR44094AR44099BZ17C099A45BZ86SBZ863V1  L038Z81,Z51Z58,Z62Z69,Z740401040067937353
BZ25M3U91K1C089{37S091B}16UM{37089     L034}15,Z86Z93,}00}04,}090401040068037353
BJ883V5 VJ213V5KM{603V5,3V63V5AA543V8  L037}52,}24}32,}39}46,0400401040068137353
AA46094M3V81K1M<3V63V5BJ323U9&BJ323U9- L038}90,}60}67,}68}75,}830401040068237353
BJ173V9 AA47094D3V91K1MA49B000MA503V5  L037J27,}99J06,J13J17,J210401040068337353
B}39BJ583V9 AR44094D3V91K1BJ17BJ703V8  L038J65,J32J40,J47J54,J580401040068437353
BJ17AA53089AA53094BJ58BJ173U9&BJ173U9- L038K03,J70J77,J84J88,J960401040068537353
B}750!                                 L006K09,K08K09,040040,0400401040068637353
                                       N000000,040040,040040,040040B000068737353
     CONTROL        085    PASS 4    LEFT HAND IMAGE                   068837413
!00000000000000                        L015099<085085,087092,0970401040068937413
!2SKB9900                              L010194<185185,186190,1921941040069037413
000{0L%U1N75RN000B221LBN75H099         L030224,199200,208212,2172211040069137413
H293Y464099MII0284D280260M284393U%U0B  L037261,229236,243250,2570401040069237413
B366284WM464465M%U0000RB294LB000D280304L039300,270277,285290,2940401040069337413
U%U0BS466465V277465BD280334.000490     L034334,306313,321328,0400401040069437413
M284349M%U0000RB257E.000402B290U%U1E   L036370,342350,355362,3660401040069537413
B4034675A466468M%U0000WB257LB290S468   L036406,379386,394399,4030401040069637413
D280420.000460B386H099H463Y464099      L033439,414421,425429,4330401040069737413
BIH8000!BBBBBB                         L014453,448449,450451,4524531040069837413
BBBBBBB000                             L010463,455456,457458,4594601040069937413
I A  <I98,199B610                      L017480,465466,467469,4734771040070037413
<199B578L%U1N75RN000B221L<N74H99MM83H45L039519,485489,497501,5065131040070137413
B538S100SSB706B610H577                 L022541,524528,529530,5345381040070237413
/080,021H446013M%U4001RB425B221LB000   L036577,546550,557565,5695741040070337413
H609M%U5I18WN000B221LMM86M91B000H705   L036613,582590,594599,6066101040070437413
MM91099M180II7MMMMM                    L019632,621628,629630,6316321040070537413
MMMMMAM88M91B5780970                   L020652,634635,636637,6386451040070637413
VJ85H921V692H871/080,021P001101V4811991L039691,661669,673677,6840401040070737413
S105S100SSB000B520006*D075735          L029720,696700,701702,7067141040070837413
Y075735B520M950BBBM084180V7580062      L033753,728736,737738,7397461040070937413
BV38M018116,N15MM86M98LH62N11MN01089   L036789,758765,769776,7830401040071037413
B8170/5&C089N04AN07089B790TB7980/4&,N/2L039828,798805,812817,8250401040071137413
M015N11S091VN75N111BC61N11 BN75H932S100L039867,836840,848856,8608641040071237413
,0K1N15AN12094AN12099B9250K0,C0K1H60   L036903,875882,889897,0400401040071337413
B929SC094N14B933SB875<N15B000Y188105   L036939,909916,921925,9299331040071437413
B9291753B534HS32MH59H77M095100C099N17  L037976,948952,956963,9700401040071537413
B/50UB\17SC0A8N19B\17/D0A91S7AN22099   L036\12,982987,994999,\060401040071637413
B970B/340A8&BBB\510A8-BB               L024\36,\17\25,\26\27,\35\361040071737413
B\510A8#BBB/50HH74SN25H74M094H65       L032\68,\45\46,\47\51,\55\621040071837413
DH74094MN27M0A9HP0S095100Y0B0HP0D0B0H77L039/07,\76\80,\87\94,/010401040071937413
,1S4AHP01S6<1S4MH65094B970HH74B\270A8- L038/45,/12/19,/23/30,/34/381040072037413
B\55SM98099C099N30BS33TAM98099YH59099  L037/82,/50/57,/64/69,/760401040072137413
MN310B0MM98099P0B11/7H099Y189099MH59II9L039S21,/90/97,S04S08,S150401040072237413
DH771S3B000,N32MM86099Y187105BS660890  L037S58,S29S33,S37S44,S510401040072337413
MN35099MN381G0Y1891{1VS29N321BU09HT85  L037S95,S66S73,S80S88,S920401040072437413
,0K1N15{N41100BT290B1@SN43100BT10      L033T28,T03T10,T18T25,0400401040072537413
C094099BT94SBT860B2,C0B3H60BT94/S095100L039T67,T36T41,T49T56,T610401040072637413
AN44099A099094B000<N15BT61Y187105<N32  L037U04,T75T82,T86T90,T94U011040072737413
BS37B860MN450B0AN12099BT82VU85N461     L034U38,U09U13,U20U27,U310401040072837413
M%U1001RL%U1N75RN000B221LBN75L%U1N75R  L037U75,U47U55,U59U64,U680401040072937413
N000B221LB520175 B534175CM%U1001R      L033V08,U80U85,U93V01,0400401040073037413
M%U1001RL%U1706RN000B221LB706HV77      L033V41,V17V25,V29V34,V380401040073137413
M011113M113H77BW47MH74156AN12198B000   L036V77,V49V56,V60V67,V740401040073237413
HV93BV94H76&B000{H75H76BV82HW27VW24N151L039W16,V82V90,V94W01,W05W091040073337413
Y187105B000HW46{121H76BV78B000HY10     L034W50,W24W28,W32W39,W43W471040073437413
{N44H64BW70H77 BW77MH86H77{H75H71      L033W83,W58W66,W70W77,0400401040073537413
AH77H71AH77H69YH59H71{H48H84DH84H85{   L036X19,W91W98,X05X12,X190401040073637413
BX46H85{AH71H82SN12H85BX20SN12H64      L033X52,X28X35,X42X46,0400401040073737413
VX12H64BSH76BX70ZAN48H79BX70ZYH78H74   L036X88,X61X65,X70X77,X820401040073837413
MH81DH79Y03Y189H72B000BK44021@BL01021# L038Y26,X93Y00,Y07Y11,Y190401040073937413
BY58021&BY58021-M072073MN49,H89B860    L035Y61,Y35Y43,Y50Y54,Y580401040074037413
BY90022@BW05BY90175JVK710222MN52089    L035Y96,Y70Y74,Y82Y90,0400401040074137413
DN44175Y021127MH59021VZ30175KBZ37      L033Z29,Z04Z11,Z18Z26,0400401040074237413
YH59175,H91MN55M98M034153BL54022@      L033Z62,Z37Z41,Z48Z55,0400401040074337413
BL54022&BL54022-B952Y127021Y127140     L034Z96,Z71Z79,Z83Z90,0400401040074437413
MN57107MN57094B}68006 V}68175SV}390062 L038}34,}04}11,}19}27,0400401040074537413
B}68M010121BW28MH76121MH76161B}89      L033}67,}39}46,}50}57,}640401040074637413
A094H58MN58117AH58161B534175PB534175X  L037J04,}75}82,}89}97,0400401040074737413
VJ85H911M051153MMM094107C094N61BJ85U   L036J40,J13J20,J21J22,J29J361040074837413
DN62075VJ63175BY175075MM91099M080II7   L036J76,J48J56,J63J70,0400401040074937413
,H92B638<H91H92VK04H901B534BP31021@    L035K11,J81J85,J92K00,K040401040075037413
BM00022&BM00022-BM00022@BP31S096BS92   L036K47,K20K28,K36K40,K440401040075137413
BW05VL62H911SN64095B}11SN66095VK93H891 L038K85,K52K60,K67K71,K780401040075237413
Y0210K1<H89B}11,022{024H76BV78Y189104  L037L22,K93K97,L01L05,L12L161040075337413
DH76094MC094N69B}11UY188105B}11BK40022@L039L61,L30L31,L38L43,L50L541040075437413
SN43100M099H74C099N72BA57TB{93022@BB82 L038L99,L69L76,L83L88,L960401040075537413
B610MN73175MH31072MMMMH33H32           L028M27,M04M11,M18M19,M20M211040075637413
BV38S096SBY11L%U1N75RN000B221L         L030M57,M32M36,M37M41,M49M531040075737413
BN75L%U1N75RN000B221LB7060000          L029M86,M62M70,M74M79,M83M841040075837413
8{   RSWZ   I9II9GI99                  L021N07,M89M92,M96M99,N02N051040075937413
    A54 04&XI97                        L015N22,N12N13,N15N16,N18N201040076037413
\230000G\ 003###                       L016N38,N26N28,N31N32,N33N361040076137413
5101{B@ 9F&                            L011N49,N42N44,N45N46,N47N491040076237413
01100103*03083{                        L015N64,N53N56,N58N59,N62N631040076337413
2{053006/!                             L010N74,N67N70,N73N74,0400401040076437413
N                                      L001U20,040040,040040,0400401040C0683741L
                                       N000000,040040,040040,040040B000076537413
     CONTROL        2575   PASS 4    JOB/CONTROL CARD OVERLAP          076637423
/084/I99,021081,101106,108114,117128   L036O10,N79N83,N90N97,O040401040076737423
,139157,162167,123,085H99,H44185<H87   L036O46,O18O25,O29O36,O430401040076837423
U%U4RU%U5RU%U6RMR16M91B538M080121      L033O79,O52O57,O62O69,O730401040076937423
MR17175,I98B538BQ71006*C018R20BQ71/    L035P14,O87O91,O95P03,P100401040077037423
D021P29BP37R13 BBBBQ71M021194          L029P43,P22P30,P31P32,P33P371040077137423
{021089SR22090A089A089MQZ7H48MR23H45   L036P79,P51P58,P62P66,P730401040077237423
MQZ4652BQ520216BQ520215BQ330214MR24194 L038Q17,P87P95,Q03Q11,0400401040077337423
LH99I98B610B489LH9931YMR25M31XB469     L034Q51,Q25Q29,Q33Q40,Q44Q481040077437423
LH9971YMR25M71XB469MQ97H48MR24194U%U4B L038Q89,Q59Q63,Q67Q71,Q78Q851040077537423
BQ1800153051708771273456000            L027R16,Q94Q98,R02R06,R10R141040077637423
ICTL3{03%                              L009R25,R18R21,R23R24,R250401040077737423
0000{          DCW                     L021G80,G65G75,G80040,0400401040077837423
/                                      L001H34,040040,040040,0400401040077937423
!00000000000332                        L019H62<H44H44,H45H49,H54H591040078037423
                      {00              L025H87,H68H72,H78H85,H86H871040078137423
00000                                  L005H92<H88H88,040040,0400401040078237423
!                                      L001H99,040040,040040,0400401040078337423
                                       N000000,040040,040040,040040B000078437423
     CONTROL        2575   PASS 4    MAIN LINE OVERLAP                 078537433
MN11167<G34MG36107VO05N111BR06BP310K1  L038O12,N82N86,N93O01,O050401040078637433
B{770K1@LH610K0B860M099H74MM98099      L033O45,O21O28,O32O39,0400401040078737433
BB510B1&BB510B1-B952B{401S3#AG37107    L035O80,O54O62,O66O74,0400401040078837433
VP39G341C089G40BP31TMG43089VP20N151BQ83L039P19,O89O96,P01P08,P160401040078937433
M094M98BO05VQ03N151M0K1139BP58139 BP80 L038P57,P27P31,P39P46,P540401040079037433
BP800K2 M0K2139AG44094C0K3H60BQ11S     L034P91,P66P73,P80P87,0400401040079137433
Y187105BQ11BQ32139 AG44107M107094      L033Q24,P99Q03,Q11Q18,0400401040079237433
M1391O6MH58161AG44161A107H58MH59175B534L039Q63,Q32Q39,Q46Q53,Q600401040079337433
AG44094C094G46BQ95TBQ640K1 BP20Y187105 L038R01,Q71Q78,Q83Q91,Q950401040079437433
BO74MN10139B{32N10 VO05N101VR52N091    L035R36,R06R13,R21R29,0400401040079537433
MN09170MG47B{21C021G48BO05UBR95022,    L035R71,R44R48,R52R59,R640401040079637433
C023H60BR99SMG51170B{21<N15D021170MN09 L038{09,R79R84,R91R95,R99{061040079737433
MG47MG54094Y189101BO74,G34BR21,1S4     L034{43,{14{21,{28{32,{36{401040079837433
M1S6G83MG55<1S4MH621S6M084G63BA89BS92  L037{80,{51{55,{59{66,{73{771040079937433
C099G57BA57TA099089M0J91/5BA430J8!BB   L036A16,{88{93,A00A07,A15A161040080037433
BS100090Y1901/7M1921S2BA82YH621/4Y     L034A50,A18A25,A32A39,A43A501040080137433
YYBA18MH531S2MG58AG44H53M084G63        L031A81,A52A53,A57A64,A68A751040080237433
M0J9GG8M1S2G70VZ90H901M%U6G60WN000B221LL039B20,A89A96,B04B12,B160401040080337433
MH62G63MH33H32<N46VZ90H911BO74C0B2G48  L037B57,B28B35,B39B47,B510401040080437433
MH74099BA57UC099G57BA57TA089099M0J91A4 L038B95,B65B70,B77B82,B890401040080537433
Y1901S1MM98099Y0B11/8MH74099BA32HC60   L036C31,C03C10,C17C24,C280401040080637433
BC57117M122H77BW47MH74170B000MN10175   L036C67,C39C46,C50C57,C610401040080737433
S100DN10099A099A099BCI1BM41BY11        L031C98,C72C79,C83C87,C91C951040080837433
BD63BG10BF92BD63BD74BF00BD38           L028D26,D03D07,D11D15,D19D231040080937433
M080121B534MN09167MH60175MG36107BP39   L036D62,D34D38,D45D52,D590401040081037433
.000402BD63B860BW05B952BE63124XBE89117*L039E01,D70D74,D78D82,D86D941040081137433
}G44H58BE33117 VE781172S095BC28A126H58 L038E39,E09E17,E25E29,E330401040081237433
MH58161B534016OB610BU31}G44H58BC28BE40 L038E77,E47E55,E59E63,E70E741040081337433
BW28AH76H58Y189101BE33B860BW05B952     L034F11,E82E89,E96F00,F04F081040081437433
VF550212BF44117*B534117%BC28B534{126161L039F50,F20F28,F36F40,F440401040081537433
B}82{121H76BV78A126H76B}50175PAH76H58  L037F87,F55F62,F66F73,F810401040081637433
B}75M021117M021H86B534B860BW05B952     L034G21,F92F99,G06G10,G14G181040081737433
B534016XBU31 01C010011                 L022G43,G30G34,G35G37,G38G411040081837433
A51%0###002#                           L012G55,G45G47,G48G49,G52G551040081937433
07$!                                   L004G59,G58G59,040040,0400401040082037433
                                       N000000,040040,040040,040040B000082137433
     CONTROL        2575   PASS 4    PROCESS DA STATEMENTS             082237443
U%U1BU%U1B,F31F55,F58F57BC14021X       L032O06,N80N85,N92N99,0400401040082337443
BO340K2XBC140944AF18094BO07A0K1F17     L034O40,O15O23,O30O34,0400401040082437443
AF19094B860{0J9F24BC730K1XBC910K1G     L034O74,O48O52,O59O67,0400401040082537443
BD060K1\BC650K1CBP060K0 Y187105SH76    L035P09,O83O91,O99P06,0400401040082637443
MF17H67SF18H67VP43H67KAF24H76BP17      L033P42,P17P24,P32P39,0400401040082737443
MH76H67MF25117BP73006 VP980062MH58F30  L037P79,P50P57,P65P73,0400401040082837443
AF18F30AH76H58BQ20M010121<F31BW28      L033Q12,P87P94,P98Q05,Q090401040082937443
MH76F30MF30166MF30AF24166SF18166SF18F30L039Q51,Q20Q27,Q31Q38,Q450401040083037443
<F32V{37F551M180G54MMMM                L023Q74,Q56Q64,Q71Q72,Q73Q741040083137443
MMMMMMMF33175                          L013Q87,Q76Q77,Q78Q79,Q80Q811040083237443
MH62180MH62155MH62127,H87MH62111MF36116L039R26,Q95R02,R09R13,R200401040083337443
MF38107MF30161CH67F42BR82UAF44161      L033R59,R34R41,R48R53,0400401040083437443
Y189101B610SF44H67BR41CH67F48B{20S     L034R93,R67R71,R78R82,R890401040083537443
DH67107DAH67161Y189101B610MG54180M     L034{27,{01{02,{09{16,{20{271040083637443
MMMMMMM                                L007{34,{29{30,{31{32,{33{341040083737443
MM,H87{F18H67CH67F17BB70U<H87          L029{63,{36{37,{41{48,{55{601040083837443
V{90F321M166F53AF18F53,F32B610VE02H881 L038A01,{72{79,{86{90,{940401040083937443
B538BA02006*C019H62BD21/M084180BA45006 L039A40,A06A14,A21A26,A330401040084037443
BV38MF54175S095B860{0J9166CF24166BC39U L038A78,A45A52,A56A60,A67A741040084137443
BB520K0 B860BW05{0J9161CF24161BC39U    L035B13,A87A91,A95B02,B090401040084237443
C161166BC54UAF30161AF30166V{60175KB{37 L038B51,B21B26,B33B40,B480401040084337443
Y188175M166161BB26B610VB89H881Y187175  L037B88,B59B66,B70B74,B820401040084437443
AF18H67AF24161AF24166B{48Y189104{F18F17L039C27,B96C03,C10C14,C210401040084537443
{F18F24BP06HC53Y187105B000Y188105B{90  L037C64,C35C39,C43C50,C54C611040084637443
<F55BC95D0K2127AF56094BO59<F57AF19094  L037D01,C69C73,C80C87,C91C951040084737443
BO59AF18F24<F58BC95,H88VE02F581MF61125 L038D39,D06D13,D17D21,D25D331040084837443
MF65117MMF18175MF67107MF30161AF24161   L036D75,D47D48,D55D62,D690401040084937443
V{37F311MH59117Y189103B{37VE93F571     L034E09,D84D91,D98E02,0400401040085037443
MF70116MF71175MF67107MF53161MF74125    L035E44,E17E24,E31E38,0400401040085137443
VE75F311MH59117Y189103B610BE93AF18H58  L037E81,E53E60,E67E71,E750401040085237443
MF25117BE67U%U4BB538<H88G55BM620000{   L036F17,E89E93,E98F02,F09F131040085337443
AB     *                               L015F32,F19F20,F25F26,F31F321040085437443
ADC 19002{1I000{                       L021F53,F34F37,F39F43,F45F491040085537443
{ C  @\@DC *                           L012F65,F55F56,F57F58,F59F621040085637443
01DCW1@!@                              L009F74,F68F71,F72F75,0400401040085737443
!                                      L001G55,040040,040040,0400401040085837443
CH67F43BR82UAG56161Y189101B610SG56H67  L037R77,R71R67,R60R53,R480401040C1083744L
0002{0000{                             L010F48,F44040,040040,0400401040C1093744L
1I!                                    L003G57,G57040,040040,0400401040C1103744L
                                       N000000,040040,040040,040040B000085937443
     CONTROL        2575   PASS 4    PROCESS LITERALS                  086037453
U%U6ML%U6101WN000B221LBO02KL%U6101WN000L039O13,N80N88,N92N97,O02O101040086137453
B221LU%U6RU%U1BU%U1BU%U1B<Q27/080      L033O46,O19O24,O29O34,O39O431040086237453
,016H90P001101MH62180S096SMQ15116      L033O79,O54O61,O68O72,O730401040086337453
MQ18446M%U6001RB425B221LBP39KM004170   L036P15,O87O95,O99P04,P090401040086437453
MQ19175BV38BY11B610BO80MQ22446L%U6101R L038P53,P23P27,P31P35,P39P461040086537453
B425B221LU%U6R,N46<H90AQ24193BP951920  L037P90,P58P63,P68P72,P76P831040086637453
BU68AQ26191AQ26191BU68DCW013/          L029Q19,P95Q02,Q09Q13,Q16Q191040086737453
1131{9F!                               L008Q27,Q23Q25,Q27040,0400401040086837453
                                       N000000,040040,040040,040040B000086937453
     CONTROL        706    PASS 4    END OF JOB OVERLAP                087037463
U%U6RB610M%U5I18WN000B221LU%U5MU%U5R   L036741,711715,723727,7327371040087137463
/085<G59H44<185L%U1Z25RN000B221LL198L93L039780,746753,757765,7697741040087237463
L194L89BM000!                          L013793,788792,793040,0400401040087337463
MH44Z24,Z24BM00 !                      L017804,795799,803804,0400401040C0973746L
                                       N000000,040040,040040,040040B000087437463
     CONTROL        1925   PASS5     INITIALIZE                        087537513
CL30L26BX67SAL36L30ML30099MIA7080MM    L035Z59,Z32Z37,Z44Z51,Z58Z591040087637513
MMMMMMM                                L007Z66,Z61Z62,Z63Z64,Z65Z661040087737513
S100SSB114ML30099M080IA7M              L025Z91,Z71Z72,Z73Z77,Z84Z911040087837513
MMMMMMM                                L007Z98,Z93Z94,Z95Z96,Z97Z981040087937513
MBZ25H089H}76YL37089MIZ0}67D}63}43     L034}32,}00}04,}08}12,}19}261040088037513
M}67J76U%U0BBJ49}67WML37L38M%U0000R    L035}67,}40}45,}53}60,0400401040088137513
B}77LB000D}63}87U%U0BSL39L38V}60L38B   L036J03,}73}77,}84}89,}960401040088237513
D}63J17.000590M}67J32M%U0000RB}40E     L034J37,J11J18,J25J33,0400401040088337513
.000511B}73U%U1EBJ86L405AL39L41M%U0000WL039J76,J45J49,J54J62,J690401040088437513
B}40LB}73SL41D}63K03.000560BJ69H089    L035K11,J82J86,J90J97,K04K081040088537513
HK46YL37089BIY8I31!BBBB                L023K34,K16K23,K31K32,K33K341040088637513
BBBBBBB                                L007K41,K36K37,K38K39,K40K411040088737513
BB000L%U1001RN000B}04L<Y68BS90         L030K71,K43K47,K55K59,K64K681040088837513
L%U6001RN000B}04L<Z24BY13I97L99        L031L02,K80K84,K89K93,K97L001040088937513
      V00   015{     080               L024L26,L09L12,L15L19,L23L241040089037513
#000{I188{I A                          L013L39,L28L32,L35L37,L38L391040089137513
                                       L002L41,040040,040040,0400401040089237513
U%U4RU%U5RU%U6R/I99,Q66LQ68L95LQ72L99  L037M36,M05M10,M15M19,M23M301040089337513
LQ76L88L%U1001RN000B}04L<R01ML89Q77    L035M71,M44M52,M56M61,M650401040089437513
AQ78Q77DQ77M89Y109M99LQ66I98VP18M992   L036N07,M79M86,M93N00,0400401040089537513
/79Z/39ZMQ79W81BO20L894MQ52L26MQ56L18  L037N44,N12N16,N23N31,N380401040089637513
MQ59L11MQ62L34MQ65Q82AQ84L88BO62L895   L036N80,N52N59,N66N73,0400401040089737513
AQ87L18AQ89L88Y113L11Y113L34Y113Q82BO62L039O19,N88N95,O02O09,O160401040089837513
MQ36L26MQ40L18MQ43L11MQ46L34MQ49Q82    L035O54,O27O34,O41O48,0400401040089937513
AQ91L88YL34K99MQ82Z54MQ82Z90ML34X73    L035O89,O62O69,O76O83,0400401040090037513
ML34X98ML34Q94#Q96Q94MQ94K29MW81L27    L035P24,O97P04,P11P18,0400401040090137513
LQ66Z24/080,001006,017024,028035,057062L039P63,P32P36,P43P50,P570401040090237513
,068071L%U6001WN000B}04L<Z24Q66CL93L18 L038Q01,P71P79,P83P88,P950401040090337513
ML18L99SL93BY13SBY13UMR00L99BY13400    L035Q36,Q09Q13,Q18Q23,Q30Q341040090437513
051{/0\E9YEIX800087{70}                L023Q59,Q41Q44,Q47Q50,Q53Q571040090537513
A9QAIP!00015{0015 C                    L019Q78,Q63Q67,Q69Q73,Q77Q781040090637513
#   7B40{4{3F                          L016Q94,Q80Q83,Q85Q88,Q90Q921040090737513
1C000I!                                L007R01,Q97R01,040040,0400401040090837513
BL42                                   L004K96,L76L76,040040,0400401040C0033751L
U%U6R,Z24L%U6001WN000B}04L<Z24BY13     L034L75,L47L51,L59L63,L68L721040C0043751L
<R02                                   L004M64,040040,040040,0400401040C0693751L
#Q97Q94                                L007P10,040040,040040,0400401040C0703751L
MR01L99                                L007Q29,040040,040040,0400401040C0713751L
013000I!                               L008R02,Q98R02,040040,0400401040C0723751L
                                       N000000,040040,040040,040040B000090937513
     CONTROL        001    PASS5     MAIN LINE                         091037523
2SKB                                   L004113,040040,040040,0400401040091137523
2SKB                                   L004109,040040,040040,0400401040091237523
000                                    L003089,040040,040040,0400401040091337523
000                                    L003094,040040,040040,0400401040091437523
000                                    L003099,040040,040040,0400401040091537523
VZ77005KBZ77075%B219075 D075094B8710940L039152,122130,138145,0400401040091637523
MY92Y69MY92Y68A094A094B1P9N000B260     L034186,160167,171175,1791831040091737523
B260B973B992BZ77B376B295BZ77           L028214,191195,199203,2072111040091837523
BZ77MY92Y69B\03B/09VZ770032A007Y48     L034248,219226,230234,2420401040091937523
SY93Y48BZ77B283017*MY93Y67B/09BZ77B\03 L038286,256260,268275,2792831040092037523
B/09BZ77B361017%A027Y69B260017*V2600172L039325,291295,303310,3180401040092137523
V3380012B260BU35MY72S97V/810012B260    L035360,334338,342349,3570401040092237523
M019060MY92B260V405033B{061032AY93032  L037397,368372,376384,3910401040092337523
Y113033B432Y601CY48Y58B432U{Y48Y58     L034431,405413,420425,0400401040092437523
B536008 MY96089MY99S97V4660022B536     L034465,440447,454462,0400401040092537523
B502066 BT58BW29BS69Y641BS69Y630B/81   L036501,474478,482490,4980401040092637523
B/81Y591B/81Y611MY48066AY93066B474     L034535,510518,525532,0400401040092737523
V5480012B761B708017*MY92Y61SY48B735017 L039574,544548,556563,5670401040092837523
MY92Y66S090BU35B609Y661MZ01Y60B813     L034608,582586,590598,6050401040092937523
M061Y53MY92Y59B635024XB669B655017*     L034642,616623,631635,0400401040093037523
CY53Z03B669SMZ03Y53AY93Y51AY53032      L033675,650655,662669,0400401040093137523
{Y53061{032Y48SY93Y48Y113001BZ77       L032707,683690,697704,0400401040093237523
BZ77Y591B598Y611MY48Y53B616B598Y601    L035742,716724,731735,0400401040093337523
MY58Y53AY93Y53B616{032Y48SY93Y48       L032774,750757,761768,0400401040093437523
B821017*MY92Y61V8060172V609001KMY92Y59 L038812,783790,798806,0400401040093537523
SY53BZ77BZ77024XVZ77034BAY53032BZ77Y591L039851,817821,829837,8440401040093637523
BZ77Y611Y113034B761B9260750B910Y671    L035886,860867,871879,0400401040093737523
C061066B906TMY96099B\03BZ77075\B/09BZ77L039925,894899,906910,9189221040093837523
MY92Y69A027Y69MY93Y68MY92Y67B887017*   L036961,933940,947954,0400401040093937523
MY93Y67B910VZ77075BMZ04X84BX67M017L23  L037998,969973,981988,9920401040094037523
BZ77H\89MY92Y67V\90002KV\86003BB\86Y591L039\37,\03\07,\14\22,\300401040094137523
AY53061AY53066CY480F1B\71T{0F1Y48      L033\70,\45\52,\59\64,0400401040094237523
B\86Y611Y113003B000MY72S97BT25075/B\22 L038/08,\79\86,\90\97,/050401040094337523
HS97V/250022BS94BS80008 B/57Y671       L032/40,/13/21,/25/33,0400401040094437523
BS07Y611BS07Y591BT58BW29BS98Y641       L032/72,/49/57,/61/65,0400401040094537523
BS69Y630MY93L94AY93L93BS50075/BS94     L034S06,/81/88,/95S03,0400401040094637523
B/81008$BT58BW29B/81Y640B/81M}0 Y112002L039S45,S15S19,S23S31,S390401040094737523
BS94BS94008$MZ01Y61BS94LL08M}9LZ12     L034S79,S50S58,S65S69,S760401040094837523
Y113002MY93L95B000BS69M}0 Y112002      L033T12,S87S94,S98T06,0400401040094937523
BT25075/BS94VS94004BMZ05075S007Y53     L034T46,T21T25,T33T40,0400401040095037523
S007Y48BS94HU34M013L08M056Z08BT88L08   L037T83,T54T58,T62T69,T760401040095137523
BT95ML23L08M0W1Z12BU170V70Y111Z09      L033U16,T88T95,U02U10,0400401040095237523
DY69U27Y113Z11B000HU87MZ15U34M022L08   L036U52,U24U31,U35U39,U460401040095337523
M070Z08BT76BW29BV03Y641BU88Y630B000    L035U87,U60U64,U68U76,U840401040095437523
LL08M}9LZ19BU84BU84M}0 MY93Y66VV30M}12 L038V25,U95U99,V03V11,V180401040095537523
BV37Y111M}1MM}3061BW18058%VV670582     L034V59,V30V37,V44V52,0400401040095637523
MY93057BU84075OY060Z20A026061YZ20060   L036V95,V67V75,V82V89,0400401040095737523
BW18027 DY69W14Y113060Y113001BU84HX66  L037W32,W04W11,W18W25,W290401040095837523
MY65Y64ML11L14MZ08094ML99L22CL08M}9    L035W67,W40W47,W54W61,0400401040095937523
BX45SBX63M}4 AZ23094SY93L22VX56L22K    L035X02,W73W81,W88W95,0400401040096037523
C094L14BW61/BX56Y621MY93Y62MZ08L14S095 L038X40,X10X15,X23X30,X370401040096137523
BW61MY93Y64BX63MY93Y63B000M%U6I18WN000 L038X78,X45X52,X56X63,X67X751040096237523
B}04LNY73SL31M%U5I18RBK08B}04LBZ37     L034Y12,X84X88,X92Y00,Y04Y091040096337523
MK99Y23/000HY23CY23L02BY20/BX880000{   L036Y48,Y20Y24,Y28Y35,Y40Y441040096437523
0000{0000{0000000000                   L020Y68,Y54Y59,Y62Y66,Y67Y681040096537523
0Z77U%U6MU%U5RU%U6RBK470               L024Y92,Y70Y73,Y78Y83,Y88Y921040096637523
1005536110{B%                          L013Z05,Y94Y97,Z00Z02,Z04Z051040096737523
       U64     010!                    L019Z24,Z09Z13,Z16Z20,Z21Z241040096837523
0033B                                  L005Y58,040040,040040,0400401040C0373752L
V\64003B                               L008\29,040040,040040,0400401040C1073752L
                                       N000000,040040,040040,040040B000096937523
     CONTROL        001    PASS 6    MAIN LINE                         097037613
000000000000000                        L015101,092097,040040,0400401040097137613
2SKB2SKBMU32U18VZ77005KBZ77075%D075U33 L038143,110114,121129,1370401040097237613
B196U33 B318U332B446U333BS79U334       L032175,152160,168040,0400401040097337613
B489U336B489U337BZ77V2080032B215MU34U18L039214,184192,196204,2080401040097437613
{061U39A007U39SU34U39BZ770071BZ770072  L037251,222229,236244,0400401040097537613
V2640012B268B578BZ770074BZ770075       L032283,260264,268276,0400401040097637613
V2960042BZ77MU42099MU45089B578BZ77     L034317,292296,303310,3140401040097737613
V3300032B434MU34U18{061U39MU42099      L033350,326330,337344,0400401040097837613
MU45089V3700042BZ77B578VZ770042B409027-L039389,358366,370374,3820401040097937613
MU48/78BZ77071%B\94MU53L07SU58L07      L033422,397405,409416,0400401040098037613
{L07U58B390V3370042BZ77SU39V4620012B466L039461,430434,442446,4504581040098137613
B574017 V5740172B574017*B574017%B578   L036536,509517,525533,0400401040098337613
V5740012MU32U28B567U337Y112001MU58061  L037573,545552,560567,0400401040098437613
BZ77H/78V5940{12B/75B9420/7 B9500/7%   L036609,578582,590594,6020401040098537613
VS210/72B/900/7*B6380F8 B804M0S2U65    L035644,618626,634638,0400401040098637613
B657U65 B664ML23U65{U66U68{U63U72      L033677,653657,664671,0400401040098737613
AU65U72AU65U70Y110U72{L88U26DU26U27{   L036713,685692,699706,7130401040098837613
B740U27{AU72U24SU73U27B714SU73U68      L033746,722729,736740,0400401040098937613
V706U68BMU760G0B767ZAU78U21B767ZYU200G0L039785,755762,767774,7790401040099037613
MU23DU21800Y1090F8M0S2L08B823L08 B830  L037822,790797,804811,8190401040099137613
ML23L08ML11L14MU32U19M0G0094ML99L22    L035857,830837,844851,0400401040099237613
CL08M}9B980SB961M}4 AU81094SU34L22     L034891,865870,878885,0400401040099337613
V961L22KC094L14B858/B961U191MU34U19    L035926,900907,912920,0400401040099437613
M0G0L14S095B858SU58B\49M0/90G0B/68     L034960,934938,942946,9509571040099537613
B/75U280MU840G0B/75B961M}0 V\00M}12B\07L039999,969976,980988,9960401040099637613
Y111M}1MM}3U58MU32B/79U55%V\41U552     L034\33,\07\14,\18\26,0400401040099737613
MU34U54B\78U336YU57U85B\780S4XA0S6U58  L037\70,\41\49,\56\64,0400401040099837613
YU85U57V/68075KB/68U332B\99ZAU87U55    L035/05,\78\86,\94\99,0400401040099937613
B\99ZYU54U58DU55/28Y109U56YU85U57      L033/38,/11/18,/25/32,0400401040100037613
B/610S7 D0S7/57Y113U57MU580G0Y1130{1   L036/74,/47/54,/61/68,0400401040100137613
B000MU570G0B/68BS020S2 B626B/75U181    L035S09,/79/86,/90/98,S020401040100237613
MU39U58B\49B6260/7#B6260/7@VS490/82B626L039S48,S17S21,S29S37,S450401040100337613
{0S1U58BS68U58&B\49{U57U58BS56M017L23  L037S85,S56S64,S68S75,S790401040100437613
BZ77,U30L%U6U29R<U30/080,001006,017024 L038T23,S90S94,T02T06,T10T171040100537613
,028035,057062,068071ML27878MU88J15    L035T58,T31T38,T45T52,0400401040100637613
MU88K01MU88J42ML34X73ML34X98MU89L23    L035T93,T66T73,T80T87,0400401040100737613
BU07L950BBX88MU34U28BX8800             L026U19,U02U03,U07U14,U18U191040100837613
       {0 ! 0 1                        L015U34,U27U28,U29U32,U33U341040100937613
     003011Z771600{     B              L025U59,U40U43,U46U49,U54U591040101037613
      B      A0009F                    L019U78,U66U67,U69U73,U74U771040101137613
010### 966                             L011U89,U82U85,U86U88,U890401040101237613
M%U5I18WN000B}04LNY13SL31M%U6I18RBK08  L037Y03,X75X79,X84X88,X92Y001040101337613
B}04LBZ37U%U5MU%U6RU%U5RL%U1333RN000   L036Y39,Y09Y13,Y18Y23,Y28Y361040101437613
B}04L<S45ML27474ML27726B333 !          L029Y68,Y45Y49,Y56Y63,Y67Y681040101537613
<S54                                   L004Y48,040040,040040,0400401040C0983761L
                                       N000000,040040,040040,040040B000101637613
     CONTROL        333    PASS 6    PRINT SYMBOLS                     101737623
/332/S100SS,/80B474M}4                 L023355,337338,342343,3443481040101837623
B474M}0 B530M}4<CM}4/81B441UCM}4/82    L035390,364372,379384,0400401040101937623
B441TDM}4099V433M}4BA/85099V433M}4K    L035425,396403,411418,0400401040102037623
A/85099,/D8S101V453M}12B474V502/801</80L039464,433437,441449,4534611040102137623
B5382/216A/85094C094L11B646SB502@      L033497,469470,474481,4884931040102237623
B348F1MS04219FT2/219V461/801           L028525,502504,511513,5145181040102337623
B348,/78B441H634MM}92\6B635M}0%DM}32/2 L038563,530534,538542,5495571040102437623
DDDV582M}02MS052\8V631M}22DS052/5      L033596,565566,567575,5825901040102537623
MS07V631M}2SDS082/5V631M}2KDS092/5B000 L038634,601609,616624,6310401040102637623
MM}32/2B631B859S100SS,S10              L025659,642646,650654,6556561040102737623
V687/D91B888/D9@AS11099B656B668/D9}    L035694,668676,683687,0400401040102837623
B668/D9\B668/D9/M/D9725B777M}4XA/85094 L038732,703711,718726,0400401040102937623
C094L11B718/S095SAS11099<S10V812S181   L036768,740745,749750,7577611040103037623
,S18B847B726M}0 B538,S18AS14089C089S17 L038806,773777,785789,7938001040103137623
B726/2<S18/332/S090V842S101            L027833,812813,817821,8228261040103237623
B888/D9@B859@V726S101B656H887/332/     L034867,842847,855859,8638671040103337623
F1MS302122FK/212B000V898/801           L028895,870877,878880,8848881040103437623
F1/332///B997U281U%U1B                 L022917,898902,903904,9059131040103537623
U%U1BMS31J15MS31K01MS31J42MS33L95      L033950,923930,937944,0400401040103637623
MS34L23CL93L18ML18L99SL93BK72SBK72U    L035985,958965,972976,9810401040103737623
MS38L99BK72<U30/I99B\44L893/79Z/       L032\17,993997,\01\05,\13\171040103837623
///////I99                             L010\27,\19\20,\21\22,\23\241040103937623
H\27C\27S41B\24/L%U1Z00RB\68LMS42Z00   L036\63,\32\39,\44\52,\570401040104037623
BZ01MS43S44U%U1BL%U1Z00RB\97LB\57U%U1B L038/01,\68\75,\80\88,\93\971040104137623
SS05S44V\80S44B.000691L%U1Z00RB\68E    L035/36,/09/17,/24/32,0400401040104237623
.000612B\57                            L011/47,/44040,040040,0400401040104337623
 ABCDEFGHI}JKLMNOPQR\/STUVWXYZ<@ AZ010 L038/85,/80/81,/82/83,0400401040104437623
UNREFERENCED LABELS1&X23 A             L026S11,S05S06,S08S09,S10S111040104537623
016128 SYMBOL TABLE500                 L023S34,S15S18,S19S31,S32S341040104637623
000IY99NI !                            L011S45,S39S42,S43S44,S450401040104737623
<Z24B997 !                             L010S54,S49S53,S54040,0400401040C0993762L
BS45                                   L004908,040040,040040,0400401040C1003762L
                                       N000000,040040,040040,040040B000104837623
     CONTROL        1900   PASS 7    INITIALIZATION 1                  104937713
B/332///L%U1400RN000                   L020Z19,Z01Z05,Z06Z07,Z08Z161040105037713
BM03L<X99O93,I98LI98333LI98181MZ00407  L037Z56,Z25Z32,Z36Z43,Z500401040105137713
MZ00O91<I98U%U4RU%U5RU%U6R,172176      L033Z89,Z64Z68,Z73Z78,Z830401040105237713
AO96175BT15CH48O99B}78/<P00M%U5180R    L035}24,Z97}01,}08}13,}170401040105337713
L333181MI02O85MI10180MI14P04MH32P06    L035}59,}32}39,}46}53,0400401040105437713
MH35P09MH41P15BT15CH48P18B407/<P19     L034}93,}67}74,}78}85,}900401040105537713
MH60P29MI14P33MH32P35MH35P38BT15       L032J25,J01J08,J15J22,0400401040105637713
BK14P241B407P220B400P221B407P222       L032J57,J34J42,J50040,0400401040105737713
B400P223B407P224B400P225B407P226       L032J89,J66J74,J82040,0400401040105837713
B400P227B407P22 <P39B407<O92BJ34U%U4B  L037K26,J98K06,K10K14,K18K221040105937713
,001006,008014,023057,062067,068071,074L039K65,K34K41,K48K55,K620401040106037713
<181333MO27O23LP71171LP75189LP80101L101L039L04,K73K80,K87K94,L010401040106137713
L,O95BL49O331VL30O931BL49VL42O921BL49  L037L41,L06L10,L18L26,L30L381040106237713
MP81O94MP22O90L%U6O21WN000BM03LU%U6R   L036L77,L49L56,L64L68,L730401040106337713
<O95L%U1201RN000BM03LB201H094HM75      L033M10,L82L90,L94L99,M03M071040106437713
YP82094MIR0M66DM62M42MM66N75U%U0B      L033M43,M18M25,M32M39,0400401040106537713
BN48M66WMP82P83M%U0000RBM76LB000DM62M86L039M82,M52M59,M67M72,M760401040106637713
U%U0BSO96P83VM59P83BDM62N16.000790     L034N16,M88M95,N03N10,0400401040106737713
MM66N31M%U0000RBM39E.000711BM72U%U1E   L036N52,N24N32,N37N44,N480401040106837713
BN85P845AO96P85M%U0000WBM39LBM72SP85   L036N88,N61N68,N76N81,N850401040106937713
DM62O02.000760BN68CLEAR STORAGE 000{080L039O27,N96O03,O07O21,O250401040107037713
 39990                                 L006O33,O33040,040040,0400401040107137713
                                       L039O72,040040,040040,0400401040107237713
             0000                      L020O92<O73O73,O86O90,O91O921040107337713
  !AJOB                                L014P06,O94O96,O97P00,P01P051040107437713
         CTL                           L029P35,P10P16,P19P20,P30P341040107537713
    L0     ,      ,      ,      1      L036P71,P39P40,040040,0400401040107637713
2SKB000001I                            L014P85,P76P81,P82P83,P84H311040107737713
                                       L001001,H31H33,H36H46,H51I111040107837713
!                                      L001I98,040040,040040,0400401040107937713
LP75199                                L007K93,040040,040040,0400401040C0733771L
BW37H43*BB/56                          L014P99,P94P95,P99040,0400401040C0743771L
B314                                   L004M02,040040,040040,0400401040C0753771L
                                       N000000,040040,040040,040040B000108037713
     CONTROL        400    PASS 7    INITIALIZATION 2                  108137723
MT64O33B/03FV422O931F1MT64215MO20      L033432,407412,420422,4290401040108237723
MT64200V544P191CP21T65B464TB544CP21T66 L038470,440448,455460,4640401040108337723
B540TMT89152LU18M152272BS17MU33171MU60 L038508,476483,487494,4985051040108437723
LU89B651P214B669P215MU91O29B683<P39    L035543,513521,529536,5400401040108537723
MV02144LV35M144264BS17MV61170LW05      L033576,551555,562566,5730401040108637723
B683P213YW06127MT64O29B683P212MW07127  L037613,585592,599607,0400401040108737723
MT65O30B683P211<P39MW08127MW10O30B683  L037650,621629,633640,6470401040108837723
YW06129MW11O29B683YW12129MW14O29M171291L039689,658665,669676,6830401040108937723
MW15215MO20BS17MW26171MW44146LW72      L033722,697701,705712,7190401040109037723
M171291MW81209BS17V751O931FKV818P191   L036758,730737,741749,7510401040109137723
CP20T65B818SB814UCP20T66B814TMW84O27   L036794,766771,776783,7880401040109237723
B818P204AW84O27B818<P39MT64314MW88309  L037831,803810,814818,8250401040109337723
MO85278M180290MW89200B\61V867O931FK/278L039870,839846,853857,8658671040109437723
MY54332MX58234MW89200B\61/332/B\61     L034904,878885,892896,9009011040109537723
V970P001ZP04204ZP06207YP06207MP09211   L036940,913920,927934,0400401040109637723
MP15219MX61223MO85278B\61/278V\50P191  L037977,948955,962966,9700401040109737723
ZP33204ZP35207YP35207MP38211MP29236    L035\12,985992,999\06,0400401040109837723
MX64223V\42P391MX77328AX78O89B\61BK22  L037\49,\20\28,\35\42,\460401040109937723
MX93330B\35H/02V\74O9312V\99O921       L032\81,\57\61,\65\73,\740401040110037723
M%U3200WN000BM03LB000LW89P22LW89O33    L035/16,\90\94,\99/03,/100401040110137723
MX94P24,O92B/68BB/79CB/90GBS01DBS09E   L036/52,/24/28,/33/38,/43/481040110237723
<P22MX95407BJ26AX78P22B/33AX96P22B/38  L037/89,/57/64,/68/75,/79/861040110337723
AX97P22B/43<O92B/48,O93B/53HT14        L031S20,/97S01,S05S09,S13S171040110437723
Z175314VS37O9312VS86O921M%U3200WN000   L036S56,S28S36,S37S45,S530401040110537723
BM03LMX98100M%U3100WN000BM03LBS95O3304 L038S94,S62S69,S77S81,S86S941040110637723
AX78175/332//171B000HT39M%U4H31R       L032T26,T02T06,T07T11,T15T191040110737723
BT40BM03LB000BT19H43!BBB               L024T50,T31T36,T40T48,T49T501040110837723
BBBBBBB                                L007T57,T52T53,T54T55,T56T571040110937723
BBBT31136,053053N000000N00001026       L032T89,T59T60,T64T65,T66T671040111037723
,008015,022026,030037,044,049          L029U18,040040,040040,0400401040111137723
1,001/001117I0{                        L015U33,040040,040040,0400401040111237723
#071029C029056B026/B001/099            L027U60,040040,040040,0400401040111337723
L068116,105106,110117B101/I9I15        L031U91,U90040,040040,0400401040111437723
,0570571026                            L011V02,040040,040040,0400401040111537723
,008015,019026,030,034041,045,053      L033V35,040040,040040,0400401040111637723
B0010270B0261,001/001113I0             L026V61,040040,040040,0400401040111737723
L068112,102106,113/101099/I99,027A07002L039W00,040040,040040,0400401040111837723
8<027STI39                             L010W10<W01W01,W06W07,W08W091040111937723
7K112,0010011040,061068,072/061039     L034W44,W12W13,W15W16,W270401040112037723
,008015,022029,036040,047054BOOTSTRAP  L037W81,W73040,040040,0400401040112137723
400PAGE0                               L008W89,W85W89,040040,0400401040112237723
SFX CT  LOCN  INSTRUCTION TYPE  CARD   L036X25,040040,040040,0400401040112337723
SEQ PG LIN  LABEL  OP    OPERANDSJOBCTLL039X64,X59X62,040040,0400401040112437723
BAD STATEMENTANO CONTROL CARD NBD      L033X97,X78X79,X94X95,X96X971040112537723
&!                                     L002X99,040040,040040,0400401040112637723
SFX CT  LOCN  INSTRUCTION  A-ADDR   B-AL039Y39,040040,040040,0400401040X0013772L
DDR  TYPE  CARD                        M015Y54,040040,040040,0400401040X0023772L
!                                      L001Y55,040040,040040,0400401040X0033772L
                                       N000000,040040,040040,040040B000112737723
     CONTROL        201    PASS 7    MAIN LINE 1                       112837733
L%U1}00RN000B334LL%U6B98RN000B334LU%U6RL039239,209213,218226,2302351040112937733
<C72D56<Z94H27,333181,U17L%U6794WN000  L037276,247254,261265,2730401040113037733
B334LU%U6R<U17{D57F13B543C711BA24B595  L037313,282287,291298,3063101040113137733
                                       L001314,040040,040040,0400401040113237733
!H094H406Y538094MIR0397                L023355<333333,334338,3423491040113337733
D393373M397506U%U0BB479397WM538540     L034389,363370,375383,0400401040113437733
M%U0000RB407LB000D393417U%U0BS539540   L036425,398403,407414,4190401040113537733
V390540BD393447.000790M397462M%U0000R  L037462,434441,448455,0400401040113637733
B370E.000712B403U%U1EB5165415A539542   L036498,468475,479484,4920401040113737733
M%U0000WB370LB403S542D393533.000760B499L039537,507512,516520,5275341040113837733
IA   LC68201LM%U1332R                  L021558,539540,541543,5505511040113937733
<181333L%U1}00RN000B334LM201}01MB}02   L036594,566574,578583,5905911040114037733
/332/BB09,D58D075D59BS85075%BS850758   L036630,599600,604608,6156231040114137733
BS85075IBS85075HB881080 BJ72H36*       L032662,639647,655040,0400401040114237733
B805I05RB794I05WB812I05SB812I05ZCH48D54L039701,671679,687695,0400401040114337733
B843SC080I14B{83/BT01<D58BV43075       L033734,707714,719723,7270401040114437733
D075094A094A094B7N4BW52B\62B969        L031765,742746,750754,7587621040114537733
B{94BL43BS78BK12BK85BS78BS78           L028793,770774,778782,7867901040114637733
MD63326B812MD68327BT01B828I167BJ85     L034827,801805,812816,8240401040114737733
MD76327BL28BJ85MI02C62V862G271BP62     L034861,835839,843850,8580401040114837733
MI10180SF13B}00B812B924075Y<068Z070211 L038899,869873,877881,8898931040114937733
,068B944075SB999D591BS78,227M072278M   L036935,904912,920924,9289351040115037733
MMMMBS85MD81327,227                    L019954,937938,939940,9449511040115137733
M053240M016223M073295M073D95BS45       L032986,962969,976983,0400401040115237733
BL09073#B/56V\41075SVS28001BMD86327    L035\21,995999,\07\15,0400401040115337733
B\48075AMD87323B\48MD90325M053257      L033\54,\30\37,\41\48,0400401040115437733
M016223BS45AD92007C007D92B\96TY188005  L037\91,\62\66,\73\80,\850401040115537733
B/56B/83227#V/83004BM278E43B/56227@    L035/26,\96/04,/12/19,0400401040115637733
V/722272M007089YD332S7Y227DZ2BU18BL54  L037/63,/35/42,/49/56,/600401040115737733
BY54BS85M278E44B/56V/95D581B/56M013219 L038S01,/68/72,/79/83,/91/951040115837733
MD31231M007ME45ME49326B/56BS45BL54     L034S35,S09S13,S17S24,S28S321040115937733
/332/BS85HS77{061E83ME83S007E78        L031S66,S40S41,S45S49,S56S601040116037733
AD55E78B000.000770BA24V604D581B600HT89 L038T04,S74S78,S85S89,S97T011040116137733
ZI14204ZH32207YH32207MH35211MH41219    L035T39,T12T19,T26T33,0400401040116237733
MH50225MI02278BT90I05ZBT90I05YBT97I05C L038T77,T47T54,T62T70,0400401040116337733
BT97I05SB000ME51327ME54325BJ97I16BBT86 L039U16,T86T90,T97U04,U12U161040116437733
!HV01Z007284MG18280D061290             L026U42<U17U17,U18U22,U29U361040116537733
MVU660602ME55292YD30289BV020570VV13002KL039U81,U44U52,U59U66,U740401040116637733
VV28005KVV28005SB000MD30286BU74ME60327 L038V19,U90U98,V02V09,V130401040116737733
BL28BU82ME73328BL28BU98M074303M073301  L037V56,V24V28,V35V39,V43V501040116837733
M070297M067293M074E00MMMM061E78        L031V87,V64V71,V78V79,V80V811040116937733
M061E83A007E83SD55E83BL09073#BL09070#  L037W24,V95W02,W09W17,0400401040117037733
BW37067 B/56ME86323BL28B/56BX410750    L035W59,W33W37,W44W48,W520401040117137733
M066E78ME91327VW93075BME94325BK62BU18  L037W96,W67W74,W82W89,W930401040117237733
BL54BY54BA24BX21075\B600M066E78BL54    L035X31,X01X05,X09X17,X21X281040117337733
/332/BX05VY24004BBU18D066297M          L029X60,X36X37,X41X49,X53X601040117437733
M061E78BL54BA24C016E97BX96/BX53075\    L035X95,X68X72,X76X83,X880401040117537733
BY392930C297C09BK97TBY54B600MF06329BL28L039Y34,Y04Y11,Y16Y20,Y24Y311040117637733
BX49HY53MD30293B000HZ50BY86290 BY86D597L039Y73,Y39Y43,Y50Y54,Y58Y661040117737733
C290F11BJ57UVY95C7012BJ24BZ19D597      L033Z06,Y81Y86,Y94Y95,Y990401040117837733
C290C09BK97T/332/BZ470753AD55F13       L032Z38,Z14Z19,Z23Z24,Z320401040117937733
BZ51F125B000B}00SF13BZ47L%U6794RN000   L036Z74,Z47Z51,Z55Z59,Z63Z711040118037733
BZ51@NN                                L007Z45,Z44Z45N222222N3333331040        -
B334L<U17U%U6RBS85 !                   L020Z94,Z80Z84,Z89Z93,Z940401040118137733
B183                                   L004W36,040040,040040,0400401040C0763773L
LP98195LLB201                          L014327,321322,323327,0400401040C0773773L
Y198005                                L007\91,040040,040040,0400401040C0783773L
NW37067B\0\                            L011W36,W33040,040040,0400401040S0043773-
                                       N000000,040040,040040,040040B000118237733
     CONTROL        2000   PASS 7    MAIN LINE 2                       118337743
HJ23MF17309AD55C84ZC84314MC62278M180290L039}38,}04}11,}18}25,}320401040118437743
V}52C701F12NKMD29200BJ24/332           L028}66,}47}49,}50}52,}59}631040118537743
/MX9U332MF86234V}91C7012MF87200BJ24    L035J01,}68}75,}82}90,}91}981040118637743
/332/VJ16C7012BJ24B000HJ56             L026J27,J06J07,J15J16,J20J241040118737743
VJ53C691M%U3200WN000B334LB000MF92332   L036J63,J36J44,J48J53,J570401040118837743
BL28BY86BT01MI02280MMBY54              L025J88,J68J72,J76J83,J84J851040118937743
BB09B655MG03326BL28BT86M066061M032066  L037K25,J93J97,K04K08,K12K191040119037743
VK700012D066297MBY392930C297C09BK97T   L036K61,K34K41,K42K50,K570401040119137743
BU18B/64MG13330BL28BK34BL09070#BK62    L035K96,K66K70,K77K81,K85K931040119237743
HL08<D34B000HL27MG17327BL28B000        L031L27,L01L05,L09L13,L20L241040119337743
HL42AD55C66B000MH51G18B/64H{42<H17G48  L037L64,L32L39,L43L50,L54L581040119437743
V{39005KVP62D561BN39D590B\08D593       L032L96,L73L81,L89040,0400401040119537743
VO17075BC007G20BQ91TMC81G23A007G23     L034M30,M05M12,M17M24,0400401040119637743
CG23G26BO09TVN98G271MG32G37A007G37     L034M64,M38M43,M51M58,0400401040119737743
CE83G37BO09/A007G32H099D92A007099      L033M97,M72M77,M84M91,0400401040119837743
A007C81MC81094M0{01}0<G38VO53G271      L033N30,N05N12,N19N23,0400401040119937743
V{07075BME78G43BP16AG44C75MC75089      L033N63,N39N46,N50N57,0400401040120037743
MG43E76ME760\0C089G47B{07/,D56B{07     L034N97,N71N78,N85N90,N940401040120137743
ME83G32BM84BP62BL81VO29G271BM05CC75C78 L038O35,O05O09,O13O17,O25O291040120237743
BM05S,G48BP62BM05<G27VO69075BB{07      L033O68,O41O45,O49O53,O57O651040120337743
MG49147ME78G43BP16MG43E76ME76C96ME76   L036P04,O76O83,O87O94,P010401040120437743
AG50C75B{07HP61BP25ZAG52G40BP25ZYG39G43L039P43,P12P16,P20P25,P32P371040120537743
DG40P54Y189G41B000HQ90VQ07G481VQ07G381 L038P81,P51P58,P62P66,P740401040120637743
MG32G43BP16MG43C90MC81C87ED11171DF87141L039Q20,P89P93,Q00Q07,Q140401040120737743
BQ30C1004B{43AD55175/171LG84171,G27G38 L038Q58,Q29Q30,Q34Q41,Q45Q521040120837743
<D56G48MG87C81MC78C75MH14D11B000       L032Q90,Q66Q73,Q80Q87,0400401040120937743
VR03G271BP62M007H16ME83G32MG20007      L033R23,Q99R03,R10R17,0400401040121037743
SG20H16SH16G32Y186H16,H17ME78H22BM84   L036R59,R31R38,R45R49,R560401040121137743
BP62<H17MH16007MH23075ME44E05MH22E78   L036R95,R64R68,R75R82,R890401040121237743
AG20E78BN98Z175332S100SSVR60H171       L032{27,{03{07,{14{18,{19{201040121337743
MD30E44ME44B000H{82V{79C691MH24100     L034{61,{35{39,{43{47,{550401040121437743
M%U3100WN000B334LB000.000777B{83       L032{93,{70{74,{79{83,{900401040121537743
L%U1794RN000B334L<T32U%U1BB794HB08     L034A27,A02A06,A11A15,A20A241040121637743
CC00C04BA68/SC01HB80I31M%U5I18RBB59    L035A62,A35A40,A44A51,A590401040121737743
B334LAH26C00MC00099MIA7080MMM          L029A91,A68A75,A82A89,A90A911040121837743
MMMMMMM                                L007A98,A93A94,A95A96,A97A981040121937743
S100SSB000HB58MD30H51SH50              L025B23,B03B04,B05B09,B13B201040122037743
SSSHB80H43M%U4H31RBB59B334L            L027B50,B25B26,B27B34,B42B461040122137743
S095B000H094HB97YD12094BIQ8000!B       L032B82,B55B59,B63B67,B74B821040122237743
BBBBBBB                                L007B89,B84B85,B86B87,B88B891040122337743
BBBBB000000{080                        L015C04,B91B92,B93B94,B98C021040122437743
 39990                                 L006C10,C10040,040040,0400401040122537743
                                       L039C49,040040,040040,0400401040122637743
             0000                      L020C69<C50C50,C63C67,C68C691040122737743
  !C90C90000001                        L015C84,C71C73,C76C79,C820401040122837743
001001040040040040040040040B/     080  L037D21,D12D13,040040,0400401040122937743
/   0801     ERRORS   1N000000         L030D51,D29D30,D34D35,D41D451040123037743
JOBA E  IOCS                           L012D63,D55D56,D57D58,D59D601040123137743
MACROOVERCALLADCONRMARKGLIT00          L029D92,D69D77,D82D87,D88D911040123237743
                                       L039E31,040040,040040,0400401040123337743
             #AREAIOGEN                L023E54<E32E32,E45E46,E50E521040123437743
XLABELBAD STATEMENT           OPFIELD  L037E91,E56E61,E74E79,E84E871040123537743
SBFDA  NO B X L 0081  PAGE             L026F17,E95E98,F07F12,F140401040123637743
SFX CT  LOCN  INSTRUCTION TYPE  CARD   L036F53,040040,040040,0400401040123737743
SEQ PG LIN  LABEL  OP    OPERANDS0 ADDRL039F92,F87F88,040040,0400401040123837743
MACRO ERROR UNDEF ORG SYM 39   039     L034G26,G04G14,G18G19,G21G241040123937743
                 CD08                  L021G47,G28G33,G38G39,G44G451040124037743
 <F9FL0     ,      ,      ,      1     L037G84,G49G50,G51G53,0400401040124137743
000001001040040040040040040040        AL039H23,G88H15,H17H18,H230401040124237743
&8{!                                   L004H27,H25040,040040,0400401040124337743
Y199G41                                L007P57,040040,040040,0400401040C0793774L
Y196H16                                L007R44,040040,040040,0400401040C0803774L
B\1S326 B\3/B\2U303!B\3/MT5\327C007T5/ L038\3X,\0Y\1S,\2\\2U,\3/040104000043744-
B\4XTB/0XB\7T295%M297T7VB/1ZMT6Y312    L035\7S,\4T\4X,\5V\6S,\6W040104000053744-
C007T5SB\8ZTB/0XM301T7VB/1ZMT6Y321     L034/0W,\8\\8V,\8Z\9W,/0\040104000063744-
BW37293 B/56HT4VMT6\T6YBT4ST7U#V/9YT7U2L039/4V,/1V/1Z,/2T/3\,/3Y040104000073744-
MT7\T6XV/8\T7USV/9/T7UKMT7/T6YB/9Y     L034/7Z,/5T/6/,/6Z/7W,040040104000083744-
MT7ST6YB/9YMT5/T6YDT7VT6VDDMT7XT7Z     L034S1T,/8X/9/,/9YS0V,S0WS0X104000093744-
VS4ST7TSVS5TT7TKVS6UT7TBBS7/MT7ST7ZBS7/L039S5S,S2SS3\,S3YS4S,S4Z040104000103744-
MT5/T7ZBS7/MT7/T7ZVS9ZT7VSVT1\T7VK     L034S8W,S6\S6U,S7/S7Z,040040104000113744-
VT2/T7VBBT2YAT8\T7ZBT2YAT8/T7ZBT2Y     L034T2\,S9VS9Z,T0WT1\,T1X040104000123744-
AT8TT7ZZT7ZT8WMT8WT6SBT4VGMARK26       L032T5S,T2YT3V,T4ST4W,T5/T5S104000133744-
                *X31                   L025T7X,T6/T6Z,T7/T7S,T7TT7W104000143744-
  4812                                 L009T8W,T8\T8/,T8ST8U,040040104000153744-
SFX CT  LOCN  INSTRUCTION  A-ADDR   B-AL039X7Z,040040,040040,0400401040X0043774L
DDR  TYPE  CARD                        M015X9U,040040,040040,0400401040X0053774L
!                                      L001Z9Y,040040,040040,0400401040X0063774-
                                       L001001,H31H33,H36H46,H51I111040X0073774L
                                       N000000,040040,040040,040040B000124437743
     CONTROL        794    PASS 7    EX/END OVERLAP                    124537753
MD12293MD12D93B830075CMD21301MD28D99   L036829,801808,816823,0400401040124637753
M070297M070D96BL09070#BU18BL54BY54     L034863,837844,852856,8600401040124737753
BZ63075CF1MD29200ZC66204C204D33B945/   L036899,872874,881888,8950401040124837753
V928D341MS49220BJ24V928C7012V543C691   L036935,908915,919927,9280401040124937753
U%U3MB543MD40211C204D44B971/MD30211BJ24L039974,941945,952959,9649711040125037753
V984C7012/211B900CC75C78B\20S<G27      L033\07,983984,988992,999\041040125137753
V992G271BP62B\57075C/171MD99146Z175332 L038\45,\16\20,\28\32,\390401040125237753
HQ90S11BQ21ED11171MD51146MD96171Z175332L039\84,\53\57,\64\71,\780401040125337753
HQ90\96BQ21/171BB09U%U4BCH48D54B/28/   L036/20,\92\96,/00/04,/09/161040125437753
MI10180MS88139LS99166M166150B/58C1004  L037/57,/28/35,/42/49,/570401040125537753
B{43/166AD55175MT20121MT31171HQ90S26   L036/93,/62/66,/73/80,/870401040125637753
BS03C1004B{43BQ34/180BS26C1004         L030S23,S02S03,S07S11,S15S231040125737753
K8B{14OBJECT CORE EXCEEDED             L026S49,S26S30,040040,0400401040125837753
,015022<024056,029036,040047,0540611001L039S88,040040,040040,0400401040125937753
,001008B001,068072<063067/061039       L032T20,T00040,040040,0400401040126037753
,0010011040!                           L012T32,T32040,040040,0400401040126137753
                                       N000000,040040,040040,040040B000126237753
     CONTROL        2000   PASS 8    MAINLINE 1                        126337813
 BL%U1001RN000BM33L<Z66I98B340         L030}29,}01}02,}10}14,}19}261040126437813
H}54L%U6101WN000BM33LB000L%U1333RN000  L037}66,}34}42,}46}51,}55}631040126537813
BM33LB333HJ58CP04P01BJ20/SP05MR90O58   L036J02,}72}76,}80}87,}92}961040126637813
M%U5{28RBO37BM33LAR92P04MP04099M{B7080ML039J41,J11J15,J20J27,J34J411040126737813
MMMMMMM                                L007J48,J43J44,J45J46,J47J481040126837813
S100SSB000B}76B/20HK10                 L022J70,J53J54,J55J59,J63J671040126937813
BK11M{04126{R94{01A007{01BK11M{04123   L036K06,J75J82,J89J96,K000401040127037813
B000HK63BK20ZAR96R98BK20ZYR97{01DR98K49L039K45,K11K15,K20K27,K32K391040127137813
Y339R99M{01{04B000HL30BL31135!L%U6120W L038K83,K53K60,K64K68,K760401040127237813
N000BM33LNMQ69175M175MQ69R48MR48       L032L15,K88K93,K94L01,L05L121040127337813
MQ51130M{11B000/299L180280LM166274     L034L49,L23L27,L31L35,L42L431040127437813
LQ43LP35L{18L126L{22,225235A{23227     L034L83,L54L58,L62L66,L70L771040127537813
<225BM03127NM130237<235L%U6220WN000    L035M18,L88L96,M03M07,M150401040127637813
BM33LN<280BK94H094HN05Y{24094          L029M47,M24M25,M29M33,M37M411040127737813
MIR0M96DM92M72MM96O05U%U0BBN78M96W     L034M81,M55M62,M69M74,0400401040127837813
M{24{25M%U0000RBN06LB000DM92N16U%U0B   L036N17,M89M97,N02N06,N130401040127937813
SR75{25VM89{25BDM92N46.000890MM96N61   L036N53,N25N33,N40N47,0400401040128037813
M%U0000RBM69E.000811BN02U%U1EBO15{265  L037N90,N62N67,N74N78,N830401040128137813
AR75{27M%U0000WBM69LBN02S{27DM92O32    L035O25,N98O06,O11O15,O190401040128237813
.000860BN98H094HO75Y{24094BIQ8000!B    L035O60,O33O37,O41O45,O52O601040128337813
BBBBBBB                                L007O67,O62O63,O64O65,O66O671040128437813
BBBBB000B001LL%U1020R                  L021O88,O69O70,O71O72,O76O811040128537813
U%U1B0100 080000{!27013                L023P11,O94O99,P02P07,P08P091040128637813
JOB     CTL33                          L015P26,P15P19,P20P23,P25P261040128737813
014  B007<021B047L                     L018P44,P28P29,P30P32,P36P401040128837813
L%U1001R.36I0{099B053                  L021P65,P53P54,P55P56,P59P621040128937813
M074099<099B001/C004041#044004/I9II0   L036Q01,P73P77,P82P89,P96Q001040129037813
M080099B001B0320020<002A075003,002/I99 L038Q39,Q09Q13,Q21Q25,Q32Q361040129137813
ZTI .020N000L                          L019Q58,Q41Q42,Q43Q44,Q48Q521040129237813
 C40000Q97 32                          L013Q71,Q60Q61,Q64Q66,Q69Q701040129337813
                      <31              L025Q96,Q74Q94,Q95040,0400401040129437813
                                       L039R35,040040,040040,0400401040129537813
             ,BN000000L                L029R64<R36R36,R49R50,R51R581040129637813
/   080113A    ENDLTORG{41             L026R90,R72R75,R76R80,R83R881040129737813
8{3D9F        L      <043043           L028{18,R93R95,R97{02,{05{121040129837813
,043HI                                 L009{27,{23{24,{25{26,0400401040129937813
!                                      L001I98,040040,040040,0400401040130037813
                                       N000000,040040,040040,040040B000130137813
     CONTROL        001    PASS 8    MAIN LINE 2                       130237823
000000000000000                        L015101,092097,040040,0400401040130337823
2SKBU%U6RC}00P07B}55UC}00P08B}55TU%U4R L038373,340345,352357,3643691040130437823
U%U5R<P25P26M}01475MP11O58M%U4001RBO37 L038411,379386,393400,4080401040130537823
BM33LC018P14B444/M079P18<P19B393C018P22L039450,417424,429436,4404441040130637823
M}00023U%U4RB475SLP24022B528FB5910232  L037487,458463,468475,4800401040130737823
B5910233B5910236B5910237,P25B\17,P26   L036523,496504,512516,5200401040130837823
B\49LP27023B558BB569CB580G<023B480     L034557,528535,540545,5505541040130937823
AP28023B540AP07023B545AP29023B550/180  L037594,565569,576580,5875911040131037823
,P06LP06199LP18179LP31LP35LP39LP44     L034628,599606,613617,6216251040131137823
LP52LP53LO93C022P54B747SB747UC022P55   L036664,633637,641648,6536581040131237823
B747TLP58144LP61LP65LP72LP76LP81       L032696,670677,681685,6896931040131337823
LP88LP95LP99B8420226B7360225Y337104B842L039735,701705,709717,7257321040131437823
Y338104B842LQ01175LP65146LQ08LP76LQ12  L037772,743747,754761,7657691040131537823
LQ20LQ24LQ31LQ35LQ39,180B8420223       L032804,777781,785789,7937971040131637823
MQ40102B8420222MQ41102B8420221MQ42102  L037841,812820,827835,0400401040131737823
B}30<199LP06180LQ43124LQ47LO80LO88     L034875,846850,857864,8688721040131837823
LP53LO93B}30/175LQ43135LP35LQ51        L031906,880884,888892,8999031040131937823
LQ58LO80LO88LP53LO93C021P54B\17S       L032938,911915,919923,9279341040132037823
B\17UC021P55B\17TD021Q59AQ60Q59DQ59980 L038976,944951,956963,9700401040132137823
Y339990LP06P06<P06MQ63P01B\170214      L033\09,984991,995\02,0400401040132237823
AQ63P01B5200234B5200235B5200236B5200237L039\48,\17\25,\33\41,0400401040132337823
VX81P251MP01P04/080V\84P191M%U5{28R    L035\83,\57\64,\68\76,0400401040132437823
,023057,062067,068071,074006,001B}76   L036/19,\91\98,/05/12,/160401040132537823
BJ59075%VJ59005KBS22075 BS11075ID075094L039/58,/28/36,/44/52,0400401040132637823
A094A094B/P1BV85BS65BV59BW82           L028/86,/63/67,/71/75,/79/831040132737823
BJ59BJ59BJ59BJ59BV34BJ59M020179        L031S17,/91/95,/99S03,S07S111040132837823
BJ59M074142MMMM061{01A007{01           L028S45,S22S29,S30S31,S32S391040132937823
SP28{01BJ67BK64BJ59AQ65007C007Q65BS88T L038S83,S53S57,S61S65,S72S791040133037823
BJ59BT44023#VT44004BM053R26BT23023@BT44L039T22,S88S96,T04T11,T190401040133137823
MQ68089A007089MQ690\0MR28166M061{01    L035T57,T30T37,T44T51,0400401040133237823
C007Q71BT82TBU47075ABS53SQ71007S007{01 L038T95,T65T70,T78T82,T890401040133337823
M007Q73MQ71007BJ67BU94075AMQ73007      L033U28,U03U10,U14U22,0400401040133437823
MR48Q93BK64MQ93154M061{01S007{01AP28{01L039U67,U36U40,U47U54,U610401040133537823
BK11M{04130MQ94M061{01BS53M061{01      L033V00,U72U79,U83U90,U940401040133637823
SQ73{01SQ96{01BK11M{04130MQ94BU22      L033V33,V08V15,V19V26,V300401040133737823
BJ59021 M073R48MMMMM                   L020V53,V42V49,V50V51,V52V531040133837823
MBJ59M073137BU47075BM061{01BS53BJ59075}L039V92,V55V59,V66V74,V81V851040133937823
BW240750M066{01BW47BW01075\B/20M061{01 L038W30,W01W08,W12W20,W240401040134037823
BW47BW24075\B/20HW81BK11M{04126M{04    L035W65,W35W43,W47W51,W55W621040134137823
MR49BK64B}76B000BX580753M070130MR50    L035X00,W70W74,W78W82,W90W971040134237823
MR57BK64LQ43124LP35B}76BX47075IB}30    L035X35,X05X09,X16X20,X24X321040134337823
LR64126B/20M020179BX32MR71126M070123   L036X71,X43X47,X54X58,X650401040134437823
BK64U%U6MVX93P261B}55/180MR74O58       L032Y03,X76X81,X89X93,X970401040134537823
M%U4101RBO37BM33LBZ54175LBX93175S      L033Y36,Y12Y16,Y21Y29,0400401040134637823
BX93175CBX93175ZBX93175YAR75O97MO98105 L038Y74,Y45Y53,Y61Y68,0400401040134737823
BZ13106*MR79115C118P14BZ13/MR79111MR77 L038Z12,Y83Y90,Y97Z02,Z090401040134837823
MR781754K4C118R82BX93/BX93106*/180     L034Z46,Z20Z21,Z23Z30,Z35Z431040134937823
4K8B}55MR87120BY61 !                   L020Z66,Z48Z50,Z54Z61,Z65Z661040135037823
                                       N000000,040040,040040,040040B000135137823
     CONTROL        333    PASS 8    EXTRA OUTPUT OVERLAP              135237833
F1/332/M6962152FKM730234               L024356,335339,340347,3483501040135337833
M7462512FJ/271M7702242M794224          L029385,364365,367371,3783791040135437833
2M8182242M8422242M8662242              L025410,387394,395402,4034101040135537833
FJ/224M8812152FKM9202392               L024434,413417,424425,4274341040135637833
F1<P06.000880B530F/239M9302102         L030464,437441,448453,4574641040135737833
FKM9662362U%U1RU%U4RU%U5RU%U6R         L030494,467474,475480,4854901040135837833
V517P251/236M994228FK2F1.000889        L031525,503507,514516,5175191040135937833
B519<I98998<A08/199U%U1BU%U1BU%U1B     L034559,530537,541545,5505551040136037833
U%U1BU%U1BU%U1BU%U1BU%U1BL%U1Z00RB602L L038597,565570,575580,5855931040136137833
BZ01M995996U%U1BL%U1Z00RB631LBZ01U%U1B L038635,602609,614622,6276311040136237833
S997996V614996B.000891L%U1Z00RB602E    L035670,643651,658666,0400401040136337833
.000812BZ01END OF ASSEMBLY             L026696,678682,040040,0400401040136437833
IF EXTRA OUTPUT DESIRED, SET SENSE     L034730,040040,040040,0400401040136537833
SWITCH F ON, AND                       L016746,040040,040040,0400401040136637833
B ON FOR CONDENSED CARDS               L024770,040040,040040,0400401040136737833
C ON FOR LOADABLE TAPE 6               L024794,040040,040040,0400401040136837833
D ON FOR LISTING TAPE  3               L024818,040040,040040,0400401040136937833
E ON TO SUPPRESS LISTING               L024842,040040,040040,0400401040137037833
G ON FOR NEW SOURCE DECKAND PRESS STARTL039881,867040,040040,0400401040137137833
IF NO EXTRA OUTPUT DESIRED, PRESS STARTL039920,040040,040040,0400401040137237833
END OF JOB                             L010930,040040,040040,0400401040137337833
INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4   L036966,040040,040040,0400401040137437833
LOADABLE TAPE ON TAPE UNIT 6I A!       L032998,995996,997998,0400401040137537833
B998                                   L004338,040040,040040,04004010400004CNTR-
<I98\43                                L007536,040040,040040,04004010400005CNTR-
/332/B340A/899///                      L017\14,\02\03,\08\12,\13\1410400006CNTR-
/////U%U1RL%U1001R                     L018\32,\16\17,\18\19,\20\2510400007CNTR-
B\20LB001.!                            L011\43,\38\42,\43040,04004010400008CNTR-
                                       N000000,040040,040040,040040B000137637833
     CONTROL   1401 AUTOCODER GENERATED ON TAPE UNIT 1                 137737993
B578B4780753BZ77MU59X84BZ77V5010012B574L039500,466474,478485,4894971040098237613
################################################################################
########## TRANSYLVANIA TAPE PRINT, 1401 SOURCE
01010          JOB  TRANSYLVANIA TAPE PRINT - PRINT LEGEND                 TRANS
01020          CTL  6611                                                   TRANS
01030          INDEX                                                       TRANS
01040          ORG  2700                                                   TRANS
01050TAPE      DA   1X11200,G                                              TRANS
01060INT       CC   1                                                      TRANS
01070          SBR  X1,LINE                                                TRANS
01080MOVE      BCE  OVLAY,0&X1,&                                           TRANS
01090          MCM  0&X1,201                                               TRANS
01100          SAR  X2                                                     TRANS
01110          MCM  0&X1,201                                               TRANS
01120          MCW  @  @                                                   TRANS
01130          WCSCS,,,260                                                 TRANS
01140          MCW  X2,X1                                                  TRANS
01150          B    MOVE                                                   TRANS
01160OVLAY     CC   1                                                      TRANS
01170          OVLAY                                                       TRANS
01180LINE      EQU  *&1                                                    TRANS
01190          DCW  @         TRANSYLVANIA TAPE PRINT\@                    TRANS
01191          DCW  @\@                                                    TRANS
01200          DCW  @          SWITCH- ACTION IF ON\@                      TRANS
01210          DCW  @            A   - SELECT DRIVE 1\@                    TRANS
01220          DCW  @            B   -              2\@                    TRANS
01230          DCW  @            C   -              3\@                    TRANS
01240          DCW  @            D   -              4\@                    TRANS
01250          DCW  @            E   -              5\@                    TRANS
01260          DCW  @            F   - SKIP FORWARD\@                      TRANS
01270          DCW  @            G   - BACKSPACE\@                         TRANS
01271          DCW  @\@                                                    TRANS
01280          DCW  @NOTE -1. TO LABEL PRINTOUT, LOAD PROGRAM & CARD\@
01290          DCW  @TO BE LISTED 80-80, WITH G ON. SET SWITCHES AS \@     TRANS
01300          DCW  @INDICATED ABOVE WHEN LABEL MESSAGE APPEARS.\@         TRANS
01310          DCW  @      2. PROGRAM STOPS IF A THRU E ARE OFF.\@         TRANS
01320          DCW  @      3. READER MUST BE EMPTY TO SELECT DRIVE 1.\@    TRANS
02100          DCW  @&&&&@                                                 TRANS
02101          LTORG*                                                      TRANS
02110          EX   INT                                                    TRANS
02120          JOB  TRANSYLVANIA MAIN SECTION                              TRANS
02130          ORG  INT                                                    TRANS
02131BEGIN     H                                                           TRANS
02160          BSS  *&5,G                                                  TRANS
0217081        DCW  @!@                                                    TRANS
02180          B    DS                                                     TRANS
02181          R                                                           TRANS
02200          WCSCSA,,@ TURN G OFF. LABEL HAS BEEN READ.@,236             TRANS
02201          H                                                           TRANS
03010DS        BSS  CHOOSE,A           DRIVE SELECTOR                      TRANS
03020          DCW  @N1@                                                   TRANS
03030          BSS  CHOOSE,B                                               TRANS
03040          DCW  @N2@                                                   TRANS
03050          BSS  CHOOSE,C                                               TRANS
03060          DCW  @N3@                                                   TRANS
03070          BSS  CHOOSE,D                                               TRANS
03080          DCW  @N4@                                                   TRANS
03090          BSS  CHOOSE,E                                               TRANS
03100          DCW  @N5@                                                   TRANS
03110          H    DS                                                     TRANS
03120CHOOSE    SBR  X3                                                     TRANS
03130          MN   1&X3,DRIVE#1                                           TRANS
03140          C    DRIVE,OLD#1        ARE DRIVES SWITCHED.                TRANS
03150          BE   AF2                                                    TRANS
03160          MN   DRIVE,OLD                                              TRANS
03170          CC   1                                                      TRANS
03180          MN   DRIVE,208                                              TRANS
03190          MCW  @TAPE # @          LABEL NEW DUMP.                     TRANS
03200          MCM  1,210                                                  TRANS
04010          WCSCSS                                                      TRANS
04020          S    RECNT#5                                                TRANS
04030          MN   DRIVE,DNO                                              TRANS
04031          SBR  ENDLOC,*&9                                             TRANS
04040          B    CTAPE                                                  TRANS
04050          NOP  CALL                                                   TRANS
04051          SBR  ENDLOC,EOF                                             TRANS
04060          MN   DRIVE,*&4                                              TRANS
04070          BSP  0                                                      TRANS
04071          CW   TRL#1                                                  TRANS
04080          C    TAPE&3,@1HDR@      IS 1ST RECORD A HEADER.             TRANS
04090          BU   AF2                                                    TRANS
04100          SW   TRL                                                    TRANS
04110AF2       BSS  *&5,G                                                  TRANS
04120          B    AG2                                                    TRANS
04130          S    @1@,RECNT                                              TRANS
04140          MN   DRIVE,*&4                                              TRANS
04150          BSP  0                                                      TRANS
04151          BM   *&5,RECNT                                              TRANS
04152          B    DS                                                     TRANS
04153          S    RECNT                                                  TRANS
04160          B    DS                                                     TRANS
04170AG2       A    @1@,RECNT                                              TRANS
04180          B    CTAPE                                                  TRANS
04190          NOP  CALL                                                   TRANS
04200          BSS  DS,F               IS NO-PRINT SELECTED.               TRANS
05010          B    PS                 PRINT                               TRANS
05020EOF       WCSCS,,@TM@,202                                             TRANS
05021* IF THERE WAS AHEADER, PRINT TRAILER.                                TRANS
05022          BW   AJ3,TRL                                                TRANS
05030AH4       CC   J                  TRAILER.                            TRANS
05040          S    @1@,RECNT                                              TRANS
05041          MCW  @END OF FILE.@,212                                     TRANS
05042          MCS  RECNT,218                                              TRANS
05043          WCSCSA,,@RECORDS. HIT START TO CONTINUE.@,250               TRANS
05044          S    RECNT                                                  TRANS
05050          H    DS                                                     TRANS
05060AJ3       SBR  ENDLOC,*&9                                             TRANS
05061          B    CTAPE                                                  TRANS
05070          NOP  CALL                                                   TRANS
05071          SBR  ENDLOC,EOF                                             TRANS
05080          MN   DRIVE,*&4                                              TRANS
05090          BSP  0                                                      TRANS
05100          C    TAPE&2,@1EO@       IS RECORD AFTER TM A TRAILER.       TRANS
05110          BU   AH4                                                    TRANS
05120          SW   0&X2               IF SO PRINT.                        TRANS
05130          MCW  @*@,201                                                TRANS
05140          MCM  TAPE,202                                               TRANS
05150          CW   0&X2                                                   TRANS
05160          WCSCS,AH4                                                   TRANS
05170* PRINT SECTION                                                       TRANS
05180PS        SW   0&X2,FIRSTM#1      X2 HAS ADDR OF GM.                  TRANS
05190          MA   -TAPE,X2           DECODE BLOCK LENGTH.                TRANS
05200          MCW  @00000@,LENGTH#5                                       TRANS
06010          MN   X2,LENGTH                                              TRANS
06020          MN                                                          TRANS
06030          MN                                                          TRANS
06040          BWZ  NOUNIT,X2,2                                            TRANS
06050          BWZ  K4,X2,S                                                TRANS
06060          BWZ  K8,X2,K                                                TRANS
06070          A    @4@,LENGTH-3       4X3 FOR & ZONE                      TRANS
06080K8        A    @4@,LENGTH-3       4X2 FOR -                           TRANS
06090K4        A    @4@,LENGTH-3       4X1 FOR 0                           TRANS
06100NOUNIT    BWZ  NOHUN,X2-2,2       NOTHING FOR NO-ZONE                 TRANS
06110          BWZ  K1,X2-2,S                                              TRANS
06120          BWZ  K2,X2-2,K                                              TRANS
06130          A    @1@,LENGTH-3                                           TRANS
06140K2        A    @1@,LENGTH-3                                           TRANS
06150K1        A    @1@,LENGTH-3                                           TRANS
06160NOHUN     SBR  X1,TAPE            INITIALIZE TAPE ADDRESS             TRANS
06161* THIS THE MAIN PRINT-OUT LOOP                                        TRANS
06170BC1       MCW  NPC,302            SET TEST CHARACTERS                 TRANS
06180          MCW  NPC,TAPE-1                                             TRANS
06200          MCW  @*@,201                                                TRANS
07010          MCM  0&X1,202      X1 CONTAINS ADDRESS OF NEXT LINE.        TRANS
07020          SAR  X2                                                     TRANS
07030          BCE  BE2,302,'                                              TRANS
07040          BCE  BH1,TAPE-1,'                                           TRANS
07050          CS   332                                                    TRANS
07060          CS                                                          TRANS
07070          MCW  @ RECORD GREATER THAN 2500 CHARACTERS.@,268            TRANS
07080          MCW  @PROGRAM CANNOT HANDLE A LOGICAL@                      TRANS
07090          WCSCSA                                                      TRANS
07100          H    DS                                                     TRANS
07110BH1       SW   GR100#1            RECORD GREATER THAN 100             TRANS
07120          MCW  B31#31,332                                             TRANS
07130          MA   @100@,X1           BUMP INDEX BY 100.                  TRANS
07140          B    BF2                                                    TRANS
07150BE2       CW   GR100              RECORD LQ 100.                      TRANS
07160          MCW  X2,X1              SET  INDEX NEXT ADDRESS.            TRANS
07170BF2       BW   *&5,FIRSTM         TEST 1ST LINE OF RECORD.            TRANS
07180          B    BG2                                                    TRANS
07190          CW   FIRSTM                                                 TRANS
07200          MCW  @RECD       HAS      CHARACTERS@,332                   TRANS
08010          MCS  RECNT,312                                              TRANS
08020          MCS  LENGTH,321                                             TRANS
08021BG2       BW   BJ2,GR100                                              TRANS
08030          BCE  BH3,0&X2,!         TEST FOR EOREC GM.                  TRANS
08040          BCE                                                         TRANS
08050BJ2       WCSCS,BC1               GO BACK FOR ANOTHER LINE            TRANS
08060BH3       CW   0&X2               CLEAR WM UNDER \< OR <B.            TRANS
08070          CW                                                          TRANS
08080          S    @101@,LENGTH                                           TRANS
08090          BM   BK4,LENGTH         SINGLE SPACE FOR SHORT RECORDS      TRANS
08100          CC   S                  DOUBLE SPACE AFTER LONG RECORDS.    TRANS
08110BK4       WCSCS,DS                                                    TRANS
08010CALL      DCW  @K@                                                    TRANS
08020          DCW  @49@                                                   TRANS
08021ENDLOC    DCW  EOF                ADDRESS OF EOF LOCATION.            TRANS
08030DNO       EQU  *&4                DRIVE #                             TRANS
08040          RT   0,TAPE                                                 TRANS
08060NPC       DCW  @'@                NON-PRINT CHAR '                    TRANS
01010*COMBINATION READ/WRITE ROUTINE
01020*
01030CTAPE     SBR  CCONPR&3
01040          MCW  99,CIDX
01050          SW   97
01060          MCW  CCONPR&3,99
01070          MCW  3&X3,CIR3          AND
01080          MCW  13&X3,CTAPEC&7     READ/WRITE
01090          MCW  5&X3,CEORC&3       COMMAND
01100          SW   CCOMPR&4
01110          MCW  12&X3,CCOMPR&6     NOISE RECORD
01120          MA   @012@,CCOMPR&6
01130          CW   CCOMPR&4
01140          A    C1,0&X3            NOISE REC CNT
01150          MCW  C9,CERRCT
01160CTAPEC    MCW  %U0,0,R            DUMMY COMMAND
01170CSTORE    SBR  CCLEAR&6           STORE ADDR OF GM&1
01180* INSERT CARDS LABELED CSTA AND CSTB TO PUT ADDRESS OF GM IN XR2.
04100CSTA      SBR  94                 SAVE ADDR OF GM FOR MAIN PROGR
04110CSTB      MA   M1,94
01190* CARDS ARE INCLUDED AT END OF THIS ROUTINE.
01200          BCE  CORKS,CTAPEC&7,W   TEST COMMAND
01210          BEF  *&5
01220CEORC4    B    CCOMPR
01230          MCW  CIDX,CIR3
01240CEORC     B    *
01250CCOMPR    BCE  CCLEAR,*,!    D-MOD IS GROUP MARK.TEST FOR
02010          CHAIN12
02020CORKS     BER  CRWRED             ERROR TEST
02030          BEF  CEORC4&4
02040          MCW  CIDX,99
02050CCONPR    B    *                  CON PROGRAM
02060*COMBINATION READ/WRITE REDUNDANCY ROUTINE
02070CRWRED    BCE  CADDRR,CERRCT,9
02080CCONRR    S    C1,CERRCT          SUB 1 FROM ERROR COUNT
02090          MN   CTAPEC&3,*&4       BACKSPACE
02100          CU   %U0,B
02110          BCE  CTROW,CERRCT,G     BRANCH IF 2 WRITES
02120CTSTVC    BWZ  CCLEAN&4,CERRCT,K  BR IF 10 REREADS
02130          B    CTAPEC             READ/WRITE
02140CADDRR    BCE  CTSTTM,CTAPEC&7,R    IF WRITE
02150          S    C1,2&X3            SUB 1 FROM
02160          BWZ  CPERR2,2&X3,K      TOTAL ERRORS
02170          B    CCONRR
02180*STATISTICS
02190CTSTTM    S    C1,2&X3
02200          BWZ  CPERR1,2&X3,K
02210          B    CCONRR
02220CCLEAR    MN   C1,CCLEAR&6        IF NOISE REC
02230          MN                      CLEAR GM
02240          ZS   C1,0&X3            READ NEXT
02250          B    CTAPEC             RECORD
03010CTROW     BCE  CTSTVC,CTAPEC&7,R     IF WRITE
03020          BEF  CHEOR              EOR TEST
03030          MN   CTAPEC&3,*&4
03040          CU   %U0,E              ERASE TAPE
03050CCLEAN    B    CTAPEC-7
03060*VACUUM CLEANING
03070          BWZ  CPERR0,0&X3,K      IF PERMANENT
03080CPERR0    MCW  CTAPEC&6,*&7       REREAD RECORD
03090          MCW  %U0,0,R
03100*FIFTY READ REDUNDANCIES
03110CPERR1    MCW  C49,2&X3           RESTORE COUNT
03120          NOP  50                 AFTER 50 READ
03130          H                       ERRORS AND
03140          B    CCONRR             HALT
03150*30 WRITE REDUNDANCIES
03160CPERR2    MCW  C29,2&X3           RESTORE COUNT
03161          NOP  30                 AFTER 30 WRITE
03162          H                      ERRORS
03170          B    CCONRR             ERROR HALT
03180*END OF REEL WHILE WRITING
03190CHEOR     MCW  C29,2&X3           RESTORE COUNT
03200          MN   CTAPEC&3,*&4       WRITE
03210          CU   %U0,M              TAPE MARK
03220          NOP  888
03230          H                       HALT
03240          B    CTAPEC-7
03250*CONSTANTS
04010CIR3      EQU  99
040200099      DCW  #3
04030CERRCT    DCW  @9@
04040C1        DCW  @1@
04050C9        DCW  @9@
04060C49       DCW  @49@
04070C29       DCW  @2I@
04080CIDX      DCW  #3
04090M1        DSA  15999
08070          END  BEGIN                                                  TRANS
################################################################################
########## 360 SIMULATOR FOR 1401, 360 AL
//SIM1401 JOB  'U=ARMK204,T=20,D=683,L=5'                                    *//
/*SETUP DEVICE=2314,ID=ACT562                                                *//
//       EXEC  PGM=IEFBR14,REGION=2K
//DDX       DD DSN=CACTR683.SIM1401,
//             VOL=REF=CACTR683.ACTR,
//             SPACE=(TRK,1),
//             DISP=(MOD,DELETE)
//        EXEC PGM=IEBUPDTE,PARM=NEW,REGION=40K
//SYSPRINT  DD DUMMY
//SYSUT2    DD DSN=CACTR683.SIM1401,
//             VOL=REF=CACTR683.ACTR,
//             SPACE=(7200,40,RLSE),
//             DCB=(RECFM=FBS,BLKSIZE=7200,LRECL=80),
//             DISP=(NEW,CATLG)
//SYSIN     DD *
./        ADD  SEQFLD=765
./      NUMBER NEW1=10,INCR=10
* MODIFIED VERSION OF 360D-11.1.019
*        R.WEAVER, IBM-ARMONK NY, JUNE/JULY 1970
         SPACE
*  L I M I T A T I O N S
*     1401
*        SUPPORTS EXPANDED PRINT EDIT ONLY
*        ONLY THE FIRST 50 CHAR OF CONSOLE MSG'S ARE PRINTED
*     JCL
*        TAPEN DD'S MUST BE ASSIGNED TO TAPE UNITS, DISK CANNOT BE USED
         SPACE
* PARM FORMAT IS   'ABCDEFGLLLX'
*    WHERE
*        A-G  SENSE SWITCHES, N/F
*        LLL  LINES TO PRINT PER PAGE
*        X    PGM LOAD CARD OR TAPE, C/T
         SPACE
         SPACE
* THE FOLLOWING COMMENT BLOCK APPLIED TO THE ORIGINAL PROGRAM.
*********************************************************************** 00000200
*                                                                     * 00000300
*                                                                     * 00000400
*     1 4 0 1   S I M U L A T O R   F O R   S Y S T E M / 3 6 0       * 00000500
*                                                                     * 00000600
*                                                                     * 00000700
*                                                                     * 00000800
*     THIS PROGRAM WILL SIMULATE A 1401 ON A SYSTEM/360.  THE         * 00000900
* SYSTEM/360 MUST HAVE AT LEAST 65K, STANDARD INSTURCTION SET, ONE    * 00001000
* 1052, ONE 2540, AND ONE PRINTER. THE 1401 FEATURES SUPPORTED ARE    * 00001100
* ADVACED PROGRAMMING, SENSE SWITCHES, TAPES, MULTIPLY, DIVIDE,       * 00001200
* 16K CORE, AND ALL STANDARD INSTRUCTIONS EXCEPT SELECT STACKER.      * 00001300
* OPERATOR CONTROL IS THROUGH THE 1052, USING THE FOLLOWING ENTRIES   * 00001400
*                                                                     * 00001500
*                                                                     * 00001600
*          SRS  -  START RESET                                        * 00001700
*          STT  -  START                                              * 00001800
*          LDC  -  LOAD FROM CARDS                                    * 00001900
*          LDT  -  LOAD FROM TAPE                                     * 00002000
*          SSS  -  SET SENSE SWITCHES                                 * 00002100
*          TAS  -  TAPE ASSIGNMENT                                    * 00002200
*          CLR  -  CLEAR ALL 1401 CORE                                * 00002300
*          DIS  -  DISPLAY 1401 CORE ON THE PRINTER                   * 00002400
*          ALT  -  ALTER 1401 CORE                                    * 00002500
*          WTM  -  WRITE TAPE MARK                                    * 00002600
*          RWD  -  REWIND TAPE                                        * 00002700
*          TRM  -  TERMINATE THE SIMULATOR                            * 00002800
*                                                                     * 00002900
*                                                                     * 00003000
*                                                                     * 00003100
* 16K BYTES ARE SET ASIDE FOR SIMULATED CORE, WITH EACH BYTE HAVING   * 00003200
* THE FOLOWING FORMAT.                                                * 00003300
*     360 BIT        1401 BIT                                         * 00003400
*        0            UNUSED                                          * 00003500
*        1           WORD MARK                                        * 00003600
*        2               B                                            * 00003700
*        3               A                                            * 00003800
*        4               8                                            * 00003900
*        5               4                                            * 00004000
*        6               2                                            * 00004100
*        7               1                                            * 00004200
*                                                                     * 00004300
*                                                                     * 00004400
*********************************************************************** 00004500
       EJECT                                                            00004600
         MACRO
&L       MSG   &M,&L2
         LCLC  &A
&L       BAL   4,WTO
&A       SETC  'L'''
         DC    AL2(&A.&L2.-1)
&L2      DC    C&M
         MEND
         SPACE
         PRINT NOGEN                                                    14010461
         START 0                                                        00000100
       USING   SETBS1,15                                                00004700
       USING   SETBS1+4096,14                                           00004800
       USING   SIMCOR,7                                                 00004900
       TITLE  'ADD'                                                     00005000
       USING   A,13                                                     00005100
A      CH      9,=H'7'           DETERMINE INSTRUCTION LENGTH           00005200
       BE      AL7               *                                      00005300
       CH      9,=H'1'           *                                      00005400
       BE      AL1               *                                      00005500
       CH      9,=H'4'           *                                      00005600
       BNE     ILEGLN            *                                      00005700
       LA      6,1(10)           4 CHARACTERS, SET A AND B EQUAL        00005800
       BAL     8,CVAD43          *                                      00005900
       LR      11,5              *                                      00006000
       LR      12,11             *                                      00006100
       B       AL1               *                                      00006200
AL7    LA      6,1(10)           CONVERT ADDRESSES                      00006300
       BAL     8,CVAD43          *                                      00006400
       LR      11,5              *                                      00006500
       LA      6,4(10)           *                                      00006600
       BAL     8,CVAD43          *                                      00006700
       LR      12,5              *                                      00006800
AL1    MVI     POS1,1            SET 1-POSITION INDICATOR               00006900
       MVI     AEND,0            CLEAR A-FIELD ENDED INDICATOR          00007000
       LA      0,1               SET REGISTER FOR FAST SUBTRACTION      00007100
       IC      4,0(10)           GET OP CODE                            00007200
       SRDL    4,1               SAVE LOW ORDER BIT                     00007300
       IC      4,0(11)           GET A-FIELD SIGN                       00007400
       SRL     4,4               *                                      00007500
       SRDL    4,2               *                                      00007600
       IC      4,0(12)           GET B-FIELD SIGN                       00007700
       SRL     4,4               *                                      00007800
       SLDL    4,3               TEST TABLE                             00007900
       N       4,=F'31'          *                                      00008000
       A       4,=A(TBTRCP)      *                                      00008100
       TM      0(4),X'1'         *                                      00008200
       BO      AL1H              COMPLEMENT ADD                         00008300
*                                                                       00008400
*      PERFORM TRUE ADD                                                 00008500
*                                                                       00008600
       MVI     AL1C+1,X'70'      SET TO KEEP SIGN                       00008700
       LA      1,0               CLEAR CARRY                            00008800
AL1A   IC      3,0(12)           GET B-FIELD CHARACTER                  00008900
       LR      6,3               SAVE B-FIELD ZONE                      00009000
       N       3,=F'15'          ISOLATE DIGIT                          00009100
         C     3,=F'11'          Q/ IS DIGIT NUMERIC                    00009200
         BL    *+8               YES                                    00009300
         S     3,=F'8'           NO, ELIMINATE 8 BIT                    00009400
       CH      3,=H'10'          Q/ ZERO                                00009500
       BNE     *+6               NO                                     00009600
       SR      3,3               YES, CLEAR IT                          00009700
       CLI     AEND,1            Q/ IS THERE STILL AN A-FIELD           00009800
       BE      AL1B              NO                                     00009900
       IC      4,0(11)           YES, GET DIGIT                         00010000
       LR      5,4               *                                      00010100
       N       4,=F'15'          *                                      00010200
         C     4,=F'11'          Q/ IS DIGIT NUMERIC                    00010300
         BL    *+8               YES                                    00010400
         S     4,=F'8'           NO, ELIMINATE 8 BIT                    00010500
       CH      4,=H'10'          Q/ ZERO                                00010600
       BNE     *+6               NO                                     00010700
       SR      4,4               YES, CLEAR IT                          00010800
       AR      3,4               ADD A TO B                             00010900
AL1B   AR      3,1               ADD CARRY                              00011000
       LA      1,0               CLEAR CARRY                            00011100
       CH      3,=H'9'           Q/ IS RESULT GREATER THAN 9            00011200
       BNH     AL1C              NO, OK                                 00011300
       SH      3,=H'10'          YES, SUBTRACT 10                       00011400
       LA      1,1               SET CARRY                              00011500
AL1C   NI      0(12),X'00'       STORE RESULT DIGIT                     00011600
       STC     3,AL1D+1          *                                      00011700
       TM      AL1D+1,X'0F'      Q/ IS RESULT ZERO                      00011800
       BC      5,AL1D            NO                                     00011900
       OI      AL1D+1,X'0A'      YES, SET 8-2 BITS                      00012000
AL1D   OI      0(12),0           *                                      00012100
       MVI     AL1C+1,X'40'      SET TO ELIMINATE ZONES                 00012200
       CLI     AEND,1            Q/ HAS A-FIELD ALREADY ENDED           00012300
        BE      AL1E             YES                                    00012400
       SR      11,0              DECREMENT A-FIELD ADDRESS              00012500
       TM      1(11),X'40'       Q/ END OF A-FIELD                      00012600
       BZ      AL1E              NO                                     00012700
       MVI     AEND,1            YES, SET A-FIELD ENDED INDICATOR       00012800
AL1E   SR      12,0              DECREMENT B-FIELD ADDRESS              00012900
       TM      1(12),X'40'       Q/ END OF B-FIELD                      00013000
       BO      AL1F              YES                                    00013100
       MVI     POS1,0            NO, TURN OFF 1-POSITION INDICATOR      00013200
       CLI     AEND,1            Q/ A-FIELD ENDED                       00013300
       BNE     AL1A              NO                                     00013400
       SR      5,5               YES, CLEAR A-FIELD CHARACTER           00013500
       B       AL1A              ADD NEXT POSITION                      00013600
AL1F   CLI     POS1,1            Q/ WAS THIS A 1-POSITION FIELD         00013700
         BE    AL1G1             YES, DONE                              00013800
       N       5,=F'48'          NO, ADD HIGH ORDER ZONES               00013900
       N       6,=F'48'          *                                      00014000
       AR      5,6               *                                      00014100
       SLL     1,4               ADD CARRY                              00014200
       AR      5,1               *                                      00014300
       STC     5,AL1G+1          STORE NEW ZONE                         00014400
       NI      AL1G+1,X'30'      *                                      00014500
AL1G   OI      1(12),0           *                                      00014600
AL1G1    LTR   1,1               Q/ WAS THERE A CARRY                   00014700
       BC      8,NXTOP           NO                                     00014800
       MVI     OVRFLO,1          YES, SET OVERFLOW INDICATOR            00014900
       B       NXTOP                                                    00015000
*                                                                       00015100
*      PERFORM COMPLEMENT ADDITION                                      00015200
*                                                                       00015300
AL1H   LA      1,1               SET CARRY                              00015400
       ST      12,SAVB           SAVE B-FIELD UNITS ADDRESS             00015500
       MVI     AL1L+1,X'70'      SET TO KEEP B-FIELD SIGN               00015600
       IC      3,0(12)           GET B-FIELD SIGN                       00015700
       N       3,=F'48'          *                                      00015800
       CH      3,=H'32'          Q/ IS IT MINUS                         00015900
       BE      AL1I              YES                                    00016000
       OI      0(12),X'30'       NO, PUT PLUS SIGN IN STANDARD FORM     00016100
AL1I   IC      2,0(12)           GET B-FIELD DIGIT                      00016200
       N       2,=F'15'          *                                      00016300
         C     2,=F'11'          Q/ IS DIGIT NUMERIC                    00016400
         BL    *+8               YES                                    00016500
         S     2,=F'8'           NO, ELIMINATE 8 BIT                    00016600
       CH      2,=H'10'          Q/ ZERO                                00016700
       BNE     *+6               NO                                     00016800
       SR      2,2               YES, CLEAR IT                          00016900
       LA      3,9               SET COMPLEMENT                         00017000
       CLI     AEND,1            Q/ HAS A-FIELD PREVIOUSLY ENDED        00017100
       BE      AL1J              YES                                    00017200
       IC      4,0(11)           NO, GET A-FIELD DIGIT                  00017300
       N       4,=F'15'          *                                      00017400
         C     4,=F'11'          Q/ IS DIGIT NUMERIC                    00017500
         BL    *+8               YES                                    00017600
         S     4,=F'8'           NO, ELIMINATE 8 BIT                    00017700
       CH      4,=H'10'          Q/ ZERO                                00017800
       BNE     *+6               NO                                     00017900
       SR      4,4               YES, CLEAR IT                          00018000
       SR      3,4               COMPLEMENT A-FIELD DIGIT               00018100
AL1J   AR      2,3               ADD COMPLEMENT TO B-FIELD DIGIT        00018200
       AR      2,1               ADD CARRY                              00018300
       LA      1,0               CLEAR CARRY                            00018400
       CH      2,=H'9'           Q/ RESULT GREATER THAN 9               00018500
       BNH     AL1K              NO, OK                                 00018600
       SH      2,=H'10'          YES, SUBTRACT 10                       00018700
       LA      1,1               SET CARRY                              00018800
AL1K   STC     2,AL1M+1          STORE RESULT DIGIT                     00018900
AL1L   NI      0(12),0           *                                      00019000
       TM      AL1M+1,X'0F'      Q/ IS RESULT ZERO                      00019100
       BC      5,AL1M            NO                                     00019200
       OI      AL1M+1,X'0A'      YES, SET 8-2 BITS                      00019300
AL1M   OI      0(12),0           *                                      00019400
       MVI     AL1L+1,X'40'      SET TO ELIMINATE B-FIELD ZONES         00019500
       CLI     AEND,1            Q/ HAS A-FIELD ALREADY ENDED           00019600
       BE      AL1N              YES                                    00019700
       SR      11,0              NO, DECREMENT A-FIELD ADDRESS          00019800
       TM      1(11),X'40'       Q/ IS THIS THE END OF THE A-FIELD      00019900
       BZ      AL1N              NO                                     00020000
       MVI     AEND,1            YES, SET A-FIELD ENDED INDICATOR       00020100
AL1N   SR      12,0              DECREMENT B-FIELD ADDRESS              00020200
       TM      1(12),X'40'       Q/ IS THIS THE END OF THE B-FIELD      00020300
       BO      AL1O              YES                                    00020400
       MVI     POS1,0            NO, CLEAR 1-POSITION INDICATOR         00020500
       B       AL1I                                                     00020600
AL1O   LTR     1,1               Q/ CARRY                               00020700
       BC      6,NXTOP           YES, DONE                              00020800
*                                                                       00020900
*      PERFORM RECOMPLEMENT CYCLE                                       00021000
*                                                                       00021100
       LA      1,1               SET CARRY                              00021200
       L       12,SAVB           RESTORE B-FIELD UNITS ADDRESS          00021300
       IC      2,0(12)           GET B-FIELD SIGN                       00021400
       N       2,=F'48'          *                                      00021500
       NI      0(12),X'CF'       SET SIGN TO MINUS                      00021600
       OI      0(12),X'20'       *                                      00021700
       CH      2,=H'32'          Q/ WAS THE B-FIELD SIGN MINUS          00021800
       BNE     AL1P              NO, LEAVE IT MINUS                     00021900
       OI      0(12),X'30'       YES, SET IT PLUS                       00022000
AL1P   IC      3,0(12)           GET B-FIELD DIGIT                      00022100
       N       3,=F'15'          *                                      00022200
       CH      3,=H'10'          Q/ ZERO                                00022300
       BNE     *+6               NO                                     00022400
       SR      3,3               YES, CLEAR IT                          00022500
       LA      4,9               SET COMPLEMENT                         00022600
       SR      4,3               COMPLEMENT THE DIGIT                   00022700
       AR      4,1               ADD CARRY                              00022800
       LA      1,0               CLEAR CARRY                            00022900
       CH      4,=H'9'           Q/ IS THE RESULT GREATER THAN 9        00023000
       BNH     AL1Q              NO, OK                                 00023100
       SH      4,=H'10'          YES, SUBTRACT 10                       00023200
       LA      1,1               SET CARRY                              00023300
AL1Q   STC     4,AL1R+1          STORE RESULT                           00023400
       NI      0(12),X'70'       *                                      00023500
       TM      AL1R+1,X'0F'      Q/ IS RESULT ZERO                      00023600
       BC      5,AL1R            NO                                     00023700
       OI      AL1R+1,X'0A'      YES, SET 8-2 BITS                      00023800
AL1R   OI      0(12),0           *                                      00023900
       SR      12,0              DECREMENT B-FIELD ADDRESS              00024000
       TM      1(12),X'40'       Q/ IS THIS THE END OF THE B-FIELD      00024100
       BZ      AL1P              NO                                     00024200
       B       NXTOP             YES                                    00024300
TBTRCP DC      X'01000100000101000100010000010100'                      00024400
       DC      X'00010001010000010100010000010100'                      00024500
POS1   DC      X'0'                                                     00283500
SAVB   DS      F                                                        00283700
       TITLE  'ZERO AND ADD'                                            00024600
       USING   ZA,13                                                    00024700
ZA     CH      9,=H'1'                                                  00024800
       BE      ZAL1                                                     00024900
       CH      9,=H'7'                                                  00025000
       BE      ZAL7                                                     00025100
       CH      9,=H'4'                                                  00025200
       BNE     ILEGLN                                                   00025300
ZAL7   LA      6,1(10)                                                  00025400
       BAL     8,CVAD43                                                 00025500
       LR      11,5                                                     00025600
       LR      12,5                                                     00025700
       CH      9,=H'4'                                                  00025800
       BE      ZAL1                                                     00025900
       LA      6,4(10)                                                  00026000
       BAL     8,CVAD43                                                 00026100
       LR      12,5                                                     00026200
ZAL1   LR      6,12                                                     00026300
       LR      5,11                                                     00026400
       LA      0,1                                                      00026500
       IC      3,0(11)           SAVE LOW CHARACTER OF A-FIELD          00026600
       STC     3,TEMP1           *                                      00026700
ZAL1A  MVN     0(1,6),0(5)       MOVE NUMERIC                           00026800
       NI      0(6),X'4F'        ELIMINATE ZONE                         00026900
       SR      5,0                                                      00027000
       SR      6,0                                                      00027100
       TM      1(5),X'40'        Q/ END OF A-FIELD                      00027200
       BO      ZAL1E             YES                                    00027300
       TM      1(6),X'40'        NO, END OF B-FIELD                     00027400
       BZ      ZAL1A             NO, MOVE NEXT DIGIT                    00027500
ZAL1C  OI      0(12),X'20'       SET B-FIELD SIGN MINUS                 00027600
       NI      TEMP1,X'30'       Q/ IS A-FIELD MINUS                    00027700
       CLI     TEMP1,X'20'       *                                      00027800
       BE      ZAL1D             YES                                    00027900
       OI      0(12),X'30'       NO, SET B-FIELD SIGN PLUS              00028000
ZAL1D  LR      11,5              SET A-ADDRESS                          00028100
       LR      12,6              SET B-ADDRESS                          00028200
       B       NXTOP                                                    00028300
ZAL1E  TM      1(6),X'40'        ZERO B-FIELD BEYOND RANGE OF A-FIELD   00028400
       BO      ZAL1C             *                                      00028500
       NI      0(6),X'40'        *                                      00028600
       OI      0(6),X'0A'                                               00028700
       SR      6,0                                                      00028800
       B       ZAL1E             *                                      00028900
       TITLE  'ZERO AND SUBTRACT'                                       00029000
       USING   ZS,13                                                    00029100
ZS     CH      9,=H'7'                                                  00029200
       BE      ZS1                                                      00029300
         CH    9,=H'1'                                                  00029400
         BE    ZSL4                                                     00029500
       CH      9,=H'4'                                                  00029600
       BNE     ILEGLN                                                   00029700
ZS1    LA      6,1(10)                                                  00029800
       BAL     8,CVAD43                                                 00029900
       LR      11,5                                                     00030000
       LR      12,11                                                    00030100
       CH      9,=H'4'                                                  00030200
       BE      ZSL4                                                     00030300
       LA      6,4(10)                                                  00030400
       BAL     8,CVAD43                                                 00030500
       LR      12,5                                                     00030600
ZSL4   LR      5,11                                                     00030700
       LR      6,12                                                     00030800
       LA      0,1               SET ONE IN REG 0 FOR SUBTRACTING       00030900
       IC      3,0(11)           SAVE LOW CHARACTER OF A-FIELD          00031000
       STC     3,TEMP1           *                                      00031100
ZSL4A  MVN     0(1,6),0(5)       MOVE NUMERIC                           00031200
       NI      0(6),X'4F'        ELIMINATE ZONE                         00031300
       SR      5,0               DECREMENT A-ADDRESS                    00031400
       TM      1(5),X'40'                                               00031500
       BO      ZSL4F                                                    00031600
       SR      6,0               DECREMENT B-ADDRESS                    00031700
       TM      1(6),X'40'                                               00031800
       BZ      ZSL4A                                                    00031900
ZSL4C  OI      0(12),X'20'       SET B-FIELD SIGN MINUS                 00032000
       NI      TEMP1,X'30'       Q/ WAS A-FIELD MINUS                   00032100
       CLI     TEMP1,X'20'       *                                      00032200
       BNE     ZSL4D             LEAVE IT MINUS IF IT WAS PLUS          00032300
       OI      0(12),X'30'       MAKE B-FIELD PLUS                      00032400
ZSL4D  LR      11,5                                                     00032500
       LR      12,6                                                     00032600
       B       NXTOP                                                    00032700
ZSL4E  NI      0(6),X'40'                                               00032800
       OI      0(6),X'0A'                                               00032900
ZSL4F  SR      6,0                                                      00033000
       TM      1(6),X'40'                                               00033100
       BO      ZSL4C                                                    00033200
       B       ZSL4E                                                    00033300
       TITLE  'BRANCH, CONDITIONAL BRANCH, AND BRANCH ON CHARACTER'     00033400
       USING   B,13                                                     00033500
B      CH      9,=H'4'                                                  00033600
       BE      BL5BCH            UNCONDITIONAL BRANCH                   00033700
       CH      9,=H'8'                                                  00033800
       BE      BCE8                                                     00033900
       CH      9,=H'1'                                                  00034000
       BE      BCE1A                                                    00034100
       CH      9,=H'5'                                                  00034200
       BH      BL5BCH                                                   00034300
       BL      ILEGLN                                                   00034400
         IC    3,4(10)           GET D CHARACTER                        00034500
         N     3,=F'63'          *                                      00034600
         SLL   3,2               MULTIPLY BY 4                          00034700
         L     4,DCHARTBL(3)     GET ADDRESS OF CONDITIONAL BRANCH RTN  00034800
         BR    4                 GO TO ROUTINE OF NXTOP                 00034900
BL5A   TM      SENSEA,1          Q/ IS SENSE SWITCH A ON                00035000
       BZ      NXTOP             NO, CANNOT BRANCH                      00035100
       TM      CRDEOF,1          YES, IS READER EMPTY                   00035200
       BO      BL5BCH            YES, BRANCH                            00035300
       B       NXTOP             NO                                     00035400
BL5B   CLI     SENSEB,1                                                 00035500
       B       BL5CKB                                                   00035600
BL5C   CLI     SENSEC,1                                                 00035700
       B       BL5CKB                                                   00035800
BL5D   CLI     SENSED,1                                                 00035900
       B       BL5CKB                                                   00036000
BL5E   CLI     SENSEE,1                                                 00036100
       B       BL5CKB                                                   00036200
BL5F   CLI     SENSEF,1                                                 00036300
       B       BL5CKB                                                   00036400
BL5G   CLI     SENSEG,1                                                 00036500
       B       BL5CKB                                                   00036600
BL5K   CLI     TPEOF,1                                                  00036700
       MVI     TPEOF,0                                                  00036800
       B       BL5CKB                                                   00036900
BL5L   CLI     TPERR,1                                                  00037000
       B       BL5CKB                                                   00037100
BL5S   CLI     CPR,0                                                    00037200
       B       BL5CKB                                                   00037300
BL5T   CLI     CPR,1                                                    00037400
       B       BL5CKB                                                   00037500
BL5U   CLI     CPR,2                                                    00037600
       B       BL5CKB                                                   00037700
BL51   CLI     CPR,0                                                    00037800
       BE      NXTOP                                                    00037900
       B       BL5BCH                                                   00038000
BL5Z   CLI     OVRFLO,1                                                 00038100
       MVI     OVRFLO,0                                                 00038200
       B       BL5CKB                                                   00038300
BL52   CLI     PRTP12,1                                                 00038400
       B       BL5CKB                                                   00038500
BL5RER CLI     RDRERR,1                                                 00038600
       MVI     RDRERR,0                                                 00038700
       B       BL5CKB                                                   00038800
BL5PER CLI     PCHERR,1                                                 00038900
       MVI     PCHERR,0                                                 00039000
BL5P     B     NXTOP                                                    00039100
BL53   CLI     PRTERR,1          Q/ PRINT ERROR                         00039200
       MVI     PRTERR,0          CLEAR ERROR INDICATOR                  00039300
       B       BL5CKB            CHECK CONDITION CODE                   00039400
BL5CKB BNE     NXTOP                                                    00039500
BL5BCH LA      6,1(10)                                                  00039600
       B       SETBCH            SET CONDITIONS FOR BRANCH              00039700
BCE8     CLI   4(10),0           Q/ IS FIFTH CHARACTER A BLANK          00039800
         BE    BL5BCH            YES, BRANCH                            00039900
         LA    6,4(10)           NO, TREAT AS BCE                       00040000
       BAL     8,CVAD43                                                 00040100
       LR      12,5                                                     00040200
       LA      6,1(10)                                                  00040300
       BAL     8,CVAD43                                                 00040400
       LR      11,5                                                     00040500
         MVC   DCHAR,7(10)                                              00040600
BCE1A  MVC     TEMP1(1),0(12)                                           00040700
       NI      TEMP1,X'BF'                                              00040800
         CLC   TEMP1,DCHAR       COMPARE D CHARACTER TO CORE LOCATION   00040900
       BNE     BCE1B                                                    00041000
       LR      12,10                                                    00041100
       AR      12,9                                                     00041200
       ST      10,LSTBCH         STORE LOCATION COUNTER BEFORE BRANCH   00041300
       LR      10,11                                                    00041400
       LA      9,0                                                      00041500
       B       NXTOP                                                    00041600
BCE1B  SH      12,=H'1'                                                 00041700
       B       NXTOP                                                    00041800
DCHARTBL DC    A(BL5BCH),11A(NXTOP),A(BL52),4A(NXTOP),A(BL51,BL5S)      00041900
         DC    A(BL5T,BL5U),4A(NXTOP),A(BL5Z,BL53),7A(NXTOP)            00042000
         DC    A(BL5K,BL5L),3A(NXTOP),A(BL5P,NXTOP,BL5P,BL5PER)         00042100
         DC    6A(NXTOP),A(BL5A,BL5B,BL5C,BL5D,BL5E,BL5F,BL5G)          00042200
         DC    2A(NXTOP),A(BL5RER),5A(NXTOP)                            00042300
       TITLE  'BRANCH ON WORD MARK / ZONE'                              00042400
       USING   BWZ,13                                                   00042500
BWZ    CH      9,=H'1'                                                  00042600
       BE      BWZL1                                                    00042700
       CH      9,=H'8'                                                  00042800
       BNE     ILEGLN                                                   00042900
       LA      6,1(10)                                                  00043000
       BAL     8,CVAD43                                                 00043100
       LR      11,5                                                     00043200
       LA      6,4(10)                                                  00043300
       BAL     8,CVAD43                                                 00043400
       LR      12,5                                                     00043500
       MVC     DCHAR(1),7(10)                                           00043600
BWZL1  SH      12,=H'1'                                                 00043700
       CLI     DCHAR,X'01'                                              00043800
       BE      BWZW                                                     00043900
       CLI     DCHAR,X'02'                                              00044000
       BE      BWZ0                                                     00044100
       CLI     DCHAR,X'32'                                              00044200
       BE      BWZBA                                                    00044300
       CLI     DCHAR,X'22'                                              00044400
       BE      BWZB                                                     00044500
       CLI     DCHAR,X'12'                                              00044600
       BE      BWZA                                                     00044700
       CLI     DCHAR,X'03'                                              00044800
       BE      BWZW0                                                    00044900
       CLI     DCHAR,X'33'                                              00045000
       BE      BWZWBA                                                   00045100
       CLI     DCHAR,X'23'                                              00045200
       BE      BWZWB                                                    00045300
       CLI     DCHAR,X'13'                                              00045400
       BE      BWZWA                                                    00045500
       B       ILEGOP                                                   00045600
BWZW   TM      1(12),X'40'                                              00045700
       BO      BWZBCH                                                   00045800
       B       NXTOP                                                    00045900
BWZ0   TM      1(12),X'30'                                              00046000
       BZ      BWZBCH                                                   00046100
       B       NXTOP                                                    00046200
BWZBA  TM      1(12),X'30'                                              00046300
       BO      BWZBCH                                                   00046400
       B       NXTOP                                                    00046500
BWZB   TM      1(12),X'20'                                              00046600
       BZ      NXTOP                                                    00046700
       TM      1(12),X'10'                                              00046800
       BO      NXTOP                                                    00046900
       B       BWZBCH                                                   00047000
BWZA   TM      1(12),X'20'                                              00047100
       BO      NXTOP                                                    00047200
       TM      1(12),X'10'                                              00047300
       BO      BWZBCH                                                   00047400
       B       NXTOP                                                    00047500
BWZW0  TM      1(12),X'40'                                              00047600
       BO      BWZBCH                                                   00047700
       B       BWZ0                                                     00047800
BWZWBA TM      1(12),X'40'                                              00047900
       BO      BWZBCH                                                   00048000
       B       BWZBA                                                    00048100
BWZWB  TM      1(12),X'40'                                              00048200
       BO      BWZBCH                                                   00048300
       B       BWZB                                                     00048400
BWZWA  TM      1(12),X'40'                                              00048500
       BO      BWZBCH                                                   00048600
       B       BWZA                                                     00048700
BWZBCH ST      10,LSTBCH         STORE LOCATION COUNTER BEFORE BRANCH   00048800
       LR      12,10             SET B-REG                              00048900
       AR      12,9              *                                      00049000
       LR      10,11             SET LOCATION COUNTER FOR BRANCH        00049100
       LA      9,0               *                                      00049200
       B       NXTOP                                                    00049300
       TITLE  'COMPARE'                                                 00049400
       USING   C,13                                                     00049500
C        CH    9,=H'1'                                                  00049600
         BE    CL1                                                      00049700
         CH    9,=H'4'                                                  00049800
         BE    CL4                                                      00049900
         CH    9,=H'7'                                                  00050000
       BNE     ILEGLN                                                   00050100
       LA      6,4(10)                                                  00050200
       BAL     8,CVAD43                                                 00050300
       LR      12,5                                                     00050400
         MVI   TCPR,0            INITALIZE COMPARE RESULT TO EQUAL      14015045
*                                 (1401 RESETS WHEN B-ADDR LOADED)      14015046
CL4      LA    6,1(10)           CONVERT A-ADDR TO 360 FORMAT           00050500
         BAL   8,CVAD43          *                                      00050600
         LR    11,5              *                                      00050700
         CH    9,=H'4'           Q/ IS INSTRUCTION 4 CHARACTERS         00050800
         BNE   CL1               NO                                     00050900
         LR    12,11             YES, FORS                              00051000
         LR    12,11             YES, FORCE B/ADDR = A/ADDR             00051100
CL1      LA    4,0                                                      14015130
       LA      0,1                                                      00051400
C1     SR      11,0                                                     00051500
       SR      12,0                                                     00051600
       TM      1(12),X'40'                                              00051700
       BO      C2                                                       00051800
       TM      1(11),X'40'                                              00051900
       BO      C5                LONG B-FIELD                           00052000
       LA      4,1(4)                                                   00052100
       B       C1                                                       00052200
C2     LR      5,11                                                     00052300
       LR      6,12                                                     00052400
       LA      4,1(4)                                                   00052500
C3     MVC     TCR(1),1(6)                                              00052600
       MVC     TCR+1(1),1(5)                                            00052700
       TR      TCR(2),CPRTBL     CONVERT DIGITS TO SORT SEQUENCE        00052800
       CLC     TCR(1),TCR+1                                             00052900
       BH      C5                                                       00053000
       BL      C6                                                       00053100
       LA      5,1(5)                                                   00053200
       LA      6,1(6)                                                   00053300
       BCT     4,C3                                                     00053400
C4       CH    9,=H'1'                                                  00053500
         BNE   C4A                                                      00053600
         CLI   TCPR,0                                                   00053700
         BE    NXTOP                                                    00053800
C4A      MVC   CPR,TCPR                                                 00053900
       B       NXTOP                                                    00054000
C5     MVI     TCPR,2            SET HIGH                               00054100
       B       C4                                                       00054200
C6     MVI     TCPR,1            SET LOW                                00054300
       B       C4                                                       00054400
TCPR   DC      X'00'                                                    00054500
TCR    DS      CL2                                                      00054600
CPRTBL DC      HL1'0,55,56,57,58,59,60,61,62,63,54,20,21,22,23,24'      00054700
       DC      HL1'19,13,46,47,48,49,50,51,52,53,45,14,15,16,17,18'     00054800
       DC      HL1'12,36,37,38,39,40,41,42,43,44,35,7,8,9,10,11'        00054900
       DC      HL1'6,26,27,28,29,30,31,32,33,34,25,1,2,3,4,5'           00055000
       DC      HL1'0,55,56,57,58,59,60,61,62,63,54,20,21,22,23,24'      00055100
       DC      HL1'19,13,46,47,48,49,50,51,52,53,45,14,15,16,17,18'     00055200
       DC      HL1'12,36,37,38,39,40,41,42,43,44,35,7,8,9,10,11'        00055300
       DC      HL1'6,26,27,28,29,30,31,32,33,34,25,1,2,3,4,5'           00055400
       TITLE  'HALT'                                                    00055500
       USING   H,13                                                     00055600
H      CH      9,=H'1'                                                  00055700
       BE      H1                                                       00055800
       CH      9,=H'4'                                                  00055900
       BE      H1                                                       00056000
       CH      9,=H'7'                                                  00056100
       BNE     ILEGLN                                                   00056200
H1       LR    5,10              CONVERT I ADDRESS                      00056300
         BAL   8,H5                     *                               00056400
         MVC   I003+12(6),HLTADARA   MOVE I ADDR TO OUTPUT                 06140
         MVC   I003+21(6),=CL6' '                                          06150
         MVC   I003+30(6),=CL6' '                                          06155
         CH    9,=H'7'                  Q/ IS THERE A B ADDRESS         00056700
         BL    H2                       NO                              00056800
         LA    6,1(10)           CONVERT 1401 ADDRESS                   00056900
         BAL   8,CVAD43          *                                      00057000
         BAL   8,H5                     *                               00057100
         MVC   I003+21(6),HLTADARA   MOVE A ADDR TO OUTPUT                 06210
         LA    6,4(10)           CONVERT 1401 B ADDRESS                 00057300
         BAL   8,CVAD43          *                                      00057400
         BAL   8,H5                     *                               00057500
         MVC   I003+30(6),HLTADARA   MOVE B ARRR YO OUTPUT
         MSG   'I003 HALT  I      , A      , B      ',I003
         AIF   ('&CONSOLE' EQ 'Y').HWTO2
H2       B     TERMINAT
.HWTO2   ANOP
       CH      9,=H'4'                                                  00057900
       BNE     H3                                                       00058000
       LA      6,1(10)                                                  00058100
       BAL     8,CVAD43                                                 00058200
       ST      5,ADR360                                                 00058300
H3       MVC   RETURN,=A(H4)       SET TO CONTINUE AFTER RESTART        00058400
         B     WTORTN                                                   00058500
H4     CH      9,=H'4'           Q/ BRANCH                              00058600
       BNE     NXTOP                                                    00058700
         LR    12,10                                                    00058800
         AR    12,9                                                     00058900
       L       10,ADR360                                                00059000
       LA      9,0                                                      00059100
       B       NXTOP                                                    00059200
H5       SR    5,7               GET 1401 ADDRESS                       00059300
         CVD   5,PAKT            CONVERT TO DECIMAL                     00059400
         UNPK  HLTADARA(6),PAKT+5(3)    UNPACK 1401 ADDRESS             00059500
         OI    HLTADARA+5,X'F0'         MAKE SIGN NUMERIC               00059600
         LA    1,HLTADARA               BLANK LEADING ZEROS             00059700
H6       CLI   0(1),C'0'         *                                      00059800
         BCR   6,8                      *                               00059900
         MVI   0(1),X'40'               *                               00060000
         LA    1,1(1)                   *                               00060100
         B     H6                *                                      00060200
HLTADARA DC    CL6' '                                                   00060300
       TITLE  'CLEAR STORAGE'                                           00060400
       USING   CS,13                                                    00060500
CS     CH      9,=H'1'                                                  00060600
       BE      CSL1                                                     00060700
       CH      9,=H'4'                                                  00060800
       BE      CSL4                                                     00060900
       CH      9,=H'7'                                                  00061000
       BL      ILEGLN                                                   00061100
       MVC     HLDBCH(3),1(10)                                          00061200
       LA      6,4(10)                                                  00061300
       B       CSCOM                                                    00061400
CSL4   LA      6,1(10)                                                  00061500
CSCOM  BAL     8,CVAD43                                                 00061600
       LR      12,5                                                     00061700
CSL1   LR      3,12                                                     00061800
       SR      3,7               SUBTRACT SIMULATED CORE BASE LOCATION  00061900
       LA      2,0                                                      00062000
       D       2,=F'100'                                                00062100
       SR      12,2                                                     00062200
       STC     2,CSL1A+1                                                00062300
CSL1A  XC      0(0,12),0(12)     CLEAR CORE BLOCK                       00062400
       CR      12,7              Q/ DID B-REG GO TO 0                   00062500
       BNE     CS2               NO                                     00062600
         L     12,=F'15999'                                             00062700
         AR    12,7                                                     00062800
       B       CS3               *                                      00062900
CS2    SH      12,=H'1'          SUBTRACT 1 FROM B-REG                  00063000
CS3    CH      9,=H'7'           Q/ IS THERE A BRANCH                   00063100
       BL      NXTOP                                                    00063200
       LA      6,HLDBCH                                                 00063300
         B     SETBCH                                                   00063400
HLDBCH DS      CL3                                                      00063500
       TITLE  'SET WORD MARK'                                           00063600
       USING   SW,13                                                    00063700
SW     CH      9,=H'6'                                                  00063800
       BNL     SWL7                                                     00063900
       CH      9,=H'4'                                                  00064000
       BE      SWL4                                                     00064100
       CH      9,=H'1'                                                  00064200
       BE      SWL1                                                     00064300
       B       ILEGLN                                                   00064400
SWL4   LA      6,1(10)                                                  00064500
       BAL     8,CVAD43                                                 00064600
       LR      11,5                                                     00064700
       OI      0(11),X'40'                                              00064800
       SH      11,=H'1'                                                 00064900
       LR      12,11                                                    00065000
       B       NXTOP                                                    00065100
SWL7   LA      6,1(10)                                                  00065200
       BAL     8,CVAD43                                                 00065300
       LR      11,5                                                     00065400
       LA      6,4(10)                                                  00065500
       BAL     8,CVAD43                                                 00065600
       LR      12,5                                                     00065700
SWL1   OI      0(11),X'40'                                              00065800
       OI      0(12),X'40'                                              00065900
       SH      11,=H'1'                                                 00066000
       SH      12,=H'1'                                                 00066100
       CH      9,=H'7'                                                  00066200
       BNH     NXTOP                                                    00066300
       LA      9,7                                                      00066400
       B       NXTOP                                                    00066500
       TITLE  'CLEAR WORD MARK'                                         00066600
       USING   CW,13                                                    00066700
CW     CH      9,=H'6'                                                  00066800
       BNL     CWL7                                                     00066900
       CH      9,=H'4'                                                  00067000
       BE      CWL4                                                     00067100
       CH      9,=H'1'                                                  00067200
       BE      CWL1                                                     00067300
       B       ILEGLN                                                   00067400
CWL4   LA      6,1(10)                                                  00067500
       BAL     8,CVAD43                                                 00067600
       LR      11,5                                                     00067700
       NI      0(11),X'BF'                                              00067800
       SH      11,=H'1'                                                 00067900
       LR      12,11                                                    00068000
       B       NXTOP                                                    00068100
CWL7   LA      6,1(10)                                                  00068200
       BAL     8,CVAD43                                                 00068300
       LR      11,5                                                     00068400
       LA      6,4(10)                                                  00068500
       BAL     8,CVAD43                                                 00068600
       LR      12,5                                                     00068700
CWL1   NI      0(11),X'BF'                                              00068800
       NI      0(12),X'BF'                                              00068900
       SH      11,=H'1'                                                 00069000
       SH      12,=H'1'                                                 00069100
       B       NXTOP                                                    00069200
       TITLE  'MOVE CHARACTERS TO A WORD MARK'                          00069300
       USING   MCW,13                                                   00069400
MCW    CH      9,=H'7'                                                  00069500
       BE      MCWL7                                                    00069600
       CH      9,=H'4'                                                  00069700
       BE      MCWL4                                                    00069800
       CH      9,=H'1'                                                  00069900
       BE      MCWL1                                                    00070000
       CH      9,=H'8'                                                  00070100
       BE      MCW8                                                     00070200
       B       ILEGLN                                                   00070300
MCWL7  LA      6,4(10)                                                  00070400
       BAL     8,CVAD43                                                 00070500
       LR      12,5                                                     00070600
MCWL4  LA      6,1(10)                                                  00070700
       BAL     8,CVAD43                                                 00070800
       LR      11,5                                                     00070900
MCWL1  LA      0,1                                                      00071000
MCWL1B MVC     MCWL1A+1(1),0(11)                                        00071100
       NI      MCWL1A+1,X'3F'                                           00071200
       NI      0(12),X'40'                                              00071300
MCWL1A OI      0(12),0                                                  00071400
       SR      11,0                                                     00071500
       SR      12,0                                                     00071600
       TM      1(11),X'40'                                              00071700
       BO      NXTOP                                                    00071800
       TM      1(12),X'40'                                              00071900
       BZ      MCWL1B                                                   00072000
       B       NXTOP                                                    00072100
MCW8   MVC     DCHAR(1),7(10)                                           00072200
       CLI     DCHAR,X'29'                                              00072300
       BE      RT                                                       00072400
       CLI     DCHAR,X'16'                                              00072500
         BE    CHKCON
       CLI     DCHAR,X'31'                                              00072700
       BE      MBD                                                      00072800
       CLI     DCHAR,X'32'                                              00072900
       BE      MBD                                                      00073000
       B       ILEGOP                                                   00073100
CHKCON   CLI   2(10),X'13'   CHECK FOR T IN
         BE    CONSOLE       M%T0XXXW INST
         B     WT
*                                                                       00073200
*      READ TAPE WITHOUT WORD MARKS                                     00073300
*                                                                       00073400
          AIF  ('&TAPE' EQ 'N').NOTRD
RT     LA      6,4(10)           CONVERT CORE LOCATION FOR TAPE READ    00073500
       BAL     8,CVAD43          *                                      00073600
       LR      12,5              *                                      00073700
       BAL     8,FNDRIV          GET DEVICE ADDRESS                     00073800
       MVI     RTCCW,X'A3'       SET PARITY IN MODE SET COMMAND         00073900
       MVI     BCDTAP,1          *                                      00074000
       TM      2(10),X'14'       *                                      00074100
       BO      RT1               *                                      00074200
       MVI     RTCCW,X'B3'       *                                      00074300
       MVI     BCDTAP,0          SET BINARY                             00074400
RT1      ST    3,TMDCB                                                  00074500
         MVC   TPCCW,=A(RTCCW)                                          00074600
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00074700
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00074800
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00074900
         EXCP  TMIOB                                                    00075000
         LM    14,15,4(6)      RESTORE REG 14 AND 15                    00075100
         WAIT  1,ECB=TMECB     WAIT FOR I/O                             00075200
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00075300
         BAL   8,TPTEST                                                 00075400
       BAL     8,FNDLNG          FIND LENGTH OF B-FIELD                 00075500
       LR      3,6               *                                      00075600
         L     1,TAPEAREA        SET SENDING ADDRESS                    00075700
       LH      5,SAVCSW+6        FIND NUMBER OF BYTES READ              00075800
       LH      4,=H'25000'       *                                      00075900
       SR      4,5               *                                      00076000
       CR      3,4               USE SMALLER FIELD                      00076100
       BNH     RT3               *                                      00076200
       LR      3,4               *                                      00076300
RT3    CH      3,=H'256'         Q/ MORE THAN 256 BYTES                 00076400
       BNH     RT4               NO                                     00076500
       NC      0(256,12),WM256   YES, MOVE 256 BYTES                    00076600
       CLI     BCDTAP,1          *                                      00076700
       BNE     RT3A              *                                      00076800
       TR      0(256,1),TR4IBC   *                                      00076900
RT3A   OC      0(256,12),0(1)    *                                      00077000
       LA      1,256(1)          *                                      00077100
       LA      12,256(12)        *                                      00077200
       SH      3,=H'256'         *                                      00077300
       B       RT3               *                                      00077400
RT4    SH      3,=H'1'           MOVE REMAINING BYTES                   00077500
       STC     3,RT5+1           *                                      00077600
       STC     3,RT6+1           *                                      00077700
       STC     3,RT7+1           *                                      00077800
RT5    NC      0(0,12),WM256     *                                      00077900
       CLI     BCDTAP,1          *                                      00078000
       BNE     RT7               *                                      00078100
RT6    TR      0(0,1),TR4IBC     *                                      00078200
RT7    OC      0(0,12),0(1)      *                                      00078300
       AR      12,3              SET GROUP MARK AFTER DATA              00078400
       NI      1(12),X'40'       *                                      00078500
       OI      1(12),X'3F'       *                                      00078600
       LA      12,2(12)          SET B-ADDRESS                          00078700
       B       NXTOP             END OF TAPE READ INSTRUCTION           00078800
*                                                                       00078900
*      WRITE TAPE WITHOUT WORD MARKS                                    00079000
*                                                                       00079100
WT     LA      6,4(10)                                                  00079200
       BAL     8,CVAD43                                                 00079300
       LR      12,5                                                     00079400
       BAL     8,FNDLNG                                                 00079500
       STH     6,WTCCW2+6        STORE LENGTH IN CCW                    00079600
       LR      4,12                                                     00079700
       AR      12,6              SET B-ADDRESS                          00079800
       LA      12,1(12)          *                                      00079900
         L     3,TAPEAREA                                               00080000
       MVI     WTCCW1,X'A3'      SET BCD MODE                           00080100
       MVI     BCDTAP,1          *                                      00080200
       CLI     2(10),X'14'       Q/ IS INSTRUCTION BCD                  00080300
       BE      WT1               YES                                    00080400
       MVI     WTCCW1,X'B3'      NO, SET BINARY MODE                    00080500
       MVI     BCDTAP,0          *                                      00080600
WT1    CH      6,=H'256'                                                00080700
       BNH     WT2                                                      00080800
       MVC     0(256,3),0(4)                                            00080900
       CLI     BCDTAP,1          Q/ BCD                                 00081000
       BNE     WT1A              NO                                     00081100
       TR      0(256,3),TRI4BC   YES, CHANGE X'00' TO X'10' FOR TAPE    00081200
WT1A   LA      3,256(3)          UP REG 3 BY 256                        00081300
       LA      4,256(4)                                                 00081400
       SH      6,=H'256'                                                00081500
       B       WT1                                                      00081600
WT2    STC     6,WT3+1                                                  00081700
       STC     6,WT4+1                                                  00081800
WT3    MVC     0(0,3),0(4)                                              00081900
       CLI     BCDTAP,1          Q/ BCD                                 00082000
       BNE     WT4A              NO                                     00082100
WT4    TR      0(0,3),TRI4BC     YES, CHANGE X'00' TO X'10' FOR TAPE    00082200
WT4A   BAL     8,FNDRIV          GET DEVICE ADDRESS                     00082300
         ST    3,TMDCB                                                  00082400
         MVC   TPCCW,=A(WTCCW1)                                         00082500
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00082600
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00082700
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00082800
         EXCP  TMIOB                                                    00082900
         LM    14,15,4(6)      RESTORE REG 14 AND 15                    00083000
         WAIT  1,ECB=TMECB     WAIT FOR I/O                             00083100
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00083200
         BAL   8,TPTEST                                                 00083300
       B       NXTOP                                                    00083400
.NOTRD   ANOP
         AIF   ('&TAPE' EQ 'Y').RTOK
RT       B     ILEGOP
WT       B     ILEGOP
.RTOK    ANOP
         SPACE
         AIF   ('&MB' EQ 'N').NOMB
MBD    LA      6,1(10)                                                  00083500
       BAL     8,CVAD43                                                 00083600
       LR      11,5                                                     00083700
       LA      6,4(10)                                                  00083800
       BAL     8,CVAD43                                                 00083900
       LR      12,5                                                     00084000
       LA      0,1                                                      00084100
       LR      6,12                                                     00084200
       SH      6,=H'100'                                                00084300
       CLI     DCHAR,X'32'                                              00084400
       BE      MBC                                                      00084500
       LR      6,11                                                     00084600
       SH      6,=H'100'                                                00084700
MBD1   IC      3,0(11)                                                  00084800
       STC     3,MBD2+1                                                 00084900
       NI      MBD2+1,X'BF'                                             00085000
       NI      0(12),X'40'                                              00085100
MBD2   OI      0(12),0                                                  00085200
       SR      12,0                                                     00085300
       IC      3,0(6)                                                   00085400
       STC     3,MBD3+1                                                 00085500
       NI      MBD3+1,X'BF'                                             00085600
       NI      0(12),X'40'                                              00085700
MBD3   OI      0(12),0                                                  00085800
       SR      12,0                                                     00085900
       SR      11,0                                                     00086000
       SR      6,0                                                      00086100
       TM      1(6),X'40'                                               00086200
       BC      8,MBD1                                                   00086300
       B       NXTOP                                                    00086400
MBC    IC      3,0(11)                                                  00086500
       STC     3,MBC1+1                                                 00086600
       NI      MBC1+1,X'BF'                                             00086700
       NI      0(12),X'40'                                              00086800
MBC1   OI      0(12),0                                                  00086900
       SR      11,0                                                     00087000
       IC      3,0(11)                                                  00087100
       STC     3,MBC2+1                                                 00087200
       NI      MBC2+1,X'BF'                                             00087300
       NI      0(6),X'40'                                               00087400
MBC2   OI      0(6),0                                                   00087500
       SR      12,0                                                     00087600
       SR      11,0                                                     00087700
       SR      6,0                                                      00087800
       TM      1(6),X'40'                                               00087900
       BO      NXTOP                                                    00088000
       TM      1(12),X'40'                                              00088100
       BZ      MBC                                                      00088200
       B       NXTOP                                                    00088300
.NOMB    AIF   ('&MB' EQ 'Y').YESMB
MBD      B     ILEGOP
.YESMB   ANOP
         SPACE
CONSOLE  CH    9,=H'8'
         BNE   ILEGLN
         LA    6,4(10)
         BAL   8,CVAD43      CONVERT B ADDR
         LR    12,5
         TRT   0(50,5),TRGPWM                                              09630
         BC    6,CONSOLE1
         L     1,=F'49'                                                    09650
         B     CLRMSG
CONSOLE1 SR    1,5
CLRMSG   MVI   CON,C' '            BLANK MSG AREA                          09680
         MVC   CON+1(49),CON                                               09690
         EX    1,MV                                                        09600
         EX    1,TRAN                                                      09610
         MSG   '                                                  ',CON    09740
         B     NXTOP
TRAN     TR    CON(0),TRIE                                                 09800
MV       MVC   CON(0),0(12)                                                09810
       TITLE  'MOVE CHARACTERS AND SUPPRESS LEADING ZEROS'              00088400
       USING   MCS,13                                                   00088500
MCS    CH      9,=H'1'                                                  00088600
       BE      MCSL1                                                    00088700
       CH      9,=H'7'                                                  00088800
         BE    MCSL7                                                    00088900
         CH    9,=H'4'                                                  00089000
         BNE   ILEGLN                                                   00089100
         LA    6,1(10)                                                  00089200
         BAL   8,CVAD43                                                 00089300
         LR    11,5                                                     00089400
         LR    12,5                                                     00089500
         B     MCSL1                                                    00089600
MCSL7    LA    6,1(10)                                                  00089700
       BAL     8,CVAD43                                                 00089800
       LR      11,5                                                     00089900
       LA      6,4(10)                                                  00090000
       BAL     8,CVAD43                                                 00090100
       LR      12,5                                                     00090200
MCSL1  LA      0,1                                                      00090300
       MVI     SUPRES,1                                                 00090400
       IC      3,0(11)           MOVE ONLY DIGIT OF FIRST CHARACTER     00090500
       STC     3,0(12)           *                                      00090600
       NI      0(12),X'0F'       *                                      00090700
       STC     3,TEMP1           SAVE A-CHARACTER                       00090800
       OI      0(12),X'40'       SET WORD MARK TO STOP REVERSE SCAN     00090900
       B       MCSL1B                                                   00091000
MCSL1A IC      3,0(11)           MOVE CHARACTER                         00091100
       STC     3,0(12)           *                                      00091200
       STC     3,TEMP1           SAVE A-CHARACTER                       00091300
       NI      0(12),X'3F'       *                                      00091400
MCSL1B SR      11,0                                                     00091500
        SR     12,0                                                     00091600
       TM      TEMP1,X'40'       Q/ END OF A-FIELD                      00091700
       BZ      MCSL1A            NO                                     00091800
       LA      12,1(12)          YES                                    00091900
MCSL1C MVC     TEMP1(1),0(12)                                           00092000
       NI      TEMP1,X'3F'                                              00092100
       CLI     SUPRES,1          Q/ IS ZERO SUPPRESSION ON              00092200
       BE      MCSL1G            YES                                    00092300
       CLI     TEMP1,X'0A'       NO, IS IT SIGNIFICANT DIGIT,BLANK 0    00092400
       BNH     MCSL1E            YES                                    00092500
       CLI     TEMP1,X'1B'       Q/ COMMA                               00092600
       BE      MCSL1E            YES                                    00092700
       CLI     TEMP1,X'20'       Q/ HYPHEN                              00092800
       BE      MCSL1E            YES                                    00092900
         MVI   SUPRES,1        TURN ON ZERO SUPRESSION                  00093000
MCSL1E TM      0(12),X'40'       Q/ LAST DIGIT                          00093100
       BO      MCSL1F            YES                                    00093200
       LA      12,1(12)          NO, PROCESS NEXT DIGIT                 00093300
       B       MCSL1C            *                                      00093400
MCSL1F NI      0(12),X'BF'       CLEAR WORD MARK                        00093500
       LA      12,1(12)          SET B-ADDRESS                          00093600
       B       NXTOP             GET NEXT INSTRUCTION                   00093700
MCSL1G CLI     0(12),X'09'       Q/ SIGNIFICANT DIGIT                   00093800
       BH      MCSL1H            *                                      00093900
       CLI     0(12),X'00'       *                                      00094000
       BE      MCSL1H            *                                      00094100
       MVI     SUPRES,0          YES, TURN OFF ZERO SUPPRESSION         00094200
       B       MCSL1E            *                                      00094300
MCSL1H CLI     TEMP1,X'00'       Q/ BLANK                               00094400
       BE      MCSL1I            BLANK                                  00094500
       CLI     TEMP1,X'0A'       Q/ ZERO                                00094600
       BE      MCSL1I            ZERO                                   00094700
       CLI     TEMP1,X'1B'       Q/ COMMA                               00094800
       BNE     MCSL1E            NO                                     00094900
MCSL1I NI      0(12),X'40'                                              00095000
       B       MCSL1E                                                   00095100
       TITLE  'MOVE NUMERIC'                                            00095200
       USING   MN,13                                                    00095300
MN     CH      9,=H'1'                                                  00095400
       BE      MNL1                                                     00095500
         CH    9,=H'4'                                                  00095600
         BE    MNL4                                                     00095700
       CH      9,=H'7'                                                  00095800
       BNE     ILEGLN                                                   00095900
       LA      6,4(10)                                                  00096000
       BAL     8,CVAD43                                                 00096100
       LR      12,5                                                     00096200
MNL4     LA    6,1(10)                                                  00096300
         BAL   8,CVAD43                                                 00096400
         LR    11,5                                                     00096500
         CH    9,=H'4'                                                  00096600
         BNE   MNL1                                                     00096700
         LR    12,11             4 CHARACTERS, SET B ADR = A ADR        00096800
MNL1   MVN     0(1,12),0(11)     MOVE NUMERIC                           00096900
       SH      11,=H'1'                                                 00097000
       SH      12,=H'1'                                                 00097100
       B       NXTOP                                                    00097200
       TITLE  'MOVE ZONE'                                               00097300
       USING   MZ,13                                                    00097400
MZ     CH      9,=H'1'                                                  00097500
       BE      MZL1                                                     00097600
       CH      9,=H'7'                                                  00097700
       BNE     ILEGLN                                                   00097800
       LA      6,1(10)                                                  00097900
       BAL     8,CVAD43                                                 00098000
       LR      11,5                                                     00098100
       LA      6,4(10)                                                  00098200
       BAL     8,CVAD43                                                 00098300
       LR      12,5                                                     00098400
MZL1   IC      3,0(11)                                                  00098500
       STC     3,MZL1A+1                                                00098600
       NI      0(12),X'CF'                                              00098700
       NI      MZL1A+1,X'30'                                            00098800
MZL1A  OI      0(12),0                                                  00098900
       SH      11,=H'1'                                                 00099000
       SH      12,=H'1'                                                 00099100
       B       NXTOP                                                    00099200
       TITLE  'LOAD CHARACTERS TO AN A-FIELD WORD MARK'                 00099300
       USING   LCA,13                                                   00099400
LCA    CH      9,=H'7'                                                  00099500
       BE      LCAL7                                                    00099600
       CH      9,=H'4'                                                  00099700
       BE      LCAL4                                                    00099800
       CH      9,=H'1'                                                  00099900
       BE      LCAL1                                                    00100000
       CH      9,=H'8'                                                  00100100
       BE      LCA8                                                     00100200
       B       ILEGLN                                                   00100300
LCAL7  LA      6,4(10)                                                  00100400
       BAL     8,CVAD43                                                 00100500
       LR      12,5                                                     00100600
LCAL4  LA      6,1(10)                                                  00100700
       BAL     8,CVAD43                                                 00100800
       LR      11,5                                                     00100900
LCAL1  LA      0,1                                                      00101000
LCAL1A IC      3,0(11)                                                  00101100
       STC     3,0(12)                                                  00101200
       SR      11,0                                                     00101300
       SR      12,0                                                     00101400
       TM      1(11),X'40'                                              00101500
       BZ      LCAL1A                                                   00101600
       B       NXTOP                                                    00101700
LCA8   CLI     7(10),X'29'                                              00101800
       BE      RTW                                                      00101900
       CLI     7(10),X'16'                                              00102000
       BE      WTW                                                      00102100
       B       ILEGOP                                                   00102200
*                                                                       00102300
*      READ TAPE WITH WORD MARKS                                        00102400
*                                                                       00102500
          AIF  ('&TAPE' EQ 'N').NOTWT
RTW    LA      6,4(10)                                                  00102600
       BAL     8,CVAD43                                                 00102700
       LR      12,5                                                     00102800
       BAL     8,FNDRIV                                                 00102900
       MVI     RTCCW,X'A3'       LOAD MODE SET COMMAND                  00103000
         ST    3,TMDCB                                                  00103100
         MVC   TPCCW,=A(RTCCW)                                          00103200
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00103300
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00103400
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00103500
         EXCP  TMIOB                                                    00103600
         LM    14,15,4(6)      RESTORE REG 14 AND 15                    00103700
         WAIT  1,ECB=TMECB     WAIT FOR I/O                             00103800
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00103900
         BAL   8,TPTEST                                                 00104000
       LH      3,SAVCSW+6        FIND NUMBER OF BYTES READ              00104100
       LH      4,=H'25000'       *                                      00104200
       SR      4,3                                                      00104300
         L     1,TAPEAREA        SET SENDING ADDRESS                    00104400
RTW1   CLI     0(12),X'7F'       Q/ GP MK - WD MK IN CORE               00104500
       BE      RTW3              YES                                    00104600
       CLI     0(1),X'1D'        Q/ WORD SEPARATOR                      00104700
       BNE     RTW2              NO                                     00104800
       LA      1,1(1)            YES                                    00104900
       IC      3,0(1)                                                   00105000
       STC     3,0(12)                                                  00105100
       TR      0(1,12),TR4IBC                                           00105200
       OI      0(12),X'40'                                              00105300
       SH      4,=H'1'                                                  00105400
       B       RTW2A                                                    00105500
RTW2   IC      3,0(1)                                                   00105600
       STC     3,0(12)                                                  00105700
       TR      0(1,12),TR4IBC                                           00105800
RTW2A  LA      1,1(1)                                                   00105900
       LA      12,1(12)                                                 00106000
       BCT     4,RTW1                                                   00106100
       CLI     0(12),X'7F'       RECORD MOVED, IS GROUP MARK NEXT CHAR  00106200
       BE      RTW3              YES, LEAVE IT ALONE                    00106300
       MVI     0(12),X'3F'       NO, MOVE IN A GROUP MARK               00106400
RTW3   LA      12,1(12)          SET B-ADDRESS                          00106500
       B       NXTOP                                                    00106600
*                                                                       00106700
*      WRITE TAPE WITH WORD MARKS                                       00106800
*                                                                       00106900
WTW    LA      6,4(10)                                                  00107000
       BAL     8,CVAD43                                                 00107100
       LR      12,5                                                     00107200
         L     1,TAPEAREA                                               00107300
       LR      2,12                                                     00107400
WTW1   TM      0(2),X'7F'        Q/ GROUP MARK WORD MARK                00107500
       BO      WTW3              YES, FIELD DONE                        00107600
       TM      0(2),X'40'        Q/ WORD MARK                           00107700
       BZ      WTW2              NO                                     00107800
       MVI     0(1),X'1D'        YES, INSERT WORD SEPARATOR             00107900
       LA      1,1(1)            *                                      00108000
WTW2   MVC     0(1,1),0(2)                                              00108100
       TR      0(1,1),TRI4BC                                            00108200
       LA      1,1(1)                                                   00108300
       LA      2,1(2)                                                   00108400
       B       WTW1                                                     00108500
WTW3     S     1,TAPEAREA                                               00108600
       STH     1,WTCCW2+6                                               00108700
       MVI     WTCCW1,X'A3'                                             00108800
       BAL     8,FNDRIV                                                 00108900
         ST    3,TMDCB                                                  00109000
         MVC   TPCCW,=A(WTCCW1)                                         00109100
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00109200
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00109300
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00109400
         EXCP  TMIOB                                                    00109500
         LM    14,15,4(6)      RESTORE REG 14 AND 15                    00109600
         WAIT  1,ECB=TMECB     WAIT FOR I/O                             00109700
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00109800
         BAL   8,TPTEST                                                 00109900
       LA      12,1(2)                                                  00110000
       B       NXTOP                                                    00110100
.NOTWT   ANOP
         AIF   ('&TAPE' EQ 'Y').WTOK
RTW      B     ILEGOP
WTW      B     ILEGOP
.WTOK    ANOP
       TITLE   'MOVE CHARACTERS AND EDIT'                               00110200
       USING   MCE,13                                                   00110300
MCE    CH      9,=H'7'           Q/ IS LENGTH CORRECT                   00110400
       BNE     ILEGLN            NO                                     00110500
       LA      6,1(10)           YES, CONVERT ADDRESSES                 00110600
       BAL     8,CVAD43          *                                      00110700
       LR      11,5              *                                      00110800
       LA      6,4(10)           *                                      00110900
       BAL     8,CVAD43          *                                      00111000
       LR      12,5              *                                      00111100
       LA      0,1                                                      00111200
       MVI     AEND,0            CLEAR A-FIELD END INDICATOR            00111300
       MVI     BODY,0            CLEAR BODY TRIGGER                     00111400
       MVI     SUPRES,0          CLEAR ZERO SUPPRESSION INDICATOR       00111500
         MVI   FLOAT,0        CLEAR FLOATING DOLLAR SIGN INDICATOR      00111600
         MVI   SIGDIG,0       CLEAR SIGNIFICANT DIGIT IND               00111700
         MVI   ASTER,0        CLEAR ASTERISK PROTECTION IND             00111800
         MVI   AMINUS,0       CLEAR A-FIELD MINUS INDICATOR             00111900
         MVI   DECIMAL,0       DECIMAL POINT INDICATOR                  00112000
         MVI   FIRSTDOL,0          CLEAR $  INFIRST CHAR INDICATOR      00112100
         MVI   SIGNDOL,0           CLEAR DOLLAR SIGN INDICATOR          00112200
         IC    2,0(11)        Q/ A-FIELD MINUS                          00112300
         N     2,=F'48'                                                 00112400
         CH    2,=H'32'                                                 00112500
         BNE   MCE1           NO                                        00112600
         MVI   AMINUS,1       YES,SET A-FIELD MINUS INDICATOR           00112700
MCE1   IC      1,0(12)           SAVE B-FIELD CHARACTER                 00112800
       STC     1,TEMP1           *                                      00112900
       NI      0(12),X'3F'       CLEAR WORD MARK                        00113000
         CLI   0(12),X'3B'     Q/ DECIMAL POINT                         00113100
         BNE   MCE1A           NO                                       00113200
         MVI   DECIMAL,1       YES,SET DECIMAL INDICATOR                00113300
           ST  12,DECADD       STORE ADDRESS OF DECIMAL POINT           00113400
MCE1A    CLI   0(12),X'00'     Q/ BLANK                                 00113500
       BE      MCE6              YES                                    00113600
       CLI     0(12),X'0A'       Q/ ZERO                                00113700
       BE      MCE6              YES                                    00113800
       CLI     0(12),X'30'       Q/ AMPERSAND                           00113900
       BE      MCE3              YES                                    00114000
       CLI     BODY,1            Q/ BODY TRIGGER ON                     00114100
       BE      MCE3A             YES                                    00114200
       CLI     0(12),X'1B'       Q/ COMMA                               00114300
       BE      MCE3              YES                                    00114400
       CLI     0(12),X'33'       Q/ C                                   00114500
       BE      MCE2              YES                                    00114600
       CLI     0(12),X'29'       Q/ R                                   00114700
       BE      MCE2              YES                                    00114800
       CLI     0(12),X'20'       Q/ -                                   00114900
       BNE     MCE3A             NO                                     00115000
MCE2     CLI   AMINUS,1       Q/ A-FIELD MINUS                          00115100
       BE      MCE3A             YES                                    00115200
MCE3   MVI     0(12),X'00'       MOVE BLANK TO B-FIELD                  00115300
         SR    12,0            DECREMENT B-FIELD                        00115400
         B     MCE5                                                     00115500
MCE3A    CLI   0(12),X'2C'     Q/ *                                     00115600
         BNE   MCE3B           NO                                       00115700
         CLI   BODY,1          Q/ BODY TRIGGER ON                       00115800
         BNE   MCE3B           NO                                       00115900
         MVI   ASTER,1         SET ASTERISK PRORECTION INDICATOR        00116000
         B     MCE6                                                     00116100
MCE3B    CLI   0(12),X'2B'     Q/ DOLLAR SIGN                           00116200
         BNE   MCE5C           NO                                       14021910
         MVI   SIGNDOL,1           SET DOLLAR SIGN INDICATOR            14022020
         ST    12,DOLSIGN          STORE ADDRESS OF DOLLAR SIGN         00117500
         TM    1(12),X'40'         Q/ FLOATING DOLLAR SIGN              00117600
         BZ    MCE5A                                                    00117700
         MVI   FLOAT,1                                                  00117800
         MVC   0(1,12),0(11)                                            00117900
         B     MCE4A                                                    00118000
MCE6   CLI     AEND,1            Q/ HAS A-FIELD ALREADY ENDED           00118100
       BE      MCE3              YES                                    00118200
       MVC     0(1,12),0(11)     MOVE CHARACTER                         00118300
       NI      0(12),X'3F'       *                                      00118400
         CLI   0(12),X'00'         BLANK                                00118500
         BE    MCE6A               YES                                  00118600
         CLI   0(12),X'09'         DIGIT                                00118700
         BH    MCE6A               NO                                   00118800
         MVI   SIGDIG,1            YES SET SIG DIGIT INDICATOR          00118900
MCE6A    CLI   BODY,1              Q/ BODY TRIGGER ON                   00119000
       CLI     BODY,1            Q/ IS BODY TRIGGER ON                  00119100
       BE      MCE7              YES                                    00119200
       MVI     BODY,1            NO                                     00119300
         ST    12,LASTDIG     STORE ADDRESS OF LOW ORDER DIGIT          00119400
       NI      0(12),X'0F'       REMOVE ZONE                            00119500
MCE7   TM      TEMP1,X'0A'       Q/ IS DIGIT ZERO                       00119600
         BC    12,MCE4A        NO                                       00119700
       TM      TEMP1,X'35'                                              00119800
         BC    5,MCE4A         NO                                       00119900
       OI      0(12),X'40'       YES, SET ZERO SUPPRESSION WORD MARK    00120000
         ST    12,ZEROSUP      STORE ZERO SUPPRESSION ADDRESS           00120100
       MVI     SUPRES,1          SET ZERO SUPPRESSION INDICATOR         00120200
         B     MCE4A              INDICATOR                             00120300
         SPACE
MCE5C    SR    12,0            DECREMENT B-FIELD
         B     MCE5
MCE4A  SR      11,0
MCE5A    SR    12,0
       TM      1(11),X'40'       Q/ END OF A-FIELD
       BZ      MCE5              NO
       MVI     AEND,1            YES, SET A-FIELD ENDED INDICATOR
MCE5   TM      TEMP1,X'40'       Q/ END OF B-FIELD
       BZ      MCE1              NO
*  E N D    O F    1 S T    F O R W A R D    S C A N
         SPACE
         CLI   SUPRES,1       Q/ WAS THERE ZERO SUPPRESSION             14022320
       BNE     NXTOP             NO, GET NEXT INSTRUCTION               00120500
         MVI   FIRST,1        SET FIRST CHARACTER OF SCAN INDICATOR     00120600
       LA      12,1(12)                                                 00120700
         CLI   0(12),X'2B'         DOLLAR SIGN                          00120800
         BNE   MCE8A                                                    00120900
         MVI   FIRSTDOL,1          YES                                  00121000
MCE8A    MVC   TEMP1(1),0(12)      SAVE CHARACTER                       00121100
       NI      0(12),X'3F'       CLEAR WORD MARK                        00121200
       CLI     0(12),X'00'       Q/ BLANK                               00121300
       BE      MCE9              YES                                    00121400
       CLI     0(12),X'0A'       Q/ ZERO                                00121500
       BE      MCE11             YES                                    00121600
       CLI     0(12),X'09'       Q/ SIGNIFICANT DIGIT                   00121700
       BH      MCE9              NO                                     00121800
       MVI     SUPRES,0          TURN OFF ZERO SUPPRESSION              00121900
         MVI   SIGDIG,1        SET SIGNIFICANT DIGIT INDICATOR          00122000
       B       MCE10                                                    00122100
MCE9   CLI     0(12),X'1B'       Q/ COMMA                               00122200
       BE      MCE11             YES                                    00122300
         CLI   0(12),X'20'     Q/ -                                     00122400
         BNE   MCE10C          NO                                       14022530
         CLI   FIRST,1         Q/ FIRST CHARACTER IN STRING             14022535
         BNE   MCE10           NO                                       14022540
         CLI   AMINUS,1        Q/ A-FIELD MINUS                         14022550
         BE    MCE10                                                    14022560
         MVI   0(12),X'00'     NO,BLANK MINUS SIGN                      14022565
         B     MCE10                                                    14022570
         SPACE                                                          14022575
MCE10C   CLC   0(2,12),=X'3329'  Q/ CR SYMBOL                           14022580
         BNE   MCE10           NO                                       14022585
         CLI   SUPRES,1       Q/ ZERO SUPPRESSION ON                    14022590
         BNE   MCE10          NO                                        14022595
         CLI   FIRST,1        Q/ 1ST CHARACTER IN STRING                14022600
         BE    MCE14          YES                                       14022605
         MVC   0(2,12),=C'  ' NO,BLANK CR                               14022610
         B     MCE10                                                    14022615
MCE14    CLI   AMINUS,1       Q/ A-FIELD MINUS                          14022620
         BE    MCE10A         YES                                       14022625
         MVC   0(2,12),=C'  ' NO,BLANK CR                               14022630
         B     MCE10                                                    14022640
MCE10A   LA    12,1(12)                                                 14022644
         B     MCE10                                                    14022645
         SPACE                                                          14022650
MCE11  CLI     SUPRES,1          Q/ ZERO SUPPRESSION ON                 00124100
       BNE     MCE10             NO                                     00124200
       MVI     0(12),X'00'       YES, BLANK CHARACTER                   00124300
         CLI   FIRST,1        Q/ FIRST CHARACTER IN STRING              00124400
         BE    MCE12          YES                                       00124500
         CLI   ASTER,1        Q/ ASTERISK PROTECTION ON                 00124600
         BNE   MCE10          NO                                        00124700
         MVI   0(12),X'2C'    YES, INSERT ASTERISK                      00124800
       B       MCE10                                                    00124900
MCE12    CLI   AMINUS,1       Q/ A-FIELD MINUS                          00125000
         BE    MCE10          YES                                       00125100
         MVI   0(12),X'00'     NO,BLANK CHARACTER                       00125200
         SPACE                                                          14022810
MCE10  LA      12,1(12)                                                 14022880
         MVI   FIRST,0        TURN OFF FIRST TIME INDICATOR             14022890
         TM    TEMP1,X'40'     Q/ W/RD MARK                             14022900
         BNO   MCE8A             NO, PROCESS NEXT DIGIT                 14022910
*  E N D    O F    R E V E R S E    S C A N                             14022920
         SPACE                                                          14022930
FLDOL    CLI   FLOAT,1        Q/ FLOATING DOLLAR SIGN                   00126600
         BNE   DECON          NO, GO TO DECIMAL CONTR                   00126700
DOLLAR   CLI   0(12),X'00'    Q/ BLANK                                  00126800
         BNE   MOVDOL          NO,GO TO NEXT POSITION IN B-FIELD        00126900
         MVI   0(12),X'2B'    MOVE DOLLAR SIGN INTO B-FIELD             00127000
         B     DECON                                                    00127100
MOVDOL   SR    12,0           DECREMENT B-FIELD                         00127200
         B     DOLLAR                                                   00127300
DECON    CLI   DECIMAL,1       IS DECIMAL CONTROL NEEDED                00127400
         BNE   NXTOP           NO                                       00127500
         CLI   SIGDIG,1        Q/ SIGNIFICANT DIGIT                     00127600
         BE    NXTOP              YES                                   14023050
         L     5,LASTDIG                                                14023120
         CLC   DECADD,ZEROSUP                                           00128500
         BH    MCE16A                                                   00128600
         L     4,DECADD                                                 00128700
         B     MCE16B                                                   00128800
MCE16A   L     4,ZEROSUP                                                00128900
MCE16B   SR    5,4                                                      00129000
         AH    5,=H'1'                                                  00129100
MCE16D   MVC   0(1,4),=X'00'                                            00129200
         AR    4,0                                                      00129300
         BCT   5,MCE16D                                                 00129400
         TM    1(12),X'40'         Q/ FLOATING DOLLAR SIGN              00129500
         CLI   SIGNDOL,1           Q/  DOLLAR SIGN                      00129600
         BNE   NXTOP               NO                                   00129700
         CLI   FIRSTDOL,1          Q/ DOLLAR SIGN OK                    00129800
         BE    NXTOP                                                    00129900
         L     3,DOLSIGN           NO                                   00130000
         MVI   0(3),X'00'          BLANK DOLLAR SIGN                    00130100
         B     NXTOP                                                    00130200
ZEROSUP  DS    F               ZERO SUPPRESSION ADDRESS                 00130300
DECADD   DS    F               DECIMAL POINT ADDRESS                    00130400
DECIMAL  DC    X'00'           DECIMAL INDICATOR                        00130500
FLOAT    DC    X'00'          FLOATING DOLLAR SIGN INDICATOR            00130600
FIRST    DC    X'00'          FIRST CHARACTER OF SCAN INDICATOR         00130700
AMINUS   DC    X'00'          A-FIELD MINUS INDICATOR                   00130800
BODY     DC    X'00'           BODY TRIGGER                             00130900
ASTER    DC    X'00'          ASTERISK PROTECTION INDICATOR             00131000
SIGDIG   DC    X'00'           SIGNIFICANT DIGIT INDICATOR              00131100
FIRSTDOL DC    X'00'                                                    00131200
DOLSIGN  DS    F                                                        00131300
LASTDIG  DS    F              ADDRESS OF LOW ORDER DIGIT                00131400
SIGNDOL  DC    X'00'                                                    00131500
       TITLE  'READ A CARD'                                             00131600
       USING   R,13                                                     00131700
R      CH      9,=H'1'                                                  00131800
       BE      RL1                                                      00131900
       CH      9,=H'4'                                                  00132000
       BE      RL4                                                      00132100
       B       ILEGLN                                                   00132200
RL1    BAL     8,READ                                                   00132300
       B       NXTOP                                                    00132400
RL4    MVC     ADR140(3),1(10)                                          00132500
       BAL     8,READ                                                   00132600
       LA      6,ADR140          GET BRANCH ADDRESS                     00132700
       B       SETBCH            SET CONDITIONS FOR BRANCH              00132800
       TITLE  'PUNCH A CARD'                                            00132900
       USING   P,13                                                     00133000
P      CH      9,=H'1'                                                  00133100
       BE      PL1                                                      00133200
       CH      9,=H'4'                                                  00133300
       BNE     ILEGLN                                                   00133400
       BAL     8,PUNCH                                                  00133500
       LA      6,1(10)           REFERENCE BRANCH ADDRESS               00133600
       B       SETBCH            SET CONDITIONS FOR BRANCH              00133700
PL1    BAL     8,PUNCH                                                  00133800
       B       NXTOP                                                    00133900
       TITLE  'READ AND PUNCH'                                          00134000
       USING   RP,13                                                    00134100
RP     CH      9,=H'1'                                                  00134200
       BE      RPL1                                                     00134300
       CH      9,=H'4'                                                  00134400
       BNE     ILEGLN                                                   00134500
       MVC     ADR140(3),1(10)   SAVE BRANCH ADDRESS                    00134600
       BAL     8,READ                                                   00134700
       BAL     8,PUNCH                                                  00134800
       LA      6,ADR140          REFERENCE BRANCH ADDRESS               00134900
       B       SETBCH            SET CONDITIONS FOR BRANCH              00135000
RPL1   BAL     8,READ                                                   00135100
       BAL     8,PUNCH                                                  00135200
       B       NXTOP                                                    00135300
       TITLE  'PRINT A LINE'                                            00135400
       USING   W,13                                                     00135500
W      CH      9,=H'1'                                                  00135600
       BE      WL1                                                      00135700
       CH      9,=H'2'                                                  00135800
       BE      WM                                                       00135900
       CH      9,=H'5'                                                  00136000
       BE      WM                                                       00136100
       CH      9,=H'4'                                                  00136200
       BNE     ILEGLN                                                   00136300
WL4    BAL     8,WRITE                                                  00136400
       LA      6,1(10)           REFERENCE BRANCH ADDRESS               00136500
       B       SETBCH            SET CONDITIONS FOR BRANCH              00136600
WL1    BAL     8,WRITE                                                  00136700
       B       NXTOP                                                    00136800
WM     MVC     DCHAR(1),1(10)                                           00136900
       CH      9,=H'2'                                                  00137000
       BE      WML2                                                     00137100
       MVC     DCHAR(1),4(10)                                           00137200
WML2     CLI   DCHAR,X'3C'         Q. PRINT WM                          00137500
       BE      WML20A                                                   00137600
       CLI     DCHAR,X'12'         Q. SPACE SUPPRESS                    00137700
       BNE     ILEGOP                                                   00137800
         MVI   PRNTBUFF,X'01'
       CH      9,=H'5'                                                  00137900
       BE      WL4                                                      00138000
       B       WL1                                                      00138100
WML20A   MVC   PRNTBUFF+1(132),SIMCOR+201    MOVE WORD MARKS TO PRINT   00138200
         TR    PRNTBUFF+1(132),TRWDMK        *                          00138300
         BAL   8,WRITEC                                                    14770
       CH      9,=H'2'                                                  00139100
       BE      NXTOP                                                    00139200
       LA      6,1(10)                                                  00139300
       B       SETBCH            SET CONDITIONS FOR BRANCH              00139400
       TITLE  'READ AND PRINT'                                          00139500
       USING   WR,13                                                    00139600
WR     CH      9,=H'1'                                                  00139700
       BE      WRL1                                                     00139800
       CH      9,=H'4'                                                  00139900
       BNE     ILEGLN                                                   00140000
       MVC     ADR140(3),1(10)   SAVE BRANCH ADDRESS                    00140100
       BAL     8,WRITE                                                  00140200
       BAL     8,READ                                                   00140300
       LA      6,ADR140          REFERENCE BRANCH ADDRESS               00140400
       B       SETBCH            SET CONDITIONS FOR BRANCH              00140500
WRL1   BAL     8,WRITE                                                  00140600
       BAL     8,READ                                                   00140700
       B       NXTOP                                                    00140800
       TITLE  'PRINT AND PUNCH'                                         00140900
       USING   WP,13                                                    00141000
WP     CH      9,=H'1'                                                  00141100
       BE      WPL1                                                     00141200
       CH      9,=H'4'                                                  00141300
       BNE     ILEGLN                                                   00141400
       BAL     8,WRITE                                                  00141500
       BAL     8,PUNCH                                                  00141600
       LA      6,1(10)           REFERENCE BRANCH ADDRESS               00141700
       B       SETBCH            SET CONDITIONS FOR BRANCH              00141800
WPL1   BAL     8,WRITE                                                  00141900
       BAL     8,PUNCH                                                  00142000
       B       NXTOP                                                    00142100
       TITLE  'WRITE,READ, AND PUNCH'                                   00142200
       USING   WRP,13                                                   00142300
WRP    CH      9,=H'1'                                                  00142400
       BE      WRPL1                                                    00142500
       CH      9,=H'4'                                                  00142600
       BNE     ILEGLN                                                   00142700
       MVC     ADR140(3),1(10)   SAVE BRANCH ADDRESS                    00142800
       BAL     8,WRITE                                                  00142900
       BAL     8,READ                                                   00143000
       BAL     8,PUNCH                                                  00143100
       LA      6,ADR140          REFERENCE BRANCH ADDRESS               00143200
       B       SETBCH            SET CONDITIONS FOR BRANCH              00143300
WRPL1  BAL     8,WRITE                                                  00143400
       BAL     8,READ                                                   00143500
       BAL     8,PUNCH                                                  00143600
       B       NXTOP                                                    00143700
       TITLE  'SELECT STACKER'                                          00143800
       USING   SS,13                                                    00143900
SS     CH      9,=H'2'                                                  00144000
       BE      NXTOP                                                    00144100
       CH      9,=H'5'                                                  00144200
       BNE     ILEGLN                                                   00144300
       LA      6,1(10)                                                  00144400
         B     SETBCH                                                   00144500
       TITLE  'CONTROL CARRIAGE'                                        00144600
       USING   CC,13                                                    00144700
CC     MVC     DCHAR(1),1(10)                                           00144800
       CH      9,=H'2'                                                  00144900
       BE      CCL2                                                     00145000
       CH      9,=H'5'                                                  00145100
       BNE     ILEGLN                                                   00145200
       MVC     DCHAR(1),4(10)                                           00145300
CCL2   TM      DCHAR,X'30'                                              00145400
       BZ      CCIMSK                                                   00145500
       BO      CCAFSK                                                   00145600
       TM      DCHAR,X'20'                                              00145700
       BO      CCIMSP                                                   00145800
       IC      3,DCHAR                                                  00145900
       N       3,=F'3'                                                  00146000
       SLL     3,3                                                      00146100
       O       3,=F'1'                                                  00146200
         STC   3,PRNTBUFF                                               00146300
       B       CCDONE                                                   00146400
CCIMSP IC      3,DCHAR                                                  00146500
       N       3,=F'3'                                                  00146600
       SLL     3,3                                                      00146700
         STC   3,PRNTBUFF                                               00146800
         OI    PRNTBUFF,X'03'                                           00146900
       B       CCNOW                                                    00147000
CCAFSK IC      3,DCHAR                                                  00147100
       N       3,=F'15'                                                 00147200
       TM      DCHAR,X'0F'                                              00147300
       BM      CC1                                                      00147400
       LA      3,10                                                     00147500
CC1    SLL     3,3                                                      00147600
         STC   3,PRNTBUFF                                               00147700
         OI    PRNTBUFF,X'81'                                           00147800
       B       CCDONE                                                   00147900
CCIMSK IC      3,DCHAR                                                  00148000
       TM      DCHAR,X'0F'                                              00148100
       BM      CC2                                                      00148200
       LA      3,10                                                     00148300
CC2    N       3,=F'15'                                                 00148400
       SLL     3,3                                                      00148500
       O       3,=F'131'                                                00148600
         STC   3,PRNTBUFF                                               00148700
CCNOW    BAL   8,WRITEC                                                    15810
CCDONE CH      9,=H'2'                                                  00149500
       BE      NXTOP                                                    00149600
       LA      6,1(10)                                                  00149700
         B     SETBCH                                                   00149800
       TITLE   'MULTIPLY'                                               00154500
       USING   M,13                                                     00154600
M      CH      9,=H'7'                                                  00154700
       BNE     ILEGLN                                                   00154800
       LA      6,1(10)                                                  00154900
       BAL     8,CVAD43                                                 00155000
       LR      11,5                                                     00155100
       LA      6,4(10)                                                  00155200
       BAL     8,CVAD43                                                 00155300
       LR      12,5                                                     00155400
       ST      12,MPYSAV         SAVE UNITS ADDRESS OF PRODUCT          00155500
       LR      5,11              INTIALIZE PRODUCT AREA                 00155600
       LR      6,12              *                                      00155700
M1     MVI     0(6),X'0A'        *                                      00155800
       TM      0(5),X'40'        *                                      00155900
       BO      M2                *                                      00156000
       SH      5,=H'1'           *                                      00156100
       SH      6,=H'1'           *                                      00156200
       B       M1                *                                      00156300
M2     SH      6,=H'2'           *                                      00156400
       MVI     1(6),X'0A'        *                                      00156500
       LA      1,0               COMPARE SIGNS                          00156600
       LA      2,0               *                                      00156700
       TM      0(6),X'20'        *                                      00156800
       BZ      M3                *                                      00156900
       TM      0(6),X'10'        *                                      00157000
       BO      M3                *                                      00157100
       LA      1,1               *                                      00157200
M3     TM      0(11),X'20'       *                                      00157300
       BZ      M4                *                                      00157400
       TM      0(11),X'10'       *                                      00157500
       BO      M4                *                                      00157600
       LA      2,1               *                                      00157700
M4     MVI     MINPRD,0                                                 00157800
       CR      1,2                                                      00157900
       BE      M5                SIGNS EQUAL                            00158000
       MVI     MINPRD,1          SIGNS UNEQUAL                          00158100
M5     IC      1,0(6)                                                   00158200
       N       1,=F'15'                                                 00158300
       CH      1,=H'10'          Q/ ZERO                                00158400
       BNE     *+6               NO                                     00158500
       SR      1,1               YES, CLEAR                             00158600
M6     LA      0,0                                                      00158700
       LTR     1,1               Q/ IS MULTIPLICAND DIGIT ZERO          00158800
       BZ      M9                                                       00158900
       LR      5,12              SET REGISTERS FOR ADD                  00159000
       LR      4,11                                                     00159100
       LR      8,12              LOAD PRODUCT POINTER                   00159200
M7     IC      2,0(4)                                                   00159300
       N       2,=F'15'                                                 00159400
       CH      2,=H'10'          Q/ ZERO                                00159500
       BNE     *+6               NO                                     00159600
       SR      2,2               YES, CLEAR                             00159700
       IC      3,0(5)                                                   00159800
       N       3,=F'15'                                                 00159900
       CH      3,=H'10'          Q/ ZERO                                00160000
       BNE     *+6               NO                                     00160100
       SR      3,3               YES, CLEAR IT                          00160200
       AR      3,2                                                      00160300
       AR      3,0                                                      00160400
       LA      0,0                                                      00160500
       CH      3,=H'9'                                                  00160600
       BNH     M8                                                       00160700
       SH      3,=H'10'                                                 00160800
       LA      0,1                                                      00160900
M8     STC     3,0(8)            STORE RESULT                           00161000
       CLI     0(8),X'00'        Q/ RESULT ZERO                         00161100
       BNE     *+8               NO                                     00161200
       MVI     0(8),X'0A'        YES, SET 8-2 BITS                      00161300
       SH      4,=H'1'                                                  00161400
       SH      5,=H'1'                                                  00161500
       SH      8,=H'1'                                                  00161600
       TM      1(4),X'40'                                               00161700
       BZ      M7                                                       00161800
       IC      3,0(5)            ADD CARRY TO NEXT PRODUCT DIGIT        00161900
       CH      3,=H'10'          Q/ ZERO                                00162000
       BNE     *+6               NO                                     00162100
       SR      3,3               YES, CLEAR                             00162200
       AR      3,0                                                      00162300
       STC     3,0(8)            *                                      00162400
       CLI     0(8),X'00'        Q/ RESULT ZERO                         00162500
       BNE     *+8               NO                                     00162600
       MVI     0(8),X'0A'        YES, SET 8-2 BITS                      00162700
       SH      1,=H'1'                                                  00162800
       BC      6,M6              COUNT NOT ZERO, ADD NEXT DIGIT         00162900
M9     SH      6,=H'1'                                                  00163000
       NI      1(6),X'40'        CLEAR LAST USED MULTIPLICAND DIGIT     00163100
       OI      1(6),X'0A'        *                                      00163200
       TM      1(6),X'40'                                               00163300
       BO      M10                                                      00163400
       SH      12,=H'1'                                                 00163500
       B       M5                                                       00163600
M10    LR      11,4                                                     00163700
       L       12,MPYSAV         RELOAD UNITS ADDRESS OF PRODUCT        00163800
       OI      0(12),X'20'                                              00163900
       CLI     MINPRD,1                                                 00164000
       BE      M11                                                      00164100
       OI      0(12),X'30'                                              00164200
M11    LR      12,6                                                     00164300
       B       NXTOP                                                    00164400
MINPRD DS      C                                                        00164500
MPYSAV DS      F                                                        00164600
       TITLE   'DIVIDE'                                                 00164700
       USING   D,13                                                     00164800
D      CH      9,=H'7'           Q/ IS LENGTH ( BYTES                   00164900
       BNE     ILEGLN            NO                                     00165000
       LA      6,1(10)           YES, CONVERT ADDRESSES                 00165100
       BAL     8,CVAD43          *                                      00165200
       LR      11,5              *                                      00165300
       LA      6,4(10)           *                                      00165400
       BAL     8,CVAD43          *                                      00165500
       LR      12,5              *                                      00165600
       LA      0,1               SET REG TO 1 FOR + OR - 1              00165700
       LR      1,11              SCAN DIVISOR FOR LENGTH AND IS IT ZERO 00165800
       MVI     TEMP1,0           *                                      00165900
         MVI   TEMP2,0           *                                      00166000
D1       MVN   TEMP2,0(1)        *                                      00166100
         CLI   TEMP2,X'0A'       *                                      00166200
         BE    D1A               *                                      00166300
         CLI   TEMP2,X'00'       *                                      00166400
       BE      D1A               *                                      00166500
       MVI     TEMP1,1           *                                      00166600
D1A    SR      1,0               *                                      00166700
       TM      1(1),X'40'        *                                      00166800
       BZ      D1                *                                      00166900
       CLI     TEMP1,0           Q/ IS DIVISOR ZERO                     00167000
       BNE     D2                NO, OK                                 00167100
       MVI     OVRFLO,1          YES, SET OVERFLOW INDICATOR            00167200
       B       NXTOP                                                    00167300
D2     LR      6,12              FIND HIGH ORDER QUOTIENT LOCATION      00167400
       AR      6,1               *                                      00167500
       SR      6,11              *                                      00167600
       SR      6,0               *                                      00167700
D3     MVI     TEMP1,0           PREPARE TO COMPARE DIVISOR + DVDND     00167800
       LR      1,11                                                     00167900
       LR      2,12                                                     00168000
D4     IC      3,0(1)            GET DIGITS                             00168100
       IC      4,0(2)            *                                      00168200
       N       3,=F'15'          *                                      00168300
       N       4,=F'15'          *                                      00168400
       CH      3,=H'10'          Q/ ZERO                                00168500
       BNE     *+6               NO                                     00168600
       SR      3,3               YES, CLEAR IT                          00168700
       CH      4,=H'10'          Q/ ZERO                                00168800
       BNE     *+6               NO                                     00168900
       SR      4,4               YES, CLEAR                             00169000
       CR      3,4               COMPARE                                00169100
       BE      D5                EQUAL, DO NOT CHANGE INDICATOR         00169200
       BH      D4A               A-DIGIT GREATER                        00169300
       MVI     TEMP1,0           A-DIGIT LESS                           00169400
       B       D5                *                                      00169500
D4A    MVI     TEMP1,1           SET A GREATER THAN B                   00169600
D5     SR      1,0               DECREMENT FIELD POINTERS               00169700
       SR      2,0               *                                      00169800
       TM      1(1),X'40'        Q/ END OF A-FIELD                      00169900
       BZ      D4                NO                                     00170000
       TM      0(2),X'0A'        TEST 1 MORE DIVIDEND DIGIT             00170100
       BO      D6                ZERO                                   00170200
       TM      0(2),X'0F'        Q/ BLANK                               00170300
       BZ      D6                YES, TREAT SAME AS ZERO                00170400
       MVI     TEMP1,0           1, DIVIDEND GREATER THAN DIVISOR       00170500
D6     CLI     TEMP1,1           Q/ IS DIVISOR TOO LARGE                00170600
       BE      D10               YES                                    00170700
       LR      1,11              SET REGISTERS FOR COMPLEMENT ADD       00170800
       LR      2,12              *                                      00170900
       LA      8,1               SET CARRY                              00171000
D7     IC      5,0(2)            GET B-FIELD DIGIT                      00171100
       N       5,=F'15'          *                                      00171200
       CH      5,=H'10'          Q/ ZERO                                00171300
       BNE     *+6               NO                                     00171400
       SR      5,5               YES, CLEAR                             00171500
       LA      4,9               GET COMPLEMENT OF A-FIELD DIGIT        00171600
       IC      3,0(1)            *                                      00171700
       N       3,=F'15'          *                                      00171800
       CH      3,=H'10'          Q/ ZERO                                00171900
       BNE     *+6               NO                                     00172000
       SR      3,3               YES, CLEAR IT                          00172100
       SR      4,3               *                                      00172200
       AR      5,4               ADD TO B-FIELD DIGIT                   00172300
       AR      5,8               ADD CARRY                              00172400
       LA      8,0               CLEAR CARRY                            00172500
       CH      5,=H'9'           Q/ RESULT GREATER THAN 9               00172600
       BNH     D8                NO                                     00172700
       SH      5,=H'10'          YES, SUBTRACT 10 FROM RESULT           00172800
       LA      8,1               SET CARRY                              00172900
D8     STC     5,D9+1            STORE RESULT                           00173000
       NI      0(2),X'F0'        *                                      00173100
       CLI     D9+1,X'00'        Q/ RESULT ZERO                         00173200
       BNE     D9                NO                                     00173300
       OI      D9+1,X'0A'        YES, SET 8-2 BITS                      00173400
D9     OI      0(2),0            *                                      00173500
       SR      2,0               DECREMENT A- AND B-ADDRESSES           00173600
       SR      1,0               *                                      00173700
       TM      1(1),X'40'        Q/ END OF A-FIELD                      00173800
       BZ      D7                NO, PROCESS NEXT DIGIT                 00173900
       IC      3,0(2)            YES, ADD 1 MORE DIVIDEND DIGIT         00174000
       N       3,=F'15'          *                                      00174100
       CH      3,=H'10'          Q/ ZERO                                00174200
       BNE     *+6               NO                                     00174300
       SR      3,3               YES, CLEAR IT                          00174400
       LA      3,9(3)            *                                      00174500
       AR      3,8               *                                      00174600
       CH      3,=H'9'           Q/ RESULT GREATER THAN 9               00174700
       BNH     D9A               NO                                     00174800
       SH      3,=H'10'          YES, SUBTRACT 10                       00174900
D9A    STC     3,0(2)            STORE RESULT                           00175000
       CLI     0(2),X'00'        Q/ RESULT ZERO                         00175100
       BNE     *+8               NO                                     00175200
       MVI     0(2),X'0A'        YES, SET 8-2 BITS                      00175300
       IC      3,0(6)            ADD 1 TO QUOTIENT DIGIT                00175400
       N       3,=F'15'          *                                      00175500
       CH      3,=H'10'          Q/ ZERO                                00175600
       BNE     *+6               NO                                     00175700
       SR      3,3               YES, CLEAR IT                          00175800
       AR      3,0               *                                      00175900
       STC     3,TEMP1           STORE RESULT                           00176000
       MVN     0(1,6),TEMP1      *                                      00176100
       B       D3                                                       00176200
D10    TM      0(12),X'30'       Q/ ZONE BITS                           00176300
       BC      5,D11             YES, DIVIDE DONE                       00176400
       AR      6,0               NO, UP REFERENCE TO NEXT DIGIT         00176500
       AR      12,0              *                                      00176600
       B       D3                                                       00176700
D11    IC      2,0(11)           COMPARE DIVISOR AND DIVIDEND SIGNS     00176800
       IC      3,0(12)           *                                      00176900
       N       2,=F'48'          *                                      00177000
       N       3,=F'48'          *                                      00177100
       SRDL    2,4               *                                      00177200
       LA      4,SINTBL          *                                      00177300
       IC      2,0(4,2)          *                                      00177400
       IC        3,0(4,3)          *                                    00177500
       OI      0(6),X'30'        SET QUOTIENT PLUS                      00177600
       CR      2,3               Q/ ARE SIGNS EQUAL                     00177700
       BE      D12               YES, LEAVE QUOTIENT PLUS               00177800
       NI      0(6),X'EF'        UNEQUAL, SET QUOTIENT MINUS            00177900
D12    LR      11,1              SET A- AND B-ADDRESSES                 00178000
       SR      11,0              *                                      00178100
       LR      12,6              *                                      00178200
       B       NXTOP                                                    00178300
SINTBL DC      X'00000100'                                              00178400
       TITLE  'MODIFY ADDRESS'                                          00178500
       USING   MA,13                                                    00178600
MA     CH      9,=H'7'                                                  00178700
       BE      MA1                                                      00178800
       CH      9,=H'1'                                                  00178900
       BE      MAL4                                                     00179000
       CH      9,=H'4'                                                  00179100
       BNE     ILEGLN                                                   00179200
MA1    LA      6,1(10)                                                  00179300
       BAL     8,CVAD43                                                 00179400
       LR      11,5                                                     00179500
       LR      12,11                                                    00179600
       CH      9,=H'4'                                                  00179700
       BE      MAL4                                                     00179800
       LA      6,4(10)                                                  00179900
       BAL     8,CVAD43                                                 00180000
       LR      12,5                                                     00180100
MAL4   SH      11,=H'3'                                                 00180200
       SH      12,=H'3'                                                 00180300
       LA      0,15              UNITS                                  00180400
       LA      1,0               *                                      00180500
       IC      2,3(11)           *                                      00180600
       IC      3,3(12)           *                                      00180700
       NR      2,0               *                                      00180800
       NR      3,0               *                                      00180900
       CH      2,=H'10'                                                 00181000
       BNE     *+6                                                      00181100
       SR      2,2                                                      00181200
       CH      3,=H'10'                                                 00181300
       BNE     *+6                                                      00181400
       SR      3,3                                                      00181500
       AR      3,2               *                                      00181600
       CH      3,=H'9'           *                                      00181700
       BNH     MAL4A             *                                      00181800
       SH      3,=H'10'          *                                      00181900
       LA      1,1               *                                      00182000
MAL4A  STC     3,MAL4B+1         *                                      00182100
       NI      3(12),X'70'       *                                      00182200
       TM      MAL4B+1,X'0F'                                            00182300
       BC      5,MAL4B                                                  00182400
       OI      MAL4B+1,X'0A'                                            00182500
MAL4B  OI      3(12),0           *                                      00182600
       IC      2,2(11)           TENS                                   00182700
       IC      3,2(12)           *                                      00182800
       NR      2,0               *                                      00182900
       NR      3,0               $                                      00183000
       CH      2,=H'10'                                                 00183100
       BNE     *+6                                                      00183200
       SR      2,2                                                      00183300
       CH      3,=H'10'                                                 00183400
       BNE     *+6                                                      00183500
       SR      3,3                                                      00183600
       AR      3,2               *                                      00183700
       AR      3,1               *                                      00183800
       LA      1,0               *                                      00183900
       CH      3,=H'9'           *                                      00184000
       BNH     MAL4C             *                                      00184100
       SH      3,=H'10'          *                                      00184200
       LA      1,1               *                                      00184300
MAL4C  STC     3,MAL4D+1         *                                      00184400
         NI    2(12),X'70'       SAVE B FLD INDEX AND WORD MARK BITS    00184500
       TM      MAL4D+1,X'0F'                                            00184600
       BC      5,MAL4D                                                  00184700
       OI      MAL4D+1,X'0A'                                            00184800
MAL4D  OI      2(12),0           *                                      00184900
       IC      2,1(11)           HUNDREDS                               00185000
       IC      3,1(12)           *                                      00185100
       NR      2,0               *                                      00185200
       NR      3,0               *                                      00185300
       CH      2,=H'10'                                                 00185400
       BNE     *+6                                                      00185500
       SR      2,2                                                      00185600
       CH      3,=H'10'                                                 00185700
       BNE     *+6                                                      00185800
       SR      3,3                                                      00185900
       AR      3,2               *                                      00186000
       AR      3,1               *                                      00186100
       LA      1,0               *                                      00186200
       CH      3,=H'9'           *                                      00186300
       BNH     MAL4E             *                                      00186400
       SH      3,=H'10'          *                                      00186500
       LA      1,16              *                                      00186600
MAL4E  STC     3,MAL4F+1         *                                      00186700
       NI      1(12),X'70'       *                                      00186800
       TM      MAL4F+1,X'0F'                                            00186900
       BC      5,MAL4F                                                  00187000
       OI      MAL4F+1,X'0A'                                            00187100
MAL4F  OI      1(12),0           *                                      00187200
       LA      0,48              THOUSANDS                              00187300
       IC      2,1(11)           *                                      00187400
       IC      3,1(12)           *                                      00187500
       NR      2,0               *                                      00187600
       NR      3,0               *                                      00187700
       AR      3,2               *                                      00187800
       AR      3,1               *                                      00187900
       LA      1,0               *                                      00188000
       CH      3,=H'48'          *                                      00188100
       BNH     MAL4G             *                                      00188200
       SH      3,=H'64'          *                                      00188300
       LA      1,16              *                                      00188400
MAL4G  STC     3,MAL4H+1         *                                      00188500
       NI      1(12),X'4F'       *                                      00188600
MAL4H  OI      1(12),0           *                                      00188700
       IC      2,3(11)           FOUR THOUSANDS                         00188800
       IC      3,3(12)           *                                      00188900
       NR      2,0               *                                      00189000
       NR      3,0               *                                      00189100
       AR      3,2               *                                      00189200
       AR      3,1               *                                      00189300
       CH      3,=H'48'          *                                      00189400
       BNH     MAL4I             *                                      00189500
       SH      3,=H'64'          *                                      00189600
MAL4I  STC     3,MAL4J+1         *                                      00189700
       NI      3(12),X'4F'       *                                      00189800
MAL4J  OI      3(12),0           *                                      00189900
       B       NXTOP                                                    00190000
       TITLE  'STORE A-ADDRESS REGISTER'                                00190100
       USING   SAR,13                                                   00190200
SAR    CH      9,=H'4'                                                  00190300
       BNE     ILEGLN                                                   00190400
       LR      12,11                                                    00190500
       LA      6,1(10)                                                  00190600
       BAL     8,CVAD43                                                 00190700
       LR      11,5                                                     00190800
       ST      12,ADR360                                                00190900
       BAL     8,CVAD34                                                 00191000
       SH      11,=H'3'                                                 00191100
       NC      1(3,11),=X'404040'                                       00191200
       OC      1(3,11),ADR140                                           00191300
       B       NXTOP                                                    00191400
       TITLE  'STORE B-ADDRESS REGISTER'                                00191500
       USING   SBR,13                                                   00191600
SBR    CH      9,=H'4'                                                  00191700
       BE      SBRL4                                                    00191800
         CH    9,=H'1'                                                  00191900
         BE    SBRL1                                                    00192000
       CH      9,=H'7'                                                  00192100
       BNE     ILEGLN                                                   00192200
       LA      6,4(10)                                                  00192300
       BAL     8,CVAD43                                                 00192400
       LR      12,5                                                     00192500
SBRL4  LA      6,1(10)                                                  00192600
       BAL     8,CVAD43                                                 00192700
       LR      11,5                                                     00192800
       ST      12,ADR360                                                00192900
       BAL     8,CVAD34                                                 00193000
SBRL1    SH    11,=H'3'                                                 00193100
       NC      1(3,11),=X'404040'                                       00193200
       OC      1(3,11),ADR140                                           00193300
       B       NXTOP                                                    00193400
       TITLE  'MOVE CHARACTERS TO RCD MARK OR GROUP MARK - WORD MARK'   00193500
       USING   MCM,13                                                   00193600
MCM    CH      9,=H'1'                                                  00193700
       BE      MCML1                                                    00193800
       CH      9,=H'7'                                                  00193900
       BNE     ILEGLN                                                   00194000
       LA      6,1(10)                                                  00194100
       BAL     8,CVAD43                                                 00194200
       LR      11,5                                                     00194300
       LA      6,4(10)                                                  00194400
       BAL     8,CVAD43                                                 00194500
       LR      12,5                                                     00194600
MCML1    NI    MCMSW+1,X'0F'                                            00194700
         LR    6,11                A-FIELD PTR                          00194800
MCMSCAN  TRT   0(256,6),TRTGMWRM   SCAN FOR GMWM - RM - RMWM            00194900
         BNZ   MCMHIT                                                   00195000
         LA    6,256(6)                                                 00195100
         B     MCMSCAN                                                  00195200
MCMHIT   SR    1,11                COMPUTE RECORD LENGTH                00195300
         LA    1,1(1)              BUMP FOR TERM CHAR                   00195400
         CH    1,=H'256'           TOTAL LENGTH GT 256                  00195500
         BNH   MCMDECR             NO                                   00195600
         OI    MCMSW+1,X'F0'       YES - SET SW FOR MULTIPLE MOVES      00195700
         LR    3,1                                                      00195800
MCM256   LA    1,256                                                    00195900
MCMDECR  BCTR  1,0                 DECREMENT FOR EX INSTRUCTIONS        00196000
         EX    1,MCMCHMOV          MOVE RECORD TO WORK AREA             00196100
         EX    1,MCMCHCLR          CLEAR RECEIVING AREA EXCEPT WM       00196200
         EX    1,MCMWMCLR          ELIMINATE WORD MARKS IN WORK AREA    00196300
         EX    1,MCMCHORC          OR DATA BITS (BA8421) INTO REC AREA  00196400
         LA    1,1(1)                                                   00196500
         AR    11,1                                                     00196600
         AR    12,1                                                     00196700
MCMSW    NOP   MCMBUMP             SW SET IF RECORD GT 256 BYTES        00196800
         B     NXTOP               TO NEXT 1401 INSTRUCTION             00196900
MCMBUMP  SR    3,1                 COMPUTE BYTES REMAINING              00197000
         CH    3,=H'256'           Q / BYTES REMAINING GT 256           00197100
         BH    MCM256              YES                                  00197200
         LR    1,3                                                      00197300
         NI    MCMSW+1,X'0F'       TURN OFF SWITCH                      00197400
         B     MCMDECR             MOVE REMAINING BYTES                 00197500
*                                                                       00197600
MCMCHCLR NC    0(0,12),WM256                                            00197700
MCMCHMOV MVC   WORK256(0),0(11)                                         00197800
MCMWMCLR NC    WORK256(0),STRIPWM                                       00197900
MCMCHORC OC    0(0,12),WORK256                                          00198000
*                                                                       00198100
WORK256  DC    CL256' '                                                 00198200
TRTGMWRM DC    26X'00'             MCM SCAN TABLE                       00198300
         DC    X'1A'               RECORD MARK - A8 2                   00198400
         DC    63X'00'                                                  00198500
         DC    X'5A'               RECORD MARK WORD MARK - M A8 2       00198600
         DC    36X'00'                                    W             00198700
         DC    X'7F'               GROUP MARK WORD MARK - MBA8421       00198800
         DC    128X'00'                                                 00198900
STRIPWM  DC    256X'3F'                                                 00199000
       TITLE  'BRANCH IF BIT EQUAL'                                     00199100
       USING   BBE,13                                                   00199200
BBE    CH      9,=H'1'                                                  00199300
       BE      BBEL1                                                    00199400
       CH      9,=H'8'                                                  00199500
       BNE     ILEGLN                                                   00199600
         LA    6,1(10)                                                  00199700
         BAL   8,CVAD43                                                 00199800
         LR    11,5                                                     00199900
       LA      6,4(10)                                                  00200000
       BAL     8,CVAD43                                                 00200100
       LR      12,5                                                     00200200
       MVC     DCHAR(1),7(10)                                           00200300
       NI      DCHAR,X'BF'                                              00200400
BBEL1  SH      12,=H'1'                                                 00200500
       MVC     TEMP1,DCHAR                                              00200600
       NC      TEMP1(1),1(12)                                           00200700
       BZ      NXTOP                                                    00200800
         LR    10,11                                                    00200900
       LA      9,0                                                      00201000
       B       NXTOP                                                    00201100
         PRINT ON
         TITLE 'I N I T A L I Z E'
BEGIN    SAVE  (14,12)          SAVE CONTROL PROGRAMS REGISTERS         00201300
         BALR  15,0              LOAD BASE REGISTERS                    00201400
SETBS1   L     14,BASE2          *                                      00201500
         ST    13,SAVEAREA+4     SAVE CONTROL PROGRAMS REGISTER 13      00201600
         LR    5,1                 SAVE PARM ADDRESS
         STM   13,15,MACREGSV  SAVE MACRO REGS
         LA    6,MACREGSV      SAVE ADDRESS TO XR
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA
         SPACE
          AIF  ('&TAPE' EQ 'Y').YESTO
         OPEN  (PRNTDCB,(OUTPUT),CARD,,PUNCHR,(OUTPUT),                X
               SYSPDCB,(OUTPUT))
.YESTO   ANOP
          AIF  ('&TAPE' EQ 'N').NOTO
         OPEN  (PRNTDCB,(OUTPUT),CARD,,PUNCHR,(OUTPUT),                X
               TAPEDCB0,,TAPEDCB1,,TAPEDCB2,,TAPEDCB3,,TAPEDCB4,,      X
               TAPEDCB5,,                                              X
               SYSPDCB,(OUTPUT))
.NOTO    ANOP
         LM    13,15,0(6)
         SPACE
         EXTRACT TIOTADDR,FIELDS=TIOT
         LM    13,15,0(6)
         L     3,TIOTADDR
         USING TIOT,3
         MVC   SYSPBUFF+1(8),TIOCNJOB
         MVC   SYSPBUFF+10(8),TIOCSTP
         SPACE
         GETMAIN  R,LV=16020     GET CORE FOR 1401 SIMULATED CORE
         LM    13,15,0(6)      RESTORE MACRO REGISTERS
         LR    7,1               *
         A     1,=F'15999'       STORE UPPER LIMIT OF 1401 CORE
         ST    1,SIMLIMIT        *
CLR      LA    2,SIMCOR
         LA    3,64
CLR1     XC    0(250,2),0(2)
         LA    2,250(2)
       BCT     3,CLR1
       L       1,=F'16010'
         AR    1,7
       MVI     0(1),X'7F'
          AIF  ('&TAPE' EQ 'N').NOTA
         LA    1,100           CLEAR
         L     2,TAPEAREA        TAPE
CLEAR    XC    0(256,2),0(2)   AREA
         LA    2,256(2)
         BCT   1,CLEAR
.NOTA    ANOP
         SPACE
         MVI   PRNTBUFF,X'8B'      RESTORE PRINT FORM IMMEDIATELY
         BAL   8,WRITEC             *
         BAL   8,READF        READ FIRST CD OR SET EOF CARD
         TITLE 'N O   C O N S O L E    C O M M A N D    S U P P O R T'
         AIF   ('&CONSOLE' EQ 'Y').YESCNSL
         AIF   ('&TAPE' EQ 'N').QTL
         CLI   PARM+10,C'T'
         BE    TPLOAD
.QTL     ANOP
         B     CDLOAD
WTORTN   B     TERMINAT
         SPACE
.YESCNSL       ANOP
         TITLE 'C O N S O L E    C O M M A N D    S U P P O R T'
         AIF   ('&CONSOLE' EQ 'N').NOCONSL
         SPACE
WTORTN   XC    RQSTIN,RQSTIN                                            00203400
         MVC   OKWTOR+16(17),SYSPBUFF+1
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00203600
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00203700
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00203800
OKWTOR   WTOR  '                  SIM1401 A002 OK',
               RQSTIN,50,WTECB                                          00204000
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00204100
         MVC   SYSPBUFF+1(50),RQSTIN
         STM   13,15,MACREGSV
         LA    13,SAVEAREA
         LA    6,MACREGSV
         PUT   SYSPDCB,SYSPBUFF
         LM    13,15,0(6)
         MVC   SYSPBUFF+27(58),=CL58' '
         SPACE
TESTA    STM   13,15,MACREGSV  SAVE MACRO REG                           00204200
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00204300
         LA    13,SAVEAREA                                              00204400
         WAIT  1,ECB=WTECB     WAIT FOR RESPONSE                        00204500
         LM    13,15,0(6)      RESTORE MACRO REG                        00204600
         XC    WTECB,WTECB     CLEAR ECB                                00204700
         SPACE
         TR    RQSTIN,TYPTBL                                               21610
       CLC     RQSTIN(3),=C'SSS'                                        00208600
       BE      SSIN                                                     00208700
       CLC     RQSTIN(3),=C'LDC'                                        00209000
       BE      CDLOAD                                                   00209100
       CLC     RQSTIN(3),=C'SRS'                                        00209400
       BE      STRST                                                    00209500
       CLC     RQSTIN(3),=C'STT'                                        00209600
       BE      START                                                    00209700
       CLC     RQSTIN(3),=C'CLR'                                        00209800
       BE      CLR                                                      00209900
       CLC     RQSTIN(3),=C'DIS'                                        00210000
       BE      DIS                                                      00210100
       CLC     RQSTIN(3),=C'ALT'                                        00210200
       BE      ALT                                                      00210300
         CLC   RQSTIN(3),=C'TRM'                                        00210800
         BE    TERMINAT                                                 00210900
          AIF  ('&TAPE' EQ 'N').NOTCMD
       CLC     RQSTIN(3),=C'LDT'                                        00209200
       BE      TPLOAD                                                   00209300
       CLC     RQSTIN(3),=C'WTM'                                        00210400
       BE      WTMCMD                                                   00210500
       CLC     RQSTIN(3),=C'RWD'                                        00210600
       BE      RWDCMD                                                   00210700
.NOTCMD  ANOP
SNDILG   XC    RQSTIN,RQSTIN   ZERO OUT REPLY AREA                      00211000
         MSG   'A004 ILLEGAL ENTRY',A004                                   21790
         B     WTORTN
         SPACE
*      THIS SECTION WILL SIMULATE THE START PUSHBUTTON.  IF THE         00213000
*      OPERATOR COMMAND STT IS FOLLOWED BY AN ADDRESS, THE 1401 PROGRAM 00213100
*      WILL RESUME FROM THAT ADDRESS.  HOWEVER, IF STT IS NOT FOLLOWED  00213200
*      BY ANYTHING, THE 1401 PROGRAM WILL RESUME FROM WHERE IT STOPPED. 00213300
*                                                                       00213400
START  CLI     OKSTT,1                                                  00213500
       BNE     START4                                                   00213600
       LA      5,RQSTIN+3        Q/ IS THERE A START ADDRESS            00213700
       CLI     0(5),0            *                                      00213800
       BNE     START1            YES, START FROM THERE                  00213900
         L     8,RETURN                                                 00214000
         BR    8                                                        00214100
START1 CLI     0(5),0            Q/ END OF MESSAGE                      00214200
       BE      START2            YES                                    00214300
       CLI     0(5),C'0'         NO, IS IT NUMERIC                      00214400
       BL      SNDILG            NO, ERROR                              00214500
       LA      5,1(5)            YES, TRY NEXT BYTE                     00214600
       B       START1            *                                      00214700
START2 S       5,=A(RQSTIN+4)    GET LENGTH - 1                         00214800
       CH      5,=H'4'           Q/ LENGTH GT 5 DIGITS                  00214900
       BH      SNDILG            YES, ERROR                             00215000
       STC     5,TEMP1           CONVERT TO BINARY                      00215100
       MVN     START3+1(1),TEMP1  *                                     00215200
START3 PACK    PAKT,RQSTIN+3(0)   *                                     00215300
       CVB     4,PAKT            *                                      00215400
       CH      4,=H'15999'       Q/ ADDRESS GT 15999                    00215500
       BH      SNDILG            YES, ERROR                             00215600
         AR    4,7               NO, GO THERE                           00215700
       LR      10,4              *                                      00215800
       LA      9,0               *                                      00215900
       B       NXTOP             *                                      00216000
START4   XC    RQSTIN,RQSTIN   ZERO OUT REPLY AREA                      00216100
         MSG   'A006 CANNOT START, NO PGM LOADED',A006                     22180
         B     WTORTN
*                                                                       00217000
*      THIS SECTION WILL SIMULATE THE START-RESET PUSHBUTTON.           00217100
*                                                                       00217200
STRST  LR      6,10                                                     00217300
       AR      6,9                                                      00217400
       ST      6,ADR360                                                 00217500
       MVI     TPERR,0                                                  00217600
       MVI     TPEOF,0                                                  00217700
       MVI     OVRFLO,0                                                 00217800
       MVI     CPR,0                                                    00217900
         B     WTORTN                                                   00218000
*                                                                       00218100
*      THIS SECTION SIMULATES THE SETTING OF SENSE SWITCHES BY SETTING  00222200
*      INDICATORS IN CORE BASED UPON THE SSS INPUT COMMAND.  THE        00222300
*      ROUTINES THAT SIMULATE THE BSS INSTRUCTIONS WILL TEST THESE      00222400
*      INDICATORS.                                                      00222500
*                                                                       00222600
SSIN   LA      6,RQSTIN+3        REFERENCE FIRST SENSE SWITCH           00222700
       XC      TSSA(7),TSSA      CLEAR TEMPORARY SENSE SWITCHES         00222800
       LA      5,8               SET TO SCAN 8 SETTINGS MAX             00222900
SSIN1  CLI     0(6),0            Q/ DONE                                00223000
       BE      SSEND             YES, MOVE THEM                         00223100
       CLI     0(6),C'A'         Q/ IS THIS SENSE SWITCH LEGAL          00223200
       BL      SNDILG            NO
       CLI     0(6),C'G'                                                00223400
       BH      SNDILG            NO
       IC      4,0(6)            YES                                    00223600
       N       4,=F'7'           SET TEMPORARY SENSE SWITCH             00223700
       LA      2,TSSA-1          *                                      00223800
       AR      2,4               *                                      00223900
       MVI     0(2),1            *                                      00224000
       LA      6,1(6)            REFERENCE NEXT INPUT CHARACTER         00224100
       BCT     5,SSIN1           Q/ ARE THERE TOO MANY INPUT CHARACTERS 00224200
       B       SNDILG            YES
SSEND  MVC     SENSEA(7),TSSA                                           00224400
         B     WTORTN
TSSA   DS      7C                TEMPORARY SENSE SWITCHES               00224600
*                                                                       00237000
*      THIS SECTION WILL DISPLAY ON THE PRINTER THE HUNDREDS GROUP      00237100
*      OF 1401 CORE REFERENCED IN THE OPERATOR COMMAND DIS .            00237200
*                                                                       00237300
DIS    LA      5,RQSTIN+3                                               00237400
DIS1   CLI     0(5),X'00'                                               00237500
       BE      DIS2                                                     00237600
       CLI     0(5),C'0'                                                00237700
       BL      SNDILG                                                   00237800
       LA      5,1(5)                                                   00237900
       B       DIS1                                                     00238000
DIS2   LR      2,5                                                      00238100
       SH      2,=H'2'                                                  00238200
       CLC     0(2,2),=C'00'                                            00238300
       BNE     SNDILG                                                   00238400
       S       5,=A(RQSTIN+4)                                           00238500
       CH      5,=H'4'                                                  00238600
       BH      SNDILG                                                   00238700
       STC     5,DIS3+1                                                 00238800
         MVC   DSMRKR+1(20),WM256                                       00238900
DIS3     MVC   DSMRKR+9(0),RQSTIN+3  MOVE ADDR FOR PRINTING             00239000
       STC     5,TEMP1                                                  00239100
       MVN     DIS4+1(1),TEMP1                                          00239200
DIS4   PACK    PAKT,RQSTIN+3(0)                                         00239300
       CVB     4,PAKT                                                   00239400
       CH      4,=H'15900'                                              00239500
       BH      SNDILG                                                   00239600
         MVC   PRNTBUFF(133),DSMRKR
         BAL   8,WRITEC
         AR    4,7                      ADD IN ADDRESS OF 1401 SIMCORE  00239700
         MVC   PRNTBUFF+1(20),WM256                                     00239900
         MVC   PRNTBUFF+21(100),0(4)                                    00240000
         TR    PRNTBUFF+21(100),TRIE    CHANGE PRINT AREA TO EBCDIC     00240100
         MVC   PRNTBUFF+121(11),WM256   *                               00240200
         BAL   8,WRITEC                                                    23040
         MVC   PRNTBUFF+21(100),0(4)    CHANGE WORD MARKS TO EBCDIC IS  00241000
         TR    PRNTBUFF+21(100),TRWDMK  *                               00241100
         BAL   8,WRITEC                                                    23130
         B     WTORTN                                                   00241400
DSMRKR   DC    X'09',20X'40'                                            00241500
       DC      C'0.......09........19........29........39........49.'   00241600
       DC      C'.......59........69........79........89........99'     00241700
       DC      C'            '                                          00241800
*                                                                       00241900
*      THIS SECTION WILL MODIFY THE 1401 CORE LOCATION REFERENCED IN    00242000
*      THE OPERATOR COMMAND ALT .                                       00242100
*                                                                       00242200
ALT    LA      6,RQSTIN+3                                               00242300
ALT1   CLI     0(6),C','                                                00242400
       BE      ALT2                                                     00242500
       CLI     0(6),C'0'                                                00242600
       BL      SNDILG                                                   00242700
       LA      6,1(6)                                                   00242800
       B       ALT1                                                     00242900
ALT2   LR      5,6                                                      00243000
       S       5,=A(RQSTIN+4)                                           00243100
       CH      5,=H'4'                                                  00243200
       BH      SNDILG                                                   00243300
       STC     5,TEMP1                                                  00243400
       MVN     ALT3+1(1),TEMP1                                          00243500
ALT3   PACK    PAKT,RQSTIN+3(0)                                         00243600
       CVB     4,PAKT                                                   00243700
       CH      4,=H'15999'                                              00243800
       BH      SNDILG                                                   00243900
         AR    4,7                                                      00244000
       MVC     0(1,4),1(6)                                              00244100
       TR      0(1,4),TREI                                              00244200
       CLI     2(6),C'M'                                                00244300
         BNE   WTORTN                                                   00244400
       OI      0(4),X'40'                                               00244500
         B     WTORTN                                                   00244600
         SPACE
RQSTIN DS      CL50                                                     00211800
WTECB    DC    F'0'                                                     00204900
.NOCONSL ANOP
         TITLE 'C O M M O N    C O M M A N D    S U P P O R T'
*      THIS SECTION WILL SIMULATE THE 1402 CARD LOAD PUSHBUTTON.        00212000
*                                                                       00212100
CDLOAD XC      SIMCOR+1(80),SIMCOR+1                                    00212200
       BAL     8,READ                                                   00212300
       OI      SIMCOR+1,X'40'                                           00212400
       LA      10,SIMCOR+1                                              00212500
       LA      9,0                                                      00212600
       MVI     OKSTT,1                                                  00212700
       B       NXTOP                                                    00212800
         SPACE
* THIS ROUTINE OUTPUTS MESSAGES ON SYSPRINT AND CONSOLE, IF SUPPORTED
*      CALL SEQUENCE IS
*        BAL   4,WTO
*        DC    AL2(L'MSG-1)
*MSG     DC    'MESSAGE'
         SPACE
*      THIS CAN BE GENERATED BY THE 'MSG' MACRO
*        MSG   'MESSAGE ',MSG
         SPACE
WTO      SR    5,5
         IC    5,1(4)              PICK UP LENGTH
         CH    5,=H'57'
         BNH   WTOEX
         LH    5,=H'57'
WTOEX    EX    5,WTOMVC            MOVE MESSAGE TO SYSPBUFF
         AIF   ('&CONSOLE' EQ 'N').WTONO2
         MVC   WTOWTO+15(85),SYSPBUFF+1   MOVE TO WTO
         STM   13,15,MACREGSV
         LA    13,SAVEAREA
         LA    6,MACREGSV
         PRINT GEN
WTOWTO   WTO   '                                                       X
                                             '
         PRINT NOGEN
         LM    13,15,0(6)
.WTONO2  ANOP
         STM   13,15,MACREGSV
         LA    13,SAVEAREA
         LA    6,MACREGSV
         PUT   SYSPDCB,SYSPBUFF
         LM    13,15,0(6)
         MVC   SYSPBUFF+27(58),=CL58' '
         LA    4,4(5,4)
         N     4,=X'FFFFFFFE'
         BR    4
WTOMVC   MVC   SYSPBUFF+27(0),2(6)
         SPACE
*      THIS ROUTINE WILL TERMINATE THE SIMULATOR UPON THE OPERATOR
*      ENTRY 'TRM'.
         SPACE
TERMINAT LR    1,7
         STM   14,15,MACREGSV                                              23515
         LA    13,SAVEAREA
         LA    6,MACREGSV                                                  23525
         FREEMAIN R,LV=16020,A=(1)
         LM    14,15,0(6)                                                  23535
         CLOSE (PRNTDCB,,SYSPDCB,,PUNCHR,,CARD)
         L     13,4(13)
         RETURN  (14,12)
       TITLE  'ROUTINE TO BRANCH TO NEXT OPCODE PROCESSING ROUTINE'     00273800
*      BEFORE BRANCHING, SET THE B ADDRESS REGISTER TO THE ADDRESS OF   00250800
*      THE INSTRUCTION AFTER THE BRANCH, THEN SET THE INSTRUCTION       00250900
*      COUNTER TO THE BRANCH ADDRESS, AND BRANCH.                       00251000
*                                                                       00251100
SETBCH BAL     8,CVAD43          CONVERT BRANCH ADDRESS                 00251200
       LR      12,10             LOAD B ADDRESS                         00251300
       AR      12,9              *                                      00251400
       ST      10,LSTBCH         SAVE LAST BRANCHED FROM LOCATION       00251500
       LR      10,5              LOAD BRANCH ADDRESS                    00251600
       LA      9,0               *                                      00251700
         SPACE
*     THIS SECTION EXAMINES THE NEXT OPERATION CODE AND, BASED UPON IT, 00274000
*      BRANCHES TO THE PROPER ROUTINE TO PROCESS THE INSTRUCTION.       00274100
*                                                                       00274200
NXTOP  AR      10,9              GET NEW OP CODE LOCATION               00274300
         TM    0(10),X'40'        Q/ IS THERE A WORD MARK               00274400
       BZ      ILEGOP            NO                                     00274500
       LA      1,250(10)                                                00274600
       TRT     1(250,10),TRTB                                           00274700
       LR      9,1                                                      00274800
       SR      9,10                                                     00274900
       IC      2,0(10)           GET OP CODE                            00275000
       N       2,=F'63'          ELIMINATE WORD MARK                    00275100
       SLL     2,2               MULTIPLY BY 4                          00275200
         L     13,BCHTBL(2)      LOAD BASE OF PROCESSING ROUTINE        00275300
       BR      13                BRANCH TO OPCODE PROCESSING ROUTINE    00275400
BCHTBL DC      A(ILEGOP)         0                                      00275500
       DC      A(R)              1   1                                  00275600
       DC      A(W)              2   2                                  00275700
       DC      A(WR)             3   3                                  00275800
       DC      A(P)              4   4                                  00275900
       DC      A(RP)             5   5                                  00276000
       DC      A(WP)             6   6                                  00276100
       DC      A(WRP)            7   7                                  00276200
       DC      A(NXTOP)          10  8                                  00276300
       DC      A(NXTOP)          11  9                                  00276400
       DC      A(ILEGOP)         12  0                                  00276500
       DC      A(MA)             13  =                                  00276600
       DC      A(M)              14  @                                  00276700
       DC      A(ILEGOP)         15                                     00276800
       DC      A(ILEGOP)         16                                     00276900
       DC      A(ILEGOP)         17  TP MK                              00277000
       DC      A(ILEGOP)         20  A BIT                              00277100
       DC      A(CS)             21  /                                  00277200
       DC      A(A)              22  S                                  00277300
       DC      A(ILEGOP)         23  T                                  00277400
         AIF   ('&TAPE' EQ 'Y').CUOK
         DC    A(ILEGOP)        24  U
.CUOK    ANOP
         AIF   ('&TAPE' EQ 'N').NOTCU
       DC      A(CU)             24  U                                  00277500
.NOTCU   ANOP
       DC      A(BWZ)            25  V                                  00277600
       DC      A(BBE)            26  W                                  00277700
       DC      A(NXTOP)          27  X                                  00277800
       DC      A(MZ)             30  Y                                  00277900
       DC      A(MCS)            31  Z                                  00278000
       DC      A(ILEGOP)         32  \                                  00278100
       DC      A(SW)             33  ,                                  00278200
       DC      A(D)              34  %                                  00278300
       DC      A(ILEGOP)         35  WD SEP                             00278400
       DC      A(ILEGOP)         36                                     00278500
       DC      A(ILEGOP)         37                                     00278600
       DC      A(ILEGOP)         40 -                                   00278700
       DC      A(ILEGOP)         41  J                                  00278800
       DC      A(SS)             42 K                                   00278900
       DC      A(LCA)            43  L                                  00279000
       DC      A(MCW)            44  M                                  00279100
       DC      A(NXTOP)          45  N                                  00279200
       DC      A(ILEGOP)         46  O                                  00279300
       DC      A(MCM)            47  P                                  00279400
       DC      A(SAR)            50  Q                                  00279500
       DC      A(ILEGOP)         51  R                                  00279600
       DC      A(ZS)             52 -0                                  00279700
       DC      A(ILEGOP)         53  $                                  00279800
       DC      A(ILEGOP)         54  *                                  00279900
       DC      A(ILEGOP)         55                                     00280000
       DC      A(ILEGOP)         56                                     00280100
       DC      A(ILEGOP)         57                                     00280200
       DC      A(ILEGOP)         60 +                                   00280300
       DC      A(A)              61  A                                  00280400
       DC      A(B)              62  B                                  00280500
       DC      A(C)              63  C                                  00280600
       DC      A(MN)             64  D                                  00280700
       DC      A(MCE)            65  E                                  00280800
       DC      A(CC)             66 F                                   00280900
       DC      A(ILEGOP)         67  G                                  00281000
       DC      A(SBR)            70  H                                  00281100
       DC      A(ILEGOP)         71  I                                  00281200
       DC      A(ZA)             72 +0                                  00281300
       DC      A(H)              73  .                                  00281400
       DC      A(CW)             74                                     00281500
       DC      A(ILEGOP)         75                                     00281600
       DC      A(ILEGOP)         76                                     00281700
       DC      A(ILEGOP)         77                                     00281800
         SPACE
TRTB   DC      64X'00',64X'F1',64X'00',64X'F1'                          00291000
       TITLE   'ADDRESS CONVERSION SUBROUTINES'                         00256500
*      SUBROUTINE TO CONVERT A 1401 ADDRESS TO A 360 ADDRESS            00256700
*                                                                       00256800
CVAD43 MVI     IXTMP,0                                                  00256900
       LR      5,7               LOAD SIMULATED CORE BASE INTO 5        00257000
CVAD4A IC      3,0(6)            1000'S + 100'S                         00257100
       N       3,=F'63'          *                                      00257200
       SLL     3,1               *                                      00257300
         AH    5,TBHNTH(3)       *                                      00257400
       IC      3,2(6)            4000'S + 1'S                           00257500
       N       3,=F'63'          *                                      00257600
       SLL     3,1               *                                      00257700
         AH    5,TBT4UN(3)       *                                      00257800
       IC      3,1(6)            10'S                                   00257900
       N       3,=F'15'          *                                      00258000
       SLL     3,1               *                                      00258100
         AH    5,TBTENS(3)       *                                      00258200
       TM      1(6),X'30'        Q/ INDEXING                            00258300
       BE      CVAD4D            NO, DONE                               00258400
         CLI   IXTMP,1           Q/ SECOND TIME THROUGH                 00258500
         BE    CVAD4D            YES, DONE                              00258600
       MVI     IXTMP,1           SET SECOND TIME INDICATOR              00258700
         TM    1(6),X'30'        Q/ IX3                                 00258800
       BO      CVAD4C            IX3                                    00258900
       TM      1(6),X'20'                                               00259000
       BO      CVAD4B            IX2                                    00259100
       LA      6,SIMCOR+87       IX1                                    00259200
       B       CVAD4A                                                   00259300
CVAD4B LA      6,SIMCOR+92                                              00259400
       B       CVAD4A                                                   00259500
CVAD4C LA      6,SIMCOR+97                                              00259600
       B       CVAD4A                                                   00259700
CVAD4D   C     5,SIMLIMIT        Q/ IS ADDRESS GREATER THAN 15999       00259800
       BCR     12,8              NO, DONE                               00259900
       SH      5,=H'16000'       YES, SUBTRACT 16000                    00260000
       BR      8                                                        00260100
IXTMP  DS      C                                                        00260400
TBHNTH  DC     H'0,100,200,300,400,500,600,700,800,900'                 00289200
       DC      6H'0'                                                    00289300
       DC      H'0,1100,1200,1300,1400,1500,1600,1700,1800,1900,1000'   00289400
       DC      5H'0'                                                    00289500
       DC      H'0,2100,2200,2300,2400,2500,2600,2700,2800,2900,2000'   00289600
       DC      5H'0'                                                    00289700
       DC      H'0,3100,3200,3300,3400,3500,3600,3700,3800,3900,3000'   00289800
       DC      5H'0'                                                    00289900
TBT4UN DC      H'0,1,2,3,4,5,6,7,8,9'                                   00290000
       DC      6H'0'                                                    00290100
       DC      H'0,4001,4002,4003,4004,4005,4006,4007,4008,4009,4000'   00290200
       DC      5H'0'                                                    00290300
       DC      H'0,8001,8002,8003,8004,8005,8006,8007,8008,8009,8000'   00290400
       DC      5H'0'                                                    00290500
       DC      H'0,12001,12002,12003,12004,12005,12006,12007,12008'     00290600
       DC      H'12009,12000,0,0,0,0,0'                                 00290700
TBTENS DC      H'0,10,20,30,40,50,60,70,80,90'                          00290800
       DC      6H'0'                                                    00290900
*                                                                       00260700
*      SUBROUTINE TO CONVERT A 360 ADDRESS TO A 1401 ADDRESS            00260800
*                                                                       00260900
CVAD34 L       5,ADR360                                                 00261000
       SR      5,7               SUBTRACT SIMULATED CORE BASE           00261100
       LA      4,0               4000'S ZONE                            00261200
       D       4,=F'4000'        *                                      00261300
       SLL     5,4               *                                      00261400
       LR      1,5               *                                      00261500
       LR      5,4               1000'S ZONE                            00261600
       LA      4,0               *                                      00261700
       D       4,=F'1000'        *                                      00261800
       SLL     5,4               *                                      00261900
       LR      2,5               *                                      00262000
       LR      5,4               100'S NUMERIC                          00262100
       LA      4,0               *                                      00262200
       D       4,=F'100'         *                                      00262300
       OR      5,2               *                                      00262400
       STC     5,ADR140          *                                      00262500
       LR      5,4               10'S NUMERIC                           00262600
       LA      4,0               *                                      00262700
       D       4,=F'10'          *                                      00262800
       STC     5,ADR140+1        *                                      00262900
       OR      4,1               *                                      00263000
       STC     4,ADR140+2        *                                      00263100
       TM      ADR140,X'0F'      Q/ IS HUNDREDS ZERO                    00263200
       BC      5,CVAD3A          NO                                     00263300
       OI      ADR140,X'0A'      YES, ADD 8-2 BITS                      00263400
CVAD3A TM      ADR140+1,X'0F'    Q/ IS TENS ZERO                        00263500
       BC      5,CVAD3B          NO                                     00263600
       OI      ADR140+1,X'0A'    YES, ADD 8-2 BITS                      00263700
CVAD3B TM      ADR140+2,X'0F'    Q/ IS UNITS ZERO                       00263800
       BCR     5,8               NO, RETURN                             00263900
       OI      ADR140+2,X'0A'    YES, ADD 8-2 BITS                      00264000
       BR      8                 RETURN                                 00264100
       TITLE  'ROUTINES TO HELP UNIT RECORD OPERATIONS'                 00264200
READ     CLI   CRDEOF,X'01'    HAVE WE READ LAST CARD                   00264900
         BNE   READ2           BRANCH IF NO                             00265000
         MSG   'I005 READ TRIED AFTER LAST CARD ',I005                     25480
         B     WTORTN                                                      25530
READ2  TR      TMPARA(80),TREI     CHANGE EBCDIC TO INTERNAL 1401 CODE  00265700
       NC      SIMCOR+1(80),WM256   REMOVE CARD AREA INFO, KEEP WD MKS  00265800
       OC      SIMCOR+1(80),TMPARA                                      00265900
       LA      12,SIMCOR+81                                             00266000
READF    STM   13,15,MACREGSV      SAVE REGS                               25640
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00266200
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00266300
         GET   CARD,TMPARA     READ CARD                                00266400
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00266500
         NI    SIMCOR,X'40'      SET BA BITS IN LOC 0 AFTER READ        00266600
         OI    SIMCOR,X'30'      *                                      00266700
       BR      8                                                        00266800
         SPACE                                                             25715
EOC      LM    13,15,0(6)        RESTORE SIMULATOR REGISTERS            00266900
         MVI   CRDEOF,X'01'      SET CARD EOF INDICATOR                 00267000
         BR    8                                                        00267100
         SPACE                                                             25745
WRITE    MVC   PRNTBUFF+1(132),SIMCOR+201                               00267200
         TR    PRNTBUFF+1(132),TRIE                                     00267300
WRITEC   STM   13,15,MACREGSV  SAVE MACRO REG                              25770
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00267500
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00267600
         PUT   PRNTDCB,PRNTBUFF                                         00267700
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00267800
         TR    PRNTBUFF(1),LINSKP  CONVERT CONTROL CHAR TO LINE COUNT
         CLI   PRNTBUFF,X'FF'      Q. SKIP TO CHANNEL
         BE    WRITEP               YES, SET NEW PAGE
         AP    LINCUR,PRNTBUFF(1)
         CP    LINCUR,LINMAX
         BL    WRITED
         MVI   PRTP12,1            SET CH 12 INDICATOR
         B     WRITED
WRITEP   SP    LINCUR,LINCUR       INIT NEW PAGE
         MVI   PRTP12,0
WRITED   MVI   PRNTBUFF,X'09'      SET SINGLE SPACE                        25880
         LA    12,SIMCOR+333       SET B ADDRESS REGISTER               00268000
       BR      8                                                        00268100
LINSKP   DC    X'FF',P'0',7X'FF',P'1',X'FF',P'1',4X'FF'                    25920
         DC    X'FF',P'2',X'FF',P'2',5X'FF',P'3',X'FF',P'3',4X'FF'
         DC    224X'FF'
         SPACE                                                             25845
PUNCH    MVC   PCHARA,SIMCOR+101   CONVERT 1401 PUNCH AREA FOR OUTPUT   00268200
         TR    PCHARA,TRIE          *                                   00268300
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00268400
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00268500
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00268600
         PUT   PUNCHR,PCHARA                                            00268700
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00268800
         LA    12,SIMCOR+181                                            00268900
         NI    SIMCOR+100,X'40'    SET 82 BITS IN LOC 100 AFTER PUNCH   00269000
         OI    SIMCOR+100,X'0A'    *                                    00269100
       BR      8                                                        00269200
         TITLE ' E R R O R S '                                             25960
ILEGOP   MSG   'I008 ILLEGAL OP CODE',I008                                 26080
       B       PANEL                                                    00253000
         SPACE                                                          14036305
ILEGLN   MSG   'I009 ILLEGAL LENGTH',I009                                  26150
         SPACE                                                             26085
PANEL  LR      1,10                                                     00253600
         SR    1,7                                                      00253700
       CVD     1,PAKT                                                   00253800
         UNPK  PNLWTOR+04(6),PAKT+5(3)
         MVZ   PNLWTOR+09(1),=C'0'
         MVC   PNLWTOR+19(1),0(10)
         NI    PNLWTOR+19,X'BF'
         TR    PNLWTOR+19(1),TRIE
       CVD     9,PAKT
         UNPK  PNLWTOR+33(6),PAKT+5(3)
         MVZ   PNLWTOR+38(1),=C'0'
         MVI   PNLWTOR+40,X'80'
         MVC   PNLWTOR+41(1),PNLWTOR+40
       CH      9,=H'8'
         BH    WTORPNL
       LTR     3,9
         BZ    WTORPNL
       SH      3,=H'1'
       STC     3,PANEL1+1
PANEL1   MVC   PNLWTOR+40(0),0(10)
         TR    PNLWTOR+40(8),TRIE
WTORPNL  MSG   ' I             OP        LENGTH             INST       X
                 ',PNLWTOR
         B     WTORTN
       TITLE  'DATA CONVERSION TRANSLATE TABLES'                        00289100
TREI   DC      64X'00'                                                  00291100
       DC      X'00000000000000000000003B3C3D3E3F'                      00291200
       DC      X'30000000000000000000002B2C2D2E2F'                      00291300
       DC      X'20110000000000000000001B1C1D1E1F'                      00291400
       DC      X'201100000000000000000A0B0C0D0E0F'                      00291500
       DC      64X'00'                                                  00291600
       DC      X'3A313233343536373839000000000000'                      00291700
       DC      X'2A212223242526272829000000000000'                      00291800
       DC      X'1A001213141516171819000000000000'                      00291900
       DC      X'0A010203040506070809000000000000'                      00292000
TRIE   DC      X'40F1F2F3F4F5F6F7F8F9F07B7C7D7E7F'                      00292100
       DC      X'F061E2E3E4E5E6E7E8E9E06B6C6D6E6F'                      00292200
       DC      X'60D1D2D3D4D5D6D7D8D9D05B5C5D5E5F'                      00292300
       DC      X'50C1C2C3C4C5C6C7C8C9C04B4C4D4E4F'                      00292400
       DC      X'40F1F2F3F4F5F6F7F8F9F07B7C7D7E7F'                      00292500
       DC      X'F061E2E3E4E5E6E7E8E9E06B6C6D6E6F'                      00292600
       DC      X'60D1D2D3D4D5D6D7D8D9D05B5C5D5E5F'                      00292700
       DC      X'50C1C2C3C4C5C6C7C8C9C04B4C4D4E4F'                      00292800
TR4IBC DC      16AL1(*-TR4IBC)                                          00292900
       DC      X'00'                                                    00293000
       DC      47AL1(*-TR4IBC)                                          00293100
TRI4BC DC      X'10'                                                    00293200
       DC      63AL1(*-TRI4BC)                                          00293300
       DC      X'10'                                                    00293400
       DC      63AL1(*-64-TRI4BC)                                       00293500
TRWDMK DC      64X'40'                                                  00293700
       DC      64C'1'                                                   00293800
TYPTBL DC      129AL1(*-TYPTBL)                                         00293900
       DC      C'ABCDEFGHI'                                             00294000
       DC      XL7'00'                                                  00294100
       DC      C'JKLMNOPQR'                                             00294200
       DC      XL8'00'                                                  00294300
       DC      C'STUVWXYZ'                                              00294400
       DC      86AL1(*-TYPTBL)                                          00294500
         TITLE 'C O N S T A N T S    &&    L I T E R A L S'
ADR360 DS      F                                                        00260200
ADR140 DS      CL3                                                      00260300
AEND   DC      X'0'                                                     00283600
BCDTAP DS      C                 INDICATOR FOR BCD TAPE MODE            00284200
CPR    DC      X'00'                                                    00283100
CRDEOF DC      X'00'             CARD END-OF-FILE INDICATOR             00283400
DCHAR  DS      C                                                        00283200
LINCUR   DC    PL2'1'
LINMAX   DC    PL2'0'
LSTBCH DS      F                 TO HOLD ADDRESS OF LAST BRANCH         00283300
MACREGSV DS    18F                                                      00285500
ONOFF    DC    213X'00',X'01',42X'00'
OKSTT    DC    X'00'
OVRFLO DC      X'0'              RESET WHEN TESTED                      00283000
PAKT   DS      D                                                        00285000
         DS    0F                                                       00285100
PARM     DS    CL11           ABCDEFGLLLX
PCHARA   DS    CL80              PUNCH OUTPUT AREA                      00284700
PCHERR DC      X'00'             PUNCH ERROR INDICATOR                  00284300
PRNTBUFF DC    X'09'                                                    00285200
         DC    CL132' '                                                 00285300
PRTP12 DC      X'0'                                                     00282700
PRTERR DC      X'00'             PRINTER ERROR INDICATOR                00284500
RDRERR DC      X'00'             CARD READ ERROR INDICATOR              00284400
RETURN   DS    F                                                        00286600
SAVEAREA DS 18F                                                         00285400
SAVCSW DS      D                                                        00285600
SENSEA DC      X'0'                                                     00282000
SENSEB DC      X'0'                                                     00282100
SENSEC DC      X'0'                                                     00282200
SENSED DC      X'0'                                                     00282300
SENSEE DC      X'0'                                                     00282400
SENSEF DC      X'0'                                                     00282500
SENSEG DC      X'0'                                                     00282600
SIMLIMIT DC    F'0'              UPPER LIMIT OF SIMULATED CORE          00283800
SUPRES DC      X'00'             ZERO SUPPRESSION INDICATOR             00284000
SYSPBUFF DC    X'09'
         DC    CL85'                  SIM1401'                             27250
TEMP1  DS      C                                                        00260500
TEMP2    DS    C                                                        00260600
TIOTADDR DS    A
TMPARA   DS    CL80                                                     00284600
TPEOF  DC      X'0'              RESET WHEN TESTED                      00282900
TPERR  DC      X'0'                                                     00282800
TRGPWM DC      127X'00',X'7F',128X'00'
WM256  DC      256X'40'                                                 00284900
         SPACE
PRNTDCB  DCB   MACRF=PM,DSORG=PS,DDNAME=WRITE,LRECL=133                 00288600
SYSPDCB  DCB   MACRF=PM,DSORG=PS,DDNAME=SYSPRINT,LRECL=133
PUNCHR   DCB   MACRF=PM,DSORG=PS,RECFM=F,BLKSIZE=80,LRECL=80,          X00288700
               DDNAME=CARDOUT                                           00288800
CARD     DCB   MACRF=GM,DSORG=PS,RECFM=F,BLKSIZE=80,LRECL=80,          X00288900
               DDNAME=CARDIN,EODAD=EOC                                  00289000
         SPACE
       LTORG                                                            00294700
         SPACE
SIMCOR   DSECT                                                          00294800
         DS    CL16020                                                  00294900
         CSECT
         TITLE 'T A P E    I / O    S U P P O R T'
         AIF   ('&TAPE' EQ 'N').NOTAPE
         AIF   ('&CONSOLE' EQ 'N').RWD
*      THIS SECTION SIMULATES THE LOAD TAPE PUSHBUTTON.                 00218200
*                                                                       00218300
TPLOAD LA      10,=X'00000001'                                          00218400
       BAL     8,FNDRIV                                                 00218500
         ST    3,TMDCB                                                  00218600
         MVC   TPCCW,=A(LDTCCW)                                         00218700
         MVI   TMIOB,X'44'                                              00218800
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00218900
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00219000
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00219100
         EXCP  TMIOB                                                    00219200
         LM    14,15,4(6)      RESTORE REG 14 AND 15                    00219300
         WAIT  1,ECB=TMECB     WAIT FOR I/O                             00219400
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00219500
         LH    1,TMIOB+14          LOAD BYTE COUNT FROM CSW             00219600
       LH      2,=H'20000'                                              00219700
       SR      2,1                                                      00219800
       LA      3,SIMCOR+1                                               00219900
         L     1,TAPEAREA                                               00220000
TPLD1  CLI     0(1),X'1D'                                               00220100
       BNE     TPLD2                                                    00220200
       LA      1,1(1)                                                   00220300
       MVC     0(1,3),0(1)                                              00220400
       TR      0(1,3),TR4IBC                                            00220500
       OI      0(3),X'40'                                               00220600
       SH      2,=H'1'                                                  00220700
       B       TPLD3                                                    00220800
TPLD2  MVC     0(1,3),0(1)                                              00220900
       TR      0(1,3),TR4IBC                                            00221000
TPLD3  LA      1,1(1)                                                   00221100
       LA      3,1(3)                                                   00221200
       BCT     2,TPLD1                                                  00221300
       NI      0(3),X'40'                                               00221400
       OI      0(3),X'3F'                                               00221500
       LA      12,1(3)                                                  00221600
       LA      10,SIMCOR+1                                              00221700
       LA      9,0                                                      00221800
       MVI     OKSTT,1                                                  00221900
       B       NXTOP                                                    00222000
*                                                                       00222100
*      THIS SECTION WILL WRITE A TAPE MARK ON THE TAPE DRIVE            00244800
*      SELECTED BY THE WTM COMMAND.                                     00244900
*                                                                       00245000
WTMCMD NI      RQSTIN+3,X'0F'    GET DEVICE ADDRESS                     00245100
       LA      10,RQSTIN         *                                      00245200
       BAL     8,FNDRIV          *                                      00245300
         ST    3,TMDCB                                                  00245400
         MVC   TPCCW,=A(WTMCCW)                                         00245500
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00245600
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00245700
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00245800
         EXCP  TMIOB                                                    00245900
         LM    14,15,4(6)      RESTORE REG 14 AND 15                    00246000
         WAIT  1,ECB=TMECB     WAIT FOR I/O                             00246100
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00246200
         B     WTORTN                                                   00246300
*                                                                       00246400
*      THIS SECTION WILL REWIND THE TAPE SELECTED BY THE RWD COMMAND    00249200
*                                                                       00249300
RWDCMD NI      RQSTIN+3,X'0F'    GET DEVICE ADDRESS                     00249400
       LA      10,RQSTIN         *                                      00249500
       BAL     8,FNDRIV          *                                      00249600
         ST    3,TMDCB                                                  00249700
         MVC   TPCCW,=A(RWDCCW)                                         00249800
         MVI   TMIOB,X'04'                                              00249900
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00250000
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00250100
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00250200
         EXCP  TMIOB                                                    00250300
         LM    14,15,4(6)      RESTORE REG 14 AND 15                    00250400
         WAIT  1,ECB=TMECB     WAIT FOR I/O                             00250500
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00250600
         B     WTORTN                                                   00250700
.RWD     ANOP
         SPACE
FNDRIV   IC    3,3(10)                                                  14038090
         BCTR  3,0             SUBTRACT ONE                             00271000
         N     3,=F'7'                                                  14038110
         SLL   3,3             MULTIPLY LOGICAL DRIVE NUMBER BY 8       00271200
       A       3,=A(TAPADR)      ADD BASE OF TAPE ADDRESS TABLE         00271300
         L     3,4(3)          GET ACTUAL TAPE ADDRESS FROM TABLE       00271400
         USING IHADCB,3
         TM    DCBOFLGS,X'10'
         BNZ   FNDRIV2
         SPACE                                                          14036245
         MSG   'I007 UNDEFINED TAPE',I007
         B     PANEL                                                    00252400
         SPACE
FNDRIV2  MVI   TMECB,0         CLEAR ECB BEFORE EXCP                    00271500
         NI    0(3),X'3F'        CLEAR DCB EXCEPTION BITS               00271600
         MVI   TMIOB,X'42'       SET IOB CMD CHAIN + UNRELATED BITS     00271700
       BR      8                                                        00271800
         SPACE                                                          14038185
FNDLNG LR      6,12                                                     00269400
FNDLGA TRT     0(256,6),TRGPWM   SCAN FOR GP MK - WD MK                 00269500
       BC      6,FNDLGB          FOUND                                  00269600
       LA      6,256(6)                                                 00269700
       B       FNDLGA                                                   00269800
FNDLGB LR      6,1               CALCULATE LENGTH                       00269900
       SR      6,12              *                                      00270000
       BR      8                                                        00270100
         SPACE                                                          14038015
TPTEST   MVC   SAVCSW+1(7),TPCSW      SAVE CSW AFTER TAPE OPERATION     00271900
       TM      SAVCSW+4,1        Q/ EOF                                 00272000
       BZ      TPTIO1                                                   00272100
       LH      4,=H'24999'                                              00272200
       STH     4,SAVCSW+6                                               00272300
         L     4,TAPEAREA        PUT TAPE MARK CHARACTER IN TAPE AREA   00272400
         MVI   0(4),X'0F'        *                                      00272500
       MVI     TPEOF,1                                                  00272600
TPTIO1 MVI     TPERR,0                                                  00272700
       TM      SAVCSW+4,2        Q/ TAPE ERROR                          00272800
       BCR     8,8                                                      00272900
       MVI     TPERR,1                                                  00273000
       BR      8                                                        00273100
         SPACE                                                          14038315
CU     CH      9,=H'5'                                                  00150100
       BNE     ILEGLN                                                   00150200
       CLI     4(10),X'29'                                              00150300
       BE      RWD                                                      00150400
       CLI     4(10),X'24'                                              00150500
       BE      WTM                                                      00150600
       CLI     4(10),X'14'                                              00150700
       BE      RWU                                                      00150800
       CLI     4(10),X'32'                                              00150900
       BE      BSP                                                      00151000
       CLI     4(10),X'35'                                              00151100
       BE      SKP                                                      00151200
       B       ILEGOP                                                   00151300
RWD    MVI     CUCCW,X'07'                                              00151400
       B       CU1                                                      00151500
WTM    MVI     CUCCW,X'1F'                                              00151600
       B       CU1                                                      00151700
BSP    MVI     CUCCW,X'27'                                              00151800
       B       CU1                                                      00151900
SKP    MVI     CUCCW,X'17'                                              00152000
CU1    BAL     8,FNDRIV                                                 00152100
         ST    3,CUDCB                                                  00152200
         MVI   CUECB,0                                                  00152300
         MVI   CUIOB,X'42'       SET COMMAND CHAIN + UNRELATED BITS     00152400
         STM   13,15,MACREGSV  SAVE MACRO REGS                          00152500
         LA    6,MACREGSV      SAVE ADDRESS TO XR                       00152600
         LA    13,SAVEAREA     GIVE OS OUR SAVE AREA                    00152700
         EXCP  CUIOB                                                    00152800
         LM    14,15,4(6)      RESTORE REG 14 AND 15                    00152900
         WAIT  1,ECB=CUECB                                              00153000
         LM    13,15,0(6)      RESTORE MACRO REGISTERS                  00153100
       B       NXTOP                                                    00153200
RWU      IC    2,3(10)           GET 1401 DRIVE NUMBER                  00153300
         N     2,=F'7'           *                                      00153400
         BCTR  2,0               SUBTRACT 1                             00153500
         SLL   2,3            REFERENCE TAPADR TABLE ENTRY              14025670
         L     4,TAPADR+4(2)     GET DCB ADDRESS                        00154000
         STM   14,15,MACREGSV    SAVE BASE REGISTERS
         LA    6,MACREGSV        *                                      00273300
         LA    13,SAVEAREA       *                                      00273400
         CLOSE ((4))             CLOSE THE DCB                          00273500
         LM    14,15,0(6)                                               00273600
         B     NXTOP                                                    00273700
CUCCWMS  CCW   X'63',0,X'60',1          MODE SET                        00154300
CUCCW  CCW     0,0,X'20',1                                              00154400
TMIOB    DS    0D                                                       00247800
         DC    X'42'                                                    00247900
         DC    4X'00'                                                   00248000
         DC    AL3(TMECB)                                               00248100
         DC    X'00'                                                    00248200
TPCSW    DC    7X'00'                                                   00248300
TPCCW    DC    XL4'00'             ADDRESS OF CCW FOR TAPE OPERATION    00248400
TMDCB    DC    XL4'00'             DCB ADDRESS FOR TAPE DRIVE SELECTED  00248500
         DC    4X'00'                                                   00248600
         DC    2X'00'                                                   00248700
         DC    2X'00'                                                   00248800
TMECB    DS    0F                                                       00248900
         DC    4X'00'                                                   00249000
TAPEAREA DC    A(SIMTAPE)        ADDRESS OF TAPE I/O BUFFER
         SPACE
WTCCW1 CCW     X'63',1,X'60',1                                          00285800
WTCCW2   CCW   1,SIMTAPE,X'20',0
LDTCCW   CCW   X'63',0,X'60',1                                          00286000
RTCCW    CCW   0,0,X'60',1       READ TAPE                              00286200
RTCCW1   CCW   2,SIMTAPE,X'20',25000
WTMCCW   CCW   X'1F',0,X'20',1   WRITE TAPE MARK                        00286400
RWDCCW   CCW   X'07',0,X'20',1   REWIND                                 00286500
CUIOB    DS    0D                                                       00286700
         DC    X'02'                                                    00286800
         DC    4X'00'                                                   00286900
         DC    AL3(CUECB)                                               00287000
         DC    8X'00'                                                   00287100
         DC    AL4(CUCCWMS)                                             00287200
CUDCB    DC    F'0'                                                     00287300
         DC    8X'00'                                                   00287400
CUECB    DC    F'0'                                                     00287500
*                                                                       00287600
*      THIS TABLE EQUATES A 360 TAPE DRIVE TO A 1401 TAPE DRIVE AS A    00287700
*      RESULT OF A TAS ENTRY.                                           00287800
*                                                                       00287900
TAPADR   DC    A(0,TAPEDCB0)                                            00288000
         DC    A(0,TAPEDCB1)                                            00288100
         DC    A(0,TAPEDCB2)                                            00288200
         DC    A(0,TAPEDCB3)                                            00288300
         DC    A(0,TAPEDCB4)                                            00288400
         DC    A(0,TAPEDCB5)                                            00288500
         LTORG
TAPEDCB0 DCB   MACRF=(E),DSORG=PS,DEVD=TA,DDNAME=TAPE1                  14035720
TAPEDCB1 DCB   MACRF=(E),DSORG=PS,DEVD=TA,DDNAME=TAPE2                  14035730
TAPEDCB2 DCB   MACRF=(E),DSORG=PS,DEVD=TA,DDNAME=TAPE3                  14035740
TAPEDCB3 DCB   MACRF=(E),DSORG=PS,DEVD=TA,DDNAME=TAPE4                  14035750
TAPEDCB4 DCB   MACRF=(E),DSORG=PS,DEVD=TA,DDNAME=TAPE5                  14035760
TAPEDCB5 DCB   MACRF=(E),DSORG=PS,DEVD=TA,DDNAME=TAPE6                  14035770
SIMTAPE  DS    CL25600
.NOTAPE        ANOP
         TITLE 'S Y S T E M    C O N T R O L    B L O C K S'
TIOT     DSECT
TIOCNJOB DS    CL8                 JOB
TIOCSTP  DS    CL8                 PROC
         DS    CL8                 PROC STEP
*                                  F O R   E A C H   D D E N T R Y
TIOELNGH DS    FL.8
         DS    CL3
TIOEDDNM DS    CL8                 DD NAME
         DS    CL4
*                                  F O R   E A C H   D E V I C E
TIOESTTB DS    CL1
TIOEFSRT DS    AL.24               UCB ADDRESS
         SPACE
         DCBD  DSORG=PS,DEVD=TA
         SPACE
UCB      DSECT
         DS    CL12
UCBWGT   DS    CL1
UCBNAME  DS    CL3
         END   BEGIN
//       EXEC  ASF                                                           *//
//C.SYSIN   DD DSN=CACTR683.SIM1401,DISP=OLD                                 *//
/*
################################################################################
########## 360 SIMULATOR FOR 1401, MISC JCL AND UPDATES
//       EXEC  PGM=IEFBR14
//DDX       DD DSN=CACTR683.P.SIM1401T,
//             VOL=REF=CACTR683.ACTR,
//             SPACE=(TRK,1),
//             DISP=(MOD,DELETE)
//       EXEC  ASMFCL,REGION.ASM=130K,COND=(4,LE)
//ASM.SYSIN DD DSN=&&SOURCE,
//             DISP=(OLD,DELETE)
//LKED.SYSLMOD  DD DSN=CACTR683.P.SIM140TC(ACTGTT),
//             UNIT=,
//             VOL=REF=CACTR683.ACTR,
//             LABEL=RETPD=9999,
//             SPACE=(TRK,(25,,1),RLSE),
//             DISP=(NEW,CATLG)
//       EXEC  PGM=IEFBR14
//DDX       DD DSN=CACTR683.P.SIM1401C,
//             VOL=REF=CACTR683.ACTR,
//             SPACE=(TRK,1),
//             DISP=(MOD,DELETE)
//       EXEC  ASMFCL,REGION.ASM=130K,COND=(4,LE)
//ASM.SYSIN DD DSN=&&SOURCE,
//             DISP=(OLD,DELETE)
//LKED.SYSLMOD  DD DSN=CACTR683.P.SIM1401C(ACTGTC),
//             UNIT=,
//             VOL=REF=CACTR683.ACTR,
//             LABEL=RETPD=9999,
//             SPACE=(TRK,(25,,1),RLSE),
//             DISP=(NEW,CATLG)
//ZEDI01 JOB   (00000,2,22,595151,WEAVER,
// 25123),A,PRTY=4
//       EXEC  LINKEXEC,P1=SIM1401,PARM.GO='SSSA'
//GO.WRITE  DD SYSOUT=A,DCB=(RECFM=FM,BLKSIZE=133,LRECL=133)
//GO.CARDOUT DD DUMMY,DCB=(RECFM=F,BLKSIZE=80,LRECL=80)
//GO.CARDIN DD *,DCB=BLKSIZE=80
,008015,022029,030037,048092L/048299M0802803081,055201,062066/332,073077,088/080
ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789
//SIM1401  JOB 'U=ARMK204,T=60,D=683,L=6'                                    *//
/*SETUP UNIT=2314,ID=ACT562                                                  *//
//*                                    '3=L,386=D,02=T,402KMRA=U' BOJ  1041MIS//
//*                                    ,REVAEW,151595,10,2,00000(   BOJ 10IDEZ//
//*                                       LACOL=TSED,TNIRPSYS=EMANDD,RP TAMROF*/
//        EXEC PGM=IEBUPDTE,PARM=MOD,REGION=50K
//SYSPRINT  DD SYSOUT=A
//SYSUT1    DD DSN=CACTR683.SIM1401,
//             DISP=(OLD,KEEP)
//SYSUT2    DD DSN=&&SOURCE,
//             UNIT=2314,
//             SPACE=(7200,40),
//             DCB=CACTR683.SIM1401,
//             DISP=(NEW,PASS)
//SYSIN     DD *
./       CHANGE  SEQFLD=765
./ NUMBER INSERT=YES,INCR=1,SEQ1=00710,NEW1=00711
         MACRO
&L       OSE
&L       STM   13,15,MACREGSV
         LA    13,SAVEAREA
         LA    6,MACREGSV
         MEND
         MACRO
         OSL
         LM    13,15,MACREGSV
         MEND
         LCLC  &CONSOLE            SWITCH FOR CONSOLE CMMD SUPPORT
         LCLC  &TAPE          SWITCH FOR TAPE I/O SUPPORT
         LCLC  &MB            MOVE BINARY SUPPORT
         SPACE
&CONSOLE SETC  'Y'                   CONSOLE COMMANDS ACCEPTED
*                                      PARM IS INTERPRETED FOR ALL BUT
*                                      PGM LOAD DEVICE, THEN SIMULATOR
*                                      WAITS FOR OPERATOR INSTRUCTIONS.
*                                      THIS IS PLANNED AS A DEBUG MODE.
&CONSOLE SETC  'N'                   NO CONSOLE SUPPORT
*                                      PARM IS INTERPRETTED, EXECUTION
*                                      BEGINS. ANY MESSAGES ARE ROUTED
*                                      TO SYSPRINT. THERE IS NO CONSOLE
*                                      COMMUNICATION.
*                                      THIS IS PLANNED AS PRODUCTION
*                                      MODE.
&CONSOLE SETC  'X'                   ASSEMBLE BOTH, NOT EXECUTABLE
*                                      PERMITS COMPILE OF ALL CODE.
         SPACE
&TAPE    SETC  'N'              NO TAPE SUPPORT (INVALID OPS)
*                                      OPTION REDUCES CORE REQ BY 30K
&TAPE    SETC  'Y'              TAPE SUPPORT
&TAPE    SETC  'X'                   ASSEMBLE BOTH, NOT EXECUTABLE
         SPACE
&MB      SETC  'Y'            MOVE BINARY
&MB      SETC  'N'            NO MOVE BINARY (INVALID OPS)
&MB      SETC  'X'            ASSEMBLE BOTH (NOT EXECUTABLE)
./ DELETE SEQ1=00720,SEQ2=00980
./ DELETE SEQ1=04690,SEQ2=04700
./ DELETE SEQ1=04720,SEQ2=04720                                            04730
         B     SETBCH2                                                     04730
./ DELETE SEQ1=05450,SEQ2=05450
BWZBCH   LR    12,10               SET B-REG                               05460
./ DELETE SEQ1=05470,SEQ2=05470
./ DELETE SEQ1=05490,SEQ2=05490
         B     SETBCH2                                                     05500
./ DELETE SEQ1=05690,SEQ2=05690
        CH    9,=H'4'             Q. A ADDRESS                            006260
        CH    9,=H'7'             Q. B ADDRESS                             06315
         BL    H2                   NO                                     06316
H2       MSG   'I003 HALT  I      , A      , B      ',I003                 06360
         B     TERMINAT                                                    06380
H3       MVI   OKSTT,1                                                     06450
         B     WTORTN                                                      06460
./ DELETE SEQ1=06500,SEQ2=06500
./ DELETE SEQ1=06520,SEQ2=06520
         B     SETBCH2                                                     06530
         CLI   FLOAT,1             Q. FLOATING $                           13690
         B     SETBCH2                                                     20480
         DROP  13                                                          20490
         PRINT GEN                                                         20505
./ DELETE SEQ1=20800,SEQ2=20900
./ NUMBER INSERT=YES,INCR=1,SEQ1=21150,NEW1=21151
         SPACE
         L     2,0(5)
         LH    3,0(2)
         CH    3,=AL2(L'PARM)
         BE    PARMST
         MSG   'PARM INCORRECT LENGTH',IPARM
         B     WTORTN
BASE2  DC      A(SETBS1+4096)
PARMST   MVC   PARM,2(2)
         MVC   SENSEA(7),PARM
         TR    SENSEA(7),ONOFF
         PACK  LINMAX,PARM+7(3)
./ NUMBER INSERT=YES,INCR=1,SEQ1=21300,NEW1=21301
         OSE
OKWTOR   WTOR  '                  SIM1401 A002 OK',RQSTIN,50,WTECB
         OSL
          MVC  SYSPBUFF+27(50),RQSTIN
         OSE
         PUT   SYSPDCB,SYSPBUFF
         OSL
./ DELETE SEQ1=21310,SEQ2=21420
         STM   13,15,MACREGSV                                              21450
./ NUMBER INSERT=YES,INCR=1,SEQ1=21900,NEW1=21901
         MVI   OKSTT,0
         USING H,13
         B     H4
         DROP  13
./ DELETE SEQ1=21910,SEQ2=21920
./ DELETE SEQ1=23350,SEQ2=23350
         MVC   WTOWTO+08(85),SYSPBUFF+1      MOVE TO WTO                   23540
./ NUMBER INSERT=YES,INCR=1,SEQ1=23930,NEW1=23931
         LR    10,5                LOAD BRANCH ADDRESS
SETBCH2  AR    12,9                INCREMENT B-ADDR TO INST AFTER BRANH
         B     NXTOP2
./ DELETE SEQ1=23940,SEQ2=23970
NXTOP2   TM    0(10),X'40'         Q. IS THERE A WORD MARK                 24030
          CLC  TMPARA(3),=C')LC'   SKIP EMULATOR 'LAST CARD'               25885
         BE    READF                                                       25886
TMPARA   DS    CL80                READ AREA                               25915
PCHARA   DS    CL80                PUNCH OUTPUT AREA                       26315
./ DELETE SEQ1=27010,SEQ2=27010
CPR      DC    X'00'               COMPARE INDICATOR                       27020
LINMAX   DC    PL2'60'                                                     27060
./ DELETE SEQ1=27070,SEQ2=27070
MACREGSV DS    3F                                                          27080
./ DELETE SEQ1=27150,SEQ2=27150
./ DELETE SEQ1=27220,SEQ2=27220
./ DELETE SEQ1=27240,SEQ2=27240
./ DELETE SEQ1=27390,SEQ2=27390
         PRINT NOGEN                                                       27445
SYSPDCB  DCB   MACRF=PM,DSORG=PS,DDNAME=SYSPRINT,LRECL=86                  27460
PUNCHR   DCB   MACRF=PM,DSORG=PS,DDNAME=CARDOUT,LRECL=80                   27470
CARD     DCB   MACRF=GM,DSORG=PS,DDNAME=CARDIN,LRECL=80,EODAD=EOC          27480
./ DELETE SEQ1=27490,SEQ2=27500
./ DELETE SEQ1=27590,SEQ2=27590
         AIF   ('&CONSOLE' EQ 'N').RWD                                     27985
./ NUMBER INSERT=YES,INCR=1,SEQ1=29340,NEW1=29341
BCDTAP   DS    C                   INDICATOR FOR BCD TAPE MODE
SAVCSW   DS    D
LDTCCW   CCW   X'A3',0,X'60',1                                             29380
         CCW   2,SIMTAPE,X'20',20000                                       29385
         CCW   2,SIMTAPE,X'20',25000                                       29400
./ DELETE SEQ1=29750,SEQ2=29830
//ASF     EXEC ASFL,COND=(4,LE)
//C.SYSGO   DD SPACE=(CYL,(5,5))
//C.SYSUT1  DD SPACE=(CYL,(5,5))
//C.SYSUT2  DD SPACE=(CYL,(5,5))
//C.SYSUT3  DD SPACE=(CYL,(5,5))
//C.SYSIN   DD DSN=&&SOURCE,
//             DISP=(OLD,DELETE)
//       EXEC  PGM=*.ASF.L.SYSLMOD,PARM='NNFFFFF055C'
/*
################################################################################
########## 80/80 CARD TO TAPE AND CALL SORT, 1401 SOURCE
01010          JOB  80 COLUMN CARD-TO-TAPE AND CALL SORT 7                 CTST7
01020          CTL  6611                                                   CTST7
01030          DIOCS                                                       CTST7
01040COUNTS         RECORD                                                 CTST7
01050DIOCSORG       336                                                    CTST7
01060EXITS          3                                                      CTST7
01070IODEVICES      TAPE                                                   CTST7
01080LABELDEF       STANDARD,RDLIN                                         CTST7
01900RWDOPTION      UNLOAD                                                 CTST7
01100TAPEUSE        OUTPUT                                                 CTST7
01110          DTF  OUT                                                    CTST7
01120BLOCKSIZE      2916                                                   CTST7
01130CHANDRIVE      2                                                      CTST7
01140EX3ADDR        T2EX3                                                  CTST7
01150FILETYPE       TAPE,OUTPUT                                            CTST7
01160HEADER         0123456789,123                                         CTST7
01170IOAREAS        DA
01180PADDING        9                                                      CTST7
01190RECFORM        BLOCKED,FIXED                                          CTST7
01200SIZEREC        81                                                     CTST7
01210TOTALS         RECORD                                                 CTST7
01220TYPELABEL      STANDARD                                               CTST7
01230WORKAREA       WORK                                                   CTST7
02010          SEQNC                                                       CTST7
01015WORK      EQU  1                                                      CTST7
0202081        DCW  @\@                                                    CTST7
02030          INDEX                                                       CTST7
02040DA        DA   36X81,G                                                CTST7
02050*                                                                     CTST7
02180T2EX3     MLC  BLK40#40,IOCSLB&79                                     CTST7
02190          MLC  BLK40                                                  CTST7
02200          B    IOCSRE                                                 CTST7
02060START     RDLINOUT                                                    CTST7
02070          OPEN OUT                                                    CTST7
02080*                                                                     CTST7
02090READ      BLC  EOJ                                                    CTST7
02100          R                                                           CTST7
02105          BCE  EOJ,1,,                                                CTST7
02110          PUT  ,OUT                                                   CTST7
02120          B    READ                                                   CTST7
02130*                                                                     CTST7
0214 EOJ       SW   101                                                    CTST7
02141          MLC  80,180              SAVE TRAILER CARD                  CTST7
02142          CLOSEOUT                                                    CTST7
02144          MLC  180,80              PUT TRAILER BACK IN READ AREA      CTST7
02145          BLC  EOJ2                                                   CTST7
02150          BCE  SORT7,2,                                               CTST7
02160          SW   1                                                      CTST7
02170          B    1                                                      CTST7
02210EOJ2      WCSCSA,,@END OF JOB@                                        CTST7
02220          H    EOJ2                                                   CTST7
               LTORG*
03010          ORG  15950                                                  CTST7
03020SORT7     R                                                           CTST7
03030          SW   1                                                      CTST7
03040SORT72    CS   *-4                                                    CTST7
03050          SBR  *-4                                                    CTST7
03060          BWZ  SORT72,1,1                                             CTST7
03070          B    *&2                                                    CTST7
03080          DCW  @!@                                                    CTST7
03090SORT73    RWD  1                                                      CTST7
03100          RTW  1,1                                                    CTST7
03110          BER  SORT73                                                 CTST7
03120          B    2701                                                   CTST7
03130          END  START                                                  CTST7
################################################################################
########## GENERALIZED 1401 ERROR ROUTINE, 1401 SOURCE
  010          DCW  @UNDEFINED ERROR@
  020ERRORU    DCW  #3
  030*
  040* ENTER ERROR MESSAGES HERE, FOLLOWED BY ADDRESS OF NEXT
  050* INSTRUCTION FOLLOWING B ERROR
  060*
  070ERROR     SBR  ERRORX&3
  080          SBR  ERRORU
  090          MLC  X3,ERROR3&6
  100          SBR  X3,ERROR&3
  110ERRORL    C    15997&X3
  120          SBR  X3
  130          C    0&X3,ERRORU
  140          BU   ERRORL
  150          MLC  15997&X3,260
  160ERROR3    SBR  X3,0
  170          W
  180ERRORX    CS   *,260
  190*
               END
################################################################################
########## GENERALIZED UPDATE, 1401 SOURCE
01010          JOB  GENERALIZED FILE UPDATE, INITALIZE                     GENUP
01020          CTL  6611                                                   GENUP
01030          SEQNC                                                       GENUP
0104081        DCW  @!@                                                    GENUP
01050          INDEX                                                       GENUP
01060          ORG  101                                                    GENUP
01070CONTRL    DA   1X20                                                   GENUP
01080RL             8,10                                                   GENUP
01090HEADER         11,20                                                  GENUP
01100          DA   4X5                                                    GENUP
01110LOC            3                                                      GENUP
01120LN             4,5                                                    GENUP
01130          ORG  336                                                    GENUP
01140          DCW  @!@                                                    GENUP
01150START     R                                                           GENUP
01160          C    7,@CONTROL@        Q. CONTROL CARD                     GENUP
01170          BU   ERROR                                                  GENUP
01180NOCTL     EQU  *&1                                                    GENUP
02010          MRCM 1,201
02020          WCSCS1                                                      GENUP
02030          MRCM 1,CONTRL                                               GENUP
02040          SW   1,4                                                    GENUP
02050          SW   6                                                      GENUP
02060*                                                                     GENUP
02070FLDST     A    LN&X2,X1           INITIALIZE FOR COMPARES             GENUP
02080          SW   6&X1                                                   GENUP
02090          SBR  COMPR&6&X3,5&X1                                        GENUP
02100          MN   LOC&X2,COMPR&3&X3                                      GENUP
02110          MN                                                          GENUP
02120          MLC                                                         GENUP
02130          SBR  X2,5&X2                                                GENUP
02140          SBR  X3,17&X3                                               GENUP
02150          BCE  SVCOL,COMPR&X3,M                                       GENUP
02160          BCE  *&5,LN&X2,                                             GENUP
02170          B    FLDST                                                  GENUP
02180          MLCWABUP&4,COMPR&4&X3                                       GENUP
02190SVCOL     SBR  MOVE&3,5&X1                                            GENUP
02200          MZ   @K@,MOVE&2                                             GENUP
02210          A    *-6,RL                                                 GENUP
02220          MN   RL,QEOB&6                                              GENUP
02230          MN                                                          GENUP
02240          MLC                                                         GENUP
               S    X2&1
03010*                                                                     GENUP
03020* INITIALIZE TAPES                                                    GENUP
03030*                                                                     GENUP
03040          RWD  1                                                      GENUP
03050          RWD  2                                                      GENUP
03060          B    COPY                                                   GENUP
03070          R                                                           GENUP
               RT   1,IOAREA
               BEF  LTM
               BSP  1
03080          B    GETBLK                                                 GENUP
     LTM       WTM  2
               B    GETBLK
01010          JOB  GENERALIZED FILE UPDATE, PROCESS                       GENUP
04010*                                                                     GENUP
04020* WRITE LAST BLOCK, READ NEXT BLOCK                                   GENUP
04030*                                                                     GENUP
04040WTAPE2    WT   2,IOAREA           WRITE BLOCK                         GENUP
04050          BER  TAPERR                                                 GENUP
04060          BEF  ERROR                                                  GENUP
04070EOF2      EQU  *&1                                                    GENUP
04090          B    GETBLK                                                 GENUP
04100NOISE     A    *-6,NOISEC         COUNT NOISE RECORDS                 GENUP
04110GETBLK    RT   1,IOAREA           READ BLOCK                          GENUP
04120          SBR  X1                                                     GENUP
04130          BEF  EOT1               Q. EOF                              GENUP
04140          BCE  NOISE,IOAREA&11,!  Q. NOISE RECORD                     GENUP
04150          CHAIN11                                                     GENUP
04160          B    *&9                                                    GENUP
04170          RT   1,IOAREA                                               GENUP
04180          BER  TAPERR             Q. RED ERROR                        GENUP
04185          SBR  X3,IOAREA-1                                            GENUP
04190          SW   15999&X1           FIRST TIME ONLY MAKE GM-WM.         GENUP
04200          MLC  @N@,*-10                                               GENUP
04210          BWZ  QPAD9,15999&X1,1   Q. WLR                              GENUP
04220          B    ERROR                                                  GENUP
04230WLR       EQU  *&1                                                    GENUP
05002*                                                                     GENUP
05004* GET NEXT RECORD TO PROCESS                                          GENUP
05006*                                                                     GENUP
05010SCAN9     MLC  X3,X1              FIRST CHAR OF RECORD WAS 9, SCAN    GENUP
05020          SBR  X1,1&X1             FOR ALL 9S.                        GENUP
05030          BCE  *-14,1&X1,9                                            GENUP
05040          BCE  GETREC&7,1&X1,\                                        GENUP
05050          B    QPAD9&8                                                GENUP
05060GETREC    A    *-6,RECNT          COUNT PROCESSED INPUT RECORD        GENUP
05070QEOB      BCE  WTAPE2,0&1&X3,!    Q. END BLOCK, 0 IS RECORD LENGTH    GENUP
05080          SBR  X3                 SET TO NEXT RECORD OF BLOCK         GENUP
05090QPAD9     BCE  SCAN9,1&X3,9       Q. PADDING                          GENUP
06010*                                                                     GENUP
06020* RECORD IS AVAILABLE, TEST FOR UPDATE                                GENUP
06030*                                                                     GENUP
06040LCSW      NOP  GETREC             EOF CARD SWITCH                     GENUP
06050COMPR     C    0&X3,*             Q. FIELD 1 EQUAL                    GENUP
06060          BH   GETREC                                                 GENUP
06070          BL   SEQER                                                  GENUP
06080          C    0&X3,*                      2                          GENUP
06090          BH   GETREC                                                 GENUP
06100          BL   SEQER                                                  GENUP
06110          C    0&X3,*                      3                          GENUP
06120          BH   GETREC                                                 GENUP
06130          BL   SEQER                                                  GENUP
06140          C    0&X3,*                      4                          GENUP
06150          BH   GETREC                                                 GENUP
06160          BL   SEQER                                                  GENUP
07010*                                                                     GENUP
07020* RECORD IS TO BE UPDATED                                             GENUP
07030*                                                                     GENUP
07040UPDATE    MLC  5,X2               LENGTH DATA PLUS COLUMN DATA        GENUP
07060          MN   3,MOVE&6                                               GENUP
07070          MN                                                          GENUP
07080          MLC                                                         GENUP
07090MOVE      MLC  0&X2,0&X3          MOVE FROM CARD TO TAPE              GENUP
08010*                                                                     GENUP
08020* GET NEXT UPDATE                                                     GENUP
08030*                                                                     GENUP
08040READC     BLC  EOFC                                                   GENUP
               R
               BCE  EOFC,1,,
               B    COMPR
08060EOFC      MLC  @B@,LCSW                                               GENUP
08070          B    GETREC
08080*                                                                     GENUP
08090* UNMATCHED INPUT                                                     GENUP
08100*                                                                     GENUP
08110SEQER     MRCM 1,201                                                  GENUP
08120          MLC  @SEQ ER OR UNMATCHED@,300                              GENUP
08130          WCSCS,READC                                                 GENUP
01010          JOB  GENERALIZED FILE UPDATE, EOJ AND SUBROUTINES           GENUP
09010*                                                                     GENUP
09020* END OF INPUT TAPE                                                   GENUP
09030*                                                                     GENUP
09040EOT1      WTM  2                                                      GENUP
09050          B    COPY                                                   GENUP
09060          WTM  2                                                      GENUP
09070          RWD  2                                                      GENUP
09080          RWU  1                                                      GENUP
09090          BCE  ERROR,LCSW,N       Q. UNPROCESSED INPUT                GENUP
09100UNPRO     EQU  *&1                                                    GENUP
               MCS  RECNT,220
               WCSCS1,,@RECORDS@,228
               MCS  NOISEC,220
               BCE  NONSE,220,
               WCSCS,,@NOISE RECORDS@,234
               CC   1
     NONSE     BLC  ERROR
09130EOJ       EQU  *&1                                                    GENUP
               SBR  X1,1
     CWRD      CW   0&X1
               BCE  *&12,X1-1,8
               SBR  X1,1&X1
               B    CWRD
               BCE  SORT7,2,
               SW   1
               B    1
     SORT7     SORT7
0363 *                                                                     PAYAB
10010TAPERR    SBR  COMAND&16          TAPE ERROR ROUTINE                  GENUP
10020          SBR  *&4                                                    GENUP
10030          C    *,COMAND&13                                            GENUP
10040          C                                                           GENUP
10050          MLC                                                         GENUP
10060          MLNS COMAND&17,COMAND&18                                    GENUP
10070          MLNS COMAND&3,BACKSP&3                                      GENUP
10080REPEAT    A    *-6,COMAND&18                                          GENUP
10090          C    COMAND&18,COMAND&17                                    GENUP
10100          BU   *&7                                                    GENUP
10110          H                                                           GENUP
10120          BSS  COMAND&13,G                                            GENUP
10130BACKSP    BSP  1                                                      GENUP
10140          BCE  COMAND,COMAND&7,R                                      GENUP
10150          BL   COMAND                                                 GENUP
10160          SKP  1                                                      GENUP
10170COMAND    NOP  *,*,*                                                  GENUP
10180          BER  REPEAT                                                 GENUP
10190          B    *                                                      GENUP
10200          DCW  7                                                      GENUP
10210          DCW  @ @                                                    GENUP
11010*                                                                     GENUP
     * COPY 80 OR 120 CHAR HEADER OR TRAILER LABEL
11030*                                                                     GENUP
11040COPY      SBR  COPYX&3                                                GENUP
11050          C    HEADER,BLK10#10    Q. DOES TAPE HAVE LABELS            GENUP
11060          BE   COPYX                                                  GENUP
11070          RT   1,201              READ LABEL                          GENUP
11080          BER  TAPERR                                                 GENUP
11090          BEF  ERROR                                                  GENUP
11100EOFER     EQU  *&1
               BCE  L120,321,!
11120          BCE  *&5,281,!          Q. 80 CHAR LABEL                    GENUP
11130          B    ERROR                                                  GENUP
11140LBN80     EQU  *&1                                                    GENUP
11160          SW   281                                                    GENUP
               B    LW
     L120      SW   321
11170LW        WT   2,201                                                  GENUP
11180          BER  TAPERR                                                 GENUP
11190          WCSCSS                                                      GENUP
11200COPYX     B    *                                                      GENUP
12010*                                                                     GENUP
12020* PRINT ERROR MESSAGE AND HALT                                        GENUP
12030*                                                                     GENUP
12040          DCW  @UNDEFINED ERROR@                                      GENUP
12050ERRORU    DCW  #3
11110          ICODEDCW,@TM INSTEAD OF TAPE LABEL@,,EOFER
11150          ICODEDCW,@TAPE LABEL NOT 80 CHAR@,,LBN80
09140          ICODEDCW,@END OF JOB@,,EOJ
09110          ICODEDCW,@NOTE UNPROCESSED INPUT@,,UNPRO                    GENUP
04240          ICODEDCW,@A WLR HAS BEEN READ@,,WLR
04080          ICODEDCW,@SHORT OUTPUT TAPE@,,EOF2                          GENUP
01190          ICODEDCW,@NO CONTROL CARD@,,NOCTL                           GENUP
12070ERROR     SBR  ERRORU                                                 GENUP
12080          SBR  X3,ERROR&3                                             GENUP
12090ERROR2    C    15997&X3                                               GENUP
12100          SBR  X3                                                     GENUP
12110          C    0&X3,ERRORU                                            GENUP
12120          BU   ERROR2                                                 GENUP
12130          MLC  15997&X3,260                                           GENUP
12140          WCSCSA                                                      GENUP
12150          H    *-3                                                    GENUP
12160*                                                                     GENUP
12170* CONSTANTS                                                           GENUP
12180*                                                                     GENUP
12190BUP       BIN  UPDATE,                                                GENUP
     NOISEC    DCW  #4
     RECNT     DCW  #6
12200          LTORG*                                                      GENUP
12   IOAREA    EQU  *&1                                                    GENUP
12             END  START                                                  GENUP
################################################################################
########## VARIOUS 1401 UTILITIES, 1401 OBJECT
,008015,022029,036040,041045,053058,062./180M%U1101RB040K4041  TAPE TO PUNCH
,008015,022057L072216,029205,036206,043213,050217/201080,0011L0801804205   REPRO
TAPE TO PRINT
,008015,022023,050038,,030052,057071,,045065,076.F1/332/M%U1201RB049K2B050@B052
LIST CARDS AND OVERFLOW
,008015,022029,036050L074200,043183,185190/176080,001197F1B183@L0802803185 LIST
REPRODUCE AUTOCODER
,008015,022026,030034,041,045,053,0570731026
L072116,110106,105117B101/I99,027A074028<027B0010270B026/0991,001/001117I0
,008015,022029,036039,043047/039036   ,051,055,056,063N,067071,075,0011056
1,006076,101M406104M080180A407104     ,345,352,3591056 L033365,334,341B039
M075175B395A5C018410B359/B3454        ,379,386,391,3951L030395,373,378B039
M075175B395A5C018410B359/B3524        ,379,386,391,3951L030395,373,378B039
/44.33301001JOB                       ,399,403,407,4081L015410,397,398B039
                                                       /333080
################################################################################
 E N D
################################################################################

