1FILE   1;  1863 RECORDS:  
0UMLD     TITLE 'UNIVERSITY OF MICHIGAN RELOCATABLE LOADER'              UMLD0001
 UMLOADCS START X'FF8'             START AT ABSOLUTE X'1000'-8           UMLD0002
          ENTRY UMLOAD                                                   UMLD0003
          DC    A(0)                JUST A FOUR BYTE FILL                UMLD0004
          DC    A(LODTOP)           DEFINE FIRST AVAIL LOC FOR BOOTSTRAP UMLD0005
          SPACE 2                                                        UMLD0006
 *********************************************************************** UMLD0007
 *                            REGISTER DEFINITIONS                     * UMLD0008
 *********************************************************************** UMLD0009
          SPACE 1                                                        UMLD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *              BYTE 18-19    SYMBOL STATUS BITS (DEFINED,REFERENCED...* UMLD1854
 *                                                                     * UMLD1855
 *      RLD TABLE -                                                    * UMLD1856
 *              BYTE  0-3     ADDRESS OF LOCATION TO BE CHANGED        * UMLD1857
 *              BYTE  4-7     ADDRESS OF PROPER ESD TABLE ENTRY        * UMLD1858
 *              BYTE  8-11    FLAG BYTES TO INDICATE SIZE AND COMPL.   * UMLD1859
 *********************************************************************** UMLD1860
          SPACE 1                                                        UMLD1861
 ESDT     EQU   SETRLD+RLDL         BEGINNING OF ESD TABLE               UMLD1862
          END                                                            UMLD1863
-FILE   2;   303 RECORDS:  
0TASK     TITLE 'TASKS JOB -- IDENTIFY ACTIVE JOBS'                      UTSK0001
 TASKS    START 0                                                        UTSK0002
          ENTRY TSKFMT                                                   UTSK0003
          SPACE 2                                                        UTSK0004
          DC    A(TASK1)                                                 UTSK0005
          DC    H'0'               NO DEVICES                            UTSK0006
          DC    H'1'               ONE BUFFER OF 178 BYTES               UTSK0007
          DC    F'178'                                                   UTSK0008
 *                                 BYTE      ASSIGNMENT                  UTSK0009
 *                                 0-7     FAKE PARAMETER AREA           UTSK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' BEING USED'                                           UTSK0294
 LHEADER  EQU   *-HEADER                                                 UTSK0295
 FILL     DC    C':   F'                                                 UTSK0296
 FAKEF    EQU   FILL+1                                                   UTSK0297
 HEXTRA   EQU   *-240                                                    UTSK0298
          DC    C'0123456789ABCDEF'                                      UTSK0299
          SPACE 2                                                        UTSK0300
          LTORG                                                          UTSK0301
          SPACE 2                                                        UTSK0302
          END                                                            UTSK0303
-FILE   3;    74 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       MOVE0065
          B     MOVITG          AND RUN THROUGH AGAIN                    MOVE0066
          SPACE                                                          MOVE0067
 MOVITC   MVC   0(0,R9),0(R8)   EXECUTED TO DO ODD PART OF MOVE          MOVE0068
          SPACE                                                          MOVE0069
 MOVITA   DC    F'256'          MAXIMUM MOVE IN ONE INSTRUCTION          MOVE0070
 MOVITE   DC    F'1'            ACCOUNTING CONSTANT FOR MOVE FORMAT      MOVE0071
 MOVITH   DC    F'4'            LENGTH OF FORWARD MOVE BLOCKS            MOVE0072
          SPACE                                                          MOVE0073
          END                                                            MOVE0074
-FILE   4;    90 RECORDS:  
0VTAD     TITLE 'SUBROUTINE TO ADD A NAME TO INTERNAL LIST OF FILES'     VTAD0001
 *              VTADD -- ADD A NAME TO INTERNAL LIST OF FILES            VTAD0002
 *                                                                       VTAD0003
 *                        INPUT -- R2: POINTER TO SCRATCH AREA           VTAD0004
 *                                 R3: RETURN ADDRESS                    VTAD0005
 *                                 R4: ENTRY POINT OF VTADD              VTAD0006
 *                                 R9: POINTER TO FULL FILE NAME         VTAD0007
 *                                                                       VTAD0008
 *                        OUTPUT-- R2: POINTER TO TABLE ENTRY            VTAD0009
 *                                 R4: RETURN CODE (ZERO ONLY)           VTAD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LM    R11,R1,0(R2)                                             VTAD0081
          LR    R2,R4                                                    VTAD0082
          SR    R4,R4                                                    VTAD0083
          BR    R3                                                       VTAD0084
          EJECT                                                          VTAD0085
 VTALJB   DC    A(LASTJOB)                                               VTAD0086
 VTAGS    DC    A(GETSPACE)                                              VTAD0087
 VTAFS    DC    A(FREESPAC)                                              VTAD0088
 VTA27    DC    H'27'                                                    VTAD0089
          END                                                            VTAD0090
-FILE   5;   856 RECORDS:  
0VTOC     TITLE    'VOLREL,VOLGET,VTOCS AND DSKOP SUBROUTINES'           VTOC0001
          SPACE                                                          VTOC0002
 ********************************************************************-** VTOC0003
 *                                                                     * VTOC0004
 *              SUBROUTINES VOLREL, VOLGET, VTOCS, DSKOP               * VTOC0005
 *                                                                     * VTOC0006
 *********************************************************************** VTOC0007
          SPACE                                                          VTOC0008
          START 0                                                        VTOC0009
          SPACE                                                          VTOC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          VTOC0847
 *********************************************************************** VTOC0848
 *                                                                     * VTOC0849
 *                   DEFINE A SAFE PATCHING AREA                       * VTOC0850
 *                                                                     * VTOC0851
          DS    4F                                                     * VTOC0852
 *                                                                     * VTOC0853
 *********************************************************************** VTOC0854
          SPACE                                                          VTOC0855
          END                                                            VTOC0856
-FILE   6;   485 RECORDS:  
0TRAK     TITLE     'READT, WRITET, AND READR SUBROUTINES'               TRAK0001
 *********************************************************************** TRAK0002
 *                                                                     * TRAK0003
 *               SUBROUTINES READT, READR, AND WRITET                  * TRAK0004
 *                                                                     * TRAK0005
 *********************************************************************** TRAK0006
          SPACE                                                          TRAK0007
          START 0                                                        TRAK0008
          SPACE                                                          TRAK0009
 *              ENTRIES, EXTERNAL REFERENCES                             TRAK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FCBFB    EQU   48              ADDRESS OF FIRST BYTE IN BUFFER ENTRY    TRAK0476
          SPACE                                                          TRAK0477
 *********************************************************************** TRAK0478
 *                                                                     * TRAK0479
 *        END OF FILE CONTROL BLOCK DESCRIPTOR                         * TRAK0480
 *                                                                     * TRAK0481
 *********************************************************************** TRAK0482
          SPACE                                                          TRAK0483
 LOGTRKLN EQU   3520          LOGICAL TRACK LENGTH                       TRAK0484
          END                                                            TRAK0485
-FILE   7;   320 RECORDS:  
0GTZ-     TITLE            'GTZ - GET A TYPE ZERO RECORD FROM VTOC'      GTZ00001
          SPACE                                                          GTZ00002
          START 0                                                        GTZ00003
          SPACE                                                          GTZ00004
 *********************************************************************** GTZ00005
 *                                                                     * GTZ00006
 *                            SUBROUTINE GTZ                           * GTZ00007
 *                                                                     * GTZ00008
 *********************************************************************** GTZ00009
          SPACE                                                          GTZ00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 VTEXT    EQU   91                                                       GTZ00311
 DTL      EQU   124                                                      GTZ00312
          SPACE 2                                                        GTZ00313
 *********************************************************************** GTZ00314
 *                                                                     * GTZ00315
          DS    4F              A PATCHING TYPE AREA                   * GTZ00316
 *                                                                     * GTZ00317
 *********************************************************************** GTZ00318
          SPACE 2                                                        GTZ00319
          END                                                            GTZ00320
-FILE   8;   376 RECORDS:  
0READ     TITLE 'SUBROUTINES READ AND READS(SEQUENTIAL)'                 READ0001
          SPACE 3                                                        READ0002
 *********************************************************************** READ0003
 *                                                                     * READ0004
 *              SUBROUTINES READ AND READS(EQUENTIAL)                  * READ0005
 *                                                                     * READ0006
 *********************************************************************** READ0007
          SPACE                                                          READ0008
          SPACE                                                          READ0009
          SPACE                                                          READ0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          READ0367
 *********************************************************************** READ0368
 *                                                                     * READ0369
 *                                DEFINE A SAFE SCRATCH AREA           * READ0370
 *                                                                     * READ0371
          DS    5F                                                     * READ0372
 *                                                                     * READ0373
 *********************************************************************** READ0374
          SPACE                                                          READ0375
          END                                                            READ0376
-FILE   9;  1130 RECORDS:  
0WRIT     TITLE      'WRITE SUBROUTINE'                                  WRIT0001
          SPACE 4                                                        WRIT0002
 *********************************************************************** WRIT0003
 *                                                                     * WRIT0004
 *              SUBROUTINE WRITE - WRITE A LINE INTO THE FILE          * WRIT0005
 *                                                                     * WRIT0006
 *********************************************************************** WRIT0007
          SPACE                                                          WRIT0008
 *********************************************************************** WRIT0009
 *                                                                     * WRIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          WRIT1121
 *********************************************************************** WRIT1122
 *                                                                     * WRIT1123
 *                           DEFINE A SAFE PATCHING AREA               * WRIT1124
 *                                                                     * WRIT1125
          DS    4F                                                     * WRIT1126
 *                                                                     * WRIT1127
 *********************************************************************** WRIT1128
          SPACE                                                          WRIT1129
          END                                                            WRIT1130
-FILE  10;    70 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       REDL0061
 EOFOK    L     R1,56(RD)        GET THAT LAST LINE NUMBER               REDL0062
          ST    R1,4(RD)                                                 REDL0063
          LA    R1,0                                                     REDL0064
          B     OUT                                                      REDL0065
 *                                                                       REDL0066
 FLINEA   DC    A(FLINE)                                                 REDL0067
 LLN      DC    X'7FFFFFFD'                                              REDL0068
          SPACE                                                          REDL0069
          END                                                            REDL0070
-FILE  11;   182 RECORDS:  
0SCRC     TITLE     'SCRATCH AND CLEAN OUT A FILE '                      SCRC0001
          SPACE 2                                                        SCRC0002
 *********************************************************************** SCRC0003
 *                                                                     * SCRC0004
 *                    SCRTCH SUBROUTINE - CLEANS OUT A FILE            * SCRC0005
 *                                                                     * SCRC0006
 *********************************************************************** SCRC0007
          SPACE 2                                                        SCRC0008
 *********************************************************************** SCRC0009
 *                                                                     * SCRC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FCBBC    EQU   35                                                       SCRC0173
 FCBFB    EQU   48                                                       SCRC0174
 *                                                                       SCRC0175
 LOGTRKLN EQU   3520   LENGTH OF A RECORD                                SCRC0176
 *                                                                       SCRC0177
 *              PATCH AREA IN UNLIKELY CASE OF AN ERROR                  SCRC0178
 *                                                                       SCRC0179
          DS    4F                                                       SCRC0180
          SPACE 2                                                        SCRC0181
          END                                                            SCRC0182
-FILE  12;  1209 RECORDS:  
0OPEN     TITLE     'SUBROUTINES OPEN, CLOSE, CREATE, DESTROY, CHKSUM'   OPEN0001
          START 0                                                        OPEN0002
 *********************************************************************** OPEN0003
 *                                                                     * OPEN0004
 *        SUBROUTINES OPEN, CLOSE, CREATE, DESTROY, CHKSUM             * OPEN0005
 *                                                                     * OPEN0006
 *********************************************************************** OPEN0007
          SPACE                                                          OPEN0008
 *              ENTRY POINTS AND EXTERNAL NAMES                          OPEN0009
          SPACE                                                          OPEN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *            DESRCIBES ENTRIES IN DSKTAB                                OPEN1200
 *                                                                       OPEN1201
 RETBC    EQU   0                                                        OPEN1202
 VOLSER   EQU   18                                                       OPEN1203
 VOLSW    EQU   60               BYTE OF SWITCHES IN TYPE 4              OPEN1204
 VOLPRIV  EQU   X'80'            ONE MEANS PRIVATE PACK                  OPEN1205
 DTL      EQU   124                                                      OPEN1206
 *                                                                       OPEN1207
 *                                                                       OPEN1208
          END                                                            OPEN1209
-FILE  13;  1119 RECORDS:  
0GETD     TITLE     'SUBROUTINES GETDSK AND RELDSK'                      GETD0001
          SPACE 5                                                        GETD0002
          START 0                                                        GETD0003
          SPACE                                                          GETD0004
 *********************************************************************** GETD0005
 *                                                                     * GETD0006
 *              SUBROUTINES GETDSK,RELDSK                              * GETD0007
 *                                                                     * GETD0008
 *********************************************************************** GETD0009
          SPACE                                                          GETD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       GETD1110
 *        DSECT FOR PART OF RELDSK WHICH GETS A NEW TYPE 5 RECORD SET UP GETD1111
 *                                                                       GETD1112
 DSCTA    DSECT                                                          GETD1113
          DS    5D                                                       GETD1114
 T5SAV    EQU   DSCTA                                                    GETD1115
 NT5AD    EQU   DSCTA+16                                                 GETD1116
 GTZWA    EQU   DSCTA+32                                                 GETD1117
 *                                                                       GETD1118
          END                                                            GETD1119
-FILE  14;   302 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                                                          FLIN0293
 *********************************************************************** FLIN0294
 *                                                                     * FLIN0295
 *                              DEFINE A SAFE PATCHING AREA            * FLIN0296
 *                                                                     * FLIN0297
          DS    4F                                                     * FLIN0298
 *                                                                     * FLIN0299
 *********************************************************************** FLIN0300
          SPACE                                                          FLIN0301
          END                                                            FLIN0302
-FILE  15;  1288 RECORDS:  
0PDP8     TITLE '      M T S   DATA CONCENTRATOR ROUTINES (MODEL UG298)' 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.                      PDP81279
 FDUBEL   DS    F                  ENDING LINE NO.                       PDP81280
 FDUBIL   DS    F                  INCREMENT                             PDP81281
 FDUBSBR  DS    F                  SUBR LOC                              PDP81282
 FDUBSCR  DS    F                  SCRATCH (SEQ PNTR)                    PDP81283
 FDUBNAM  DS    F                  PTR TO WHO IS USING THIS FDUB         PDP81284
 FDUBDS   DS    F                  DEFAULT SWITCHES                      PDP81285
 FDUBCH   DS    F                  CHAIN (FOR CONCAT FILES)              PDP81286
          EJECT                                                          PDP81287
          END                                                            PDP81288
-FILE  16;   492 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** BSLD0483
 *                                                                     * BSLD0484
 *              THE JAZZY UMLOAD SAVE AREA DEFINITION                  * BSLD0485
 *                                                                     * BSLD0486
 *********************************************************************** BSLD0487
          SPACE 1                                                        BSLD0488
 SAVAD    DC    A(SAVE)             DEFINE SAVE AREA AND LENGTH          BSLD0489
          ORG   BSLOAD+X'3D000'     PUT SAVE AREA WAY UP HIGH            BSLD0490
 SAVE     DC    A(X'2000')          THIS IS ITS LENGTH                   BSLD0491
          END   START                                                    BSLD0492
-FILE  17;   983 RECORDS:  
0ARURTN   CSECT                                                          ARU00001
 ARU      TITLE '           **** MTS DEVICE SUPPORT FOR THE ARU ****'    ARU00002
          DC    A(ARINIT,ARDITCH,ARGET,ARPUT,ARSETATN,ARWAIT,ARDITCH)    ARU00003
          USING FDUB,R8                                                  ARU00004
          USING PSCT,R9                                                  ARU00005
          SPACE 2                                                        ARU00006
          USING *,R15                                                    ARU00007
 ARINIT   B     ARUPS                                                    ARU00008
          B     *+8                                                      ARU00009
          B     ARRTRN                                                   ARU00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PROTON   EQU   26                                                       ARU00974
 PCISU    EQU   31                                                       ARU00975
 PCIPOP   EQU   32                                                       ARU00976
 PROOFF   EQU   34                                                       ARU00977
 WAYT     EQU   35                                                       ARU00978
 SETXIT   EQU   36                                                       ARU00979
 HALTIO   EQU   37                                                       ARU00980
 ENDXIT   EQU   39                                                       ARU00981
 XITPOP   EQU   42                                                       ARU00982
          END   ARURTN                                                   ARU00983
-FILE  18;  5844 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     15,=V(FREESPAC)                                          SYSM5835
          BALR  14,15                   FREE SPACE ACQUIRED BY GDINFO    SYSM5836
          BNE   ###&SYSNDX+4                                             SYSM5837
          #MTSIOPS                                                       SYSM5838
          #MTSIOCP @CC                                                   SYSM5839
          #MTSIOG '&MSG',,,###&SYSNDX,O,,,,WRITE                         SYSM5840
          CNOP  0,4                                                      SYSM5841
          B     *+8                AROUND CONSTANTS                      SYSM5842
 ###&SYSNDX DC  F'0'                                                     SYSM5843
          MEND                                                           SYSM5844
-FILE  19;   270 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                                                        BDCS0261
 JBUF     DSECT                                                          BDCS0262
          SPACE                                                          BDCS0263
 CCW      DS    D                  DOUBLE WORD FOR CCW CONSTRUCTION      BDCS0264
 SW       DS    CL1                SWITCHES                              BDCS0265
 BUFFER   DS    CL100              ERROR MESSAGE BUFFER                  BDCS0266
 EOBUF    DS    H,CL79             BUFFER FOR ECHOING MSG TO DATA CONC   BDCS0267
 BUFL     EQU   *-JBUF                                                   BDCS0268
          SPACE 4                                                        BDCS0269
          END                                                            BDCS0270
-FILE  20;   393 RECORDS:  
067TB     TITLE 'TABLES FOR MODEL 67'                                    TABL0001
          EJECT                                                          TABL0002
          MACRO                                                          TABL0003
          DEV   &ADDR,&NAME,&ID,&LCH,&APT=,&OFFLIN=,&CCWT=0              TABL0004
          GBLA  &DTLN         DEVICE TABLE NUMBER                        TABL0005
          LCLC  &PAD          SCRATCH                                    TABL0006
          LCLA  &CNT                                                     TABL0007
 &NAME    DC    CL4'&ID'                                                 TABL0008
 &PAD     SETC  ''                                                       TABL0009
          AIF   (K'&NAME EQ 4).D                                         TABL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0F                                                       TABL0384
 MAXADD   DC    X'FFE00000'   BITS IN POSITIONS OUTSIDE VM SIZE          TABL0385
 NUMDEV   DC    A((ENDDLS-DEVLST)/LDVLST)  TOTAL NUMBER OF DEVICES       TABL0386
 JTBLLIM  DC    A(0,0,0)      FILLED IN BY INITIALIZATION                TABL0387
          SPACE                                                          TABL0388
          DS    0H                                                       TABL0389
 TYPAD    DC    X'0009'       OPERATOR'S CONSOLE ADDRESS                 TABL0390
 CONS     DC    X'0009'                 ALTERNATE OPERATOR'S CONSOLE     TABL0391
          SPACE 3                                                        TABL0392
          END                                                            TABL0393
-FILE  21;   261 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 JBLST    DC    A(JOBLST)                                                JBRP0252
 DVTBL    DC    A(DEVTBL)                                                JBRP0253
 FOUR     DC    F'4'                                                     JBRP0254
 ZEROS    DC    11F'0'                                                   JBRP0255
 ZERO     EQU   FOUR          DC    X'0000'                              JBRP0256
 LSTJOB   DC    CL8' '        FENCE FOR LAST JOB JOBLST                  JBRP0257
 JBRPLOCK DC    X'0'          LOCK OUT FOR JBRP                          JBRP0258
          DS    0F                                                       JBRP0259
 JBRPBUF  DS    CL(TWOSUM)    BUFFER FOR PARAMETERS                      JBRP0260
          END   BEGIN                                                    JBRP0261
-FILE  22;    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  23;   129 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ERMES4   DC    C'JOB NAME NOT IN '                                      FBJT0120
          DC    C'JOB LIST.'                                             FBJT0121
 LNGTH4   EQU   *-ERMES4                                                 FBJT0122
          DS    0F                                                       FBJT0123
 BGNTBL   EQU   *-240                                                    FBJT0124
          DC    X'F0F1F2F3'   HEX NUMBERS TO BE TRANSLATED               FBJT0125
          DC    X'F4F5F6F7'                                              FBJT0126
          DC    X'F8F9C1C2'                                              FBJT0127
          DC    X'C3C4C5C6'                                              FBJT0128
          END                                                            FBJT0129
-FILE  24;    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  25;    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  26;   335 RECORDS:  
0PRUC     TITLE 'PRINTER UNIT CHECK ROUTINES'                            PRUC0001
 PTRUC    START 0                                                        PRUC0002
          SPACE 3                                                        PRUC0003
 *        REGISTER ASSIGNMENT                                            PRUC0004
 SR       EQU   13            SAVE AREA REGISTER                         PRUC0005
 GR0      EQU   0                                                        PRUC0006
 GR1      EQU   1                                                        PRUC0007
 GR2      EQU   2                                                        PRUC0008
 GR3      EQU   3                                                        PRUC0009
 PR       EQU   4             PARAMETER AREA                             PRUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PCM      DC    C'PRINT CHECK'                                           PRUC0326
 PCL      EQU   *-PCM                                                    PRUC0327
 MERMSG   DC    C': MACHINE ERROR '                                      PRUC0328
 PERMSG   DC    C': PROGRAM ERROR '                                      PRUC0329
 STTMSG   DC    C'PRINTER STATUS  '                                      PRUC0330
 ABVM     DC    C' THE ABOVE LINE MAY BE PRINTED INCORRECTLY. IT IS REP' PRUC0331
          DC    C'EATED AFTER THIS COMMENT.'                             PRUC0332
 ABVL     EQU   *-ABVM                                                   PRUC0333
          END                                                            PRUC0334
 /*                                                                      PRUC0335
-FILE  27;    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  28;    44 RECORDS:  
0JDMP   TITLE   'JOB TO DUMP SPECIFIED JOB'                              JOBD0001
 *        JOBDUMP  JOB                                                   JOBD0002
 *                                                                       JOBD0003
 *              VERSION OF 1 APRIL 1966                                  JOBD0004
 *                                                                       JOBD0005
 *        THIS JOB CAUSES A DUMP TO BE PRINTED ON THE SYSTEM             JOBD0006
 *        OUTPUT DEVICE.  THE JOB DUMPED IS INDICATED BY THE             JOBD0007
 *        TASK NUMBER TYPED ON JOB INITIATION.  A DUMP CAN BE            JOBD0008
 *        CALLED FOR WHILE THE JOB BEING DUMPED IS RUNNING.              JOBD0009
 *                                                                       JOBD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'DUMPED'                                                JOBD0035
 CNT      EQU   *-MES                                                    JOBD0036
 *                                                                       JOBD0037
 END      EQU   6                                                        JOBD0038
 WRITE    EQU   7                                                        JOBD0039
 JBDMP    EQU   17                                                       JOBD0040
 *                                                                       JOBD0041
 AFNDJTL  DC    V(FNDJTL)     LOCATION OF SUBROUTINE TO FIND A JOB TBL   JOBD0042
          END                                                            JOBD0043
 $RUN *ASMBLR;SCARDS=*SOURCE* SPRINT=*SINK* SPUNCH=*PUNCH* 0=*SYSMAC     JOBD0044
-FILE  29;    30 RECORDS:  
0LOWC     TITLE 'JOB TO DUMP LOW CORE'                                   LOWC0001
 *        LOWCORE  JOB                                                   LOWC0002
 *                                                                       LOWC0003
 *              VERSION OF 1 APRIL 1966                                  LOWC0004
 *                                                                       LOWC0005
 *        THIS JOB CAUSES A DUMP OF THE LOWCORE IOOPSW INT AND CSW       LOWC0006
 *        LOCATIONS TO BE PRINTED ON THE SYSTEM OUTPUT DEVICE.           LOWC0007
 *                                                                       LOWC0008
          SPACE                                                          LOWC0009
 LOWCOR   START 0                                                        LOWC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       LOWC0021
 DMPLST   EQU   1                                                        LOWC0022
 END      EQU   6                                                        LOWC0023
 *                                                                       LOWC0024
 LIST     DC    X'C5'                                                    LOWC0025
          DC    AL3(0)                                                   LOWC0026
 SIZE     DC    XL4'1050'                                                LOWC0027
          DC    C'LOW CORE'                                              LOWC0028
 *                                                                       LOWC0029
          END                                                            LOWC0030
-FILE  30;    62 RECORDS:  
0PN       TITLE 'PN BUFFER LOAD PROGRAM'                                 PN000001
 PN       START 0                                                        PN000002
          EXTRN UCBLOD                                                   PN000003
          DC    A(PNBEG)                                                 PN000004
          DC    H'1'                                                     PN000005
          DC    H'0'                                                     PN000006
          DC    CL4'PTR'                                                 PN000007
          USING *,15                                                     PN000008
 PNBEG    LA    0,CCWPN                                                  PN000009
          L     15,AUCBLD                                                PN000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'%$*#&&@<;''?>'                                        PN000053
          DC    C'1234567890XY/STU'                                      PN000054
          DC    C'VW|:_",=JKLMNOPQ'                                      PN000055
          DC    C'R-Z(ABCDEFGHI+.)'                                      PN000056
          DC    C'%$*#&&@<;''?>'                                        PN000057
          DC    C'1234567890XY/STU'                                      PN000058
          DC    C'VW|:_",=JKLMNOPQ'                                      PN000059
          DC    C'R-Z(ABCDEFGHI+.)'                                      PN000060
          DC    C'%$*#&&@<;''?>'                                        PN000061
          END                                                            PN000062
-FILE  31;    89 RECORDS:  
0QN       TITLE 'PROGRAM TO LOAD QN PRINT TRAIN BUFFER'                  QN000001
 QN       START 0                                                        QN000002
          EXTRN PTRUC                                                    QN000003
          ENTRY UCBLOD                                                   QN000004
          DC    A(QNBEG)                                                 QN000005
          DC    H'1'                                                     QN000006
          DC    H'0'                                                     QN000007
          DC    CL4'PTR'                                                 QN000008
          USING *,15                                                     QN000009
 QNBEG    LA    0,CCWQN       ADDRESS OF CCW'S FOR SUBROUTINE            QN000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SENSE    DC    XL2'0'        SENSE DATA HERE                            QN000080
 ID       DC    CL4' '        DEVICE ID                                  QN000081
          SPACE 3                                                        QN000082
 *        PARAMETERS FOR ALL SIO OPERATIONS                              QN000083
 PARS     DC    F'0'                                                     QN000084
          DC    A(PTRUEX)                                                QN000085
          DC    A(PTRUC)                                                 QN000086
          SPACE 3                                                        QN000087
 ECHO     DC    C'ECHO'                                                  QN000088
          END                                                            QN000089
-FILE  32;   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  33;  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  34;     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  35;    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  36;   569 RECORDS:  
0STAT     TITLE 'STAT/SW JOBS--TAD PINKERTON (WR. 6-67, REV. 5-68)'      STJB0001
 *                                                                       STJB0002
 *  STATISTICS JOB                                                       STJB0003
 *                                                                       STJB0004
 *  JOB HEADER                                                           STJB0005
 *                                                                       STJB0006
 STATJOB  START 0                                                        STJB0007
          DC    A(STATBEG)    ENTRY POINT ADDRESS                        STJB0008
          DC    H'1'          ONE DEVICE ALWAYS REQUIRED                 STJB0009
 NOBUFRS  DC    H'3'          THREE BUFFERS                              STJB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DATA     EQU   16            LOCATION OF FIRST DATA ITEM IN BUFFER      STJB0560
 *                                                                       STJB0561
 *  JOB TABLE RECORDING BIT DISPLACEMENTS                                STJB0562
 *                                                                       STJB0563
 JTLDISP  EQU   X'F4'         JOB TABLE WORD FOR STAT BITS DISPLACEMENT  STJB0564
 JTLNAME  EQU   4             JOB TABLE WORDS FOR JOB NAME DISPLACEMENT  STJB0565
 MAXPARS  EQU   12            MAXIMUM NUMBER PARAMETERS IN AN UMMPS JOB  STJB0566
 JOBNO    EQU   0             JOB NUMBER DISPLACEMENT IN JOB TABLE       STJB0567
 *                                                                       STJB0568
          END                                                            STJB0569
-FILE  37;   224 RECORDS:  
0PNUC     TITLE 'PUNCH UNIT CHECK ROUTINES'                              PUUC0001
 PUNUC    START 0                                                        PUUC0002
          SPACE 3                                                        PUUC0003
 *        SVC   CODES                                                    PUUC0004
 SIO      EQU   2                                                        PUUC0005
 WAIT     EQU   3                                                        PUUC0006
 EXIT     EQU   6                                                        PUUC0007
 WRITE    EQU   7                                                        PUUC0008
 SAVE     EQU   8                                                        PUUC0009
 RESTOR   EQU   9                                                        PUUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NRM      DC    C'PUNCH NOT READY.'                                      PUUC0215
 NRL      EQU   *-NRM                                                    PUUC0216
 MERMSG   DC    C': MACHINE ERROR '                                      PUUC0217
 PERMSG   DC    C': PROGRAM ERROR '                                      PUUC0218
 STTMSG   DC    C'CARD PUNCH STATUS  '                                   PUUC0219
 TBL      EQU   *-X'F0'                                                  PUUC0220
          DC    C'0123456789ABCDEF'                                      PUUC0221
 BOM      DC    C'PUNCH BUS OUT CHECK.'                                  PUUC0222
 BOL      EQU   *-BOM                                                    PUUC0223
          END                                                            PUUC0224
-FILE  38;    23 RECORDS:  
0INIT     TITLE 'JOB TO INITIALIZE THE SYSTEM '                          INIT0001
 *        THE FOLLOWING IS A JOB TO FINISH INITIALIZATION                INIT0002
          SPACE                                                          INIT0003
 INITJE   START 0                                                        INIT0004
          DC    A(*+8,0)                                                 INIT0005
          USING *,15                                                     INIT0006
          SVC   28            ECHO THE TIME AND DATE                     INIT0007
          STM   0,1,TDTE                                                 INIT0008
          STM   2,3,TDDE                                                 INIT0009
          LA    0,TDECL                                                  INIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA    1,RESMTS                                                 INIT0014
          SVC   41            INITIALIZE MTS                             INIT0015
          SVC   6             QUIT                                       INIT0016
          DS    0F                                                       INIT0017
 TDEC     DC    CL32'TIME AND DATE HAVE BEEN SET TO'                     INIT0018
 TDTE     DC    CL12' '                                                  INIT0019
 TDDE     DC    CL8' '                                                   INIT0020
 TDECL    EQU   *-TDEC                                                   INIT0021
 RESMTS   DC    C'MTS *INI T,,,'                                         INIT0022
          END                                                            INIT0023
-FILE  39;    53 RECORDS:  
0BDEV     TITLE 'SUBROUTINE TO BLAST A DEVICE FOR A NEW OPERATION'       BLSD0001
          SPACE 5                                                        BLSD0002
 *        CALLING SEQUENCE:                                              BLSD0003
 *                                                                       BLSD0004
 *              GR0:  LOGICAL DEVICE NUMBER                              BLSD0005
 *              GR13:  LOCATION OF 7 WORD SAVE AREA                      BLSD0006
 *              GR14:  RETURN LOCATION                                   BLSD0007
 *              GR15:  ENTRY POINT TO BLSTDEV                            BLSD0008
 *                                                                       BLSD0009
 *              ALL OPERATIONS ON THE DEVICE ARE HALTED AND THEIR        BLSD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ERR      SVC   SAVE          MOVE L ALL TO SAVED QUEUE                  BLSD0044
 CLEAR    SVC   DELETE        DELETE ONE OP FROM SAVDE QUEUE             BLSD0045
          BNE   *-2           B IF MORE                                  BLSD0046
          SR    15,15         GOOD RETURN CODE                           BLSD0047
          LM    0,5,4(13)                                                BLSD0048
          BR    14                                                       BLSD0049
 SNARK    LA    15,4          BAD RETURN CODE                            BLSD0050
          LM    0,5,4(13)                                                BLSD0051
          BR    14                                                       BLSD0052
          END                                                            BLSD0053
-FILE  40;   135 RECORDS:  
0DOVR   TITLE   'DUMP OVERRIDE'                                          DMPO0001
 DMP    START   0                                                        DMPO0002
        USING   *+X'82',14                                               DMPO0003
        ORG     DMP+X'C5C'                                               DMPO0004
        DC      X'FFFF'                                                  DMPO0005
 TYPWTR DC      X'0009'                                                  DMPO0006
 OUTDEV DC      X'00000070'                                              DMPO0007
        ORG     DMP+X'AC'                                                DMPO0008
        B       INIT                                                     DMPO0009
          ORG   DMP+X'5A6'                                               DMPO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PAREA2 DS      120C                                                     DMPO0126
 SENSE  DS      C                                                        DMPO0127
 CTLSW  DC      X'0'                                                     DMPO0128
 LOCK   DC      X'0'                                                     DMPO0129
 FIX1     AR    3,7           MAKE IT POSSIBLE TO DUMP LAST POSITION IN  DMPO0130
          CR    3,4                                                      DMPO0131
          BC    10,X'3E2'(0,14)                                          DMPO0132
          SR    3,7                                                      DMPO0133
          BC    15,X'3D0'(0,14)                                          DMPO0134
        END                                                              DMPO0135
-FILE  41;   107 RECORDS:  
0IPLC     TITLE   'ABSOLUTE BOOTSTRAP LOADER FOR LLMPS WRITER'           IPLP0001
        SPACE   2                                                        IPLP0002
 *********************************************************************** IPLP0003
 *                                                                       IPLP0004
 *      THEN   1) THROW AWAY FIRST CARD IN OBJECT DECK                   IPLP0005
 *             2) MOVE BOOTSTRAP LOAD INFORMATION OF SECOND CARD         IPLP0006
 *                (COL 17-40) INTO NEW CARD (IPL),(COL 1-24)             IPLP0007
 *             3) THROW AWAY ORIGINAL SECOND CARD AND RLD CARDS          IPLP0008
 *                                                                       IPLP0009
 *      DECK   1) IPL CARD                                               IPLP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *      ABOVE 5 CARDS READ BY IPL PROCEDURE                              IPLP0098
          SPACE                                                          IPLP0099
 REPLAS DC      X'1F1F1F1F'                                              IPLP0100
 REPLAT DC      X'000A0B0C0D0E0F00'                                      IPLP0101
        DC      X'0000000000000000'                                      IPLP0102
        DC      X'0001020304050607'                                      IPLP0103
        DC      X'0809'                                                  IPLP0104
 DATAL  DC      F'0'                                                     IPLP0105
          SPACE                                                          IPLP0106
          END                                                            IPLP0107
-FILE  42;   569 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      STAT0560
 *                                                                       STAT0561
 *  JOB TABLE RECORDING BIT DISPLACEMENTS                                STAT0562
 *                                                                       STAT0563
 JTLDISP  EQU   X'F4'         JOB TABLE WORD FOR STAT BITS DISPLACEMENT  STAT0564
 JTLNAME  EQU   4             JOB TABLE WORDS FOR JOB NAME DISPLACEMENT  STAT0565
 MAXPARS  EQU   12            MAXIMUM NUMBER PARAMETERS IN AN UMMPS JOB  STAT0566
 JOBNO    EQU   0             JOB NUMBER DISPLACEMENT IN JOB TABLE       STAT0567
 *                                                                       STAT0568
          END                                                            STAT0569
-FILE  43;   341 RECORDS:  
0*        *  *  *  *  *  EQUALITIES  *  *  *  *  *                       LLMPE001
          SPACE 3                                                        LLMPE002
          SPACE 2                                                        LLMPE003
 *             GENERAL REGISTERS USED BY THE SUPERVISOR                  LLMPE004
 *                                                                       LLMPE005
 FRSTGR   EQU   0        FIRST REGISTER SAVED - MUST NOT EXCEED LASTGR   LLMPE006
 LASTGR   EQU   15       LAST REGISTER SAVED                             LLMPE007
 GR0      EQU   0        UTILITY REGISTERS FOR SUPERVISOR USE            LLMPE008
 GR1      EQU   1                                                        LLMPE009
 GR2      EQU   2                                                        LLMPE010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                  ( O  INDICATES EMPTY QUEUE )                         LLMPE332
          SPACE                                                          LLMPE333
 *              BITS:                                                    LLMPE334
          SPACE                                                          LLMPE335
 *        0-3 STORAGE KEY FOR SIO                                        LLMPE336
 *        4   1 IF RETURNS LIST HAS NOT BEEN MOVED YET                   LLMPE337
 *        5   1 IF HALT I/O HAS BEEN DONE FOR LAST OPERATION             LLMPE338
 *        6   1 IF A UC IS PENDING ON THE DEVICE                         LLMPE339
 *        7   1 IF A UE IS PENDING ON THE DEVICE                         LLMPE340
          SPACE                                                          LLMPE341
-FILE  44;    93 RECORDS:  
0BUFA     TITLE 'TERMINAL DEVICE BUFFER ALLOCATION SUBROUTINE'           BFAL0001
 BUFALLOC START 0                                                        BFAL0002
          USING *,15                                                     BFAL0003
          LA    0,BUFLOCK       SET MY LOCK                              BFAL0004
          SVC   LOCK                                                     BFAL0005
          SVC   PROOFF                                                   BFAL0006
          STM   2,3,SAVREG          NEED ONLY TWO REGISTERS              BFAL0007
          L     3,=V(LASTJOB)       GET JOB TABLE AND JOB NUMBERS        BFAL0008
          L     3,0(0,3)                                                 BFAL0009
          MVC   JOBT#(4),0(3)                                            BFAL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 #BUFS    EQU   28                  ONE FOR EACH DATA SET                BFAL0084
 *              TABLES TO KEEP TRACK OF USE OF BUFFERS                   BFAL0085
 INUSE    DC    XL(#BUFS)'0'                                             BFAL0086
 JOB#TBL  DC    XL(#BUFS)'0'                                             BFAL0087
 *              GET LITERALS UNDER BASE REGISTER                         BFAL0088
          LTORG                                                          BFAL0089
 *              THE BUFFERS --                                           BFAL0090
          DS    0D                                                       BFAL0091
 BUF      DS    (#BUFS)CL128                                             BFAL0092
          END                                                            BFAL0093
-FILE  45;   152 RECORDS:  
0TPMV     TITLE 'JOB TO EXECUTE CONTROL COMANDS FOR TAPES'               TPJB0001
 TPMOVE   START 0                                                        TPJB0002
          ENTRY JBBSR,JBBSF,JBFSR,JBFSF,JBWTM,JBERG,JBRUN,JBREW          TPJB0003
          USING *,12                                                     TPJB0004
          USING DSECT1,13                                                TPJB0005
 COM      LA    0,1                 COMMON PART OF JOBS                  TPJB0006
          L     13,0(0,1)           GET LOC OF SCRATCH AREA              TPJB0007
          LA    1,DSECT2            LINK UP FOR TAPE UC                  TPJB0008
          ST    1,DSECT1                                                 TPJB0009
          L     9,0(0,2)            GET COUNT                            TPJB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       TPJB0143
 TPMOVE   CSECT                                                          TPJB0144
 LPC      DC    C'LOAD POINT'                                            TPJB0145
 EOTC     DC    C'END OF TAPE'                                           TPJB0146
 UEC      DC    C'TAPE MARK'                                             TPJB0147
 DCC      DC    C'DATA CHECK'                                            TPJB0148
 RCC      DC    C'REMAINING COUNT IS'                                    TPJB0149
          DC    X'402020202120'                                          TPJB0150
 RCCL     EQU   *-RCC                                                    TPJB0151
          END                                                            TPJB0152
-FILE  46;   267 RECORDS:  
0DRMI    TITLE 'PROGRAM TO INITIALIZE DRUM'                              DMIN0001
 DRUMINIT START 0                                                        DMIN0002
          SPACE 5                                                        DMIN0003
 STIO     EQU   2                                                        DMIN0004
 WAIT     EQU   3                                                        DMIN0005
 SILI     EQU   X'20'                                                    DMIN0006
          SPACE 5                                                        DMIN0007
          USING *,15                                                     DMIN0008
          BALR  10,0                                                     DMIN0009
          DROP  15                                                       DMIN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'0900'                                                  DMIN0258
          DC    AL2(PAGE)                                                DMIN0259
          SPACE 5                                                        DMIN0260
 FMASK    DC    X'C0'  ALLOW EVERYTHING                                  DMIN0261
          LTORG                                                          DMIN0262
          SPACE                                                          DMIN0263
          SPACE 4                                                        DMIN0264
 DRUMDATA DC    1024F'0'                                                 DMIN0265
          SPACE 5                                                        DMIN0266
          END                                                            DMIN0267
-FILE  47;   912 RECORDS:  
067TB     TITLE 'TABLES FOR MODEL 67'                                    UMTB0001
 *                                                                       UMTB0002
 *              THIS IS THE MODEL 50 TABLES                              UMTB0003
          SPACE 5                                                        UMTB0004
 *        THIS PROGRAM CONTAINS SPACE FOR THE TABLES SPECIFIED BY THE    UMTB0005
 *        'ENTRY' FIELDS BELOW.                                          UMTB0006
          SPACE 3                                                        UMTB0007
 *              VERSION OF 23 MAY 1966                                   UMTB0008
 *              REPLACES VERSION OF 1 APRIL 1966                         UMTB0009
 *                                                                       UMTB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0F                                                       UMTB0903
 MAXADD   DC    X'FFE00000'   BITS IN POSITIONS OUTSIDE VM SIZE          UMTB0904
 NUMDEV   DC    A((ENDDLS-DEVLST)/LDVLST)  TOTAL NUMBER OF DEVICES       UMTB0905
 JTBLLIM  DC    A(0,0,0)      FILLED IN BY INITIALIZATION                UMTB0906
          SPACE                                                          UMTB0907
          DS    0H                                                       UMTB0908
 TYPAD    DC    X'0009'       OPERATOR'S CONSOLE ADDRESS                 UMTB0909
 CONS     DC    X'0809'             ALTERNATE OPERATOR'S CONSOLE         UMTB0910
          SPACE 3                                                        UMTB0911
          END                                                            UMTB0912
-FILE  48;   393 RECORDS:  
067TB     TITLE 'TABLES FOR MODEL 67'                                    UBCT0001
          EJECT                                                          UBCT0002
          MACRO                                                          UBCT0003
          DEV   &ADDR,&NAME,&ID,&LCH,&APT=,&OFFLIN=,&CCWT=0              UBCT0004
          GBLA  &DTLN         DEVICE TABLE NUMBER                        UBCT0005
          LCLC  &PAD          SCRATCH                                    UBCT0006
          LCLA  &CNT                                                     UBCT0007
 &NAME    DC    CL4'&ID'                                                 UBCT0008
 &PAD     SETC  ''                                                       UBCT0009
          AIF   (K'&NAME EQ 4).D                                         UBCT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0F                                                       UBCT0384
 MAXADD   DC    X'FFE00000'   BITS IN POSITIONS OUTSIDE VM SIZE          UBCT0385
 NUMDEV   DC    A((ENDDLS-DEVLST)/LDVLST)  TOTAL NUMBER OF DEVICES       UBCT0386
 JTBLLIM  DC    A(0,0,0)      FILLED IN BY INITIALIZATION                UBCT0387
          SPACE                                                          UBCT0388
          DS    0H                                                       UBCT0389
 TYPAD    DC    X'0009'       OPERATOR'S CONSOLE ADDRESS                 UBCT0390
 CONS     DC    X'0009'                 ALTERNATE OPERATOR'S CONSOLE     UBCT0391
          SPACE 3                                                        UBCT0392
          END                                                            UBCT0393
-FILE  49;   388 RECORDS:  
0CDUC     TITLE 'CARD READER UNIT CHECK ROUTINES'                        RDUC0001
 CARDUC   START X'A000'                                                  RDUC0002
          SPACE                                                          RDUC0003
          ENTRY CDSTUC                                                   RDUC0004
          ENTRY CDRDUC                                                   RDUC0005
          SPACE                                                          RDUC0006
 BASE     EQU   *                                                        RDUC0007
          SPACE                                                          RDUC0008
          USING DSECT1,13     REGISTER 13 INITIALIZED BY CALLER          RDUC0009
          SPACE                                                          RDUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(MERR)                                                  RDUC0379
          DC    A(DUMUC)                                                 RDUC0380
 SPCRTN   DS    F             RETURNS LIST FOR SPECIAL WAIT              RDUC0381
          DC    A(MERR)                                                  RDUC0382
          DC    A(SPCUC)                                                 RDUC0383
 DUMCCW   CCW   X'E2',*,X'30',1 DUMMY READ, NO-FEED, SKIP FLAG ON        RDUC0384
          END                                                            RDUC0385
 $ENDFILE                                                                RDUC0386
 $RUN *OBJSCAN                                                           RDUC0387
 NEWOBJ                                                                  RDUC0388
-FILE  50;   514 RECORDS:  
0DSKC     TITLE 'DISK AND DRUM UNIT CHECK'                               DUC00001
 DISKUC   START 0                                                        DUC00002
          SPACE 3                                                        DUC00003
 *        REGISTER ASSIGNMENTS                                           DUC00004
 GR0      EQU   0                                                        DUC00005
 GR1      EQU   1                                                        DUC00006
 GR2      EQU   2                                                        DUC00007
 GR3      EQU   3                                                        DUC00008
 PR       EQU   4             POINTER TO PARAMETERS                      DUC00009
 BR       EQU   5             BASE REGISTER                              DUC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NRM      DC    C' NOT READY'                                            DUC00505
 NRL      EQU   *-NRM                                                    DUC00506
 ERRM     DC    C' ERROR *, EEII F'                                      DUC00507
          DC    C'F SSSSSSSSSSSS C'                                      DUC00508
          DC    C'C HH OO'                                               DUC00509
 ERRL     EQU   *-ERRM                                                   DUC00510
 SEEKSU   DC    X'200000060000'                                          DUC00511
 TBL      EQU   *-240                                                    DUC00512
          DC    C'0123456789ABCDEF'                                      DUC00513
          END                                                            DUC00514
-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;    39 RECORDS:  
0TRAN     TITLE 'QN OR PN TRANSLATE TABLE'                               TRNT0001
          ENTRY TRANTB                                                   TRNT0002
          SPACE 3                                                        TRNT0003
 *        TRANSLATE TABLE FOR QN PRINT TRAIN                             TRNT0004
 TRANTB   EQU   *                                                        TRNT0005
        DC      X'4040404040404040' 1                                    TRNT0006
        DC      X'4040404040404040' 2                                    TRNT0007
        DC      X'4040404040404040' 3                                    TRNT0008
        DC      X'4040404040404040' 4                                    TRNT0009
        DC      X'4040404040404040' 5                                    TRNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        DC      X'6FC1C2C3C4C5C6C7' 25                                   TRNT0030
        DC      X'C8C9404040404040' 26                                   TRNT0031
        DC      X'7CD1D2D3D4D5D6D7' 27                                   TRNT0032
        DC      X'D8D9404040404040' 28                                   TRNT0033
        DC      X'7B40E2E3E4E5E6E7' 29                                   TRNT0034
        DC      X'E8E9404040404040' 30                                   TRNT0035
        DC      X'F0F1F2F3F4F5F6F7' 31                                   TRNT0036
        DC      X'F8F9404040404040' 32                                   TRNT0037
        SPACE   3                                                        TRNT0038
          END                                                            TRNT0039
-FILE  53;   128 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)                                          ONOF0119
          DC    C'IS BUSY'                                               ONOF0120
 BUSYME   EQU   *                                                        ONOF0121
 OFOFM    DC    AL1(OFOFME-*-2)                                          ONOF0122
          DC    C'IS ALREADY OFFLINE'                                    ONOF0123
 OFOFME   EQU   *                                                        ONOF0124
 ONONM    DC    AL1(ONONME-*-2)                                          ONOF0125
          DC    C'IS ALREADY ONLINE'                                     ONOF0126
 ONONME   EQU   *                                                        ONOF0127
          END                                                            ONOF0128
-FILE  54;   271 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       JBLS0262
 *              VERSION OF 25 NOVEMBER 1965                              JBLS0263
 *                                                                       JBLS0264
          DC    C'        '   LAST JOB MUST HAVE BLANK JOB NAME          JBLS0265
          DC    X'00'         LAST JOB HAS 0 VERSION NUMBER              JBLS0266
          DC    X'00'         LAST JOB HAS BITS SET TO 0                 JBLS0267
          DC    X'FFFF'       LAST JOB HAS JOB NUMBER POSITION FILLED    JBLS0268
          DC    X'FFFFFFFF'   LAST JOB HAS LOCATION OF JOB HEADER        JBLS0269
 *                               SET TO ALL ONES                         JBLS0270
          END                                                            JBLS0271
-FILE  55;   107 RECORDS:  
0LCSY     TITLE 'LOW CORE SYMBOL DEFINITION'                             LCSYM001
          MACRO                                                          LCSYM002
          ESDD  &SYM,&ENAME                                              LCSYM003
          DC    CL8'&SYM'                                                LCSYM004
          AIF   (T'&ENAME EQ 'O').A                                      LCSYM005
          DC    V(&ENAME)                                                LCSYM006
          MEXIT                                                          LCSYM007
 .A       DC    V(&SYM)                                                  LCSYM008
          MEND                                                           LCSYM009
          SPACE 3                                                        LCSYM010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ESDD  MTS#,MTSSUB                                              LCSYM098
          ESDD  MTS#,MTSSUB                                              LCSYM099
          ESDD  MAXADD                                                   LCSYM100
          ESDD  READL                                                    LCSYM101
          ESDD  TRANTB                                                   LCSYM102
          ESDD  TSKFMT                                                   LCSYM103
          ESDD  PEEL                                                     LCSYM104
          ESDD  CASECONV                                                 LCSYM105
 ENDESD   EQU   *                                                        LCSYM106
          END                                                            LCSYM107
-FILE  56;    23 RECORDS:  
0INIT     TITLE 'JOB TO INITIALIZE THE SYSTEM '                          INIT0001
 *        THE FOLLOWING IS A JOB TO FINISH INITIALIZATION                INIT0002
          SPACE                                                          INIT0003
 INITJE   START 0                                                        INIT0004
          DC    A(*+8,0)                                                 INIT0005
          USING *,15                                                     INIT0006
          SVC   28            ECHO THE TIME AND DATE                     INIT0007
          STM   0,1,TDTE                                                 INIT0008
          STM   2,3,TDDE                                                 INIT0009
          LA    0,TDECL                                                  INIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA    1,RESMTS                                                 INIT0014
          SVC   41            INITIALIZE MTS                             INIT0015
          SVC   6             QUIT                                       INIT0016
          DS    0F                                                       INIT0017
 TDEC     DC    CL32'TIME AND DATE HAVE BEEN SET TO'                     INIT0018
 TDTE     DC    CL12' '                                                  INIT0019
 TDDE     DC    CL8' '                                                   INIT0020
 TDECL    EQU   *-TDEC                                                   INIT0021
 RESMTS   DC    C'MTS *INI T,,,'                                         INIT0022
          END                                                            INIT0023
-FILE  57;   488 RECORDS:  
0CRDR     TITLE 'MTS 2501 SUPPORT ROUTINES (NON-RESIDENT)  ---  VERSION @RD250001
                1 OCTOBER 1968'                                          RD250002
          MACRO                                                          RD250003
 &SLB     ERMSG &WHAT,&RC                                                RD250004
          LCLA  &LNG                                                     RD250005
 &LNG     SETA  K'&WHAT-2                                                RD250006
 &SLB     STM   R2,R4,ERMSGSA      SAVE REGISTERS FOR POP                RD250007
          BAL   R3,ERMSG           SUBROUTINE TO PROCESS THEM            RD250008
          DC    AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE                        RD250009
          SPACE 1                                                        RD250010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        RD250479
 FDUBEL   DS    F             NOT PERTINENT                              RD250480
 FDUBIL   DS    F             INCREMENT                                  RD250481
 FDUBSR   DS    F             SUBROUTINE LOCATION                        RD250482
 FDUBSCR  DS    F             SCRATCH                                    RD250483
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             RD250484
 FDUBDS   DS    F             DEFAULT SWITCHES                           RD250485
 FDUBCH   DS    F             NOT PERTINENT                              RD250486
          EJECT                                                          RD250487
          END   CRDR                                                     RD250488
-FILE  58;  8132 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
          MACRO                                                          SUPR0009
 &N       GRAB  &L                                                       SUPR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        BYTE-ALIGNED STUFF. SSUCONF THRU CPUCONF ASSEMBLED FOR SIMPLEX CONF0755
 FSAMAP   DC    X'0'           BIT FOR EACH FSA                          CONF0756
 SSUCONF  DC    X'88'          BIT FOR EACH CPU & CCU                    CONF0757
 CCUCONF  DC    X'08'          BIT FOR EACH CCU IN 4-7                   CONF0758
 CPUCONF  DC    X'80'          BIT FOR EACH CPU IN 0-3                   CONF0759
 BIT      DC    X'8040201008040201'                                      CONF0760
 FSAVALID DC    X'80C0E0F0F8FCFEFF'                                      CONF0761
 NUMBITS  DC    X'00010102010202030102020302030304'                      CONF0762
 INP      DS    CL50          INPUT AREA FOR TYPEWRITER                  CONF0763
          END                                                            CONF0764
-FILE  59;  9790 RECORDS:  
0MTS      TITLE ' UMMPS TERMINAL SYSTEM '                                MTS00001
          MACRO                                                          MTS00002
 &SLB     RSAVE &GRX                                                     MTS00003
 &SLB     L     SCA,&GRX.SS                                              MTS00004
          LA    SCA,4(SCA)                                               MTS00005
          ST    SCA,&GRX.SS                                              MTS00006
          ST    &GRX,&GRX.SS(SCA)                                        MTS00007
          MEND                                                           MTS00008
          SPACE 3                                                        MTS00009
          MACRO                                                          MTS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GTSBSE   DC    A(INLOOP+X'1000',INLOOP)                                 MTS09781
 LGIOSP   DC    A(GIOSP)                                                 MTS09782
          LTORG                                                          MTS09783
 ENDOFMTS EQU   *                   LOCATION OF END OF MTS               MTS09784
          EJECT                                                          MTS09785
 DUMMY    DSECT                                                          MTS09786
          COPY  MTS.RHTABLE                                              MTS09787
          COPY  MTS.DSECT                                                MTS09788
          TOTAL                                                          MTS09789
          END                                                            MTS09790
-FILE  60;   447 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                                               KWIC0438
 *        COPY  MTS.DSECT                                                KWIC0439
          COPY   *LLMPSEQU(100)                                          KWIC0440
          COPY  MTS.EQU                                                  KWIC0441
          EJECT                                                          KWIC0442
 DUMMY    DSECT                                                          KWIC0443
          COPY  MTS.CONTAB                                               KWIC0444
          COPY  MTS.DSECT                                                KWIC0445
          PRINT ON                                                       KWIC0446
          END                                                            KWIC0447
-FILE  61;   712 RECORDS:  
0GSFS     TITLE 'STORAGE ALLOCATION FOR MTS.'                            GTFR0001
          MACRO                                                          GTFR0002
 &LAB     HWIMB &N,&R=4                                                  GTFR0003
 &LAB    L     &R,LASTJBA                                                GTFR0004
          L    &R,0(0,&R)                                                GTFR0005
          L    &R,RJBBUF(0,&R)                                           GTFR0006
          MEND                                                           GTFR0007
 *                                                                       GTFR0008
          MACRO                                                          GTFR0009
 &LAB     GTBUF                                                          GTFR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *              MTS.DSECT                                                GTFR0703
          PRINT OFF                                                      GTFR0704
          COPY  *LLMPSEQU(100)                                           GTFR0705
          COPY  MTS.EQU                                                  GTFR0706
 DUMMY    DSECT              , DOWN THE DRAIN                            GTFR0707
          COPY  MTS.CONTAB                                               GTFR0708
          COPY  MTS.DSECT                                                GTFR0709
          PRINT ON                                                       GTFR0710
 DSCTL   EQU   (LASTDSCT-DSCT+7)/8*8                                     GTFR0711
          END                                                            GTFR0712
-FILE  62;  1238 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'                                                 PDP01229
 DRMS8    DC    100X'01'                                                 PDP01230
 DRMS9    DC    100X'01'                                                 PDP01231
 DRMSAVAL DC   18H'100'    CURRENT AND MIN. NBR AVAIL                    PDP01232
          SPACE 4                                                        PDP01233
 DRUMDL   EQU   *-DRUMD                                               V2 PDP01234
          EJECT                                                          PDP01235
          COPY  *PCBDSECT                                                PDP01236
          EJECT                                                          PDP01237
          END                                                            PDP01238
-FILE  63;    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  64;   123 RECORDS:  
0USER     TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS'       USER0001
 USERS    START 0                                                        USER0002
 *        COPY  *LLMPSEQU(100)      INCLUDE SYSTEM EQUALITIES            USER0003
          PRINT OFF                                                      USER0004
          COPY  *LLMPSEQU(100)                                           USER0005
          PRINT ON                                                       USER0006
          EJECT                                                                  
 USER     TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS'       USER0001
 USERS    START 0                                                        USER0002
 *        COPY  *LLMPSEQU(100)      INCLUDE SYSTEM EQUALITIES            USER0003
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' AVAILABLE LINES, AND'                                 USER0107
          DC    X'40202120'                                              USER0108
          DC    C' NON-MTS JOBS USING'                                   USER0109
          DC    X'40202120'                                              USER0110
          DC    C' VIRTUAL PAGES AND'                                    USER0111
          DC    X'40202120'                                              USER0112
          DC    C' REAL PAGES.'                                          USER0113
 SA       DS    18F                                                      USER0114
 WORK     DS    D                                                        USER0115
          END                                                            USER0116
-FILE  65;    85 RECORDS:  
0         TITLE 'EBCDBCD -- TRANSLATES EBCDIC TO AUGMENTED BCD'          ETOB0001
 *                                                                       ETOB0002
 *        EBCDBCD TRANSLATES INPUT LINES IN EBCDIC TO                    ETOB0003
 *        CHARACTER-EQUIVALENT OUTPUT LINES IN AUGMENTED BCD.            ETOB0004
 *                                                                       ETOB0005
 *        LOWER-CASE LETTERS ARE CONVERTED TO UPPER CASE.                ETOB0006
 *                                                                       ETOB0007
          SPACE 6                                                        ETOB0008
          MACRO                                                          ETOB0009
 &NAME    CALL  &SUB,&PARLIST                                            ETOB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    10X'40',X'7DE0D07C7B7F'                                  ETOB0076
          DC    X'40C1C2C3C4C5C6C7C8C9',6X'40'                           ETOB0077
          DC    X'40D1D2D3D4D5D6D7D8D9',6X'40'                           ETOB0078
          DC    X'4040E2E3E4E5E6E7E8E9',22X'40'                          ETOB0079
          DC    X'40C1C2C3C4C5C6C7C8C9',6X'40'                           ETOB0080
          DC    X'40D1D2D3D4D5D6D7D8D9',6X'40'                           ETOB0081
          DC    X'4040E2E3E4E5E6E7E8E9',6X'40'                           ETOB0082
          DC    X'F0F1F2F3F4F5F6F7F8F9',6X'40'                           ETOB0083
          LTORG                                                          ETOB0084
          END   EBCDBCD                                                  ETOB0085
-FILE  66;  2139 RECORDS:  
0MAIN     TITLE 'MACRO DEFINITIONS'                                      8ASR0001
 *                                                                       8ASR0002
          PRINT NOGEN                                                    8ASR0003
 *                                                                       8ASR0004
          MACRO                    SUBROUTINE ENTRY                      8ASR0005
 &L       SAVE  &X                                                       8ASR0006
 &L       STM   RE,&X,12(RD)                                             8ASR0007
          LA    RF,4*(&X+3)+12(RD)                                       8ASR0008
          ST    RF,8(RD)                                                 8ASR0009
          ST    RD,4(RF)                                                 8ASR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          GENPS OPDM,19+FSW1,V(OPRTAB)                                   8ASR2130
 *                                                                       8ASR2131
 *              PREDEFINED OPERAND SYMBOL TABLE                          8ASR2132
 *                                                                       8ASR2133
 ABCTAB   GENOP @VALUE,0,0                                               8ASR2134
          GENOP @CSID,0,0                                                8ASR2135
          GENOP @FLAGS,0,0                                               8ASR2136
          GENOP @TYPE,0,0,V(SYMTAB)                                      8ASR2137
 *                                                                       8ASR2138
          END                                                            8ASR2139
-FILE  67;   767 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                     UPDT0758
          DC    C' '                                                     UPDT0759
 INAREA   DS    80CL1              INPUT FILE INPUT AREA                 UPDT0760
          DC    C' '                                                     UPDT0761
 OUTAREA  DS    80CL1              OUTPUT FILE OUTPUT AREA               UPDT0762
          SPACE 1                                                        UPDT0763
 KYWDAD   DS    F                  CURRENT LOCATION IN SRCAREA           UPDT0764
 KYWDREG  DS    6F                 KEYWORD PROCESSOR REGISTER SAVE AREA  UPDT0765
          SPACE 2                                                        UPDT0766
          END   UPDATE                                                   UPDT0767
-FILE  68;    29 RECORDS:  
0DEST     START 0                                                        DEST0001
          ENTER 12,SA=SA                                                 DEST0002
          MVC   SAV13,4(13)                                              DEST0003
 READ     SCARDS NAME,LEN,EXIT=QUIT                                      DEST0004
          LH    1,LEN                                                    DEST0005
          CH    1,=H'16'                                                 DEST0006
          BNL   NOCLEAR                                                  DEST0007
          LA    1,NAME(1)                                                DEST0008
          MVC   0(16,1),=CL16' '                                         DEST0009
 NOCLEAR  SPRINT NAME,16,@CC                                            DEST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 QUIT     L     13,SAV13                                                 DEST0020
          LM    14,12,12(13)                                             DEST0021
          SR    15,15                                                    DEST0022
          BR    14                                                       DEST0023
 SAV13    DS    F                                                        DEST0024
 SA       DS    200D                                                     DEST0025
 NAME     DS    10CL16                                                   DEST0026
 ERRM     DC    C' X ERROR RETURN FROM DESTRY'                           DEST0027
 LEN      DS    H                                                        DEST0028
          END                                                            DEST0029
-FILE  69;   158 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  70;   253 RECORDS:  
0CATL     TITLE  'PROGRAM TO LIST THE NAMES OF A USERS FILES'            NCAT0001
 ACATALOG START 0                                                        NCAT0002
          SPACE 3                                                        NCAT0003
 *        ENTRY POINT                                                    NCAT0004
          USING *,12                                                     NCAT0005
          STM   14,12,12(13)                                             NCAT0006
          LR    12,15                                                    NCAT0007
          ST    13,SA                                                    NCAT0008
          LA    13,SCR                                                   NCAT0009
          L     15,=V(GUSERID)                                           NCAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PUNTM    DC    C'PUNT'                                                  NCAT0244
 PUNTC    DC    H'4'                                                     NCAT0245
          SPACE                                                          NCAT0246
          LTORG                                                          NCAT0247
          SPACE                                                          NCAT0248
          CNOP  0,8                                                      NCAT0249
 CARD     DS    256C                                                     NCAT0250
 FCB      DS    70F                                                      NCAT0251
 SCR      DS    250F                                                     NCAT0252
          END                                                            NCAT0253
-FILE  71;     7 RECORDS:  
0OPER MTS BATCH MORE RDR3 , PTR5 , PCH3                                 BTST0001
 OPER MTS BATCH MORE RDR1 , PTR3 , PCH1                                 BTST0002
 OPER MTS BATCH MORE RDR2 , PTR1 , PCH2                                 BTST0003
 OPER MTS BATCH MORE RDR5 , PTR2                                        BTST0004
 EOF OFF                                                                BTST0005
 BATCH CONFIGURATION (11 SEPTEMBER 1968)                                 BTST0006
 JOBS ON:  RDR3/PTR5/PCH3, RDR1/PTR3/PCH1, RDR2/PTR1/PCH2, RDR5/PTR2     BTST0007
-FILE  72;   581 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              QSAM0572
 T2       DS    D                  DITTO                                 QSAM0573
          SPACE 1                                                        QSAM0574
 ERMSGL   DS    H                  ERROR MESSAGE LENGTH                  QSAM0575
 ERMSGA   DS    100CL1             ERROR MESSAGE TEXT                    QSAM0576
          SPACE 1                                                        QSAM0577
 SRLD     DC    C'SRL00000'                                              QSAM0578
 SRLDL    DC    H'8'                                                     QSAM0579
          SPACE 2                                                        QSAM0580
          END                                                            QSAM0581
-FILE  73;   385 RECORDS:  
0DDMP     TITLE 'UNIVERSITY OF MICHIGAN DIRECT ACCESS DEVICE HEX DUMP'   DADMP001
 DDUMP    START 0                                                        DADMP002
          SPACE 1                                                        DADMP003
          EXTRN SCARDS                                                   DADMP004
          EXTRN SPRINT                                                   DADMP005
          EXTRN DISKUC                                                   DADMP006
          EXTRN GETD                                                     DADMP007
          EXTRN GDINFO                                                   DADMP008
          EXTRN FREED                                                    DADMP009
          SPACE 1                                                        DADMP010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BC    4,*-2                                                    DADMP376
          L     13,SAV13                                                 DADMP377
          BC    15,SRREST       RETURN WITH NO LABEL RECORD              DADMP378
          SPACE 1                                                        DADMP379
          LTORG                                                          DADMP380
          SPACE 1                                                        DADMP381
 BUFL     EQU   20856                                                    DADMP382
 BUF      DS    (BUFL/4)F                                                DADMP383
          SPACE 1                                                        DADMP384
          END                                                            DADMP385
-FILE  74;    74 RECORDS:  
0PRINT START 0                                                           PRNT0001
  PRINT NOGEN                                                            PRNT0002
  ENTER 12,SA=SA                                                         PRNT0003
  WRITE 0,'REW',@CC                                                      PRNT0004
  LA 3,TBL                                                               PRNT0005
 RD READ 0,IN                                                            PRNT0006
  CLC ENDOFTP,IN                                                         PRNT0007
  BE SORT                                                                PRNT0008
  MVC 0(16,3),IN                                                         PRNT0009
  LA 3,16(0,3)                                                           PRNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IN DS CL256                                                             PRNT0065
 LIM DC A(TBL,16,0)                                                      PRNT0066
 LLIM DC A(LINE+7-13,13,LINE+7+9*13-1)                                   PRNT0067
 SYSLIM DC A(LINE+7-17,17,LINE+132-17)                                   PRNT0068
 T DS CL16                                                               PRNT0069
 UID DS CL4                                                              PRNT0070
 LINE DC CL133' XXXX:'                                                   PRNT0071
  LTORG                                                                  PRNT0072
 TBL DS 2000CL16                                                         PRNT0073
  END                                                                    PRNT0074
-FILE  75;    92 RECORDS:  
0C                            LIBRARY TO FAST LIBRARY EDIT               LBFS0001
 C                                                                       LBFS0002
 C             LOGICAL DEVICE NUMBERS:                                   LBFS0003
 C                  1 - NEW LIBRARY PUT HERE.                            LBFS0004
 C                  2 - OLD LIBRARY EXPECTED HERE.                       LBFS0005
 C                  3 - SCRATCH FILE.                                    LBFS0006
 C                  6 - PRINTED OUTPUT.                                  LBFS0007
 C                                                                       LBFS0008
 C             THIS PROGRAM READS A CORRECTLY STRUCTURED LIBRARY         LBFS0009
 C             FILE AND CONVERTS THE 'LIB' RECORDS TO THE NEW            LBFS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       WRITE (6,902) IRECDS                                              LBFS0083
   101 IF ( LINE .EQ. LINTMP) CALL SYSTEM                                LBFS0084
       CALL READ(INPUT,INPUTL,22,LINE,3)                                 LBFS0085
       CALL WRITE(INPUT,INPUTL,86,LINE,1)                                LBFS0086
       LINE = LINE+1000                                                  LBFS0087
       GO TO 101                                                         LBFS0088
 C                                                                       LBFS0089
 C                            THAT'S ALL FOLKS                           LBFS0090
 C                                                                       LBFS0091
       END                                                               LBFS0092
-FILE  76;    24 RECORDS:  
0UID START 0                                                             UFND0001
  PRINT NOGEN                                                            UFND0002
  ENTER 12,SA=SA                                                         UFND0003
 READ SCARDS IN,EXIT=OUT                                                 UFND0004
  L 1,IN                                                                 UFND0005
  LM 3,5,BXLECON                                                         UFND0006
 BXH BXH 3,4,ADD                                                         UFND0007
  C 1,0(0,3)                                                             UFND0008
  BE READ                                                                UFND0009
  B BXH                                                                  UFND0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BXH2 BXH 3,4,DONE                                                       UFND0015
  SPRINT (3),4,@CC                                                      UFND0016
  B BXH2                                                                 UFND0017
 DONE EXIT 0                                                             UFND0018
 BXLECON DC A(TAB-4,4,TAB-4)                                             UFND0019
 SA DS 18A                                                               UFND0020
 IN DS CL256                                                             UFND0021
  LTORG                                                                  UFND0022
 TAB DS 1000CL4                                                          UFND0023
  END                                                                    UFND0024
-FILE  77;   820 RECORDS:  
0DSAV     TITLE 'PROGRAM TO SAVE DISK FILES ON TAPE'                     FLSV0001
 DSKDMP   START 0                                                        FLSV0002
          EXTRN VOLGET                                                   FLSV0003
          EXTRN DSKOP                                                    FLSV0004
          EXTRN MOVIT                                                    FLSV0005
          EXTRN SCARDS                                                   FLSV0006
          EXTRN TPWRUC                                                   FLSV0007
          EXTRN SERCOM                                                   FLSV0008
          EXTRN ERROR                                                    FLSV0009
          EXTRN WRITE,GETFD                                              FLSV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FCB      DS    70F                                                      FLSV0811
 SCR      DS    250F                                                     FLSV0812
 TI       DS    (RECSIZE)X                                               FLSV0813
          ORG   DSKDMP+(((*-DSKDMP)+4095)/4096*4096)                     FLSV0814
          DS    CL4                                                      FLSV0815
 TBF1     DS    (BFSIZE+HDRLEN)C                                         FLSV0816
          ORG   DSKDMP+(((*-DSKDMP)+4095)/4096*4096)                     FLSV0817
          DS    CL4                                                      FLSV0818
 TBF2     DS    (BFSIZE+HDRLEN)C                                         FLSV0819
          END                                                            FLSV0820
-FILE  78;   658 RECORDS:  
0*                                                                       8LNK0001
 *              LINK EDIT PROGRAM FOR RELOCATABLE PROGRAMS               8LNK0002
 *              PRODUCED BY THE MTS ASSEMBLER.                           8LNK0003
 *                                                                       8LNK0004
 *              PAGE 0 COMMON POINTERS                                   8LNK0005
 *                                                                       8LNK0006
        ORG     10                                                       8LNK0007
 AXR1   DS      1                  AUTO-INDEX REGISTERS                  8LNK0008
 AXR2   DS      1                                                        8LNK0009
 *                                                                       8LNK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CKERR  DC      *-CKERL                                                  8LNK0649
        DC      7777                                                     8LNK0650
 CKERL  EQU     *                                                        8LNK0651
 *                                                                       8LNK0652
 CSCER  DC      *-CSCERL                                                 8LNK0653
        DC      7777                                                     8LNK0654
 CSCERL EQU     *                                                        8LNK0655
 TABL   DS      200                                                      8LNK0656
 PMAX   EQU     *                                                        8LNK0657
        END     LINK                                                     8LNK0658
-FILE  79;    35 RECORDS:  
0COPY START 0                                                            CPSV0001
  PRINT NOGEN                                                            CPSV0002
  ENTER 12,SA=SA                                                         CPSV0003
  WRITE 0,'SRL4000',@CC                                                  CPSV0004
  WRITE 1,'SRL4000',@CC                                                  CPSV0005
  OI SW,1                                                                CPSV0006
  MVC FCNT+1(3),=PL3'0'                                                  CPSV0007
 LOOP READ 0,IN,INL,@-TRIM,EXIT=EOF                                      CPSV0008
  WRITE 1,IN,INL,@-TRIM                                                  CPSV0009
  TM SW,1                                                                CPSV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  OI SW,1                                                                CPSV0026
  B LOOP                                                                 CPSV0027
 SA DS 18A                                                               CPSV0028
 INL DS H                                                                CPSV0029
 SW DC X'0'                                                              CPSV0030
 TRLR DC 16C'*',C'ENDOFTP'                                               CPSV0031
 FCNT DC C'       FILES PROCESSED'                                       CPSV0032
  LTORG                                                                  CPSV0033
 IN DS CL4000                                                            CPSV0034
  END                                                                    CPSV0035
-FILE  80;   130 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'                                               FRCP0121
          DC    A(GUSER)                                                 FRCP0122
 F1       DC    F'1'                                                     FRCP0123
 MOVNAM   MVC   CPYNAM(0),0(1)                                           FRCP0124
 CPYPAR   DC    A(CPYLNG)                                                FRCP0125
 SP1      DC    A(0)                                                     FRCP0126
 SP13     DC    A(0)                                                     FRCP0127
 GET1     DS    A                                                        FRCP0128
 MVCLIN   MVC   0(0,4),0(5)                                              FRCP0129
          END                                                            FRCP0130
-FILE  81;    32 RECORDS:  
0OPER MTS LA00                                                          02ST0001
 OPER MTS LA01                                                          02ST0002
 OPER MTS LA02                                                          02ST0003
 OPER MTS LA03                                                          02ST0004
 OPER MTS LA04                                                          02ST0005
 OPER MTS LA07                                                          02ST0006
 OPER MTS LA08                                                          02ST0007
 OPER MTS LA09                                                          02ST0008
 OPER MTS LA10                                                          02ST0009
 OPER MTS LA11                                                          02ST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OPER MTS LA24                                                          02ST0023
 OPER MTS LA25                                                          02ST0024
 OPER MTS LA26                                                          02ST0025
 OPER MTS LA27                                                          02ST0026
 OPER MTS LA28                                                          02ST0027
 OPER MTS LA29                                                          02ST0028
 OPER MTS LA30                                                          02ST0029
 EOF OFF                                                                02ST0030
 2702 CONFIGURATION (10 SEPTEMBER 1968)                                  02ST0031
 JOBS ON LA00 THRU LA04 AND LA07 THRU LA30                               02ST0032
-FILE  82;   200 RECORDS:  
0DEST TITLE 'PROGRAM TO DESTROY FILES FOR ANY USER'                      SCDS0001
 DESTROY START 0                                                         SCDS0002
          SPACE 3                                                        SCDS0003
 *        ENTRY POINT                                                    SCDS0004
          USING *,12                                                     SCDS0005
          STM   14,12,12(13)                                             SCDS0006
          LR    12,15                                                    SCDS0007
          ST    13,SA                                                    SCDS0008
          LA    13,SCR                                                   SCDS0009
          SPACE                                                          SCDS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PUNTM    DC    C'PUNT'                                                  SCDS0191
 PUNTC    DC    H'4'                                                     SCDS0192
          SPACE                                                          SCDS0193
          LTORG                                                          SCDS0194
          SPACE                                                          SCDS0195
          CNOP  0,8                                                      SCDS0196
 CARD     DS    256C                                                     SCDS0197
 FCB      DS    70F                                                      SCDS0198
 SCR      DS    250F                                                     SCDS0199
          END                                                            SCDS0200
-FILE  83;   280 RECORDS:  
0CATL     TITLE  'PROGRAM TO LIST THE NAMES OF A USERS FILES'            SDSK0001
 ACATALOG START 0                                                        SDSK0002
          SPACE 3                                                        SDSK0003
 *        ENTRY POINT                                                    SDSK0004
          USING *,12                                                     SDSK0005
          STM   14,12,12(13)                                             SDSK0006
          LR    12,15                                                    SDSK0007
          ST    13,SA                                                    SDSK0008
          LA    13,SCR                                                   SDSK0009
          L     15,=V(GUSERID)                                           SDSK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 AMAP     DC    A(MAP)                                                   SDSK0271
          SPACE                                                          SDSK0272
          LTORG                                                          SDSK0273
          SPACE                                                          SDSK0274
          CNOP  0,8                                                      SDSK0275
 CARD     DS    256C                                                     SDSK0276
 FCB      DS    70F                                                      SDSK0277
 SCR      DS    250F                                                     SDSK0278
 MAP      DC    1000F'0'                                                 SDSK0279
          END                                                            SDSK0280
-FILE  84;   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  85;    36 RECORDS:  
0RSRV     TITLE 'RESERVE DISK DRIVES TO 2844 OR 2314'                    RSRV0001
 RESERVE  CSECT                                                          RSRV0002
          PRINT NOGEN                                                    RSRV0003
          ENTER 12,SA=SA                                                 RSRV0004
 LP       SPRINT 'ENTER VOLUME NAME'                                     RSRV0005
          SCARDS IN,EXIT=EOF                                             RSRV0006
          LA    2,IN                                                     RSRV0007
          LA    0,5                                                      RSRV0008
          L     4,=V(VOLGET)                                             RSRV0009
          BALR  3,4                                                      RSRV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B     FRLP                                                     RSRV0027
 UCK      SVC   8                                                        RSRV0028
          SVC   10                                                       RSRV0029
          SPRINT 'UNIT CHECK'                                            RSRV0030
          B     FRLP                                                     RSRV0031
 CCW      CCW   X'B4',SENSE,X'20',7                                      RSRV0032
 SENSE    DS    XL8                                                      RSRV0033
 IN       DS    CL100                                                    RSRV0034
 SA       DS    18A                                                      RSRV0035
          END                                                            RSRV0036
-FILE  86;   134 RECORDS:  
0MTSK     TITLE 'MTS VERSION OF TASKS'                                   MTSK0001
 MTASKS   START 0                                                        MTSK0002
          SPACE 2                                                        MTSK0003
 GR1      EQU   1                                                        MTSK0004
 GR2      EQU   2                                                        MTSK0005
 GR3      EQU   3                                                        MTSK0006
 GR4      EQU   4                                                        MTSK0007
 GR5      EQU   5                                                        MTSK0008
 GR6      EQU   6                                                        MTSK0009
 GR11     EQU   11                                                       MTSK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LNR      DS    F                                                        MTSK0125
 RDYCNT   DC    Y(L'READY)                                               MTSK0126
 ERRCNT   DC    Y(L'ERROR)                                               MTSK0127
 CNT      DS    H                                                        MTSK0128
 BUF      DS    96C                                                      MTSK0129
 READY    DC    C' READY!'                                               MTSK0130
 ERROR    DC    C' INVALID INPUT'                                        MTSK0131
 SW       DC    X'00'                                                    MTSK0132
          SPACE 2                                                        MTSK0133
          END                                                            MTSK0134
-FILE  87;    12 RECORDS:  
0SIOE     TITLE 'SUBROUTINE TO FIX UP SETIOERR FOR FORTRAN'              SIER0001
 SIOERR   START 0                                                        SIER0002
          USING *,15                                                     SIER0003
          L     1,0(0,1)           NEED ONE LEVEL OF INDIRECTION         SIER0004
          L     15,=V(SETIOERR)                                          SIER0005
          BR    15                                                       SIER0006
          END                                                            SIER0007
 ESD          SIOERR         SETIOERR                               SIER0008
 TXT           00                                              SIER0009
 TXT                                                                 SIER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD                                                               SIER0011
 END                                                                    SIER0012
-FILE  88;    77 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'                                             SPIE0068
          NI    PIE,X'7F'                                                SPIE0069
          B     RESTART       GO BACK TO INTERRPUTED PROGRAM             SPIE0070
 *                                                                       SPIE0071
 *        DATA                                                           SPIE0072
 SAVE     DS    8F                                                       SPIE0073
 PIE      DC    8F'0'           PROGRAM INTERRUPT ELEMENT                SPIE0074
 PGNTSV   DS    18F           MTS PGNTTRP SAVE AREA                      SPIE0075
          LTORG                                                          SPIE0076
          END                                                            SPIE0077
-FILE  89;   763 RECORDS:  
0DSAV     TITLE 'PROGRAM TO SAVE DISK FILES ON TAPE'                     LBSV0001
 DSKDMP   START 0                                                        LBSV0002
          EXTRN VOLGET                                                   LBSV0003
          EXTRN DSKOP                                                    LBSV0004
          EXTRN OPENV                                                    LBSV0005
          EXTRN CLOSE                                                    LBSV0006
          EXTRN READS                                                    LBSV0007
          EXTRN SCARDS                                                   LBSV0008
          EXTRN TPWRUC                                                   LBSV0009
          EXTRN SERCOM                                                   LBSV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CARD     DS    256C                                                     LBSV0754
 FCB      DS    70F                                                      LBSV0755
 SCR      DS    250F                                                     LBSV0756
 TABLE    DS    2000CL16                                                 LBSV0757
 BF1      DS    3624C                                                    LBSV0758
 BF2      DS    3624C                                                    LBSV0759
 TBF1     DS    (BFSIZE+255)C                                            LBSV0760
          DS    0H                                                       LBSV0761
 TBF2     DS    (BFSIZE+255)C                                            LBSV0762
          END                                                            LBSV0763
-FILE  90;   101 RECORDS:  
0BNEB     TITLE 'SUBROUTINE TO CONVERT BINARY READ CARDS TO EBCD'        BNBD0001
 BINEBCD  START 0                                                        BNBD0002
          USING *,15                                                     BNBD0003
 BIN      EQU   1                      POINTER TO BINARY IMAGE           BNBD0004
 EBCD     EQU   2                      POINTER TO EBCD IMAGE             BNBD0005
          MVC   0(80,EBCD),SCRMBL      REARRANGE FIRST 40                BNBD0006
          TR    0(80,EBCD),0(BIN)                                        BNBD0007
          MVC   0(80,BIN),SCRMBL       REARRANGE LAST 40                 BNBD0008
          TR    0(80,BIN),80(BIN)                                        BNBD0009
          TR    0(40,EBCD),TOPTAB                                        BNBD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT          K | 1  BNBD0092
 TXT         <+	
ʊ.(|      BNBD0093
 TXT   y          ʉ    -/    ab c   ~s t   {AB C   \S T    BNBD0094
 TXT   \      	                                        BNBD0095
 TXT             321765498#:`"='@0TS/XWVUZ
Y,\BNBD0096
 TXT  &      ?>_%-LKJPONMRQ$!;)*}ts~xwvuzBNBD0097
 TXT  h      yޠ܂ӥ&CBAGFEDI	H.|+(<{cbaBNBD0098
 TXT  {      gfediʌhǯݍ lkjponmrqۮBNBD0099
 TXT  8      ؜ᴣ][^׫                    BNBD0100
 END                                                                    BNBD0101
-FILE  91;    37 RECORDS:  
0OPER MTS LA31                                                          03ST0001
 OPER MTS LA32                                                          03ST0002
 OPER MTS LA33                                                          03ST0003
 OPER MTS LA34                                                          03ST0004
 OPER MTS LA35                                                          03ST0005
 OPER MTS LA39                                                          03ST0006
 OPER MTS LA40                                                          03ST0007
 OPER MTS LA41                                                          03ST0008
 OPER MTS LA42                                                          03ST0009
 OPER MTS LA43                                                          03ST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OPER MTS LA61                                                          03ST0028
 OPER MTS LA62                                                          03ST0029
 OPER MTS LA63                                                          03ST0030
 OPER MTS LA64                                                          03ST0031
 OPER MTS LA65                                                          03ST0032
 OPER MTS LA66                                                          03ST0033
 OPER MTS LA67                                                          03ST0034
 EOF OFF                                                                03ST0035
 2703 CONFIGURATION (10 SEPTEMBER 1968)                                  03ST0036
 JOBS ON LA31 THRU LA35 AND LA39 THRU LA67                               03ST0037
-FILE  92;     8 RECORDS:  
0OPER MTS ARU0                                                          MSST0001
 OPER MTS DT1,                                                          MSST0002
 OPER MTS ARU1                                                          MSST0003
 OPER MTS ARU2                                                          MSST0004
 OPER MTS ARU3                                                          MSST0005
 EOF OFF                                                                MSST0006
 MISC. CONFIGURATION (10 SEPTEMBER 1968)                                 MSST0007
 JOBS ON DT1 AND ARU0 THRU ARU3                                          MSST0008
-FILE  93;    43 RECORDS:  
0EOF OFF                                                                DCST0001
 PD                                                                    DCST0002
 EE *                                                                  DCST0003
 ME 1                                                                  DCST0004
 SN 37 101                                                             DCST0005
 OR DATA CONCENTRATOR CONFIGURATION (1 AUGUST 1968)                    DCST0006
 EOF OFF                                                                DCST0007
 EE * 0 1 2 3 32 33 34 35 36 37 76 77                                  DCST0008
 AE 1 3                                                                DCST0009
 AE 2 2                                                                DCST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OPER MTS DC12                                                          DCST0034
 OPER MTS DC13                                                          DCST0035
 OPER MTS DC14                                                          DCST0036
 OPER MTS DC15                                                          DCST0037
 OPER MTS DC16                                                          DCST0038
 OPER MTS DC17                                                          DCST0039
 OR JOBS ON:  DC00 THRU DC17                                             DCST0040
 ME 3 0 2 3 32 33 34 35 36 37 76 77                                    DCST0041
 DATA CONCENTRATOR CONFIGURATION (1 AUGUST 1968)                         DCST0042
 JOBS ON:  DC00 THRU DC17                                                DCST0043
-FILE  94;   116 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                                                        CMB00107
 OFDUB    DS    A                                                        CMB00108
 ILEN     DS    H                                                        CMB00109
 MOVE     MVC   0(0,2),0(5)                                              CMB00110
 SA       DS    18A                                                      CMB00111
          LTORG                                                          CMB00112
 IBUF     DS    32XL128                                                  CMB00113
 OBUF     DS    34XL128                                                  CMB00114
 ENDOBUF  EQU   *-256                                                    CMB00115
          END                                                            CMB00116
-FILE  95;   127 RECORDS:  
0LODC     TITLE 'PROGRAM TO CALL THE LOADER... ... ...'                  LDCL0001
 LOADCLCS CSECT                                                          LDCL0002
          PRINT NOGEN                                                    LDCL0003
          USING LOADCLCS,12                                              LDCL0004
          LR    12,15                                                    LDCL0005
          ST    13,SAVE            SAVE THE MTS SAVE AREA ADDRESS        LDCL0006
          ST    1,REG1             HE MAY WANT THE PAR= FIELD            LDCL0007
          SERCOM '0ENTER THE OBJECT FILE NAME.'                          LDCL0008
          GUSER OFN,OFNL           READ THE OBJECT FILE NAME             LDCL0009
          LH    2,OFNL             PUT A BLANK AT THE END                LDCL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 1                                                        LDCL0118
 INPAR    DC    A(0,0,0,0,OFNFDUB) READ PARAMETERS                       LDCL0119
          SPACE 1                                                        LDCL0120
          LTORG                                                          LDCL0121
          SPACE 1                                                        LDCL0122
 LOADSAV  DC    A(LOADSAVE-LOADSAV)     THE LOADER FUNNY PSECT           LDCL0123
          DS    4096F                                                    LDCL0124
 LOADSAVE EQU   *                                                        LDCL0125
          SPACE 1                                                        LDCL0126
          END   LOADCLCS                                                 LDCL0127
-FILE  96;   215 RECORDS:  
0BATCH    CSECT                                                          BTCH0001
          SVE                                                            BTCH0002
          LA    11,BATRITE      INITIALIZE REGISTERS                     BTCH0003
          LA    10,4                                                     BTCH0004
          LA    9,1                                                      BTCH0005
          LA    8,INPUT-1                                                BTCH0006
          L     7,0(0,1)        SAVE PARAMETER POINTER.                  BTCH0007
          L     6,BATLOCK       LOAD & READY LOCKOUT                     BTCH0008
          OI    BATLOCK,X'80'                                            BTCH0009
          LM    0,1,=C'SCARDS  '                                         BTCH0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0D                                                       BTCH0206
 MSG1     DC    C' ENTER COMMANDS'                                       BTCH0207
 MSG2     DC    C' PLEASE TRY AGAIN LATER   '                            BTCH0208
 PROOFF   EQU   34                                                       BTCH0209
 PROTON   EQU   26                                                       BTCH0210
 RJBBUF   EQU   X'44'                                                    BTCH0211
 TOD      EQU   28                                                       BTCH0212
 WAYT     EQU   35                                                       BTCH0213
 BUFF     EQU   INPUT                                                    BTCH0214
          END   BATCH                                                    BTCH0215
-FILE  97;   184 RECORDS:  
0DBS    TITLE   'DOUBLE BACK SUBSTITUTION'                               DBS#0001
 DBS#   CSECT                                                            DBS#0002
        ENTRY   DBS                                                      DBS#0003
 SR2    EQU     14                      SCRATCH REGISTER                 DBS#0004
 GRK    EQU     0                       INDEX REGISTER                   DBS#0005
 SRN    EQU     2                       INCREMENTING REGISTER OVER N     DBS#0006
 GRN    EQU     3                       DIMENSION OF UL                  DBS#0007
 SRM    EQU     4                       INCREMENTING REGISTER OVER M     DBS#0008
 GRM    EQU     5                       NO. OF COLUMNS OF X AND B        DBS#0009
 GRL2   EQU     6                       DIMENSIONED COL LENGTH OF X & B  DBS#0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FINI   LD      FR2,0(0,GRX)                                             DBS#0175
        DDR     FR2,FR0                 X(1) = X(1)/UL(1,1)              DBS#0176
        STD     FR2,0(0,GRX)            (UNCHANGED IF UL(1,1) IS ZERO)   DBS#0177
        ALR     GRX,GRL2                                                 DBS#0178
        BXLE    GRK,SRM,FINI                                             DBS#0179
 END    LM      14,12,12(13)                                             DBS#0180
        MVI     12(13),X'FF'                                             DBS#0181
        SR      15,15                                                    DBS#0182
        BR      14                                                       DBS#0183
        END                                                              DBS#0184
-FILE  98;   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  99;   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 100;   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 101;    50 RECORDS:  
0INV      TITLE 'MATRIX INVERSION ORGANISER '                            INV#0001
 INV#     CSECT                                                          INV#0002
          ENTRY INV                                                      INV#0003
          USING *,12                                                     INV#0004
 INV      STM   14,12,12(13)                                             INV#0005
          LR    12,15                                                    INV#0006
          LM    4,9,0(1)                                                 INV#0007
          LR    3,4                                                      INV#0008
          STM   3,9,PARLIST                                              INV#0009
          LA    1,PARLIST                                                INV#0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     14,12(0,13)                                              INV#0041
          MVI   12(13),X'FF'                                             INV#0042
          BR    14                                                       INV#0043
 PARLIST  DS    7F                                                       INV#0044
 SAVE     DS    18F                                                      INV#0045
 ALRD     DC    V(LRD)                                                   INV#0046
 AINV1    DC    V(INV1)                                                  INV#0047
 ASPAC    DC    V(GETSPACE)                                              INV#0048
 AFREE    DC    V(FREESPAC)                                              INV#0049
          END                                                            INV#0050
-FILE 102;   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 103;   307 RECORDS:  
0LRD    TITLE   'MATRIX DECOMPOSITION'                                   LRD#0001
 LRD#   CSECT                                                            LRD#0002
        ENTRY   LRD                                                      LRD#0003
 GRK    EQU     14                      INDEX REGISTER                   LRD#0004
 SR1    EQU     14                      SCRATCH REGISTER                 LRD#0005
 SRN    EQU     0                       INCREMENTING REGISTER FOR N      LRD#0006
 GRN    EQU     1                       NO. OF ROWS OF MATRIX            LRD#0007
 SRM    EQU     2                       INCREMENTING REGISTER FOR M      LRD#0008
 GRM    EQU     3                       NO. OF COLUMNS OF MATRIX         LRD#0009
 GRSIGN EQU     4                       SIGN OF PERMUTATION              LRD#0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        LTR     GRSIGN,GRSIGN                                            LRD#0298
        BNZ     *+8                                                      LRD#0299
        LA      SR1,4                                                    LRD#0300
        LR      15,SR1                                                   LRD#0301
        LM      0,12,20(13)                                              LRD#0302
        L       14,12(0,13)                                              LRD#0303
        SPM     14                      RESTORE PROGRAM MASK             LRD#0304
        MVI     12(13),X'FF'                                             LRD#0305
        BR      14                                                       LRD#0306
        END                                                              LRD#0307
-FILE 104;   103 RECORDS:  
0SLE      TITLE 'SIMULTANEOUS LINEAR EQUATIONS'                          SLE#0001
 SLE#     CSECT                                                          SLE#0002
          ENTRY SLE1                                                     SLE#0003
          ENTRY SLE2                                                     SLE#0004
          ENTRY SLE3                                                     SLE#0005
          ENTRY SLE4                                                     SLE#0006
 *        CALLING SEQUENCE -   SLE1/2 (N,LENA,A,NSOL,LENBX,B,X,IP)       SLE#0007
 *        SLE3/4 (N,LENA,A,NSOL,LENBX,B,X,IP,LENUL,UL)                   SLE#0008
          USING *,15                                                     SLE#0009
 SLE3     STM   14,12,12(13)                                             SLE#0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ULPARS   DS    2F                                                       SLE#0094
 PARLIST  DS    8F                                                       SLE#0095
 SAVE     DS    18F                                                      SLE#0096
 ALRD     DC    V(LRD)                                                   SLE#0097
 ADBS     DC    V(DBS)                                                   SLE#0098
 ADBST    DC    V(DBST)                                                  SLE#0099
 FREE     DC    V(FREESPAC)                                              SLE#0100
 GET      DC    V(GETSPACE)                                              SLE#0101
          DS    10F                                                      SLE#0102
          END                                                            SLE#0103
-FILE 105;   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 106;   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 107;   114 RECORDS:  
0         PRINT NOGEN                                                    ASA00001
 MAIN     START 0                                                        ASA00002
          USING     MAIN,10                                              ASA00003
          SAVE  (14,12)                                                  ASA00004
          LR   10,15                                                     ASA00005
          LA    13,SA                                                    ASA00006
          CALL  ASAOPEN,(SCRATCH)                                        ASA00007
 LOOP     CALL  SCARDS,(AREA,LEN,MODIFY,LINENR)                          ASA00008
          LTR   15,15                                                    ASA00009
          BNZ   CLOSE                                                    ASA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPACE    DC    X'09'                                                    ASA00105
 ASATABLE DC    C' 0-+123456789ABC'     ASA CODES                        ASA00106
 OPENTBLE DC    X'0B131B038B939BA3ABB3BBC3CBD3DBE3' MCC FOR OPENING      ASA00107
 TRTABLE  DC    X'09111901899199A1A9B1B9C1C9D1D9E1' USUAL MCC            ASA00108
 NO#OP    DC    X'03'                                                    ASA00109
          EJECT                                                          ASA00110
 *-*-*-*-*-*-*-*-                  HOW TO ALLOCATE BUFAREA               ASA00111
 BUFAREA  DC    133C' '                                                  ASA00112
          SPACE                                                          ASA00113
          END                                                            ASA00114
-FILE 108;   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 109;   607 RECORDS:  
0DUBCON   START 0                                                        DBLE0001
          COPY  APF                                                      DBLE0002
          EJECT                                                          DBLE0003
          USING *,RC                                                     DBLE0004
          STM   RR,RC,12(RD)  SAVE REGISTERS                             DBLE0005
          LR    RC,LR         ADDRESSABILITY                             DBLE0006
          LA    R6,SAVAR      SAVE AREA                                  DBLE0007
          ST    R6,8(0,RD)    FORWARD LINKAGE                            DBLE0008
          ST    RD,4(0,R6)    BACKWARDS LINKAGE                          DBLE0009
          LR    RD,R6         ..                                         DBLE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LTRM     DC    Y(L'TRM)                                                 DBLE0598
 SAVF     DS    A                                                        DBLE0599
 PUNCHOUT DC    C'         DC    X'''                                    DBLE0600
 FIRSTW   DC    CL16' '                                                  DBLE0601
          DC    C''',X'''                                                DBLE0602
 SECW     DC    CL16' '                                                  DBLE0603
          DC    C''' '                                                   DBLE0604
 DEC      DC    CL15' '                                                  DBLE0605
 CLCP     CLC   2(0,R1),=C'PUNCH'                                        DBLE0606
          END                                                            DBLE0607
-FILE 110;   151 RECORDS:  
0*********************************************************************** EDHL0001
 *                                                                     * EDHL0002
 *        HELP MESSAGES CSECT                                          * EDHL0003
 *                                                                     * EDHL0004
 *        THIS CSECT CONTAINS THE MESSAGES USED BY THE "HELP"          * EDHL0005
 *        COMMAND IN THE MTS FILE EDITOR, *ED.  THE CSECT IS LOADED    * EDHL0006
 *        INTO THE USER'S VM FROM THE FILE *EDHELP WHEN THE FIRST      * EDHL0007
 *        HELP COMMAND IS ISSUED IN *ED.                               * EDHL0008
 *                                                                     * EDHL0009
 *********************************************************************** EDHL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'00'                                                    EDHL0142
 MLINE    MSG   '     #LINENO LINENO'                                    EDHL0143
          MSG   '     #LINENO'                                           EDHL0144
          MSG   '#LINENO CAUSES THE LINE OF THE FILE WITH THE SPECIFIED' EDHL0145
          MSG   'MTS LINE NUMBER TO BECOME THE CURRENT LINE.  #LINE'     EDHL0146
          MSG   'WITH NO LINE NUMBER SPECIFIED CAUSES THE CURRENT'       EDHL0147
          MSG   'LINE NUMBER TO BE PRINTED.'                             EDHL0148
          DC    X'00'                                                    EDHL0149
 MNOSUCH  DC    FL1'34',C'THERE IS NO COMMAND WITH THAT NAME',X'00'      EDHL0150
          END                                                            EDHL0151
-FILE 111;   221 RECORDS:  
0DMPF     TITLE 'DUMP LINE FILE IN HEXADECIMAL'                          FLDM0001
 *DATE:11/22/67                                                          FLDM0002
          MACRO                                                          FLDM0003
 &LABE    SPRINT &ARG                                                    FLDM0004
 &LABE    LA    R1,COM&SYSNDX                                            FLDM0005
          L     LR,=V(SPRINT)                                            FLDM0006
          BASR  RR,LR                                                    FLDM0007
          B     T&SYSNDX                                                 FLDM0008
 *                                                                       FLDM0009
 COM&SYSNDX DC  A(MCOM&SYSNDX)                                           FLDM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LENLIN   DC    H'0'                                                     FLDM0212
 LENLIN1  DC    H'0'                                                     FLDM0213
 MAXAR    EQU   256                                                      FLDM0214
 PACK     PACK  CONVERT,0(0,R2)                                          FLDM0215
 CONVERT  DS    D'0'                                                     FLDM0216
 MAXCHR   EQU   3                                                        FLDM0217
 LENGTH   DC    C'LENGTH='                                               FLDM0218
 MINLEN   DC    Y(L'LENGTH+1)                                            FLDM0219
 OUTIT    MVC   OUTBUF+1(0),0(R3)                                        FLDM0220
          END                                                            FLDM0221
-FILE 112;   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 113;   227 RECORDS:  
0HXL      TITLE 'HEXADECIMAL CARD LISTER'                                HXLS0001
 * DATE: 02-03-68 CHARLIE BENET                                          HXLS0002
 * FIXED TO ACCEPT IMAGES UP TO 256 CHARACTERS IN LENGTH                 HXLS0003
          MACRO                                                          HXLS0004
 &LABE    SPRINT &LIST                                                   HXLS0005
 &LABE    L     15,=V(SPRINT)                                            HXLS0006
          LA    1,&LIST                                                  HXLS0007
          BASR   14,15                                                   HXLS0008
          MEND                                                           HXLS0009
          START 0                                                        HXLS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LINE     DC    69C' '                                                   HXLS0218
 HEXS     EQU   LINE+1                                                   HXLS0219
 FILEIT   DC    A(FA)                                                    HXLS0220
          DC    A(LA)                                                    HXLS0221
          DC    A(0)                                                     HXLS0222
 LA       DS    H                                                        HXLS0223
 FA       DC    C'0****FILE "'                                           HXLS0224
 BA       DS    CL20                                                     HXLS0225
 MOVEQ    MVC   BA(0),CARDIN                                             HXLS0226
          END                                                            HXLS0227
-FILE 114;   238 RECORDS:  
0*DATE: 3-28-68                                                          OBJS0001
          MACRO                                                          OBJS0002
 &LABE    SERCOM &LIST                                                   OBJS0003
 &LABE    L     15,=V(SERCOM)                                            OBJS0004
          LA    1,&LIST                                                  OBJS0005
          BASR  14,15                                                    OBJS0006
          MEND                                                           OBJS0007
          START 0                                                        OBJS0008
 R6       EQU   6                                                        OBJS0009
 FIND     STM   14,12,12(13)       SAVE                                  OBJS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LASTL    DS    F                                                        OBJS0229
 SWITCH   DS    C                                                        OBJS0230
 COMS     DC    A(COM1S)                                                 OBJS0231
          DC    A(LLNQ)                                                  OBJS0232
          DC    A(MODC)                                                  OBJS0233
 LLNQ     DC    H'0'                                                     OBJS0234
 MVCC     MVC   FILLN(0),INCARD                                          OBJS0235
 COM1S    DC    C' ****FILE '                                            OBJS0236
 FILLN    DC    CL256' '                                                 OBJS0237
          END                                                            OBJS0238
-FILE 115;   373 RECORDS:  
0         TITLE 'SNOREF - A CROSS-REFERENCE PRODUCER'                    SNRF0001
 *                                                                       SNRF0002
 *                                                                       SNRF0003
 *EACH WORD IS STORED IN ONE OF 9 CHAINS OF SPECIFIERS WHICH ARE         SNRF0004
 *        ORDERED ALPHABETICALLY IN ASCENDING ORDER AND HAVE THE FORM:   SNRF0005
 *                                                                       SNRF0006
 *        ***********************                                        SNRF0007
 *        * P1 * P2 * L  * WORD *                                        SNRF0008
 *        ***********************                                        SNRF0009
 *                                                                       SNRF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OUTNUM   DS    D                                                        SNRF0364
 MOVE2    MVC   0(0,6),6(14)                                             SNRF0365
 MOVE3    MVC   0(0,6),0(1)                                              SNRF0366
 DASH     DC    C' - '                                                   SNRF0367
 TTAB     DC    X'00FFFFFFFFFFFFFFFFFF000000000000'                      SNRF0368
          LTORG                                                          SNRF0369
 ENDPTR   DC    X'0020'                                                  SNRF0370
 SLOPTRS  DC    11H'0'                                                   SNRF0371
 SLOPAREA DS    512D                                                     SNRF0372
          END                                                            SNRF0373
-FILE 116;    56 RECORDS:  
0ASMERR   CSECT                                                          ASMR0001
          TITLE 'SCANS F-LEVEL ASSEMBLER'S LISTING.'                     ASMR0002
          SVE                                                            ASMR0003
          LA    1,PAR              INITIALIZE REGISTERS.                 ASMR0004
          LA    10,1000(0,0)                                             ASMR0005
          LA    7,INOUT+34                                               ASMR0006
          LA    6,INOUT                                                  ASMR0007
 SCAN     MVI   MODIF+3,1          SET SEQUENTIAL MODIFIER.              ASMR0008
          BAL   11,SREAD           READ A RECORD.                        ASMR0009
          CLC   =C'** E',INOUT+11  IS PRECEEDING LINE IN ERROR?          ASMR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************   ASMR0047
 PAR      DC    A(INOUT)                                                 ASMR0048
          DC    A(COUNT)                                                 ASMR0049
          DC    A(MODIF)                                                 ASMR0050
          DC    A(LINE)                                                  ASMR0051
 MODIF    DC    F'0'                                                     ASMR0052
 INOUT    DS    20D                                                      ASMR0053
 LINE     DS    F                                                        ASMR0054
 COUNT    DS    H                                                        ASMR0055
          END   ASMERR                                                   ASMR0056
-FILE 117;   276 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                                                      DMOD0267
 RCNT     DS    H                                                        DMOD0268
 OCNT     DS    H                                                        DMOD0269
 RJNK     DS    F                                                        DMOD0270
 DSKSAV   DS    1F                                                       DMOD0271
 SAVA     DS    75D                                                      DMOD0272
          DS    12X           PRECEDE DSKA TO PUT THINGS ON BOUNDARY     DMOD0273
 DSKA     DS    3700X                                                    DMOD0274
          SPACE                                                          DMOD0275
          END                                                            DMOD0276
-FILE 118;   234 RECORDS:  
0DSKM     TITLE                 'DISK LIST MANAGEMENT PROGRAM'           DSKM0001
          SPACE 2                                                        DSKM0002
 *********************************************************************** DSKM0003
 *                                                                     * DSKM0004
 *              PROGRAM TO MODIFY DISK LIST IN MTS                     * DSKM0005
 *                                                                     * DSKM0006
 *********************************************************************** DSKM0007
          SPACE 2                                                        DSKM0008
          MACRO                                                          DSKM0009
 &LABL1   MESG  &LINE                                                    DSKM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CAREA    DS    64F                                                      DSKM0225
 SAVA     DS    200F                                                     DSKM0226
 *                                                                       DSKM0227
 *              TELLS ABOUT DSKAB ENTRIES                                DSKM0228
 *                                                                       DSKM0229
 VOLSER   EQU   18                                                       DSKM0230
 VOLID    EQU   24                                                       DSKM0231
 DTL      EQU   124                                                      DSKM0232
 *                                                                       DSKM0233
          END                                                            DSKM0234
-FILE 119;    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 120;   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 121;    32 RECORDS:  
0             DIMENSION A(1000)                                          COPY0001
       DIMENSION INNAME(4),OUTNAM(4)                                     COPY0002
       INTEGER FILES                                                     COPY0003
         PRINT 500                                                       COPY0004
  500    FORMAT('ENTER INPUT AND OUTPUT NAMES ON SEPARATE LINES')        COPY0005
       READ 200,INNAME,OUTNAM                                            COPY0006
 200   FORMAT(4A4)                                                       COPY0007
       CALL QGTUCB(INNAME,UCBIN)                                         COPY0008
       CALL QGTUCB(OUTNAM,UCBOUT)                                        COPY0009
         PRINT 600                                                       COPY0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          IF(J.GT.5)GO TO 3                                              COPY0023
        JJ=(INRL-1)/4+1                                                  COPY0024
        PRINT 400,(A(JJJ),JJJ=1,JJ)                                      COPY0025
  400    FORMAT(1H ,30A4)                                                COPY0026
  3       CONTINUE                                                       COPY0027
 2     CALL QCLOSE(0)                                                    COPY0028
       CALL QCNTRL('WTM',UCBOUT)                                         COPY0029
 10    CONTINUE                                                          COPY0030
       STOP                                                              COPY0031
       END                                                               COPY0032
-FILE 122;   374 RECORDS:  
0SNIF     TITLE 'PROGRAM TO EXAMINE FILE STORAGE CHARACTERISTICS'        FLSN0001
 FILESNIF START 0                                                        FLSN0002
          PRINT ON,NOGEN                                                 FLSN0003
          ENTER 5,SA=SAVEAREA                                            FLSN0004
          L     2,0(1)        GET THE PARAMETER ADCON                    FLSN0005
          LH    3,0(2)        GET THE PARAMETER LENGTH                   FLSN0006
          LTR   3,3           SEE IF THERE IS A PARAMETER                FLSN0007
          BZ    OLDBACK       BRANCH IF NOT                              FLSN0008
          STH   3,NAMELEN     SAVE THE LENGTH                            FLSN0009
          BCTR  3,0           SUBTRACT ONE FROM PARAMETER LENGTH         FLSN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          CCW   X'08',*-8,0,0 TIC BACK FOR MORE                          FLSN0365
          CCW   X'0E',BUFFER,X'20',140 AND FINALLY READ THE RECORD       FLSN0366
          LTORG                                                          FLSN0367
 HOLECNT  DS    F             NUMBER OF HOLES WE FOUND SO FAR            FLSN0368
 HOLEAREA DS    CL256         PLACE TO KEEP HOLE COUNTS                  FLSN0369
 WORKAREA DS    40D           STANDARD WORK AREA FOR FILE ROUTINES       FLSN0370
 BUFFER   DS    CL140         VTOC RECORD AREA FOR CALLS ON DSKOP        FLSN0371
          END   FILESNIF                                                 FLSN0372
 BUFFER   DS    CL140         VTOC RECORD AREA FOR CALLS ON DSKOP        FLSN0373
          END   FILESNIF                                                 FLSN0374
-FILE 123;   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 124;   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 125;  1366 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
 *                                                                       PRPL0008
 *                            MACRO DEFINITIONS                       *  PRPL0009
 *                                                                       PRPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 XDIG1  DC      C'0'                                                     PRPL1357
 XDIG2  DS      1C                                                       PRPL1358
        DC      C' TIMES THEIR ACTUAL VALUES'                            PRPL1359
 YCOM   DC      C'0 PRINTED VALUES OF Y ARE 1E'                          PRPL1360
 YSI    DC      C' '                                                     PRPL1361
 YDIG1  DC      C'0'                                                     PRPL1362
 YDIG2  DS      1C                                                       PRPL1363
        DC      C' TIMES THEIR ACTUAL VALUES'                            PRPL1364
        DS      10F                                                      PRPL1365
        END                                                              PRPL1366
-FILE 126;    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 127;   902 RECORDS:  
0PTPP     TITLE 'MTS PAPER TAPE PUNCH SUPPORT ROUTINES   ----   VERSION @PUNC0001
                30 DECEMBER 1967 (MODEM 1)'                              PUNC0002
          MACRO                                                          PUNC0003
 &SLB     ERMSG &WHAT,&RC                                                PUNC0004
          LCLA  &LNG,&LNG4,&LNG16                                        PUNC0005
 &LNG     SETA  K'&WHAT-1                                                PUNC0006
 &LNG4    SETA  &LNG+4                                                   PUNC0007
 &LNG16   SETA  &LNG+16                                                  PUNC0008
 &SLB     OI    FDUBS,DSRERR                                             PUNC0009
          MVC   PAD(&LNG),*+54  THE MESSAGE                              PUNC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        PUNC0893
 FDUBEL   DS    F             NOT PERTINENT                              PUNC0894
 FDUBIL   DS    F             INCREMENT                                  PUNC0895
 FDUBSR   DS    F             SUBROUTINE LOCATION                        PUNC0896
 FDUBSCR  DS    F             SCRATCH                                    PUNC0897
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             PUNC0898
 FDUBDS   DS    F             DEFAULT SWITCHES                           PUNC0899
 FDUBCH   DS    F             NOT PERTINENT                              PUNC0900
          EJECT                                                          PUNC0901
          END   TAPE                                                     PUNC0902
-FILE 128;   761 RECORDS:  
0TSK      TITLE 'ROUTINE TO DISPLAY TASK STATUS ON 2250'                 TSK00001
          MACRO                                                          TSK00002
 &NAME    IOREQ &CCW                                                     TSK00003
 &NAME    L     0,DEVICE                                                 TSK00004
          LA    1,&CCW                                                   TSK00005
          LA    2,RTNL                                                   TSK00006
          SVC   STIO                                                     TSK00007
          SVC   WAIT                                                     TSK00008
          MEND                                                           TSK00009
 PTASKS   CSECT                                                          TSK00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    AL2(GECFB)                                               TSK00752
 INPUT    DC    37C'  '            INPUT LINE                            TSK00753
 INITLEN  EQU   *-GDOA                                                   TSK00754
          DC    AL2(GSRT)                                                TSK00755
          DC    AL2(GTRU)                                                TSK00756
          DC    HL2'0'                                                   TSK00757
 **********************************************************************  TSK00758
          DS    800F               REMAINDER OF GDOA                     TSK00759
 GDOALEN  EQU   *-GDOA                                                   TSK00760
          END                                                            TSK00761
-FILE 129;    99 RECORDS:  
0PERM     TITLE 'PROGRAM TO SET ACCESS BITS IN FILES'                    PERM0001
          PRINT NOGEN                                                    PERM0002
 PERMIT   START 0                                                        PERM0003
          ENTER 12,SA=SA                                                 PERM0004
          L     2,0(0,1)                                                 PERM0005
          LTR   2,2                                                      PERM0006
          BZ    READ                                                     PERM0007
          LH    3,0(0,2)            SEE IF HE GAVE US PARAMS             PERM0008
          LTR   3,3                                                      PERM0009
          BZ    READ                NO -- GO READ FILE NAMES             PERM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 QUIT     EXIT  0                                                        PERM0090
 ERRACC   SERCOM 'ACCESS MUST BE "ALL", "RO", "NONE", OR "PRJNO"'        PERM0091
          B     READ                                                     PERM0092
 ROACC    LA    4,X'AC'                                                  PERM0093
          B     SET                                                      PERM0094
 IN       DS    CL100                                                    PERM0095
 INL      DS    H                                                        PERM0096
 FCBAI    EQU   36                                                       PERM0097
 SA       DS    18F                                                      PERM0098
          END                                                            PERM0099
-FILE 130;   101 RECORDS:  
0BNEB     TITLE 'SUBROUTINE TO CONVERT BINARY READ CARDS TO EBCD'        BNBC0001
 BINEBCD  START 0                                                        BNBC0002
          USING *,15                                                     BNBC0003
 BIN      EQU   1                      POINTER TO BINARY IMAGE           BNBC0004
 EBCD     EQU   2                      POINTER TO EBCD IMAGE             BNBC0005
          MVC   0(80,EBCD),SCRMBL      REARRANGE FIRST 40                BNBC0006
          TR    0(80,EBCD),0(BIN)                                        BNBC0007
          MVC   0(80,BIN),SCRMBL       REARRANGE LAST 40                 BNBC0008
          TR    0(80,BIN),80(BIN)                                        BNBC0009
          TR    0(40,EBCD),TOPTAB                                        BNBC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT          K | 1  BNBC0092
 TXT         <+	
ʊ.(|      BNBC0093
 TXT   y          ʉ    -/    ab c   ~s t   {AB C   \S T    BNBC0094
 TXT   \      	                                        BNBC0095
 TXT             321765498#:`"='@0TS/XWVUZ
Y,\BNBC0096
 TXT  &      ?>_%-LKJPONMRQ$!;)*}ts~xwvuzBNBC0097
 TXT  h      yޠ܂ӥ&CBAGFEDI	H.|+(<{cbaBNBC0098
 TXT  {      gfediʌhǯݍ lkjponmrqۮBNBC0099
 TXT  8      ؜ᴣ][^׫                    BNBC0100
 END                                                                    BNBC0101
-FILE 131;   985 RECORDS:  
0TAPE     TITLE 'MTS TAPE SUPPORT ROUTINES (NON-RESIDENT)  ---  VERSION @TAPE0001
                15 OCTOBER 1968 (SYSTEM RELEASE # 1)'                    TAPE0002
          MACRO                                                          TAPE0003
 &SLB     ERMSG &WHAT,&RC                                                TAPE0004
          LCLA  &LNG                                                     TAPE0005
 &LNG     SETA  K'&WHAT-2                                                TAPE0006
 &SLB     STM   R1,R5,ERMSGSA      SAVE REGISTERS FOR POP                TAPE0007
          BAL   R5,ERMSG           SUBROUTINE TO PROCESS THEM            TAPE0008
          DC    AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE                        TAPE0009
          SPACE 1                                                        TAPE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        TAPE0976
 FDUBEL   DS    F             NOT PERTINENT                              TAPE0977
 FDUBIL   DS    F             INCREMENT                                  TAPE0978
 FDUBSR   DS    F             SUBROUTINE LOCATION                        TAPE0979
 FDUBSCR  DS    F             SCRATCH                                    TAPE0980
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             TAPE0981
 FDUBDS   DS    F             DEFAULT SWITCHES                           TAPE0982
 FDUBCH   DS    F             NOT PERTINENT                              TAPE0983
          EJECT                                                          TAPE0984
          END   TAPE                                                     TAPE0985
-FILE 132;    82 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)                                            REW#0009
          ST    3,FDUBCL(0,2)                                            REW#0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 EOF2 SPRINT 'EOF 2'                                                     REW#0073
  EXIT 0                                                                 REW#0074
  END                                                                    REW#0075
  WRITE FDUB,'REW',@CC                                                   REW#0076
  B LEAVE                                                                REW#0077
 FDUB DS F                                                               REW#0078
 SA DS 18F                                                               REW#0079
 FDUBBL EQU 8                                                            REW#0080
 FDUBCL EQU 12                                                           REW#0081
  END                                                                    REW#0082
-FILE 133;   147 RECORDS:  
0SYM              GUINFO  CUINFOB  COM     NBR  uBCD  LOOPB GUIN0001
 SYM            }RC4   C  RC12     UGET RTNFWB OUT    TGUIN0002
 SYM           YPE16 ISBYTE ADDONLY %EXTABg @TABLENDAD PATGUIN0003
 SYM           CH  a }SW   Jf MLASTJBAD QTABLE   h QH GUIN0004
 SYM              h \  h YH    h 0  h 8H    h   GUIN0005
 SYM            h H    h   h H    h   h åH GUIN0006
 SYM              h   h H    h    h H <   h &  GUIN0007
 SYM           h H *   h -  H   h H @   h   h GUIN0008
 SYM           hH ݥ   h   h qH    h   H y  h GUIN0009
 SYM           H    h {  H H  h QH    h \  h YH GUIN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                                GUIN0138
 TXT                                    CUMDISK                 GUIN0139
 TXT  y        d  GLOBCPUT                  h  GLOBPGS         GUIN0140
 TXT  \                                                  GLOBPCH GUIN0141
 TXT                          m  LOCCPUT                   q  GUIN0142
 TXT  &      LOCPGS                      LOCPCH                  GUIN0143
 TXT  h          GLOBTTN                     LOCTTN          GUIN0144
 TXT                                                     GUIN0145
 RLD              @   M                                        GUIN0146
 END                                                                    GUIN0147
-FILE 134;   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 135;   757 RECORDS:  
0PDS      TITLE ' ROUTINE TO PUNCH/PRINT A PDS'                          PDS00001
 *********************************************************************** PDS00002
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* PDS00003
 *        VITAL MESSAGES FROM THE DIRECTORY RECORD FOR LOAD MODS.        PDS00004
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* PDS00005
 *********************************************************************** PDS00006
          SPACE 5                                                        PDS00007
 PDSDSECT DSECT                                                          PDS00008
 LTH      DS    H                  LENGTH OF DIR. RECORD                 PDS00009
 IND1     DS    X                  INDICATOR - WHAT KIND OF RECORD       PDS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          PDS00748
 ID#TBL   DC    75H'0'                                                   PDS00749
          SPACE 5                                                        PDS00750
 PATCH    DS    20F                                                      PDS00751
          LTORG                                                          PDS00752
 TXTESDID DC    H'0'                                                     PDS00753
 TXTBLKAD DC    A(0)                                                     PDS00754
 TXTBLKLG DC    H'0'                                                     PDS00755
 TXTBLK   DS    XL1024                                                   PDS00756
          END   PDSPNCH#                                                 PDS00757
-FILE 136;   205 RECORDS:  
0BLKS     TITLE '     ROUTINE TO EXTRACT VAR. BLKS FROM IEHMOVE TAPE'    BLKS0001
 *********************************************************************** BLKS0002
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* BLKS0003
 *        FILES NOW SUPPORTED BY THIS PROGRAM:                           BLKS0004
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* BLKS0005
 *********************************************************************** BLKS0006
          SPACE 15                                                       BLKS0007
 *                                                                       BLKS0008
 *              SCARDS - CONTROL STATEMENTS PROVIDED BY THE USER.        BLKS0009
 *                                 IF NONE, DEFAULTS WILL BE ASSUMED.    BLKS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ZERO     DC    F'0'               UNIT NUMBER.                          BLKS0196
 SCRATCH  DS    78C                                                      BLKS0197
 ATAPRTN  DC    A(TAPRTN)                                                BLKS0198
 H078     DC    H'78'                                                    BLKS0199
 EXMOVE   MVC   0(*-*,2),0(7)      REMOTE INSTRUCTION                    BLKS0200
 BLKPTR   DC    F'0'               START WITH ZERO, REMEMBER.            BLKS0201
 SA#0     DS    18F                SAVE AREA FOR THIS ROUTINE            BLKS0202
 SA#1     DS    18F                SAVE AREA FOR ASK AND BLKRTN.         BLKS0203
 BLK      DS    X                  AIN'T THERE IS SOMEWHERE ELSE.        BLKS0204
          END                                                            BLKS0205
-FILE 137;    39 RECORDS:  
0WIPE     TITLE '                  ROUTINE TO CLEAN OFF NON-PRINTABLE CH?WIPE0001
                ARACTERS'                                                WIPE0002
 CLEAN##  CSECT                                                          WIPE0003
        ENTRY   CLEAN                                                    WIPE0004
 CLEAN    STM   14,12,12(13)                                             WIPE0005
          LR    10,15                                                    WIPE0006
          L     15,0(1)            GET ADDR                              WIPE0007
          USING CLEAN,10                                                 WIPE0008
        L       1,4(1)                                                   WIPE0009
        L       1,0(1)                                                   WIPE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        DC      C'ABCDEFGHI'                                             WIPE0030
        ORG     TABLE+C'J'                                               WIPE0031
        DC      C'JKLMNOPQR'                                             WIPE0032
        ORG     TABLE+C'S'                                               WIPE0033
        DC      C'STUVWXYZ'                                              WIPE0034
        ORG     TABLE+C'0'                                               WIPE0035
        DC      C'0123456789'                                            WIPE0036
        ORG                                                              WIPE0037
 EXTR   TR      0(*-*,15),TABLE                                          WIPE0038
        END                                                              WIPE0039
-FILE 138;   127 RECORDS:  
0MOVE     TITLE  '    AN MTS PROGRAM TO STIMULATE IHEMOVE '              MOVE0001
 IEHMOVE  CSECT                                                          MOVE0002
          SPACE 5                                                        MOVE0003
 PDSDSECT DSECT                                                          MOVE0004
 LTH      DS    H                  LENGTH OF DIR. RECORD                 MOVE0005
 IND1     DS    X                  INDICATOR - WHAT KIND OF RECORD       MOVE0006
 TTR      DS    3X                 TTR                                   MOVE0007
 NAME     DS    CL8                NAME                                  MOVE0008
          SPACE 5                                                        MOVE0009
 TTRSW    EQU   X'80'              3-BYTE TTR FOLLOWS                    MOVE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CARD     DC    CL80' '                                                  MOVE0118
 H080     DC    H'80'                                                    MOVE0119
 JUNK     DC    F'0'                                                     MOVE0120
 Z        DC    F'0'                                                     MOVE0121
 PDS      DC    XL80'0'                                                  MOVE0122
          CNOP  2,4                                                      MOVE0123
 BLOCK    DS    CL4000             BLOCK FACTOR 50 **************        MOVE0124
 RECORD   EQU   BLOCK+6                                                  MOVE0125
 PATCH    DS    25F                                                      MOVE0126
          END   IEHMOVE                                                  MOVE0127
-FILE 139;   274 RECORDS:  
0TMSR     TITLE 'TAPE MOVEMENT SUBROUTINES'                              TMSR0001
 TPSUBR   START 0                                                        TMSR0002
          ENTRY WTM                     WRITE TAPE MARK                  TMSR0003
          ENTRY ERG                     ERASE RECORD GAP                 TMSR0004
          ENTRY FSR                      FORWARD SPACE RECORD            TMSR0005
          ENTRY BSR                     BACKSPACE RECORD                 TMSR0006
          ENTRY BSF                     BACKSPACE FILE                   TMSR0007
          ENTRY FSF                      FORWARD SPACE FILE              TMSR0008
          ENTRY REW                REWIND                                TMSR0009
          ENTRY RUN                REWIND AND UNLOAD                     TMSR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TABB     CCW   X'2B',*,X'40',1          REC BACK 200                    TMSR0265
          CCW   X'27',*,0,1                                              TMSR0266
          CCW   X'6B',*,X'40',1          REC BACK 556                    TMSR0267
          CCW   X'27',*,0,1                                              TMSR0268
          CCW   X'AB',*,X'40',1          REC BACK 800                    TMSR0269
          CCW   X'27',*,0,1                                              TMSR0270
 SAVE     EQU   8                                                        TMSR0271
 DELETE   EQU   10                                                       TMSR0272
 BASADD   DC    A(BASE)                                                  TMSR0273
      END                                                                TMSR0274
-FILE 140;    92 RECORDS:  
0SSAV     TITLE 'PROGRAM TO SAVE *STATISTICS'                            STSV0001
 STATSAV  START 0                                                        STSV0002
          ENTER 12,SA=SA                                                 STSV0003
          SPRINT 'WHAT TAPE IS TO BE USED?'                              STSV0004
 RDTP     SCARDS IN,INL,EXIT=RDTP                                        STSV0005
          LA    1,IN                 TRY TO GET TAPE                     STSV0006
          AH    1,INL               BUT PUT A BLANK AT END               STSV0007
          MVI   0(1),C' '                                                STSV0008
          LA    1,IN                                                     STSV0009
          L     15,=V(GETFD)                                             STSV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SA       DS    18F                                                      STSV0083
 LOCK     EQU   58          SVC TO SET LOCK                              STSV0084
 UNLOCK   EQU   59          SVC TO RESET LOCK                            STSV0085
 ACCTLOCK EQU   1                                                        STSV0086
 COMPARE  CLC   IN(0),IN2                                                STSV0087
 INL      DS    H                                                        STSV0088
 IN2L     DS    H                                                        STSV0089
 IN       DS    CL256                                                    STSV0090
 IN2      DS    CL256                                                    STSV0091
          END                                                            STSV0092
-FILE 141;   135 RECORDS:  
0      /*    PROGRAM TO DO SOMETHING FOR IEBUPDAT INPUT */               IEBU0001
                                                                         IEBU0002
 UPDATE:     PROCEDURE OPTIONS(MAIN);                                    IEBU0003
       DCL                                                               IEBU0004
             INTAPE INPUT FILE RECORD ENV(LEAVE),                        IEBU0005
             OUTTAPE OUTPUT FILE RECORD ENV(LEAVE),                      IEBU0006
             DATA FILE INPUT RECORD,                                     IEBU0007
             (BUFFER,WHAT) CHAR(80) INIT ((80)' '),                      IEBU0008
             (FRSTNR,LASTNR,MEMBR,TEST) CHAR(8),                         IEBU0009
             ID CHAR(8) DEFINED BUFFER POS(73),                          IEBU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                   COUNT = COUNT + INCR;                                 IEBU0126
                   NEW_ID = COUNT;                                       IEBU0127
                   SUBSTR(X,73,8) = NEW_ID;                              IEBU0128
                   END;                                                  IEBU0129
             SCREW = X;                                                  IEBU0130
             WRITE FILE(OUTTAPE) FROM (SCREW);                           IEBU0131
             RETURN;                                                     IEBU0132
                   END PUTOUT;                                           IEBU0133
                                                                         IEBU0134
                                        END UPDATE;                      IEBU0135
-FILE 142;   333 RECORDS:  
0ROSS     TITLE 'PROGRAM TO PROCESS ROSS TAPES FROM TEXT90'              RSPR0001
          MACRO                                                          RSPR0002
 &SL      GET   &NAME                                                    RSPR0003
 &SL      SCARDS INREG,DCBLRECL,EXIT=DONE                                RSPR0004
          LA    1,INREG                                                  RSPR0005
          MEND                                                           RSPR0006
          SPACE 3                                                        RSPR0007
          MACRO                                                          RSPR0008
 &SL      PUT   &NAME                                                    RSPR0009
 &SL      TM    POPEN,X'01'                                              RSPR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TAPEPL   DC    F'0'                                                     RSPR0324
          DC    A(TAPEND)                                                RSPR0325
          DC    V(TPRDUC)                                                RSPR0326
 TAPEND   SVC   8                   SAVE                                 RSPR0327
          SVC   10                  DELEDE                               RSPR0328
          B     DONE                                                     RSPR0329
 POPEN    DC    F'0'                SPWITCHES FOR PRINTER                RSPR0330
          EJECT                                                          RSPR0331
          SPACE 10                                                       RSPR0332
          END                                                            RSPR0333
-FILE 143;   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 144;   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 145;   556 RECORDS:  
0$RUN *ASMBLR 2=PSYSMAC 0=*SYSMAC 1=CCQUEUE PAR=FULLXREF,LOAD,TEST,BATCH,CCQ00001
 ,NODECK                                                                 CCQ00002
 CCQ      TITLE '*** CALCOMP BATCH BROCESSING QUEUEING PROGRAM ***'      CCQ00003
          SPACE 4                                                        CCQ00004
 *********************************************************************** CCQ00005
 *                                                                     * CCQ00006
 *        *CCQUEUE - INVOKED BY $RUN WITH PAR=PLOT FILE CHAIN          * CCQ00007
 *                 - ASSIGNS PLOT RECEIPT #                            * CCQ00008
 *                 - AT TERMINAL:                                      * CCQ00009
 *                   (1) PRINTS PLOT TIME.                             * CCQ00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DWB      TITLE '*** DWB DUMMY ***'                                      CCQ00547
 GUINFO   START 0                                                        CCQ00548
          ENTRY CUINFO                                                   CCQ00549
          USING *,15                                                     CCQ00550
          ST    1,12(13)                                                 CCQ00551
          L     1,4(0,1)           S8 BUFFER                             CCQ00552
          MVC   0(8,1),=C'999999  '                                      CCQ00553
          L     1,12(13)                                                 CCQ00554
 CUINFO   BR    14                                                       CCQ00555
          END                                                            CCQ00556
-FILE 146;   195 RECORDS:  
0$RUN *ASMBLR 2=PSYSMAC 0=*SYSMAC 1=CCPOST         PAR=FULLXREF,LOAD,BATCCPST0001
 SIZE=60                                                                 CPST0002
 UPST     TITLE '*** CCPOST - USER PLOT TAPE POST PROCESSOR ***'         CPST0003
          SPACE 4                                                        CPST0004
 *********************************************************************** CPST0005
 *                                                                     * CPST0006
 *        GRAPHICS DATA BASE TO CALCOMP PLOT TAPE POST PROCESSOR       * CPST0007
 *        FOR USER SCRATCH TAPE GENERATION.                            * CPST0008
 *        INVOKED BY:                                                  * CPST0009
 *        $RUN *CCPOST SCARDS=PFILECHAIN PAR=KEYWORDLIST               * CPST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 KEYPAR   DC    A(LHTL,LHT,EXTAB)                                        CPST0186
 TEXT     DC    A(BUFF)            THIS IS INITIALIZED & UPDATED.        CPST0187
          DC    A(RHT)                                                   CPST0188
 *                                                                       CPST0189
 EXTAB    BAL   11,TIMSET          0                                     CPST0190
          BAL   11,FDNSET          4                                     CPST0191
          NOP   0                  8                                     CPST0192
 *                                                                       CPST0193
          END                                                            CPST0194
 $ENDFILE                                                                CPST0195
-FILE 147;   293 RECORDS:  
0$RUN *ASMBLR 2=PSYSMAC 0=*SYSMAC 1=CCSPOST         PAR=FULLXREF,LOAD,BATCCP00001
 ,SIZE=60                                                                CCP00002
 CPST     TITLE '*** SYSTEM CALCOMP BATCH POST PROCESSOR ***'            CCP00003
          SPACE 4                                                        CCP00004
 *********************************************************************** CCP00005
 *                                                                     * CCP00006
 *        SYSTEM CALCOMP BATCH POST-PROCESSOR                          * CCP00007
 *             (1) HAS ENTENDABLE TAIL END                             * CCP00008
 *             (2) HANDLES ATTENTIONS ON THE LOCK BYTE                 * CCP00009
 *             (3) PRODUCES PLOT STATISTICS                            * CCP00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    V(BMLOCK)                                                CCP00284
 DBUFF    DS    D                                                        CCP00285
 EDPAT    DC    X'402020202120'                                          CCP00286
 PROTON   EQU   26                                                       CCP00287
 PROOF    EQU   34                                                       CCP00288
 WAYT     EQU   35                                                       CCP00289
 RJBBUF   EQU   X'44'                                                    CCP00290
 MTSPCSWT EQU   X'C0'                                                    CCP00291
          END                                                            CCP00292
 $ENDFILE                                                                CCP00293
-FILE 148;  4216 RECORDS:  
0$RUN *FORTRAN          PAR=SML,LOAD,DECK                                PLTS0001
       SUBROUTINE PELIPS(X0,Y0,A1,B1,ALPHA,THETA0,THETAF,SC)             PLTS0002
 C      CAN ONLY BE USED WRT A LINEAR COORD SYSTEM                       PLTS0003
 C      A LINEAR COORDINATE SYSTEM IS ASSUMED.                           PLTS0004
       REAL*8 SUBNAM                                                     PLTS0005
       DATA SUBNAM/'PELIPS  '/                                           PLTS0006
       CALL PLFSPL(SUBNAM)                                               PLTS0007
       TYPE=PLTTYP(0)                                                    PLTS0008
       ALP = ALPHA/57.2958                                               PLTS0009
       THE0 = THETA0 / 57.2958                                           PLTS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    F'0'                                                     PLTS4207
          DC    F'-1'                                                    PLTS4208
 NMB      DC    F'1'                                                     PLTS4209
          DC    F'0'                                                     PLTS4210
          DC    F'-1'                                                    PLTS4211
 IV       DS    F                                                        PLTS4212
 ADDPCC   DC    A(#PLOTCC)         A GOOD ADCON                          PLTS4213
 SLND     DS    C                                                        PLTS4214
          END                                                            PLTS4215
 $ENDFILE                                                                PLTS4216
-FILE 149;   770 RECORDS:  
0$RUN *ASMBLR 2=PSYSMAC 0=*SYSMAC 1=PCPS           PAR=FULLXREF,LOAD,BATCCPCR0001
 SIZE=60,NODECK                                                          CPCR0002
 PCPS     TITLE '*** PLOTCC ET. AL. FOR POST PROCESSING ***'             CPCR0003
 *********************************************************************** CPCR0004
 *                                                                     * CPCR0005
 *        PLOTCC(X,Y,IC), PENDN(X,Y), PENUP(X,Y)                         CPCR0006
 *        FOR POST-PROCESSING                                          * CPCR0007
 *        PORGUP(X,Y) <=> PLOTCC(X,Y,23)  I.E., RESET ORIGIN.            CPCR0008
 *                                                                     * CPCR0009
 *********************************************************************** CPCR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** CPCR0761
 *                                                                     * CPCR0762
 *        PLOT TAPE BUFFER                                             * CPCR0763
 *                                                                     * CPCR0764
 *********************************************************************** CPCR0765
          SPACE 1                                                        CPCR0766
 #PBUFF   CSECT                                                          CPCR0767
 PBUFF    DS    CL8192                                                   CPCR0768
          END                                                            CPCR0769
 $ENDFILE                                                                CPCR0770
-FILE 150;    16 RECORDS:  
0CALL     10                                                             PMAC0001
 CALLS    20                                                             PMAC0002
 00000000                                                                PMAC0003
          MACRO                                                          PMAC0004
 &L1      CALL  &SNAM,&PLST                                              PMAC0005
          CNOP  0,4                 FORCE FULL WORD ALIGNMENT            PMAC0006
 &L1      BAL   1,C&SYSNDX                                               PMAC0007
          DC    A&PLST                                                   PMAC0008
 C&SYSNDX L     15,=V(&SNAM)                                             PMAC0009
          BALR  14,15                                                    PMAC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MEND                                                           PMAC0011
          MACRO                                                          PMAC0012
 &L1      CALLS &SNAM                                                    PMAC0013
 &L1      L     15,=V(&SNAM)                                             PMAC0014
          BALR  14,15                                                    PMAC0015
          MEND                                                           PMAC0016
-FILE 151;   130 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'                                               FRCP0121
          DC    A(GUSER)                                                 FRCP0122
 F1       DC    F'1'                                                     FRCP0123
 MOVNAM   MVC   CPYNAM(0),0(1)                                           FRCP0124
 CPYPAR   DC    A(CPYLNG)                                                FRCP0125
 SP1      DC    A(0)                                                     FRCP0126
 SP13     DC    A(0)                                                     FRCP0127
 GET1     DS    A                                                        FRCP0128
 MVCLIN   MVC   0(0,4),0(5)                                              FRCP0129
          END                                                            FRCP0130
-FILE 152;  2699 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   *                                                        TSFO2690
 PSTCCW   DS    (PSTCCWL/8)D                                             TSFO2691
 WRTCCW   DS    3D                                                       TSFO2692
 WRITCCW  DS    (WRITCCWL/8)D                                            TSFO2693
 SNSCCW   DS    (SNSCCWL/8)D                                             TSFO2694
 NEWCCW   DS    2D                                                       TSFO2695
 RTNLST   DS    (RTNLSTL/4)F                                             TSFO2696
 TABCHAR  DS    C                                                        TSFO2697
 PSECTL   EQU   *-PSCT                                                   TSFO2698
          END                                                            TSFO2699
-FILE 153;  2701 RECORDS:  
0**********************************************************************  UTSF0001
 *                                                                    *  UTSF0002
 *                                                                    *  UTSF0003
 *        MTS TERMINAL ROUTINES FOR:                                  *  UTSF0004
 *              1. TELETYPES (MODEL 33 AND MODEL 35)                  *  UTSF0005
 *              2. IBM 2741                                           *  UTSF0006
 *              3. IBM 1050 (INCLUDING CARD READER)                   *  UTSF0007
 *              4. FRIDEN FLEXOWRITER                                 *  UTSF0008
 *                                                                    *  UTSF0009
 *                                                                    *  UTSF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 WRUCCW   EQU   *                                                        UTSF2692
 PSTCCW   DS    (PSTCCWL/8)D                                             UTSF2693
 WRTCCW   DS    3D                                                       UTSF2694
 WRITCCW  DS    (WRITCCWL/8)D                                            UTSF2695
 SNSCCW   DS    (SNSCCWL/8)D                                             UTSF2696
 NEWCCW   DS    2D                                                       UTSF2697
 RTNLST   DS    (RTNLSTL/4)F                                             UTSF2698
 TABCHAR  DS    C                                                        UTSF2699
 PSECTL   EQU   *-PSCT                                                   UTSF2700
          END                                                            UTSF2701
-FILE 154;    19 RECORDS:  
0CASECONV START 0                                                        CCNV0001
 CASE     TITLE ' UPPERCASE CONVERSION TRANSLATE TABLE '                 CCNV0002
          DC    X'000102030405060708090A0B0C0D0E0F'       00...0F        CCNV0003
          DC    X'101112131415161718191A1B1C1D1E1F'       10...1F        CCNV0004
          DC    X'202122232425262728292A2B2C2D2E2F'       20...2F        CCNV0005
          DC    X'303132333435363738393A3B3C3D3E3F'       30...3F        CCNV0006
          DC    X'404142434445464748494A4B4C4D4E4F'       40...4F        CCNV0007
          DC    X'505152535455565758595A5B5C5D5E5F'       50...5F        CCNV0008
          DC    X'606162636465666768696A6B6C6D6E6F'       60...6F        CCNV0009
          DC    X'707172737475767778797A7B7C7D7E7F'       70...7F        CCNV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'       80...8F        CCNV0011
          DC    X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'       90...9F        CCNV0012
          DC    X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'       A0...AF        CCNV0013
          DC    X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'       B0...BF        CCNV0014
          DC    X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'       C0...CF        CCNV0015
          DC    X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'       D0...DF        CCNV0016
          DC    X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'       E0...EF        CCNV0017
          DC    X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'       F0...FF        CCNV0018
          END                                                            CCNV0019
-FILE 155;  1337 RECORDS:  
0MNT      TITLE '*MOUNT - FOR MOUNTING PRIVATE VOLUMES AND ALLOCATING DE@MNT00001
                VICES (VERSION UN248)'                                   MNT00002
 *********************************************************************** MNT00003
 *                                                                     * MNT00004
 *              MACROS TO GENERATE KWIC RHS AND LHS TABLES             * MNT00005
 *                                                                     * MNT00006
 *********************************************************************** MNT00007
          MACRO                                                          MNT00008
 &SLB     LHS   &X,&Y,&Z                                                 MNT00009
          LCLA  &LNG                                                     MNT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RETRY    EQU   X'01'         SEND RETRY MESSAGE TO PTPP                 MNT01328
 RETRYON  EQU   X'02'         FORCE RETRIES ON IF SET, OFF IF NOT        MNT01329
 SIZE     EQU   X'08'         SET RECORD LENGTH OF MOUNTED DEVICE        MNT01330
 TABL     EQU   X'10'         SET TRANSLATE TABLE FOR NEW DEVICE         MNT01331
 EOR      EQU   X'20'         SET END OF RECORD SEQUENCE FOR DEVICE      MNT01332
 *                                                                       MNT01333
 DEVCODE  DS    XL1           DEVICE CODE                                MNT01334
 PSECTL#  EQU   *-PSECT#                                                 MNT01335
 PSECTL   EQU   *-PSECT       LENGTH OF BEASTIE                          MNT01336
          END                                                            MNT01337
-FILE 156;    11 RECORDS:  
0DMNT     TITLE  'LIBRARY SUBROUTINE INTERFACE FOR *DISMOUNT '           DSMN0001
 DISMOUNT CSECT                                                          DSMN0002
          USING *,15                                                     DSMN0003
          ST    1,USERPAR          PARAMETERS FOR DISMOUNT               DSMN0004
          LA    1,PARS             PARAMETERS FOR CALL TO LINK           DSMN0005
          L     15,=V(LINK)        GET *DISMOUNT                         DSMN0006
          BR    15  BRANCH DIRECTLY TO LINK (RETURNS TO CALLING PROGRAM) DSMN0007
 PARS     DC    A(CDMNT,0)                                               DSMN0008
 USERPAR  DS    F   PARAMETER LIST FOR SUBROUTNE                         DSMN0009
 CDMNT    DC    C'*DISMOUNT '                                            DSMN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          END                                                            DSMN0011
-FILE 157;    11 RECORDS:  
0MNT      TITLE  'LIBRARY SUBROUTINE INTERFACE FOR *MOUNT'               MNT00001
 MOUNT    CSECT                                                          MNT00002
          USING *,15                                                     MNT00003
          ST    1,USERPAR          PARAMETERS FOR MOUNT                  MNT00004
          LA    1,PARS             PARAMETERS FOR CALL TO LINK           MNT00005
          L     15,=V(LINK)        GET *MOUNT                            MNT00006
          BR    15  BRANCH DIRECTLY TO LINK (RETURNS TO CALLING PROGRAM) MNT00007
 PARS     DC    A(CMOUNT,0)                                              MNT00008
 USERPAR  DS    F   PARAMETER LIST FOR SUBROUTNE                         MNT00009
 CMOUNT   DC    C'*MOUNT '                                               MNT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          END                                                            MNT00011
-FILE 158;   623 RECORDS:  
0PTPR     TITLE 'MTS PAPER TAPE READER SUPPORT ROUTINES   ---   VERSION @RDR00001
                28 MARCH 1968 (MODEM 2)'                                 RDR00002
          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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 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   TAPE                                                     RDR00623
-FILE 159;   249 RECORDS:  
0ACAT     TITLE 'SUBROUTINE TO FIND OUT HOW MUCH DISK A USER HAS'        10CT0001
 ACATALOG START 0                                                        10CT0002
          SPACE 3                                                        10CT0003
 *        ENTRY POINT                                                    10CT0004
          USING *,12                                                     10CT0005
          STM   14,12,12(13)                                             10CT0006
          LR    12,15                                                    10CT0007
          ST    13,SA                                                    10CT0008
          ST    0,UID    SAVE USER ID                                    10CT0009
          LA    11,VOLUMES-6    POINTER TO LAST VOLUME LOOKED AT         10CT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PUNTM    DC    C'PUNT'                                                  10CT0240
 PUNTC    DC    H'4'                                                     10CT0241
          SPACE                                                          10CT0242
          LTORG                                                          10CT0243
          SPACE                                                          10CT0244
          CNOP  0,8                                                      10CT0245
 CARD     DS    256C                                                     10CT0246
 FCB      DS    70F                                                      10CT0247
 SCR      DS    250F                                                     10CT0248
          END                                                            10CT0249
-FILE 160;   245 RECORDS:  
0ACAT     TITLE 'SUBROUTINE TO FIND OUT HOW MUCH DISK A USER HAS'        6CAT0001
 ACATALOG START 0                                                        6CAT0002
          SPACE 3                                                        6CAT0003
 *        ENTRY POINT                                                    6CAT0004
          USING *,12                                                     6CAT0005
          STM   14,12,12(13)                                             6CAT0006
          LR    12,15                                                    6CAT0007
          ST    13,SA                                                    6CAT0008
          ST    0,UID    SAVE USER ID                                    6CAT0009
          LA    11,VOLUMES-6    POINTER TO LAST VOLUME LOOKED AT         6CAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PUNTM    DC    C'PUNT'                                                  6CAT0236
 PUNTC    DC    H'4'                                                     6CAT0237
          SPACE                                                          6CAT0238
          LTORG                                                          6CAT0239
          SPACE                                                          6CAT0240
          CNOP  0,8                                                      6CAT0241
 CARD     DS    256C                                                     6CAT0242
 FCB      DS    70F                                                      6CAT0243
 SCR      DS    250F                                                     6CAT0244
          END                                                            6CAT0245
-FILE 161;   100 RECORDS:  
0SORT START 0                                                            SORT0001
  EXTRN SPRINT                                                           SORT0002
  ENTER 12,SA=SA                                                         SORT0003
  LA 0,5                                                                 SORT0004
  LA 2,=C'MTS009'                                                        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')                                                         SORT0091
 OUT DC CL10' '                                                          SORT0092
 TBL DC C'0123456789ABCDEF'                                              SORT0093
  LTORG                                                                  SORT0094
 SCR DS 50D                                                              SORT0095
 TI DS XL8,(3512/16)XL16                                                 SORT0096
  DS D                                                                   SORT0097
 AREA DS (50*3520/8)XL8                                                  SORT0098
 ENDA EQU *-1                                                            SORT0099
  END                                                                    SORT0100
-FILE 162;    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 163;   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 164;   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 165;    90 RECORDS:  
0COPI     TITLE 'JOB TO PRINT MIXED CC OUTPUT'                           COPY0001
 COPIES   START 0                                                        COPY0002
          USING *,12                                                     COPY0003
          LR    12,15                                                    COPY0004
          L     1,0(1)                                                   COPY0005
          LH    5,0(1)                                                   COPY0006
          LA    10,1                                                     COPY0007
          LTR   5,5                                                      COPY0008
          BZ    LOOP                                                     COPY0009
 *                                                                       COPY0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LNR      DC    F'0'                                                     COPY0081
 LNR1     DC    F'1000'                                                  COPY0082
 COPSW    DC    X'00'                                                    COPY0083
 *                                                                       COPY0084
 MCCL     DC    X'0101010100000000'                                      COPY0085
          DC    X'0000000000000000'                                      COPY0086
          DC    X'0001010101010101'                                      COPY0087
          DC    X'0001000101000000'                                      COPY0088
          SPACE 3                                                        COPY0089
          END                                                            COPY0090
-FILE 166;   167 RECORDS:  
0         TITLE 'WATFOR UPDATER'                                         UNUP0001
 *                                                                       UNUP0002
 *        UNIT 5 CONTAINS CURRENT WATFOR SOURCE                          UNUP0003
 *        UNIT 6 CONTAINS ORIGINAL WATFOR SOURCE WITH UPDATE-TYPE ID     UNUP0004
 *        PROGRAM PRODUCES UPDATE CONTROL CARDS ON *PUNCH*               UNUP0005
 *                                                                       UNUP0006
 *                                                                       UNUP0007
 *                                                                       UNUP0008
          MACRO                                                          UNUP0009
 &LABEL   CMP   &N                                                       UNUP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BEFORE   DC    CL80'%BEFORE'                                            UNUP0158
 CARD     DS    CL80                                                     UNUP0159
 OPTR     DS    A                                                        UNUP0160
 NPTR     DS    A                                                        UNUP0161
 LASTID   DS    CL8                                                      UNUP0162
 *                                                                       UNUP0163
          LTORG                                                          UNUP0164
 XNEW     DS    200000C                                                  UNUP0165
 XOLD     DS    200000C                                                  UNUP0166
          END                                                            UNUP0167
-FILE 167;  1254 RECORDS:  
0TCLS     TITLE 'TYPE T CLOSE ROUTINE FOR DASD BSAM IN MTS'              BSAM0001
 *        ROUTINE TO HANDLE A TYPE T CLOSE FOR BSAM DATA SETS IN MTS.    BSAM0002
 *        CURRENTLY THIS SUPPORTS ONLY DASD.                             BSAM0003
 *        THE CALLING SEQUENCE IS THE SAME AS IN OS.  "LEAVE" AND        BSAM0004
 *        "REREAD" ARE SUPPORTED AND THE TYPE 1 DSCB IS UPDATED TO       BSAM0005
 *        INDICATE THE LAST TRACK USED.                                  BSAM0006
          SPACE                                                          BSAM0007
 TCLOSE   CSECT                                                          BSAM0008
          COPY  BSAMEQU                                                  BSAM0009
          EJECT                                                          BSAM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                LE'                                                      BSAM1245
 ERLST    DC    A(*+14)                                                  BSAM1246
          DC    A(*+8)                                                   BSAM1247
          DC    A(ZERO)                                                  BSAM1248
          DC    H'16'                                                    BSAM1249
          DC    C'ERROR IN "BOPEN"'                                      BSAM1250
 FMSK     DC    X'58'                                                    BSAM1251
 BLNK     DC    CL8' '                                                   BSAM1252
          LTORG                                                          BSAM1253
          END                                                            BSAM1254
-FILE 168;  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 169;  1090 RECORDS:  
0TP       TITLE 'TAPE TO PRINTER AND PUNCH'                              **TP0001
 TP       START 0                                                        **TP0002
          EXTRN PUNUC                                                    **TP0003
          EXTRN TPRDUC                                                   **TP0004
          EXTRN PTRUC                                                    **TP0005
          ENTRY TRANTB                                                   **TP0006
          ENTRY CCTB,CCTBTR,CCTBP                                        **TP0007
          SPACE 3                                                        **TP0008
 *        JOB HEADER                                                     **TP0009
          DC    A(TPBEG)                                                 **TP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TERM     DC    C' CARD 00000 OF JOB 000000 PUNCHED FROM RECORD WITH '   **TP1081
 TPERC    DC    C'TAPE ERROR'                                            **TP1082
 TERL     EQU   *-TERM                                                   **TP1083
 BPM      DC    C'ILLEGAL PARAMETER'                                     **TP1084
 BPL      EQU   *-BPM                                                    **TP1085
 TPERM    DC    C'PERMANENT READ ERROR ON '                              **TP1086
 TPERL    EQU   *-TPERM                                                  **TP1087
 LINES    DC    C': 00000 LINES PRINTED'                                 **TP1088
 CARDS    DC    C'CARDS PUNCHED'                                         **TP1089
          END                                                            **TP1090
-FILE 170;   388 RECORDS:  
0LLPC     TITLE 'LINCOLN LAB''S PRINT UNIT CHECK ROUTINES'               LLPU0001
 PRNTUC   START 0                                                        LLPU0002
          ENTRY PRTUC                                                    LLPU0003
          ENTRY PRTUE                                                    LLPU0004
 *********************************************************************** LLPU0005
 *        ***************PRINTER UNIT EXCEPTION ROUTINE***************** LLPU0006
 *        THIS ROUTINE HANDLES PRINTER UNIT EXCEPTIONS. LINKAGE FROM     LLPU0007
 *        THE CALLING PROGRAM REQUIRES PLACING THE PROPER ENTRY POINT    LLPU0008
 *        ADDRESS (PRTUE) WHICH HAS BEEN DEFINED AS AN EXTRN IN THE      LLPU0009
 *        CALLING PROGRAM INTO THE RETURNS LIST AS THE UNIT EXCEPTION    LLPU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LDN      EQU   SAVAR+16                                                 LLPU0379
 DSECT2   EQU   PRTUC+8192                                               LLPU0380
 RTNADR   EQU   DSECT2                                                   LLPU0381
 FLAG     EQU   RTNADR+4                                                 LLPU0382
 MYFLAG   EQU   FLAG+1                                                   LLPU0383
 STOPCD   EQU   MYFLAG+1                                                 LLPU0384
 SNSCC    EQU   STOPCD+1                                                 LLPU0385
 SENBYT   EQU   SNSCC+1                                                  LLPU0386
 DEVID    EQU   SENBYT+4                                                 LLPU0387
          END                                                            LLPU0388
-FILE 171;   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 172;   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 173;   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 174;   528 RECORDS:  
0CATL     TITLE       'CATALOG PRINTOUT PROGRAM FOR MTS'                 LVTC0001
          SPACE  2                                                       LVTC0002
 *********************************************************************** LVTC0003
 *                                                                     * LVTC0004
 *        CATALOG PRINTOUT FOR DISKS IN MTS SYSTEM - PRINTS VTOC       * LVTC0005
 *                                                                     * LVTC0006
 *********************************************************************** LVTC0007
          SPACE  2                                                       LVTC0008
 *                                                                       LVTC0009
 *                                                                       LVTC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CONVN    DS    1F              NUMBER TO BE CONVERTED BY CONVERSION     LVTC0519
 RDL      DS    1F                                                       LVTC0520
 TTYSWT   DS    1F                                                       LVTC0521
 TYP5T    DS    1F                                                       LVTC0522
 DSKAP    DS    3F            PLACE TO BUILD PRINT FORM OF ADDRESS       LVTC0523
          SPACE                                                          LVTC0524
 NOEPV    EQU   DSKA+59                                                  LVTC0525
 EXT1     EQU   105                                                      LVTC0526
          SPACE                                                          LVTC0527
          END                                                            LVTC0528
-FILE 175;   304 RECORDS:  
0 MACRO                                                                  LSTT0001
 &L EDIT &FIELD,&SOURCE,&PATL,&PATR,&OP=L                                LSTT0002
  LCLA &T2                                                               LSTT0003
  LCLA &T                                                                LSTT0004
  LCLC &C                                                                LSTT0005
  LCLC &C2                                                               LSTT0006
  AIF (T'&SOURCE EQ 'O').SK2                                             LSTT0007
 &L &OP 1,&SOURCE                                                        LSTT0008
  AGO .SK3                                                               LSTT0009
 .SK2 AIF (T'&L EQ 'O').SK3                                              LSTT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  DC C'ABCDEFGHI'                                                        LSTT0295
  DC CL(C'J'-C'I'-1)' '                                                  LSTT0296
  DC C'JKLMNOPQR'                                                        LSTT0297
  DC CL(C'S'-C'R'-1)' '                                                  LSTT0298
  DC C'STUVWXYZ'                                                         LSTT0299
  DC CL(C'0'-C'Z'-1)' '                                                  LSTT0300
  DC C'0123456789'                                                       LSTT0301
  DC CL(255-C'9'-1)' '                                                   LSTT0302
  COPY STATDSECT                                                         LSTT0303
  END                                                                    LSTT0304
-FILE 176;   126 RECORDS:  
0         EJECT                                                          BEQU0001
 *        EQU'S FOR ALL GPR'S USED EXCEPT 13,14, AND 15                  BEQU0002
          SPACE                                                          BEQU0003
 GR0      EQU   0                                                        BEQU0004
 GR1      EQU   1                                                        BEQU0005
 GR2      EQU   2                                                        BEQU0006
 GR3      EQU   3                                                        BEQU0007
 GR4      EQU   4                                                        BEQU0008
 GR5      EQU   5                                                        BEQU0009
 GR6      EQU   6                                                        BEQU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EJECT                                                          BEQU0117
 *        DSECT FOR A DATA EVENT CONTROL BLOCK (DECB)                    BEQU0118
          SPACE                                                          BEQU0119
 DECB     DSECT                                                          BEQU0120
 DECBECB  DC    F'0'          EVENT CONTROL BLOCK                        BEQU0121
 DECBFLG  DC    XL2'0'        FLAG                                       BEQU0122
 DECBLGTH DC    H'0'          LENGTH OF RECORD TO WRITE                  BEQU0123
 DECBDCB  DC    A(0)          ADDRESS OF DCB                             BEQU0124
 DECBADDR DC    A(0)          ADDRESS OF I/O AREA                        BEQU0125
 DECBSTAT DC    F'0'          POINTER TO STATUS BITS (NOT SUPPORTED)     BEQU0126
-FILE 177;   726 RECORDS:  
0RSTR     TITLE 'UTILITY TO RESTORE DISC FILES (VERSION 5 JUNE 1968)'    RST00001
          MACRO                                                          RST00002
 &SLB     MESSAGE &WHAT,&NEXT                                            RST00003
 &SLB     BAL   1,*+((L'###&SYSNDX+1)/2*2)+6 AROUND CONSTANETS           RST00004
          DC    Y(L'###&SYSNDX) LENGTH                                   RST00005
 ###&SYSNDX DC C&WHAT,0H'0'                                              RST00006
          BAL   15,MESSAGE                                               RST00007
          AIF   (T'&NEXT EQ 'O').END                                     RST00008
          B     &NEXT                                                    RST00009
 .END     ANOP                                                           RST00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TIDSECT  DSECT                    TRACK INDEX PROTOTYPE                 RST00717
          SPACE                                                          RST00718
 TIDISK   DS    CL6                DISK PACK NAME                        RST00719
 TICYLNDR DS    H                  CYLINDER ON THAT PACK                 RST00720
 TITRACK  DS    H                  TRACK WITHIN THAT CYLINDER            RST00721
 TIRECORD DS    X                  PHYSICAL RECORD NUMBER (0 OR 1)       RST00722
 TIUNU    DS    XL5                UNUSED                                RST00723
 TIENTL   EQU   *-TIDSECT          LENGTH OF TI ENTRY                    RST00724
          SPACE 4                                                        RST00725
          END RESTORE                                                    RST00726
-FILE 178;     6 RECORDS:  
0$SIG INIT PW=                                                     INIT0001
 $RUN DINIT SERCOM=OPER                                                  INIT0002
 $RUN STRTPDP                                                            INIT0003
 $RUN CLEAN;SCARDS=CLEAN(100) SPRINT=OPER                                INIT0004
 $RUN INIT;SPRINT=OPER                                                   INIT0005
 $SIGNOFF                                                                INIT0006
-FILE 179;     2 RECORDS:  
0 LCS            LCSYMBOL                                                NDJN0001
  LDT                                                                    NDJN0002
-FILE 180;  1393 RECORDS:  
0* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * TNL00001
 * SUBROUTINE TO RETURN MONTH, DAY, & YEAR, GIVEN A REGION     (ADDRESS  TNL00002
 * IN GR 1) CONTAINING MM-DD-YY IN EBCDIC.  CALLING SEQUENCE   FROM      TNL00003
 *    FORTRAN: NUMBR=DCONV(REG) WHERE NUMBER=YY*10000+MM*100+DD          TNL00004
 * GR15 IS PRESERVED. GR0 CONTAINS NUMBER                                TNL00005
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * TNL00006
 DCONV    CSECT                                                          TNL00007
          COPY  EQU                                                      TNL00008
          SAVE  (14,12),T,DCONV                                          TNL00009
          BASR  12,0                                                     TNL00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DONEB    BCTR  2,0                                                      TNL01384
          EX    2,MO                                                     TNL01385
          LA    2,1(2)                                                   TNL01386
         RETURN (3,12)                                                   TNL01387
 MO       MVC   0(0,1),0(3)                                              TNL01388
          DS    0D                                                       TNL01389
 SCRATCH   DS    CL9' '                                                  TNL01390
          DS    0D                                                       TNL01391
 TEMP     DS    CL16' '                                                  TNL01392
          END                                                            TNL01393
-FILE 181;   314 RECORDS:  
0SCAN TITLE 'PROGRAM TO FIND FILES BELONGING TO ILLEGAL USERS'           SCNF0001
 DESTROY START 0                                                         SCNF0002
          PRINT NOGEN                                                    SCNF0003
          SPACE 3                                                        SCNF0004
 *        ENTRY POINT                                                    SCNF0005
          USING *,12                                                     SCNF0006
          STM   14,12,12(13)                                             SCNF0007
          LR    12,15                                                    SCNF0008
          ST    13,SA                                                    SCNF0009
          LA    13,SCR                                                   SCNF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    20F                                                      SCNF0305
          SPACE                                                          SCNF0306
          LTORG                                                          SCNF0307
          SPACE                                                          SCNF0308
          CNOP  0,8                                                      SCNF0309
 CARD     DS    256C                                                     SCNF0310
 FCB      DS    70F                                                      SCNF0311
 SCR      DS    250F                                                     SCNF0312
 UIDT     DS    2000XL5        TABLE FOR USER IDS                        SCNF0313
          END                                                            SCNF0314
-FILE 182;    61 RECORDS:  
0*********************************************************************** PCBD0001
 *                                                                     * PCBD0002
 *              PCB -- PAGE CONTROL BLOCK                              * PCBD0003
 *                                                                     * PCBD0004
 *                  DSECT                                              * PCBD0005
 *                                                                     * PCBD0006
 *********************************************************************** PCBD0007
          SPACE 5                                                        PCBD0008
 PCBDCT   DSECT                                                          PCBD0009
 *                                                                       PCBD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          PCBD0052
 PCBXA    DS    H                   EXTERNAL ADDRESS - KEPT AS           PCBD0053
 PCBXAS   EQU   PCBXA                    SLOT - 1 BYTE                   PCBD0054
 *                                            4 BITS MODULE NBR          PCBD0055
 *                                            4 BITS SLOT NUMBER         PCBD0056
 PCBXAT   EQU   PCBXA+1                  TRACK - 1 BYTE                  PCBD0057
 *                                                                       PCBD0058
 *                                                                       PCBD0059
 *                                                                       PCBD0060
 LPCB     EQU   *-PCBDCT            LENGTH OF PCB                        PCBD0061
-FILE 183;  1505 RECORDS:  
0STAN     TITLE 'STATISTICS PHASE I ANALYSIS'                            ANAL0001
          PRINT ON,NODATA,NOGEN                                          ANAL0002
          LCLC  &Q(25)                                                   ANAL0003
 *                                                                       ANAL0004
 *  INITIALIZATION                                                       ANAL0005
 *                                                                       ANAL0006
 STATANAL START 0             ENTRY POINT                                ANAL0007
          SAVE  (14,12)       SAVE THE MTS REGISTERS                     ANAL0008
          BALR  12,0          THIS IS THE BASE REGISTER                  ANAL0009
          USING *,12,10       ESTABLISH THEM                             ANAL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 EDMPAREA EQU   *             END OF TAPE OUTPUT AREA                    ANAL1496
 CNT      DC    A(EDMPAREA-NEWAREA) LENGTH OF TAPE OUTPUT                ANAL1497
 ADDAREA  DS    8F            ITEM PRINT AREA                            ANAL1498
 JOBAREA  DS    (NOJOBS*(JOBEND-JOBINFO))C                               ANAL1499
 EJOBAREA EQU   *             END OF INFORMATION AREAS                   ANAL1500
 PAGETBL  DS    (NOPAGES*LPTBL)F    PAGE TABLE FOR VIRTUAL MEMORY        ANAL1501
 PAGEND   EQU   *             END OF PAGE TABLE                          ANAL1502
 DATA     DS    4096C         BUFFER OF ITEMS FROM STAT JOB              ANAL1503
 JOBPTR   DS    (NJOBPTR)F    JOB TABLE ADDRESS TABLE                    ANAL1504
          END   STATANAL                                                 ANAL1505
-FILE 184;   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 185;   113 RECORDS:  
0STRTPSW  DC    D'0'           EXTERNAL START PSW                        MPSA0001
          DS    XL6                                                      MPSA0002
 EXICOD   DS    H             EXTERNAL INTERUPT INTERRUPT CODE           MPSA0003
 SVICOD   DS    H              SVC INTERRUPT CODE                        MPSA0004
 PGICOD   DS    H              PROGRAM INTERRUPT CODE                    MPSA0005
 MCICOD   DS    H              MACHINE CHECK INTERRUPT CODE              MPSA0006
 IOICOD   DS    H              I/O INTERRUPT CODE                        MPSA0007
 EXOPSW   DS    D              EXTERNAL INTERRUPT OLD PSW                MPSA0008
 SVOPSW   DS    D              SVC INTERRUPT OLD PSW                     MPSA0009
 PGOPSW   DS    D              PROGRAM INTERRUPT OLD PSW                 MPSA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'8000'        SSU 6                                     MPSA0104
          DC     X'8000'       SSU 7                                     MPSA0105
          DC    X'8000'        SSU 8                                     MPSA0106
 *                                                                       MPSA0107
 *        END OF CST AND SST                                             MPSA0108
 *                                                                       MPSA0109
 TRACE    DS     0F            START OF TRACE TABLE ( IN IPLED CPU'S PSA MPSA0110
 *                                                                       MPSA0111
          ORG   PSA+4092       MUST PUT LAST JOB IN SECOND HALF PF PSA   MPSA0112
 LASTJOB   DC   A(DUMJOB)      ADDRESS OF LAST JOB TABLE DISPATCHED      MPSA0113
-FILE 186;   113 RECORDS:  
0STRTPSW  DC    D'0'           EXTERNAL START PSW                        UPSA0001
          DS    XL6                                                      UPSA0002
 EXICOD   DS    H             EXTERNAL INTERUPT INTERRUPT CODE           UPSA0003
 SVICOD   DS    H              SVC INTERRUPT CODE                        UPSA0004
 PGICOD   DS    H              PROGRAM INTERRUPT CODE                    UPSA0005
 MCICOD   DS    H              MACHINE CHECK INTERRUPT CODE              UPSA0006
 IOICOD   DS    H              I/O INTERRUPT CODE                        UPSA0007
 EXOPSW   DS    D              EXTERNAL INTERRUPT OLD PSW                UPSA0008
 SVOPSW   DS    D              SVC INTERRUPT OLD PSW                     UPSA0009
 PGOPSW   DS    D              PROGRAM INTERRUPT OLD PSW                 UPSA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'8000'        SSU 6                                     UPSA0104
          DC     X'8000'       SSU 7                                     UPSA0105
          DC    X'8000'        SSU 8                                     UPSA0106
 *                                                                       UPSA0107
 *        END OF CST AND SST                                             UPSA0108
 *                                                                       UPSA0109
 TRACE    DS     0F            START OF TRACE TABLE ( IN IPLED CPU'S PSA UPSA0110
 *                                                                       UPSA0111
          ORG   PSA+4092       MUST PUT LAST JOB IN SECOND HALF PF PSA   UPSA0112
 LASTJOB   DC   A(DUMJOB)      ADDRESS OF LAST JOB TABLE DISPATCHED      UPSA0113
-FILE 187;     1 RECORDS:  
0 LCS            LCSYMBOL                                                LCS00001
 
-FILE 188;   192 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=0 INFO0004
          GBLA  &IX                                                      INFO0005
 .L3      ANOP                                                           INFO0006
 &IX      SETA  &IX+1                                                    INFO0007
          AIF   (&IX EQ &INDEX).L                                        INFO0008
          AIF   (&IX GT &INDEX).L2                                       INFO0009
          DC    4F'0'                                                    INFO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ITEM  LOCPCH,LOCPCH,90                                         INFO0183
          ITEM  LOCPTM,LOCPTM,92                                         INFO0184
          ITEM  GLOBTTN,GLOBTTN,94                                       INFO0185
          ITEM  LOCTTN,LOCTTN,96                                         INFO0186
 TABLEND  EQU   *                                                        INFO0187
          EJECT                                                          INFO0188
 JUNK    DSECT                                                           INFO0189
         COPY  MTS.CONTAB                                                INFO0190
          COPY  MTS.DSECT                                                INFO0191
          END                                                            INFO0192
-FILE 189;     8 RECORDS:  
0$SIG USER                                                               SVI00001
 $RUN *SAV(5) 0=OPER SERCOM=OPER SCARDS=*SV1(10)                         SVI00002
 $SIGNOFF                                                                SVI00003
 MTS001C                                                                 SVI00004
 MTS003C                                                                 SVI00005
 MTS005C                                                                 SVI00006
 MTS007C                                                                 SVI00007
 MTS009C                                                                 SVI00008
-FILE 190;     8 RECORDS:  
0$SIG SYS                                                                SV200001
 $RUN *SAV(5) 0=OPER SERCOM=OPER SCARDS=*SV2(10)                         SV200002
 $SIGNOFF                                                                SV200003
 MTS002C                                                                 SV200004
 MTS004C                                                                 SV200005
 MTS006C                                                                 SV200006
 MTS008C                                                                 SV200007
 MTS010C                                                                 SV200008
-FILE 191;   222 RECORDS:  
0COPY     TITLE 'PROGRAM TO MOVE FILES TO ANOTHER USERID'                FCOP0001
          PRINT NOGEN                                                    FCOP0002
 FILECOPY START 0                                                        FCOP0003
          ENTER 12,SA=SA                                                 FCOP0004
          MVC   SAV13(4),4(13)      SAVE IT FROM READS                   FCOP0005
          L     2,0(0,1)                                                 FCOP0006
          LTR   2,2           ARE THERE PARAMETERS                       FCOP0007
          BZ    READ                                                     FCOP0008
          LH    3,0(0,2)      CHECK LENGTH ALSO                          FCOP0009
          LTR   3,3                                                      FCOP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FLAGS    DS    X             FLAGS MOF MY USERID                        FCOP0213
 FAKENAME DC    CL100'****'                                              FCOP0214
 ENDLINE  DS    F                                                        FCOP0215
 READL    DS    0F            PARAMETER LIST FOR READS                   FCOP0216
 LINE     DS    F             LINE NUMBER                                FCOP0217
          DC    A(IN)         LINE                                       FCOP0218
 FCBAD    DS    A             FCB ADDRESS                                FCOP0219
          DC    A(CWRD)                                                  FCOP0220
 CWRD     DS    XL4                                                      FCOP0221
          END                                                            FCOP0222
-FILE 192;    90 RECORDS:  
0FSPC     TITLE 'PROGRAM TO FIND HOW MUCH FILE SPACE IS IN USE'          FSPC0001
 FSPC     START 0                                                        FSPC0002
          PRINT NOGEN                                                    FSPC0003
 CUR      EQU   40                                                       FSPC0004
 MAX      EQU   X'D4'-X'C8'                                              FSPC0005
          ENTER 12,SA=SA                                                 FSPC0006
          LA    1,=C'*ACCOUNTING '                                       FSPC0007
          L     15,=V(GETFD)                                             FSPC0008
          BALR  14,15                                                    FSPC0009
          ST    0,FDUB                                                   FSPC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' CUR: '                                                FSPC0081
 TC       DS    CL5                                                      FSPC0082
          DC    C' NOT INCLUDING SYSTEM FILES AND PRIVILEDGED USERS'     FSPC0083
 TOTE     EQU   *                                                        FSPC0084
 TOTL     DC    Y(TOTE-TOT)                                              FSPC0085
 ERCMT    DC    C'UNABLE TO READ USER ID '                               FSPC0086
 ERCMTUID DC    C'    '                                                  FSPC0087
 ERCMTE   EQU   *                                                        FSPC0088
 ERCMTL   DC    Y(ERCMTE-ERCMT)                                          FSPC0089
          END                                                            FSPC0090
-FILE 193;    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 194;    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 195;    96 RECORDS:  
0         USING PROLOG,10                                                BAT00001
 PROLOG   STM   14,12,12(13)                                             BAT00002
          LR    10,15                                                    BAT00003
          LA    12,SAVE                                                  BAT00004
          ST    13,4(0,12)                                               BAT00005
          ST    12,8(0,13)                                               BAT00006
          LR    13,12                                                    BAT00007
          B     START                                                    BAT00008
 EPILOG   L     13,4(0,13)                                               BAT00009
          LM    14,12,12(13)                                             BAT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        ORG     TABLE+C'A'                                               BAT00087
        DC      C'ABCDEFGHI'                                             BAT00088
        ORG     TABLE+C'J'                                               BAT00089
        DC      C'JKLMNOPQR'                                             BAT00090
        ORG     TABLE+C'S'                                               BAT00091
        DC      C'STUVWXYZ'                                              BAT00092
        ORG     TABLE+C'0'                                               BAT00093
        DC      C'0123456789'                                            BAT00094
        ORG                                                              BAT00095
          END                                                            BAT00096
-FILE 196;   290 RECORDS:  
0DICT                                                                    DICT0001
 IAN AS AT BE BY DO EX GO HA HE HO ID IF IN IS IT MA ME MY NO OF OH ON ORDICT0002
 IPI SO TO UN UP US WE YE                                                DICT0003
 IADD AID ALL AND ANY ARE BAD BAR BCD BIT BOX BUS BUT CAN CCW CPU CSW DAYDICT0004
 IDIM DUE ECB END ESD ETC FAR FEW FIG FIT FIX FOR GAP GET GPR HAD HAS HIMDICT0005
 IIBM INC IOS IPL ITS JOB KEY LAB LET LOG LOT LOW MAN MAP MAY MEN MET NETDICT0006
 INOR NOT NOW ODD OFF OLD ONE OUR OUT OWN PER PIN PSW PUT RLD ROW RUN SAYDICT0007
 ISIX SLT SUM SVC TAG TEN THE TIP TOP TWO TXT USE WAS WAY WHO WHY YES YETDICT0008
 IABLE ADDS ALSO AREA BACK BANK BASE BEEN BEST BETA BITS BOOK BOTH BUMP BDICT0009
 ICALL CARD CARE CASE CCWS CENT CODE COME COPY CORE COST DATA DATE DECK DDICT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IADDRESSABILITY ASYNCHRONOUSLY CAPITALIZATION CHARACTERISTIC CLASSIFICATDICT0281
 ICOMMUNICATIONS CONFIGURATIONS CONSIDERATIONS CORRESPONDENCE EXPONENTIATDICT0282
 IIDENTIFICATION IMPLEMENTATION INITIALIZATION INTERCONNECTED INTERPRETATDICT0283
 IMALFUNCTIONING MULTIPLICATION NONSUBSCRIPTED RELOCATABILITY REPRESENTATDICT0284
 IRESPONSIBILITY SIMULTANEOUSLY SPECIFICATIONS TELEPROCESSING TRANSFORMATDICT0285
 ICHARACTERISTICS INTERCHANGEABLE MAINTAINABILITY REPRESENTATIONS SYNCHRODICT0286
 ITRANSFORMATIONS TROUBLESHOOTING                                        DICT0287
 IMICROINSTRUCTION MULTIPROGRAMMING                                      DICT0288
 IINTERRELATIONSHIP                                                      DICT0289
 ITELECOMMUNICATIONS                                                     DICT0290
-FILE 197;  2126 RECORDS:  
0**********************************************************************  SDA00001
 *                                                                    *  SDA00002
 *                                                                    *  SDA00003
 *        MTS DEVICE SUPPORT ROUTINES FOR IBM 2780'S                  *  SDA00004
 *                                                                    *  SDA00005
 *                                                                    *  SDA00006
 **********************************************************************  SDA00007
          SPACE 3                                                        SDA00008
          MACRO                                                          SDA00009
          PFXD  &M,&N                                                    SDA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BLKNDLOC DS    F                                                        SDA02117
 BUF1     DS    64F                                                      SDA02118
 CCSAVE   DS    6F                                                       SDA02119
 OUTPAGES DS    F                                                        SDA02120
 INPAGES  DS    F                                                        SDA02121
 TEMP     DS    D                                                        SDA02122
 SNSCCW   DS    (SNSCCWL/8)D                                             SDA02123
 RTNLST   DS    (RTNLSTL/4)F                                             SDA02124
 PSECTL   EQU   *-PSCT                                                   SDA02125
          END                                                            SDA02126
-FILE 198;    68 RECORDS:  
0ACCDCT   DS    AL1(ENDREC-ACCDCT-2)    COUNT TO NEXT COUNT              FORM0001
 FLAGS    DS    XL3'0'             FLAGS:  0-PRIVILEDGED, 2-IN USE,     1FORM0002
                                   3-IGNORE TERMINAL MAXIMUM, 4-LIBRARY 2FORM0003
                                   FILE PRIVILEGE, 5-NO CHANGE           FORM0004
 ACCUAN   DS    F'0'               UNIVERSITY ACCOUNT NUMBER             FORM0005
 ACCPN    DS    CL4                PROJECT NUMBER                        FORM0006
 ACCMDT   DS    H'0'               MAXIMUM FILE (PAGES)                  FORM0007
 ACCMFUB  DS    H'0'               MAXIMUM BULK FILE (PAGES)             FORM0008
 ACCMTM   DS    F'0'               MAXIMUM TERMINAL (SEC*1000)           FORM0009
 ACCM$    DS    F'0'               MAXIMUM CHARGE (DOLLARS*10000)        FORM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                   *100000)                              FORM0059
 ACCRPLT  DS    H                  PLOTTING RATE                         FORM0060
 ACCPTR   DS    F                                                        FORM0061
          DS    AL1(ENDWRITE-ENDREC-1)  COUNT TO NEXT COUNT              FORM0062
 ENDREC   EQU   *                  END OF FIXED PORTION OF RECORD        FORM0063
 ACCPWFLG DS    C'P'               PASSWORD FLAG                         FORM0064
 ACCPWLEN DS    X                  PASSWORD LENGTH                       FORM0065
 ACCPW    DS    CL6                PASSWORD                              FORM0066
          DS    X'FF'                                                    FORM0067
 ENDWRITE EQU   *                  END OF PHYSICAL RECORD                FORM0068
-FILE 199;    25 RECORDS:  
0         DC    H'0'               BILLING CLASS 0                       RATE0001
          DC    H'71'              TERMINAL RATE                         RATE0002
          DC    H'178'             VIRTUAL MEMORY RATE OVER CPU TIME     RATE0003
          DC    H'178'             VIRTUAL MEMORY RATE OVER WAIT TIME    RATE0004
          DC    H'7333'            CPU RATE                              RATE0005
          DC    H'54'              LINES PRINTED RATE                    RATE0006
          DC    H'395'             PAGES PRINTED RATE                    RATE0007
          DC    H'1556'            CARDS PUNCHED RATE                    RATE0008
          DC    H'156'             CARDS READ RATE                       RATE0009
          DC    H'6'               FILE STORAGE RATE                     RATE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    H'231'                                                   RATE0016
          DC    H'8972'                                                  RATE0017
          DC    H'61'                                                    RATE0018
          DC    H'395'                                                   RATE0019
          DC    H'1679'                                                  RATE0020
          DC    H'174'                                                   RATE0021
          DC    H'20'                                                    RATE0022
          DC    H'0'                                                     RATE0023
          DC    H'0'                                                     RATE0024
 RATELEN  EQU   24                                                       RATE0025
-FILE 200;     5 RECORDS:  
0MAXFLAGS DS    XL4                FLAGS:  3-IGNORE TERMINAL MAXIMUM     PFMT0001
 UAN      DS    2CL4               UNIVERSITY ACCOUNT NUMBER             PFMT0002
 MAXMDT   DS    F                  MAXIMUM FILE (PAGES)                  PFMT0003
 MAXMTM   DS    F                  MAXIMUM TERMINAL (MINUTES)            PFMT0004
 MAXM$    DS    F                  MAXIMUM CHARGE (DOLLARS*10000)        PFMT0005
-FILE 201;    18 RECORDS:  
0SYM              ACCDSPLA  READ  READFILE  COMPBLNK  MVSIGNONDSPL0001
 SYM             :NORECORDH  ݥ    qPRINTH  u  a  F0a  F2gDSPL0002
 SYM             FDOT$DOT  e  {RECORD  C {SAVE  g SIGNONIDd DSPL0003
 SYM           COUNTb H39 MOVEd BLANK  g NORECMSG    DSPL0004
 SYM            ACCDSPLA H   H   h h %h h DSPL0005
 SYM           h h @                                            DSPL0006
 ESD          ACCDSPLA      SCARDS         ACCREAD                DSPL0007
 ESD          ERROR          SERCOM         ACCPRINT               DSPL0008
 TXT          }	{&}A}A[{  &{K{[BB0B	͌{Ɍ0{}ADSPL0009
 TXT         q}&B{]n  {<g{ $B̈BB0B	͌{0{k0{DSPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT         \B>0BKBB\{0B 	       \{0B 	  DSPL0011
 TXT   y         {            .$.                                DSPL0012
 TXT         K B{[           ***      IS NOT IN THE ACCOUNTING FILDSPL0013
 TXT        E                                                       DSPL0014
 TXT           {          {              A                DSPL0015
 RLD                   m  u  y    ^  < &   *DSPL0016
 RLD              -  %          	     @DSPL0017
 END                                                                    DSPL0018
-FILE 202;   436 RECORDS:  
0AIO      TITLE 'MTS ACCOUNTING RECORD INPUT/OUTPUT PROGRAM--20 OCT 68'  IO000001
 *********************************************************************** IO000002
 *                                                                     * IO000003
 *        ON ENTRY TO ACCREAD AND ACCWRITE, GR1 POINTS TO A FOUR WORD  * IO000004
 *        PARAMETER LIST                                               * IO000005
 *             WORD1  AREA TO OR FROM WHICH THE DATA IS TO BE          * IO000006
 *                    TRANSMITTED.                                     * IO000007
 *             WORD2  LENGTH OF THE DATA.                              * IO000008
 *             WORD3  MODIFIERS.                                       * IO000009
 *             WORD4  SIGNON ID.                                       * IO000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RDNR14   DS    A                                                        IO000427
 LEN      DS    H                                                        IO000428
 AUXFLNAM DC    CL16'$ACCOUNTING'                                        IO000429
 BADAUXFL DC    C' *** FILE                  IS NOT AVAILABLE'           IO000430
 MISRECRD DC    C' ***      IS NOT IN                 '                  IO000431
 NOFILNAM DC    C' ***                  IS NOT AN AUXILIARY FILE'        IO000432
          SPACE 5                                                        IO000433
          LTORG                                                          IO000434
          SPACE 5                                                        IO000435
          END                                                            IO000436
-FILE 203;    84 RECORDS:  
0ALST     TITLE 'MTS ACCOUNTING LISTING PROGRAM--18 OCT 68'              LIST0001
 *********************************************************************** LIST0002
 *                                                                     * LIST0003
 *        ACCLIST                                                      * LIST0004
 *                                                                     * LIST0005
 *        LISTS THE MTS ACCOUNTING FILE.                               * LIST0006
 *                                                                     * LIST0007
 *********************************************************************** LIST0008
          SPACE 5                                                        LIST0009
 ACCLIST  START                                                          LIST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 F2       DC    F'2'                                                     LIST0075
 RECORD   DS    CL256                                                    LIST0076
 SAVE     DS    18F                                                      LIST0077
 SIGNONID DC    X'80000000'                                              LIST0078
 COUNT    DS    H                                                        LIST0079
 H23      DC    H'23'                                                    LIST0080
 BLANKS   DC    CL10' '                                                  LIST0081
 NRRECMSG DC    C'- ',X'2020202120',C' RECORDS IN FILE'                  LIST0082
          SPACE 5                                                        LIST0083
          END                                                            LIST0084
-FILE 204;   450 RECORDS:  
0APRT     TITLE 'MTS ACCOUNTING RECORD PRINT PROGRAM--17 OCT 68'         PRNT0001
 *********************************************************************** PRNT0002
 *                                                                     * PRNT0003
 *        ACCPRINT                                                     * PRNT0004
 *                                                                     * PRNT0005
 *        GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY.          * PRNT0006
 *              WORD1  ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* PRNT0007
 *              WORD2  ADDRESS OF AN AREA CONTAINING THE ACCOUNTING    * PRNT0008
 *                     RECORD TO BE PRINTED.                           * PRNT0009
 *              WORD3  ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* PRNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** PRNT0441
 *                                                                     * PRNT0442
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * PRNT0443
 *                                                                     * PRNT0444
 *********************************************************************** PRNT0445
          SPACE 5                                                        PRNT0446
 RECORD   DSECT                                                          PRNT0447
          COPY  ACCFORMAT                                                PRNT0448
          ORG   RECORD+255                                               PRNT0449
          END                                                            PRNT0450
-FILE 205;  1536 RECORDS:  
0AMAT     TITLE 'MTS ACCOUNTING MAINTENANCE PROGRAM--21 OCT 68'          MNT00001
          MACRO                                                          MNT00002
 &NAME    BINPAR    &FIELD,&NEXT,&MULT,&LEN                              MNT00003
 .********************************************************************** MNT00004
 .*                                                                    * MNT00005
 .*       FIELD  A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE     * MNT00006
 .*              VALUE OF THE POSITIONAL PARAMETER IS PLACED.          * MNT00007
 .*       NEXT   LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* MNT00008
 .*              MISSING.                                              * MNT00009
 .*       MULT   AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER   * MNT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                TUV',X'FF',10X'0',X'FFFFFFFF00FF',10X'0'                 MNT01527
 BLKORD2  EQU   *                                                        MNT01528
 BLKORD3  EQU   *                                                        MNT01529
 BLKORD1  DC    193X'0',AL1(11,12,13,14,15,16,17,18),8X'0',AL1(19,20,21,1MNT01530
                22,23,0,24,25,26),8X'0',AL1(27,28,29,30,31,32,33,34),6X'2MNT01531
                0',AL1(1,2,3,4,5,6,7,8,9,10),6X'0'                       MNT01532
 BLKORD4  DC    201X'0',AL1(4),7X'0',AL1(5,1,2,3,4,0,5,0,1),8X'0',AL1(2,1MNT01533
                3,4,5),10X'0',AL1(5,5,5,5,0,5),10X'0'                    MNT01534
          SPACE 5                                                        MNT01535
          END                                                            MNT01536
-FILE 206;     1 RECORDS:  
0*MISSING FILE.................                                          PMNT0001
 
-FILE 207;   173 RECORDS:  
0AERR     TITLE 'MTS ACCOUNTING FILE RECORD ERROR DETECTION PROGRAM--22 1ERR00001
                OCT 68'                                                  ERR00002
          MACRO                                                          ERR00003
 &NAME    BNEI  &A,&I                                                    ERR00004
 &NAME    CLI   &A,&I              BRANCH ON NOT EQUAL IMMEDIATE         ERR00005
          BNE   PRINT                                                    ERR00006
          MEND                                                           ERR00007
          SPACE 5                                                        ERR00008
          MACRO                                                          ERR00009
 &NAME    TMBNZ &A,&M                                                    ERR00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * ERR00164
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * ERR00165
 *                                                                     * ERR00166
 *********************************************************************** ERR00167
          SPACE 5                                                        ERR00168
 RECORD   DSECT                                                          ERR00169
          COPY  ACCFORMAT                                                ERR00170
          ORG   RECORD+255                                               ERR00171
          SPACE 5                                                        ERR00172
          END                                                            ERR00173
-FILE 208;   217 RECORDS:  
0ASTR     TITLE 'MTS ACCOUNTING RECORD STORAGE SPACE UPDATE AND LOCK OFF1STRP0001
                 PROGRAM--18 OCT 68'                                     STRP0002
 *********************************************************************** STRP0003
 *                                                                     * STRP0004
 *        ACCSTRUP                                                     * STRP0005
 *                                                                     * STRP0006
 *        UPDATES NUMBER OF FILES AND PAGES AND TURNS OFF THE LOCK FLAG* STRP0007
 *        IN MTS ACCOUNTING RECORDS.  INPUT IS THE SIGNON ID OF THE    * STRP0008
 *        RECORD TO BE UPDATED IN COLUMNS 1-4 OR FRACTION THEREOF.     * STRP0009
 *                                                                     * STRP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * STRP0208
 *        ACCOUNTING RECORD STORAGE                                    * STRP0209
 *                                                                     * STRP0210
 *********************************************************************** STRP0211
          SPACE 5                                                        STRP0212
 RECORD   DS    0F                                                       STRP0213
          COPY  ACCFORMAT                                                STRP0214
          ORG   RECORD+255                                               STRP0215
          SPACE 5                                                        STRP0216
          END                                                            STRP0217
-FILE 209;     1 RECORDS:  
0* ANOTHER MISSING FILE                                                  NITZ0001
 
-FILE 210;   233 RECORDS:  
0STAT     TITLE 'ACCOUNTING STATUS FOR MTS USER--18 OCT 68'              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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * STAT0224
 *        INPUT AREA FOR ACCOUNTING RECORD                             * STAT0225
 *                                                                     * STAT0226
 *********************************************************************** STAT0227
          SPACE 5                                                        STAT0228
 RECORD   DS    0F                                                       STAT0229
          COPY  ACCFORMAT                                                STAT0230
          ORG   RECORD+255                                               STAT0231
          EJECT                                                          STAT0232
          END                                                            STAT0233
-FILE 211;  1155 RECORDS:  
0AMXM     TITLE 'MTS USERS'' ACCOUNTING MAXIMUM MAINTENANCE PROGRAM--23 1MXMT0001
                OCT 68'                                                  MXMT0002
          MACRO                                                          MXMT0003
 &NAME    ACUM  &MAX,&CUM,&DIV,&LEN                                      MXMT0004
          LCLA  &RND                                                     MXMT0005
 &NAME    L&LEN R9,ACC&MAX         MAXIMUM                               MXMT0006
          C&LEN R9,ACC&CUM                                               MXMT0007
          BNL   S&SYSNDX           CUMULATIVE IS LESS THAN MAXIMUM       MXMT0008
          L&LEN R9,ACC&CUM         CUMULATIVE                            MXMT0009
          AIF   ('&DIV' NE '').DIVIDE                                    MXMT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 5                                                        MXMT1146
 KEYWDADR DC    A(FILE)                                                  MXMT1147
          DC    A(CHARGE)                                                MXMT1148
          DC    A(TERMINAL)                                              MXMT1149
          DC    A(TERMHRS)                                               MXMT1150
          DC    A(NOLIST)                                                MXMT1151
          DC    A(NOCHANGE)                                              MXMT1152
          EJECT                                                          MXMT1153
          LTORG                                                          MXMT1154
          END                                                            MXMT1155
-FILE 212;     1 RECORDS:  
0* AND ANOTHER ONE                                                       UPRN0001
 
-FILE 213;    94 RECORDS:  
0ADSP     TITLE 'MTS ACCOUNTING RECORD DISPLAY PROGRAM--18 OCT 68'       DSPL0001
 *********************************************************************** DSPL0002
 *                                                                     * DSPL0003
 *        ACCDSPLA                                                     * DSPL0004
 *                                                                     * DSPL0005
 *        DISPLAYS MTS ACCOUNTING FILE RECORDS.  INPUT IS THE SIGNON ID* DSPL0006
 *        OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR FRACTION     * DSPL0007
 *        THEREOF.                                                     * DSPL0008
 *                                                                     * DSPL0009
 *********************************************************************** DSPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDOT$DOT DC    C' .$.'                                                  DSPL0085
 RECORD   DS    CL256                                                    DSPL0086
 SAVE     DS    18F                                                      DSPL0087
 SIGNONID DS    F                                                        DSPL0088
 COUNT    DS    H                                                        DSPL0089
 H39      DC    H'39'                                                    DSPL0090
 MOVE     MVC   SIGNONID(0),RECORD                                       DSPL0091
 BLANK    DC    CL10' '                                                  DSPL0092
 NORECMSG DC    C' ***      IS NOT IN THE ACCOUNTING FILE'               DSPL0093
          END                                                            DSPL0094
-FILE 214;   935 RECORDS:  
0APMT     TITLE 'MTS PROJECT ACCOUNTING MAINTENANCE PROGRAM--23 OCT 68'  PRJM0001
          MACRO                                                          PRJM0002
 &NAME    BINPAR    &FIELD,&NEXT,&MULT,&LEN                              PRJM0003
 .********************************************************************** PRJM0004
 .*                                                                    * PRJM0005
 .*       FIELD  A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE     * PRJM0006
 .*              VALUE OF THE POSITIONAL PARAMETER IS PLACED.          * PRJM0007
 .*       NEXT   LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* PRJM0008
 .*              MISSING.                                              * PRJM0009
 .*       MULT   AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER   * PRJM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ORG   RECORD+255                                               PRJM0926
          SPACE 5                                                        PRJM0927
          DS    0F                                                       PRJM0928
 MASK     DS    CL255                                                    PRJM0929
 MDISP    EQU   MASK-RECORD                                              PRJM0930
          SPACE 5                                                        PRJM0931
          DS    0F                                                       PRJM0932
 DEFAULT  DC    F'0',CL8' ',3F'0'                                        PRJM0933
          EJECT                                                          PRJM0934
          END                                                            PRJM0935
-FILE 215;   195 RECORDS:  
0AINT     TITLE 'MTS ACCOUNTING FILE INITIALIZATION PROGRAM--18 OCT 68'  INIT0001
 *********************************************************************** INIT0002
 *                                                                     * INIT0003
 *        ACCINITL                                                     * INIT0004
 *                                                                     * INIT0005
 *        RC=0  NORMAL RETURN.                                         * INIT0006
 *           4  ERROR IN OBTAINING ACCOUNTING FILE, SOME DISK, OR      * INIT0007
 *              CLOSING ACCOUNTING FILE.                               * INIT0008
 *                                                                     * INIT0009
 *        ACCFILUP                                                     * INIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * INIT0186
 *        ACCOUNTING RECORD STORAGE                                    * INIT0187
 *                                                                     * INIT0188
 *********************************************************************** INIT0189
          SPACE 5                                                        INIT0190
 RECORD   DS    0F                                                       INIT0191
          COPY  ACCFORMAT                                                INIT0192
          ORG   RECORD+255                                               INIT0193
          SPACE 5                                                        INIT0194
          END                                                            INIT0195
-FILE 216;   178 RECORDS:  
0AUPR     TITLE 'MTS USERS'' ACCOUNTING RECORD PRINT PROGRAM--20 OCT 68' PRNT0001
 *********************************************************************** PRNT0002
 *                                                                     * PRNT0003
 *        ACUSPRNT                                                     * PRNT0004
 *                                                                     * PRNT0005
 *        GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY.            * PRNT0006
 *              WORD1  ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* PRNT0007
 *              WORD2  ADDRESS OF AN AREA CONTAINING THE ACCOUNTING    * PRNT0008
 *                     RECORD TO BE PRINTED.                           * PRNT0009
 *                                                                     * PRNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** PRNT0169
 *                                                                     * PRNT0170
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * PRNT0171
 *                                                                     * PRNT0172
 *********************************************************************** PRNT0173
          SPACE 5                                                        PRNT0174
 RECORD   DSECT                                                          PRNT0175
          COPY  ACCFORMAT                                                PRNT0176
          SPACE 5                                                        PRNT0177
          END                                                            PRNT0178
-FILE 217;   136 RECORDS:  
0      /*    PROGRAM TO DO SOMETHING FOR IEBUPDAT INPUT */               IEB00001
                                                                         IEB00002
 UPDATE:     PROCEDURE OPTIONS(MAIN);                                    IEB00003
       DCL                                                               IEB00004
             INTAPE INPUT FILE RECORD ENV(LEAVE),                        IEB00005
             OUTTAPE OUTPUT FILE RECORD ENV(LEAVE),                      IEB00006
             DATA FILE INPUT RECORD,                                     IEB00007
             (BUFFER,WHAT) CHAR(80) INIT ((80)' '),                      IEB00008
             (FRSTNR,LASTNR,MEMBR,TEST) CHAR(8),                         IEB00009
             ID CHAR(8) DEFINED BUFFER POS(73),                          IEB00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                   COUNT = COUNT + INCR;                                 IEB00127
                   NEW_ID = COUNT;                                       IEB00128
                   SUBSTR(X,73,8) = NEW_ID;                              IEB00129
                   END;                                                  IEB00130
             SCREW = X;                                                  IEB00131
             WRITE FILE(OUTTAPE) FROM (SCREW);                           IEB00132
             RETURN;                                                     IEB00133
                   END PUTOUT;                                           IEB00134
                                                                         IEB00135
                                        END UPDATE;                      IEB00136
-FILE 218;   201 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'                                                    TIME0192
 COUNTEL  DC    H'28'                                                    TIME0193
 COUNTB   DC    H'9'                                                     TIME0194
 COUNTD   DC    H'13'                                                    TIME0195
 MONTHS   DS   F                                                         TIME0196
          DC   C'JAN FEB MAR APR MAY JUN '                               TIME0197
          DC   C'JUL AUG SEP OCT NOV DEC '                               TIME0198
 MOD      DC    F'0'                                                     TIME0199
 LINENO   DS    F                                                        TIME0200
          END                                                            TIME0201
-FILE 219;   591 RECORDS:  
0TPUC     TITLE 'MAGNETIC TAPE UNIT CHECK'                               TUC00001
 TAPEUC   START 0                                                        TUC00002
          ENTRY TPRDUC                                                   TUC00003
          ENTRY TPWRUC                                                   TUC00004
 * REGISTERS                                                             TUC00005
          SPACE 1                                                        TUC00006
 BASE1    EQU   7                                                        TUC00007
 BASE2    EQU   6                                                        TUC00008
 DREG1    EQU   13                                                       TUC00009
 DREG2    EQU   8                                                        TUC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RTNADR   EQU   DSECT2                                                   TUC00582
 REREAD   EQU   RTNADR+4                                                 TUC00583
 CLEANS   EQU   REREAD+1                                                 TUC00584
 CNTCHR   EQU   CLEANS+1                                                 TUC00585
 SNSCC    EQU   CNTCHR+1                                                 TUC00586
 SENSE    EQU   SNSCC+1                                                  TUC00587
 FLAG     EQU   SENSE+6                                                  TUC00588
 STOPCD   EQU   FLAG+1                                                   TUC00589
 DEVID    EQU   SENSE+8                                                  TUC00590
          END                                                            TUC00591
-FILE 220;    52 RECORDS:  
0BCDE     TITLE 'BCD TO EBCDIC CONVERSION'                               BCEB0001
          MACRO                                                          BCEB0002
 &NAME    GEN   &START,&END        MACRO TO GENERATE CONSTANTS BETWEEN   BCEB0003
          LCLA  &COUNT             &START AND &END                       BCEB0004
 &COUNT   SETA  &START                                                   BCEB0005
          AIF   ('&NAME' EQ '').REPEAT                                   BCEB0006
 &NAME    EQU   *                                                        BCEB0007
 .REPEAT  DC    AL1(&COUNT)                                              BCEB0008
 &COUNT   SETA  &COUNT+1                                                 BCEB0009
          AIF   (&COUNT LE &END).REPEAT                                  BCEB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TABLE    GEN   0,75                                                     BCEB0043
          DC    C')'                                                     BCEB0044
          GEN   77,79                                                    BCEB0045
          DC    C'+'                                                     BCEB0046
          GEN   81,107                                                   BCEB0047
          DC    C'('                                                     BCEB0048
          GEN   109,122                                                  BCEB0049
          DC    C'='''                                                   BCEB0050
          GEN   125,255                                                  BCEB0051
          END   BEGIN                                                    BCEB0052
-FILE 221;   306 RECORDS:  
0APPR     TITLE 'MTS PROJECT ACCOUNTING RECORD PRINT PROGRAM--13 JUL 68' 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** APPR0297
 *                                                                     * APPR0298
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * APPR0299
 *                                                                     * APPR0300
 *********************************************************************** APPR0301
          SPACE 5                                                        APPR0302
 RECORD   DSECT                                                          APPR0303
          COPY  ACCPROJFMT                                               APPR0304
          ORG   RECORD+255                                               APPR0305
          END                                                            APPR0306
-FILE 222;    54 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                                                        AXPR0045
 SAVE     DS    18F                                                      AXPR0046
 FMT      DC    C'''0SIGNON ID IS '',C4,'' ('',X,'')''/'' RECORD IS (HEX1AXPR0047
                )    LENGTH='',X2/(S10,6(X,S2))*'                        AXPR0048
          SPACE 5                                                        AXPR0049
 SIGNON   DSECT                                                          AXPR0050
 RECORD   DSECT                                                          AXPR0051
 LENGTH   DSECT                                                          AXPR0052
          SPACE 5                                                        AXPR0053
          END                                                            AXPR0054
-FILE 223;    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 224;    97 RECORDS:  
0APLS     TITLE 'MTS PROJECT ACCOUNTING LISTING PROGRAM--15 JUL 68'      APLS0001
 *********************************************************************** APLS0002
 *                                                                     * APLS0003
 *        ACCLIST                                                      * APLS0004
 *                                                                     * APLS0005
 *        LISTS THE MTS PROJECT ACCOUNTING FILE.                       * APLS0006
 *                                                                     * APLS0007
 *********************************************************************** APLS0008
          SPACE 5                                                        APLS0009
 ACCLIST  START                                                          APLS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SIGNONID DC    X'80000000'                                              APLS0088
 COUNT    DS    H                                                        APLS0089
 H24      DC    H'24'                                                    APLS0090
 H31      DC    H'31'                                                    APLS0091
 BLANKS   DC    CL10' '                                                  APLS0092
 FILENAME DC    C'*ACCUSERMAINT '                                        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 225;   110 RECORDS:  
0APDS     TITLE 'MTS PROJECT ACCOUNTING RECORD DISPLAY PROGRAM--15 JUL 61APDS0001
                8'                                                       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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SIGNONID DS    F                                                        APDS0101
 COUNT    DS    H                                                        APDS0102
 H24      DC    H'24'                                                    APDS0103
 H39      DC    H'39'                                                    APDS0104
 MOVE     MVC   SIGNONID(0),RECORD                                       APDS0105
 BLANK    DC    CL10' '                                                  APDS0106
 FILENAME DC    C'*ACCUSERMAINT '                                        APDS0107
 NOFILMSG DC    C' ERROR IN OBTAINING FILE'                              APDS0108
 NORECMSG DC    C' ***      IS NOT IN THE ACCOUNTING FILE'               APDS0109
          END                                                            APDS0110
-FILE 226;   763 RECORDS:  
0CONF     TITLE 'INITIALIZATION AND CONFIGURATION PROGRAM'               CONF0001
          SPACE 5                                                        CONF0002
 *        PERFORMS ERROR CHECKING FOR 2167 AND SETS UP TABLES FOR SUPER  CONF0003
 *        THE MAIN ERROR CHECKS ARE AS FOLLOWS:                          CONF0004
 *                                                                       CONF0005
 *              ALL SSU'S CONNECTED TO MY CPU ARE CONNECTED TO SAME THIN CONF0006
 *                                                                       CONF0007
 *              ALL SSU'S NOT CONNECTED TO MY CPU ARE NOT CONNECTED      CONF0008
 *              TO ANYTHING MY SSU'S ARE CONNECTED TO.                   CONF0009
 *                                                                       CONF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        BYTE-ALIGNED STUFF. SSUCONF THRU CPUCONF ASSEMBLED FOR SIMPLEX CONF0754
 FSAMAP   DC    X'0'           BIT FOR EACH FSA                          CONF0755
 SSUCONF  DC    X'88'          BIT FOR EACH CPU & CCU                    CONF0756
 CCUCONF  DC    X'08'          BIT FOR EACH CCU IN 4-7                   CONF0757
 CPUCONF  DC    X'80'          BIT FOR EACH CPU IN 0-3                   CONF0758
 BIT      DC    X'8040201008040201'                                      CONF0759
 FSAVALID DC    X'80C0E0F0F8FCFEFF'                                      CONF0760
 NUMBITS  DC    X'00010102010202030102020302030304'                      CONF0761
 INP      DS    CL50          INPUT AREA FOR TYPEWRITER                  CONF0762
          END                                                            CONF0763
-FILE 227;   113 RECORDS:  
0STRTPSW  DC    D'0'           EXTERNAL START PSW                        PSA00001
          DS    XL6                                                      PSA00002
 EXICOD   DS    H             EXTERNAL INTERUPT INTERRUPT CODE           PSA00003
 SVICOD   DS    H              SVC INTERRUPT CODE                        PSA00004
 PGICOD   DS    H              PROGRAM INTERRUPT CODE                    PSA00005
 MCICOD   DS    H              MACHINE CHECK INTERRUPT CODE              PSA00006
 IOICOD   DS    H              I/O INTERRUPT CODE                        PSA00007
 EXOPSW   DS    D              EXTERNAL INTERRUPT OLD PSW                PSA00008
 SVOPSW   DS    D              SVC INTERRUPT OLD PSW                     PSA00009
 PGOPSW   DS    D              PROGRAM INTERRUPT OLD PSW                 PSA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'8000'        SSU 6                                     PSA00104
          DC     X'8000'       SSU 7                                     PSA00105
          DC    X'8000'        SSU 8                                     PSA00106
 *                                                                       PSA00107
 *        END OF CST AND SST                                             PSA00108
 *                                                                       PSA00109
 TRACE    DS     0F            START OF TRACE TABLE ( IN IPLED CPU'S PSA PSA00110
 *                                                                       PSA00111
          ORG   PSA+4092       MUST PUT LAST JOB IN SECOND HALF PF PSA   PSA00112
 LASTJOB   DC   A(DUMJOB)      ADDRESS OF LAST JOB TABLE DISPATCHED      PSA00113
-FILE 228;   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 229; 31416 RECORDS:  
0ASM  TITLE 'F ASSEMBLER MASTER ROOT SEGMENT--RELEASE VERSION'           00020020
 *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
 *INPUT- N/A                                                             00220020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          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 230;  1597 RECORDS:  
0COMMENCE 10                                                                     
 DCBOUT   41                                                                     
 DEFCHAR  52                                                                     
 ENTRYOUT 161                                                                    
 FDIMEN   172                                                                    
 FINISH   553                                                                    
 INST     561                                                                    
 INSTSET  651                                                                    
 MESSAGE  1212                                                                   
 PRINTOUT 1256                                                                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BALR  14,15                             LINK TO GET ROUTINE            
          MEXIT                                                                  
 .E1      IHBERMAC 06                                                            
          MEND                                                                   
  MACRO                                                                          
 &LABEL QCALL &Q,&L                                                              
 &LABEL L 15,ADLIST1                                                             
  L 15,168+&Q.(0,15)                                                             
  CALL (15),&L                                                                   
  MEND                                                                           
-FILE 231;     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 232;  1949 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,        ,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 233;  3323 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 234;  2193 RECORDS:  
0BEGIN COMMENT PL360 COMPILER -- MTS VERSION JUNE 1968, MODIF SEPT 16;           
                                                                         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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     R0 := 1; CSEGNO := R0; PROCBR := R0;                                PL002184
     R9 := PROGBASE; R10 := DATABASE; R7 := STACKBASE - 16;              PL002185
     R0 := 0; R1 := DATAESDADR; DC := R0;                                PL002186
     PL360NO(R1) := R0; SYMTYPE := R0;                                   PL002187
     R0 := ENDCHAIN; PREVSEG(R9) := R0; PREVSEG(R10) := R0;              PL002188
     R2 := 1; R3 := PROGREG; R5 := R9; OPENSEG;                          PL002189
     R3 := R3 SHLL 12; PTAG := R3;                                       PL002190
     R1 := PROGESDADR; R0 := R1; R2 := @SD; R3 := @VTYPE; R4 := 1;       PL002191
     FINDESDENTRY; PROGESDEND := R0;                                     PL002192
     MVC (132,WBUFF,BLANK); R1 := LABELBASE; MVC (11,B1,ZERO);                   
-FILE 235; 21881 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 UATEPTR  DC    F'0'            PTR TO ACTIVE UATE                       FIOC0335
 BUFLEN   DC    H'32'           LENGTH OF BUFFER IN DOUBLE WORDS         FIOC0336
 LENGTH   DC    H'0'                                                     FIOC0337
          LTORG                                                          FIOC0338
          DS    0D                                                       FIOC0339
 SAVE     DC    16F'0'                                                   FIOC0340
 DWBLANK DC     CL8'        '                                            FIOC0341
 SAVEAREA DS    9D                                                       FIOC0342
 BUFFER   DS    32D                                                      FIOC0343
          END                                                            FIOC0344
-FILE 236;   108 RECORDS:  
0*******************                                                             
 *        FOLLOWING ARE THE DECLARATIONS FOR THE INST PARAMETERS                 
 *        THESE SHOULD NOT BE CHANGED                                            
 *******************                                                             
          GBLA      &FTABC(255)                                                  
          GBLA      &ARGA                                                        
          GBLA      &PARMCOL                                                     
          GBLA      &READ                                                        
          GBLA      &PRINT                                                       
          GBLA      &PUNCH                                                       
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .SET2    ANOP                                                                   
 &VCHECK1 SETA      0                                                            
 &VCHECK2 SETA      0                                                            
 .VEND    ANOP                                                                   
          AIF       ('&CHRMODE' EQ 'BCDIC').SET4                                 
 &VCHECK3 SETA      6                                                            
          AGO       .VEND1                                                       
 .SET4    ANOP                                                                   
 &VCHECK3 SETA      0                                                            
 .VEND1   ANOP                                                                   
-FILE 237;  1312 RECORDS:  
0BEGTRACE 1002                                                                   
 BER      1013                                                                   
 BHR      1019                                                                   
 BLR      1025                                                                   
 BNER     1031                                                                   
 BNHR     1037                                                                   
 BNLR     1043                                                                   
 BNOR     1049                                                                   
 BNPR     1055                                                                   
 BOR      1061                                                                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                                                 
                                                                                 
          MACRO                                                                  
 &NAME    XROUTS    &NUM                                                         
 &NAME    MVC       XLAS&NUM+2(2),2(R14)                                         
 XLAS&NUM LA        R15,*-*(R12)                                                 
          CLC       XUNDEF(&NUM),0(R15)                                          
          BNER      R14                                                          
          B         XERRUV0                                                      
          MEND                                                                   
-FILE 238;    72 RECORDS:  
0 TITLE 'MACRO LIBRARY GENERATOR'                                        MCGN0001
 *                                                                       MCGN0002
 * SCARDS - MACRO LIBRARY                                                MCGN0003
 * SPUNCH - MACRO DIRECTORY                                              MCGN0004
 *                                                                       MCGN0005
 LIBGEN CSECT                                                            MCGN0006
 *                                                                       MCGN0007
 R0 EQU 0                                                                MCGN0008
 R1 EQU 1                                                                MCGN0009
 R2 EQU 2                                                                MCGN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       MCGN0063
 ADW DS D                                                                MCGN0064
 IMG DS CL80                                                             MCGN0065
  DC CL8'%'                                                              MCGN0066
 LNO DS F                                                                MCGN0067
 WA DS CL8                                                               MCGN0068
 OBF DS CL80                                                             MCGN0069
 SETLNO MVC OBF+9(0),0(R1)                                               MCGN0070
 SETMN MVC OBF(0),0(R3)                                                  MCGN0071
  END                                                                    MCGN0072
-FILE 239;  6757 RECORDS:  
0ABEND    1002                                                           MCGN0073
 ATTACH   1055                                                           MCGN0074
 BLDL     1382                                                           MCGN0075
 BSP      1395                                                           MCGN0076
 BUILD    1405                                                           MCGN0077
 CALL     1454                                                           MCGN0078
 CHAP     1492                                                           MCGN0079
 CHECK    1516                                                           MCGN0080
 CLOSE    1528                                                           MCGN0081
 CNTRL    1688                                                           MCGN0082
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .SVC     SVC   7                                 ISSUE XCTL SVC         MCGN6820
          MEXIT                                                          MCGN6821
 .E4      IHBERMAC 36,,&REG                                              MCGN6822
          MEXIT                                                          MCGN6823
 .E1      IHBERMAC 95                                                    MCGN6824
          MEXIT                                                          MCGN6825
 .E2      IHBERMAC 84                                                    MCGN6826
          MEXIT                                                          MCGN6827
 .E3      IHBERMAC 75                                                    MCGN6828
 .END     MEND                                                           MCGN6829
-FILE 240;  7839 RECORDS:  
0         MACRO                                                                  
 &SL      PUTLINE                                                                
 &SL      STM   13,2,SAVR#                                                       
          LR    2,15                                                             
          LA    13,SAVREG#                                                       
          LA    1,BLPFX#                                                         
          L     15,=V(SETPFX)                                                    
          BALR  14,15                                                            
          LR    15,2                                                             
          L     14,ANSADR                                                        
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MDLALA   L     R8,IOPSUB                                                PIL07432
          B     IOPXX1                                                   PIL07433
          USING MDEL,R8                                                  PIL07434
          SPACE 1                                                        PIL07435
 *        DELETE DATASET XXXXXX.                                         PIL07436
 *                                                                       PIL07437
 DLTDTS   L     R8,IOPSUB                                                        
          USING MASSIGN,R8                                                       
          B     MTYASNX       NOT IMPLEM YET                                     
          USING MDEL,R8                                                          
-FILE 241;  2324 RECORDS:  
0         EJECT                                                          PIL07444
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PIL07445
 *                                                                       PIL07446
 *              'FOR' PROCESSOR FOR PIL/L                                PIL07447
 *                                      E. ANDREW JOHNSON                PIL07448
 *                                                                       PIL07449
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PIL07450
          SPACE 2                                                        PIL07451
 PTINIT   EQU   0                  H  EXPR TO INITIALIZE LOOP            PIL07452
 PTRBY    EQU   2                  H  EXPR TO STEP VAR                   PIL07453
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SAVR#    DS    3D                                                               
 SAVREG#  DS    18F                                                              
 PARREG#  DS    6F                                                               
 SAV57#   DS    3F                                                               
 SAV10#   DS    F                                                                
 SAV14#   DS    F                                                                
 SAV15#   DS    F                                                                
 WORK     DS    D                  START OF WORK AREA                    PIL09712
          EJECT                                                          PIL09713
          END                                                            PIL09714
-FILE 242;    75 RECORDS:  
0PLSP     TITLE 'PL360 SUPPORT LIBRARY'                                  PLLB0001
          MACRO                                                          PLLB0002
 &EP      ENTER                                                          PLLB0003
          ENTRY &EP                                                      PLLB0004
          USING &EP,15                                                   PLLB0005
 &EP      STM   12,11,SAVE                                               PLLB0006
          L     12,=A($PLCOMP)                                           PLLB0007
          USING $PLCOMP,12                                               PLLB0008
          DROP  15                                                       PLLB0009
          MEND                                                           PLLB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PAGE     ENTER                                                          PLLB0066
          SPRINT '1'                                                     PLLB0067
          EXIT                                                           PLLB0068
 *                                                                       PLLB0069
 BIR      MVC   0(0,6),BL80                                              PLLB0070
 LEN#     DS    H                                                        PLLB0071
 BL80     DC    CL80' '                                                  PLLB0072
 SAVE     DS    18A                                                      PLLB0073
 EOF      DC    X'00'                                                    PLLB0074
          END                                                            PLLB0075
-FILE 243;  2282 RECORDS:  
0BEGIN COMMENT PL360 COMPILER -- MTS VERSION JUNE 1968, MODIF SEPT 16;           
                                                                         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 244; 19644 RECORDS:  
0C     SYSTEM/360 SCIENTIFIC SUBROUTINE PACKAGE, VERSION 2, LEVEL 0           001
 C                                                                       MFGR 001
 C     ..................................................................MFGR 002
 C                                                                       MFGR 003
 C        SUBROUTINE MFGR                                                MFGR 004
 C                                                                       MFGR 005
 C        PURPOSE                                                        MFGR 006
 C           FOR A GIVEN M BY N MATRIX THE FOLLOWING CALCULATIONS        MFGR 007
 C           ARE PERFORMED                                               MFGR 008
 C           %1< DETERMINE RANK AND LINEARLY INDEPENDENT ROWS AND        MFGR 009
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     9 SUM#SUM&AMN                                                       DTEUL093
       IF%ABS%SNGL%AMN<<-EPS*ABS%SNGL%SUM<<<10,10,3                      DTEUL094
 C                                                                       DTEUL095
 C        TEST END OF PROCEDURE                                          DTEUL096
 C                                                                       DTEUL097
    10 J#J&1                                                             DTEUL098
       IF%J-5<4,11,11                                                    DTEUL099
    11 IER#0                                                             DTEUL100
    12 RETURN                                                            DTEUL101
       END                                                               DTEUL102
-FILE 245;  1061 RECORDS:  
0FTN TITLE 'FORTRAN G MODULE IEYFORT VERSION 13 -- *FTN'                         
 IEYFORT  CSECT                                                          00020000
 *********************************************************************** 00040000
 *                                                                       00080000
 *FUNCTION/OPERATION.                                                    00100000
 *    THIS MODULE CONTROLS THE OPERATION OF THE FORTRAN IV(G) COMPILER.  00120000
 *    IT INITIALLY RECEIVES CONTROL FROM THE INVOKING PROGRAM, PERFORMS  00140000
 *    APPROPRIATE INITIALIZING FUNCTIONS, THEN TRANSFERS CONTROL TO THE  00160000
 *    FIRST PHASE (IEYPAR). CONTAINED WITHIN THIS MODULE ARE ALL THE     00180000
 *    INPUT/OUTPUT ROUTINES USED BY THE COMPILER, THE DYNAMIC WORK-      00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ENDCARD  DSECT                                                                  
          DS    CL1                X'02'                                         
 ENDHDR   DS    CL3                C'END'                                        
          DS    CL1                BLANK                                         
 ENDENTRY DS    CL3                ENTRY POINT ADDRESS (OPTIONAL)                
 ENDBLANK DS    CL6                BLANK                                         
 ENDESDID DS    CL2                ESDID IF ENTRY POINT (OPTIONAL)               
          DS    CL12               BLANK                                         
 ENDLEN   DS    CL4                CSECT LENGTH                                  
          END   IEYFORT                                                  20220000
-FILE 246;  6018 RECORDS:  
0$COM      'UNIVERSITY OF MICHIGAN SCORS/360 FOR THE SC-4020'                    
                                                                                 
 $RUN *NEWFORT; 0=*DUMMY* PAR=LIST,DECK                                          
                                                                                 
       SUBROUTINE ANDV(A,B,C)                                            00000010
                                                                                 
 C ANDV PERFORMS THE LOGICAL PRODUCT C=A*B                               00000020
                                                                                 
       C=AND(A,B)                                                        00000030
                                                                                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 UNIT     DC    F'9'               UNIT NUMBER                                   
                                                                                 
 SAVER    DS    18F                SAVE AREA                                     
                                                                                 
 COUNT    DS    H                  BYTE COUNT                                    
                                                                                 
 *                                                                               
                                                                                 
          END                                                                    
                                                                                 
-FILE 247;  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 248;   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 249;   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 250;   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 251;   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 252;  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 253;  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 254;  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 255;  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 256;  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 257;  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 258;  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 259;  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 260;  9998 RECORDS:  
0GSTO     TITLE 'GSTOR' STORE GRAPHIC DATA                               GLIB0001
 IFFPAAST CSECT                          GSTOR                           GLIB0002
 *STATUS. CHANGE LEVEL 0                                                 GLIB0003
 *                                                                       GLIB0054
 *FUNCTION/OPERATION. GSTOREG            EQUALS BYTES-CAN'T STORE        GLIB0055
          SR    WRKREG,TEMREG            NUMBER OF BYTES-CAN STORE       GLIB0056
          C     WRKREG,ZERO                                              GLIB0057
          BNH   GSTOR4                   NO STORAGE AVAILABLE            GLIB0058
          SR    CNTREG,WRKREG            BYTES REMAINING                 GLIB0059
          BAL   LINREG,GSTOR6            MOVE GRAPHIC DATA               GLIB0060
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 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 261;   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 262;   637 RECORDS:  
0TVCT     TITLE 'TRANSFER VECTOR FOR TASKS ROUTINES'                     PTRT0001
          CSECT                                                          PTRT0002
          ENTRY TVECT                                                    PTRT0003
 TVECT    DC    V(ERROR)                                                 PTRT0004
          DC    V(DEVICES)                                               PTRT0005
          DC    V(JOBTABLE)                                              PTRT0006
          END                                                            PTRT0007
 JOB      TITLE 'SUBROUTINE TO DISPLAY JOB TABLE INFORMATION'            PTRT0008
 JBTBL    CSECT                                                          PTRT0009
          ENTRY JOBTABLE                                                 PTRT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'2  SPURIOUS DE RECEIVED       6  UNIT CHECK'           PTRT0628
          DC    X'15'                                                    PTRT0629
          DC    C'3  PROCEED                    7  UNIT EXCEPTION'       PTRT0630
          DC    A(GECPB)                                                 PTRT0631
          DC    X'15'                                                    PTRT0632
            DC  X'00'                                                    PTRT0633
 DLINEL   EQU   *-DLINE                                                  PTRT0634
 TBL      DC    C'0123456789ABCDEF'                                      PTRT0635
 TRTBL    EQU   TBL-240                                                  PTRT0636
          END                                                            PTRT0637
-FILE 263;   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 264;  1358 RECORDS:  
0         MACRO                                                          25ED0001
 &LABEL   IOREQ &CCW                                                     25ED0002
 &LABEL   L     0,DEVICE                                                 25ED0003
          LA    1,&CCW                                                   25ED0004
          LA    2,RTNL                                                   25ED0005
          SVC   STIO                                                     25ED0006
          SVC   WAIT                                                     25ED0007
          MEND                                                           25ED0008
          MACRO                                                          25ED0009
 &LABEL   IOREQ2 &CCW                                                    25ED0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LOCCURI  DC    AL2(ILN-DISP)                                            25ED1349
 LOCCURSC DC    AL2(SCAN-DISP)                                           25ED1350
 SETLOC   DC    AL2(STAB-DISP)                                           25ED1351
 COMMLOC  DC    AL2(COMM-DISP)                                           25ED1352
 SEQADD   DC    AL2(SEQASTK-DISP)                                        25ED1353
 INDADD   DC    AL2(INDASTK-DISP)                                        25ED1354
 ILNLOC   EQU   LOCCURI                                                  25ED1355
 ILN2LOC  DC    AL2(ILN2-DISP)                                           25ED1356
 SCANLOC  EQU   LOCCURSC                                                 25ED1357
          END   BEGIN                                                    25ED1358
-FILE 265;  1214 RECORDS:  
0PDSR     TITLE '2250 DEVICE SUPPORT ROUTINES'                           25RT0001
          MACRO                                                          25RT0002
 &NAME    IOREQ &CCW                                                     25RT0003
 &NAME    L     0,DEVICE                                                 25RT0004
          LA    1,&CCW                                                   25RT0005
          LA    2,RTNL                                                   25RT0006
          SVC   STIO                                                     25RT0007
          SVC   WAIT                                                     25RT0008
          MEND                                                           25RT0009
          CSECT                                                          25RT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PTABPT   DC    F'-8'          PRIMARY TABLE POINTER (# OF PAGES)        25RT1205
 SAVEREG1 DS    F              REG 1 POINTS TO CALLING PARAMETERS        25RT1206
 REG2SAVE DS    F             REG 2 POINTS TO RELEASE PARS               25RT1207
 CURLINE  DS    H              CURRENT LINE NUMBER                       25RT1208
 LENGTH   DS    H              TEMP STORAGE FOR LGTH OF LINEOUT & LINEIN 25RT1209
 CURDISP  DS    H              CURRENT DISPLACEMENT                      25RT1210
 STABPT   DS    H              SECONDARY TABLE POINTER (# OF LINES)      25RT1211
 LINENO   DS    H              LINE # IN LINEIN                          25RT1212
 DISP     DS    H              DISPLACEMENT IN LINE IN                   25RT1213
          END                                                            25RT1214
-FILE 266;   177 RECORDS:  
0PMIN     TITLE 'CONVERSATIONAL INTERFACE WITH GRAPHIC PLOT ROUTINES'    25PL0001
 PMAIN    CSECT                                                          25PL0002
          EXTRN GPLOT2                                                   25PL0003
          EXTRN GPLOT3                                                   25PL0004
          STM   14,12,12(13)                                             25PL0005
          LA    12,0(0,13)                                               25PL0006
          BAL   13,84(0,15)                                              25PL0007
          USING *,13                                                     25PL0008
 SAREA    DS    18F                                                      25PL0009
          ST    12,SAREA+4                                               25PL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COM25    DC    C' ***** START AGAIN FROM THE BEGINNING '                25PL0168
 COM25L   DC    AL2(COM25L-COM25)                                        25PL0169
 COM26    DC    C' ***** FILE ON LUNIT 1 HAS BEEN REWOUND '              25PL0170
 COM26L   DC    AL2(COM26L-COM26)                                        25PL0171
 COM4     DC    C' ENTER # X,Y PAIRS(INT) '                              25PL0172
 COM4L    DC    AL2(COM4L-COM4)                                          25PL0173
 FMT1     DC    C'4(WE),I*'                                              25PL0174
 FMT2     DC    C'I*'                                                    25PL0175
 FMT4     DC    C'C*'                                                    25PL0176
          END                                                            25PL0177
-FILE 267;   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 268;   196 RECORDS:  
0LOW      TITLE '                       LOWCASE'                         TXT00001
 LOWCASE  START 0                                                        TXT00002
          USING *,15                                                     TXT00003
          L     15,0(0,1)                                                TXT00004
          L     15,0(0,15)                                               TXT00005
          NI    0(15),X'BF'                                              TXT00006
          BR    14                                                       TXT00007
          END                                                            TXT00008
 CONV     TITLE '                       UPPER-LOWER CASE CONV'           TXT00009
 *                                                                       TXT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BR    14                      RETURN TO CALLER                 TXT00187
 *                                                                       TXT00188
 TRINST   TR    0(0,6),TRTABLE          XLATE INSTRUCTION PROPER         TXT00189
 SET1     DC    CL9'ABCDEFGHI'                                           TXT00190
 SET2     DC    CL9'JKLMNOPQR'                                           TXT00191
 SET3     DC    CL8'STUVWXYZ'                                            TXT00192
          DS    0D                                                       TXT00193
 TRTABLE  DC    CL256' '                                                 TXT00194
 *                                                                       TXT00195
          END                                                            TXT00196
-FILE 269;   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 270;   663 RECORDS:  
0PNTABL   91                                                             UM000001
 PVTABL   107                                                            UM000002
 TABGEN   124                                                            UM000003
 ENT      147                                                            UM000004
 MCRTBE   163                                                            UM000005
 BTINN    178                                                            UM000006
 MSG      198                                                            UM000007
 PSECT    212                                                            UM000008
 BAS      225                                                            UM000009
 BASR     235                                                            UM000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *          LENGTH OF THE SYMBOL NAME.                                   UM000654
          SPACE 2                                                        UM000655
          MACRO                                                          UM000656
          MDFTB &CHAR,&DISP,&LEN                                         UM000657
          DC    CL4'&CHAR    '                                           UM000658
          DC    AL1(&DISP)                                               UM000659
          DC    AL1(BRKBEG)                                              UM000660
          DC    H'&LEN'                                                  UM000661
          MEND                                                           UM000662
          END                                                            UM000663
-FILE 271;   328 RECORDS:  
0         EJECT                                                          UM100001
          SPACE 6                                                        UM100002
 *********************************************************************** UM100003
 *                                                                     * UM100004
 *********************************************************************** UM100005
 *                                                                     * UM100006
 *********************************************************************** UM100007
 *                                                                     * UM100008
 *                                                                     * UM100009
 *     UMIST PSECT                                                     * UM100010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    60F                                                      UM100319
 Z@CALL   EQU   *                                                        UM100320
          SPACE 3                                                        UM100321
 *          STORAGE AREA FOR SDUMP                                       UM100322
 *                                                                       UM100323
          CNOP  0,8                                                      UM100324
 DUMPAREA EQU   *                                                        UM100325
          DS    CL360                                                    UM100326
          CSECT                                                          UM100327
          EJECT                                                          UM100328
-FILE 272;   159 RECORDS:  
0         EJECT                                                          UM200001
          SPACE 6                                                        UM200002
 *********************************************************************** UM200003
 *                                                                     * UM200004
 *********************************************************************** UM200005
 *                                                                     * UM200006
 *********************************************************************** UM200007
 *                                                                     * UM200008
 *                                                                     * UM200009
 *     UMIST SYMBOL DEFINITIONS...                                     * UM200010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PNTYP    EQU   5             TYPE OF PARAMETER                          UM200150
 PNDX     EQU   6             PARAMETER INDEX IN VALUE TABLE             UM200151
          SPACE 4                                                        UM200152
 *          PARAMETER VALUE TABLE                                        UM200153
          SPACE 2                                                        UM200154
 PVAL     EQU   0             PARAMETER INTERNAL VALUE                   UM200155
 PVLEN    EQU   4             EXTERNAL VALUE IBM LENGTH                  UM200156
 PVMLEN   EQU   5             EXTERNAL VALUE MAXIMUM LENGTH              UM200157
 PVDISP   EQU   6             EXTERNAL VALUE DISPLACEMENT                UM200158
          EJECT                                                          UM200159
-FILE 273;   313 RECORDS:  
0IST1     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            UM300001
          SPACE 7                                                        UM300002
 *********************************************************************** UM300003
 *                                                                     * UM300004
 *********************************************************************** UM300005
 *                                                                     * UM300006
 *********************************************************************** UM300007
 *                                                                     * UM300008
 *                                                                     * UM300009
 *     *      *     **     **     ***      *******      *********      * UM300010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EXTRN UMPSECT                                                  UM300304
          EXTRN @RESTART                                                 UM300305
 *                                                                       UM300306
 UMISTMSG DC    C'... UMIST SIGNS ON ...'                                UM300307
 UMISMSGL DC    Y(L'UMISTMSG) LENGTH OF MESSAGE                          UM300308
 UMISMODF DC    F'0'          MODIFIERS FOR SERCOM                       UM300309
 UMISBASE DC    A(UMPSECT)    ***** OS ADCON ***** UMIST PSECT *****     UM300310
 RESTART  DC    A(@RESTART)                                              UM300311
          DROP  J                                                        UM300312
          END                                                            UM300313
-FILE 274;   385 RECORDS:  
0         SPACE 1                                                        UM400001
          GBLC  &ASM                                                     UM400002
 &ASM     SETC  'TBL'                                                    UM400003
          PRINT OFF                                                      UM400004
 IST2     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            UM400005
          COPY  /SYMBOLS@S                                               UM400006
          COPY  /PSECT@S                                                 UM400007
          PRINT ON                                                       UM400008
          SPACE 6                                                        UM400009
 *********************************************************************** UM400010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(B$TEST-$TEST)                                          UM400376
          DC    A((E$TEST-$TEST)/(B$TEST-$TEST))                         UM400377
          DC    A(B$NAME-$NAME)                                          UM400378
          DC    A((E$NAME-$NAME)/(B$NAME-$NAME))                         UM400379
          DC    A(B$DEFINE-$DEFINE)                                      UM400380
          DC    A((E$DEFINE-$DEFINE)/(B$DEFINE-$DEFINE))                 UM400381
          DC    A(B$PNAME-$PNAME)                                        UM400382
          DC    A(B$PVALUE-$PVALUE)                                      UM400383
 E$LENGTH EQU   *                                                        UM400384
          END                                                            UM400385
-FILE 275;    64 RECORDS:  
0IST3     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            UM500001
          SPACE 1                                                        UM500002
 *********************************************************************** UM500003
 *                                                                     * UM500004
 *********************************************************************** UM500005
 *                                                                     * UM500006
 *********************************************************************** UM500007
 *                                                                     * UM500008
 *                                                                     * UM500009
 *     UMIST MISCELLANEOUS CONTROL SECTIONS                            * UM500010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 3                                                        UM500055
 CFREE    CSECT                                                          UM500056
          ENTRY FREE                                                     UM500057
          ENTRY EFREE                                                    UM500058
          SPACE 1                                                        UM500059
 FREE     EQU   *                                                        UM500060
          DS    1018F                                                    UM500061
 EFREE    EQU   *                                                        UM500062
          SPACE 6                                                        UM500063
          END                                                            UM500064
-FILE 276;  1466 RECORDS:  
0IST4     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            UM600001
          PRINT OFF                                                      UM600002
          SPACE 1                                                        UM600003
          GBLC  &ASM                                                     UM600004
 &ASM     SETC  'PSECT'                                                  UM600005
          COPY  /SYMBOLS@S                                               UM600006
          PRINT ON                                                       UM600007
          COPY  /PSECT@S                                                 UM600008
 &ASM     SETC  'UT1'                                                    UM600009
          SPACE 6                                                        UM600010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PRINTZ   LTR   H,H           ARE YOU THROUGH?                           UM601457
          BNZ   PRINT         BRANCH IF NOT                              UM601458
          ZR    0             CLEAN UP AFTER OS/360                      UM601459
          ZR    1             CLEAR OUT 1 AFTER OS                       UM601460
 PRINTED  POP   ,             RESTORE STACK POINTER                      UM601461
 PRINTOUT EXIT  D,R                                                      UM601462
 *                                                                       UM601463
 PRINTM   DC    F'0'          MODIFIERS FOR SPRINT                       UM601464
          DROP  J                                                        UM601465
          END                                                            UM601466
-FILE 277;  1755 RECORDS:  
0IST5     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            UM700001
          PRINT OFF                                                      UM700002
          SPACE 1                                                        UM700003
          GBLC  &ASM                                                     UM700004
 &ASM     SETC  'PR1'                                                    UM700005
          COPY  /SYMBOLS@S                                               UM700006
          COPY  /PSECT@S                                                 UM700007
          SPACE 6                                                        UM700008
          PRINT ON                                                       UM700009
 *********************************************************************** UM700010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LEFERRA  ERROR 'FUNCTION CALL TABLE OVERFLOW IN LEF',,12                UM701746
          B     LEFOUT                                                   UM701747
 LEFERRB  STM   H,I,0(S)      SAVE RESISTERS H AND I                     UM701748
          GETARG  H           GET ARGUMENT BOUNDS                        UM701749
          ERROR  'ATTEMPT TO REDEFINE A PROTECTED NAME IN LEF ',,12,H    UM701750
          LM    H,I,0(S)      RESTORE REGISTERS H AND I                  UM701751
          B     LEFTRY1                                                  UM701752
          DROP  J                                                        UM701753
          SPACE 6                                                        UM701754
          END                                                            UM701755
-FILE 278;  1398 RECORDS:  
0IST6     TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI'            UM800001
          PRINT OFF                                                      UM800002
          SPACE 1                                                        UM800003
          GBLC  &ASM                                                     UM800004
 &ASM     SETC  'PR2'                                                    UM800005
          COPY  /SYMBOLS@S                                               UM800006
          PRINT ON                                                       UM800007
          COPY  /PSECT@S                                                 UM800008
          SPACE 6                                                        UM800009
 *********************************************************************** UM800010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    CL8'8'                                                   UM801389
          DC    CL8'9'                                                   UM801390
 MTSTBL1E EQU   *-8                                                      UM801391
 MTSNOOP  DC    C'NOOP'                                                  UM801392
 MTSBUSY  DC    C'BUSY'                                                  UM801393
 MTSBAT   DC    C'BATCH'                                                 UM801394
 MTSCONV  DC    C'CONV.'                                                 UM801395
          DROP  J                                                        UM801396
          SPACE 6                                                        UM801397
          END                                                            UM801398
-FILE 279;   131 RECORDS:  
01        THIS IS A GENERAL UMIST TEST AT ##(TM) ON ##(DT)...'           UM900001
 -'                                                                      UM900002
 ##(EQ,##(EQ,##(EQ,,,T,F),##(EQ,THIS IS A LOOONG STRINX,THIS IS A LOOONG UM900003
 ,T),Y,N),##(EQ,1111,111,N,Y),EQ O.K.,EQ IN ERROR)'                      UM900004
 ##(EQ,##(EQ,##(RS),(#(##(A,B))),Y,N),##(EQ,#(RS),,Y,Z),RS O.K.,RS IN ERRUM900005
 (A,B))'#(DSS,MES,*)#(RS)#(DSS,MES,##(XTC,7D))#(RS)'*''                  UM900006
 ##(EQ,##(EQ,##(EQ,##(RC),1,OK,NO),##(EQ,##(RC),#,OK,NEG),YES,OH),##(EQ,#UM900007
 (MES),YES,OOPS),RC O.K.,RC IN ERROR)'1#'                                UM900008
 ##(EQ,##(EQ,##(RN,1),A,OK,NO),##(EQ,##(RN,7),1234567,OK,F),##(NL,##(RN,1UM900009
 8),##(RN,11))'A1234567RN IN ERROR##(RN,7)RN O.K.RN IN ERROR             UM900010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 )#(EASY)...#(CL,EASY)'DS,1,#( ,1)'DS,5,#( ,5)'EQ,#(CL,1)#(CL,5),1120,RECUM900122
 ACTORIAL AND EASY WORK,RECURSIVE FACTORIAL AND EASY DO NOT WORK'CL,EASY,UM900123
 -'                                                                      UM900124
 #(DS, ,(#(DS,CTR,1)#(DS,VAL,1)#(TEST,X)...                              UM900125
 #(DS,TEST,(#(EQ,X,#(CTR),#(VAL),(#(DS,VAL,#(DS,CTR,#(AD,#(CTR),1))#(ML,#UM900126
 VAL)))#(TEST,X)...                                                      UM900127
 #(SS, ,X)#(SS,TEST,X)#(EQ,#( ,1)#( ,5),1120,ITERATIVE FACTORIAL WORKS,ITUM900128
  FACTORIAL DOES NOT WORK)'                                              UM900129
 ##(DS,A,(-END OF UMIST TEST AT ##(TM) ON ##(DT)))'                      UM900130
 ##(BYE,#(A))'                                                           UM900131
-FILE 280;  7541 RECORDS:  
0       TITLE   '                   SUCCESS DIRECT GOTO                  SN000051
 UGOTYP EQU     1                   UNCONDITIONAL GOTO                   SN000052
 UTOTYP EQU     4                   UNCONDITIONAL DIRECT GOTO            SN000053
 VARTYP EQU     3                   VARIABLE                             SN000054
        TITLE   'DATA TYPE CODES'                                        SN000055
 ARRDT  EQU     4                   ARRAY.                               SN000056
 BLKDT  EQU     2                   BLOCK (INTERNAL USE ONLY).           SN000057
 PATDT  EQU     3                   PATTERN.                             SN000058
 CODEDT EQU     8                   CODE.                                SN000059
 TTLFLD EQU     TITLE                                                    SN000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ILCHAR STRING  'ILLEGAL CHARACTER IN ELEMENT'                           SN007532
 ILLBIN STRING  'BINARY OPERATOR MISSING OR IN ERROR'                    SN007533
 ILLDEC STRING  'ERRONEOUS DECIMAL NUMBER'                               SN007534
 ILLINT STRING  'ERRONEOUS INTEGER'                                      SN007535
 MISCMA STRING  'MISSING COMMA'                                          SN007536
 MISRPN STRING  'MISSING RIGHT PARENTHESIS'                              SN007537
 OPNLIT STRING  'UNCLOSED LITERAL'                                       SN007538
 ILLEOS STRING  'IMPROPERLY TERMINATED STATEMENT'                        SN007539
 CMSG1  STRING  'END OF FILE OCCURED BEFORE END CARD FOUND'              SN007540
        END                                                              SN007541
-FILE 281;  2319 RECORDS:  
0       MACRO       DOLFN                                                SN100051
          EXTRN     NAMFN                                                SN100052
          EXTRN     DIVFN                                                SN100053
          EXTRN     ORFN                                                 SN100054
          EXTRN     MNSFN                                                SN100055
 *                                                                       SN100006
          MACRO                                                          SN100007
 &L       OUTPUT &DUM,&OUT                                               SN100008
          CNOP  0,4                                                      SN100009
 &L       L     15,=V(IBCOM#)                                            SN100010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L         R3,0(R2)        N                                    SN102310
          SR        R3,R4           N-(N-I) = I                          SN102311
          ST        R3,0(R2)        SET LENGTH OF R1.                    SN102312
          L         1,=A(STYPE)                                          SN102313
          ST        R7,0(1)                                              SN102314
          B         8(14)                                                SN102315
 STRMTRT  TRT       1(0,1),0(R3)        TRANSLATE AND TEST               SN102316
 STTEMP   DC        2F'0'                                                SN102317
          LTORG                                                          SN102318
          END                                                            SN102319
-FILE 282;   115 RECORDS:  
0STINT    START                                                          SN200001
 DESCR    EQU   8                                                        SN200002
 MEMLOW   EQU   5000 DESCRIPTORS - FOR SMALL PROGRAM (45 PAGES TOTAL)    SN200003
 MEMMED   EQU   15000 DESCRIPTORS - FOR MEDIUM PROGRAM (65 PAGES TOTAL)  SN200004
 MEMHIG   EQU   25000 DESCRIPTORS - FOR LARGE PROGRAM (85 PAGES TOTAL)   SN200005
          TITLE 'STINT'                                                  SN200006
          USING *,7                                                      SN200007
          LR    7,15                                                     SN200008
          STM   0,15,SAVEA                                               SN200009
          L     13,=V(SAVESAVE)                                          SN200010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B     NOXEX+8                                                  SN200106
 NOXEX    BAL   6,*+4                                                    SN200107
          L     3,=V(EXECSP)                                             SN200108
          LA    1,2                                                      SN200109
          LA    2,GOKEY                                                  SN200110
          ST    1,0(3,0)                                                 SN200111
          ST    2,8(3,0)                                                 SN200112
          BR    6                                                        SN200113
 *                                                                       SN200114
          END                                                            SN200115
-FILE 283;    70 RECORDS:  
0       GBLB    &TRACE                                                   MLNK0001
 &TRACE SETB    0                                                        MLNK0002
 S4     START                                                            MLNK0003
        ENTRY   ADDFN                                                    MLNK0004
        ENTRY   DATA                                                     MLNK0005
        ENTRY   DIVFN                                                    MLNK0006
        ENTRY   DOLFN                                                    MLNK0007
        ENTRY   DOTFN                                                    MLNK0008
        ENTRY   EXPFN                                                    MLNK0009
        ENTRY   FRSGPT                                                   MLNK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        EXTRN   SPIECUT                                                  MLNK0061
        EXTRN   SPIECUTF                                                 MLNK0062
        EXTRN   SPREAL                                                   MLNK0063
        EXTRN   STPRNT                                                   MLNK0064
        EXTRN   STREAD                                                   MLNK0065
        EXTRN   STINT                                                    MLNK0066
        EXTRN   STREAM                                                   MLNK0067
        EXTRN   UNLOADER                                                 MLNK0068
        EXTRN   UNOPTB                                                   MLNK0069
        EXTRN   VARATB                                                   MLNK0070
-FILE 284;    21 RECORDS:  
0         DS        0F                                                   MDAT0001
 SIGRESET DC        X'36000000'                                          MDAT0002
 HEX0C4 DC      X'0C0C0C0C'                                              MDAT0003
 HEX044 DC      X'04040404'                                              MDAT0004
 HEX084 DC      X'08080808'                                              MDAT0005
 HEX04  DC      X'00000004'                                              MDAT0006
 HEX08  DC      X'00000008'                                              MDAT0007
 HEX0C  DC      X'0000000C'                                              MDAT0008
 HALFMASK DC        X'0000FFFF'                                          MDAT0009
 AISAVE   DC        5F'0'                                                MDAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 REALB  DC      X'4E00000000000000'                                      MDAT0012
 BIG2   DC      X'4E00000080000000'                                      MDAT0013
 AMPST    DC        C'&&'                                                MDAT0014
 COLSTR   DC        C': '                                                MDAT0015
 QTSTR    DC        C''''                                                MDAT0016
 SEMSTR   DC        C';'                                                 MDAT0017
 ALPHSP SPEC    ALPHA,256                                                MDAT0018
 SAVESAVE DC        100F'0'                                              MDAT0019
 SAVE13   DC        F'0'                                                 MDAT0020
          LTORG                                                          MDAT0021
-FILE 285;    29 RECORDS:  
0         TITLE     'CONSTANTS'                                          PARM0001
 *                                                                       PARM0002
 ZERO     EQU       0                                                    PARM0003
 R1       EQU       1                                                    PARM0004
 R2       EQU       2                                                    PARM0005
 R3       EQU       3                                                    PARM0006
 R4       EQU       4                                                    PARM0007
 R5       EQU       5                                                    PARM0008
 R6       EQU       6                                                    PARM0009
 R7       EQU       7                                                    PARM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FR0      EQU       0                                                    PARM0020
 FNC      EQU       X'F'                                                 PARM0021
 MARK     EQU       0                                                    PARM0022
 PTR    EQU     X'D'                                                     PARM0023
 STTL     EQU       X'C'                                                 PARM0024
 TTL      EQU       X'B'                                                 PARM0025
 STKOFF EQU     100                                                      PARM0026
 DESCR  EQU     8                   ADDRESS WIDTH OF DESCRIPTOR.         PARM0027
 SPEC     EQU       2*DESCR             ADDRESS WIDTH OF SPECIFIER.      PARM0028
 SIZLIM EQU     65535               LIMIT OF SIZE FIELDS                 PARM0029
-FILE 286;  1935 RECORDS:  
0ACOMP    138                                                            MACR0001
 ACOMPC   151                                                            MACR0002
 ADDLG    164                                                            MACR0003
 ADDSIB   172                                                            MACR0004
 ADDSON   188                                                            MACR0005
 ADJUST   202                                                            MACR0006
 ADREAL   211                                                            MACR0007
 AEQL     221                                                            MACR0008
 AEQLC    232                                                            MACR0009
 AEQLIC   247                                                            MACR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MACRO                                                          MACR1926
 &LOC     ZERBLK    &PTR,&CL                                             MACR1927
 &LOC     L         2,&PTR                                               MACR1928
          L         5,&CL                                                MACR1929
          LA        4,8                                                  MACR1930
          LR        3,4                                                  MACR1931
          LD        0,=D'0'                                              MACR1932
 A&SYSNDX STD       0,0(3,2)                                             MACR1933
          BXLE      3,4,A&SYSNDX                                         MACR1934
          MEND      ZERBLK                                               MACR1935
-FILE 287;  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 288;  1598 RECORDS:  
0  /* TEXT360 - PHASE 1 (FILE MAINTENANCE)  V3.0  JULY 3,1967    */      FMNT0001
 1 FM: PROCEDURE OPTIONS(MAIN);                                          FMNT0002
   ON ERROR BEGIN;                                                       FMNT0003
      PUT FILE(SYSPRINT)SKIP(3)DATA(NORM,PGLIN,MBINDX,LINE);             FMNT0004
      PUT FILE(SYSPRINT)SKIP DATA(OINDX,CH);                             FMNT0005
      CALL IHEDUMP;                                                      FMNT0006
      END;                                                               FMNT0007
   DECLARE STATSW CHAR(1) STATIC INITIAL('0');                           FMNT0008
   DECLARE ORECNT FIXED BINARY INITIAL(0) STATIC;                        FMNT0009
   DECLARE OTIME CHARACTER(9) STATIC;                                    FMNT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      SCOR = SUBSTR(USC,MBINDX,1);                                       FMNT1589
      IF NOSTO = '1' THEN GO TO HYP2;                                    FMNT1590
      CALL STORCH;                                                       FMNT1591
    HYP2:                                                                FMNT1592
      IF DC = BLANK THEN GO TO HYP1;                                    FMNT1593
      DC = CH1;                                                          FMNT1594
      NOSTO = '0';                                                       FMNT1595
      RETURN;                                                            FMNT1596
      END HYPCHK;                                                        FMNT1597
   END FM;                                                               FMNT1598
-FILE 289;  2994 RECORDS:  
01 /*TEXT/360  PHASE 2  (BUILDLINE)  V2.1  MAY 15,1967         */        BLD10001
   /*IT FUNCTION IS TO BUILD THE FORMATTED AND UNFORMATTED LINES*/       BLD10002
  /*CREATE A CROSS-REFERENCE TABLE ENTRY TO DESCRIBE THE LINE*/          BLD10003
  /*  IT CALLS */                                                        BLD10004
  /*     1. EOLCL -  TO DO HOUSE KEEPING AFTER LINE IS FORCED OUT*/      BLD10005
  /*     2. OVFCH  - TO PROCESS A TEXT OVERFLOW. DOES JUST, HYPHEN ETC * BLD10006
  /*     3. FOL    - TO FORCE OUT A LINE */                              BLD10007
  /*     4. GETNC  - TO GET THE NEXT CHARACTER. */                       BLD10008
  /*     5. PCWB -   TO PLACE CHARACTER IN WORK BUFFERS */               BLD10009
  /*  IT GOES TO THE FOLLOWING ROUTINES */                               BLD10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      SKIP;                                                              BLD12985
      ERSW = SWON;            /*TURN ON ERROR SWITCH*/                   BLD12986
                              /*STORE ERROR NUMBER*/                     BLD12987
      SUBSTR(ERBUF,1+(ERRCT*3),3) = PARA;                                BLD12988
      ERRCT = ERRCT+1;        /*BUMP COUNT*/                             BLD12989
                              /*TOO MANY ERRORS FOR BUFFER*/             BLD12990
      IF ERRCT > 9 THEN ERRCT = ERRCT -1;                                BLD12991
      RETURN;                                                            BLD12992
      END ERROR;              /*END ERROR ROUTINE*/                      BLD12993
   END BUILINE;               /*END BUILD A LINE ROUTINE*/               BLD12994
-FILE 290;   274 RECORDS:  
01 HYPHEN :   PROCEDURE ;                                                HYPH0001
                                                                         HYPH0002
 0 DECLARE(                                                              HYPH0003
      RHX FIXED BIN(15),                                                 HYPH0004
      BREAKSW CHAR(1) INIT('0'),                                         HYPH0005
      JUSTCT FIXED (7) BINARY,   /* THE JUSTIFICATION COUNT */           HYPH0006
      HYPNSTR CHAR(1),                                                   HYPH0007
      LHX FIXED BIN(15),                                                 HYPH0008
      HLG FIXED BIN(15),                                                 HYPH0009
      HYCTBUF(20) FIXED BIN(15),                                         HYPH0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
            RHX = CTR1 ;                                                 HYPH0265
            HYPNSTR = '1' ;                                              HYPH0266
            GO TO OUT ;                                                  HYPH0267
         END ;                                                           HYPH0268
      END ;                                                              HYPH0269
   NOGO :                                                                HYPH0270
      HYPNSTR = '0' ;                                                    HYPH0271
   OUT :                                                                 HYPH0272
      RETURN ;                                                           HYPH0273
   END HYPHEN ;                                                          HYPH0274
-FILE 291;  2167 RECORDS:  
0   /*  TEXT360 - PHASE 3 (PAGE PROCESSOR)  V3.0   JULY 5,1967    */     PLAO0001
 1/*  THE FOLLOWING PROCEDURE CONSTRUCTS THE LINE BUFFER AND CROSS-      PLAO0002
  /*   REFERENCE TABLE FOR LAYOUT AND OUTPUT.                            PLAO0003
  /*     NAME OF PROCEDURE IS PAGEPRO.                                   PLAO0004
  /*     THE FUNCTION OF  PAGEPRO  IS TO READ INTERMEDIATE TAPE 2        PLAO0005
  /*     AND CONSTRUCT THE LINE  BUFFER AND CROSS-REFERENCE TABLE        PLAO0006
  /*     FRON THE INFORMATION ON THE TAPE. THIS PROCEDURE DEFINES        PLAO0007
  /*     LOGICAL PAGES. CERTAIN ALTER CODES ARE ALSO PROCESSED BY        PLAO0008
  /*     THIS PROCEDURE.  PAGEPRO CALLS LAYOUT WHEN IT DETERMINES        PLAO0009
  /*     THAT A PAGE CAN BE FORMATTED.    THIS IS THE CONTROLLING        PLAO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
         LCT1 = LCT1 - OFOTLNG - 2;                                      PLAO2158
            SUBSTR(PSTEXT,LCT1,OFOTLNG)= OFOTBUF; /*PUT IN ODD FOOTING.*/PLAO2159
            END;                                                         PLAO2160
      CALL PROUTP;     /* PUT OUT FOOTING LINE. */                       PLAO2161
      END PRPAGE;                                                        PLAO2162
   PROUTP: PROCEDURE;   /* PUT OUT PRINT LINE*/                          PLAO2163
      WRITE FILE(PRTOT) FROM(PRLIN);                                     PLAO2164
      END PROUTP;                                                        PLAO2165
 0 END OUTPUT;                                                           PLAO2166
 0 END PAGEPRO;                                                          PLAO2167
-FILE 292;    15 RECORDS:  
01    POSTPR :   PROCEDURE OPTIONS (MAIN) ;                              PSTR0001
                                                                         PSTR0002
      DECLARE TIME1 CHAR (9) STATIC ;                                    PSTR0003
                                                                         PSTR0004
       DECLARE SPELLER CHAR (1) INIT ('0') STATIC EXTERNAL ;             PSTR0005
      TIME1 = TIME ;          /* SET THE OVERALL RUN TIMER */            PSTR0006
      OPEN FILE (PRTOT) OUTPUT BUFFERED ;                                PSTR0007
               CALL PPR1 ;                                               PSTR0008
               IF SPELLER = '1' THEN CALL PPR2 ;                         PSTR0009
         PUT FILE (SYSPRINT) SKIP LIST (TIME1,'BEGIN PHASE 4') ;         PSTR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
         PUT FILE (SYSPRINT) SKIP LIST (TIME,'END PHASE 4') ;            PSTR0011
            CLOSE FILE (PRTOT)   ;                                       PSTR0012
            CLOSE FILE (SYSPRINT) ;                                      PSTR0013
               RETURN ;                                                  PSTR0014
      END POSTPR ;                                                       PSTR0015
-FILE 293;  1298 RECORDS:  
01             /*  POST PROCESSOR,  VERSION 3, PHASE 2  */               PPR10001
    PPR1 :  PROCEDURE ;                 /* THE POST PROCESSOR */         PPR10002
  /*                         TEXT/360 POST PROCESSOR                     PPR10003
  /*                           * * * * * * * * * *                       PPR10004
  /*     THE POST PROCESSOR PERFORMS THE FINAL CLEANUP OF THE TEXT/360   PPR10005
  /*     RUN.  IT PRINTS LISTS OF ALTER CODES; EDIT CODES; FOOTNOTES;    PPR10006
  /*     SEARCH, CHANGE, AND REVISE LINES; AND ERROR MESSAGES.  THE TABLEPPR10007
  /*     OF CONTENTS AND OTHER LISTS OF USER-SPECIFIED LINES ARE ALSO    PPR10008
  /*     PRINTED AT THIS TIME.  THE POST PROCESSOR PERFORMS A SPELLING   PPR10009
  /*     CHECK, IF REQUESTED.                                            PPR10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                  ELSE ODDEVEN = 1 ;                                     PPR11289
               ENDPAGSW = '0'  ;                                         PPR11290
               BEGINPAGSW = '1'  ;                                       PPR11291
               BUFFER = PAGEBUF.TRAILBUF(ODDEVEN) ;                      PPR11292
               WRITE FILE (PRTOT) FROM (BUFFER) ;                        PPR11293
            END ;                                                        PPR11294
                                                                         PPR11295
            RETURN ;                                                     PPR11296
      END OUTPUT ;                                                       PPR11297
    END PPR1 ;                                                           PPR11298
-FILE 294;   226 RECORDS:  
01             /*  POST PROCESSOR,  VERSION 3, PHASE 3  */               PPR20001
    PPR2 :  PROCEDURE ;          /* THE SPELLING CHECK PROGRAM */        PPR20002
                                                                         PPR20003
      DECLARE MASTER FILE INPUT ;       /* NEW MASTER IS READ FOR */     PPR20004
                                        /* SPELLING CHECK */             PPR20005
                                                                         PPR20006
      DECLARE DICT FILE INPUT ;         /* THE DICTIONARY FILE CONTAINS/*PPR20007
                                        /*THE SPELLING-CHECK DICTIONARY*/PPR20008
                                                                         PPR20009
         DECLARE ( NWORDN (24) FIXED BIN (15) ,                          PPR20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      WRITE FILE (PRTOT) FROM (LINE) ;                                   PPR20217
      LINE = ' ' ;                                                       PPR20218
      DEPTH = DEPTH + 1 ;                                                PPR20219
      IF DEPTH = 61 THEN DO ;                                            PPR20220
            BEGINPAGSW = '1' ;                                           PPR20221
            DEPTH = 0 ;                                                  PPR20222
         END ;                                                           PPR20223
      RETURN ;                                                           PPR20224
     END OUTPUT ;                                                        PPR20225
    END PPR2 ;                                                           PPR20226
-FILE 295;   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 296;   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 297;  1404 RECORDS:  
0*              MAIN-LINE PROGRAM                                        PRES0001
 *                                                                       PRES0002
          START                                                          PRES0003
 LOCATE   BALR  9,0                ESTABLISH REGISTERS 9,10,11 AS        PRES0004
          USING *,9,10,11          THE BASE REGISTERS                    PRES0005
 HERE     LM    10,11,BASEADD      LOAD THE BASE REGISTERS               PRES0006
          STM   15,14,REGS                                               PRES0007
          BC    15,GOOFY                                                 PRES0008
 BASEADD  DC    A(HERE+4096)                                             PRES0009
          DC    A(HERE+8192)                                             PRES0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BIGREP   DC    C'  REPLACE TOO LONG'                                    PRES1395
 BADCOP   DC    C'  INVALID COPY'                                        PRES1396
 SWIDB    DC    C'  SWIDTH'                                              PRES1397
 *                                                                       PRES1398
 *              END OF FILE ROUTINE                                      PRES1399
 *                                                                       PRES1400
 CLEANUP  BC    15,DEADEND                                               PRES1401
 DEADEND  LM    15,14,REGS                                               PRES1402
          RETURN                                                         PRES1403
          END   LOCATE                                                   PRES1404
-FILE 298;   309 RECORDS:  
0FOREAL  CSECT                                                           *PRN0001
          SAVE  (14,12),,*                                               *PRN0002
         BALR  8,0                                                       *PRN0003
          USING  *,8                                                     *PRN0004
          B     STARTSAV                                                 *PRN0005
 *  EQUEATES FOR REG NUMONICS                                            *PRN0006
 R3       EQU   3                                                        *PRN0007
 R4       EQU   4                                                        *PRN0008
 R5       EQU  5                                                         *PRN0009
 R6       EQU   6                                                        *PRN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OUTLTH   DC    H'132'                                                   *PRN0300
 MODIF    DC    A(X'2010')                                               *PRN0301
 LINNR    DS    F'0'                                                     *PRN0302
 POINTER  DS    F                                                        *PRN0303
 THREE    DC    1F'3'                                                    *PRN0304
 ZERO     DC    X'00000000'             ZERO WORD                        *PRN0305
 LEFT     DS    D                                                        *PRN0306
 ADDR6    DC    A(LOW)                  CONTENTS OF R6 AT START          *PRN0307
 ETINPUT   DC  A(TLAST)                                                  *PRN0308
          END   FOREAL                                                   *PRN0309
-FILE 299;  1529 RECORDS:  
0         TITLE '          MTS FILE EDITOR (VERSION CT048)'              *ED00001
          MACRO                                                          *ED00002
 &L       ERR   &M,&C                                                    *ED00003
          AIF   (N'&SYSLIST EQ 1).ONEOP                                  *ED00004
 &L       B&C   *+8                                                      *ED00005
          B     A&SYSNDX                                                 *ED00006
          L     2,=A(&M)                                                 *ED00007
          B     ILLEGAL                                                  *ED00008
 A&SYSNDX DS    0H                                                       *ED00009
          MEXIT                                                          *ED00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'00'                                                    *ED01520
 MLINE    MSG   '     #LINENO LINENO'                                    *ED01521
          MSG   '     #LINENO'                                           *ED01522
          MSG   '#LINENO CAUSES THE LINE OF THE FILE WITH THE SPECIFIED' *ED01523
          MSG   'MTS LINE NUMBER TO BECOME THE CURRENT LINE.  #LINE'     *ED01524
          MSG   'WITH NO LINE NUMBER SPECIFIED CAUSES THE CURRENT'       *ED01525
          MSG   'LINE NUMBER TO BE PRINTED.'                             *ED01526
          DC    X'00'                                                    *ED01527
 MNOSUCH  DC    FL1'34',C'THERE IS NO COMMAND WITH THAT NAME',X'00'      *ED01528
          END                                                            *ED01529
-FILE 300;   290 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                                           OPS80281
 *                                                                       OPS80282
 *                 0 1 2 3 4 5 6 7 8 9 A B C D E F                       OPS80283
 FORMA    DC    X'4F1D1E1F2021222324191A1B1C003738' 0                    OPS80284
          DC    X'393A0041424344004B4C4D4E00555657' 1                    OPS80285
          DC    X'58005F60616200696A6B6C0073747576' 2                    OPS80286
          DC    X'007D7E7F80008788898A009192939400' 3                    OPS80287
          DC    X'9A9B9C9D00A5A6A7A800000000000000' 4                    OPS80288
 *                                                                       OPS80289
          END                                                            OPS80290
-FILE 301;   243 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                    OPS90234
 *                                                                       OPS90235
 *  FORM A  SHORT FORM RLD DICTIONARY                                    OPS90236
 *                                                                       OPS90237
 FORMA9   DC    X'4F1D1E1F202122232418191A1B1C0036' 0                    OPS90238
          DC    X'3738393A004041424344004A4B4C4D4E' 1                    OPS90239
          DC    X'005455565758005E5F6061620068696A' 2                    OPS90240
          DC    X'6B6C007273747576007C7D7E7F800086' 3                    OPS90241
          DC    X'8788898A009091929394000000000000' 4                    OPS90242
          END                                                            OPS90243
-FILE 302;   368 RECORDS:  
0         MACRO                                                          TRCK0001
 &LABEL   IOREQ &CCW                                                     TRCK0002
 &LABEL   L     0,LDN                                                    TRCK0003
          LA    1,&CCW                                                   TRCK0004
          LA    2,RTNL                                                   TRCK0005
          SVC   STIO                                                     TRCK0006
          SVC   WAIT                                                     TRCK0007
          MEND                                                           TRCK0008
          MACRO                                                          TRCK0009
          TRANSFER  &N,&LOC                                              TRCK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          GEVM                                                           TRCK0359
          GDV   0,4095,B                                                 TRCK0360
          GECPB                                                          TRCK0361
          DC    3848C'X'                                                 TRCK0362
          GIBLC 3848                                                     TRCK0363
          DC    AL2(GTRU)                                                TRCK0364
          DC    AL2(DISL)                                                TRCK0365
 GTRU     EQU   X'2AFF'                                                  TRCK0366
 XISL     EQU   *-XIS                                                    TRCK0367
          END                                                            TRCK0368
-FILE 303;  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 304;  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 305;   155 RECORDS:  
0CALL     100                                                                    
 SEXIT    105                                                                    
 SINIT    110                                                                    
 00000000                                                                        
           MACRO                                                                 
 &NAME     CALL      &CL,&AG,&NM                                                 
           LCLA      &B                                                          
           LCLC      &Q                                                          
           AIF       (K'&AG EQ 0).T                                              
 &Q        SETC      '&AG'(1,1)                                                  
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .T3       AIF       (K'&P2 EQ 0).T8                                             
           AIF       (T'&P2 EQ 'N').T9                                           
 &NAME     STM       14,12,12(13)                                                
           AGO       .T10                                                        
 .T9       ANOP                                                                  
 &NAME     STM       14,&P2,12(13)                                               
           MEXIT                                                                 
 .T8       ANOP                                                                  
 &NAME     STM       14,12,12(13)                                                
           MEND                                                                  
-FILE 306;    30 RECORDS:  
0SYSTEM   100                                                            WTLB0001
 RKSUB    200                                                            WTLB0002
 00000000                                                                WTLB0003
       SUBROUTINE SYSTEM                                                 WTLB0004
       STOP                                                              WTLB0005
       END                                                               WTLB0006
 $TERM                                                                   WTLB0007
       SUBROUTINE RKSUB(M,Y,F,P,Q,DERIV,T,DT)                            WTLB0008
       DIMENSION Y(1),F(1),P(4),Q(4)                                     WTLB0009
       CALL DERIV(Y,F,T)                                                 WTLB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       DO 30 I=1,M                                                       WTLB0021
       P(I)=P(I)+2.0*F(I)                                                WTLB0022
 30    Y(I)=Q(I)+DT*F(I)                                                 WTLB0023
       T=T+.5*DT                                                         WTLB0024
       CALL DERIV(Y,F,T)                                                 WTLB0025
       DO 40 I=1,M                                                       WTLB0026
 40    Y(I)=Q(I)+(P(I)+F(I))*DT/6.0                                      WTLB0027
       RETURN                                                            WTLB0028
       END                                                               WTLB0029
 $TERM                                                                   WTLB0030
-FILE 307;    20 RECORDS:  
0$RUN *SNOBOL4;5=*CONVSNOBOL(3) 6=*DUMMY*(1,20)+*MSINK* 8=*MSOURCE*@UC 9=CONV0001
 $SOURCE *MSOURCE*                                                       CONV0002
  READ("IN",8,132)                                                       CONV0003
  READ("INPUT",8,80)                                                     CONV0004
  PRINT("OUTPUT",9,"(1X,120A1)")                                         CONV0005
  PROG = ARRAY(200)                                                      CONV0006
  I = 1                                                                  CONV0007
 CLEAR PROG<I> = CONVERT(" :<PROG<" I + 1 ">>;","CODE")                  CONV0008
  I = LT(I,199) I + 1 :S(CLEAR)                                          CONV0009
  PROG<200> = CONVERT(" :(NEXT);","CODE")                                CONV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  OUTPUT = " ENTER SNOBOL STATEMENTS."                                   CONV0011
 NEXT TRIM(IN) ARB . TEXT . LIST RPOS(0) :F(END)                         CONV0012
  TEXT POS(0) SPAN("1234567890") . NUM RTAB(0) . TEXT :F(IMED)           CONV0013
  IDENT(NUM) :S(IMED)                                                    CONV0014
  PROG<NUM> = CONVERT(TEXT "; :<PROG<" NUM + 1 ">>;","CODE") :F(ERROR)   CONV0015
  :(NEXT)                                                                CONV0016
 IMED CODE = CONVERT(TEXT "; :(NEXT);","CODE") :F(ERROR)                 CONV0017
       :<CODE>                                                           CONV0018
 ERROR  OUTPUT = "COMPILATION ERROR"    :(NEXT)                          CONV0019
 END                                                                     CONV0020
-FILE 308;   912 RECORDS:  
0-UNLIST                                                                 MDPL0001
 ****MADTOPL1 - A MAD TO PL/I TRANSLATOR                                 MDPL0002
 *                                                                       MDPL0003
 *FIRST - CONSTRUCT ALL PATTERNS                                         MDPL0004
 *                                                                       MDPL0005
         &STLIMIT = 200000                                               MDPL0006
         DEFINE("DELIT(TEXT)A,B,C,D")                                    MDPL0007
         DEFINE("DEBLANK(TEXT)")                                         MDPL0008
         DEFINE("PRINTOUT(TEXT)")                                        MDPL0009
         DEFINE("DECLOUT(TEXT,ATR)LIST,A")                               MDPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FAIL13  $OUT1 = "**** UNDEFINED FORMAT LIST" :(FAILCOM)                 MDPL0903
 FAIL14  $OUT1 = "**** UNTRANSLATABLE OCCURRENCE OF BLOCK OR ITERATION"  MDPL0904
 .               :(FAILCOM)                                              MDPL0905
 FAIL15  $OUT1 = "**** UNTRANSLATABLE CONSTANT"    :(FAILCOM)            MDPL0906
 FAIL16  $OUT1 = "**** UNTRANSLATABLE DIMENSIONING INFORMATION"          MDPL0907
 .             :(FAILCOM)                                                MDPL0908
 FAILCOM $OUT1 = "        IN STATEMENT " PROTEMP                         MDPL0909
         PRINTOUT("/********UNTRANSLATABLE STATEMENT********/") :(PASS2) MDPL0910
 *                                                                       MDPL0911
 END                                                                     MDPL0912
-FILE 309;   368 RECORDS:  
0 'ASSIGN STATEMENTS AND VARIABLES'                                      WTER0001
  AS-2   'ATTEMPT TO REDEFINE AN ASSIGNED VARIABLE IN AN ARITHMETIC STATEWTER0002
  AS-3   'ASSIGNED VARIABLE USED IN AN ARITHMETIC EXPRESSION'            WTER0003
  AS-4   'ASSIGNED VARIABLE CANNOT BE HALF WORD INTEGER'                 WTER0004
  AS-5   'ATTEMPT TO REDEFINE AN ASSIGN VARIABLE IN AN INPUT LIST'       WTER0005
                                                                         WTER0006
  'BLOCK DATA STATEMENTS'                                                WTER0007
  BD-0   'EXECUTABLE STATEMENT IN BLOCK DATA SUBPROGRAM'                 WTER0008
  BD-1   'IMPROPER BLOCK DATA STATEMENT'                                 WTER0009
                                                                         WTER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  VA-8   'ATTEMPT TO USE A PREVIOUSLY DEFINED NAME AS FUNCTION OR ARRAY' WTER0359
  VA-9   'ATTEMPT TO USE A PREVIOUSLY DEFINED NAME AS A STATEMENT FUNCTIOWTER0360
  VA-A   'ATTEMPT TO USE A PREVIOUSLY DEFINED NAME AS A SUBPROGRAMME NAMEWTER0361
  VA-B   'NAME USED AS A COMMON BLOCK PREVIOUSLY USED AS A SUBPROGRAM NAMWTER0362
  VA-C   'NAME USED AS SUBPROGRAMME PREVIOUSLY USED AS A COMMON BLOCK NAMWTER0363
                                                                         WTER0364
  'EXTERNAL STATEMENT'                                                   WTER0365
  XT-0   'INVALID ELEMENT IN EXTERNAL LIST'                              WTER0366
  XT-1   'INVALID DELIMITER IN EXTERNAL STATEMENT'                       WTER0367
  XT-2   'SUBPROGRAMME PREVIOUSLY EXTERNALLED'                           WTER0368
-FILE 310;   703 RECORDS:  
0ERR      01000                                                          PL1M0001
 INVK     01052                                                          PL1M0002
 MVW      01065                                                          PL1M0003
 NSTAT    01071                                                          PL1M0004
 NSTA2    01078                                                          PL1M0005
 OSTAT    01083                                                          PL1M0006
 OSTA2    01090                                                          PL1M0007
 OUTDA    01095                                                          PL1M0008
 POP      01142                                                          PL1M0009
 PUSH     01147                                                          PL1M0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MTSLNR   DS    F                  LINE NUMBER                           PL1M0694
 MTSFDB   DS    F                  FDUB                                  PL1M0695
 MTSBUF   DS    F                  BUFFER ADDR                           PL1M0696
 MTSCBP   DS    F                  CURRENT BUFFER POINTER                PL1M0697
 MTSEOB   DS    F                  END OF BLOCK ADDR                     PL1M0698
 MTSNAM   DS    32C                NAME OF FILE                          PL1M0699
 MTSWRK   DS    20F                WORK AREA FOR ROUTINES                PL1M0700
 MTSEND   EQU   *                                                        PL1M0701
          MEND                                                           PL1M0702
 $TERM                                                                   PL1M0703
-FILE 311;   867 RECORDS:  
0*        TO RUN GO-MAD -                                                GMAD0001
 *             $RUN *SNOBOL4  5=GOMAD+(THE INPUT PROG)                   GMAD0002
 *                       7=PUNCHED OUTPUT                                GMAD0003
 *                       6=PRINTED OUTPUT                                GMAD0004
 *                  GOMAD REQUIRES (PRESENTLY) EBCDIC INPUT              GMAD0005
 -UNLIST                                                                 GMAD0006
         QUOTE = "'"                                                     GMAD0007
         &TRACE = "ON"                                                   GMAD0008
           &DUMP = 'ON'                                                  GMAD0009
           &MAXLNGTH = 1000                                              GMAD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *             PRINT A LIST OF DELETED STATEMENT LABELS                  GMAD0858
 END3.    DEL.LAB "," =                                                  GMAD0859
          IDENT(DEL.LAB,"")                      :S(END3)                GMAD0860
          SYSPOT = "-THE FOLLOWING LABELS ARE NOT USED AND HAVE BEEN "   GMAD0861
 ."DELETED -"                                                            GMAD0862
          SYSPOT = "-" DEL.LAB                                           GMAD0863
                                                                         GMAD0864
 END3     SWT "ON"        :S(ALL.DONE)F(START1)                          GMAD0865
 ALL.DONE &DUMP =                                                        GMAD0866
 END                                                                     GMAD0867
-FILE 312;  2590 RECORDS:  
0ACQUIRE  1000                                                           *1000001
 BBLOCK   1036                                                           *1000002
 BFIELD   1071                                                           *1000003
 BLOCK    1088                                                           *1000004
 DO       1119                                                           *1000005
 FIELD    1134                                                           *1000006
 FINAL    1265                                                           *1000007
 GOTO     1334                                                           *1000008
 IF       1359                                                           *1000009
 IFANY    1410                                                           *1000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                    MEXIT                                                *1002581
 .SHL               ANOP                                                 *1002582
 &$DIR              SETC      'L'                                        *1002583
                    AGO       .BACK                                      *1002584
 .CALL              ANOP                                                 *1002585
 &NAME              XCALL     &THING                                     *1002586
                    MEXIT                                                *1002587
 .SCALL             ANOP                                                 *1002588
 &NAME              XCALL     &THING,S                                   *1002589
                    MEND                                                 *1002590
-FILE 313;     1 RECORDS:  
0CAN'T FIND B01B08 IN DON'S FILES........                                B1800001
 
-FILE 314;    47 RECORDS:  
0ILOG     TITLE 'LOGICAL FUNCTIONS FOR MAD7'                             ILOG0001
 ILOG     CSECT                                                          ILOG0002
          ENTRY ICOMPL,IAND,IOR,IPACK,BF$SF                              ILOG0003
          SPACE 3                                                        ILOG0004
          USING *,15                                                     ILOG0005
 ICOMPL   L     1,0(1)                                                   ILOG0006
          L     0,0(1)                                                   ILOG0007
          X     0,=F'-1'                                                 ILOG0008
          SR    15,15                                                    ILOG0009
          BR    14                                                       ILOG0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ENTRY XMAD,BF$S3,BF$II,ITIME                                   ILOG0038
 XMAD     BR    14                                                       ILOG0039
 ITIME    LA    0,1234                                                   ILOG0040
          BR    14                                                       ILOG0041
 BF$S3    SR     15,15                                                   ILOG0042
          BR    14                                                       ILOG0043
 BF$II    SR    15,15                                                    ILOG0044
          BR    14                                                       ILOG0045
          SPACE 3                                                        ILOG0046
          END                                                            ILOG0047
-FILE 315;    63 RECORDS:  
0      INTEGER FUNCTION W(II)                                            FNFC0001
       IMPLICIT INTEGER (A-Z)                                            FNFC0002
          COMMON /TYPEBL/ QQSV(21),ISTACK                                FNFC0003
       COMMON PROG(1)                                                    FNFC0004
       I1=2*II                                                           FNFC0005
       IF(I1 .LT.1 .OR. I1 .GE. ISTACK) CALL MESS(4001)                  FNFC0006
       W=PROG(I1)                                                        FNFC0007
       RETURN                                                            FNFC0008
       END                                                               FNFC0009
       REAL FUNCTION FW(II)                                              FNFC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       INTEGER FUNCTION S23(I2)                                          FNFC0054
       IMPLICIT INTEGER (A-Z)                                            FNFC0055
       COMMON PROG(1)                                                    FNFC0056
       COMMON /TYPEBL/ QQSV(21),ISTACK                                   FNFC0057
       I1=2*I2-1                                                         FNFC0058
       IF(I1.LT.1.OR.I1.GE.ISTACK)CALL MESS(4001)                        FNFC0059
       K=PROG(I1)                                                        FNFC0060
       S23=K-(K/65536)*65536                                             FNFC0061
       RETURN                                                            FNFC0062
       END                                                               FNFC0063
-FILE 316;    40 RECORDS:  
0FUDGE    START 0                                                        FDGE0001
          USING *,15                                                     FDGE0002
          STM   0,14,REGS                                                FDGE0003
          STM   14,12,12(13)                                             FDGE0004
          LR    12,15                                                    FDGE0005
          DROP  15                                                       FDGE0006
          USING FUDGE,12                                                 FDGE0007
          ST    13,SA+4                                                  FDGE0008
          LA    13,SA                                                    FDGE0009
          LM    3,5,BXLEC                                                FDGE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CODE     LM    0,14,12(14)                                              FDGE0031
          LA    15,4                                                     FDGE0032
          BR    14                                                       FDGE0033
 GR14O    EQU   12+4*14+1                                                FDGE0034
 LCODE    EQU   12+4*15                                                  FDGE0035
 GR14S    EQU   REGS+4*14+1                                              FDGE0036
          DS    0F                                                       FDGE0037
 AREA     DC    25XL(LCODE)'0'                                           FDGE0038
 EAREA    EQU   *-1                                                      FDGE0039
          END                                                            FDGE0040
-FILE 317;  4732 RECORDS:  
0      BLOCK DATA                                                        FDGE0041
 C      C O M M O N    V A R I A B L E S                                 FDGE0042
       IMPLICIT INTEGER (A-Z)                                            FDGE0043
       COMMON /TYPEBL/                                                   FDGE0044
      *         REA      ,INTE     ,BOO     ,RADR     ,IADR    ,         FDGE0045
      *  BADR    ,RPADR     ,IPADR     ,BPADR     ,RARR     ,IARR    ,   FDGE0046
      *  BARR    ,RPROC     ,IPROC    ,BPROC    ,LABE     ,FORMSW,       FDGE0047
      *  SWITC     ,PROCE  ,IMPSR   ,STRIN    ,                          FDGE0048
      *ISTACK,DISPLA,OP,PPI,QI,PP,IA,AP,PN,PM,PS,MPRIME                  FDGE0049
       DIMENSION  DISPLA(64)                                             FDGE0050
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       GO TO 1001                                                        FDGE4763
 C        CFZ  =  2                                                      FDGE4764
     2 I = I - 3                                                         FDGE4765
  1001 M = 0                                                             FDGE4766
       GO TO 1002                                                        FDGE4767
 C        CF   =  3                                                      FDGE4768
     3 I = I - 4                                                         FDGE4769
       IF (IA .GT. PROGSZ) ARITH = I                                     FDGE4770
  1002 CALL GO(M)                                                        FDGE4771
       L1 = FUDGE(&1003)                                                 FDGE4772
-FILE 318;  1158 RECORDS:  
0      SUBROUTINE CONTRL(IOPC)                                           B1B80001
       IMPLICIT INTEGER (A-Z)                                            B1B80002
       COMMON PROG(1)                                                    B1B80003
       COMMON /TYPEBL/                                                   B1B80004
      *         REAL     ,INTEG    ,BOOL    ,RADR     ,IADR    ,         B1B80005
      *  BADR    ,RPADR     ,IPADR     ,BPADR     ,RARR     ,IARR    ,   B1B80006
      *  BARR    ,RPROC     ,IPROC    ,BPROC    ,LABEL    ,FORMSW,       B1B80007
      *  SWITCH    ,PROC   ,IMPSR   ,STRING   ,                          B1B80008
      *ISTACK,DISPLA,OP,P,I,PP,IA,AP,      N,M,S,     MPRIME             B1B80009
       DIMENSION DISPLA(64)                                              B1B80010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       CALL WS(PP-1,W(AP-1))                                             B1B81149
       ARITH = FNL(NL)                                                   B1B81150
       IA = DNL(NL)                                                      B1B81151
  3000 I = H1(PP+2)                                                      B1B81152
       IRET = H2(PP+2)                                                   B1B81153
       NL = NL - 1                                                       B1B81154
       CALL LEAVE                                                        B1B81155
       GO TO IRET,(720)                                                  B1B81156
  3001 RETURN                                                            B1B81157
       END                                                               B1B81158
-FILE 319;  2288 RECORDS:  
0*ONLY YOU                                                               SDS00001
 *CAN PREVENT PROGRAM INTERRUPTS                                         SDS00002
          TITLE 'SDS INITIALIZATION'                                     SDS00003
 *                                                                       SDS00004
 *        **********************************************************     SDS00005
 *        *                                                        *     SDS00006
 *        *     SYMBOLIC DEBUGGING SYSTEM - COMMUNICATIONS MODULE  *     SDS00007
 *        *                                                        *     SDS00008
 *        **********************************************************     SDS00009
 *                                                                       SDS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       SDS02279
          PSTE  FR0,FREGS,8,11                                           SDS02280
          PSTE  FR2,FREGS+2*4,8,11                                       SDS02281
          PSTE  FR4,FREGS+4*4,8,11                                       SDS02282
          PSTE  FR6,FREGS+6*4,8,11                                       SDS02283
          PSTE  GRS,REGISTRS,4,12                                        SDS02284
          PSTE  FRS,FREGS,8,13                                           SDS02285
          PSTE  PSW,PSW,8,14                                             SDS02286
          DC    X'00000000'                                              SDS02287
          END                                                            SDS02288
-FILE 320;  1511 RECORDS:  
0         TITLE 'CONTROL FUNCTION MODULE'                                FNC00001
 *                                                                       FNC00002
 *        **********************************************************     FNC00003
 *        *                                                        *     FNC00004
 *        *     SDS CONTROL FUNCTION MODULE                        *     FNC00005
 *        *                                                        *     FNC00006
 *        **********************************************************     FNC00007
 *                                                                       FNC00008
 *        THIS IS THE SDS FUNCTION MODULE.  IT CONTAINS PROCEDURES       FNC00009
 *        TO CARRY OUT EACH OF THE SDS COMMANDS.                         FNC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CSLINK   DS    XL3                 POINTER TO CONTINUED CSECT           FNC01502
 *                                                                       FNC01503
 MAPENTRY DSECT MAP ENTRY FOR SDS MAP                                    FNC01504
 LOADADD  DS    XL3                LOADED ADDRESS                        FNC01505
 RELOC    DS    XL3                RELOCATION FACTOR                     FNC01506
 LCSECT   DS    XL3                LENGTH FOR THIS CSECT                 FNC01507
 CSNAME   DS    CL8                CSECT NAME                            FNC01508
 SKEY     DS    X                  MAP FLAG BYTE                         FNC01509
 STPTR    DS    XL3                PTR TO START OF CSECT IN SYMBOL TABLE FNC01510
          END                                                            FNC01511
-FILE 321;   611 RECORDS:  
0         TITLE 'EDITOR'                                                 ED000001
 *                                                                       ED000002
 *        **********************************************************     ED000003
 *        *                                                        *     ED000004
 *        *     SDS EDITOR ROUTINE                                 *     ED000005
 *        *                                                        *     ED000006
 *        **********************************************************     ED000007
 *                                                                       ED000008
 *                                                                       ED000009
 *                                                                       ED000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MSING    COMMENT '-***MISSING SYM OR ESD CARDS.'                        ED000602
          B     TDEXIT                                                   ED000603
 MSEND    COMMENT '-***MISSING END CARD IN OBJECT FILE.'                 ED000604
          B     TDEXIT                                                   ED000605
 *                                                                       ED000606
 PUNT     COMMENT '***SYSTEM ERROR.'                                     ED000607
          ERROR                                                          ED000608
 *                                                                       ED000609
 INPUT    DS    256C               INPUT REGION                          ED000610
          END                                                            ED000611
-FILE 322;     1 RECORDS:  
0* ANOTHER MISSING FILE.......                                           IOC00001
 
-FILE 323;   364 RECORDS:  
0         EJECT                                                          DSCT0001
 *        **********************************************************     DSCT0002
 *        *                                                        *     DSCT0003
 *        *     COMMUNICATION AREA                                 *     DSCT0004
 *        *                                                        *     DSCT0005
 *        **********************************************************     DSCT0006
 *                                                                       DSCT0007
          DS    0D                                                       DSCT0008
 SAVEAREA DS    19F                PRIMARY SAVE AREA                     DSCT0009
 SAVEARE2 DS    19F                SECONDARY SAVE AREA                   DSCT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PDVAL    DS    CL4                VALUE                                 DSCT0355
 PDLEN    DS    CL2                IBM LENGTH                            DSCT0356
 PDTYP    DS    CL1                TYPE CODE                             DSCT0357
 LPSTE    EQU   *-PDSTE            LENGTH FOR PREDEFINED SYMTAB ENTRY    DSCT0358
 *                                                                       DSCT0359
 ATDS     DSECT                    DSECT FOR AT-TABLE ENTRY              DSCT0360
 ATADRS   DS    A                  LOADED ADDRESS OF BREAKPOINT          DSCT0361
 CARAD    DS    A                  POINTER TO COMMAND IN COMMAND TABLE   DSCT0362
 LATENT   EQU   *-ATDS             LENGTH FOR AT-TABLE ENTRY             DSCT0363
          EJECT                                                          DSCT0364
-FILE 324;   364 RECORDS:  
0COMMENT  100                                                            MAC00001
 FETCH    105                                                            MAC00002
 GTSPC    110                                                            MAC00003
 TERM     115                                                            MAC00004
 XPAND    120                                                            MAC00005
 READ     130                                                            MAC00006
 LOAD     140                                                            MAC00007
 SMAP     145                                                            MAC00008
 WR       150                                                            MAC00009
 NBC      155                                                            MAC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          GBLC  &SAVLOC                                                  MAC00355
 &LABEL   L     LINK,&SAVLOC                                             MAC00356
          L     BASE2,&SAVLOC+4                                          MAC00357
          AIF   (T'&MODE EQ 'O').B2                                      MAC00358
          AIF   ('&MODE'(1,1) EQ 'F').B4                                 MAC00359
 .B2      B     4(0,LINK)                                                MAC00360
 &SAVLOC  DS    2A                                                       MAC00361
          MEXIT                                                          MAC00362
 .B4      BR    LINK                                                     MAC00363
          MEND                                                           MAC00364
-FILE 325;   874 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BLR   LINK               YES - CONTINUE                        IOC00865
          ST    LINK,BFRLINK       SAVE LINK ADDRESS                     IOC00866
          BAL   LINK,CLOSE         DO A CLOSE                            IOC00867
          L     LINK,BFRLINK       RETRIEVE LINK ADDRESS                 IOC00868
          BR    LINK                                                     IOC00869
 *                                                                       IOC00870
 BFRLINK  DS    A                                                        IOC00871
 *                                                                       IOC00872
 IOCSAVE  DS    16F                IOC TRANSFER SAVE AREA                IOC00873
          END                                                            IOC00874
-FILE 326;  1363 RECORDS:  
0CVTH     TITLE 'FORTRAN I/O CONVERSION MODULE'                          FCV00001
 ADCON#   START 0                                                        FCV00002
          EXTRN     IBCOM#                                               FCV00003
 * THESE ENTRY POINTS ARE A TEMPORARY EXPEDIENT TO MAINTAIN              FCV00004
 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE.                 FCV00005
          ENTRY     FCVEO                                                FCV00006
          ENTRY     FCVLO                                                FCV00007
          ENTRY     FCVIO                                                FCV00008
          ENTRY     FCVCO                                                FCV00009
          ENTRY     FCVAO                                                FCV00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MOVEX    MVC       0(1,GRY),0(GRX)     ITEM TO BUFFER                   FCV01354
 CHRMOV   MVC       0(1,GRY),0(CHRSAV)  MOVE FROM CONVERT AREA           FCV01355
 CONONE   EQU       ONE                                                  FCV01356
 CONFOR   EQU       FOU                                                  FCV01357
 GFSWCH   DC        AL1(0)              FLOATING DECIMAL SWITCH          FCV01358
 CGSWCH   DC        AL1(0)              G-OUTPUT SWITCH                  FCV01359
 DECIM    DC        C'0123456789ABCDEF' OUTPUT TRANSLATION TABLE         FCV01360
 ZERPNT   DC        C' 0.0'                                              FCV01361
          SPACE     3                                                    FCV01362
          END                                                            FCV01363
-FILE 327;  1292 RECORDS:  
0ICOM     TITLE 'FORTRAN I/O INTERFACE MODULE'                           ICOM0001
 IBCOM#   START 0                                                        ICOM0002
          EXTRN     ADCON#                                               ICOM0003
          EXTRN     FIOCS#                                               ICOM0004
 * THESE EXTERNAL REFERENCES ARE A TEMPORARY EXPEDIENT TO MAINTAIN       ICOM0005
 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE.                 ICOM0006
          EXTRN     FCVEO                                                ICOM0007
          EXTRN     FCVLO                                                ICOM0008
          EXTRN     FCVIO                                                ICOM0009
          EXTRN     FCVCO                                                ICOM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    H'282',C'EF',C'CDEXP ABS(IMAG(ARG)) >= 2**50*PI        ' ICOM1283
          DC    H'283',C'EF',C'CDLOG ARGUMENT ZERO                     ' ICOM1284
          DC    H'284',C'EF',C'CDSIN/CDCOS ABS(REAL(ARG)) >= 2**50*PI  ' ICOM1285
          DC    H'285',C'EF',C'CDSIN/CDCOS ABS(IMAG(ARG)) > 174.673    ' ICOM1286
          DC    H'290',C'EF',C'GAMMA RANGE IS 2**-252 < ARG < 57.5744  ' ICOM1287
          DC    H'291',C'EF',C'ALGAMA RANGE IS 0 < ARG < 4.2937E+73    ' ICOM1288
          DC    H'300',C'EF',C'DGAMMA RANGE IS 2**-252 < ARG < 57.5744 ' ICOM1289
 IHCLAST  DC    H'301',C'EF',C'DLGAMA RANGE IS 0 < ARG < 4.2937E+73    ' ICOM1290
 *                                                                       ICOM1291
          END                                                            ICOM1292
-FILE 328;   776 RECORDS:  
0FIO      TITLE 'FFORTRAN/MTS I/O INTERFACE MODULE'                      FIO00001
 FIOCS#   START 0                                                        FIO00002
 *        ***** REGISTER ASSIGNMENTS *****                               FIO00003
 GRX      EQU   2                                                        FIO00004
 GRY      EQU   3                                                        FIO00005
 WKA      EQU   4                                                        FIO00006
 WKB      EQU   5                                                        FIO00007
 UATER    EQU   6                                                        FIO00008
 BASE     EQU   7                                                        FIO00009
 GRS      EQU   7                                                        FIO00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FLAGS    EQU   READVCON                                                 FIO00767
 DEVFLG   EQU   RITEVCON                                                 FIO00768
 LINE#    DS    F                                                        FIO00769
 RECLENI  DS    H                                                        FIO00770
 RECLENO  DS    H                                                        FIO00771
 LASTINIT DS    F                                                        FIO00772
 FQUALS   EQU   LASTINIT                                                 FIO00773
 BUFADDR  DS    F                                                        FIO00774
 STARECNT EQU   BUFADDR                                                  FIO00775
          END                                                            FIO00776
-FILE 329;   796 RECORDS:  
0NAME     TITLE 'MTS FORTRAN VERSION OF IHCNAMEL'                        NAME0001
 IHCNAMEL START     0                   NAMELIST I/O ROUTINES            NAME0002
          ENTRY     FRDNL#                                               NAME0003
          ENTRY     FWRNL#                                               NAME0004
          EXTRN     IBCOM#                                               NAME0005
          EXTRN     ADCON#                                               NAME0006
          EXTRN     FIOCS#                                               NAME0007
 *                                                                       NAME0008
 * STATUS - CHANGE LEVEL 4                                               NAME0009
 *                                                                       NAME0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NOSWCH   DC        AL1(0)              NUMBER SWITCH                    NAME0787
 VSUBSW   DC        AL1(0)              SUBSCRIPTED VARIABLE             NAME0788
 COMPSW   DC        AL1(0)              FIRST COMMA SWITCH               NAME0789
 HEXSW    DC        AL1(0)              HEXADECIMAL INPUT                NAME0790
 QSTOP    DC        AL1(0)              LAST QUOTE SWITCH                NAME0791
 QUOTE    DC        AL1(0)              QUOTE OR COMMERCIAL AT           NAME0792
 ENDSW    DC        AL1(0)              &END SWITCH                      NAME0793
          DS    250C                                                     NAME0794
 *                                                                       NAME0795
          END                                                            NAME0796
-FILE 330;   780 RECORDS:  
0DBUG     TITLE 'MTS FORTRAN VERSION OF IHCDBUG'                         DBUG0001
 IHCDBUG  START                                                          DBUG0002
          ENTRY     DEBUG#                                               DBUG0003
          EXTRN     IHCUATBL                                             DBUG0004
          EXTRN     FIOCS#                                               DBUG0005
 *********************************************************************** DBUG0006
 *STATUS/CHANGE LEVEL 0000                                               DBUG0007
 *                                                                       DBUG0008
 *FUNCTION/OPERATION.   IHCDBUG IS A MEMBER OF THE FORTRAN IV (G)        DBUG0009
 *    OBJECT LIBRARY (SYS1.FORTLIB). IT SUPPORTS THE DEBUG LANGUAGE      DBUG0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          DBUG0771
 EXPONTBL DC        X'000102030405060708090A141E28323C46'                DBUG0772
 TRACFLAG DC        XL1'00'                                              DBUG0773
 DATATYPE DC        XL1'00'                                              DBUG0774
 IOFLAG   DC        XL1'00'                                              DBUG0775
 TEMPFLAG DS        XL1                                                  DBUG0776
 SWITCH   DS        XL1                                                  DBUG0777
 EXPLETER DS        C                                                    DBUG0778
          SPACE     10                                                   DBUG0779
          END                                                            DBUG0780
-FILE 331;   520 RECORDS:  
0./       ADD   IEMAS,01,0,0,01011416                                    84000000
 IEMAS    CSECT                                                          73600013
          EJECT                                                          73640013
          EJECT                                                          73680013
 * ROOT PHASE, TRANSFER VECTOR EQUATES                                   73720013
 ROOTPH   EQU   X'06'                                                    73760013
 CLSBUF   EQU   ROOTPH+4                                                 73800013
 COMENT   EQU   CLSBUF+4                                                 73840013
 COMEND   EQU   COMENT+4                                                 73880013
 FREVAL   EQU   COMEND+4                                                 73920013
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       94040013
 *              PUSHDOWN LIST CODES                                      94080013
 *                                                                       94120013
 PCTHEN   EQU   0                                                        94160013
 PCELSE   EQU   1                                                        94200013
 PCPROC   EQU   2                                                        94240013
 PCGRDO   EQU   3                                                        94280013
 PCITDO   EQU   4                                                        94320013
 PC1PDO   EQU   5                                                        94360013
 ./       ENDUP                                                                  
-FILE 332;  2667 RECORDS:  
0AA       TITLE 'IEMAA,RESIDENT CONTROL PHASE,COMPILER CONTROL,MTS/360 PCMAA00001
                L/I COMPILER(F)'                                         MAA00002
 *                                                                       MAA00003
 *              STATUS - CHANGE LEVEL 0                                  MAA00004
 *                                                                       MAA00005
 *                                                                       MAA00006
 *              FUNCTIONS - 1)COMPILER INITIALISATION. IEMAB IS LOADED   MAA00007
 *        IN ORDER TO PERFORM THIS FUNCTION                              MAA00008
 *                          2)CHARACTER TRANSLATION. EBCIDIC OR BCD TO   MAA00009
 *        INTERNAL AND BACK TO EXTERNAL. THE RELEVANT TABLE IS SUPPLIED  MAA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PERRSW   EQU   189                                                      MAA02658
 *                                                                       MAA02659
 *              THIS EQUATE IS FOR THE FIRST CARD READ BY THE INITIALISR MAA02660
 *                                                                       MAA02661
 READSL   EQU   500                                                      MAA02662
 *                                                                       MAA02663
 *              THIS EQUATE IS FOR MTS SVC                               MAA02664
 *                                                                       MAA02665
 GETELT   EQU   38                                                       MAA02666
          END   IEMAA                                                    MAA02667
-FILE 333;   196 RECORDS:  
0LOAD     TITLE '                       SPEEDY LOADER FOR PL/I COMPILER' LDR00001
 *        PARAMETER LIST                                                 LDR00002
 *        DC    A(PHASE DIRECTORY ENTRY)                                 LDR00003
 *        DC    A(FDUB OF PL1LINKLIBX)                                   LDR00004
 *        DC    A(LINNR)                LINE NUMBER TO START WITH        LDR00005
 *                                                                       LDR00006
 LOADER   CSECT                                                          LDR00007
          USING LOADER,10                                                LDR00008
          STM   14,12,12(13)            SAVE REGS                        LDR00009
          LR    10,15                   BASE IT                          LDR00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(LINNR)                                                 LDR00187
          DC    A(FDUB)                                                  LDR00188
 PARMLIST DC    A(0)                                                     LDR00189
 FOUR     DC    F'4'                                                     LDR00190
 F240     DC    F'240'                                                   LDR00191
 SA       DS    18F                                                      LDR00192
          DS    0F                                                       LDR00193
 CARD     DS    CL256                                                    LDR00194
          LTORG                                                          LDR00195
          END                                                            LDR00196
-FILE 334;  2964 RECORDS:  
0AB       TITLE 'IEMAB,INITIALISING PHASE,COMPILER CONTROL,MTS/360 PL/I CMAB00001
                COMPILER(F)'                                             MAB00002
          MACRO                                                          MAB00003
 &L       XPRINT &LEN,&REG                                               MAB00004
 &L       DS    0H                                                       MAB00005
          AIF   (T'&LEN EQ 'O').NOLEN                                    MAB00006
          LA    15,&LEN                                                  MAB00007
 .NOLEN   STH   15,HLEN                                                  MAB00008
          LA    15,&REG                                                  MAB00009
          ST    15,SPRTPARM                                              MAB00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BL       EQU   4                                                        MAB02955
 BM       EQU   4                                                        MAB02956
 BNE      EQU   7                                                        MAB02957
 BE       EQU   8                                                        MAB02958
 BZ       EQU   8                                                        MAB02959
 BR       EQU   15                                                       MAB02960
 B        EQU   15                                                       MAB02961
 BLDLOF   EQU   X'84'                   OFFSET OF BLDL ROUTINE IN MTS    MAB02962
 TOD      EQU   28                                                       MAB02963
          END   IEMAB                                                    MAB02964
-FILE 335;   273 RECORDS:  
0         MACRO                                                          MAF00001
          ERROR &A,&B,&C                                                 MAF00002
          MNOTE 8,'&A = ''&B'' IS ILLEGALLY SPECIFIED. ''&C'' IS ASSUMEDXMAF00003
                .'                                                       MAF00004
          MEND                                                           MAF00005
          MACRO                                                          MAF00006
          PL1   &DESIGN=F,&PUNCH=NODECK,&TYPERUN=LOAD,&SORCODE=EBCDIC,  XMAF00007
                &SIZE=73728,&OBJLIST=NOLIST,&MSGLEV=FLAGW,&OPT=1,       XMAF00008
                &SORLIST=SOURCE,&CHARSET=CHAR60,&EXTLIST=NOEXTREF,      XMAF00009
                &ATRLIST=NOATR,&SORMGIN=(2,72),&LINECNT=50,&PAGECTL=0,  XMAF00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    B'&B(65).&B(66).&B(67).&B(68).&B(69).&B(70).&B(71).&B(72XMAF00264
                ).&B(73).&B(74).&B(75).&B(76).&B(77).&B(78).&B(79).&B(80XMAF00265
                )'                                                       MAF00266
          DC    B'&B(81).&B(82).&B(83).&B(84).&B(85).&B(86).&B(87).&B(88XMAF00267
                ).&B(89).&B(90).&B(91).&B(92).&B(93).&B(94).&B(95).&B(96XMAF00268
                )'                                                       MAF00269
          MEND                                                           MAF00270
  PL1 VERSION=3,SORMGIN=(1,72),LIBRARY=COMPLEX,ATRLIST=ATR,LINECNT=60,  XMAF00271
                REFLIST=XREF,SIZE=4096,DELETE=(M91)                      MAF00272
  END                                                                    MAF00273
-FILE 336;   221 RECORDS:  
0AE       TITLE 'IEMAE,CLEAN-UP AFTER READIN,COMPILER CONTROL,MTS/360 PLCMAE00001
                /I COMPILER(F)'                                          MAE00002
 *                                                                       MAE00003
 *              STATUS - CHANGE LEVEL 0                                  MAE00004
 *                                                                       MAE00005
 *              FUNCTIONS-1)OPEN SYSLIN AND SYSPUNCH IF REQUIRED         MAE00006
 *                        2)CLOSE LAST INPUT DCB                         MAE00007
 *                        3)DELETE IEMAC IF NECESSARY                    MAE00008
 *                        4)EXPAND FROM 2 TO 4 TEXT AND DICTIONARY BLKS  MAE00009
 *        IF NECESSARY                                                   MAE00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NOP      EQU   0                                                        MAE00212
 BO       EQU   1                                                        MAE00213
 BE       EQU   8                                                        MAE00214
 BNE      EQU   7                                                        MAE00215
 BZ       EQU   8                                                        MAE00216
 BH       EQU   2                                                        MAE00217
 B        EQU   15                                                       MAE00218
 BR       EQU   15                                                       MAE00219
 BNO      EQU   12                                                       MAE00220
          END   IEMAE                                                    MAE00221
-FILE 337;   381 RECORDS:  
0AK       TITLE 'IEMAK, CLOSING PHASE, COMPILER CONTROL,MTS/360 PL/1(F)' MAK00001
 *1410322000,354000                                                 1681 MAK00002
          EJECT                                                          MAK00003
 IEMAK    START 0                                                        MAK00004
          USING *,BASE                                                   MAK00005
 *                                                                       MAK00006
 *                                                                       MAK00007
 *              INITIALISE AK                                            MAK00008
 *                                                                       MAK00009
          STM   14,12,12(13)            SAVE AA REGISTERS                MAK00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PROCES   DC    C'PROCESS'                                               MAK00372
 BLANK    DC    C' '                                                     MAK00373
 DELPHS DC      CL8'IEM'                                                 MAK00374
 ONEPK    DC    X'00001F'                                                MAK00375
 VFREE    DC    V(FREESPAC)                                              MAK00376
 STUFF    DC    2F'0'                                                    MAK00377
 EPIEMAD  DC    A(IEMAD,0,0)       FOR DELETING IEMAD                    MAK00378
 IEMAD    DC    CL8'*IEMAD'        NAME OF FILE                          MAK00379
 GETELT   EQU   38                 AN MTS SVC                            MAK00380
          END                                                            MAK00381
-FILE 338;   166 RECORDS:  
0JZ       TITLE 'IEMJZ,SECOND HALF PHASE DIRECTORY,OS/360 PL/1(F)'       MJZ00001
 *                                                                       MJZ00002
 *              STATUS-CHANGE LEVEL 0                                    MJZ00003
 *                                                                       MJZ00004
 *                                                                       MJZ00005
 *              FUNCTIONS- 1)CONSTRUCTS A BUILD LIST OF PHASES IN THE    MJZ00006
 *        SECOND HALF OF THE COMPILER                                    MJZ00007
 *                         2)ISSUES A BLDL ON THIS LIST                  MJZ00008
 *                         3)RECONSTRUCTS THE PHASE DIRECTORY FOR THE    MJZ00009
 *        SECOND HALF OF THE COMPILER                                    MJZ00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       MJZ00157
 MYNAM    EQU   112                                                      MJZ00158
 PAR1     EQU   128                                                      MJZ00159
 PAR2     EQU   PAR1+4                                                   MJZ00160
 SCNOF    EQU   184                                                      MJZ00161
 SECHF    EQU   185                                                      MJZ00162
 ERCODE   EQU   224                                                      MJZ00163
 CCCODE   EQU   232                                                      MJZ00164
          SPACE                                                          MJZ00165
          END   IEMJZ                                                    MJZ00166
-FILE 339;   195 RECORDS:  
0XB       TITLE 'IEMXB, CONSTRUCT BUILD LIST OF ERROR PHASES,PL/1F'      MXB00001
          EJECT                                                          MXB00002
 *                                                                       MXB00003
 *              FUNCTION 1) CONSTRUCT A BUILD LIST OF PHASES IN THE      MXB00004
 *                          ERROR MESSAGE LOGICAL PHASE                  MXB00005
 *                       2) ISSUE A BLDL FOR THIS LIST                   MXB00006
 *                       3) RECONSTRUCT THE PHASE DIRECTORY FOR THE      MXB00007
 *                          ERROR MESSAGE PHASES                         MXB00008
 *                                                                       MXB00009
 *              INPUT ) PHASE LIST IN THIS PHASE                         MXB00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       MXB00186
 PDOF     EQU   28                                                       MXB00187
 *                                                                       MXB00188
 *              COMMUNICATION REGION EQUATES                             MXB00189
 *                                                                       MXB00190
 PAR1     EQU   128                                                      MXB00191
 SCNOF    EQU   184                                                      MXB00192
 ERCODE   EQU   224                                                      MXB00193
          SPACE                                                          MXB00194
          END   IEMXB                                                    MXB00195
-FILE 340;   185 RECORDS:  
0)ERR                                                                    PLMC0001
          MACRO                                                          PLMC0002
 &LAB     ERR   &MS,&SV,&LC,&DR,&NP,&TXT,&LNG,&CD                        PLMC0003
          AIF   (K'&LAB EQ 0).STRT                                       PLMC0004
 &LAB     DS    0H                                                       PLMC0005
 .STRT    ANOP                                                           PLMC0006
          AIF   (K'&MS NE 0).BEG                                         PLMC0007
          DC    X'0000'                                                  PLMC0008
          MNOTE 3,' ERR MUST HAVE MESSAGE NUMBER '                       PLMC0009
          AGO   .LAB2                                                    PLMC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 )POP1                                                                   PLMC0176
          MACRO                                                          PLMC0177
 &NAME    POP1                                                           PLMC0178
 &NAME    SH    GRC,XXH4                                                 PLMC0179
          MEND                                                           PLMC0180
 )PUSH1                                                                  PLMC0181
          MACRO                                                          PLMC0182
 &NAME    PUSH1                                                          PLMC0183
 &NAME    LA    GRC,4(GRC)         PUSH A WORD ONTO PDS                  PLMC0184
          MEND                                                           PLMC0185
-FILE 341; 25956 RECORDS:  
0./       ADD   IEMAC,01,0,0,03011445                                    84000000
 AC       TITLE 'IEMAC,INTERMEDIATE FILE CONTROL,COMPILER CONTROL,OS/360C00700013
                PL/I COMPILER(F)'                                        01400013
 *                                                                       02100013
 *              STATUS - CHANGE LEVEL 0                                  02800013
 *                                                                       03500013
 *              FUNCTIONS-1)WRITE OUT RECORDS ONTO SYSUT3                04200013
 *                        2)WHEN LAST RECORD WRITTEN,LOAD IEMAG TO       04900013
 *        ACHIEVE FILE SWITCHING                                         05600013
 *                                                                       06300013
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          83000013
 M3901    DC    AL2(E3901-M3901-2)                                       84000013
          DC    C' ERROR IN PROCES'                                      85000013
          DC    C'S STATEMENT. DEF'                                      86000013
          DC    C'AULT OPTION IS A'                                      87000013
          DC    C'SSUMED. '                                              88000013
 E3901    DC    X'10'                                                    89000013
          SPACE                                                          90000013
          END   IEMYY                                                    91000013
 ./       ENDUP                                                                  
-FILE 342;   703 RECORDS:  
0ERR      01000                                                          LBMC0001
 INVK     01052                                                          LBMC0002
 MVW      01065                                                          LBMC0003
 NSTAT    01071                                                          LBMC0004
 NSTA2    01078                                                          LBMC0005
 OSTAT    01083                                                          LBMC0006
 OSTA2    01090                                                          LBMC0007
 OUTDA    01095                                                          LBMC0008
 POP      01142                                                          LBMC0009
 PUSH     01147                                                          LBMC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MTSLNR   DS    F                  LINE NUMBER                           LBMC0694
 MTSFDB   DS    F                  FDUB                                  LBMC0695
 MTSBUF   DS    F                  BUFFER ADDR                           LBMC0696
 MTSCBP   DS    F                  CURRENT BUFFER POINTER                LBMC0697
 MTSEOB   DS    F                  END OF BLOCK ADDR                     LBMC0698
 MTSNAM   DS    32C                NAME OF FILE                          LBMC0699
 MTSWRK   DS    20F                WORK AREA FOR ROUTINES                LBMC0700
 MTSEND   EQU   *                                                        LBMC0701
          MEND                                                           LBMC0702
 $TERM                                                                   LBMC0703
-FILE 343;   978 RECORDS:  
0./       ADD   IHESAPA,01,0,0,03011420                                  SAPA0001
 SAP3     TITLE ' IHESAP  STORAGE ALLOCATION PROGRAM. OS/360 PL/I LIBRAR*SAPA0002
                Y.'                                                      SAPA0003
 *   VERSION    THIRD VERSION OF F-LEVEL PL/1 COMPILER                   SAPA0004
 *                                                                       SAPA0005
 *   STATUS     CHANGE LEVEL  0                                          SAPA0006
 *                                                                       SAPA0007
 *   SIZE            BYTES                                               SAPA0008
 *                                                                       SAPA0009
 *   FUNCTION   TO ALLOCATE AND FREE DYNAMIC STORAGE AND PERFORM OBJECT  SAPA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(SAF18)                                                 SAPA0969
          DC    A(SAFCR)                                                 SAPA0970
          DC    A(SAP04)            1ST TABLE3 ENTRY                     SAPA0971
          DC    A(SAPAC)                                                 SAPA0972
          DC    A(SAP04)                                                 SAPA0973
          DC    A(SAPAC)                                                 SAPA0974
 *                                                                       SAPA0975
 ASADF    DC    A(IHESADF)                                               SAPA0976
          END   IHESAPA                                                  SAPA0977
 ./       ENDUP                                                          SAPA0978
-FILE 344;    91 RECORDS:  
0DUM3     TITLE '    IHEDUM   DUMP MODULE                               *DUMP0001
                OS/360 PL/I LIBRARY'                                     DUMP0002
 *   VERSION    THIRD VERSION OF F-LEVEL PL/1 COMPILER                   DUMP0003
 *                                                                       DUMP0004
 *   STATUS     CHANGE LEVEL - 3                                         DUMP0005
 *                                                                       DUMP0006
 *   SIZE       142 BYTES                                                DUMP0007
 *                                                                       DUMP0008
 *   FUNCTION                                                            DUMP0009
 *              TERMINATE ABNORMALLY WITH DUMP                           DUMP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 VZZA     DC    C'*IHEZZA '                                              DUMP0082
          DS    0A                                                       DUMP0083
 PARM     DC    QL2(IHEQLCA)                                             DUMP0084
          DC    QL2(IHEQFOP)                                             DUMP0085
          DC    QL2(IHEQSPR)                                             DUMP0086
          DC    QL2(IHEQCFL)                                             DUMP0087
          DC    V(IHEDMAA)                                               DUMP0088
          DC    QL2(IHEQINV)                                             DUMP0089
 SA       DS    20F                                                      DUMP0090
          END                                                            DUMP0091
-FILE 345;   390 RECORDS:  
0ZZA      TITLE ' IHEZZA  - FIRST PART OF ABDUMP INDEX                  /ZZA00001
                OS/360 PL/I LIBRARY'                                     ZZA00002
 *   VERSION    THIRD VERSION OF F-LEVEL PL/I COMPILER                   ZZA00003
 *                                                                       ZZA00004
 *   STATUS     CHANGE LEVEL - 3                                         ZZA00005
 *                                                                       ZZA00006
 *    SIZE      1312 BYTES                                               ZZA00007
 *                                                                       ZZA00008
 *   FUNCTION   TO INITIALIZE THE FILE SYSABEND (OR SYSUDUMP) AND OUTPUT ZZA00009
 *              1. THE CONTENTS OF THE SYSPRINT BUFFERS.                 ZZA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 H008     DC    H'8'                                                     ZZA00381
 H132     DC    H'132'                                                   ZZA00382
 H255     DC    H'255'                                                   ZZA00383
          SPACE 4                                                        ZZA00384
 VZZB     DC    V(IHEZZBA)                                               ZZA00385
 VGET     DC    V(GETSPACE)                                              ZZA00386
 VFREE    DC    V(FREESPAC)                                              ZZA00387
 VSERCOM  DC    V(SERCOM)                                                ZZA00388
 VPGNTTRP DC    V(PGNTTRP)                                               ZZA00389
          END                                                            ZZA00390
-FILE 346;   518 RECORDS:  
0ZZB      TITLE ' IHEZZB - SECOND PART OF ABDUMP INDEX                  /ZZB00001
                OS/360 PL/I LIBRARY'                                     ZZB00002
 *   VERSION    THIRD VERSION OF F-LEVEL PL/I COMPILER                   ZZB00003
 *                                                                       ZZB00004
 *   STATUS     CHANGE LEVEL - 3                                         ZZB00005
 *                                                                       ZZB00006
 *    SIZE      1700 BYTES                                               ZZB00007
 *                                                                       ZZB00008
 *   FUNCTION   TO OUTPUT THE SAVE AREA TRACE BACK.                      ZZB00009
 *                                                                       ZZB00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CAST     DC    C'- ***'                                                 ZZB00509
 H008     DC    H'8'                                                     ZZB00510
 H024     DC    H'24'                                                    ZZB00511
 H016     DC    H'16'                                                    ZZB00512
          SPACE 4                                                        ZZB00513
 VGET     DC    V(GETSPACE)                                              ZZB00514
 VFREE    DC    V(FREESPAC)                                              ZZB00515
 VSERCOM  DC    V(SERCOM)                                                ZZB00516
 VPGNTTRP DC    V(PGNTTRP)                                               ZZB00517
          END                                                            ZZB00518
-FILE 347;    18 RECORDS:  
0SPRT     TITLE '   IHESPRINT IF NOT PROVIDED BY THE USER'               SPRT0001
 IHEQSPR  DXD   A                                                        SPRT0002
 *        LIBRARY PROVIDED CSECT FOR DECLARE CONTROL BLOCK FOR           SPRT0003
 *        SYSPRINT FILE (THIS CSECT WILL BE REPLACED BY LINKAGE PROCESS  SPRT0004
 *        IF SYSPRINT IS DECLARED EXPLICITLY OR IMPLICITLY BY            SPRT0005
 *        COMPILED CODE)                                                 SPRT0006
          SPACE 2                                                        SPRT0007
 IHESPRT  CSECT                                                          SPRT0008
          DC    QL2(IHEQSPR)                                             SPRT0009
          DC    X'10'                                                    SPRT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'2'                                                     SPRT0011
          DC    3H'0'                                                    SPRT0012
          DC    X'0'                                                     SPRT0013
          DC    X'04'                                                    SPRT0014
          DC    6H'0'                                                    SPRT0015
          DC    AL1(7)                                                   SPRT0016
          DC    C'SYSPRINT'                                              SPRT0017
          END                                                            SPRT0018
-FILE 348;   157 RECORDS:  
0PRT      TITLE ' IHEPRT   COPY.ERROR MESSAGE PRINTER '                  PRT00001
 IHEPRT   CSECT                                                          PRT00002
          IHEZAP                                                         PRT00003
          IHELIB                                                         PRT00004
 PRTSAVE  DSECT                                                          PRT00005
          DS    17F                                                      PRT00006
 WPFL     DS    B                                                        PRT00007
          DS    2A                 CFL SLOT                              PRT00008
 LSAV     EQU   *-PRTSAVE                                                PRT00009
          SPACE 3                                                        PRT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(OPNS)                                                  PRT00148
          DC    5A(0)                                                    PRT00149
          DC    X'80'                                                    PRT00150
          DC    AL3(0)                                                   PRT00151
          SPACE 2                                                        PRT00152
 *        SPECIAL OPEN CONTROL BLANK (OCB) FOR CALL TO IHEOCL.           PRT00153
          SPACE                                                          PRT00154
 OPNS     DC    B'01000000'        INDICATE CALL FROM IHEPRT.            PRT00155
          DC    AL3(0)                                                   PRT00156
          END                                                            PRT00157
-FILE 349;    73 RECORDS:  
0OST      TITLE '    IHEOST   TIME ROUTINE                              *OST00001
                OS/360 PL/I LIBRARY'                                     OST00002
 *   VERSION    SECOND VERSION OF F-LEVEL PL/1 COMPILER                  OST00003
 *                                                                       OST00004
 *   STATUS     CHANGE LEVEL - 0                                         OST00005
 *                                                                       OST00006
 *   SIZE       83 BYTES                                                 OST00007
 *                                                                       OST00008
 *   FUNCTION                                                            OST00009
 *              TO OBTAIN THE TIME OF DAY CONVERT TO CHARACTERS AND      OST00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          TIME                                                           OST00064
          L     RE,0(0,RE)    RE CONTAINS ADDRESS OF SDV                 OST00065
          L     RE,0(0,RE)    RE CONTAINS ADDRESS OF TARGET              OST00066
          STM   R0,R1,72(DR)  SAVE TIME                                  OST00067
          MVC   0(8,RE),72(DR) MOVE TOME INTO TARGET                     OST00068
          L     DR,4(DR)            UPDATE DR                            OST00069
          LM    LR,PWR,OFLR(DR)     RESTORE REGISTERS                    OST00070
          BR    LR                                                       OST00071
 PWR      EQU   WR                                                       OST00072
          END                                                            OST00073
-FILE 350;    20 RECORDS:  
0OSD      TITLE '     IHEOSD     DATE ROUTINE '                          OSD00001
 IHEOSD   CSECT                                                          OSD00002
          IHELIB                                                         OSD00003
 IHEOSD   CSECT                                                          OSD00004
          ENTRY IHEOSDA                                                  OSD00005
          USING *,PWR-1                                                  OSD00006
 IHEOSDA  STM   LR,PWR,OFLR(DR)                                          OSD00007
          LR    PWR-1,BR      LOAD BASE REGISTER                         OSD00008
          IHESDR LW0,RB                                                  OSD00009
          LR    RE,RA         SAVE ADDR OF PARM.LIST                     OSD00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          TIME                                                           OSD00011
          L     RE,0(0,RE)    RE CONTAINS ADDRESS OF SDV                 OSD00012
          L     RE,0(0,RE)    RE CONTAINS ADDR OF TARGET                 OSD00013
          STM   RB,RC,72(DR)  SAVE DATE                                  OSD00014
          MVC   0(8,RE),72(DR)      MOVE DATE INTO TARGET                OSD00015
          L     DR,4(DR)      UPDATE DR                                  OSD00016
          LM    LR,PWR,OFLR(DR)                                          OSD00017
          BR    LR                                                       OSD00018
 PWR      EQU   WR                                                       OSD00019
          END                                                            OSD00020
-FILE 351;    79 RECORDS:  
0%INPUT IHEDSP(2)                                                        DSP00001
 %OUTPUT -S                                                              DSP00002
 %DELETE '46000013' '82800013'                                           DSP00003
          LR    RE,RA                   SAVE PARAMETER POINTER           DSP00004
          L     RB,0(RE)                GET SDV OF MESSAGE               DSP00005
          L     RA,0(RB)                ADDR OF STRING                   DSP00006
          LH    R0,CURL(RB)             AND LENGTH                       DSP00007
          LTR   R0,R0                   IF ZERO                          DSP00008
          BZ    DZ000                   MAYBE ERROR                      DSP00009
          CH    R0,H100                 100 IS MAX.                      DSP00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MVI   EFL2,EMCP                                                DSP00070
 %DELETE '89600013' '90000013'                                           DSP00071
 DZ000    TM    0(RE),X'80'        IS REPLY EXPECTED??                   DSP00072
          BO    DSP05              IGNORE IF NOT                         DSP00073
 %AFTER '94400013'                                                       DSP00074
 MOVE     MVC   0(*-*,BR),0(RA)                                          DSP00075
 %DELETE '96400013'                                                      DSP00076
 VDSPW    DC    A(IHEDSPW)                                               DSP00077
 %BEFORE FILEMARK                                                        DSP00078
 %END                                                                    DSP00079
-FILE 352;   841 RECORDS:  
0OPN      TITLE 'IHEOPN   OPEN                                          XOPN00001
                MTS/360 PL/I LIBRARY'                                    OPN00002
          SPACE 2                                                        OPN00003
 IHEOPN   CSECT                                                          OPN00004
          IHELIB                                                         OPN00005
          IHEZAP                                                         OPN00006
          IHEMTS                                                         OPN00007
          SPACE 5                                                        OPN00008
 IHEQPAR  DXD   A                                                        OPN00009
 IHEQITG  DXD   2A                                                       OPN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ZERO     DC    F'0'                                                     OPN00832
 FIVE     DC    F'5'                                                     OPN00833
 IHEITG   DC    C'*IHEITG   '                                            OPN00834
 LTH      DC    H'0'                                                     OPN00835
 PLIST#1  DC    A(0,LTH,ZERO,LINNR,MSOURCE)                              OPN00836
 PLIST#2  DC    A(0,LTH,ZERO,LINNR,MSUNK)                                OPN00837
 LINNR    DC    F'0'                                                     OPN00838
 MSG      DS    256C                                                     OPN00839
 PATCH    DS    20F                                                      OPN00840
          END   IHEOPNA                                                  OPN00841
-FILE 353;   112 RECORDS:  
0GET      TITLE '                       GET/PUTX ROUTINES'               GET00001
 IHEGET   CSECT                                                          GET00002
          IHELIB                                                         GET00003
          IHEZAP                                                         GET00004
          IHEMTS                                                         GET00005
          EJECT                                                          GET00006
 IHEGET   CSECT                                                          GET00007
          USING IHEZAPE,RG                                               GET00008
          USING MTSDCB,RH                                                GET00009
          USING IHEGET,BR                                                GET00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          GET00103
 SYN      LA    BR,8                    SET CODE = 8                     GET00104
          B     OOPS                                                     GET00105
          SPACE                                                          GET00106
 X04X     DC    H'4'                                                     GET00107
 X08X     DC    H'8'                                                     GET00108
 SAVE     DC    18F'0'                                                   GET00109
          SPACE                                                          GET00110
 PATCH    DC    20F'0'                                                   GET00111
          END                                                            GET00112
-FILE 354;   329 RECORDS:  
0CLS      TITLE    'IHECLS    CLOSE                                     /CLS00001
                OS/360 PL/I LIBRARY'                                     CLS00002
 *   VERSION    THIRD  VERSION OF F-LEVEL PL/1 COMPILER                  CLS00003
 *                                                                       CLS00004
 *1411177000,331000-336000                                          0751 CLS00005
 *   STATUS     CHANGE LEVEL - 0                                         CLS00006
 *                                                                       CLS00007
 *   SIZE       756 BYTES.                                               CLS00008
 *                                                                       CLS00009
 *   FUNCTION   CLOSE FILES.                                             CLS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CWTM     DC    C'WTM'                                                   CLS00320
 CREW     DC    C'REW'                                                   CLS00321
 CTP      DC    C'TP'                                                    CLS00322
 PATCH  DC      20F'0'                  SOME FRIENDLY PATCH AREA         CLS00323
 SYNADM   DC    F'1'                                                     CLS00324
 SUBPL    DC    X'01000000'                                              CLS00325
 X12X     DC    H'12'                                                    CLS00326
 X04X     DC    H'04'                                                    CLS00327
 X80X     DC    H'80'                                                    CLS00328
          END   IHECLSA                                                  CLS00329
-FILE 355;   120 RECORDS:  
0ITA      TITLE '    IHEITA    INTERFACE WITH QSAM                      /ITA00001
                OS/360 PL/I LIBRARY'                                     ITA00002
 *   VERSION    THIRD  VERSION OF F-LEVEL PL/1 COMPILER                  ITA00003
 *                                                                       ITA00004
 *   PRIVATE MACROS                                                      ITA00005
 *              IHELIB,IHEPRV,IHESDR,IHEZAP                              ITA00006
 *                                                                       ITA00007
 *   ASSEMBLY REQUIREMENTS                                               ITA00008
 *              MUST BE ASSEMBLED BY AN ASSEMBLER WITH PSEUDO-REGISTER   ITA00009
 *              SUPPORT E.G. O/S 360 F-ASSEMBLER.                        ITA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'0003'                                                  ITA00111
          SPACE 3                                                        ITA00112
 *  CONSTANTS                                                            ITA00113
 X04X     DC    H'4'                                                     ITA00114
 PATCH    DC    20F'0'                                                   ITA00115
          SPACE                                                          ITA00116
 VERRB    DC    V(IHEERRB)                                               ITA00117
 VERRC    DC    V(IHEERRC)               EXEP (ERROR CONDITION)          ITA00118
 ERRA     DC    AL2(ERR0)                                              * ITA00119
          END                                                            ITA00120
-FILE 356;   243 RECORDS:  
0IOF      TITLE '    IHEIOF    RECORD ACCESSOR                          /IOF00001
                OS/360 PL/I LIBRARY'                                     IOF00002
 *   VERSION    THIRD  VERSION OF F-LEVEL PL/1 COMPILER                  IOF00003
 *                                                                       IOF00004
 *1416315000,726000-750000                                          1685 IOF00005
 *   STATUS     CHANGE LEVEL - 0                                         IOF00006
 *                                                                       IOF00007
 *   SIZE       472 BYTES                                                IOF00008
 *                                                                       IOF00009
 *   FUNCTION   TO ACCESS, AND PREPARE, LOGICAL RECORD FOR INPUT/OUTPUT  IOF00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *  CONSTANTS                                                            IOF00234
          SPACE                                                          IOF00235
 PATCH    DS    20F                                                      IOF00236
 NOIS     DC    H'14',H'00'              LITTLE LL ANTI-NOISE CAMPAIGNER IOF00237
 H004     DC    H'4'                                                     IOF00238
 ERRA     DC    AL2(ERR1)                                                IOF00239
 HEPG     DC    AL2(MEPG)                                                IOF00240
 VERRB    DC    V(IHEERRB)                                               IOF00241
 IOFM2    MVC   0(*-*,RD),0(RC)                                          IOF00242
          END   IHEIOF                                                   IOF00243
-FILE 357;   392 RECORDS:  
0ITG      TITLE '    IHEITG    QSAM INTERFACE                           /ITG00001
                OS/360 PL/I LIBRARY'                                     ITG00002
 *   VERSION    SECOND VERSION OF F-LEVEL PL/1 COMPILER                  ITG00003
 *                                                                       ITG00004
 *   STATUS     CHANGE LEVEL - 0                                         ITG00005
 *                                                                       ITG00006
 *   SIZE                                                                ITG00007
 *                                                                       ITG00008
 *   FUNCTION   PERFORM I/O INTERFACE BETWEEN PL/I AND DATA MANAGEMENT   ITG00009
 *              ACCESS METHOD, QSAM, FOR RECORD I/O. USED IF FILE        ITG00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ERRC     DC    AL2(ERR3)                                                ITG00383
 ERRD     DC    AL2(ERR4)                                                ITG00384
 ERRE     DC    AL2(ERR5)                                                ITG00385
 ERRF     DC    AL2(ERR7)                                                ITG00386
 ERRG     DC    AL2(ERR8)                                                ITG00387
 H004     DC    H'4'                                                     ITG00388
          DS    0F                                                       ITG00389
 XMSK     DC    X'80000000'                                              ITG00390
 ITGMM    MVC   0(*-*,RH),0(RI)          MOVER                           ITG00391
          END                                                            ITG00392
-FILE 358;  1312 RECORDS:  
0ERD      TITLE '    IHEERD   THIS SECTION OF ERN CONTAINS D/P MESSAGES *ESM00001
                OS/360 PL/I LIBRARY'                                     ESM00002
 *   VERSION    SECOND VERSION OF F-LEVEL PL/1 COMPILER                  ESM00003
 *                                                                       ESM00004
 *   STATUS     CHANGE LEVEL - 3                                         ESM00005
 *                                                                       ESM00006
 *   SIZE                                                                ESM00007
 *                                                                       ESM00008
 *   FUNCTION                                                            ESM00009
 *              CONSISTS OF MESSAGES PLUS TABLES FOR LOCATING THEM       ESM00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C'RECD'                                                  ESM01303
          DC    C'TMIT'                                                  ESM01304
          DC    C'    '                                                  ESM01305
          DC    C'KEY '                                                  ESM01306
          DC    C'ENDP'                                                  ESM01307
          DC    C'ENDF'                                                  ESM01308
          DC    C'    '                                                  ESM01309
          DC    C'UNDF'                                                  ESM01310
 PWR      EQU   WR                                                       ESM01311
          END                                                            ESM01312
-FILE 359;   305 RECORDS:  
0OCL      TITLE    'IHEOCL    OPEN/CLOSE BOOTSTRAP                      /OCL00001
                OS/360 PL/I LIBRARY'                                     OCL00002
 *   VERSION    THIRD  VERSION OF F-LEVEL PL/1 COMPILER                  OCL00003
 *                                                                       OCL00004
 *   STATUS     CHANGE LEVEL - 0                                         OCL00005
 *                                                                       OCL00006
 *   SIZE       532 BYTES.                                               OCL00007
 *                                                                       OCL00008
 *   FUNCTION   BOOTSTRAP                                                OCL00009
 *               THIS MODULE LINKS EITHER TO IHEOPN (OPEN)               OCL00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    AL1(VERS)                THIRD RELEASE FLAG              OCL00296
          DC    AL3(*+3)                                                 OCL00297
          DC    QL2(IHEQFOP)             FCB CHAIN ANCHOR.               OCL00298
          DC    QL2(IHEQLW3)             OFFSET OF LW3.                  OCL00299
          DC    QL2(IHEQLW2)             OFFSET OF LW2.                  OCL00300
          DC    QL2(IHEQLW1)             OFFSET OF LW1.                  OCL00301
          DC    QL2(IHEQLCA)             OFFSET OF LCA.                  OCL00302
          DC    QL2(IHEQERR)             OFFSET OF ERR.                  OCL00303
          DC    QL2(IHEQLW0)             OFFSET OF LW0.                  OCL00304
          END                                                            OCL00305
-FILE 360;    82 RECORDS:  
0PUT      TITLE '                       MTS PUT ROUTINE'                 PUT00001
 IHEPUT   CSECT                                                          PUT00002
          IHELIB                                                         PUT00003
          IHEZAP                                                         PUT00004
          IHEMTS                                                         PUT00005
          EJECT                                                          PUT00006
 IHEPUT   CSECT                                                          PUT00007
          USING IHEZAPE,RG                                               PUT00008
          USING MTSDCB,RH                                                PUT00009
          STM   LR,PR,OFLR(DR)          SAVE REGS.                       PUT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     DR,OFDR(0,DR)           RETURN                           PUT00073
          LM    LR,R0,OFLR(DR)                                           PUT00074
          LM    RB,PR,OFRB(DR)                                           PUT00075
          XR    BR,BR                   CLEAR THE RETURN CODE            PUT00076
          BR    LR                                                       PUT00077
          SPACE                                                          PUT00078
 SAVE     DC    18F'0'                                                   PUT00079
 FOUR     DC    XL4'00040000'           CONTROL BYTES FOR V-FORMAT       PUT00080
 PATCH    DC    20F'0'                                                   PUT00081
          END                                                            PUT00082
-FILE 361;   178 RECORDS:  
0RDWT     TITLE '                       READ/WRITE RTNS FOR PL/I'        RDWR0001
 *        DECLARATION FOR IHEREAD, IHERITE                               RDWR0002
 *                                                                       RDWR0003
 *        DECLARE IHEREAD ENTRY ( /*CHAR(*) VARYING*/,      /*BUFFER*/   RDWR0004
 *                               BIT (32) ,             /*MODIFIER*/     RDWR0005
 *                               DEC FIXED (9,3), /*LINE NUMBER */       RDWR0006
 *                               FILE   /* FILENAME */ )                 RDWR0007
 *                                                                       RDWR0008
          PRINT NOGEN                                                    RDWR0009
 IHEMTSIO CSECT                                                          RDWR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OFCF     EQU   72                      CURRENT FILE P.R. UPDATE CELL    RDWR0169
 MCFL     EQU   X'01'                   CURRENT FILE ACTIVE              RDWR0170
          SPACE                                                          RDWR0171
 ENDFIL   DC    X'B800'                 ERROR CODE FOR ENDFILE           RDWR0172
 TOOBIG   DC    X'9001'                 RECORD TOO LARGE                 RDWR0173
 UNSUPD   DC    X'0009'                 UNSUPPORTED FILE OPERATION       RDWR0174
 BADRD    DC    X'0000'                 ATTEMPT TO READ OUTPUT FILE      RDWR0175
 BADWT    DC    X'0001'                 ATTEMPT TO WRITE INPUT FILE      RDWR0176
          SPACE                                                          RDWR0177
          END                                                            RDWR0178
-FILE 362;    26 RECORDS:  
0USER     TITLE '                       USERID ROUTINE'                  USER0001
 USERID   CSECT                                                          USER0002
          IHELIB                                                         USER0003
 MYWORK   DSECT                                                          USER0004
 WORK     DS    F                                                        USER0005
          SPACE                                                          USER0006
 USERID   CSECT                                                          USER0007
          USING MYWORK,DR                                                USER0008
          USING USERID,WR                                                USER0009
          STM   LR,WR,OFLR(DR)                                           USER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ST    RA,WORK                                                  USER0017
          MVC   0(4,RC),WORK                                             USER0018
          LA    RC,4                                                     USER0019
          STH   RC,6(0,RB)                                               USER0020
          L     DR,OFDR(0,DR)                                            USER0021
          LM    LR,WR,OFLR(DR)                                           USER0022
          BR    LR                                                       USER0023
          SPACE                                                          USER0024
 VGUSRID  DC    V(GUSERID)                                               USER0025
          END                                                            USER0026
-FILE 363;    14 RECORDS:  
0CPUT     TITLE '                       CPU TIME OF A JOB'               CTIM0001
 CPUTIME  CSECT                                                          CTIM0002
          IHELIB                                                         CTIM0003
 CPUTIME  CSECT                                                          CTIM0004
          STM   LR,WR,OFLR(DR)                                           CTIM0005
          IHESDR LW0                                                     CTIM0006
          L     RC,0(0,RA)                                               CTIM0007
          SVC   38                      GET TIME                         CTIM0008
          AR    R0,RA                   ADD CPU TIME TGR                 CTIM0009
          ST    R0,0(0,RC)                                               CTIM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     DR,OFDR(DR)                                              CTIM0011
          LM    LR,WR,OFLR(DR)                                           CTIM0012
          BR    LR                                                       CTIM0013
          END                                                            CTIM0014
-FILE 364;    14 RECORDS:  
0TIME     TITLE '                       BINARY TIME OF 360/67'           BTIM0001
 BINTIME  CSECT                                                          BTIM0002
          IHELIB                                                         BTIM0003
 BINTIME  CSECT                                                          BTIM0004
          STM   LR,WR,OFLR(DR)                                           BTIM0005
          IHESDR LW0                                                     BTIM0006
          L     RC,0(0,RA)                                               BTIM0007
          SVC   38                                                       BTIM0008
          ST    RB,0(0,RC)                                               BTIM0009
          L     DR,OFLR(0,DR)                                            BTIM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LM    LR,WR,OFLR(DR)                                           BTIM0011
          BR    LR                                                       BTIM0012
          SPACE                                                          BTIM0013
          END                                                            BTIM0014
-FILE 365;    63 RECORDS:  
0INFO     TITLE '                       GDINFO FOR PL/I'                 DTYP0001
          PRINT NOGEN                                                    DTYP0002
 DEVTYPE  CSECT                                                          DTYP0003
          IHELIB                                                         DTYP0004
          IHEZAP                                                         DTYP0005
          IHEMTS                                                         DTYP0006
          PRINT GEN                                                      DTYP0007
 MYWORK   DSECT                                                          DTYP0008
          DS    9D                                                       DTYP0009
 NAME     DS    CL8                     SPRINT ETC.                      DTYP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          STH   RD,6(0,RB)              DONE                             DTYP0054
          L     DR,OFDR(0,DR)           RESTORE SAVE AREA PTR            DTYP0055
          LM    LR,WR,OFLR(DR)          CALLER'S REGS                    DTYP0056
          BR    LR                      RETURN                           DTYP0057
          SPACE                                                          DTYP0058
 MOVE     MVC   NAME(*-*),DFIL                                           DTYP0059
 VFREE    DC    V(FREESPAC)                                              DTYP0060
 VINFO    DC    V(GDINFO)                                                DTYP0061
          SPACE                                                          DTYP0062
          END                                                            DTYP0063
-FILE 366;   182 RECORDS:  
0 /*           ROUTINE TO PRINT ALL LABELS OF A TAPE                     SNIF0001
  */                                                                     SNIF0002
                                                                         SNIF0003
  CHKLABL: PROCEDURE OPTIONS(MAIN);                                      SNIF0004
                                                                         SNIF0005
          DECLARE                                                        SNIF0006
                                                                         SNIF0007
               DEVTYPE ENTRY(FILE) RETURNS (CHAR(4)),                    SNIF0008
               IHEREAD ENTRY (,BIT(32), DEC FIXED(9,3),FILE),            SNIF0009
               (CC,NOTRIM) BIT(32) INIT ((32)'0'B), /* MODIFIERS */      SNIF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          IF HDRSW THEN CALL IHEREAD('FSF',CC,JUNK,TAPE); /*SKIP DATA*/  SNIF0173
          HDRSW='0'B;                   /* TURN HEADER SW OFF */         SNIF0174
          GO TO LABEL_1;                                                 SNIF0175
                                                                         SNIF0176
  WHEW:   PUT FILE(SPRINT) SKIP(5) LIST ((10)'<*>','END OF TAPE',        SNIF0177
               (9)'<*>');                                                SNIF0178
                                                                         SNIF0179
  DONE:   PUT FILE(SPRINT) SKIP(2) LIST (' ');                           SNIF0180
          RETURN;                                                        SNIF0181
                                                  END CHKLABL;           SNIF0182
-FILE 367;    56 RECORDS:  
0%REW *IN*                                                               SCUP0001
 %REW *OUT*                                                              SCUP0002
 %INPUT *IN* 50                                                          SCUP0003
 %OUTPUT *OUT* 50                                                        SCUP0004
 %BEFORE SUPR1879                                                        SCUP0005
 SVCERRUP BAL   SVLKGR,POOLGV      GET RID OF UNNEEDED POOL ENTRY        SCUP0006
 %DELETE SUPR2116                                                        SCUP0007
          BNE   SVCERRUP                                                 SCUP0008
 %AFTER SUPR2336                                                         SCUP0009
          LR    GR1,GR0            POOL ENTRY ADDRESS                    SCUP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PFXP2    BXLE  GR1,GR2,NXTPAGE                                          SCUP0047
 %DELETE CONF0717                                                        SCUP0048
 CCUMAP   DC    X'01000000'   ONE BYTE PER CCU (1 IF ATTACHED)           SCUP0049
 %BEFORE FILEMARK                                                        SCUP0050
 %CLOSE *IN*                                                             SCUP0051
 %CLOSE *OUT*                                                            SCUP0052
 %REW *IN*                                                               SCUP0053
 %WTM *OUT*                                                              SCUP0054
 %REW *OUT*                                                              SCUP0055
 %END                                                                    SCUP0056
-FILE 368;   330 RECORDS:  
067TB     TITLE 'TABLES FOR MODEL 67'                                    NTBL0001
 *                                                                       NTBL0002
 *              THIS IS THE MODEL 50 TABLES                              NTBL0003
          SPACE 5                                                        NTBL0004
 *        THIS PROGRAM CONTAINS SPACE FOR THE TABLES SPECIFIED BY THE    NTBL0005
 *        'ENTRY' FIELDS BELOW.                                          NTBL0006
          SPACE 3                                                        NTBL0007
 *              VERSION OF 23 MAY 1966                                   NTBL0008
 *              REPLACES VERSION OF 1 APRIL 1966                         NTBL0009
 *                                                                       NTBL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0F                                                       NTBL0321
 MAXADD   DC    X'FFE00000'   BITS IN POSITIONS OUTSIDE VM SIZE          NTBL0322
 NUMDEV   DC    A((ENDDLS-DEVLST)/LDVLST)  TOTAL NUMBER OF DEVICES       NTBL0323
 JTBLLIM  DC    A(0,0,0)      FILLED IN BY INITIALIZATION                NTBL0324
          SPACE                                                          NTBL0325
          DS    0H                                                       NTBL0326
 TYPAD    DC    X'001F'       OPERATOR'S CONSOLE                         NTBL0327
 CONS     DC    X'001F'       ALTERNATE OPERATOR'S CONSOLE               NTBL0328
          SPACE 3                                                        NTBL0329
          END                                                            NTBL0330
-FILE 369;   305 RECORDS:  
0OPEN     21                                                             GMAC0001
 CLOSE    36                                                             GMAC0002
 ABEND    54                                                             GMAC0003
 GET      81                                                             GMAC0004
 PUT      92                                                             GMAC0005
 FREEPOOL 103                                                            GMAC0006
 NAMNGO   113                                                            GMAC0007
 LINK     150                                                            GMAC0008
 LOAD     155                                                            GMAC0009
 XCTL     160                                                            GMAC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       TR   *+30-&DIGITS.(&DIGITS),=C'0123456789ABCDEF'                  GMAC0296
     B   *+24                                                            GMAC0297
     DS  F                                                               GMAC0298
      DC    X'0000000000000000'                                          GMAC0299
       DS   8X                                                           GMAC0300
          AIF    (T'&LOC(1) NE 'N').CON1                                 GMAC0301
          MVC    0(&DIGITS,&LOC(1).),*-&DIGITS                           GMAC0302
          AGO    .END                                                    GMAC0303
 .CON1    MVC    &LOC.(&DIGITS),*-&DIGITS                                GMAC0304
 .END    MEND                                                            GMAC0305
-FILE 370;    36 RECORDS:  
0GETT     TITLE 'GET TIME ESTIMATE FOR GPSS - VERSION 2'                 GTIM0001
 GTIMEST  START 0                                                        GTIM0002
          ENTER 12,SA=SA                                                 GTIM0003
          CALL  GUINFO,(F86,TIME)                                        GTIM0004
          L     1,TIME                                                   GTIM0005
          LTR   1,1                                                      GTIM0006
          BZ    TRYGLOB                                                  GTIM0007
          CALL  GUINFO,(F96,TTN)                                         GTIM0008
          B     EXIT                                                     GTIM0009
 TRYGLOB  CALL  GUINFO,(F78,TIME)                                        GTIM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TTN      DS    F                                                        GTIM0027
 SA       DS    18A                                                      GTIM0028
          END                                                            GTIM0029
 ESD          GTIMEST       GUINFO                                 GTIM0030
 TXT          }0{H& & ،0{    {   ^   {0{	͓{{{GTIM0031
 TXT         0{     {<      D0{	͌0{o 0{-    {%      {0{*GTIM0032
 TXT         	͓ {{ {0{d    {      D0{	͓ {{! {D}}\}qGTIM0033
 TXT   y      }        +   -   ;                                GTIM0034
 RLD                 
          h          *  GTIM0035
 END                                                                    GTIM0036
-FILE 371;    35 RECORDS:  
0SVE      10                                                             BMAC0001
 RTRN     20                                                             BMAC0002
 PARA     28                                                             BMAC0003
 00000000                                                                BMAC0004
                                                                         BMAC0005
                                                                         BMAC0006
                                                                         BMAC0007
                                                                         BMAC0008
 00000000                                                                BMAC0009
          MACRO                                                          BMAC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BR    14                                                       BMAC0026
          MEND                                                           BMAC0027
          MACRO                                                          BMAC0028
 &NAME    PARA  &I,&C,&M,&L,&U                                           BMAC0029
 &NAME    DC    A(BUFF&I)                                                BMAC0030
          DC    A(COUNT&C)                                               BMAC0031
          DC    A(MODIF&M)                                               BMAC0032
          DC    A(LINE&L)                                                BMAC0033
          DC    A(UNIT&U)                                                BMAC0034
          MEND                                                           BMAC0035
-FILE 372;  2186 RECORDS:  
0**********************************************************************  BSDA0001
 *                                                                    *  BSDA0002
 *                                                                    *  BSDA0003
 *        MTS DEVICE SUPPORT ROUTINES FOR IBM 2780'S                  *  BSDA0004
 *                                                                    *  BSDA0005
 *                                                                    *  BSDA0006
 **********************************************************************  BSDA0007
          SPACE 3                                                        BSDA0008
          MACRO                                                          BSDA0009
          PFXD  &M,&N                                                    BSDA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BLKNDLOC DS    F                                                        BSDA2177
 BUF1     DS    64F                                                      BSDA2178
 CCSAVE   DS    6F                                                       BSDA2179
 OUTPAGES DS    F                                                        BSDA2180
 INPAGES  DS    F                                                        BSDA2181
 TEMP     DS    D                                                        BSDA2182
 SNSCCW   DS    (SNSCCWL/8)D                                             BSDA2183
 RTNLST   DS    (RTNLSTL/4)F                                             BSDA2184
 PSECTL   EQU   *-PSCT                                                   BSDA2185
          END                                                            BSDA2186
-FILE 373;  2324 RECORDS:  
0**********************************************************************  CSDA0001
 *                                                                    *  CSDA0002
 *                                                                    *  CSDA0003
 *        MTS DEVICE SUPPORT ROUTINES FOR IBM 2780'S                  *  CSDA0004
 *                                                                    *  CSDA0005
 *                                                                    *  CSDA0006
 **********************************************************************  CSDA0007
          SPACE 3                                                        CSDA0008
          MACRO                                                          CSDA0009
          PFXD  &M,&N                                                    CSDA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BUF1     DS    64F                                                      CSDA2315
 CCSAVE   DS    6F                                                       CSDA2316
 OUTPAGES DS    F                                                        CSDA2317
 INPAGES  DS    F                                                        CSDA2318
 TEMP     DS    D                                                        CSDA2319
 SNSCCW   DS    (SNSCCWL/8)D                                             CSDA2320
 RTNLST   DS    (RTNLSTL/4)F                                             CSDA2321
 CCCHAR   DS    C                                                        CSDA2322
 PSECTL   EQU   *-PSCT                                                   CSDA2323
          END                                                            CSDA2324
-FILE 374;   123 RECORDS:  
0%BEFORE  GTFR0023                                                       GFUP0001
          GBLB  &NOSLT                                                   GFUP0002
 &NOSLT   SETB  (1)                                                      GFUP0003
 &NOSLT   SETB  (0)                                                      GFUP0004
 %DELETE  GTFR0023                                                       GFUP0005
 %DELETE  GTFR0121                                                       GFUP0006
 %BEFORE  GTFR0132                                                       GFUP0007
          AIF   (&NOSLT).SLT1                                            GFUP0008
          SR    GR0,GR0       MAXIMUM COUNT                              GFUP0009
          LA    GR4,PBMXFR-PBDCT1   SET UP TO FIND PRIMARY BUFFER        GFUP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .SLT7E    ANOP                                                          GFUP0114
 %BEFORE  GTFR0670                                                       GFUP0115
          AIF   (&NOSLT).SLT8                                            GFUP0116
 SCSSLT   SLT   0,1,SBLINK-SBDCT    AN SLT FOR SCANSTOR TO EXECUTE       GFUP0117
          AGO   .SLT8E                                                   GFUP0118
 .SLT8    ANOP                                                           GFUP0119
 SCSSLT   NOPR  GR14               EXECUTED BY SCANSTOR                  GFUP0120
 .SLT8E   ANOP                                                           GFUP0121
 %DELETE  GTFR0670                                                       GFUP0122
 XXXXXXXXXX                                                              GFUP0123
-FILE 375;   848 RECORDS:  
0VTOC     TITLE    'VOLREL,VOLGET,VTOCS AND DSKOP SUBROUTINES'           TVTOC001
          SPACE                                                          TVTOC002
 ********************************************************************-** TVTOC003
 *                                                                     * TVTOC004
 *              SUBROUTINES VOLREL, VOLGET, VTOCS, DSKOP               * TVTOC005
 *                                                                     * TVTOC006
 *********************************************************************** TVTOC007
          SPACE                                                          TVTOC008
          START 0                                                        TVTOC009
          SPACE                                                          TVTOC010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          TVTOC839
 *********************************************************************** TVTOC840
 *                                                                     * TVTOC841
 *                   DEFINE A SAFE PATCHING AREA                       * TVTOC842
 *                                                                     * TVTOC843
          DS    4F                                                     * TVTOC844
 *                                                                     * TVTOC845
 *********************************************************************** TVTOC846
          SPACE                                                          TVTOC847
          END                                                            TVTOC848
-FILE 376;    69 RECORDS:  
0$RUN SCARDS=OPER SERCOM=OPER SPRINT=OPER                                        
 ESD          RESTR         TPRDUC         GETD                   RSTR0001
 ESD          FREEFD         DESTRY         CREATE                 RSTR0002
 ESD          QQSVW          CLOSE          GETSPACE               RSTR0003
 ESD          SERCOM         GETFD          FREED                  RSTR0004
 ESD          WRITE          SCARDS         ERROR                  RSTR0005
 ESD          FREESPAC       SYSTEM                                 RSTR0006
 TXT          }  Ó0Q	& &J 1q}ؓ0П{*          RSTR0007
 TXT                  WHERE IS THE RESTORE TAPE 	 kC0{RSTR0008
 TXT         0F &GYH0F<	Č{D0П{      y   u        RSTR0009
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD                  q   < 	  &          RSTR0059
 RLD              *   Q   ڟ   \   U   Y   څRSTR0060
 RLD              0   4   8                                RSTR0061
  REP  000247  01,10              CREATE SMALLER FILES                           
  REP  00024F  01,10              CREATE SMALLER FILES                           
  REP  00023A  01,D705C73EC73E      ALLOW FILE TO BE CREATED ON ANY DISK PACK    
  REP  000638  01,4700,0000 assembler error                                      
 END                                                                   RSTR0062
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 377;    68 RECORDS:  
0ACCDCT   DS    AL1(ENDREC-ACCDCT-2)    COUNT TO NEXT COUNT              AFMT0001
 FLAGS    DS    XL3'0'             FLAGS:  0-PRIVILEDGED, 2-IN USE,     1AFMT0002
                                   3-IGNORE TERMINAL MAXIMUM, 4-LIBRARY 2AFMT0003
                                   FILE PRIVILEGE, 5-NO CHANGE           AFMT0004
 ACCUAN   DS    F'0'               UNIVERSITY ACCOUNT NUMBER             AFMT0005
 ACCPN    DS    CL4                PROJECT NUMBER                        AFMT0006
 ACCMDT   DS    H'0'               MAXIMUM FILE (PAGES)                  AFMT0007
 ACCMFUB  DS    H'0'               MAXIMUM BULK FILE (PAGES)             AFMT0008
 ACCMTM   DS    F'0'               MAXIMUM TERMINAL (SEC*1000)           AFMT0009
 ACCM$    DS    F'0'               MAXIMUM CHARGE (DOLLARS*10000)        AFMT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                   *100000)                              AFMT0059
 ACCRPLT  DS    H                  PLOTTING RATE (DOLLARS/SEC*100000)    AFMT0060
 ACCPTR   DS    F                                                        AFMT0061
          DS    AL1(ENDWRITE-ENDREC-1)  COUNT TO NEXT COUNT              AFMT0062
 ENDREC   EQU   *                  END OF FIXED PORTION OF RECORD        AFMT0063
 ACCPWFLG DS    C'P'               PASSWORD FLAG                         AFMT0064
 ACCPWLEN DS    X                  PASSWORD LENGTH                       AFMT0065
 ACCPW    DS    CL6                PASSWORD                              AFMT0066
          DS    X'FF'                                                    AFMT0067
 ENDWRITE EQU   *                  END OF PHYSICAL RECORD                AFMT0068
-FILE 378;    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 379;     5 RECORDS:  
0MAXFLAGS DS    XL4                FLAGS:  3-IGNORE TERMINAL MAXIMUM     PFMT0001
 UAN      DS    2CL4               UNIVERSITY ACCOUNT NUMBER             PFMT0002
 MAXMDT   DS    F                  MAXIMUM FILE (PAGES)                  PFMT0003
 MAXMTM   DS    F                  MAXIMUM TERMINAL (MINUTES)            PFMT0004
 MAXM$    DS    F                  MAXIMUM CHARGE (DOLLARS*10000)        PFMT0005
-FILE 380;   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 381;   450 RECORDS:  
0APRT     TITLE 'MTS ACCOUNTING RECORD PRINT PROGRAM--17 OCT 68'         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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** APRT0441
 *                                                                     * APRT0442
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * APRT0443
 *                                                                     * APRT0444
 *********************************************************************** APRT0445
          SPACE 5                                                        APRT0446
 RECORD   DSECT                                                          APRT0447
          COPY  ACCFORMAT                                                APRT0448
          ORG   RECORD+255                                               APRT0449
          END                                                            APRT0450
-FILE 382;    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 383;   195 RECORDS:  
0AINT     TITLE 'MTS ACCOUNTING FILE INITIALIZATION PROGRAM--18 OCT 68'  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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * AINT0186
 *        ACCOUNTING RECORD STORAGE                                    * AINT0187
 *                                                                     * AINT0188
 *********************************************************************** AINT0189
          SPACE 5                                                        AINT0190
 RECORD   DS    0F                                                       AINT0191
          COPY  ACCFORMAT                                                AINT0192
          ORG   RECORD+255                                               AINT0193
          SPACE 5                                                        AINT0194
          END                                                            AINT0195
-FILE 384;   233 RECORDS:  
0STAT     TITLE 'ACCOUNTING STATUS FOR MTS USER--18 OCT 68'              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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * STAT0224
 *        INPUT AREA FOR ACCOUNTING RECORD                             * STAT0225
 *                                                                     * STAT0226
 *********************************************************************** STAT0227
          SPACE 5                                                        STAT0228
 RECORD   DS    0F                                                       STAT0229
          COPY  ACCFORMAT                                                STAT0230
          ORG   RECORD+255                                               STAT0231
          EJECT                                                          STAT0232
          END                                                            STAT0233
-FILE 385;    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 386;  1547 RECORDS:  
0AMAT     TITLE 'MTS ACCOUNTING MAINTENANCE PROGRAM--31 OCT 68'          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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                TUV',X'FF',10X'0',X'FFFFFFFF00FF',10X'0'                 AMAT1538
 BLKORD2  EQU   *                                                        AMAT1539
 BLKORD3  EQU   *                                                        AMAT1540
 BLKORD1  DC    193X'0',AL1(11,12,13,14,15,16,17,18),8X'0',AL1(19,20,21,1AMAT1541
                22,23,0,24,25,26),8X'0',AL1(27,28,29,30,31,32,33,34),6X'2AMAT1542
                0',AL1(1,2,3,4,5,6,7,8,9,10),6X'0'                       AMAT1543
 BLKORD4  DC    201X'0',AL1(4),7X'0',AL1(5,1,2,3,4,0,5,0,1),8X'0',AL1(2,1AMAT1544
                3,4,5),10X'0',AL1(5,5,5,5,0,5),10X'0'                    AMAT1545
          SPACE 5                                                        AMAT1546
          END                                                            AMAT1547
-FILE 387;   436 RECORDS:  
0AIO      TITLE 'MTS ACCOUNTING RECORD INPUT/OUTPUT PROGRAM--20 OCT 68'  AIO00001
 *********************************************************************** AIO00002
 *                                                                     * AIO00003
 *        ON ENTRY TO ACCREAD AND ACCWRITE, GR1 POINTS TO A FOUR WORD  * AIO00004
 *        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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RDNR14   DS    A                                                        AIO00427
 LEN      DS    H                                                        AIO00428
 AUXFLNAM DC    CL16'$ACCOUNTING'                                        AIO00429
 BADAUXFL DC    C' *** FILE                  IS NOT AVAILABLE'           AIO00430
 MISRECRD DC    C' ***      IS NOT IN                 '                  AIO00431
 NOFILNAM DC    C' ***                  IS NOT AN AUXILIARY FILE'        AIO00432
          SPACE 5                                                        AIO00433
          LTORG                                                          AIO00434
          SPACE 5                                                        AIO00435
          END                                                            AIO00436
-FILE 388;  1155 RECORDS:  
0AMXM     TITLE 'MTS USERS'' ACCOUNTING MAXIMUM MAINTENANCE PROGRAM--23 1AMXM0001
                OCT 68'                                                  AMXM0002
          MACRO                                                          AMXM0003
 &NAME    ACUM  &MAX,&CUM,&DIV,&LEN                                      AMXM0004
          LCLA  &RND                                                     AMXM0005
 &NAME    L&LEN R9,ACC&MAX         MAXIMUM                               AMXM0006
          C&LEN R9,ACC&CUM                                               AMXM0007
          BNL   S&SYSNDX           CUMULATIVE IS LESS THAN MAXIMUM       AMXM0008
          L&LEN R9,ACC&CUM         CUMULATIVE                            AMXM0009
          AIF   ('&DIV' NE '').DIVIDE                                    AMXM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 5                                                        AMXM1146
 KEYWDADR DC    A(FILE)                                                  AMXM1147
          DC    A(CHARGE)                                                AMXM1148
          DC    A(TERMINAL)                                              AMXM1149
          DC    A(TERMHRS)                                               AMXM1150
          DC    A(NOLIST)                                                AMXM1151
          DC    A(NOCHANGE)                                              AMXM1152
          EJECT                                                          AMXM1153
          LTORG                                                          AMXM1154
          END                                                            AMXM1155
-FILE 389;    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 390;   217 RECORDS:  
0ASTR     TITLE 'MTS ACCOUNTING RECORD STORAGE SPACE UPDATE AND LOCK OFF1ASTR0001
                 PROGRAM--18 OCT 68'                                     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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                     * ASTR0208
 *        ACCOUNTING RECORD STORAGE                                    * ASTR0209
 *                                                                     * ASTR0210
 *********************************************************************** ASTR0211
          SPACE 5                                                        ASTR0212
 RECORD   DS    0F                                                       ASTR0213
          COPY  ACCFORMAT                                                ASTR0214
          ORG   RECORD+255                                               ASTR0215
          SPACE 5                                                        ASTR0216
          END                                                            ASTR0217
-FILE 391;   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 392;   178 RECORDS:  
0AUPR     TITLE 'MTS USERS'' ACCOUNTING RECORD PRINT PROGRAM--20 OCT 68' 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** AUPR0169
 *                                                                     * AUPR0170
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * AUPR0171
 *                                                                     * AUPR0172
 *********************************************************************** AUPR0173
          SPACE 5                                                        AUPR0174
 RECORD   DSECT                                                          AUPR0175
          COPY  ACCFORMAT                                                AUPR0176
          SPACE 5                                                        AUPR0177
          END                                                            AUPR0178
-FILE 393;   933 RECORDS:  
0APMT     TITLE 'MTS PROJECT ACCOUNTING MAINTENANCE PROGRAM--23 OCT 68'  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                                               APMT0924
          SPACE 5                                                        APMT0925
          DS    0F                                                       APMT0926
 MASK     DS    CL255                                                    APMT0927
 MDISP    EQU   MASK-RECORD                                              APMT0928
          SPACE 5                                                        APMT0929
          DS    0F                                                       APMT0930
 DEFAULT  DC    F'0',CL8' ',3F'0'                                        APMT0931
          EJECT                                                          APMT0932
          END                                                            APMT0933
-FILE 394;    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 395;   306 RECORDS:  
0APPR     TITLE 'MTS PROJECT ACCOUNTING RECORD PRINT PROGRAM--13 JUL 68' 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *********************************************************************** APPR0297
 *                                                                     * APPR0298
 *        DUMMY SECTION FOR ACCOUNTING RECORD                          * APPR0299
 *                                                                     * APPR0300
 *********************************************************************** APPR0301
          SPACE 5                                                        APPR0302
 RECORD   DSECT                                                          APPR0303
          COPY  ACCPROJFMT                                               APPR0304
          ORG   RECORD+255                                               APPR0305
          END                                                            APPR0306
-FILE 396;    97 RECORDS:  
0APLS     TITLE 'MTS PROJECT ACCOUNTING LISTING PROGRAM--15 JUL 68'      APLS0001
 *********************************************************************** APLS0002
 *                                                                     * APLS0003
 *        ACCLIST                                                      * APLS0004
 *                                                                     * APLS0005
 *        LISTS THE MTS PROJECT ACCOUNTING FILE.                       * APLS0006
 *                                                                     * APLS0007
 *********************************************************************** APLS0008
          SPACE 5                                                        APLS0009
 ACCLIST  START                                                          APLS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SIGNONID DC    X'80000000'                                              APLS0088
 COUNT    DS    H                                                        APLS0089
 H23      DC    H'23'                                                    APLS0090
 H24      DC    H'24'                                                    APLS0091
 BLANKS   DC    CL10' '                                                  APLS0092
 FILENAME DC    C'*ACCUSERMAINT '                                        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 397;   110 RECORDS:  
0APDS     TITLE 'MTS PROJECT ACCOUNTING RECORD DISPLAY PROGRAM--15 JUL 61APDS0001
                8'                                                       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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SIGNONID DS    F                                                        APDS0101
 COUNT    DS    H                                                        APDS0102
 H24      DC    H'24'                                                    APDS0103
 H28      DC    H'28'                                                    APDS0104
 MOVE     MVC   SIGNONID(0),RECORD                                       APDS0105
 BLANK    DC    CL10' '                                                  APDS0106
 FILENAME DC    C'*ACCUSERMAINT '                                        APDS0107
 NOFILMSG DC    C' ERROR IN OBTAINING FILE'                              APDS0108
 NORECMSG DC    C' ***      IS NOT IN THE FILE'                          APDS0109
          END                                                            APDS0110
-FILE 398;    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 399;  1318 RECORDS:  
0$RUN *MOUNT PAR=POOL ON 9TP *POOL* '  RING IN '                                 
 $RUN *MOUNT PAR=S151 ON 9TP *ASMG* 'RING OUT -- ASMG SOURCE '                   
 $RUN *UPDATE                                                                    
 %REW *POOL*                                                                     
 %REW *ASMG*                                                                     
 %OUTPUT *POOL* 40                                                               
 %INPUT *ASMG* 40                  FD                                    3       
 %DELETE '00040020'                                                              
 %BEFORE FILEMARK                                                                
 %CLOSE *ASMG*                                                                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %REW *POOL*                                                                     
 %END                                                                            
 $RUN *DISMOUNT PAR=*ASMG*                                                       
 $EMPTY NEWASMG                                                                  
 $CRE -SYSUT1 SIZE=2000                                                          
 $CRE -SYSUT2 SIZE=2000                                                          
 $CRE -SYSUT3 SIZE=2000                                                          
 $RUN *MOUNT PAR=S111 ON 9TP *LIST* 'RING IN'                                    
 $RUN *ASMG SCARDS=*POOL* SPRINT=*LIST* 0=*SYSMAC 2=ASMGMACROS SPUNCH=NEWASMG PA-
 R=FX,B,RD,SIZE=120,IBLK=40,OBLK=50                                              
-FILE 400;  1597 RECORDS:  
0COMMENCE 10                                                                     
 DCBOUT   41                                                                     
 DEFCHAR  52                                                                     
 ENTRYOUT 161                                                                    
 FDIMEN   172                                                                    
 FINISH   553                                                                    
 INST     561                                                                    
 INSTSET  651                                                                    
 MESSAGE  1212                                                                   
 PRINTOUT 1256                                                                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BALR  14,15                             LINK TO GET ROUTINE            
          MEXIT                                                                  
 .E1      IHBERMAC 06                                                            
          MEND                                                                   
  MACRO                                                                          
 &LABEL QCALL &Q,&L                                                              
 &LABEL L 15,ADLIST1                                                             
  L 15,168+&Q.(0,15)                                                             
  CALL (15),&L                                                                   
  MEND                                                                           
-FILE 401;   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 402;  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 403;   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 404;   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 405;   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 406;  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 407;  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 408;  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 409;  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 410;  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 411;  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 412;  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 413;  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 414;   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 415;   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 416;    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 417;   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 418;   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 419;   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 420;  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 421;   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 422;   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 423;  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 424;   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 425;   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 426;  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 427;   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 428;   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 429;   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 430;   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 431;   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 432;   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 433;   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 434;   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 435;   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 436;   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 437;   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 438;   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 439;   423 RECORDS:  
0$RUN *MOUNT  PAR=POOL ON 9TP *POOL* 'RING IN'                                   
 $RUN *MOUNT PAR=S472 ON 9TP *WATFOR* 'RING OUT'                                 
 $EMPTY CDEFN                                                                    
 $EMPTY COMMR                                                                    
 $EMPTY STARTA                                                                   
 $RUN *UPDATE                                                                    
 %REW     *POOL*                                                                 
 %REW     *WATFOR*                                                               
 %OUTPUT  CDEFN 1                                                                
 %INPUT   *WATFOR* 40              CDEFN                                  1      
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                               UAT 0015
 TXT                     &                              &          UAT 0016
 TXT  Q                          d                              &  UAT 0017
 TXT                                                                UAT 0018
 RLD                              -      {  \  UAT 0019
 RLD                          d  u  D  U   UAT 0020
 RLD              u 	  {   U                           UAT 0021
 END                                                                    UAT 0022
  LCS            LCSYMBOL                                                        
  LDT            XTART                                                           
-FILE 440;  1312 RECORDS:  
0BEGTRACE 1002                                                                   
 BER      1013                                                                   
 BHR      1019                                                                   
 BLR      1025                                                                   
 BNER     1031                                                                   
 BNHR     1037                                                                   
 BNLR     1043                                                                   
 BNOR     1049                                                                   
 BNPR     1055                                                                   
 BOR      1061                                                                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                                                 
                                                                                 
          MACRO                                                                  
 &NAME    XROUTS    &NUM                                                         
 &NAME    MVC       XLAS&NUM+2(2),2(R14)                                         
 XLAS&NUM LA        R15,*-*(R12)                                                 
          CLC       XUNDEF(&NUM),0(R15)                                          
          BNER      R14                                                          
          B         XERRUV0                                                      
          MEND                                                                   
-FILE 441;   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 442;   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 443;  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 444;   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 445;  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 446;  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 447;  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 448;  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 449;   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 450;  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 451;  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 452;  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 453;   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 454;   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 455;  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 456;   344 RECORDS:  
0FIOS     TITLE 'MTS WATFOR VERSION OF MTS FORTRAN'S IHCFIOSH'           FIOC0001
          COPY  OPTIONS                                                  FIOC0002
 IHCFIOSH CSECT                                                          FIOC0003
          ENTRY FIOCS#                                                   FIOC0004
          EXTRN IBCOM#                                                   FIOC0005
          EXTRN IHCUATBL                                                 FIOC0006
 *              ***** REGISTER ASSIGNMENTS *****                         FIOC0007
 R        EQU   0                                                        FIOC0008
 L        EQU   1                                                        FIOC0009
 GRX      EQU   2                                                        FIOC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 UATEPTR  DC    F'0'            PTR TO ACTIVE UATE                       FIOC0335
 BUFLEN   DC    H'32'           LENGTH OF BUFFER IN DOUBLE WORDS         FIOC0336
 LENGTH   DC    H'0'                                                     FIOC0337
          LTORG                                                          FIOC0338
          DS    0D                                                       FIOC0339
 SAVE     DC    16F'0'                                                   FIOC0340
 DWBLANK DC     CL8'        '                                            FIOC0341
 SAVEAREA DS    9D                                                       FIOC0342
 BUFFER   DS    32D                                                      FIOC0343
          END                                                            FIOC0344
-FILE 457;   108 RECORDS:  
0*******************                                                     OPT00001
 *        FOLLOWING ARE THE DECLARATIONS FOR THE INST PARAMETERS         OPT00002
 *        THESE SHOULD NOT BE CHANGED                                    OPT00003
 *******************                                                     OPT00004
          GBLA      &FTABC(255)                                          OPT00005
          GBLA      &ARGA                                                OPT00006
          GBLA      &PARMCOL                                             OPT00007
          GBLA      &READ                                                OPT00008
          GBLA      &PRINT                                               OPT00009
          GBLA      &PUNCH                                               OPT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .SET2    ANOP                                                           OPT00099
 &VCHECK1 SETA      0                                                    OPT00100
 &VCHECK2 SETA      0                                                    OPT00101
 .VEND    ANOP                                                           OPT00102
          AIF       ('&CHRMODE' EQ 'BCDIC').SET4                         OPT00103
 &VCHECK3 SETA      6                                                    OPT00104
          AGO       .VEND1                                               OPT00105
 .SET4    ANOP                                                           OPT00106
 &VCHECK3 SETA      0                                                    OPT00107
 .VEND1   ANOP                                                           OPT00108
-FILE 458;   123 RECORDS:  
0$RUN *MOUNT PAR=S415 ON 9TP *LISP* 'RING OUT'                                   
 $RUN *MOUNT PAR=POOL ON 9TP *POOL* 'RING IN'                                    
 $RUN *UPDATE                                                                    
 %REW     *LISP*                                                                 
 %REW     *POOL*                                                                 
 %OUT     *POOL* 20                                                              
 %INP     *LISP* 20                                                              
 %AFTER   '00008500'                                                             
          MACRO                                                                  
          TTIMER                                                                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEF     FILEMARK                                                               
 %CLOSE   *LISP*                                                                 
 %CLO     *POOL*                                                                 
 %WTM     *POOL* 25                                                              
 %REW     *POOL*                                                                 
 %END                                                                            
 $RUN *DISMOUNT PAR=*LISP*                                                       
 $CRE LISP                                                                       
 $EMP LISP                                                                       
 $RUN *ASMG SCARDS=*POOL* SPUNCH=LISP 0=*SYSMAC PAR=SIZE=100,FX,T,IBLK=20        
-FILE 459;  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 460;   280 RECORDS:  
0$RUN *MOUNT PAR=S469 ON 9TP *PL360* 'PL360 SOURCE - RING OUT'                   
 $RUN *MOUNT PAR=POOL ON 9TP *POOL* '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*                                                                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          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 461;  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 462;   201 RECORDS:  
0         ICTL    1,71,18                                                SUP00001
          SPACE                                                          SUP00002
 *                  SYSTEM LINKAGE ROUTINES                            * SUP00003
 *                 PL360 COMPILER  TO  OS/360                          * SUP00004
          SPACE                                                          SUP00005
          MACRO                                                          SUP00006
 &EP      ENTER                                                          SUP00007
          ENTRY   &EP                                                    SUP00008
          USING   &EP,15                                                 SUP00009
 &EP      STM     12,2,SAVE             SAVE LINKAGE AND WORK REGISTERS  SUP00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GOTLIST  DS      2F                                                     SUP00192
 SAVE     DS      7F                    SAVE AREA                        SUP00193
 WORK     DS      F                                                      SUP00194
 COMPID   DS      CL16                  COMPILATION ID (TIME AND DATE)   SUP00195
 EOF      DS      X                     SYSIN END-OF-FILE                SUP00196
 LISTSW   DS      X                     LISTING                          SUP00197
 LOADSW   DS      X                     OBJECT MODULE (SYSGO)            SUP00198
 DECKSW   DS      X                     OBJECT MODULE (SYSPUNCH)         SUP00199
 SWITCH   DS      X                                                      SUP00200
          END                                                            SUP00201
-FILE 463;   361 RECORDS:  
0$RUN *MOUNT PAR=S417 ON 9TP *SDS* 'SDS SOURCE - RING OUT'                       
 $RUN *MOUNT PAR=POOL ON 9TP *POOL* 'RING IN'                                    
 $RUN *UPDATE                                                                    
 %REW     *POOL*                                                                 
 %REW     *SDS*                                                                  
 %OUT     *POOL* 40                                                              
 %INP     *SDS* 40                 EDITOR                                1       
 %AFT     EDIT0032                                                               
          MACRO                                                                  
 &LABEL   READ  &EOFEXIT                                                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEF     FILEMARK                                                               
 %CLO     *SDS*                                                                  
 %CLO     *POOL*                                                                 
 %WTM     *POOL* 25                                                              
 %REW     *POOL*                                                                 
 %END                                                                            
 $RUN *DISMOUNT PAR=*SDS*                                                        
 $EMP NEWSDS                                                                     
 $RUN *ASMG SCARDS=*POOL* SPUNCH=NEWSDS 0=*SYSMAC 2=SDSMACROS PAR=SIZE=120,IBLK=-
 150,T,FX,RD,B                                                                   
-FILE 464;   346 RECORDS:  
0COMMENT  100                                                                    
 FETCH    105                                                                    
 GTSPC    110                                                                    
 TERM     115                                                                    
 XPAND    120                                                                    
 LOAD     140                                                                    
 SMAP     145                                                                    
 WR       150                                                                    
 NBC      155                                                                    
 SCTBL    160                                                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          GBLC  &SAVLOC                                                          
 &LABEL   L     LINK,&SAVLOC                                                     
          L     BASE2,&SAVLOC+4                                                  
          AIF   (T'&MODE EQ 'O').B2                                              
          AIF   ('&MODE'(1,1) EQ 'F').B4                                         
 .B2      B     4(0,LINK)                                                        
 &SAVLOC  DS    2A                                                               
          MEXIT                                                                  
 .B4      BR    LINK                                                             
          MEND                                                                   
-FILE 465;   642 RECORDS:  
0EDTR     TITLE 'EDITOR'                                                 EDIT0001
 *                                                                       EDIT0002
 *        **********************************************************     EDIT0003
 *        *                                                        *     EDIT0004
 *        *     SDS EDITOR ROUTINE                                 *     EDIT0005
 *        *                                                        *     EDIT0006
 *        **********************************************************     EDIT0007
 *                                                                       EDIT0008
 *                                                                       EDIT0009
 *                                                                       EDIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MSING    COMMENT '-***MISSING SYM OR ESD CARDS.'                        EDIT0633
          B     TDEXIT                                                   EDIT0634
 MSEND    COMMENT '-***MISSING END CARD IN OBJECT FILE.'                 EDIT0635
          B     TDEXIT                                                   EDIT0636
 *                                                                       EDIT0637
 PUNT     COMMENT '***SYSTEM ERROR.'                                     EDIT0638
          ERROR                                                          EDIT0639
 *                                                                       EDIT0640
 INPUT    DS    256C               INPUT REGION                          EDIT0641
          END                                                            EDIT0642
-FILE 466;  2520 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       SDS02511
          PSTE  FR0,FREGS,8,11                                           SDS02512
          PSTE  FR2,FREGS+2*4,8,11                                       SDS02513
          PSTE  FR4,FREGS+4*4,8,11                                       SDS02514
          PSTE  FR6,FREGS+6*4,8,11                                       SDS02515
          PSTE  GRS,REGISTRS,4,12                                        SDS02516
          PSTE  FRS,FREGS,8,13                                           SDS02517
          PSTE  PSW,PSW,8,14                                             SDS02518
          DC    X'00000000'                                              SDS02519
          END                                                            SDS02520
-FILE 467;  1636 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                                    FCN01627
 LOADADD  DS    XL3                LOADED ADDRESS                        FCN01628
 RELOC    DS    XL3                RELOCATION FACTOR                     FCN01629
 LCSECT   DS    XL3                LENGTH FOR THIS CSECT                 FCN01630
 CSNAME   DS    CL8                CSECT NAME                            FCN01631
 SKEY     DS    X                  MAP FLAG BYTE                         FCN01632
 STPTR    DS    XL3                PTR TO START OF CSECT IN SYMBOL TABLE FCN01633
 TOBECON  DS    AL4                PTR TO LAST SDS LINK FOR A SECTION    FCN01634
 LMAP     EQU   *-MAPENTRY                                               FCN01635
          END                                                            FCN01636
-FILE 468;  1758 RECORDS:  
0IOC      TITLE 'I/O CONVERSION'                                                 
 *        INOUT / OUTPUT CONTROL PACKAGE.                                        
 *        THIS SUB-LIBRARY CONATINS ALL THE SDS                                  
 *        INPUT / OUTPUT CONVERSION ROUTINES.                                    
 *                                                                               
 IOC      CSECT                                                                  
          PRINT NOGEN                                                            
          USING *,BASE             COVER IOC                                     
          USING LINKMOD,CHAIN      COVER FOR SDSDSECT                            
          ENTRY FIXED                                                            
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IE       EQU   C'E'                                                             
 IPLUS    EQU   C'+'                                                             
 IMINUS   EQU   C'-'                                                             
 ICOMMA   EQU   C','                                                             
 IQUOTE   EQU   C''''                                                            
 IPRIOD   EQU   C'.'                                                             
 IZERO    EQU   C'0'                                                             
 I9       EQU   C'9'                                                             
 TXDEXP   EQU   0                                                                
          END                                                                    
-FILE 469;   396 RECORDS:  
0         EJECT                                                                  
 *        **********************************************************             
 *        *                                                        *             
 *        *     COMMUNICATION AREA                                 *             
 *        *                                                        *             
 *        **********************************************************             
 *                                                                               
          DS    0D                                                               
 SAVEAREA DS    19F                PRIMARY SAVE AREA                             
 SAVEARE2 DS    19F                SECONDARY SAVE AREA                           
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CLINK    DS    A                  FORWARD POINTER TO CONTINUED ENTRY            
          DC    X'E0'              TERMINATOR CODE                               
 PLINK    DS    AL4                PTR TO CONTINUATION FOR PREVIOUS SECT         
 LCSE     EQU   *-SDSLINK                                                        
 *                                                                               
 ATDS     DSECT                    DSECT FOR AT-TABLE ENTRY                      
 ATADRS   DS    A                  LOADED ADDRESS OF BREAKPOINT                  
 CARAD    DS    A                  POINTER TO COMMAND IN COMMAND TABLE           
 LATENT   EQU   *-ATDS             LENGTH FOR AT-TABLE ENTRY                     
          EJECT                                                                  
-FILE 470;  2429 RECORDS:  
0MAIN     TITLE 'MACRO DEFINITIONS'                                              
 *                                                                               
          PRINT NOGEN                                                            
 *                                                                               
          MACRO                    SUBROUTINE ENTRY                              
 &L       SAVE  &X                                                               
 &L       STM   RE,&X,12(RD)                                                     
          LA    RF,4*(&X+3)+12(RD)                                               
          ST    RF,8(RD)                                                         
          ST    RD,4(RF)                                                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *              SHORT-FORM RLD                                                   
 *                                                                               
 *                 0 1 2 3 4 5 6 7 8 9 A B C D E F                               
 FORMA    DC    X'4F1D1E1F2021222324191A1B1C003738' 0                            
          DC    X'393A0041424344004B4C4D4E00555657' 1                            
          DC    X'58005F60616200696A6B6C0073747576' 2                            
          DC    X'007D7E7F80008788898A009192939400' 3                            
          DC    X'9A9B9C9D00A5A6A7A800000000000000' 4                            
 *                                                                               
          END                                                                    
-FILE 471;  3330 RECORDS:  
0       TITLE   PDP-8 RAMP CONTROL SYSTEM (VERSION 55)                           
 ************************************************************************        
 *                                                                      *        
 *              PDP-8 RAMP CONTROL SYSTEM                               *        
 *              BASIC SYSTEM NUCLEUS                                    *        
 *              SYSTEM PARAMETERS AND OPERATOR DEFINITIONS              *        
 *                                                                      *        
 ************************************************************************        
        SPACE   2                                                                
 *              ASSEMBLY PARAMETERS                                              
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RMPEND EQU     *                  END OF RAMP                                   
        EJECT                                                                    
 ************************************************************************        
 *                                                                      *        
 *              PDP-8 RAMP CONTROL SYSTEM                               *        
 *              SYMBOL REFERENCE DICTIONARY                             *        
 *                                                                      *        
 ************************************************************************        
        SPACE   2                                                                
        END     TSK6                                                             
-FILE 472;  9747 RECORDS:  
0       TITLE   PDP-8 RAMP CONTROL SYSTEM (VERSION 54)                           
 ************************************************************************        
 *                                                                      *        
 *              PDP-8 RAMP CONTROL SYSTEM                               *        
 *              SYSTEM PARAMETERS AND OPERATOR DEFINITIONS              *        
 *                                                                      *        
 ************************************************************************        
        SPACE   2                                                                
 *              ASSEMBLY PARAMETERS                                              
 *                                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RMPEND EQU     *                  END OF RAMP                                   
        EJECT                                                                    
 ************************************************************************        
 *                                                                      *        
 *              PDP-8 RAMP CONTROL SYSTEM                               *        
 *              SYMBOL REFERENCES                                       *        
 *                                                                      *        
 ************************************************************************        
        SPACE   2                                                                
        END     0                                                                
