1FILE   1;   134 RECORDS:  
0SYM              MIDFSAVE  BADPTR GOTIT CKTAPE READY TPMSAV0001
 SYM           WAIT SNSOK DBADTAPE FINDV FINDV2 +FMT5LP MSAV0002
 SYM           %FMT5LP2 HOLE NXTFIL  NXTTRK SAMCYL &NEWVOLMSAV0003
 SYM            wFNDFIL 6NOFMT3 EXTLP @OVERFRT 	NXTREC 	CHMSAV0004
 SYM           KWRT 	^MUSTWRTE 	QBUFEMP    PUNT3 PGNTX TAPOMSAV0005
 SYM           UTF NOTLAST    WTSW TAPSTRT BTAPWAIT TAPWMSAV0006
 SYM           RT UCEOTh h h h h  h c ###1MSAV0007
 SYM               TPUE *AGAIN DONE2 @TPUE2 hNSV PUMSAV0008
 SYM           NT sPUNT2h  SRCH { H } Q \ Y 0RDFMSAV0009
 SYM           MT3 8     RDLBL  Ó Ɠ   RDLBL2 MSAV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD               Z 1 9     و ٍ  ق  MSAV0125
 RLD              ڿ   @ گ u y  ^ ک U Y څMSAV0126
 RLD              0 4  d h  m q  }  \ MSAV0127
 RLD              0       -     m ^MSAV0128
 RLD                D H   0 4     *MSAV0129
 RLD              - d h  ^   Y 0        MSAV0130
 RLD                     	     M 4    MSAV0131
 RLD                       ٳ         ٥MSAV0132
 RLD                                                         MSAV0133
 END                                   DATE  01-19-70 13:59             MSAV0134
-FILE   2;   858 RECORDS:  
0MSAV     TITLE 'PROGRAM TO SAVE DISK FILES ON TAPE'                     OFSV0001
 MIDFSAVE START 0                                                        OFSV0002
          EXTRN VOLGET                                                   OFSV0003
          EXTRN DSKOP                                                    OFSV0004
          EXTRN MOVIT                                                    OFSV0005
          EXTRN SCARDS                                                   OFSV0006
          EXTRN TPWRUC                                                   OFSV0007
          EXTRN SERCOM                                                   OFSV0008
          EXTRN ERROR                                                    OFSV0009
          EXTRN WRITE,GETFD                                              OFSV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FCB      DS    70F                                                      OFSV0849
 SCR      DS    250F                                                     OFSV0850
 TI       DS    (RECSIZE)X                                               OFSV0851
          ORG   MIDFSAVE+(((*-MIDFSAVE)+4095)/4096*4096)                 OFSV0852
          DS    CL4                                                      OFSV0853
 TBF1     DS    (BFSIZE+HDRLEN)C                                         OFSV0854
          ORG   MIDFSAVE+(((*-MIDFSAVE)+4095)/4096*4096)                 OFSV0855
          DS    CL4                                                      OFSV0856
 TBF2     DS    (BFSIZE+HDRLEN)C                                         OFSV0857
          END                                                            OFSV0858
-FILE   3;   356 RECORDS:  
0*        *  *  *  *  *  EQUALITIES  *  *  *  *  *                       LEQU0001
          SPACE 3                                                        LEQU0002
          SPACE 2                                                        LEQU0003
 *             GENERAL REGISTERS USED BY THE SUPERVISOR                  LEQU0004
 *                                                                       LEQU0005
 FRSTGR   EQU   0        FIRST REGISTER SAVED - MUST NOT EXCEED LASTGR   LEQU0006
 LASTGR   EQU   15       LAST REGISTER SAVED                             LEQU0007
 GR0      EQU   0        UTILITY REGISTERS FOR SUPERVISOR USE            LEQU0008
 GR1      EQU   1                                                        LEQU0009
 GR2      EQU   2                                                        LEQU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                  ( O  INDICATES EMPTY QUEUE )                         LEQU0347
          SPACE                                                          LEQU0348
 *              BITS:                                                    LEQU0349
          SPACE                                                          LEQU0350
 *        0-3 STORAGE KEY FOR SIO                                        LEQU0351
 *        4   1 IF RETURNS LIST HAS NOT BEEN MOVED YET                   LEQU0352
 *        5   1 IF THIS IS A SPECIAL OLTS TIMING I/O OPERATION           LEQU0353
 *        6   1 IF A UC IS PENDING ON THE DEVICE                         LEQU0354
 *        7   1 IF A UE IS PENDING ON THE DEVICE                         LEQU0355
          SPACE                                                          LEQU0356
-FILE   4;    59 RECORDS:  
0*********************************************************************** PCBD0001
 *                                                                     * PCBD0002
 *              PCB -- PAGE CONTROL BLOCK                              * PCBD0003
 *                                                                     * PCBD0004
 *                  DSECT                                              * PCBD0005
 *                                                                     * PCBD0006
 *********************************************************************** PCBD0007
          SPACE 5                                                        PCBD0008
 PCBDCT   DSECT                                                          PCBD0009
 *                                                                       PCBD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          PCBD0050
 PCBXA    DS    H                   EXTERNAL ADDRESS - KEPT AS           PCBD0051
 PCBXAS   EQU   PCBXA                    SLOT - 1 BYTE                   PCBD0052
 *                                            4 BITS MODULE NBR          PCBD0053
 *                                            4 BITS SLOT NUMBER         PCBD0054
 PCBXAT   EQU   PCBXA+1                  TRACK - 1 BYTE                  PCBD0055
 *                                                                       PCBD0056
 *                                                                       PCBD0057
 *                                                                       PCBD0058
 LPCB     EQU   *-PCBDCT            LENGTH OF PCB                        PCBD0059
-FILE   5;    24 RECORDS:  
0         MACRO                                                          MMAC0001
 &SL      CMSG  &MSG,&LBL,&TYPE=B                                        MMAC0002
 &SL      LA    0,G&SYSNDX.L                                             MMAC0003
          LA    1,G&SYSNDX                                               MMAC0004
           L     2,=V(OUT&TYPE)                                          MMAC0005
          BALR  2,2                                                      MMAC0006
          B     &LBL                                                     MMAC0007
 G&SYSNDX DC    C&MSG                                                    MMAC0008
 G&SYSNDX.L EQU *-G&SYSNDX                                               MMAC0009
          DS    0H                                                       MMAC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 &SL.IX   EQU   &SL.LN-LOADTBL                                           MMAC0015
 &SL.TV   EQU   X'7F0000'+&SL.IX                                         MMAC0016
          SPACE                                                          MMAC0017
          MEND                                                           MMAC0018
          MACRO                                                          MMAC0019
 &SL      HWIMB &BNR,&R=GR4,&N=                                          MMAC0020
 &SL      L     &R,LASTJBA&N                                             MMAC0021
          L     &R,0(0,&R)                                               MMAC0022
          L     &R,RJBBUF+4*&BNR-4(0,&R)                                 MMAC0023
          MEND                                                           MMAC0024
-FILE   6;   142 RECORDS:  
0*                                                                       MEQU0001
 *                                  REGISTER CONVENTIONS                 MEQU0002
 *                                                                       MEQU0003
 GR0      EQU   0                   USED FOR SVC'S AND TRT,ETC           MEQU0004
 GR1      EQU   1                     "                                  MEQU0005
 GR2      EQU   2                     "                                  MEQU0006
 GR3      EQU   3                                                        MEQU0007
 GR4      EQU   4                   PSECT POINTER                        MEQU0008
 GR5      EQU   5                   OCCASIONAL BASE REGISTER             MEQU0009
 GR6      EQU   6                                                        MEQU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BOTLMCC  EQU   CCN+CHAN*3          MACH. CAR. CNTRL. FOR BOTTOM OF PG.  MEQU0133
          SPACE 3                                                        MEQU0134
 *                            CCW FLAGS                                  MEQU0135
 CD       EQU   X'80'               CHAIN DATA                           MEQU0136
 CC       EQU   X'40'               CHAIN COMMAND                        MEQU0137
 SILI     EQU   X'20'               SUPPRESS INCORR LENGTH INDIC         MEQU0138
 NXMT     EQU   X'10'               NON-TRANSMIT                         MEQU0139
 PCI      EQU   X'08'               PROGRAM CONTROLLED INTERRUPT         MEQU0140
          EJECT                                                          MEQU0141
 $CONTINUE WITH MTS.EQU2                                                 MEQU0142
-FILE   7;    50 RECORDS:  
0*              VARIOUS ASSUMED CONSTANTS                                MEQ20001
 *                                                                       MEQ20002
 *                                                                       MEQ20003
 NRLB     EQU   NJBBUF+1            NUMBER OF .OGICAL BUFFERS            MEQ20004
 NRLD     EQU   NJBDEV              NR OF LOGICAL DEVICES                MEQ20005
 NRDEV    EQU   NRLD+1              ALLOW ZEROTH DEVICE = OPER           MEQ20006
          EJECT                                                          MEQ20007
 *                                                                       MEQ20008
 *                                  SAVE AREA SIZES FOR                  MEQ20009
 *                                  DISK ROUTINES                        MEQ20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       MEQ20041
 ACCTLOCK EQU   1                                                        MEQ20042
 ACTIVLOK EQU   6                                                        MEQ20043
          SPACE 5                                                        MEQ20044
 *        BELOW IS THE DEFINITION OF THE HIGHEST SEGMENT IN WHICH        MEQ20045
 *        STORAGE WILL BE ALLOCATED BY GETSPACE.  IF THIS IS GREATER     MEQ20046
 *        THAN MAXSEG, THE VALUE OF MAXSEG WILL BE USED.                 MEQ20047
 *                                                                       MEQ20048
 GSMAXSEG EQU   6                                                        MEQ20049
          EJECT                                                          MEQ20050
-FILE   8;    62 RECORDS:  
0*                                                                       CONT0001
 *              TABLE FOR PIECES TO BE DYNAMICALLY LOADED                CONT0002
 *                                                                       CONT0003
          SPACE 3                                                        CONT0004
 LOADTBLL DC    A(LTBLL/16)         NUMBER OF ENTRIES                    CONT0005
 LOADTBL  EQU   *                                                        CONT0006
 PDP8     LOADT '*PDP8RTN'                                               CONT0007
 DISP     LOADT '*2250RTN'                                               CONT0008
 TAPE     LOADT '*TAPERTN'                                               CONT0009
 TEST     LOADT '*TESTDSR'                                               CONT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'01'                                                    CONT0053
          DC    X'00'                                                    CONT0054
          DC    X'01'                                                    CONT0055
          DC    X'00'                                                    CONT0056
          SPACE 3                                                        CONT0057
 INITESD  DC    A(LINESD/12)    NUMBER OF ENTRIES                        CONT0058
          DC    CL8'LCSYMBOL'                                            CONT0059
          DC    V(LCSYMBOL)                                              CONT0060
 LINESD   EQU   *-INITESD                                                CONT0061
          EJECT                                                          CONT0062
-FILE   9;    83 RECORDS:  
0**********************************************************************  MRHT0001
 *                                                                    *  MRHT0002
 *              MTS RIGHT-HAND TABLE                                  *  MRHT0003
 *                                                                    *  MRHT0004
 **********************************************************************  MRHT0005
          SPACE 5                                                        MRHT0006
 RHTABLE  EQU   *                                                        MRHT0007
          DC    AL1(1,0,2),C'ON'                                         MRHT0008
          DC    AL1(1,4,3),C'OFF'                                        MRHT0009
          DC    X'FF'                                                    MRHT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    AL1(5,8,0)                                               MRHT0074
          DC    X'FF'                                                    MRHT0075
          SPACE                                                          MRHT0076
 PTMRHT   DC    AL1(4,0,10),C'M',AL4(60),C'/',AL4(1000)     PLOTTIME     MRHT0077
          DC    X'FF'                                                    MRHT0078
          SPACE                                                          MRHT0079
 MAPRHT   DC    AL1(7,0,0)         MAP                                   MRHT0080
          DC    AL1(3,4,0)         MAP=FDNAME                            MRHT0081
          DC    X'FF'                                                    MRHT0082
          EJECT                                                          MRHT0083
-FILE  10;   767 RECORDS:  
0*                                                                       MTSD0001
 *              LINK/XCTL/LOAD DSCET                                     MTSD0002
 *                                                                       MTSD0003
          SPACE 5                                                        MTSD0004
 LXDCT    DSECT                                                          MTSD0005
 LXDNAM   DS    4F                                                       MTSD0006
 LOADLIST DS    16F                                                      MTSD0007
 XLSWS    DS    F                                                        MTSD0008
 PGMETY   DS    F                                                        MTSD0009
 XLSIN    DS    F                                                        MTSD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HASPSA   DS    18F                                                      MTSD0758
 SCRPGS   DS    H **ORDER**         SCRATCH FILE PAGES - DISK            MTSD0759
 SCRPGSB  DS    H **ORDER**         SCRATCH PAGES - DATA CELL            MTSD0760
 CATPTR   DS    XL12                CATALOG POINTER FOR GARY             MTSD0761
 FRTNPAR  DS    3A                  FILE ROUTINE PARAMTERS               MTSD0762
 WOPLSA   DS    2A                 PTR TO ERROR COMMENT IN DSRS          MTSD0763
 SAVVARG  DS    CL(LVARREG)        SAVE VARREG                           MTSD0764
 SCSSEG   DS    H                  SCANSTOR - SEGMENT NUMBER             MTSD0765
 LASTDSCT EQU   *                   END OF MAIN DSECT *** *** ***        MTSD0766
          EJECT                                                          MTSD0767
-FILE  11;    64 RECORDS:  
0         EJECT                                                          FCBE0001
          SPACE                                                          FCBE0002
 *********************************************************************** FCBE0003
 *                                                                     * FCBE0004
 *        THE FOLLOWING CARDS REPRESENT THE EQU'S FOR THE FILE         * FCBE0005
 *        CONTROL BLOCK.                                               * FCBE0006
 *                                                                     * FCBE0007
 *********************************************************************** FCBE0008
          SPACE                                                          FCBE0009
 FCBN     EQU   0               16 BYTES - FILE NAME                     FCBE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FCBRB    EQU   72               1 BYTE  - RECORD NUMBER IN BUFFER       FCBE0055
 *                               THERE'S 3 UNUSED BYTES HERE             FCBE0056
 FCBBLN   EQU   20               BUFFER LENGTH                           FCBE0057
          SPACE                                                          FCBE0058
 *********************************************************************** FCBE0059
 *                                                                     * FCBE0060
 *             END OF FILE CONTROL BLOCK DESCRIPTOR                    * FCBE0061
 *                                                                     * FCBE0062
 *********************************************************************** FCBE0063
          SPACE 5                                                        FCBE0064
-FILE  12;    93 RECORDS:  
0         EJECT                                                          CEQU0001
 *                                                                       CEQU0002
 *        EXTENT HEADER                                                  CEQU0003
 *                                                                       CEQU0004
 EHSID    EQU   0                  SELF ID - 10 BYTES                    CEQU0005
 EHREC    EQU   10                 # RECORDS - 2 BYTES                   CEQU0006
 EHLNK    EQU   12                 LINK - 10 BYTES                       CEQU0007
 EHVTOC   EQU   22                 VTOC TYPE 1-11 BYTES                  CEQU0008
 EHECNT   EQU   33                 EXTENT COUNT 1 BYTE                   CEQU0009
 EHLEN    EQU   34                 LENGTH                                CEQU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        VOL-SER CCTTRS+OFFSET OR ZERO                                  CEQU0084
 SDLEN    EQU   56                                                       CEQU0085
 *                                                                       CEQU0086
 *        MASTER INDEX DISCRIPTOR IN CATALOG                             CEQU0087
 *                                                                       CEQU0088
 MIDID    EQU   0             X'08'   ID FOR MID                         CEQU0089
 MIUSID   EQU   1             USER ID - 4 BYTES                          CEQU0090
 MICATL   EQU   5             CATALOG LOCATION - 12 BYTES                CEQU0091
 MILEN    EQU   20          LENGTH                                       CEQU0092
          SPACE 5                                                        CEQU0093
-FILE  13;   145 RECORDS:  
0STRTPSW  DC    D'0'           EXTERNAL START PSW                        PSA00001
 TTPTR    DS    A             POINTER TO CURRENT TRACE ENTRY             PSA00002
          DS    XL2                                                      PSA00003
 EXICOD   DS    H             EXTERNAL INTERUPT INTERRUPT CODE           PSA00004
 SVICOD   DS    H              SVC INTERRUPT CODE                        PSA00005
 PGICOD   DS    H              PROGRAM INTERRUPT CODE                    PSA00006
 MCICOD   DS    H              MACHINE CHECK INTERRUPT CODE              PSA00007
 IOICOD   DS    H              I/O INTERRUPT CODE                        PSA00008
 EXOPSW   DS    D              EXTERNAL INTERRUPT OLD PSW                PSA00009
 SVOPSW   DS    D              SVC INTERRUPT OLD PSW                     PSA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'0000'        SSU 6                                     PSA00136
          DC     X'8000'       SSU 7                                     PSA00137
          DC    X'8000'        SSU 8                                     PSA00138
 *                                                                       PSA00139
 *        END OF CST AND SST                                             PSA00140
 *                                                                       PSA00141
 TRACE    DS     0F            START OF TRACE TABLE ( IN IPLED CPU'S PSA PSA00142
 *                                                                       PSA00143
          ORG   PSA+4092       MUST PUT LAST JOB IN SECOND HALF PF PSA   PSA00144
 LASTJOB   DC   A(DUMJOB)      ADDRESS OF LAST JOB TABLE DISPATCHED      PSA00145
-FILE  14;   145 RECORDS:  
0STRTPSW  DC    D'0'           EXTERNAL START PSW                        PSA00001
 TTPTR    DS    A             POINTER TO CURRENT TRACE ENTRY             PSA00002
          DS    XL2                                                      PSA00003
 EXICOD   DS    H             EXTERNAL INTERUPT INTERRUPT CODE           PSA00004
 SVICOD   DS    H              SVC INTERRUPT CODE                        PSA00005
 PGICOD   DS    H              PROGRAM INTERRUPT CODE                    PSA00006
 MCICOD   DS    H              MACHINE CHECK INTERRUPT CODE              PSA00007
 IOICOD   DS    H              I/O INTERRUPT CODE                        PSA00008
 EXOPSW   DS    D              EXTERNAL INTERRUPT OLD PSW                PSA00009
 SVOPSW   DS    D              SVC INTERRUPT OLD PSW                     PSA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'0000'        SSU 6                                     PSA00136
          DC     X'8000'       SSU 7                                     PSA00137
          DC    X'8000'        SSU 8                                     PSA00138
 *                                                                       PSA00139
 *        END OF CST AND SST                                             PSA00140
 *                                                                       PSA00141
 TRACE    DS     0F            START OF TRACE TABLE ( IN IPLED CPU'S PSA PSA00142
 *                                                                       PSA00143
          ORG   PSA+4092       MUST PUT LAST JOB IN SECOND HALF PF PSA   PSA00144
 LASTJOB   DC   A(DUMJOB)      ADDRESS OF LAST JOB TABLE DISPATCHED      PSA00145
-FILE  15;  1061 RECORDS:  
0BSLD     TITLE 'UNIVERSITY OF MICHIGAN BOOTSTRAP RELOCATABLE LOADER'    BSLD0001
 BSLOAD   START 0                                                        BSLD0002
 IPL88    EQU   BSLOAD                                                   BSLD0003
          USING BSLOAD,0                                                 BSLD0004
          SPACE 2                                                        BSLD0005
 *********************************************************************** BSLD0006
 *                                                                     * BSLD0007
 *      FIRST ASSEMBLE WITH ANY HANDY SYSTEM/360 ASSEMBLER             * BSLD0008
 *                                                                     * BSLD0009
 *      THEN   1) THROW AWAY FIRST CARD IN OBJECT DECK                 * BSLD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * BSLD1052
 *                 INPUT/OUTPUT INTERRUPT PROCESSOR                    * BSLD1053
 *                                                                     * BSLD1054
 *********************************************************************** BSLD1055
          SPACE 1                                                        BSLD1056
 IOINT    SVC   M65                 BE SURE WE ARE IN MODEL 65 MODE      BSLD1057
          B     HELL                THIS AIN'T NEVER SUPPOSED TO HAPPEN  BSLD1058
          SPACE 3                                                        BSLD1059
          LTORG                                                          BSLD1060
          END   START                                                    BSLD1061
-FILE  16;   646 RECORDS:  
0%INPUT   DSR.BSLOAD 100                                                         
 %OUTPUT  -BSLOAD                                                                
 %AFTER   BSLD0031                                                               
 *             5) COL 13-14, MODEL OF SYSTEM/360 BEING RUN ON.         *         
 *             6) COL 15-17, MAXIMUM SIZE OF PROGRAM (SEGMENT 0) TO BE *         
 *                           LOADED, INCLUDING PAGE ZERO AND UMLOAD,   *         
 *                           IN HEXADECIMAL PAGES.                     *         
 *             7) COL 18-20, MAXIMUM SIZE OF UMLOAD TABLES (SEGMENT 1  *         
 *                           IF ON A 67) IN HEXADECIMAL PAGES.         *         
 *             8) COL 21-23, MAXIMUM SIZE OF PROGRAM (SEGMENT 2) TO BE *         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     *         
 *                 INPUT/OUTPUT INTERRUPT PROCESSOR                    *         
 *                                                                     *         
 ***********************************************************************         
          SPACE 1                                                                
 IOINT    SVC   M65                 BE SURE WE ARE IN MODEL 65 MODE              
          B     HELL                THIS AIN'T NEVER SUPPOSED TO HAPPEN          
          SPACE 3                                                                
          LTORG                                                                  
 %BEFORE  FILEMARK                                                               
-FILE  17;  2743 RECORDS:  
0UMLD     TITLE 'UNIVERSITY OF MICHIGAN RELOCATABLE LOADER'              UMLD0001
 UMLOADCS START X'FF0'              START AT ABSOLUTE X'1000'-16         UMLD0002
          ENTRY UMLOAD                                                   UMLD0003
          ENTRY UMLOADXP,UMLOADFG,UMLOADNF    ALTERNATE ENTRY POINTS     UMLD0004
          DC    A(UMLOADXP,UMLOADFG,UMLOADNF) ABSOLUTE LOADER USES THIS  UMLD0005
          DC    A(LODTOP)           DEFINE FIRST AVAIL LOC FOR BOOTSTRAP UMLD0006
          SPACE 2                                                        UMLD0007
 *********************************************************************** UMLD0008
 *                            REGISTER DEFINITIONS                     * UMLD0009
 *********************************************************************** UMLD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *      ESID TABLE -                                                   * UMLD2734
 *              BYTE  0-3     NUMBER OF ENTRIES (FIRST ENTRY ONLY)     * UMLD2735
 *              BYTE  0-1     THE ESID BEING DEFINED.                  * UMLD2736
 *              BYTE  2-3     THE DISPLACEMENT OF THE ESD TABLE ENTRY  * UMLD2737
 *                            FROM ESDT FOR THE SYMBOL WITH THIS ESID. * UMLD2738
 *                                                                     * UMLD2739
 *********************************************************************** UMLD2740
          SPACE 1                                                        UMLD2741
 ESDT     EQU   SETRLD+RLDL         BEGINNING OF ESD TABLE               UMLD2742
          END                                                            UMLD2743
-FILE  18;  1015 RECORDS:  
0%INPUT   DSR.UMLOAD 100                                                         
 %OUTPUT  -UMLOAD                                                                
 %DELETE  UMLD0002                                                               
 UMLOADCS START X'FF0'              START AT ABSOLUTE X'1000'-16                 
 %DELETE  UMLD0004                                                               
          ENTRY UMLOADXP,UMLOADFG,UMLOADNF    ALTERNATE ENTRY POINTS             
          DC    A(UMLOADXP,UMLOADFG,UMLOADNF) ABSOLUTE LOADER USES THIS          
 %AFTER   UMLD0105                                                               
          TM    STATUS+2,BNLPBT     TEST IF BEGINNING A NEW LOAD PRECESS         
          BO    UMLD6                                                            
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *      ADDRESSES.  THE ADDRESS OF THE FIRST ENTRY OF THIS TABLE IS    *         
 *      LOCATED AT ESIDT.                                              *         
 *                                                                     *         
 *      ESID TABLE -                                                   *         
 *              BYTE  0-3     NUMBER OF ENTRIES (FIRST ENTRY ONLY)     *         
 *              BYTE  0-1     THE ESID BEING DEFINED.                  *         
 *              BYTE  2-3     THE DISPLACEMENT OF THE ESD TABLE ENTRY  *         
 *                            FROM ESDT FOR THE SYMBOL WITH THIS ESID. *         
 *                                                                     *         
 %BEFORE  FILEMARK                                                               
-FILE  19;     9 RECORDS:  
0ACAS     TITLE   'ACTIVCNT AND ASTATSUB'                                ACAS0001
 ACTIVCNT CSECT                                                          ACAS0002
          DS  F                                                          ACAS0003
          ENTRY   ASTATSUB                                               ACAS0004
 ASTATSUB DC  A(*+4)                                                     ACAS0005
          BR  14                                                         ACAS0006
          BR  14                                                         ACAS0007
          BR  14                                                         ACAS0008
          END                                                            ACAS0009
-FILE  20;   504 RECORDS:  
0DUMP     TITLE 'SYSTEM ERROR DUMP ROUTINE'                              DUMP0001
 DUMP     START 0                                                        DUMP0002
          ENTRY SNTPIN        HANDLE INTERRURTS                          DUMP0003
          ENTRY OUTDEV        DEVICE ADDRESS                             DUMP0004
          EXTRN TYPAD                                                    DUMP0005
          EXTRN TAPETBL                                                  DUMP0006
          EXTRN FLAG   FOR TYPEWRITER STUFF                              DUMP0007
 *                                                                       DUMP0008
 *        CALLED BY SUPERVISOR IN SUPERVISOR STATE                       DUMP0009
 *        CALLING SEQUENCE IS:                                           DUMP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PM11L    EQU   *-PM11                                                   DUMP0495
 PM12     DC    C'END OF REEL, DUMPING TERMINATED'                       DUMP0496
 PM12L    EQU   *-PM12                                                   DUMP0497
 PM13     DC    C'FATAL I/O ERROR'                                       DUMP0498
 PM13L    EQU   *-PM13                                                   DUMP0499
 BLKCT    EQU   LAB1+54                                                  DUMP0500
 VOLLAB   EQU   PM4+4                                                    DUMP0501
 LOCK     DC    X'00'               LOCK BYTE FOR DUMP ROUTINES          DUMP0502
 CAPS     DC    X'4040404040404040'                                      DUMP0503
          END                                                            DUMP0504
-FILE  21;   290 RECORDS:  
01JLE     TITLE 'FIRST JOB JLE '                                         JBLS0001
 JOBLST   START 0                                                        JBLS0002
          SPACE                                                          JBLS0003
 *                                                                       JBLS0004
 *                            VERSION OF 23 MAY 1966                     JBLS0005
 *                            REPLACES VERSION OF 7 APRIL 1966           JBLS0006
 *                                                                       JBLS0007
 *              THIS VERSION DIFFERS FROM THE PREVIOUS VERSION           JBLS0008
 *              IN THE FOLLOWING WAYS                                    JBLS0009
 *                                                                       JBLS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       JBLS0281
 *              VERSION OF 25 NOVEMBER 1965                              JBLS0282
 *                                                                       JBLS0283
          DC    C'        '   LAST JOB MUST HAVE BLANK JOB NAME          JBLS0284
          DC    X'00'         LAST JOB HAS 0 VERSION NUMBER              JBLS0285
          DC    X'00'         LAST JOB HAS BITS SET TO 0                 JBLS0286
          DC    X'FFFF'       LAST JOB HAS JOB NUMBER POSITION FILLED    JBLS0287
          DC    X'FFFFFFFF'   LAST JOB HAS LOCATION OF JOB HEADER        JBLS0288
 *                               SET TO ALL ONES                         JBLS0289
          END                                                            JBLS0290
-FILE  22;   886 RECORDS:  
067TB     TITLE 'TABLES FOR MODEL 67'                                    TABL0001
 *                                                                       TABL0002
 *              THIS IS THE MODEL 50 TABLES                              TABL0003
          SPACE 5                                                        TABL0004
 *        THIS PROGRAM CONTAINS SPACE FOR THE TABLES SPECIFIED BY THE    TABL0005
 *        'ENTRY' FIELDS BELOW.                                          TABL0006
          SPACE 3                                                        TABL0007
 *              VERSION OF 23 MAY 1966                                   TABL0008
 *              REPLACES VERSION OF 1 APRIL 1966                         TABL0009
 *                                                                       TABL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MAXADD   DC    X'00000000'         DUMMY                                TABL0877
 NUMDEV   DC    A((ENDDLS-DEVLST)/LDVLST)  TOTAL NUMBER OF DEVICES       TABL0878
 JTBLLIM  DC    A(0,0,0)      FILLED IN BY INITIALIZATION                TABL0879
          SPACE                                                          TABL0880
          DS    0H                                                       TABL0881
          DS    0H                                                       TABL0882
 TYPAD    DC    X'0009'       OPERATOR'S CONSOLE ADDRESS                 TABL0883
 CONS     DC    X'0809'             ALTERNATE OPERATOR'S CONSOLE         TABL0884
          SPACE 3                                                        TABL0885
          END                                                            TABL0886
-FILE  23;   280 RECORDS:  
0JBRP   TITLE   'JOB REQUEST PROCESSOR'                                  JBRP0001
 *  THIS IS JOB PART OF REQUEST PROCESSOR                                JBRP0002
          SPACE                                                          JBRP0003
 *                                                                       JBRP0004
 *              VERSION OF 23 MAY 1966                                   JBRP0005
 *              REPLACES VERSION OF 25 NOVEMBER 1956                     JBRP0006
 *                                                                       JBRP0007
 *        MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE                JBRP0008
 *                                                                       JBRP0009
 *        1. USE IS MADE OF THE NEW SVC "GTBUF" AND "GTUNIT"             JBRP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ASTALL   DC    A(STATALL)                                               JBRP0271
 ASTMTS   DC    A(STATMTS)                                               JBRP0272
 MTS      DC    C' MTS'                                                  JBRP0273
 STATSW   DC    X'81000000'                                              JBRP0274
 ZEROS    DC    11F'0'                                                   JBRP0275
 ZERO     EQU   FOUR          DC    X'0000'                              JBRP0276
 LSTJOB   DC    CL8' '        FENCE FOR LAST JOB JOBLST                  JBRP0277
          DS    0F                                                       JBRP0278
 JBRPBUF  DS    CL(TWOSUM)    BUFFER FOR PARAMETERS                      JBRP0279
          END   BEGIN                                                    JBRP0280
-FILE  24;    55 RECORDS:  
0FJTL   TITLE   'FIND JOB TABLE LOCATION'                                FNDJ0001
 *        SUBROUTINE FNDJTL                                              FNDJ0002
 *                                                                       FNDJ0003
 *                                                                       FNDJ0004
 *              VERSION OF 23 MAY 1966                                   FNDJ0005
 *              REPLACES VERSION OF 25 NOVEMBER 1965                     FNDJ0006
 *                                                                       FNDJ0007
 *        THIS VERSION DIFFERS FORM THE PREVIOUS VERSION IN THAT IT      FNDJ0008
 *        USES THE STANDARD EQUALITIES DECK.                             FNDJ0009
 *                                                                       FNDJ0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 END      EQU   6                                                        FNDJ0046
 WRITE    EQU   7                                                        FNDJ0047
          DS    0F                                                       FNDJ0048
 JBTBL    DC    A(JTBLLIM)    WHERE TO FIND JOB TBL LIMITS               FNDJ0049
 ERMESS   DC    C'JOB NUMB'                                              FNDJ0050
          DC    C'ER NOT I'                                              FNDJ0051
          DC    C'N JOB TA'                                              FNDJ0052
          DC    C'BLES.'                                                 FNDJ0053
 LENGTH   EQU   *-ERMESS                                                 FNDJ0054
          END                                                            FNDJ0055
-FILE  25;   171 RECORDS:  
0FBUF   TITLE   'FREE BUFFERS AND JOB TABLE'                             FBJT0001
 *        SUBROUTINE FBJTJL                                              FBJT0002
 *                                                                       FBJT0003
 *                                                                       FBJT0004
 *              VERSION OF 23 MAY 1966                                   FBJT0005
 *              REPLACES VERSION OF 25 NOVEMBER 1965                     FBJT0006
 *                                                                       FBJT0007
 *        MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE                FBJT0008
 *                                                                       FBJT0009
 *        1. THE STANDARD EQUALITIES DECK IS USED                        FBJT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA    0,L'ERR                                                  FBJT0162
          LA    1,ERR                                                    FBJT0163
          SVC   WRITE                                                    FBJT0164
          SVC   END                                                      FBJT0165
 OKON     MVI   OKSW,255            TURN ON                              FBJT0166
          SVC   END                                                      FBJT0167
 OKOFF    MVI   OKSW,0              AND OFF                              FBJT0168
          SVC   END                                                      FBJT0169
 AFBUF    DC    A(FBJTJL)                                                FBJT0170
          END                                                            FBJT0171
-FILE  26;    56 RECORDS:  
0FIOD   TITLE   'FREE I/O DEVICES AND CPU QUEUE'                         FIDC0001
 *        SUBROUTINE FIDCQ                                               FIDC0002
 *                                                                       FIDC0003
 *                                                                       FIDC0004
 *              VERSION OF 23 MAY 1966                                   FIDC0005
 *              REPLACES VERSION OF 25 NOVEMBER 1965                     FIDC0006
 *                                                                       FIDC0007
 *        MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE                FIDC0008
 *                                                                       FIDC0009
 *        1. THE EQUALITIES DECK IS USED                                 FIDC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SRL   GR0,2                                                    FIDC0047
          SVC   FREE          ELSE FREE THIS DEVICE IF POSSIBLE          FIDC0048
 JFREE1   EQU   *             DEVICE FREED--SET JOB TBL  DTL TO -1       FIDC0049
          LA    PTRGR,4(PTRGR)                                           FIDC0050
          BC    15,RFREE2                                                FIDC0051
 FCQGR    EQU   0             CPU QUEUE FREED FLAG                       FIDC0052
 FIDGR    EQU   1             I/O DEVICES FREED FLAG                     FIDC0053
 FREE     EQU   22                                                       FIDC0054
 CLEAR    EQU   15                                                       FIDC0055
          END                                                            FIDC0056
-FILE  27;    93 RECORDS:  
0BUFA     TITLE 'TERMINAL DEVICE BUFFER ALLOCATION SUBROUTINE'           BUFA0001
 BUFALLOC START 0                                                        BUFA0002
          USING *,15                                                     BUFA0003
          LA    0,BUFLOCK       SET MY LOCK                              BUFA0004
          SVC   LOCK                                                     BUFA0005
          SVC   PROOFF                                                   BUFA0006
          STM   2,3,SAVREG          NEED ONLY TWO REGISTERS              BUFA0007
          L     3,=V(LASTJOB)       GET JOB TABLE AND JOB NUMBERS        BUFA0008
          L     3,0(0,3)                                                 BUFA0009
          MVC   JOBT#(4),0(3)                                            BUFA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 #BUFS    EQU   40                                                       BUFA0084
 *              TABLES TO KEEP TRACK OF USE OF BUFFERS                   BUFA0085
 INUSE    DC    XL(#BUFS)'0'                                             BUFA0086
 JOB#TBL  DC    XL(#BUFS)'0'                                             BUFA0087
 *              GET LITERALS UNDER BASE REGISTER                         BUFA0088
          LTORG                                                          BUFA0089
 *              THE BUFFERS --                                           BUFA0090
          DS    0D                                                       BUFA0091
 BUF      DS    (#BUFS)CL128                                             BUFA0092
          END                                                            BUFA0093
-FILE  28;    37 RECORDS:  
0         TITLE 'EXIT SUBROUTINE (SIGN  OFF CALLING JOB)'                EXIT0001
 *              SUBPROGRAM EXIT                                          EXIT0002
 *                                                                       EXIT0003
 *              VERSION OF 1 APRIL 1966                                  EXIT0004
 *              REPLACES VERSION OF 25 NOVEMBER 1965                     EXIT0005
 *                                                                       EXIT0006
 *        MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE --             EXIT0007
 *                                                                       EXIT0008
 *              1.   THIS SUBPROGRAM HAS BEEN RENAMED EXIT TO            EXIT0009
 *                  PERMIT THE JOB WHICH WAS CALLED CIT TO BE CALLED     EXIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     15,ADFID                                                 EXIT0028
          BALR  14,15         CLEAR DEVICE TABLES, LIST AND CPU Q        EXIT0029
          L     15,ADFBJ                                                 EXIT0030
          BALR  14,15         FREE BUFFERS,JOB TABLE AND JOB LIST        EXIT0031
          SVC   POPQ                                                     EXIT0032
          DS    0F                                                       EXIT0033
 ADFID    DC    A(FIDCQ)                                                 EXIT0034
 ADFBJ    DC    A(FBJTJL)                                                EXIT0035
 POPQ     EQU   12                                                       EXIT0036
          END                                                            EXIT0037
-FILE  29;  1229 RECORDS:  
0PDP      TITLE 'PAGING DRUM PROCESSOR'                                  PDP00001
          SPACE 15                                                       PDP00002
 **********************************************************************  PDP00003
 *                                                                    *  PDP00004
 *                                                                    *  PDP00005
 *              P A G I N G   D R U M   P R O C E S S O R             *  PDP00006
 *                                                                    *  PDP00007
 *                                                                    *  PDP00008
 **********************************************************************  PDP00009
          EJECT                                                          PDP00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DRMS7    DC    100X'01'                                                 PDP01220
 DRMS8    DC    100X'01'                                                 PDP01221
 DRMS9    DC    100X'01'                                                 PDP01222
 DRMSAVAL DC   18H'100'    CURRENT AND MIN. NBR AVAIL                    PDP01223
          SPACE 4                                                        PDP01224
 DRUMDL   EQU   *-DRUMD                                               V2 PDP01225
          EJECT                                                          PDP01226
          COPY  *PCBDSECT                                                PDP01227
          EJECT                                                          PDP01228
          END                                                            PDP01229
-FILE  30;   380 RECORDS:  
0CDUC     TITLE 'CARD READER UNIT CHECK ROUTINES'                        CDUC0001
 CARDUC   START X'A000'                                                  CDUC0002
          SPACE                                                          CDUC0003
          ENTRY CDSTUC                                                   CDUC0004
          ENTRY CDRDUC                                                   CDUC0005
          SPACE                                                          CDUC0006
 BASE     EQU   *                                                        CDUC0007
          SPACE                                                          CDUC0008
          USING DSECT1,13     REGISTER 13 INITIALIZED BY CALLER          CDUC0009
          SPACE                                                          CDUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DUMPAR   DC    A(DUMCCW)     PARAMETERS FOR DUMMY READ                  CDUC0371
          DC    A(DUMRTN)                                                CDUC0372
 DUMRTN   DS    F             RETURNS LIST FOR DUMMY READ                CDUC0373
          DC    A(MERR)                                                  CDUC0374
          DC    A(DUMUC)                                                 CDUC0375
 SPCRTN   DS    F             RETURNS LIST FOR SPECIAL WAIT              CDUC0376
          DC    A(MERR)                                                  CDUC0377
          DC    A(SPCUC)                                                 CDUC0378
 DUMCCW   CCW   X'E2',*,X'30',1 DUMMY READ, NO-FEED, SKIP FLAG ON        CDUC0379
          END                                                            CDUC0380
-FILE  31;   729 RECORDS:  
0DUC      TITLE 'DIRECT ACCESS DEVICE UNIT CHECK ROUTINE'                DAUC0001
 CSDUC    START 0                                                        DAUC0002
          ENTRY DISKUC                                                   DAUC0003
 *                                                                       DAUC0004
 *        DIRECT ACCESS STORAGE DEVICE (DASD)  UNIT CHECK ROUTINES       DAUC0005
 *                                                                       DAUC0006
 *        R13 SCRATCH - 100 BYTES                                        DAUC0007
 *                                                                       DAUC0008
          SPACE 3                                                        DAUC0009
 *        REGISTER ASSIGNMENTS                                           DAUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NRL      EQU   *-NRM                                                    DAUC0720
 ERRM     DC    C' ERROR *, UUIIII FF'                                   DAUC0721
          DC    C' SSSSSSSSSSSS '                                        DAUC0722
          DC    C'CCCCHHHH OO'                                           DAUC0723
 ERRL     EQU   *-ERRM                                                   DAUC0724
 SEEKSU   DC    X'200000060000'                                          DAUC0725
 TBL      EQU   *-240                                                    DAUC0726
          DC    C'0123456789ABCDEF'                                      DAUC0727
          DS    6F    PATCH AREA JUST BECAUSE                            DAUC0728
          END                                                            DAUC0729
-FILE  32;   595 RECORDS:  
0TPUC     TITLE 'MAGNETIC TAPE UNIT CHECK'                               TPUC0001
 TAPEUC   START 0                                                        TPUC0002
          ENTRY TPRDUC                                                   TPUC0003
          ENTRY TPWRUC                                                   TPUC0004
 * REGISTERS                                                             TPUC0005
          SPACE 1                                                        TPUC0006
 BASE1    EQU   7                                                        TPUC0007
 BASE2    EQU   6                                                        TPUC0008
 DREG1    EQU   13                                                       TPUC0009
 DREG2    EQU   8                                                        TPUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RTNADR   EQU   DSECT2                                                   TPUC0586
 REREAD   EQU   RTNADR+4                                                 TPUC0587
 CLEANS   EQU   REREAD+1                                                 TPUC0588
 CNTCHR   EQU   CLEANS+1                                                 TPUC0589
 SNSCC    EQU   CNTCHR+1                                                 TPUC0590
 SENSE    EQU   SNSCC+1                                                  TPUC0591
 FLAG     EQU   SENSE+6                                                  TPUC0592
 STOPCD   EQU   FLAG+1                                                   TPUC0593
 DEVID    EQU   SENSE+8                                                  TPUC0594
          END                                                            TPUC0595
-FILE  33;   360 RECORDS:  
0PRUC     TITLE 'PRINTER UNIT CHECK ROUTINES'                            PTUC0001
 PTRUC    START 0                                                        PTUC0002
          SPACE 3                                                        PTUC0003
 *        REGISTER ASSIGNMENT                                            PTUC0004
 SR       EQU   13            SAVE AREA REGISTER                         PTUC0005
 GR0      EQU   0                                                        PTUC0006
 GR1      EQU   1                                                        PTUC0007
 GR2      EQU   2                                                        PTUC0008
 GR3      EQU   3                                                        PTUC0009
 PR       EQU   4             PARAMETER AREA                             PTUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 UCPL     EQU   *-UCPM                                                   PTUC0351
 PCM      DC    C'PRINT CHECK'                                           PTUC0352
 PCL      EQU   *-PCM                                                    PTUC0353
 MERMSG   DC    C': MACHINE ERROR '                                      PTUC0354
 PERMSG   DC    C': PROGRAM ERROR '                                      PTUC0355
 STTMSG   DC    C'PRINTER STATUS  '                                      PTUC0356
 ABVM     DC    C' THE ABOVE LINE MAY BE PRINTED INCORRECTLY. IT IS REP' PTUC0357
          DC    C'EATED AFTER THIS COMMENT.'                             PTUC0358
 ABVL     EQU   *-ABVM                                                   PTUC0359
          END                                                            PTUC0360
-FILE  34;    83 RECORDS:  
0%FSF *MASTER* 25                                                                
 %INPUT *MASTER* 80                                                              
 %OUTPUT *NEW* 80                                                                
 %DELETE PRUC0081                                                                
 PTRUC2   SVC   SAVE          SAVE THE I/O Q FIRST                               
          TM    INTFLG,REPBIT IF NOT INTERNAL I/O DO GCCWAD FOR LATER            
          BO    *+10                                                             
          SVC   GCCWAD                                                           
          STM   GR0,GR2,CCW                                                      
          L     GR0,SAVGR                                                        
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %AFTER PRUC0302                                                                 
 CCWL     DC    F'8'          LENGTH OF ONE CCW                                  
 %DELETE PRUC0313,2                                                              
          DC    A(SPCERR)                                                        
          DC    A(SPCERR)                                                        
 %BEFORE FILEMARK                                                                
 %CLOSE *NEW*                                                                    
 %WTM *NEW*                                                                      
 %REW *NEW*                                                                      
 %END                                                                            
-FILE  35;   225 RECORDS:  
0PNUC     TITLE 'PUNCH UNIT CHECK ROUTINES'                              PCUC0001
 PUNUC    START 0                                                        PCUC0002
          SPACE 3                                                        PCUC0003
 *        SVC   CODES                                                    PCUC0004
 SIO      EQU   2                                                        PCUC0005
 WAIT     EQU   3                                                        PCUC0006
 EXIT     EQU   6                                                        PCUC0007
 WRITE    EQU   7                                                        PCUC0008
 SAVE     EQU   8                                                        PCUC0009
 RESTOR   EQU   9                                                        PCUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NRM      DC    C'PUNCH NOT READY.'                                      PCUC0216
 NRL      EQU   *-NRM                                                    PCUC0217
 MERMSG   DC    C': MACHINE ERROR '                                      PCUC0218
 PERMSG   DC    C': PROGRAM ERROR '                                      PCUC0219
 STTMSG   DC    C'CARD PUNCH STATUS  '                                   PCUC0220
 TBL      EQU   *-X'F0'                                                  PCUC0221
          DC    C'0123456789ABCDEF'                                      PCUC0222
 BOM      DC    C'PUNCH BUS OUT CHECK.'                                  PCUC0223
 BOL      EQU   *-BOM                                                    PCUC0224
          END                                                            PCUC0225
-FILE  36;    39 RECORDS:  
0TRAN     TITLE 'QN OR PN TRANSLATE TABLE'                               PNXL0001
          ENTRY TRANTB                                                   PNXL0002
          SPACE 3                                                        PNXL0003
 *        TRANSLATE TABLE FOR QN PRINT TRAIN                             PNXL0004
 TRANTB   EQU   *                                                        PNXL0005
        DC      X'4040404040404040' 1                                    PNXL0006
        DC      X'4040404040404040' 2                                    PNXL0007
        DC      X'4040404040404040' 3                                    PNXL0008
        DC      X'4040404040404040' 4                                    PNXL0009
        DC      X'4040404040404040' 5                                    PNXL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        DC      X'6FC1C2C3C4C5C6C7' 25                                   PNXL0030
        DC      X'C8C9404040404040' 26                                   PNXL0031
        DC      X'7CD1D2D3D4D5D6D7' 27                                   PNXL0032
        DC      X'D8D9404040404040' 28                                   PNXL0033
        DC      X'7B40E2E3E4E5E6E7' 29                                   PNXL0034
        DC      X'E8E9404040404040' 30                                   PNXL0035
        DC      X'F0F1F2F3F4F5F6F7' 31                                   PNXL0036
        DC      X'F8F9404040404040' 32                                   PNXL0037
        SPACE   3                                                        PNXL0038
          END                                                            PNXL0039
-FILE  37;    40 RECORDS:  
0STOP     TITLE 'JOB TO STOP ANOTHER JOB'                                STOP0001
 *        CONSOLE INITIATED TERMINATE JOB                                STOP0002
 *                                                                       STOP0003
 *              JOB TYPE      - REENTRANT                                STOP0004
 *              ARGUMENTS     - GR2 - LOCATION OF JOB NUMBER             STOP0005
 *              FUNCTION      - FREES ALL BUFFERS,TABLES,LISTS, AND QUEU STOP0006
 *                              ASSOCIATED WITH THIS JOB.                STOP0007
 *              COMMENTS      - NO BUFFER OR I/O REQUIREMENTS            STOP0008
 *                                                                       STOP0009
 TERM1    START 0                                                        STOP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     CODEGR,BLST                                              STOP0031
          B     CITENT                                                   STOP0032
          DS    0F                                                       STOP0033
 ATTN     DC    C'ATTN'                                                  STOP0034
 BLST     DC    C'BLST'                                                  STOP0035
 KILL     DC    C'KILL'                                                  STOP0036
 END      EQU   6                                                        STOP0037
 STOP     EQU   27                                                       STOP0038
 CODEGR   EQU   10                                                       STOP0039
          END                                                            STOP0040
-FILE  38;    43 RECORDS:  
0JDMP   TITLE   'JOB TO DUMP SPECIFIED JOB'                              JBDM0001
 *        JOBDUMP  JOB                                                   JBDM0002
 *                                                                       JBDM0003
 *              VERSION OF 1 APRIL 1966                                  JBDM0004
 *                                                                       JBDM0005
 *        THIS JOB CAUSES A DUMP TO BE PRINTED ON THE SYSTEM             JBDM0006
 *        OUTPUT DEVICE.  THE JOB DUMPED IS INDICATED BY THE             JBDM0007
 *        TASK NUMBER TYPED ON JOB INITIATION.  A DUMP CAN BE            JBDM0008
 *        CALLED FOR WHILE THE JOB BEING DUMPED IS RUNNING.              JBDM0009
 *                                                                       JBDM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'NUMBER TO BE '                                         JBDM0034
          DC    C'DUMPED'                                                JBDM0035
 CNT      EQU   *-MES                                                    JBDM0036
 *                                                                       JBDM0037
 END      EQU   6                                                        JBDM0038
 WRITE    EQU   7                                                        JBDM0039
 JBDMP    EQU   17                                                       JBDM0040
 *                                                                       JBDM0041
 AFNDJTL  DC    V(FNDJTL)     LOCATION OF SUBROUTINE TO FIND A JOB TBL   JBDM0042
          END                                                            JBDM0043
-FILE  39;   152 RECORDS:  
0TPMV     TITLE 'JOB TO EXECUTE CONTROL COMANDS FOR TAPES'               TPMV0001
 TPMOVE   START 0                                                        TPMV0002
          ENTRY JBBSR,JBBSF,JBFSR,JBFSF,JBWTM,JBERG,JBRUN,JBREW          TPMV0003
          USING *,12                                                     TPMV0004
          USING DSECT1,13                                                TPMV0005
 COM      LA    0,1                 COMMON PART OF JOBS                  TPMV0006
          L     13,0(0,1)           GET LOC OF SCRATCH AREA              TPMV0007
          LA    1,DSECT2            LINK UP FOR TAPE UC                  TPMV0008
          ST    1,DSECT1                                                 TPMV0009
          L     9,0(0,2)            GET COUNT                            TPMV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       TPMV0143
 TPMOVE   CSECT                                                          TPMV0144
 LPC      DC    C'LOAD POINT'                                            TPMV0145
 EOTC     DC    C'END OF TAPE'                                           TPMV0146
 UEC      DC    C'TAPE MARK'                                             TPMV0147
 DCC      DC    C'DATA CHECK'                                            TPMV0148
 RCC      DC    C'REMAINING COUNT IS'                                    TPMV0149
          DC    X'402020202120'                                          TPMV0150
 RCCL     EQU   *-RCC                                                    TPMV0151
          END                                                            TPMV0152
-FILE  40;   130 RECORDS:  
0STSW     TITLE 'CHANGE UNIT STATUS'                                     ONOF0001
 *              JOB TO CHANGE A UNIT FROM OFFLINE TO ONLINE STATUS       ONOF0002
 *               OR ONLINE TO OFFLINE STATUS                             ONOF0003
          SPACE 3                                                        ONOF0004
 ONLIN    START 0                                                        ONOF0005
          ENTRY OFFLIN                                                   ONOF0006
          DC    A(ON)         OFFLINE JOB HEADER                         ONOF0007
          DC    F'1'          ONE BUFFER                                 ONOF0008
          DC    F'32'         32 BYTES LONG                              ONOF0009
 OFFLIN   DC    A(OFF)        OFFLIN JOB HEADER                          ONOF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BUSYM    DC    AL1(BUSYME-*-2)                                          ONOF0121
          DC    C'IS BUSY'                                               ONOF0122
 BUSYME   EQU   *                                                        ONOF0123
 OFOFM    DC    AL1(OFOFME-*-2)                                          ONOF0124
          DC    C'IS ALREADY OFFLINE'                                    ONOF0125
 OFOFME   EQU   *                                                        ONOF0126
 ONONM    DC    AL1(ONONME-*-2)                                          ONOF0127
          DC    C'IS ALREADY ONLINE'                                     ONOF0128
 ONONME   EQU   *                                                        ONOF0129
          END                                                            ONOF0130
-FILE  41;   216 RECORDS:  
0PN       TITLE 'PN BUFFER LOAD PROGRAM'                                 UCSI0001
 PN       START 0                                                        UCSI0002
          EXTRN UCBLOD                                                   UCSI0003
          DC    A(PNBEG)                                                 UCSI0004
          DC    H'1'                                                     UCSI0005
          DC    H'0'                                                     UCSI0006
          DC    CL4'PTR'                                                 UCSI0007
          USING *,15                                                     UCSI0008
 PNBEG    LA    0,CCWPN                                                  UCSI0009
          L     15,AUCBLD                                                UCSI0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'9C'                                                    UCSI0207
          DC    X'B1B2B3B4B5B6B7B8B9B0A08E8D9D'                          UCSI0208
          DC    X'A15F'                                                  UCSI0209
          DC    C'()'                                                    UCSI0210
          DC    X'BE8F'                                                  UCSI0211
          DC    C'><'                                                    UCSI0212
          DC    X'8CAE'                                                  UCSI0213
          DC    X'4A'                                                    UCSI0214
          DC    X'9FADBD9B8BABBBACBCAF6DBF4F'                            UCSI0215
          END                                                            UCSI0216
-FILE  42;   324 RECORDS:  
0CPCC     TITLE 'CARD TO CARD AND CARD TO PRINT JOBS'                    CPCC0001
 CPCC     START 0                                                        CPCC0002
          ENTRY CP,CC                                                    CPCC0003
          EXTRN CDRDUC,CDSTUC,PUNUC,PTRUC,TRANTB                         CPCC0004
 PCHUC    EQU   PUNUC                                                    CPCC0005
          SPACE 3                                                        CPCC0006
 *        SCRATCH AREA DEFINITION                                        CPCC0007
 SCR      DSECT                                                          CPCC0008
 UCLINK   DC    F'0'                                                     CPCC0009
          DC    24F'0'        UNIT CHECK ROUTINE SAVE AREA               CPCC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DBLSPC   DC    C'DBLS'                                                  CPCC0315
 FENCE    DC    4X'FF'                                                   CPCC0316
 CPSOM    DC    C'CARD TO PRINT VERSION 1'                               CPCC0317
 CPSOL    EQU   *-CPSOM                                                  CPCC0318
 CCSOM    DC    C'CARD TO CARD VERSION 1'                                CPCC0319
 CCSOL    EQU   *-CCSOM                                                  CPCC0320
 EOFM     DC    C'END OF FILE'                                           CPCC0321
          DC    C',       CARDS READ'                                    CPCC0322
 EOFL     EQU   *-EOFM                                                   CPCC0323
          END                                                            CPCC0324
-FILE  43;  9466 RECORDS:  
0UMPS   TITLE   'UM VERSION OF LLMPS SUPERVISOR'                         SUPR0001
          MACRO                                                          SUPR0002
 &N       SETUP &A,&B                                                    SUPR0003
          AIF   (T'&N EQ 'O').A                                          SUPR0004
 &N       DS    0H                                                       SUPR0005
 .A       IHBINNRA  &A,&B                                                SUPR0006
          MEND                                                           SUPR0007
          SPACE 3                                                        SUPR0008
          SPACE                                                          SUPR0009
          MACRO                                                          SUPR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CCUCONF  DC    X'08'          BIT FOR EACH CCU IN 4-7                   CONF0956
 CPUCONF  DC    X'80'          BIT FOR EACH CPU IN 0-3                   CONF0957
 BIT      DC    X'8040201008040201'                                      CONF0958
 FSAVALID DC    X'80C0E0F0F8FCFEFF'                                      CONF0959
 NUMBITS  DC    X'00010102010202030102020302030304'                      CONF0960
 INP      DS    CL50          INPUT AREA FOR TYPEWRITER                  CONF0961
          SPACE 5                                                        CONF0962
          COPY  *PCBDSECT                                                CONF0963
          SPACE 5                                                        CONF0964
          END                                                            CONF0965
-FILE  44;  3956 RECORDS:  
0%REW *IN*                                                                       
 %REW *OUT*                                                                      
 %INPUT *IN* 50                                                                  
 %OUTPUT *OUT* 50                                                                
 %NEWID SUPR0001                                                                 
 %AFTER SUPR0008                                                                 
          SPACE                                                                  
          MACRO                                                                  
          BASL  &SUB,&T                                                          
          AIF   (T'&T EQ 'O').NRP                                                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 5                                                                
          COPY  *PCBDSECT                                                        
          SPACE 5                                                                
 %BEFORE FILEMARK                                                                
 %CLOSE *IN*                                                                     
 %CLOSE *OUT*                                                                    
 %REW *IN*                                                                       
 %WTM *OUT*                                                                      
 %REW *OUT*                                                                      
 %END                                                                            
-FILE  45;    96 RECORDS:  
0OLTS     TITLE 'SUBROUTINE CALLED FROM ACT TO TIME AN I/O OP'           OSUB0001
 OLTSSUB  CSECT                                                          OSUB0002
          USING *,15                                                     OSUB0003
          COPY  *LLMPSEQU                                                OSUB0004
          EJECT                                                          OSUB0005
          L     SCC,RDVRCCW(0,DTBLGR)                                    OSUB0006
          USING CCWHDR,SCC    BASE FOR CCW HEADER                        OSUB0007
          L     GR0,CCWLINK   MUST BE ONLY ONE BLOCK                     OSUB0008
          LTR   GR0,GR0                                                  OSUB0009
          BNE   ERR2A         ICNORRECT CCW LIST                         OSUB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       OSUB0087
 CCWHDR   DSECT SAME AS IN CCWTRANS (I HOPE)                             OSUB0088
 VCCWLOC  DS    A             VIRT CCW LOC                               OSUB0089
 CCWLINK  DS    A             LINK TO NEXT BLOCK                         OSUB0090
 VCCWCNT  DS    H             LENGTH OF VIRT CCW                         OSUB0091
 RCCWCNT  DS    H             LENGTH OF REAL CCW                         OSUB0092
 IDENT    DC    X'FFFF'       USED BY CCWUNTR                            OSUB0093
 DATACNT  DS    H             LENGTH OF DATA                             OSUB0094
 REALCCW  DS    0D            START OF REAL CCW                          OSUB0095
          END                                                            OSUB0096
-FILE  46;     4 RECORDS:  
0STBA     TITLE 'CURRENT STATISTICS BUFFER ADDRESS (6-21-67)'            STBF0001
 STATBUFF DC    F'0'                                                     STBF0002
          ENTRY STATBUFF      CURRENT STAT BUFFER ADDRESS                STBF0003
          END                                                            STBF0004
-FILE  47;   584 RECORDS:  
0STAT     TITLE 'STAT/SW JOBS--TAD PINKERTON (WR. 6-67, REV. 5-68)'      STAT0001
 *                                                                       STAT0002
 *  STATISTICS JOB                                                       STAT0003
 *                                                                       STAT0004
 *  JOB HEADER                                                           STAT0005
 *                                                                       STAT0006
 STATJOB  START 0                                                        STAT0007
          DC    A(STATBEG)    ENTRY POINT ADDRESS                        STAT0008
          DC    H'1'          ONE DEVICE ALWAYS REQUIRED                 STAT0009
 NOBUFRS  DC    H'3'          THREE BUFFERS                              STAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DATA     EQU   16            LOCATION OF FIRST DATA ITEM IN BUFFER      STAT0575
 *                                                                       STAT0576
 *  JOB TABLE RECORDING BIT DISPLACEMENTS                                STAT0577
 *                                                                       STAT0578
 JTLDISP  EQU   X'F4'         JOB TABLE WORD FOR STAT BITS DISPLACEMENT  STAT0579
 JTLNAME  EQU   4             JOB TABLE WORDS FOR JOB NAME DISPLACEMENT  STAT0580
 MAXPARS  EQU   12            MAXIMUM NUMBER PARAMETERS IN AN UMMPS JOB  STAT0581
 JOBNO    EQU   0             JOB NUMBER DISPLACEMENT IN JOB TABLE       STAT0582
 *                                                                       STAT0583
          END                                                            STAT0584
-FILE  48; 10913 RECORDS:  
0HASP     TITLE 'S P O O L  '                                      UM1.0 00000000
 *                                                                       00002000
 ***** $GETBUF  *****          GET A BUFFER                              00004000
 *                                                                       00006000
 *                                                                       00008000
          MACRO                                                          00010000
 &NAME    $GETBUF &NONE,&TYPE=T                                    V02.0 00012000
 &NAME    BAL   LINK,$GE&TYPE.BUF   LINK TO ROUTINE                V02.0 00014000
          $NPEXIT &NONE             SET UP NON-PROCESS EXIT              00016000
          MEND                                                           00018000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                *256+$L5/10*16+$L6                                       20348000
          SPACE 3                                                  UM1.0 20348100
          TRACES                                                   UM1.0 20348200
          TITLE 'M T S  --  DSECTS ETC.'                                 20348300
          COPY  MTS.EQU2                                                 20348400
 DUMMY    DSECT                                                          20348500
          COPY  MTS.CONTAB                                               20348600
          SPACE 3                                                  UM1.0 20348700
          COPY  MTS.DSECT                                          UM1.0 20348800
          END                                                            20350000
-FILE  49;  2831 RECORDS:  
0%REWIND *MASTER*                                                                
 %REWIND *SXXX*                                                                  
 %INPUT *MASTER*   50                                                            
 %OUTPUT *SXXX*  50                                                              
 %FIND '00000000'                                                                
 %DELETE  '00000000'                                                             
 HASP     TITLE 'S P O O L  '                                      UM1.0 00000000
 %AFTER   '00042000'                                                             
          MACRO                                                    UM1.0 00042100
 &SL      $GETLBN  &NRLBE                                          UM1.0 00042200
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          COPY  MTS.DSECT                                          UM1.0 20348800
 %AFTER 1                                                                        
 %CLOSE *SXXX*                                                                   
 %WTM *SXXX*                                                                     
 %REWIND *SXXX*                                                                  
 %END                                                                            
 $RUN *DISMOUNT PAR=*MASTER*                                                     
 $RUN *MOUNT PAR=S147 ON 9TP *LIST* RING=IN 'HASP LISTING'                       
 $RUN *ASMBLR SCARDS=*NEW*   2=*SYSMAC  0=*OSMAC  3=MACROS   SPRINT=*LIST*      -
  PAR=FX,RLD,SIZE=99,IBLK=50,OBLK=50                                             
-FILE  50;   401 RECORDS:  
0HSPL     TITLE ' HASPLING -- JOB TO CONTROL AN I/O DEVICE'              HSPL0001
 **********************************************************************  HSPL0002
 *                                                                    *  HSPL0003
 *                       T H I S    IS THE HASPLING                   *  HSPL0004
 *                                                                    *  HSPL0005
 **********************************************************************  HSPL0006
          SPACE 5                                                        HSPL0007
          MACRO                                                          HSPL0008
 &N       $POST &WHERE,&WHY                                              HSPL0009
 &N       NI    &WHERE,255-$EWF&WHY                                      HSPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DCTFLAGS DS    0C                                                       HSPL0392
 DCTCHAIN DS    F                                                        HSPL0393
 DCTHREAD DS    F                                                        HSPL0394
 DCTDEVN  DS    CL8                                                      HSPL0395
 DCTWAYT  DS    F                                                        HSPL0396
 DCTSJNO  DS    H                                                        HSPL0397
 DCTSJWK  DS    H                                                        HSPL0398
 DCTWORK  DS    0F                                                       HSPL0399
          SPACE                                                          HSPL0400
          END                                                            HSPL0401
-FILE  51;    83 RECORDS:  
0CCTB     TITLE 'CARRIAGE CONTROL TRANSLATE TABLES'                      CCTR0001
          ENTRY CCTB                                                     CCTR0002
          ENTRY CCTBP,CCTBTR                                             CCTR0003
          SPACE 3                                                        CCTR0004
 *        CARRIAGE CONTROL TABLE                                         CCTR0005
        DS      0F                  CARRIAGE CONTROL TABLE               CCTR0006
 CCTB   DC      X'00'               NUMBER OF ENTRIES                    CCTR0007
        DC      X'09'               COMMAND CODE                         CCTR0008
        DC      H'1'          AMOUNT TO ADD TO LINE POINTER              CCTR0009
 CCTB9  DC      X'00090001'                                              CCTR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        DC      AL1(CCTB2-CCTB)     2                                    CCTR0074
        DC      X'00'                                                    CCTR0075
        DC      AL1(CCTB4-CCTB)     4                                    CCTR0076
        DC      X'00'                                                    CCTR0077
        DC      AL1(CCTB6-CCTB)     6                                    CCTR0078
        DC      X'00'                                                    CCTR0079
        DC      AL1(CCTB6-CCTB)     8                                    CCTR0080
        DC      AL1(CCTB9-CCTB)                                          CCTR0081
        DC      XL6'0'                                                   CCTR0082
          END                                                            CCTR0083
-FILE  52;  1965 RECORDS:  
0CAT      TITLE 'INITIALIZE THE MASTER CATALOG'                          CSBR0001
 *                                                                       CSBR0002
 *        INITIALIZE THE MASTER CATALOG                                  CSBR0003
 *                                                                       CSBR0004
 *        RD     SCRATCH (3660 + READR =3660+240=3900 )                  CSBR0005
 *        RE - LINK REG                                                  CSBR0006
 *        RF - USING REG & RETURN REG 0=OK 4=ERROR                       CSBR0007
 *                                                                       CSBR0008
 CSCAT    START 0                                                        CSBR0009
          EXTRN GETDSK                                                   CSBR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LR    R5,RF                                                    CSBR1956
          L     RF,RFLOC(,RD)                                            CSBR1957
          L     R1,R1LOC(,RD)  RESTORE ORIGIONAL REG1                    CSBR1958
          B     0(R4,R5)                                                 CSBR1959
 ASEARCHC DC    A(SEARCHC)                                               CSBR1960
          DROP  5                                                        CSBR1961
 D2314    EQU   X'40'                                                    CSBR1962
 IND      EQU   X'00'                                                    CSBR1963
          COPY  *FCBEQU                                                  CSBR1964
          END                                                            CSBR1965
-FILE  53;  2027 RECORDS:  
0OPEN     TITLE     'SUBROUTINES OPEN, CLOSE, CREATE, DESTROY, CHKSUM'   OPEN0001
 CSOPEN   START 0                                                        OPEN0002
 *********************************************************************** OPEN0003
 *                                                                     * OPEN0004
 *        SUBROUTINES OPEN, CLOSE, CREATE, DESTROY,SCRTCH                OPEN0005
 *        CHKSUM,GETFCBB,FREFCBB                                         OPEN0006
 *                                                                     * OPEN0007
 *********************************************************************** OPEN0008
          SPACE                                                          OPEN0009
 *              ENTRY POINTS AND EXTERNAL NAMES                          OPEN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 D2311    EQU   X'00'                                                    OPEN2018
 D2321    EQU   X'80'                                                    OPEN2019
 D2314    EQU   X'40'                                                    OPEN2020
 IND      EQU   X'00'                                                    OPEN2021
 SEQ      EQU   X'10'                                                    OPEN2022
 LNUM     EQU   X'08'                                                    OPEN2023
 *                                                                       OPEN2024
          COPY *CATEQU                                                   OPEN2025
          COPY *FCBEQU                                                   OPEN2026
          END                                                            OPEN2027
-FILE  54;  1460 RECORDS:  
0GETD     TITLE     'SUBROUTINES GETDSK AND RELDSK'                      GDSK0001
          SPACE 5                                                        GDSK0002
 CSGETD   START 0                                                        GDSK0003
          SPACE                                                          GDSK0004
 *********************************************************************** GDSK0005
 *                                                                     * GDSK0006
 *              SUBROUTINES GETDSK,RELDSK                              * GDSK0007
 *                                                                     * GDSK0008
 *********************************************************************** GDSK0009
          SPACE                                                          GDSK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       GDSK1451
 *        DSECT FOR PART OF RELDSK WHICH GETS A NEW TYPE 5 RECORD SET UP GDSK1452
 *                                                                       GDSK1453
 DSCTA    DSECT                                                          GDSK1454
          DS    5D                                                       GDSK1455
 T5SAV    EQU   DSCTA                                                    GDSK1456
 NT5AD    EQU   DSCTA+16                                                 GDSK1457
 GTZWA    EQU   DSCTA+32                                                 GDSK1458
 *                                                                       GDSK1459
          END                                                            GDSK1460
-FILE  55;   303 RECORDS:  
0GTZ      TITLE            'GTZ - GET A TYPE ZERO RECORD FROM VTOC'      GTZ00001
          SPACE                                                          GTZ00002
 CSGTZ    START 0                                                        GTZ00003
          SPACE                                                          GTZ00004
 *********************************************************************** GTZ00005
 *                                                                     * GTZ00006
 *                            SUBROUTINE GTZ                           * GTZ00007
 *                                                                     * GTZ00008
 *********************************************************************** GTZ00009
          SPACE                                                          GTZ00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DTL      EQU   128                                                      GTZ00294
          SPACE 2                                                        GTZ00295
 D2321    EQU   X'80'                                                    GTZ00296
 *********************************************************************** GTZ00297
 *                                                                     * GTZ00298
          DS    4F              A PATCHING TYPE AREA                   * GTZ00299
 *                                                                     * GTZ00300
 *********************************************************************** GTZ00301
          SPACE 2                                                        GTZ00302
          END                                                            GTZ00303
-FILE  56;   614 RECORDS:  
0TRAK     TITLE     'READT, WRITET, AND READR,WRITER SUBROUTINES'        TRAK0001
 *********************************************************************** TRAK0002
 *                                                                     * TRAK0003
 *               SUBROUTINES READT, READR, AND WRITET,WRITER             TRAK0004
 *                                                                     * TRAK0005
 *********************************************************************** TRAK0006
          SPACE                                                          TRAK0007
 CSTRAK   START 0                                                        TRAK0008
          SPACE                                                          TRAK0009
 *              ENTRIES, EXTERNAL REFERENCES                             TRAK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 WRITG    DC    X'00'                                                    TRAK0605
          EJECT                                                          TRAK0606
          COPY  *FCBEQU                                                  TRAK0607
          SPACE                                                          TRAK0608
 LOGRECW  EQU   196           LOGICAL RECORD LAST WRITTEN                TRAK0609
 OFFSETW  EQU   198                                                      TRAK0610
 LOGRECL  EQU   200           LAST POINTER SEQ FILES                     TRAK0611
 OFFSETL  EQU   202                                                      TRAK0612
 EILEN    EQU   211           LENGTH OF THE EXTENT INDEX                 TRAK0613
          END                                                            TRAK0614
-FILE  57;   297 RECORDS:  
0FLIN     TITLE     'SUBROUTINE FLINE - FIND A LINE ENTRY'               FLIN0001
          SPACE 6                                                        FLIN0002
 *********************************************************************** FLIN0003
 *                                                                     * FLIN0004
 *                           SUBROUTINE FLINE                          * FLIN0005
 *                                                                     * FLIN0006
 *********************************************************************** FLIN0007
          SPACE                                                          FLIN0008
 *********************************************************************** FLIN0009
 *                                                                     * FLIN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          FLIN0288
 *********************************************************************** FLIN0289
 *                                                                     * FLIN0290
 *                              DEFINE A SAFE PATCHING AREA            * FLIN0291
 *                                                                     * FLIN0292
          DS    4F                                                     * FLIN0293
 *                                                                     * FLIN0294
 *********************************************************************** FLIN0295
          SPACE                                                          FLIN0296
          END                                                            FLIN0297
-FILE  58;  1193 RECORDS:  
0WRIT     TITLE      'WRITE INDEXED SUBROUTINE'                          WRIT0001
          SPACE 4                                                        WRIT0002
 *********************************************************************** WRIT0003
 *                                                                     * WRIT0004
 *              SUBROUTINE WRITEI- WRITE A LINE TO INDEXED FILE          WRIT0005
 *                                                                     * WRIT0006
 *********************************************************************** WRIT0007
          SPACE                                                          WRIT0008
 *********************************************************************** WRIT0009
 *                                                                     * WRIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          WRIT1184
 *********************************************************************** WRIT1185
 *                                                                     * WRIT1186
 *                           DEFINE A SAFE PATCHING AREA               * WRIT1187
 *                                                                     * WRIT1188
          DS    4F                                                     * WRIT1189
 *                                                                     * WRIT1190
 *********************************************************************** WRIT1191
          SPACE                                                          WRIT1192
          END                                                            WRIT1193
-FILE  59;   352 RECORDS:  
0READ     TITLE 'SUBROUTINES READI AND READIS(INDEXED SEQUENTIAL)'       READ0001
          SPACE 3                                                        READ0002
 *********************************************************************** READ0003
 *                                                                     * READ0004
 *              SUBROUTINES READ AND READS(EQUENTIAL)                  * READ0005
 *                                                                     * READ0006
 *********************************************************************** READ0007
          SPACE                                                          READ0008
          SPACE                                                          READ0009
          SPACE                                                          READ0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          READ0343
 *********************************************************************** READ0344
 *                                                                     * READ0345
 *                                DEFINE A SAFE SCRATCH AREA           * READ0346
 *                                                                     * READ0347
          DS    5F                                                     * READ0348
 *                                                                     * READ0349
 *********************************************************************** READ0350
          SPACE                                                          READ0351
          END                                                            READ0352
-FILE  60;   968 RECORDS:  
0RWSE     TITLE 'READ / WRITE ROUTINES FOR SEQUENTIALLY ORGANIZED FILES' RWSE0001
 *                                                                       RWSE0002
 *        READ LINE FROM SEQUENTIAL FILE                                 RWSE0003
 *                                                                       RWSE0004
 *        R1    PARAMETER ADDRESS                                        RWSE0005
 *        R13   SCRATCH AREA (56+READT=56+316=372)                       RWSE0006
 *        R14   RETURN REG                                               RWSE0007
 *        R15   USING REG                                                RWSE0008
 *                                                                       RWSE0009
 *        PARAMETER LIST                                                 RWSE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LOGRECW  EQU   196           WRITE POINTER                              RWSE0959
 OFFSETW  EQU   198                                                      RWSE0960
 LOGRECL  EQU   200                                                      RWSE0961
 OFFSETL  EQU   202                                                      RWSE0962
 LASTNUM  EQU   204                                                      RWSE0963
 MAXREC   EQU   208           MAXIMUN RECORD SIZE ALL PREVIOUS WRITES    RWSE0964
 SEQORG   EQU   210                                                      RWSE0965
 EILEN    EQU   211           LENGTH OF THE EXTENT INDEX                 RWSE0966
          COPY  *FCBEQU                                                  RWSE0967
          END                                                            RWSE0968
-FILE  61;    84 RECORDS:  
0REDL     TITLE       'READL - RETURN ADDRESS OF LAST LINE NUMBER'       REDL0001
          SPACE                                                          REDL0002
 *********************************************************************** REDL0003
 *                                                                     * REDL0004
 *             SUBROUTINE READL - RETURN LAST LINE NUMBER              * REDL0005
 *                                                                     * REDL0006
 *********************************************************************** REDL0007
          SPACE 2                                                        REDL0008
 *********************************************************************** REDL0009
 *                                                                     * REDL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ST    R1,4(,RD)                                                REDL0075
          LA    R1,0                                                     REDL0076
          B     OUT                                                      REDL0077
 *                                                                       REDL0078
 FLINEA   DC    A(FLINE)                                                 REDL0079
 LLN      DC    X'7FFFFFFD'                                              REDL0080
 LASTNUM  EQU   204                                                      REDL0081
          COPY  *FCBEQU                                                  REDL0082
          SPACE                                                          REDL0083
          END                                                            REDL0084
-FILE  62;    79 RECORDS:  
0MOVE     TITLE     'SUBROUTINE TO MOVE ARBITRARY LENGTH STRINGS'        MOVE0001
          SPACE                                                          MOVE0002
 *********************************************************************** MOVE0003
 *                                                                     * MOVE0004
 *                               SUBROUTINE 'MOVIT'                    * MOVE0005
 *                                                                     * MOVE0006
 *********************************************************************** MOVE0007
          SPACE                                                          MOVE0008
 *********************************************************************** MOVE0009
 *                                                                     * MOVE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          S     R7,MOVITH                 DROP 'TO BE MOVED' COUNT       MOVE0070
          B     MOVITG          AND RUN THROUGH AGAIN                    MOVE0071
          SPACE                                                          MOVE0072
 MOVITC   MVC   0(0,R9),0(R8)   EXECUTED TO DO ODD PART OF MOVE          MOVE0073
          SPACE                                                          MOVE0074
 MOVITA   DC    F'256'          MAXIMUM MOVE IN ONE INSTRUCTION          MOVE0075
 MOVITE   DC    F'1'            ACCOUNTING CONSTANT FOR MOVE FORMAT      MOVE0076
 MOVITH   DC    F'4'            LENGTH OF FORWARD MOVE BLOCKS            MOVE0077
          SPACE                                                          MOVE0078
          END                                                            MOVE0079
-FILE  63;  1087 RECORDS:  
0VTOC     TITLE    'VOLREL,VOLGET,VTOCS AND DSKOP SUBROUTINES'           VTOC0001
          SPACE                                                          VTOC0002
 ********************************************************************-** VTOC0003
 *                                                                     * VTOC0004
 *              SUBROUTINES VOLREL, VOLGET, VTOCS, DSKOP               * VTOC0005
 *                                                                     * VTOC0006
 *********************************************************************** VTOC0007
          SPACE                                                          VTOC0008
 CSVTOC   START 0                                                        VTOC0009
          SPACE                                                          VTOC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          VTOC1078
 *********************************************************************** VTOC1079
 *                                                                     * VTOC1080
 *                   DEFINE A SAFE PATCHING AREA                       * VTOC1081
 *                                                                     * VTOC1082
          DS    4F                                                     * VTOC1083
 *                                                                     * VTOC1084
 *********************************************************************** VTOC1085
          SPACE                                                          VTOC1086
          END                                                            VTOC1087
-FILE  64;   279 RECORDS:  
0BDCS     TITLE 'BROADCAST JOB -- SEND MESSAGE TO ACTIVE MTS JOBS'       BDCS0001
 BROADCST START 0                                                        BDCS0002
          ENTRY MESSAGE                                                  BDCS0003
          SPACE 2                                                        BDCS0004
          DC    A(BDCS1)           ENTRY POINT                           BDCS0005
          DC    H'0'               NO DEVICES                            BDCS0006
          DC    H'1'               ONE BUFFER                            BDCS0007
          DC    A(BUFL)            BUFFER LENGTH                         BDCS0008
          SPACE 2                                                        BDCS0009
          PRINT OFF                                                      BDCS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 2                                                        BDCS0270
 JBUF     DSECT                                                          BDCS0271
          SPACE                                                          BDCS0272
 CCW      DS    D                  DOUBLE WORD FOR CCW CONSTRUCTION      BDCS0273
 SW       DS    CL1                SWITCHES                              BDCS0274
 BUFFER   DS    CL100              ERROR MESSAGE BUFFER                  BDCS0275
 EOBUF    DS    H,CL79             BUFFER FOR ECHOING MSG TO DATA CONC   BDCS0276
 BUFL     EQU   *-JBUF                                                   BDCS0277
          SPACE 4                                                        BDCS0278
          END                                                            BDCS0279
-FILE  65;   348 RECORDS:  
0TASK     TITLE 'TASKS -- RE-ENTRANT JOB TO IDENTIFY ACTIVE JOBS'        TSKS0001
 TASKS    START 0                                                        TSKS0002
          ENTRY TSKFMT                                                   TSKS0003
          SPACE 2                                                        TSKS0004
          DC    A(TASK1)                                                 TSKS0005
          DC    H'0'               NO DEVICES                            TSKS0006
          DC    H'1'               ONE BUFFER OF 190 BYTES               TSKS0007
          DC    F'190'                                                   TSKS0008
 *                                 BYTE      ASSIGNMENT                  TSKS0009
 *                                 0-7     FAKE PAR AREA (MUST BE FIRST) TSKS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' BEING USED'                                           TSKS0339
 LHEADER  EQU   *-HEADER                                                 TSKS0340
 FILL     DC    C':   F'                                                 TSKS0341
 FAKEF    EQU   FILL+1                                                   TSKS0342
 HEXTRA   EQU   *-240                                                    TSKS0343
          DC    C'0123456789ABCDEF'                                      TSKS0344
          SPACE 2                                                        TSKS0345
          LTORG                                                          TSKS0346
          SPACE 2                                                        TSKS0347
          END                                                            TSKS0348
-FILE  66;   516 RECORDS:  
0*********************************************************************   KWIC0001
 *                                                                  *    KWIC0002
 *              K W I C  --  KEYWORD SCANNER                        *    KWIC0003
 *                                                                   *   KWIC0004
 *                SELF-ADDRESSABLE                                   *   KWIC0005
 *                                                                   *   KWIC0006
 *        ENTRY:  GR0 = LENGTH OF LEFT-HAND TABLE                    *   KWIC0007
 *                GR1 = LOCATION OF LEFT-HAND TABLE                  *   KWIC0008
 *                GR2 = LOCATION OF EXECUTE TABLE                    *   KWIC0009
 *                SCA = LOCATION OF TEXT                                 KWIC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        COPY  MTS.CONTAB                                               KWIC0507
 *        COPY  MTS.DSECT                                                KWIC0508
          COPY   *LLMPSEQU(100)                                          KWIC0509
          COPY  MTS.EQU                                                  KWIC0510
          EJECT                                                          KWIC0511
 DUMMY    DSECT                                                          KWIC0512
          COPY  MTS.CONTAB                                               KWIC0513
          COPY  MTS.DSECT                                                KWIC0514
          PRINT ON                                                       KWIC0515
          END                                                            KWIC0516
-FILE  67;   835 RECORDS:  
0GSFS     TITLE 'STORAGE ALLOCATION FOR MTS.'                            GSFS0001
          MACRO                                                          GSFS0002
 &LAB     HWIMB &N,&R=4                                                  GSFS0003
 &LAB    L     &R,LASTJBA                                                GSFS0004
          L    &R,0(0,&R)                                                GSFS0005
          L    &R,RJBBUF(0,&R)                                           GSFS0006
          MEND                                                           GSFS0007
 *                                                                       GSFS0008
          MACRO                                                          GSFS0009
 &LAB     GTBUF                                                          GSFS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *              MTS.DSECT                                                GSFS0826
          PRINT OFF                                                      GSFS0827
          COPY  *LLMPSEQU(100)                                           GSFS0828
          COPY  MTS.EQU                                                  GSFS0829
 DUMMY    DSECT              , DOWN THE DRAIN                            GSFS0830
          COPY  MTS.CONTAB                                               GSFS0831
          COPY  MTS.DSECT                                                GSFS0832
          PRINT ON                                                       GSFS0833
 DSCTL   EQU   (LASTDSCT-DSCT+7)/8*8                                     GSFS0834
          END                                                            GSFS0835
-FILE  68;   315 RECORDS:  
0INFO     TITLE 'PROGRAM TO GET AND CHANGE USER INFORMATION'             INFO0001
          SPACE 5                                                        INFO0002
          MACRO                                                          INFO0003
 &SL      ITEM  &NAME,&XNAME,&INDEX,&TYPE=4,&MASK=255,&SHIFT=0,&CHANGE=0XINFO0004
                ,&BIT=                                                   INFO0005
          GBLA  &IX                                                      INFO0006
          LCLC  &M                                                       INFO0007
          LCLA  &S,&T                                                    INFO0008
 .L3      ANOP                                                           INFO0009
 &IX      SETA  &IX+1                                                    INFO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ITEM  SODREADS,SODRMRDS,150                                    INFO0306
          ITEM  STALST,LASTSOT,152,TYPE=20                               INFO0307
 TABLEND  EQU   *                                                        INFO0308
          SPACE 2                                                        INFO0309
          PRINT GEN                                                      INFO0310
          EJECT                                                          INFO0311
 JUNK    DSECT                                                           INFO0312
         COPY  MTS.CONTAB                                                INFO0313
          COPY  MTS.DSECT                                                INFO0314
          END                                                            INFO0315
-FILE  69;   110 RECORDS:  
0PLIM     TITLE  '     LOCAL AND GLOBAL PAGE AND CARD LIMIT TESTS.'      PLIM0001
 PLIMIT   START 0                                                        PLIM0002
          USING *,15                                                     PLIM0003
          USING DSCT,4                                                   PLIM0004
 **********************************************************************  PLIM0005
 *                                                                    *  PLIM0006
 *        PLIMIT: INCREMENT AND TEST USER INFORMATION                 *  PLIM0007
 *                                                                    *  PLIM0008
 *        ENTRY:  GR1=0 FOR PAGE LIMIT TEST                           *  PLIM0009
 *                GR1=4 FOR CARD LIMIT TEST                           *  PLIM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       PLIM0101
 DUMMY    DSECT ,                  THROW AWAY THIS JUNK                  PLIM0102
          SPACE                                                          PLIM0103
 *        COPY  MTS.CONTAB                                               PLIM0104
 *        COPY  MTS.DSECT                                                PLIM0105
          PRINT OFF                                                      PLIM0106
          COPY  MTS.CONTAB                                               PLIM0107
          COPY  MTS.DSECT                                                PLIM0108
          PRINT ON                                                       PLIM0109
          END                                                            PLIM0110
-FILE  70;   300 RECORDS:  
0STDD     TITLE 'SUBROUTINE TO PRODUCE STANDARD FORMAT DUMP'             STDD0001
 STDDMP   CSECT                                                          STDD0002
          SPACE 5                                                        STDD0003
 *        CALLING SEQUENCE IS:                                           STDD0004
 *              STANDARD OS S TYPE WITH 5 PARAMETERS:                    STDD0005
 *              PAR 1: LOC OF FULL WORD OF SWITCHES                      STDD0006
 *                     FIRST HALF WORD IS STORAGE INEX #                 STDD0007
 *                     BIT 28 INDICATES DBL SPACE IF ON                  STDD0008
 *                     OTHER BITS IGNORED                                STDD0009
 *              PAR 2: LOCATION OF OUTPUT ROUTINE CALLED                 STDD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OUTPAR   DS    4A                 PARS FOR CALLING OUTSUB               STDD0291
 SCR      DS    XL8                GENERAL SCRATCH                       STDD0292
 LASTWORD DS    XL4                LAST WORD ON PREV LINE                STDD0293
 PRSV     DS    A                  SAVE AREA FOR PRINT                   STDD0294
 OUT      DS    CL133              OUTPUT AREA                           STDD0295
 SW       DS    X                  MY SWITCHES                           STDD0296
 NOTSAME  EQU   X'80'              ON IF THIS LINE NOT SAME AS LAST      STDD0297
 DOTSW    EQU   X'40'              NO IF DOTS NEEDED                     STDD0298
 *                                                                       STDD0299
          END                                                            STDD0300
-FILE  71;   743 RECORDS:  
0LLXU     TITLE 'MTS SUBROUTINES LINK, LOAD, XCTL, UNLOAD, LOADINFO'     LLXU0001
          MACRO                                                          LLXU0002
 &SL      FMSG  &LNR,&LBL,&TYPE=B                                        LLXU0003
          AIF   (K'&LBL EQ 0).L1                                         LLXU0004
 &SL      L     1,=V(FMSGRTN&TYPE)                                       LLXU0005
          BALR  1,1                                                      LLXU0006
          DC    AL2(&LNR)                                                LLXU0007
          AIF   ('&LBL' EQ '*').L2                                       LLXU0008
          B     &LBL                                                     LLXU0009
 .L2      MEXIT                                                          LLXU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *              COPY  MTS.DSECT                                          LLXU0734
          SPACE 2                                                        LLXU0735
          PRINT OFF                                                      LLXU0736
          COPY  *LLMPSEQU(100)                                           LLXU0737
          COPY  MTS.EQU                                                  LLXU0738
          COPY  MTS.CONTAB                                               LLXU0739
          COPY  MTS.DSECT                                                LLXU0740
          PRINT ON                                                       LLXU0741
          SPACE 1                                                        LLXU0742
          END                                                            LLXU0743
-FILE  72;   101 RECORDS:  
0CHKS     TITLE 'SUBROUTINE TO VERIFY THE DSECT'                         CHKS0001
          SPACE 5                                                        CHKS0002
 *        NO PARAMETERS ARE REQUIRED                                     CHKS0003
 *                                                                       CHKS0004
 *        CLOBBERS GR0,1,2,3,SCA,B,C,D                                   CHKS0005
 *                                                                       CHKS0006
 *        IF THERE IS SOMETHING SERIOUSLY WRONG WITH THE DSECT IT        CHKS0007
 *        WILL GO EITHER TO OOPS OR INLOOP (WITH OFFBIT SET).            CHKS0008
 *        IF SOMETHING LESS SERIOUS IS WRONG IT WILL SET THE             CHKS0009
 *        CONDITION CODE NON-ZERO AND RETURN. A SECOND CALL WILL         CHKS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *              MTS.DSECT                                                CHKS0092
 *                                                                       CHKS0093
          PRINT OFF                                                      CHKS0094
          COPY  *LLMPSEQU(100)                                           CHKS0095
          COPY  MTS.EQU                                                  CHKS0096
 DUMMY    DSECT                                                          CHKS0097
          COPY  MTS.CONTAB                                               CHKS0098
          COPY  MTS.DSECT                                                CHKS0099
          PRINT ON                                                       CHKS0100
          END                                                            CHKS0101
-FILE  73; 11116 RECORDS:  
0MTS      TITLE ' UMMPS TERMINAL SYSTEM '                                MTS00001
          MACRO                                                          MTS00002
 &SL      CMSG  &MSG,&LBL,&TYPE=B                                        MTS00003
          GBLA  &CNT                                                     MTS00004
 &CNT     SETA  &CNT+K'&MSG         COUNT NUMBER OF CHARACTERS IN MESSAG MTS00005
 .L3      ANOP                                                           MTS00006
          AIF   (K'&LBL EQ 0).L1                                         MTS00007
 &SL      BAL   1,CMSGRTN&TYPE                                           MTS00008
          BC    A,&LBL                                                   MTS00009
          AGO   .L2                                                      MTS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 2                                                        MTS11107
 MTS      CSECT                     , PUT IN COMMON BASE CSECT           MTS11108
          SPACE 2                                                        MTS11109
          LTORG                                                          MTS11110
          EJECT                                                          MTS11111
 DUMMY    DSECT                                                          MTS11112
          COPY  MTS.RHTABLE                                              MTS11113
          COPY  MTS.DSECT                                                MTS11114
          TOTAL                                                          MTS11115
          END                                                            MTS11116
-FILE  74;  4486 RECORDS:  
0$RUN *MOUNT PAR=POOL ON 9TP *NEWMASTER* 'RING IN'                               
 $RUN *MOUNT PAR=S439 ON 9TP, *MASTER* 'MTS MASTER4 - RING OUT'                  
 $RUN *UPDATE                                                                    
 %INPUT *MASTER* 50                                                              
 %OUTPUT *NEWMASTER* 50                                                          
 %NEWID MTS00001                                                                 
 %DELETE MTS00002,MTS00019                                                       
 %AFTER MTS00103                                                                 
          SPACE 3                                                                
          MACRO                                                                  
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %REW *NEWMASTER*                                                                
 %END                                                                            
 $RUN *DISMOUNT PAR=*MASTER*                                                     
 $RUN *MOUNT PAR=S444 ON 9TP, *LIST* RING=IN 'MTS LISTING TAPE 3'                
 $CRE -SYSUT1 SIZE=100T LOC=DATACELL                                             
 $CRE -SYSUT2 SIZE=100T LOC=DATACELL                                             
 $CRE -SYSUT3 SIZE=100T LOC=DATACELL                                             
 $REL                                                                            
 $RUN *ASMG SCARDS=*NEWMASTER* SPRINT=*LIST* 0=*SYSMAC PAR=FX,RLD,SIZE=150,IBLK=-
 50,OBLK=50                                                                      
-FILE  75;   149 RECORDS:  
0LCSY     TITLE 'LOW CORE SYMBOL DEFINITION'                             LCSY0001
          MACRO                                                          LCSY0002
          ESDD  &SYM,&ENAME                                              LCSY0003
          DC    CL8'&SYM'                                                LCSY0004
          AIF   (T'&ENAME EQ 'O').A                                      LCSY0005
          DC    V(&ENAME)                                                LCSY0006
          MEXIT                                                          LCSY0007
 .A       DC    V(&SYM)                                                  LCSY0008
          MEND                                                           LCSY0009
          SPACE 3                                                        LCSY0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ESDD  RERUN                                                    LCSY0140
          ESDD  CATBEG                                                   LCSY0141
          ESDD  MICAT                                                    LCSY0142
          ESDD  SFCAT                                                    LCSY0143
          ESDD  SYSCAT                                                   LCSY0144
          ESDD  STDDMP                                                   LCSY0145
          ESDD  GUINFO                                                   LCSY0146
          ESDD  CUINFO                                                   LCSY0147
 ENDESD   EQU   *                                                        LCSY0148
          END                                                            LCSY0149
-FILE  76;   188 RECORDS:  
0JOBS     TITLE 'UMMPS JOB TO DISPLAY ACTIVE MTS JOBS ON A 2260'         JOBS0001
          SPACE 5                                                        JOBS0002
 *                      DAVID A. TWYVER                                  JOBS0003
 *                      UNIVERSITY OF BRITISH COLUMBIA                   JOBS0004
 *                      MARCH 1969                                       JOBS0005
          SPACE 5                                                        JOBS0006
 JOBS     START 0                                                        JOBS0007
          ENTRY JOBSFMT            FOR *JOBS                             JOBS0008
 *      JOB HEADER                                                       JOBS0009
          DC    A(JOBEGIN)         ENTRY POINT                           JOBS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PSECTL   EQU   *-PSECT                                                  JOBS0179
          SPACE 3                                                        JOBS0180
 ENTRY    DSECT                                                          JOBS0181
 ID       DS    4C                                                       JOBS0182
 JOB#     DS    5C                                                       JOBS0183
 PGS      DS    4C                                                       JOBS0184
 TIME     DS    4C                                                       JOBS0185
 DEV1     DS    5C                                                       JOBS0186
 DEV2     DS    4C                                                       JOBS0187
          END                                                            JOBS0188
-FILE  77;    76 RECORDS:  
0IOST     TITLE 'I/O INTERFACE STATISTICS SUBROUTINE'                    STSB0001
 *                                                                       STSB0002
 *  STATISTICS SUBROUTINE FOR I/O INTERFACE                              STSB0003
 *                                                                       STSB0004
 STATSUB  START 0                                                        STSB0005
          USING STATSUB,15                                               STSB0006
          B     ENTER-STATSUB(15)  BRANCH TO PREFIX DUMP ROUTINE         STSB0007
          LA    8,X'F8'       POSTFIX ENTRANCE                           STSB0008
 PROCEED  LR    6,0           SAVE THE FDUB ADDRESS                      STSB0009
          TM    FDUBS(6),X'80'     CHECK FOR DEVICE I/O                  STSB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B     AGAIN         NOW CONTINUE                               STSB0067
 *                                                                       STSB0068
 ONES     EQU   1             CONDITION CODE ALL ONES                    STSB0069
 EQL      EQU   8             CONDITION CODE EQUAL                       STSB0070
 *                                                                       STSB0071
 FDUBS    EQU   0             SWITCHES DISPLACEMENT IN FDUB              STSB0072
 FDUBLN   EQU   4             LDN DISPLACEMENT IN FDUB                   STSB0073
 *                                                                       STSB0074
 STATENT  EQU   44            PLACE ITEM IN STAT BUFFER SVC              STSB0075
          END                                                            STSB0076
-FILE  78;    35 RECORDS:  
0INIT     TITLE 'JOB TO INITIALIZE SYSTEM'                               INIT0001
 *        THE FOLOWING IS A JOB TO FINISH INITIALIZATION                 INIT0002
          SPACE                                                          INIT0003
 INITJE   START 0                                                        INIT0004
          DC    A(*+12),H'0,1',F'3900'                                   INIT0005
          USING *,12                                                     INIT0006
          LR    12,15         SET UP BASE                                INIT0007
          L     13,0(0,1)     LOC OF SCRATCH FOR GARY                    INIT0008
          SVC   28            GET TIME                                   INIT0009
          STM   0,1,TDTE      PRINT IT                                   INIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SVC   7                                                        INIT0026
          SVC   6                                                        INIT0027
 ERRM     DC    C'ERROR IN CATALOG INITIALIZATION - DON''T RUN MTS****'  INIT0028
          DS    0F                                                       INIT0029
 TDEC     DC    CL32'TIME AND DATE HAVE BEEN SET TO'                     INIT0030
 TDTE     DC    CL12' '                                                  INIT0031
 TDDE     DC    CL8' '                                                   INIT0032
 TDECL    EQU   *-TDEC                                                   INIT0033
 RESMTS   DC    C'MTS *INI T,,,'                                         INIT0034
          END                                                            INIT0035
-FILE  79;   107 RECORDS:  
0IPLC     TITLE   'ABSOLUTE BOOTSTRAP LOADER FOR LLMPS WRITER'           IPLB0001
        SPACE   2                                                        IPLB0002
 *********************************************************************** IPLB0003
 *                                                                       IPLB0004
 *      THEN   1) THROW AWAY FIRST CARD IN OBJECT DECK                   IPLB0005
 *             2) MOVE BOOTSTRAP LOAD INFORMATION OF SECOND CARD         IPLB0006
 *                (COL 17-40) INTO NEW CARD (IPL),(COL 1-24)             IPLB0007
 *             3) THROW AWAY ORIGINAL SECOND CARD AND RLD CARDS          IPLB0008
 *                                                                       IPLB0009
 *      DECK   1) IPL CARD                                               IPLB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *      ABOVE 5 CARDS READ BY IPL PROCEDURE                              IPLB0098
          SPACE                                                          IPLB0099
 REPLAS DC      X'1F1F1F1F'                                              IPLB0100
 REPLAT DC      X'000A0B0C0D0E0F00'                                      IPLB0101
        DC      X'0000000000000000'                                      IPLB0102
        DC      X'0001020304050607'                                      IPLB0103
        DC      X'0809'                                                  IPLB0104
 DATAL  DC      F'0'                                                     IPLB0105
          SPACE                                                          IPLB0106
          END                                                            IPLB0107
-FILE  80;   456 RECORDS:  
0IPL      TITLE     'IPL PROGRAM - LLMPS TO DISK AND BACK'               IPL00001
          SPACE 10                                                       IPL00002
 *XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* IPL00003
 *XXX                                                               XXX* IPL00004
 *XXX             IPL PROGRAM FOR READING AND WRITING LLMPS         XXX* IPL00005
 *XXX                                                               XXX* IPL00006
 *XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* IPL00007
          SPACE 3                                                        IPL00008
 *********************************************************************** IPL00009
 *                                                                     * IPL00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' ON DRIVE '                                            IPL00447
 EM4B     DC    5C' '                                                    IPL00448
 EM4L     EQU   *-EM4                                                    IPL00449
          SPACE                                                          IPL00450
          SPACE                                                          IPL00451
 ENDW     EQU   *               END OF PROGRAM ADDRESS GENERATOR         IPL00452
          SPACE                                                          IPL00453
 *              *** CODE MAY NOT GO BEYOND HEX '51A' (LOADER IS THERE)   IPL00454
          SPACE                                                          IPL00455
          END   WRITE           GO TO WRITE SECTION ON TERMINATE         IPL00456
-FILE  81;  2975 RECORDS:  
0**********************************************************************  TSFO0001
 *                                                                    *  TSFO0002
 *                                                                    *  TSFO0003
 *        MTS TERMINAL ROUTINES FOR:                                  *  TSFO0004
 *              1. TELETYPES (MODEL 33 AND MODEL 35)                  *  TSFO0005
 *              2. IBM 2741                                           *  TSFO0006
 *              3. IBM 1050 (INCLUDING CARD READER)                   *  TSFO0007
 *              4. FRIDEN FLEXOWRITER                                 *  TSFO0008
 *                                                                    *  TSFO0009
 *                                                                    *  TSFO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 WRUCCW   EQU   *                                                        TSFO2966
 PSTCCW   DS    (PSTCCWL/8)D                                             TSFO2967
 WRTCCW   DS    3D                                                       TSFO2968
 WRITCCW  DS    (WRITCCWL/8)D                                            TSFO2969
 SNSCCW   DS    (SNSCCWL/8)D                                             TSFO2970
 NEWCCW   DS    2D                                                       TSFO2971
 RTNLST   DS    (RTNLSTL/4)F                                             TSFO2972
 TABCHAR  DS    C                                                        TSFO2973
 PSECTL   EQU   *-PSCT                                                   TSFO2974
          END                                                            TSFO2975
-FILE  82;  1214 RECORDS:  
0PDSR     TITLE '2250 DEVICE SUPPORT ROUTINES'                           R2250001
          MACRO                                                          R2250002
 &NAME    IOREQ &CCW                                                     R2250003
 &NAME    L     0,DEVICE                                                 R2250004
          LA    1,&CCW                                                   R2250005
          LA    2,RTNL                                                   R2250006
          SVC   STIO                                                     R2250007
          SVC   WAIT                                                     R2250008
          MEND                                                           R2250009
          CSECT                                                          R2250010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PTABPT   DC    F'-8'          PRIMARY TABLE POINTER (# OF PAGES)        R2251205
 SAVEREG1 DS    F              REG 1 POINTS TO CALLING PARAMETERS        R2251206
 REG2SAVE DS    F             REG 2 POINTS TO RELEASE PARS               R2251207
 CURLINE  DS    H              CURRENT LINE NUMBER                       R2251208
 LENGTH   DS    H              TEMP STORAGE FOR LGTH OF LINEOUT & LINEIN R2251209
 CURDISP  DS    H              CURRENT DISPLACEMENT                      R2251210
 STABPT   DS    H              SECONDARY TABLE POINTER (# OF LINES)      R2251211
 LINENO   DS    H              LINE # IN LINEIN                          R2251212
 DISP     DS    H              DISPLACEMENT IN LINE IN                   R2251213
          END                                                            R2251214
-FILE  83;  1030 RECORDS:  
0ARURTN   CSECT                                                          ARUR0001
 ARU      TITLE '****MTS REENTERABLE DEVICE SUPPORT FOR THE ARU****'     ARUR0002
          DC    A(ARINIT,ARDITCH,ARGET,ARPUT,ARSETATN,ARWAIT,ARDITCH)    ARUR0003
          SPACE 2                                                        ARUR0004
          USING FDUB,R8                                                  ARUR0005
          USING *,R15                                                    ARUR0006
 ARINIT   B     ARUPS                                                    ARUR0007
          B     *+8                                                      ARUR0008
          B     ARRTRN+4                                                 ARUR0009
          LR    R12,R1             **GET SPACE FOR THE PSECT,            ARUR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LMSGE2   EQU   *-(MSGE2+1)                                              ARUR1021
 VOCTAB1  DC    X'000000000000000000FFFFFFFFFFFF'                        ARUR1022
          DC    X'01000000000000000000010101010101'                      ARUR1023
          DC    X'0101000000000000000001010101010100'                    ARUR1024
 RTAB1    DC    X'0000000000000000000D05080BFFFFFF'                      ARUR1025
          DC    X'00030609010000000004070A0C000000'                      ARUR1026
 SPAUSE   EQU   VOCTAB1                                                  ARUR1027
 LSPAUSE  EQU   6                                                        ARUR1028
          COPY  ARUDEF                                                   ARUR1029
          END   ARURTN                                                   ARUR1030
-FILE  84;   168 RECORDS:  
0         EJECT                                                          ARUC0001
 ****************** MTS FILE DEVICE USAGE BLOCK ************************ ARUC0002
 FDUB     DSECT                                                          ARUC0003
 FDUBS    DS    F                  SWITCHES                              ARUC0004
 FDUBLN   DS    F                  LDN                                   ARUC0005
          SPACE 2                                                        ARUC0006
 STACK    DSECT                                                          ARUC0007
          DS    2F                 FORWARD AND BACK CHAINS               ARUC0008
 STACKX   DS    H                  INDEX TO MAPPINGS                     ARUC0009
 STACKM   DS    2C                 MAPPINGS                              ARUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GCCWAD   EQU   25                                                       ARUC0159
 PROTON   EQU   26                                                       ARUC0160
 PCISU    EQU   31                                                       ARUC0161
 PCIPOP   EQU   32                                                       ARUC0162
 PROOFF   EQU   34                                                       ARUC0163
 WAYT     EQU   35                                                       ARUC0164
 SETXIT   EQU   36                                                       ARUC0165
 HALTIO   EQU   37                                                       ARUC0166
 ENDXIT   EQU   39                                                       ARUC0167
 XITPOP   EQU   42                                                       ARUC0168
-FILE  85;    70 RECORDS:  
0         MACRO                                                          DMAC0001
 &NAME    SVE   &AREA                                                    DMAC0002
 &NAME    STM   14,12,12(13)                                             DMAC0003
          LA    14,0(0,13)                                               DMAC0004
          BAS   13,84(0,15)                                              DMAC0005
          USING *,13                                                     DMAC0006
 &AREA.SA DS    18F                                                      DMAC0007
          ST    14,&AREA.SA+4                                            DMAC0008
          ST    13,8(0,14)                                               DMAC0009
          MEND                                                           DMAC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          CVD   R2,SSCR+16                                               DMAC0061
          ED    PTRN(48),SSCR                                            DMAC0062
          LA    R1,MPTRN                                                 DMAC0063
          LA    R14,ETIME                                                DMAC0064
          B     WMSG                                                     DMAC0065
 TIME     DS    3F                                                       DMAC0066
 MPTRN    DC    H'48'                                                    DMAC0067
 PTRN     DC    C' ',13X'20',X'212022',13X'20',X'212022',13X'20',X'2120' DMAC0068
 ETIME    DS    0H                                                       DMAC0069
          MEND                                                           DMAC0070
-FILE  86;   488 RECORDS:  
0CRDR     TITLE 'MTS 2501 SUPPORT ROUTINES (NON-RESIDENT)  ---  VERSION @TFOO0001
                1 OCTOBER 1968'                                          TFOO0002
          MACRO                                                          TFOO0003
 &SLB     ERMSG &WHAT,&RC                                                TFOO0004
          LCLA  &LNG                                                     TFOO0005
 &LNG     SETA  K'&WHAT-2                                                TFOO0006
 &SLB     STM   R2,R4,ERMSGSA      SAVE REGISTERS FOR POP                TFOO0007
          BAL   R3,ERMSG           SUBROUTINE TO PROCESS THEM            TFOO0008
          DC    AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE                        TFOO0009
          SPACE 1                                                        TFOO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        TFOO0479
 FDUBEL   DS    F             NOT PERTINENT                              TFOO0480
 FDUBIL   DS    F             INCREMENT                                  TFOO0481
 FDUBSR   DS    F             SUBROUTINE LOCATION                        TFOO0482
 FDUBSCR  DS    F             SCRATCH                                    TFOO0483
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             TFOO0484
 FDUBDS   DS    F             DEFAULT SWITCHES                           TFOO0485
 FDUBCH   DS    F             NOT PERTINENT                              TFOO0486
          EJECT                                                          TFOO0487
          END   CRDR                                                     TFOO0488
-FILE  87;    82 RECORDS:  
0BNEB     TITLE 'SUBROUTINE TO CONVERT BINARY READ CARDS TO EBCD'        BBCD0001
 BINEBCD  START 0                                                        BBCD0002
          USING *,15                                                     BBCD0003
 BIN      EQU   1                      POINTER TO BINARY IMAGE           BBCD0004
 EBCD     EQU   2                      POINTER TO EBCD IMAGE             BBCD0005
          MVC   0(80,EBCD),SCRMBL      REARRANGE FIRST 40                BBCD0006
          TR    0(80,EBCD),0(BIN)                                        BBCD0007
          MVC   0(80,BIN),SCRMBL       REARRANGE LAST 40                 BBCD0008
          TR    0(80,BIN),80(BIN)                                        BBCD0009
          TR    0(40,EBCD),TOPTAB                                        BBCD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'48CBCA00CFCECDCC'     B8                               BBCD0073
          DC    X'6A93929197969594'     C0                               BBCD0074
          DC    X'9953525157565554'     C8                               BBCD0075
          DC    X'989B9A909F9E9D9C'     D0                               BBCD0076
          DC    X'58DBDA10DFDEDDDC'     D8                               BBCD0077
          DC    X'70B3B2B1B7B6B5B4'     E0                               BBCD0078
          DC    X'B973727177767574'     E8                               BBCD0079
          DC    X'B8BBBAB0BFBEBDBC'     F0                               BBCD0080
          DC    X'78FBFA30FFFEFDFC'     F8                               BBCD0081
          END                                                            BBCD0082
-FILE  88;   687 RECORDS:  
0PTPR     TITLE 'M T S  PAPER TAPE READER ROUTINES (EC319)'                      
          MACRO                                                          RDR00003
 &SLB     ERMSG &WHAT,&RC                                                RDR00004
          LCLA  &LNG,&LNG4,&LNG16                                        RDR00005
 &LNG     SETA  K'&WHAT-1                                                RDR00006
 &LNG4    SETA  &LNG+4                                                   RDR00007
 &LNG16   SETA  &LNG+16                                                  RDR00008
 &SLB     OI    FDUBS,DSRERR                                             RDR00009
          MVC   PAD(&LNG),*+54  THE MESSAGE                              RDR00010
          BAL   RE,GETPNAME                                              RDR00011
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        RDR00614
 FDUBEL   DS    F             NOT PERTINENT                              RDR00615
 FDUBIL   DS    F             INCREMENT                                  RDR00616
 FDUBSR   DS    F             SUBROUTINE LOCATION                        RDR00617
 FDUBSCR  DS    F             SCRATCH                                    RDR00618
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             RDR00619
 FDUBDS   DS    F             DEFAULT SWITCHES                           RDR00620
 FDUBCH   DS    F             NOT PERTINENT                              RDR00621
          EJECT                                                          RDR00622
          END                                                                    
-FILE  89;   152 RECORDS:  
0%DELETE RDR00001 RDR00002                                                       
 PTPR     TITLE 'M T S  PAPER TAPE READER ROUTINES (EC319)'                      
 %DELETE RDR00034                                                                
 PTPRRTN  START 0                                                                
 %AFTER   RDR00094                                                               
 BASEGR   EQU   R5                                                               
 %AFT     RDR00153                                                               
 UEPENDNG EQU   X'80'              GIVE RC=4 NEXT TIME THROUGH                   
 %DELETE  RDR00257                                                               
          USING BASEBASE,BASEGR                                                  
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 EORCHK   CLC   0(0,RC),EORCHRS                                                  
 %AFTER   RDR00599                                                               
 HARDEOR  DS    C                                                                
 EORCHRS  DS    CL8                                                              
 EORLNG   DS    H                                                                
 %AFTER   RDR00601                                                               
 UNPKBYTE EQU   PAD                                                              
 %DELETE RDR00623                                                                
          END                                                                    
 %BEFORE  FILEMARK                                                               
-FILE  90;   693 RECORDS:  
0SDMP     TITLE 'MTS DUMP SUBROUTINE'                                    SDMP0001
 SDUMP    START 0                                                        SDMP0002
          ENTRY SDMP                                                     SDMP0003
          ENTRY MTSDMP                                                   SDMP0004
 GR0      EQU   0                                                        SDMP0005
 GR1      EQU   1                                                        SDMP0006
 GR2      EQU   2                                                        SDMP0007
 GR3      EQU   3                                                        SDMP0008
 GR4      EQU   4                                                        SDMP0009
 GR5      EQU   5                                                        SDMP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FORMAT   DS    H                                                        SDMP0684
 CBPPI    DS    H                                                        SDMP0685
 GLPPI    DS    H                                                        SDMP0686
 PIPPL    DS    H                                                        SDMP0687
 CBPPL    DS    H                                                        SDMP0688
 LDOTS    DS    H                                                        SDMP0689
 LINE     DS    CL136                 DON'T SHORTEN THIS.......          SDMP0690
 CCCHAR   DS    C                                                        SDMP0691
 CLFSWS   DS    C                                                        SDMP0692
          END                                                            SDMP0693
-FILE  91;    19 RECORDS:  
0CASECONV START 0                                                        CASE0001
 CASE     TITLE ' UPPERCASE CONVERSION TRANSLATE TABLE '                 CASE0002
          DC    X'000102030405060708090A0B0C0D0E0F'       00...0F        CASE0003
          DC    X'101112131415161718191A1B1C1D1E1F'       10...1F        CASE0004
          DC    X'202122232425262728292A2B2C2D2E2F'       20...2F        CASE0005
          DC    X'303132333435363738393A3B3C3D3E3F'       30...3F        CASE0006
          DC    X'404142434445464748494A4B4C4D4E4F'       40...4F        CASE0007
          DC    X'505152535455565758595A5B5C5D5E5F'       50...5F        CASE0008
          DC    X'606162636465666768696A6B6C6D6E6F'       60...6F        CASE0009
          DC    X'707172737475767778797A7B7C7D7E7F'       70...7F        CASE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'       80...8F        CASE0011
          DC    X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'       90...9F        CASE0012
          DC    X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'       A0...AF        CASE0013
          DC    X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'       B0...BF        CASE0014
          DC    X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'       C0...CF        CASE0015
          DC    X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'       D0...DF        CASE0016
          DC    X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'       E0...EF        CASE0017
          DC    X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'       F0...FF        CASE0018
          END                                                            CASE0019
-FILE  92;  1685 RECORDS:  
0PDP8     TITLE '      M T S   DATA CONCENTRATOR ROUTINES (MODEL AN160)' PDP80001
          SPACE 15                                                       PDP80002
 **********************************************************************  PDP80003
 *                                                                    *  PDP80004
 *                                                                    *  PDP80005
 *         M T S   DATA CONCENTRATOR DEVICE SUPPORT ROUTINES          *  PDP80006
 *                                                                    *  PDP80007
 *                                                                    *  PDP80008
 **********************************************************************  PDP80009
          EJECT                                                          PDP80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F                  CURRENT LINE NO.                      PDP81676
 FDUBEL   DS    F                  ENDING LINE NO.                       PDP81677
 FDUBIL   DS    F                  INCREMENT                             PDP81678
 FDUBSBR  DS    F                  SUBR LOC                              PDP81679
 FDUBSCR  DS    F                  SCRATCH (SEQ PNTR)                    PDP81680
 FDUBNAM  DS    F                  PTR TO WHO IS USING THIS FDUB         PDP81681
 FDUBDS   DS    F                  DEFAULT SWITCHES                      PDP81682
 FDUBCH   DS    F                  CHAIN (FOR CONCAT FILES)              PDP81683
          EJECT                                                          PDP81684
          END                                                            PDP81685
-FILE  93;  4262 RECORDS:  
0**********************************************************************  SDA00001
 *                                                                    *  SDA00002
 *                                                                    *  SDA00003
 *        MTS DEVICE SUPPORT ROUTINES FOR IBM 2701 AND 2703 SDA-2     *  SDA00004
 *        SYNCHRONOUS DATA ADAPTERS.  THESE ROUTINES SUPPORT RJE      *  SDA00005
 *        STATIONS USING BINARY SYNCHRONOUS COMMUNICATIONS.           *  SDA00006
 *        STATIONS SUPPORTED INCLUDE IBM 2780, IBM 1130, AND 360/20   *  SDA00007
 *                                                                    *  SDA00008
 *                                                                    *  SDA00009
 **********************************************************************  SDA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 WRINCCW  DS    (WRINCCWL/8)D                                            SDA04253
 WRITCCW  DS    (WRITCCWL/8)D                                            SDA04254
 RDINCCW  DS    (RDINCCWL/8)D                                            SDA04255
 ACKCCW   DS    (ACKCCWL/8)D                                             SDA04256
 RTNLST   DS    (RTNLSTL/4)F                                             SDA04257
 CCCHAR   DS    C                                                        SDA04258
 DUMPCODE DS    C                                                        SDA04259
 TABSAVE  DS    16F                                                      SDA04260
 PSECTL   EQU   *-PSCT                                                   SDA04261
          END                                                            SDA04262
-FILE  94;  1970 RECORDS:  
0BSCA     TITLE '  MTS BINARY SYNCHRONOUS ROUTINES FOR 360/20 '          M2000001
          START 0                                                        M2000002
 FRONT    EQU   *                                                        M2000003
          ORG   *+156                                                    M2000004
 **********************************************************************  M2000005
 **********************************************************************  M2000006
 **                                                                  **  M2000007
 **                                                                  **  M2000008
 **       MTS ROUTINES FOR REMOTE BSC 360/20 STATIONS                **  M2000009
 **                                                                  **  M2000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COMBUF1  DS    CL(COMBUFL)                                              M2001961
          DS    0H                                                       M2001962
 COMBUF2  DS    CL(COMBUFL)                                              M2001963
          SPACE                                                          M2001964
 BUFFL    EQU   *-BUFFERS                                                M2001965
          SPACE 3                                                        M2001966
 BUFFEND  DS    H                                                        M2001967
 LAST     EQU   *                                                        M2001968
          DROP  GR8                                                      M2001969
          END   BEGIN                                                    M2001970
-FILE  95;   105 RECORDS:  
00K  K   K K uKį  Ģ m   K^}  &$ 9K 0   
 ^^<^^}  &$^^K ^.^э^8                         
 TXT        ^(\} &^^} n'0nNnX^-{{    0002
 TXT         {^K 0 ({^}^ *.}^a  m{ 0 oa  mnE^ {^    0003
 TXT  0      (\^B0 n, ^⾌0^hn  ^ n     0004
 TXT        (\^BK 0 ↍0^h ^  ^k nF ^K 
     0005
 TXT  -       K  
⾶܌^^ ^2       0006
 TXT  q          J  w} }} } ok m}k %         0007
 ESD                       0                                        BSCA0001
 TXT         K m0hK m      ^                               BSCA0002
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD             	  ^	  	 Y	 	 	  	 	 	 K	 M	 O	 Q BSCA0088
 RLD             	 	 	 \	 S	 U	 W	 Y	 	 	 	 h	  BSCA0089
 RLD             	 	 k	 m	 o	 q	 	 	 s	 	 	 	  BSCA0090
 RLD             	 >	 	 	 	 :	 @	 =	 	 f	 h	 	  kBSCA0091
 RLD             	 m	 o	 q	 	 	 s	 u	 S	 U	 W	 Y	  BSCA0092
 RLD             	 	 0	 4	 6	 8	 	 	 	  	 	 	  BSCA0093
 RLD             	 	 	 	 	 	 	 	 	 	 	 	  BSCA0094
 RLD             	 	 	 	 	 	 	 	 	 	 	 	  BSCA0095
 RLD             	 	                                          BSCA0096
 END                                 DATE  01-23-70 21:14             BSCA0097
-FILE  96;  2781 RECORDS:  
0// JOB                                                      4           R1130001
 *EQUAT(SCRDS,READ1),(CRDEB,HLEBM)                                       R1130002
 *EQUAT(SPRNT,PRNTS),(EBPRN,EBCPN)                                       R1130003
 *EQUAT(SPNCH,PNCH1),(EBPNC,EBHOL)                                       R1130004
 *EQUAT(STYPE,TYPE0),(EBTYP,EBCCP)                                       R1130005
 // *    BELOW IS A TABLE GIVING THE DUMMY I/O SUBROUTINE AND            R1130006
 // * CONVERSION TABLE NAMES USED IN THIS PROGRAM.  IN THE LAST          R1130007
 // * TWO COLUMNS APPEAR THE NAMES OF ROUTINES AND TABLES WHICH          R1130008
 // *  WOULD BE USED VIA '*EQUAT' RECORDS IN TWO COMMON                  R1130009
 // * CONFIGURATIONS.                                                    R1130010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                     $$ID  EQU     *+1       POINTER TO DEV. ID. RECORD  R1132772
                           CALL    DEVID     LOADER WILL PUT POINTER IN  R1132773
                     SCPAR DC      SCATR      POINTER TO ERRTN.          R1132774
                           DC      2          NORMAL RETRY COUNT         R1132775
                     SPPAR DC      SCATR      ERRAD                      R1132776
                           DC      1          RETRY COUNT WHEN NAK EXPEC R1132777
                           END     AGN                                   R1132778
 // DUP                                                                  R1132779
 *DELETE             RNORM                                               R1132780
 *STORE      WS  UA  RNORM                                               R1132781
-FILE  97;  1707 RECORDS:  
0// EJECT                                                                S1130001
 // ASM                                                                  S1130002
 *LIST                                                                   S1130003
 *PRINT SYMBOL TABLE                                                     S1130004
 *LEVEL 1                                                                S1130005
                           HDNG    SCATM PROLOGUE     4-4*************   S1130006
                     * TITLE - SCATM         4-4****************         S1130007
                     *************************************************** S1130008
                     * STATUS - CHANGE LEVEL 4                         * S1130009
                     * FUNCTION/OPERATION - SCAT2 CAN PERFORM THE      * S1130010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                           LD    1 BUF-T     GET AGAIN                   S1131698
                           SRA     8                                     S1131699
                           OR    1 PAD-T     PUT IN INDICATOR            S1131700
                           CALL    IOLOG     LOG CHAR.                   S1131701
                           B    L  DSCRD     GET OUT                     S1131702
                     SYNPD DC      /CD00     SYN AMD PAD EORED           S1131703
                           END                                           S1131704
 // DUP                                                                  S1131705
 *DELETE             SCATM                                               S1131706
 *STORE      WS  UA  SCATM                                               S1131707
-FILE  98;    48 RECORDS:  
0BDEV     TITLE 'SUBROUTINE TO BLAST A DEVICE FOR A NEW OPERATION'       BLDV0001
          SPACE 5                                                        BLDV0002
 *        CALLING SEQUENCE:                                              BLDV0003
 *                                                                       BLDV0004
 *              GR0:  LOGICAL DEVICE NUMBER                              BLDV0005
 *              GR13:  LOCATION OF 7 WORD SAVE AREA                      BLDV0006
 *              GR14:  RETURN LOCATION                                   BLDV0007
 *              GR15:  ENTRY POINT TO BLSTDEV                            BLDV0008
 *                                                                       BLDV0009
 *              ALL OPERATIONS ON THE DEVICE ARE HALTED AND THEIR        BLDV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SVC   HALT          BLAST THE NEXT ONE                         BLDV0039
          SVC   WAIT          NO WE CAN USE THIS ONE                     BLDV0040
          B     NOWAIT        TRY FOR MORE                               BLDV0041
 ERR      SVC   SAVE          MOVE L ALL TO SAVED QUEUE                  BLDV0042
 CLEAR    SVC   DELETE        DELETE ONE OP FROM SAVDE QUEUE             BLDV0043
          BNE   *-2           B IF MORE                                  BLDV0044
          SR    15,15         GOOD RETURN CODE                           BLDV0045
          LM    0,5,4(13)                                                BLDV0046
          BR    14                                                       BLDV0047
          END                                                            BLDV0048
-FILE  99;   902 RECORDS:  
0PTPP     TITLE 'MTS PAPER TAPE PUNCH SUPPORT ROUTINES   ----   VERSION @PTPP0001
                30 DECEMBER 1967 (MODEM 1)'                              PTPP0002
          MACRO                                                          PTPP0003
 &SLB     ERMSG &WHAT,&RC                                                PTPP0004
          LCLA  &LNG,&LNG4,&LNG16                                        PTPP0005
 &LNG     SETA  K'&WHAT-1                                                PTPP0006
 &LNG4    SETA  &LNG+4                                                   PTPP0007
 &LNG16   SETA  &LNG+16                                                  PTPP0008
 &SLB     OI    FDUBS,DSRERR                                             PTPP0009
          MVC   PAD(&LNG),*+54  THE MESSAGE                              PTPP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        PTPP0893
 FDUBEL   DS    F             NOT PERTINENT                              PTPP0894
 FDUBIL   DS    F             INCREMENT                                  PTPP0895
 FDUBSR   DS    F             SUBROUTINE LOCATION                        PTPP0896
 FDUBSCR  DS    F             SCRATCH                                    PTPP0897
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             PTPP0898
 FDUBDS   DS    F             DEFAULT SWITCHES                           PTPP0899
 FDUBCH   DS    F             NOT PERTINENT                              PTPP0900
          EJECT                                                          PTPP0901
          END   TAPE                                                     PTPP0902
-FILE 100;  1121 RECORDS:  
0         TITLE 'MTS 2260 DEVICE SUPPORT ROUTINES'                       D2260001
          SPACE 15                                                       D2260002
 *********************************************************************** D2260003
 *********************************************************************** D2260004
 **                                                                   ** D2260005
 **                                                                   ** D2260006
 **       MTS DEVICE SUPPORT ROUTINES FOR THE                         ** D2260007
 **       2260 DISPLAY STATION MODEL 1 (LOCAL)                        ** D2260008
 **                                                                   ** D2260009
 **                                 DAVID A. TWYVER                   ** D2260010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SIGFLAG  DS    C                                                        D2261112
 ERRMSG   DS    30C                                                      D2261113
 ERRMSGL  DS    F                                                        D2261114
 LAT      DS    100F                                                     D2261115
 ENDLAT   EQU   *                                                        D2261116
 DISPLAY  DS    36CL80                                                   D2261117
 DISPEND  EQU   *                                                        D2261118
 PSECTL   EQU   *-PSECT                                                  D2261119
          EJECT                                                          D2261120
          END                                                            D2261121
-FILE 101;  1014 RECORDS:  
0TAPE     TITLE '     M T S  MAGNETIC TAPE ROUTINES (MODEL AN050)'       TAPE0001
          MACRO                                                          TAPE0002
 &SLB     ERMSG &WHAT,&RC                                                TAPE0003
          LCLA  &LNG                                                     TAPE0004
 &LNG     SETA  K'&WHAT-2                                                TAPE0005
 &SLB     STM   R1,R5,ERMSGSA      SAVE REGISTERS FOR POP                TAPE0006
          BAL   R5,ERMSG           SUBROUTINE TO PROCESS THEM            TAPE0007
          DC    AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE                        TAPE0008
          SPACE 1                                                        TAPE0009
          MEND                                                           TAPE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        TAPE1005
 FDUBEL   DS    F             NOT PERTINENT                              TAPE1006
 FDUBIL   DS    F             INCREMENT                                  TAPE1007
 FDUBSR   DS    F             SUBROUTINE LOCATION                        TAPE1008
 FDUBSCR  DS    F             SCRATCH                                    TAPE1009
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             TAPE1010
 FDUBDS   DS    F             DEFAULT SWITCHES                           TAPE1011
 FDUBCH   DS    F             NOT PERTINENT                              TAPE1012
          EJECT                                                          TAPE1013
          END                                                            TAPE1014
-FILE 102;  1435 RECORDS:  
0TAPE     TITLE 'MTS TAPE SUPPORT ROUTINES (NON-RESIDENT)  ---  VERSION @UTAP0001
                15 OCTOBER 1968 (SYSTEM RELEASE # 1)'                    UTAP0002
          MACRO                                                          UTAP0003
 &SLB     ERMSG &WHAT,&RC                                                UTAP0004
          LCLA  &LNG                                                     UTAP0005
 &LNG     SETA  K'&WHAT-2                                                UTAP0006
 &SLB     STM   R1,R5,ERMSGSA      SAVE REGISTERS FOR POP                UTAP0007
          BAL   R5,ERMSG           SUBROUTINE TO PROCESS THEM            UTAP0008
          DC    AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE                        UTAP0009
          SPACE 1                                                        UTAP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F                  CURRENT LINE NUMBER                   UTAP1426
 FDUBEL   DS    F                  NOT PERTINENT                         UTAP1427
 FDUBIL   DS    F                  INCREMENT                             UTAP1428
 FDUBSR   DS    F                  SUBROUTINE LOCATION                   UTAP1429
 FDUBSCR  DS    F                  SCRATCH                               UTAP1430
 FDUBNAM  DS    F                  BACK POINTER TO WHO'S USING IT        UTAP1431
 FDUBDS   DS    F                  DEFAULT SWITCHES                      UTAP1432
 FDUBCH   DS    F                  NOT PERTINENT                         UTAP1433
          EJECT                                                          UTAP1434
          END   TAPE                                                     UTAP1435
-FILE 103;     2 RECORDS:  
0ENDSEG2  CSECT                                                          ENDS0001
          END                                                            ENDS0002
-FILE 104;  4931 RECORDS:  
0        ^    -                                                  IPL CARD
 TXT          ^   -   ^   -   ^   :          BSLD0003
 TXT        	{K   ʯ{ &   {  {j {b {u{}nX{BSLD0004
 TXT        {<nE{{!nN{{1{O{o0{q{M&{硋{\{\BSLD0005
 TXT  :      {^q{\ i& i   - {: -  0{K  { Q    BSLD0006
 TXT  ^                     	                  BSLD0007
 TXT         Y& &K qb q                                  BSLD0008
 TXT  q           u                                                BSLD0009
 TXT        ʥ&0k0	 ʥ0& ƺY   -  jBSLD0010
 TXT  Q       j3 &ʥ n  -   j0  BSLD0011
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 REP  00018A    0315    WRITE ON 315                                            
 REP  00018A    0314    WRITE ON 314                                            
 REP  00018A    0310    WRITE ON 310                                            
 REP  00018A    0210    WRITE ON 210                                            
 REP  00018A    0201   WRITE ON 201                                             
 REP  00018A    0301    WRITE ON 301                                            
 REP  00018A    0207    WRITE ON 207                                            
 REP  00018A    0307    WRITE ON 307                                            
 REP  00018A    0200    WRITE ON 200                                            
 END  S                              DATE  01-12-70 21:48             IPL 0025
-FILE 105;   612 RECORDS:  
0LVTC     TITLE       'VTOC PRINTOUT PROGRAM FOR MTS'                    LVTC0001
          SPACE  2                                                       LVTC0002
 *********************************************************************** LVTC0003
 *                                                                     * LVTC0004
 *        VTOC PRINTOUT FOR DASD'S IN MTS SYSTEM - PRINTS VTOC       *   LVTC0005
 *                                                                     * LVTC0006
 *********************************************************************** LVTC0007
          SPACE  2                                                       LVTC0008
 *                                                                       LVTC0009
 *                                                                       LVTC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RDL      DS    1F                                                       LVTC0603
 TTYSWT   DS    1F                                                       LVTC0604
 TYP5T    DS    1F                                                       LVTC0605
 DSKAP    DS    4F            PLACE TO BUILD PRINT FORM OF ADDRESS       LVTC0606
          SPACE                                                          LVTC0607
 NOEPV    EQU   DSKA+59                                                  LVTC0608
 EXT1     EQU   105                                                      LVTC0609
 D2321   EQU   X'80'                                                     LVTC0610
          SPACE                                                          LVTC0611
          END                                                            LVTC0612
-FILE 106;   456 RECORDS:  
0DDMP     TITLE 'UNIVERSITY OF MICHIGAN DIRECT ACCESS DEVICE HEX DUMP'   DSKD0001
 DDUMP    START 0                                                        DSKD0002
          SPACE 1                                                        DSKD0003
          EXTRN SCARDS                                                   DSKD0004
          EXTRN SPRINT                                                   DSKD0005
          EXTRN DISKUC                                                   DSKD0006
          EXTRN GETD                                                     DSKD0007
          EXTRN LASTJOB,DSRDISPV   USED TO FIND DEVICE TYPE              DSKD0008
          EXTRN FREED                                                    DSKD0009
          SPACE 1                                                        DSKD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BR    11                                                       DSKD0447
          SPACE 1                                                        DSKD0448
 FATERRM  DC    C' FATAL ERROR ON UNIT.'                                 DSKD0449
 FATERRL  DC    Y(L'FATERRM)                                             DSKD0450
          LTORG                                                          DSKD0451
          SPACE 1                                                        DSKD0452
 BUFL     EQU   20856                                                    DSKD0453
 BUF      DS    (BUFL/4)F                                                DSKD0454
          SPACE 1                                                        DSKD0455
          END                                                            DSKD0456
-FILE 107;   161 RECORDS:  
0%INPUT   DSR.DADUMP 100                                                         
 %OUTPUT  -DADMP                                                                 
 %DELETE  DADMP008                                                               
          EXTRN LASTJOB,DSRDISPV   USED TO FIND DEVICE TYPE                      
 %DELETE  DADMP014                                                               
          SPACE 1                                                                
          BALR  11,0                                                             
          USING *,11                                                             
          LA    1,=A(HIM1,HIM1L,0)                                               
          L     15,=A(SPRINT)                                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA    1,=A(FATERRM,FATERRL,0)                                          
          L     15,=A(SPRINT)                                                    
          BALR  14,15                                                            
          BAL   2,SKIP             GIVE HIM ANOTHER CHANCE                       
          BR    11                                                               
          SPACE 1                                                                
 FATERRM  DC    C' FATAL ERROR ON UNIT.'                                         
 FATERRL  DC    Y(L'FATERRM)                                                     
 %BEFORE  FILEMARK                                                               
 %END                                                                            
-FILE 108;   778 RECORDS:  
0CCAT     TITLE 'CONSTRUCT CATALOG'                                      CCAT0001
 *                                                                       CCAT0002
 *        ROUTINE TO CONSTRUCT THE MASTER CATALOG                        CCAT0003
 *                                                                       CCAT0004
 *        RD - SCRATCH - 60 BYTES                                        CCAT0005
 *        RE - LINK REGISTER                                             CCAT0006
 *        RF - BASE REGISTER                                             CCAT0007
 *                                                                       CCAT0008
 CSCCAT   START 0                                                        CCAT0009
          ENTRY CONSTCAT                                                 CCAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IND      EQU   X'00'                                                    CCAT0769
          CNOP  0,8                                                      CCAT0770
 VTOC     DS    140X                                                     CCAT0771
 FCB      DS    76X                                                      CCAT0772
 CINF     DS    32X                                                      CCAT0773
 SCR      DS    250F          SCRATCH AREA TO PASSON                     CCAT0774
 *        REQUIREMENTS AS FOLLOWS                                        CCAT0775
 *        MAX OF(8+CRECAT=8+550=558,DSKOP=152,24+CREFD=24+552=576)       CCAT0776
 *                                                                       CCAT0777
          END                                                            CCAT0778
-FILE 109;   108 RECORDS:  
0SYM              CSCCAT   CONSTCAT  STOP  STOP0  AOK  AGAIN1CCAT0001
 SYM            STOP1 CCBACK CCBACK1 @CCAT1 {CCAT3 OCCATCCAT0002
 SYM           2 CCAT40 CCAT4 STOP2 NEWEXT STOP3 CCERCCAT0003
 SYM           ROR OCCERROR1 UCCOUT 0CCAT5 STOP4 CCERROR2 CCAT0004
 SYM           CALLWT !ZEROITd -VOLNM  	e NUMTRKf SYSUSID  CCAT0005
 SYM           e %SFUSID  c MIID  e TRKCYLg NUMTRKNEc FLCCAT0006
 SYM           AG  e `NEWEFG   :f @AGETDSKg ACREATE2d dAGCCAT0007
 SYM           ETSe hAINTFSg AINTREADf AWRITETg mACATNAMECCAT0008
 SYM           g qAUSERCATf ASYSCATe ASFCATe uAMICATf CCAT0009
 SYM           yACATBEGH   b DSA2h Hh h }h Mh QCCAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                *MASTER.CATALOG                                 CCAT0099
 RLD              u    	     q   m   y   CCAT0100
 RLD                 d   h   @      H   CCAT0101
 RLD              }   M   Q         %   -CCAT0102
 RLD                m q  M Q  4 8    CCAT0103
 RLD              @ ٯ ڈ ڍ < q   R  Z 1 9CCAT0104
 RLD                               CCAT0105
 RLD                 <   &         *   CCAT0106
 RLD                    @                                CCAT0107
 END                                                                    CCAT0108
-FILE 110;   909 RECORDS:  
0VNTD    TITLE 'PROGRAM TO VERIFY TRACE AND/OR DUMP THE CATALOG'         VNTD0001
 *                                                                       VNTD0002
 *        PROGRAM TO VERIFY AND/OR TRACE AND/OR DUMP                     VNTD0003
 *        THE CATALOG,APARTICULAR USERID,OR A PARTICULAR FILE            VNTD0004
 *        AS WELL AS PRINT OUT STATISTICS OF INTEREST                    VNTD0005
 *                                                                       VNTD0006
          START 0                                                        VNTD0007
          ENTRY VANDTD                                                   VNTD0008
          REQU                                                           VNTD0009
          PRINT NOGEN                                                    VNTD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0D                                                       VNTD0900
 SCR      DS    100F                                                     VNTD0901
 GCISCR   DS    150F                                                     VNTD0902
 BUFFER   DS    880F               3520 BYTES                            VNTD0903
 USERSTOR EQU   1                                                        VNTD0904
 LDN      EQU   5                                                        VNTD0905
 MID      EQU   X'08'                                                    VNTD0906
 FD       EQU   X'80'                                                    VNTD0907
 SD       EQU   X'40'                                                    VNTD0908
          END                                                            VNTD0909
-FILE 111;   186 RECORDS:  
0SYM                 VANDTD  NOPARh   h  h  h  <h  &h  VNTD0001
 SYM              OK  hMORE  BADPARh  Mh  Qh  h  \h  UVNTD0002
 SYM            h  Yc  ###2     VERIFY TRACE DUMP VNTD0003
 SYM           CATALOG MOREEH ME1b {#1Ah Dh Hh h }VNTD0004
 SYM           h Mh Qh h \h Uh Yc #1BBc #1Q1VNTD0005
 SYM            4ME6 BADEHRT ME10 +ME100 !ME2 ME3 =MEVNTD0006
 SYM           4 oME5 HBADEH Ob Q#2Ah h \h Uh YhVNTD0007
 SYM            h 0h 4h 8c #2Q1 EHERRh h h VNTD0008
 SYM           h h  h c ###3    NMOREEHb *#3VNTD0009
 SYM           Ah -h ˥h h %h h h h @h VNTD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD              m q ھ  ^ ک   @  d h VNTD0177
 RLD               m q          VNTD0178
 RLD              d h   m q       VNTD0179
 RLD                  {  m u y  Q   {VNTD0180
 RLD              Q * ^ 0 	m 	 m 0     VNTD0181
 RLD                  D  -  4 	q 	} q 4 VNTD0182
 RLD               @ %       	  }     VNTD0183
 RLD                                VNTD0184
 RLD                        &                        VNTD0185
 END                                   DATE  01-17-70 12:32             VNTD0186
-FILE 112;  1363 RECORDS:  
0FSAV     TITLE 'PROGRAM TO SAVE ALL FILES OF A VOLUMN ON TAPE'          FSAV0001
 FILESAVE START 0                                                        FSAV0002
          EXTRN VOLGET                                                   FSAV0003
          EXTRN DSKOP                                                    FSAV0004
          EXTRN MOVIT                                                    FSAV0005
          EXTRN SCARDS                                                   FSAV0006
          EXTRN TPWRUC                                                   FSAV0007
          EXTRN SERCOM                                                   FSAV0008
          EXTRN ERROR                                                    FSAV0009
          EXTRN WRITE,GETFD                                              FSAV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ORG   FILESAVE+(((*-FILESAVE)+4095)/4096*4096)                 FSAV1354
          DS    CL4                                                      FSAV1355
 TBF1     DS    (BFSIZE+HDRLEN)C                                         FSAV1356
          ORG   FILESAVE+(((*-FILESAVE)+4095)/4096*4096)                 FSAV1357
          DS    CL4                                                      FSAV1358
 TBF2     DS    (BFSIZE+HDRLEN)C                                         FSAV1359
 LOGRECL  EQU   200                                                      FSAV1360
          COPY  *CATEQU                                                  FSAV1361
          COPY  *FCBEQU                                                  FSAV1362
          END                                                            FSAV1363
-FILE 113;  1097 RECORDS:  
0RSTR     TITLE 'UTILITY TO RESTORE DASD FILES (VERSION 15 JUNE 1969)   XREST0001
                DISTRIBUTION 2.0 '                                       REST0002
          MACRO                                                          REST0003
 &SLB     MESSAGE &WHAT,&NEXT                                            REST0004
 &SLB     BAL   1,*+((L'###&SYSNDX+1)/2*2)+6 AROUND CONSTANETS           REST0005
          DC    Y(L'###&SYSNDX) LENGTH                                   REST0006
 ###&SYSNDX DC C&WHAT,0H'0'                                              REST0007
          BAL   15,MESSAGE                                               REST0008
          AIF   (T'&NEXT EQ 'O').END                                     REST0009
          B     &NEXT                                                    REST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          REST1088
          SPACE 2                                                        REST1089
 *                                 THE FOLLOWING APPLY ONLY TO SEQ. FILE REST1090
 EILEN    EQU   FNAME+66            ACTUAL LENGTH OF EXTENT INDEX        REST1091
          SPACE 8                                                        REST1092
 RESTORE CSECT                                                           REST1093
          DS    0D                                                       REST1094
 FCB      DS    (FCBLEN)C          FILE CONTROL BLOCK                    REST1095
          SPACE 4                                                        REST1096
          END RESTORE                                                    REST1097
-FILE 114;   235 RECORDS:  
0DSKM     TITLE                 'DISK LIST MANAGEMENT PROGRAM'           *DSK0001
          SPACE 2                                                        *DSK0002
 *********************************************************************** *DSK0003
 *                                                                     * *DSK0004
 *              PROGRAM TO MODIFY DISK LIST IN MTS                     * *DSK0005
 *                                                                     * *DSK0006
 *********************************************************************** *DSK0007
          SPACE 2                                                        *DSK0008
          MACRO                                                          *DSK0009
 &LABL1   MESG  &LINE                                                    *DSK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SAVA     DS    200F                                                     *DSK0226
 *                                                                       *DSK0227
 *              TELLS ABOUT DSKAB ENTRIES                                *DSK0228
 *                                                                       *DSK0229
 VOLSER   EQU   18                                                       *DSK0230
 VOLID    EQU   24                                                       *DSK0231
 CELLNO   EQU   28                                                       *DSK0232
 DTL      EQU   128                                                      *DSK0233
 *                                                                       *DSK0234
          END                                                            *DSK0235
-FILE 115;   302 RECORDS:  
0DMOD     TITLE       'SINGLE RECORD DISK DUMP AND MODIFY PROGRAM'       DMOD0001
          SPACE 2                                                        DMOD0002
 *********************************************************************** DMOD0003
 *                                                                     * DMOD0004
 *              PROGRAM TO FIX UP WIPED OUT DISK RECORDS               * DMOD0005
 *                                                                     * DMOD0006
 *********************************************************************** DMOD0007
          SPACE 2                                                        DMOD0008
          MACRO                                                          DMOD0009
 &LABL1   MESG  &LINE                                                    DMOD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MSAV     DS    16F                                                      DMOD0293
 RCNT     DS    H                                                        DMOD0294
 OCNT     DS    H                                                        DMOD0295
 RJNK     DS    F                                                        DMOD0296
 DSKSAV   DS    1F                                                       DMOD0297
 SAVA     DS    75D                                                      DMOD0298
          DS    12X           PRECEDE DSKA TO PUT THINGS ON BOUNDARY     DMOD0299
 DSKA     DS    3700X                                                    DMOD0300
          SPACE                                                          DMOD0301
          END                                                            DMOD0302
-FILE 116;    74 RECORDS:  
0SFDS     TITLE 'PROGRAM TO DESTROY SCRATCH FILES'                       SFDS0001
 SFDESTRY START 0                                                        SFDS0002
          SPACE 3                                                        SFDS0003
          USING *,12                                                     SFDS0004
          STM   14,12,12(13)                                             SFDS0005
          LR    12,15                                                    SFDS0006
          ST    13,SA                                                    SFDS0007
 NXTFIL   LA    1,UID2         PARAMETER LIST                            SFDS0008
          LA    13,SCR                                                   SFDS0009
          L     15,=V(GETCINF)                                           SFDS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(OWNERID)                                               SFDS0065
 ZERO     DC    F'0'     SAY FIND CATALOG ON YOUR OWN                    SFDS0066
 OWNERID  DS    F                                                        SFDS0067
          SPACE                                                          SFDS0068
          SPACE                                                          SFDS0069
          LTORG                                                          SFDS0070
          SPACE                                                          SFDS0071
 SCR      DS    350F                                                     SFDS0072
          COPY  *CATEQU                                                  SFDS0073
          END                                                            SFDS0074
-FILE 117;   336 RECORDS:  
0SCDA     TITLE 'PROGRAM TO SCAN DISK AND DATA CELL FOR STORAGE'         SDAD0001
 SCANDASD START 0                                                        SDAD0002
          SPACE 3                                                        SDAD0003
 *        ENTRY POINT                                                    SDAD0004
          USING *,12                                                     SDAD0005
          STM   14,12,12(13)                                             SDAD0006
          LR    12,15                                                    SDAD0007
          ST    13,SA                                                    SDAD0008
          LA    13,SCR                                                   SDAD0009
          B     NXTVOL                                                   SDAD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 AMAP     DC    A(MAP)                                                   SDAD0327
          SPACE                                                          SDAD0328
          LTORG                                                          SDAD0329
          SPACE                                                          SDAD0330
          CNOP  0,8                                                      SDAD0331
 CARD     DS    D                                                        SDAD0332
 FCB      DS    70F                                                      SDAD0333
 SCR      DS    250F                                                     SDAD0334
 MAP      DC    5000F'0'                                                 SDAD0335
          END                                                            SDAD0336
-FILE 118;   428 RECORDS:  
0SYM              SCANDASDh  ƥh  h  h  h    h  &h  hSCDA0001
 SYM             h  *h  - h  ˳c  ###2  h  h  h  uh  SCDA0002
 SYM           yh   h  ^c  ###3    Th  0h  4h  8h  SCDA0003
 SYM           h   h c ###4  h ƥh h h h   hSCDA0004
 SYM            c ###5   _ LOOK qLOOK2 uBAD SAROUND2SCDA0005
 SYM            BAD2 PRINTb #1Ah h h h h SCDA0006
 SYM           h åh ԥh ƥh h h h  h c #1BBSCDA0007
 SYM           c #1Q1 NXTVOLh *h -h ˥h h % h SCDA0008
 SYM           c ###6   gh mh qh h h uh y SCDA0009
 SYM           h h }h Mh Qh  h \c S###8   	 SCDA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  0                                                              SCDA0419
 TXT  !                                                              SCDA0420
 TXT  !-                                                              SCDA0421
 RLD                     &          u  0  4  8 SCDA0422
 RLD                           *SCDA0423
 RLD              -  m q    } M 	r 	~ 	z 	SCDA0424
 RLD              	 	A 	I 	J 	R 	 	Z 	1 	9    SCDA0425
 RLD              0 4 8           	      SCDA0426
 RLD                                          SCDA0427
 END                                                                    SCDA0428
-FILE 119;   376 RECORDS:  
0CKDA     TITLE 'PROGRAM TO CHECK DASD FOR LOST SPACE OR DUP ALLOC'      CHKD0001
 CHCKDASD START 0                                                        CHKD0002
          SPACE 3                                                        CHKD0003
 *        ENTRY POINT                                                    CHKD0004
          USING *,12                                                     CHKD0005
          STM   14,12,12(13)                                             CHKD0006
          LR    12,15                                                    CHKD0007
          ST    13,SA                                                    CHKD0008
          LA    13,SCR                                                   CHKD0009
          B     NXTVOL                                                   CHKD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 AMAP     DC    A(MAP)                                                   CHKD0367
          SPACE                                                          CHKD0368
          LTORG                                                          CHKD0369
          SPACE                                                          CHKD0370
          CNOP  0,8                                                      CHKD0371
 CARD     DS    D                                                        CHKD0372
 FCB      DS    70F                                                      CHKD0373
 SCR      DS    250F                                                     CHKD0374
 MAP      DC    5000F'0'                                                 CHKD0375
          END                                                            CHKD0376
-FILE 120;   439 RECORDS:  
0SYM              CHCKDASDh  ƥh  h  h  h    h  &h  hCKDA0001
 SYM             h  *h  - h  ˳c  ###2  h  uh  yh  ܥh  CKDA0002
 SYM           ^h   h  c  [###3    h  8h  h  h CKDA0003
 SYM           h  h c ###4  h h h  h h  hCKDA0004
 SYM            <c +###5   uLOOK ^LOOK2 DUPLIh Dh Hh CKDA0005
 SYM           h }h M h Qc ###6    8BADh  h CKDA0006
 SYM           h h h  h c ###7   G DUPLIRETCKDA0007
 SYM               AROUND2 BAD2 PRINT kb m#1Ah qh CKDA0008
 SYM           h h uh yh ܥh ^h h h h {CKDA0009
 SYM           h Dh Hc #1BBc #1Q1 QNXTVOLh \h Uh CKDA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  $                                                              CKDA0430
 TXT  $                                                              CKDA0431
 RLD                     &      u  y    8     CKDA0432
 RLD                 D H       u y  ^CKDA0433
 RLD                 { D \ U Y     &CKDA0434
 RLD                z   A I J R  Z 1 9CKDA0435
 RLD                          m    CKDA0436
 RLD              q    	              CKDA0437
 RLD                                                               CKDA0438
 END                                                                    CKDA0439
-FILE 121;   105 RECORDS:  
0SORT START 0                                                            SORT0001
  EXTRN SPRINT                                                           SORT0002
  ENTER 12,SA=SA                                                         SORT0003
  LA 0,5                                                                 SORT0004
  LA 2,VOLUME                                                            SORT0005
  L 4,=V(VOLGET)                                                         SORT0006
  BALR 3,4                                                               SORT0007
  LTR 4,4                                                                SORT0008
  BNE PUNT                                                               SORT0009
  LA 0,0(0,1)                                                            SORT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SWS DC A(X'91')                                                         SORT0096
 OUT DC CL10' '                                                          SORT0097
 TBL DC C'0123456789ABCDEF'                                              SORT0098
  LTORG                                                                  SORT0099
 SCR DS 50D                                                              SORT0100
 TI DS XL8,(3512/16)XL16                                                 SORT0101
  DS D                                                                   SORT0102
 AREA DS (50*3520/8)XL8                                                  SORT0103
 ENDA EQU *-1                                                            SORT0104
  END                                                                    SORT0105
-FILE 122;   808 RECORDS:  
0FTST     TITLE     'FILE OPERATION SUBROUTINES TEST PROGRAM'            FTST0001
          SPACE                                                          FTST0002
 *********************************************************************** FTST0003
 *                                                                     * FTST0004
 *                FILE TEST SUBROUTINES - JOB NAME 'FILETEST'          * FTST0005
 *                                                                     * FTST0006
 *********************************************************************** FTST0007
          SPACE                                                          FTST0008
 *                                                                       FTST0009
 CSFT     START 0                                                        FTST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    36F                                                      FTST0799
 FOURFW   DS    4F                                                       FTST0800
 RWINPAR  DC    A(FDUB)                                                  FTST0801
          DC    C'FILE'                                                  FTST0802
 IDLEN    DC    H'4'                                                     FTST0803
 ID       DS    4X                                                       FTST0804
 PAR      DS    F                                                        FTST0805
 SCRC     DC    A(SSCRC)                                                 FTST0806
 SSCRC    DS    1000F     PRIMARILY FOR ICAT(NEEDS A PAGE)               FTST0807
          END                                                            FTST0808
-FILE 123;    45 RECORDS:  
0(SUBSCRIPTRANGE):                                                               
 FSNIFF:  PROCEDURE OPTIONS(MAIN);                                               
          DCL IN CHARACTER(132) STATIC;                                          
          DECLARE BNEXT CHARACTER (2) DEFINED IN POSITION (50);                  
          DCL BNCYL CHARACTER (2) DEFINED IN POSITION (85);                      
          DCL BNTRK CHAR  (2) DEFINED IN POSITION (88);                          
          DCL (NR_VS_SIZE (200), TOTNR ) BINARY FIXED (31);                      
          DCL FNRPCT DECIMAL FLOAT (6);                                          
          DCL (SAVIN,SAVOUT) CHAR (1) STATIC INITIAL (' ');                      
          TOTNR = 0;                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          PUT SKIP LIST ('1 % = ' || TOTNR/100);                                 
          PUT SKIP(2) LIST ('NUMBER % SIZE(TRACKS) ');                           
          DO I=1 TO 200;                                                         
              FNRPCT = NR_VS_SIZE(I)/(TOTNR/100E0);                              
               NRPCT = FNRPCT;                                                   
               PUT SKIP EDIT (NR_VS_SIZE(I),FNRPCT,I,' |', ('S' DO II=1          
                  TO NRPCT))   (F(4), X(3), F(5,2), X(4), F(3), A,               
                  (NRPCT) A );                                                   
          END;                                                                   
          END FSNIFF;                                                            
-FILE 124;   122 RECORDS:  
0ESD          FSNIFF        ٩*FSNIFFA      _IHEQINV              FSNI0001
 ESD          IHESADA        IHESADB        IHEQERR              FSNI0002
 ESD          IHEQTIC      IHEMAIN        IHENTRY                FSNI0003
 ESD          IHESAPC        *FSNIFFB     *FSNIFFC             FSNI0004
 ESD          *FSNIFFD     *FSNIFFE     IHEDCNA               FSNI0005
 ESD          IHEDDOB       IHELDOB       IHEDDIA               FSNI0006
 ESD          IHEDDOC       IHEDDOA       IHEIOXB               FSNI0007
 ESD          IHEIOXB       IHEDOBB       IHEDOBB               FSNI0008
 ESD          IHEDIBA       IHEDIBA       IHEDOAA               FSNI0009
 ESD          IHEDOAA       IHEIOBA       IHEIOBT               FSNI0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                                  FSNI0113
 TXT          ٓ00                                                  FSNI0114
 RLD                 -     
  J  R        HFSNI0115
 TXT                                  GUSER                          FSNI0116
 TXT                               	SPRINT                         FSNI0117
 TXT                                  	SCARDS                         FSNI0118
 TXT                                  SAVEI                          FSNI0119
 TXT                                  SAVEO                          FSNI0120
 RLD                      ó     ɳ     Գ           UFSNI0121
 END                                                                   FSNI0122
-FILE 125;   181 RECORDS:  
0SCFL TITLE 'PROGRAM TO FIND FILES BELONGING TO ILLEGAL USERS'           SCNF0001
 SCANFILE START 0                                                        SCNF0002
 *        LOGICAL IO UNITS USED                                          SCNF0003
 *                                                                       SCNF0004
 *         0=FILES TO BE DELETED-ALONG WITH OWNERID                      SCNF0005
 *         I.E.  FILES OF EXPIRED (AND ALSO POSSIBLY DEPLEATED) USERIDS  SCNF0006
 *         AS WELL AS FILES OF USERIDS MISSING FROM ACCOUNTING FILE      SCNF0007
 *                                                                       SCNF0008
 *         1=EXPIRED USERIDS FROM ACCOUNTING FILE                        SCNF0009
 *         AS WELL AS USERIDS IN MASTER INDEX,MISSING FROM ACC FILE      SCNF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          SCNF0172
          LTORG                                                          SCNF0173
          SPACE                                                          SCNF0174
          CNOP  0,8                                                      SCNF0175
 CARD     DS    CL8                                                      SCNF0176
 FNAME    DS    CL34                                                     SCNF0177
 SCR      DS    300F                                                     SCNF0178
 UIDT     DS    10000XL5                                                 SCNF0179
          COPY *CATEQU                                                   SCNF0180
          END                                                            SCNF0181
-FILE 126;   108 RECORDS:  
0SYM              SCANFILE  ACCPRINTh  @h  h  dh  hh  ݥh SCFL0001
 SYM            h  mh  q h  E  NOEXPD     ^ACCOK  DARDLASCFL0002
 SYM           ST  NXTUID  8NOMORE OKh h h  h h SCFL0003
 SYM           h <h &h  h  DELFILE BADFILE NXTSCFL0004
 SYM           FIL OK2 SKIPh {h Dh Hh h }h Mh SCFL0005
 SYM           Qh  h \E UAROUND    INACC PUNT2h  SCFL0006
 SYM           h h h <h & h c ###4   BADUIDh SCFL0007
 SYM           h @h h dh h h ݳc ###5   v yERRSCFL0008
 SYM           ORETh a ^SAH    b UIDc ZEROh h {SCFL0009
 SYM              AH D   c DUID1  c HUID2H   h M   SCFL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  REP  0004BC  065C                                                              
  REP  0004D4  065C                                                              
  REP  00051E  065C                                                              
  REP  0003D0  055C                                                              
 RLD                      D 	  	^ 	 	 	} 	 	\ 	4AIO 0057
 RLD            	  	8 	          *    AIO 0058
 RLD              m q  u 	 	 	 	Q 	U 	Y 	0   AIO 0059
 RLD                 &  -   	{   	D   	H    AIO 0060
 RLD              	                                      AIO 0061
 END                                                                    AIO 0062
-FILE 127;   824 RECORDS:  
0LSAV     TITLE 'PROGRAM TO SAVE SPECIFIC FILES ON TAPE'                 SVFL0001
 LIBFSAVE START 0                                                        SVFL0002
 *                                                                       SVFL0003
 *          1 = LIST OF FILES TO SAVE(16BYTES+4BYTE OWNERID)             SVFL0004
 *                                                                       SVFL0005
          EXTRN VOLGET                                                   SVFL0006
          EXTRN DSKOP                                                    SVFL0007
          EXTRN MOVIT                                                    SVFL0008
          EXTRN SCARDS                                                   SVFL0009
          EXTRN TPWRUC                                                   SVFL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ORG   LIBFSAVE+(((*-LIBFSAVE)+4095)/4096*4096)                 SVFL0815
          DS    CL4                                                      SVFL0816
 TBF2     DS    (BFSIZE+HDRLEN)C                                         SVFL0817
 LOGRECL  EQU   200                                                      SVFL0818
 D2314    EQU   X'40'                                                    SVFL0819
 D2321    EQU   X'80'                                                    SVFL0820
 SEQ      EQU   X'10'                                                    SVFL0821
          COPY  *CATEQU                                                  SVFL0822
          COPY  *FCBEQU                                                  SVFL0823
          END                                                            SVFL0824
-FILE 128;   136 RECORDS:  
0SYM              LIBFSAVE  BADPTR  PHTHD  GOTIT  CKTAPE  RELSAV0001
 SYM           ADY  0TPWAIT  SNSOK NXTFIL TAPEND fNOTEOF \LSAV0002
 SYM           OK AROUND3h dh hh ݥh h m h qc ##LSAV0003
 SYM           #1   {FMT3 NOFMT3 EXTLP :EXTLP2 EXTLP4 HLSAV0004
 SYM           AROUND5 YNXTREC 	AROUND6 	oCHKWRT 	MUSTWRTE 	SBUFLSAV0005
 SYM           EMP    PUNT3 PGNTX <TAPOUTF NOTLAST    LSAV0006
 SYM           WTSW HTAPSTRT MTAPWAIT TAPWRT  UCEOTh h LSAV0007
 SYM           h h h  h Ƴc ###2   TPUE AGAIN LSAV0008
 SYM           =DONE PUNT PUNT2h  yRDFMT1 ^  { HLSAV0009
 SYM            }RDFMT3 Q \ Y 0 8RDBF    RDCCW RULSAV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD              U Y  0 4 ٳ    Q ٟ \ ULSAV0127
 RLD              Y      < & ڏ ړ * y LSAV0128
 RLD              ^ } Y 4 8       * YLSAV0129
 RLD               4 8      * - @  d LSAV0130
 RLD              m q   { U Y      LSAV0131
 RLD               -   ^ H   m   q       LSAV0132
 RLD            	     څ   u    y    y   {LSAV0133
 RLD                     ^      D u   LSAV0134
 RLD              {                                                LSAV0135
 END                                   DATE  01-19-70 14:03             LSAV0136
-FILE 129;    51 RECORDS:  
0         TITLE ' PROGRAM TO COPY TAPE OF SAVED FILES FROM LIBFSAVE'     CPSV0001
 COPY     START 0                                                        CPSV0002
 *                                                                       CPSV0003
 *         FORMAT OF TAPE IS AS FOLLOWS                                  CPSV0004
 *                                                                       CPSV0005
 *         ALL THE FILE WHICH HAVE BEEN SAVED AS ONE BIG TAPE FILE       CPSV0006
 *         EOF                                                           CPSV0007
 *         TRAILER                                                       CPSV0008
 *         EOF                                                           CPSV0009
 *                                                                       CPSV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SERCOM ' TAPE NOT FORMATED PROPERLY'                           CPSV0042
          EXIT 4                                                         CPSV0043
 SA       DS    18A                                                      CPSV0044
 INL      DS    H                                                        CPSV0045
 SW       DC    X'0'                                                     CPSV0046
 TRLR     DC    16C'*',C'ENDOFTP'                                        CPSV0047
 FCNT     DC    C'       FILES PROCESSED'                                CPSV0048
          LTORG                                                          CPSV0049
 IN       DS    CL12000                                                  CPSV0050
          END                                                            CPSV0051
-FILE 130;    37 RECORDS:  
0SYM              COPYh  h  h  h  åh  ԥh  ƥh  h       0001
 SYM           h  c  ###1  h  &h  h  h  *h  -h  ˥h     0002
 SYM            h  % h  c  ###2  h  dh  hh  ݥh  h  m    0003
 SYM           h  qh  h   h  uc  w###3    LOOPh  {h  D    0004
 SYM           h  Hh  h  }h  Mh  Qh   h  0h  4h  8    0005
 SYM           h  h  h h h   NOTHDRh <h &h     0006
 SYM           h h *h -h h  h @h h dh     0007
 SYM           hh  h c k###7   x OKh h h     0008
 SYM           h {h Dh Hh h } h Mc O###8   Rh     0009
 SYM           0h 4h 8h h   h  EOFh h h     0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                   WTM 	nBӌBmBӌ0{0CÇB      %    0028
 TXT                  TAPE NOT FORMATED PROPERLY 	͓}}q}0       0029
 TXT         ****************ENDOFTP       FILES PROCESSED              0030
 TXT                HDR ONLY                                         0031
 RLD                         &      *  -  d  h      0032
 RLD                 m  {  D  H    }  0  4  8     <    0033
 RLD              &   * @  d    { D 0    0034
 RLD              4 8      * -            0035
 RLD                                                             0036
 END                                   DATE  01-19-70 00:01                 0037
-FILE 131;    86 RECORDS:  
0         TITLE ' PROGRAM TO PRINT OUT SORTED LIST OF FILES SAVED'       PRSV0001
 PRINT    START 0                                                        PRSV0002
 *                                                                       PRSV0003
 *         LOGICAL UNIT 0 = TAPE TO SORT                                 PRSV0004
 *                                                                       PRSV0005
 *         WORKS FOR A MAXIMUN OF 6000 FILES                             PRSV0006
 *                                                                       PRSV0007
 *         ACTUALLY - THINGS OUGHT TO BE PRETTY WELL SORTED  ALREADY     PRSV0008
 *                                                                       PRSV0009
          PRINT NOGEN                                                    PRSV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IN       DS    CL256                                                    PRSV0077
 LIM      DC    A(TBL,16,0)                                              PRSV0078
 LLIM     DC    A(LINE+7-13,13,LINE+7+9*13-1)                            PRSV0079
 SYSLIM   DC    A(LINE+7-17,17,LINE+132-17)                              PRSV0080
 T        DS    CL16                                                     PRSV0081
 UID      DS    CL4                                                      PRSV0082
 LINE     DC    CL133' XXXX:'                                            PRSV0083
          LTORG                                                          PRSV0084
 TBL      DS    6000CL16                                                 PRSV0085
          END                                                            PRSV0086
-FILE 132;    38 RECORDS:  
0SYM              PRINTh  h  h  h  åh  ԥh  ƥh  h      0001
 SYM            h  c  ###1    h  <h  &h  h  h  *h     0002
 SYM            -h  h   h  %c  >###2  	  @RDh  dh  hh      0003
 SYM           h  h  mh  qh  h   h  u  SORT  ULP1     0004
 SYM            WLP2 OK PLP2C USER   h h h  h     0005
 SYM           h h <h &h  h  PLPh h h     0006
 SYM           h @h  h dD qUSER2    FITSh h }h     0007
 SYM           Mh Qh  h \ 0MOREh h h h h     0008
 SYM            h ó A SA  f ENDOFTP  a pIN   pB    0009
 SYM            qLIM  C uLLIM  E ^SYSLIM   T  b UID      0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                                    0029
 TXT                                                                     0030
 TXT                HDR ONLY                                            0031
 TXT                                                                    0032
 TXT  H                                                                  0033
 RLD                         <  &      *  d  h      0034
 RLD                 m           } M    0035
 RLD                 q u  ^       *        0036
 RLD                                                                  0037
 END                                   DATE  01-18-70 23:58                 0038
-FILE 133;    45 RECORDS:  
0FDES     TITLE ' PROGRAM TO DESTROY FILES'                              DSTR0001
 *                                                                       DSTR0002
 *        SCARDS=EXPIRED OR MISSING FILES TO DESTROY                     DSTR0003
 *               (LOGICAL UNIT 0 FROM SCANFILE PROGRAM)                  DSTR0004
 *                                                                       DSTR0005
 *        SPRINT=FILES DESTROYED-UNLESS COMMENT FOLLOWS                  DSTR0006
 *                                                                       DSTR0007
 FILEDES  START 0                                                        DSTR0008
          ENTER 12,SA=SA                                                 DSTR0009
          MVC   SAV13,4(13)                                              DSTR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SR    15,15                                                    DSTR0036
          BR    14                                                       DSTR0037
 SAV13    DS    F                                                        DSTR0038
 SA       DS    200D                                                     DSTR0039
 PARLIST  DC    A(NAME)     FILENAME                                     DSTR0040
          DC    A(NAME+16)     OWNERID                                   DSTR0041
          DC    F'0'     FIND CATALOG ON YOUR OWN                        DSTR0042
 NAME     DS    CL20                                                     DSTR0043
 LEN      DS    H                                                        DSTR0044
          END                                                            DSTR0045
-FILE 134;    28 RECORDS:  
0SYM              FILEDES  READh  h  åh  ԥh  ƥh  h   FDES0001
 SYM           h  h  *h  -h  h   h  %  INUSEh  qh  FDES0002
 SYM           h  h  uh  y h  ܳc  ###3    DNOACCESSh  FDES0003
 SYM           h  }h  Mh  Qh   h  \c  S###4    7  ERRORFDES0004
 SYM           h h h h h  h c ###5    FDES0005
 SYM           NOTFOUNDh h  h h h < h &c ###6  FDES0006
 SYM            # dINERRh ݥh h mh qh  h c sFDES0007
 SYM           ###7   g IHB0025B BQUIT d }SAV13 MAFDES0008
 SYM            QSA  Hf PARLISTh h c NAME  b LENFDES0009
 SYM              FILEDES h  h h h <h &           FDES0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT              SERIOUS ERROR  	͌0{0HA@    &  <        FDES0018
 TXT  &        FILENAME-ID OR FILE NOT FOUND IN CATALOG 	͌0{ 0H<FDES0019
 TXT  h      A  s              BAD INPUT FILE 	͌0A    0AFDES0020
 TXT  {      	͓}A}q}                                          FDES0021
 TXT                                                            FDES0022
 TXT                                                                FDES0023
 RLD                         *  -  q        }  MFDES0024
 RLD                       m     FDES0025
 RLD                   	     <                        FDES0026
 END                                                                    FDES0027
-FILE 135;    35 RECORDS:  
0UDES     TITLE ' PROGRAM TO DESTROY USER CATALOGS'                      CDES0001
 *                                                                       CDES0002
 *        SCARDS= EXPIRED OR MISSING USERIDS TO DELETE FROM CATALOG      CDES0003
 *               (LOGICAL UNIT 1 FROM SCANFILE PROGRAM)                  CDES0004
 *                                                                       CDES0005
 *        SPRINT= USERIDS DELEATED UNLESS COMMENT FOLLOWS                CDES0006
 *                                                                       CDES0007
 UCATDES  START 0                                                        CDES0008
          ENTER 12,SA=SA                                                 CDES0009
          MVC   SAV13,4(13)        SAVE GRD FROM FILE ROUTINES           CDES0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LM    14,12,12(13)                                             CDES0026
          SR    15,15                                                    CDES0027
          BR    14                                                       CDES0028
 SAV13    DS    F                                                        CDES0029
 SA       DS    150F                                                     CDES0030
 PARLIST  DS    0F                                                       CDES0031
 USERID   DS    4C                                                       CDES0032
          DC    F'0'               MAKE DESCAT SET UP FCB                CDES0033
 LEN      DS    H                                                        CDES0034
          END                                                            CDES0035
-FILE 136;    19 RECORDS:  
0SYM              UCATDES  READh  h  åh  ԥh  ƥh  h   UDES0001
 SYM           h  h  *h  -h  h   h  %h  hh  ݥh  hUDES0002
 SYM             mh  q h  c  ###3    INERRh  h  {h  DUDES0003
 SYM           h  Hh   h  }c  K###4    g  YIHB0016B  2QUIUDES0004
 SYM           T  d  SAV13A SA  oF *PARLIST   E *USERID  UDES0005
 SYM              h -b LEN   UCATDES h h %h h UDES0006
 SYM           h                                                UDES0007
 ESD          UCATDES       :ERROR          SCARDS                 UDES0008
 ESD          SPRINT         DESCAT         SERCOM                 UDES0009
 TXT          }0A&0}&}0KA } 0C{  *            UDES0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT             	Č{2C˖C팿{0C%{>  *   %            	UDES0011
 TXT         C*0C	Č{0C%{         q          ERROR IN UDES0012
 TXT   y      DESCAT	͌0{0C{S   K   }             BAD INPUT FILUDES0013
 TXT   \      E 	͌0{    0{Y	͓}A q}                          UDES0014
 TXT  -                                                              UDES0015
 TXT                                                               UDES0016
 RLD                         *  -  h        {  DUDES0017
 RLD               Y      % 	                     UDES0018
 END                                                                    UDES0019
-FILE 137;   289 RECORDS:  
0TPD      TITLE 'TAPE DIAGNOSTICS'                                       *TPD0001
 TAPEDIAG START 0                                                        *TPD0002
          SPACE 2                                                        *TPD0003
 ATT      EQU   X'01'              DEVICE IS ATTACHED                    *TPD0004
 BPI1600  EQU   X'02'              1600 BPI MODE                         *TPD0005
 ALL      EQU   X'04'              TEST ALL OF THE TAPE                  *TPD0006
 TP9      EQU   X'08'              9 TRACK TAPE                          *TPD0007
          SPACE 3                                                        *TPD0008
          PRINT NOGEN                                                    *TPD0009
          SPACE                                                          *TPD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OREG5    DC    63YL1(*+1-OREG5)                                         *TPD0280
 OREG6    DC    44YL1(*+1-OREG6)                                         *TPD0281
 IREG     DS    260C                                                     *TPD0282
 MODETBL  DC    C'2CV5CV8CV2ON2OF2EN2EF5ON5OF5EN5EF8ON8OF8EN8EF'         *TPD0283
          DC    X'00'                                                    *TPD0284
 MODECMT  DC    C'*** CURRENT MODE:  XXXX'                               *TPD0285
          SPACE 2                                                        *TPD0286
          LTORG                                                          *TPD0287
          SPACE 2                                                        *TPD0288
          END                                                            *TPD0289
-FILE 138;   993 RECORDS:  
0CT       TITLE 'CARD TO TAPE JOB (U OF M VERSION)'                      CT000001
 CT       START 0                                                        CT000002
          EXTRN TPWRUC                                                   CT000003
          EXTRN CDRDUC                                                   CT000004
          EXTRN BSF                                                      CT000005
          EXTRN CDSTUC                                                   CT000006
          SPACE 5                                                        CT000007
 *        THIS IS THE UNIVERSITY OF MICHIGAN CARD TO TAPE PROGRAM        CT000008
 *        DESIGNED TO RUN UNDER THE LINCOLN LABORATORY MULTI-PROGRAMMING CT000009
 *        SUPERVISOR                                                     CT000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TPERL    EQU   *-TPERM                                                  CT000984
 EOTM     DC    C'END OF TAPE'                                           CT000985
 EOTL     EQU   *-EOTM                                                   CT000986
 EOFM     DC    C'END,       CARDS READ'                                 CT000987
 EOFL     EQU   *-EOFM                                                   CT000988
 BCM      DC    C'...ILLEGAL CHARACTER IN COLUMN '                       CT000989
 BCL      EQU   *-BCM                                                    CT000990
 BPTM     DC    C'...PLOT TIME ESTIMATE IS NOT BLANK'                    CT000991
 BPTL     EQU   *-BPTM                                                   CT000992
          END                                                            CT000993
-FILE 139;   274 RECORDS:  
0TMSR     TITLE 'TAPE MOVEMENT SUBROUTINES'                              CTSB0001
 TPSUBR   START 0                                                        CTSB0002
          ENTRY WTM                     WRITE TAPE MARK                  CTSB0003
          ENTRY ERG                     ERASE RECORD GAP                 CTSB0004
          ENTRY FSR                      FORWARD SPACE RECORD            CTSB0005
          ENTRY BSR                     BACKSPACE RECORD                 CTSB0006
          ENTRY BSF                     BACKSPACE FILE                   CTSB0007
          ENTRY FSF                      FORWARD SPACE FILE              CTSB0008
          ENTRY REW                REWIND                                CTSB0009
          ENTRY RUN                REWIND AND UNLOAD                     CTSB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TABB     CCW   X'2B',*,X'40',1          REC BACK 200                    CTSB0265
          CCW   X'27',*,0,1                                              CTSB0266
          CCW   X'6B',*,X'40',1          REC BACK 556                    CTSB0267
          CCW   X'27',*,0,1                                              CTSB0268
          CCW   X'AB',*,X'40',1          REC BACK 800                    CTSB0269
          CCW   X'27',*,0,1                                              CTSB0270
 SAVE     EQU   8                                                        CTSB0271
 DELETE   EQU   10                                                       CTSB0272
 BASADD   DC    A(BASE)                                                  CTSB0273
      END                                                                CTSB0274
-FILE 140;  1090 RECORDS:  
0TP       TITLE 'TAPE TO PRINTER AND PUNCH'                              TP000001
 TP       START 0                                                        TP000002
          EXTRN PUNUC                                                    TP000003
          EXTRN TPRDUC                                                   TP000004
          EXTRN PTRUC                                                    TP000005
          ENTRY TRANTB                                                   TP000006
          ENTRY CCTB,CCTBTR,CCTBP                                        TP000007
          SPACE 3                                                        TP000008
 *        JOB HEADER                                                     TP000009
          DC    A(TPBEG)                                                 TP000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TERM     DC    C' CARD 00000 OF JOB 000000 PUNCHED FROM RECORD WITH '   TP001081
 TPERC    DC    C'TAPE ERROR'                                            TP001082
 TERL     EQU   *-TERM                                                   TP001083
 BPM      DC    C'ILLEGAL PARAMETER'                                     TP001084
 BPL      EQU   *-BPM                                                    TP001085
 TPERM    DC    C'PERMANENT READ ERROR ON '                              TP001086
 TPERL    EQU   *-TPERM                                                  TP001087
 LINES    DC    C': 00000 LINES PRINTED'                                 TP001088
 CARDS    DC    C'CARDS PUNCHED'                                         TP001089
          END                                                            TP001090
-FILE 141;  1000 RECORDS:  
0*********************************************************************** TCP00001
 *TAPE COPY PROGRAM,VERSION 3 (1/66),RE-ENTRANT**************JACK NOLAN* TCP00002
 *********************************************************************** TCP00003
 *                                                                       TCP00004
 *        COPIES AND/OR COMPARES ALL OR PART OF TWO 7- OR 9-TRACK TAPES  TCP00005
 *        WITH SPECIFIED PARITY AND DENSITY AND WITH DATA CONVERTER      TCP00006
 *        OPTION.                                                        TCP00007
 *                                                                       TCP00008
 *        JOB INITIATION MESSAGE.                                        TCP00009
 *              TPCOPY (INPUT UNIT) (OUTPUT UNIT) (PARAMETER PAIRS)      TCP00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 WRITE    EQU   7                                                        TCP00991
 SAVE     EQU   8                                                        TCP00992
 RESTOR   EQU   9                                                        TCP00993
 DELETE   EQU   10                                                       TCP00994
 SKIP     EQU   13                                                       TCP00995
 SPWAIT   EQU   16                                                       TCP00996
 SNSADR   EQU   19                                                       TCP00997
 GETID    EQU   20                                                       TCP00998
 TEN      DC    A(10)                                                    TCP00999
          END                                                            TCP01000
-FILE 142;   713 RECORDS:  
0T7D2     TITLE 'VERSION 2 OF 7 TRACK TAPE DUMP'                         T7D00001
 T7DUMP   START 0                                                        T7D00002
 *        ************************************************************** T7D00003
 *        *T7DUMP DUMPS A BCD OR BINARY(IN OCTAL) OR MIXED MODE          T7D00004
 *          (BCD AND BINARY) 7-TRACK TAPE GENERATED ON THE 1401 OR 7094  T7D00005
 *        *T7DUMP ALSO DUMPS AN EVEN PARITY 7-TRACK TAPE IN OCTAL.       T7D00006
 *        *OPTIONS                                                       T7D00007
 *          OPTIONS SUCH AS THE MODE OF THE TAPE,TAPE DENSITY, OR FILES  T7D00008
 *          ON THE TAPE MAY BE ENTERED ON THE CONSOLE TYPEWRITER.        T7D00009
 *        FOR                                                            T7D00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(PTRUC)                                                 T7D00704
 BASEAD   DC    A(T7DUMP)                                                T7D00705
 NUMCHR   DS    D                                                        T7D00706
 RECCNT   DS    D                                                        T7D00707
 FILCNT   DS    D                                                        T7D00708
 *        FLAG SETTINGS                                                  T7D00709
 FLAG     DC    X'00'                                                    T7D00710
 TRCBIT   EQU   1               TRUNCATION OF ORIG RECORD SIZE           T7D00711
 EVNPAR   EQU   2                  EVEN PARITY TAPE DUMP IN OCTAL        T7D00712
          END   BEGIN                                                    T7D00713
-FILE 143;   452 RECORDS:  
0T9D2     TITLE 'VERSION 2 OF 9 TRACK TAPE DUMP'                         T9D00001
 T9DUMP   START 0                                                        T9D00002
          EXTRN PTRUC         PRINTER UNIT CHECK ROUTINE                 T9D00003
          EXTRN TPRDUC             TAPE UNIT CHECK ROUTINE               T9D00004
 *        ************************************************************** T9D00005
 *        *T9DUMP   DUMPS A 9 TRACK TAPE GENERATED ON THE 360/65 OR      T9D00006
 *          360/40 IN HEXADECIMAL WITH AN OPTION FOR BOTH A HEXADECIMAL  T9D00007
 *          AND EBCDIC DUMP. IN THE LATTER CASE A LINE IS FIRST DUMPED   T9D00008
 *          IN HEXADECIMAL THEN IN EBCDIC.                               T9D00009
 *        *OPTIONS                                                       T9D00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    CL7' '                                                   T9D00443
          DC    C'JKLMNOPQR'                                             T9D00444
          DC    CL8' '                                                   T9D00445
          DC    C'STUVWXYZ'                                              T9D00446
          DC    CL6' '                                                   T9D00447
          DC    C'0123456789'                                            T9D00448
          DC    CL6' '                                                   T9D00449
 *        FLAG SETTINGS                                                  T9D00450
 TRCBIT   EQU   1                  TRUNCATION OF ORIGINAL RECORD SIZE    T9D00451
          END   BEGIN                                                    T9D00452
-FILE 144;   661 RECORDS:  
0JBRP   TITLE   'JOB REQUEST PROCESSOR'                                  JBRP0001
 *  THIS IS JOB PART OF REQUEST PROCESSOR                                JBRP0002
          SPACE                                                          JBRP0003
 *                                                                       JBRP0004
 *              VERSION OF 23 MAY 1966                                   JBRP0005
 *              REPLACES VERSION OF 25 NOVEMBER 1956                     JBRP0006
 *                                                                       JBRP0007
 *        MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE                JBRP0008
 *                                                                       JBRP0009
 *        1. USE IS MADE OF THE NEW SVC "GTBUF" AND "GTUNIT"             JBRP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0F                                                       JBRP0652
 XXXERR   DC    C' ERR'                                                  JBRP0653
 ADMAX    DC    A(MAXADD)                                                JBRP0654
 JOBAD    DC    A(JOB)                                                   JBRP0655
 FOUR     DC    F'4'                                                     JBRP0656
 ZEROS    DC    11F'0'                                                   JBRP0657
 JOBTBL   DC    F'0'                                                     JBRP0658
 ZERO     EQU   FOUR          DC    X'0000'                              JBRP0659
          ORG   JOBTBL+LJBTBL                                            JBRP0660
          END   BEGIN                                                    JBRP0661
-FILE 145;  1880 RECORDS:  
0LLTP     TITLE 'LINCOLN LABS TAPE TO PRINT VERSION 2'                   TPS00001
 PRINT    START 0                                                        TPS00002
          EXTRN TPRDUC              EXTERNAL TAPE READ UC ROUTINE        TPS00003
          EXTRN PRTUC                                                    TPS00004
          EXTRN PRTUE                                                    TPS00005
          EXTRN BUFF1                                                    TPS00006
          EXTRN BUFF2                                                    TPS00007
          EJECT                                                          TPS00008
 *                       REGISTER ASSIGNMENTS                            TPS00009
          SPACE 3                                                        TPS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BUFCCC   EQU   BUFFER+36                                                TPS01871
          SPACE 3                                                        TPS01872
 *                       DSECT6                                          TPS01873
          SPACE 3                                                        TPS01874
 SWCHES   DS    0F                                                       TPS01875
 SWTCH1   DC    X'0'                                                     TPS01876
 SWTCH2   DC    X'0'                                                     TPS01877
 SWTCH3   DC    X'0'                                                     TPS01878
 SWTCH4   DC    X'0'                                                     TPS01879
          END   BEGIN                                                    TPS01880
-FILE 146;   388 RECORDS:  
0LLPC     TITLE 'LINCOLN LAB''S PRINT UNIT CHECK ROUTINES'               PTUC0001
 PRNTUC   START 0                                                        PTUC0002
          ENTRY PRTUC                                                    PTUC0003
          ENTRY PRTUE                                                    PTUC0004
 *********************************************************************** PTUC0005
 *        ***************PRINTER UNIT EXCEPTION ROUTINE***************** PTUC0006
 *        THIS ROUTINE HANDLES PRINTER UNIT EXCEPTIONS. LINKAGE FROM     PTUC0007
 *        THE CALLING PROGRAM REQUIRES PLACING THE PROPER ENTRY POINT    PTUC0008
 *        ADDRESS (PRTUE) WHICH HAS BEEN DEFINED AS AN EXTRN IN THE      PTUC0009
 *        CALLING PROGRAM INTO THE RETURNS LIST AS THE UNIT EXCEPTION    PTUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LDN      EQU   SAVAR+16                                                 PTUC0379
 DSECT2   EQU   PRTUC+8192                                               PTUC0380
 RTNADR   EQU   DSECT2                                                   PTUC0381
 FLAG     EQU   RTNADR+4                                                 PTUC0382
 MYFLAG   EQU   FLAG+1                                                   PTUC0383
 STOPCD   EQU   MYFLAG+1                                                 PTUC0384
 SNSCC    EQU   STOPCD+1                                                 PTUC0385
 SENBYT   EQU   SNSCC+1                                                  PTUC0386
 DEVID    EQU   SENBYT+4                                                 PTUC0387
          END                                                            PTUC0388
-FILE 147;     6 RECORDS:  
0BUFF     TITLE 'BUFFERS FOR *TPS'                                       TPSB0001
 BUFF1    START 0                                                        TPSB0002
          DS    XL2000                                                   TPSB0003
          ENTRY BUFF2                                                    TPSB0004
 BUFF2    DS    XL2000                                                   TPSB0005
          END                                                            TPSB0006
-FILE 148;   269 RECORDS:  
0DRMI    TITLE 'PROGRAM TO INITIALIZE DRUM'                              DNIT0001
 DRUMINIT START 0                                                        DNIT0002
          SPACE 5                                                        DNIT0003
 STIO     EQU   2                                                        DNIT0004
 WAIT     EQU   3                                                        DNIT0005
 SILI     EQU   X'20'                                                    DNIT0006
          SPACE 5                                                        DNIT0007
          USING *,15                                                     DNIT0008
          BALR  10,0                                                     DNIT0009
          DROP  15                                                       DNIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    AL2(PAGE)                                                DNIT0260
          SPACE 5                                                        DNIT0261
 FMASK    DC    X'C0'  ALLOW EVERYTHING                                  DNIT0262
          LTORG                                                          DNIT0263
          SPACE                                                          DNIT0264
          SPACE 4                                                        DNIT0265
          DS    0D                                                       DNIT0266
 DRUMDATA DC    1024F'0'                                                 DNIT0267
          SPACE 5                                                        DNIT0268
          END                                                            DNIT0269
-FILE 149;    13 RECORDS:  
0SPDP     TITLE 'PROGRAM TO START THE PAGING DRUM PROCESSOR'             SPDP0001
 STRTPDP  START 0                                                        SPDP0002
          USING *,15                                                     SPDP0003
          SPACE 2                                                        SPDP0004
 STJOB    EQU   41         START JOB SVC                                 SPDP0005
          SPACE 2                                                        SPDP0006
          LA    0,L'STPDP                                                SPDP0007
          LA    1,STPDP                                                  SPDP0008
          SVC   STJOB                                                    SPDP0009
          BR    14                                                       SPDP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          SPDP0011
 STPDP    DC    C'PDP '                                                  SPDP0012
          END                                                            SPDP0013
-FILE 150;    97 RECORDS:  
0LOG      TITLE 'PROGRAM TO LOG RELOADS'                                 INIL0001
 INITLOG  START 0                                                        INIL0002
          PRINT NOGEN                                                    INIL0003
          ENTER 12,SA=SA                                                 INIL0004
          SVC   28            GET TIME AND DATE                          INIL0005
          STM   0,1,FWRD                                                 INIL0006
          MVC   TIME(8),FWRD                                             INIL0007
          STM   2,3,FWRD                                                 INIL0008
          MVC   DATEX(8),FWRD                                            INIL0009
          SVC   34                                                       INIL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MYCST    DS    XL100                                                    INIL0088
 MYCCUMAP DS    XL4                                                      INIL0089
 *                                                                       INIL0090
          COPY  *LLMPSEQU                                                INIL0091
 *                                                                       INIL0092
          EXTRN EXTINT,SVCINT,PRGINT,IOINT,PGTBL0,SVBASE                 INIL0093
 PSA      DSECT                                                          INIL0094
          COPY  PSA                                                      INIL0095
          END                                                            INIL0096
 $CONTINUE WITH *DUMMY*                                                  INIL0097
-FILE 151;    36 RECORDS:  
0RSRV     TITLE 'RESERVE DISK DRIVES TO 2844 OR 2314'                    RSV00001
 RESERVE  CSECT                                                          RSV00002
          PRINT NOGEN                                                    RSV00003
          ENTER 12,SA=SA                                                 RSV00004
 LP       SPRINT 'ENTER VOLUME NAME'                                     RSV00005
          SCARDS IN,EXIT=EOF                                             RSV00006
          LA    2,IN                                                     RSV00007
          LA    0,5                                                      RSV00008
          L     4,=V(VOLGET)                                             RSV00009
          BALR  3,4                                                      RSV00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B     FRLP                                                     RSV00027
 UCK      SVC   8                                                        RSV00028
          SVC   10                                                       RSV00029
          SPRINT 'UNIT CHECK'                                            RSV00030
          B     FRLP                                                     RSV00031
 CCW      CCW   X'B4',SENSE,X'20',7                                      RSV00032
 SENSE    DS    XL8                                                      RSV00033
 IN       DS    CL100                                                    RSV00034
 SA       DS    18A                                                      RSV00035
          END                                                            RSV00036
-FILE 152;    32 RECORDS:  
0PAGEIT   CSECT                                                          PGIT0001
          ENTER 12,SA=SA                                                 PGIT0002
          LA    0,17          SEG 3                                      PGIT0003
          L     1,=A(X'100000')                                          PGIT0004
          L     15,=V(GETSPACE)                                          PGIT0005
          BALR  14,15                                                    PGIT0006
          LA    0,256                                                    PGIT0007
          LR    3,1           SAVE FRONT                                 PGIT0008
 LP       LR    2,1           PREV PAGE                                  PGIT0009
          A     1,=F'4096'                                               PGIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA    0,500         500 CHANGES                                PGIT0023
 LP5      L     3,0(0,3)                                                 PGIT0024
          ST    0,4(0,3)                                                 PGIT0025
          BCT   0,LP5                                                    PGIT0026
          B     LP3           REPEAT                                     PGIT0027
 SA       DS    18A                                                      PGIT0028
          LTORG                                                          PGIT0029
          ORG   PAGEIT+4096                                              PGIT0030
 SEG4     DS    200CL4096                                                PGIT0031
          END                                                            PGIT0032
-FILE 153;     8 RECORDS:  
0SYM              PAGEIT  LP  LP2  &LP3  LP4  -LP5A  SA  h    0001
 SYM       
      h  h  {h  DC  SEG4   H                       0002
 ESD          PAGEIT        GETSPACE                                   0003
 TXT          }0{&0}&}0  {0{	  !{{&  {Ó    0004
 TXT         {D  H& !{{ {&ƥ  4  { 4 &  {-0{&    0005
 TXT                                                                  0006
 RLD               D                                                0007
 END                                   DATE  11-21-69 03:23                 0008
-FILE 154;  1621 RECORDS:  
0STAN     TITLE 'STATISTICS PHASE I ANALYSIS'                            ANAL0001
          PRINT ON,NODATA,NOGEN                                          ANAL0002
 *                                                                       ANAL0003
 *  INITIALIZATION                                                       ANAL0004
 *                                                                       ANAL0005
 STATANAL START 0             ENTRY POINT                                ANAL0006
          SAVE  (14,12)       SAVE THE MTS REGISTERS                     ANAL0007
          BALR  12,0          THIS IS THE BASE REGISTER                  ANAL0008
          USING *,12,10       ESTABLISH THEM                             ANAL0009
          LA    10,2048(12)   GET THE SECOND                             ANAL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 EDMPAREA DS    0C            END OF TAPE OUTPUT AREA                    ANAL1612
 CNT      DC    A(EDMPAREA-NEWAREA) LENGTH OF TAPE OUTPUT                ANAL1613
 ADDAREA  DS    8F            ITEM PRINT AREA                            ANAL1614
 JOBAREA  DS    (NOJOBS)XL(JOBEND-JOBINFO)                               ANAL1615
 EJOBAREA DS    0C            END OF INFORMATION AREAS                   ANAL1616
 PAGETBL  DS    (NOPAGES*LPTBL)F    PAGE TABLE FOR VIRTUAL MEMORY        ANAL1617
 PAGEND   DS    0C            END OF PAGE TABLE                          ANAL1618
 DATA     DS    4096C         BUFFER OF ITEMS FROM STAT JOB              ANAL1619
 JOBPTR   DS    (NJOBPTR)A    JOB TABLE ADDRESS TABLE                    ANAL1620
          END   STATANAL                                                 ANAL1621
-FILE 155;    68 RECORDS:  
0         PRINT NOGEN                                                    *ANS0001
          REQU                                                           *ANS0002
          ENTER 12                                                       *ANS0003
          L     RF,=V(GETFD)                                             *ANS0004
          LA    R1,FILE                                                  *ANS0005
          BALR  RE,RF                                                    *ANS0006
          ST    0,FDUB                                                   *ANS0007
 BEGIN    L     0,FDUB                                                   *ANS0008
          SR    1,1                                                      *ANS0009
          L     RF,=V(REWIND#)                                           *ANS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FILE     DC    C'*STATISTICS(2) '                                       *ANS0059
 *                                                                       *ANS0060
 FDUB     DS    1F                                                       *ANS0061
 REGL     DS    1H                                                       *ANS0062
 COMPL    DS    1H                                                       *ANS0063
 REG      DS    256C                                                     *ANS0064
 OUT      DS    256C                                                     *ANS0065
 COMP     DS    256C                                                     *ANS0066
 *                                                                       *ANS0067
          END                                                            *ANS0068
-FILE 156;   159 RECORDS:  
0RECP     TITLE 'PROGRAM TO GENERATE MTS RECEIPT CARDS'                  RCPT0001
 RECP     START 0                                                        RCPT0002
          USING RECP,12                                                  RCPT0003
          LR    12,15              LOAD THE BASE REGISTER                RCPT0004
          PRINT NOGEN              WE REALLY DON'T WANT ALL THOSE MACROS RCPT0005
          SPACE 1                                                        RCPT0006
          SERCOM ' MTS RECEIPT CARD PROGRAM '                            RCPT0007
          SPACE 1                                                        RCPT0008
 GETPCH   SERCOM ' ENTER THE NAME OF THE PUNCH'                          RCPT0009
          GUSER INPUT,INL                                                RCPT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 INL      DS    H                  LENGTH OF THE INPUT RECORD            RCPT0149
          SPACE 1                                                        RCPT0150
 TRTOP    DC    X'08040201000000000000'      TOP HALF GENERATION         RCPT0151
 TRBOT    DC    X'00000000201008040201'      BOTTOM HALF GENERATION      RCPT0152
 TREXCHNG DC    X'0006010702080309040A050B'  TOP AND BOTTOM EXCHANGE     RCPT0153
          SPACE 1                                                        RCPT0154
 FDUB     DS    F                  THE FDUB OF THE PUNCH                 RCPT0155
 RECPSW   DS    XL1                SWITCH FOR THE RECEIPT CARD OPTION    RCPT0156
          SPACE 2                                                        RCPT0157
          END   RECP                                                     RCPT0158
-FILE 157;    94 RECORDS:  
0/* PROGRAM TO DETERMINE DISK USAGE BY ID FROM *LISTVTOC OUTPUT */               
 FSCAN:   PROCEDURE OPTIONS(MAIN);                                               
          DCL 1 USER (2000) STATIC ,                                             
                2 ID CHAR (4),                                                   
                2 FILES BINARY FIXED (15),                                       
                2 TRACKS BINARY FIXED (15),                                      
                2 EXTENTS BINARY FIXED (15);                                     
          DCL S BINARY FIXED (31) STATIC INITIAL (2);                            
          DCL TRK_PER_FILE DECIMAL FLOAT (6);                                    
          DCL EXT_PER_FILE DECIMAL FLOAT (6);                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                    IF LOCSTR = HEX(IR) THEN GO TO BARF2;                       
                    N=N+IR+9E0;                                                  
                    GO TO BARF3;                                                 
               BARF2: END;                                                       
               N = N + LOCSTR;                                                   
               BARF3: IF IQ = 1 THEN N = N*16E0;                                 
          HX: END;                                                               
          RETURN (N);                                                            
          END HEXCON;                                                            
          END FSCAN;                                                             
-FILE 158;   778 RECORDS:  
0 /*  PROGRAM TO ACCUMULATE INFORMATION FROM *STATISTICS  */                     
 (SUBSCRIPTRANGE):                                                               
 STATGET: PROCEDURE OPTIONS(MAIN);                                               
          DCL 1 INREG STATIC,                                                    
                2 COUNT CHARACTER(1),                                            
                2 TYPE (8) BIT (1),   /* TYPE(2)=1 FOR BATCH,0 FOR TERM */       
                2 PAD CHARACTER (2),                                             
                2 USERID CHARACTER (4),                                          
                2 PROJNO CHARACTER (4),                                          
                2 PADD CHARACTER (12),                                           
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 /*                                                                              
                NOW FUDGE FOR THE VARIOUS YEARS                                  
                                                                        */       
          J_DATE = J_DATE + MOD(YEAR-1968,7) + ((YEAR-1913)/4);                  
 /*             THIS WILL NOT WORK BEFORE 1913                          */       
          RETURN (MOD(J_DATE,7)+1);                                              
          END DAY_OF_WEEK;                                                       
 /*                                                                     */       
 /*                                          */                                  
          END STATGET;                                                           
-FILE 159;   113 RECORDS:  
0 /*  PROGRAM TO GET TERMINAL USAGE  BY ANSWERBACK  */                           
 ABKGET:  PROCEDURE OPTIONS(MAIN);                                               
          DCL 1 INREG STATIC,                                                    
                2 COUNT CHARACTER(1),                                            
                2 TYPE (8) BIT (1),   /* TYPE(2)=1 FOR BATCH,0 FOR TERM */       
                2 PAD CHARACTER (2),                                             
                2 USERID CHARACTER (4),                                          
                2 PROJNO CHARACTER (4),                                          
                2 PADD CHARACTER (12),                                           
                2 MONTH CHARACTER(2),                                            
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          T2 = (ABK.DETIME(I)+1800)/3600;                                        
          C1 = ABK.TALLY(I);                                                     
          C2 = ABK.DTALLY(I);                                                    
                PUT SKIP EDIT (ABK.NAME(I), T1,T2, T1+T2, C1,C2, C1+C2)          
                     (A,F(7), F(10), X(5), F(10), X(10), F(7), F(10), X(5),F(10))
                               ;                                                 
          END;                                                                   
          PUT PAGE;                                                              
          RETURN;                                                                
          END ABKGET;                                                            
-FILE 160;   100 RECORDS:  
0ESD          ABKGET        ن*ABKGETA      ~IHEQINV              ABKG0001
 ESD          IHESADA        IHESADB        IHEQERR              ABKG0002
 ESD          IHEQTIC      IHEMAIN        IHENTRY                ABKG0003
 ESD          IHESAPC        *ABKGETB     *ABKGETC             ABKG0004
 ESD          IHELDOB       IHEIOXB       IHEIOXB               ABKG0005
 ESD          IHEDOBB       IHEDOBB       IHEDOAA               ABKG0006
 ESD          IHEDOAA       IHEIOBC       IHEIOBT               ABKG0007
 ESD          IHEIOBB       IHEIOGA       IHESAFB               ABKG0008
 ESD          IHESAFA       IHESAFC       IHEBSD0               ABKG0009
 ESD          STAT           STAT         IHESPRT                ABKG0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  -         Y      Y   {   Y   D   Y             ABKG0091
 RLD                           (ABKG0092
 TXT  h       ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789#,$.-&+)(=?">:;_|@%ABKG0093
 TXT  {      *</                                                     ABKG0094
 TXT                                                                  ABKG0095
 TXT          ٓ00                                                  ABKG0096
 TXT                                  STAT                           ABKG0097
 TXT                               	SPRINT                         ABKG0098
 RLD              )   a                     zABKG0099
 END                                                                   ABKG0100
-FILE 161;   696 RECORDS:  
0DMPL     TITLE 'PRINT DUMP TAPE PRODUCED BY SYSTEM DUMP'                DMPL0001
 DMPLST   START 0                                                        DMPL0002
 R0       EQU   0                                                        DMPL0003
 R1       EQU   1                                                        DMPL0004
 R2       EQU   2                                                        DMPL0005
 R3       EQU   3                                                        DMPL0006
 R4       EQU   4                                                        DMPL0007
 R5       EQU   5                                                        DMPL0008
 R6       EQU   6                                                        DMPL0009
 R7       EQU   7                                                        DMPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0D                                                       DMPL0687
          LTORG                                                          DMPL0688
          DS    0D                                                       DMPL0689
 BUF1     DS    4352X                                                    DMPL0690
 BUF2     DS    4352X                                                    DMPL0691
 BUF2A    DS    4352X                                                    DMPL0692
 BUF2B    DS    4352X                                                    DMPL0693
 BUF3     DS    4352X                                                    DMPL0694
 BUF4     DS    (NBUFS)XL8192      BUFFERS FOR REAL CORE                 DMPL0695
          END                                                            DMPL0696
-FILE 162;   176 RECORDS:  
0SYM              DMPLST
   PCBDCTf   PCBUPCPe  PCBRCAe  PCBVMADMPL0001
 SYM           f  PCBSQCPf  PCBJTBLd  PCBSS  e  PCBSTK   f  DMPL0002
 SYM           PCBPDPF   d  PCBXA   BUFFERb   AB1b  AB2c  AB2DMPL0003
 SYM           Ac  AB2Bb  AB3b  AB4   DMPLST   STARTh  DMPL0004
 SYM           h  h  åh  ԥh  ƥh  h  h   h   c  ###DMPL0005
 SYM           1    h  h  h  *h  -h  ˥h  h  %h  DMPL0006
 SYM            h    hSTL1h  qh  h  h  uh  yh  ܥh  ^DMPL0007
 SYM           h     SSTL2h  0h  4h  8h  h   h c DMPL0008
 SYM           ###4  h h  h h h < h &c ###5  DMPL0009
 SYM             h h %h h h h @ h  hREADMPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD               0 4 	 	 	 	m 	q 	 	   DMPL0167
 RLD                 * u y D H   @  DMPL0168
 RLD              } M   ٳ  * d h    DMPL0169
 RLD              ڂ % ڸ  {       u yDMPL0170
 RLD                \ U     d h   } MDMPL0171
 RLD                          } M  DMPL0172
 RLD               U 	 	 	  < &  {  ٥ ُDMPL0173
 RLD              ٓ ٯ  <   &   * -   {DMPL0174
 RLD              ^    	        }                DMPL0175
 END                                   DATE  01-05-70 19:09             DMPL0176
-FILE 163;   222 RECORDS:  
0PTRA     TITLE 'PROGRAM TO PRINT TRACE TABLE FROM TAPE'                 PTTR0001
 PRTRACE  START 0                                                        PTTR0002
          PRINT NOGEN                                                    PTTR0003
          ENTER 12,SA=SA                                                 PTTR0004
          L     2,4(0,1)           GET POINTER TO INPUT ITEM             PTTR0005
          CLI   0(2),X'7E'                                               PTTR0006
          BNE   ERROR                                                    PTTR0007
          CLI   25(2),4                                                  PTTR0008
          BH    ERROR                                                    PTTR0009
          SR    3,3                                                      PTTR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PNAME    DS    CL2                                                      PTTR0213
          DS    0D                                                       PTTR0214
 FNUM     DC    X'4E00000000000000'                                      PTTR0215
 TIME     DS    D                                                        PTTR0216
 LCNT     DC    F'1'                                                     PTTR0217
 SVCCNT   DC    H'135'                                                   PTTR0218
 PGNTCNT  DC    H'17'                                                    PTTR0219
 CONDC    DS    H                                                        PTTR0220
 FRSTT    DC    16F'0'                                                   PTTR0221
          END                                                            PTTR0222
-FILE 164;    92 RECORDS:  
0SYM              PRTRACEh  h  dh  hh  h   h  m  wb  PTRA0001
 SYM           y#1Ah  h  ^h  h  h  c  {#1BB  FNOHDRDPTRA0002
 SYM             TYPE0    FNDSVC b #2Ah h h hPTRA0003
 SYM            h h h h h h h h h PTRA0004
 SYM           h h c #2BBc  #2Q1c #2Q3c #2Q5DPTRA0005
 SYM            TYPE1   b #3Ah *h -h ˥h h %h >PTRA0006
 SYM           h h h h h h :h @h =h PTRA0007
 SYM           c b#3Q1D hTYPE2    ob q#4Ah h h uPTRA0008
 SYM           h yh h h ^h h h h h [c PTRA0009
 SYM           #4BBc #4Q1D DTYPE3    FNDPGNT b #5APTRA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  ُ      **P4P3**P2******P1**************                        PTRA0083
 TXT        +                                                       PTRA0084
 TXT  h          g                                                 PTRA0085
 TXT  k                                                              PTRA0086
 TXT                                                                PTRA0087
 TXT  Q                   F{    **NONE**                       PTRA0088
 RLD                 d  h           u y 8PTRA0089
 RLD                    y   q       PTRA0090
 RLD              *  0    8 	  ن                    PTRA0091
 END                                   DATE  01-17-70 00:26             PTRA0092
-FILE 165;    25 RECORDS:  
0WR80     TITLE 'PROGRAM TO WRITE 80 CHAR RECORDS ON TAPE'               WT800001
 WRITE80  START 0                                                        WT800002
          PRINT NOGEN                                                    WT800003
          ENTER 12,SA=SA                                                 WT800004
 LP       SCARDS IN,INL,EXIT=EOF                                         WT800005
          LH    1,INL                                                    WT800006
          CH    1,=H'80'                                                 WT800007
          BNE   NOTS8                                                    WT800008
          CLI   IN,X'E0'                                                 WT800009
          BNE   NOTS8                                                    WT800010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NOTS8    DS    0H                                                       WT800016
          LA    1,IN(1)                                                  WT800017
          MVC   0(80,1),=CL80' '                                         WT800018
          SPUNCH IN,80                                                   WT800019
          B     LP                                                       WT800020
 EOF      EXIT  0                                                        WT800021
 SA       DS    18A                                                      WT800022
 IN       DS    CL335                                                    WT800023
 INL      DS    H                                                        WT800024
          END                                                            WT800025
-FILE 166;    13 RECORDS:  
0SYM              WRITE80  LPh  h  h  h  åh  h   D WR800001
 SYM            NOTS8   h  @h  h  dh  hh   h    qEOFWR800002
 SYM           A  uSA  a  IN + b INL   WRITE80 h    WR800003
 SYM           |h h m  h qh h   	h u                  WR800004
 ESD          WRITE80       wSCARDS         SPUNCH                 WR800005
 TXT          }0{u& & ؓ0B{                   	WR800006
 TXT         {qBB{n\{{NBmA{N	B{{K{Bu      WR800007
 TXT         {K| B 0Bq{k                  &	͌0{ q}WR800008
 TXT   s                                                            WR800009
 TXT                                                                 WR800010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                    DECK     &60000015          WR800011
 RLD                       @    d      q        WR800012
 END                                                                    WR800013
-FILE 167;   290 RECORDS:  
0RRST     TITLE 'SUBROUTINE PACKAGE TO READ A RESTORE TAPE'              RDRS0001
          PRINT NOGEN                                                    RDRS0002
 READREST START 0                                                        RDRS0003
          ENTRY GETREC,FINDREC,STARTRD                                   RDRS0004
 GETREC   ENTER 12,SA=GRSA    GET NEXT DISK RECORD                       RDRS0005
          L     1,CURREC     GET POINTER TO LAST RECORD                  RDRS0006
          LTR   1,1           WAS THERE ONE                              RDRS0007
          BZ    READREC       NO - READ FIRST                            RDRS0008
          SR    2,2           GET KEY LENGTH                             RDRS0009
          IC    2,5(0,1)                                                 RDRS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TEMP     DS    XL88                                                     RDRS0281
 RECPTR   DC    X'0000000001'                                            RDRS0282
 SWS      DC    X'0'                                                     RDRS0283
 NOUNLD   EQU   X'80'         ON IF SHOULDN'T UNLOAD OUTPUT              RDRS0284
 SEQ      EQU   X'40'                                                    RDRS0285
 OUTA     DS    H,X,XL3,XL74,XL2    OUTPUT                               RDRS0286
          LTORG                                                          RDRS0287
          DS    0F                                                       RDRS0288
 NMTBL    DS    512XL88       512 MEMBER NAMES                           RDRS0289
          END                                                            RDRS0290
-FILE 168;   762 RECORDS:  
0PDS      TITLE ' ROUTINE TO PUNCH/PRINT A PDS'                          UNLN0001
 *********************************************************************** UNLN0002
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* UNLN0003
 *        VITAL MESSAGES FROM THE DIRECTORY RECORD FOR LOAD MODS.        UNLN0004
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* UNLN0005
 *********************************************************************** UNLN0006
          SPACE 5                                                        UNLN0007
 PDSDSECT DSECT                                                          UNLN0008
 LTH      DS    H                  LENGTH OF DIR. RECORD                 UNLN0009
 IND1     DS    X                  INDICATOR - WHAT KIND OF RECORD       UNLN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          UNLN0753
 PATCH    DS    20F                                                      UNLN0754
          LTORG                                                          UNLN0755
 TXTESDID DC    H'0'                                                     UNLN0756
 TXTBLKAD DC    A(0)                                                     UNLN0757
 TXTBLKLG DC    H'0'                                                     UNLN0758
 TXTBLK   DS    XL4096                                                   UNLN0759
          SPACE 3                                                        UNLN0760
 ID#TBL   DS    4096H                                                    UNLN0761
          END   PDSPNCH#                                                 UNLN0762
-FILE 169;    10 RECORDS:  
0BLKR     TITLE 'INPUT ROUTINE FOR LBT'S UNLINKER'                       BLKR0001
          PRINT NOGEN                                                    BLKR0002
 BLKRTN   START 0                                                        BLKR0003
          ENTER 12,SA=SA                                                 BLKR0004
          L     1,0(0,1)                                                 BLKR0005
          READ  0,(1),EXIT=EOF                                           BLKR0006
          EXIT  0                                                        BLKR0007
 EOF      EXIT  4                                                        BLKR0008
 SA       DS    18A                                                      BLKR0009
          END                                                            BLKR0010
-FILE 170;    36 RECORDS:  
0         MACRO                                                          LNMC0001
 &NAME    ENTER &ENTRY,&OPRNDS,&VLPARA,&ID=,&MF=I                        LNMC0002
          GBLB  &IHBSWA,&IHBSWB                                          LNMC0003
          GBLC  &IHBNO                                                   LNMC0004
          LCLC  &GNAME                                                   LNMC0005
 &IHBNO   SETC  '309'                                                    LNMC0006
 &GNAME   SETC  'IHB'.'&SYSNDX'                                          LNMC0007
 &IHBSWA  SETB  ('&VLPARA' EQ 'VL')                                      LNMC0008
 &IHBSWB  SETB  ('&ENTRY' EQ '(15)')                                     LNMC0009
          AIF   ('&MF' EQ 'L' AND '&ENTRY' NE '').ERROR1                 LNMC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .EXIT    MEXIT                                                          LNMC0027
 .CONTCC  ANOP                                                           LNMC0028
 &NAME    DS    0H                                                       LNMC0029
          AGO   .CONTC                                                   LNMC0030
 .ERROR1  IHBERMAC 73,&IHBNO,&ENTRY          ENTRY  W/ MF=L              LNMC0031
          MEXIT                                                          LNMC0032
 .ERROR2  IHBERMAC 74,&IHBNO,&ID             ID W/ MF=L                  LNMC0033
          MEXIT                                                          LNMC0034
 .ERROR3  IHBERMAC 26,&IHBNO                 ENTRY SYMBOL MISSING        LNMC0035
          MEND                                                           LNMC0036
-FILE 171;    34 RECORDS:  
0LIBP     START 0                                                        LIBP0001
          PRINT NOGEN                                                    LIBP0002
          ENTER 12,SA=SA                                                 LIBP0003
 LP       SCARDS IN,LEN,EXIT=EOF                                         LIBP0004
          MVI   IN,C' '                                                  LIBP0005
          MVC   NUM(11),=CL11' '                                         LIBP0006
          CLC   IN+1(3),=C'LIB'                                          LIBP0007
          BNE   PRINT                                                    LIBP0008
          CLC   IN+4(4),=C'    '                                         LIBP0009
          BE    PRINT                                                    LIBP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SA       DS    18A                                                      LIBP0025
 DBL      DS    D                                                        LIBP0026
 PAT      DC    X'402020202020214B202020'                                LIBP0027
          DS    0F                                                       LIBP0028
 OUT      DC    C'  '                                                    LIBP0029
 NUM      DC    CL11' '                                                  LIBP0030
          DC    C'   '                                                   LIBP0031
 IN       DS    CL256                                                    LIBP0032
 LEN      DS    H                                                        LIBP0033
          END                                                            LIBP0034
-FILE 172;    15 RECORDS:  
0SYM              LIBP  LPh  h  h  h  åh  h     bP    0001
 SYM           RINTh  qh  h  h  uh  y h  ܳ  EOFA  {SA    0002
 SYM             b DBLb PAT  H    b OUT  b NUM      0003
 SYM           h   a IN  b LEN   LIBP h h   h     0004
 SYM           h   h                                                0005
 ESD          LIBP          SCARDS         SPRINT                     0006
 TXT          }0{{&0}&}0ؓ0BƇ{                  	    0007
 TXT         {k AKABNAB{bNAB䌯{bA+AKAAA
A    0008
 TXT         A^{@k- KAB䍥Bʥ  {ܓ0B{        y        0009
 TXT   y            	͌0{}}q}                                    0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT         .                                                 0011
 TXT                                                                    0012
 TXT                               LIB                                  0013
 RLD                       q                      0014
 END                                                                        0015
-FILE 173;   114 RECORDS:  
0         TITLE 'PROGRAM TO WATCH FOR USER SIGNON/SIGNOFF'               BBST0001
 BBSIT    START 0                                                        BBST0002
          SPACE 2                                                        BBST0003
          PRINT NOGEN                                                    BBST0004
          SPACE 2                                                        BBST0005
          REQU                                                           BBST0006
          PRINT OFF                                                      BBST0007
          COPY  *LLMPSEQU(100)                                           BBST0008
          PRINT ON                                                       BBST0009
          SPACE 2                                                        BBST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 USER     DC    C'XXXX SIGNED-O'                                         BBST0105
 ONOFF    DC    C'FF',X'15',C'******',X'15'                              BBST0106
 LEN      EQU   *-MESSAGE                                                BBST0107
 SA       DS    18F                                                      BBST0108
          SPACE 5                                                        BBST0109
          LTORG                                                          BBST0110
          SPACE 5                                                        BBST0111
 TABLE    DS    100CL5                                                   BBST0112
          SPACE 5                                                        BBST0113
          END                                                            BBST0114
-FILE 174;    27 RECORDS:  
0SYM              BBSITh  h  h  h  h   h  Ƴc  ###1      0001
 SYM             |  ST1h  -h  ˥h  h  %h  h     ST    0002
 SYM           18  ST19  sST20  ST21  ST2h  {h  Dh  Hh      0003
 SYM           h  } h  Mc  O###3  
 ST3 ST4 ST5 ST6     0004
 SYM           ST10 ST9 +ST7 ST16 fST8 ST11 ST12 FST    0005
 SYM           13h Mh Qh h \h U h Y ST14 4ST15    0006
 SYM            ST17B BUF     &c BUFLf MESSAGE h   	h >    0007
 SYM             h ?  c #USER  d hONOFF  h   h   	h j       0008
 SYM           kA mSA   h \h Uh Yh   h 0  h 4    0009
 SYM           h 8 h h h  h   h   D TABLE          0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        -K - KC 	0{Cn  Am	0A BYq  N    0018
 TXT  &      &C AfN&BAfN&<B0AfCn  AfN& Bog    0019
 TXT  h      A+Cn  A4jAjAKBhCo0AFjAKBh    0020
 TXT  {      CmKB# 0B\A    Y  U         		0AߓB4    0021
 TXT  8      ڭk  B8ڰ0A	0A                                0022
 TXT        ************ USER XXXX SIGNED-OFF******                0023
 TXT  \                   MTSIDLE           N FF                      0024
 RLD                     -      %  {  D  H M Q     0025
 RLD              \   U   Y 	  4                            0026
 END                                                                        0027
-FILE 175;   193 RECORDS:  
0SSCN     TITLE 'PROGRAM TO SCAN *STATISTICS TAPES'                      STSC0001
          PRINT NOGEN                                                    STSC0002
 STATSCN  START 0                                                        STSC0003
          ENTER 12,SA=SA                                                 STSC0004
          MVI   SW,0                                                     STSC0005
          L     1,0(,1)            IS THERE A "PAR="?                    STSC0006
          CLC   0(3,1),PAR                                               STSC0007
          BNE   ST28               NO. IGNORE THE PAR                    STSC0008
          OI    SW,LIBF            IGNORE JOBS WITH LIBR FILE MSOURCE    STSC0009
 ST28     SPRINT ' ENTER USER ID AND DATE OR "DONE"'                     STSC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LTORG                                                          STSC0184
          SPACE 3                                                        STSC0185
 BUF      DS    34XL128                                                  STSC0186
 TABLE    DS    500CL12                                                  STSC0187
 TABLEEND DS    XL1                                                      STSC0188
          SPACE 4                                                        STSC0189
 STA      DSECT                                                          STSC0190
          COPY  MTA:STATDSECT                                            STSC0191
          SPACE 5                                                        STSC0192
          END                                                            STSC0193
-FILE 176;    56 RECORDS:  
0         EJECT                                                          SDSC0001
 *                                                                       SDSC0002
 *              STRUCTURE OF EACH RECORD FO "*STATISTICS" FILE           SDSC0003
 *                                                                       SDSC0004
          SPACE 5                                                        SDSC0005
          DS    0F                                                       SDSC0006
 STADCT   EQU   *                                                        SDSC0007
 STACB    DS    F                   ONE BYTE COUNT TO NEXT COUNT;        SDSC0008
 *                                  THREE BYTES FLAGS.                   SDSC0009
 STABB    EQU   X'40'                                                    SDSC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                   VMI BASED ON WAIT TIME.             SDSC0047
 *                                   BINARY PAGE-SEC*1000                SDSC0048
 STAEND   DS    F                                                        SDSC0049
          SPACE 3                                                        SDSC0050
 LSTAR    EQU   STAEND+1-STADCT     LENGTH OF A NORMAL STAT. RECORD      SDSC0051
          SPACE 3                                                        SDSC0052
 STAPTM   DS    F                   (OPTIONAL) PLOT TIME - SECONDS       SDSC0053
 STAFIN   DS    F                   END AFTER OPTIONAL SECTION           SDSC0054
          SPACE 3                                                        SDSC0055
 LSTAR2   EQU   STAFIN+1-STADCT     LENGTH OF EXTENDED STAT REC.         SDSC0056
-FILE 177;    39 RECORDS:  
0ESD          STATSCN       *SYSTEM         SPRINT                 SSCN0001
 ESD          SCARDS         GETFD          FREEFD                 SSCN0002
 ESD          REWIND#        GDINFO         WRITE                  SSCN0003
 ESD          FREESPAC       READ           SPUNCH                 SSCN0004
 TXT          }0E<&0}&}0k Er N Eo{oEr 0E{%   SSCN0005
 TXT                         ENTER USER ID AND DATE OR "DONE" 	͓SSCN0006
 TXT         Euk   0Ey{q  	  	m   m           	Č{&EEmSSCN0007
 TXT   y      E- n & Ag{^0EA      Q   M          USER SSCN0008
 TXT   \      ID MUST BE 2, 3, OR 4 CHARACTERS. 	͌0{0An & AgSSCN0009
 TXT        AK EQ{AEՌ {A k$k.N  E܌B0SSCN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  	o       *                                                     SSCN0030
 TXT  	                DONE  $                            XXXX    SSCN0031
 TXT  	Q         XX                                                SSCN0032
 RLD                       d  h    D  H    % SSCN0033
 RLD              8      < @  d h } M QSSCN0034
 RLD                   <  @  d h &  SSCN0035
 RLD              m q    } M 	 	 	 	 	u 	^SSCN0036
 RLD              	   	   	y 	  	   	   	   	{SSCN0037
 RLD              	D   	H   	   	M                        SSCN0038
 END                                   DATE  01-19-70 23:51             SSCN0039
-FILE 178;    65 RECORDS:  
0HSPQ     TITLE 'PROGRAM TO PRINT OUT HASP QUEUE'                        HSPQ0001
 HASPQ    START 0                                                        HSPQ0002
          PRINT NOGEN                                                    HSPQ0003
          ENTER 12,SA=SA                                                 HSPQ0004
          L     2,=V($JQENT)                                             HSPQ0005
          L     2,0(0,2)                                                 HSPQ0006
 LP       SR    1,1                                                      HSPQ0007
          IC    1,1(0,2)                                                 HSPQ0008
          N     1,=F'15'                                                 HSPQ0009
          SLL   1,3                                                      HSPQ0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OUTWH    DC    C'XXXXXXXX'                                              HSPQ0056
          DC    C' STATUS AND IS '                                       HSPQ0057
 OUTBSY   DC    C'XXXX'                                                  HSPQ0058
          DC    C', PRIORITY='                                           HSPQ0059
 OUTPRIO  DC    C'XX'                                                    HSPQ0060
          DC    C'  '                                                    HSPQ0061
 OUTPURG  DC    C'XXXXXXX'                                               HSPQ0062
 OUTE     EQU   *                                                        HSPQ0063
 OUTL     DC    Y(OUTE-OUT)                                              HSPQ0064
          END                                                            HSPQ0065
-FILE 179;   377 RECORDS:  
0         TITLE 'TO LABEL USER USED TAPES'                               ULBF0001
 ULABEL   START 0                                                        ULBF0002
          ENTER 12,SA=SAVE                                               ULBF0003
          SPACE                                                          ULBF0004
          LA    1,=A(SLIST)                                              ULBF0005
          LA    2,LUNS                                                   ULBF0006
          BAL   10,MOUNTP          MOUNT SCRATCH TAPE                    ULBF0007
 OWREAD   LA    1,=A(ENT1,OL,0)                                          ULBF0008
          L     15,=V(SERCOM)                                            ULBF0009
          BALR  14,15                                                    ULBF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HDR2     DS    0CL80                                                    ULBF0368
          DC    C'HDR2U3276732767'                                       ULBF0369
          DC    65C' '                                                   ULBF0370
 *                                                                       ULBF0371
 SAVE     DS    18F                                                      ULBF0372
 OPER      DS   CL45                                                     ULBF0373
 REPLY    DS    CL30                                                     ULBF0374
 RECORD   DS    328CL100           MUST BE AT ENDOF PROG                 ULBF0375
          SPACE 2                                                        ULBF0376
          END   ULABEL                                                   ULBF0377
-FILE 180;    79 RECORDS:  
0SYM              ULABEL  OWREAD  SEREAD  ;SCANB  :TESTN  SNFS    0001
 SYM             KTMODE  TMD PAK MOVSER UMNT !UTOSCR S    0002
 SYM           TEP2 STEP2B DSCRTOU }STEP3 4MOUNTP DEVOK     0003
 SYM           READTP &RTMS NOTMTS NOTMTS2 qEND1T ^ERROR     0004
 SYM           ERREXT RUSER OERROUT WRITETh h  h h     0005
 SYM           h < h &c ###1    @REWIND ERREXA     0006
 SYM           STEP2ND YWTM SERERRh h h h h      0007
 SYM           h Ƴc ###2   *CARDh h h h @h h    0008
 SYM            d h h mERRNUM sENDRUN wENDJ FINIh h     0009
 SYM           f [###0012  	h h }f K###0013  	 Wh YH    0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  4      HDR1                           0001             99999000    0070
 TXT        0000                                                        0071
 TXT        HDR2U3276732767                                             0072
 TXT  @                                                                  0073
 RLD                        @   Y    0074
 RLD               0  	  	 	 	 	 	 	 	  	 	    0075
 RLD              	< 	& 	 	* 	 	 	 	 	 	@ 	 	 	    0076
 RLD              8   	   	 	  	   	   	d   	    0077
 RLD              	D   	H                                            0078
 END                                                                       0079
-FILE 181;   252 RECORDS:  
0LABEL  CSECT                                                            ULBE0001
        TITLE  'EMPTY TAPE LABELLING'                                    ULBE0002
 *                                                                       ULBE0003
 *          REGISTER EQUATES                                             ULBE0004
 *                                                                       ULBE0005
 R0     EQU     0                                                        ULBE0006
 R1     EQU     1                                                        ULBE0007
 R2     EQU     2                                                        ULBE0008
 R3     EQU     3                                                        ULBE0009
 R4     EQU     4                                                        ULBE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       ULBE0243
 WTM    DC      C'WTM'                                                   ULBE0244
 REW     DC      C'REW'                                                  ULBE0245
 RUN    DC      C'RUN'                                                   ULBE0246
 MODE   DC    C'800 '                                                    ULBE0247
 FNAME DC      C'*LABEL* '                                               ULBE0248
 *                                                                       ULBE0249
 SAVE   DS      18F                                                      ULBE0250
 *                                                                       ULBE0251
        END     LABEL                                                    ULBE0252
-FILE 182;    50 RECORDS:  
0SYM              LABEL  +GUNITS  GOWNR  MOUNT  hPMSG  SCANB     0001
 SYM            }TESTN  0SMODE MOVEN SERERR NEXTU AA DE    0002
 SYM           VOK &WVOL hBB ENDRUN EXIT 8WRITEh h     0003
 SYM           h h h h h  h  PRINTh h      0004
 SYM           h h h < h & WEOF !WCCh h h     0005
 SYM           h @h h dh h h ݳ kERR CARDc BEM    0006
 SYM           SG  c WERNO  c 0ENDD  d ENTER  d LINE1  d <L    0007
 SYM           INE2   )d -RDPARh ˥h h %d COUNT     0008
 SYM           c MODSc LINOd @REPLY  c PDECc qNUMBd     0009
 SYM           UNIT1  d sUNIT2  d UNIT3  d UNIT4   [c UN    0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                                    0041
 TXT        HDR1                           0001             99999000    0042
 TXT  -      0000                                                        0043
 TXT        HDR2U3276732767                                             0044
 TXT  ^                              WTMREWRUN800 *LABEL*                0045
 TXT  	         1600    HDR1HDR2EOF1EOF2           0                   0046
 TXT  	-      800                                                         0047
 RLD                       @  -      0048
 RLD              %   	   	   	 	  	&                    0049
 END                                                                       0050
-FILE 183;    75 RECORDS:  
0PBAT     TITLE '****DUMPS BATCH FILE ON TAPE****'                       PBAT0001
 PBAT     CSECT                                                          PBAT0002
          SVE                                                            PBAT0003
          LA    R0,3                                                     PBAT0004
          SVC   LOCK                                                     PBAT0005
          LM    R0,R1,=C'SCARDS  '                                       PBAT0006
          L     R15,=V(GDINFO)                                           PBAT0007
          BASR  R14,R15                                                  PBAT0008
          MVC   UNIT,0(R1)                                               PBAT0009
 PBAT2    LA    R1,PAR             GET A RECORD                          PBAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RAND     DS    F                                                        PBAT0066
 COUNT    DS    H                                                        PBAT0067
 BATTAB   DS    256C                                                     PBAT0068
 BUFF     DS    256C                                                     PBAT0069
          EQUS                                                           PBAT0070
 LOCK     EQU   58                                                       PBAT0071
 UNLOCK   EQU   59                                                       PBAT0072
 SSCR     EQU   SA+12                                                    PBAT0073
 RJBBUF   EQU   X'44'                                                    PBAT0074
          END   PBAT                                                     PBAT0075
-FILE 184;    15 RECORDS:  
0ESD          PBAT          GDINFO         SCARDS                 PBAT0001
 ESD          URAND          SPUNCH         DSRDISPV               PBAT0002
 ESD          LASTJOB        EMPTY                                  PBAT0003
 TXT          }\} (}0                                            PBAT0004
 TXT         &\}&}\  qL˓0L%KJ& J0LČJڍ J- LPBAT0005
 TXT         }Fn\K匿}FNLKi}F2}K|0}&0J*oJ L0L@͓0J*PBAT0006
 TXT   D      3J/} 0}  }4Kk 0 K(00 KJ-LJ0L\}P PBAT0007
 TXT         KJ0Ld00Lh !0(\}4o0  J&0L(\}4m"0   PBAT0008
 TXT        ē}}\}q}    >  %  -    *                PBAT0009
 TXT  -                                                              PBAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        SCARDS          DECK                       &          PBAT0011
 RLD               < &   d      @   h    PBAT0012
 RLD            	        m   q                        PBAT0013
 END                                                                   PBAT0014
  LCS            LCSYMBOL                                                        
-FILE 185;     5 RECORDS:  
0$SET ECHO=OFF                                                                   
 $RUN *MOUNT PAR=POOL ON 9TP *TAPE* 'TAPE FOR INPUT TO HASP - RING IN'           
 $SET IC=OFF                                                                     
 $RUN PBATO SCARDS=*QUIP SPUNCH=*TAPE*                                           
 $SIG SHORT                                                                      
-FILE 186;   329 RECORDS:  
0DRMI    TITLE 'PROGRAM TO INITIALIZE DRUM'                              DNIT0001
 DRUMINIT START 0                                                        DNIT0002
          SPACE 5                                                        DNIT0003
 STIO     EQU   2                                                        DNIT0004
 WAIT     EQU   3                                                        DNIT0005
 SILI     EQU   X'20'                                                    DNIT0006
          SPACE 5                                                        DNIT0007
          USING *,15                                                     DNIT0008
          BALR  10,0                                                     DNIT0009
          DROP  15                                                       DNIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
         MVC   EXTNEW(8),STARTL                                          DNIT0320
         LPSW  WAIT                                                      DNIT0321
 *                                                                       DNIT0322
 EXTNEW  EQU   88                                                        DNIT0323
         DS    0D                                                        DNIT0324
 STARTL  DC    X'FF000000'                                               DNIT0325
         DC    V(DRUMINIT)                                               DNIT0326
 WAIT    DC    X'FF020055'                                               DNIT0327
         DC    X'05050505'                                               DNIT0328
         END                                                             DNIT0329
-FILE 187;   263 RECORDS:  
0        ^    -                                                  IPL CARD
 TXT          ^   -   ^   -   ^   :          BSLD0003
 TXT        	{K   ʯ{ &   {  {j {b {u{}nX{BSLD0004
 TXT        {<nE{{!nN{{1{O{o0{q{M&{硋{\{\BSLD0005
 TXT  :      {^q{\ i& i   - {: -  0{K  { Q    BSLD0006
 TXT  ^                     	                  BSLD0007
 TXT         {& &K -^K  -K b y                      BSLD0008
 TXT  y           D      	&     	                                BSLD0009
 TXT  {      ʥ&k	 ʥ&    	  jBSLD0010
 TXT  8       	j3 &	&ʥ n  &-   j0  BSLD0011
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 END                                                                        0007
 ESD          ERROR          SYSTEM        DRUMINIT                   0001
 TXT          K 0b 0                                                  0002
 TXT                 				                                            0003
  REP  000009  0118  STOP AFTER EACH               SUOUNITNOC  0110  900000  PER 
  REP  000010  0101                                                              
  REP  000018  0101                                                              
 RLD                                                                   0004
 END                                                                        0005
  LDT            ERROR                                                           
-FILE 188;  3315 RECORDS:  
0         MACRO                                                          OLTS0001
 &NAME    BLD   &FORMS=,&HEAD=,&COMMENT=,&RESULTS=                       OLTS0002
          GBLC  &START                                                   OLTS0003
          LCLA  &CTR1,&CTR2,&MCONT,&T2CON                                OLTS0004
          LCLA  &BUK1,&BUK2                                              OLTS0005
          LCLC  &RSTOR,&A                                                OLTS0006
 .* BLD   BUILD A LIST OF PRINT CONTROL WORDS                            OLTS0007
 .*                                                                      OLTS0008
 .* THE BLD MACRO GENERATES A GROUP OF CONSTANTS WHICH                   OLTS0009
 .* THE PRINT ROUTINE INTERPRETS AS CONTROL WORDS.                       OLTS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IFD035   WTOT  'IFD035D IS A TELEPROCESSING JOB ACTIVE? REPLY YES OR NOXOLTS3306
                .',MF=L                                                  OLTS3307
 IFD036   WTOT  'IFD036I TELEPROCESSING IS ACTIVE. TIMING TEST BYPASSED.XOLTS3308
                ',MF=L                                                   OLTS3309
 IFD037   WTOT  'IFD037I SNS-XXXXXXXXXXXX CSW-XXXXXXXXXXXXXXXX',MF=L     OLTS3310
 IFD038   WTOT  'IFD038D 30 SEC T/O WITH NO INTERRUPT. UNIT XXXX REPLY WXOLTS3311
                AIT OR CANCEL',MF=L                                      OLTS3312
 IFD039   WTOT  'IFD039D TO CONTINUE,ENTER ONE OF THE FOLLOWING--TERM,FPXOLTS3313
                M,OR RETRY.',MF=L                                        OLTS3314
          END   IFDOLT00                                                 OLTS3315
-FILE 189;    74 RECORDS:  
0TDIR     TITLE 'DIRECTORY OF TESTS AVAILABLE TO OLTS'                   OLTT0001
 TESTDIR  CSECT                                                          OLTT0002
          DC    C'T2400A  '                                              OLTT0003
          DC    C'T2400B  '                                              OLTT0004
          DC    C'T2400C  '                                              OLTT0005
          DC    C'T2400D  '                                              OLTT0006
          DC    C'T2400E  '                                              OLTT0007
          DC    C'T2400F  '                                              OLTT0008
          DC    C'T2400G  '                                              OLTT0009
          DC    C'T2400H  '                                              OLTT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'T1403K  '                                              OLTT0065
          DC    C'T1403L  '                                              OLTT0066
          DC    C'T1403M  '                                              OLTT0067
          DC    C'T1403N  '                                              OLTT0068
          DC    C'T1403O  '                                              OLTT0069
          DC    C'T1403P  '                                              OLTT0070
          DC    C'T1403Q  '                                              OLTT0071
          DC    C'T1403R  '                                              OLTT0072
          DC    C'ENDTESTS'                                              OLTT0073
          END                                                            OLTT0074
-FILE 190;  1088 RECORDS:  
0TFHW     TITLE 'T2400W TAPE TEST'                                       T24W0001
          MACRO                                                          T24W0002
 &NAME    BLD   &FORMS=,&HEAD=,&COMMENT=,&RESULTS=                       T24W0003
          GBLC  &START                                                   T24W0004
          LCLA  &CTR1,&CTR2,&MCONT,&T2CON                                T24W0005
          LCLA  &BUK1,&BUK2                                              T24W0006
          LCLC  &RSTOR,&A                                                T24W0007
 &A       SETC  '&NAME'                                                  T24W0008
          CNOP  0,4                                                      T24W0009
          SPACE 2                                                        T24W0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PEMODE   DC    C'P.E.'                                                  T24W1079
 BKWDSW   DC    X'00'                                                    T24W1080
 NORMSW   DC    X'00'                                                    T24W1081
 MD2415   DC    C'2415'                                                  T24W1082
 MODSWC   DC    X'00'                                                    T24W1083
 MODSET   DC    X'B3'                                                    T24W1084
 MODREF   DC    X'00'                                                    T24W1085
 PASFLG   DC    X'00'                                                    T24W1086
          LTORG                                                          T24W1087
          END                                                            T24W1088
-FILE 191;    39 RECORDS:  
0FC11     TITLE 'FUNCTION 10 AND 11 FROM OS OLTS SVC'                    OLTF0001
 FCN1011  CSECT                                                          OLTF0002
 *        PARAMTERS:                                                     OLTF0003
 *              R0:  LOC OF PARAMTER LIST                                OLTF0004
 *                  WORD 1: CCW LIST LOCATION                            OLTF0005
 *                  WORDS 2 TO 5:  TIMING PARAMS FROM TEST SECTION       OLTF0006
 *                  WORD 6:  LOGICAL DEVICE NUMBER                       OLTF0007
 *                  WORDS 7 TO 9:  RETURNS LIST                          OLTF0008
 *              R1:  1 IF FUCTION 10, 2 IF FUCNTION 11                   OLTF0009
          SPACE 5                                                        OLTF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ERR      SR    R1,R1              ERROR CODE                            OLTF0030
          LR    RF,R1         SET UP RETURN VALUE                        OLTF0031
          L     RD,4(0,RD)    RETURN                                     OLTF0032
          L     RE,12(0,RD)                                              OLTF0033
          LM    R0,RC,20(RD)                                             OLTF0034
          BR    RE                                                       OLTF0035
 *                                                                       OLTF0036
 RTNL     DC    A(0,ERR,ERR),5A(0)                                       OLTF0037
 SA       DS    18A                                                      OLTF0038
          END                                                            OLTF0039
-FILE 192;  2834 RECORDS:  
0          MACRO                                                         REX00001
 &LOC      TBL     &MESS                                                 REX00002
           LCLC    &A                                                    REX00003
           LCLC    &B                                                    REX00004
 &A        SETC    '&MESS'                                               REX00005
 &B        SETC    'L'''                                                 REX00006
 &LOC      DC      AL1(&B&A),AL3(&MESS)                                  REX00007
           MEND                                                          REX00008
           MACRO                                                         REX00009
 &Q        SIOR                                                          REX00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 M00A1     DC      C'XXX'                                                REX02825
 M00A2     DC      C'XXX'                                                REX02826
 M00A3     DC      C'XXX'                                                REX02827
 M00A4     DC      C'XXX'                                                REX02828
 M00A5     DC      C'XXX'                                                REX02829
 M00A6     DC      C'XXX'                                                REX02830
 M00A7     DC      C'XXX'                                                REX02831
           DS      1F                                                    REX02832
 OUTP      DS      5CL4100                                               REX02833
           END                                                           REX02834
-FILE 193;  2066 RECORDS:  
0UDT* 0200 D200 2314 11223344556677                                      REXC0001
 UDT* 0210 D210 2314 11223344556677                                      REXC0002
 UDT* 0878 ARU0      91A2B3C4D5E6F7                                      REXC0003
 UDT* 00D0 CEL1      12                                                  REXC0004
 UDT* 0080 DC00      112233445566778899                                  REXC0005
 UDT* 008A DC10      B1C2D3E4F5                                          REXC0006
 UDT* 0090 DC16      172839                                              REXC0007
 UDT* 0094 DC20      5162738495A6B7C8D9                                  REXC0008
 UDT* 009E DC30      F1                                                  REXC0009
 UDT* 00A0 DC32      13243546576879                                      REXC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      0000 0000                                                          REXC2057
 CC6  S6   03FF 03FF 3E                                                  REXC2058
      0000 0000                                                          REXC2059
 CC7  S7   02FF 0100 F7C                                                 REXC2060
      FFFF F7E                                                           REXC2061
 CC8  S8   02FF 0100 F7C                                                 REXC2062
      FFFF F7E                                                           REXC2063
 CC9  F67  0000 0000 0000 0000 0000                                      REXC2064
 **END                                                                   REXC2065
 **LAST                                                                  REXC2066
-FILE 194;    23 RECORDS:  
0RIPL     TITLE 'RIPPLE PRINT'                                           RPLE0001
 RIPPLE   START 0                                                        RPLE0002
          PRINT NOGEN                                                    RPLE0003
          ENTER 12,SA=SA                                                 RPLE0004
 LP1      LA    2,OUT+59                                                 RPLE0005
          LA    3,60                                                     RPLE0006
 LP2      MVI   0(2),C'9'                                                RPLE0007
          MVC   1(1,2),61(2)                                             RPLE0008
          SPRINT (2),133,@CC                                             RPLE0009
          BCTR  2,0                                                      RPLE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OUT      DS    0C                                                       RPLE0014
          DC    C'1234567890XY/STUVW|:_",='                              RPLE0015
          DC    C'JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;''?>'                RPLE0016
          DC    C'1234567890XY/STUVW|:_",='                              RPLE0017
          DC    C'JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;''?>'                RPLE0018
          DC    C'1234567890XY/STUVW|:_",='                              RPLE0019
          DC    C'JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;''?>'                RPLE0020
          DC    C'1234567890XY/STUVW|:_",='                              RPLE0021
          DC    C'JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;''?>'                RPLE0022
          END                                                            RPLE0023
-FILE 195;    14 RECORDS:  
0SYM              RIPPLE  LP1  LP2h  h  h  h   h   hRIPL0001
 SYM               A  SA  B  OUT      h    h    h    hRIPL0002
 SYM             4  h   h   h   h %     RIPPLEh       RIPL0003
 ESD          RIPPLE        mSPRINT                                 RIPL0004
 TXT          }0{& & ʥ{ k9 K  &{0A{   RIPL0005
 TXT                       e	ͺ{0{                          RIPL0006
 TXT         1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&@<;RIPL0007
 TXT   Q      '?>1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#RIPL0008
 TXT        &@<;'?>1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)RIPL0009
 TXT        %$*#&@<;'?>1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHRIPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        I+.)%$*#&@<;'?>                                        RIPL0011
 TXT                                                                RIPL0012
 RLD                                                        RIPL0013
 END                                                                    RIPL0014
-FILE 196;   769 RECORDS:  
0OPR2     TITLE 'MTS JOB TO MONITOR THE STATUS OF THE SYSTEM AND FAKE OP&OPER0001
                ERATORS CONSOLE FUNCTIONS'                               OPER0002
 OPER2260 CSECT                                                          OPER0003
          SPACE 4                                                        OPER0004
 *********************************************************************** OPER0005
 *                                                                     * OPER0006
 *              SUPERVISOR CALL EQU'S                                  * OPER0007
 *                                                                     * OPER0008
 *                                                                     * OPER0009
 *********************************************************************** OPER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 4                                                        OPER0760
 HQPRINT  DSECT                                                          OPER0761
          DS    CL36                                                     OPER0762
 HQDIS    DS    CL7                                                      OPER0763
 HQDSKQ   DS    CL3,CL7                                                  OPER0764
 HQXECQ   DS    CL4,CL6                                                  OPER0765
 HQPTRQ   DS    CL4,CL6                                                  OPER0766
 HQPCHQ   DS    CL3,CL5                                                  OPER0767
          SPACE 4                                                        OPER0768
          END                                                            OPER0769
-FILE 197;   734 RECORDS:  
0OPR2     TITLE 'MTS JOB TO MONITOR THE STATUS OF THE SYSTEM AND FAKE OP&OPER0001
                ERATORS CONSOLE FUNCTIONS'                               OPER0002
 OPER2260 CSECT                                                          OPER0003
          SPACE 4                                                        OPER0004
 *********************************************************************** OPER0005
 *                                                                     * OPER0006
 *              SUPERVISOR CALL EQU'S                                  * OPER0007
 *                                                                     * OPER0008
 *                                                                     * OPER0009
 *********************************************************************** OPER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 4                                                        OPER0725
 HQPRINT  DSECT                                                          OPER0726
          DS    CL36                                                     OPER0727
 HQDIS    DS    CL7                                                      OPER0728
 HQDSKQ   DS    CL3,CL7                                                  OPER0729
 HQXECQ   DS    CL4,CL6                                                  OPER0730
 HQPTRQ   DS    CL4,CL6                                                  OPER0731
 HQPCHQ   DS    CL3,CL5                                                  OPER0732
          SPACE 4                                                        OPER0733
          END                                                            OPER0734
-FILE 198;   258 RECORDS:  
0SYM              OPER2260g  IHB0003B  GET2g  &IHB0004B  GETCOPR20001
 SYM           HECK  HSHLN  HSHFND  yREINITG  GENERATE       AOPR20002
 SYM           TNPOOLE CALLME      *FREEZE FREEZH MAKEOPER OPR20003
 SYM           \MAKEUSER SRCHJTL1 SRCHJTL3 SRCHJTL4 SRCHJTOPR20004
 SYM           L5 SRCHJTL6 SRCHJTL2 qSRCHJTL7 MAKEHASP QBUOPR20005
 SYM           FTST HASPGEN WRDSP1 REFRESH#  WRDSP2C POOFOPR20006
 SYM                 hNODEVICEh h mh qh h  h uc OPR20007
 SYM           w###1   DATNPROC PGNTh 0h 4h 8h h  OPR20008
 SYM            h c ###2  h  c IOCC  g  INPUTOPR  |f OPR20009
 SYM           USEROUT  g pUSERPDP8 h   f USERIBM h u  g OPR20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD              u    D  M  U  4  OPR20245
 RLD                      <  *  %OPR20246
 RLD               @ d  m  u    D  MOPR20247
 RLD               U  4         OPR20248
 RLD               <  *  %  @ d    ^OPR20249
 RLD                    &    {   h 	     DOPR20250
 RLD                 0      U                        OPR20251
 END                                                                    OPR20252
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 199;   147 RECORDS:  
0BATSCAN  CSECT                                                          SCN00001
          USING PROLOG,10                                                SCN00002
 PROLOG   STM   14,12,12(13)                                             SCN00003
          LR    10,15                                                    SCN00004
          LA    12,SAVE                                                  SCN00005
          ST    13,4(0,12)                                               SCN00006
          ST    12,8(0,13)                                               SCN00007
          LR    13,12                                                    SCN00008
          B     START                                                    SCN00009
 EPILOG   L     13,4(0,13)                                               SCN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LINENR   DC    F'0'                                                     SCN00138
 LEN      DC    H'0'                                                     SCN00139
 H080     DC    H'80'                                                    SCN00140
 SW       DC    X'0'                                                     SCN00141
          SPACE                                                          SCN00142
 JOBS     EQU   1                                                        SCN00143
 S8       EQU   2                                                        SCN00144
 EIGHTY   EQU   128                                                      SCN00145
 NOT      EQU   255                                                      SCN00146
          END                                                            SCN00147
-FILE 200;   196 RECORDS:  
0ACAT     TITLE 'SUBROUTINE TO RETURN DISK AND DATACELL STATISTICS'      ACAT0001
 ACATALOG START 0                                                        ACAT0002
 *        ON INPUT R0 CONTAINES USERID                                   ACAT0003
 *        ON OUTPUT R0 HAS DISK AND DATACELL  FILES                      ACAT0004
 *                  R1 HAS DISK AND DATACELL PAGES                       ACAT0005
 *         RETURN CODES                                                  ACAT0006
 *         0=OK                                                          ACAT0007
 *         4=PAGE COUNT NOT CORRECT(BOTH DISK AND DC)                    ACAT0008
 *         PROBABLY DUE TO DATACELL DOWN                                 ACAT0009
 *        R0 STILL HAS CORRECT FILE COUNTS                               ACAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LTORG                                                          ACAT0187
          SPACE                                                          ACAT0188
          CNOP  0,8                                                      ACAT0189
 FCB      DS    70F                                                      ACAT0190
 SCR      DS    250F                                                     ACAT0191
 CYLSIZAD EQU   52                                                       ACAT0192
 TRKLENAD EQU   54                                                       ACAT0193
 DTYPEAD  EQU   30                                                       ACAT0194
          COPY  *CATEQU                                                  ACAT0195
          END                                                            ACAT0196
-FILE 201;    70 RECORDS:  
0ACCDCT   DS    AL1(ENDREC-ACCDCT-2)    COUNT TO NEXT COUNT              AFMT0001
 FLAGS    DS    XL3'0'             FLAGS:  0-PRIVILEGED, 2-IN USE,       AFMT0002
 *                                 3-IGNORE TERMINAL MAXIMUM, 4-LIBRARY  AFMT0003
 *                                 FILE PRIVILEGE, 5-NO CHANGE, 6-FILE   AFMT0004
 *                                 SPACE ERROR, 7-IGNORE PLOTTING        AFMT0005
 *                                 MAXIMUM                               AFMT0006
 ACCUAN   DS    F'0'               UNIVERSITY ACCOUNT NUMBER             AFMT0007
 ACCPN    DS    CL4                PROJECT NUMBER                        AFMT0008
 ACCMDT   DS    H'0'               MAXIMUM FILE (PAGES)                  AFMT0009
 ACCMFUB  DS    H'0'               MAXIMUM BULK FILE (PAGES)             AFMT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                   *100000)                              AFMT0061
 ACCRPLT  DS    H                  PLOTTING RATE (DOLLARS/SEC*100000)    AFMT0062
 ACCPTR   DS    F                                                        AFMT0063
          DS    AL1(ENDWRITE-ENDREC-1)  COUNT TO NEXT COUNT              AFMT0064
 ENDREC   EQU   *                  END OF FIXED PORTION OF RECORD        AFMT0065
 ACCPWFLG DS    C'P'               PASSWORD FLAG                         AFMT0066
 ACCPWLEN DS    X                  PASSWORD LENGTH                       AFMT0067
 ACCPW    DS    CL6                PASSWORD                              AFMT0068
          DS    X'FF'                                                    AFMT0069
 ENDWRITE EQU   *                  END OF PHYSICAL RECORD                AFMT0070
-FILE 202;    11 RECORDS:  
0%BEFORE  AFMT0002                                                               
 FLAGS    DS    XL3'0'             FLAGS:  0-PRIVILEGED, 2-IN USE,               
 *                                 3-IGNORE TERMINAL MAXIMUM, 4-LIBRARY          
 *                                 FILE PRIVILEGE, 5-NO CHANGE, 6-FILE           
 *                                 SPACE ERROR, 7-IGNORE PLOTTING                
 *                                 MAXIMUM                                       
 %DELETE  AFMT0002   AFMT0004                                                    
 %BEFORE  AFMT0042                                                               
 ACCEXPJD DS    F'0'               EXPIRATION (JULIAN MINUTES)                   
 %DELETE  AFMT0042                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEF      FILEMARK                                                              
-FILE 203;    25 RECORDS:  
0         DC    H'0'               BILLING CLASS 0                       ARAT0001
          DC    H'59'              TERMINAL RATE                         ARAT0002
          DC    H'513'             VIRTUAL MEMORY RATE OVER CPU TIME     ARAT0003
          DC    H'103'             VIRTUAL MEMORY RATE OVER WAIT TIME    ARAT0004
          DC    H'6417'            CPU RATE                              ARAT0005
          DC    H'62'              LINES PRINTED RATE                    ARAT0006
          DC    H'395'             PAGES PRINTED RATE                    ARAT0007
          DC    H'650'             CARDS PUNCHED RATE                    ARAT0008
          DC    H'134'             CARDS READ RATE                       ARAT0009
          DC    H'26'              FILE STORAGE RATE                     ARAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    H'139'                                                   ARAT0016
          DC    H'8556'                                                  ARAT0017
          DC    H'80'                                                    ARAT0018
          DC    H'395'                                                   ARAT0019
          DC    H'695'                                                   ARAT0020
          DC    H'155'                                                   ARAT0021
          DC    H'35'                                                    ARAT0022
          DC    H'8'                                                     ARAT0023
          DC    H'1528'                                                  ARAT0024
 RATELEN  EQU   24                                                       ARAT0025
-FILE 204;    14 RECORDS:  
0MAXFLAGS DS    XL4                FLAGS:  3-IGNORE TERMINAL MAXIMUM,   1APFT0001
                                   7-IGNORE PLOTTING MAXIMUM             APFT0002
 UAN      DS    F                  UNIVERSITY ACCOUNT NUMBER             APFT0003
 IDRN     DS    F                  IDR NUMBER                            APFT0004
 UNIT     DS    F                  SCHOOL, UNIT, SUB-UNIT CODE           APFT0005
 MAXEXPJD DS    F                  MAXIMUM EXPIRATION (JULIAN MINUTES)   APFT0006
 SIGNONID DS    CL4                AUTHORIZED SIGNON ID                  APFT0007
 MAXM$    DS    F                  MAXIMUM CHARGE (DOLLARS*10000)        APFT0008
 MAXMDT   DS    F                  MAXIMUM FILE (PAGES)                  APFT0009
 MAXMFUB  DS    F                  MAXIMUM DATA CELL (PAGES)             APFT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MAXMTM   DS    F                  MAXIMUM TERMINAL (MINUTES)            APFT0011
 MAXMPLT  DS    F                  MAXIMUM PLOTTING (MINUTES)            APFT0012
 DIRPTR   DS    A                  DIRECTORY ENTRY POINTER               APFT0013
 BC       DS    H                  BILLING CLASS                         APFT0014
-FILE 205;    17 RECORDS:  
0%BEFORE  'PFMT0001'                                                             
 MAXFLAGS DS    XL4                FLAGS:  3-IGNORE TERMINAL MAXIMUM,   1        
                                   7-IGNORE PLOTTING MAXIMUM                     
 UAN      DS    F                  UNIVERSITY ACCOUNT NUMBER                     
 IDRN     DS    F                  IDR NUMBER                                    
 UNIT     DS    F                  SCHOOL, UNIT, SUB-UNIT CODE                   
 MAXEXPJD DS    F                  MAXIMUM EXPIRATION (JULIAN MINUTES)           
 SIGNONID DS    CL4                AUTHORIZED SIGNON ID                          
 MAXM$    DS    F                  MAXIMUM CHARGE (DOLLARS*10000)                
 MAXMDT   DS    F                  MAXIMUM FILE (PAGES)                          
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MAXMFUB  DS    F                  MAXIMUM DATA CELL (PAGES)                     
 MAXMTM   DS    F                  MAXIMUM TERMINAL (MINUTES)                    
 MAXMPLT  DS    F                  MAXIMUM PLOTTING (MINUTES)                    
 DIRPTR   DS    A                  DIRECTORY ENTRY POINTER                       
 BC       DS    H                  BILLING CLASS                                 
 %DELETE  'PFMT0001' 'PFMT0005'                                                  
 %BEF      FILEMARK                                                              
-FILE 206;   173 RECORDS:  
0AERR     TITLE 'MTS ACCOUNTING FILE RECORD ERROR DETECTION PROGRAM--22 1AERR0001
                OCT 68'                                                  AERR0002
          MACRO                                                          AERR0003
 &NAME    BNEI  &A,&I                                                    AERR0004
 &NAME    CLI   &A,&I              BRANCH ON NOT EQUAL IMMEDIATE         AERR0005
          BNE   PRINT                                                    AERR0006
          MEND                                                           AERR0007
          SPACE 5                                                        AERR0008
          MACRO                                                          AERR0009
 &NAME    TMBNZ &A,&M                                                    AERR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * AERR0164
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * AERR0165
 *                                                                     * AERR0166
 *********************************************************************** AERR0167
          SPACE 5                                                        AERR0168
 RECORD   DSECT                                                          AERR0169
          COPY  ACCFORMAT                                                AERR0170
          ORG   RECORD+255                                               AERR0171
          SPACE 5                                                        AERR0172
          END                                                            AERR0173
-FILE 207;     4 RECORDS:  
0%BEF AERR0062                                                                   
          TMBNZ FLAGS,X'40'        FIRST  FLAG  BYTE                     AERR    
 %DEL AERR0062                                                                   
 %BEF FILEMK                                                                     
-FILE 208;   387 RECORDS:  
0APRT     TITLE 'MTS ACCOUNTING RECORD PRINT PROGRAM--2 JUL 69'          APRT0001
 *********************************************************************** APRT0002
 *                                                                     * APRT0003
 *        ACCPRINT                                                     * APRT0004
 *                                                                     * APRT0005
 *        GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY.          * APRT0006
 *              WORD1  ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* APRT0007
 *              WORD2  ADDRESS OF AN AREA CONTAINING THE ACCOUNTING    * APRT0008
 *                     RECORD TO BE PRINTED.                           * APRT0009
 *              WORD3  ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* APRT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** APRT0378
 *                                                                     * APRT0379
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * APRT0380
 *                                                                     * APRT0381
 *********************************************************************** APRT0382
          SPACE 5                                                        APRT0383
 RECORD   DSECT                                                          APRT0384
          COPY  ACCFORMAT                                                APRT0385
          ORG   RECORD+255                                               APRT0386
          END                                                            APRT0387
-FILE 209;   104 RECORDS:  
0%BEFORE  APRT0001                                                               
 APRT     TITLE 'MTS ACCOUNTING RECORD PRINT PROGRAM--2 JUL 69'                  
 %DELETE  APRT0001                                                               
 %DELETE  APRT0038   APRT0041                                                    
 %DELETE  APRT0057   APRT0058                                                    
 %DELETE  APRT0109   APRT0124                                                    
 %BEFORE  APRT0192                                                               
 &NAME    TIMDAT    &JULTIM,&DATE,&TIME                                          
 .**********************************************************************         
 .*                                                                    *         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HEAD7    DC    C'            CUM PLOT           CUM PUNCH LAST SIG   PG1        
                 RT     UNIT'                                                    
 HEAD8    DC    C'                               CUM READ  TIM/DATE   PC1        
                H RT'                                                            
 %DELETE  APRT0418   APRT0431                                                    
 %BEFORE  APRT0438                                                               
 PTRHEAD1 DC    CL130'1 SIGNON   MAX CHARGE  MX FIL CUM CPU VM LAST CUM 1        
                BILL CLS   READ RT'                                              
 %DELETE  APRT0438   APRT0439                                                    
 %BEF      FILEMARK                                                              
-FILE 210;    84 RECORDS:  
0ALST     TITLE 'MTS ACCOUNTING LISTING PROGRAM--18 OCT 68'              ALST0001
 *********************************************************************** ALST0002
 *                                                                     * ALST0003
 *        ACCLIST                                                      * ALST0004
 *                                                                     * ALST0005
 *        LISTS THE MTS ACCOUNTING FILE.                               * ALST0006
 *                                                                     * ALST0007
 *********************************************************************** ALST0008
          SPACE 5                                                        ALST0009
 ACCLIST  START                                                          ALST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 F2       DC    F'2'                                                     ALST0075
 RECORD   DS    CL256                                                    ALST0076
 SAVE     DS    18F                                                      ALST0077
 SIGNONID DC    X'80000000'                                              ALST0078
 COUNT    DS    H                                                        ALST0079
 H23      DC    H'23'                                                    ALST0080
 BLANKS   DC    CL10' '                                                  ALST0081
 NRRECMSG DC    C'- ',X'2020202120',C' RECORDS IN FILE'                  ALST0082
          SPACE 5                                                        ALST0083
          END                                                            ALST0084
-FILE 211;   241 RECORDS:  
0AINT     TITLE 'MTS ACCOUNTING FILE INITIALIZATION PROGRAM--26 SEP 69'  AINT0001
 *********************************************************************** AINT0002
 *                                                                     * AINT0003
 *        ACCINITL                                                     * AINT0004
 *                                                                     * AINT0005
 *        RC=0  NORMAL RETURN.                                         * AINT0006
 *           4  ERROR IN OBTAINING ACCOUNTING FILE, SOME DISK, OR      * AINT0007
 *              CLOSING ACCOUNTING FILE.                               * AINT0008
 *                                                                     * AINT0009
 *        ACCFILUP                                                     * AINT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * AINT0232
 *        ACCOUNTING RECORD STORAGE                                    * AINT0233
 *                                                                     * AINT0234
 *********************************************************************** AINT0235
          SPACE 5                                                        AINT0236
 RECORD   DS    0F                                                       AINT0237
          COPY  ACCFORMAT                                                AINT0238
          ORG   RECORD+255                                               AINT0239
          SPACE 5                                                        AINT0240
          END                                                            AINT0241
-FILE 212;   132 RECORDS:  
0%BEFORE  'AINT0001'                                                             
 AINT     TITLE 'MTS ACCOUNTING FILE INITIALIZATION PROGRAM--26 SEP 69'          
 %DELETE  'AINT0001'                                                             
 %BEFORE  'AINT0024'                                                             
 .*       WHERE  START OF SIX CHARACTER AREA WHERE RESULT IS TO BE     *         
 %DELETE  'AINT0024'                                                             
 %BEFORE  'AINT0030'                                                             
          MVC   MASK,=X'402020202120'   GET EDIT MASK                            
          LA    R1,MASK+5                                                        
          EDMK  MASK,DOUBLE+5      ELIMINATE LEADING ZEROES                      
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HEAD     DC    C' SIGNON  ODP    NDP    ODF    NDF    ODCP   NDCP   ODC1        
                F   NDCF'                                                        
 MASK     DS    CL6                                                              
 MISMSG   DC    C' ***        IS NOT AVAILABLE'                                  
 NOLOKMSG DC    C'0(* INDICATES LOCK FLAG WAS NOT SET)'                          
 NRRECMSG DC    C' ',X'2020202120',C' RECORDS RESTORED AT INITIALIZATION1        
                '                                                                
 PRINTLIN DC    CL62' '                                                          
 %DELETE  'AINT0170' 'AINT0183'                                                  
 %BEF      FILEMARK                                                              
-FILE 213;   323 RECORDS:  
0STAT     TITLE 'ACCOUNTING STATUS FOR MTS USER--17 DEC 69'              STAT0001
          MACRO                                                          STAT0002
 &NAME    WRITE &OUTPUT,&LEN                                             STAT0003
 .********************************************************************** STAT0004
 .*                                                                    * STAT0005
 .*       OUTPUT  THE OUTPUT LINE TO BE PRINTED.                       * STAT0006
 .*       LEN     A HALF WORD CONTAINING THE LENGTH OF 'OUTPUT'.       * STAT0007
 .*                                                                    * STAT0008
 .********************************************************************** STAT0009
 &NAME    LA    R1,=A(&OUTPUT,&LEN,0)                                    STAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * STAT0314
 *        INPUT AREA FOR ACCOUNTING RECORD                             * STAT0315
 *                                                                     * STAT0316
 *********************************************************************** STAT0317
          SPACE 5                                                        STAT0318
 RECORD   DS    0F                                                       STAT0319
          COPY  ACCFORMAT                                                STAT0320
          ORG   RECORD+255                                               STAT0321
          EJECT                                                          STAT0322
          END                                                            STAT0323
-FILE 214;   177 RECORDS:  
0%BEFORE  'STAT0001'                                                             
 STAT     TITLE 'ACCOUNTING STATUS FOR MTS USER--17 DEC 69'                      
 %DELETE  'STAT0001'                                                             
 %BEFORE  'STAT0074'                                                             
          MVC   OUTPUT+1(70),OUTPUT     CLEAR OUTPUT LINE                        
 %DELETE  'STAT0074'                                                             
 %BEFORE  'STAT0079'                                                             
          MACRO                                                                  
 &NAME    TEST0 &WHERE,&CUM,&MAX,&SIZE                                           
 .**********************************************************************         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %DELETE  'STAT0187' 'STAT0192'                                                  
 %DELETE  'STAT0205'                                                             
 %BEFORE  'STAT0211'                                                             
 H29      DC    H'29'                                                            
 %DELETE  'STAT0211'                                                             
 %BEFORE  'STAT0217'                                                             
 FILERROR DC    C'0(FILE SPACE MAY BE IN ERROR)'                                 
 HEAD     DC    C'0STATUS OF      AT LAST SIGNOFF        USED      MAXIM1        
 %DELETE  'STAT0217' 'STAT0218'                                                  
 %BEF      FILEMARK                                                              
-FILE 215;    48 RECORDS:  
0ARTU     TITLE 'MTS ACCOUNTING FILE BILLING RATE UPDATE PROGRAM--29 OCT1ARTU0001
                 68'                                                     ARTU0002
 ACCUPDAT START                                                          ARTU0003
 R0       EQU   0                  GENERAL REGISTER DEFINITIONS          ARTU0004
 R1       EQU   1                                                        ARTU0005
 R2       EQU   2                                                        ARTU0006
 R3       EQU   3                                                        ARTU0007
 R4       EQU   4                                                        ARTU0008
 R5       EQU   5                                                        ARTU0009
 R6       EQU   6                                                        ARTU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** ARTU0039
 *                                                                     * ARTU0040
 *        ACCOUNTING RECORD FORMAT                                     * ARTU0041
 *                                                                     * ARTU0042
 *********************************************************************** ARTU0043
          SPACE 5                                                        ARTU0044
 RECORD   DSECT                                                          ARTU0045
          COPY  ACCFORMAT                                                ARTU0046
          SPACE 5                                                        ARTU0047
          END                                                            ARTU0048
-FILE 216;  1983 RECORDS:  
0AMAT     TITLE 'MTS ACCOUNTING MAINTENANCE PROGRAM--2 OCT 69'           AMAT0001
          MACRO                                                          AMAT0002
 &NAME    BINPAR    &FIELD,&NEXT,&MULT,&LEN                              AMAT0003
 .********************************************************************** AMAT0004
 .*                                                                    * AMAT0005
 .*       FIELD  A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE     * AMAT0006
 .*              VALUE OF THE POSITIONAL PARAMETER IS PLACED.          * AMAT0007
 .*       NEXT   LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* AMAT0008
 .*              MISSING.                                              * AMAT0009
 .*       MULT   AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER   * AMAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B     PRJDIR             HAVE PROJECT RECORD                   AMAT1974
          BAL   R14,CLOSEPRJ       CLOSE PROJECT FILE                    AMAT1975
          B     NOPRJREC                                                 AMAT1976
          SPACE 10                                                       AMAT1977
 PRJDIRFN DS    A                                                        AMAT1978
 PRJGR14  DS    A                                                        AMAT1979
 H43      DC    H'43'                                                    AMAT1980
 PRJINCNS DC    C' ***      IS INCONSISTENT WITH PROJECT     '           AMAT1981
          SPACE 5                                                        AMAT1982
          END                                                            AMAT1983
-FILE 217;   954 RECORDS:  
0%BEFORE  'AMAT0001'                                                             
 AMAT     TITLE 'MTS ACCOUNTING MAINTENANCE PROGRAM--2 OCT 69'                   
 %DELETE  'AMAT0001'                                                             
 %BEFORE  'AMAT0083'                                                             
 &NAME    FLAG  &BYTE,&BIT                                                       
 .**********************************************************************         
 .*                                                                    *         
 .*       BYTE  LOCATION OF BYTE CONTAINING FLAG BIT.                  *         
 %DELETE  'AMAT0083' 'AMAT0086'                                                  
 %BEFORE  'AMAT0091'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B     PRJDIR             HAVE PROJECT RECORD                           
          BAL   R14,CLOSEPRJ       CLOSE PROJECT FILE                            
          B     NOPRJREC                                                         
          SPACE 10                                                               
 PRJDIRFN DS    A                                                                
 PRJGR14  DS    A                                                                
 H43      DC    H'43'                                                            
 PRJINCNS DC    C' ***      IS INCONSISTENT WITH PROJECT     '                   
 %DELETE  'AMAT1541' 'AMAT1545'                                                  
 %BEF      FILEMARK                                                              
-FILE 218;   519 RECORDS:  
0AIO      TITLE 'MTS ACCOUNTING RECORD INPUT/OUTPUT PROGRAM--2 SEP 69'   AIO00001
 *********************************************************************** AIO00002
 *                                                                     * AIO00003
 *        ON ENTRY TO ACCREAD, ACCWRITE, AND ACCSCAN, GR1 POINTS TO A  * AIO00004
 *        FOUR WORD PARAMETER LIST.                                    * AIO00005
 *             WORD1  AREA TO OR FROM WHICH THE DATA IS TO BE          * AIO00006
 *                    TRANSMITTED.                                     * AIO00007
 *             WORD2  LENGTH OF THE DATA.                              * AIO00008
 *             WORD3  MODIFIERS.                                       * AIO00009
 *             WORD4  SIGNON ID.                                       * AIO00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SCNFLPTR DC    A(FILNAMTB-24)                                           AIO00510
 LEN      DS    H                                                        AIO00511
 AUXFLNAM DC    CL16'$ACCOUNTING'                                        AIO00512
 BADAUXFL DC    C' *** FILE                  IS NOT AVAILABLE'           AIO00513
 MISRECRD DC    C' ***      IS NOT IN                 '                  AIO00514
 NOFILNAM DC    C' ***                  IS NOT AN AUXILIARY FILE'        AIO00515
          SPACE 5                                                        AIO00516
          LTORG                                                          AIO00517
          SPACE 5                                                        AIO00518
          END                                                            AIO00519
-FILE 219;   223 RECORDS:  
0%BEFORE  AIO00001                                                               
 AIO      TITLE 'MTS ACCOUNTING RECORD INPUT/OUTPUT PROGRAM--2 SEP 69'           
 ***********************************************************************         
 *                                                                     *         
 *        ON ENTRY TO ACCREAD, ACCWRITE, AND ACCSCAN, GR1 POINTS TO A  *         
 *        FOUR WORD PARAMETER LIST.                                    *         
 %DELETE  AIO00001   AIO00005                                                    
 %BEFORE  AIO00029                                                               
          BASR  R12,0              GR12 FOR BASE REGISTER FOR THIS CSECT         
 %DELETE  AIO00029                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                               
          DC    0A(0),CL16'*DUMMY*',A(0),F'0'                                    
 FILNAMTB DC    CL16'$ACCOUNTING1',A(0),F'0'                                     
 %DELETE  AIO00405   AIO00412                                                    
 %BEFORE  AIO00417                                                               
 GR14     DS    A                                                                
 %BEFORE  AIO00427                                                               
 SCNFLPTR DC    A(FILNAMTB-24)                                                   
 %DELETE  AIO00427                                                               
 %BEF      FILEMARK                                                              
-FILE 220;  1387 RECORDS:  
0AMXM     TITLE 'MTS USERS'' ACCOUNTING MAXIMUM MAINTENANCE PROGRAM--28 1AMXM0001
                OCT 69'                                                  AMXM0002
          MACRO                                                          AMXM0003
 &NAME    ACUM  &MAX,&CUM,&DIV,&LEN,&FILE                                AMXM0004
          LCLA  &RND                                                     AMXM0005
 &NAME    L&LEN R9,ACC&CUM         CUMULATIVE                            AMXM0006
          HEDGE R9,ACC&MAX,&FILE,R8,&LEN     &FILE AND THIS LINE SHOULD 1AMXM0007
                                   NOT EVEN EXIST                        AMXM0008
          C&LEN R9,ACC&MAX                                               AMXM0009
          BNL   S&SYSNDX           MAXIMUM IS LESS THAN CUMULATIVE       AMXM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     R14,RJBBUF(,R14)                                         AMXM1378
          L     R15,=V(DSRDISPV)                                         AMXM1379
          A     R14,20(,R15)                                             AMXM1380
          NI    0(R14),X'7F'                                             AMXM1381
          PRINT ON                                                       AMXM1382
          LM    R14,R12,12(R2)     RESTORE REGISTERS                     AMXM1383
          BR    R14                RETURN TO INTERRUPT                   AMXM1384
          EJECT                                                          AMXM1385
          LTORG                                                          AMXM1386
          END                                                            AMXM1387
-FILE 221;   699 RECORDS:  
0%BEFORE  'AMXM0001'                                                             
 AMXM     TITLE 'MTS USERS'' ACCOUNTING MAXIMUM MAINTENANCE PROGRAM--28 1        
                OCT 69'                                                          
          MACRO                                                                  
 &NAME    ACUM  &MAX,&CUM,&DIV,&LEN,&FILE                                        
          LCLA  &RND                                                             
 &NAME    L&LEN R9,ACC&CUM         CUMULATIVE                                    
          HEDGE R9,ACC&MAX,&FILE,R8,&LEN     &FILE AND THIS LINE SHOULD 1        
                                   NOT EVEN EXIST                                
          C&LEN R9,ACC&MAX                                                       
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     R14,0(,R14)                                                      
          L     R14,RJBBUF(,R14)                                                 
          L     R15,=V(DSRDISPV)                                                 
          A     R14,20(,R15)                                                     
          NI    0(R14),X'7F'                                                     
          PRINT ON                                                               
          LM    R14,R12,12(R2)     RESTORE REGISTERS                             
          BR    R14                RETURN TO INTERRUPT                           
 %DELETE  'AMXM1147' 'AMXM1152'                                                  
 %BEF      FILEMARK                                                              
-FILE 222;    94 RECORDS:  
0ADSP     TITLE 'MTS ACCOUNTING RECORD DISPLAY PROGRAM--18 OCT 68'       ADSP0001
 *********************************************************************** ADSP0002
 *                                                                     * ADSP0003
 *        ACCDSPLA                                                     * ADSP0004
 *                                                                     * ADSP0005
 *        DISPLAYS MTS ACCOUNTING FILE RECORDS.  INPUT IS THE SIGNON ID* ADSP0006
 *        OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR FRACTION     * ADSP0007
 *        THEREOF.                                                     * ADSP0008
 *                                                                     * ADSP0009
 *********************************************************************** ADSP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDOT$DOT DC    C' .$.'                                                  ADSP0085
 RECORD   DS    CL256                                                    ADSP0086
 SAVE     DS    18F                                                      ADSP0087
 SIGNONID DS    F                                                        ADSP0088
 COUNT    DS    H                                                        ADSP0089
 H39      DC    H'39'                                                    ADSP0090
 MOVE     MVC   SIGNONID(0),RECORD                                       ADSP0091
 BLANK    DC    CL10' '                                                  ADSP0092
 NORECMSG DC    C' ***      IS NOT IN THE ACCOUNTING FILE'               ADSP0093
          END                                                            ADSP0094
-FILE 223;   266 RECORDS:  
0ASTR     TITLE 'MTS ACCOUNTING RECORD STORAGE SPACE UPDATE AND LOCK OFF1ASTR0001
                 PROGRAM--16 JUL 69'                                     ASTR0002
 *********************************************************************** ASTR0003
 *                                                                     * ASTR0004
 *        ACCSTRUP                                                     * ASTR0005
 *                                                                     * ASTR0006
 *        UPDATES NUMBER OF FILES AND PAGES AND TURNS OFF THE LOCK FLAG* ASTR0007
 *        IN MTS ACCOUNTING RECORDS.  INPUT IS THE SIGNON ID OF THE    * ASTR0008
 *        RECORD TO BE UPDATED IN COLUMNS 1-4 OR FRACTION THEREOF.     * ASTR0009
 *                                                                     * ASTR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * ASTR0257
 *        ACCOUNTING RECORD STORAGE                                    * ASTR0258
 *                                                                     * ASTR0259
 *********************************************************************** ASTR0260
          SPACE 5                                                        ASTR0261
 RECORD   DS    0F                                                       ASTR0262
          COPY  ACCFORMAT                                                ASTR0263
          ORG   RECORD+255                                               ASTR0264
          SPACE 5                                                        ASTR0265
          END                                                            ASTR0266
-FILE 224;   131 RECORDS:  
0%BEFORE  ASTR0002                                                               
                 PROGRAM--16 JUL 69'                                             
 %DELETE  ASTR0002                                                               
 %BEFORE  ASTR0018                                                               
 .*       WHERE  START OF SIX CHARACTER AREA WHERE RESULT IS TO BE     *         
 %DELETE  ASTR0018                                                               
 %BEFORE  ASTR0024                                                               
          MVC   MASK,=X'402020202120'   GET EDIT MASK                            
          LA    R1,MASK+5                                                        
          EDMK  MASK,DOUBLE+5      ELIMINATE LEADING ZEROES                      
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                SET.'                                                            
 FATALMSG DC    C' *** FATAL RETURN FROM ACATALOG'                               
 HEAD     DC    C' SIGNON  ODP    NDP    ODF    NDF    ODCP   NDCP   ODC1        
                F   NDCF'                                                        
 MASK     DS    CL6                                                              
 MISMSG   DC    C' ***        IS NOT AVAILABLE'                                  
 NORECMSG DC    C' ***      IS NOT IN THE ACCOUNTING FILE'                       
 PRINTLIN DC    CL62' '                                                          
 %DELETE  ASTR0189   ASTR0203                                                    
 %BEF      FILEMARK                                                              
-FILE 225;   237 RECORDS:  
0ARDW     TITLE 'MTS ACCOUNTING FILE RECORD READ AND WRITE UPDATE PROGRA1ARDW0001
                M--30 OCT 68'                                            ARDW0002
 *********************************************************************** ARDW0003
 *                                                                     * ARDW0004
 *        RECORDS BEFORE UPDATING ARE WRITTEN ON A TAPE ON LOGICAL     * ARDW0005
 *        UNIT 0.                                                      * ARDW0006
 *                                                                     * ARDW0007
 *        A LIST OF RECORDS WHICH CANNOT BE UPDATED BECAUSE THE LOCK   * ARDW0008
 *        BIT IS SET IS WRITTEN ON LOGICAL UNIT 1.  IF, ON ENTRY TO    * ARDW0009
 *        ACCRDWRT, LOGICAL UNIT 1 IS NOT EMPTY, ONLY THOSE RECORDS IN * ARDW0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FSF      DC    C'FSF'                                                   ARDW0228
 LOCKSW   DC    X'0'                                                     ARDW0229
 LOG1FULL DC    C' *** LOGICAL DEVICE 1 IS FULL'                         ARDW0230
 NORECMSG DC    C' ***      IS NOT IN THE ACCOUNTING FILE'               ARDW0231
 REW      DC    C'REW'                                                   ARDW0232
 WEF      DC    C'WEF'                                                   ARDW0233
          SPACE 5                                                        ARDW0234
 FLAGS    EQU   RECORD+1                                                 ARDW0235
          SPACE 5                                                        ARDW0236
          END                                                            ARDW0237
-FILE 226;   206 RECORDS:  
0AUPR     TITLE 'MTS USERS'' ACCOUNTING RECORD PRINT PROGRAM--3 OCT 69'  AUPR0001
 *********************************************************************** AUPR0002
 *                                                                     * AUPR0003
 *        ACUSPRNT                                                     * AUPR0004
 *                                                                     * AUPR0005
 *        GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY.            * AUPR0006
 *              WORD1  ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* AUPR0007
 *              WORD2  ADDRESS OF AN AREA CONTAINING THE ACCOUNTING    * AUPR0008
 *                     RECORD TO BE PRINTED.                           * AUPR0009
 *                                                                     * AUPR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** AUPR0197
 *                                                                     * AUPR0198
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * AUPR0199
 *                                                                     * AUPR0200
 *********************************************************************** AUPR0201
          SPACE 5                                                        AUPR0202
 RECORD   DSECT                                                          AUPR0203
          COPY  ACCFORMAT                                                AUPR0204
          SPACE 5                                                        AUPR0205
          END                                                            AUPR0206
-FILE 227;    64 RECORDS:  
0%BEFORE  'AUPR0001'                                                             
 AUPR     TITLE 'MTS USERS'' ACCOUNTING RECORD PRINT PROGRAM--3 OCT 69'          
 %DELETE  'AUPR0001'                                                             
 %BEFORE  'AUPR0035'                                                             
 &NAME    L&SUFFIX  R3,&FIELD      GET NUMBER                                    
 %DELETE  'AUPR0035'                                                             
 %BEFORE  'AUPR0060'                                                             
 &NAME    L&SUFFIX  R2,&FIELD      GET NUMBER                                    
          SRDA  R2,32              PROPAGATE SIGN                                
          AGO   .DIV                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 5                                                                
 IGNORTRM MVC   OUTPUT+42(7),=C'IGNORED'                                         
          B     MAXPLT                                                           
          SPACE 5                                                                
 IGNORPLT MVC   OUTPUT+53(7),=C'IGNORED'                                         
          B     EXPIRE                                                           
 %DELETE  'AUPR0134' 'AUPR0153'                                                  
 %BEFORE  'AUPR0164'                                                             
 EXPTIME  DS    D                                                                
 %BEF      FILEMARK                                                              
-FILE 228;  1105 RECORDS:  
0APMT     TITLE 'MTS PROJECT ACCOUNTING MAINTENANCE PROGRAM--4 OCT 69'   APMT0001
          MACRO                                                          APMT0002
 &NAME    BINPAR    &FIELD,&NEXT,&MULT,&LEN                              APMT0003
 .********************************************************************** APMT0004
 .*                                                                    * APMT0005
 .*       FIELD  A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE     * APMT0006
 .*              VALUE OF THE POSITIONAL PARAMETER IS PLACED.          * APMT0007
 .*       NEXT   LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* APMT0008
 .*              MISSING.                                              * APMT0009
 .*       MULT   AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER   * APMT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ORG   RECORD+255                                               APMT1096
          SPACE 5                                                        APMT1097
          DS    0F                                                       APMT1098
 MASK     DS    CL255                                                    APMT1099
 MDISP    EQU   MASK-RECORD                                              APMT1100
          SPACE 5                                                        APMT1101
          DS    0F                                                       APMT1102
 DEFAULT  DC    X'11000000',4F'0',CL4' ',6F'0',H'0'                      APMT1103
          EJECT                                                          APMT1104
          END                                                            APMT1105
-FILE 229;   439 RECORDS:  
0%BEFORE  'APMT0001'                                                             
 APMT     TITLE 'MTS PROJECT ACCOUNTING MAINTENANCE PROGRAM--4 OCT 69'           
 %DELETE  'APMT0001'                                                             
 %BEFORE  'APMT0040'                                                             
 &NAME    DCHAR &FIELD                                                           
 .**********************************************************************         
 .*                                                                    *         
 .*       FIELD  TWO FULL WORDS IN WHICH THE EIGHT BYTE CHARACTER VALUE*         
 .*              OF THE KEYWORD PARAMETER IS PLACED.                   *         
 .*                                                                    *         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ACCMFUB  DS    F                                                                
 ACCMTM   DS    F                                                                
 ACCMPLT  DS    F                                                                
 DIRPTR   DS    A                                                                
 ACCBC    DS    H                                                                
 %DELETE  'APMT0918' 'APMT0922'                                                  
 %BEFORE  'APMT0931'                                                             
 DEFAULT  DC    X'11000000',4F'0',CL4' ',6F'0',H'0'                              
 %DELETE  'APMT0931'                                                             
 %BEF      FILEMARK                                                              
-FILE 230;    53 RECORDS:  
0AXPR     TITLE 'MTS ACCOUNTING RECORD HEXADECIMAL PRINT PROGRAM--16 JUN1AXPR0001
                E 67'                                                    AXPR0002
 *********************************************************************** AXPR0003
 *                                                                     * AXPR0004
 *        ACCPRINT                                                     * AXPR0005
 *                                                                     * AXPR0006
 *        GR1 POINTS TO A FOUR WORD PARAMETER LIST ON ENTRY.           * AXPR0007
 *             WORD1  ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID. * AXPR0008
 *             WORD2  ADDRESS OF AN AREA CONTAINING THE ACCOUNTING     * AXPR0009
 *                    RECORD TO BE PRINTED.                            * AXPR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 5                                                        AXPR0044
 SAVE     DS    18F                                                      AXPR0045
 FMT      DC    C'''0SIGNON ID IS '',C4,'' ('',X,'')''/'' RECORD IS (HEX1AXPR0046
                )    LENGTH='',X2/(S10,6(X,S2))*'                        AXPR0047
          SPACE 5                                                        AXPR0048
 SIGNON   DSECT                                                          AXPR0049
 RECORD   DSECT                                                          AXPR0050
 LENGTH   DSECT                                                          AXPR0051
          SPACE 5                                                        AXPR0052
          END                                                            AXPR0053
-FILE 231;   329 RECORDS:  
0APPR     TITLE 'MTS PROJECT RECORD PRINT PROGRAM-23 SEP 69'             APPR0001
 *********************************************************************** APPR0002
 *                                                                     * APPR0003
 *        ACCPRINT                                                     * APPR0004
 *                                                                     * APPR0005
 *        GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY.          * APPR0006
 *              WORD1  ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* APPR0007
 *              WORD2  ADDRESS OF AN AREA CONTAINING THE ACCOUNTING    * APPR0008
 *                     RECORD TO BE PRINTED.                           * APPR0009
 *              WORD3  ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* APPR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** APPR0320
 *                                                                     * APPR0321
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * APPR0322
 *                                                                     * APPR0323
 *********************************************************************** APPR0324
          SPACE 5                                                        APPR0325
 RECORD   DSECT                                                          APPR0326
          COPY  ACCPROJFMT                                               APPR0327
          ORG   RECORD+255                                               APPR0328
          END                                                            APPR0329
-FILE 232;    96 RECORDS:  
0%BEFORE  'APPR0001'                                                             
 APPR     TITLE 'MTS PROJECT RECORD PRINT PROGRAM-23 SEP 69'                     
 %DELETE  'APPR0001'                                                             
 %BEFORE  'APPR0011'                                                             
 *                     TO BE PRINTED WITH THE RECORD.                  *         
 %DELETE  'APPR0011' 'APPR0013'                                                  
 %BEFORE  'APPR0040'                                                             
 .*                 (X,L)    HEXADECIMAL FIELD WHERE L IS THE LENGTH   *         
 .*                          IN BYTES AND 2*L IS THE OUTPUT LENGTH.    *         
 %DELETE  'APPR0040' 'APPR0041'                                                  
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                 AC NR    UNIT'                                                  
 HEAD2    DC    C' SIG    DATE     BILL CLASS  MAX CELL   MAX PLOT  IDR 1        
                NUMBER  DIR PTR'                                                 
 HEAD3    DC    C'        TIME                  (PAGES)   (MINUTES)'             
 %DELETE  'APPR0276' 'APPR0288'                                                  
 %BEFORE  'APPR0294'                                                             
 PTRHEAD1 DC    CL130'1CHG   EXPIRE    MAX CHARGE  MAX DISK   MAX TERM  1        
                UNIV AC NR    UNIT'                                              
 %DELETE  'APPR0294' 'APPR0295'                                                  
 %BEF      FILEMARK                                                              
-FILE 233;    97 RECORDS:  
0APLS     TITLE 'MTS PROJECT ACCOUNTING LISTING PROGRAM--24 SEP 69'      APLS0001
 *********************************************************************** APLS0002
 *                                                                     * APLS0003
 *        ACCLIST                                                      * APLS0004
 *                                                                     * APLS0005
 *        LISTS THE MTS PROJECT ACCOUNTING FILE.                       * APLS0006
 *                                                                     * APLS0007
 *********************************************************************** APLS0008
          SPACE 5                                                        APLS0009
 ACCLIST  START                                                          APLS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SAVE     DS    18F                                                      APLS0088
 COUNT    DS    H                                                        APLS0089
 H23      DC    H'23'                                                    APLS0090
 H24      DC    H'24'                                                    APLS0091
 BLANKS   DC    CL10' '                                                  APLS0092
 FILENAME DC    C'*PROJECT '                                             APLS0093
 NOFILMSG DC    C' ERROR IN OBTAINING FILE'                              APLS0094
 NRRECMSG DC    C'- ',X'2020202120',C' RECORDS IN FILE'                  APLS0095
          SPACE 5                                                        APLS0096
          END                                                            APLS0097
-FILE 234;    19 RECORDS:  
0%BEFORE  'APLS0001'                                                             
 APLS     TITLE 'MTS PROJECT ACCOUNTING LISTING PROGRAM--24 SEP 69'              
 %DELETE  'APLS0001'                                                             
 %BEFORE  'APLS0043'                                                             
          LA    R1,=A(RECORD,COUNT,F2,CHARGEID,FDUB)                             
 %DELETE  'APLS0043'                                                             
 %BEFORE  'APLS0048'                                                             
 READ     LA    R1,=A(RECORD,COUNT,F0,CHARGEID,FDUB)                             
 %DELETE  'APLS0048'                                                             
 %BEFORE  'APLS0067'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(CHARGEID,RECORD,BLANKS,COUNT)                                  
 %DELETE  'APLS0067'                                                             
 %BEFORE  'APLS0082'                                                             
 CHARGEID DC    X'80000000'                                                      
 %DELETE  'APLS0088'                                                             
 %BEFORE  'APLS0093'                                                             
 FILENAME DC    C'*PROJECT '                                                     
 %DELETE  'APLS0093'                                                             
 %BEF      FILEMARK                                                              
-FILE 235;    99 RECORDS:  
0APDS     TITLE 'MTS PROJECT ACCOUNTING RECORD DISPLAY PROGRAM--24 SEP 61APDS0001
                9'                                                       APDS0002
 *********************************************************************** APDS0003
 *                                                                     * APDS0004
 *        ACCDSPLA                                                     * APDS0005
 *                                                                     * APDS0006
 *        DISPLAYS MTS PROJECT ACCOUNTING FILE RECORDS.  INPUT IS THE  * APDS0007
 *        SIGNON ID OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR    * APDS0008
 *        FRACTION THEREOF.                                            * APDS0009
 *                                                                     * APDS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RECORD   DS    CL256                                                    APDS0090
 SAVE     DS    18F                                                      APDS0091
 COUNT    DS    H                                                        APDS0092
 H24      DC    H'24'                                                    APDS0093
 H28      DC    H'28'                                                    APDS0094
 BLANK    DC    CL10' '                                                  APDS0095
 FILENAME DC    C'*PROJECT '                                             APDS0096
 NOFILMSG DC    C' ERROR IN OBTAINING FILE'                              APDS0097
 NORECMSG DC    C' ***      IS NOT IN THE FILE'                          APDS0098
          END                                                            APDS0099
-FILE 236;    33 RECORDS:  
0%BEFORE  'APDS0001'                                                             
 APDS     TITLE 'MTS PROJECT ACCOUNTING RECORD DISPLAY PROGRAM--24 SEP 61        
                9'                                                               
 %DELETE  'APDS0001' 'APDS0002'                                                  
 %BEFORE  'APDS0045'                                                             
 READ     MVC   RECORD(4),BLANK                                                  
          LA    R1,=A(RECORD,COUNT,F0,CHARGEID)                                  
 %DELETE  'APDS0045' 'APDS0049'                                                  
 %BEFORE  'APDS0058'                                                             
 READFILE MVC   CHARGEID,RECORD    SAVE CHARGE ID                                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MAXPOS   DC    X'7FFFFFFF'                                                      
 RECORD   DS    CL256                                                            
 SAVE     DS    18F                                                              
 COUNT    DS    H                                                                
 H24      DC    H'24'                                                            
 H28      DC    H'28'                                                            
 BLANK    DC    CL10' '                                                          
 FILENAME DC    C'*PROJECT '                                                     
 %DELETE  'APDS0094' 'APDS0107'                                                  
 %BEF      FILEMARK                                                              
-FILE 237;    78 RECORDS:  
0APSW     TITLE 'MTS PASSWORD EXTRACTION PROGRAM--2 FEB 68'              APSW0001
 *********************************************************************** APSW0002
 *                                                                     * APSW0003
 *        ACCPRINT                                                     * APSW0004
 *                                                                     * APSW0005
 *        GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY.            * APSW0006
 *             WORD1  ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID. * APSW0007
 *             WORD2  ADDRESS OF AN AREA CONTAINING THE ACCOUNTING     * APSW0008
 *                    RECORD FOR THE PASSWORD TO BE PRINTED.           * APSW0009
 *                                                                     * APSW0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 5                                                        APSW0069
 SAVE     DS    18F                                                      APSW0070
 MVPSWRD  MVC   PASSWORD+18(0),RECORD+3                                  APSW0071
          DC    C'0123456789ABCDEF'                                      APSW0072
 HEXCONV  EQU   *-256                                                    APSW0073
 PASSWORD DC    C'      PASSWORD IS        (                      '      APSW0074
          SPACE 5                                                        APSW0075
 RECORD   DSECT                                                          APSW0076
          SPACE 5                                                        APSW0077
          END                                                            APSW0078
-FILE 238;   355 RECORDS:  
0ACNS     TITLE 'ACCOUNTING FILE, PROJECT FILE, AND PROJECT DIRECTORY CO1ACNS0001
                NSISTENCY CHECK PROGRAM--9 OCT 69'                       ACNS0002
          MACRO                                                          ACNS0003
 &NAME    OPEN  &FILE,&FDUB                                              ACNS0004
 &NAME    LA    R1,=C'&FILE '                                            ACNS0005
          BAS   R14,OPEN           GET FILE                              ACNS0006
          ST    R0,&FDUB.FDUB                                            ACNS0007
          MEND                                                           ACNS0008
          SPACE 5                                                        ACNS0009
          MACRO                                                          ACNS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * ACNS0346
 *********************************************************************** ACNS0347
          SPACE 5                                                        ACNS0348
 PROJECT  DS    0A                                                       ACNS0349
          COPY  ACCPROJFMT                                               ACNS0350
          ORG   PROJECT+256                                              ACNS0351
          EJECT                                                          ACNS0352
          SPACE 10                                                       ACNS0353
 LINCOUNT DSECT                                                          ACNS0354
          END                                                            ACNS0355
-FILE 239;    10 RECORDS:  
0FLNM     TITLE 'FILE NAMES--9 OCT 69'                                   FLNM0001
          MACRO                                                          FLNM0002
 &NAME    FILE  &FILE                                                    FLNM0003
          ENTRY &NAME                                                    FLNM0004
 &NAME    DC    C'&FILE '                                                FLNM0005
          MEND                                                           FLNM0006
 FILENAME CSECT                                                          FLNM0007
 PRJDIRFL FILE  *PRJDIRECTORY                                            FLNM0008
 PROJFILE FILE  *PROJECT                                                 FLNM0009
          END                                                            FLNM0010
-FILE 240;   124 RECORDS:  
0GRJL     TITLE 'GREGORIAN TO JULIAN TIME CONVERSION--13 JUN 69'         GRJL0001
 *********************************************************************** GRJL0002
 *                                                                     * GRJL0003
 *        GRGJULTM                                                     * GRJL0004
 *                                                                     * GRJL0005
 *        ON ENTRY, GR0 THROUGH GR3 CONTAIN THE GREGORIAN DATE AND TIME* GRJL0006
 *        IN THE FORM MM-DD-YYHH:MM.SS.                                * GRJL0007
 *                                                                     * GRJL0008
 *        ON EXIT, GR0 CONTAINS THE JULIAN DATE AND GR1 CONTAINS THE   * GRJL0009
 *        JULIAN TIME IN MINUTES.                                      * GRJL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        DUMMY SECTION FOR USER SAVE AREA                             * GRJL0115
 *                                                                     * GRJL0116
 *********************************************************************** GRJL0117
          SPACE 5                                                        GRJL0118
 SAVE     DSECT                                                          GRJL0119
          DS    5A                                                       GRJL0120
 DATE     DS    CL8                                                      GRJL0121
 TIME     DS    CL8                                                      GRJL0122
          SPACE 5                                                        GRJL0123
          END                                                            GRJL0124
-FILE 241;   140 RECORDS:  
0JLGR     TITLE 'JULIAN TO GREGORIAN TIME CONVERSION--13 JUN 69'         JLGR0001
 *********************************************************************** JLGR0002
 *                                                                     * JLGR0003
 *        JULGRGTM                                                     * JLGR0004
 *                                                                     * JLGR0005
 *        ON ENTRY, GR1 CONTAINS THE JULIAN TIME IN MINUTES.           * JLGR0006
 *                                                                     * JLGR0007
 *        ON EXIT, GR0 AND GR1 CONTAIN THE GREGORIAN DATE IN THE FORM  * JLGR0008
 *        MM-DD-YY, AND GR2 AND GR3 CONTAIN THE TIME OF DAY IN THE FORM* JLGR0009
 *        HH:MM.00.                                                    * JLGR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        DUMMY SECTION FOR USER SAVE AREA                             * JLGR0131
 *                                                                     * JLGR0132
 *********************************************************************** JLGR0133
          SPACE 5                                                        JLGR0134
 SAVE     DSECT                                                          JLGR0135
          DS    5A                                                       JLGR0136
 DATE     DS    CL8                                                      JLGR0137
 TIME     DS    CL8                                                      JLGR0138
          SPACE 5                                                        JLGR0139
          END                                                            JLGR0140
-FILE 242;   118 RECORDS:  
0VSIG     TITLE 'MTS VALID SIGNON ID LISTING--5 MAY 69'                  VSIG0001
 VALSIGON START                                                          VSIG0002
 R0       EQU   0                  GENERAL REGISTER DEFINITIONS          VSIG0003
 R1       EQU   1                                                        VSIG0004
 R2       EQU   2                                                        VSIG0005
 R3       EQU   3                                                        VSIG0006
 R4       EQU   4                                                        VSIG0007
 R5       EQU   5                                                        VSIG0008
 R6       EQU   6                                                        VSIG0009
 R7       EQU   7                                                        VSIG0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       VSIG0109
 SAVE     DS    18F                                                      VSIG0110
 SIGNON   DC    0F'0',X'80000000'                                        VSIG0111
 L        DS    H                                                        VSIG0112
 LEN      DC    H'60'                                                    VSIG0113
 HEADING  DC    C'1VALID MTS SIGNON ID''S ON          AT         '       VSIG0114
 LASTSIG  DS    CL2                                                      VSIG0115
 OUTPUT   DS    CL120                                                    VSIG0116
          SPACE 5                                                        VSIG0117
          END                                                            VSIG0118
-FILE 243;   646 RECORDS:  
0DIR      TITLE 'DIRECTORY ASSISTANCE PROGRAMS--9 OCT 69'                DIR00001
          MACRO                                                          DIR00002
 &NAME    ENTER &SAVE                                                    DIR00003
 .********************************************************************** DIR00004
 .*                                                                    * DIR00005
 .*       PRODUCES ENTRY POINT CODE.                                   * DIR00006
 .*                                                                    * DIR00007
 .*       SAVE  SAVE AREA FOR INTERNAL SUBROUTINES.                    * DIR00008
 .*                                                                    * DIR00009
 .********************************************************************** DIR00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        DSECT FOR DIRECTORY ENTRY                                    * DIR00637
 *                                                                     * DIR00638
 *********************************************************************** DIR00639
          SPACE 5                                                        DIR00640
 ENTRY    DSECT                                                          DIR00641
 ENTRYLEN DS    F                                                        DIR00642
 ENTRYID  DS    A                                                        DIR00643
 ENTRYELT DS    A                                                        DIR00644
          SPACE 5                                                        DIR00645
          END                                                            DIR00646
-FILE 244;   151 RECORDS:  
0DLST     TITLE 'DIRECTORY LISTING PROGRAM--1 OCT 69'                    DLST0001
          PRINT NOGEN                                                    DLST0002
 DIRLIST  START                                                          DLST0003
 R0       EQU   0                  GENERAL REGISTER DEFINITIONS          DLST0004
 R1       EQU   1                                                        DLST0005
 R2       EQU   2                                                        DLST0006
 R3       EQU   3                                                        DLST0007
 R4       EQU   4                                                        DLST0008
 R5       EQU   5                                                        DLST0009
 R6       EQU   6                                                        DLST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LINE     DS    A                                                        DLST0142
 SAVE     DS    18A                                                      DLST0143
 LEN      DS    H                                                        DLST0144
 COUNTMSG DC    C'- ',X'2020202120',C' ENTRIES   ',X'2020202120',C' ELEM1DLST0145
                ENTS'                                                    DLST0146
 DIRFILE  DC    C'*PRJDIRECTORY '                                        DLST0147
          DC    C'0123456789ABCDEF'                                      DLST0148
 HEXTAB   EQU   *-256                                                    DLST0149
 OUTPUT   DS    CL71                                                     DLST0150
          END                                                            DLST0151
-FILE 245;   166 RECORDS:  
0         TITLE 'PROGRAM TO UPDATE FILE STORAGE CHARGES MONTHLY--2 SEP 61FLUP0001
                9'                                                       FLUP0002
 FILUPDAT START                                                          FLUP0003
 DORMNT   EQU   4                                                        FLUP0004
 TOD      EQU   28                                                       FLUP0005
 GETELT   EQU   38                                                       FLUP0006
 LOCK     EQU   58                                                       FLUP0007
 UNLOCK   EQU   59                                                       FLUP0008
          SPACE 5                                                        FLUP0009
          ENTER 12,SA=SAVE                                               FLUP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 STACFUB  DS    F                                                        FLUP0157
          DC    F'0'                                                     FLUP0158
 STAEND   DC    X'FF'                                                    FLUP0159
 *                                                                       FLUP0160
 *                                                                       FLUP0161
 TIME     DS    F                                                        FLUP0162
 LEN      DS    H                                                        FLUP0163
 STATLEN  DC    Y(STAEND-STAT+1)                                         FLUP0164
 WRITESW  DS    X                                                        FLUP0165
          END                                                            FLUP0166
-FILE 246;    36 RECORDS:  
0ACNV     TITLE 'PROGRAM TO CONVERT DISTRIBUTION ACCOUNTING FILE TO CURR1ACON0001
                ENT ACCOUNTING FILE--6 OCT 69'                           ACON0002
 ACCCONV  START                                                          ACON0003
          ENTER 12,SA=SAVE                                               ACON0004
          L     0,SAVE+4                                                 ACON0005
 READ     CALL  ACCSCAN,(RECORD,LEN,F0,SIGNON)                           ACON0006
          B     *+4(15)                                                  ACON0007
          B     STPLTFLG                                                 ACON0008
          EXIT                                                           ACON0009
 STPLTFLG OI    FLAGS,1            SET IGNORE PLOT FLAG                  ACON0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          CALL  ACCWRITE,(RECORD,LEN,F2,SIGNON)                          ACON0027
          B     READ                                                     ACON0028
 SAVE     DS    18A                                                      ACON0029
 RECORD   DS    0A                                                       ACON0030
          COPY  ACCFORMAT                                                ACON0031
 F0       DC    F'0'                                                     ACON0032
 F2       DC    F'2'                                                     ACON0033
 SIGNON   DS    CL4                                                      ACON0034
 LEN      DS    H                                                        ACON0035
          END                                                            ACON0036
-FILE 247;   158 RECORDS:  
0PCNV     TITLE 'PROGRAM TO CREATE PROJECT FILE--2 OCT 69'               ACRP0001
          PRINT NOGEN                                                    ACRP0002
 CRPRJFL  START                                                          ACRP0003
          ENTER 12,SA=SAVE                                               ACRP0004
 READ     L     0,SAVE+4                                                 ACRP0005
          CALL  ACCSCAN,(RECORD,LEN,F0,LINE)                             ACRP0006
          B     *+4(15)                                                  ACRP0007
          B     CKPROJ                                                   ACRP0008
          LA    0,OLDPN                                                  ACRP0009
          L     1,DIRPTR                                                 ACRP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUB     DS    A                                                        ACRP0149
 PRJREC   DS    0A                                                       ACRP0150
 MAXFLAGS DS    XL4                FLAGS:  3-IGNORE TERMINAL MAXIMUM     ACRP0151
 UAN      DS    2CL4               UNIVERSITY ACCOUNT NUMBER             ACRP0152
 MAXMDT   DS    F                  MAXIMUM FILE (PAGES)                  ACRP0153
 MAXMTM   DS    F                  MAXIMUM TERMINAL (MINUTES)            ACRP0154
 MAXM$    DS    F                  MAXIMUM CHARGE (DOLLARS*10000)        ACRP0155
 PRJER    DC    C' ***      HAS NO ID''S'                                ACRP0156
 OLDPN    DS    A                                                        ACRP0157
          END                                                            ACRP0158
-FILE 248;   441 RECORDS:  
0LIST     TITLE 'LIST *STATISTICS RECORDS'                               LSTA0001
          MACRO                                                          LSTA0002
 &L       EDIT  &FIELD,&SOURCE,&PATL,&PATR,&OP=L                         LSTA0003
          LCLA  &T2                                                      LSTA0004
          LCLA  &T                                                       LSTA0005
          LCLC  &C                                                       LSTA0006
          LCLC  &C2                                                      LSTA0007
          AIF   (T'&SOURCE EQ 'O').SK2                                   LSTA0008
 &L       MVC   HOLD(4),&SOURCE                                          LSTA0009
          &OP   1,HOLD                                                   LSTA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ACCRCR   DS    H                                                        LSTA0432
 ACCRFS   DS    H                                                        LSTA0433
 ACCRFSB  DS    H                                                        LSTA0434
 ACCRPLT  DS    H                                                        LSTA0435
 LRATES   EQU   *-RATES                                                  LSTA0436
          SPACE 6                                                        LSTA0437
 STA      DSECT                                                          LSTA0438
          COPY  MTA:STATDSECT                                            LSTA0439
          EJECT                                                          LSTA0440
          END                                                            LSTA0441
-FILE 249;    93 RECORDS:  
0#                                                                       STSV0001
 SSAV     TITLE 'PROGRAM TO SAVE *STATISTICS'                            STSV0002
 STATSAV  START 0                                                        STSV0003
          ENTER 12,SA=SA                                                 STSV0004
          SPRINT 'WHAT TAPE IS TO BE USED?'                              STSV0005
 RDTP     SCARDS IN,INL,EXIT=RDTP                                        STSV0006
          LA    1,IN                 TRY TO GET TAPE                     STSV0007
          AH    1,INL               BUT PUT A BLANK AT END               STSV0008
          MVI   0(1),C' '                                                STSV0009
          LA    1,IN                                                     STSV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SA       DS    18F                                                      STSV0084
 LOCK     EQU   58          SVC TO SET LOCK                              STSV0085
 UNLOCK   EQU   59          SVC TO RESET LOCK                            STSV0086
 ACCTLOCK EQU   1                                                        STSV0087
 COMPARE  CLC   IN(0),IN2                                                STSV0088
 INL      DS    H                                                        STSV0089
 IN2L     DS    H                                                        STSV0090
 IN       DS    CL256                                                    STSV0091
 IN2      DS    CL256                                                    STSV0092
          END                                                            STSV0093
-FILE 250;   126 RECORDS:  
0CMB      TITLE 'PROGRAM TO COMBINE STATISTICS TAPES - VERSION 2'        CMB00001
          PRINT NOGEN                                                    CMB00002
 CMB      START 0                                                        CMB00003
          ENTER 12,SA=SA                                                 CMB00004
          SPRINT 'ENTER OUTPUT TAPE NAME'                                CMB00005
          BAL   11,RD1                                                   CMB00006
 INRD     SPRINT 'ENTER INPUT TAPE NAME OR "DONE"'                       CMB00007
 RD2      SCARDS IN,LEN,EXIT=RD2                                         CMB00008
          CLC   =C'DONE',IN                                              CMB00009
          BE    EXIT                                                     CMB00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IFDUB    DS    A                                                        CMB00117
 OFDUB    DS    A                                                        CMB00118
 ILEN     DS    H                                                        CMB00119
 MOVE     MVC   0(0,2),0(5)                                              CMB00120
 SA       DS    18A                                                      CMB00121
          LTORG                                                          CMB00122
 IBUF     DS    34XL128                                                  CMB00123
 OBUF     DS    34XL128                                                  CMB00124
 ENDOBUF  EQU   *-256                                                    CMB00125
          END                                                            CMB00126
-FILE 251;  1897 RECORDS:  
0MNT      TITLE 'M O U N T'                                              *MNT0001
 *********************************************************************** *MNT0002
 *                                                                     * *MNT0003
 *              MACROS TO GENERATE KWIC RHS AND LHS TABLES             * *MNT0004
 *                                                                     * *MNT0005
 *********************************************************************** *MNT0006
          SPACE 3                                                        *MNT0007
          MACRO                                                          *MNT0008
 &ST1     LHS   &KWD,&RHS,&EX                                            *MNT0009
          LCLA  &LNG                                                     *MNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBNAM  DS    A                  BACK POINTER                          *MNT1888
 FDUBDS   DS    F                  DEFAULT SWITCHES                      *MNT1889
 FDUBCH   DS    F                  CHAIN                                 *MNT1890
 FDUBTYPE DS    X                  FDUB TYPE (0 THRU 7)                  *MNT1891
 FDUBMNTD EQU   7                  FDUB TYPE FOR 'MOUNTED' DEVICE        *MNT1892
          DS    XL3                UNUSED                                *MNT1893
 FDUBNAME DS    A                  POINTER TO EXTERNAL NAME              *MNT1894
          EJECT                                                          *MNT1895
          SPACE 5                                                        *MNT1896
          END                                                            *MNT1897
-FILE 252;   107 RECORDS:  
0         TITLE 'BLOCK LETTER GENERATOR'                                 BLKL0001
 BLOCKL   CSECT                                                          BLKL0002
          REQU                                                           BLKL0003
          ENTER 12,SA=SA                                                 BLKL0004
          LM    R2,R6,0(R1)        PARAMETERS                            BLKL0005
          LH    R3,0(0,R3)         LENGTH                                BLKL0006
          LTR   R7,R4              MODIFIERS                             BLKL0007
          BZ    *+8                ADDRESS OR CONTENTS ARE OK            BLKL0008
          L     R7,0(0,R4)         MODIFIERS                             BLKL0009
          ST    R7,MODS                                                  BLKL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 #3       DC    X'2241494936'                                            BLKL0098
 #4       DC    X'0C14247F04'                                            BLKL0099
 #5       DC    X'7A5151514E'                                            BLKL0100
 #6       DC    X'3E49494926'                                            BLKL0101
 #7       DC    X'4142444870'                                            BLKL0102
 #8       DC    X'3649494936'                                            BLKL0103
 #9       DC    X'314949493E'                                            BLKL0104
          DC    5X'0000000000'          NON CHARACTERS                   BLKL0105
          DC    X'FFFFFFFFFF'      X'FF'                                 BLKL0106
          END                                                            BLKL0107
-FILE 253;   120 RECORDS:  
0TPST     TITLE 'PROGRAM TO ACCUMULATE *MOUNT STATISTICS'                TPST0001
 TAPESTAT START 0                                                        TPST0002
          SPACE 2                                                        TPST0003
          REQU                                                           TPST0004
          SPACE 2                                                        TPST0005
          PRINT OFF                                                      TPST0006
          COPY  *LLMPSEQU(100)                                           TPST0007
          PRINT ON                                                       TPST0008
 *        COPY  *LLMPSEQU(100)                                           TPST0009
          SPACE                                                          TPST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PDNTNAME DS    CL16               PDN                                   TPST0111
 PDNTFDUB DS    A                  A(FDUB)                               TPST0112
 PDNTSTAT DS    XL1                STATTUS                               TPST0113
 BUSY     EQU   X'20'                                                    TPST0114
          DS    XL1                UNUSED                                TPST0115
 PDNTSIZE DS    H                  SIZE                                  TPST0116
 PDNTDEVN DS    CL4                DEVICE NAME                           TPST0117
 PDNTDEVT DS    CL4                DEVICE TYPE                           TPST0118
          SPACE 5                                                        TPST0119
          END                                                            TPST0120
-FILE 254;   185 RECORDS:  
0DMNT     TITLE 'DISMOUNT-- TO GET RID OF THINGS'                        DISM0001
          MACRO                                                          DISM0002
 &SLB     CMSG  &WHAT                                                    DISM0003
          LCLA  &X                                                       DISM0004
          LCLA  &Y                                                       DISM0005
 &X       SETA  ((K'&WHAT-1)/2*2)+18                                     DISM0006
 &Y       SETA  K'&WHAT-2                                                DISM0007
          CNOP  0,4                                                      DISM0008
 &SLB     LA    R1,*+12                                                  DISM0009
          L     RF,=V(SERCOM)                                            DISM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BR    RF                                                       DISM0176
 COMPARE  CLC   0(0,SCC),0(SCA)                                          DISM0177
 SCRATCH  DS    18F                                                      DISM0178
 CPUQAD1  DC    V(CPUQ)                                                  DISM0179
 ZERO     DC    F'0'                                                     DISM0180
 OFFMSG   DC    C'REMOVE TAPE FROM XXXX'                                 DISM0181
 OFFMSGL  EQU   *-OFFMSG                                                 DISM0182
          LTORG                                                          DISM0183
 DSECT    DSECT                                                          DISM0184
          END   DISMOUNT                                                 DISM0185
-FILE 255;    43 RECORDS:  
0%DELETE DISM0001 DISM0076                                                       
 DMNT     TITLE 'D I S M O U N T'                                                
 %DELETE DISM0078 DISM0096                                                       
          SPACE 2                                                                
          REQU                                                                   
 %DELETE DISM0100 DISM0113                                                       
 SCD      EQU   9                                                                
          SPACE                                                                  
          PRINT OFF                                                              
          COPY  *LLMPSEQU(100)                                                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OUT      EXIT  0                                                                
 %DELETE DISM0173                                                                
 DMT7     SERCOM ' VOLUME IS NOT CURRENTLY MOUNTED'                              
 %AFTER DISM0174                                                                 
          SPACE 2                                                                
 %DELETE DISM0178 DISM0182                                                       
          SPACE 2                                                                
 %DELETE DISM0184                                                                
          SPACE 2                                                                
 %BEFORE FILEMARK                                                                
-FILE 256;   891 RECORDS:  
0MNT      TITLE  '*MOUNT - FOR MOUNTING PRIVATE TAPES'                   UMNT0001
 *                                                                       UMNT0002
 *        MODIFIED VERSION OF *MOUNT(VERSION UN2480)                     UMNT0003
 *    FEB 3,1969                                                         UMNT0004
 *               TAPES ONLY. LABELS CHECKED FOR 9 TRACK ONLY.            UMNT0005
 *                                                                       UMNT0006
          SPACE 2                                                        UMNT0007
          MACRO                                                          UMNT0008
 &SLB     MESSAGE &X,&RTN                                                UMNT0009
 &SLB     LA    RF,##&SYSNDX  THE MESSAGE                                UMNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ADSIZE   DS      F                                                      UMNT0882
 ADSIZEL  DS      C                                                      UMNT0883
 CHAR    DS     C                                                        UMNT0884
 VNAME    EQU     COMMENT+4                                              UMNT0885
 RETRY   DS      C          RETRY VALUE                                  UMNT0886
 *                                                                       UMNT0887
 DEVCODE  DS    XL1           DEVICE CODE                                UMNT0888
 PSECTL#  EQU   *-PSECT#                                                 UMNT0889
 PSECTL   EQU   *-PSECT       LENGTH OF BEASTIE                          UMNT0890
          END   MOUNT                                                    UMNT0891
-FILE 257;   123 RECORDS:  
0SYM              MOUNT  CDEVT  sMVOLID  SCRTAP  BTNOTL  }DEVICMNT 0001
 SYM           7  DEVICE  FPSDN FPSD FPSDC &FMODE =FMODELMNT 0002
 SYM            mMODEOK sMODE9 [FSIZE FSIZN FRETRY FRTYNMNT 0003
 SYM            FQUIT FVNAME >FVEND NEXTP NEXTA ONEXTOMNT 0004
 SYM            MOUNTS MOUC +MOUD MOUE FIXFDUB MOUG %MNT 0005
 SYM           MOUH MOUTB 	 MWTOR 	MOUI 	MOUJ 	MOUSCB 	:MOUSMNT 0006
 SYM           CR 	MOVEV 	mMOUJA 	MOUKA 	sMOUK 	MOUL MOUT MNT 0007
 SYM           <QQSV MOUR MOUQh m  H    e ^##0009  H BMNT 0008
 SYM               MOUS WSETMODEE 6ENDMOD    SETLABELh ԥhMNT 0009
 SYM            ƥh h h h  h  h  ISLABL fMNT 0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        YSRL      K   K }; N  & N  - K }.- N  }NK  - REMOMNT 0114
 TXT        VE TAPE ON XXXX ********************MOUNT        ON     MNT 0115
 TXT  Q        *FSFREWRUN                                            MNT 0116
 TXT  U       T * B * BT*                                            MNT 0117
 TXT  0      MSOURCE*SOURCE* SINK*   MSINK*  AFD*    PUNCH*  DUMMY*  MNT 0118
 TXT        8CV 8EN 8OF 8ON 5CV 5EN 5OF 5ON 2CV 2EN 2OF 2ON         MNT 0119
 RLD                      %        MNT 0120
 RLD              u   ^ 	           {   DMNT 0121
 RLD              H   }   M   Q                   MNT 0122
 END                                                                   MNT 0123
-FILE 258;   363 RECORDS:  
0TCPY     TITLE 'PROGRAM TO COPY TAPES USING OVERLAPPED I/O'             TPCP0001
          SPACE 5                                                        TPCP0002
          MACRO                                                          TPCP0003
 &L1      ERROR &MSG                                                     TPCP0004
 &L1      LA    R0,L'Q&SYSNDX                                            TPCP0005
          BAL   R1,RD2                                                   TPCP0006
 Q&SYSNDX DC    C&MSG                                                    TPCP0007
          MEND                                                           TPCP0008
          SPACE 3                                                        TPCP0009
          MACRO                                                          TPCP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OMIT     EQU   X'04'              SKIP BAD RECORDS                      TPCP0354
 STOR     EQU   X'08'              GETSPACE BUFFERS ATTACHED             TPCP0355
 NOWR     EQU   X'10'              DON'T WRITE NEXT RECORD               TPCP0356
 ALL      EQU   X'20'              COPY ALL OF TAPE                      TPCP0357
 DONE     EQU   X'40'              ALL DONE WITH COPY                    TPCP0358
 IGNRC    EQU   X'80'              IGNORE RC FROM WRITE                  TPCP0359
          SPACE                                                          TPCP0360
          LTORG                                                          TPCP0361
          SPACE 5                                                        TPCP0362
          END                                                            TPCP0363
-FILE 259;   423 RECORDS:  
0TDMP     TITLE 'MTS TAPE/FILE DUMP UTILITY'                             TDMP0001
          PRINT NOGEN                                                    TDMP0002
          SPACE 3                                                        TDMP0003
          MACRO                                                          TDMP0004
 &SLB     ERMSG &MSG                                                     TDMP0005
          LCLA  &BARF                                                    TDMP0006
 &SLB     BAL   RF,ERRMSG          PRINT OUT ERROR MESSAGE               TDMP0007
 &BARF    SETA  K'&MSG-2                                                 TDMP0008
          DC    Y(&BARF),C&MSG                                           TDMP0009
          MEND                                                           TDMP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FHDR     EQU   *-1                                                      TDMP0414
          DC    C'   RECORD'                                             TDMP0415
 FREC     DC    C' ',X'20202020202120',C',  LINE'                        TDMP0416
 FLNR     DC    C' ',X'202020202021',C'.',X'202020',C',  LENGTH'         TDMP0417
 FLEN     DC    C' ',X'2020202120'                                       TDMP0418
 FHDRL    EQU   *-FHDR                                                   TDMP0419
          SPACE 4                                                        TDMP0420
          LTORG                                                          TDMP0421
 IBUF     DS    CL32767                                                  TDMP0422
          END                                                            TDMP0423
-FILE 260;   193 RECORDS:  
0 /*           ROUTINE TO PRINT ALL LABELS OF A TAPE                             
  */                                                                             
                                                                                 
  CHKLABL: PROCEDURE OPTIONS(MAIN);                                              
                                                                                 
          DECLARE                                                                
                                                                                 
               IHEREAD ENTRY (,BIT(32), DEC FIXED(9,3),FILE),                    
               (CC,NOTRIM) BIT(32) INIT ((32)'0'B), /* MODIFIERS */              
               (SKIPSW,                 /* DON'T READ A RECORD */                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                                                 
  WHEW:   PUT FILE(SPRINT) SKIP(5) LIST ((10)'<*>','END OF TAPE',                
               (9)'<*>');                                                        
                                                                                 
  DONE:   PUT FILE(SPRINT) SKIP(2) LIST (' ');                                   
          RETURN;                                                                
                                                                                 
  STAR:   FORMAT (A(3), X(2), A(80), X(2), A(3));                                
                                                                                 
                                                  END CHKLABL;                   
-FILE 261;   799 RECORDS:  
0UPDT     TITLE 'UNIVERSITY OF MICHIGAN MTS SEQUENTIAL UPDATE PROGRAM'   UPDT0001
 *********************************************************************** UPDT0002
 *                                                                     * UPDT0003
 *                               MACROS                                * UPDT0004
 *                                                                     * UPDT0005
 *********************************************************************** UPDT0006
          SPACE 1                                                        UPDT0007
          MACRO                                                          UPDT0008
 &LAB     TPCNT &A                                                       UPDT0009
 &LAB     MVC   T2(4),=CL4'&A'                                           UPDT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SRCAREA  DS    80CL1              SOURCE INPUT AREA                     UPDT0790
          DC    C' '                                                     UPDT0791
 INAREA   DS    80CL1              INPUT FILE INPUT AREA                 UPDT0792
          DC    C' '                                                     UPDT0793
 OUTAREA  DS    80CL1              OUTPUT FILE OUTPUT AREA               UPDT0794
          SPACE 1                                                        UPDT0795
 KYWDAD   DS    F                  CURRENT LOCATION IN SRCAREA           UPDT0796
 KYWDREG  DS    6F                 KEYWORD PROCESSOR REGISTER SAVE AREA  UPDT0797
          SPACE 2                                                        UPDT0798
          END   UPDATE                                                   UPDT0799
-FILE 262;    54 RECORDS:  
0%INPUT   DSR.UPDATE 100                                                         
 %OUTPUT  -UPDATE                                                                
 %DELETE  UPDT0075                                                               
          MVC   T1+1(79),T1                                                      
 %AFTER   UPDT0136                                                               
          DC    CL4'%BSR'          %BSR                                          
          DC    A(BSR)                                                           
 %AFTER   UPDT0150                                                               
          DC    CL4'%FSR'          %FSR                                          
          DC    A(FSR)                                                           
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BSR      TPCNT BSR                                                              
 %AFTER   UPDT0483                                                               
 FSR      TPCNT FSR                                                              
 %DELETE  UPDT0601                                                               
          MVC   T1+1(79),T1                                                      
 %DELETE  UPDT0625,3                                                             
 %DELETE  UPDT0754                                                               
 T1       DS    20F                TEMPORARY AREA FOR DIRTY WORK                 
 %BEFORE  FILEMARK                                                               
 %END                                                                            
-FILE 263;   270 RECORDS:  
0DWND     TITLE 'DOWNDATE'                                               DNDT0001
 *                                                                       DNDT0002
 *        WUPDATE PRODUCES "UPDATE" CONTROL CARDS ON SPUNCH              DNDT0003
 *        TO MAKE "ORIGINAL SOURCE" IDENTICAL TO "CURRENT SOURCE".       DNDT0004
 *        "ORIGINAL SOURCE" MUST CONTAIN UPDATE-COMPATIBLE SEQUENCING.   DNDT0005
 *        BLOCK FACTORS MUST NOT EXCEED 80.                              DNDT0006
 *                                                                       DNDT0007
 *                                                                       DNDT0008
 *                                                                       DNDT0009
 *                                                                       DNDT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0D                                                       DNDT0261
 XNEW     DS    (BLK*NL)C          BUFFERS FOR NEW RECORDS               DNDT0262
          DC    X'FF'              SAFETY BYTE                           DNDT0263
 *                                                                       DNDT0264
          DS    0D                                                       DNDT0265
 XOLD     DS    850000C            BUFFER FOR OLD SOURCE                 DNDT0266
 OLDLIM   EQU   *                                                        DNDT0267
          DS    (OL)C              AUXILLIARY BUFFER                     DNDT0268
 SOMBER   EQU   XNEW+NL*(BLK-1)-1                                        DNDT0269
          END                                                            DNDT0270
-FILE 264;    78 RECORDS:  
0ALLL     TITLE 'PROGRAM TO LIST ALL LINES OF DISTRIBUTION TAPE'         ALLL0001
 LISTALL  START                                                          ALLL0002
          PRINT NOGEN                                                    ALLL0003
          USING *,12                                                     ALLL0004
          LR    12,15                                                    ALLL0005
          MVI   SW,0                                                     ALLL0006
          CALL  QGETUCB,(NAME,UCB)                                       ALLL0007
          SERCOM 'ENTER FILE NUMBER TO START AT'                         ALLL0008
 GLAB     GUSER GIN,GLEN,EXIT=GLAB                                       ALLL0009
          LH    7,GLEN                                                   ALLL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PAT      DC    X'40202120'                                              ALLL0069
 OUTLINE  DC    C'-FILE NUMBER '                                         ALLL0070
 NBR1     DC    CL100' '                                                 ALLL0071
          DC    C'FILE NUMBER '                                          ALLL0072
 NBR2     DC    C'     '                                                 ALLL0073
 OUTL     EQU   *-OUTLINE                                                ALLL0074
 OUTLEN   DC    0F'0',AL2(OUTL)                                          ALLL0075
 REG      DS    CL80                                                     ALLL0076
 GIN      EQU   REG                                                      ALLL0077
          END                                                            ALLL0078
-FILE 265;    51 RECORDS:  
0SYM              LISTALLg  IHB0001Bh  h    h  h  ԥh  ƥALLL0001
 SYM           h  h  h   h   c  ###1      GLABh  %hALLL0002
 SYM             h  h  h  @h     INLP  {SKPLPg  DIHB00ALLL0003
 SYM           10Bh  h  }  h  J  \NEXTFILEh  Yh  h  0h ALLL0004
 SYM            4h  8 h  c  ###3     h h h h ALLL0005
 SYM           h  h c ###4     PRLOOPh h h <ALLL0006
 SYM           h &h  h ˥h h %h h  h hh ALLL0007
 SYM           h h mh q h c ###7    h ܥh ^hALLL0008
 SYM            h h  h {c B###8    C PRLh Mh ALLL0009
 SYM           Qh h \h U h 4h 8h h  h  h ALLL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                                ALLL0042
 TXT                           FILE NUMBER       b                  ALLL0043
 TXT                                                             ALLL0044
 RLD                         %          J  Y  ALLL0045
 RLD               0      <   % h  ALLL0046
 RLD               ^  M Q  4 8     ALLL0047
 RLD                   %  h  y  ^ H ALLL0048
 RLD              } 9        D   * 	     0    ALLL0049
 RLD                                          ALLL0050
 END                                                                    ALLL0051
-FILE 266;   340 RECORDS:  
0LCAT     TITLE  'PROGRAM TO LIST THE NAMES OF A USERS FILES'            CATL0001
 LCATALOG START 0                                                        CATL0002
 *                                                                       CATL0003
 *        IF PAR=*SYS,WILL PRINT OUT SYSTEM CATALOG                      CATL0004
 *              =3/LINE,WILL PRINT 3 FILES PER LINE INSTEAD OF ONLY 1    CATL0005
 *              =DISK,WILL PRINT ONLY THOSE FILE ON DISK STORAGE         CATL0006
 *              =DATACELL,WILL PRINT ONLY THOSE FILE ON DATA CELL        CATL0007
 *              =LINE,WILL PRINT ONLY LINE FILES(ON DISK AND/OR DC)      CATL0008
 *              =SEQ,WILL PRINT ONLY SEQUENTIAL FILES                    CATL0009
 *              =SEQWL,WILL PRINT ONLY SEQ FILES WITH LINE NUMBERS       CATL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          CATL0331
          CNOP  0,8                                                      CATL0332
 CARD     DC    256C' '                                                  CATL0333
 FCB      DS    70F                                                      CATL0334
 SCR      DS    250F                                                     CATL0335
 CYLSIZAD EQU   52                                                       CATL0336
 TRKLENAD EQU   54                                                       CATL0337
 DTYPEAD  EQU   30                                                       CATL0338
          COPY  *CATEQU                                                  CATL0339
          END                                                            CATL0340
-FILE 267;   488 RECORDS:  
0SNIF     TITLE 'PROGRAM TO EXAMINE FILE STORAGE CHARACTERISTICS'        FSNF0001
 FILESNIF START 0                                                        FSNF0002
          ENTER 5,SA=SAVEAREA                                            FSNF0003
          L     2,0(1)        GET THE PARAMETER ADCON                    FSNF0004
          LH    3,0(2)        GET THE PARAMETER LENGTH                   FSNF0005
          LTR   3,3           SEE IF THERE IS A PARAMETER                FSNF0006
          BZ    OLDBACK       BRANCH IF NOT                              FSNF0007
          STH   3,NAMELEN     SAVE THE LENGTH                            FSNF0008
          BCTR  3,0           SUBTRACT ONE FROM PARAMETER LENGTH         FSNF0009
          EX    3,MOVER       AND MOVE IT TO REGULAR PLACE               FSNF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HOLEAREA DS    CL256         PLACE TO KEEP HOLE COUNTS                  FSNF0479
 WORKAREA DS    40D           STANDARD WORK AREA FOR FILE ROUTINES       FSNF0480
 BUFFER   DS    CL140         VTOC RECORD AREA FOR CALLS ON DSKOP        FSNF0481
 LOGRECL  EQU   4                                                        FSNF0482
 SEQ      EQU   X'10'                                                    FSNF0483
 LNUMS    EQU   X'08'                                                    FSNF0484
 D2321    EQU   X'80'                                                    FSNF0485
 BAS      EQU   X'04'                                                    FSNF0486
          COPY  *FCBEQU                                                  FSNF0487
          END   FILESNIF                                                 FSNF0488
-FILE 268;   176 RECORDS:  
0         TITLE ' PROGRAM TO PRINT USE COUNT AND LAST REF DATE'          FUSE0001
 FILEUSE  START 0                                                        FUSE0002
          REQU                                                           FUSE0003
          ENTER RC,SA=SA                                                 FUSE0004
          L     R2,0(,R1)          SAVE PARAMETER LIST                   FUSE0005
  SPRINT '  FILENAME        OWNER TYPE  LOC  USECNT  LASTREF  CREDATE VOXFUSE0006
                LUME'                                                    FUSE0007
          LTR   R2,R2                                                    FUSE0008
          BZ    READ     NO PARAMETERS                                   FUSE0009
          LH    R3,0(,R2)                                                FUSE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LTORG                                                          FUSE0167
 SCRC     DS    70D                                                      FUSE0168
          COPY *CATEQU                                                   FUSE0169
 LOOP     EQU   X'80'                                                    FUSE0170
 ALL      EQU   X'40'                                                    FUSE0171
 D2314    EQU   X'40'                                                    FUSE0172
 SEQ      EQU   X'10'                                                    FUSE0173
 LNUM     EQU   X'08'                                                    FUSE0174
 FMT1     DC    C'C34,I7,S1,C8,S1,C8,S1,C6*'                             FUSE0175
          END                                                            FUSE0176
-FILE 269;   140 RECORDS:  
0JLGR     TITLE 'JULIAN TO GREGORIAN TIME CONVERSION--13 JUN 69'         JGCV0001
 *********************************************************************** JGCV0002
 *                                                                     * JGCV0003
 *        JULGRGTM                                                     * JGCV0004
 *                                                                     * JGCV0005
 *        ON ENTRY, GR1 CONTAINS THE JULIAN TIME IN MINUTES.           * JGCV0006
 *                                                                     * JGCV0007
 *        ON EXIT, GR0 AND GR1 CONTAIN THE GREGORIAN DATE IN THE FORM  * JGCV0008
 *        MM-DD-YY, AND GR2 AND GR3 CONTAIN THE TIME OF DAY IN THE FORM* JGCV0009
 *        HH:MM.00.                                                    * JGCV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        DUMMY SECTION FOR USER SAVE AREA                             * JGCV0131
 *                                                                     * JGCV0132
 *********************************************************************** JGCV0133
          SPACE 5                                                        JGCV0134
 SAVE     DSECT                                                          JGCV0135
          DS    5A                                                       JGCV0136
 DATE     DS    CL8                                                      JGCV0137
 TIME     DS    CL8                                                      JGCV0138
          SPACE 5                                                        JGCV0139
          END                                                            JGCV0140
-FILE 270;   140 RECORDS:  
0PERM     TITLE 'PROGRAM TO SET ACCESS BITS IN FILES'                    PMIT0001
          PRINT NOGEN                                                    PMIT0002
 PERMIT   START 0                                                        PMIT0003
          ENTER 12,SA=SA                                                 PMIT0004
          MVI   SW+1,X'F0'         MAKE IT REUSABLE                      PMIT0005
          L     2,0(0,1)                                                 PMIT0006
          LTR   2,2                                                      PMIT0007
          BZ    READ                                                     PMIT0008
          LH    3,0(0,2)            SEE IF HE GAVE US PARAMS             PMIT0009
          LTR   3,3                                                      PMIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 JOBNO    DS    3C                                                       PMIT0131
          DC    C' HAS TRIED TO PERMIT A FILE NOT BELONGING TO HIM '     PMIT0132
 FILENAME DS    16C                                                      PMIT0133
 MESSL    EQU   *-MESS                                                   PMIT0134
 WTO      EQU   7                                                        PMIT0135
 IN       DS    CL100                                                    PMIT0136
 INL      DS    H                                                        PMIT0137
 FCBAI    EQU   36                                                       PMIT0138
 SA       DS    18F                                                      PMIT0139
          END                                                            PMIT0140
-FILE 271;   244 RECORDS:  
0COPY     TITLE 'PROGRAM TO MOVE FILES TO ANOTHER USERID'                COPY0001
 *                                                                       COPY0002
 *         IF PAR=SIGNON:FILENAME,THEN SPUNCH=OUTPUT FILENAME            COPY0003
 *         OTHERWISE INFORMATION ENTERED VIA GUSER                       COPY0004
 *                                                                       COPY0005
          PRINT NOGEN                                                    COPY0006
 FILECOPY START 0                                                        COPY0007
          ENTER 12,SA=SA                                                 COPY0008
          MVC   SAV13(4),4(13)      SAVE IT FROM READS                   COPY0009
          L     2,0(0,1)                                                 COPY0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SEQ      EQU   X'80'                                                    COPY0235
 FAKENAME DC    CL100'****'                                              COPY0236
 ENDLINE  DS    F                                                        COPY0237
 READL    DS    0F            PARAMETER LIST FOR READS                   COPY0238
 FCBAD    DS    A     FCB ADDRESS                                        COPY0239
 LINE     DS    F             LINE NUMBER                                COPY0240
          DC    A(IN)         LINE                                       COPY0241
          DC    A(CWRD)                                                  COPY0242
 CWRD     DS    XL4                                                      COPY0243
          END                                                            COPY0244
-FILE 272;   607 RECORDS:  
0       MACRO                                                            FSAV0001
 &LOC   TZ      &MSK,&ADD                                                FSAV0002
 &LOC   TM      SW,&MSK                                                  FSAV0003
        BZ      &ADD                                                     FSAV0004
        MEND                                                             FSAV0005
        SPACE   3                                                        FSAV0006
        MACRO                                                            FSAV0007
 &LOC   TN      &MSK,&ADD                                                FSAV0008
 &LOC   TM      SW,&MSK                                                  FSAV0009
        BNZ     &ADD                                                     FSAV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        LTORG                                                            FSAV0598
        DS      0F                                                       FSAV0599
 MORTOC DS      250XL16                                                  FSAV0600
 TOC    DS      250CL16                                                  FSAV0601
 TOCSIZ DS      F                                                        FSAV0602
 AUXTOC DS      250CL16                                                  FSAV0603
 TERM   DC      XL16'0'                                                  FSAV0604
 SIZLOC EQU     TOCSIZ-TOC                                               FSAV0605
 BUF    DS      16CL4096                                                 FSAV0606
        END                                                              FSAV0607
-FILE 273;   247 RECORDS:  
0DMPF     TITLE 'DUMP LINE FILE IN HEXADECIMAL'                          FILD0001
          MACRO                                                          FILD0002
 &LABE    SPRINT &ARG                                                    FILD0003
 &LABE    LA    R1,COM&SYSNDX                                            FILD0004
          L     LR,=V(SPRINT)                                            FILD0005
          BASR  RR,LR                                                    FILD0006
          B     T&SYSNDX                                                 FILD0007
 *                                                                       FILD0008
 COM&SYSNDX DC  A(MCOM&SYSNDX)                                           FILD0009
          DC    A(LCOM&SYSNDX)                                           FILD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LENLIN   DC    H'0'                                                     FILD0238
 LENLIN1  DC    H'0'                                                     FILD0239
 MAXAR    EQU   256                                                      FILD0240
 PACK     PACK  CONVERT,0(0,R2)                                          FILD0241
 CONVERT  DS    D'0'                                                     FILD0242
 MAXCHR   EQU   3                                                        FILD0243
 LENGTH   DC    C'LENGTH='                                               FILD0244
 MINLEN   DC    Y(L'LENGTH+1)                                            FILD0245
 OUTIT    MVC   OUTBUF+1(0),0(R3)                                        FILD0246
          END                                                            FILD0247
-FILE 274;   124 RECORDS:  
0TABEDIT  CSECT                                                          TBED0001
 TABCODE  EQU   X'05'                                                    TBED0002
 *                                                                       TBED0003
          BALR  12,0                                                     TBED0004
          USING *,12               ESTABLISH BASE REGISTER               TBED0005
          PRINT NOGEN                                                    TBED0006
          LA    13,SAVEAREA        AND SAVEAREA REGISTER                 TBED0007
          SPACE 1                                                        TBED0008
          TM    0(1),X'80'         IS THERE A PARAMETER LIST?            TBED0009
          BC    8,NOPAR            BIT 0 TELLS ALL                       TBED0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LEN2     DS    H                                                        TBED0115
 LEM      DC    H'27'                                                    TBED0116
 MOD      DC    F'0'                                                     TBED0117
 TWO      DC    F'0'                                                     TBED0118
 LNR      DS    F                                                        TBED0119
 AIMAGE   DC    A(IMAGE)                                                 TBED0120
 SAVEAREA DS    18F                                                      TBED0121
 DBWD     DS    D                                                        TBED0122
 TABS     DS    20F                                                      TBED0123
          END                                                            TBED0124
-FILE 275;   913 RECORDS:  
0FORT     TITLE '                       NEW MTS FORTEDIT'                FTED0001
          SPACE                                                          FTED0002
          MACRO                                                          FTED0003
 &L       MSG   &X                                                       FTED0004
 &L       DC    Y(L'L&L)                                                 FTED0005
 L&L      DC    C&X                                                      FTED0006
          MEND                                                           FTED0007
          SPACE                                                          FTED0008
 CANOE    CSECT                                                          FTED0009
          SPACE                                                          FTED0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBELN  DS    F                       END LINE NR                      FTED0904
 FDUBILN  DS    F                       INCREMENT LINE NR                FTED0905
 FDUBSBR  DS    F                       SUBROUTINE LOCN                  FTED0906
 FDUBSCR  DS    F                       SCRATCH - SEQL PTR               FTED0907
 FDUBNAM  DS    F                       BACK PTR TO WHO'S USING IT       FTED0908
 FDUBDSW  DS    F                       DEFAULT SWITCHES                 FTED0909
 FDUBCHN  DS    F                       FDUB CHAIN                       FTED0910
 *                                                                       FTED0911
 FDUBLTH  EQU   *-FDUBDCT                                                FTED0912
          END   CANOE                                                    FTED0913
-FILE 276;    52 RECORDS:  
0BCDE     TITLE 'BCD TO EBCDIC CONVERSION'                               BCDE0001
          MACRO                                                          BCDE0002
 &NAME    GEN   &START,&END        MACRO TO GENERATE CONSTANTS BETWEEN   BCDE0003
          LCLA  &COUNT             &START AND &END                       BCDE0004
 &COUNT   SETA  &START                                                   BCDE0005
          AIF   ('&NAME' EQ '').REPEAT                                   BCDE0006
 &NAME    EQU   *                                                        BCDE0007
 .REPEAT  DC    AL1(&COUNT)                                              BCDE0008
 &COUNT   SETA  &COUNT+1                                                 BCDE0009
          AIF   (&COUNT LE &END).REPEAT                                  BCDE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TABLE    GEN   0,75                                                     BCDE0043
          DC    C')'                                                     BCDE0044
          GEN   77,79                                                    BCDE0045
          DC    C'+'                                                     BCDE0046
          GEN   81,107                                                   BCDE0047
          DC    C'('                                                     BCDE0048
          GEN   109,122                                                  BCDE0049
          DC    C'='''                                                   BCDE0050
          GEN   125,255                                                  BCDE0051
          END   BEGIN                                                    BCDE0052
-FILE 277;    85 RECORDS:  
0         TITLE 'EBCDBCD -- TRANSLATES EBCDIC TO AUGMENTED BCD'          EBCD0001
 *                                                                       EBCD0002
 *        EBCDBCD TRANSLATES INPUT LINES IN EBCDIC TO                    EBCD0003
 *        CHARACTER-EQUIVALENT OUTPUT LINES IN AUGMENTED BCD.            EBCD0004
 *                                                                       EBCD0005
 *        LOWER-CASE LETTERS ARE CONVERTED TO UPPER CASE.                EBCD0006
 *                                                                       EBCD0007
          SPACE 6                                                        EBCD0008
          MACRO                                                          EBCD0009
 &NAME    CALL  &SUB,&PARLIST                                            EBCD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    10X'40',X'7DE0D07C7B7F'                                  EBCD0076
          DC    X'40C1C2C3C4C5C6C7C8C9',6X'40'                           EBCD0077
          DC    X'40D1D2D3D4D5D6D7D8D9',6X'40'                           EBCD0078
          DC    X'4040E2E3E4E5E6E7E8E9',22X'40'                          EBCD0079
          DC    X'40C1C2C3C4C5C6C7C8C9',6X'40'                           EBCD0080
          DC    X'40D1D2D3D4D5D6D7D8D9',6X'40'                           EBCD0081
          DC    X'4040E2E3E4E5E6E7E8E9',6X'40'                           EBCD0082
          DC    X'F0F1F2F3F4F5F6F7F8F9',6X'40'                           EBCD0083
          LTORG                                                          EBCD0084
          END   EBCDBCD                                                  EBCD0085
-FILE 278;   368 RECORDS:  
0SQSH     TITLE 'CARD SQUASHER'                                          SQSH0001
 * DATE: 02-03-68 CHANGES MADE TO RECOGNIZE SYM,NCA, AND ENT CARDS       SQSH0002
 *        CARDS WHICH ARE NOT RECOGNIZED ARE TREATED AS REP CARDS        SQSH0003
 SQUASH   START                                                          SQSH0004
          COPY  APF                                                      SQSH0005
          EJECT                                                          SQSH0006
          ENTRY SQUASHC                                                  SQSH0007
 *                                                                       SQSH0008
 SQUASHC  STM   RR,RC,12(RD)  SAVE REGISTERS                             SQSH0009
          USING SQUASHC,RC                                               SQSH0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MSGAR3   DC    C'     RECORD LENGTH > 80;ILLEGAL'                       SQSH0359
 MSGLNG3  DC    Y(L'MSGAR3)                                              SQSH0360
 *                                                                       SQSH0361
 MSG4     DC    A(MSGAR4)                                                SQSH0362
          DC    A(MSGLNG4)                                               SQSH0363
          DC    A(0)                                                     SQSH0364
 MSGAR4   DC    C'     RECORD IGNORED'                                   SQSH0365
 MSGLNG4  DC    Y(L'MSGAR4)                                              SQSH0366
 WORKAR   DS    64F                                                      SQSH0367
          END                                                            SQSH0368
-FILE 279;  2828 RECORDS:  
0      BLOCK DATA                                                        TIDY0001
 C                                                                       TIDY0002
 C     THIS BLOCK DATA CONTAINS ALL THE DATA STATEMENTS FOR TIDY.        TIDY0003
 C                                                                       TIDY0004
       COMMON ICOL,IFIR,IOUT(1326),JCOL,JINT(1600),JMAX,JOB(80),KB15,KBUFTIDY0005
      1F(80),KD15,KD79,KOL73(3),L772,LAST,LCPY,LDEF(3000),LDOS(10),LFIR,LTIDY0006
      2QUAL,LREF(1000),MCOL,MCOM,MEOF,MEX,MILDO,MLBL,MLGC,MLIST,MP2,MPUN,TIDY0007
      3MREF,MSKP,MSTOP,MTRAN,NBLC,NCD,NDEF,NDOS,NINS,NPAR,NPUN,NREC,NREF,TIDY0008
      4NROUT,NRT1,NRT2,NTEMP(5),NXEQ                                     TIDY0009
       COMMON /ALPHA/ KBL,KDIG(10),KABC(26),KSPK(11)                     TIDY0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 5     IF (LINE) 6,7,6                                                   TIDY2819
 6     NPAGE=NPAGE+1                                                     TIDY2820
       PRINT 9, NPAGE,JOB                                                TIDY2821
       LINE=0                                                            TIDY2822
 7     RETURN                                                            TIDY2823
 8     LINE=LINE+N                                                       TIDY2824
       IF (LINE-50) 7,6,6                                                TIDY2825
 C                                                                       TIDY2826
 9     FORMAT (1H1,6X,11H* T I D Y *,61X,4HPAGE,I4/7X,80A1/1X)           TIDY2827
       END                                                               TIDY2828
-FILE 280;   359 RECORDS:  
0         PRINT ON,NOGEN                                                 ASMT0001
 TIDY     START 0                                                        ASMT0002
 SCAN2  EQU  2                                                           ASMT0003
 START    EQU   3         PTR TO START OF FIELD(INPUT)                   ASMT0004
 CNT      EQU   4         USED IN 'PARM'                                 ASMT0005
 WORK     EQU   5                                                        ASMT0006
 END      EQU   6         END OF SCANNED                                 ASMT0007
 LEN      EQU   7         LENGTH OF SCANNED FIELD                        ASMT0008
 OUT      EQU   8         PTR TO OUTPUT AREA                             ASMT0009
 PTR      EQU   OUT                 USED IN 'PARM'                       ASMT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   ORG  TAB+C'K'                                                         ASMT0350
   DC  X'08080008000C'                                                   ASMT0351
   ORG  TAB+C'S'                                                         ASMT0352
   DC  X'0808'                                                           ASMT0353
   ORG  TAB+C'X'                                                         ASMT0354
   DC  X'0C000C'                                                         ASMT0355
   ORG  TAB+C'0'                                                         ASMT0356
   DC  10X'10'                                                           ASMT0357
   ORG                                                                   ASMT0358
   END                                                                   ASMT0359
-FILE 281;    72 RECORDS:  
0 TITLE 'MACRO LIBRARY GENERATOR'                                        MACG0001
 *                                                                       MACG0002
 * SCARDS - MACRO LIBRARY                                                MACG0003
 * SPUNCH - MACRO DIRECTORY                                              MACG0004
 *                                                                       MACG0005
 LIBGEN CSECT                                                            MACG0006
 *                                                                       MACG0007
 R0 EQU 0                                                                MACG0008
 R1 EQU 1                                                                MACG0009
 R2 EQU 2                                                                MACG0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       MACG0063
 ADW DS D                                                                MACG0064
 IMG DS CL80                                                             MACG0065
  DC CL8'%'                                                              MACG0066
 LNO DS F                                                                MACG0067
 WA DS CL8                                                               MACG0068
 OBF DS CL80                                                             MACG0069
 SETLNO MVC OBF+9(0),0(R1)                                               MACG0070
 SETMN MVC OBF(0),0(R3)                                                  MACG0071
  END                                                                    MACG0072
-FILE 282;   268 RECORDS:  
0GLB1     TITLE 'FEWER-CONTROL-CARD-PRODUCING GENLIB, CSECTNAME GENLIB1' GENL0001
          MACRO                                                          GENL0002
 &NAME    GTSPC &LIST,&LEN,&REG                                          GENL0003
 &NAME    L     &REG,SPACENOW                                            GENL0004
          S     &REG,=A(&LEN)                                            GENL0005
          C     &REG,SPACEEND                                            GENL0006
          BNL   *+22                                                     GENL0007
          LM    15,1,=A(GETSPACE,3,1024)                                 GENL0008
          BALR  14,15                                                    GENL0009
          LA    &REG,8(1)                                                GENL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LINENUMB DC    F'-99999000'                                             GENL0259
 MODNUMB  DC    A(0)                                                     GENL0260
 INCARD   DS    64F                                                      GENL0261
 MLTDEFMG DC    C'         MULTIPLY DEFINED, FIRST VALUE TAKEN'          GENL0262
 WORKA    DS    F                                                        GENL0263
 Z        DC    A(0)                                                     GENL0264
 ERROR1MG DC    C'EOF FOUND IN MODULE, END CARD ADDED'                   GENL0265
 TABLE     DS    (TABLEN)F                                               GENL0266
 LEN      DS    H                                                        GENL0267
          END                                                            GENL0268
-FILE 283;   647 RECORDS:  
0GLIB     TITLE '                       GENERATE A LOAD LIBRARY'         GENL0001
 GENLIB   CSECT                                                          GENL0002
          ENTER 12,SA=SA                HELLO THERE                      GENL0003
          L     9,0(0,1)                SAVE PARAMETER STRING IF ANY     GENL0004
          SVC   38                      TIME FOR THE CUP TIME            GENL0005
          STM   0,1,CPUTIME                                              GENL0006
          L     1,SMLTBLSZ                                               GENL0007
          GETSPACE T=1                                                   GENL0008
          ST    1,SMLTBL                                                 GENL0009
          ST    1,SMLTBL+8                                               GENL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BACKPTR  EQU   4                                                        GENL0638
 NAME     EQU   8                                                        GENL0639
 LIBPTR   EQU   16                                                       GENL0640
 NXTPTR   EQU   20                                                       GENL0641
 ERPTR    EQU   24                                                       GENL0642
 NXTLIB   EQU   24                                                       GENL0643
 REFCNT   EQU   28                                                       GENL0644
 LIBSEQ   EQU   30                                                       GENL0645
          SPACE 5                                                        GENL0646
          END                                                            GENL0647
-FILE 284;  3042 RECORDS:  
0                                                                        OSMC0001
          MACRO                                                          OSMC0002
 &CNAME   CLOSE &PAR1,&MF=I,&TYPE=                                       OSMC0003
          LCLA  &ACTR,&ASUM,&CTR,&CTR1,&LGTH,&NUMBER                     OSMC0004
          LCLB  &LOOPSW,&MFESW,&MFISW,&MFI2SW,&NULLSW,&B(3)              OSMC0005
          LCLC  &PARA                                                    OSMC0006
 &NUMBER  SETA  N'&PAR1                                                  OSMC0007
 &CTR     SETA  1                                                        OSMC0008
 &CTR1    SETA  2                                                        OSMC0009
 &LOOPSW  SETB  1                                                        OSMC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MACRO                                                          OSMC3033
 &NAME    NOTE  &DCB                                                     OSMC3034
          AIF   ('&DCB' EQ '').ERR                                       OSMC3035
 &NAME    IHBINNRA &DCB                                                  OSMC3036
          L     15,52(0,1)                                               OSMC3037
          BALR  14,15                                                    OSMC3038
          MEXIT                                                          OSMC3039
 .ERR     IHBERMAC 6                                                     OSMC3040
          MEND                                                           OSMC3041
                                                                         OSMC3042
-FILE 285;  3388 RECORDS:  
0$        TITLE '                   AUXILIARY ROUTINES'                  OSRT0001
 $        CSECT                                                          OSRT0002
          SPACE 5                                                        OSRT0003
          ENTRY SERCOM$,SPRINT$,SPUNCH$                                  OSRT0004
          ENTRY SCARDS$,GUSER$                                           OSRT0005
          SPACE 5                                                        OSRT0006
          USING SERCOM$,15                                               OSRT0007
 SERCOM$  MVI   MOD+3,X'40'                                              OSRT0008
          MVC   ROUTE,=V(SERCOM#)                                        OSRT0009
          B     OUTMSG                                                   OSRT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 QQSV     DS    15F                                                      OSRT3379
          COPY  SAMEQU                                                   OSRT3380
 TIOR     EQU   RB                                                       OSRT3381
 FDUBR    EQU   7                                                        OSRT3382
 DCBR     EQU   11                                                       OSRT3383
 BASE     EQU   8                                                        OSRT3384
 PARMR    EQU   3                                                        OSRT3385
 GDFR     EQU   9                                                        OSRT3386
 NOT      EQU   255                                                      OSRT3387
          END                                                            OSRT3388
-FILE 286;   139 RECORDS:  
0         EJECT                                                          OSCP0001
 DECDSECT DSECT                                                          OSCP0002
 DECSDECB DS    F                       EVENT CNTL BLK                   OSCP0003
 DECTYPE  DS    H                       TYPE OF I/O MACRO                OSCP0004
 DECLNGTH DS    H                       LENGTH OF KEY AND KATA           OSCP0005
 DECDCBAD DS    A                       A(DCB)                           OSCP0006
 DECAREA  DS    A                       A(AREA)                          OSCP0007
 DECIOBPT DS    A                       A(IOB) OR ZERO.                  OSCP0008
          EJECT                                                          OSCP0009
          DCBD  DSORG=(PS)                                               OSCP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RY       EQU   14                                                       OSCP0130
 RZ       EQU   15                                                       OSCP0131
          SPACE                                                          OSCP0132
 *      FLOATING POINT REGISTERS.                                        OSCP0133
          SPACE                                                          OSCP0134
 FA       EQU   0                                                        OSCP0135
 FB       EQU   2                                                        OSCP0136
 FC       EQU   4                                                        OSCP0137
 FD       EQU   6                                                        OSCP0138
          EJECT                                                          OSCP0139
-FILE 287;   217 RECORDS:  
01   /* TEXT90 TO TEXT360 CONVERSION    V3.0   MAY 25,1967    */         T90T0001
  TRNSL:PROCEDURE OPTIONS(MAIN);                                         T90T0002
      DECLARE                                                            T90T0003
         BIN BINARY FIXED (8),                                           T90T0004
         LISTA CHAR (1),                                                 T90T0005
         OFILE FILE INPUT, /*T90 MASTER TAPE*/                           T90T0006
         NFILE FILE OUTPUT, /*T360 MASTER TAPE*/                         T90T0007
         1 Y, /*MASBUF DEFINED AS ARRAY*/                                T90T0008
            2 AMASS(1956) CHAR (1),                                      T90T0009
         MASBUF CHAR (1956) DEFINED Y,  /*PHYSICAL INPUT RECORD*/        T90T0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
            END;                                                         T90T0208
         END;                                                            T90T0209
   TRN55:                                                                T90T0210
      Z=0;  /*RESET CODE INDEX*/                                         T90T0211
      GO TO TRN20;    /*GO TO THE NEXT CHARACTER*/                       T90T0212
      TRN56:                                                             T90T0213
      PUT FILE (SYSPRINT) LIST (TIME);  /*OUTPUT TIME AT END OF JOB*/    T90T0214
      CLOSE FILE (NFILE);                                                T90T0215
      CLOSE FILE (SYSPRINT);                                             T90T0216
  END TRNSL;                                                             T90T0217
-FILE 288;   916 RECORDS:  
0-UNLIST                                                                 MPL10001
 ****MADTOPL1 - A MAD TO PL/I TRANSLATOR                                 MPL10002
 *                                                                       MPL10003
 *FIRST - CONSTRUCT ALL PATTERNS                                         MPL10004
 *                                                                       MPL10005
         &STLIMIT = 200000                                               MPL10006
         DEFINE("DELIT(TEXT)A,B,C,D")                                    MPL10007
         DEFINE("DEBLANK(TEXT)")                                         MPL10008
         DEFINE("PRINTOUT(TEXT)")                                        MPL10009
         DEFINE("DECLOUT(TEXT,ATR)LIST,A")                               MPL10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FAIL13  $OUT1 = "**** UNDEFINED FORMAT LIST" :(FAILCOM)                 MPL10907
 FAIL14  $OUT1 = "**** UNTRANSLATABLE OCCURRENCE OF BLOCK OR ITERATION"  MPL10908
 .               :(FAILCOM)                                              MPL10909
 FAIL15  $OUT1 = "**** UNTRANSLATABLE CONSTANT"    :(FAILCOM)            MPL10910
 FAIL16  $OUT1 = "**** UNTRANSLATABLE DIMENSIONING INFORMATION"          MPL10911
 .             :(FAILCOM)                                                MPL10912
 FAILCOM $OUT1 = "        IN STATEMENT " PROTEMP                         MPL10913
         PRINTOUT("/********UNTRANSLATABLE STATEMENT********/") :(PASS2) MPL10914
 *                                                                       MPL10915
 END                                                                     MPL10916
-FILE 289;    92 RECORDS:  
0C                            LIBRARY TO FAST LIBRARY EDIT               LTFL0001
 C                                                                       LTFL0002
 C             LOGICAL DEVICE NUMBERS:                                   LTFL0003
 C                  1 - NEW LIBRARY PUT HERE.                            LTFL0004
 C                  2 - OLD LIBRARY EXPECTED HERE.                       LTFL0005
 C                  3 - SCRATCH FILE.                                    LTFL0006
 C                  6 - PRINTED OUTPUT.                                  LTFL0007
 C                                                                       LTFL0008
 C             THIS PROGRAM READS A CORRECTLY STRUCTURED LIBRARY         LTFL0009
 C             FILE AND CONVERTS THE 'LIB' RECORDS TO THE NEW            LTFL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       WRITE (6,902) IRECDS                                              LTFL0083
   101 IF ( LINE .EQ. LINTMP) CALL SYSTEM                                LTFL0084
       CALL READ(INPUT,INPUTL,22,LINE,3)                                 LTFL0085
       CALL WRITE(INPUT,INPUTL,86,LINE,1)                                LTFL0086
       LINE = LINE+1000                                                  LTFL0087
       GO TO 101                                                         LTFL0088
 C                                                                       LTFL0089
 C                            THAT'S ALL FOLKS                           LTFL0090
 C                                                                       LTFL0091
       END                                                               LTFL0092
-FILE 290;    28 RECORDS:  
0FIXOBJ ENTER 12,SA=SA                                                   FXOB0001
 B      READ 2,CARD,LEN,LNR,EXIT=DONE                                    FXOB0002
       CLI   LSW,0                                                       FXOB0003
       BNE   A                                                           FXOB0004
       CLC   =C'ESD',CARD+1                                              FXOB0005
       BE    C                                                           FXOB0006
 A     CLC   =C'END',CARD+1                                              FXOB0007
       BNE   B                                                           FXOB0008
       MVI   LSW,0                                                       FXOB0009
       CLC   =C'   ',CARD+29                                             FXOB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       B   B                                                             FXOB0019
 DONE  EXIT 0                                                            FXOB0020
 LSW   DC   X'00'                                                        FXOB0021
 LEN   DS  H                                                             FXOB0022
 LNR   DS   F                                                            FXOB0023
 ELNR   DS   F                                                           FXOB0024
 CARD   DS   80C                                                         FXOB0025
 CARDE  DS    80C                                                        FXOB0026
 SA    DS    18F                                                         FXOB0027
       END                                                               FXOB0028
-FILE 291;   311 RECORDS:  
0         &STLIMIT = 500000                                              FOT30001
 *                                                                       FOT30002
 *              PROGRAM TO CONVERT (MOSTLY) FROM                         FOT30003
 *                        FORMAT                                         FOT30004
 *              TO                                                       FOT30005
 *                        TEXT/360                                       FOT30006
 *                                                                       FOT30007
 *                                                                       FOT30008
 *                                                                       FOT30009
 *        PATTERNS, CONSTANTS, AND THE LIKE ...                          FOT30010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PUTSHORT IDENT(ARG)                              :S(RETURN)             FOT30302
          OUTPUT = OUTER '|' ARG '/ '                                    FOT30303
          PUNCH = ARG '/ '                        :(RETURN)              FOT30304
 PUTTEST  ARG = PC ARG                                                   FOT30305
          PC =                                                           FOT30306
          IDENT(PB,PC)             :F(PUTMRG)                            FOT30307
          ARG = PB ARG                                                   FOT30308
          PB =                          :(PUTMRG)                        FOT30309
 DONE                                                                    FOT30310
 END                                                                     FOT30311
-FILE 292;   288 RECORDS:  
0****TRANSNOBOL - A SNOBOL3-SNOBOL4 TRANSLATOR ****                      TRNS0001
 *                                                                       TRNS0002
 *       FIRST CONSTRUCT ALL PATTERNS                                    TRNS0003
 *                                                                       TRNS0004
         BLANK = SPAN(" ") ; MAYBL = BLANK | NULL                        TRNS0005
         INFUNC = BREAK("'),") ("'" BREAK("'") "'" *INFUNC | NULL)       TRNS0006
         BACK = BREAK("= ") BLANK (*B " " | *BACK)                       TRNS0007
         SKIP = BREAK("(), ") SPAN("(), ") (NULL | *SKIP)                TRNS0008
         END = ANY("), ")                                                TRNS0009
         TOTAL = BREAK("(), ") SPAN("(), ") (("'" BREAK("'") "'" | '"'   TRNS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TRACE1  DO CREATE("S4") = "TRACE(" B ',"FUNCTION")'    :(RETURN)        TRNS0279
 REMDR   DO CREATE("S10") = A "("    :(RETURN)                           TRNS0280
 OUTPUT  C  MAYBL "'7'" = "'6'"                                          TRNS0281
 STOPTR  DO = A "(" B ',"FUNCTION")'    :(RETURN)                        TRNS0282
         DO = "PRINT(" B C ",'(6X,126A1)')"    :(RETURN)                 TRNS0283
 ELIT    CNT = CNT + 1 ; BAD1 = BAD1 COUNT - CNT ","                     TRNS0284
         DO = B FASTOUT("")    :(RETURN)                                 TRNS0285
 ELI     CNT = CNT + 1 ; BAD2 = BAD2 COUNT - CNT ","                     TRNS0286
         DO = B FASTOUT("")    :(RETURN)                                 TRNS0287
 END                                                                     TRNS0288
-FILE 293;   867 RECORDS:  
0*        TO RUN GO-MAD -                                                GOMD0001
 *             $RUN *SNOBOL4  5=GOMAD+(THE INPUT PROG)                   GOMD0002
 *                       7=PUNCHED OUTPUT                                GOMD0003
 *                       6=PRINTED OUTPUT                                GOMD0004
 *                  GOMAD REQUIRES (PRESENTLY) EBCDIC INPUT              GOMD0005
 -UNLIST                                                                 GOMD0006
         QUOTE = "'"                                                     GOMD0007
         &TRACE = "ON"                                                   GOMD0008
           &DUMP = 'ON'                                                  GOMD0009
           &MAXLNGTH = 1000                                              GOMD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *             PRINT A LIST OF DELETED STATEMENT LABELS                  GOMD0858
 END3.    DEL.LAB "," =                                                  GOMD0859
          IDENT(DEL.LAB,"")                      :S(END3)                GOMD0860
          SYSPOT = "-THE FOLLOWING LABELS ARE NOT USED AND HAVE BEEN "   GOMD0861
 ."DELETED -"                                                            GOMD0862
          SYSPOT = "-" DEL.LAB                                           GOMD0863
                                                                         GOMD0864
 END3     SWT "ON"        :S(ALL.DONE)F(START1)                          GOMD0865
 ALL.DONE &DUMP =                                                        GOMD0866
 END                                                                     GOMD0867
-FILE 294;    54 RECORDS:  
0 /* LCPF4    CONTROL-PHASE   */                                         LCP00010
  /* ************************************/                               LCP00020
  /*                                    */                               LCP00030
  /*  LCP FORTRAN-IV TO PL/I            */                               LCP00040
  /*         PROGRAM NUMBER 360-CV-710  */                               LCP00050
  /*                                    */                               LCP00060
  /*          VERSION 1 LEVEL 0         */                               LCP00070
  /*                                    */                               LCP00080
  /*                                    */                               LCP00090
  /*    THE LCP CONTROL PHASE RECEIVES  */                               LCP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                ;                                        LCP00450
   TR02:CALL IPPRO(LCPOP);                 /* CALL INITIAL PROCEDURE   */LCP00460
   TR03:CALL PH10;                        /* CALL PHASE 10             */LCP00470
        IF TBLFN(TEQ)=0  THEN              /*NO EQUIVAL IN PROGRAM     */LCP00480
        IF TBLFN(TDA)=0  THEN GOTO TR04;   /* NO DATA SKIP PH20        */LCP00490
   TR05:CALL PH20;                        /* PROCESS EQUIV AND DATA    */LCP00500
   TR04:CALL PH30 ;                        /* CALL PHASE 30            */LCP00510
        IF(LCFLX =0)THEN GOTO TR02;        /*IS IT LAST JOB OF BATCH-NO*/LCP00520
        RETURN;                            /* END OF BATCH             */LCP00530
        END;                                                             LCP00540
-FILE 295;   185 RECORDS:  
0CONVER   START 0                                                        CON00010
 *                                                                       CON00020
 *        THE FOLLOWING IS                                               CON00030
 *                                                                       CON00040
 *              A LITTLE PROGRAM CONVERTING CHARACTERS TO FIXED BINARY   CON00050
 *                                                                       CON00060
          ENTRY CVB                 CONVERT TO BINARY                    CON00070
          ENTRY UNSPC               UNSPEC BUILT IN FUNCTION             CON00080
 *                                                                       CON00090
          ENTRY CVC1                 CONVERT TO 1 CHARACTER              CON00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BH       EQU   2                   BRANCH IF GREATER THAM               CON01760
 *                                                                       CON01770
 *        STORAGE UTILITY AREAS                                          CON01780
 *                                                                       CON01790
 CVZP     DS    D                   CONTAINS PACKED DATA                 CON01800
 CVL      DC    F'0'                LENGH OF STRING                      CON01810
 CVZN     DS    9C                  CONTAINS ZONED DATA NEXT IS CVZE**   CON01820
 CVZE     DC    9C'0'               TO SET CVZN TO F0 AT THE BEGINNING   CON01830
 CVSW     DC    C'0'                SW TO REMOVE 0 IF ON                 CON01840
          END                                                            CON01850
-FILE 296;  1120 RECORDS:  
0         MACRO                                                          PUT00010
          PUTXX &DEBUG=,&IOERR=                                          PUT00020
 ************************************************************            PUT00030
 *                                                          *            PUT00040
 *                  LCP FORTRAN-IV TO PL/I                  *            PUT00050
 *                 PROGRAM NUMBER 360-CV-710                *            PUT00060
 *                                                          *            PUT00070
 *                    VERSION 1 LEVEL 0                     *            PUT00080
 *                                                          *            PUT00090
 *                 ---  P U T T B S  ---                    *            PUT00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TABSNP   DS    3260C                                                    PUT11110
 TABSND2  DS    0F                                                       PUT11120
          ORG   TABSNP+840                                               PUT11130
 TABSND1  DS    0F                                                       PUT11140
 .SGO012  ANOP                                                           PUT11150
          EJECT                                                          PUT11160
          MEND                                                           PUT11170
 PUTTBS   START 0                                                        PUT11180
          PUTXX DEBUG=NO,IOERR=NO                                        PUT11190
          END                                                            PUT10680
-FILE 297;   566 RECORDS:  
0 /* LTCOL LITTERAL AND COMMENTS COLLR  */                               LTC00010
  /**************************************/                               LTC00020
  /*                                    */                               LTC00030
  /*  LCP FORTRAN-IV TO PL/I            */                               LTC00040
  /*         PROGRAM NUMBER 360-CV-710  */                               LTC00050
  /*                                    */                               LTC00060
  /*          VERSION 1 LEVEL 0         */                               LTC00070
  /*                                    */                               LTC00080
  /*          --- L T C O L ---         */                               LTC00090
  /*                                    */                               LTC00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   WD11:WDBCD=J;                          /* SAVE CARD POINTER         */LTC05570
        WDBCH=I;                          /* SAVE CHARACTER POINTER    */LTC05580
        WDDLM=WDIC;                       /* SAVE DELIMITER            */LTC05590
                                           WDDBG=  DWDDBG;               LTC05600
                                           PUT DATA(WDDBG,WDLG,WDDLM);   LTC05610
        IF(WDLG=0)THEN GOTO WDDE;         /* DELIMITER EXIT            */LTC05620
        IF(WDST=1)THEN GOTO WDNU;         /* NUMERIC   EXIT            */LTC05630
        GOTO WDAL;                        /* ALPHA RETURN              */LTC05640
                                                                         LTC05650
        END;                                                             LTC05660
-FILE 298;  1280 RECORDS:  
0 /* IPPRO GETCRD KEYDIC IMPRO INITIAL. */                               IPP00010
  /*$************************************/                               IPP00020
  /*                                    */                               IPP00030
  /*  LCP FORTRAN-IV TO PL/I            */                               IPP00040
  /*         PROGRAM NUMBER 360-CV-710  */                               IPP00050
  /*                                    */                               IPP00060
  /*          VERSION 1 LEVEL 0         */                               IPP00070
  /*                                    */                               IPP00080
  /*          --- I P P R O  ---        */                               IPP00090
  /*                                    */                               IPP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        IF WDDLM =LCRP THEN               /* IS IT END OF LIST - YES   */IPP12710
        CALL GETWRD(IM20,IM20,IM02);      /* GET NEXT DELIMITER        */IPP12720
   IM28:IF WDDLM=LCPV THEN DO;           /* IS IT THE END OF STATEMENT*/IPP12730
   IM20:GOTO CS11;                                                       IPP12740
        END;                                                             IPP12750
   BC36:LCPRO=0;                                                         IPP12760
        IF(LCEND=0)THEN GOTO CD03;         /* GOTO NEXT CARD           */IPP12770
        WDML=23;                           /* RESTORE MAXIMUM LENGTH   */IPP12780
        RETURN;                                                          IPP12790
        END;                                                             IPP12800
-FILE 299;   502 RECORDS:  
0 /* PH10 XTBPRO AIGUILLAGE PROCEDURE */                                 PH100010
  /**************************************/                               PH100020
  /*                                    */                               PH100030
  /*  LCP FORTRAN-IV TO PL/I            */                               PH100040
  /*         PROGRAM NUMBER 360-CV-710  */                               PH100050
  /*                                    */                               PH100060
  /*          VERSION 1 LEVEL 0         */                               PH100070
  /*                                    */                               PH100080
  /*          --- P H 1 0 ---           */                               PH100090
  /*                                    */                               PH100100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  XT50 :XTENLG=XTIWD;                     /*ENTRY LENGH                */PH104930
        IF LCOP(6)='0' THEN     DO;                                     PH104940
        XTENLG=XTENLG+1;                                                 PH104950
        WORD(XTENLG)='.';                                                PH104960
        XTDLM='.';                                                       PH104970
        END;                                                             PH104980
        ELSE                                                             PH104990
        XTDLM=$LCCL;                      /*DELIM=COLON                */PH105000
        GOTO XT10;                                                       PH105010
        END;                                                             PH105020
-FILE 300;   471 RECORDS:  
0  FNPRO:PROCEDURE;                                                      FNP00010
  /**************************************/                               FNP00020
  /*                                    */                               FNP00030
  /*  LCP FORTRAN-IV TO PL/I            */                               FNP00040
  /*         PROGRAM NUMBER 360-CV-710  */                               FNP00050
  /*                                    */                               FNP00060
  /*          VERSION 1 LEVEL 0         */                               FNP00070
  /*                                    */                               FNP00080
  /*          --- F N P R O ---         */                               FNP00090
  /*                                    */                               FNP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   EX04:RETURN;                                                          FNP04620
                                                                         FNP04630
   BLPRO:LCPGN='BLD   ';                                                 FNP04640
        WDRD5='BEGIN';                    /* GENERATE -BEGIN-          */FNP04650
        WDLG=5;                                                          FNP04660
        XTDLM=$LCPV;                                                     FNP04670
        CALL XTBPRO;                                                     FNP04680
        LCPGC=LCPGC+LCBLD;                                               FNP04690
        RETURN;                                                          FNP04700
        END;                                                             FNP04710
-FILE 301;   835 RECORDS:  
0 /**************************************/                               DMP00010
  /*                                    */                               DMP00020
  /* LCP FORTRAN-IV TO PL/I             */                               DMP00030
  /*          PROGRAM NUMBER 360-CV-710 */                               DMP00040
  /*                                    */                               DMP00050
  /*           VERSION 1 LEVEL 0        */                               DMP00060
  /*                                    */                               DMP00070
  /*           --- D M P R O ---        */                               DMP00080
  /*                                    */                               DMP00090
  /* ENTRY NAMES:DMPRO,CMPRO,YDPRO,YIPRO*/                               DMP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        IF DAC='/' THEN DO;               /*END REACHED                */DMP08260
        TDAP=TBLCW;                                                      DMP08270
        TBLCW=0;                          /*MAKE A NEW ENTRY           */DMP08280
        TDAH,TDAN=0;                                                     DMP08290
        CALL PUTTBL(TDA);                                                DMP08300
        IF SURT=3 THEN GOTO YT29;                                        DMP08310
        GOTO DA25;                                                       DMP08320
        END;                                                             DMP08330
        GOTO DA002;                       /*TO REINITIALIZE LENGH      */DMP08340
        END;                                                             DMP08350
-FILE 302;   404 RECORDS:  
0  NLPRO:PROCEDURE;                                                      NLP00010
  /*********************************************************************/NLP00020
  /*                                                                   */NLP00030
  /*    LCP FORTRAN-IV TO PL/I                                         */NLP00040
  /*                          PROGRAM NUMBER 360-CV-710                */NLP00050
  /*                                                                   */NLP00060
  /*                       VERSION 1 LEVEL 0                           */NLP00070
  /*                                                                   */NLP00080
  /*                       --- N L P R O ---                           */NLP00090
  /*                                                                   */NLP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        CALL LABPRO;                      /* PLACE LABEL IN XTABLE     */NLP03950
        WDLG=0;                           /* INITIALIZATION            */NLP03960
        XTDLM=$LCPV;                      /*                FOR XTBPRO */NLP03970
        CALL XTBPRO;                      /* PLACE  ';'    IN XTABLE   */NLP03980
        CALL GETWRD(CT20,CT20,CT01);      /* GET ENDMARK               */NLP03990
        CT20:XTEM=16;                                                    NLP04000
        CALL ERMS;                                                       NLP04010
   CT01:RETURN;                                                          NLP04020
                                                                         NLP04030
        END;                                                             NLP04040
-FILE 303;   976 RECORDS:  
0 /*********************************************************************/FTP00010
  /*                                                                   */FTP00020
  /*    LCP FORTRAN-IV TO PL/I.                                        */FTP00030
  /*                          PROGRAM NUMBER 360-CV-710                */FTP00040
  /*                                                                   */FTP00050
  /*                   VERSION 1 LEVEL 0                               */FTP00060
  /*                                                                   */FTP00070
  /*                   --- F T P R O ---                               */FTP00080
  /*                                                                   */FTP00090
  /* ENTRY NAMES:FTPRO                                                 */FTP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        TDTR=FTSKP;                                                      FTP09670
        TBLCW=0;                                                         FTP09680
         CALL PUTTBL(TDT);                /*GET PACKED FORMAT INTO TDT */FTP09690
   FT810:FTTBM=TBLCW;                                                    FTP09700
        TBLCW=TFMF;                                                      FTP09710
        TFMF=FTTBM;                                                      FTP09720
   FT900:CALL PUTTBL(TFM);                /*GET PNTR TO TDT INTO TFM   */FTP09730
        IF XTEM=0 THEN RETURN;                                           FTP09740
        CALL ERMS; RETURN;                                               FTP09750
        END;                                                             FTP09760
-FILE 304;   471 RECORDS:  
0  RTPRO:PROCEDURE;                                                      RTP00010
  /*********************************************************************/RTP00020
  /*                                                                   */RTP00030
  /*    LCP FORTRAN-IV TO PL/I.                                        */RTP00040
  /*                          PROGRAM NUMBER 360-CV-710                */RTP00050
  /*                                                                   */RTP00060
  /*                   VERSION 1 LEVEL 0                               */RTP00070
  /*                                                                   */RTP00080
  /*                   --- R T P R O ---                               */RTP00090
  /*                                                                   */RTP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        TBLCW=GTPT;                                                      RTP04620
        CALL PUTTBL(TDI);                                                RTP04630
        GOTO GT02;                                                       RTP04640
   GT03:IF WDDLM=LCLP THEN GOTO GT30;                                    RTP04650
  GT20 :XTEM=16;                                                         RTP04660
        CALL ERMS;                                                       RTP04670
        GOTO GT04;                                                       RTP04680
   GT02:IF(WDDLM=LCPV)THEN GOTO GT20;                                   RTP04690
   GT04:RETURN;                                                          RTP04700
        END;                                                             RTP04710
-FILE 305;  1165 RECORDS:  
0 /**************************************/                               IOP00010
  /*                                    */                               IOP00020
  /*  LCP FORTRAN-IV TO PL/I            */                               IOP00030
  /*        PROGRAM NUMBER 360-CV-710   */                               IOP00040
  /*                                    */                               IOP00050
  /*        VERSION 1 LEVEL 0           */                               IOP00060
  /*                                    */                               IOP00070
  /*        --- I O P R O ---           */                               IOP00080
  /*                                    */                               IOP00090
  /* ENTRY NAMES:IOPRO,DOPRO            */                               IOP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        XTDLM= $LCRP;                     /* PUT ) AFTER LAST SUBSCRIPT*/IOP11560
        CALL XTBPRO;                                                     IOP11570
        WDBCD= SPBCD(8);                  /* RESTORE BASE POINTERS AFT.*/IOP11580
        WDBCH= SPBCH(8);                  /* SUBSCRIPTED VARIABLE      */IOP11590
   SP22:                                                                 IOP11600
        GOTO IO85;                        /* RETURN TO CALLER          */IOP11610
                                                                         IOP11620
        /* END OF SUBSCRIPTS PROCESSOR  */                               IOP11630
                                                                         IOP11640
        END;                              /* END OF IOPRO              */IOP11650
-FILE 306;  1255 RECORDS:  
0 /**************************************/                               ARP00010
  /*                                    */                               ARP00020
  /* LCP FORTRAN-IV TO PL/I             */                               ARP00030
  /*          PROGRAM NUMBER 360-CV-710 */                               ARP00040
  /*                                    */                               ARP00050
  /*           VERSION 1 LEVEL 0        */                               ARP00060
  /*                                    */                               ARP00070
  /*           --- A R P R O ---        */                               ARP00080
  /*                                    */                               ARP00090
  /* ENTRY NAME:ARPRO                   */                               ARP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        GOTO SP09;                                                       ARP12460
        /*  LAST  SUBSCRIPT  */                                          ARP12470
   SP21:                                                                 ARP12480
        XTDLM= $LCRP;                     /* PUT ) AFTER LAST SUBSCRIPT*/ARP12490
        CALL XTBPRO;                                                     ARP12500
        WDBCD= SPBCD(8);                  /* RESTORE BASE POINTER      */ARP12510
        WDBCH= SPBCH(8);                  /* TO RESUME SCANNING        */ARP12520
        IF SPSW= '1' THEN RETURN;         /* CALLED BY ALPRO           */ARP12530
   SP22:GOTO ARS86;                       /* RET TO CALLER 2ND SCANN.  */ARP12540
        END;                                                             ARP12550
-FILE 307;   176 RECORDS:  
0  CAPRO:PROCEDURE;                                                      CAP00010
          /****************************************************/         CAP00020
          /*                                                  */         CAP00030
          /*              LCP FORTRAN-IV TO PL/I              */         CAP00040
          /*            PROGRAM NUMBER 360-CV-710             */         CAP00050
          /*                                                  */         CAP00060
          /*                VERSION 1 LEVEL 0                 */         CAP00070
          /*                                                  */         CAP00080
          /*             ---  C A P R O  ---                  */         CAP00090
          /*                                                  */         CAP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  CA08 :IF CADL= $LCPV THEN GOTO CA09;   /* NOT SEMI-COLON            */CAP01670
        WDRD4= 'STOP';                                                   CAP01680
        XTEM= 8;                          /* WARNING                   */CAP01690
        WDLG=4;                                                          CAP01700
        XTDLM=CADL;                                                      CAP01710
        CALL XTBPRO;                      /* GENERATE 'STOP' IN XTABLE */CAP01720
        GOTO CA06;                                                       CAP01730
  CA09:XTEM= 8;                                                          CAP01740
        GOTO CA04;                                                       CAP01750
        END;                                                             CAP01760
-FILE 308;   256 RECORDS:  
0  IFPRO:PROCEDURE;                                                      IFP00010
          /****************************************************/         IFP00020
          /*                                                  */         IFP00030
          /*              LCP FORTRAN-IV TO PL/I              */         IFP00040
          /*            PROGRAM NUMBER 360-CV-710             */         IFP00050
          /*                                                  */         IFP00060
          /*                VERSION 1 LEVEL 0                 */         IFP00070
          /*                                                  */         IFP00080
          /*             ---  I F P R O  ---                  */         IFP00090
          /*                                                  */         IFP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        XTDLM=' ';                                                       IFP02470
        CALL XTBPRO;                      /*------IF                   */IFP02480
        WDRD=IFM(KL1); WDLG=IFL(KL1);     /* PLACE IN XTABLE THE BRANCH*/IFP02490
        XTDLM=$LCPV;                                                     IFP02500
        CALL BRNPRO; END;                 /*----LABEL                  */IFP02510
        GOTO IF21;                                                       IFP02520
  IF20 :XTEM= 16;                                                        IFP02530
        CALL ERMS;                                                       IFP02540
  IF21 :                                                                 IFP02550
        END;                                                             IFP02560
-FILE 309;   323 RECORDS:  
0 ALPRO:PROCEDURE;                                                       ALP00010
  /*********************************************************************/ALP00020
  /*                                                                   */ALP00030
  /*    LCP FORTRAN-IV TO PL/I.                                        */ALP00040
  /*                          PROGRAM NUMBER 360-CV-710                */ALP00050
  /*                                                                   */ALP00060
  /*                   VERSION 1 LEVEL 0                               */ALP00070
  /*                                                                   */ALP00080
  /*                   --- A L P R O ---                               */ALP00090
  /*                                                                   */ALP00100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        WDLG=3;                           /* OF THE PROCEDURE          */ALP03140
        XTDLM=';';                                                       ALP03150
        XTBCH= 2;                                                        ALP03160
        CALL XTBPRO;                                                     ALP03170
        GOTO AT13;                                                       ALP03180
  AT12 :XTEM= 16;                                                        ALP03190
        CALL ERMS;                                                       ALP03200
  AT13 :                                                                 ALP03210
        RETURN;                                                          ALP03220
        END;                                                             ALP03230
-FILE 310;   743 RECORDS:  
0                                          (CHECK(DTPRO,DT020,DT030,     PH200010
                                            DT040,DT090,DT092,DT098,     PH200020
                                            DT100,DT115,DT116,DT110,     PH200030
                                            DT120,DT130,DT160,DT170,     PH200040
                                            DT200,DTCOP,DTCO5,DT240,     PH200050
                                            DT500,DT510,DT520,DT550,     PH200060
                                            DT560,DT700,DT710,DT800,     PH200070
                                            DT810,DT814,DT820,DT824,     PH200080
                                            DT850,DT871,DT877,DT873,     PH200090
                                            DT900,DT950,DT920,DT860,     PH200100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  DT872:     DTNV=TDTR;                                                  PH207340
        TDTN=DTCH;                                                       PH207350
        CALL PUTTBL(TDT);                                                PH207360
                                           DEBUG='29';                   PH207370
                                           PUT DATA (DEBUG,$TDT);        PH207380
        DTCH=TBLCW;                       /*SAVE FOR CHAIN             */PH207390
  DT874:DTTBH(DTSK)=-M;                   /*MAKE HEAD DUMMY            */PH207400
        IF DTRE='1' THEN GOTO DT873;                                     PH207410
        GOTO DT810;                                                      PH207420
        END;                                                             PH207430
-FILE 311;  1940 RECORDS:  
0 /* PH30  EDITION PROCEDURE  */                                         PH300010
  /**************************************/                               PH300020
  /*                                    */                               PH300030
  /*        LCP FORTRAN-IV TO PL/I      */                               PH300040
  /*      PROGRAM NUMBER 360-CV-710     */                               PH300050
  /*                                    */                               PH300060
  /*          VERSION 1 LEVEL 0         */                               PH300070
  /*                                    */                               PH300080
  /*       --- P H A S E  3 0 ---       */                               PH300090
  /*                                    */                               PH300100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        UPPT=UPPT+1;                                                     PH319310
        RETURN;                                                          PH319320
  UP520:IF UPIW>UPLG THEN RETURN;         /*IF WORD COMPLETELY COPIED R*/PH319330
        IF UPPT>UPEL THEN GOTO UP200;     /*TO PRINT LINE              */PH319340
        UPLIN(UPPT)=WORD(UPIW);           /*COPY A CHAR                */PH319350
        UPPT=UPPT+1;                      /*INCREASE PT IN LINE        */PH319360
        UPIW=UPIW+1;                      /*INCREASE PT IN WORD        */PH319370
        GOTO UP520;                                                      PH319380
        END UPRNT;                                                       PH319390
        END;                                                             PH319400
-FILE 312;   155 RECORDS:  
0LCPF     TITLE '  LCP FORTRAN - PL/1 BLANK CONVERSION.  '                       
 *   FUNCTION   TO CONVERT A  FORTRAN  INPUT  ITEM WITH BLANKS TO A FORM         
 *              ACCEPTABLE TO PL/1.                                              
 *              THE PASSED PARAMETER IS THE FIELD WIDTH WHICH IS  COPIED         
 *              INTO THE RETURNS ARGUMENT.                                       
 *                                                                               
 *   USE        THIS MODULE CAN BE USED AS A FUNCTION REFERENCE IN PLA-          
 *              CE OF THE 'W' FIELD IN AN 'F' FORMAT ITEM OR AN 'E' FOR          
 *              MAT ITEM.THE NAME LBLNK MUST BE DECLARED AS FOLLOWS -            
 *               DECLARE LBLNK ENTRY(FIXED BINARY)RETURNS(FIXED BINARY);         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BNE   TRAILD                  REPLACE                                  
          MVI   0(RB),X'4E'                    !| A + CHARACTER                  
 TRAILE   LA    RB,1(RB)                                                         
          BCT   RC,TRAIL                 LOOP THRU END OF FIELD.                 
 EXIT     L     DR,OFDR(DR)              CHEERS.                                 
          LM    LR,WR,OFLR(DR)                                                   
          BR    LR                                                               
          SPACE 4                                                                
 VIOFA    DC    V(IHEIOFA)                                                       
          END                                                                    
-FILE 313;   113 RECORDS:  
0 /* UT1 VIRTUAL FILE MANAGEMENT */                                              
                                                                                 
                                                                                 
                                                                                 
             /*************************************************/                 
             /*                                               */                 
             /*   THE FOLLOWING SERVICES ARE PROVIDED         */                 
             /*                                               */                 
             /*     RDUT1(REC,KEY):   MOVE RECORDS WITH ID    */                 
             /*                       "KEY" INTO REC          */                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     PF = HDUT1;                                                                 
     DO WHILE (PF=NULL);                                                        
        N = PF -> CTR - 1;                                                       
        DO IF=1 TO N;                                                            
           IF (KEY = PF -> ID(IF)) THEN RETURN;                                  
        END;                                                                     
        PF = PF -> FPTR;                                                         
     END;                                                                        
     CALL ERROR;  /* COULD NOT FIND THE RECORD */                                
  END WRTUT1;                                                                    
-FILE 314;   354 RECORDS:  
0\              15 999545               DECK                                     
 $SIGNON WATF T=30M P=600  'M. RAIM'                                             
 $EMP NEWLCP                                                                     
 $CRE -ASM SIZE=40P LOC=DATACELL                                                 
 $RUN *MOUNT PAR=POOL 9TP *POOL* 'POOL TAPE'                                     
 $RUN *UPDATE                                                                    
 %REW     *POOL*                                                                 
 %OUT     *POOL*                                                                 
 %INP     SLCPF4 40                LCPF4                                 1       
 %DEL     LCP00240                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %  PROCESS('SIZE=80P,A,E,X,LIST');                                              
 %BEF     FILEMARK                                                               
 %CLO     SUT1                                                                   
 %CLO     *POOL*                                                                 
 %WTM     *POOL* 5                                                               
 %REW     *POOL*                                                                 
 %END                                                                            
 $RUN *PL1 SCARDS=*POOL* PAR=A,X,E,MACRO,SIZE=90P,SM=(2,41),NLD,LIST             
 $R *ASMG SCARDS=-ASM SPUNCH=NEWLCP(LAST+1) 0=*SYSMAC PAR=SIZE=100,FX,RD,B,IBLK=-
 40                                                                              
-FILE 315;    26 RECORDS:  
0TIME     TITLE '                             ROUTINE TO TELL TIME'      TIME0001
          PRINT NOGEN                                                    TIME0002
 TIME     CSECT                                                          TIME0003
          SAVE  (14,12),T,TIME     SAVE THE REGISTERS.                   TIME0004
          LR    11,13              SAVE THE SA REG.                      TIME0005
          LR    12,15              ESTABLISH THE BASE REGISTER.          TIME0006
          USING TIME,12            TELL THE STUPID ASM OF THE BASE REG.  TIME0007
          LA    13,SA              SET UP OWN SA REG.                    TIME0008
          SVC   TOD                ISSUE THE TIME SVC.                   TIME0009
          STM   0,1,CLOCK          PUT DOWN THE CLOCK.                   TIME0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' CLOCK  '                                              TIME0017
 CLOCK    DS    CL8                HH:MM.SS                              TIME0018
          DC    C'  DATE  '                                              TIME0019
 DATE     DS    CL8                MM-DD-YY                              TIME0020
 ENDANS   EQU   *                                                        TIME0021
 LENGTH   DC    Y(ENDANS-ANSWER)   LENGTH OF ANSWER IN HALF WORD FORM.   TIME0022
 ZERO     DC    F'0'               NO MODIFIERS.                         TIME0023
 LINNR    DS    F                  JUNK LINE NUMBER.                     TIME0024
 SA       DS    19F                 SAVE AREA                            TIME0025
          END                                                            TIME0026
-FILE 316;   113 RECORDS:  
0USER     TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS'       USER0001
 USERS    START 0                                                        USER0002
          PRINT NOGEN                                                    USER0003
 *        COPY  *LLMPSEQU(100)      INCLUDE SYSTEM EQUALITIES            USER0004
          PRINT OFF                                                      USER0005
          COPY  *LLMPSEQU(100)                                           USER0006
          PRINT ON                                                       USER0007
          EJECT                                                          USER0008
          ENTER 12,SA=SA                                                 USER0009
          SR    2,2           USE THSI FOR NUMBER OF TERMINALS           USER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' AVAILABLE LINES, AND'                                 USER0104
          DC    X'40202120'                                              USER0105
          DC    C' NON-MTS JOBS USING'                                   USER0106
          DC    X'402020202120'                                          USER0107
          DC    C' VIRTUAL PAGES AND'                                    USER0108
          DC    X'40202120'                                              USER0109
          DC    C' REAL PAGES.'                                          USER0110
 SA       DS    18F                                                      USER0111
 WORK     DS    D                                                        USER0112
          END                                                            USER0113
-FILE 317;   114 RECORDS:  
0USER     TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS'       CNFU0001
 USERS    START 0                                                        CNFU0002
          PRINT NOGEN                                                    CNFU0003
 *        COPY  *LLMPSEQU(100)      INCLUDE SYSTEM EQUALITIES            CNFU0004
          PRINT OFF                                                      CNFU0005
          COPY  *LLMPSEQU(100)                                           CNFU0006
          PRINT ON                                                       CNFU0007
          EJECT                                                          CNFU0008
          ENTER 12,SA=SA                                                 CNFU0009
          SR    2,2           USE THSI FOR NUMBER OF TERMINALS           CNFU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' AVAILABLE LINES, AND'                                 CNFU0105
          DC    X'40202120'                                              CNFU0106
          DC    C' NON-MTS JOBS USING'                                   CNFU0107
          DC    X'402020202120'                                          CNFU0108
          DC    C' VIRTUAL PAGES AND'                                    CNFU0109
          DC    X'40202120'                                              CNFU0110
          DC    C' REAL PAGES.'                                          CNFU0111
 SA       DS    18F                                                      CNFU0112
 WORK     DS    D                                                        CNFU0113
          END                                                            CNFU0114
-FILE 318;    71 RECORDS:  
0UCNF     TITLE 'PROGRAM TO PRINT CONFIGURATION FOR USERS'               CONF0001
 USERSCON START 0                                                        CONF0002
          PRINT NOGEN                                                    CONF0003
          ENTER 12,SA=SA                                                 CONF0004
          SVC   34                                                       CONF0005
          MVC   MYCST(CSTSST+16-CHBCST),CHBCST-PSA                       CONF0006
          MVC   MYCCUMAP(4),CCUMAP-PSA                                   CONF0007
          SVC   26                                                       CONF0008
          LA    1,MYCST                                                  CONF0009
          SR    0,0                                                      CONF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        FOLLOWING ARE THE LLMPSEQU AND PSA COPY SECTIONS               CONF0062
 *                                                                       CONF0063
          PRINT OFF                                                      CONF0064
          COPY  *LLMPSEQU                                                CONF0065
 *                                                                       CONF0066
          EXTRN EXTINT,SVCINT,PRGINT,IOINT,PGTBL0,SVBASE                 CONF0067
 PSA      DSECT                                                          CONF0068
          COPY  PSA                                                      CONF0069
          PRINT ON                                                       CONF0070
          END                                                            CONF0071
-FILE 319;   159 RECORDS:  
0MTSJOBS  CSECT                                                          MJOB0001
          PRINT OFF                                                      MJOB0002
          COPY  *LLMPSEQU                                                MJOB0003
          PRINT ON                                                       MJOB0004
 *        COPY *LLMPSEQU                                                 MJOB0005
          SPACE 2                                                        MJOB0006
 STIO     EQU   2                                                        MJOB0007
 WAIT     EQU   3                                                        MJOB0008
 GETID    EQU   20                                                       MJOB0009
 TWAYT    EQU   128                                                      MJOB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OVEREND  EQU   ENTRY1+960                                               MJOB0150
          SPACE 3                                                        MJOB0151
 ENTRY    DSECT                                                          MJOB0152
 ID       DS    4C                                                       MJOB0153
 JOB#     DS    5C                                                       MJOB0154
 PGS      DS    4C                                                       MJOB0155
 TIME     DS    4C                                                       MJOB0156
 DEV1     DS    5C                                                       MJOB0157
 DEV2     DS    4C                                                       MJOB0158
          END                                                            MJOB0159
-FILE 320;   143 RECORDS:  
0MTSK     TITLE 'MTS VERSION OF TASKS'                                   TSKS0001
 MTASKS   START 0                                                        TSKS0002
          SPACE 2                                                        TSKS0003
 GR1      EQU   1                                                        TSKS0004
 GR2      EQU   2                                                        TSKS0005
 GR3      EQU   3                                                        TSKS0006
 GR4      EQU   4                                                        TSKS0007
 GR5      EQU   5                                                        TSKS0008
 GR6      EQU   6                                                        TSKS0009
 GR11     EQU   11                                                       TSKS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LNR      DS    F                                                        TSKS0134
 RDYCNT   DC    Y(L'READY)                                               TSKS0135
 ERRCNT   DC    Y(L'ERROR)                                               TSKS0136
 CNT      DS    H                                                        TSKS0137
 BUF      DS    96C                                                      TSKS0138
 READY    DC    C'&&READY: '                                             TSKS0139
 ERROR    DC    C' INVALID INPUT'                                        TSKS0140
 SW       DC    X'00'                                                    TSKS0141
          SPACE 2                                                        TSKS0142
          END                                                            TSKS0143
-FILE 321;   460 RECORDS:  
0PRSY     TITLE 'LISTER FOR MTS SYSTEM AND LIBRARY EXTERNAL SYMBOLS'     SYMB0001
          SPACE 2                                                        SYMB0002
          MACRO                                                          SYMB0003
 &LAB     CLEAR                                                          SYMB0004
 &LAB     MVI   LINE,C' '                                                SYMB0005
          MVC   LINE+1(131),LINE                                         SYMB0006
          MEND                                                           SYMB0007
          SPACE 2                                                        SYMB0008
          MACRO                                                          SYMB0009
 &LAB     ENGRAVE                                                        SYMB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 1                                                        SYMB0451
 ENDAD    DS    F                  ADDRESS OF END OF LIB SEARCH          SYMB0452
          SPACE 1                                                        SYMB0453
 PRSYSAV  DS    18F                                                      SYMB0454
 INCORSAV DS    18F                                                      SYMB0455
 SORTALL  DS    18F                                                      SYMB0456
          SPACE 1                                                        SYMB0457
 TABLE    DSECT                                                          SYMB0458
          SPACE 1                                                        SYMB0459
          END   PRSY                                                     SYMB0460
-FILE 322;   400 RECORDS:  
0OBJ      TITLE 'OBJSCAN'                                                OBJS0001
 *DATE: 3-28-68                                                          OBJS0002
 *        REVISED 11-17-69                                               OBJS0003
          SPACE 2                                                        OBJS0004
          MACRO                                                          OBJS0005
 &LABE    SERCOM &LIST                                                   OBJS0006
 &LABE    L     15,=V(SERCOM)                                            OBJS0007
          LA    1,&LIST                                                  OBJS0008
          BASR  14,15                                                    OBJS0009
          MEND                                                           OBJS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(MODC)                                                  OBJS0391
 LLNQ     DC    H'0'                                                     OBJS0392
 ALINE    DC    A(BUFFER)                                                OBJS0393
 BUFFER   DS    72C                                                      OBJS0394
 MOVEPAR  MVC   FILLN(0),2(1)                                            OBJS0395
 MOVE     MVC   1(0,1),ONCE                                              OBJS0396
 MOVECHRS MVC   0(0,6),0(1)                                              OBJS0397
 COM1S    DC    C'-**** FILE '                                           OBJS0398
 FILLN    DS    CL256' '                                                 OBJS0399
          END                                                            OBJS0400
-FILE 323;    58 RECORDS:  
0ASME     TITLE '******SCANS ASM-G LISTINGS******'                       ASMR0001
 ASMERR   CSECT                                                          ASMR0002
          STM   14,12,12(13)       SAVE REGISTERS                        ASMR0003
          LA    14,0(0,13)                                               ASMR0004
          BAS   13,84(0,15)                                              ASMR0005
          USING *,13                                                     ASMR0006
 SAREA    DS    18F                                                      ASMR0007
          ST    14,SAREA+4                                               ASMR0008
          ST    13,8(0,14)                                               ASMR0009
          LA    1,PAR              SET UP REGS                           ASMR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(MODIF)                                                 ASMR0049
          DC    A(LINE)                                                  ASMR0050
 MODIF    DC    F'0'                                                     ASMR0051
 LINE     DS    F                                                        ASMR0052
 COUNT    DC    H'0'                                                     ASMR0053
 COUNT2   DC    H'0'                                                     ASMR0054
          LTORG                                                          ASMR0055
 BUFF     DS    36F                                                      ASMR0056
 BUFF2    DS    25F                                                      ASMR0057
          END   ASMERR                                                   ASMR0058
-FILE 324;   254 RECORDS:  
0HXL      TITLE 'HEXADECIMAL CARD LISTER'                                HEXL0001
 * DATE:12-10-69 -GCP-FIXED TO PUNT ON LINES > 255                       HEXL0002
 * FIXED TO ACCEPT IMAGES UP TO 256 CHARACTERS IN LENGTH                 HEXL0003
          MACRO                                                          HEXL0004
 &LABE    MYSERC &LIST                                                   HEXL0005
 &LABE    L     15,=V(SERCOM)                                            HEXL0006
          LA    1,&LIST                                                  HEXL0007
          BALR   14,15                                                   HEXL0008
          MEND                                                           HEXL0009
          START 0                                                        HEXL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LINE     DC    69C' '                                                   HEXL0245
 HEXS     EQU   LINE+1                                                   HEXL0246
 FILEIT   DC    A(FA)                                                    HEXL0247
          DC    A(LA)                                                    HEXL0248
          DC    A(0)                                                     HEXL0249
 LA       DS    H                                                        HEXL0250
 FA       DC    C'0****FILE "'                                           HEXL0251
 BA       DS    CL20                                                     HEXL0252
 MOVEQ    MVC   BA(0),CARDIN                                             HEXL0253
          END                                                            HEXL0254
-FILE 325;  1575 RECORDS:  
0         TITLE '          MTS FILE EDITOR (VERSION UN259)'              EDIT0001
          MACRO                                                          EDIT0002
 &L       ERR   &M,&C                                                    EDIT0003
          AIF   (N'&SYSLIST EQ 1).ONEOP                                  EDIT0004
 &L       B&C   *+8                                                      EDIT0005
          B     A&SYSNDX                                                 EDIT0006
          L     2,=A(&M)                                                 EDIT0007
          B     ILLEGAL                                                  EDIT0008
 A&SYSNDX DS    0H                                                       EDIT0009
          MEXIT                                                          EDIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'00'                                                    EDIT1566
 MLINE    MSG   '     #LINENO LINENO'                                    EDIT1567
          MSG   '     #LINENO'                                           EDIT1568
          MSG   '#LINENO CAUSES THE LINE OF THE FILE WITH THE SPECIFIED' EDIT1569
          MSG   'MTS LINE NUMBER TO BECOME THE CURRENT LINE.  #LINE'     EDIT1570
          MSG   'WITH NO LINE NUMBER SPECIFIED CAUSES THE CURRENT'       EDIT1571
          MSG   'LINE NUMBER TO BE PRINTED.'                             EDIT1572
          DC    X'00'                                                    EDIT1573
 MNOSUCH  DC    FL1'34',C'THERE IS NO COMMAND WITH THAT NAME',X'00'      EDIT1574
          END                                                            EDIT1575
-FILE 326;  4207 RECORDS:  
0EDIT     TITLE 'MTS FILE EDITOR (VERSION AN080)'                        ED000001
 *********************************************************************** ED000002
 *                                                                     * ED000003
 *        MACROS                                                       * ED000004
 *                                                                     * ED000005
 *********************************************************************** ED000006
          MACRO                                                          ED000007
 &L       AT    &A,&B,&C,&D,&E,&SWCOM=SWCOM                              ED000008
 &L       CLC   0(&B,4),=C&A                                             ED000009
          BNE   &D                                                       ED000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COM      DS    256C                                                     ED004198
 SSCAN    DS    256C                                                     ED004199
 SREP     DS    256C                                                     ED004200
 SCHA     DS    256C                                                     ED004201
 SCHB     DS    256C                                                     ED004202
 SMAT     DS    256C                                                     ED004203
 SOVE     DS    256C                                                     ED004204
 BUFFER   DS    512C                                                     ED004205
 DSECTEND EQU   *                                                        ED004206
          END                                                            ED004207
-FILE 327;   158 RECORDS:  
0BAT      TITLE '****REMOTE BATCH MONITOR****'                           BAT00001
 BATCH    CSECT                                                          BAT00002
          SVE                                                            BAT00003
          SVC   TOD                GET DAY AND SAVE                      BAT00004
          SLDL  R2,8               FOR RECEIPT NUMBER.                   BAT00005
          STC   R2,S8A+1                                                 BAT00006
          LA    R1,BATFILE         READY BATCH                           BAT00007
          L     R15,=V(GETFD)      FOR PROCESSING                        BAT00008
          BASR  R14,R15                                                  BAT00009
          ST    R0,UNIT                                                  BAT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BUFF     DC    X'0000'                                                  BAT00149
 LRMOD    EQU   *-BATCH                                                  BAT00150
          DS    CL(4090-LRMOD)                                           BAT00151
          EQUS                                                           BAT00152
 TOD      EQU   28                                                       BAT00153
 LOCK     EQU   58                                                       BAT00154
 UNLOCK   EQU   59                                                       BAT00155
 SSCR     EQU   SA+12                                                    BAT00156
 RJBBUF   EQU   X'44'                                                    BAT00157
          END   BATCH                                                    BAT00158
-FILE 328;   607 RECORDS:  
0DUBCON   START 0                                                        DBL00001
          COPY  APF                                                      DBL00002
          EJECT                                                          DBL00003
          USING *,RC                                                     DBL00004
          STM   RR,RC,12(RD)  SAVE REGISTERS                             DBL00005
          LR    RC,LR         ADDRESSABILITY                             DBL00006
          LA    R6,SAVAR      SAVE AREA                                  DBL00007
          ST    R6,8(0,RD)    FORWARD LINKAGE                            DBL00008
          ST    RD,4(0,R6)    BACKWARDS LINKAGE                          DBL00009
          LR    RD,R6         ..                                         DBL00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LTRM     DC    Y(L'TRM)                                                 DBL00598
 SAVF     DS    A                                                        DBL00599
 PUNCHOUT DC    C'         DC    X'''                                    DBL00600
 FIRSTW   DC    CL16' '                                                  DBL00601
          DC    C''',X'''                                                DBL00602
 SECW     DC    CL16' '                                                  DBL00603
          DC    C''' '                                                   DBL00604
 DEC      DC    CL15' '                                                  DBL00605
 CLCP     CLC   2(0,R1),=C'PUNCH'                                        DBL00606
          END                                                            DBL00607
-FILE 329;    67 RECORDS:  
0*********************************************************************** APF00001
 *                                                                     * APF00002
 *        ALL-PURPOSE DEFINITIONS                                      * APF00003
 *                                                                     * APF00004
 *********************************************************************** APF00005
          SPACE 2                                                        APF00006
 *REGISTER EQUATES...                                                    APF00007
          SPACE 1                                                        APF00008
 R0       EQU   0                                                        APF00009
 R1       EQU   1                                                        APF00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LZ       EQU   X'8'          ZERO                                       APF00058
 LNZ      EQU   X'4'          NOT ZERO                                   APF00059
 * FOR 'TM' INSTRUCTIONS...                                              APF00060
 NONE     EQU   X'8'                                                     APF00061
 MIXED    EQU   X'4'                                                     APF00062
 ONES     EQU   X'1'                                                     APF00063
 *FOR 'TRANSLATE AND TEST'...                                            APF00064
 TRTZ     EQU   X'8'          ZERO                                       APF00065
 TRTI     EQU   X'4'          INCOMPLETE                                 APF00066
 TRTC     EQU   X'2'          COMPLETE                                   APF00067
-FILE 330;   581 RECORDS:  
0                                                                        PLOT0001
 CIPT     TITLE 'CONVERSATIONAL INTERFACE WITH PLOT'                     PLOT0002
 *                                                                       PLOT0003
  MACRO                                                                  PLOT0004
 &N EXCH &A,&B                                                           PLOT0005
  L 1,&A                                                                 PLOT0006
  MVC &A,&B                                                              PLOT0007
  ST 1,&B                                                                PLOT0008
  MEND                                                                   PLOT0009
 *                                                                       PLOT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  DC AL3(X)                                                              PLOT0572
 X DC D'0'                                                               PLOT0573
 CNVRT DC X'46000000'                                                    PLOT0574
 FIVE DC F'5'                                                            PLOT0575
 FNAM DS 80C                                                             PLOT0576
 FM DC C'ENTER NAME OF FILE'                                             PLOT0577
 FML DC H'19'                                                            PLOT0578
 FNL DC H'0'                                                             PLOT0579
 PATCH DS 10F                                                            PLOT0580
  END                                                                    PLOT0581
-FILE 331;   114 RECORDS:  
0         PRINT NOGEN                                                    *ASA0001
 MAIN     START 0                                                        *ASA0002
          USING     MAIN,10                                              *ASA0003
          SAVE  (14,12)                                                  *ASA0004
          LR   10,15                                                     *ASA0005
          LA    13,SA                                                    *ASA0006
          CALL  ASAOPEN,(SCRATCH)                                        *ASA0007
 LOOP     CALL  SCARDS,(AREA,LEN,MODIFY,LINENR)                          *ASA0008
          LTR   15,15                                                    *ASA0009
          BNZ   CLOSE                                                    *ASA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPACE    DC    X'09'                                                    *ASA0105
 ASATABLE DC    C' 0-+123456789ABC'     ASA CODES                        *ASA0106
 OPENTBLE DC    X'0B131B038B939BA3ABB3BBC3CBD3DBE3' MCC FOR OPENING      *ASA0107
 TRTABLE  DC    X'09111901899199A1A9B1B9C1C9D1D9E1' USUAL MCC            *ASA0108
 NO#OP    DC    X'03'                                                    *ASA0109
          EJECT                                                          *ASA0110
 *-*-*-*-*-*-*-*-                  HOW TO ALLOCATE BUFAREA               *ASA0111
 BUFAREA  DC    133C' '                                                  *ASA0112
          SPACE                                                          *ASA0113
          END                                                            *ASA0114
-FILE 332;    80 RECORDS:  
0BLOCKLIS CSECT                                                          LIST0001
          SAVE  (14,12),T,BLOCKLIS                                       LIST0002
          BALR  12,0                                                     LIST0003
          USING *,12                                                     LIST0004
          L     1,0(1)                                                   LIST0005
          LH    2,0(1)                                                   LIST0006
          LA    1,2(1)                                                   LIST0007
 CHECK    LTR   2,2                                                      LIST0008
          STH   2,LEN                                                    LIST0009
          BC    7,PAR                                                    LIST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 UCBDST   DS    F                                                        LIST0071
 INFO     DC    F'2'                                                     LIST0072
 MAXR     DS    F                                                        LIST0073
 FLEN     DC    F'121'                                                   LIST0074
 REG      DS    31F                                                      LIST0075
 HLEN     DC    H'121'                                                   LIST0076
 MOD      DC    F'0'                                                     LIST0077
 LINE     DS    F                                                        LIST0078
 LEN      DS    H                                                        LIST0079
          END                                                            LIST0080
-FILE 333;    23 RECORDS:  
0LIST     TITLE '                       FILE/TAPE TO PRINT PGM'          VARR0001
 VARRLIST START 0                                                        VARR0002
          USING VARRLIST,10                                              VARR0003
          SAVE  (14,12),T,LISTING                                        VARR0004
          LR    10,15                   BASE THE ROUTINE                 VARR0005
          ST    13,SA+4                 STORE EXTERNAL SAVE AREA         VARR0006
          LA    13,SA                   MY OWN SAVE AREA                 VARR0007
          L     1,0(0,1)                                                 VARR0008
          DDEF  (1)                                                      VARR0009
          OPEN  (SCARDS,,SPRINT,(OUTPUT))                                VARR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ENDALL   CLOSE (SCARDS,,SPRINT)                                         VARR0014
          L     13,4(0,13)                                               VARR0015
          RETURN (14,12),RC=0                                            VARR0016
 SCARDS   DCB   DDNAME=SCARDS,DSORG=PS,MACRF=(GM),EROPT=ACC,            XVARR0017
                EODAD=ENDALL,RECFM=VBA,BLKSIZE=629,LRECL=125             VARR0018
 SPRINT   DCB   DDNAME=SPRINT,DSORG=PS,MACRF=(PM),EROPT=ACC,RECFM=VA,   XVARR0019
                LRECL=125                                                VARR0020
 SA       DS    18F                                                      VARR0021
 WORKAREA DS    CL125                                                    VARR0022
          END                                                            VARR0023
-FILE 334;   135 RECORDS:  
0      /*    PROGRAM TO DO SOMETHING FOR IEBUPDAT INPUT */               UPDT0001
                                                                         UPDT0002
 UPDATE:     PROCEDURE OPTIONS(MAIN);                                    UPDT0003
       DCL                                                               UPDT0004
             INTAPE INPUT FILE RECORD ENV(LEAVE),                        UPDT0005
             OUTTAPE OUTPUT FILE RECORD ENV(LEAVE),                      UPDT0006
             DATA FILE INPUT RECORD,                                     UPDT0007
             (BUFFER,WHAT) CHAR(80) INIT ((80)' '),                      UPDT0008
             (FRSTNR,LASTNR,MEMBR,TEST) CHAR(8),                         UPDT0009
             ID CHAR(8) DEFINED BUFFER POS(73),                          UPDT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                   COUNT = COUNT + INCR;                                 UPDT0126
                   NEW_ID = COUNT;                                       UPDT0127
                   SUBSTR(X,73,8) = NEW_ID;                              UPDT0128
                   END;                                                  UPDT0129
             SCREW = X;                                                  UPDT0130
             WRITE FILE(OUTTAPE) FROM (SCREW);                           UPDT0131
             RETURN;                                                     UPDT0132
                   END PUTOUT;                                           UPDT0133
                                                                         UPDT0134
                                        END UPDATE;                      UPDT0135
-FILE 335;   757 RECORDS:  
0PDS      TITLE ' ROUTINE TO PUNCH/PRINT A PDS'                          IEH10001
 *********************************************************************** IEH10002
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* IEH10003
 *        VITAL MESSAGES FROM THE DIRECTORY RECORD FOR LOAD MODS.        IEH10004
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* IEH10005
 *********************************************************************** IEH10006
          SPACE 5                                                        IEH10007
 PDSDSECT DSECT                                                          IEH10008
 LTH      DS    H                  LENGTH OF DIR. RECORD                 IEH10009
 IND1     DS    X                  INDICATOR - WHAT KIND OF RECORD       IEH10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          IEH10748
 ID#TBL   DC    75H'0'                                                   IEH10749
          SPACE 5                                                        IEH10750
 PATCH    DS    20F                                                      IEH10751
          LTORG                                                          IEH10752
 TXTESDID DC    H'0'                                                     IEH10753
 TXTBLKAD DC    A(0)                                                     IEH10754
 TXTBLKLG DC    H'0'                                                     IEH10755
 TXTBLK   DS    XL1024                                                   IEH10756
          END   PDSPNCH#                                                 IEH10757
-FILE 336;   205 RECORDS:  
0BLKS     TITLE '     ROUTINE TO EXTRACT VAR. BLKS FROM IEHMOVE TAPE'    IEH20001
 *********************************************************************** IEH20002
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* IEH20003
 *        FILES NOW SUPPORTED BY THIS PROGRAM:                           IEH20004
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* IEH20005
 *********************************************************************** IEH20006
          SPACE 15                                                       IEH20007
 *                                                                       IEH20008
 *              SCARDS - CONTROL STATEMENTS PROVIDED BY THE USER.        IEH20009
 *                                 IF NONE, DEFAULTS WILL BE ASSUMED.    IEH20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ZERO     DC    F'0'               UNIT NUMBER.                          IEH20196
 SCRATCH  DS    78C                                                      IEH20197
 ATAPRTN  DC    A(TAPRTN)                                                IEH20198
 H078     DC    H'78'                                                    IEH20199
 EXMOVE   MVC   0(*-*,2),0(7)      REMOTE INSTRUCTION                    IEH20200
 BLKPTR   DC    F'0'               START WITH ZERO, REMEMBER.            IEH20201
 SA#0     DS    18F                SAVE AREA FOR THIS ROUTINE            IEH20202
 SA#1     DS    18F                SAVE AREA FOR ASK AND BLKRTN.         IEH20203
 BLK      DS    X                  AIN'T THERE IS SOMEWHERE ELSE.        IEH20204
          END                                                            IEH20205
-FILE 337;    39 RECORDS:  
0WIPE     TITLE '                  ROUTINE TO CLEAN OFF NON-PRINTABLE CH?IEH30001
                ARACTERS'                                                IEH30002
 CLEAN##  CSECT                                                          IEH30003
        ENTRY   CLEAN                                                    IEH30004
 CLEAN    STM   14,12,12(13)                                             IEH30005
          LR    10,15                                                    IEH30006
          L     15,0(1)            GET ADDR                              IEH30007
          USING CLEAN,10                                                 IEH30008
        L       1,4(1)                                                   IEH30009
        L       1,0(1)                                                   IEH30010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        DC      C'ABCDEFGHI'                                             IEH30030
        ORG     TABLE+C'J'                                               IEH30031
        DC      C'JKLMNOPQR'                                             IEH30032
        ORG     TABLE+C'S'                                               IEH30033
        DC      C'STUVWXYZ'                                              IEH30034
        ORG     TABLE+C'0'                                               IEH30035
        DC      C'0123456789'                                            IEH30036
        ORG                                                              IEH30037
 EXTR   TR      0(*-*,15),TABLE                                          IEH30038
        END                                                              IEH30039
-FILE 338;   127 RECORDS:  
0MOVE     TITLE  '    AN MTS PROGRAM TO STIMULATE IHEMOVE '              IEH40001
 IEHMOVE  CSECT                                                          IEH40002
          SPACE 5                                                        IEH40003
 PDSDSECT DSECT                                                          IEH40004
 LTH      DS    H                  LENGTH OF DIR. RECORD                 IEH40005
 IND1     DS    X                  INDICATOR - WHAT KIND OF RECORD       IEH40006
 TTR      DS    3X                 TTR                                   IEH40007
 NAME     DS    CL8                NAME                                  IEH40008
          SPACE 5                                                        IEH40009
 TTRSW    EQU   X'80'              3-BYTE TTR FOLLOWS                    IEH40010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CARD     DC    CL80' '                                                  IEH40118
 H080     DC    H'80'                                                    IEH40119
 JUNK     DC    F'0'                                                     IEH40120
 Z        DC    F'0'                                                     IEH40121
 PDS      DC    XL80'0'                                                  IEH40122
          CNOP  2,4                                                      IEH40123
 BLOCK    DS    CL4000             BLOCK FACTOR 50 **************        IEH40124
 RECORD   EQU   BLOCK+6                                                  IEH40125
 PATCH    DS    25F                                                      IEH40126
          END   IEHMOVE                                                  IEH40127
-FILE 339;   206 RECORDS:  
0      SUBROUTINE SNATCH(PARFLD)                                         SSPS0001
       INTEGER*2 LEN,PARFLD(2),PW/'AL'/                                  SSPS0002
       INTEGER*2 H80/80/,H3/3/,H12/12/,H32/32/,H21/21/,H34/33/,H36/35/   SSPS0003
       INTEGER*2 H27/27/,QUIC/'QU'/                                      SSPS0004
       INTEGER*2 PDN(6)/9,'*SRC.SSP* '/                                  SSPS0005
       INTEGER DCKMSG(3)/'C DECK      '/                                 SSPS0006
       INTEGER FILMSG(8)/'C EXAMPLE PROGRAM FROM P    .   '/             SSPS0007
       INTEGER A(8192),BL/'    '/,IDS(500),FILE(18)/18*0/                SSPS0008
       INTEGER FSF/'FSF '/,CCMOD/Z00000080/                              SSPS0009
       LOGICAL BATCH/.TRUE./,DECK(500),VERIFY/.TRUE./,BOUNCE             SSPS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  ENTRY REPLY                                                            SSPS0197
  ENTRY DISMNT                                                           SSPS0198
  USING REPLY,15                                                         SSPS0199
 REPLY L 15,=V(CANREPLY)                                                 SSPS0200
  BR 15                                                                  SSPS0201
  USING DISMNT,15                                                        SSPS0202
 DISMNT L 15,=V(DISMOUNT)                                                SSPS0203
  LR 5,15 COVER ERROR IN DISMOUNT                                        SSPS0204
  BR 15                                                                  SSPS0205
  END                                                                    SSPS0206
-FILE 340;   939 RECORDS:  
0SORT     TITLE '************* SORT/MERGE/2 ***************'             SORT0001
 SORT     CSECT                                                          SORT0002
          SPACE 2                                                        SORT0003
 ***************************** INITIALIZATION ************************** SORT0004
          STM   R14,R12,12(R13)     LINKAGE                              SORT0005
          LA    R14,0(0,R13)                                             SORT0006
          BAL   R13,92(0,R15)                                            SORT0007
          USING *,R13                                                    SORT0008
 SAREA    DS    20F                                                      SORT0009
          STM   R14,R15,SAREA+4     R15 FOR PGNTTRP                      SORT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MSGE14   EQU   114                 CHECK PARS - SEE STAFF               SORT0930
 MSGE15   EQU   115                 IF NOTHING TO SORT                   SORT0931
 MDUMP    EQU   X'01'                                                    SORT0932
 MMERGE   EQU   X'02'                                                    SORT0933
 MIMERGE  EQU   X'04'                                                    SORT0934
 MEOP     EQU   X'08'                                                    SORT0935
 MEOF     EQU   X'80'                                                    SORT0936
 MCTRKS   EQU   100                                                      SORT0937
 SSCR     EQU   SAREA+12                                                 SORT0938
          END   SORT                                                     SORT0939
-FILE 341;   494 RECORDS:  
0DEB      TITLE '********** DEB: BLOCKING/DEBLOCKING ROUTINE **********' DEB00001
 DEB      CSECT                                                          DEB00002
          SPACE 2                                                        DEB00003
 ***************************** INITIALIZATION ************************** DEB00004
          STM   R14,R12,12(R13)     LINKAGE                              DEB00005
          LA    R14,0(0,R13)                                             DEB00006
          BAL   R13,92(0,R15)                                            DEB00007
          USING *,R13                                                    DEB00008
 SAREA    DS    20F                                                      DEB00009
          STM   R14,R15,SAREA+4     R15 FOR PGNTTRP                      DEB00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MSGE12   EQU   112                 I/O ERROR                            DEB00485
 MSGE13   EQU   113                 MISSING MNR OR INPUT                 DEB00486
 MSGE14   EQU   114                 CHECK PARS - SEE STAFF               DEB00487
 MSGE15   EQU   115                 IF NOTHING TO SORT                   DEB00488
 MEOP     EQU   X'08'                                                    DEB00489
 MIN      EQU   X'80'                                                    DEB00490
 MOUT     EQU   X'40'                                                    DEB00491
 MEOF     EQU   X'80'                                                    DEB00492
 SSCR     EQU   SAREA+12                                                 DEB00493
          END   DEB                                                      DEB00494
-FILE 342;   140 RECORDS:  
0DITO     TITLE 'PROGRAM TO PRODUCE DITTO MASTERS'                       DTTO0001
 DITTO    START 0                                                        DTTO0002
          PRINT NOGEN                                                    DTTO0003
          ENTER 12,SA=SA                                                 DTTO0004
          LA    0,EXIT                                                   DTTO0005
          LA    1,AREA                                                   DTTO0006
          L     15,=V(ATTNTRP)                                           DTTO0007
          BALR  14,15                                                    DTTO0008
          SCARDS IN1,INL1,LINE1,EXIT=NOIN                                DTTO0009
          SERCOM 'TYPE "RETURN" WHEN READY'                              DTTO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IN1      DS    CL256                                                    DTTO0131
 IN2      DS    CL256                                                    DTTO0132
 INL1     DS    H                                                        DTTO0133
 INL2     DS    H                                                        DTTO0134
 LINE1    DS    F                                                        DTTO0135
 LINE2    DS    F                                                        DTTO0136
 PGLIN    DS    F                                                        DTTO0137
 OUT      DS    CL512                                                    DTTO0138
 SAVCC    DS    X                   SAVE CC WHILE MOVING LINE            DTTO0139
          END                                                            DTTO0140
-FILE 343;    52 RECORDS:  
0SYM              DITTOh  ԥh  ƥh  h  h   h  &h  h  DITO0001
 SYM           h  *h  - h  ˳c  ###2    dSK2h  ݥh  h  mDITO0002
 SYM           h  qh   h  c  s###3     t  ySK1h  ^h  hDITO0003
 SYM             h  h  { h  Dc  F###4     G  NEWLIN  MPADITO0004
 SYM           GEh  h  \h  Uh  Yh  h  0 h  4D NOTPGDITO0005
 SYM              h h h h h   NONZERO *PRINTh DITO0006
 SYM           h %h h h  h @ IMEDSK OVERP DITO0007
 SYM           NOTSKP LOOKCHR BLANK2 BLANK3 INCOUT OKLDITO0008
 SYM           EN ;NOEXTRAh h @h h dh h h ݳ REDITO0009
 SYM           BUFFERh qh h h uh y  MNOOUTh h \DITO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        }                                                  DITO0043
 TXT  y      K -                                                    DITO0044
 TXT  H                               {                            DITO0045
 RLD                       &          m  ^    DITO0046
 RLD                 \  U  Y      %   @DITO0047
 RLD               q   u  \ U     DITO0048
 RLD              < & d h  } M Q 0 4 8  \DITO0049
 RLD              U   H      } 	  M   Q   YDITO0050
 END                                   DATE  10-01-69 01:03             DITO0051
  LCS            LCSYMBOL                                                        
-FILE 344;   276 RECORDS:  
0NLIN   TITLE   'ROUTINE TO LIST FIRST AND LAST CARDS OF TAPE FILES'     NLIN0001
 NLINE  CSECT                                                            NLIN0002
        SPACE   1                                                        NLIN0003
        PRINT   NOGEN                                                    NLIN0004
        REQU                                                             NLIN0005
        SPACE   1                                                        NLIN0006
        ENTER   RC,SA=SA                                                 NLIN0007
        SPACE   3                                                        NLIN0008
        BAL     RA,INIT            INIT VARIOUS STUFF                    NLIN0009
        OI      SW,INSW            SAY WHERE WE ARE                      NLIN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        DC      C';'                                                     NLIN0267
        DC      X'402020202120'                                          NLIN0268
        DC      C' RECORDS:  '                                           NLIN0269
 MSGND  EQU     *                                                        NLIN0270
        LTORG                                                            NLIN0271
 FBLK   DS      25CL80                                                   NLIN0272
 LBLK   DS      25CL80                                                   NLIN0273
 LBLKL  DS      CL80                                                     NLIN0274
 LBLKND EQU     *-1                                                      NLIN0275
        END                                                              NLIN0276
-FILE 345;    70 RECORDS:  
0SYM              NLINE  SCAN  CR5F25  STR5  %NNUM  fNNR  NONLIN0001
 SYM           MO  QPDNh  {h  Dh  Hh  h  } h  Mc  O###1 NLIN0002
 SYM              X  PROMPTh  8h  h  h h h   NLIN0003
 SYM           QUIT GOg  IHB0011Bh h <  h (g IHB0013NLIN0004
 SYM           Bh h   h  =NREW dFLOOPg IHB0015Bh NLIN0005
 SYM           mh qh h   h ~g HIHB0017Bh }h M  hNLIN0006
 SYM            N YQGLg 4IHB0019B LRDg IHB0020B  LM NLIN0007
 SYM           EOFQ <EOFg &IHB0021Bh   h h mh qh NLIN0008
 SYM           h h u  NLCh h }h Mh Qh  h \NLIN0009
 SYM            6SPRLh h h h h  h  PLBLKNLIN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        REWBSFNOREW                                             NLIN0061
 TXT  {      -FILE ;  RECORDS:                               NLIN0062
 TXT  \                                                              NLIN0063
 RLD               {  D  H  8       (   m qNLIN0064
 RLD               ~ } N  m q   } M  NLIN0065
 RLD                 <   { 1     NLIN0066
 RLD               *  \ U 	 	 	 	0 	8    NLIN0067
 RLD                        	  H 4    &NLIN0068
 RLD              Y   \   U   Y                        NLIN0069
 END                                   DATE  01-15-70 23:47             NLIN0070
-FILE 346;   350 RECORDS:  
0DTPE     TITLE 'DISTRIBUTION TAPE CREATION ROUTINE'                     DTAP0001
          MACRO                                                          DTAP0002
 &L       BLANK &LOC,&LEN                                                DTAP0003
 &L       MVI   &LOC,C' '                                                DTAP0004
          MVC   &LOC+1(&LEN-1),&LOC                                      DTAP0005
          MEND                                                           DTAP0006
          SPACE 3                                                        DTAP0007
          MACRO                                                          DTAP0008
 &L       ZOT                                                            DTAP0009
 &L       LTR   RF,RF                                                    DTAP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ETMSG    DC    C' *** EOT FOUND AFTER FILE '                            DTAP0341
 ETCNT    DC    C'   '                                                   DTAP0342
 ETND     EQU   *                                                        DTAP0343
          LTORG                                                          DTAP0344
 ITAPE    DSECT                                                          DTAP0345
 IRACK    DS    F                                                        DTAP0346
 IFCNT    DS    F                                                        DTAP0347
 IUCSAV   DS    A                                                        DTAP0348
 ITL      EQU   *-ITAPE                                                  DTAP0349
          END                                                            DTAP0350
-FILE 347;   151 RECORDS:  
0SYM              DTAPEg  IHB0006Bg  *IHB0008Bg  %IHB0009Bh  DTPE0001
 SYM           h    h  `h  mh  qh  h  h  u h  yc  #DTPE0002
 SYM           ##1  h  }h  Mh  Qh  h  \h  U h  Yh  4hDTPE0003
 SYM             8h  h  h  h c ###3   h åh DTPE0004
 SYM           h ƥh h h  h  g IHB0024Bh &h DTPE0005
 SYM             h g %IHB0027Bh h   h ` IRLh qDTPE0006
 SYM           h h h uh y h ܳc ###5   Ch Mh DTPE0007
 SYM           Qh h \h Uh Y h  6QPDNh h h DTPE0008
 SYM           h h  h c ###7  	h ƥh h h DTPE0009
 SYM           h  h  h g IHB0045Bh -h   h g DTPE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD              U Z    & ُ ٓ ) @ ٯ d iDTPE0142
 RLD               ٣ م 1  
   y  ^ ک ڸDTPE0143
 RLD              U Y څ          h DTPE0144
 RLD              h       ^    *     % 	  DTPE0145
 RLD            	   4    % d @      -DTPE0146
 RLD               *     ٍ      u    DTPE0147
 RLD                  	   q   U   گ       DTPE0148
 RLD              H      }   Q   U                DTPE0149
 END                                   DATE  01-21-70 16:21             DTPE0150
  LCS            LCSYMBOL                                                        
-FILE 348;   425 RECORDS:  
0DDCM   TITLE   'DISTRIBUTION DESCRIPTOR COMMENT ROUTINE'                DDCM0001
        MACRO                                                            DDCM0002
 &L     BLANK   &LOC,&LEN                                                DDCM0003
 &L     MVI     &LOC,C' '                                                DDCM0004
        MVC     &LOC+1(&LEN-1),&LOC                                      DDCM0005
        MEND                                                             DDCM0006
        SPACE   3                                                        DDCM0007
        MACRO                                                            DDCM0008
 &L     MSG     &Q                                                       DDCM0009
 &L     LA      R8,&Q                                                    DDCM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CCMN   DC      CL5' '                                                   DDCM0416
        DC      C'. OVERRIDE?'                                           DDCM0417
 CCML   EQU     *-CCM                                                    DDCM0418
 NMDM   DC      C' ** NO MORE DESCRIPTORS.'                              DDCM0419
 NMDML  EQU     *-NMDM                                                   DDCM0420
 ILCM   DC      C' *** UNRECOGNIZABLE COMMAND.'                          DDCM0421
 ILCML  EQU     *-ILCM                                                   DDCM0422
 NSC    DC      C' *** NO SUCH DESCRIPTOR IN FILE.'                      DDCM0423
 NSCL   EQU     *-NSC                                                    DDCM0424
        END                                                              DDCM0425
-FILE 349;    98 RECORDS:  
0SYM              DDCOM  INITg  IHB0003Bg  IHB0004B  QEDFM DDCM0001
 SYM            QGO  :QECFM  fQECFMM  oPNFMSG  uQND  PDFE  CGEDDCM0002
 SYM           Tg  UIHB0009Bh  h  0  h  1 CGGD PCNh hDDCM0003
 SYM            h {h Dh Hh   MACLh h \h UhDDCM0004
 SYM            Yh h 0  ALOK UNSAV CASGN PCOMP DDCM0005
 SYM            PCOM NXTD !NXTD2 PNMDM ESC2 @ESCAPEg IHBDDCM0006
 SYM           0021Bh hh   h  PNSC NONAME QLIST DDCM0007
 SYM           CL URSFD 2LGDh h h  h h h < DDCM0008
 SYM            *CRDSh ˥h h %h h h   CPR ySDDCM0009
 SYM           SPR LBARF LQ FQUIT KGTSR QLKBL LKNBL 6NDDCM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD                 1   { D H  \ U Y  hDDCM0089
 RLD                       %   { DDDCM0090
 RLD              H  } 4 8  	  	 	 	 	 	 	DDCM0091
 RLD              	 	 	* 	- 	m 	q 	D 	H 	 	} 	M 	8 	DDCM0092
 RLD                  &   * -  u y  ^DDCM0093
 RLD              \ U Y            d    UDDCM0094
 RLD               	     m             DDCM0095
 END                                   DATE  01-15-70 18:23             DDCM0096
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 350;  1393 RECORDS:  
0* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * MTNL0001
 * SUBROUTINE TO RETURN MONTH, DAY, & YEAR, GIVEN A REGION     (ADDRESS  MTNL0002
 * IN GR 1) CONTAINING MM-DD-YY IN EBCDIC.  CALLING SEQUENCE   FROM      MTNL0003
 *    FORTRAN: NUMBR=DCONV(REG) WHERE NUMBER=YY*10000+MM*100+DD          MTNL0004
 * GR15 IS PRESERVED. GR0 CONTAINS NUMBER                                MTNL0005
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * MTNL0006
 DCONV    CSECT                                                          MTNL0007
          COPY  EQU                                                      MTNL0008
          SAVE  (14,12),T,DCONV                                          MTNL0009
          BASR  12,0                                                     MTNL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DONEB    BCTR  2,0                                                      MTNL1384
          EX    2,MO                                                     MTNL1385
          LA    2,1(2)                                                   MTNL1386
         RETURN (3,12)                                                   MTNL1387
 MO       MVC   0(0,1),0(3)                                              MTNL1388
          DS    0D                                                       MTNL1389
 SCRATCH   DS    CL9' '                                                  MTNL1390
          DS    0D                                                       MTNL1391
 TEMP     DS    CL16' '                                                  MTNL1392
          END                                                            MTNL1393
-FILE 351;  1299 RECORDS:  
0ICOM     TITLE 'FORTRAN I/O INTERFACE MODULE'                           IBCM0001
 IBCOM#   START 0                                                        IBCM0002
          EXTRN ADCON#                                                   IBCM0003
          EXTRN FIOCS#                                                   IBCM0004
 * THESE EXTERNAL REFERENCES ARE A TEMPORARY EXPEDIENT TO MAINTAIN       IBCM0005
 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE.                 IBCM0006
          EXTRN FCVEO                                                    IBCM0007
          EXTRN FCVLO                                                    IBCM0008
          EXTRN FCVIO                                                    IBCM0009
          EXTRN FCVCO                                                    IBCM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    H'282',C'EF',C'CDEXP ABS(IMAG(ARG)) >= 2**50*PI        ' IBCM1290
          DC    H'283',C'EF',C'CDLOG ARGUMENT ZERO                     ' IBCM1291
          DC    H'284',C'EF',C'CDSIN/CDCOS ABS(REAL(ARG)) >= 2**50*PI  ' IBCM1292
          DC    H'285',C'EF',C'CDSIN/CDCOS ABS(IMAG(ARG)) > 174.673    ' IBCM1293
          DC    H'290',C'EF',C'GAMMA RANGE IS 2**-252 < ARG < 57.5744  ' IBCM1294
          DC    H'291',C'EF',C'ALGAMA RANGE IS 0 < ARG < 4.2937E+73    ' IBCM1295
          DC    H'300',C'EF',C'DGAMMA RANGE IS 2**-252 < ARG < 57.5744 ' IBCM1296
 IHCLAST  DC    H'301',C'EF',C'DLGAMA RANGE IS 0 < ARG < 4.2937E+73    ' IBCM1297
 *                                                                       IBCM1298
          END                                                            IBCM1299
-FILE 352;   778 RECORDS:  
0FIO      TITLE 'FFORTRAN/MTS I/O INTERFACE MODULE'                      FIOC0001
 FIOCS#   START 0                                                        FIOC0002
 *        ***** REGISTER ASSIGNMENTS *****                               FIOC0003
 GRX      EQU   2                                                        FIOC0004
 GRY      EQU   3                                                        FIOC0005
 WKA      EQU   4                                                        FIOC0006
 WKB      EQU   5                                                        FIOC0007
 UATER    EQU   6                                                        FIOC0008
 BASE     EQU   7                                                        FIOC0009
 GRS      EQU   7                                                        FIOC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FLAGS    EQU   READVCON                                                 FIOC0769
 DEVFLG   EQU   RITEVCON                                                 FIOC0770
 LINE#    DS    F                                                        FIOC0771
 RECLENI  DS    H                                                        FIOC0772
 RECLENO  DS    H                                                        FIOC0773
 LASTINIT DS    F                                                        FIOC0774
 FQUALS   EQU   LASTINIT                                                 FIOC0775
 BUFADDR  DS    F                                                        FIOC0776
 STARECNT EQU   BUFADDR                                                  FIOC0777
          END                                                            FIOC0778
-FILE 353;  1363 RECORDS:  
0CVTH     TITLE 'FORTRAN I/O CONVERSION MODULE'                          ADCN0001
 ADCON#   START 0                                                        ADCN0002
          EXTRN     IBCOM#                                               ADCN0003
 * THESE ENTRY POINTS ARE A TEMPORARY EXPEDIENT TO MAINTAIN              ADCN0004
 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE.                 ADCN0005
          ENTRY     FCVEO                                                ADCN0006
          ENTRY     FCVLO                                                ADCN0007
          ENTRY     FCVIO                                                ADCN0008
          ENTRY     FCVCO                                                ADCN0009
          ENTRY     FCVAO                                                ADCN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MOVEX    MVC       0(1,GRY),0(GRX)     ITEM TO BUFFER                   ADCN1354
 CHRMOV   MVC       0(1,GRY),0(CHRSAV)  MOVE FROM CONVERT AREA           ADCN1355
 CONONE   EQU       ONE                                                  ADCN1356
 CONFOR   EQU       FOU                                                  ADCN1357
 GFSWCH   DC        AL1(0)              FLOATING DECIMAL SWITCH          ADCN1358
 CGSWCH   DC        AL1(0)              G-OUTPUT SWITCH                  ADCN1359
 DECIM    DC        C'0123456789ABCDEF' OUTPUT TRANSLATION TABLE         ADCN1360
 ZERPNT   DC        C' 0.0'                                              ADCN1361
          SPACE     3                                                    ADCN1362
          END                                                            ADCN1363
-FILE 354;   796 RECORDS:  
0NAME     TITLE 'MTS FORTRAN VERSION OF IHCNAMEL'                        NAML0001
 IHCNAMEL START     0                   NAMELIST I/O ROUTINES            NAML0002
          ENTRY     FRDNL#                                               NAML0003
          ENTRY     FWRNL#                                               NAML0004
          EXTRN     IBCOM#                                               NAML0005
          EXTRN     ADCON#                                               NAML0006
          EXTRN     FIOCS#                                               NAML0007
 *                                                                       NAML0008
 * STATUS - CHANGE LEVEL 4                                               NAML0009
 *                                                                       NAML0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NOSWCH   DC        AL1(0)              NUMBER SWITCH                    NAML0787
 VSUBSW   DC        AL1(0)              SUBSCRIPTED VARIABLE             NAML0788
 COMPSW   DC        AL1(0)              FIRST COMMA SWITCH               NAML0789
 HEXSW    DC        AL1(0)              HEXADECIMAL INPUT                NAML0790
 QSTOP    DC        AL1(0)              LAST QUOTE SWITCH                NAML0791
 QUOTE    DC        AL1(0)              QUOTE OR COMMERCIAL AT           NAML0792
 ENDSW    DC        AL1(0)              &END SWITCH                      NAML0793
          DS    250C                                                     NAML0794
 *                                                                       NAML0795
          END                                                            NAML0796
-FILE 355;   786 RECORDS:  
0DBUG     TITLE 'MTS FORTRAN VERSION OF DEBUG#'                          DBUG0001
 DEBUG#   CSECT                                                          DBUG0002
 *********************************************************************** DBUG0003
 *                                                                       DBUG0004
 *ENTRY POINTS.                                                          DBUG0005
 *    THERE IS ONE EXTERNAL ENTRY TO THIS ROUTINE - DEBUG#. THIS NAME    DBUG0006
 *    IS GIVEN TO THE INITIAL WORD OF A TRANSFER VECTOR. THE GENERAL     DBUG0007
 *    FORM OF A CALL IS THEREFORE -                                      DBUG0008
 *                                                                       DBUG0009
 *                  L   15,=V(DEBUG#)                                    DBUG0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          DBUG0777
 EXPONTBL DC    X'000102030405060708090A141E28323C46'                    DBUG0778
 TRACFLAG DC    XL1'00'                                                  DBUG0779
 DATATYPE DC    XL1'00'                                                  DBUG0780
 IOFLAG   DC    XL1'00'                                                  DBUG0781
 TEMPFLAG DS    XL1                                                      DBUG0782
 SWITCH   DS    XL1                                                      DBUG0783
 EXPLETER DS    C                                                        DBUG0784
          SPACE 10                                                       DBUG0785
          END                                                            DBUG0786
-FILE 356;   259 RECORDS:  
0DUMP     TITLE 'MTS FORTRAN VERSION OF IHCFDUMP'                        FDMP0001
 IHCFDUMP START     0                                                    FDMP0002
          ENTRY     DUMP                POST-MORTEM DUMP                 FDMP0003
          ENTRY     PDUMP               DYNAMIC DUMP                     FDMP0004
          EXTRN     IBCOM#                                               FDMP0005
          SPACE     3                                                    FDMP0006
 * CALLING SEQUENCE                                                      FDMP0007
 *        LA        S,SAVLOC                                             FDMP0008
 *        LA        A,ARGLST                                             FDMP0009
 *        L         L,=V(DUMP)/=V(PDUMP)                                 FDMP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DMPLOC   DS        1F                  CURRENT DUMP LOCATION            FDMP0250
 SETOFF   DC        X'00FFFFFF'         MASK FOR LAST ARGUMENT           FDMP0251
 NINE     DC        AL2(9)                                               FDMP0252
 ADCONS   DC        X'4E5E5E5252565A626266'                              FDMP0253
 EXITSW   DC        AL1(0)              SET ON BY DUMP, OFF BY PDUMP     FDMP0254
 ARGSW    DC        AL1(0)              LAST ARGUMENT SWITCH             FDMP0255
 BLANKS   DC        C'   '                                               FDMP0256
 *                                                                       FDMP0257
          SPACE     3                                                    FDMP0258
          END                                                            FDMP0259
-FILE 357;    11 RECORDS:  
0SSTA     TITLE 'SET STARE COUNT (DSRN,TIMES)'                           SSTA0001
 SETSTA   START 0                                                        SSTA0002
          USING SETSTA,15                                                SSTA0003
          STM   14,3,12(13)                                              SSTA0004
          LR    2,1                                                      SSTA0005
          L     1,=V(FIOCS#)                                             SSTA0006
          BAL   0,8(0,1)                                                 SSTA0007
          LM    14,3,12(13)                                              SSTA0008
          MVI   12(13),X'FF'                                             SSTA0009
          BR    14                                                       SSTA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          END                                                            SSTA0011
-FILE 358;    11 RECORDS:  
0SGRE     TITLE 'SET GREENWORD FLAG (DSRN)'                              SGRE0001
 SETGRE   START 0                                                        SGRE0002
          USING SETGRE,15                                                SGRE0003
          STM   14,3,12(13)                                              SGRE0004
          LR    2,1                                                      SGRE0005
          L     1,=V(FIOCS#)                                             SGRE0006
          BAL   0,12(0,1)                                                SGRE0007
          LM    14,3,12(13)                                              SGRE0008
          MVI   12(13),X'FF'                                             SGRE0009
          BR    14                                                       SGRE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          END                                                            SGRE0011
-FILE 359;    11 RECORDS:  
0SDSR     TITLE 'SET DS RECORD LENGTHS (DSRN,IRL,ORL)'                   SDSR0001
 SETDSR   START 0                                                        SDSR0002
          USING SETDSR,15                                                SDSR0003
          STM   14,3,12(13)                                              SDSR0004
          LR    2,1                                                      SDSR0005
          L     1,=V(FIOCS#)                                             SDSR0006
          BAL   0,16(0,1)                                                SDSR0007
          LM    14,3,12(13)                                              SDSR0008
          MVI   12(13),X'FF'                                             SDSR0009
          BR    14                                                       SDSR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          END                                                            SDSR0011
-FILE 360;    49 RECORDS:  
0SDSN     TITLE 'SET DATA SET REFERENCE NUMBER (DSRN,NAME,FDUB)'         SDSN0001
 *   SET DATA SET REFERENCE NUMBER                                       SDSN0002
 *     CONNECT THE DSRN SPECIFIED AS THE FIRST ARGUMENT TO THE           SDSN0003
 *     FDNAME GIVEN AS THE SECOND ARGUMENT.                              SDSN0004
 *                                                                       SDSN0005
 *          CALL SETDSN(DSRN,FDNAME,FDUB(OPTIONAL))                      SDSN0006
 *                                                                       SDSN0007
 SETDSN   START 0                                                        SDSN0008
 BASE     EQU   4                                                        SDSN0009
          STM   13,BASE,8(13) KILL THE FWD PTR AND SAVE REGS             SDSN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     14,12(,13)                                               SDSN0040
          LM    1,BASE,24(13)                                            SDSN0041
          BR    14                                                       SDSN0042
 *                                                                       SDSN0043
 SAVE     DS    18F                                                      SDSN0044
 LIST     DC    A(0,FDUB)                                                SDSN0045
 FDUB     DC    F'0'                                                     SDSN0046
 FOUR     DC    F'4'                                                     SDSN0047
 *                                                                       SDSN0048
          END                                                            SDSN0049
-FILE 361;     8 RECORDS:  
0DIO      TITLE 'IMPLEMENTATION OF DEFINE FILE STATEMENT'                DIOC0001
 DIOCS#   START 0                                                        DIOC0002
          USING DIOCS#,15                                                DIOC0003
          STM   14,1,12(13)                                              DIOC0004
          L     15,=V(IBCOM#)                                            DIOC0005
          BAL   14,60(0,15)                                              DIOC0006
          DC    XL2'214C'                                                DIOC0007
          END                                                            DIOC0008
-FILE 362;    48 RECORDS:  
0IHC      TITLE 'PROGRAM TO SNATCH IHC ERRORS'                           IHC00001
 *        TIMING FOR GETIHC IS ABOUNT 10 MICS.  THE CALLING SEQUENCE     IHC00002
 *        FOR GETIHC IS (KEY,LIST,&100) - TO GET CONTROL AT STMT NO 100  IHC00003
 *        WHEN ONE OF THE REQUESTED ERRORS OCCURS. ENTRY PUTIHC HAS NO   IHC00004
 *        ARGUMENTS AND SIMPLY KILLS THE LAST GETIHC CALL. NOTE THAT     IHC00005
 *        THE LIST OF DESIRED IHC CODES IS LOOKED AT ONLY AFTER THE      IHC00006
 *        ERROR OCCURS AND HENCE COULD BE MODIFIED ON THE FLY.           IHC00007
 *                                                                       IHC00008
 GETIHC   START 0                                                        IHC00009
          USING GETIHC,15                                                IHC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     15,=V(IBCOM#)                                            IHC00039
          BR    14                                                       IHC00040
 GOTIHC   LM    0,15,IHCSAVE1                                            IHC00041
          LA    15,4                                                     IHC00042
          BR    14                                                       IHC00043
 *                                                                       IHC00044
 IHCSAVE1 DS    8D                                                       IHC00045
 IHCSAVE2 DS    2D                                                       IHC00046
 LAST     DC    F'39'                                                    IHC00047
          END                                                            IHC00048
-FILE 363; 15380 RECORDS:  
0C                                                                       TALL  10
 C     ..................................................................TALL  20
 C                                                                       TALL  30
 C        SUBROUTINE TALLY                                               TALL  40
 C                                                                       TALL  50
 C        PURPOSE                                                        TALL  60
 C           CALCULATE TOTAL, MEAN, STANDARD DEVIATION, MINIMUM, MAXIMUM TALL  70
 C           FOR EACH VARIABLE IN A SET (OR A SUBSET) OF OBSERVATIONS    TALL  80
 C                                                                       TALL  90
 C        USAGE                                                          TALL 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   300 A(LK)=S                                                           HSBG1150
 C                                                                       HSBG1160
 C        SET THE LOWER PART OF THE MATRIX TO ZERO                       HSBG1170
 C                                                                       HSBG1180
       DO 310 I=L,LIA,IA                                                 HSBG1190
   310 A(I)=0.0                                                          HSBG1200
   320 L=L1                                                              HSBG1210
       GO TO 20                                                          HSBG1220
   360 RETURN                                                            HSBG1230
       END                                                               HSBG1240
-FILE 364; 25113 RECORDS:  
0C                                                                       PADD  10
 C     ..................................................................PADD  20
 C                                                                       PADD  30
 C        SUBROUTINE PADD                                                PADD  40
 C                                                                       PADD  50
 C        PURPOSE                                                        PADD  60
 C           ADD TWO POLYNOMIALS                                         PADD  70
 C                                                                       PADD  80
 C        USAGE                                                          PADD  90
 C           CALL PADD(Z,IDIMZ,X,IDIMX,Y,IDIMY)                          PADD 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       GOTO 12                                                           DJEL1020
    11 SN=A                                                              DJEL1030
    12 CN=C*SN                                                           DJEL1040
    13 IF(SCK)14,2,2                                                     DJEL1050
    14 A=DN                                                              DJEL1060
       DN=CN                                                             DJEL1070
       CN=A                                                              DJEL1080
       SN=SN/D                                                           DJEL1090
       RETURN                                                            DJEL1100
       END                                                               DJEL1110
-FILE 365;   756 RECORDS:  
0C                                                                       DASC  10
 C     ..................................................................DASC  20
 C                                                                       DASC  30
 C        SAMPLE MAIN PROGRAM FOR DATA SCREENING - DASCR                 DASC  40
 C                                                                       DASC  50
 C        PURPOSE                                                        DASC  60
 C           PERFORM DATA SCREENING CALCULATIONS ON A SET OF OBSERVATIONSDASC  70
 C                                                                       DASC  80
 C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  DASC  90
 C           SUBST                                                       DASC 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 46.       74.       154.      16.                                            980
 50.       68.       158.      10.                                            990
 61.       66.       161.      14.                                           1000
 36.       64.       157.      15.                                           1010
 32.       71.       156.      16.                                           1020
 9                                                                           1030
 0203                                                                        1040
  12  65.   46  8.                                                           1050
   120.      20.       210.                                                  1060
                                                                             1070
-FILE 366;   927 RECORDS:  
0C                                                                       REGR  10
 C     ..................................................................REGR  20
 C                                                                       REGR  30
 C        SAMPLE MAIN PROGRAM FOR MULTIPLE REGRESSION - REGRE            REGR  40
 C                                                                       REGR  50
 C        PURPOSE                                                        REGR  60
 C           (1) READ THE PROBLEM PARAMETER CARD FOR A MULTIPLE REGRES-  REGR  70
 C           SION, (2) READ SUBSET SELECTION CARDS, (3) CALL THE SUB-    REGR  80
 C           ROUTINES TO CALCULATE MEANS, STANDARD DEVIATIONS, SIMPLE    REGR  90
 C           AND MULTIPLE CORRELATION COEFFICIENTS, REGRESSION COEFFI-   REGR 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     44   395   215   101    27     1                                         250
     49   139   220   136    59     0                                         260
     49   245   205   113    37     4                                         270
     49   373   215    88    25     1                                         280
     51   224   215   118    54     3                                         290
     51   677   210   116    33     4                                         300
     51   424   210   140    59     4                                         310
     51   150   210   105    30     0                                         320
 0106050102030405                                                             330
 010603020305                                                                 340
-FILE 367;   965 RECORDS:  
0C                                                                       PLRG  10
 C     ..................................................................PLRG  20
 C                                                                       PLRG  30
 C        SAMPLE MAIN PROGRAM FOR POLYNOMIAL REGRESSION - POLRG          PLRG  40
 C                                                                       PLRG  50
 C        PURPOSE                                                        PLRG  60
 C           (1) READ THE PROBLEM PARAMETER CARD FOR A POLYNOMIAL REGRES-PLRG  70
 C           SION, (2) CALL SUBROUTINES TO PERFORM THE ANALYSIS, (3)     PLRG  80
 C           PRINT THE REGRESSION COEFFICIENTS AND ANALYSIS OF VARIANCE  PLRG  90
 C           TABLE FOR POLYNOMIALS OF SUCCESSIVELY INCREASING DEGREES,   PLRG 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      6    26                                                                  80
      7    30                                                                  90
      8    36                                                                 100
      9    48                                                                 110
     10    62                                                                 120
     11    78                                                                 130
     12    94                                                                 140
     13   107                                                                 150
     14   118                                                                 160
     15   127                                                                 170
-FILE 368;  1137 RECORDS:  
0C                                                                       STEP  10
 C     ..................................................................STEP  20
 C                                                                       STEP  30
 C        SAMPLE MAIN PROGRAM FOR STEP-WISE MULTIPLE REGRESSION - STEPR  STEP  40
 C                                                                       STEP  50
 C        PURPOSE                                                        STEP  60
 C           (1) READ THE PROBLEM PARAMETER CARD FOR A STEP-WISE MULTIPLESTEP  70
 C           REGRESSION, (2) READ SUBSET SELECTION CARDS, (3) CALL THE   STEP  80
 C           SUBROUTINE TO CALCULATE MEANS, STANDARD DEVIATIONS, SIMPLE  STEP  90
 C           CORRELATION COEFFICIENTS, AND (4) CALL THE SUBROUTINE TO    STEP 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     44   395   215   101    27     1                                         250
     49   139   220   136    59     0                                         260
     49   245   205   113    37     4                                         270
     49   373   215    88    25     1                                         280
     51   224   215   118    54     3                                         290
     51   677   210   116    33     4                                         300
     51   424   210   140    59     4                                         310
     51   150   210   105    30     0                                         320
 000003                                                                       330
 001203                                                                       340
-FILE 369;  1157 RECORDS:  
0C                                                                       MCAN  10
 C     ..................................................................MCAN  20
 C                                                                       MCAN  30
 C        SAMPLE MAIN PROGRAM FOR CANONICAL CORRELATION - MCANO          MCAN  40
 C                                                                       MCAN  50
 C        PURPOSE                                                        MCAN  60
 C           (1) READ THE PROBLEM PARAMETER CARD FOR A CANONICAL         MCAN  70
 C           CORRELATION, (2) CALL TWO SUBROUTINES TO CALCULATE SIMPLE   MCAN  80
 C           CORRELATIONS, CANONICAL CORRELATIONS, CHI-SQUARES, DEGREES  MCAN  90
 C           OF FREEDOM FOR CHI-SQUARES, AND COEFFICIENTS FOR LEFT AND   MCAN 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    190   159    91    19   195   157    99                                   160
    188   151    98    20   187   158    87                                   170
    163   137    59    18   161   130    63                                   180
    195   155    85    20   183   158    81                                   190
    196   153    80    21   173   148    74                                   200
    181   145    77    20   182   146    70                                   210
    175   140    70    19   165   137    81                                   220
    192   154    69    20   185   152    63                                   230
    174   143    79    20   178   147    73                                   240
    176   139    70    20   176   143    69                                   250
-FILE 370;   515 RECORDS:  
0C                                                                       ANOV  10
 C     ..................................................................ANOV  20
 C                                                                       ANOV  30
 C        SAMPLE MAIN PROGRAM FOR ANALYSIS OF VARIANCE - ANOVA           ANOV  40
 C                                                                       ANOV  50
 C        PURPOSE                                                        ANOV  60
 C           (1) READ THE PROBLEM PARAMETER CARD FOR ANALYSIS OF VARI-   ANOV  70
 C           ANCE, (2) CALL THE SUBROUTINES FOR THE CALCULATION OF SUMS  ANOV  80
 C           OF SQUARES, DEGREES OF FREEDOM AND MEAN SQUARE, AND         ANOV  90
 C           (3) PRINT FACTOR LEVELS, GRAND MEAN AND ANALYSIS OF VARI-   ANOV 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   370 RETURN                                                            MEAN1470
       END                                                               MEAN1480
 /DATA                                                                         10
 SAMPLE04       A0004B0003C0003R0002                                           20
      3    10     9     8    24     8     9     3     2     8     9     8      30
      4    12     3     9    22     7    16     2     2     2     7     2      40
      5    10     5     8    23     9    17     3     2     8     6     3      50
      2    14     9    13    29    16    11     3     2     7     5     3      60
      7    11     5     8    28    18    10     6     6     6     5     9      70
      9    10    27     8    28    16    11     7     8     9     8    15      80
-FILE 371;   689 RECORDS:  
0C                                                                       MDIS  10
 C     ..................................................................MDIS  20
 C                                                                       MDIS  30
 C        SAMPLE MAIN PROGRAM FOR DISCRIMINANT ANALYSIS - MDISC          MDIS  40
 C                                                                       MDIS  50
 C        PURPOSE                                                        MDIS  60
 C           (1) READ THE PROBLEM PARAMETER CARD AND DATA FOR DISCRIMI-  MDIS  70
 C           NANT ANALYSIS, (2) CALL THREE SUBROUTINES TO CALCULATE VARI-MDIS  80
 C           ABLE MEANS IN EACH GROUP, POOLED DISPERSION MATRIX, COMMON  MDIS  90
 C           MEANS OF VARIABLES, GENERALIZED MAHALANOBIS D SQUARE,       MDIS 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      8    10     5     8    27    16                                         230
     17     3     2     7     6     3                                         240
      3    10     8     8    23     8                                         250
      4    12     3     8    23     7                                         260
      9     3     2     8    21     7                                         270
     15     2     2     2     7     2                                         280
      9    10    26     8    27    16                                         290
      8     9     2     8    26    16                                         300
      7     8     6     9    18     2                                         310
      7    10     5     8    26    16                                         320
-FILE 372;  1058 RECORDS:  
0C                                                                       FCTO  10
 C     ................................................................. FCTO  20
 C                                                                       FCTO  30
 C        SAMPLE MAIN PROGRAM FOR FACTOR ANALYSIS - FACTO                FCTO  40
 C                                                                       FCTO  50
 C        PURPOSE                                                        FCTO  60
 C           (1) READ THE PROBLEM PARAMETER CARD, (2) CALL FIVE SUBROU-  FCTO  70
 C           TINES TO PERFORM A PRINCIPAL COMPONENT SOLUTION AND THE     FCTO  80
 C           VARIMAX ROTATION OF A FACTOR MATRIX, AND (3) PRINT THE      FCTO  90
 C           RESULTS.                                                    FCTO 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      9    16    26    27    14    31    59    19    17                       160
     10    15    24    18    12    29    48    18    26                       170
     11    11    30    19    19    26    57    20    30                       180
     16     9    16    20    18    31    60    21    17                       190
      9     8    19    14    16    33    67     9    19                       200
      7    18    22     9    15    37    62    11    20                       210
      8    11    23    18     9    36    61    22    24                       220
      6     6    27    23     7    40    55    24    31                       230
     10     9    26    26    10    37    57    27    29                       240
      8    10    26    15    11    42    59    20    28                       250
-FILE 373;   733 RECORDS:  
0C                                                                       KOLM  10
 C     ..................................................................KOLM  20
 C                                                                       KOLM  30
 C        SAMPLE MAIN PROGRAM FOR THE KOLMOGOROV-SMIRNOV TEST-KOLM       KOLM  40
 C                                                                       KOLM  50
 C        PURPOSE                                                        KOLM  60
 C           (1) READ THE CONTROL CARD FOR A ONE OR TWO SAMPLE TEST      KOLM  70
 C           (2) READ THE SAMPLE DATA AND DETERMINE THE SAMPLE SIZES     KOLM  80
 C           (3) PRINT RESULTS                                           KOLM  90
 C                                                                       KOLM 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  0.388 0.772 1.046-0.067 0.760 0.428 0.852 0.867 0.610 0.359 1.352 0.571     820
 -0.011-0.205 1.084 0.009 0.917 0.438 1.050 0.616 0.884 0.954-0.275 1.295     830
  0.346-1.018 1.049 0.417 1.230 1.127 1.435 0.823-0.069 0.464 1.261-0.179     840
  0.812 0.537 0.875 0.190 0.707 0.857 0.094 0.176 0.916 0.406 0.204 0.494     850
  1.709 0.133 0.460 0.828-0.174 0.457 0.584 0.832-0.026 1.265-0.232-0.373     860
 -0.172 0.913 0.673 0.303 0.035 1.226-0.072 0.920 1.207-0.003 0.632 0.004     870
  0.951 0.307 0.798 1.479 0.196 1.058 0.873 0.060 0.524 0.501 0.373 0.954     880
 -0.072 0.988 0.351 0.053 0.248 0.430-0.379 0.533 0.688 0.524 0.447 1.376     890
 -0.263-0.064 0.301 1.486 0.351 0.806-0.374 0.735 0.958-0.262 0.332 0.963     900
 999999                                                                       910
-FILE 374;   158 RECORDS:  
0C                                                                       EXPO  10
 C     ..................................................................EXPO  20
 C                                                                       EXPO  30
 C        SAMPLE MAIN PROGRAM FOR TRIPLE EXPONENTIAL SMOOTHING - EXPON   EXPO  40
 C                                                                       EXPO  50
 C        PURPOSE                                                        EXPO  60
 C           (1) READ THE PROBLEM PARAMETER CARD AND A TIME SERIES,      EXPO  70
 C           (2) CALL THE SUBROUTINE EXSMO TO SMOOTH THE TIME SERIES,    EXPO  80
 C           AND (3) PRINT THE RESULT.                                   EXPO  90
 C                                                                       EXPO 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       B=B+C-1.5*AL*AL*(2.0-AL)*DIF                                      EXSM 710
   150 C=C-ALCUB*DIF                                                     EXSM 720
       RETURN                                                            EXSM 730
       END                                                               EXSM 740
 /DATA                                                                         10
 SAMPLE  38  0.1       0.0       0.0       0.0                                 20
    430   426   422   419   414   413   412   409   411   417   422   430      30
    438   441   447   455   461   453   448   449   454   463   470   472      40
    476   481   483   487   491   492   485   486   482   479   479   476      50
    472   470                                                                  60
-FILE 375;   492 RECORDS:  
0C                                                                       ADSA  10
 C     ..................................................................ADSA  20
 C                                                                       ADSA  30
 C        SAMPLE MAIN PROGRAM FOR MATRIX ADDITION - ADSAM                ADSA  40
 C                                                                       ADSA  50
 C        PURPOSE                                                        ADSA  60
 C           MATRIX ADDITION SAMPLE PROGRAM                              ADSA  70
 C                                                                       ADSA  80
 C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  ADSA  90
 C           MADD                                                        ADSA 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  0.6751766 0.5571068 0.6373449 0.6295047 0.3605070 0.0027915 0.6108296       290
  0.7284786 0.6010878 0.6876602 0.6792011 0.3889673 0.0030119 1.0000000       300
  0.7446845 0.6144597 0.7029582 0.6943108 0.3976204 0.0030789 0.6737132       310
  0.4299425 0.3547574 0.4058519 0.4008593 1.0000000 0.0017776 0.3889673       320
  0.8635910 0.7125728 0.8152021 0.8051740 0.4611099 0.0035705 0.7812874       330
  0.7601008 0.6271802 1.0000000 0.7086843 0.4058519 0.0031426 0.6876602       340
  0.7601008 0.6271802 1.0000000 0.7086843 0.4058519 0.0031426 0.6876602       350
  0.6963269 0.5745585 0.6573101 0.6492243 0.3718001 0.0028789 0.6299642       360
 9                                                                            370
                                                                              380
-FILE 376;   192 RECORDS:  
0C                                                                       QDIN  10
 C     ..................................................................QDIN  20
 C                                                                       QDIN  30
 C        SAMPLE PROGRAM FOR INTEGRATION OF A TABULATED FUNCTION BY      QDIN  40
 C        NUMERICAL QUADRATURE - QDINT                                   QDIN  50
 C                                                                       QDIN  60
 C        PURPOSE                                                        QDIN  70
 C           INTEGRATES A SET OF TABULATED VALUES FOR F(X) GIVEN THE     QDIN  80
 C           NUMBER OF VALUES AND THEIR SPACING                          QDIN  90
 C                                                                       QDIN 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       END                                                               QSF 1160
 /DATA                                                                         10
 12345   20    1.0                                                             20
        2.0       2.0       2.0       2.0       2.0       2.0       2.0        30
        2.0       2.0       2.0       2.0       2.0       2.0       2.0        40
        2.0       2.0       2.0       2.0       2.0       2.0       2.0        50
   543   10       1.0                                                          60
        1.0       2.0       3.0       4.0       5.0       6.0       7.0        70
        8.0       9.0      10.0      11.0                                      80
                                                                               90
-FILE 377;   166 RECORDS:  
0C                                                                       RKIN  10
 C     ..................................................................RKIN  20
 C                                                                       RKIN  30
 C        SAMPLE PROGRAM FOR RUNGE-KUTTA INTEGRATION OF A GIVEN FUNCTION RKIN  40
 C        WITH TABULATED OUTPUT - RKINT                                  RKIN  50
 C                                                                       RKIN  60
 C        PURPOSE                                                        RKIN  70
 C           INTEGRATES THE FUNCTION SUBPROGRAM FUN USING THE INITIAL    RKIN  80
 C           CONDITIONS CONTAINED IN CONTROL CARDS.  PRODUCES TABULATED  RKIN  90
 C           OUTPUT.                                                     RKIN 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       RETURN                                                            RK2  710
       END                                                               RK2  720
       FUNCTION FUN(X,Y)                                                 FUN   10
 C                                                                       FUN   20
       FUN=1./X                                                          FUN   30
       RETURN                                                            FUN   40
       END                                                               FUN   50
 /DATA                                                                         10
        1.0       0.0       .01   10   30                                      20
                                                                               30
-FILE 378;   281 RECORDS:  
0C                                                                       SMPR  10
 C     ..................................................................SMPR  20
 C                                                                       SMPR  30
 C        SAMPLE PROGRAM FOR REAL AND COMPLEX ROOTS OF A REAL POLY-      SMPR  40
 C        NOMIAL - SMPRT                                                 SMPR  50
 C                                                                       SMPR  60
 C        PURPOSE                                                        SMPR  70
 C           COMPUTES THE REAL AND COMPLEX ROOTS OF A REAL POLYNOMIAL    SMPR  80
 C           WHOSE COEFFICIENTS ARE INPUT.                               SMPR  90
 C                                                                       SMPR 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   160 Y=-Y                                                              PLRT1950
       SUMSQ=0.0                                                         PLRT1960
       GO TO 155                                                         PLRT1970
   165 IF(N) 20,20,45                                                    PLRT1980
       END                                                               PLRT1990
 /DATA                                                                         10
   360    9                                                                    20
       -1.0                                                         1.0        30
                            1.0                                                40
                                                                               50
-FILE 379;   523 RECORDS:  
0C                                                                       SOLN  10
 C     ..................................................................SOLN  20
 C                                                                       SOLN  30
 C        SAMPLE MAIN PROGRAM - SOLN                                     SOLN  40
 C                                                                       SOLN  50
 C        PURPOSE                                                        SOLN  60
 C           SOLUTION OF A SET OF SIMULTANEOUS EQUATIONS                 SOLN  70
 C                                                                       SOLN  80
 C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  SOLN  90
 C           SIMQ                                                        SOLN 100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  0.6108296 0.7812874 0.6737132                                               160
  0.6751766 0.5571068 0.6373449 0.6295047 0.3605070 0.0027915 0.6108296       170
  1.0000000 0.7241215 0.6244183                                               180
  0.8635910 0.7125728 0.8152021 0.8051740 0.4611099 0.0035705 0.7812874       190
  0.7241215 1.0000000 0.7986682                                               200
  0.7446845 0.6144597 0.7029582 0.6943108 0.3976204 0.0030789 0.6737132       210
  0.6244183 0.7986682 1.0000000                                               220
 9                                                                            230
  110.     -120.       10.      145.      -50.       44.2      -14.           240
   38.5      22.     1650.                                                    250
-FILE 380;  1058 RECORDS:  
0      SUBROUTINE PELIPS(X0,Y0,A1,B1,ALPHA,THETA0,THETAF,SC)             PLTF0001
 C      CAN ONLY BE USED WRT A LINEAR COORD SYSTEM                       PLTF0002
 C      A LINEAR COORDINATE SYSTEM IS ASSUMED.                           PLTF0003
       REAL*8 SUBNAM                                                     PLTF0004
       DATA SUBNAM/'PELIPS  '/                                           PLTF0005
       CALL PLFSPL(SUBNAM)                                               PLTF0006
       TYPE=PLTTYP(0)                                                    PLTF0007
       ALP = ALPHA/57.2958                                               PLTF0008
       THE0 = THETA0 / 57.2958                                           PLTF0009
       THEF = THETAF / 57.2958                                           PLTF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       CALL PLRSPL                                                       PLTF1049
        CALL PLSTYP(TYPE)                                                PLTF1050
       PAXIS=EX                                                          PLTF1051
       RETURN                                                            PLTF1052
       ENTRY PAXFMT(FMTZ)                                                PLTF1053
       FORMZ=FMTZ                                                        PLTF1054
       IF(FORMZ .EQ. 0.0) FORMZ=F42                                      PLTF1055
       PAXFMT=0.0                                                        PLTF1056
       RETURN                                                            PLTF1057
       END                                                               PLTF1058
-FILE 381;  2441 RECORDS:  
0PMOD     TITLE '*** DIGITAL PLOTTING SYSTEM PLOT MODE MODULE ***'       PLTA0001
 #PLTMOD  START 0                                                        PLTA0002
 *      PLTREC. SPECIFIES LINEAR PLOTTING                                PLTA0003
          ENTRY PLTREC                                                   PLTA0004
          USING *,12                                                     PLTA0005
 PLTREC   STM   14,12,12(13)        PLTREC                               PLTA0006
          LR    12,15                                                    PLTA0007
          SR    10,10               0=> NORMAL MODE                      PLTA0008
          B     MDCOD                                                    PLTA0009
 *                                                                       PLTA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PWSV     DS    18A                 PWRIT SAVE AREA                      PLTA2432
 WBCNT    DC    H'0'                                                     PLTA2433
 WRBUF    DS    CL255                                                    PLTA2434
 CRDCNT   DC    H'0'                                                     PLTA2435
 COORD    DS    CL248               31 (X,Y) pAIRS HERE                  PLTA2436
 BUFMV    MVC   WRBUF+NPFX+2(0),0(2)                                     PLTA2437
 JOBSWT   DC    X'00'               0 UNTIL FILE IS OPEN AND USED.       PLTA2438
 PSTDSV   DS    18A                 PLTS TD SAVE AREA                    PLTA2439
 CNBR     DS    F'0'                CURRENT PLOT #                       PLTA2440
          END                                                            PLTA2441
-FILE 382;   585 RECORDS:  
0DWB      TITLE '*** DWB DUMMY ***'                                      CCQ00001
 GUINFO   START 0                                                        CCQ00002
          ENTRY CUINFO                                                   CCQ00003
          USING *,15                                                     CCQ00004
          ST    1,12(13)                                                 CCQ00005
          L     1,4(0,1)           S8 BUFFER                             CCQ00006
          MVC   0(8,1),=C'999999  '                                      CCQ00007
          L     1,12(13)                                                 CCQ00008
 CUINFO   BR    14                                                       CCQ00009
          END                                                            CCQ00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BUFF     DS    CL255               BUFFER                               CCQ00576
 DBUFF    DC    D'0'                                                     CCQ00577
 EDPAT    DC    X'40202120'                                              CCQ00578
 TEMP     DS    A                                                        CCQ00579
 SERCOM   DC    V(SERCOM)                                                CCQ00580
 GUSER    DC    V(GUSER)                                                 CCQ00581
 ATTNSAV  DC    A(CCQUEUE)                                               CCQ00582
 PATNPAR  DC    A(PLTATTN,BUFF+10)                                       CCQ00583
 PLTLOCK  DC    V(BMLOCK)           PLOT LOCK BYTE                       CCQ00584
          END                                                            CCQ00585
-FILE 383;    13 RECORDS:  
0         MACRO                                                          PLTM0001
 &L1      CALL  &SNAM,&PLST                                              PLTM0002
          CNOP  0,4                 FORCE FULL WORD ALIGNMENT            PLTM0003
 &L1      BAL   1,C&SYSNDX                                               PLTM0004
          DC    A&PLST                                                   PLTM0005
 C&SYSNDX L     15,=V(&SNAM)                                             PLTM0006
          BALR  14,15                                                    PLTM0007
          MEND                                                           PLTM0008
          MACRO                                                          PLTM0009
 &L1      CALLS &SNAM                                                    PLTM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 &L1      L     15,=V(&SNAM)                                             PLTM0011
          BALR  14,15                                                    PLTM0012
          MEND                                                           PLTM0013
-FILE 384;   209 RECORDS:  
0UPST     TITLE '*** CCPOST - USER PLOT TAPE POST PROCESSOR ***'         CCPO0001
          SPACE 4                                                        CCPO0002
 *********************************************************************** CCPO0003
 *                                                                     * CCPO0004
 *        GRAPHICS DATA BASE TO CALCOMP PLOT TAPE POST PROCESSOR       * CCPO0005
 *        FOR USER SCRATCH TAPE GENERATION.                            * CCPO0006
 *        INVOKED BY:                                                  * CCPO0007
 *        $RUN *CCPOST SCARDS=PFILECHAIN PAR=KEYWORDLIST               * CCPO0008
 *        WHERE KEYWORDLIST HAS T=PTIMMIN AND/OR D=LDNUM               * CCPO0009
 *        SEPARATED BY A COMMA WHEN BOTH OCCUR.                        * CCPO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       CCPO0200
 KEYPAR   DC    A(LHTL,LHT,EXTAB)                                        CCPO0201
 TEXT     DC    A(BUFF)            THIS IS INITIALIZED & UPDATED.        CCPO0202
          DC    A(RHT)                                                   CCPO0203
 *                                                                       CCPO0204
 EXTAB    BAL   11,TIMSET          0                                     CCPO0205
          BAL   11,FDNSET          4                                     CCPO0206
          BAL   11,IDSET           8                                     CCPO0207
 *                                                                       CCPO0208
          END                                                            CCPO0209
-FILE 385;  1538 RECORDS:  
0PTCC     TITLE '*** #PLOTCC, #PLOTBUF, ET. AL. ***'                     CPC00001
          SPACE 4                                                        CPC00002
 *        @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ CPC00003
 *                                                                       CPC00004
 *        THE UNIVERSITY OF MICHIGAN CALCOMP PEN MOVING SUBROUTINES.     CPC00005
 *        EXTENDED FOR U OF M USAGE BY                                   CPC00006
 *              EDWARD J. FRONCZAK                                       CPC00007
 *              UNIVERSITY OF MICHIGAN COMPUTING CENTER                  CPC00008
 *              ANN ARBOR, MICHIGAN 48104                                CPC00009
 *                                                                       CPC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EJECT                                                          CPC01529
 *********************************************************************** CPC01530
 *                                                                     * CPC01531
 *        PLOT TAPE BUFFER                                             * CPC01532
 *                                                                     * CPC01533
 *********************************************************************** CPC01534
          SPACE 1                                                        CPC01535
 #PBUFF   CSECT                                                          CPC01536
 PBUFF    DS    CL8192                                                   CPC01537
          END                                                            CPC01538
-FILE 386;   530 RECORDS:  
0EDRD     TITLE '*** EDINIT, EDGET TO READ DISC OR DATA CELL FILES ***'  CCP00001
          SPACE 20                                                       CCP00002
 *****************************************************************       CCP00003
 *                                                               *       CCP00004
 *        CALCOMP PLOTTER DISC AND DATA CELL SUPPORT ROUTINES    *       CCP00005
 *                                                               *       CCP00006
 *        HOPEFULLY BUG-FREE WRITTEN BY:                         *       CCP00007
 *                                 ED. FRONCZAK                  *       CCP00008
 *                                                               *       CCP00009
 *              PERMIT REQUIREMENTS OF FILECHAIN COMPONENTS:     *       CCP00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PLTLOCK  DC    V(BMLOCK)                                                CCP00521
 DBUFF    DS    D                                                        CCP00522
 EDPAT    DC    X'402020202120'                                          CCP00523
 PROTON   EQU   26                                                       CCP00524
 TOD      EQU   28                 TIME OF DAY                           CCP00525
 PROOF    EQU   34                                                       CCP00526
 WAYT     EQU   35                                                       CCP00527
 RJBBUF   EQU   X'44'                                                    CCP00528
 MTSPCSWT EQU   X'C0'                                                    CCP00529
          END                                                            CCP00530
-FILE 387;   132 RECORDS:  
0PCOP     TITLE 'COPY SUBROUTINES FOR PLOTTER RTNS'                      FRCP0001
          PRINT NOGEN                                                    FRCP0002
 UFILINIT START 0                                                        FRCP0003
          ENTRY UFILGET                                                  FRCP0004
          ENTER 12,SA=SA                                                 FRCP0005
          L     2,0(0,1)                                                 FRCP0006
          MVC   UID,0(2)                                                 FRCP0007
          L     2,4(0,1)                                                 FRCP0008
          MVC   NAME(256),0(2)                                           FRCP0009
          LA    2,NAME                                                   FRCP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    CL8'GUSER'                                               FRCP0123
          DC    A(GUSER)                                                 FRCP0124
 F1       DC    F'1'                                                     FRCP0125
 MOVNAM   MVC   CPYNAM(0),0(1)                                           FRCP0126
 CPYPAR   DC    A(CPYLNG)                                                FRCP0127
 SP1      DC    A(0)                                                     FRCP0128
 SP13     DC    A(0)                                                     FRCP0129
 GET1     DS    A                                                        FRCP0130
 MVCLIN   MVC   0(0,4),0(5)                                              FRCP0131
          END                                                            FRCP0132
-FILE 388;  1381 RECORDS:  
0PLOT   TITLE  'UNIVERSITY OF MICHIGAN SYSTEM /360 PRINTER PLOT ROUTINE' PRPL0001
 *                                                                       PRPL0002
 *                                                                       PRPL0003
 *   PROGRAMMED BY VICTOR J. STREETER                                    PRPL0004
 *                 COMPUTING CENTER                                      PRPL0005
 *                 UNIVERSITY OF MICHIGAN                                PRPL0006
 *                 ANN ARBOR, MICHIGAN                                   PRPL0007
 *   CORRECTED 8/69 BY R. H. HIEBER, U. OF MICH. COMPUTER CENTER     RHH PRPL0008
 *   CAUTION:  LINKAGES ARE HORRIBLE.                                RHH PRPL0009
 *  CAUTION: 1ST PAGE ALMOST FULL, + PLOTP ASSUMED AT PLOT+4096      RHH PRPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 XDIG1  DC      C'0'                                                     PRPL1372
 XDIG2  DS      1C                                                       PRPL1373
        DC      C' TIMES THEIR ACTUAL VALUES'                            PRPL1374
 YCOM   DC      C'0 PRINTED VALUES OF Y ARE 1E'                          PRPL1375
 YSI    DC      C' '                                                     PRPL1376
 YDIG1  DC      C'0'                                                     PRPL1377
 YDIG2  DS      1C                                                       PRPL1378
        DC      C' TIMES THEIR ACTUAL VALUES'                            PRPL1379
        DS      10F                                                      PRPL1380
        END                                                              PRPL1381
-FILE 389;   103 RECORDS:  
0SLE      TITLE 'SIMULTANEOUS LINEAR EQUATIONS'                          SLE00001
 SLE#     CSECT                                                          SLE00002
          ENTRY SLE1                                                     SLE00003
          ENTRY SLE2                                                     SLE00004
          ENTRY SLE3                                                     SLE00005
          ENTRY SLE4                                                     SLE00006
 *        CALLING SEQUENCE -   SLE1/2 (N,LENA,A,NSOL,LENBX,B,X,IP)       SLE00007
 *        SLE3/4 (N,LENA,A,NSOL,LENBX,B,X,IP,LENUL,UL)                   SLE00008
          USING *,15                                                     SLE00009
 SLE3     STM   14,12,12(13)                                             SLE00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ULPARS   DS    2F                                                       SLE00094
 PARLIST  DS    8F                                                       SLE00095
 SAVE     DS    18F                                                      SLE00096
 ALRD     DC    V(LRD)                                                   SLE00097
 ADBS     DC    V(DBS)                                                   SLE00098
 ADBST    DC    V(DBST)                                                  SLE00099
 FREE     DC    V(FREESPAC)                                              SLE00100
 GET      DC    V(GETSPACE)                                              SLE00101
          DS    10F                                                      SLE00102
          END                                                            SLE00103
-FILE 390;    49 RECORDS:  
0INV#     CSECT                                                          INV00001
          ENTRY INV                                                      INV00002
          USING *,12                                                     INV00003
 INV      STM   14,12,12(13)                                             INV00004
          LR    12,15                                                    INV00005
          LM    4,9,0(1)                                                 INV00006
          LR    3,4                                                      INV00007
          STM   3,9,PARLIST                                              INV00008
          LA    1,PARLIST                                                INV00009
          ST    13,SAVE+4                                                INV00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     14,12(0,13)                                              INV00040
          MVI   12(13),X'FF'                                             INV00041
          BR    14                                                       INV00042
 PARLIST  DS    7F                                                       INV00043
 SAVE     DS    18F                                                      INV00044
 ALRD     DC    V(LRD)                                                   INV00045
 AINV1    DC    V(INV1)                                                  INV00046
 ASPAC    DC    V(GETSPACE)                                              INV00047
 AFREE    DC    V(FREESPAC)                                              INV00048
          END                                                            INV00049
-FILE 391;   279 RECORDS:  
0INV1     TITLE 'MATRIX INVERSION'                                       INV10001
 INV1#    CSECT                                                          INV10002
 *                                                                       INV10003
 *        THE SUBROUTINE LRD IS CALLED PREVIOUS TO ENTERING THIS         INV10004
 *        ROUTINE AND SETS UP THE DECOMPOSED MATRIX UL AND THE           INV10005
 *        PERMUTATION VECTOR IP.   FOR SOME MATRIX A WE HAVE:            INV10006
 *                                      -1             -1    -1 -1       INV10007
 *                  PA = LU   OR   A = P  LU,  THUS   A   = U  L  P      INV10008
 *                                                                       INV10009
 *        THIS ROUTINE COMPUTES THE INVERSES OF L AND U AND HENCE        INV10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          STD   FR0,0(GRI,ULCOLI)                                        INV10270
          ALR   ULCOLI,GRL                                               INV10271
          BXLE  GRJ,SRN,LASTROW                                          INV10272
 OUT      LM    14,12,12(13)                                             INV10273
          SR    15,15                                                    INV10274
          MVI   12(13),X'FF'                                             INV10275
          BR    14                                                       INV10276
          CNOP  0,8                                                      INV10277
 ONE      DC    X'4110000000000000'                                      INV10278
          END                                                            INV10279
-FILE 392;   307 RECORDS:  
0LRD    TITLE   'MATRIX DECOMPOSITION'                                   LRD00001
 LRD#   CSECT                                                            LRD00002
        ENTRY   LRD                                                      LRD00003
 GRK    EQU     14                      INDEX REGISTER                   LRD00004
 SR1    EQU     14                      SCRATCH REGISTER                 LRD00005
 SRN    EQU     0                       INCREMENTING REGISTER FOR N      LRD00006
 GRN    EQU     1                       NO. OF ROWS OF MATRIX            LRD00007
 SRM    EQU     2                       INCREMENTING REGISTER FOR M      LRD00008
 GRM    EQU     3                       NO. OF COLUMNS OF MATRIX         LRD00009
 GRSIGN EQU     4                       SIGN OF PERMUTATION              LRD00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        LTR     GRSIGN,GRSIGN                                            LRD00298
        BNZ     *+8                                                      LRD00299
        LA      SR1,4                                                    LRD00300
        LR      15,SR1                                                   LRD00301
        LM      0,12,20(13)                                              LRD00302
        L       14,12(0,13)                                              LRD00303
        SPM     14                      RESTORE PROGRAM MASK             LRD00304
        MVI     12(13),X'FF'                                             LRD00305
        BR      14                                                       LRD00306
        END                                                              LRD00307
-FILE 393;   184 RECORDS:  
0DBS    TITLE   'DOUBLE BACK SUBSTITUTION'                               DBS00001
 DBS#   CSECT                                                            DBS00002
        ENTRY   DBS                                                      DBS00003
 SR2    EQU     14                      SCRATCH REGISTER                 DBS00004
 GRK    EQU     0                       INDEX REGISTER                   DBS00005
 SRN    EQU     2                       INCREMENTING REGISTER OVER N     DBS00006
 GRN    EQU     3                       DIMENSION OF UL                  DBS00007
 SRM    EQU     4                       INCREMENTING REGISTER OVER M     DBS00008
 GRM    EQU     5                       NO. OF COLUMNS OF X AND B        DBS00009
 GRL2   EQU     6                       DIMENSIONED COL LENGTH OF X & B  DBS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FINI   LD      FR2,0(0,GRX)                                             DBS00175
        DDR     FR2,FR0                 X(1) = X(1)/UL(1,1)              DBS00176
        STD     FR2,0(0,GRX)            (UNCHANGED IF UL(1,1) IS ZERO)   DBS00177
        ALR     GRX,GRL2                                                 DBS00178
        BXLE    GRK,SRM,FINI                                             DBS00179
 END    LM      14,12,12(13)                                             DBS00180
        MVI     12(13),X'FF'                                             DBS00181
        SR      15,15                                                    DBS00182
        BR      14                                                       DBS00183
        END                                                              DBS00184
-FILE 394;   137 RECORDS:  
0DBST   TITLE   'DOUBLE BACK SUBSTITUTION FOR TRANSFORMED SYSTEM'        DBST0001
 DBST#  CSECT                                                            DBST0002
        ENTRY   DBST                                                     DBST0003
 GRK    EQU     14                      INDEX REGISTER                   DBST0004
 SRN    EQU     2                       INCREMENTING REGISTER OVER N     DBST0005
 GRN    EQU     3                       DIMENSION OF UL                  DBST0006
 SRM    EQU     4                       INCREMENTING REGISTER OVER M     DBST0007
 GRM    EQU     5                       NO. OF COLUMNS OF X AND B        DBST0008
 GRL2   EQU     6                       DIMENSIONED COL LENGTH OF X & B  DBST0009
 GRB    EQU     7                       ADDRESS OF B                     DBST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        STD     FR2,0(GRI,GRX)                                           DBST0128
        BXH     GRI,SRN,PERMX           BRANCH IF I>-8                   DBST0129
        ALR     GRX,GRL2                                                 DBST0130
        BXLE    GRK,SRM,PERM                                             DBST0131
 END    LM      14,12,12(13)                                             DBST0132
        MVI     12(13),X'FF'                                             DBST0133
        SR      15,15                                                    DBST0134
        BR      14                                                       DBST0135
 EIGHT  DC      F'8'                                                     DBST0136
        END                                                              DBST0137
-FILE 395;   328 RECORDS:  
0GLI    TITLE   'GAUSS-LEGENDRE INTEGRATION'                             GLNT0001
 GLINT# CSECT                                                            GLNT0002
        ENTRY   GLINT                                                    GLNT0003
        ENTRY   SGLINT                                                   GLNT0004
 *      TO COMPUTE SINGLE AND MULTIPLE INTEGRALS USING THE GAUSS-        GLNT0005
 *      LEGENDRE QUADRATURE METHOD. EACH INTERVAL IS DIVIDED INTO EQUAL  GLNT0006
 *      SUBINTERVALS AND THE QUADRATURE FORMULA IS APPLIED TO EACH       GLNT0007
 *      SUBINTERVAL.  'GLINT' IS THE DOUBLE PRECISION ROUTINE AND        GLNT0008
 *      'SGLINT' THE SINGLE PRECISION ROUTINE.                           GLNT0009
 GR1    EQU     1                       PARAMETER POINTER                GLNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 H      DS      1D                                                       GLNT0319
 SUM1   DS      1D                                                       GLNT0320
 SUM2   DS      1D                                                       GLNT0321
 NSAVE  DS      1F                                                       GLNT0322
 II     DS      1F                                                       GLNT0323
 KSAVE  DS      1H                                                       GLNT0324
 JJ     DS      1H                                                       GLNT0325
 UPPERM DS      1H                                                       GLNT0326
 LOWERM DS      1H                                                       GLNT0327
        END                                                              GLNT0328
-FILE 396;   452 RECORDS:  
0      SUBROUTINE LINPG(V,SOL,M,N,M2,N2,CNSTR,SW)                        LNPG0001
       IMPLICIT REAL*8 (A-H,O-Z)                                         LNPG0002
       REAL*4 CNSTR,SW                                                   LNPG0003
       DIMENSION V(22500),SOL(150),I(150),J(150),K(300),IS(150)          LNPG0004
 C                                                                       LNPG0005
 C             INPUT ROUTINE TO INITIALIZE VARIABLES                     LNPG0006
 C                                                                       LNPG0007
       NLESS1 = N-1                                                      LNPG0008
       DO 9999 III=1,NLESS1                                              LNPG0009
  9999 SOL(III) = 0.                                                     LNPG0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 711   LTEMP = I(LR1)                                                    LNPG0443
       I(LR1) = I(LR2)                                                   LNPG0444
       I(LR2) = LTEMP                                                    LNPG0445
 712   DO 713 IC=1,NO,2                                                  LNPG0446
       IF (LR2 - K(IC)) 713,715,713                                      LNPG0447
 713   CONTINUE                                                          LNPG0448
       GO TO 716                                                         LNPG0449
 715   K(IC) = LR1                                                       LNPG0450
 716   GO TO LABEL,(525,543,546,556)                                     LNPG0451
       END                                                               LNPG0452
-FILE 397;    40 RECORDS:  
0      SUBROUTINE BAIR(N,A,P,Q,EPS,ITR,SCR)                              BAIR0001
 C  THIS ROUTINE SEEKS TO REFINE P AND Q, THE COEFFICIENTS OF A          BAIR0002
 C  QUADRATIC FACTOR OF THE N DEGREE POLYNOMIAL F(Z).  THE               BAIR0003
 C  COEFFICIENTS OF F(Z) ARE STORED IN A.  BAIRSTOWES ITERATION          BAIR0004
 C  METHOD IS USED.                                                      BAIR0005
       REAL*8 A(1),P,Q,DELP,DELQ,SCR(1),D,E,CVG,B1,B2,C3,C4,TEST         BAIR0006
       CVG = (P*P + Q*Q)*1.0E-4                                          BAIR0007
       ISW = 0                                                           BAIR0008
       I = 1                                                             BAIR0009
       EPSLON = EPS*EPS                                                  BAIR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  10   TEST = P*P + Q*Q                                                  BAIR0031
       IF (TEST.LT.1.) TEST = 1.                                         BAIR0032
       TEST = (DELP*DELP + DELQ*DELQ)/TEST                               BAIR0033
       IF (TEST.LE.EPSLON) RETURN                                        BAIR0034
       P = P + DELP                                                      BAIR0035
       Q = Q + DELQ                                                      BAIR0036
       I = I + 1                                                         BAIR0037
       IF (I.LT.ITR)  GO TO 2                                            BAIR0038
       RETURN 1                                                          BAIR0039
       END                                                               BAIR0040
-FILE 398;   178 RECORDS:  
0DAIN     TITLE 'INTERPOLATION IN DOUBLE PRECISION'                      DANT0001
 DAINT#   CSECT                                                          DANT0002
 GR0      EQU   0                                                        DANT0003
 SRN      EQU   2                       INCREMENTING REGISTER FOR N      DANT0004
 GRN      EQU   3                       NUMBER OF POINTS SUPPLIED        DANT0005
 VECTX    EQU   4                       ADDRESS OF X                     DANT0006
 VECTY    EQU   5                       ADDRESS OF Y                     DANT0007
 SCX      EQU   6                       SCRATCH VECTOR                   DANT0008
 GRM      EQU   7                       NO. OF INTERPOLATION POINTS      DANT0009
 SCY      EQU   8                       SCRATCH VECTOR                   DANT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          AR    GRI,SRN                                                  DANT0169
          CR    GRI,GRM                                                  DANT0170
          BL    INTER                                                    DANT0171
          LD    FR0,0(GRM,SCY)                                           DANT0172
 DONE     SR    15,15                                                    DANT0173
          LM    0,11,20(13)                                              DANT0174
          MVI   12(13),X'FF'                                             DANT0175
          SPM   14                                                       DANT0176
          BR    14                                                       DANT0177
          END                                                            DANT0178
-FILE 399;    37 RECORDS:  
0GRAN     TITLE 'GENERATION OF NORMALLY DISTRIBUTED RANDOM NUMBERS'      GRND0001
 GRAND#   CSECT                                                          GRND0002
          ENTRY GRAND1                                                   GRND0003
          ENTRY GRAND                                                    GRND0004
          USING *,15                                                     GRND0005
 GRAND1   L     1,0(0,1)                                                 GRND0006
          L     1,0(0,1)                                                 GRND0007
          ST    1,IX                                                     GRND0008
          B     OUT                                                      GRND0009
          USING *,15                                                     GRND0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LM    0,7,20(13)                                               GRND0028
 OUT      MVI   12(13),X'FF'                                             GRND0029
          BR    14                                                       GRND0030
 IX       DC    F'524287'                                                GRND0031
          CNOP  0,8                                                      GRND0032
 DW       DC    X'46000000'                                              GRND0033
          DS    F                                                        GRND0034
 MULT     DC    X'00010003'                                              GRND0035
 SIX      DC    X'41600000'                                              GRND0036
          END                                                            GRND0037
-FILE 400;   425 RECORDS:  
0JESS     TITLE 'JACOBI METHOD FOR EIGENVALUE PROBLEM'                   JESS0001
 JESS#    CSECT                                                          JESS0002
 SR2      EQU   14                      SCRATCH REGISTER                 JESS0003
 RETURN   EQU   14                                                       JESS0004
 SWTCH    EQU   0                       SWITCH IN SINE/COSINE SECTION    JESS0005
 SRN      EQU   0                                                        JESS0006
 GRN      EQU   1                       SIZE OF MATRICES A AND R         JESS0007
 LENA     EQU   2                       DIMENSIONED COL.LENGTH OF A      JESS0008
 ACOL1    EQU   3                       ADDR. OF COLUMN 1 OF A           JESS0009
 LENR     EQU   4                       DIMENSIONED COL.LENGTH OF R      JESS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 B        DC    X'00423A2A'             0.2587                           JESS0416
 BUFF     DS    F                                                        JESS0417
 N        DS    E                                                        JESS0418
 HIVAL    DC    X'4B100000'                                              JESS0419
 SHIFTS   DC    X'01000000'                                              JESS0420
          DC    X'0A000000'                                              JESS0421
 THRSH    DS    E                                                        JESS0422
 SWEEP    DS    F                                                        JESS0423
 SAVE     DS    F                                                        JESS0424
          END                                                            JESS0425
-FILE 401;   238 RECORDS:  
0LINC     TITLE 'LAGUERRE INCREMENT'                                     LINC0001
 LINC#    CSECT                                                          LINC0002
 *********************************************************************   LINC0003
 *                                                                       LINC0004
 *        THIS ROUTINE COMPUTES THE LAGUERRE INCREMENT.                  LINC0005
 *        GIVEN THE COMPLEX VECTOR B AND THE DEGREE                      LINC0006
 *        OF THE POLYNOMIAL N THEN:                                      LINC0007
 *        LET    F(W) = (B(1),B(2))                                      LINC0008
 *               F'(W) = (B(3),B(6))                                     LINC0009
 *               F"(W) = (B(5),B(6))                                     LINC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TEMP1    DS    D                     TEMP-                              LINC0229
 TEMP2    DS    D                        ORARY                           LINC0230
 TEMP3    DS    D                           STORAGE.                     LINC0231
 BUFF     DS    F                                                        LINC0232
 B        DC    X'00423A2A'             0.2587                           LINC0233
 A        DC    X'48385F07'             0.2202*16**8                     LINC0234
 BIAS     DC    X'31000000'                                              LINC0235
 SAVE     DS    9F                    SAVE AREA FOR CSQRT.               LINC0236
 SQRT     DC    V(CDSQRT)                                                LINC0237
          END                                                            LINC0238
-FILE 402;    73 RECORDS:  
0QDIV     TITLE 'DIVISION OF A POLYNOMIAL BY A QUADRATIC FACTOR'         QDIV0001
 QDIV#    CSECT                                                          QDIV0002
 MINUS8   EQU   2                                                        QDIV0003
 LIMIT    EQU   3                                                        QDIV0004
 GRC      EQU   4                  ADDR. OF VECTOR C                     QDIV0005
 GRA      EQU   4                  ADDR. OF VECTOR A                     QDIV0006
 GRN      EQU   5                                                        QDIV0007
 GRI      EQU   6                  INDEX REGISTER                        QDIV0008
 GRB      EQU   7                  ADDR. OF VECTOR B                     QDIV0009
 FR0      EQU   0                                                        QDIV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MDR   FR6,FR2                                                  QDIV0064
          AD    FR6,0(GRI,GRB)                                           QDIV0065
          MDR   FR4,FR0                                                  QDIV0066
          ADR   FR4,FR6                                                  QDIV0067
          STD   FR4,0(GRI,GRC)                                           QDIV0068
 BIX      BXH   GRI,MINUS8,CLOOP                                         QDIV0069
 EXIT     LM    1,7,24(13)                                               QDIV0070
          MVI   12(13),X'FF'                                             QDIV0071
          BR    14                                                       QDIV0072
          END                                                            QDIV0073
-FILE 403;   178 RECORDS:  
0SAIN     TITLE 'INTERPOLATION IN SINGLE PRECISION'                      SANT0001
 SAINT#   CSECT                                                          SANT0002
 GR0      EQU   0                                                        SANT0003
 SRN      EQU   2                       INCREMENTING REGISTER FOR N      SANT0004
 GRN      EQU   3                       NUMBER OF POINTS SUPPLIED        SANT0005
 VECTX    EQU   4                       ADDRESS OF X                     SANT0006
 VECTY    EQU   5                       ADDRESS OF Y                     SANT0007
 SCX      EQU   6                       SCRATCH VECTOR                   SANT0008
 GRM      EQU   7                       NO. OF INTERPOLATION POINTS      SANT0009
 SCY      EQU   8                       SCRATCH REGISTER                 SANT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          AR    GRI,SRN                                                  SANT0169
          CR    GRI,GRM                                                  SANT0170
          BL    INTER                                                    SANT0171
          LE    FR0,0(GRM,SCY)                                           SANT0172
 DONE     SR    15,15                                                    SANT0173
          LM    0,11,20(13)                                              SANT0174
          MVI   12(13),X'FF'                                             SANT0175
          SPM   14                                                       SANT0176
          BR    14                                                       SANT0177
          END                                                            SANT0178
-FILE 404;    42 RECORDS:  
0SINV#    CSECT                                                          SINV0001
          ENTRY SINV                                                     SINV0002
          USING *,6                                                      SINV0003
 SINV     STM   14,6,12(13)                                              SINV0004
          LR    6,15                                                     SINV0005
          ST    13,SAVE+4                                                SINV0006
          LA    13,SAVE                                                  SINV0007
          L     15,ASLRD                                                 SINV0008
          BALR  14,15                                                    SINV0009
          LTR   15,15                                                    SINV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     14,12(0,13)                                              SINV0033
          MVI   12(13),X'FF'                                             SINV0034
          BR    14                                                       SINV0035
 PARLIST  DS    4F                                                       SINV0036
 SAVE     DS    18F                                                      SINV0037
 ASINV2   DC    V(SINV2)                                                 SINV0038
 ASLRD    DC    V(SLRD)                                                  SINV0039
 ASPAC    DC    V(GETSPACE)                                              SINV0040
 AFREE    DC    V(FREESPAC)                                              SINV0041
          END                                                            SINV0042
-FILE 405;   136 RECORDS:  
0SNV1     TITLE 'INVERSION OF A LOWER TRIANGULAR MATRIX'                 SIN10001
 SINV1#   CSECT                                                          SIN10002
 MINUS8   EQU   14                      SCRATCH REGISTER                 SIN10003
 SRN      EQU   2                       INCREMENTING REGISTER FOR N      SIN10004
 GRN      EQU   3                       SIZE OF MATRIX                   SIN10005
 GRL      EQU   4                       DIMENSIONED COL LEN. OF MATRIX   SIN10006
 ULCOL1   EQU   5                       ADDR OF COLUMN 1 OF MATRIX       SIN10007
 ULCOLI   EQU   5                       ADDR OF COLUMN I OF MATRIX       SIN10008
 SCROW    EQU   6                       ADDR OF SCRATCH VECTOR           SIN10009
 ULCOLJ   EQU   7                       ADDR OF COLJ OF MATRIX           SIN10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ALR   ULCOLI,GRL                                               SIN10127
          BXLE  GRI,SRN,INVERSE                                          SIN10128
 OUT      LM    14,12,12(13)                                             SIN10129
          SR    15,15                                                    SIN10130
          MVI   12(13),X'FF'                                             SIN10131
          SPM   14                                                       SIN10132
          BR    14                                                       SIN10133
          CNOP  0,8                                                      SIN10134
 ONE      DC    X'4110000000000000'                                      SIN10135
          END                                                            SIN10136
-FILE 406;   145 RECORDS:  
0SLRD     TITLE 'DECOMPOSITION OF A SQUARE SYMMETRIC MATRIX'             SLRD0001
 SLRD#    CSECT                                                          SLRD0002
 ACOLK    EQU   14                      ADDR. OF COL K OF A              SLRD0003
 GR2      EQU   14                                                       SLRD0004
 GR0      EQU   0                                                        SLRD0005
 GR1      EQU   1                                                        SLRD0006
 SRN      EQU   2                       INCREMENTING REGISTER FOR N      SLRD0007
 GRN      EQU   3                       DIMENSION OF MATRIX              SLRD0008
 GRL2     EQU   4                       DIMENSIONED COL LENGTH OF A      SLRD0009
 ACOLI    EQU   5                       ADDR OF COL I OF MATRIX A        SLRD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     14,12(0,13)                                              SLRD0136
          SPM   14                                                       SLRD0137
          MVI   12(13),X'FF'                                             SLRD0138
          BR    14                                                       SLRD0139
          CNOP  0,4                                                      SLRD0140
 BIAS     DC    X'31000000'                                              SLRD0141
 A        DC    X'48385F07'             0.2202*16**8                     SLRD0142
 B        DC    X'00423A2A'             0.2587                           SLRD0143
 BUFF     DS    F                                                        SLRD0144
          END                                                            SLRD0145
-FILE 407;   179 RECORDS:  
0TSEP     TITLE 'TAYLOR SERIES EXPANSION OF A POLYNOMIAL'                TSEP0001
 TSEP#    CSECT                                                          TSEP0002
 *        GIVEN THE POLYNOMIAL F(Z) OF DEGREE N, WITH COEFFICIENTS A,    TSEP0003
 *        A COMPLEX POINT W AND AN INTEGER M, THE COEFFICIENTS           TSEP0004
 *        OF THE TAYLOR SERIES EXPANSION ABOUT W ARE COMPUTED AND        TSEP0005
 *        STORED IN THE VECTOR B.  THE ELEMENTS ARE OBTAINED BY          TSEP0006
 *        DIVIDING THE POLYNOMIAL BY  (Z-W)  M+1 TIMES.                  TSEP0007
 INDEX    EQU   0                  BXLE INDEXING REGISTER                TSEP0008
 SXTEEN   EQU   0                                                        TSEP0009
 GRM      EQU   1                  DEGREE OF TAYLOR EXPANSION            TSEP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        A RETURN CODE OF 4 INDICATES THAT B IS REAL. THIS FACT IS      TSEP0170
 *        USED BY ZP2 TO DETERMINE WHICH ENTRY TO MAKE INTO ZP1.         TSEP0171
          LA    GRI,4                                                    TSEP0172
          B     *+6                                                      TSEP0173
 EXIT     SR    GRI,GRI                                                  TSEP0174
          LR    15,GRI                                                   TSEP0175
          LM    0,9,20(13)                                               TSEP0176
          MVI   12(13),X'FF'                                             TSEP0177
          BR    14                                                       TSEP0178
          END                                                            TSEP0179
-FILE 408;    29 RECORDS:  
0URAN     TITLE 'GENERATION OF UNIFORMALLY DISTRIBUTED RANDOM NUMBERS'   URND0001
 URAND#   CSECT                                                          URND0002
          ENTRY URAND                                                    URND0003
          USING *,15                                                     URND0004
 URAND    STM   0,3,20(13)                                               URND0005
          L     3,0(0,1)                                                 URND0006
          L     1,0(0,3)                                                 URND0007
          LTR   1,1                                                      URND0008
          BNZ   CONT                                                     URND0009
          SVC   38                                                       URND0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          AD    0,DW                                                     URND0020
          LM    0,3,20(13)                                               URND0021
          MVI   12(13),X'FF'                                             URND0022
          BR    14                                                       URND0023
 IX       DS    F                                                        URND0024
          CNOP  0,8                                                      URND0025
 DW       DC    X'46000000'                                              URND0026
          DS    F                                                        URND0027
 MULT     DC    X'00010003'                                              URND0028
          END                                                            URND0029
-FILE 409;    46 RECORDS:  
0      SUBROUTINE ZLOOK(N,A,Z,EPS,ITR,SCR)                               ZLOK0001
 C  THIS SUBROUTINE SEARCHES THE UPPER PLANE FOR A ROOT OF THE           ZLOK0002
 C  N DEGREE POLYNOMIAL F(Z).  THE MAIN ENTRY POINTS ZLOOK AND           ZLOK0003
 C  ZLOOKC CORRESPOND TO THE COEFFICIENST OF F(Z) BEING REAL OR          ZLOK0004
 C  COMPLEX.                                                             ZLOK0005
       REAL*8 A(1),Z(1),SCR(1),W(2),PI,THETA(2)                          ZLOK0006
       DATA PI/1.5707963267948966/                                       ZLOK0007
       ISW = 1                                                           ZLOK0008
       GO TO 9                                                           ZLOK0009
       ENTRY ZLOOKC(N,A,Z,EPS,ITR,SCR)                                   ZLOK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   6   GO TO (10,20,30),I                                                ZLOK0037
  20   W(1) = -W(1)                                                      ZLOK0038
       I = 3                                                             ZLOK0039
       GO TO 4                                                           ZLOK0040
  30   K = K + 1                                                         ZLOK0041
       IF (K.LE.MAXK)  GO TO 3                                           ZLOK0042
       IRHO = IRHO + 1                                                   ZLOK0043
       IF (IRHO.LE.MAXRHO)  GO TO 2                                      ZLOK0044
       RETURN 1                                                          ZLOK0045
       END                                                               ZLOK0046
-FILE 410;    40 RECORDS:  
0ZPOL     TITLE 'PROVIDE SCRATCH STOARGE FOR ZPOLY2, THE ZERO FINDER'    ZPLY0001
 ZPOLY#   CSECT                                                          ZPLY0002
          ENTRY ZPOLY                                                    ZPLY0003
          USING *,5                                                      ZPLY0004
 ZPOLY    STM   14,5,12(13)                                              ZPLY0005
          LR    5,15                                                     ZPLY0006
          LM    1,4,0(1)                                                 ZPLY0007
          STM   1,4,PARLIST                                              ZPLY0008
          ST    13,SAVE+4                                                ZPLY0009
          LA    13,SAVE                                                  ZPLY0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MVI   12(13),X'FF'                                             ZPLY0031
          SR    15,15                                                    ZPLY0032
          BR    14                                                       ZPLY0033
          CNOP  0,4                                                      ZPLY0034
 SAVE     DS    18F                                                      ZPLY0035
 PARLIST  DS    5F                                                       ZPLY0036
 GET      DC    V(GETSPACE)                                              ZPLY0037
 FREE     DC    V(FREESPAC)                                              ZPLY0038
 ZCALL    DC    V(ZPOLY2)                                                ZPLY0039
          END                                                            ZPLY0040
-FILE 411;   149 RECORDS:  
0      SUBROUTINE ZPOLY2(N,A,Z,IER,SCR)                                  ZPL20001
 C  ROUTINE TO FIND ALL THE ZEROES OF A POLYNOMIAL F(Z) WITH             ZPL20002
 C  COEFFICIENTS IN A. N IS DEGREE OF POLYNOMIAL.                        ZPL20003
       REAL*8 W(4), TEMP, Z(1), A(1), SCR(1), P, Q, REAL, APPROX(2)      ZPL20004
 C  COPY FROM A INTO Z.                                                  ZPL20005
       NP1 = N + 1                                                       ZPL20006
       DO 1  I = 1,NP1                                                   ZPL20007
   1   Z(I) = A(I)                                                       ZPL20008
       NP2 = N + 2                                                       ZPL20009
       N2P2 = 2*N + 2                                                    ZPL20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  90   IER = IR - 1                                                      ZPL20140
       DO 91  I = 1,NP1                                                  ZPL20141
  91   SCR(I) = Z(I)                                                     ZPL20142
       I = 1                                                             ZPL20143
       DO 92  J = 1,NP1                                                  ZPL20144
       Z(I) = SCR(J)                                                     ZPL20145
       Z(I+1) = Z(NP1+J)                                                 ZPL20146
  92   I = I + 2                                                         ZPL20147
       RETURN                                                            ZPL20148
       END                                                               ZPL20149
-FILE 412;    49 RECORDS:  
0      SUBROUTINE  ZPR(N,A,ZSTAR,EPS,ITER,B)                             ZPR00001
 C  ROUTINE TO FIND A ZERO OF THE POLYNOMIAL F(Z) WITH COEFFS. IN A.     ZPR00002
 C  THERE ARE TWO ENTRY POINTS FOR A REAL AND A COMPLEX.                 ZPR00003
       REAL*8  A(1), ZSTAR(1), DELZ(2), Z(2), B(1), TEST                 ZPR00004
       ISW = 1                                                           ZPR00005
       GO TO 10                                                          ZPR00006
       ENTRY  ZPC(N,A,ZSTAR,EPS,ITER,B)                                  ZPR00007
       ISW = 2                                                           ZPR00008
  10   EPSLON  =  EPS*EPS                                                ZPR00009
       Z(1) = ZSTAR(1)                                                   ZPR00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 C  THEN TAKE THE FOLLOWING AS AN APPROXIMATION TO THE ROOT.             ZPR00040
   8   DELZ(1)  =  -1. - 1./(N-1)                                        ZPR00041
       DELZ(2) = 0.                                                      ZPR00042
   9   Z(1)  =  Z(1) + DELZ(1)                                           ZPR00043
       Z(2) = Z(2) + DELZ(2)                                             ZPR00044
       I = I + 1                                                         ZPR00045
       IF (I.LT.ITER)  GO TO 1                                           ZPR00046
       IERR = 1                                                          ZPR00047
       GO TO 7                                                           ZPR00048
       END                                                               ZPR00049
-FILE 413;   100 RECORDS:  
0ZQUA     TITLE 'ROOTS OF A QUADRATIC'                                   ZQAD0001
 ZQUAD#   CSECT                                                          ZQAD0002
 GR0      EQU   0                                                        ZQAD0003
 GR1      EQU   1                                                        ZQAD0004
 GRP      EQU   2                                                        ZQAD0005
 GRQ      EQU   3                                                        ZQAD0006
 GRW      EQU   4                                                        ZQAD0007
 RETURN   EQU   5                                                        ZQAD0008
 FR0      EQU   0                                                        ZQAD0009
 FR2      EQU   2                                                        ZQAD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MVI   12(13),X'FF'                                             ZQAD0091
          SR    15,15                                                    ZQAD0092
          BR    14                                                       ZQAD0093
          CNOP  0,4                                                      ZQAD0094
 EPS      DC    X'32100000'                                              ZQAD0095
 BUFF     DS    F                                                        ZQAD0096
 B        DC    X'00423A2A'             0.2587                           ZQAD0097
 A        DC    X'48385F07'             0.2202*16**8                     ZQAD0098
 BIAS     DC    X'31000000'                                              ZQAD0099
          END                                                            ZQAD0100
-FILE 414;   200 RECORDS:  
0TIME     CSECT                                                          TIME0001
 **********************************************************************  TIME0002
 *                                                                    *  TIME0003
 *                  CALLING SEQUENCE FROM FORTRAN                     *  TIME0004
 *                      CALL TIME(KEY, PRINT, RESULT)                 *  TIME0005
 *                  ALL PARAMETERS ARE FULL WORD INTEGERS             *  TIME0006
 *              IF KEY IS 0 THE CPU, ELAPSED, SUP., & PROB. TIMES     *  TIME0007
 *              ARE INITIALIZED TO THE CURRENT  "TIME".               *  TIME0008
 *                        1 THE CPU TIME SINCE INIT. IS RETURNED      *  TIME0009
 *                        2 THE ELAPSED TIME SINCE INIT. IS RETURNED  *  TIME0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COUNTCP  DC    H'24'                                                    TIME0191
 COUNTEL  DC    H'28'                                                    TIME0192
 COUNTB   DC    H'9'                                                     TIME0193
 COUNTD   DC    H'13'                                                    TIME0194
 MONTHS   DS   F                                                         TIME0195
          DC   C'JAN FEB MAR APR MAY JUN '                               TIME0196
          DC   C'JUL AUG SEP OCT NOV DEC '                               TIME0197
 MOD      DC    F'0'                                                     TIME0198
 LINENO   DS    F                                                        TIME0199
          END                                                            TIME0200
-FILE 415;    82 RECORDS:  
0RCAL    TITLE 'SUBROUTINE TO CALL AN R TYPE SUBROUTINE'                 RCAL0001
 RCALL   CSECT                                                           RCAL0002
          SPACE 1                                                        RCAL0003
          USING *,12                                                     RCAL0004
          STM   14,12,12(13)                                             RCAL0005
          LR    12,15                                                    RCAL0006
          LA    0,3                                                      RCAL0007
          LA    1,72                                                     RCAL0008
          L     15,=V(GETSPACE)    GET SOME SAVE AREA SPACE              RCAL0009
          BALR  14,15                                                    RCAL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SR    15,15              SET A GOOD RETURN CODE                RCAL0073
          BR    14                                                       RCAL0074
          EJECT                                                          RCAL0075
 RCALL    CSECT                                                          RCAL0076
 REGS     DS    11F             REGISTERS STORED HERE                    RCAL0077
          SPACE 1                                                        RCAL0078
 ERRM     DC    C' ILLEGAL COUNT ON CALL TO RCALL SUBROUTINE.'           RCAL0079
 ERRL     DC    Y(L'ERRM)                                                RCAL0080
          SPACE 1                                                        RCAL0081
          END                                                            RCAL0082
-FILE 416;     7 RECORDS:  
0SIOE     TITLE 'SUBROUTINE TO FIX UP SETIOERR FOR FORTRAN'              SERR0001
 SIOERR   START 0                                                        SERR0002
          USING *,15                                                     SERR0003
          L     1,0(0,1)           NEED ONE LEVEL OF INDIRECTION         SERR0004
          L     15,=V(SETIOERR)                                          SERR0005
          BR    15                                                       SERR0006
          END                                                            SERR0007
-FILE 417;    21 RECORDS:  
0RWND TITLE 'FORTRAN CALLABLE SUBROUTINE TO REWIND A FILE OR TAPE'       REW00001
 REWIND   START 0                                                        REW00002
          ENTER 12,SA=SA                                                 REW00003
          L     2,0(0,1)    LOCATION OF FULL WORD DS REF #               REW00004
          NI    NUM,X'F0'   PUT IT INTO BCD GARBAGE                      REW00005
          OC    NUM(1),3(2)                                              REW00006
          LM    0,1,NUM     SET UP CALL TO REWIND#                       REW00007
          L     15,=V(REWIND#)                                           REW00008
          BALR  14,15                                                    REW00009
          LTR   15,15       DID IT WORK                                  REW00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
         SERCOM 'ILLEGAL CALL TO "REWIND"'                               REW00012
          L     13,4(0,13)   SET UP REGISTERS FOR DUMP                   REW00013
          L     14,12(0,13)                                              REW00014
          L     15,=V(ERROR)                                             REW00015
          LM    0,12,20(13)                                              REW00016
          BR    15   GO SIDEWAYS TO ERROR                                REW00017
 EXIT     EXIT  0                                                        REW00018
 NUM      DC    0F'0',CL8'0'                                             REW00019
 SA       DS    18F                                                      REW00020
          END                                                            REW00021
-FILE 418;   117 RECORDS:  
0IHCLOGIC START 0                                                        IHCL0001
          ENTRY AND,LAND,OR,LOR,XOR,LXOR,COMPL,LCOMPL,SHFTL,SHFTR        IHCL0002
 *                                                                       IHCL0003
 *                                                                       IHCL0004
 *CALLING SEQUENCE                                                       IHCL0005
 *        LA    S,SAVLOC                                                 IHCL0006
 *        LA    A,ARGLST                                                 IHCL0007
 *        L     L,=V(FCN)                                                IHCL0008
 *        BALR  R,L                                                      IHCL0009
 *        SAVLOC IS THE LOCATION OF A REGISTER STORAGE AREA,             IHCL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       IHCL0108
 TEMP     DS    F                                                        IHCL0109
 ALLONES  DC    F'-1'                                                    IHCL0110
 EXNR     NR    0,1                                                      IHCL0111
 EXOR     OR    0,1                                                      IHCL0112
 EXXR     XR    0,1                                                      IHCL0113
 EXSLL    SLL   0,0(1)                                                   IHCL0114
 EXSRL    SRL   0,0(1)                                                   IHCL0115
 SWITCH   DS    X                                                        IHCL0116
          END                                                            IHCL0117
-FILE 419;    77 RECORDS:  
0DCVC     TITLE '******USER''S ARU DCV INTERFACE******'                  DCVC0001
 DCVC     CSECT                                                          DCVC0002
          SPACE 2                                                        DCVC0003
 *********************************************************************** DCVC0004
 *                                                                     * DCVC0005
 *ENTRY:  R1 POINTS TO FIVE FULL WORD ADCONS -                         * DCVC0006
 *        1. ADDRESS OF 16 HALFWORDS. THE FIRST HALFWORD SHOULD HAVE   * DCVC0007
 *        THE VALUE "1" IF THE STAT BIT IS TO BE SET; ZERO OTHERWISE.  * DCVC0008
 *        THE SECOND THROUGH 16TH HALFWORDS SHOULD CONTAIN THE VALUES  * DCVC0009
 *        OF THE AG FN FOR FILTERS 1 ... 15 RESPECTIVELY.              * DCVC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          AH    R6,0(0,R5)                                               DCVC0068
          STH   R6,0(0,R5)                                               DCVC0069
          RTRN                                                           DCVC0070
          DS    0F                                                       DCVC0071
 STAT0    DC    X'000000'                                                DCVC0072
 STAT     DC    X'00'                                                    DCVC0073
 BUFFP    DC    F'0'                                                     DCVC0074
          EQUS                                                           DCVC0075
          END                                                            DCVC0076
          END                                                            DCVC0077
-FILE 420;   133 RECORDS:  
0DCVD     TITLE '******USER''S ARU DCV INTERFACE******'                  DCVD0001
 DCVD     CSECT                                                          DCVD0002
          SPACE 2                                                        DCVD0003
 *********************************************************************** DCVD0004
 *                                                                     * DCVD0005
 *ENTRY:  R1 POINTS TO FIVE FULL WORD ADCONS -                         * DCVD0006
 *              1. ADDRESS OF EBCDIC WORD OR DCV.                      * DCVD0007
 *              2. THE ADDRESS OF THE HALFWORD LENGTH OF THE WORD OR   * DCVD0008
 *              THE ADDRESS OF THE HALFWORD NEGATIVE LENGTH OF THE DCV.* DCVD0009
 *              THE LENGTH SHOULD BE ZERO FOR SUBSEQUENT ENTRIES ON THE* DCVD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LTORG                                                          DCVD0124
 VAGF     DSECT                                                          DCVD0125
 AGF      DS    16H                                                      DCVD0126
 VEXF     DSECT                                                          DCVD0127
 EXF      DS    25F                                                      DCVD0128
 VEXFC    DSECT                                                          DCVD0129
 EXFC     DS    H                                                        DCVD0130
          EQUS                                                           DCVD0131
 BUFF     EQU   BUFFP                                                    DCVD0132
          END                                                            DCVD0133
-FILE 421;   319 RECORDS:  
0INT1     TITLE 'INTERPRETER FOR MTS TEST MACROS VERSION 25APRIL1967'    TSTI0001
 @TESTITP CSECT                                                          TSTI0002
          PRINT DATA                                                     TSTI0003
          USING *,15                                                     TSTI0004
          STM   12,1,@TESTTMP                                            TSTI0005
          LR    12,15                                                    TSTI0006
          USING @TESTITP,12                                              TSTI0007
          DROP  15                                                       TSTI0008
          BC    0,@TESTELC         EXECUTE FOLLOWING CODE ON FIRST       TSTI0009
          MVI   *-3,X'F0'          ENTRY ONLY                            TSTI0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    8F                                                       TSTI0310
          DC    C'0123456789ABCDEF'                                      TSTI0311
 @TESTSAR DS    18F                                                      TSTI0312
 @TESTSAV DS    18F                                                      TSTI0313
 @TESTEFS DC    X'FFFFFFFC'                                              TSTI0314
 @TESTR14 DS    F                                                        TSTI0315
          DC    C'  '                                                    TSTI0316
          DC    C' '                                                     TSTI0317
 @TESTOUT DS    CL131                                                    TSTI0318
          END                                                            TSTI0319
-FILE 422;    69 RECORDS:  
0REW#     TITLE 'INTERNAL FORTRAN SUBROUTINE TO REWIND A FILE OR TAPE'   REW#0001
 REWIND#  START 0                                                        REW#0002
          ENTER 12,SA=SA      SET UP REGISTERS                           REW#0003
          CALL  GDINFO,MF=(E,(1)) REGISTERS ALREADY SET UP FOR GDINFO    REW#0004
          LTR   15,15         LEGAL CALL                                 REW#0005
          BNE   ERROR         NO JUST PASS IT ON                         REW#0006
          L     2,0(0,1)    GET FDUB POINTER                             REW#0007
          L     3,FDUBBL(0,2)   RESET LINE NUMBER FOR ANYTHING           REW#0008
          S     3,FDUBIL(0,2)     SUBTRACT INCREMENT                     REW#0009
          ST    3,FDUBCL(0,2)     TO GET NEW  LINE NUMBER                REW#0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CODE     DC    F'2'     (RE)SET WRITE POINTER                           REW#0060
 INDEXOP EQU   X'20'          ONE MEANS INDEXED READ OR WRITE            REW#0061
 FDUBS    EQU   0             LOCATION OF SWITCHES IN FDUB               REW#0062
 FDUBFCB  EQU   4     POINTER TO FCB                                     REW#0063
 FDUBBL   EQU   8                                                        REW#0064
 FDUBCL   EQU   12                                                       REW#0065
 FDUBIL   EQU   20             LOCATION OF INCREMENT IN FDUB             REW#0066
 FDUBSCR  EQU   28             LOCATION OF KIP'S SCRATCH WORD            REW#0067
 FCBDSO   EQU   49     DATA SET ORGANIZATION                             REW#0068
          END                                                            REW#0069
-FILE 423;    78 RECORDS:  
0SPIE     TITLE 'PROGRAM TO SIMULATE OS/360 SPIE MACRO IN MTS'           SPIE0001
 SPIE     START 0                                                        SPIE0002
          USING *,15                                                     SPIE0003
          STM   14,5,SAVE     ENTRY FROM SPIE MACRO IN USER'S PROGRAM    SPIE0004
          LR    5,15                                                     SPIE0005
          DROP  15                                                       SPIE0006
          USING SPIE,5                                                   SPIE0007
          MVC   SAVE+12(4),PIE      RETURN ADDRESS OF OLD PICA           SPIE0008
          LTR   1,1           IS IT A RESET ENTRANCE                     SPIE0009
          BZ    RESET         YES                                        SPIE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MVI   PGNTSV,X'FF'                                             SPIE0069
          NI    PIE,X'7F'                                                SPIE0070
          B     RESTART       GO BACK TO INTERRPUTED PROGRAM             SPIE0071
 *                                                                       SPIE0072
 *        DATA                                                           SPIE0073
 SAVE     DS    8F                                                       SPIE0074
 PIE      DC    8F'0'           PROGRAM INTERRUPT ELEMENT                SPIE0075
 PGNTSV   DS    18F           MTS PGNTTRP SAVE AREA                      SPIE0076
          LTORG                                                          SPIE0077
          END                                                            SPIE0078
-FILE 424;  7235 RECORDS:  
0IOH      TITLE ' IOH 360 --- CHARLIE BENET'                             IOH00001
          SPACE 3                                                        IOH00002
 *              IIIIIIIIIIII       OOOOOOOOOOOO       HH        HH       IOH00003
 *              IIIIIIIIIIII       OOOOOOOOOOOO       HH        HH       IOH00004
 *                  IIII           OO        OO       HH        HH       IOH00005
 *                  IIII           OO        OO       HH        HH       IOH00006
 *                  IIII           OO        OO       HH        HH       IOH00007
 *                  IIII           OO        OO       HH        HH       IOH00008
 *                  IIII           OO        OO       HHHHHHHHHHHH       IOH00009
 *                  IIII           OO        OO       HHHHHHHHHHHH       IOH00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(SLIENO)                                                IOH07226
          DC    A(*+4)                                                   IOH07227
          DS    A                                                        IOH07228
          DC    V(SERCOM)                                                IOH07229
 SLIENO   DS    A                                                        IOH07230
 SCS      DS    H                                                        IOH07231
          DC    X'00'                                                    IOH07232
 SERMODS  DC    A(0)                                                     IOH07233
          DC    A(0)                                                     IOH07234
          END                                                            IOH07235
-FILE 425;   214 RECORDS:  
0FPC      TITLE 'FLOATING POINT CONVERTER --- 7090 TO 360'               FPC00001
 #FPCON   START                                                          FPC00002
          COPY  APF                                                      FPC00003
          EJECT                                                          FPC00004
          ENTRY E7090         ENTRY FOR E-TYPE CONVERSION                FPC00005
          ENTRY D7090         ENTRY FOR D-TYPE CONVERSION                FPC00006
          ENTRY E7090P        ENTRY FOR E-TYPE CONVERSION (6 BITS/BYTE)  FPC00007
          ENTRY D7090P        ENTRY FOR D-TYPE CONVERSION (6 BITS/BYTE)  FPC00008
          SPACE 2                                                        FPC00009
 E7090    STM   14,12,12(13)                                             FPC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SINSW    EQU   X'40'                                                    FPC00205
 BCD      EQU   X'20'                                                    FPC00206
          DS    0F                                                       FPC00207
 HIGHEST  DC    X'10000000'                                              FPC00208
 MANSAVE  DC    F'0',F'0'     SECOND WORD SHOULD NEVER CHANGE            FPC00209
 SAVAR    DS    18A                                                      FPC00210
 TESTFULL TM    =X'03',0                                                 FPC00211
 TESTOV   TM    =X'80',0                                                 FPC00212
 MOVER    MVC   1(0,2),MANSAVE                                           FPC00213
          END                                                            FPC00214
-FILE 426;    12 RECORDS:  
0DMNT     TITLE 'LIBRARY SUBROUTINE INTERFACE FOR *DISMOUNT '            DMSR0001
 DISMOUNT CSECT                                                          DMSR0002
          ENTRY DISMNT                                                   DMSR0003
          USING *,15                                                     DMSR0004
 DISMNT   ST    1,USERPAR          PARAMETERS FOR DISMOUNT               DMSR0005
          LA    1,PARS             PARAMETERS FOR CALL TO LINK           DMSR0006
          L     15,=V(LINK)        GET *DISMOUNT                         DMSR0007
          BR    15  BRANCH DIRECTLY TO LINK (RETURNS TO CALLING PROGRAM) DMSR0008
 PARS     DC    A(CDMNT,0)                                               DMSR0009
 USERPAR  DS    F   PARAMETER LIST FOR SUBROUTNE                         DMSR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CDMNT    DC    C'*DISMOUNT '                                            DMSR0011
          END                                                            DMSR0012
-FILE 427;    11 RECORDS:  
0MNT      TITLE  'LIBRARY SUBROUTINE INTERFACE FOR *MOUNT'               MNSR0001
 MOUNT    CSECT                                                          MNSR0002
          USING *,15                                                     MNSR0003
          ST    1,USERPAR          PARAMETERS FOR MOUNT                  MNSR0004
          LA    1,PARS             PARAMETERS FOR CALL TO LINK           MNSR0005
          L     15,=V(LINK)        GET *MOUNT                            MNSR0006
          BR    15  BRANCH DIRECTLY TO LINK (RETURNS TO CALLING PROGRAM) MNSR0007
 PARS     DC    A(CMOUNT,0)                                              MNSR0008
 USERPAR  DS    F   PARAMETER LIST FOR SUBROUTNE                         MNSR0009
 CMOUNT   DC    C'*MOUNT '                                               MNSR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          END                                                            MNSR0011
-FILE 428;   656 RECORDS:  
0QSAM     TITLE 'UNIVERSITY OF MICHIGAN MTS QSAM INPUT/OUTPUT ROUTINES'  QSAM0001
 *********************************************************************** QSAM0002
 *                                                                     * QSAM0003
 *                               MACROS                                * QSAM0004
 *                                                                     * QSAM0005
 *********************************************************************** QSAM0006
          SPACE 1                                                        QSAM0007
          MACRO                                                          QSAM0008
          INIT  &A                                                       QSAM0009
 Q&A      STM   14,12,12(13)       SAVE REGISTERS                        QSAM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 T1       DS    5F                 TEMPORARY FOR DIRTY WORK              QSAM0647
 T2       DS    D                  DITTO                                 QSAM0648
          SPACE 1                                                        QSAM0649
 ERMSGL   DS    H                  ERROR MESSAGE LENGTH                  QSAM0650
 ERMSGA   DS    100CL1             ERROR MESSAGE TEXT                    QSAM0651
          SPACE 1                                                        QSAM0652
 SRLD     DC    C'SRL00000'                                              QSAM0653
 SRLDL    DC    H'8'                                                     QSAM0654
          SPACE 2                                                        QSAM0655
          END                                                            QSAM0656
-FILE 429;   140 RECORDS:  
0%INPUT   DSR.QSAM 100                                                           
 %OUTPUT  -QSAM                                                                  
 %DELETE  QSAM0030,3                                                             
          L     R14,UCBNAME                                                      
          LH    R15,0(0,R14)                                                     
          EX    R15,B&SYSNDX                                                     
          LA    R14,ERMSGA+19(R15)                                               
          LA    R15,L&SYSNDX+19(0,R15)                                           
 %DELETE  QSAM0037                                                               
 A&SYSNDX MVC   0(L&SYSNDX,R14),M&SYSNDX                                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CNTRLH   ERMSG 'RC>0 FROM "REWIND#"9'                                           
          EXIT  4                                                                
 %DELETE  QSAM0530                                                               
 UCBNAME  DS    F                  ADDRESS OF NAME BUFFER                        
 %AFTER   QSAM0540                                                               
 UCBDEVMS DS    F                  MAXIMUM RECORD LENGTHS FROM GDINFO            
 UCBTYPEI DS    XL1                TYPE INDEX FROM GDINFO                        
 UCBSWS   DS    XL1                SWITCHES FROM GDINFO                          
 %BEFORE  FILEMARK                                                               
 %END                                                                            
-FILE 430;    85 RECORDS:  
0SKIP     START                                                          SKIP0001
          SAVE  (14,12),T,SKIP                                           SKIP0002
          BASR  12,0                                                     SKIP0003
          USING *,12                                                     SKIP0004
          LM    3,5,0(1)                                                 SKIP0005
          ST    13,REG13           TUCK 13 AWAY                          SKIP0006
          LA    13,SAVAR           GET NEW WORK SPACE                    SKIP0007
          L     3,0(3)             GET NUMBER OF FILES                   SKIP0008
          L     4,0(4)             AND THE NUMBER OF RECORDS             SKIP0009
          MVC   FDUB(4),0(5)       GET INFO ABOUT DSRN                   SKIP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MODS     DC    F'128'                                                   SKIP0076
 LINE     DC    F'0'                                                     SKIP0077
 UNIT     DS    F                                                        SKIP0078
 SAVAR    DS    18F                                                      SKIP0079
 REG13    DS    F                                                        SKIP0080
          DS    0F                                                       SKIP0081
 FDUB     DC    C'        '                                              SKIP0082
 SUB      DS    F                                                        SKIP0083
 GOTTEN   DS    F                                                        SKIP0084
          END                                                            SKIP0085
-FILE 431;   134 RECORDS:  
0GRJL     TITLE 'GREGORIAN TO JULIAN TIME CONVERSION--13 JUN 69'         GRJL0001
 *********************************************************************** GRJL0002
 *                                                                     * GRJL0003
 *        GRGJULTM                                                     * GRJL0004
 *                                                                     * GRJL0005
 *        ON ENTRY, GR0 THROUGH GR3 CONTAIN THE GREGORIAN DATE AND TIME* GRJL0006
 *        IN THE FORM HH:MM.SSMM-DD-YY.                                * GRJL0007
 *                                                                     * GRJL0008
 *        ON EXIT, GR0 AND GR1 CONTAIN THE JULIAN TIME IN MICR-          GRJL0009
 *        SECONDS SINCE 00:00.00 ON 03-01-00                             GRJL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        DUMMY SECTION FOR USER SAVE AREA                             * GRJL0125
 *                                                                     * GRJL0126
 *********************************************************************** GRJL0127
          SPACE 5                                                        GRJL0128
 SAVE     DSECT                                                          GRJL0129
          DS    5A                                                       GRJL0130
 TIME     DS    CL8                                                      GRJL0131
 DATE     DS    CL8                                                      GRJL0132
          SPACE 5                                                        GRJL0133
          END                                                            GRJL0134
-FILE 432;    13 RECORDS:  
0SYM              GRGJULTMh    DATECONV  >DT1  DT2  HGRGJULDTGRJL0001
 SYM           h  }   GRJLPSCTe   DOUBLEh  h  h  h  h GRJL0002
 SYM            h  h  h  h  åh     SAVEH     	c  TGRJL0003
 SYM           IME  c  DATE                                         GRJL0004
 ESD          GRGJULTM       SGRGJULDT  H   GRJLPSCT   Y           GRJL0005
 TXT          } 0{   Y^{2^ }| ^ < ^2^ }|^ 2^ }| ^ GRJL0006
 TXT         <^2^ }|^ 2^ }| ^ 2^ }|^ ^{>ٺ0{$GRJL0007
 TXT         ^*^)^	ߥ ƺ*^ {{  ^ * GRJL0008
 TXT   y      ^j^{! ^;^{{B! ^q}}00   Y^0{^ö0GRJL0009
 TXT   \      {                                                      GRJL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT   0               r   	    ~                          GRJL0011
 RLD                 }                                       GRJL0012
 END                                   DATE  10-08-69 01:48             GRJL0013
-FILE 433;   173 RECORDS:  
0JLGR     TITLE 'JULIAN TO GREGORIAN TIME CONVERSION--13 JUN 69'         JLGR0001
 *********************************************************************** JLGR0002
 *                                                                     * JLGR0003
 *        JULGRGTM                                                     * JLGR0004
 *                                                                     * JLGR0005
 *        ON ENTRY, GR0 AND GR1 CONTAIN THE JULIAN TIME IN MICRO-SEC.    JLGR0006
 *                                                                     * JLGR0007
 *        ON EXIT, GR2 AND GR3 CONTAIN THE GREGORIAN DATE IN THE FORM  * JLGR0008
 *        MM-DD-YY, AND GR0 AND GR1 CONTAIN THE TIME OF DAY IN THE FORM* JLGR0009
 *        HH:MM.SS.                                                    * JLGR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        DUMMY SECTION FOR USER SAVE AREA                             * JLGR0164
 *                                                                     * JLGR0165
 *********************************************************************** JLGR0166
          SPACE 5                                                        JLGR0167
 SAVE     DSECT                                                          JLGR0168
          DS    5A                                                       JLGR0169
 TIME     DS    CL8                                                      JLGR0170
 DATE     DS    CL8                                                      JLGR0171
          SPACE 5                                                        JLGR0172
          END                                                            JLGR0173
-FILE 434;    20 RECORDS:  
0SYM              JULGRGTMh    TIMECONV  CVDTIME  @DATECONV  JLGR0001
 SYM           SAMEYEAR  EXIT NODATE JULGRGDTh  JULGRGTJLGR0002
 SYM           Uh ԥ   JLGRPSCTe   DOUBLEd  FUDGEe  FUDGE2h JLGR0003
 SYM              h  h  h  h  h  h  h  h  h  JLGR0004
 SYM            h  h  h  <h  &   SAVEH     	c  TIME  cJLGR0005
 SYM             DATE                                                JLGR0006
 ESD          JULGRGTM      *JULGRGDT    JULGRGTU            JLGR0007
 ESD          JLGRPSCT  -                                           JLGR0008
 TXT          } 0{  -^{;^{{! ^! ^) ^ƶ)^+^ 3}JLGR0009
 TXT         ^o0}Ό{)^ƥ)^+^ 3}^o0}+^ 3}^JLGR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT         o0}k:}k.}ΌA )^*^ *^$^)^ JLGR0011
 TXT   y      ʥ^}{$^  + ^ 3}^o0}+^ 3}^o0}*^ JLGR0012
 TXT   \      )^+^ 3}^o0}k-}k-}q}K}^0{}00  -JLGR0013
 TXT        ^0{^0{@}00  -^0{^  ;^{A! ^! ^) ^<JLGR0014
 TXT  &      ƶ)^&0{                                            JLGR0015
 TXT           P    b                                         JLGR0016
 TXT                   lg     	     	   	      r         &JLGR0017
 TXT  ^                                                            JLGR0018
 RLD                    y                                JLGR0019
 END                                   DATE  10-08-69 01:48             JLGR0020
-FILE 435;   162 RECORDS:  
0         START                                                          COLB0001
 *                                                                       COLB0002
 * BARF - BINARY ARRAY READER FOR FORTRAN - A FORTRAN CALLABLE ROUTINE   COLB0003
 *   TO GIVE A LOGICAL (IN THE FORTRAN SENSE) CARD IMAGE OF A COLUMN     COLB0004
 *   BINARY CARD.  FORTRAN STATEMENTS REQUIRED IN ORDER TO USE ARE:      COLB0005
 *                                                                       COLB0006
 *        LOGICAL*1 CARD(12,80)                                          COLB0007
 *        CALL BARF(IUNIT,CARD,&NN)                                      COLB0008
 *                                                                       COLB0009
 *   WHERE: IUNIT IS AN INTEGER CONSTANT OR VARIABLE GIVING THE UNIT     COLB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LOOPND   BCT   6,LOOP         RETURN TO SHIFT AGAIN                     COLB0153
          LM    2,7,28(13)     FINISHED - RESTORE REGISTERS              COLB0154
          SR    15,15          RETURN CODE OF 0                          COLB0155
          BCR   15,14          RETURN TO CALLING PROGRAM                 COLB0156
 SAVE     DS    18F                                                      COLB0157
 REGION   DS    80H                                                      COLB0158
 LINENO   DS    1F                                                       COLB0159
 UNIT     DS    F                                                        COLB0160
 NUMB     DC    FL.8'10,9,8,7,6,5,4,3,2,1,11,12'                         COLB0161
          END                                                            COLB0162
-FILE 436;    31 RECORDS:  
0      INTEGER FUNCTION JULDAY(J,K,I)                                    CJDT0001
 C                                                                       CJDT0002
 C  *  FUNCTION TO CONVERT A CALENDAR DATE TO A JULIAN DATE              CJDT0003
 C  *  K=DAY OF MONTH E.G. 1,2,3,...,31                                  CJDT0004
 C  *  J=MONTH I.E. 1=JANUARY, 2=FEBRUARY, ... , 12=DECEMBER             CJDT0005
 C  *  I=YEAR E.G. 1763,1849,1967,...                                    CJDT0006
 C                                                                       CJDT0007
       JULDAY=K-32075+1461*(I+4800+(J-14)/12)/4+367*(J-2-(J-14)/12*      CJDT0008
      X  12)/12-3*((I+4900+(J-14)/12)/100)/4                             CJDT0009
       RETURN                                                            CJDT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       L=L-(146097*N+3)/4                                                CJDT0022
       I=4000*(L+1)/1461001                                              CJDT0023
       L=L-1461*I/4+31                                                   CJDT0024
       J=80*L/2447                                                       CJDT0025
       K=L-2447*J/80                                                     CJDT0026
       L=J/11                                                            CJDT0027
       J=J+2-12*L                                                        CJDT0028
       I=100*(N-49)+I+L                                                  CJDT0029
       RETURN                                                            CJDT0030
       END                                                               CJDT0031
-FILE 437;   147 RECORDS:  
0C ANALYSIS OF COVARIANCE                                                SLNC0001
 C TESTING HYPOTHESIS THAT SLOPE OF REGRESSION LINE IS THE SAME FOR ALL  SLNC0002
 C POPULATIONS FROM WHICH GROUPS WERE SELECTED                           SLNC0003
 C MAXIMUM OF 1000 OBSERVATIONS PER LEVEL, 20 LEVELS PER FACTOR,1FACTOR  SLNC0004
        DIMENSION  SX(20), SXS(20), SY(20), SYS(20),SXY(20), XBAR(20),   SLNC0005
      1 YBAR(20), CXX(20),CXY(20), CYY(20), A(20),B(20)                  SLNC0006
        DIMENSION FMT (80),TITLE(20),NOBS(20)                            SLNC0007
 1      FORMAT (20A4)                                                    SLNC0008
        DATA TITLE/20*'    '/                                            SLNC0009
 C A NEW ANALYSIS OF COVARIANCE                                          SLNC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 112   FORMAT(1H0, 'ANALYSIS COMPLETED.')                                SLNC0138
        GO TO 4                                                          SLNC0139
 31     WRITE(6,114)                                                     SLNC0140
 114    FORMAT('0','ANALYSIS COMPLETED BECAUSE ONLY 1 GROUP')            SLNC0141
        GO TO 4                                                          SLNC0142
 999    CONTINUE                                                         SLNC0143
       WRITE(6,113)                                                      SLNC0144
 113    FORMAT(1H1)                                                      SLNC0145
        STOP                                                             SLNC0146
        END                                                              SLNC0147
-FILE 438;   186 RECORDS:  
0C     ZEROS OF POLYNOMIALS BY BAIRSTOW'S METHOD                         POLY0001
                                                                         POLY0002
 C     WILSON BAKER - MATH - UBC                                         POLY0003
                                                                         POLY0004
 C     REVISED TO FORTRAN 2, JAN/63                                      POLY0005
                                                                         POLY0006
 C     REVISED TO FORTRAN IV AUGUST/64.                                  POLY0007
                                                                         POLY0008
 C     REVISED TO /360 FORTRAN IV APRIL 1969                             POLY0009
 C         BY D. PERVIS AND L. HORVATH.                                  POLY0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                                         POLY0177
       S=A(3)*Z                                                          POLY0178
                                                                         POLY0179
       J=2                                                               POLY0180
                                                                         POLY0181
       GO TO 25                                                          POLY0182
                                                                         POLY0183
 2000  STOP                                                              POLY0184
       END                                                               POLY0185
                                                                         POLY0186
-FILE 439;     9 RECORDS:  
0C          FORTRAN IV FUNCTION RANDLN                                   RNDL0001
 C     LEN HORVATH                MAY, 1969.                             RNDL0002
 C                                                                       RNDL0003
        FUNCTION RANDLN(T,AMEAN,SIGMA)                                   RNDL0004
        IF(T.EQ.0.0) GO TO 100                                           RNDL0005
         R=RANDN(T)                                                      RNDL0006
 100    RANDLN=EXP(AMEAN+SIGMA*RANDN(0.0))                               RNDL0007
        RETURN                                                           RNDL0008
        END                                                              RNDL0009
-FILE 440;   196 RECORDS:  
0PLCL     TITLE 'PLCALL, PLCALLF, PLCALLE, PLCALLD, PL1RC, AND PL1ADR--P1PLCL0001
                L/I LINK TO THE REST OF THE WORLD--8 DEC 69'             PLCL0002
 *********************************************************************** PLCL0003
 *                                                                     * PLCL0004
 *        PLCALL                                                       * PLCL0005
 *                                                                     * PLCL0006
 *        ON ENTRY, GR1 POINTS TO AN N+2 WORD PARAMETER LIST.          * PLCL0007
 *                                                                     * PLCL0008
 *             WORD1    POINTS TO THE ADDRESS OF THE PROCEDURE TO BE   * PLCL0009
 *                      CALLED.                                        * PLCL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BR    R14                                                      PLCL0187
          SPACE 5                                                        PLCL0188
          ENTRY PL1ADR                                                   PLCL0189
 PL1ADR   L     R15,4(,R1)         ADDRESS FOR VALUE                     PLCL0190
          L     R1,0(,R1)          ADDRESS OF ARGUMENT                   PLCL0191
          ST    R1,0(,R15)                                               PLCL0192
          BR    R14                                                      PLCL0193
          SPACE 5                                                        PLCL0194
 PAR      DSECT                                                          PLCL0195
          END                                                            PLCL0196
-FILE 441;    97 RECORDS:  
0MSG      TITLE '******DBS''S MESSAGE ROUTINE******'                     MSG00001
 MSG      CSECT                                                          MSG00002
          SVE                                                            MSG00003
          LR    R10,R1              SAVE A(PARM'S)                       MSG00004
          LA    R0,MSGERR           SET TRAP                             MSG00005
          MVI   BUFF,X'00'                                               MSG00006
          LA    R1,BUFF                                                  MSG00007
          L     R15,=V(PGNTTRP)                                          MSG00008
          BASR  R14,R15                                                  MSG00009
          C     R15,UNIT                                                 MSG00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0H                                                       MSG00088
 MSGE1    DC    AL2(LMSGE1),C' ****MSG PARAMETER ERROR****'              MSG00089
 LMSGE1   EQU   *-(MSGE1+2)                                              MSG00090
          DS    0H                                                       MSG00091
 MSGE2    DC    AL2(LMSGE2),C' ****ERROR****'                            MSG00092
 LMSGE2   EQU   *-(MSGE2+2)                                              MSG00093
 BUFF     DS    19D                                                      MSG00094
          EQUS                                                           MSG00095
 MERRCOM  EQU   X'80'                                                    MSG00096
          END                                                            MSG00097
-FILE 442;   785 RECORDS:  
0ESD          SUPER        {EBCASC      ASCEBC              UMPS0001
 ESD           CHGFLG      EXTINT      SVCINT   8           UMPS0002
 ESD           PRGINT      IOINT    <   ISUPER              UMPS0003
 ESD           ADBUF       TOQ         ADTOD    y           UMPS0004
 ESD           LCCNT       PAGECHN     NRFRPGS             UMPS0005
 ESD           MINFRPGS \   BIGJTH      WRTFRPGS            UMPS0006
 ESD           SVERR6   Y   RESSIZE  @   TOTPGS              UMPS0007
 ESD           POQ         POQE        PIQ      @           UMPS0008
 ESD           PICQ     d   RPQ      h   PGTBL1              UMPS0009
 ESD           SVCAEND  {   SVBASE       ASPCB               UMPS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  q             -    -  	         -         .  VTOC0089
 TXT  }        .                                                  VTOC0090
 TXT  U      -K  K -ʥ - &} & &ʥ ʥVTOC0091
 TXT         &} 5& - q3           0 VTOC0092
 TXT        	& yڭK-}} QK-  k -K - MO --&-} VTOC0093
 TXT        &&  }1  { 	0                       VTOC0094
 TXT  ^      0     o -8                                        VTOC0095
 RLD                h  j r ~ z   A *  VTOC0096
 RLD               < &                              VTOC0097
 END                                   DATE  02-07-70 01:28             VTOC0098
-FILE 443;  1342 RECORDS:  
0IEKA     TITLE 'MTS FORTRAN H COMPILER - FORTRAN SYSTEM DIRECTOR'       AA000001
 IEKAA00  CSECT                                                          AA000002
 *                                                                       AA000003
 *                                                                       AA000004
 *FUNCTION/OPERATION--THIS MODULE PROCESSES PARAMETERS, INITIALIZES TEXT AA000005
 *   AND DICTIONARY, ALLOCATES TEXT AREA TO ALL PHASES, CALLS EACH PHASE AA000006
 *   IN TURN, AND RECEIVES CONTROL IN CASE OF DISASTEROUS ERROR.         AA000007
 *                                                                       AA000008
 *ENTRY POINTS--SIX ENTRY POINTS  AS FOLLOWS-                            AA000009
 *                                                                       AA000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HOUR     EQU   PAGEHEAD+72                                              AA001333
 YEAR     EQU   HOUR+20                                                  AA001334
          SPACE 3                                                        AA001335
 IEKAER   CSECT                                                          AA001336
 ERLGTH   EQU   100                                                      AA001337
          DS    200F                                                     AA001338
          SPACE 3                                                        AA001339
 IEKAAA   CSECT                                                          AA001340
          DS    70F                                                      AA001341
          END                                                            AA001342
-FILE 444;   224 RECORDS:  
0AA01     TITLE 'MTS FORTRAN H - OPTIONS, DDNAMES, AND PAGE HEADING'     AA010001
          MACRO                                                          AA010002
          SGIEK001  &OPTN=,&MAP=,&TYPE=,&PNCH=,&OBLST=,&CODE=,&SRLST=,  *AA010003
                &LINCNT=,&SZE=,&ID=,&EDIT=,&XREF=                        AA010004
 .*       SGIEK001 GENERATES CSECTS TO COMMUNICATE USER OPTIONS          AA010005
 .*       EXEPT THOSE WITH LOGICAL UNITS TO THE FORTRAN H COMPILER.      AA010006
          LCLA  &LNGTH,&BLANK,&ADCON,&KAY,&CMAJOR,&RMAJOR,&CMPLR,&SZMAJ  AA010007
 .*             DEFAULT SIZE IN WORDS                                    AA010008
 &BLANK   SETA  (117800/4)                                               AA010009
 &ADCON   SETA  (2048/4)                                                 AA010010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
            DS    128F              MVD(128)                             AA010215
 SIZMAJ   DC    F'&SZMAJ'                                                AA010216
          DS    &CMAJOR.F                                                AA010217
          DS    0D                                                       AA010218
          ENTRY IEKJA4                                                   AA010219
 IEKJA4   DS    &RMAJOR.F                                                AA010220
          MEND                                                           AA010221
          SGIEK001  OPTN=2,MAP=1,TYPE=0,PNCH=1,OBLST=0,CODE=0,SRLST=1,  XAA010222
                LINCNT=58,SZE=409600,ID=0,EDIT=0,XREF=1                  AA010223
          END                                                            AA010224
-FILE 445;   149 RECORDS:  
0TIMR     TITLE 'MTS FORTRAN H - SPECIAL TIMING ROUTINE'                 TIME0001
 IEKATM   CSECT                                                          TIME0002
 *                                                                       TIME0003
 *                                                                       TIME0004
 *                            COMPILER VERSION --- USES FIOCS FOR I/O    TIME0005
 *                                                                       TIME0006
 *         THIS ROUTINE WILL MAINTAIN TEN TIMES.   THE PARAMETER         TIME0007
 *         PASSED WILL SPECIFY THE DESIRED SLOT.                         TIME0008
 *  LINKAGE INTO ROUTINE IS VIA THE CALL MACRO.                          TIME0009
 *                                                                       TIME0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 F384     DC    F'384'                                                   TIME0140
 T16MSECO DC    X'00196E28'                                              TIME0141
 OUTSAVE  DS    1F                                                       TIME0142
 OUTSAVE2 DC    18F'0'                                                   TIME0143
 PATTERN  DC    X'402020202020202020202020214B20202040'                  TIME0144
          CNOP  0,4                                                      TIME0145
 BUFFR    DC    C' * * * *   1  * * '                                    TIME0146
 PBUFFR   DC    C'                   MILLI SECONDS'                      TIME0147
          DC   C' * * * * * * * *'                                       TIME0148
          END                                                            TIME0149
-FILE 446;   826 RECORDS:  
0TLOA     TITLE 'MTS FORTRAN H - LOADER INPUT CARD IMAGE BUILDER'        TLOD0001
 IEKTLOAD CSECT                                                          TLOD0002
 * STATUS - CHANGE LEVEL 3                                               TLOD0003
 *                                                                       TLOD0004
 *FUNCTION: THE FUNCTION OF IEKTLOAD IS TO BUILD LOADER INPUT CARD       TLOD0005
 *          IMAGES BY PROCESSING INPUT PARAMETERS AND PLACING THIS       TLOD0006
 *          INFORMATION INTO INTERNAL BUFFERS. WHEN A BUFFER IS FULL     TLOD0007
 *          OR NEEDS TO BE FORCED OUT THE ROUTINE FIOCS  IS CALLED       TLOD0008
 *          TO PLACE THE BUFFER IN THE LOAD OR PUNCH DATA SETS           TLOD0009
 *                                                                       TLOD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HIGH      EQU   2                                                       TLOD0817
 NONZERO   EQU   7                                                       TLOD0818
 LOW       EQU   4                                                       TLOD0819
 EQUAL     EQU   8                                                       TLOD0820
 NOTEQUAL  EQU   7                                                       TLOD0821
 LOWEQUAL  EQU   13                                                      TLOD0822
 ALWAYS    EQU   15                                                      TLOD0823
 **********************************************************************  TLOD0824
 *                                                                       TLOD0825
       END                                                               TLOD0826
-FILE 447;   365 RECORDS:  
0FIOC     TITLE 'MTS FORTRAN H - I/O PACKAGE'                            FIOC0001
 IEKFIOCS CSECT                                                          FIOC0002
 *        FUNCTION/OPERATION- ALL I/O COMMANDS OF THE FORTRAN H COMPILER FIOC0003
 *              RESULT IN A CALL TO THIS ROUTINE WHICH IN TURN MAKES A   FIOC0004
 *              REQUEST OF THE CONTROL PROGRAM.                          FIOC0005
 *                                                                       FIOC0006
 *        ENTRY POINTS- ONE ENTRY POINT WITH CALLING SEQUENCE AS FOLLOWS FIOC0007
 *                                                                       FIOC0008
 *              L    15,=V(FIOCS)                                        FIOC0009
 *              LA   1,PARMLIST                                          FIOC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IHADCB   DSECT                                                          FIOC0356
 DCBSUBR  DS    2A                  ADDRESS OF INPUT AND OUTPUT SUBRS.   FIOC0357
 DCBDDNAM DS    2A                  FDUB POINTER AND UNUSED              FIOC0358
 DCBEODAD DS    A                   END OF DATA                          FIOC0359
 DCBLRECL DS    H                   RECORD LENGTH                        FIOC0360
 DCBOFLGS DC    H'0'                FLAGS                                FIOC0361
 *              BIT 0: OUTPUT WAITING IN BUFFER                          FIOC0362
 *              BIT 3: IS OPEN (SAME AS OS)                              FIOC0363
 DCBBUF   DS    CL1                 BUFFER (VARIABLE LENGTH)             FIOC0364
          END                                                            FIOC0365
-FILE 448;   360 RECORDS:  
0XREF     TITLE 'MTS FORTRAN H - CROSS REFERENCES'                       XREF0001
 IEKXRF   CSECT                                                          XREF0002
          EXTRN IEKAAA                                                   XREF0003
          EXTRN IEKAAD                                                   XREF0004
          USING *,15                                                     XREF0005
          STM   14,12,12(13)       SAVE REGISTERS                        XREF0006
          ST    13,SAVE+4                                                XREF0007
          LA    WORK,SAVE                                                XREF0008
          ST    WORK,8(13)                                               XREF0009
          LR    13,WORK                                                  XREF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ADXRBUF  DC    A(IEKXRBUF)                                              XREF0351
 NPTR     EQU   IEKAAA                                                   XREF0352
 WORK     EQU   4                                                        XREF0353
 WORK1    EQU   5                                                        XREF0354
 WORK2    EQU   6                                                        XREF0355
 WORK3    EQU   7                                                        XREF0356
 BUFFER   EQU   8                                                        XREF0357
 ADC      EQU   11                                                       XREF0358
 INFO     EQU   12                                                       XREF0359
          END                                                            XREF0360
-FILE 449;    56 RECORDS:  
0IFPI     TITLE 'ROUTINE TO IGNORE A FETCH PROTECTION INTERRUPT'         FPI00001
 IEKIFPI  CSECT                                                          FPI00002
 *                                                                       FPI00003
 ZERO     EQU   0                                                        FPI00004
 ARG      EQU   1                                                        FPI00005
 OLD      EQU   4                  INST. ADDR. PRIOR TO INTERRUPT        FPI00006
 ILC      EQU   6                  INSTRUCTION LENGTH                    FPI00007
 SCRCH    EQU   7                                                        FPI00008
 BASE     EQU   12                 BASE REGISTER                         FPI00009
 SAVE     EQU   13                 CALLING PROGRAM SAVE AREA REGISTER    FPI00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 INTPSAVE DS    18F                                                      FPI00047
 VPGNTTRP DC    V(PGNTTRP)                                               FPI00048
 AIEKIFPI DC    A(IEKIFPI)                                               FPI00049
 INTPARM  DC    A(INTP,INTPSAVE)                                         FPI00050
 *                                                                       FPI00051
 TABLE    EQU   *                                                        FPI00052
          DC    XL69'0404',XL3'0',5X'04',XL3'04',XL4'0',12X'04'          FPI00053
          DC    XL8'0',8X'04',XL8'0',9X'04',X'00040004',XL13'04'         FPI00054
          DC    XL4'04',XL3'04',XL61'04',XL8'04',XL28'04',XL6'0'         FPI00055
          END                                                            FPI00056
-FILE 450;    45 RECORDS:  
0FUDG     TITLE 'SUBROUTINE TO MAKE FORTRANH SERIALY REUSABLE'           FDGE0001
 IEKFUDGE CSECT                                                          FDGE0002
          PRINT NOGEN                                                    FDGE0003
          ENTER 12,SA=SA                                                 FDGE0004
          LA    1,CNT               NUMBER OF BAD MODULES                FDGE0005
          LA    2,TBL                                                    FDGE0006
          LA    3,AREA                                                   FDGE0007
 TLP      LM    4,5,0(2)            GET ADDR AND LENGTH                  FDGE0008
 MLP      S     5,=F'256'           ONE MOVE?                            FDGE0009
          BNP   MDN                 YES                                  FDGE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    V(IEKLGN#),X'000000A8'                                   FDGE0036
          DC    V(IEKLMA#),X'00000078'                                   FDGE0037
          DC    V(IEKRF1#),X'000000E0'                                   FDGE0038
          DC    V(IEKRSL#),X'00000110'                                   FDGE0039
          DC    V(IEKRSS#),X'00000118'                                   FDGE0040
          DC    V(IEKP31#),X'000001E0'                                   FDGE0041
 CNT      EQU   (*-TBL)/8                                                FDGE0042
          LTORG                                                          FDGE0043
 AREA     DS    XL(X'2E80')                                              FDGE0044
          END                                                            FDGE0045
-FILE 451;  1127 RECORDS:  
0FTN      TITLE 'FORTRAN G MODULE IEYFORT RELEASE 16 FOR MTS'            IEYF0001
 IEYFORT  CSECT                                                          IEYF0002
 *********************************************************************** IEYF0003
 *                                                                       IEYF0004
 *FUNCTION/OPERATION.                                                    IEYF0005
 *    THIS MODULE CONTROLS THE OPERATION OF THE FORTRAN IV(G) COMPILER.  IEYF0006
 *    IT INITIALLY RECEIVES CONTROL FROM THE INVOKING PROGRAM, PERFORMS  IEYF0007
 *    APPROPRIATE INITIALIZING FUNCTIONS, THEN TRANSFERS CONTROL TO THE  IEYF0008
 *    FIRST PHASE (IEYPAR). CONTAINED WITHIN THIS MODULE ARE ALL THE     IEYF0009
 *    INPUT/OUTPUT ROUTINES USED BY THE COMPILER, THE DYNAMIC WORK-      IEYF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ENDCARD  DSECT                                                          IEYF1118
          DS    CL1           X'02'                                      IEYF1119
 ENDHDR   DS    CL3           C'END'                                     IEYF1120
          DS    CL1           BLANK                                      IEYF1121
 ENDENTRY DS    CL3           ENTRY POINT ADDRESS (OPTIONAL)             IEYF1122
 ENDBLANK DS    CL6           BLANK                                      IEYF1123
 ENDESDID DS    CL2           ESDID IF ENTRY POINT (OPTIONAL)            IEYF1124
          DS    CL12          BLANK                                      IEYF1125
 ENDLEN   DS    CL4           CSECT LENGTH                               IEYF1126
          END   IEYFORT                                                  IEYF1127
-FILE 452;  1051 RECORDS:  
0 ESD          IEYROL        IEYRD          IEYDBG                      
  ESD          BSEXIT   0   BSWORK   	   RBASE                         
  ESD          INITDB                                                      
  TXT                                                                          
  TXT                                                                         
  TXT                                                                         
  TXT   y                                                                      
  TXT   \                                                                      
  TXT                                                                        
  TXT  &                                                                      
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  TXT        	&                                                            
  TXT        	&                                                            
  TXT  <      	&                                                            
  TXT        	&
                                                            
  TXT  @      	&                                                            
  TXT  m      	&                                                            
  TXT        	&                                                            
  TXT  D      &                                                              
  RLD                                                                       
  END                                                                            
-FILE 453;  4438 RECORDS:  
0         MACRO                                                          ART00001
 &NAME    ACENT     &N                                                   ART00002
 &NAME    STM       R13+1,R13-1,12(R13)                                  ART00003
          BAL       R11,CENT                                             ART00004
          DC        A(&N-START)                                          ART00005
          USING     &N,R13                                               ART00006
          L         R3,ADENT                                             ART00007
          LA        R11,0(R12,R3)                                        ART00008
          USING     ARITH+8,R11                                          ART00009
          MEND                                                           ART00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        AL1(ALOGCD00-ALOGCD) PHI.OR .L*4                     ART04429
          DC        AL1(ALOGCD00-ALOGCD)    .AND.                        ART04430
          DC        AL1(ALOGCD10-ALOGCD)    .NOT.                        ART04431
          DC        AL1(ALOGCD05-ALOGCD) LR1.OR .L*4                     ART04432
          DC        AL1(ALOGCD08-ALOGCD)    .AND.                        ART04433
          DC        AL1(ALOGCD03-ALOGCD)    .NOT.                        ART04434
          DC        AL1(ALOGCD04-ALOGCD) L*4.OR .L*4                     ART04435
          DC        AL1(ALOGCD07-ALOGCD)    .AND.                        ART04436
          DC        AL1(ALOGCD03-ALOGCD)    .NOT.                        ART04437
          END       START                                                ART04438
-FILE 454;  1258 RECORDS:  
0         MACRO                                                          DOD00001
 &NAME    DFIXU     &LOC                                                 DOD00002
 &NAME    S         R3,CSYMBASE                                          DOD00003
          STH       R3,&LOC(1)+2                                         DOD00004
          AIF       (N'&LOC EQ 1).END                                    DOD00005
          STH       R3,&LOC(2)+2                                         DOD00006
          AIF       (N'&LOC EQ 2).END                                    DOD00007
          STH       R3,&LOC(3)+2                                         DOD00008
          AIF       (N'&LOC EQ 3).END                                    DOD00009
          STH       R3,&LOC(4)+2                                         DOD00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DOPARMH  DC        X'00'                                                DOD01249
 GASSNSW  DC        X'00'                                           V0L0 DOD01250
 DHIGHEST DC        X'00'               HIGHEST DONO IN STACK       V0L0 DOD01251
 *        PUTTING  OUT END OF DO CODING                             V0L0 DOD01252
 DSTACK   DC        X'7FFFFFFF',X'00FFFFFF',X'0000000000000000'     V0L0 DOD01253
 IRGO2    EQU       XERRGO2                                              DOD01254
 IRGO3    EQU       XERRGO4                                              DOD01255
 IRDO7    EQU       XERRDO7                                              DOD01256
          LTORG                                                          DOD01257
          END                                                            DOD01258
-FILE 455;   157 RECORDS:  
0         COPY      OPTIONS                                              00000010
 R14      EQU       14                                                   00000020
          ENTRY     DCSTN1                                               00000030
          ENTRY     FORMATEX                                             00000040
          ENTRY     LENDPROG                                             00000050
          ENTRY     INBCDI                                               00000060
          ENTRY     OUTBCDI                                              00000070
          ENTRY     INFREEI                                              00000080
          ENTRY     OUTFREEI                                             00000090
          ENTRY     INBCD,OUTBCD,INBIN,OUTBIN,INFREE,OUTFREE             00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA        7,0(0,7)                                             00001480
          SH        7,10(0,7)                                            00001490
          BR        7                                                    00001500
          DC        H'4'                                                 00001510
          DS        0F                                                   00001520
 FRIOTEMP DC        16X'F0'                                              00001530
          DC        H'0'                                                 00001540
          DC        H'0'                                                 00001550
 END      DS        0D                  LAST CARD IN DECK DUMMY          00001560
          END                                                            00001570
-FILE 456;   104 RECORDS:  
0         MACRO                                                          00000010
 &NAME    EQUX      &ADDR                                                00000020
          ENTRY     &NAME                                                00000030
 &NAME    EQU       &ADDR                                                00000040
          MEND                                                           00000050
          SPACE                                                          00000060
 FUMMYR   CSECT                                                          00000070
          SPACE                                                          00000080
 DTANH    EQUX      *                                                    00000090
          PRINT     ON,NOGEN                                             00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 AMIN1    EQUX      *                                                    00000950
 MAX0     EQUX      *                                                    00000960
 MIN0     EQUX      *                                                    00000970
 AMAX0    EQUX      *                                                    00000980
 AMIN0    EQUX      *                                                    00000990
 DMAX1    EQUX      *                                                    00001000
 DMIN1    EQUX      *                                                    00001010
 TRAPS    EQUX      *                                                    00001020
          BR        14                                                   00001030
          END                                                            00001040
-FILE 457;  1268 RECORDS:  
0         COPY      OPTIONS                                              00000010
 IHCFIOSH CSECT                                                          00000020
          TITLE 'IHCFIOSH - OPERATION SYSTEM/360   FORTRAN H   I/O'      00000030
 *STATUS--CHANGE LEVEL 000                                               00000040
 *                                                                       00000050
 *FUNCTION/OPERATION--ALL I/O READ AND WRITE AND MANIPULATIVE COMMANDS   00000060
 *   OF A FORTRAN SOURCE PROGRAM RESULT IN ONE OR MORE ENTRIES INTO THIS 00000070
 *   ROUTINE, AND IN TURN, FIOCS MAKES AN APPROPRIATE REQUEST OF THE     00000080
 *   CONTROL PROGRAM.                                                    00000090
 *                                                                       00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 STATLOC  DS    F                                                        00012490
          EJECT                                                          00012500
 XDSECT   DSECT                                                     UOW  00012510
 PLINES   DS        F                   LINES PER PAGE ALLOWED      UOW  00012520
 PLNCOUNT DS        F                   LINES SO FAR ON CURRENT PAGEUOW  00012530
 PPAGES   DS        F                   PAGES ALLOWED               UOW  00012540
 PPGCOUNT DS        F                   PAGES SO FAR                UOW  00012550
          DS        F                                               UOW  00012560
 PXCARD   DS        F                                               UOW  00012570
          END                                                            00012575
-FILE 458;   102 RECORDS:  
0         MACRO                                                          00000010
          UNIT                                                           00000020
          GBLA      &NOUTILS                                             00000030
          LCLA      &COUNT                                               00000040
 &COUNT   SETA      8                                                    00000050
 .LOOP    AIF       (&COUNT GT &NOUTILS).END                             00000060
 &COUNT   SETA      &COUNT+1                                             00000070
          UNITGEN                                                        00000080
          AGO       .LOOP                                                00000090
 .END     ANOP                                                           00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'00'                   UNUSED DEFAULT FIELD             00000930
          DC    AL2(80)                 BLKSIZE                          00000940
          DC    B'11000000'             RECFM - U                        00000950
          DC    AL1(2)                  BUFNO                            00000960
          DC    AL2(0)                  LRECL                            00000970
          DC    F'1'  DASD VARIABLE POINTER                              00000980
          UNIT                                                           00000990
 END      EQU   *                                                        00001000
     END                                                                 00001010
          END                                                            00001020
-FILE 459;   466 RECORDS:  
0         MACRO                                                          FRM00001
 &NAME    FERROR    &LIST                                                FRM00002
 &NAME    BALR      R14,R9                                               FRM00003
          ERRCODE   &LIST                                                FRM00004
          MEND                                                           FRM00005
          COPY      OPTIONS                                              FRM00006
          EXTRN     DEXP                                                 FRM00007
          EXTRN     DLOG                                                 FRM00008
          EXTRN     INBINI,OUTBINI                                       FRM00009
          EXTRN     XTART                                                FRM00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FSAVE14  DS        F                                                    FRM00457
 FBCNT    DC        H'0'                                                 FRM00458
 FHMOVE   MVC       0(0,R15),0(R1)                                       FRM00459
 FLT      DC        X'0800000050'                                        FRM00460
 FRT      DC        X'380000004C'                                        FRM00461
 FORMCONS DC        X'1C1814402800202C0000240048'                        FRM00462
 FSW      DS        X                                                    FRM00463
 FMTCHAR  DS        X                                                    FRM00464
          LTORG                                                          FRM00465
          END       FORMAT                                               FRM00466
-FILE 460;  1368 RECORDS:  
0         MACRO                                                          FRC00001
 &ADDR    DEFSAVE                                                        FRC00002
 &ADDR    LA        R13,FVSAVE-FMCNBASE(R15)                             FRC00003
          MEND                                                           FRC00004
          COPY      OPTIONS                                              FRC00005
 FORMCONV CSECT                                                          FRC00006
          PRINT     OFF                                                  FRC00007
          COPY      CDEFN                                                FRC00008
 STARTA   CSECT                                                          FRC00009
          COPY      STARTA                                               FRC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RECLEN   DC        H'0'                                                 FRC01359
 INSPNCON DC        C'1048576'                                           FRC01360
 INDPNCON DC        C'4503599627370495'                                  FRC01361
 FRIOROUT DS        1F                                                   FRC01362
 NDEC1    DS        1H                                              V0L1 FRC01363
          LTORG                                                          FRC01364
 ADTBLE   EQU       TRTBLE+1                                             FRC01365
 FINISH   EQU       XBOOT                                                FRC01366
 ABUFFER  EQU       XBUFFER                                              FRC01367
          END                                                            FRC01368
-FILE 461;   721 RECORDS:  
0         PRINT     ON,GEN                                               FRI00001
          COPY      OPTIONS                                              FRI00002
          ENTRY     FRIOTEMP                                             FRI00003
          ENTRY     FRIOSCAN                                             FRI00004
 FRIO     TITLE     'RUN TIME INPUT SCAN ROUTINES'                       FRI00005
 *********************************************************************** FRI00006
 *********************************************************************** FRI00007
 *********************************************************************** FRI00008
 *        THIS SECTION SCANS THE INPUT FIELD, (IN FORMAT I/O), OR THE    FRI00009
 *        COMPLETE INPUT BUFFER, (IN FREE I/O), TO SET UP THE INPUT      FRI00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BAL       R5,FREXIT2          GO TO END OF FIELD ROUTINE       FRI00712
          LM        R1,R6,FREXSAVE      RESTORE REGISTERS                FRI00713
          LA        R1,1(0,R1)          MOVE POINTER PAST DELIMITER      FRI00714
          CLI       0(R1),C','          IS THIS CHAR A COMMA             FRI00715
          BC        6,*+8               NO BRANCH AROUND                 FRI00716
          LA        R1,1(0,R1)          YES POINT TO NEXT CHAR           FRI00717
          BC        15,FRIOINIT         GO TO INITIALIZE SCAN            FRI00718
          EJECT                                                          FRI00719
          LTORG                                                          FRI00720
          END                                                            FRI00721
-FILE 462;  2359 RECORDS:  
0         MACRO                                                          FCN00001
 &NAME    FOMIT     &FN                                                  FCN00002
          GBLC      &FTABA(255)                                          FCN00003
          GBLA      &FJ                                                  FCN00004
          LCLA      &I                                                   FCN00005
 &I       SETA      0                                                    FCN00006
 .LOOP    AIF       (&I EQ &FJ).END                                      FCN00007
 &I       SETA      &I+1                                                 FCN00008
          AIF       ('&FN' EQ '&FTABA(&I)').SETUP                        FCN00009
          AGO       .LOOP                                                FCN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        0F'0'                                                FCN02350
 CSAVER   EQU       *                                                    FCN02351
 COUT     EQU       *                                                    FCN02352
 CSN      EQU       *                                                    FCN02353
 CSYMBASE EQU       *                                                    FCN02354
 *********                                                               FCN02355
 XSAVEFN2 DC        19F'0'                                               FCN02356
 XSAVEFN1 DC        19F'0'                                               FCN02357
 ONE      EQU       XFLTONE                                              FCN02358
        END                                                              FCN02359
-FILE 463;  1045 RECORDS:  
0         COPY      OPTIONS                                              INO00001
          EJECT                                                          INO00002
          ENTRY     GCONT                                                INO00003
          ENTRY     ISTOP                                                INO00004
          ENTRY     IPAUS                                                INO00005
          ENTRY     IBACK                                                INO00006
          ENTRY     IREWI                                                INO00007
          ENTRY     IENDF                                                INO00008
          ENTRY     IREAD                                                INO00009
          ENTRY     IPUNC                                                INO00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IOLPENDS EQU       IOUNIT+2            CHEAP BASTARD                    INO01036
 ILISTCNT EQU       IDATACD3+9                                           INO01037
 IMAXUNIT EQU       CMAXUNIT                                             INO01038
 * IOEND1  DC  AL1(IREL1),AL3(XIOEND-START),AL1(IREL1),AL3(XIOERR-START) INO01039
 IOEND1   EQU       XINPDSRN+4          SAVE SOME SPACE                  INO01040
 INSTLIN  EQU       XINPDSRN+3          READFMT AND FREE INPUT UNIT      INO01041
 INSTLOUT EQU       XOUTDSRN+3          PRINTFMT AND FREE OUTPUT UNIT    INO01042
 INSTLPUN EQU       XPUNDSRN+3          PUNCHFMT AND FREE PUNCH UNIT     INO01043
          LTORG                                                          INO01044
          END                                                            INO01045
-FILE 464;   990 RECORDS:  
0         MACRO                                                          LNK00001
 &A       REND                                                           LNK00002
 &A       DC        0H'0',X'AA00'                                        LNK00003
          MEND                                                           LNK00004
          MACRO                                                          LNK00005
 &A       RSAVA                                                          LNK00006
 &A       DC        0H'0',X'A0000000'                                    LNK00007
          MEND                                                           LNK00008
          MACRO                                                          LNK00009
 &A       RSTNS     &B                                                   LNK00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        X'AC'                                                LNK00981
          DC        AL1(0)                                               LNK00982
          DC        Y(*-*)                                               LNK00983
 LBARND   B         *-*                                                  LNK00984
 LRSTNS   DC        0H'0',X'A7',AL1(0),Y(0)                              LNK00985
 LRVARS   DC        0H'0',X'A6',AL1(0),Y(*-*)                            LNK00986
 LRVARS1  DC        0H'0',X'A6',AL1(8),Y(*-*)                            LNK00987
 LSAVER2  DS        18F                                                  LNK00988
          LTORG                                                          LNK00989
          END                                                            LNK00990
-FILE 465;   706 RECORDS:  
0         MACRO                                                          MN#00001
 &NAME    FLIST     &FN,&MODE                                            MN#00002
          GBLC      &FTABA(255)                                          MN#00003
          GBLA      &FJ                                                  MN#00004
          LCLA      &I                                                   MN#00005
 &I       SETA      0                                                    MN#00006
 .LOOP    AIF       (&I EQ &FJ).SETUP                                    MN#00007
 &I       SETA      &I+1                                                 MN#00008
          AIF       ('&FN' EQ '&FTABA(&I)').END                          MN#00009
          AGO       .LOOP                                                MN#00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EJECT                                                          MN#00697
 MRUPT    EQU       *                                                    MN#00698
          USING     ZPIE,R1                                              MN#00699
          USING     MRUPT,R15                                            MN#00700
          CSNAP     INTERRPT,,32                                         MN#00701
          BR        R14                                                  MN#00702
          DROP      R1                                                   MN#00703
          DROP      R15                                                  MN#00704
          LTORG                                                          MN#00705
          END       START                                                MN#00706
-FILE 466;   581 RECORDS:  
0         MACRO                                                          00000010
          CDEFN                                                          00000020
          MEND                                                           00000030
          MACRO                                                          00000040
 &A       ETITLE    &B                                                   00000050
          PUNCH     ' '                                                  00000060
          PUNCH     ' '&B''                                              00000070
          MEND                                                           00000080
          MACRO                                                          00000090
 &A       EMESSAGE  &B,&C,&D                                             00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EJECT                                                          00005460
          EMESSAGE  VA,D,'ILLEGAL DO-PARAMETER,ASSIGNED OR INITIALIZED VX00005463
                ARIABLE IN SPECIFICATION'                           V0L5 00005464
          EMESSAGE  VA,E,'ATTEMPT TO DIMENSION A CALL-BY-NAME PARAMETER' 00005465
 XT       ETITLE    'EXTERNAL STATEMENT'                                 00005470
          EMESSAGE  XT,0,'INVALID ELEMENT IN EXTERNAL LIST'              00005480
          EMESSAGE  XT,1,'INVALID DELIMITER IN EXTERNAL STATEMENT'       00005490
          EMESSAGE  XT,2,'SUBPROGRAMME PREVIOUSLY EXTERNALLED'           00005500
          EJECT                                                          00005510
          END                                                            00005520
-FILE 467;  1336 RECORDS:  
0         TITLE     'RELOCATOR'                                          RLC00001
          COPY      OPTIONS                                              RLC00002
 RCS123   CSECT                                                          RLC00003
          ENTRY     RPH12                                                RLC00004
          ENTRY     RPH3                                                 RLC00005
          EXTRN     END                                                  RLC00006
          EXTRN     MAIN                                                 RLC00007
          EXTRN     XTART                                                RLC00008
          PRINT     OFF                                                  RLC00009
          EXTRN     CXTART,CXTOP                                         RLC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RPADR1   S         R3,RDATBASE                                          RLC01327
          THEN      DONE                                                 RLC01328
 RSADRS   LA        R3,Z5+4                                              RLC01329
          THEN      (DO,RPADR1),DONE                                     RLC01330
 RSADRD   LA        R3,Z5+8                                              RLC01331
          THEN      (DO,RPADR1),DONE                                     RLC01332
 REL45TMP DC        X'00'                                                RLC01333
 RVGENEQC DC        X'00'                                                RLC01334
          LTORG                                                          RLC01335
          END                                                            RLC01336
-FILE 468;  1553 RECORDS:  
0         MACRO                                                          SCN00001
 &NAME    TEST      &SW,&ON,&OFF                                         SCN00002
 &NAME    TM        &SW,X'01'                                            SCN00003
          AIF       ('&ON' EQ '').A                                      SCN00004
          BO        &ON                                                  SCN00005
          MEXIT                                                          SCN00006
 .A       BNO       &OFF                                                 SCN00007
          MEND                                                           SCN00008
          GBLA      &X,&Y                                                SCN00009
          COPY      OPTIONS                                              SCN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          CLI       2(R1),X'01'                                          SCN01544
          BNE       PLOOP                                                SCN01545
          SNAPS     STCK,SPEC,4                                          SCN01546
          LA        R1,SCARD                                             SCN01547
          SR        R2,R2                                                SCN01548
          BR        R14                                                  SCN01549
 SPEC     DC        X'00000100'                                          SCN01550
 .SSN1    ANOP                                                           SCN01551
          LTORG                                                          SCN01552
          END                                                            SCN01553
-FILE 469;  2066 RECORDS:  
0         TITLE     '*** MACROS USED IN THIS DECK ***'                   SPC00001
          MACRO                                                          SPC00002
 &NAME    MULTSS                                                         SPC00003
          LCLA      &A                                                   SPC00004
 &A       SETA      24                                                   SPC00005
 &NAME    DS        0H                                                   SPC00006
 .A       ANOP                                                           SPC00007
          M         R2,TSS+&A                                            SPC00008
 &A       SETA      &A-4                                                 SPC00009
          AIF       (&A GE 0).A                                          SPC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SR        R3,R3                                           V0L0 SPC02057
          ST        R3,0(R6,R12)                                    V0L0 SPC02058
          LR        R7,R9                                           V0L0 SPC02059
          SR        R7,R15                                          V0L0 SPC02060
          STH       R7,ZVDIME                                       V0L0 SPC02061
          GETR      R14,TSAVER+16                                   V0L0 SPC02062
          BR        R14                                             V0L0 SPC02063
 *******  END OF TDIME2       **************************************V0L0 SPC02064
          LTORG                                                          SPC02065
          END                                                            SPC02066
-FILE 470;   128 RECORDS:  
0*********************************************************************** 00000002
 *********************************************************************** 00000003
 *                                                                     * 00000004
 *       WATFOR COMPILER - VERSION 0 LEVEL 7         AUGUST 6/68.      * 00000005
 *                                                                     * 00000006
 *********************************************************************** 00000007
 *********************************************************************** 00000008
 *                                                                       00000009
 *******************                                                     00000010
 *        FOLLOWING ARE THE DECLARATIONS FOR THE INST PARAMETERS         00000020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .SET2    ANOP                                                           00000980
 &VCHECK1 SETA      0                                                    00000990
 &VCHECK2 SETA      0                                                    00001000
 .VEND    ANOP                                                           00001010
          AIF       ('&CHRMODE' EQ 'BCDIC').SET4                         00001020
 &VCHECK3 SETA      6                                                    00001030
          AGO       .VEND1                                               00001040
 .SET4    ANOP                                                           00001050
 &VCHECK3 SETA      0                                                    00001060
 .VEND1   ANOP                                                           00001070
-FILE 471;   331 RECORDS:  
0         TITLE     'DEFINITIONS'                                        CDF00001
 R0       EQU       0                                                    CDF00002
 R1       EQU       1                                                    CDF00003
 R2       EQU       2                                                    CDF00004
 R3       EQU       3                                                    CDF00005
 R4       EQU       4                                                    CDF00006
 R5       EQU       5                                                    CDF00007
 R6       EQU       6                                                    CDF00008
 R7       EQU       7                                                    CDF00009
 R8       EQU       8                                                    CDF00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 Z8       EQU       ZR8                 /*PATCH*/                        CDF00322
 Z9       EQU       ZR9                 /*PATCH*/                        CDF00323
 Z10      EQU       ZR10                /*PATCH*/                        CDF00324
 Z11      EQU       ZR11                /*PATCH*/                        CDF00325
 Z12      EQU       ZR12                /*PATCH*/                        CDF00326
 Z13      EQU       ZR13                /*PATCH*/                        CDF00327
 Z14      EQU       ZR14                /*PATCH*/                        CDF00328
 Z15      EQU       ZR15                /*PATCH*/                        CDF00329
 ZSAVER   EQU       Z13                 /*****PATCH*****/                CDF00330
          TITLE     ' '                                                  CDF00331
-FILE 472;   863 RECORDS:  
0         TITLE     'COMMUNICATIONS REGION'                              COM00001
 CSTART   BALR      R11,0                                                COM00002
          USING     *,R11                                                COM00003
          LA        R10,CSAVER                                           COM00004
          CLINK1    MSTART                                               COM00005
          DROP      R11                                                  COM00006
 CSTOP    BALR      R11,0                                                COM00007
          USING     *,R11                                                COM00008
          LA        R10,CSAVER                                           COM00009
          CLINK1    MSTOP                                                COM00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                  NEXT 4 HALF WORDS POINT TO DO PARAMETERS             COM00854
          AIF       ('&WATTYPE' EQ 'DISTR').CCN1                         COM00855
          ORG       CSAVER+3900                                          COM00856
 .CCN1    ANOP                                                           COM00857
 DMAXNEST EQU       &DOSTACK                                             COM00858
 CDOIOCT  DC        A(*+88)                                              COM00859
 CDOIOST  DC        21F'0'                                               COM00860
 CDTOPSTK DC         A(CDOSTK+DMAXNEST*16)    POINTER TO TOP ENTRY       COM00861
 CDOSTK   DC        (DMAXNEST+1)X'7FFFFFFF00FFFFFF0000000000000000'      COM00862
          TITLE     ' '                                                  COM00863
-FILE 473;  1921 RECORDS:  
0         TITLE     'START AREA'                                         STA00001
 * EXECUTION PROGRAMME INTERRUPT MONITOR                                 STA00002
 *                                                                       STA00003
 XTIMINT  DC        0H'0'                                                STA00004
          USING     XTIMINT,15                                           STA00005
          MVI       XISNRTN+1,X'00'                                      STA00006
          BR        R14                                                  STA00007
          DROP      15                                                   STA00008
          USING     ZPIE,1                                               STA00009
          USING     XRUPT,15                                             STA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 XEXP42   LD        F0,XEXPLIT                                           STA01912
          SDR       F2,F2                                                STA01913
          B         XCDIV116                                             STA01914
          DROP      15                                                   STA01915
          LTORG                                                          STA01916
      EJECT                                                              STA01917
 OBJECT   DS        0F                                                   STA01918
          DS        &MEMSIZE.C                                           STA01919
 SYMBOL   DS        0D                                                   STA01920
          TITLE     ' '                                                  STA01921
-FILE 474;  1083 RECORDS:  
0         MACRO                                                          MAC00001
 &ADDR    BEGTRACE                                                       MAC00002
          CNOP      2,4                                                  MAC00003
 &ADDR    STM       7,8,*+14                                             MAC00004
          L         8,*+6                                                MAC00005
          BALR      7,8                                                  MAC00006
          DC        V(TRACE)                                             MAC00007
          DS        2F                                                   MAC00008
          MEND                                                           MAC00009
          MACRO                                                          MAC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B         XERRUV1                                              MAC01074
          MEND                                                           MAC01075
          MACRO                                                          MAC01076
 &NAME    XROUTS    &NUM                                                 MAC01077
 &NAME    MVC       XLAS&NUM+2(2),2(R14)                                 MAC01078
 XLAS&NUM LA        R15,*-*(R12)                                         MAC01079
          CLC       XUNDEF(&NUM),0(R15)                                  MAC01080
          BNER      R14                                                  MAC01081
          B         XERRUV0                                              MAC01082
          MEND                                                           MAC01083
-FILE 475;    39 RECORDS:  
0ESD          IHCUATBL      READ           WRITE                  UAT 0001
 ESD          SERCOM         SCARDS         SPRINT                 UAT 0002
 ESD          SPUNCH                                                 UAT 0003
 TXT           	     q    Q  8                    &          UAT 0004
 TXT                            &                             &  UAT 0005
 TXT                                    &                        UAT 0006
 TXT   y           &             	                &                UAT 0007
 TXT   \                   d                             d          UAT 0008
 TXT                           d                             d  UAT 0009
 TXT  &                                                              UAT 0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  TXT  -                                                            SPIE0008
  RLD                 -                                        SPIE0009
  END                                                                    SPIE0010
 ESD          GTIMEST       GUINFO                                 GETT0001
 TXT          }0{H&0}&}0،0{    {   ^   {0{	͓{{{GETT0002
 TXT         0{     {<      D0{	͌0{o 0{-    {%      {0{*GETT0003
 TXT         	͓ {{ {0{d    {      D0{	͓ {{! {D}}\}qGETT0004
 TXT   y      }        +   -   ;                                GETT0005
 RLD                 
          h          *  GETT0006
 END                                   DATE  10-26-69 17:37             GETT0007
-FILE 476;  2326 RECORDS:  
0$R *MOUNT PAR=S475 9TP *WATFOR* QUIT=YES 'WATFOR MASTER SOURCE'                 
 $R *MOUNT PAR=S416 9TP *POOL* RING=IN QUIT=YES 'LP-UPDATE'                      
 $EMP NEWATFOR                                                                   
 $EMP CDEFN                                                                      
 $EMP COMMR                                                                      
 $EMP STARTA                                                                     
 $EMP WATMAC                                                                     
 $EMP WATERR                                                                     
 $EMP OPTIONS                                                                    
 $EMP WATGRIPES                                                                  
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $COP *SOURCE* NEWATFOR(LAST+1)                                                  
  LCS            LCSYMBOL                                                        
  LDT            XTART                                                           
 $ENDFILE                                                                        
 $LIST WATMAC                                                                    
 $LIS WATERR                                                                     
 $R DIAGS SCARDS=WATERR 0=WATGRIPES                                              
 $RUN *OBJSCAN                                                                   
 NEWATFOR                                                                        
 *SWAT                                                                           
-FILE 477;    51 RECORDS:  
0         TITLE 'WATFOR DIAGNOSTICS EDITOR'                              WATD0001
 *                                                                       WATD0002
 *        SCARDS - WATFOR ERROR MESSAGES (AS RECEIVED)                   WATD0003
 *        UNIT 0 - OUTPUT FILE TO BE INDEXED BY ERROR CODE               WATD0004
 *                                                                       WATD0005
 DIAGEDIT CSECT                                                          WATD0006
          PRINT NOGEN                                                    WATD0007
          ENTER 10                                                       WATD0008
 NC       SCARDS BUF,LEN,EXIT=EXIT                                       WATD0009
          CLI   BUF+1,C'A'         CHECK FOR A REAL DIAGNOSTIC           WATD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OBF      DS    CL256                                                    WATD0042
 KEY      DC    F'0'                                                     WATD0043
 LEN      DS    H                                                        WATD0044
 OLEN     DS    H                                                        WATD0045
 *                                                                       WATD0046
 P1       EQU   3                                                        WATD0047
 P2       EQU   4                                                        WATD0048
 QT       EQU   C''''                                                    WATD0049
 MARGIN   EQU   8                                                        WATD0050
          END                                                            WATD0051
-FILE 478;    16 RECORDS:  
0SYM              DIAGEDIT  NCh  ԥh  ƥh  h  h  h        0001
 SYM             INC  DECh  h  h  h  {h  Dh  Hh       0002
 SYM             OEXIT  MVMSGb  SBUF  b SOBF   Sb UKEYb YL    0003
 SYM           ENc OLEN   DIAGEDIT h 0h 4h 8h      0004
 ESD          DIAGEDIT       GETSPACE       SCARDS                     0005
 ESD          WRITE          SYSTEM                                     0006
 TXT          }   0s0	& &J 1q}ؓ0s4   S  Y        0007
 TXT                    	ČOnAT nZTn-VƵn'     0008
 TXT         0 sYʈS n'  }  sӺ  ~S  KsVTK     0009
 TXT   y      sXW0s8}  S       U   H       	͌00sK ~T    0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT   \                                                                0011
 TXT  S                                                                  0012
 TXT  0                                                                  0013
 RLD                             {  D   0   4    0014
 RLD              8 	                                              0015
 END                                                                        0016
-FILE 479;  7567 RECORDS:  
0 /*                                                                             
                             S  P  L                                             
                                                                                 
     A MEMORY-RESIDENT TRANSLATOR-INTERPRETER FOR STUDENT PL.                    
                                                                                 
                                                                                 
                                        DAVID B. WORTMAN                         
                                        STANFORD UNIVERSITY                      
                                        JANUARY  1969                            
                                                                                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  FLUSH:                                                                         
     DO WHILE  SEEN_BEGIN_MARK;                                                 
        CALL INPUT_CHECK(INPUT);                                                 
     END;                                                                        
     EXECUTING,SEEN_BEGIN_MARK,SEEN_DATA_MARK = FALSE;                           
     COMPILING = TRUE;                                                           
 END;                                                                            
                                                                                 
                                                                                 
 EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF 
-FILE 480;   984 RECORDS:  
0SPL      TITLE 'MTS INTERFACE FOR THE XPL COMPILER SYSTEM (SPL) '       SPL00001
          SPACE 10                                                       SPL00002
 *      (HURRIEDLY) ADAPTED FOR MTS BY:                                  SPL00003
 *                                                                       SPL00004
 *                     DAVID A. TWYVER                                   SPL00005
 *                     UNIVERSITY OF BRITISH COLUMBIA                    SPL00006
 *                     JANUARY 1969                                      SPL00007
 *                                                                       SPL00008
          EJECT                                                          SPL00009
 *                                                                       SPL00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       SPL00975
 *                                                                       SPL00976
 MONLINKD DSECT                                                          SPL00977
          DS    0F                                                       SPL00978
          ORG   MONLINKD+X'68'                                           SPL00979
 WHERE    DS    1F                      ADDRESS OF INTERUPT              SPL00980
          ORG   MONLINKD+X'6C'                                           SPL00981
 WHY      DS    1F                      REASON FOR INTERUPT              SPL00982
          EJECT                                                          SPL00983
          END                                                            SPL00984
-FILE 481;   984 RECORDS:  
0XPL      TITLE 'MTS INTERFACE FOR THE XPL COMPILER SYSTEM (XPL) '       XPL00001
          SPACE 10                                                       XPL00002
 *      (HURRIEDLY) ADAPTED FOR MTS BY:                                  XPL00003
 *                                                                       XPL00004
 *                     DAVID A. TWYVER                                   XPL00005
 *                     UNIVERSITY OF BRITISH COLUMBIA                    XPL00006
 *                     JANUARY 1969                                      XPL00007
 *                                                                       XPL00008
          EJECT                                                          XPL00009
 *                                                                       XPL00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       XPL00975
 *                                                                       XPL00976
 MONLINKD DSECT                                                          XPL00977
          DS    0F                                                       XPL00978
          ORG   MONLINKD+X'68'                                           XPL00979
 WHERE    DS    1F                      ADDRESS OF INTERUPT              XPL00980
          ORG   MONLINKD+X'6C'                                           XPL00981
 WHY      DS    1F                      REASON FOR INTERUPT              XPL00982
          EJECT                                                          XPL00983
          END                                                            XPL00984
-FILE 482;   984 RECORDS:  
0XPLG      TITLE 'MTS INTERFACE FOR THE XPL COMPILER SYSTEM (XPLGO) '    XPLG0001
          SPACE 10                                                       XPLG0002
 *      (HURRIEDLY) ADAPTED FOR MTS BY:                                  XPLG0003
 *                                                                       XPLG0004
 *                     DAVID A. TWYVER                                   XPLG0005
 *                     UNIVERSITY OF BRITISH COLUMBIA                    XPLG0006
 *                     JANUARY 1969                                      XPLG0007
 *                                                                       XPLG0008
          EJECT                                                          XPLG0009
 *                                                                       XPLG0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       XPLG0975
 *                                                                       XPLG0976
 MONLINKD DSECT                                                          XPLG0977
          DS    0F                                                       XPLG0978
          ORG   MONLINKD+X'68'                                           XPLG0979
 WHERE    DS    1F                      ADDRESS OF INTERUPT              XPLG0980
          ORG   MONLINKD+X'6C'                                           XPLG0981
 WHY      DS    1F                      REASON FOR INTERUPT              XPLG0982
          EJECT                                                          XPLG0983
          END                                                            XPLG0984
-FILE 483;  1527 RECORDS:  
0TRCP     TITLE 'TRACE ROUTINE FOR THE STANFORD XPL COMPILER SYSTEM'     XTR00001
 *                                                                       XTR00002
 *                                                                       XTR00003
 *                                                                       XTR00004
 *              THIS PROGRAM PROVIDES A MACHINE LEVEL TRACE OF PROGRAM   XTR00005
 *              EXECUTION.  IT IS ACTIVATED BY THE XPL STATEMENT:        XTR00006
 *                                                                       XTR00007
 *              CALL  TRACE ;                                            XTR00008
 *                                                                       XTR00009
 *              AND TERMINATED BY THE XPL STATEMENT:                     XTR00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'    MVO PACKUNPK                '                  3C0 XTR01518
          DC    C'ZAP CP  AP  SP  MP  DP          '                  3E0 XTR01519
 *                                                                       XTR01520
 *                                                                       XTR01521
 *                                                                       XTR01522
 DATAEND  DS    0H                      END OF TRACE ROUTINE DATA AREA   XTR01523
 *                                                                       XTR01524
 *                                                                       XTR01525
 *                                                                       XTR01526
          END                                                            XTR01527
-FILE 484;    93 RECORDS:  
0COMPACTIFY:                                                                     
    PROCEDURE;                                                                   
    DECLARE (I, J, K, L, ND, TC, BC, DELTA) FIXED;                               
    DECLARE DX_SIZE LITERALLY '500', DX(DX_SIZE) BIT(16);                        
    DECLARE MASK FIXED INITIAL ("FFFFFF"), LOWER_BOUND FIXED, TRIED BIT(1);      
    /* FIRST WE MUST SET THE LOWER BOUND OF THE COLLECTABLE AREA */              
    IF LOWER_BOUND = 0 THEN LOWER_BOUND = FREEBASE;                              
  DO TRIED = 0 TO 1;                                                             
    ND = -1;                                                                     
    /* FIND THE COLLECTABLE DESCRIPTORS  */                                      
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       DECLARE T FIXED, SAVEAREA(3) FIXED;                                       
                                                                                 
       CALL INLINE("90",0,2,SAVEAREA);    /*  STM 0,2,SAVEAREA  */               
       CALL INLINE("0A",2,6);             /*  SVC GETELT        */               
       CALL INLINE("50",2,0,T);           /*  ST  2,T           */               
       CALL INLINE("98",0,2,SAVEAREA);    /*  LM  0,2,SAVEAREA  */               
                                                                                 
       RETURN T/3;                                                               
 END TIME_OF_DAY;                                                                
                                                                                 
-FILE 485;  4221 RECORDS:  
0                                                                              /*
  X          X          CCCCC               OOOOO            M         M         
   X        X          C     C             O     O           MM       MM         
    X      X          C       C           O       O          M M     M M         
     X    X          C         C         O         O         M  M   M  M         
      X  X           C                   O         O         M   M M   M         
       XX            C                   O         O         M    M    M         
       XX            C                   O         O         M         M         
      X  X           C                   O         O         M         M         
     X    X          C         C         O         O         M         M         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       /* CLOCK(3) GETS SET IN PRINT_SUMMARY */                                  
       CALL PRINT_SUMMARY;                                                       
                                                                                 
    END MAIN_PROCEDURE;                                                          
                                                                                 
                                                                                 
 CALL MAIN_PROCEDURE;                                                            
 RETURN SEVERE_ERRORS;                                                           
                                                                                 
 EOF EOF EOF                                                                     
-FILE 486;  1525 RECORDS:  
0   /*  ANALYZER   ---   A SYNTAX ANALYSIS AND TABLE BUILDING PROGRAM            
                                                                                 
       J. J. HORNING AND W. M. MC KEEMAN      STANFORD UNIVERSITY                
                                                                                 
       THIS PROGRAM BUILDS TABLES DIRECTLY ACCEPTABLE FOR USE IN                 
          THE COMPILER XCOM OR THE PROTO-COMPILER SKELETON                       
                                                                                 
    INPUT TO ANALYZER MAY BE NEARLY "FREE FORMAT."                               
    CARDS WITH THE CHARACTER $ IN COLUMN 1 ARE TREATED AS COMMENT OR CONTROL     
       CARDS, AND LISTED UNCHANGED.  THE CHARACTER IN COLUMN 2 IS THE CONTROL    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
             ERROR_COUNT || ' ERRORS WERE DETECTED.';                            
       ELSE OUTPUT = '******************** ... ' || ERROR_COUNT ||               
          ' ERRORS WERE DETECTED.';                                              
       ITERATION_COUNT = ITERATION_COUNT + 1;                                    
       IF AMBIGUOUS |  CONTROL(BYTE('I')) THEN TROUBLE_COUNT = 0;               
    END;                                                                         
    IF  AMBIGUOUS THEN CALL PUNCH_PRODUCTIONS;                                  
    IF CONTROL(BYTE('P')) THEN OUTPUT = 'PUNCHING COMPLETE.';                    
  END;                                                                           
 EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF 
-FILE 487;   122 RECORDS:  
0$             X P L   G R A M M A R                                             
 $                                                                               
 $                                                                               
 $ITERATE                                                                        
 $PUNCH                                                                          
 $                                                                               
 $                                                                               
 <PROGRAM> <STATEMENT LIST>                                                      
 <STATEMENT LIST> <STATEMENT>                                                    
      <STATEMENT LIST> <STATEMENT>                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 <SUBSCRIPT HEAD>     <IDENTIFIER> (                                             
                      <SUBSCRIPT HEAD> <EXPRESSION> ,                            
 <CONSTANT>           <STRING>                                                   
                      <NUMBER>                                                   
 $                                                                               
 $                                                                               
 $                                                                               
 $                                                                               
 $                                                                               
 $OUTPUT                                                                         
-FILE 488;   834 RECORDS:  
0 /*   SKELETON                                                                  
                 THE PROTO-COMPILER OF THE XPL SYSTEM                            
                                                                                 
                                                                                 
 W. M. MCKEEMAN         J. J. HORNING           D. B. WORTMAN                    
                                                                                 
 INFORMATION &          COMPUTER SCIENCE        COMPUTER SCIENCE                 
 COMPUTER SCIENCE,      DEPARTMENT,             DEPARTMENT,                      
                                                                                 
 UNIVERSITY OF          STANFORD                STANFORD                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       CALL PRINT_SUMMARY;                                                       
                                                                                 
    END MAIN_PROCEDURE;                                                          
                                                                                 
                                                                                 
 CALL MAIN_PROCEDURE;                                                            
 RETURN SEVERE_ERRORS;                                                           
                                                                                 
 EOF EOF EOF                                                                     
 /*                                                                              
-FILE 489;   816 RECORDS:  
0LOAD     TITLE '                       DYNAMIC LOADING ROUTINES'        PL1L0001
 DYNAMIC# CSECT                                                          PL1L0002
          SPACE 5                                                        PL1L0003
 *********************************************************************** PL1L0004
          ENTRY LOAD#                                                    PL1L0005
 *********************************************************************** PL1L0006
          SPACE                                                          PL1L0007
          USING LOAD#,15                                                 PL1L0008
 LOAD#    STM   0,14,SAFETY             SAVE CALLER'S REGS               PL1L0009
          MVI   LOADSW,LOAD             WE ARELOADING                    PL1L0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LOADTYPE DS    0BL1                    LOAD TYPE                        PL1L0807
 RTNREG   DS    A                       TO RESTORE REGISTER 14           PL1L0808
 SI       DS    A                       STORAGE INDEX                    PL1L0809
 CPUTIME  DS    F                       CPU TIME TO LOAD                 PL1L0810
 ELTIME   DS    F                       ELAPSED TIME TO LOAD             PL1L0811
 ENDL     DS    0D                                                       PL1L0812
 PTRS     EQU   FOREPTR                                                  PL1L0813
 LOADLTH  EQU   ENDL-LOADLIST           TOTAL AMOUNT OF LOAD LIST        PL1L0814
          SPACE 5                                                        PL1L0815
          END                                                            PL1L0816
-FILE 490;    46 RECORDS:  
0 BALR 10,0                                                              PL1D0001
 * THIS ROUTINE SETUPS *PL1DIRECTORY                                     PL1D0002
 * SCANS FILE ASKED FOR                                                  PL1D0003
 * WRITES OUT *PL1DIRECTORY ON UNIT 1                                    PL1D0004
  USING *,10                                                             PL1D0005
  LA 13,SA                                                               PL1D0006
  SPACE 1                                                                PL1D0007
  SCARDS FILENAME,EXIT=STOP                                              PL1D0008
    LA 1,FILENAME                                                        PL1D0009
    CALL GETFD                                                           PL1D0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ONE DC F'1'                                                             PL1D0037
  SPACE                                                                  PL1D0038
 SW DC X'0'                                                              PL1D0039
  DS 0F                                                                  PL1D0040
 OUT DS CL8                                                              PL1D0041
 INFO DS 4F                                                              PL1D0042
 SA DS 18F                                                               PL1D0043
  LTORG                                                                  PL1D0044
 REG DS 1024F                                                            PL1D0045
  END                                                                    PL1D0046
-FILE 491;    23 RECORDS:  
0SYM           h  h  h  h  h  h   h  óg  IHB0005B    0001
 SYM             RDLOOPg  IHB0006Bh  *h  -  h  /h  h  @    0002
 SYM           h  h  dh  hh  h   h  mh  h  {h  Dh    0003
 SYM             Hh  h  }h  M h  Q  WNOTEXTh h h     0004
 SYM           h h h h  h  RSTSW STOPg FI    0005
 SYM           LENAME   c FDUBb *ONEa -SW   /H        0006
 SYM           b OUT  C %INFO  A @SA   Dh Hh h }    0007
 SYM           h Mh Q  h   h    B UREG                 0008
 ESD                       UGETFD          NOTE                       0009
 ESD          SCARDS         READ           WRITE                      0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT         0~Їm  U   m                 	Č~N~T~O~    0014
 TXT   y      N~T~RU 0~ЇQ  U   Q   M   }           	Č    0015
 TXT   \      ~0 n ~;N~T~K~~20~~            0016
 TXT          *         	k~;0k ~;00~K                      0017
 TXT  &                                                                 0018
 TXT  H                      ENDCSIESD                                   0019
 RLD                       *  /    @    d  h    {    0020
 RLD               D  H                       0021
 RLD              H 	     }   M                            0022
 END                                                                        0023
-FILE 492;   278 RECORDS:  
0ASM  TITLE 'F ASSEMBLER MASTER ROOT SEGMENT--RELEASE VERSION'           00020020
          ISEQ  73,80                                                    00040020
 *TITLE-ASMGASM- PHASE 'ASM'- MASTER ROOT SEGMENT                        00060020
 *FUNCTION- PERMANENT RESIDENT PHASE.                                    00080020
 *   SAVES CONTROL PROGRAM (O.S. OR INVOKER) REGS.                       00100020
 *   BRANCHES TO ASMGMAC TO INITIATE MACRO GENERATION.                   00120020
 *   RECEIVES CONTROL FROM 'MAC' AT END OF ASSEMBLY, AND RETURNS TO      00140020
 *   CONTROL PROGRAM.                                                    00160020
 *   DEFINES DCB'S FOR ALL 8 DATASETS.                                   00180020
 *ENTRY POINT- ASMGASM                                                   00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L         B0,=A(ASMGASM)                                       05380020
          DROP      A                                                    05400020
          USING     ASMGASM,B0                                           05420020
          MVC       PRINTMSG(59),BUFFMESG                                05440020
          B         ABORT1                                               05460020
 BUFFMESG DC        CL59'   ASMG990I   INSUFFICENT MEMORY TO BUFFER UTILX05480020
                ITIES.'                                                  05500020
          SPACE     3                                                    05520020
          LTORG                                                          05540020
          END       ASMGASM                                              05560020
-FILE 493;  2199 RECORDS:  
0         ICTL      1,71,20                                              00020020
          ISEQ      73,80                                                00040020
          PRINT     ON,GEN,NODATA                                        00060020
 BUFF     TITLE     ' '                                                  00080020
 *********************************************************************** 00100020
 *                                                                       00120020
 *        THIS DECK CONTAINS THE BUFFERING ROUTINES FOR ASMG.            00140020
 *                                                                       00160020
 *                  WRITTEN AUG. 67 BY RENNIE PETERSEN                   00180020
 *                                                                       00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 &WORK    SETA      1                                                    43800020
 .USP     ANOP                                                           43820020
 UCT&WORK DS        CL(UCTLNGTH)                                         43840020
 &WORK    SETA      &WORK+1                                              43860020
          AIF       (&WORK LE &MAXUT).USP                                43880020
          EJECT                                                          43900020
 *********************************************************************** 43920020
 *        AND NOW FOR MY LAST ACT...                                     43940020
 *                                                                       43960020
          END       ASMGBUFF                                             43980020
-FILE 494;   621 RECORDS:  
0FD       TITLE 'G ASSEMBLER DIAGNOSTIC PROCESSOR'                       00020020
          ISEQ  73,80                                                    00040020
          SPACE 3                                                        00060020
          MACRO                                                          00080020
          EPTR  &MAXNO                   GENERATE ERROR POINTERS         00100020
          GBLA  &GMAXNO                  MAXIMUM NUMBER OF ERRORS        00120020
          LCLA  &NBR                     ERROR NUMBER BINARY             00140020
          LCLC  &CNBR                    ERROR NUMBER CHAR               00160020
 &NBR     SETA  1                                                        00180020
 * GENERATED RELATIVE POINTER TABLE                                      00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EMSG  104,12,'COPY CODE NOT FOUND'                             12240020
          EMSG  105,12,'EOD ON SYSTEM MACRO LIBRARY'                     12260020
          EMSG  106,08,'NOT NAME OF DSECT OR DXD'                        12280020
          EMSG  107,04,'INVALID OPERAND'                                 12300020
          EMSG  108,16,'PREMATURE EOD'                                   12320020
          EMSG  109,08,'PRECISION LOST'                                  12340020
          EMSG  110,08,'EXPRESSION VALUE TOO LARGE'                      12360020
 EFM      DC    AL1(39,04),C'MESSAGE NOT DEFINED FOR THIS ERROR CODE'    12380020
 ENDM     DC    AL1(0)                                                   12400020
          END       ASMGFD                                               12420020
-FILE 495;   824 RECORDS:  
0FEX      TITLE     ' LOAD AND EXECUTE PHASE '                           00020020
          ISEQ      73,80                                                00040020
          COPY      ASMGSET                                              00060020
          PRINT     NOGEN                                                00080020
          FDIMEN                                                         00100020
          PRINT     GEN                                                  00120020
 ASMGFEX  CSECT                                                          00140020
 R0       EQU       0                                                    00160020
 R1       EQU       1                                                    00180020
 R2       EQU       2                                                    00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC          C'DECIMAL OVERFLOW                '                16300020
          DC          C'DECIMAL DIVIDE OVERFLOW         '                16320020
          DC          C'EXPONENT OVERFLOW               '                16340020
          DC          C'EXPONENT UNDERFLOW              '                16360020
          DC          C'SIGNIFICANCE EXCEPTION          '                16380020
          DC          C'FLOATING DIVIDE OVERFLOW        '                16400020
 *******  WARNING  *******    CONSTANTS ARE CAREFULLY ARRANGED           16420020
 *                            TAMPERING WITH THEIR ORDER IS DANGEROUS    16440020
 *        WRITTEN BY DAVE POTTER, AUGUST 1967                            16460020
          END                                                            16480020
-FILE 496;   576 RECORDS:  
0FI TITLE '                         FI, ESD OUTPUT PHASE  '              00020020
          ISEQ  73,80                                                    00040020
          COPY      ASMGSET                                              00060020
 ASMGFI   CSECT                                                          00080020
 *                                                                     * 00100020
 *                                                                     * 00120020
 *TITLE 'ASMGFI      F ASSEMBLER INTERLUDE PHASE                       * 00140020
 *FUNCTION/OPERATION-                                                  * 00160020
 *   TO WRITE THE EXTERNAL SYMBOL DICTIONARY ON SYSPRINT, SYSPUNCH,    * 00180020
 *   AND/OR SYSGO DATA SETS. THE EXTERNAL SYMBOL TABLE SEGMENTS AND    * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NOESD    EQU   GRC            COUNTS THROUGH ESD                        11340020
 SRPTR    EQU   GRC                                                      11360020
 ADJPTR   EQU   GRD            POINTS TO ESD ADJUSTMENT TABLE            11380020
 LADJP    EQU       SRR        POINTS TO LITERAL ADJUSTMENT TABLE        11400020
 ACC      EQU   SP1           ACCUMLATOR                                 11420020
 DSPTR    EQU   GRY                                                      11440020
 INTSUB   EQU   GRY            REGISTER FOR SUBROUTINE SUB               11460020
 ADJCT    EQU   GRY            USED TO SEARCH ADJ TABLE FOR A LIT POOL   11480020
  SPACE                                                                  11500020
          END       ASMGFI                                               11520020
-FILE 497;  1019 RECORDS:  
0FPP      TITLE 'G ASSEMBLER POST PROCESSOR'                             00020020
          ISEQ  73,80                                                    00040020
          COPY      ASMGSET                                              00060020
 *                                                                       00080020
 ASMGFPP  START                                                          00100020
          PRINT      NOGEN                                               00120020
          FDIMEN    SRR=3,GRC=8,GRA=9,GRB=10                             00140020
          PRINT GEN                                                      00160020
          SPACE 2                                                        00180020
 *                                                                     * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        X'00'                                                20200020
          ORG                                                            20220020
 SQTRTAB3 DC        256X'00'            TABLE TO FIND BLANKS             20240020
          ORG       SQTRTAB3+C' '                                        20260020
          DC        X'FF'                                                20280020
          ORG                                                            20300020
          LTORG                                                          20320020
 RESBUF   DS      0D,XL(XRFSIZ)          INTERNAL I/O BUFFERS            20340020
 ENDFPP   DS    0D                                                       20360020
          END       ASMGFPP                                              20380020
-FILE 498;  1602 RECORDS:  
0F1       TITLE 'MACRO GENERATOR INITIALIZATION PHASE'                   00020020
          ISEQ      73,80                                                00040020
 *TITLE-'ASMGF1' (PHASE F1)                                              00060020
 *FUNCTION- INITIALIZATION, INCLUDING...                                 00080020
 *   PROCESS INVOKER'S DD NAMES, IF ANY.                                 00100020
 *   OPEN ALL NECESSARY DATASETS.                                        00120020
 *   GET MAIN STORAGE AND ALLOCATE BUFFER AREAS.                         00140020
 *   INITIALIZE CONSTANTS AND INDICATORS IN COMMON AREA FOR PHASES       00160020
 *     F1-F3.                                                            00180020
 *   BUILD HASH TABLE AND CHAINING FOR OP CODES IN GLOBAL DICTIONARY.    00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       31860020
 COMMON   INSTSET                                                        31880020
 *                                                                       31900020
 GLDEND   EQU       *                   TO AVOID UNDEF SYMB ERRORS       31920020
          EJECT                                                          31940020
 *        DCB DSECT                                                      31960020
 *                                                                       31980020
          DCBD  DSORG=PS                                                 32000020
          EJECT                                                          32020020
          END       ASMGF1                                               32040020
-FILE 499;  4186 RECORDS:  
0F2       TITLE 'MACRO-GENERATOR EDITING PHASE'                          00020020
          ISEQ      73,80                                                00040020
 *TITLE-'ASMGF2' (PHASE F2)                                              00060020
 *FUNCTION/OPERATION                                                     00080020
 *   PROCESSES ALL SOURCE, COPY AND SYSTEM MACRO STATEMENTS INTO EDITED  00100020
 *   TEXT. GENERATES A GLOBAL DICTIONARY, A LOCAL DICTIONARY FOR THE     00120020
 *   SOURCE PROGRAM AND ONE LOCAL DICTIONARY FOR EACH MACRO DEFINITION   00140020
 *   PROCESSED.                                                          00160020
 *ENTRY POINTS                                                           00180020
 *       ASMGF2      REACHED VIA XCTL FROM PHASE IEUF1                   00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'                      83540020
          DC    X'C00A0B0C0D0E0F101112CACBCCCDCECF'                      83560020
          DC    X'D0131415161718191A1BDADBDCDDDEDF'                      83580020
          DC    X'E0E11C1D1E1F20212223EAEBECEDEEEF'                      83600020
 FINDEC   DC    X'00010203040506070809FAFBFCFDFEFF'                      83620020
 *                                                                       83640020
 *********************************************************************** 83660020
          EJECT                                                          83680020
          DCBD  DSORG=PS                                                 83700020
          END       ASMGF2                                               83720020
-FILE 500;  3133 RECORDS:  
0F2A      TITLE '  MACRO-GENERATOR DICTIONARY SECTION IN F2 LOAD MODULE' 00020020
          ISEQ  73,80                    FIND 'EM AND FIX 'EM.           00040020
          COPY      ASMGSET                                              00060020
          SPACE     1                                                    00080020
 ASMGF2A  START                                                          00100020
          SPACE 2                                                        00120020
 *TITLE 'ASMGF2A'... SUBROUTINES FOR ASMGF2                            * 00140020
 *FUNCTION/OPERATION                                                     00160020
 *   PROVIDES VARIOUS SUBROUTINES TO BE USED BY MODULE ASMGF2.           00180020
 *ENTRY POINTS                                                           00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'                      62480020
          DC    X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'                      62500020
          DC    X'C00A0B0C0D0E0F101112CACBCCCDCECF'                      62520020
          DC    X'D0131415161718191A1BDADBDCDDDEDF'                      62540020
          DC    X'E0E11C1D1E1F20212223EAEBECEDEEEF'                      62560020
 FINDEC   DC    X'00010203040506070809FAFBFCFDFEFF'                      62580020
 *********************************************************************** 62600020
          EJECT                                                          62620020
          DCBD  DSORG=PS                                                 62640020
          END       ASMGF2A                                              62660020
-FILE 501;  2534 RECORDS:  
0F3       TITLE 'MACRO GENERATOR  GENERATION PHASE  '                    00020020
          ISEQ      73,80                                                00040020
 *TITLE   'ASMGF3'.. MACRO GENERATION                                  * 00060020
 *FUNCTION/OPERATION                                                   * 00080020
 *  ASMGF3 EVALUATES CONDITIONAL ASSEMBLY EXPRESSIONS,PERFORMS         * 00100020
 *   CONDITIONAL ASSEMBLY STATEMENTS AND GENERATES ASSEMBLER EDITED    * 00120020
 *   TEXT USING MACRO DEFINITIONS AND THE ASSOCIATED EDITED INFORMATION* 00140020
 *   IN THE GLOBAL AND RELATED LOCAL DICTIONARIES.                     * 00160020
 *ENTRY POINT- ASMGF3                                                  * 00180020
 *   CALLED VIA                                                        * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ADCBIN   DC        A(0)                                                 50500020
 ADCBLB   DC        A(0)                                                 50520020
 ADCPRNT  DC        A(0)                                                 50540020
 INPLEN   DS        F                   SIZE OF INPUT AREA               50560020
 OBSIZ    DS    F                        SIZE OF OUTPUT 1 AREA           50580020
 SAVUSE   DS    2F                                                       50600020
 BUFFENT  DS        F                   ADDRESS OF BUFFERING ROUTINE     50620020
 ADLIST1  DS        F                   ADDRESS OF LIST1 IN ASM          50640020
 GDSTART  DS        0D                                                   50660020
          END       ASMGF3                                               50680020
-FILE 502;  1030 RECORDS:  
0F7C      TITLE 'AC7MLC - F/7 MAIN LINE CONTROL '                        00020020
          ISEQ  73,80                                                    00040020
 ASMGF7C  START                                                          00060020
          SPACE                                                          00080020
          PRINT      NOGEN                                               00100020
          FDIMEN                                                         00120020
          SPACE 2                                                        00140020
 *TITLE   'ASMGF7C' F/7 MAIN LINE CONTROL                              * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *   PROCESS 'EDITED TEXT RECORDS' WRITTEN BY ASMGF3                   * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          OI    TXSDOC(FRB),X'20'        SYMBOL DEFINED IN DSECT OR COM  20420020
 *                                                                       20440020
 SUBWBE   OI    TXSUBS(FRB),X'10'        SET VALUE SUBSTITUTED INDICATOR 20460020
 *                                                                       20480020
 SUBWBX   TM    TXSLAS(FRB),X'08'        TEST FOR LAST SYMBOL W.B.       20500020
          BCR   7,CRR                    RETURN TO CALLING ROUTINE       20520020
          LA    FRB,6(FRB)               INC POINTER TO NEXT SYMB W.B.   20540020
          B     SUBWBA                   PROCESS NEXT SYMB W.B.          20560020
          LTORG                                                          20580020
          END   ASMGF7C                                                  20600020
-FILE 503;  1090 RECORDS:  
0F7D      TITLE 'DC EVALUATION - PHASE 7 --- '                           00020020
          ISEQ  73,80                                                    00040020
 ASMGF7D  START                                                          00060020
          PRINT      NOGEN                                               00080020
          FDIMEN                                                         00100020
          USING *,FRB                                                    00120020
 *                                                                     * 00140020
 *TITLE 'ASMGF7D ' ...  DC EVALUATION                                  * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *   IEUF7D PROCESSES DC'S, DS'S, DXD'S, LITERALS, AND LITERAL DC'S, A * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 EVENR    EQU   GRX                      14                              21620020
 ODDR     EQU   GRY                      15                              21640020
 R1       EQU   WR1                                                      21660020
 SAVE     EQU   GRX                      14                              21680020
 WBPTR    EQU   GRB                      5                               21700020
 DS       EQU   X'27'                    DS OP-CODE                      21720020
 GR14     EQU   14                                                       21740020
 YTYPE    EQU   ATYPE                                                    21760020
          LTORG                                                          21780020
          END   DCEVL                                                    21800020
-FILE 504;  1184 RECORDS:  
0F7E     TITLE 'ASMGF7E, EXTERNAL SYMBOL DICTIONARY PROCESSOR'           00020020
          ISEQ  73,80                                                    00040020
 ASMGF7E  CSECT                                                          00060020
          PRINT DATA,NOGEN                                               00080020
          FDIMEN                                                         00100020
          USING *,FRB                                                    00120020
  SPACE                                                                  00140020
 *TITLE- ASMGF7E  EXTERNAL SYMBOL DICTIONARY PROCESSOR                 * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *   GENERATE EXTERNAL SYMBOL DICTIONARY ENTRIES                       * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 END      EQU   ACC                      END OF SEGMENT                  23500020
 ITEMCT   EQU   GRD                      ITEMS IN SEGMENT                23520020
 TXPTR    EQU   ACC                      POINTER TO TEXT                 23540020
 WBP      EQU   GRA                      POINTER TO WKBKT                23560020
 LEV1     EQU   GRA                      RETURN LEVEL 1                  23580020
 LEV2     EQU   GRB                      RETURN LEVEL 2                  23600020
 LEV3     EQU   GRD                      RETURN LEVEL 3                  23620020
 ELOOPR   EQU   GRC                      LOOP ADDRESS                    23640020
          SPACE                                                          23660020
          END                                                            23680020
-FILE 505;   104 RECORDS:  
0F7G      TITLE 'DCGETR - F/7 LITERAL DC GENERATION SUBROUTINE '         00020020
          ISEQ  73,80                                                    00040020
 ASMGF7G  START                                                          00060020
          PRINT      NOGEN                                               00080020
          FDIMEN                                                         00100020
          PRINT GEN                                                      00120020
 *                                                                     * 00140020
 *TITLE 'ASMGF7G ' ... LITERAL DC GENERATION                           * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *  ASMGF7G BUILDS A LITERAL DC EDITED TEXT RECORD FOR A OUTSTANDING   * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    AL1(IEQUAL)              EQUAL SIGN IN OPERAND FIELD     01900020
 BLNK     DC    AL1(IBLANK)                                              01920020
 COML     DC    X'00'                    COMMENTS FIELD LENGTH=0         01940020
 LOC      DC    3X'00'                   LOCATION COUNTER                01960020
 URS      DC    X'00'                    UNRESOLVED SYMBOL COUNTER=0     01980020
 LES      DC    X'00'                                                    02000020
 ALWRD    DC    F'0'                     TEMP FULL WORD                  02020020
 SAVPTR   DC    F'0'                     TEMP SAVE AREA FOR GRX          02040020
 CON4     DC    H'4'                     NO. OF LIT DC IN SYMBOL TABLE   02060020
          END   DCGTR                                                    02080020
-FILE 506;   781 RECORDS:  
0F7I  TITLE '***F7 INITIALIZATION AND I/O SUBROUTINES--   ***'           00020020
          ISEQ  73,80                                                    00040020
          MACRO                                                          00060020
 &L       CKFLG &DUMMY                                                   00080020
 *CHECK TEXT READ COMPLETE ROUTINE CALL                                  00100020
 &L       BAL   GR4,TEXTCK                                               00120020
          MEND                                                           00140020
          COPY      ASMGSET                                              00160020
 ASMGF7I  START                                                          00180020
          SPACE 1                                                        00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(VCON)                                                  15440020
          ORG   F7CT3-CT3+CSTROM                                         15460020
          DC    A(STROOM)                                                15480020
          ORG   F7CT3-CT3+CSTREF                                         15500020
          DC    A(STREFR)                                                15520020
 *                                                                       15540020
          ORG   F7CT3+CT3C*4                                             15560020
          ORG   ,                                                        15580020
          SPACE                                                          15600020
          END       ASMGF7                                               15620020
-FILE 507;    85 RECORDS:  
0F7L      TITLE 'LOGERR - F/7 LOG ERROR SUBROUTINE '                     00020020
          ISEQ  73,80                                                    00040020
 ASMGF7L  START                                                          00060020
          SPACE                                                          00080020
          PRINT      NOGEN                                               00100020
          FDIMEN                                                         00120020
          SPACE                                                          00140020
 *********************************************************************** 00160020
 *                                                                     * 00180020
 * LOGERR IS CALLED BY   ASMGF7    TO BUILD ERROR RECORD OR ADD ERROR  * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA    GR1,4(GR1,GR1)           INC RECORD LENGTH               01520020
          STH   GR1,TXRL(SP2)                                            01540020
          SPACE                                                          01560020
 RETURN   LM    SP1,SP2,SAVE2            RESTORE REGS                    01580020
          B     2(SRR)                   RETURN TO CALLING ROUTINE       01600020
          SPACE                                                          01620020
 SAVE2    DS    2F                       SP1,SP2 SAVE AREA               01640020
 SAVE4    DS    4F                       SRB-SP2 SAVE AREA               01660020
          SPACE                                                          01680020
          END   ASMGF7L                                                  01700020
-FILE 508;   611 RECORDS:  
0F7N      TITLE 'TSTRAN - F/7 TESTRAN ROUTINE '                          00020020
          ISEQ  73,80                                                    00040020
 ASMGF7N  START                                                          00060020
          SPACE                                                          00080020
          PRINT      NOGEN                                               00100020
          FDIMEN                                                         00120020
          SPACE 2                                                        00140020
 *TITLE 'ASMGF7N ',    TESTRAN                                         * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *   WHEN THE TESTRAN OPTION IS USED,ASMGF7C TRANSFERS CONTROL HERE.   * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'14'                                                    12040020
          DC    X'20'                                                    12060020
          DC    X'24'                                                    12080020
          DC    X'2C'                                                    12100020
          DC    X'28'                                                    12120020
          DC    X'20'                                                    12140020
 TEBFR    EQU   TTN                                                      12160020
 PTR      EQU   GRZ                                                      12180020
          LTORG                                                          12200020
          END   ASMGF7N                                                  12220020
-FILE 509;   358 RECORDS:  
0F7S      TITLE '            F7S,   SYMBOL TABLE PROCESSOR'              00020020
          ISEQ  73,80                                                    00040020
 ASMGF7S  START                                                          00060020
          PRINT        NOGEN                                             00080020
          FDIMEN                                                         00100020
          PRINT      GEN                                                 00120020
          SPACE 2                                                        00140020
 *                                                                     * 00160020
 *TITLE 'ASMGF7S ' ...  SYMBOL TABLE PROCESSOR                         * 00180020
 *FUNCTION/OPERATION-                                                  * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        X'101112131415161718191A1B1C' LETTERS                06980020
          DC        X'1D1E1F20212223242526272829' LETTERS                07000020
          DC        X'0A0B0C'                     FUNNY LETTERS $ # @    07020020
          DC        X'000000000000000000000000'   BLANK                  07040020
  SPACE                                                                  07060020
 FLAGS    DC    X'00'                    FLAG FOR FOLLOWIN INDICATORS    07080020
 GETSW    EQU   X'0F'                         GET MODE                   07100020
 REFSW    EQU   X'F0'                         REF MODE                   07120020
 PUTSW    EQU   X'00'                         PUT MODE                   07140020
          END   STGETR                                                   07160020
-FILE 510;   863 RECORDS:  
0F7V      TITLE 'PHASE 7 EVALUATION ROUTINE'                             00020020
          ISEQ  73,80                                                    00040020
 ASMGF7V  START                                                          00060020
 EEVAL    EQU   ASMGF7V                                                  00080020
          PRINT     NOGEN                                                00100020
          FDIMEN                                                         00120020
          PRINT     GEN                                                  00140020
 * SP1 AT ENTRY CONTAINS A POINTER TO THE FIRST CHARACTER OF THE         00160020
 * EXPRESSION TO BE EVALUATED.                                           00180020
 * SP1 AT EXIT CONTAINS A POINTER TO THE CHARACTER FOLLOWING THE         00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ENDOE    DS    C                        END EXPRESSION FLAG             17080020
 NEWOP    DS    C                        LATEST OPERATION FOUND          17100020
 LREF     DS    C                        L'SYM REF  ON(1) OFF(0)         17120020
 NCOMP    DS    11F                                                      17140020
 SAVE     EQU   NCOMP                                                    17160020
 NPTR     DC    A(NTRMS)                 ADDRESS OF NTRMS                17180020
 TPTR     DC    A(TERMS)                 ADDRESS OF TERMS                17200020
 OPTR     DC    A(OPRNS)                 ADDRESS OF OPRNS                17220020
 COMP1    DC    A(RLIST+30)              CONST TO CHECK NO. OF TERMS     17240020
          END                                                            17260020
-FILE 511;  1123 RECORDS:  
0F7X      TITLE 'TXGET - F/7 GET STATEMENT ROUTINE '                     00020020
          ISEQ  73,80                                                    00040020
 ASMGF7X  START                                                          00060020
          SPACE                                                          00080020
          PRINT DATA,NOGEN                                               00100020
          FDIMEN                                                         00120020
          SPACE 2                                                        00140020
 *                                                                     * 00160020
 *TITLE ASMGF7X  F7 GET STATEMENT ROUTINE                              * 00180020
 *FUNCTION/OPERATION-                                                  * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'00'                         SPACE=  14                 22280020
          DC    X'1C1D0A1B1DA01B'             START=                     22300020
          DC    X'01'                         START=  1B                 22320020
          DC    X'1D121D150E8018'             TITLE=                     22340020
          DC    X'00'                         TITLE=  18                 22360020
 OPFN     DC    X'1E1C1217108623'             USING=                     22380020
          DC    X'B9'                         USING=  23                 22400020
          EJECT                                                          22420020
          LTORG                                                          22440020
          END       ASMGF7X                                              22460020
-FILE 512;   946 RECORDS:  
0F8A      TITLE 'F8AOP--F8 ASSEMBLER OPERATOR PROCESSOR'                 00020020
          ISEQ  73,80                                                    00040020
 ASMGF8A  START     ,                   ASSEMBLER OP PROCESSOR           00060020
          PRINT     NOGEN                                                00080020
          FDIMEN                                                         00100020
          PRINT      GEN                                                 00120020
 *                                                                     * 00140020
 *TITLE 'ASMGF8A ' ...  ASSEMBLER OPERATION PROCESSOR                  * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *  ASMGF8A PROCESSES THE FOLLOWING ASSEMBLER OPERATIONS- PRINT, SPACE,* 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ERRASM   EQU   100                     OPERAND TOO COMPLES(ASSEMBLER ER 18740020
 ERROPN   EQU   107                      OPERAND ERROR                   18760020
 ERRPNT   EQU   107                      UNRECOGNIZABLE PRINT PRAMTR     18780020
 EREVL    EQU   AOPRTN                   EXPRESSION EVALUATION ERROR     18800020
 EQUERR   EQU   ASERRB                   STATEMENT TOO COMPLEX ERROR     18820020
 PPTR     EQU   GRA                      PARAMETER TABLE POINTER         18840020
 RLDPTR   EQU   SP1                      RLD POINTER                     18860020
 COUNT    EQU   GRB                      COUNTER REGISTER                18880020
 KMNOTE   EQU   X'0E'                   HEXOP FOR MNOTE                  18900020
          END                                                            18920020
-FILE 513;   240 RECORDS:  
0F8C      TITLE 'F8MLC--F8 MAIN LINE CONTROL--CSS/NO INITIALIZATION'     00020020
          ISEQ  73,80                                                    00040020
 ASMGF8C  START     ,                    MAIN LINE CONTROL PHASE 8       00060020
          PRINT        NOGEN                                             00080020
          FDIMEN                                                         00100020
          PRINT      GEN                                                 00120020
 *                                                                     * 00140020
 *TITLE 'ASMGF8C ' ...  PHASE 8,MAIN LINE CONTROL                      * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *   PROCESS EDITED TEXT RECORDS FROM ASMGF7. CONTROL THE CALLING OF   * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COMREC   EQU   X'20'                   COMMENT RECORD TYPE 2            04620020
 COMGREC  EQU   X'30'                   GENERATED COMMENT RECORD TYPE 3  04640020
 PROCREC  EQU   X'40'                   PROCESS ONLY RECORD TYPE 4       04660020
 PCREC    EQU   X'60'                    TYPE 2 AND 4 RECORDS            04680020
 PCGREC   EQU   X'70'                    TYPE 1,2,AND 3 RECORDS          04700020
 SOURCE   EQU   X'70'                    SOURCE RECORDS                  04720020
 LITRHEX  EQU   X'25'                    HEX OP FOR LITRAL               04740020
 ERRWRP  EQU   7                         LOCATION COUNTER ERROR          04760020
 ADBLDMG  DC    V(BLDIMG)               ADDR OF BUILD IMAGE IN F8PRINT   04780020
          END   ASMGF8C                                                  04800020
-FILE 514;  1064 RECORDS:  
0F8D      TITLE 'F8 DCEVAL -- DC AND DS EVALUATION'                      00020020
          ISEQ  73,80                                                    00040020
 ASMGF8D  START     ,                    START OF DCEVAL FOR F8          00060020
          PRINT      NOGEN                                               00080020
          FDIMEN                                                         00100020
          PRINT GEN                                                      00120020
 *                                                                     * 00140020
 *TITLE 'ASMGF8D ' ...  DC AND DS EVALUATION                           * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *  ASMGF8D PROCESSES DC'S, DS'S, CXD'S, AND LITERAL DC'S. IT PROCESSES* 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                            01=FIRST OPERAND           21100020
 *                                            02=DONT PRINT              21120020
 *                                            08=NOT LAST CONSTANT       21140020
 *                                            10=ZERO DUP FACTOR         21160020
 CHTEMP   DS    CL3                      PACKING SWITCH                  21180020
 HOLDLCTR DS    CL3                      ALIGNED LOCATION COUNTER        21200020
 BYTEX    DS    C                        00=DS, FF= DC, MIXED= LITERAL   21220020
 ESDIDSAV DS    C                        SAVE AREA FOR CESDID(ACT)       21240020
          LTORG                                                          21260020
          END   ASMGF8D                                                  21280020
-FILE 515;   576 RECORDS:  
0F8I      TITLE 'F8/F8IO---F8 INITIALIZATION AND I/O'                    00020020
          MACRO                                                          00040020
 &L       CKFLG &DUMMY                                                   00060020
 *CHECK TEXT READ COMPLETE ROUTINE CALL                                  00080020
 &L       BAL   GR4,TEXTCK                                               00100020
          MEND                                                           00120020
          COPY      ASMGSET                                              00140020
 ASMGF8I  START                                                          00160020
 TEXTIO   EQU       ASMGF8I                                              00180020
          PRINT DATA,NOGEN               SEE RTSEGA FOR TABLE PRINT      00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RD1      DC    X'03'                    BUFFER ONE SWITCHES             11340020
 RD2      DC    X'00'                    BUFFER TWO SWITCHES             11360020
 OSW      DC    X'00'                                                    11380020
 EOF      DC    4X'7F'                   EOF FOR LAT                     11400020
 LABPTR   DS        F                    POINTER IN LAT                  11420020
 LALBA    DC    F'0'                     LAT LBA                         11440020
 RLDPTR   DC    A(RLDBUF+1)              POINTER IN RLD                  11460020
 RLDLBA   DC    A(RLDBUF+121)            END OF RLD BUFFER               11480020
 PCCON    EQU   4                        PRIVATE CODE INDICATOR          11500020
          END       ASMGF8                                               11520020
-FILE 516;   103 RECORDS:  
0F8L      TITLE 'LOGERR - F/8 LOG ERROR SUBROUTINE '                     00020020
          ISEQ  73,80                                                    00040020
 ASMGF8L  START                                                          00060020
          SPACE                                                          00080020
          PRINT      NOGEN                                               00100020
          FDIMEN                                                         00120020
          SPACE                                                          00140020
 *TITLE 'ASMGF8L ' ... LOG ERROR                                       * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *  ASMGF8L ATTACHES THE ERROR MESSAGE TO AN EDITED TEXT RECORD. IF THE* 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA    GR1,4(GR1,GR1)           INC RECORD LENGTH               01880020
          STH   GR1,TXRL(SP2)                                            01900020
          SPACE                                                          01920020
 RETURN   LM    SP1,SP2,SAVE2            RESTORE REGS                    01940020
          B     2(SRR)                   RETURN TO CALLING ROUTINE       01960020
          SPACE                                                          01980020
 SAVE2    DS    2F                       SP1,SP2 SAVE AREA               02000020
 SAVE4    DS    4F                       SRB-SP2 SAVE AREA               02020020
          SPACE                                                          02040020
          END   ASMGF8L                                                  02060020
-FILE 517;  1042 RECORDS:  
0F8M      TITLE 'F8MOP--F8 MACHINE OPERATOR PROCESSOR'                   00020020
          ISEQ  73,80                                                    00040020
 ASMGF8M  START     ,                    MACHINE OP PROCESSOR            00060020
          PRINT        NOGEN                                             00080020
          FDIMEN                                                         00100020
          PRINT      GEN                                                 00120020
          SPACE 2                                                        00140020
 *                                                                     * 00160020
 *TITLE 'ASMGF8M ' ...  MACHINE OPERATOR PROCESSOR                     * 00180020
 *FUNCTION/OPERATION-                                                  * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ERRWRP   EQU   7                        WRAP AROUND ERROR CODE          20660020
 LATP     EQU   CTXWAP                   POINTER TO LITERAL ADDRESS TABL 20680020
 USNGPP   EQU   CTXIO3                   I/O BUFFER 3                    20700020
 USNGTP   EQU   CTXIO4                   I/O BUFFER 4                    20720020
 ERPROC   EQU   80                       ILLEGAL START CARD              20740020
 ERRADR   EQU   35                       ADDRESSABILITY                  20760020
 SXTEEN   EQU   K16                      CONSTANT OF 16                  20780020
 FOR095   EQU   K4095                    CONSTANT OF 4095                20800020
 FOR096   EQU   K4096                    CONSTANT OF 4096                20820020
          END   ASMGF8M                                                  20840020
-FILE 518;   489 RECORDS:  
0F8N      TITLE 'ASSM G - FLOATING-FIXED POINT CONVERSION--- '           00020020
          ISEQ  73,80                                                    00040020
 ASMGF8N  START     ,                    DECIMAL CONVERSION ROUTINE      00060020
          PRINT      NOGEN                                               00080020
          FDIMEN                                                         00100020
          PRINT GEN                                                      00120020
 *                                                                     * 00140020
 *TITLE 'ASMGF8N ' ...  FIXED-FLOATING POINT CONVERSION                * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *   TO DO ALL FIXED OR FLOATING POINT CONVERSION FOR DC STATEMENTS. IT* 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'1F'                                                    09600020
          DC    X'0F'                                                    09620020
 MERROR   STC   ZWRH,DCSW                SET ERROR                       09640020
          BR    ZWRG                     AND RETURN                      09660020
 ZRCD11   EQU   11                       SCALE MODIFIER ERROR            09680020
 ZRCD13   EQU   13                       EXPONENT MODIFIER ERROR         09700020
 ZRCD39   EQU   39                       INVALID DELIMITER               09720020
 ZRCD70   EQU   70           FLOATING POINT CHARACTERISTIC OUT OF RANGE  09740020
 ZRCD109  EQU   109                      PRECISION LOST                  09760020
          END   DCNVRT1                                                  09780020
-FILE 519;   882 RECORDS:  
0F8P      TITLE 'F8PRNT -- ASSEMBLER F, PHASE 8   OUTPUT FORMATTING SR'  00020020
          ISEQ  73,80                                                    00040020
 ASMGF8P  START                                                          00060020
          USING RECORD,GRA                                               00080020
          USING MAINLN,FRB               FRB IS PRIMARY BASE REGISTER    00100020
          PRINT        NOGEN                                             00120020
          FDIMEN                                                         00140020
          PRINT      GEN                                                 00160020
 *                                                                     * 00180020
 *TITLE 'ASMGF8P ' ...  PRINT                                          * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ERREC    EQU   INPUT                    INTERNAL NAME                   17460020
 ERLI     EQU   INPUT                   LGHT VARIES FROM 8 TO 38 BYTES   17480020
 EFLAG    EQU   INPUT+2                  FLAG FOR ERROR RECORDS          17500020
 NERR     EQU   INPUT+3                 NUMBER OF ERRORAS                17520020
 ESTMNT   EQU   INPUT+4                  STATEMENT NUMBER                17540020
 ERR1     EQU   INPUT+6                 1-16 ERR CODES AND PTRS          17560020
 RGTHLF   EQU   INPUT                    RIGHT HALF                      17580020
 RLIX     EQU   RLIA                     LENGTH                          17600020
 FLAGX    EQU   FLAGA                    FLAG                            17620020
          END                                                            17640020
-FILE 520;   113 RECORDS:  
0F8S      TITLE '                        IEUF8S, SYMBOL TABLE GET'       00020020
          ISEQ  73,80                                                    00040020
 ASMGF8S  CSECT                                                          00060020
  SPACE                                                                  00080020
          PRINT        NOGEN                                             00100020
          FDIMEN                                                         00120020
 *                                                                     * 00140020
 *TITLE 'ASMGF8S ' ... SYMBOL TABLE GET                                * 00160020
 *FUNCTION/OPERATION-                                                  * 00180020
 *  ASMGF8S LOOKS UP THE SYMBOL IN THE SYMBOL TABLE AND RETURNS        * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  SPACE 4                                                                02080020
 BENCH    DS        D                    WORK BENCH                      02100020
 F0XXX    DC        F'0'                                                 02120020
  SPACE                                                                  02140020
 CODE2 DC X'30313233343536373839101112131415161718191A1B1C1D1E1F'        02160020
       DC X'202122232425262728290A0B0C000000000000000000000000'          02180020
  SPACE                                                                  02200020
          LTORG                                                          02220020
  SPACE                                                                  02240020
          END   STGETR                                                   02260020
-FILE 521;   863 RECORDS:  
0F8V      TITLE 'PHASE 8 EVALUATION ROUTINE'                             00020020
          ISEQ      73,80                                                00040020
 ASMGF8V  START                                                          00060020
 EEVAL    EQU   ASMGF8V                                                  00080020
          PRINT        NOGEN                                             00100020
          FDIMEN                                                         00120020
          PRINT      GEN                                                 00140020
 *                                                                     * 00160020
 *TITLE 'ASMGF8V ' ...  EXPRESSION EVALUATION                          * 00180020
 *FUNCTION/OPERATION-                                                  * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NEWOP    DS    C                        LATEST OPERATION FOUND          17080020
 LREF     DS    C                        L'SYM REF  ON(1) OFF(0)         17100020
 NCOMP    DS    11F                      GENERAL SAVE AREA               17120020
 SAVE     EQU   NCOMP                                                    17140020
 NPTR     DC    A(NTRMS)                 ADDRESS OF NTRMS                17160020
 TPTR     DC    A(TERMS)                 ADDRESS OF TERMS                17180020
 OPTR     DC    A(OPRNS)                 ADDRESS OF OPRNS                17200020
 COMP1    DC    A(RLIST+30)              CONST TO CHECK NO. OF TERMS     17220020
          LTORG                                                          17240020
          END                                                            17260020
-FILE 522;   417 RECORDS:  
0IS00     TITLE     ' '                                                  00020020
          ISEQ      73,80                                                00040020
 ASMGIS00 INSTSET                                                        00060020
 A        INST  OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00080020
                LIT1=NO,LIT23=YES                                        00100020
 B        INST  OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO,      ,00120020
                LIT1=NO,LIT23=YES,MASK=2F                                00140020
 C        INST  OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00160020
                LIT1=NO,LIT23=YES                                        00180020
 D        INST  OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES,      ,00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPACE    INST  OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,08160020
                SUB=NO,F8UPC=NO,MASK=04                                  08180020
 START    INST  OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,08200020
                SUB=NO,F8UPC=YES,MASK=00                                 08220020
 TITLE    INST  OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,08240020
                SUB=NO,F8UPC=NO,MASK=00                                  08260020
 USING    INST  OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES,     ,08280020
                SUB=YES,F8UPC=YES,MASK=06                                08300020
 GLDEND   EQU       *       THERE MUST BE LESS THAN 2048 BYTES OF INST'S 08320020
          END                                                            08340020
-FILE 523;   445 RECORDS:  
0IS01     TITLE     ' '                                                  00020020
          ISEQ      73,80                                                00040020
 ASMGIS01 INSTSET                                                        00060020
 A        INST  OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00080020
                LIT1=NO,LIT23=YES                                        00100020
 B        INST  OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO,      ,00120020
                LIT1=NO,LIT23=YES,MASK=2F                                00140020
 C        INST  OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00160020
                LIT1=NO,LIT23=YES                                        00180020
 D        INST  OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES,      ,00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPACE    INST  OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,08720020
                SUB=NO,F8UPC=NO,MASK=04                                  08740020
 START    INST  OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,08760020
                SUB=NO,F8UPC=YES,MASK=00                                 08780020
 TITLE    INST  OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,08800020
                SUB=NO,F8UPC=NO,MASK=00                                  08820020
 USING    INST  OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES,     ,08840020
                SUB=YES,F8UPC=YES,MASK=06                                08860020
 GLDEND   EQU       *       THERE MUST BE LESS THAN 2048 BYTES OF INST'S 08880020
          END                                                            08900020
-FILE 524;   233 RECORDS:  
0IS20     TITLE     ' '                                                  00020020
          ISEQ      73,80                                                00040020
 ASMGIS20 INSTSET                                                        00060020
 B        INST  OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO,      ,00080020
                LIT1=NO,LIT23=YES,MASK=2F                                00100020
 AH       INST  OP=4A,TYPE=MACH,CLASS=0,ALIGN=H,FLOAT=NO,EVEN=NO,       ,00120020
                LIT1=NO,LIT23=YES                                        00140020
 AP       INST  OP=FA,TYPE=MACH,CLASS=0,ALIGN=C,FLOAT=NO,EVEN=NO,       ,00160020
                LIT1=NO,LIT23=YES                                        00180020
 AR       INST  OP=1A,TYPE=MACH,CLASS=0,ALIGN=C,FLOAT=NO,EVEN=NO,       ,00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPACE    INST  OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,04480020
                SUB=NO,F8UPC=NO,MASK=04                                  04500020
 START    INST  OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,04520020
                SUB=NO,F8UPC=YES,MASK=00                                 04540020
 TITLE    INST  OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,04560020
                SUB=NO,F8UPC=NO,MASK=00                                  04580020
 USING    INST  OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES,     ,04600020
                SUB=YES,F8UPC=YES,MASK=06                                04620020
 GLDEND   EQU       *       THERE MUST BE LESS THAN 2048 BYTES OF INST'S 04640020
          END                                                            04660020
-FILE 525;   395 RECORDS:  
0IS44     TITLE     ' '                                                  00020020
          ISEQ      73,80                                                00040020
 ASMGIS44 INSTSET                                                        00060020
 A        INST  OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00080020
                LIT1=NO,LIT23=YES                                        00100020
 B        INST  OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO,      ,00120020
                LIT1=NO,LIT23=YES,MASK=2F                                00140020
 C        INST  OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00160020
                LIT1=NO,LIT23=YES                                        00180020
 D        INST  OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES,      ,00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPACE    INST  OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,07720020
                SUB=NO,F8UPC=NO,MASK=04                                  07740020
 START    INST  OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,07760020
                SUB=NO,F8UPC=YES,MASK=00                                 07780020
 TITLE    INST  OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,07800020
                SUB=NO,F8UPC=NO,MASK=00                                  07820020
 USING    INST  OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES,     ,07840020
                SUB=YES,F8UPC=YES,MASK=06                                07860020
 GLDEND   EQU       *       THERE MUST BE LESS THAN 2048 BYTES OF INST'S 07880020
          END                                                            07900020
-FILE 526;   455 RECORDS:  
0IS67     TITLE     ' '                                                  00020020
          ISEQ      73,80                                                00040020
 ASMGIS67 INSTSET                                                        00060020
 A        INST  OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00080020
                LIT1=NO,LIT23=YES                                        00100020
 B        INST  OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO,      ,00120020
                LIT1=NO,LIT23=YES,MASK=2F                                00140020
 C        INST  OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00160020
                LIT1=NO,LIT23=YES                                        00180020
 D        INST  OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES,      ,00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPACE    INST  OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,08920020
                SUB=NO,F8UPC=NO,MASK=04                                  08940020
 START    INST  OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,08960020
                SUB=NO,F8UPC=YES,MASK=00                                 08980020
 TITLE    INST  OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,09000020
                SUB=NO,F8UPC=NO,MASK=00                                  09020020
 USING    INST  OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES,     ,09040020
                SUB=YES,F8UPC=YES,MASK=06                                09060020
 GLDEND   EQU       *       THERE MUST BE LESS THAN 2048 BYTES OF INST'S 09080020
          END                                                            09100020
-FILE 527;   459 RECORDS:  
0IS85     TITLE     ' '                                                  00020020
          ISEQ      73,80                                                00040020
 ASMGIS85 INSTSET                                                        00060020
 A        INST  OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00080020
                LIT1=NO,LIT23=YES                                        00100020
 B        INST  OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO,      ,00120020
                LIT1=NO,LIT23=YES,MASK=2F                                00140020
 C        INST  OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO,       ,00160020
                LIT1=NO,LIT23=YES                                        00180020
 D        INST  OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES,      ,00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPACE    INST  OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,09000020
                SUB=NO,F8UPC=NO,MASK=04                                  09020020
 START    INST  OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,09040020
                SUB=NO,F8UPC=YES,MASK=00                                 09060020
 TITLE    INST  OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO,        ,09080020
                SUB=NO,F8UPC=NO,MASK=00                                  09100020
 USING    INST  OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES,     ,09120020
                SUB=YES,F8UPC=YES,MASK=06                                09140020
 GLDEND   EQU       *       THERE MUST BE LESS THAN 2048 BYTES OF INST'S 09160020
          END                                                            09180020
-FILE 528;   402 RECORDS:  
0MAC      TITLE 'MACRO GENERATOR INPUT/OUTPUT INTERFACE'                 00020020
          ISEQ  73,80                                                    00040020
 *TITLE-ASMGMAC- PHASE 'MAC'- MACRO GENERATOR INPUT/OUTPUT INTERFACE   * 00060020
 *FUNCTION- PHASE 'MAC' PROVIDES THE INTERFACE BETWEEN PHASES 'F1',    * 00080020
 *        'F2', AND 'F3'. 'MAC' IS BRANCHED TO FROM 'ASM'(ASMGASM) AND,* 00100020
 *        IN TURN, LINKS TO PHASE 'F1'. 'MAC' REMAINS RESIDENT DURING  * 00120020
 *        THE ENTIRE ASSEMBLY, AND CONTAINS AND INITIALIZES THESE      * 00140020
 *        I/O CONTROL PROGRAM ROUTINES-                                * 00160020
 *                             WRITE                                   * 00180020
 *                             READ                                    * 00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ASMRET   DC        V(ASMRET)  FOR 'ASM' RETURN ADDRESS                  07860020
 PNTW1    DC    2F'0'               STORAGE FOR N/P                      07880020
 BUFFENT  DC        V(BUFFENT)          ADDRESS OF BUFFERING ROUTINE     07900020
          DC        V(BUFFERR)          BUFF ERROR HANDLING RTN IN ASM   07920020
 SYSINAD  DC        A(SYSINMON)         SYSIN MONITOR                    07940020
 DCBGET   DS        F                   SAVE FOR DCBGET IN SYSIN DCB     07960020
 FREEMEM  DS        2F                  FREEMAIN OPERANDS                07980020
          LTORG                                                          08000020
          SPACE     2                                                    08020020
          END       ASMGMAC                                              08040020
-FILE 529;   210 RECORDS:  
0RTA  TITLE 'G ASSEMBLER ROOT SEGMENT A AND CONTROL TABLE.*.*.*.*.*.*.*' 00020020
          ISEQ  73,80                                                    00040020
          COPY      ASMGSET                                              00060020
 ASMGRTA  START                                                          00080020
 *                                                                     * 00100020
 *TITLE- 'ASMGRTA ' ... ROOT SEGMENT ASSEMBLER PHASE                   * 00120020
 *FUNCTION/OPERATION-                                                  * 00140020
 *   SETS UP PARTS OF THE ASSEMBLER CONTROL TABLE AND SETS UP THE      * 00160020
 *   REGISTER ACT FOR ALL OF PHASE F7, F8, AND FPP. CONTAINS THE       * 00180020
 *   ASSEMBLER CONTROL TABLE AND THE TRANSLATE TABLE.                    00200020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ORG       ACT1+CSGCTR                                          04020020
          DC        H'16'                                                04040020
          ORG       ACT1+CPRIME                                          04060020
          DC        A(PRIME)                                             04080020
 PRIME    EQU       307                                                  04100020
 LASH     EQU       28                  SIZE OF LITERAL HASH             04120020
 HASH     EQU       3*PRIME+LASH        SIZE OF HASH TABLE               04140020
 FASH     EQU       HASH/8*8+8          HASH ROUNDED TO D LENGTH         04160020
 ESDSEG   EQU       256                 ESD RESIDENT SEGMENT POINTR LGTH 04180020
          END       ASMGRTA                                              04200020
-FILE 530;     8 RECORDS:  
0*                  COPIED BY NAME 'ASMGSET'                             00020020
 *                  THIS BLOCK OF CODING SETS THE GLOBAL SWITCHES        00040020
          GBLB      &DEBUG,&NOTBUG,&STAT,&NOTSTAT                        00060020
 &DEBUG   SETB      0                   SET 1 FOR DEBUG VERSION          00080020
 &STAT    SETB      0                   SET 1 FOR STATISTICS VERSION     00100020
 &NOTBUG  SETB      ( NOT &DEBUG)                                        00120020
 &NOTSTAT SETB      ( NOT &STAT)                                         00140020
 *                  END OF COPIED CODE                                   00160020
-FILE 531;  1083 RECORDS:  
0         MACRO                                                          AMAC0001
 &NAME  COMMENCE  &EOF=                                                  AMAC0002
 &NAME    STM       14,12,12(13)                                         AMAC0003
          BALR      11,0                                                 AMAC0004
          USING     *,11                                                 AMAC0005
          LR        15,13                                                AMAC0006
          LA        13,SAVEAREA                                          AMAC0007
          ST        15,SAVEAREA+4                                        AMAC0008
          ST        13,8(15)                                             AMAC0009
          ST        1,SAVEZZZZ                                           AMAC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  MEND                                                                   AMAC1074
          MACRO                                                          AMAC1075
          SETR                                                           AMAC1076
          LCLA      &A                                                   AMAC1077
 &A       SETA      0                                                    AMAC1078
 .S       ANOP                                                           AMAC1079
 R&A      EQU       &A                                                   AMAC1080
 &A       SETA      &A+1                                                 AMAC1081
          AIF       (&A NE 16).S                                         AMAC1082
          MEND                                                           AMAC1083
-FILE 532;  5161 RECORDS:  
0$COM ---THIS IS THE MTS UPDATE DECK FOR WATERLOO G-ASSEMBLER                    
 $RUN *MOUNT                                                                     
 S151 9TP *ASMG*  'ASMG MASTER SOURCE'                                           
 S416 9TP *POOL* RING=IN 'LP UPDATE'                                             
 $ENDFILE                                                                        
 $EMP NEWASMG                                                                    
 $EMP ASMGSET                                                                    
 $EMP ASMGMACROS                                                                 
 $CRE -SYSUT1 SIZE=10P                                                           
 $RUN *UPDATE                                                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $DES -SYSUT1                                                                    
 $DES -DICT                                                                      
 $R *ASMG SCARDS=*POOL* SPRINT=*LIST* 0=*SYSMAC 2=ASMGMACROS SPUNCH=NEWASMG PAR=-
 FX,RD,B,SIZE=200,IBLK=40,OBLK=40                                                
 $R *DISMOUNT PAR=*LIST*                                                         
 $LI ASMGMACROS                                                                  
 $RUN *OBJSCAN                                                                   
 NEWASMG                                                                         
 *ASMG                                                                           
 *ASMBLR                                                                         
-FILE 533;   485 RECORDS:  
0         START 0                                                        MNTR0001
          TITLE '*** STUDENT ASSEMBLER-SIMULATOR MONITOR ***'            MNTR0002
 *********************************************************************** MNTR0003
 *                                                                     * MNTR0004
 *              MONITOR FOR /360 STUDENT ASSEMBLER-SIMULATOR           * MNTR0005
 *                                                                     * MNTR0006
 *********************************************************************** MNTR0007
 *                                                                       MNTR0008
 *              ENTRY TO THE MONITOR IS VIA THE STANDARD MTS R-TYPE      MNTR0009
 *              CALLING PROCEDURE                                        MNTR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TEN      DC    H'10'                                                    MNTR0476
 JOBF     DC    X'00'                                                    MNTR0477
 BATCHF   DC    XL1'00'                                                  MNTR0478
 CHAR     DC    C' '                                                     MNTR0479
 TFLOW    DC    CL1' '                                                   MNTR0480
 SWITCH   DC    XL1'00'                                                  MNTR0481
 NLINE    DC    H'118'                                                   MNTR0482
 LCNT      DC    H'1'                                                    MNTR0483
 LPPAGE   DC   H'59'                                                     MNTR0484
           END   BOSS                                                    MNTR0485
-FILE 534;  3996 RECORDS:  
0*      MARCH 27 1969 . LATEST CORRECTION WAS 26 MARCH                   ASSM0001
 *                 THE START OF THE 360 ASSEMBLER SEPT 23/68             ASSM0002
 *                                                                       ASSM0003
 *     DEC 12 1968 :  SEMI COLUMN END TEXT FLAG CHANGED TO FF            ASSM0004
 *                    AND STOP ASSEMBLING WHEN PROG TOO LARGE            ASSM0005
 *                                                                       ASSM0006
 *      DEC 18      IF BASE REG=0 USE ADDR1,ADDR2  NOT REL VAL           ASSM0007
 *                                                                       ASSM0008
 *                   THE DEFINITIONS                                     ASSM0009
 *                                                                       ASSM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    3F                                                       ASSM3987
          DS    0D                                                       ASSM3988
 PROG     DS    D                                                        ASSM3989
          DS    4000C              OBJECT CODE AREA                      ASSM3990
 TBUF     DS    C                                                        ASSM3991
          DS    45000C                                                   ASSM3992
          DS    25000C                                                   ASSM3993
 TBUFE    DS    C                                                        ASSM3994
          DS    150C                                                     ASSM3995
          END   START                                                    ASSM3996
-FILE 535;  2261 RECORDS:  
0*      MARCH 27 1969                                                    SIML0001
 *      SIMULATOR FOR THE STUDENT ASSEMBLER                              SIML0002
 *                                                                       SIML0003
          MACRO                                                          SIML0004
          GETR12                                                         SIML0005
          LR    XR1,XR2                                                  SIML0006
          SRL   XR1,2                   R1*4                             SIML0007
          SLL   XR2,2                   R2*4                             SIML0008
          N     XR1,MSK3C                                                SIML0009
          N     XR2,MSK3C                                                SIML0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 USREND   DS    F                       USERS LAST ADR                   SIML2252
 *                                                                       SIML2253
 UMINAD   DS    F                       MIN ADDR ALLOWED FOR USER        SIML2254
 UMAXAD   DS    F                       MAX ADDR ALLOWED FOR USER        SIML2255
 TRACES   DS    F                       MAX NO TRACES=100                SIML2256
          DS    F                       START ADDR-REL                   SIML2257
          DS    F                       END   ADDR-REL                   SIML2258
 *                                                                       SIML2259
 *                                                                       SIML2260
          END                                                            SIML2261
-FILE 536;  1154 RECORDS:  
0*  CVTH VERSION FOR STUDENT ASSEMBLER                                   CVTH0001
 CVTH     TITLE 'FORTRAN I/O CONVERSION MODULE'                          CVTH0002
 ADCON#   START 0                                                        CVTH0003
          EXTRN     IBCOM#                                               CVTH0004
 * THESE ENTRY POINTS ARE A TEMPORARY EXPEDIENT TO MAINTAIN              CVTH0005
 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE.                 CVTH0006
          ENTRY     FCVEO                                                CVTH0007
          ENTRY     FCVIO                                                CVTH0008
          ENTRY     FCVAO                                                CVTH0009
          ENTRY     FCVZO                                                CVTH0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MOVEX    MVC       0(1,GRY),0(GRX)     ITEM TO BUFFER                   CVTH1145
 CHRMOV   MVC       0(1,GRY),0(CHRSAV)  MOVE FROM CONVERT AREA           CVTH1146
 CONONE   EQU       ONE                                                  CVTH1147
 CONFOR   EQU       FOU                                                  CVTH1148
 GFSWCH   DC        AL1(0)              FLOATING DECIMAL SWITCH          CVTH1149
 CGSWCH   DC        AL1(0)              G-OUTPUT SWITCH                  CVTH1150
 DECIM    DC        C'0123456789ABCDEF' OUTPUT TRANSLATION TABLE         CVTH1151
 ZERPNT   DC        C' 0.0'                                              CVTH1152
          SPACE     3                                                    CVTH1153
          END                                                            CVTH1154
-FILE 537;   825 RECORDS:  
0*  ICOM VERSION FOR STUDENT ASSEMBLER JAN/69                            ICOM0001
 ICOM     TITLE 'FORTRAN I/O INTERFACE MODULE'                           ICOM0002
 IBCOM#   START 0                                                        ICOM0003
          EXTRN     ADCON#                                               ICOM0004
          EXTRN     FIOCS#                                               ICOM0005
 * THESE EXTERNAL REFERENCES ARE A TEMPORARY EXPEDIENT TO MAINTAIN       ICOM0006
 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE.                 ICOM0007
          EXTRN     FCVEO                                                ICOM0008
          EXTRN     FCVIO                                                ICOM0009
          EXTRN     FCVAO                                                ICOM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       ICOM0816
 IHC1     DC    H'211',C'**',CL40'*** INVALID TYPE OF FORMAT '           ICOM0817
          DC    H'212',C'**',CL40'*** LINE TOO LONG, BAD FORMAT '        ICOM0818
          DC    H'215',C'**',CL40'*** INVALID CHARACTER IN DATA '        ICOM0819
          DC    H'225',C'**',CL40'*** INVALID HEXADECIMAL DATA  '        ICOM0820
          DC    H'216',C'**',CL40'*** OUTPUT EXCEEDS ALLOTMENT  '        ICOM0821
          DC    H'217',C'**',CL40'*** YOU RAN OUT OF DATA CARDS '        ICOM0822
 IHCLAST  DC    H'0'     DUMMY AT END OF TABLE                           ICOM0823
 *                                                                       ICOM0824
          END                                                            ICOM0825
-FILE 538;   237 RECORDS:  
0*     STUDENT ASSEMBLER VERSION OF FIOCS (MAR 1969)                     FIOC0001
 FIO      TITLE 'FFORTRAN/MTS I/O INTERFACE MODULE'                      FIOC0002
 FIOCS#   START 0                                                        FIOC0003
 *        ***** REGISTER ASSIGNMENTS *****                               FIOC0004
 GRX      EQU   2                                                        FIOC0005
 GRY      EQU   3                                                        FIOC0006
 WKA      EQU   4                                                        FIOC0007
 WKB      EQU   5                                                        FIOC0008
 UATER    EQU   6                                                        FIOC0009
 BASE     EQU   7                                                        FIOC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RITEVCON DS    F                                                        FIOC0228
 FLAGS    EQU   READVCON                                                 FIOC0229
 LINE#    DS    F                                                        FIOC0230
 RECLENI  DS    H                                                        FIOC0231
 RECLENO  DS    H                                                        FIOC0232
 LASTINIT DS    F                                                        FIOC0233
 FQUALS   EQU   LASTINIT                                                 FIOC0234
 BUFADDR  DS    F                                                        FIOC0235
 STARECNT EQU   BUFADDR                                                  FIOC0236
          END                                                            FIOC0237
-FILE 539;   104 RECORDS:  
0$R *MOUNT PAR=S516 9TP *IN* 'S516'                                              
 $R *MOUNT PAR=S373 9TP *OUT* RING=IN 'S373'                                     
                                                                                 
 $R *UPDATE                                                                      
 %REW     *IN*                                                                   
 %REW     *OUT*                                                                  
 %FSF     *IN* 1                                                                 
 %FSF     *OUT* 1                                                                
 %INP     *IN* 50                                                                
 %OUT     *OUT* 40                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %CLO     *POOL*                                                                 
 %WTM     *POOL* 5                                                               
 %REW     *POOL*                                                                 
 %END                                                                            
 $R *DISMOUNT PAR=*STASS*                                                        
 $EMP NEWSTASS                                                                   
 $R *ASMG SCARDS=*POOL* SPUNCH=NEWSTASS 0=*SYSMAC PAR=SIZE=160,IBLK=40,FX,RD,T,B 
 $R *OBJSCAN                                                                     
 NEWSTASS                                                                        
 *STASS360                                                                       
-FILE 540;   629 RECORDS:  
0         MACRO                    SUBROUTINE ENTRY                      MAC80001
 &L       SAVE  &X                                                       MAC80002
 &L       STM   RE,&X,12(RD)                                             MAC80003
          LA    RE,4*(&X+3)+12(RD)                                       MAC80004
          ST    RE,8(RD)                                                 MAC80005
          ST    RD,4(RE)                                                 MAC80006
          LR    RD,RE                                                    MAC80007
          MEND                                                           MAC80008
 *                                                                       MAC80009
          MACRO                    SUBROUTINE EXIT                       MAC80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NCRDS    EQU   X'02'              NO CARDS YET SWITCH                   MAC80620
 *                                                                       MAC80621
 *              SYMBOL TABLE ENTRY FRAME                                 MAC80622
 *                                                                       MAC80623
 SYMCHN   EQU   0                  SYMBOL HASH CHAIN POINTER             MAC80624
 SYMNAM   EQU   4                  SYMBOL NAME                           MAC80625
 SYMVAL   EQU   12                 SYMBOL VALUE                          MAC80626
 SYMFLG   EQU   16                 SYMBOL FLAGS                          MAC80627
 SYMLIN   EQU   20                 LINE NUMBER                           MAC80628
 SYMREF   EQU   24                 SYMBOL REFERENCE CHAIN POINTERS       MAC80629
-FILE 541;   113 RECORDS:  
0*                                                                       DEF80001
 *                                                                       DEF80002
 LINMAX   EQU   60                 MAXIMUM NUMBER OF LINES PER PAGE      DEF80003
 TABCHR   EQU   X'05'              TAB CHARACTER                         DEF80004
 LFTOP    EQU   X'02'              OPERATOR NEEDS A LEFT OPERAND         DEF80005
 RTOP     EQU   X'01'              OPERATOR NEEDS A RIGHT OPERAND        DEF80006
 DEFSYM   EQU   X'80'              SYMBOL IS DEFINED WITHIN PGM          DEF80007
 *                                                                       DEF80008
 *              GENERAL-PURPOSE REGISTERS                                DEF80009
 *                                                                       DEF80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FSCD     EQU   X'01'              FIRST CARD SWITCH                     DEF80104
 *                                                                       DEF80105
 *              SYMBOL TABLE ENTRY FRAME                                 DEF80106
 *                                                                       DEF80107
 SYMCHN   EQU   0                  SYMBOL HASH CHAIN POINTER             DEF80108
 SYMNAM   EQU   4                  SYMBOL NAME                           DEF80109
 SYMVAL   EQU   12                 SYMBOL VALUE                          DEF80110
 SYMFLG   EQU   16                 SYMBOL FLAGS                          DEF80111
 SYMLIN   EQU   20                 LINE NUMBER                           DEF80112
 SYMREF   EQU   24                 SYMBOL REFERENCE CHAIN POINTERS       DEF80113
-FILE 542;   229 RECORDS:  
0*                                                                       COP80001
 SAVE     DS    64F                SAVE AREAS                            COP80002
 SAVEND   EQU   *                  END OF PUSHDOWN STORAGE               COP80003
 SAVND4   EQU   *-4                                                      COP80004
 SAVND8   EQU   *-8                                                      COP80005
 *                                                                       COP80006
 *              PRECEDENCE MATRIX                                        COP80007
 *                                                                       COP80008
 *                                   /  -                               COP80009
 *                  %I %A %N &  |  %M *  +  (  )  %L %R                  COP80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'01010101010101010101030406070801' 7                    COP80220
          DC    X'01040404040404040404010101010101' 8                    COP80221
          DC    X'01040404040404040404010101010101' 9                    COP80222
          DC    X'01010404040404040404010101010101' A                    COP80223
          DC    X'01010101010101010101010101010101' B                    COP80224
          DC    X'01040404040404040404010101010101' C                    COP80225
          DC    X'01040404040404040404010101010101' D                    COP80226
          DC    X'01010404040404040404010101010101' E                    COP80227
          DC    X'05050505050505050505010101010101' F                    COP80228
          EJECT                                                          COP80229
-FILE 543;  1748 RECORDS:  
0MAIN     TITLE 'PDP 5/8 7/9 ASSEMBLER'                                  ASR80001
          PRINT NOGEN                                                    ASR80002
          COPY  8ASREQU            DEFINITIONS                           ASR80003
 *                                                                       ASR80004
 *                                 END OF COPY                           ASR80005
 *                                                                       ASR80006
          TITLE 'MAIN SEQUENCE PASS 1'                                   ASR80007
 *                                                                       ASR80008
          USING START,R8           CSECT BASE,PASS 1                     ASR80009
          USING PSECT,RC           PSECT BASE                            ASR80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          GENPS ALIGN,27,FSW1                                            ASR81739
          GENPS ANOP3,28,0,V(OPRTAB)                                     ASR81740
 *                                                                       ASR81741
 *              PREDEFINED OPERAND SYMBOL TABLE                          ASR81742
 *                                                                       ASR81743
 ABCTAB   GENOP @VALUE,0,0                                               ASR81744
          GENOP @CSID,0,0                                                ASR81745
          GENOP @FLAGS,0,0                                               ASR81746
          GENOP @TYPE,0,0,V(SYMTAB)                                      ASR81747
          END                                                            ASR81748
-FILE 544;   594 RECORDS:  
0COM      TITLE 'COMMON SUBROUTINES'                                     COM80001
          PRINT NOGEN                                                    COM80002
          COPY  8ASREQU                                                  COM80003
 *                                                                       COM80004
 *                                 END OF COPY                           COM80005
 *                                                                       COM80006
          TITLE 'COMMON CODE'                                            COM80007
 COM      CSECT                                                          COM80008
          SETUP MTS                                                      COM80009
          ENTRY SEARCH,CLCLS,SCAN                                        COM80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       COM80585
 PSTAB    DS    32A(0,0)           PSEUDO-OP JUMP TABLE                  COM80586
 BLK8     DS    A(0,0)             DOUBLE WORD RELOCATION CHAINS         COM80587
 SMTAB    DS    A(0,0,0,0,0)       SYMTAB HASH TABLE POINTER             COM80588
 OPTAB    DS    A(0,0,0,0,0)       OPRTAB HASH TABLE POINTER             COM80589
 EXTAB    DS    A(0,0,0,0,0)       EXTTAB HASH TABLE POINTER             COM80590
 COMADD   DS    A(0)               COMMON SUBROUTINES BASE ADDRESS       COM80591
 PSUTAB   DS    28CL(SYMREF+4)     PREDEFINED OPERATOR SYMBOL TABLE      COM80592
 ABCTAB   DS    4CL(SYMREF+4)      PREDEFINED OPERAND SYMBOL TABLE       COM80593
          END                                                            COM80594
-FILE 545;   312 RECORDS:  
0OPS8     TITLE 'PDP-8 OPERATOR AND FORMAT DEFINITIONS'                  OPS80001
 *                                                                       OPS80002
          PRINT NOGEN                                                    OPS80003
 *                                                                       OPS80004
          MACRO                    BUILD OPERATOR SYMBOL TABLE ENTRY     OPS80005
 &L       GENOP &X,&Y,&Z,&W                                              OPS80006
          AIF   ('&W' EQ '').A                                           OPS80007
 &L       DC    &W                                                       OPS80008
          AGO   .B                                                       OPS80009
 .A       ANOP                                                           OPS80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *              SHORT-FORM RLD                                           OPS80303
 *                                                                       OPS80304
 *                 0 1 2 3 4 5 6 7 8 9 A B C D E F                       OPS80305
 FORMA    DC    X'4F1D1E1F2021222324191A1B1C003738' 0                    OPS80306
          DC    X'393A0041424344004B4C4D4E00555657' 1                    OPS80307
          DC    X'58005F60616200696A6B6C0073747576' 2                    OPS80308
          DC    X'007D7E7F80008788898A009192939400' 3                    OPS80309
          DC    X'9A9B9C9D00A5A6A7A800000000000000' 4                    OPS80310
 *                                                                       OPS80311
          END                                                            OPS80312
-FILE 546;   254 RECORDS:  
0OPS9   TITLE   'PDP-9 OPERATOR AND FORMAT DEFINITIONS'                  OPS90001
 *                                                                       OPS90002
        PRINT NOGEN                                                      OPS90003
 *                                                                       OPS90004
          MACRO                    BUILD OPERATOR SYMBOL TABLE ENTRY     OPS90005
 &L       GENOP &X,&Y,&Z,&W                                              OPS90006
          AIF   ('&W' EQ '').A                                           OPS90007
 &L       DC    &W                                                       OPS90008
          AGO   .B                                                       OPS90009
 .A       ANOP                                                           OPS90010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'232425260028292A2B00000000000000' 4                    OPS90245
 *                                                                       OPS90246
 *  FORM A  SHORT FORM RLD DICTIONARY                                    OPS90247
 *                                                                       OPS90248
 FORMA9   DC    X'4F1D1E1F202122232418191A1B1C0036' 0                    OPS90249
          DC    X'3738393A004041424344004A4B4C4D4E' 1                    OPS90250
          DC    X'005455565758005E5F6061620068696A' 2                    OPS90251
          DC    X'6B6C007273747576007C7D7E7F800086' 3                    OPS90252
          DC    X'8788898A009091929394000000000000' 4                    OPS90253
          END                                                            OPS90254
-FILE 547;   360 RECORDS:  
0OPS1     TITLE 'PDP-1 OPERATOR AND FORMAT DEFINITIONS'                  OPS10001
 *        ***********************************************                OPS10002
 *        *                                             *                OPS10003
 *        * MACRO TO CONSTRUCT OPCODE DICTIONARY BLOCKS *                OPS10004
 *        *                                             *                OPS10005
 *        ***********************************************                OPS10006
          SPACE 2                                                        OPS10007
          PRINT NOGEN                                                    OPS10008
          MACRO                                                          OPS10009
 &L       GENOP &MNEM,&OCTL,&Z,&W                                        OPS10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'232425260028292A2B00000000000000' 4                    OPS10351
 *                                                                       OPS10352
 *  FORM A  SHORT FORM RLD DICTIONARY                                    OPS10353
 *                                                                       OPS10354
 FORMA9   DC    X'4F1D1E1F202122232418191A1B1C0036' 0                    OPS10355
          DC    X'3738393A004041424344004A4B4C4D4E' 1                    OPS10356
          DC    X'005455565758005E5F6061620068696A' 2                    OPS10357
          DC    X'6B6C007273747576007C7D7E7F800086' 3                    OPS10358
          DC    X'8788898A009091929394000000000000' 4                    OPS10359
          END                                                            OPS10360
-FILE 548;   186 RECORDS:  
0TDEC     TITLE 'TRANSLATE TABLE: EBCDIC-TO-FIO/DEC CODES'               TDEC0001
          SPACE                                                          TDEC0002
 *********************************************************************** TDEC0003
 *                                                                     * TDEC0004
 * THIS TABLE CONVERTS EBCDIC CHAACTERS TO CODES USED BY THE PDP-1     * TDEC0005
 * IN CONJUNCTION WITH THE FRIDEN FLEXOWRITER. SINCE CERTAIN OF THE    * TDEC0006
 * FLEXOWRITER GRAPHICS ARE NOT REPRESENTED BY EBCDIC CODES, AN ARBI-  * TDEC0007
 * TRARY CORRESPONDENCE HAS BEEN SET UP BETWEEN CERTAIN EBCDIC GRAPH-  * TDEC0008
 * ICS AND THE FIO/DEC GRAPHICS AS FOLLOWS:                            * TDEC0009
 *                                                                     * TDEC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          OCTAL 277                                                      TDEC0177
          ORG   T+X'25'       TAPE FEED                                  TDEC0178
          OCTAL 00                                                       TDEC0179
          ORG   T+X'03'       STOP CODE                                  TDEC0180
          OCTAL 13                                                       TDEC0181
          ORG   T+X'2B'       BLACK                                      TDEC0182
          OCTAL 34                                                       TDEC0183
          ORG   T+X'22'       RED                                        TDEC0184
          OCTAL 35                                                       TDEC0185
          END                                                            TDEC0186
-FILE 549;  2887 RECORDS:  
0         TITLE ' PDP-8 LINK EDITER '                                    LNK80001
 *              MACRO DEFINITIONS                                        LNK80002
 *                                                                       LNK80003
          MACRO                    COMPOSE A BINRY NUMBER                LNK80004
 &L       COLUM &A                                                       LNK80005
 &L       IC    0,1+&A                                                   LNK80006
          SRDL  0,6                                                      LNK80007
          IC    0,&A                                                     LNK80008
          SRDL  0,6                                                      LNK80009
          SRL   1,20                                                     LNK80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CORE     DS    8F                 CORE ADDRESSES FOR SIMULATOR          LNK82878
 CDCNT    DS    1F                 SEQUENCE FOR BINARY CARDS             LNK82879
 ESDHEAD  DS    2F                 SYMBOL DICTIONARY HEAD                LNK82880
 ENTHEAD  DS    2F                 ENTRY TABLE HEAD                      LNK82881
 EXTHEAD  DS    2F                 EXTERNAL TABLE HEAD                   LNK82882
 SEGHEAD  DS    2F                 SEGMENT TABLE HEAD                    LNK82883
 SEGSTRT  DS    1F                                                       LNK82884
 SEGEND   DS    1F                 DEFINES SEGMENT TABLE SUBSET          LNK82885
 REMAP    DS    512F               CSID MAPPING TABLE                    LNK82886
          END                                                            LNK82887
-FILE 550;   132 RECORDS:  
0         TITLE 'UTILITY TO PUNCH BINARY CARDS FROM 8ASR RECORDS'        TCRD0001
          PRINT NOGEN                                                    TCRD0002
          REQU                                                           TCRD0003
          ENTER 12                                                       TCRD0004
          XC    CDCNT(4),CDCNT     SET CARD COUNT TO 0                   TCRD0005
          SR    R7,R7              INITIALIZE CHECKSUM                   TCRD0006
          L     R1,0(R1)           INSPECT PARAMETER LIST                TCRD0007
          LH    R2,0(R1)           COUNT OF CHARACTERS                   TCRD0008
          LTR   R2,R2                                                    TCRD0009
          BZ    NEXT               NO PARAMS                             TCRD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'0A021C010A0009000820081008080804'                      TCRD0123
          DC    X'080208011A03190318231813180B1807'                      TCRD0124
          DC    X'08000400020001000020001000080004'                      TCRD0125
          DC    X'000200013A03390338233813380B3807'                      TCRD0126
 SCRATCH  DS    D                                                        TCRD0127
 CDCNT    DS    1F                                                       TCRD0128
 REGL     DS    1H                                                       TCRD0129
 REG      DS    256C                                                     TCRD0130
 CARD     DS    160C                                                     TCRD0131
          END                                                            TCRD0132
-FILE 551;    95 RECORDS:  
0         TITLE 'UTILITY TO PUNCH PAL TAPE FROM 8ASSR CARDS'             PAL80001
          PRINT NOGEN                                                    PAL80002
          REQU                                                           PAL80003
          ENTER 12                                                       PAL80004
 *                                                                       PAL80005
 *        PUNCH LEADER CODE                                              PAL80006
 *                                                                       PAL80007
          MVI   REG,X'80'                                                PAL80008
          MVC   REG+1(71),REG                                            PAL80009
          SPUNCH REG,72,@BIN                                             PAL80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EXIT  0                                                        PAL80086
 *                                                                       PAL80087
 CKEXT    SERCOM 'UNDEFINED EXTERNAL. IGNORED'                           PAL80088
          B     NEXT                                                     PAL80089
 *                                                                       PAL80090
 REGL     DS    H                                                        PAL80091
 REG      DS    XL256                                                    PAL80092
 FLD      DS    1C                                                       PAL80093
 *                                                                       PAL80094
          END                                                            PAL80095
-FILE 552;  2188 RECORDS:  
0*                                                                       ASM10001
          TITLE 'REGISTER ASSIGNMENTS             1130/1800-360 MASM'    ASM10002
 *                                                                       ASM10003
 *        GENERAL REGISTER ASSIGNMENTS                                   ASM10004
 *                                                                       ASM10005
 R0       EQU   0                  HOLDS ADDR OF I/O AREA FOR QSAM MACRO ASM10006
 R1       EQU   1                  MISC                                  ASM10007
 R2       EQU   2                  MISC                                  ASM10008
 R3       EQU   3                  MISC                                  ASM10009
 R4       EQU   4                  MISC                                  ASM10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          COMPC C')',NE,SCMBB      BR IF OTHER THAN )                    ASM12179
 *                                                                       ASM12180
 SCMBC    LA    R9,1(R9)           ADVANCE OPERAND POINTER               ASM12181
          B     SCMBD              GO LOOK AT OPERATOR NOW               ASM12182
 *                                                                       ASM12183
 STACK    DS    72C                                                      ASM12184
 SCM123   DC    X'00'              ENTRY POINT INDICATOR                 ASM12185
 ENDM0    EQU   SCM123+20000       PRESUMED END OF MASM FOR DUMP PURPOSE ASM12186
          PRINT ON                                                       ASM12187
          LTORG                    PLACE LITERALS USED IN SCAN ROUTINE   ASM12188
-FILE 553;    52 RECORDS:  
0         TITLE 'PROLOGUE       FOR       THE     1130/1800-360 MASM'    ASM20001
 *                                                                       ASM20002
 *        THIS PROLOGUE DISCUSSES, GENERALLY, THE OPERATION              ASM20003
 *        OF THE ASSEMBLER                                               ASM20004
 *                                                                       ASM20005
 *        THERE ARE THREE MAIN OPERATING MODES -                         ASM20006
 *                                                                       ASM20007
 *        (1)   SYMBOL TABLE BUILD AND MACRO EXPANSION                   ASM20008
 *        (2)   SUBSTITUTION OF SYMBOL VALUES INTO THE SOURCE STATEMENT  ASM20009
 *        (3)   OUTPUT, IN WHICH THE ACTUAL SOURCE CODE IS PRODUCED      ASM20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MACRO                                                          ASM20043
 &MACC    COMPC &A,&B,&C                                                 ASM20044
 &MACC    CLI   0(R9),&A                                                 ASM20045
          B&B   &C                                                       ASM20046
          MEND                                                           ASM20047
          TITLE 'EST. ADDRS FOR COMMON SECTION    1130/1800-360 MASM 12' ASM20048
 M0       CSECT                    COMMON WORK AREAS, ROUTINES , ETC.    ASM20049
          ENTRY ENTM0              ENTRY POINT FOR CALL BY SFMASM        ASM20050
          DC    F'0'                                                     ASM20051
          END   ENTM0                                                    ASM20052
-FILE 554;  3506 RECORDS:  
0*                                                                       ASM30001
          TITLE 'MACRO DEFINITIONS                1130/1800-360 MASM'    ASM30002
          MACRO                                                          ASM30003
 &TST     TEST  &A,&B,&C                                                 ASM30004
 &TST     TM    &A,&B                                                    ASM30005
          BO    &C                                                       ASM30006
          MEND                                                           ASM30007
          MACRO                                                          ASM30008
 &MACA    COMPA &OPA1,&OP2,&OPA3                                         ASM30009
 &MACA    CLI   0(R10),&OPA1                                             ASM30010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       ASM33497
 *        END OF LITERALS TABLE                                          ASM33498
 *                                                                       ASM33499
 LITTABD  EQU   *                  END TABLE (UPPER LIMIT)               ASM33500
 *                                                                       ASM33501
 *                                                                       ASM33502
 *        END OF MODE1 PHASE                                             ASM33503
 *                                                                       ASM33504
          DC    F'0'                                                     ASM33505
          END   ST12                                                     ASM33506
-FILE 555;  4184 RECORDS:  
0         TITLE 'MACRO DEFINITIONS                1130/1800-360 MASM'    ASM40001
          MACRO                                                          ASM40002
 &TST     TEST  &A,&B,&C                                                 ASM40003
 &TST     TM    &A,&B                                                    ASM40004
          BO    &C                                                       ASM40005
          MEND                                                           ASM40006
          MACRO                                                          ASM40007
 &MACA    COMPA &OPA1,&OP2,&OPA3                                         ASM40008
 &MACA    CLI   0(R10),&OPA1                                             ASM40009
          B&OP2 &OPA3                                                    ASM40010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 **                                NO LONGER NEEDED.                     ASM44175
 **                                                                      ASM44176
 *                                                                       ASM44177
 HDTMEXT  DC    C'TIME   TOTAL TIME'                                     ASM44178
 *                                                                       ASM44179
 *                                                                       ASM44180
 ODJ0     DS    F                  TEMP HOLD  R15 VALUE                  ASM44181
          LTORG                                                          ASM44182
 *                                                                       ASM44183
          END   ST3                                                      ASM44184
-FILE 556;  1126 RECORDS:  
0         TITLE 'MACRO DEFINITIONS                1130/1800-360 MASM M4' ASM50001
          MACRO                                                          ASM50002
 &TST     TEST  &A,&B,&C                                                 ASM50003
 &TST     TM    &A,&B                                                    ASM50004
          BO    &C                                                       ASM50005
          MEND                                                           ASM50006
          MACRO                                                          ASM50007
 &MACA    COMPA &OPA1,&OP2,&OPA3                                         ASM50008
 &MACA    CLI   0(R10),&OPA1                                             ASM50009
          B&OP2 &OPA3                                                    ASM50010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SIZDUMMI DS    2F                 HOLDS COMPUTED DUMMY SIZE FOR GETMAIN ASM51117
 NP       DS    H                  NO OF ENTRIES PER BASIC MERGE PACKAGE ASM51118
          DS    0F                                                       ASM51119
 PATCHARA DC    110C' '                                                  ASM51120
          LTORG                    PLACE LITERALS HERE                   ASM51121
          DS    0F                                                       ASM51122
 SRCORC   DS    CL(SIZEBLK)                                              ASM51123
          DS    0F                                                       ASM51124
          END   ST4                                                      ASM51125
 //             DD DSNAME=&CPY,UNIT=SYSDA,VOLUME=SER=333333,            XASM51126
-FILE 557;  2282 RECORDS:  
0 BEGIN  COMMENT  PL360 COMPILER -- OS VERSION -- JUNE, 1968;            PL000001
                                                                         PL000002
     EXTERNAL PROCEDURE SYSINIT(R14); NULL;                              PL000003
        COMMENT OBTAINS FREE STORAGE AND OPENS DATA SETS;                PL000004
     EXTERNAL PROCEDURE SYSTERM(R14); NULL;                              PL000005
        COMMENT RELEASES FREE STORAGE AND CLOSES DATA SETS;              PL000006
                                                                         PL000007
     BYTE LISTFLAG=#FF; COMMENT USED TO CONTROL SOURCE CODE LISTING;     PL000008
     BYTE NOGOFLAG=#00; COMMENT USED TO INDICATE GO OR NOGO TO NEXT STEP;PL000009
     BYTE EXITFLAG=#00; COMMENT USED TO INDICATE END OF ASSEMBLY;        PL000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        CVD(R1,CONWORK); ED(4,WBUF(3),CONWORK(5));                       PL002273
        R1 := ERRCOUNT; IF R1 > ERRLIMIT THEN                            PL002274
        MVC(37,WBUF(25),"- ERROR MESSAGE LISTING INCOMPLETE ***");       PL002275
        PRINT; SET(NOGOFLAG);                                            PL002276
     END;                                                                PL002277
     R0 := 0; IF EXITFLAG THEN GOTO LOOP;                               PL002278
     SYSTERM; COMMENT RELEASE SYSTEM RESOURCES;                          PL002279
     R2 := MEM(R13+4); IF NOGOFLAG THEN R0 := 16 ELSE R0 := 0;           PL002280
     MEM(R2+16) := R0; COMMENT SET RETURN CODE;                          PL002281
  END.                                                                   PL002282
-FILE 558;   200 RECORDS:  
0$RUN *MOUNT PAR=S469 ON 9TP *PL360* 'PL360 SOURCE - RING OUT'                   
 $RUN *MOUNT PAR=S416 ON 9TP *POOL* QUIT=YES 'UPDATER -- RING IN'                
 $RUN *UPDATE                                                                    
 %INP     *PL360*                                                                
 %OUT     *POOL*                                                                 
 %DEL     PL000001                                                               
 BEGIN COMMENT PL360 COMPILER -- MTS VERSION JUNE 1968, MODIF SEPT 16;           
 %DEL     PL002193                                                               
     MVC (132,WBUFF,BLANK); R1 := LABELBASE; MVC (11,B1,ZERO);                   
 %CLO     *POOL*                                                                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GOTLIST  DS      2F                                                             
 SAVE     DS    18A                                                              
 WORK     DS      F                                                              
 COMPID   DS      CL16                  COMPILATION ID (TIME AND DATE)           
 EOF      DS      X                     SYSIN END-OF-FILE                        
 LISTSW   DS      X                     LISTING                                  
 LOADSW   DS      X                     OBJECT MODULE (SYSGO)                    
 DECKSW   DS      X                     OBJECT MODULE (SYSPUNCH)                 
 SWITCH   DS      X                                                              
       END                                                                       
-FILE 559;    90 RECORDS:  
0$EMP PL360LIB                                                                   
 $RUN *ASMG SPUNCH=PL360LIB 0=*SYSMAC PAR=FX,SIZE=60                             
 PLSP     TITLE 'PL360 SUPPORT LIBRARY'                                          
          MACRO                                                                  
 &EP      ENTER                                                                  
          ENTRY &EP                                                              
          USING &EP,15                                                           
 &EP      STM   12,11,SAVE                                                       
          L     12,=A($PLCOMP)                                                   
          USING $PLCOMP,12                                                       
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPRINT '1'                                                             
          EXIT                                                                   
 *                                                                               
 BIR      MVC   0(0,6),BL80                                                      
 LEN#     DS    H                                                                
 BL80     DC    CL80' '                                                          
 SAVE     DS    18A                                                              
 EOF      DC    X'00'                                                            
          END                                                                    
 $SIG                                                                            
-FILE 560;  1287 RECORDS:  
0ASUP     TITLE ' A P L / M T S  INTERFACE'                              APLS0001
          SPACE 3                                                        APLS0002
 *                      DAVID A. TWYVER                                  APLS0003
 *                      UNIVERSITY OF BRITISH COLUMBIA                   APLS0004
 *                      VANCOUVER 8 CANADA                               APLS0005
 *                      SEPTEMBER 1969                                   APLS0006
          SPACE 5                                                        APLS0007
          GBLB  &DELAY                                                   APLS0008
          GBLB  &I23                                                     APLS0009
          GBLB  &NEWMTS                                                  APLS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 WSTRANOU DS    0X                                                       APLS1278
          DC    C' ___________'                                          APLS1279
          DC    74C'?'                                                   APLS1280
          DC    C'ABCDEFGHIJKLMNOPQRSTUVWXYZ#'                           APLS1281
          DC    C'abcdefghijklmnopqrstuvwxyz=0123456789.'                APLS1282
          DC    100C'?'                                                  APLS1283
          SPACE 3                                                        APLS1284
 APLSUPND EQU   *                                                        APLS1285
          EJECT                                                          APLS1286
          END                                                            APLS1287
-FILE 561;   584 RECORDS:  
0         TITLE 'EQUATES AND CHANGEABLE STORAGE FOR APLSUP'              APLP0001
 PSECT    DSECT                                                          APLP0002
          SPACE 3                                                        APLP0003
 *     A FEW WORDS FOR APLSUP TO REMEMBER THINGS IN                      APLP0004
 *                                                                       APLP0005
 ************** EXITIN USES THE FOLLOWING AREA ASSUMING                  APLP0006
 *              THIS ORDERING AND DISPLACEMENT. ALSO,                    APLP0007
 *              EXITPARM MUST EQU PSECT.                                 APLP0008
 EXITPARM DS    A (EXITIN)         SVC AND PGNT HANDLER WORKAREA         APLP0009
 CODE     DS    A                  INTERRUPT CODE; 'SVC ' OR 'PGNT'      APLP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PDSLEN   EQU   PDSID-PDSLIB+L'PDSID  LENGTH OF INTERPRETER PARAM BLOCK  APLP0575
          DS    1X                                                       APLP0576
 PDSTCNT  DS    1X                  TRACK COUNT FOR SAVE                 APLP0577
 *        COPTWIN IS THE DIFFERENCE OF PERTERM VALUES                    APLP0578
 *        BETWEEN THE SOURCE AND SINK OF A COPY OPERATION.               APLP0579
 *        PERTERM OF SINK IS THE LESSER ADDRESS                          APLP0580
 *                                                                       APLP0581
 PSECTL   EQU   TBHIGH                                                   APLP0582
 *                                                                       APLP0583
 *  END OF APLSUP WORKING STORAGE.                                       APLP0584
-FILE 562;   193 RECORDS:  
0SYM              APLSUP   PSECTg   EXITPARMc  CODEB  PSW  cASUP0001
 SYM             &BASEG  ATTNAREA  h  uh  yg  COPSORCEF  ^ASUP0002
 SYM           COPYBUF  e  USERIDg  OLDSAPTRF  {MTSAREA  F ASUP0003
 SYM           SVCAREA  G MESSAREA     c QWORKc \FDUBf UASUP0004
 SYM           IOPARMSh Yh h 0h 4e 8IOMODSe IOLINEASUP0005
 SYM           f  IOCOUNTE WSNAME      E MEMORY   { MASUP0006
 SYM                D REGSV  E FRSAVE  	H   f qQR13STKASUP0007
 SYM           f QSYMBOTa MXb uSVIe yPARRELD ONXOF  ASUP0008
 SYM           D ONXDZ  H   C ONFP  H M  E ONATTNASUP0009
 SYM             C UONDZ  D ONRNG   4MQCELLh 6f 8MPTBAASUP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                          FILE                ASUP0184
 TXT               Ć    -_:_                            ASUP0185
 RLD               	 	 	{ 	D 	H 	 	} 	M 	Q 	 	\ 	UASUP0186
 RLD              	Y 	 	0 	4 	8 	        نASUP0187
 RLD                      <    & h   ASUP0188
 RLD                	  -      %         ASUP0189
 RLD                     -             ASUP0190
 RLD                       *      d   mASUP0191
 RLD              q      y                           ASUP0192
 END                                   DATE  11-16-69 20:09             ASUP0193
-FILE 563;  1606 RECORDS:  
0 NCA            DIREMP                                                          
  NCA            KMANHASH                                                        
  NCA            PERTERMG                                                        
  NCA            PTBXLE                                                          
  NCA            SOOKTXT                                                         
  NCA            DFLTDZ                                                          
  NCA            DFLTXOF                                                         
  NCA            DFLTATTN                                                        
  NCA            HDIR                                                            
  NCA            HDIREND                                                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        0{[0{0{[0{K                                     0027
 TXT        qqqqqq\ 	 ^ڶ  $   ԓ^ h *^ʭ     0028
 TXT         q\ n &  	 ⶺnq ! k      0029
 TXT                                                  0030
 TXT        ʈ ^   ġ\ 	{ }ʥ 0{	q}q}        0031
 TXT  0                                                            0032
 RLD                      	                         0033
 END                                                                    ERR 0034
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 564; 10181 RECORDS:  
0         MACRO                                                          PIL00001
 &SL      PUTLINE                                                        PIL00002
 &SL      STM   13,2,SAVR#                                               PIL00003
          LR    2,15                                                     PIL00004
          LA    13,SAVREG#                                               PIL00005
          LA    1,BLPFX#                                                 PIL00006
          L     15,=V(SETPFX)                                            PIL00007
          BALR  14,15                                                    PIL00008
          LR    15,2                                                     PIL00009
          L     14,ANSADR                                                PIL00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SAVR#    DS    3D                                                       PIL00172
 SAVREG#  DS    18F                                                      PIL00173
 PARREG#  DS    6F                                                       PIL00174
 SAV57#   DS    3F                                                       PIL00175
 SAV10#   DS    F                                                        PIL00176
 SAV14#   DS    F                                                        PIL00177
 SAV15#   DS    F                                                        PIL00178
 WORK     DS    D                  START OF WORK AREA                    PIL00179
          EJECT                                                          PIL00180
          END                                                            PIL00181
-FILE 565;  3284 RECORDS:  
0******                                                                  00000000
          MACRO                                                          00000100
 &NAME    ERROR     &MSG                                                 00000200
          LCLA      &L                                                   00000300
 &NAME    BAL       0,ERROR                                              00000400
 &L       SETA      K'&MSG                                               00000500
          DC        AL2(&L+2),C'  ',C&MSG                                00000600
          CNOP      2,4                                                  00000700
          MEND                                                           00000800
 ******                                                                  00000900
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ECHO      UNTRACE,SUBR,UNTRACE,1                               00313200
          ECHO      TRACE,SUBR,TRACE,1                                   00313300
          ECHO      PACK,SUBR,PACK,1                                     00313400
          ECHO      CLEARBUFF,SUBR,CLEARBUF,0                            00313500
          ECHO      MKATOM,SUBR,MKATOM,0                                 00313600
          ECHO      CCLASS,SUBR,CCLASS,2                                 00313700
          DC        A(*+16-NIL,NIL-NIL)    MARK END OF LIST              00313800
          ECHO      SASSOC,SUBR,SASSOCC,3                                00313900
 EFWS     EQU       *                                                    00314000
          END       MAIN                                                 00314100
-FILE 566;   127 RECORDS:  
0$R *MOUNT                                                                       
 S415 9TP *LISP* 'LISP SOURCE'                                                   
 POOL 9TP *POOL*                                                                 
 $ENDFILE                                                                        
 $RUN *UPDATE                                                                    
 %REW     *LISP*                                                                 
 %REW     *POOL*                                                                 
 %OUT     *POOL* 20                                                              
 %INP     *LISP* 20                                                              
 %AFTER   '00008500'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEF     FILEMARK                                                               
 %CLOSE   *LISP*                                                                 
 %CLO     *POOL*                                                                 
 %WTM     *POOL* 25                                                              
 %REW     *POOL*                                                                 
 %END                                                                            
 $RUN *DISMOUNT PAR=*LISP*                                                       
 $EMP LISP                                                                       
 $R *ASMG SCARDS=*POOL* SPUNCH=LISP 0=*SYSMAC PAR=SIZE=180,FX,T,IBLK=20,RD       
 $R *OBJSCAN PAR=LISP                                                            
-FILE 567;   663 RECORDS:  
0PNTABL   91                                                             ISTM0001
 PVTABL   107                                                            ISTM0002
 TABGEN   124                                                            ISTM0003
 ENT      147                                                            ISTM0004
 MCRTBE   163                                                            ISTM0005
 BTINN    178                                                            ISTM0006
 MSG      198                                                            ISTM0007
 PSECT    212                                                            ISTM0008
 BAS      225                                                            ISTM0009
 BASR     235                                                            ISTM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *          LENGTH OF THE SYMBOL NAME.                                   ISTM0654
          SPACE 2                                                        ISTM0655
          MACRO                                                          ISTM0656
          MDFTB &CHAR,&DISP,&LEN                                         ISTM0657
          DC    CL4'&CHAR    '                                           ISTM0658
          DC    AL1(&DISP)                                               ISTM0659
          DC    AL1(BRKBEG)                                              ISTM0660
          DC    H'&LEN'                                                  ISTM0661
          MEND                                                           ISTM0662
          END                                                            ISTM0663
-FILE 568;   159 RECORDS:  
0         EJECT                                                          ISC10001
          SPACE 6                                                        ISC10002
 *********************************************************************** ISC10003
 *                                                                     * ISC10004
 *********************************************************************** ISC10005
 *                                                                     * ISC10006
 *********************************************************************** ISC10007
 *                                                                     * ISC10008
 *                                                                     * ISC10009
 *     UMIST SYMBOL DEFINITIONS...                                     * ISC10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PNTYP    EQU   5             TYPE OF PARAMETER                          ISC10150
 PNDX     EQU   6             PARAMETER INDEX IN VALUE TABLE             ISC10151
          SPACE 4                                                        ISC10152
 *          PARAMETER VALUE TABLE                                        ISC10153
          SPACE 2                                                        ISC10154
 PVAL     EQU   0             PARAMETER INTERNAL VALUE                   ISC10155
 PVLEN    EQU   4             EXTERNAL VALUE IBM LENGTH                  ISC10156
 PVMLEN   EQU   5             EXTERNAL VALUE MAXIMUM LENGTH              ISC10157
 PVDISP   EQU   6             EXTERNAL VALUE DISPLACEMENT                ISC10158
          EJECT                                                          ISC10159
-FILE 569;   328 RECORDS:  
0         EJECT                                                          ISC20001
          SPACE 6                                                        ISC20002
 *********************************************************************** ISC20003
 *                                                                     * ISC20004
 *********************************************************************** ISC20005
 *                                                                     * ISC20006
 *********************************************************************** ISC20007
 *                                                                     * ISC20008
 *                                                                     * ISC20009
 *     UMIST PSECT                                                     * ISC20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    50F                                                      ISC20319
 Z@CALL   EQU   *                                                        ISC20320
          SPACE 3                                                        ISC20321
 *          STORAGE AREA FOR SDUMP                                       ISC20322
 *                                                                       ISC20323
          CNOP  0,8                                                      ISC20324
 DUMPAREA EQU   *                                                        ISC20325
          DS    CL488                                                    ISC20326
          CSECT                                                          ISC20327
          EJECT                                                          ISC20328
-FILE 570;   313 RECORDS:  
0IST1     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            IST10001
          SPACE 7                                                        IST10002
 *********************************************************************** IST10003
 *                                                                     * IST10004
 *********************************************************************** IST10005
 *                                                                     * IST10006
 *********************************************************************** IST10007
 *                                                                     * IST10008
 *                                                                     * IST10009
 *     *      *     **     **     ***      *******      *********      * IST10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EXTRN UMPSECT                                                  IST10304
          EXTRN @RESTART                                                 IST10305
 *                                                                       IST10306
 UMISTMSG DC    C'... UMIST SIGNS ON ...'                                IST10307
 UMISMSGL DC    Y(L'UMISTMSG) LENGTH OF MESSAGE                          IST10308
 UMISMODF DC    F'0'          MODIFIERS FOR SERCOM                       IST10309
 UMISBASE DC    A(UMPSECT)    ***** OS ADCON ***** UMIST PSECT *****     IST10310
 RESTART  DC    A(@RESTART)                                              IST10311
          DROP  J                                                        IST10312
          END                                                            IST10313
-FILE 571;   385 RECORDS:  
0         SPACE 1                                                        IST20001
          GBLC  &ASM                                                     IST20002
 &ASM     SETC  'TBL'                                                    IST20003
          PRINT OFF                                                      IST20004
 IST2     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            IST20005
          COPY  /SYMBOLS@S                                               IST20006
          COPY  /PSECT@S                                                 IST20007
          PRINT ON                                                       IST20008
          SPACE 6                                                        IST20009
 *********************************************************************** IST20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(B$TEST-$TEST)                                          IST20376
          DC    A((E$TEST-$TEST)/(B$TEST-$TEST))                         IST20377
          DC    A(B$NAME-$NAME)                                          IST20378
          DC    A((E$NAME-$NAME)/(B$NAME-$NAME))                         IST20379
          DC    A(B$DEFINE-$DEFINE)                                      IST20380
          DC    A((E$DEFINE-$DEFINE)/(B$DEFINE-$DEFINE))                 IST20381
          DC    A(B$PNAME-$PNAME)                                        IST20382
          DC    A(B$PVALUE-$PVALUE)                                      IST20383
 E$LENGTH EQU   *                                                        IST20384
          END                                                            IST20385
-FILE 572;    64 RECORDS:  
0IST3     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            IST30001
          SPACE 1                                                        IST30002
 *********************************************************************** IST30003
 *                                                                     * IST30004
 *********************************************************************** IST30005
 *                                                                     * IST30006
 *********************************************************************** IST30007
 *                                                                     * IST30008
 *                                                                     * IST30009
 *     UMIST MISCELLANEOUS CONTROL SECTIONS                            * IST30010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 3                                                        IST30055
 CFREE    CSECT                                                          IST30056
          ENTRY FREE                                                     IST30057
          ENTRY EFREE                                                    IST30058
          SPACE 1                                                        IST30059
 FREE     EQU   *                                                        IST30060
          DS    1018F                                                    IST30061
 EFREE    EQU   *                                                        IST30062
          SPACE 6                                                        IST30063
          END                                                            IST30064
-FILE 573;  1484 RECORDS:  
0IST4     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            IST40001
          PRINT OFF                                                      IST40002
          SPACE 1                                                        IST40003
          GBLC  &ASM                                                     IST40004
 &ASM     SETC  'PSECT'                                                  IST40005
          COPY  /SYMBOLS@S                                               IST40006
          PRINT ON                                                       IST40007
          COPY  /PSECT@S                                                 IST40008
 &ASM     SETC  'UT1'                                                    IST40009
          SPACE 6                                                        IST40010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PRINTZ   LTR   H,H           ARE YOU THROUGH?                           IST41475
          BNZ   PRINT         BRANCH IF NOT                              IST41476
          ZR    0             CLEAN UP AFTER OS/360                      IST41477
          ZR    1             CLEAR OUT 1 AFTER OS                       IST41478
 PRINTED  POP   ,             RESTORE STACK POINTER                      IST41479
 PRINTOUT EXIT  D,R                                                      IST41480
 *                                                                       IST41481
 PRINTM   DC    F'0'          MODIFIERS FOR SPRINT                       IST41482
          DROP  J                                                        IST41483
          END                                                            IST41484
-FILE 574;  1755 RECORDS:  
0IST5     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            IST50001
          SPACE 1                                                        IST50002
          GBLC  &ASM                                                     IST50003
 &ASM     SETC  'PR1'                                                    IST50004
          COPY  /SYMBOLS@S                                               IST50005
          COPY  /PSECT@S                                                 IST50006
          SPACE 6                                                        IST50007
 *********************************************************************** IST50008
 *                                                                     * IST50009
 *********************************************************************** IST50010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LEFERRA  ERROR 'FUNCTION CALL TABLE OVERFLOW IN LEF',,12                IST51746
          B     LEFOUT                                                   IST51747
 LEFERRB  STM   H,I,0(S)      SAVE RESISTERS H AND I                     IST51748
          GETARG  H           GET ARGUMENT BOUNDS                        IST51749
          ERROR  'ATTEMPT TO REDEFINE A PROTECTED NAME IN LEF ',,12,H    IST51750
          LM    H,I,0(S)      RESTORE REGISTERS H AND I                  IST51751
          B     LEFTRY1                                                  IST51752
          DROP  J                                                        IST51753
          SPACE 6                                                        IST51754
          END                                                            IST51755
-FILE 575;  1400 RECORDS:  
0IST6     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            IST60001
          PRINT OFF                                                      IST60002
          SPACE 1                                                        IST60003
          GBLC  &ASM                                                     IST60004
 &ASM     SETC  'PR2'                                                    IST60005
          COPY  /SYMBOLS@S                                               IST60006
          PRINT ON                                                       IST60007
          COPY  /PSECT@S                                                 IST60008
          SPACE 6                                                        IST60009
 *********************************************************************** IST60010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    CL8'8'                                                   IST61391
          DC    CL8'9'                                                   IST61392
 MTSTBL1E EQU   *-8                                                      IST61393
 MTSNOOP  DC    C'NOOP'                                                  IST61394
 MTSBUSY  DC    C'BUSY'                                                  IST61395
 MTSBAT   DC    C'BATCH'                                                 IST61396
 MTSCONV  DC    C'CONV.'                                                 IST61397
          DROP  J                                                        IST61398
          SPACE 6                                                        IST61399
          END                                                            IST61400
-FILE 576;   131 RECORDS:  
01        THIS IS A GENERAL UMIST TEST AT ##(TM) ON ##(DT)...'                   
 -'                                                                              
 ##(EQ,##(EQ,##(EQ,,,T,F),##(EQ,THIS IS A LOOONG STRINX,THIS IS A LOOONG STRING,F
 ,T),Y,N),##(EQ,1111,111,N,Y),EQ O.K.,EQ IN ERROR)'                              
 ##(EQ,##(EQ,##(RS),(#(##(A,B))),Y,N),##(EQ,#(RS),,Y,Z),RS O.K.,RS IN ERROR)'#(##
 (A,B))'#(DSS,MES,*)#(RS)#(DSS,MES,##(XTC,7D))#(RS)'*''                          
 ##(EQ,##(EQ,##(EQ,##(RC),1,OK,NO),##(EQ,##(RC),#,OK,NEG),YES,OH),##(EQ,##(RC),##
 (MES),YES,OOPS),RC O.K.,RC IN ERROR)'1#'                                        
 ##(EQ,##(EQ,##(RN,1),A,OK,NO),##(EQ,##(RN,7),1234567,OK,F),##(NL,##(RN,11))#(RN,
 8),##(RN,11))'A1234567RN IN ERROR##(RN,7)RN O.K.RN IN ERROR                     
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 )#(EASY)...#(CL,EASY)'DS,1,#( ,1)'DS,5,#( ,5)'EQ,#(CL,1)#(CL,5),1120,RECURSIVE F
 ACTORIAL AND EASY WORK,RECURSIVE FACTORIAL AND EASY DO NOT WORK'CL,EASY,#(RIN)' 
 -'                                                                              
 #(DS, ,(#(DS,CTR,1)#(DS,VAL,1)#(TEST,X)...                                      
 #(DS,TEST,(#(EQ,X,#(CTR),#(VAL),(#(DS,VAL,#(DS,CTR,#(AD,#(CTR),1))#(ML,#(CTR),#(
 VAL)))#(TEST,X)...                                                              
 #(SS, ,X)#(SS,TEST,X)#(EQ,#( ,1)#( ,5),1120,ITERATIVE FACTORIAL WORKS,ITERATIVE 
  FACTORIAL DOES NOT WORK)'                                                      
 ##(DS,A,(-END OF UMIST TEST AT ##(TM) ON ##(DT)))'                              
 ##(BYE,#(A))'                                                                   
-FILE 577;  7584 RECORDS:  
0       TITLE   'E22A MODIFIED E22 (OCT. 7, 1968) CORRESPONDING TO V2.0' 00000001
 *      VERSION 2.0 CORRESPONDS TO THIS LISTING                          00000002
        COPY    MLINK               LINKAGE.                             00000003
        COPY    PARMS               PARAMETERS.                          00000004
        TITLE   'SYSTEM PARAMETERS'                                      00000005
 *      IMPLEMENTATION-INDEPENDENT PARAMETERS                            00000006
 *                                                                       00000007
 ATTRIB EQU     2*DESCR             ATTRIBUTE POSITION IN STRING STRUC.  00000008
 LNKFLD EQU     3*DESCR             LINK POSITION IN STRING STRUCTURE.   00000009
 BCDFLD EQU     4*DESCR             CHARACTER POSITION IN STRING STRUC.  00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SCANNO FORMAT  '(1H0,I15,26H PATTERN MATCHES PERFORMED)'                00007575
 STDMP  FORMAT  '(33H1DUMP OF VARIABLES AT TERMINATION/1H )'             00007576
 STGENO FORMAT  '(1H0,I15,33H REGENERATIONS OF DYNAMIC STORAGE)'         00007577
 SOURCF FORMAT  '(42H0BELL TELEPHONE LABORATORIES, INCORPORATED,/1H1)'   00007578
 STATHD FORMAT  '(28H1SNOBOL4 STATISTICS SUMMARY-)'                      00007579
 SUCCF  FORMAT  '(38H0NO ERRORS DETECTED DURING COMPILATION/1H1)'        00007580
 SYSCMT FORMAT  '(27H0CUT BY SYSTEM IN STATEMENT,I4,9H AT LEVEL,I3)'     00007581
 TIMEPS FORMAT  '(1H0,F15.2,35H MS. AVERAGE PER STATEMENT EXECUTED/1H1)' 00007582
 TITLEF FORMAT  '(36H1SNOBOL4 (VERSION 2.0, OCT. 7, 1968)/8H+_______)'   00007583
        END                                                              00007584
-FILE 578;  1963 RECORDS:  
0SUBR   START                                                            00000001
          ENTRY     ARITH#                                               00000002
          ENTRY     ADJSWTCH                                             00000003
          ENTRY     ADJSW                                                00000004
          EXTRN     FORTSAVE                                             00000005
        ENTRY   ALPHA                                                    00000006
          ENTRY     LASTDUMP                                             00000007
        ENTRY   APDSP                                                    00000008
        ENTRY   BDSPEC                                                   00000009
          ENTRY     COMPLG                                               00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L         R3,0(R2)        N                                    00001954
          SR        R3,R4           N-(N-I) = I                          00001955
          ST        R3,0(R2)        SET LENGTH OF R1.                    00001956
          L         1,=A(STYPE)                                          00001957
          ST        R7,0(1)                                              00001958
          B         8(14)                                                00001959
 STRMTRT  TRT       1(0,1),0(R3)        TRANSLATE AND TEST               00001960
 STTEMP   DC        2F'0'                                                00001961
          LTORG                                                          00001962
          END                                                            00001963
-FILE 579;    96 RECORDS:  
0STINT    START                                                          00000001
          ENTRY     MEMLEN          LENGTH OF FREE STORAGE ALLOCATED.    00000002
 DESCR    EQU       8               ADDRESS WIDTH OF STANDARD STORAGE    00000003
 MEMLEV   EQU       10000           LEAVE THIS MANY BYTES FOR BUFFERS    00000004
 *                                  AND NON-RESIDENT I/O MODULES.        00000005
 MEMMIN   EQU       4400            MINIMUM 'TOY' MEMORY SIZE (DESCR).   00000006
 MEMMAX   EQU       25000           MAXIMUM NUMBER OF DESCRIPTORS        00000007
          TITLE     'STINT'                                              00000008
          USING     *,7                                                  00000009
          LR        7,15                SAVE BASE                        00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        CL8'STORAGE'                                         00000087
 MEMREQ   DC        A(MEMMIN*DESCR)                                      00000088
 MEMTOP   DC        A(MEMMAX*DESCR)                                      00000089
 MEMGIV   DC        A(0)                                                 00000090
 MEMLEN   DC        A(0)                                                 00000091
 RESERVE  DC        A(MEMLEV)                                            00000092
 DIGIT    DC        F'0'                                                 00000093
 CHAR     EQU       DIGIT+3                                              00000094
 DONE     DC        C' '                                                 00000095
          END                                                            00000096
-FILE 580;  1843 RECORDS:  
0./  ADD  NAME=ACOMP,LEVEL=01,SOURCE=0                                   00000001
          MACRO                                                          00000002
 &LOC     ACOMP     &CL1,&CL2,&LOC1,&LOC2,&LOC3                          00000003
 &LOC     L         1,&CL1                                               00000004
          C         1,&CL2                                               00000005
          AIF       ('&LOC1' NE '&LOC2').NOT12                           00000006
          AIF       ('&LOC1' NE '').K1                                   00000007
          BL        &LOC3                                                00000008
          MEXIT                                                          00000009
 .K1      BNL       &LOC1                                                00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 &LOC     ZERBLK    &PTR,&CL                                             00001834
 &LOC     L         1,&PTR                                               00001835
          L         5,&CL                                                00001836
          LR        4,8                                                  00001837
          LR        3,0                                                  00001838
          LD        0,=D'0'                                              00001839
 A&SYSNDX STD       0,0(3,1)                                             00001840
          BXLE      3,4,A&SYSNDX                                         00001841
          MEND      ZERBLK                                               00001842
 ./  ENDUP                                                               00001843
-FILE 581;  3962 RECORDS:  
0         MACRO                                                          00000001
 &LOC1    BRANCH@    &LOC2,&LOC3                                         00000002
          AIF       (T'&LOC3 NE 'O').A                                   00000003
 &LOC1    B         0                                                    00000004
          MEXIT                                                          00000005
 .A       ANOP                                                           00000006
 &LOC1    L         11,0                                                 00000007
          BR        11                                                   00000008
          MEND      BRANCH@                                              00000009
          MACRO                                                          00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BRANCH    RTN1                                                 00003953
 WA$FMT1  FORMAT    '(29H IT OCCURRED IN STATEMENT NO. ,I5)'             00003954
 WA1      SETAC     EMSGCL,WA$TM                                         00003955
          BRANCH    FTLEXT                                               00003956
 WA$N     DESCR     0,0,0                                                00003957
 WA$DIAG  DESCR     DIAGUN,0,0                                           00003958
 WA$FMT   FORMAT    '(20H THIS IS WARNING NO.,I4)'                       00003959
 WA$TM    STRING    'TOO MANY WARNINGS.'                                 00003960
          LTORG                                                          00003961
          END                                                            00003962
-FILE 582;   211 RECORDS:  
0./      ADD    LIST=ALL,SEQFLD=774,NAME=CYC                             00000001
 ./   NUMBER   SEQ1=ALL,NEW1=0010,INCR=0010                              00000002
          MACRO                                                          00000003
 &LOC     CYC       &CL1                                                 00000004
 &LOC     ACOMPC    &CL1,3*DESCR,,,AA&SYSNDX                             00000005
          SETAC     &CL1,0                                               00000006
 AA&SYSNDX INCRA    &CL1,DESCR                                           00000007
          MEND      CYC                                                  00000008
 ./  ADD  LIST=ALL,SEQFLD=774,NAME=FASTPR                                00000009
 ./  NUMBER  SEQ1=ALL,NEW1=0010,INCR=0010                                00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ./      ADD    LIST=ALL,SEQFLD=774,NAME=TRL                             00000202
 ./   NUMBER   SEQ1=ALL,NEW1=0010,INCR=0010                              00000203
          MACRO                                                          00000204
 &LOC     TRL       &CL1,&CL2                                            00000205
 &LOC     MOVD      &CL1,&CL2                                            00000206
          VEQLC     &CL2,EDGDT,AA&SYSNDX                                 00000207
          GETDC     &CL1,&CL2,TR1$                                       00000208
 AA&SYSNDX  LHERE   ,                                                    00000209
          MEND      TRL                                                  00000210
 ./  ENDUP                                                               00000211
-FILE 583;    52 RECORDS:  
0./ REPL  LIST=ALL,SEQFLD=774,NAME=ENDEX                                 00000001
 ./  NUMBER  SEQ1=ALL,NEW1=0010,INCR=0010                                00000002
          MACRO                                                          00000003
 &LOC     ENDEX                                                          00000004
 &LOC     L         1,=A(SPIECUTF)                                       00000005
          C         0,0(1)                                               00000006
          BE        U&SYSNDX                                             00000007
          ABEND     1,DUMP                                               00000008
 U&SYSNDX C         0,ABNDCL                                             00000009
          BE        V&SYSNDX                                             00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ./     REPL    LIST=ALL,SEQFLD=774,NAME=VARID                           00000043
 ./   NUMBER   SEQ1=ALL,NEW1=0010,INCR=0010                              00000044
          MACRO                                                          00000045
 &LOC     VARID     &CL1,&SP                                             00000046
 &LOC     LA        1,&CL1                                               00000047
          LM        2,4,&SP                                              00000048
          L         15,=V(VARID)                                         00000049
          BALR      14,15                                                00000050
          MEND      VARID                                                00000051
 ./  ENDUP                                                               00000052
-FILE 584;   372 RECORDS:  
0CLEANIO  CSECT                                                          00000001
          ENTRY    FASTRD                                                00000002
          ENTRY   STREAD                                                 00000003
          ENTRY   FASTPR                                                 00000004
          ENTRY   FINIS                                                  00000005
          ENTRY     FORTSAVE                                             00000006
          ENTRY     IHCTRCH                                              00000007
 *********************************************************************** 00000008
 *                                                                     * 00000009
 *                         CLEANIO                                     * 00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    4H                                                       00000363
          DS    CL1                                                      00000364
          DS    0F                                                       00000365
 SAVE     DS    16F           REGISTER SAVE                              00000366
 FDIOCS$  DS    F                                                        00000367
 MAINEP   DS    F             MAIN PROGRAM ENTRY POINT                   00000368
 ERRSAV   DS    18F                                                      00000369
 ENDFILE  DS    F             EXIT ADDRESS FOR EOF, OR ZEROS             00000370
 IOERROR  DS    F             EXIT FOR I/O ERROR CR ZEROS                00000371
           END                                                           00000372
-FILE 585;    67 RECORDS:  
0VARID    CSECT                                                          00000001
          EXTRN     FRWDTB                                               00000002
          USING     *,15                                                 00000003
 CHARPTR EQU        4              POINTS TO THE CHARACTERS              00000004
 CLPTR    EQU       6              POINTS TO THE DOUBLE WORD WHICH IS TO 00000005
 *                                 RECEIVE THE HASHING                   00000006
 LREG     EQU       7              HOLDS THE LENGTH                      00000007
 TEMPREG EQU        2                                                    00000008
 TEMP1REG EQU       5              A TEMPORARY                           00000009
 TEMP2REG EQU       2                                                    00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          M         EVENREG,4(CLPTR)                                     00000058
          SLDL      EVENREG,11                                           00000059
          SLL       LREG,24                                              00000060
          ALR       ODDREG,LREG                                          00000061
          SRL       ODDREG,24                                            00000062
          SLL       ODDREG,3                                             00000063
          ST        ODDREG,0(CLPTR)                                      00000064
          ST        EVENREG,4(CLPTR)                                     00000065
          BR        14                                                   00000066
          END                                                            00000067
-FILE 586;  1572 RECORDS:  
0$RUN *MOUNT PAR=S426 9TP *IN* SIZE=3200 RING=OUT 'SNOBOL MASTER'                
 $RUN *MOUNT PAR=S422 9TP *OUT* SIZE=3200 RING=IN 'SNOBOL UPDATE'                
 $RUN *UPDATE                                                                    
 %REW *IN*                                                                       
 %REW *OUT*                                                                      
 %INPUT *IN* 40                                                                  
 %OUTPUT *OUT* 40                                                                
 %BEFORE  '00000071'                                                             
          OUTPUT    OUTPUT,TITLEF1                                               
 %BEFORE  '00000104'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
           COPY1=*DUMMY* COPY2=*DUMMY* COPY3=*DUMMY*                             
 $RUN *MACGEN SCARDS=MACROS1(1000) SPUNCH=MACROS1                                
 $RUN *MACGEN SCARDS=MACROS2(1000) SPUNCH=MACROS2                                
 $RUN *MACGEN SCARDS=MACROS3(1000) SPUNCH=MACROS3                                
 $LIST MACROS1                                                                   
 $LIST MACROS2                                                                   
 $LIST MACROS3                                                                   
 $LIST MDATA                                                                     
 $LIST MLINK                                                                     
 $LIST PARMS                                                                     
-FILE 587;    45 RECORDS:  
0SNOMAC: PROCEDURE OPTIONS (MAIN);                                               
         DECLARE HEADER STATIC CHARACTER (2);                                    
         DECLARE DUMMY1 STATIC CHARACTER (7);                                    
         DECLARE NAME STATIC CHARACTER (5);                                      
         DECLARE LINE STATIC CHARACTER (58);                                     
         DECLARE DUMMY2 STATIC CHARACTER (8);                                    
         DECLARE CNT BINARY FIXED INITIAL (0);                                   
 START:  CALL READ;                                                              
         IF HEADER='./' THEN GO TO NEWMAC;                                       
 PRINT:  PUT FILE(MACRO) EDIT (HEADER,DUMMY1,NAME,LINE)                          
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COP3:   PUT FILE(COPY3) EDIT (HEADER,DUMMY1,NAME,LINE)                          
                              (A(2), A(7), A(5), A(58));                         
         CALL READ;                                                              
         IF HEADER='./' THEN GO TO NEWMAC;                                       
         GO TO COP3;                                                             
 READ:   PROCEDURE;                                                              
         GET EDIT (HEADER,DUMMY1,NAME,LINE,DUMMY2)                               
                              (A(2), A(7), A(5), A(58), A(8));                   
         END READ;                                                               
 END:    END SNOMAC;                                                             
-FILE 588;    66 RECORDS:  
0ESD          SNOMAC        	;*SNOMACA      IHEQINV              SNOM0001
 ESD          IHESADA        IHESADB        IHEQERR              SNOM0002
 ESD          IHEQTIC      IHEMAIN        IHENTRY                SNOM0003
 ESD          IHESAPC        IHEQLWF      IHEQSLA              SNOM0004
 ESD          IHEQLW0      *SNOMACB     *SNOMACC             SNOM0005
 ESD          IHEDIBA       IHEDOBA       IHEIOAT               SNOM0006
 ESD          IHEIOAA       IHEIOBT       IHEIOBA               SNOM0007
 ESD          IHESAFA       IHESCDS        SCARDS               SNOM0008
 ESD          COPY3          COPY3        COPY2                  SNOM0009
 ESD          COPY2        COPY1          COPY1                SNOM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                                  SNOM0057
 TXT          ٓ00                                                  SNOM0058
 RLD              r      ~    j  r  ~  z       SNOM0059
 TXT                                  	SCARDS                         SNOM0060
 TXT                                  COPY3                          SNOM0061
 TXT                                  COPY2                          SNOM0062
 TXT                                  COPY1                          SNOM0063
 TXT                                  MACRO                          SNOM0064
 RLD                                           `SNOM0065
 END                                                                   SNOM0066
-FILE 589;   205 RECORDS:  
0*                                                                       SYN00001
        READ('INPUT',5,80)                                               SYN00002
 *                                                                       SYN00003
 *                                                                       SYN00004
 *      THE FOLLOWING CONSTANTS DEFINE THE PARTICULAR CHARACTERS AND     SYN00005
 *      CLASSES OF CHARACTERS USED IN THE SYNTAX TABLES FOR SNOBOL4.     SYN00006
 *                                                                       SYN00007
 *                                                                       SYN00008
 *                                                                       SYN00009
 *      ALL CHARACTERS WHICH APPEAR AS QUOTED LITERALS, AND ALL          SYN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 39     BYTE   =   '9C'                                 :(RETURN)        SYN00196
 40     BYTE   =   'A0'                                 :(RETURN)        SYN00197
 *                                                                       SYN00198
 *                                                                       SYN00199
 *                                                                       SYN00200
 PUBLISH                                                                 SYN00201
        OUTPUT   =   X                                                   SYN00202
        PUNCH   =   X                                   :(RETURN)        SYN00203
 TER                                                                     SYN00204
 END                                                                     SYN00205
-FILE 590;   120 RECORDS:  
0BIOPTB                                                                  SYNT0001
 FOR('+') PUT(ADDFN) GOTO(TBLKTB)                                        SYNT0002
 FOR('-') PUT(SUBFN) GOTO(TBLKTB)                                        SYNT0003
 FOR('.') PUT(NAMFN) GOTO(TBLKTB)                                        SYNT0004
 FOR('$') PUT(DOLFN) GOTO(TBLKTB)                                        SYNT0005
 FOR('*') GOTO(STARTB)                                                   SYNT0006
 FOR('/') PUT(DIVFN) GOTO(TBLKTB)                                        SYNT0007
 FOR(ORSYM) PUT(ORFN) GOTO(TBLKTB)                                       SYNT0008
 ELSE ERROR                                                              SYNT0009
 CARDTB                                                                  SYNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FOR(',') PUT(CMATYP) STOPSHORT                                          SYNT0111
 FOR(')') PUT(RPTYP) STOPSHORT                                           SYNT0112
 ELSE ERROR                                                              SYNT0113
 VARTB                                                                   SYNT0114
 FOR(ALPHANUMERIC,'.') CONTINUE                                          SYNT0115
 FOR(TERMINATOR) PUT(VARTYP) STOPSHORT                                   SYNT0116
 FOR('(') PUT(FNCTYP) STOP                                               SYNT0117
 FOR(LEFTBR) PUT(ARYTYP) STOP                                            SYNT0118
 ELSE ERROR                                                              SYNT0119
 $CONTINUE WITH SYNTBL                                                   SYNT0120
-FILE 591;    19 RECORDS:  
0$RUN *SNOBOL4;5=*CONVSNOBOL(3) 6=*DUMMY*(1,20)+*MSINK* 8=*MSOURCE*@UC 9=*MSINK* 
 $SOURCE *MSOURCE*                                                               
  INPUT("IN",8,132)                                                              
  OUTPUT("OUTPUT",9,"(1X,120A1)")                                                
  PROG = ARRAY(200)                                                              
  I = 1                                                                          
 CLEAR PROG<I> = CONVERT(" :<PROG<" I + 1 ">>;","CODE")                          
  I = LT(I,199) I + 1 :S(CLEAR)                                                  
  PROG<200> = CONVERT(" :(NEXT);","CODE")                                        
  OUTPUT = " ENTER SNOBOL STATEMENTS."                                           
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NEXT TRIM(IN) ARB . TEXT . LIST RPOS(0) :F(END)                                 
  TEXT POS(0) SPAN("1234567890") . NUM RTAB(0) . TEXT :F(IMED)                   
  IDENT(NUM) :S(IMED)                                                            
  PROG<NUM> = CONVERT(TEXT "; :<PROG<" NUM + 1 ">>;","CODE") :F(ERROR)           
  :(NEXT)                                                                        
 IMED CODE = CONVERT(TEXT "; :(NEXT);","CODE") :F(ERROR)                         
       :<CODE>                                                                   
 ERROR  OUTPUT = "COMPILATION ERROR"    :(NEXT)                                  
 END                                                                             
-FILE 592;  2605 RECORDS:  
0$EMPTY SLIPMACROS                                                       SLIP0001
 $GET SLIPMACROS                                                         SLIP0002
 $NUMBER                                                                 SLIP0003
 CALL     100                                                            SLIP0004
 SEXIT    105                                                            SLIP0005
 SINIT    110                                                            SLIP0006
 00000000                                                                SLIP0007
 $NUM 100,.01                                                            SLIP0008
           MACRO                                                         SLIP0009
 &NAME     CALL      &CL,&AG,&NM                                         SLIP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 % % 1 2 @N@ . @N@ < % 2 1 @N@ . < % 3 1 . @N@ < <                       SLIP2596
 @FK@                                                                    SLIP2597
 % % 1 2 @FK1@ E @N@ < % 2 1 @FK1@ < <                                   SLIP2598
 @EXP@                                                                   SLIP2599
 % % 1 3 @V@ @OP@ @EXP@ < % 2 3 @FK@ @OP@ @EXP@ < % 3 2 @N@ @OP@ @EXP@ < SLIP2600
   % 4 2 @OP@ @EXP@ < % 5 1 @V@ < % 6 1 @N@ < % 7 1 @FK@ <<              SLIP2601
 @EXP@     A*B&C/D-32.E4.NE.52.E10&27.E22.3                              SLIP2602
 $ENDFILE                                                                SLIP2603
 $RUN DRIVE2+*SLIP 5=DRIVE2DATA 6=*SINK*                                 SLIP2604
 $SIGNOFF                                                                SLIP2605
-FILE 593;  2569 RECORDS:  
0                   MACRO                                                ST100001
 &NAME              ACQUIRE   &QUAN,&FIELD                               ST100002
                    GBLA      &$ACTR                                     ST100003
                    GBLA      &$NDX                                      ST100004
                    GBLA      &$YSNDX                                    ST100005
                    GBLA      &$RR,&$LPOS                                ST100006
                    GBLA      &$R                                        ST100007
                    GBLB      &$QQQ                                      ST100008
                    LCLA      &R                                         ST100009
                    ACTR      &$ACTR                                     ST100010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          AGO   .CONTE                                                   ST102560
 .ISAREG  AIF   ('&RC(1)' EQ '15').CONTE                                 ST102561
          IHBERMAC 61,,&RC                                               ST102562
          MEXIT                                                          ST102563
 .CONTE   BR    14                                RETURN                 ST102564
          AGO   .END                                                     ST102565
 .ERROR1  IHBERMAC 36,,&REG                                              ST102566
          MEXIT                                                          ST102567
 .ERROR2  IHBERMAC 37,,&PARA                                             ST102568
 .END     MEND                                                           ST102569
-FILE 594;  1470 RECORDS:  
0         TITLE     'WIREWRAP - MTS VERSION'                             WIRE0001
 *WIREWRAP IS BASICALLY A LIST-PROCESSOR BUILT AROUND TWO LIST           WIRE0002
 *        STRUCTURES:                                                    WIRE0003
 *                                                                       WIRE0004
 *        1.        A STRUCTURE NAMED 'CKT' WHICH CONTAINS A SINGLE      WIRE0005
 *                  CHAIN OF NET NAMES IN ALPHABETICAL ORDER.            WIRE0006
 *                                                                       WIRE0007
 *        2.        A STRUCTURE NAMED 'PIN' WHICH CONTAINS ONE LIST      WIRE0008
 *                  ELEMENT FOR EVERY WIRE-WRAP PIN IN THE BAY(S) TO BE  WIRE0009
 *                  WIRED.  THESE LIST ELEMENTS ARE PHYSICALLY ORDERED   WIRE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        C'PAGE '                                             WIRE1461
 PAGE     DC        4C' '                                                WIRE1462
 LEVELSW  DC        X'01'           SWITCH FOR LEVEL 1 AND LEVEL 2       WIRE1463
 *                                                                       WIRE1464
 EXIT     L         13,0(0,13)      RETURN CODE FOR PROCEDURES           WIRE1465
          LM        1,15,8(13)                                           WIRE1466
          BR        14                                                   WIRE1467
          EJECT                                                          WIRE1468
          LTORG                                                          WIRE1469
          END                                                            WIRE1470
-FILE 595;   472 RECORDS:  
0         MACRO                                                          MSER0001
 &L       PROC      &REG                                                 MSER0002
          USING     *,&REG                                               MSER0003
 &L       STM       1,15,8(13)                                           MSER0004
          LR        &REG,15                                              MSER0005
          CNOP      0,4                                                  MSER0006
          ST        13,*+8                                               MSER0007
          BAL       13,*+76                                              MSER0008
          DS        18F                                                  MSER0009
          MEND                                                           MSER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'B22-1    B22-2    B23-1    B23-2    B24-1    B24-2    XMSER0463
                B25-1    B25-2    B26-1    B26-2    B27-1    B27-2    B2XMSER0464
                8-1    B28-2'                                            MSER0465
          DC    C'A29-1    A29-2    A30-1    A30-2    A31-1    A31-2    XMSER0466
                A32-1    A32-2                                          XMSER0467
                            '                                            MSER0468
          DC    C'B29-1    B29-2    B30-1    B30-2    B31-1    B31-2    XMSER0469
                B32-1    B32-2                                          XMSER0470
                            '                                            MSER0471
          END                                                            MSER0472
-FILE 596;   405 RECORDS:  
0         MACRO                                                          RSER0001
 &L       PROC      &REG                                                 RSER0002
          USING     *,&REG                                               RSER0003
 &L       STM       1,15,8(13)                                           RSER0004
          LR        &REG,15                                              RSER0005
          CNOP      0,4                                                  RSER0006
          ST        13,*+8                                               RSER0007
          BAL       13,*+76                                              RSER0008
          DS        18F                                                  RSER0009
          MEND                                                           RSER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TITL2    DC    C'B01     B02     B03     B04     B05     B06     B07   XRSER0396
                  B08     B09     B10     B11     B12     B13     B14   XRSER0397
                  B15     B16'                                           RSER0398
 TITL3    DC    C'A17     A18     A19     A20     A21     A22     A23   XRSER0399
                  A24     A25     A26     A27     A28     A29     A30   XRSER0400
                  A31     A32'                                           RSER0401
 TITL4    DC    C'B17     B18     B19     B20     B21     B22     B23   XRSER0402
                  B24     B25     B26     B27     B28     B29     B30   XRSER0403
                  B31     B32'                                           RSER0404
          END                                                            RSER0405
-FILE 597;   429 RECORDS:  
0         MACRO                                                          IC000001
 &L       PROC      &REG                                                 IC000002
          USING     *,&REG                                               IC000003
 &L       STM       1,15,8(13)                                           IC000004
          LR        &REG,15                                              IC000005
          CNOP      0,4                                                  IC000006
          ST        13,*+8                                               IC000007
          BAL       13,*+76                                              IC000008
          DS        18F                                                  IC000009
          MEND                                                           IC000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ALPHA    DC        C'ABCDEFHJ'                                          IC000420
 NAMOVE   MVC       0(0,11),0(8)                                         IC000421
 MOVEMOD  MVC       0(0,9),0(11)                                         IC000422
 OUTLEN   DC        H'132'                                               IC000423
 OUTPUT   DC        132C' '                                              IC000424
 LASTPAGE DC        X'00'           LAST PAGE SWITCH FOR WW4             IC000425
 PINUMS   DC    C'1       2       3       4       5       6       7     XIC000426
                  8         1       2       3       4       5       6   XIC000427
                    7       8'                                           IC000428
          END                                                            IC000429
-FILE 598;   127 RECORDS:  
0$RUN WIREWRAP+RSERIES                                                           
 $SET BAYS=1 NETMAX=175 NETSIZE=50 PLOT=ON                                       
 $TITLE                                                                          
      BI-STATE CONTROL LOGIC                                                     
 $PTITLE                                                                         
 1     BI-STATE CONTROL LOGIC                                                    
 $DATA                                                                           
 1A01 R202   CLOSETD  CLOENAE  CLEARF   CLK2-J*  CLOSETK  CLOENAL  CLK2-N*       
 1A01 R202   CLOENAP  CLEARR   CLK4-T*  CLK2-U   CLOENAV                         
 1A02 R202   CLK4-D   CLOENAE  CLEARF   CLK8-J*  CLK4-K   CLOENAL  CLK8-N        
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 1B01 IC013 SEL7-B4*  SEL6-B5*  SEL5-B6*  B1B8                                   
 1B02 IC001 B3A1*     ICOD1A2   LATCH1A3  ICOD4A4*  LATCH5A5  LATCH6A6  PBRKB2*  
 1B02 IC001 PBRK-B3   BRKREQB5* BRKREQ-B6                                        
 1C01 IC003 BRKREQ-A1* SEL0-A2  REQENAA3  B2A5*     LATCH1A6  LATCH2B6  ICOD2B7  
 1C01 IC003 ICOD2B2*  LATCH3B3  LATCH4B4  ICOD4B5                                
 1C02 IC004 JAMA1*    PTS1A2    HOLDA3    ENABLEA4  B1B2*     LATCH1B3  LATCH2B4 
 1C02 IC004 LATCH3B5  ICOD3B6                                                    
 1D01 IC004 ICOD3A1*  LATCH4A2  LATCH5A3  LATCH6A5  LATCH7A6  ICOD1B2*  LATCH2B3 
 1D01 IC004 LATCH3B4  LATCH4B5  LATCH5B6                                         
 1D02 IC009 ENABLEA1* PINIT-A3  PBRKA4    BRKREQA5  PTS3A6                       
-FILE 599;  2039 RECORDS:  
0MNTR     TITLE 'A SLIGHTLY MORE SOPHISTICATED MONITOR'                  VMN00001
          MACRO                                                          VMN00002
          IOENT &A=,&N=,&L=,&T=,&M=,&E=NL,&O=ON,&S=01400000              VMN00003
 .*       &A=DEVICE ADDRESS                                              VMN00004
 .*       &N=DEVICE ID                                                   VMN00005
 .*       &L=DEVICE PROCESSOR      NAME                                  VMN00006
 .*       &T=CCW TYPE                                                    VMN00007
 .*       &M=CHENNEL MASK                                                VMN00008
          GBLA  &NO                                                      VMN00009
          LCLA  &NO1                                                     VMN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LTORG                                                          VMN02030
          DS    0D                                                       VMN02031
          DC    C'1234123&&'       GUESS WHAT THIS IS?                   VMN02032
 BUFFER   DS    64F                                                      VMN02033
 BUFC     DS    256C                                                     VMN02034
 BUFCP    DS    80C                                                      VMN02035
 BUFCB    DC    XL240'00'                                                VMN02036
          DS    0D                                                       VMN02037
 BBB      DS    400C                                                     VMN02038
          END                                                            VMN02039
-FILE 600;   553 RECORDS:  
0         MACRO                                                          CCWT0001
 &N       SETUP &A,&B                                                    CCWT0002
          AIF   (T'&N EQ 'O').A                                          CCWT0003
 &N       DS    0H                                                       CCWT0004
 .A       IHBINNRA &A,&B                                                 CCWT0005
          MEND                                                           CCWT0006
          SPACE                                                          CCWT0007
          MACRO                                                          CCWT0008
 &N       GRAB  &L,&T=                                                   CCWT0009
 &N       SETUP ,&L                                                      CCWT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HAFMSK   DC    A(X'FFFF')                                               CCWT0544
 MASK     DC    A(X'FFFFF8')                                             CCWT0545
 PAGBNDRY DC    A(X'FFF000')                                             CCWT0546
 PAGE     DC    F'4096'                                                  CCWT0547
 STMSK    DC    F'7'                                                     CCWT0548
 SVERR    EQU   CCWERR3                                                  CCWT0549
 MAXSIZE  DC    A(X'40000')                                              CCWT0550
          LTORG                                                          CCWT0551
 GRABBUF  DS    400F                                                     CCWT0552
          END                                                            CCWT0553
-FILE 601;  1976 RECORDS:  
0STMN     TITLE 'MONITOR FOR STUDENTS'                                   STMN0001
          MACRO                                                          STMN0002
          IOENT &A=,&N=,&L=,&T=,&M=,&E=NL,&O=ON,&S=01400000              STMN0003
 .*       &A=DEVICE ADDRESS                                              STMN0004
 .*       &N=DEVICE ID                                                   STMN0005
 .*       &L=DEVICE PROCESSOR      NAME                                  STMN0006
 .*       &T=CCW TYPE                                                    STMN0007
 .*       &M=CHENNEL MASK                                                STMN0008
          GBLA  &NO                                                      STMN0009
          LCLA  &NO1                                                     STMN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LTORG                                                          STMN1967
          DS    0D                                                       STMN1968
          DC    C'1234123&&'       GUESS WHAT THIS IS?                   STMN1969
 BUFFER   DS    64F                                                      STMN1970
 BUFC     DS    256C                                                     STMN1971
 BUFCP    DS    80C                                                      STMN1972
 BUFCB    DC    XL240'00'                                                STMN1973
          DS    0D                                                       STMN1974
 BBB      DS    400C                                                     STMN1975
          END                                                            STMN1976
-FILE 602;  1233 RECORDS:  
0JOH3     TITLE 'GPSS/360   OS/MTS INTERFACE ROUTINES  J. HENRIKSEN'     GPSS0001
 GPSSPKG  CSECT                                                          GPSS0002
          ENTRY OPENDUMY,CLOSDUMY,FRPLDUMY                               GPSS0003
          ENTRY CLOSTAPE,CLOSFILE                                        GPSS0004
          ENTRY XXSCARDS,XXSPRINT,XXSPUNCH                               GPSS0005
          ENTRY PSREAD,PSWRITE,TPREAD,TPWRITE                            GPSS0006
          USING GPSSPKG,10,11,12                                         GPSS0007
          STM   14,12,12(13)                                             GPSS0008
          LM    10,12,BASADR1-GPSSPKG(15)  USE 15 AS BASE REGISTER       GPSS0009
          LA    14,MSTRSAVE                                              GPSS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(MASSAGE)                                               GPSS1224
          DC    V(MLMP)                                                  GPSS1225
          DS    5F                 EXTRA SPACE IF EVER NEEDED            GPSS1226
 PSWCOM   DC    C'0PSW...XXXXXXXX XXXXXXXX'                              GPSS1227
 ABENDCOM DC    C'-**** "ABEND" TERMINATION REQUESTED AT LOCATION XXXXXXXGPSS1228
                '                                                        GPSS1229
 COMPCODE DC    C'0COMPLETION CODE XXX'                                  GPSS1230
 ERR#     DC    C'0ERROR NUMBER XXX'                                     GPSS1231
          LTORG                                                          GPSS1232
          END   GPSSPKG                                                  GPSS1233
-FILE 603;   274 RECORDS:  
0KTOE     TITLE 'K.T.O.E. KEEP TRACK OF ERRORS'                          XTRA0001
 *                                                                       XTRA0002
 *              EACH OF THE 5 ENTRY POINTS IS REACHED BY PICKING THE     XTRA0003
 *              E.P. ADDRESS OUT OF THE EXTENDED SAVE AREA AND USING     XTRA0004
 *              A FREE REGISTER TO BALR.  THE NECESSARY CODE IS          XTRA0005
 *              "REP'ED" IN. HENCE, THE CALLING AND RETURN SEQUENCES     XTRA0006
 *              ARE SCREWY.  UPON NEXT ASSEMBLY, THE DCBERR DCB          XTRA0007
 *              SHOULD BE INCLUDED IN DAG01 AND PASSED ALONG IN THE      XTRA0008
 *              IOSECT.  THEN ALL THAT WILL BE NECESSARY IS TO INSERT    XTRA0009
 *              IN THE APPROPRIATE PLACES, "PUT" MACROS THAT WRITE OUT   XTRA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GIVEBACK DS F                                                           XTRA0265
 OVERLAY  DS F                                                           XTRA0266
 ABENDLOC DS F                                                           XTRA0267
 HEADRADR DS F                                                           XTRA0268
 ABND1LC  DS F                                                           XTRA0269
 ADCBERR  DS F                                                           XTRA0270
 HELPBLOK DS F                                                           XTRA0271
 UPBLKTM DS F                                                            XTRA0272
          END                                                            XTRA0273
 $LIS EXTRAS                                                             XTRA0274
-FILE 604;   531 RECORDS:  
0EPRC     TITLE 'GPSS ERROR PROCESSING ROUTINES'                         ERRP0001
 *                                                                       ERRP0002
 *              HERE THEY ARE:                                           ERRP0003
 *              ROUTINES WHICH HANDLE ATTENTION AND PROGRAM INTERRUPTS   ERRP0004
 *              AND "ABEND" TERMINATIONS WITH THE GREATEST OF EASE       ERRP0005
 *                                                                       ERRP0006
 ERRPROC  CSECT                                                          ERRP0007
          USING ERRPROC,11,12                                            ERRP0008
          USING EDSECT,10           DSECT ADDRESS PASSED BY GPSSPKG      ERRP0009
          LM    11,13,BASADR-ERRPROC(15)  USE GR15 A LA BASE REGISTER    ERRP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IINITADR DS   3F                   SAME FOR PGM INT EXIT                ERRP0522
 SAVERADR DS    F                   ADDRESS OF WHERE GRS SAVED BY GPSSPK ERRP0523
 OVERLAY  DS    F                                                        ERRP0524
 PROMPTSW DS    X                                                        ERRP0525
 ENTCODE  DS    X                                                        ERRP0526
 PUNTIND  DS    X                                                        ERRP0527
 REPLYSW  DS    X                                                        ERRP0528
 AMASSAGE DS    F                                                        ERRP0529
 VMLMP    DS    F                                                        ERRP0530
          END                                                            ERRP0531
-FILE 605;   581 RECORDS:  
0DAG1     TITLE 'GPSS/360/MTS       VERSION I       4/1/68'              DG010001
 *                                                                       DG010002
 *   THIS IS THE CONTROL SECTION OF GPSS/360 ---- IT PERFORMS THE        DG010003
 *   FOLLOWING FUNCTION ---- 1. SAVES REGISTERS USED BY OS/360           DG010004
 *                          2. ISSUES A GETMAIN FOR -CONTROL- SAVEAREA   DG010005
 *                           3. ISSUES A GETMAIN FOR I/O PASS AREA INFO. DG010006
 *                           4. CHECKS FOR UPDATE -OPTION-               DG010007
 *                           5. DETERMINES GPSS/360 ENTITY QUANTITIES    DG010008
 *                           6. REALLOCATES IF REQUESTED                 DG010009
 *                                                                       DG010010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CLSAVE   DC    A(CLRDSAVE)          CLOSE READ - SAVE TAPE              DG010572
 *                                                                       DG010573
 WAJBTAPE DS    F                  WORK AREA FOR ALL JOBTAPES            DG010574
 SAVEAREA DSECT                                                          DG010575
 GENSAVE  DS  18F                                                        DG010576
 GRABSOME DS   F                                                         DG010577
 GIVEBACK DS   F                                                         DG010578
 OVERLAY  DS   F                                                         DG010579
 ABENDLOC DS   F                                                         DG010580
          END   DAG01                                                    DG010581
-FILE 606;   426 RECORDS:  
0DG1A     TITLE  'GPSS 360       MTS VERSION I       4/1/68'             DG1A0001
 *                                                                       DG1A0002
 *    THIS LOAD MODULE DTERMINES WHAT ENTITY QUANTITIES ARE REQUESTED    DG1A0003
 *    AND IF REALLOCATION IS REQUIRED ----                               DG1A0004
 *                                                                       DG1A0005
 *    IT WILL SET UP THE QUANTITY TABLE AND PLACE THE TABLE ADDRESS      DG1A0006
 *    IN WORD5 OF THE PASS AREA                                          DG1A0007
 *                                                                       DG1A0008
 *    IF ILLEGAL OR NO -PARM- ARGUMENT SPECIFIED, 64K VERSIO/N OF        DG1A0009
 *    GPSS/360 WILL BE PROVIDED                                          DG1A0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GRABSOME DS    F                                                        DG1A0417
 GIVEBACK DS    F                                                        DG1A0418
 OVERLAY  DS    F                                                        DG1A0419
 ABENDLOC DS    F                                                        DG1A0420
 HEADRADR DS    F                                                        DG1A0421
          END                                                            DG1A0422
 $DES DAG01                                                              DG1A0423
 OK                                                                      DG1A0424
 $COP DAG01A *TAPE*                                                      DG1A0425
 $COP *SOURCE*  *TAPE*@CC                                                DG1A0426
-FILE 607;  2918 RECORDS:  
0DAG2     TITLE  'GPSS/360       MTS VERSION I       4/1/68'             DG020001
 DAG02    CSECT                                                          DG020002
          SAVER  MYPARS=20,USGR=5,CSECT=DAG02                            DG020003
          LR    4,2                SAVE ADDRESS OF PASS AREA             DG020004
          LR    9,6                     JOBIND                           DG020005
          N     6,MASK                  JOBIND+3                         DG020006
          LA    7,194              B CHARACTER                           DG020007
          CLR   7,6                DETERMINE GET SIZE                    DG020008
          BE    GETB                                                     DG020009
          BH    GETA                                                     DG020010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GRABSOME DS    F                                                        DG022909
 GIVEBACK DS    F                                                        DG022910
 OVERLAY  DS    F                                                        DG022911
 ABENDLOC DS    F                                                        DG022912
 HEADRADR DS    F                                                        DG022913
          END                                                            DG022914
 $DES DAG01                                                              DG022915
 OK                                                                      DG022916
 $COP DAG01A *TAPE*                                                      DG022917
 $COP *SOURCE*  *TAPE*@CC                                                DG022918
-FILE 608;  4546 RECORDS:  
0DAG3     TITLE  'GPSS/360       MTS VERSION I       4/1/68'             DG030001
 DAG03    CSECT                                                          DG030002
          SAVER  MYPARS=20,USGR=1,CSECT=DAG03                            DG030003
          LA    11,DAG03+4090                                            DG030004
          USING DAG03+4090,11                                            DG030005
          LA    14,DAG03+8180                                            DG030006
          USING DAG03+8180,14                                            DG030007
          LA    12,DAG03+12270                                           DG030008
          USING DAG03+12270,12                                           DG030009
          USING FINK,2                                                   DG030010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GRABSOME DS    F                                                        DG034537
 GIVEBACK DS    F                                                        DG034538
 OVERLAY  DS    F                                                        DG034539
 ABENDLOC DS    F                                                        DG034540
 HEADRADR DS    F                                                        DG034541
          END                                                            DG034542
 $DES DAG01                                                              DG034543
 OK                                                                      DG034544
 $COP DAG01A *TAPE*                                                      DG034545
 $COP *SOURCE*  *TAPE*@CC                                                DG034546
-FILE 609;  1075 RECORDS:  
0DAG4     TITLE  'GPSS/360       MTS VERSION I       4/1/68'             DG040001
 DAG04     CSECT                                                         DG040002
          SAVER MYPARS=20,USGR=11,CSECT=DAG04                            DG040003
          USING DAG04+4096,2                                             DG040004
          USING NUM1,3             GR3 IS BASE FOR BLOCKS                DG040005
          USING DCBINP,1           GR1 IS BASE FOR IOSECT                DG040006
          USING QUDSECT,4          GR4 IS BASE FOR ENTITY QUANTITY TABLE DG040007
 BEGIN    LTR   3,3                TEST FOR ALTERNATE ENTRY              DG040008
          BZ    BEGIN1             NO - INITIALIZE                       DG040009
          B     DAG04A             ALTERNATE                             DG040010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GRABSOME DS    F                                                        DG041066
 GIVEBACK DS    F                                                        DG041067
 OVERLAY  DS    F                                                        DG041068
 ABENDLOC DS    F                                                        DG041069
 HEADRADR DS    F                                                        DG041070
          END                                                            DG041071
 $DES DAG01                                                              DG041072
 OK                                                                      DG041073
 $COP DAG01A *TAPE*                                                      DG041074
 $COP *SOURCE*  *TAPE*@CC                                                DG041075
-FILE 610;  9117 RECORDS:  
0DG4B     TITLE 'GPSS/360       MTS VERSION I       4/1/68'              DG4B0001
 DAG04B   CSECT                                                          DG4B0002
          SAVER MYPARS=20,USGR=11,CSECT=DAG04B                           DG4B0003
          USING DAG04B+4096,2                                            DG4B0004
          USING DCBINP,1                                                 DG4B0005
          USING QUDSECT,4                                                DG4B0006
          USING NUM1,3                                                   DG4B0007
 BEGIN    L     2,BASADR                                                 DG4B0008
 *  THIS ROUTINE TESTS FOR BLOCK REDEFINITION                            DG4B0009
 *  GR4 = ADDRESS OF BLOCK WORDS                                         DG4B0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GRABSOME DS    F                                                        DG4B9108
 GIVEBACK DS    F                                                        DG4B9109
 OVERLAY  DS    F                                                        DG4B9110
 ABENDLOC DS    F                                                        DG4B9111
 HEADRADR DS    F                                                        DG4B9112
          END                                                            DG4B9113
 $DES DAG01                                                              DG4B9114
 OK                                                                      DG4B9115
 $COP DAG01A *TAPE*                                                      DG4B9116
 $COP *SOURCE*  *TAPE*@CC                                                DG4B9117
-FILE 611;  7081 RECORDS:  
0DAG5     TITLE  'GPSS/360       MTS VERSION I       4/1/68'             DG050001
 DAG05    CSECT                                                          DG050002
          SAVER MYPARS=20,USGR=11,CSECT=DAG05                            DG050003
          USING DAG05+4096,2,14                                          DG050004
 BEGIN    L     2,BASADR           LOAD CONTINUATION REGISTERS           DG050005
          L     14,BASADR1                                               DG050006
          USING DCBINP,1           GR1 IS BASE FOR IOSECT                DG050007
          USING NUM1,3             REG 3 IS BASE FOR WORDS               DG050008
          USING B1,4               REG 4 IS BASE FOR BLOCK WORDS         DG050009
          CLI   PATCH15,X'02'    DAG05A SWITCH ON                        DG050010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GRABSOME DS    F                                                        DG057072
 GIVEBACK DS    F                                                        DG057073
 OVERLAY  DS    F                                                        DG057074
 ABENDLOC DS    F                                                        DG057075
 HEADRADR DS    F                                                        DG057076
          END                                                            DG057077
 $DES DAG01                                                              DG057078
 OK                                                                      DG057079
 $COP DAG01A *TAPE*                                                      DG057080
 $COP *SOURCE*  *TAPE*@CC                                                DG057081
-FILE 612;  5033 RECORDS:  
0DAG6     TITLE  'GPSS/360       MTS VERSION I       4/1/68'             DG060001
 DAG06    CSECT                                                          DG060002
          SAVER MYPARS=20,USGR=11,CSECT=DAG06                            DG060003
          USING NUM1,3             REG 3 IS BASE FOR WORDS               DG060004
          USING DCBINP,1                                                 DG060005
          L     5,PROGMASK                                               DG060006
          SPM   5                                                        DG060007
          BAL   5,OPENSYM          OPEN SYMBOL TAPE                      DG060008
          L     8,CLOCK             COMPUTE                              DG060009
          S     8,BCLOK             RELATIVE CLOCK                       DG060010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GRABSOME DS    F                                                        DG065024
 GIVEBACK DS    F                                                        DG065025
 OVERLAY  DS    F                                                        DG065026
 ABENDLOC DS    F                                                        DG065027
 HEADRADR DS    F                                                        DG065028
          END                                                            DG065029
 $DES DAG01                                                              DG065030
 OK                                                                      DG065031
 $COP DAG01A *TAPE*                                                      DG065032
 $COP *SOURCE*  *TAPE*@CC                                                DG065033
-FILE 613;  5178 RECORDS:  
0DAG04C   CSECT                                                          DG4C0001
          SAVE  (14,12)                                                  DG4C0002
          BALR  11,0               GR11 IS BASE                          DG4C0003
          USING BEGIN,11,2                                               DG4C0004
          USING DCBINP,1                                                 DG4C0005
          USING QUDSECT,4                                                DG4C0006
          USING NUM1,3                                                   DG4C0007
 BEGIN    L     2,BASADR                                                 DG4C0008
      GETMAIN   R,LV=72            GET 18 WORDS FOR NEW SAVE AREA        DG4C0009
          ST    13,4(1)                                                  DG4C0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DCBRDSAV DS    F                  READ/SAVE DCB                         DG4C5169
 EODRDSAV DS    F                  END OF DATA                           DG4C5170
 OPSAVEI  DS    F                  OPEN READ/SAVE INPUT                  DG4C5171
 OPSAVEO  DS    F                  OPEN READ/SAVE OUTPUT                 DG4C5172
 CLSAVE   DS    F                        CLOSE READ/SAVE TAPE            DG4C5173
 *                                                                       DG4C5174
 WAJBTAPE DS    F                  WORK AREA FOR ALL JOBTAPES            DG4C5175
 *                                                                       DG4C5176
          END   DAG04C                                                   DG4C5177
 /*                                                                      DG4C5178
-FILE 614;  2601 RECORDS:  
0DAG07    CSECT                                                          DG070001
          TITLE 'GPSS/360 - OUTPUT PHASE'                                DG070002
          BALR  14,0                                                     DG070003
          USING *,14                                                     DG070004
          LA    11,DAG07+4090                                            DG070005
          USING DAG07+4090,11                                            DG070006
          USING DCBINP,1                                                 DG070007
          USING NUM1,3                                                   DG070008
          LA    12,DAG07+8180                                            DG070009
          USING DAG07+8180,12                                            DG070010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       DG072592
 CLLJBT3  DS    F                  CLOSE JBTAP3 WITH LEAVE ADDRESS       DG072593
 DCBRDSAV DS    F                                                        DG072594
 EODRDSAV DS    F                                                        DG072595
 OPSAVEI  DS    F                                                        DG072596
 OPSAVEO  DS    F                                                        DG072597
 CLSAVE   DS    F                                                        DG072598
 WAJBTAPE DS    F                  WORK AREA FOR ALL JOBTAPES            DG072599
          END   DAG07                                                    DG072600
 /*                                                                      DG072601
-FILE 615;    29 RECORDS:  
0GETT     TITLE 'GET TIME ESTIMATE FOR GPSS - VERSION 2'                 GTES0001
 GTIMEST  START 0                                                        GTES0002
          ENTER 12,SA=SA                                                 GTES0003
          CALL  GUINFO,(F86,TIME)                                        GTES0004
          L     1,TIME                                                   GTES0005
          LTR   1,1                                                      GTES0006
          BZ    TRYGLOB                                                  GTES0007
          CALL  GUINFO,(F96,TTN)                                         GTES0008
          B     EXIT                                                     GTES0009
 TRYGLOB  CALL  GUINFO,(F78,TIME)                                        GTES0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SR    15,15                                                    GTES0020
          BR    14                                                       GTES0021
 F86      DC    F'86'                                                    GTES0022
 F78      DC    F'78'                                                    GTES0023
 F96      DC    F'96'                                                    GTES0024
 F94      DC    F'94'                                                    GTES0025
 TIME     DS    F                                                        GTES0026
 TTN      DS    F                                                        GTES0027
 SA       DS    18A                                                      GTES0028
          END                                                            GTES0029
-FILE 616;   285 RECORDS:  
0         MACRO                                                          GMAC0001
 &NAME    OPEN  &LIST                                                    GMAC0002
          AIF   ('&NAME' EQ '').CON0                                     GMAC0003
 &NAME    EQU   *                                                        GMAC0004
 .CON0    AIF   ('&LIST(1)' EQ '(1)').CON1                               GMAC0005
          CNOP  0,4                                                      GMAC0006
     BAL   1,*+8   BAL AROUND                                            GMAC0007
         DC   A(&LIST(1).)   THE DCB ADDRESS                             GMAC0008
 .CON1    AIF   ('&LIST(2)' NE '(INPUT)').CON2                           GMAC0009
          LA    0,2                SET INPUT SWITCH                      GMAC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       TR   *+30-&DIGITS.(&DIGITS),=C'0123456789ABCDEF'                  GMAC0276
     B   *+24                                                            GMAC0277
     DS  F                                                               GMAC0278
      DC    X'0000000000000000'                                          GMAC0279
       DS   8X                                                           GMAC0280
          AIF    (T'&LOC(1) NE 'N').CON1                                 GMAC0281
          MVC    0(&DIGITS,&LOC(1).),*-&DIGITS                           GMAC0282
          AGO    .END                                                    GMAC0283
 .CON1    MVC    &LOC.(&DIGITS),*-&DIGITS                                GMAC0284
 .END    MEND                                                            GMAC0285
-FILE 617;   667 RECORDS:  
0EDTR     TITLE 'EDITOR'                                                 EDIT0001
 *                                                                       EDIT0002
 *        **********************************************************     EDIT0003
 *        *                                                        *     EDIT0004
 *        *     SDS EDITOR ROUTINE                                 *     EDIT0005
 *        *                                                        *     EDIT0006
 *        **********************************************************     EDIT0007
 *                                                                       EDIT0008
 *                                                                       EDIT0009
 *                                                                       EDIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MSING    COMMENT '-***MISSING SYM OR ESD CARDS.'                        EDIT0658
          B     TDEXIT                                                   EDIT0659
 MSEND    COMMENT '-***MISSING END CARD IN OBJECT FILE.'                 EDIT0660
          B     TDEXIT                                                   EDIT0661
 *                                                                       EDIT0662
 PUNT     COMMENT '***SYSTEM ERROR.'                                     EDIT0663
          ERROR                                                          EDIT0664
 *                                                                       EDIT0665
 INPUT    DS    256C               INPUT REGION                          EDIT0666
          END                                                            EDIT0667
-FILE 618;  2433 RECORDS:  
0SDS      TITLE 'SDS INITIALIZATION'                                     SDS00001
 *                                                                       SDS00002
 *        **********************************************************     SDS00003
 *        *                                                        *     SDS00004
 *        *     SYMBOLIC DEBUGGING SYSTEM - COMMUNICATIONS MODULE  *     SDS00005
 *        *                                                        *     SDS00006
 *        **********************************************************     SDS00007
 *                                                                       SDS00008
 *        THIS IS THE COMMUNICATIONS MODULE COMMON                       SDS00009
 *        TO ALL SECTIONS IN SDS.  IT CONTAINS PROCEDURES                SDS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       SDS02424
          PSTE  FR0,FREGS,8,11                                           SDS02425
          PSTE  FR2,FREGS+2*4,8,11                                       SDS02426
          PSTE  FR4,FREGS+4*4,8,11                                       SDS02427
          PSTE  FR6,FREGS+6*4,8,11                                       SDS02428
          PSTE  GRS,REGISTRS,4,12                                        SDS02429
          PSTE  FRS,FREGS,8,13                                           SDS02430
          PSTE  PSW,PSW,8,14                                             SDS02431
          DC    X'00000000'                                              SDS02432
          END                                                            SDS02433
-FILE 619;  1684 RECORDS:  
0FCN      TITLE 'CONTROL FUNCTION MODULE'                                FCN00001
 *                                                                       FCN00002
 *                                                                       FCN00003
 *                                                                       FCN00004
 *        **********************************************************     FCN00005
 *        *                                                        *     FCN00006
 *        *     SDS CONTROL FUNCTION MODULE                        *     FCN00007
 *        *                                                        *     FCN00008
 *        **********************************************************     FCN00009
 *                                                                       FCN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MAPENTRY DSECT MAP ENTRY FOR SDS MAP                                    FCN01675
 LOADADD  DS    XL3                LOADED ADDRESS                        FCN01676
 RELOC    DS    XL3                RELOCATION FACTOR                     FCN01677
 LCSECT   DS    XL3                LENGTH FOR THIS CSECT                 FCN01678
 CSNAME   DS    CL8                CSECT NAME                            FCN01679
 SKEY     DS    X                  MAP FLAG BYTE                         FCN01680
 STPTR    DS    XL3                PTR TO START OF CSECT IN SYMBOL TABLE FCN01681
 TOBECON  DS    AL4                PTR TO LAST SDS LINK FOR A SECTION    FCN01682
 LMAP     EQU   *-MAPENTRY                                               FCN01683
          END                                                            FCN01684
-FILE 620;  1768 RECORDS:  
0IOC      TITLE 'I/O CONVERSION'                                         IOC00001
 *        INOUT / OUTPUT CONTROL PACKAGE.                                IOC00002
 *        THIS SUB-LIBRARY CONATINS ALL THE SDS                          IOC00003
 *        INPUT / OUTPUT CONVERSION ROUTINES.                            IOC00004
 *                                                                       IOC00005
 IOC      CSECT                                                          IOC00006
          PRINT NOGEN                                                    IOC00007
          USING *,BASE             COVER IOC                             IOC00008
          USING LINKMOD,CHAIN      COVER FOR SDSDSECT                    IOC00009
          ENTRY FIXED                                                    IOC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IE       EQU   C'E'                                                     IOC01759
 IPLUS    EQU   C'+'                                                     IOC01760
 IMINUS   EQU   C'-'                                                     IOC01761
 ICOMMA   EQU   C','                                                     IOC01762
 IQUOTE   EQU   C''''                                                    IOC01763
 IPRIOD   EQU   C'.'                                                     IOC01764
 IZERO    EQU   C'0'                                                     IOC01765
 I9       EQU   C'9'                                                     IOC01766
 TXDEXP   EQU   0                                                        IOC01767
          END                                                            IOC01768
-FILE 621;   349 RECORDS:  
0         TITLE 'SDS PSECT'                                              PSC00001
 *        **********************************************************     PSC00002
 *        *                                                        *     PSC00003
 *        *     COMMUNICATION AREA                                 *     PSC00004
 *        *                                                        *     PSC00005
 *        **********************************************************     PSC00006
 *                                                                       PSC00007
          DS    0D                                                       PSC00008
 SAVEAREA DS    19F                PRIMARY SAVE AREA                     PSC00009
 SAVEARE2 DS    19F                SECONDARY SAVE AREA                   PSC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CLINK    DS    A                  FORWARD POINTER TO CONTINUED ENTRY    PSC00340
          DC    X'E0'              TERMINATOR CODE                       PSC00341
 PLINK    DS    AL4                FWD PTR FOR PREVIOUS SECTION          PSC00342
 *                                                                       PSC00343
 LCSE     EQU   *-SDSLINK                                                PSC00344
 *                                                                       PSC00345
 ATDS     DSECT                    DSECT FOR AT-TABLE ENTRY              PSC00346
 ATADRS   DS    A                  LOADED ADDRESS OF BREAKPOINT          PSC00347
 CARAD    DS    A                  POINTER TO COMMAND IN COMMAND TABLE   PSC00348
 LATENT   EQU   *-ATDS             LENGTH FOR AT-TABLE ENTRY             PSC00349
-FILE 622;    59 RECORDS:  
0*                                                                       DST00001
 *        DUMMY STG (SEE SDS LISTING FOR DEFINITON)                      DST00002
 *                                                                       DST00003
 *        INITITAL LOAD TABLE                                            DST00004
 *                                                                       DST00005
 INITS    DS    0F                                                       DST00006
          DC    F'5'                                                     DST00007
          DC    CL12'SYSTEM'                                             DST00008
          DC    CL12'ERROR'                                              DST00009
          DC    CL12'PGNTTRP'                                            DST00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 S4AB     B     *                  SCAN FOR DELIMITING BLANK             DST00050
 PISOSYM  B     *                  PUSH ISOSYM PARAMETERS                DST00051
 RISOSYM  B     *                  RESTORE ISOSYM PARAMETERS             DST00052
 TECF     B     *                  COMPUTE SDS TYPE CHARACTER INDEX      DST00053
 RESTIO   B     *             RESTORE TO *MSOURCE* & *MSINK*             DST00054
          B     *                  SPARE                                 DST00055
 FUNBASE  DS    A (FUNCTION)       FUNCTION BASE REG VALUE               DST00056
 IOCBASE  DS    A (IOC)            I/O CONTROL BASE REG VALUE            DST00057
 PARPFX   DS    A (SDSPRFX,LPFX)   PARM LIST FOR CALL TO SETPFX          DST00058
 *                                                                       DST00059
-FILE 623;   343 RECORDS:  
0         MACRO                                                          MAC00001
 &LABEL   COMMENT &MSG                                                   MAC00002
 &LABEL   BAL   GR14,COMMPROS                                            MAC00003
          DC    AL1(L'M&SYSNDX)                                          MAC00004
 M&SYSNDX DC    C&MSG                                                    MAC00005
          MEND                                                           MAC00006
 *                                                                       MAC00007
          MACRO                                                          MAC00008
 &LABEL   FETCH &WHERETO,&HOWMANY,&EXIT                                  MAC00009
 &LABEL   LA    WORKB,&WHERETO                                           MAC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          GBLC  &SAVLOC                                                  MAC00334
 &LABEL   L     LINK,&SAVLOC                                             MAC00335
          L     BASE2,&SAVLOC+4                                          MAC00336
          AIF   (T'&MODE EQ 'O').B2                                      MAC00337
          AIF   ('&MODE'(1,1) EQ 'F').B4                                 MAC00338
 .B2      B     4(0,LINK)                                                MAC00339
 &SAVLOC  DS    2A                                                       MAC00340
          MEXIT                                                          MAC00341
 .B4      BR    LINK                                                     MAC00342
          MEND                                                           MAC00343
-FILE 624;  1128 RECORDS:  
0SIML     TITLE 'SDS SIMULATOR'                                          SMLT0001
 *                                                                       SMLT0002
 *        SDS SIMULATOR (MODIFIED FROM STASS360)                         SMLT0003
 *                                                                       SMLT0004
 *                                                                       SMLT0005
          MACRO                                                          SMLT0006
 &L       GETR12                                                         SMLT0007
 &L       LR    XR1,XR2                                                  SMLT0008
          SRL   XR1,2              R1*4                                  SMLT0009
          SLL   XR2,2              R2*4                                  SMLT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 WORK1    DS    F                                                        SMLT1119
 *                                                                       SMLT1120
 SIMINS   DS    F                  COUNT OF SIM INSTRUCTIONS             SMLT1121
 *                                                                       SMLT1122
 TRACES   DS    F                  MAX NO TRACES=100                     SMLT1123
          DS    F                  START ADDR-REL                        SMLT1124
          DS    F                  END   ADDR-REL                        SMLT1125
 *                                                                       SMLT1126
 *                                                                       SMLT1127
          END                                                            SMLT1128
-FILE 625;  1622 RECORDS:  
0$RUN *MOUNT PAR=S416 9TP *POOL* QUIT=YES RING=IN 'LP UPDATE TAPE'               
 $EMP SDSMACROS                                                                  
 $EMP DSECT2                                                                     
 $CRE -SYSUT2 SIZE=3000                                                          
 $EMP SDSDSECT                                                                   
 $RUN *UPDATE                                                                    
 %REW     *POOL*                                                                 
 %OUT     *POOL* 40                                                              
 %INP     EDITSOU 40               EDITOR                               1        
 %AFT     EDIT0374                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $RUN *MACGEN SCARDS=-SYSUT2(1000) SPUNCH=SDSMACROS                              
 $COP -SYSUT2(1000) SDSMACROS(1000)                                              
 $LIST SDSMACROS                                                                 
 $EMP NEWSDS                                                                     
 $DES -SYSUT2                                                                    
 $RUN *ASMG SCARDS=*POOL* SPUNCH=NEWSDS 0=*SYSMAC 2=SDSMACROS PAR=SIZE=200,IBLK=-
 40,T,FX,RD,B                                                                    
 $RUN *OBJSCAN                                                                   
 NEWSDS                                                                          
 SDS                                                                             
-FILE 626;  2921 RECORDS:  
0      IMPLICIT INTEGER*4 (A - Z)                                        FMT00001
       INTEGER*2 LIST,COPIES,SPCHAR,BLANK,NUM,SCWORD,HYPHEN,LOWCAS,      FMT00002
      $ PERIOD,KEY028,LOCATE,CARDIC                                      FMT00003
       INTEGER*2 PAGDUM,SRT,COLBEG,CHRFIN                                FMT00004
       COMMON /A/ POSN,IREAD,IWRITE,CCGCNT,PUNCH,NODOC,MERGE,            FMT00005
      $ REMNNT,INSWRD,FINISH,DELETE,COVEA,INVALD,BFOUND,CICNT1,CICNT,    FMT00006
      $ CIINC,DICT,NEXT,HIT,                                             FMT00007
      $ ARRAY1(3),                                                       FMT00008
      $ LIST,COPIES,SPCHAR(42),BLANK,NUM(10),SCWORD,CARDIC,              FMT00009
      $ HYPHEN,LOWCAS,PERIOD,KEY028,LOCATE                               FMT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                                         FMT02912
                                                                         FMT02913
                                                                         FMT02914
                                                                         FMT02915
                                                                         FMT02916
                                                                         FMT02917
                                                                         FMT02918
                                                                         FMT02919
                                                                         FMT02920
                                                                         FMT02921
-FILE 627;  1620 RECORDS:  
0         TITLE 'TEXT360 PRESCAN PROGRAM (OS VERSION)'                   OPN   1 
 * THIS IS VERSION 5 OF THE OS/360 VERSION OF THE TEXT360 PRESCAN.       OPN   2 
 * THE MESSAGE FORMAT HAS BEEN CHANGED TO USE                            OPN   3 
 * SEMICOLON DELIMITERS RATHER THAN BLANK                                OPN   4 
 * DELIMITERS BETWEEN MESSAGES.  THE PROGRAM HAS ALSO BEEN SPEEDED       OPN   5 
 * UP.  THE ONLY FUNCTIONAL CHANGE IS THE INTRODUCTION OF A CONDITIONAL  OPN   6 
 * ABEND FACILITY, BASED ON THE NUMBER OF VARIOUS KINDS OF ERRORS        OPN   7 
 * DETECTED DURING THE PRESCAN.  THREE KINDS OF ERRORS ARE POSSIBLE:     OPN   8 
 * MAJOR ERRORS, MINOR ERRORS, AND ''WARNING'' ERRORS.  MAJOR AND        OPN   9 
 * MINOR ERRORS ARE COUNTED DURING THE PRESCAN.  (THE ERRORS ARE         OPN  10 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MINERROR DC    F'0'                                                     OPN1654 
 MINALLOW DC    F'5'                                                     OPN1655 
          LTORG                                                          OPN1656 
 ERRORS   DC    C'- *** MAJOR ERRORS - '                                         
 MAJORS   DC    C'00000'                                                         
          DC    C'  *** MINOR ERRORS - '                                         
 MINORS   DC    C'00000'                                                         
          DC    C' ***'                                                          
          DC    CL80' '                                                          
          END   LOCATE                                                   OPN1659 
-FILE 628;  1627 RECORDS:  
0   /*  TEXT360  -  PHASE 1  (FILE MAINTENANCE) V5.0 JUNE 17,1968 */     FMT   1 
   FM: PROCEDURE OPTIONS(MAIN);                                          FMT   2 
   ON ERROR BEGIN;                                                       FMT   3 
     PUT FILE(SPRINT) SKIP(3)DATA(NORM,PGLIN,MBINDX,LINE);                       
     PUT FILE(SPRINT) SKIP DATA (OINDX,CH);                                      
      CALL IHEDUMP;                                                      FMT   6 
      END;                                                               FMT   7 
   DECLARE STATSW CHAR(1) STATIC INITIAL('0');                           FMT   8 
       DECLARE CPUTIME ENTRY RETURNS (FLOAT BIN);                                
   RFORMAT: FORMAT( F(3), F(6), 2 A(1), A(NORM));                        FMT  11 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      SCOR = SUBSTR(USC,MBINDX,1);                                       FMT1612 
      IF NOSTO = '1' THEN GO TO HYP2;                                    FMT1613 
      CALL STORCH;                                                       FMT1614 
    HYP2:                                                                FMT1615 
      IF DC = BLANK THEN GO TO HYP1;                                    FMT1616 
      DC = CH1;                                                          FMT1617 
      NOSTO = '0';                                                       FMT1618 
      RETURN;                                                            FMT1619 
      END HYPCHK;                                                        FMT1620 
   END FM;                                                               FMT1621 
-FILE 629;  3038 RECORDS:  
0   /*  TEXT360  -  PHASE 2  (BUILD LINE)       V5.0 JULY 12, 1968    */ BLN   1 
  /*ITS FUNCTION IS TO BUILD THE FORMATTED AND UNFORMATTED LINES AND TO*/BLN   2 
  /*CREATE A CROSS-REFERENCE TABLE ENTRY TO DESCRIBE THE LINE*/          BLN   3 
  /*  IT CALLS */                                                        BLN   4 
  /*     1. EOLCL -  TO DO HOUSE KEEPING AFTER LINE IS FORCED OUT*/      BLN   5 
  /*     2. OVFCH  - TO PROCESS A TEXT OVERFLOW. DOES JUST, HYPHEN ETC * BLN   6 
  /*     3. FOL    - TO FORCE OUT A LINE */                              BLN   7 
  /*     4. GETNC  - TO GET THE NEXT CHARACTER. */                       BLN   8 
  /*     5. PCWB -   TO PLACE CHARACTER IN WORK BUFFERS */               BLN   9 
  /*  IT GOES TO THE FOLLOWING ROUTINES */                               BLN  10 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      SKIP;                                                              BLN3024 
      ERSW = SWON;            /*TURN ON ERROR SWITCH*/                   BLN3025 
                              /*STORE ERROR NUMBER*/                     BLN3026 
      SUBSTR(ERBUF,1+(ERRCT*3),3) = PARA;                                BLN3027 
      ERRCT = ERRCT+1;        /*BUMP COUNT*/                             BLN3028 
                              /*TOO MANY ERRORS FOR BUFFER*/             BLN3029 
      IF ERRCT > 9 THEN ERRCT = ERRCT -1;                                BLN3030 
      RETURN;                                                            BLN3031 
      END ERROR;              /*END ERROR ROUTINE*/                      BLN3032 
   END BUILINE;               /*END BUILD A LINE ROUTINE*/               BLN3033 
-FILE 630;   283 RECORDS:  
0  HYPHEN :   PROCEDURE ;                                                HYP   1 
                                                                         HYP   2 
 0 DECLARE(                                                              HYP   3 
      RHX FIXED BIN(15),                                                 HYP   4 
      BREAKSW CHAR(1) INIT('0'),                                         HYP   5 
      JUSTCT FIXED (7) BINARY,   /* THE JUSTIFICATION COUNT */           HYP   6 
      HYPNSTR CHAR(1),                                                   HYP   7 
      LHX FIXED BIN(15),                                                 HYP   8 
      HLG FIXED BIN(15),                                                 HYP   9 
      HYCTBUF(40) FIXED BIN(15),                                         HYP  10 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
            RHX  = CTR1 ;                                                HYP 274 
            HYPNSTR = '1' ;                                              HYP 275 
            GO TO OUT ;                                                  HYP 276 
         END ;                                                           HYP 277 
      END ;                                                              HYP 278 
   NOGO :                                                                HYP 279 
      HYPNSTR = '0' ;                                                    HYP 280 
   OUT :                                                                 HYP 281 
      RETURN ;                                                           HYP 282 
   END HYPHEN ;                                                          HYP 283 
-FILE 631;  2182 RECORDS:  
0   /*  TEXT360  -  PHASE 3  (PAGE LAYOUT)      V5.0  JUNE 18,1968  */   PLO   1 
 1/*  THE FOLLOWING PROCEDURE CONSTRUCTS THE LINE BUFFER AND CROSS-      PLO   2 
  /*   REFERENCE TABLE FOR LAYOUT AND OUTPUT.                            PLO   3 
  /*     NAME OF PROCEDURE IS PAGEPRO.                                   PLO   4 
  /*     THE FUNCTION OF  PAGEPRO  IS TO READ INTERMEDIATE TAPE 2        PLO   5 
  /*     AND CONSTRUCT THE LINE  BUFFER AND CROSS-REFERENCE TABLE        PLO   6 
  /*     FRON THE INFORMATION ON THE TAPE. THIS PROCEDURE DEFINES        PLO   7 
  /*     LOGICAL PAGES. CERTAIN ALTER CODES ARE ALSO PROCESSED BY        PLO   8 
  /*     THIS PROCEDURE.  PAGEPRO CALLS LAYOUT WHEN IT DETERMINES        PLO   9 
  /*     THAT A PAGE CAN BE FORMATTED.    THIS IS THE CONTROLLING        PLO  10 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
         LCT1 = LCT1 - OFOTLNG - 2;                                      PLO2166 
            SUBSTR(PSTEXT,LCT1,OFOTLNG)= OFOTBUF; /*PUT IN ODD FOOTING.*/PLO2167 
            END;                                                         PLO2168 
      CALL PROUTP;     /* PUT OUT FOOTING LINE. */                       PLO2169 
      END PRPAGE;                                                        PLO2170 
   PROUTP: PROCEDURE;   /* PUT OUT PRINT LINE*/                          PLO2171 
      WRITE FILE(PRTOT) FROM(PRLIN);                                     PLO2172 
      END PROUTP;                                                        PLO2173 
 0 END OUTPUT;                                                           PLO2174 
 0 END PAGEPRO;                                                          PLO2175 
-FILE 632;    21 RECORDS:  
0   /*  TEXT360  -  PHASE 4  (POST PROCESSOR)   V5.0 JULY 9, 1968  */    PP0   1 
    PPR0 :  PROCEDURE OPTIONS (MAIN) ;                                   PP0   2 
      DECLARE SPELLER CHAR (1) INIT ('0') STATIC EXTERNAL ;              PP0   3 
     DECLARE TIMEIN CHAR (8) STATIC ;                                            
     DECLARE CPUTIME ENTRY RETURNS (FLOAT BIN);                                  
      DECLARE PRTOT FILE OUTPUT RECORD ;                                 PP0   5 
      DECLARE DICT FILE INPUT ENV (U(2400));                                     
      DECLARE SPRINT FILE PRINT ENV (U(121));                                    
      DECLARE MASTER FILE INPUT ;                                        PP0   7 
      TIMEIN = TIME ;                                                    PP0   8 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      CALL PPR1 ;                                                        PP0  10 
      IF SPELLER = '1' THEN DO ;                                         PP0  11 
        OPEN FILE (DICT) , FILE (MASTER) ;                                       
         CALL PPR2 ;                                                     PP0  14 
      END ;                                                              PP0  15 
       PUT FILE (SPRINT) SKIP LIST (TIMEIN,'BEGIN PHASE 4') ;                    
       PUT FILE (SPRINT) SKIP LIST (TIME,'END PHASE 4');                         
       PUT FILE (SPRINT) SKIP EDIT ('CPUTIME: ',CPUTIME,' SECS')                 
           (A,F(10,3)) ;                                                         
    END PPR0 ;                                                           PP0  19 
-FILE 633;  1299 RECORDS:  
0   PPR1 :  PROCEDURE ;                 /* THE POST PROCESSOR */         PP1   1 
  /*                         TEXT/360 POST PROCESSOR                     PP1   2 
  /*                           * * * * * * * * * *                       PP1   3 
  /*     THE POST PROCESSOR PERFORMS THE FINAL CLEANUP OF THE TEXT/360   PP1   4 
  /*     RUN.  IT PRINTS LISTS OF ALTER CODES; EDIT CODES; FOOTNOTES;    PP1   5 
  /*     SEARCH, CHANGE, AND REVISE LINES; AND ERROR MESSAGES.  THE TABLEPP1   6 
  /*     OF CONTENTS AND OTHER LISTS OF USER-SPECIFIED LINES ARE ALSO    PP1   7 
  /*     PRINTED AT THIS TIME.  THE POST PROCESSOR PERFORMS A SPELLING   PP1   8 
  /*     CHECK, IF REQUESTED.                                            PP1   9 
  /*        INPUT  - EXCEPTION FILE                                      PP1  10 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                  ELSE ODDEVEN = 1 ;                                     PP11291 
               ENDPAGSW = '0'  ;                                         PP11292 
               BEGINPAGSW = '1'  ;                                       PP11293 
               BUFFER = PAGEBUF.TRAILBUF(ODDEVEN) ;                      PP11294 
               WRITE FILE (PRTOT) FROM (BUFFER) ;                        PP11295 
            END ;                                                        PP11296 
                                                                         PP11297 
            RETURN ;                                                     PP11298 
      END OUTPUT ;                                                       PP11299 
    END PPR1 ;                                                           PP11300 
-FILE 634;   248 RECORDS:  
0              /* POST PROCESSOR, VERSION 5.0, PHASE 3  */               PP2   1 
    PPR2 :  PROCEDURE ;          /* THE SPELLING CHECK PROGRAM */        PP2   2 
                                                                         PP2   3 
                                                                         PP2   4 
      DECLARE (     START1 (8) FIXED BIN (31) ,                          PP2   5 
                    NWORD1 (8) FIXED BIN (31) ,                          PP2   6 
                    LIMIT1 (8) FIXED BIN (31) ,                          PP2   7 
                    WORD1 CHAR (28600) ) STATIC ;                        PP2   8 
                                                                         PP2   9 
      DECLARE (     START2 (15) FIXED BIN (31) ,                         PP2  10 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
           'WORD1=',WORD1,                                               PP2 237 
           'START2=',START2,                                             PP2 238 
           'NWORD2=',NWORD2,                                             PP2 239 
           'LIMIT2=',LIMIT2,                                             PP2 240 
           'WORD2=',WORD2,                                               PP2 241 
           'CTR=',CTR,                                                   PP2 242 
           'X1=',X1,                                                     PP2 243 
           'WORD=',WORD) ;                                               PP2 244 
      CALL IHEDUMP ;                                                     PP2 245 
    END PPR2 ;                                                           PP2 246 
-FILE 635;   200 RECORDS:  
01/*UPDATE                                                               DICT0001
  /*THE NAME OF THE PROCEDURE IS 'UPDATE'.  THE FUNCTION OF 'UPDATE'IS   DICT0002
  /* TO FORM A DICTIONARY OF WORDS OF VARIOUS LENGTHS ON AN INITIAL RUN  DICT0003
  /*AND UPDATE THE DICTIONARY WITH ADDITIONS AND DELETIONS ON SUCCESSIVE DICT0004
  /*RUNS                                                                 DICT0005
  */                                                                     DICT0006
  UPDATE: PROCEDURE OPTIONS(MAIN);                                       DICT0007
      DECLARE (                                                          DICT0008
         FCOL CHAR (1), /*OPERATION INDICATOR*/                          DICT0009
         DICTBUF(24) CHAR (2300) VARYING, /*STORAGE FOR DICTIONARY*/     DICT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                B = B + 5*T ;                                            DICT0191
             END ;                                                       DICT0192
             B = 1 ;                                                     DICT0193
          END ;                                                          DICT0194
          END;                                                           DICT0195
       OPEN FILE (DICT) OUTPUT;                                          DICT0196
       PUT FILE (DICT) LIST ((NOWRDBUF(T) DO T= 1 TO 24));               DICT0197
       PUT FILE (DICT) LIST ((DICTBUF(T) DO T= 2 TO 24));                DICT0198
      CLOSE FILE (DICT);                                                 DICT0199
  END UPDATE;                                                            DICT0200
-FILE 636;   346 RECORDS:  
0ITHE AND FOR ARE DATA CONTROL PROGRAM THIS THAT INSTRUCTION ROUTINE ADDRESS     
   DIRECT  BDAM                                                                  
   AS OF IT IS IN OR BY BE TO AN                                                 
  WE HO PA ID MY PI EX OH SO GO MA OX UN US YE HA ME UP                          
  STORAGE NOT SET WITH SYSTEM FROM STATEMENT OPERATION WHEN USED MACRO WHICH CARD
  ONE NUMBER MAY SUBROUTINE WILL REGISTER CAN CHANNEL CODE MUST ERROR DEVICE     
  ENTRY FIELD UNIT OUTPUT FORMAT EACH ALL SPECIFIED NAME OPERAND END BIT INPUT   
  READ TABLE HAS ANY FOLLOWING BLOCK TAPE CHECK FIRST LENGTH TIME INSTRUCTIONS   
  RECORD LOCATION THESE TYPE INTO ONLY AREA INFORMATION WORD LOAD PHASE TWO LIST 
  USER TEST BITS BYTE VALUE USE CONDITION BEEN EXECUTION FUNCTION FIGURE ZERO    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   GRAPHICALLY PRINTABLE DISTINCTION SEPARATOR CONSEQUENTLY MONITORED SEPARATING 
  THEORETICALLY FORCES EXPLAINS CIRCUMSTANCES ALLOCATES SUPPLEMENTAL ALLOCATE    
   AFFECTS DISCUSSIONS INDIVIDUALLY SCHEME ABLE OBTAINING ORIGINALLY RESPECIFIED 
   CONVERSE MIDST RECALCULATES           DEPTH DIVIDES JUSTIFICATION             
   ESTABLISHES MARGINS DECREASING ACHIEVE SIMPLY MEASURED OPERATIVE RESPECIFIED  
  ALTERMATED SKIPS HEADS PAGES FOOT SPACED SPACING REDUCES TWICE DIFFERENTLY     
  INCREASES COMBINES CONTRAST EXAMINES FOLIO FOOTNOTE CONFUSED COUNTED           
  STRETCHES                                                                      
 D ACCUPY DEVIDE SEQRCH MIDIFIED TETURNED VARIAGLES ALTERMATED                   
 A DIVIDE SEARCH MODIFIED RETURNED VARIABLES ALTERNATED  BMW                     
-FILE 637;   309 RECORDS:  
0FOREAL  CSECT                                                           PRNT0001
          SAVE  (14,12),,*                                               PRNT0002
         BALR  8,0                                                       PRNT0003
          USING  *,8                                                     PRNT0004
          B     STARTSAV                                                 PRNT0005
 *  EQUEATES FOR REG NUMONICS                                            PRNT0006
 R3       EQU   3                                                        PRNT0007
 R4       EQU   4                                                        PRNT0008
 R5       EQU  5                                                         PRNT0009
 R6       EQU   6                                                        PRNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OUTLTH   DC    H'132'                                                   PRNT0300
 MODIF    DC    A(X'2010')                                               PRNT0301
 LINNR    DS    F'0'                                                     PRNT0302
 POINTER  DS    F                                                        PRNT0303
 THREE    DC    1F'3'                                                    PRNT0304
 ZERO     DC    X'00000000'             ZERO WORD                        PRNT0305
 LEFT     DS    D                                                        PRNT0306
 ADDR6    DC    A(LOW)                  CONTENTS OF R6 AT START          PRNT0307
 ETINPUT   DC  A(TLAST)                                                  PRNT0308
          END   FOREAL                                                   PRNT0309
-FILE 638;    62 RECORDS:  
0*                                                                       UCLC0001
 *                            UPPER- TO LOWER-CASE                       UCLC0002
 *                            CONVERSION ROUTINE                         UCLC0003
 *                            FOR TEXT/360 MODULES                       UCLC0004
 *                                                                       UCLC0005
 *        THIS SUBROUTINE ACCEPTS AS INPUT A CHARACTER STRING OF ANY     UCLC0006
 *        LENGTH.  IT TRANSFORMS THE UPPER-CASE ALPHABETIC CHARACTERS    UCLC0007
 *        TO THEIR LOWER-CASE EQUIVALENTS.  ALL NON-ALPHABETIC           UCLC0008
 *        CHARACTERS ARE LEFT UNCHANGED.                                 UCLC0009
 *                                                                       UCLC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       UCLC0053
 TRNSL    EX    7,TRINST      EXECUTE THE TRANSLATE INSTRUCTION          UCLC0054
 *                                                                       UCLC0055
          LM    14,11,12(13)  RESTORE THE GENERAL REGISTERS              UCLC0056
          BR    14            RETURN TO CALLER                           UCLC0057
 *                                                                       UCLC0058
 TRINST   TR    0(0,6),TRTABLE          TRANSLATE INSTRUCTION PROPER     UCLC0059
 TRTABLE  DC    64F'0'                  TRANSLATION TABLE                UCLC0060
 *                                                                       UCLC0061
          END                                                            UCLC0062
-FILE 639;    62 RECORDS:  
0*                                                                       LCUC0001
 *                            LOWER  TO UPPER-CASE                       LCUC0002
 *                            CONVERSION ROUTINE                         LCUC0003
 *                            FOR TEXT/360 MODULES                       LCUC0004
 *                                                                       LCUC0005
 *        THIS SUBROUTINE ACCEPTS AS INPUT A CHARACTER STRING OF ANY     LCUC0006
 *        LENGTH.  IT TRANSFORMS THE LOWER-CASE ALPHABETIC CHARACTERS    LCUC0007
 *        TO THEIR UPPER-CASE EQUIVALENTS.  ALL NON-ALPHABETIC           LCUC0008
 *        CHARACTERS ARE LEFT UNCHANGED.                                 LCUC0009
 *                                                                       LCUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       LCUC0053
 TRNSL    EX    7,TRINST      EXECUTE THE TRANSLATE INSTRUCTION          LCUC0054
 *                                                                       LCUC0055
          LM    14,11,12(13)  RESTORE THE GENERAL REGISTERS              LCUC0056
          BR    14            RETURN TO CALLER                           LCUC0057
 *                                                                       LCUC0058
 TRINST   TR    0(0,6),TRTABLE          TRANSLATE INSTRUCTION PROPER     LCUC0059
 TRTABLE  DC    64F'0'                  TRANSLATION TABLE                LCUC0060
 *                                                                       LCUC0061
          END                                                            LCUC0062
-FILE 640;    61 RECORDS:  
0*                                                                       SPEC0001
 *        THIS ROUTINE IS USED BY THE SPELLING CHECK PROGRAM TO REMOVE   SPEC0002
 *        SPECIAL CHARACTERS FROM THE INPUT STREAM.  IT ALSO CHANGES     SPEC0003
 *        ALL LOWER-CASE LETTERS TO UPPER-CASE LETTERS.                  SPEC0004
 *                                                                       SPEC0005
 *              INPUT REGISTERS:        1 - THE ADDRESS OF A POINTER TO  SPEC0006
 *                                          THE DOPE VECTOR FOR THE      SPEC0007
 *                                          STRING TO BE CONVERTED.      SPEC0008
 *                                                                       SPEC0009
 *                                     15 - THE BASE ADDRESS OF THIS     SPEC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BR    14            RETURN TO CALLER                           SPEC0052
 *                                                                       SPEC0053
 TRINST   TR    0(0,6),TRTABLE          TRANSLATE INSTRUCTION PROPER     SPEC0054
 SET1     DC    CL9'ABCDEFGHI'                                           SPEC0055
 SET2     DC    CL9'JKLMNOPQR'                                           SPEC0056
 SET3     DC    CL8'STUVWXYZ'                                            SPEC0057
          DS    0D                                                       SPEC0058
 TRTABLE  DC    CL256' '                                                 SPEC0059
 *                                                                       SPEC0060
          END                                                            SPEC0061
-FILE 641;  1495 RECORDS:  
0C ** TRIP WILL HANDLE 120 VARIABLES OR LESS - MISSING DATA              TRIP0001
 C ** NOT ALLOWED                                                        TRIP0002
 C ** BASIC COMPUTATIONS ARE DONE ON DATA CONTAINED IN 'COMMON /TRP/'    TRIP0003
 C ** AFTER ' MSDC ' HAS BEEN CALLED:                                    TRIP0004
 C ** CONTENTS OF X;  VARIABLE MEANS                                     TRIP0005
 C **             S;  SQRT(N-1)*STD. DEV.                                TRIP0006
 C **            AX;  VARIABLE NAMES                                     TRIP0007
 C **             W;  TRIANGULAR ARRAY OF CORRELATION COEFFICIENTS       TRIP0008
 C **                 STORED ROW BY ROW AS A VECTOR                      TRIP0009
 C **             N;  NO. OF VARIABLES                                   TRIP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       FIND(2'M)                                                         TRIP1486
       READ(2) NZ,(Z(I),I=1,NZ),ID                                       TRIP1487
       WRITE(6,97) K                                                     TRIP1488
       RETURN                                                            TRIP1489
 97    FORMAT('0  ARRAY RESTORED FROM AREA'I4)                           TRIP1490
 98    FORMAT(' '45H ADDRESS MODIFICATION RESULTED IN NO. G.T. 99)       TRIP1491
 99    FORMAT('0'5X,22H ARRAY WRITTEN IN AREA,I4)                        TRIP1492
 100   FORMAT('0'5X,17H NO ARRAY IN AREA,I4)                             TRIP1493
 1     FORMAT(31A8)                                                      TRIP1494
       END                                                               TRIP1495
-FILE 642;  3289 RECORDS:  
0T1       EQU   3                                                        MVTB0001
 T2       EQU   4                                                        MVTB0002
 R1       EQU   1                                                        MVTB0003
 R0       EQU   0                                                        MVTB0004
 R14      EQU   14                                                       MVTB0005
 R15      EQU   15                                                       MVTB0006
 BASE     EQU   10                                                       MVTB0007
 CODP EQU 8                                                              MVTB0008
 TABP EQU 9                                                              MVTB0009
 MVTAB    ENTER BASE,SA=SAAV                                             MVTB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 STAR   DC    C'*'                                                       MVTB3280
 OUTPUT DS    132C                                                       MVTB3281
 PATERN DS    7C                                                         MVTB3282
 PATRN3 DS    8C                                                         MVTB3283
 PATRN4 DS    9C                                                         MVTB3284
 BLANK  DS    C                                                          MVTB3285
 TABLES DSECT                                                            MVTB3286
 CODE   DS    12X                                                        MVTB3287
 TABLE  DS    0F                                                         MVTB3288
        END                                                              MVTB3289
-FILE 643;   630 RECORDS:  
0C MODIFICATIONS MADE FOR /360 BY G. STARKEY APRIL 1969                  MFAV0001
 C       DOUBLE PRECISION VERSION                                        MFAV0002
 C          MULTI-FACTOR ANALYSIS OF VARIANCE - VERSION C                MFAV0003
 C                   CODED BY J. R. H. DEMPSTER                          MFAV0004
 C                                                                       MFAV0005
       DIMENSION R(16000),N(16000),K(998)                                MFAV0006
       DIMENSION A(2,64),IB(65),L(64),JE(64),IE(64),SQ(64),DF(64)        MFAV0007
       DIMENSION M(9),I(9),KS(6),KP(16),X(100),ITAB(65)                  MFAV0008
       DIMENSION NOB(100),RT(100),SQT(100),AX(100)                       MFAV0009
       DIMENSION MX(6),H(150),FM(54),LM(6)                               MFAV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       DO 50  J=1,IIC                                                    MFAV0621
 50    IF (ISUB(J).EQ. 2) IC=IC + 1                                      MFAV0622
 60    CALL UNPK(1,IDAT(101),0,HOLD(IC))                                 MFAV0623
 70    CONTINUE                                                          MFAV0624
       CALL PK(12,HOLD,H,0)                                              MFAV0625
       RETURN                                                            MFAV0626
 500   WRITE (6,510)                                                     MFAV0627
 510   FORMAT (1H0,'INVALID INPUT TO SUBROUTINE LABEL')                  MFAV0628
       STOP                                                              MFAV0629
       END                                                               MFAV0630
-FILE 644;   438 RECORDS:  
0C         MULTI-FACTOR ANALYSIS OF COVARIANCE                           MFAC0001
 C             CODED BY J. R. H. DEMPSTER                                MFAC0002
 C                                                                       MFAC0003
       DIMENSION N(1000),R(1000,10),X(10),RT(10)                         MFAC0004
       DIMENSION A(2,64),IB(65),DF(64),JE(64),KS(6),KP(10)               MFAC0005
       DIMENSION SQ(64,55),SQT(55),SQE(55)                               MFAC0006
       DIMENSION M(9),I(9),K(980),L(64),IE(64)                           MFAC0007
       DIMENSION CF(55),MX(6),H(300)                                     MFAC0008
       EQUIVALENCE (MX(6),MX6),(KP(6),KP6)                               MFAC0009
       EQUIVALENCE (MX(1),MX1),(MX(2),MX2),(MX(3),MX3),(MX(4),MX4),(MX(5)MFAC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 500   WRITE (6,510)                                                     MFAC0429
 510   FORMAT (1H0,'INVALID INPUT TO SUBROUTINE LABEL')                  MFAC0430
       STOP                                                              MFAC0431
       END                                                               MFAC0432
       SUBROUTINE IDAT(NF,MX,I,X)                                        MFAC0433
       DIMENSION X(10),I(9)                                              MFAC0434
       READ(5,1) I,(X(J),J=1,MX)                                         MFAC0435
 1     FORMAT(9I2,10F6.3)                                                MFAC0436
       RETURN                                                            MFAC0437
       END                                                               MFAC0438
-FILE 645;   999 RECORDS:  
0C                                                                       FACT0001
 C     FACTO - FACTOR ANALYSIS                                           FACT0002
 C                                                                       FACT0003
 C     PURPOSE                                                           FACT0004
 C        FACTO PERFORMS A PRINCIPAL COMPONENT ANALYSIS ON RAW DATA OR A FACT0005
 C        CORRELATION MATRIX, DOES A VARIMAX ROTATION OF THE FACTORS SO  FACT0006
 C        OBTAINED, AND COMPUTES FACTOR SCORES.                          FACT0007
 C                                                                       FACT0008
 C     SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                     FACT0009
 C        CORRE                                                          FACT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 20    ETA(I)=ETA(I)-EIG(K)*Y(I)                                         FACT0990
       DO 30 I=1,M                                                       FACT0991
 30    EPS(K)=EPS(K)+ETA(I)*ETA(I)                                       FACT0992
       EPS(K)=SQRT(EPS(K))                                               FACT0993
       VECT(K)=99.                                                       FACT0994
       IF(DEN.EQ.0.0) GO TO 50                                           FACT0995
       VECT(K)=2.*EPS(K)/DEN                                             FACT0996
 50    CONTINUE                                                          FACT0997
       RETURN                                                            FACT0998
       END                                                               FACT0999
-FILE 646;   108 RECORDS:  
0CFLP     TITLE '          COINFLIP DEMONSTRATION PROGRAM'               CNFL0001
          MACRO                                                          CNFL0002
 &LABEL   READ  &EOFEXIT                                                 CNFL0003
 &LABEL   MVI   HT,C' '                                                  CNFL0004
          SCARDS HT,,@UC,EXIT=&EOFEXIT                                   CNFL0005
          MEND                                                           CNFL0006
          SPACE 4                                                        CNFL0007
          MACRO                                                          CNFL0008
 &L       PICK  &LABE1,&LABE2                                            CNFL0009
 &L       LTR   SAVELINK,SAVELINK                                        CNFL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'A FLIP OF AN IMAGINARY COIN. IF IT GUESSES INCOR-   '  CNFL0099
          DC    C'RECTLY, ONE DOLLAR WILL BE ADDED TO YOUR SCORE,     '  CNFL0100
          DC    C'OTHERWISE YOU WILL LOSE A DOLLAR.  YOU "FLIP" THE   '  CNFL0101
          DC    C'COIN BY DEPRESSING EITHER THE "H" OR THE "T" ON YOUR'  CNFL0102
          DC    C'CONSOLE.  DEPRESSING THE "?" KEY FORCES COINFLIP TO '  CNFL0103
          DC    C'DIVULGE ITS CURRENT PREDICTION.  TO END THE GAME,   '  CNFL0104
          DC    C'TYPE "END".                                         '  CNFL0105
          DC    C'    GOOD LUCK!                                      '  CNFL0106
 TMSG     EQU   *                                                        CNFL0107
          END                                                            CNFL0108
-FILE 647;    96 RECORDS:  
0LOVO     TITLE '******ATTACHES VOCABULARY FILE TO ARU******'            LOVO0001
 LOVOC    CSECT                                                          LOVO0002
 *********************************************************************** LOVO0003
 *ENTRY   SPRINT POINTS TO ARU LINE                                    * LOVO0004
 *        R1 POINTS TO THE HALFWORD LENGTH(OF THE FILE'S NAME)         * LOVO0005
 *        FOLLOWED BY THE FILE'S NAME.                                 * LOVO0006
 *********************************************************************** LOVO0007
          USING PSCT,R1                                                  LOVO0008
          SVE                                                            LOVO0009
          LA    R12,LO6            SET UP                                LOVO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 2                                                        LOVO0087
 PAR      PARA                                                           LOVO0088
 MODIF    DC    F'0'                                                     LOVO0089
 LINE     DC    F'0'                                                     LOVO0090
 UNIT     DC    F'0'                                                     LOVO0091
 COUNT    DC    H'1'                                                     LOVO0092
 BUFF     DC    36C' '                                                   LOVO0093
          LTORG                                                          LOVO0094
          COPY  ARUDEF                                                   LOVO0095
          END                                                            LOVO0096
-FILE 648;    90 RECORDS:  
0LODE     TITLE '******ATTACHES ARU DEFINITION FILE******'               LODF0001
 LODEF    CSECT                                                          LODF0002
 *********************************************************************** LODF0003
 *ENTRY   SPRINT POINTS TO ARU LINE                                    * LODF0004
 *        R1 POINTS TO THE HALFWORD LENGTH(OF THE FILE'S NAME)         * LODF0005
 *        FOLLOWED BY THE FILE'S NAME.                                 * LODF0006
 *********************************************************************** LODF0007
          USING PSCT,R1                                                  LODF0008
          SVE                                                            LODF0009
          LA    R12,LO6            SET UP                                LODF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 2                                                        LODF0081
 PAR      PARA                                                           LODF0082
 MODIF    DC    F'0'                                                     LODF0083
 LINE     DC    F'0'                                                     LODF0084
 UNIT     DC    F'0'                                                     LODF0085
 COUNT    DC    H'1'                                                     LODF0086
 BUFF     DC    36C' '                                                   LODF0087
          LTORG                                                          LODF0088
          COPY  ARUDEF                                                   LODF0089
          END                                                            LODF0090
-FILE 649;   252 RECORDS:  
0CREVOC   CSECT                                                          CREV0001
          SVE                                                            CREV0002
          LTR   R1,R1               CHECK FOR PAR                        CREV0003
          BC    8,CRE                                                    CREV0004
          L     R1,0(0,R1)                                               CREV0005
          LTR   R1,R1                                                    CREV0006
          BC    8,CRE                                                    CREV0007
          LH    R15,0(0,R1)                                              CREV0008
          LTR   R15,R15                                                  CREV0009
          BC    8,CRE                                                    CREV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'D',AL3(SFLGD)                                          CREV0243
          DC    C'E',AL3(SFLGE)                                          CREV0244
 LETAB    EQU   (*-ETAB)/4                                               CREV0245
          DS    0H                                                       CREV0246
 COUNT    DC    H'0'                                                     CREV0247
 FLAG     DC    X'00'                                                    CREV0248
          EQUS                                                           CREV0249
 MTER     EQU   X'01'                                                    CREV0250
 MRED     EQU   X'02'                                                    CREV0251
          END   CREVOC                                                   CREV0252
-FILE 650;    70 RECORDS:  
0VLIST    CSECT                                                          VLST0001
          SVE                                                            VLST0002
          LA    R1,PAR                                                   VLST0003
          MVI   BUFF,C'1'                                                VLST0004
          MVI   BUFF+1,C' '                                              VLST0005
          MVC   BUFF+2(78),BUFF+1                                        VLST0006
          MVC   COUNT(2),=H'80'                                          VLST0007
          L     R15,=V(SPRINT)                                           VLST0008
          BASR  R14,R15                                                  VLST0009
 VREAD    MVC   PAR,=A(IBUFF)                                            VLST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 R7       EQU   7                                                        VLST0061
 R8       EQU   8                                                        VLST0062
 R9       EQU   9                                                        VLST0063
 R10      EQU   10                                                       VLST0064
 R11      EQU   11                                                       VLST0065
 R12      EQU   12                                                       VLST0066
 R13      EQU   13                                                       VLST0067
 R14      EQU   14                                                       VLST0068
 R15      EQU   15                                                       VLST0069
          END   VLIST                                                    VLST0070
-FILE 651;  2992 RECORDS:  
0         MACRO                                                          GRPM0001
 &NAME    GINIT &BPX=0,&BPY=0,&BLC=0,&BLIM=16383,&BLP=0                  GRPM0002
          GBLA  &BPXA,&BPYA,&BLCA,&BLIMA,&BLPA                           GRPM0003
          GBLC  &INIT                                                    GRPM0004
 &INIT    SETC  'INIT'.'&SYSNDX'                                         GRPM0005
 &INIT    DS    0H                                                       GRPM0006
          AIF   (T'&BLP NE 'N').NOBLP    VALIDATE BUFFER LOAD POINT.     GRPM0007
          AIF   (&BLP GT 16383).NOBLP                                    GRPM0008
 &BLPA    SETA  &BLP                     INITIALIZE BUFFER LOAD POINT.   GRPM0009
 .ALSET   AIF   (T'&BPX NE 'N').RBPX     VALIDATE X-COORDINATE BEAM      GRPM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 &NAME    SWAP  &D1,&L,&RP1,&D2,&RP2    DISP1,LENGTH,1ST PTR,DISP2,2NPT  GRPM2983
 &NAME    XC    &D1.(&L,&RP1),&D2.(&RP2) 3 EXC ORS TO SWAP L BYTES       GRPM2984
          XC    &D2.(&L,&RP2),&D1.(&RP1)                                 GRPM2985
          XC    &D1.(&L,&RP1),&D2.(&RP2)                                 GRPM2986
          MEND                                                           GRPM2987
          MACRO                                                          GRPM2988
 &NAME    STIMER &A,&B,&DINTVL=,&BINTVL=,&TUINTVL=,&TOD=                 GRPM2989
 &NAME    NOPR  0                                                        GRPM2990
          MNOTE 4,'STIMER IS A DUMMY - GENERATES ONLY A NOPR'            GRPM2991
          MEND                                                           GRPM2992
-FILE 652;   571 RECORDS:  
0DRAW     TITLE '2250 DRAWING ROUTINE'                                   DRAW0001
          START 0                                                        DRAW0002
          ENTRY DRAW                                                     DRAW0003
          EXTRN GETFD                                                    DRAW0004
          EXTRN SCARDS                                                   DRAW0005
          EXTRN SPUNCH                                                   DRAW0006
          USING *,12                                                     DRAW0007
          USING *+4095,11                                                DRAW0008
 DRAW     STM   14,12,12(13)                                             DRAW0009
          LR    12,15                                                    DRAW0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'4000'                                                  DRAW0562
          DC    H'4092'                                                  DRAW0563
          DC    AL2(GECPB)                                               DRAW0564
          DC    296C'XXXXXXXXXXXXX'                                      DRAW0565
          DS    0H                                                       DRAW0566
          DC    AL2(GTRU)                                                DRAW0567
 STLOC2   DC    H'0'                                                     DRAW0568
 DISP1L   EQU   *-DISP1                                                  DRAW0569
 DISP2L   EQU   *-DISP2                                                  DRAW0570
          END                                                            DRAW0571
-FILE 653;   637 RECORDS:  
0TVCT     TITLE 'TRANSFER VECTOR FOR TASKS ROUTINES'                     PTSK0001
          CSECT                                                          PTSK0002
          ENTRY TVECT                                                    PTSK0003
 TVECT    DC    V(ERROR)                                                 PTSK0004
          DC    V(DEVICES)                                               PTSK0005
          DC    V(JOBTABLE)                                              PTSK0006
          END                                                            PTSK0007
 JOB      TITLE 'SUBROUTINE TO DISPLAY JOB TABLE INFORMATION'            PTSK0008
 JBTBL    CSECT                                                          PTSK0009
          ENTRY JOBTABLE                                                 PTSK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'2  SPURIOUS DE RECEIVED       6  UNIT CHECK'           PTSK0628
          DC    X'15'                                                    PTSK0629
          DC    C'3  PROCEED                    7  UNIT EXCEPTION'       PTSK0630
          DC    A(GECPB)                                                 PTSK0631
          DC    X'15'                                                    PTSK0632
            DC  X'00'                                                    PTSK0633
 DLINEL   EQU   *-DLINE                                                  PTSK0634
 TBL      DC    C'0123456789ABCDEF'                                      PTSK0635
 TRTBL    EQU   TBL-240                                                  PTSK0636
          END                                                            PTSK0637
-FILE 654;   761 RECORDS:  
0TSK      TITLE 'ROUTINE TO DISPLAY TASK STATUS ON 2250'                 PTSK0001
          MACRO                                                          PTSK0002
 &NAME    IOREQ &CCW                                                     PTSK0003
 &NAME    L     0,DEVICE                                                 PTSK0004
          LA    1,&CCW                                                   PTSK0005
          LA    2,RTNL                                                   PTSK0006
          SVC   STIO                                                     PTSK0007
          SVC   WAIT                                                     PTSK0008
          MEND                                                           PTSK0009
 PTASKS   CSECT                                                          PTSK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    AL2(GECFB)                                               PTSK0752
 INPUT    DC    37C'  '            INPUT LINE                            PTSK0753
 INITLEN  EQU   *-GDOA                                                   PTSK0754
          DC    AL2(GSRT)                                                PTSK0755
          DC    AL2(GTRU)                                                PTSK0756
          DC    HL2'0'                                                   PTSK0757
 **********************************************************************  PTSK0758
          DS    800F               REMAINDER OF GDOA                     PTSK0759
 GDOALEN  EQU   *-GDOA                                                   PTSK0760
          END                                                            PTSK0761
-FILE 655;  9998 RECORDS:  
0GSTO     TITLE 'GSTOR' STORE GRAPHIC DATA                               GLIB0001
 IFFPAAST CSECT                          GSTOR                           GLIB0002
 *STATUS. CHANGE LEVEL 0                                                 GLIB0003
 *                                                                       GLIB0004
 *FUNCTION/OPERATION. GSTOREG            EQUALS BYTES-CAN'T STORE        GLIB0005
          SR    WRKREG,TEMREG            NUMBER OF BYTES-CAN STORE       GLIB0006
          C     WRKREG,ZERO                                              GLIB0007
          BNH   GSTOR4                   NO STORAGE AVAILABLE            GLIB0008
          SR    CNTREG,WRKREG            BYTES REMAINING                 GLIB0009
          BAL   LINREG,GSTOR6            MOVE GRAPHIC DATA               GLIB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COM15L   DC    AL2(COM15L-COM15)                                        GLIB9989
 COM23    DC    C' ***** GDOA OVERFLOW, TOO MANY POINTS '                GLIB9990
 COM23L   DC    AL2(COM23L-COM23)                                        GLIB9991
 COM25    DC    C' ***** GDOA OVERFLOW, GRID TOO FINE '                  GLIB9992
 COM25L   DC    AL2(COM25L-COM25)                                        GLIB9993
          LTORG                                                          GLIB9994
          EJECT                                                          GLIB9995
 WKAREA   DS    100F               WORK AREA FOR POR IN GRAPHLIB         GLIB9996
 GDOA     DS    8192F                                                    GLIB9997
          END                                                            GLIB9998
-FILE 656;  1358 RECORDS:  
0         MACRO                                                          E2250001
 &LABEL   IOREQ &CCW                                                     E2250002
 &LABEL   L     0,DEVICE                                                 E2250003
          LA    1,&CCW                                                   E2250004
          LA    2,RTNL                                                   E2250005
          SVC   STIO                                                     E2250006
          SVC   WAIT                                                     E2250007
          MEND                                                           E2250008
          MACRO                                                          E2250009
 &LABEL   IOREQ2 &CCW                                                    E2250010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LOCCURI  DC    AL2(ILN-DISP)                                            E2251349
 LOCCURSC DC    AL2(SCAN-DISP)                                           E2251350
 SETLOC   DC    AL2(STAB-DISP)                                           E2251351
 COMMLOC  DC    AL2(COMM-DISP)                                           E2251352
 SEQADD   DC    AL2(SEQASTK-DISP)                                        E2251353
 INDADD   DC    AL2(INDASTK-DISP)                                        E2251354
 ILNLOC   EQU   LOCCURI                                                  E2251355
 ILN2LOC  DC    AL2(ILN2-DISP)                                           E2251356
 SCANLOC  EQU   LOCCURSC                                                 E2251357
          END   BEGIN                                                    E2251358
-FILE 657;   177 RECORDS:  
0PMIN     TITLE 'CONVERSATIONAL INTERFACE WITH GRAPHIC PLOT ROUTINES'    P2250001
 PMAIN    CSECT                                                          P2250002
          EXTRN GPLOT2                                                   P2250003
          EXTRN GPLOT3                                                   P2250004
          STM   14,12,12(13)                                             P2250005
          LA    12,0(0,13)                                               P2250006
          BAL   13,84(0,15)                                              P2250007
          USING *,13                                                     P2250008
 SAREA    DS    18F                                                      P2250009
          ST    12,SAREA+4                                               P2250010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COM25    DC    C' ***** START AGAIN FROM THE BEGINNING '                P2250168
 COM25L   DC    AL2(COM25L-COM25)                                        P2250169
 COM26    DC    C' ***** FILE ON LUNIT 1 HAS BEEN REWOUND '              P2250170
 COM26L   DC    AL2(COM26L-COM26)                                        P2250171
 COM4     DC    C' ENTER # X,Y PAIRS(INT) '                              P2250172
 COM4L    DC    AL2(COM4L-COM4)                                          P2250173
 FMT1     DC    C'4(WE),I*'                                              P2250174
 FMT2     DC    C'I*'                                                    P2250175
 FMT4     DC    C'C*'                                                    P2250176
          END                                                            P2250177
-FILE 658;   368 RECORDS:  
0         MACRO                                                          *TRK0001
 &LABEL   IOREQ &CCW                                                     *TRK0002
 &LABEL   L     0,LDN                                                    *TRK0003
          LA    1,&CCW                                                   *TRK0004
          LA    2,RTNL                                                   *TRK0005
          SVC   STIO                                                     *TRK0006
          SVC   WAIT                                                     *TRK0007
          MEND                                                           *TRK0008
          MACRO                                                          *TRK0009
          TRANSFER  &N,&LOC                                              *TRK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          GEVM                                                           *TRK0359
          GDV   0,4095,B                                                 *TRK0360
          GECPB                                                          *TRK0361
          DC    3848C'X'                                                 *TRK0362
          GIBLC 3848                                                     *TRK0363
          DC    AL2(GTRU)                                                *TRK0364
          DC    AL2(DISL)                                                *TRK0365
 GTRU     EQU   X'2AFF'                                                  *TRK0366
 XISL     EQU   *-XIS                                                    *TRK0367
          END                                                            *TRK0368
-FILE 659;  5891 RECORDS:  
0         MACRO                                                          SYSM0001
 &NAME    SAVE  &REG,&CODE,&ID                                           SYSM0002
          LCLA  &A,&B,&C                                                 SYSM0003
          LCLC  &E,&F,&G,&H                                              SYSM0004
          AIF   ('&REG' EQ '').E1                                        SYSM0005
          AIF   ('&ID' EQ '').NULLID                                     SYSM0006
          AIF   ('&ID' EQ '*').SPECID                                    SYSM0007
 &A       SETA  ((K'&ID+2)/2)*2+4                                        SYSM0008
 &NAME    B     &A.(0,15)                         BRANCH AROUND ID       SYSM0009
 &A       SETA  K'&ID                                                    SYSM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .TYPEA   ANOP                                                           SYSM5882
 &SLB     LM    0,1,=CL8'&IOUNIT'  SET UP PARAMETERS                     SYSM5883
          AGO   .CALL                                                    SYSM5884
 .TYPEB   ANOP                                                           SYSM5885
 &SLB     LM    0,1,=CL8&IOUNIT    SET UP PARAMETERS                     SYSM5886
 .CALL    L     15,=V(REWIND#)     CALL REWIND#                          SYSM5887
          BALR  14,15              SUBROUTINE TO GET IT REWOUND          SYSM5888
          MEXIT                                                          SYSM5889
 .ERR1    MNOTE 4,'REWIND HAS NO ARGUMENT'                               SYSM5890
          MEND                                                           SYSM5891
-FILE 660;  6686 RECORDS:  
0                                                                        OSM00001
                                                                         OSM00002
          MACRO                                                          OSM00003
 &NAME    ABEND &CC,&DUMP,&STEP,&MSG                                     OSM00004
          LCLA  &CTR                                                     OSM00005
          LCLB  &B(3)                                                    OSM00006
          AIF   ('&CC' EQ '').E1                                         OSM00007
 &B(1)    SETB  ('&DUMP' EQ 'DUMP')                                      OSM00008
 &B(2)    SETB  ('&STEP' EQ 'STEP')                                      OSM00009
 &B(3)    SETB  ('&MSG' NE '')                                           OSM00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .SVC     SVC   7                                 ISSUE XCTL SVC         OSM06677
          MEXIT                                                          OSM06678
 .E4      IHBERMAC 36,,&REG                                              OSM06679
          MEXIT                                                          OSM06680
 .E1      IHBERMAC 95                                                    OSM06681
          MEXIT                                                          OSM06682
 .E2      IHBERMAC 84                                                    OSM06683
          MEXIT                                                          OSM06684
 .E3      IHBERMAC 75                                                    OSM06685
 .END     MEND                                                           OSM06686
