1FILE   1;  4266 RECORDS:  
0%DELETE '00012000'                                                              
 &NAME    $GETBUF &NONE,&DUMMY,&TYPE=T                             UM3.0 00012000
 %DELETE '00078000'                                                              
 &NAME    $FREUNIT                 &LOC                            UM3.0 00078000
 %DELETE '00082500' '00084000'                                                   
          BAL   LINK,$FREUNIT                                      UM3.0 00084000
 %DELETE '00100000'                                                              
 &NAME    $TRACK &NONE,&DUMMY                                      UM3.0 00100000
          AIF   ('&NONE' NE '$WAIT').A                             UM3.0 00100400
 &NAME    BAL   LINK,$TRACK         LINK TO TRACK SUBROUTINE       UM3.0 00100800
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          $GENDCT                  LNE,&TEMP,$TPDCB,SDA,WORKWDS=4  UM3.0 20300650
 .SKIP14  ANOP                                                     UM3.0 20300700
 *                                                                 UM3.0 20300750
 *        REMOTE DEVICE CONTROL TABLES                             UM3.0 20300800
 *                                                                 UM3.0 20300850
 $RMTDCT  $GENDCT                  RJR,&NUMRJE,,(RM,.RD1),WORKWDS=2      20300900
          $GENDCT                  RPR,&NUMRJE,,(RM,.PR1),WORKWDS=2      20300950
          AIF   (&NUMTPPU EQ 0).NORMTPU                            UM3.0 20301000
          $GENDCT                  RPU,&NUMRJE,,(RM,.PU1),WORKWDS=2      20301050
 .NORMTPU ANOP                                                     UM3.0 20301100
-FILE   2; 12402 RECORDS:  
0HASP     TITLE 'S P O O L  '                                      UM1.0 00000000
 *                                                                       00002000
 ***** $GETBUF  *****          GET A BUFFER                              00004000
 *                                                                       00006000
 *                                                                       00008000
          MACRO                                                          00010000
 &NAME    $GETBUF &NONE,&DUMMY,&TYPE=T                             UM3.0 00012000
 &NAME    BAL   LINK,$GE&TYPE.BUF   LINK TO ROUTINE                V02.0 00014000
          $NPEXIT &NONE             SET UP NON-PROCESS EXIT              00016000
          MEND                                                           00018000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                *256+$L5/10*16+$L6                                       20348000
          SPACE 3                                                  UM1.0 20348100
          TRACES                                                   UM1.0 20348200
          TITLE 'M T S  --  DSECTS ETC.'                                 20348300
          COPY  MTS.EQU2                                                 20348400
 DUMMY    DSECT                                                          20348500
          COPY  MTS.CONTAB                                               20348600
          SPACE 3                                                  UM1.0 20348700
          COPY  MTS.DSECT                                          UM1.0 20348800
          END                                                            20350000
-FILE   3;   400 RECORDS:  
0         AIF   (&NUMRJE EQ 0).NOCONP                              UM3.0 00002000
 &WRCB    SETC  '91'                WRITE TO REMOTE CONSOLE.             00140000
 &ORCB    SETC  '92'                READ FROM REMOTE CONSOLE.            00160000
  TITLE 'S P O O L -- REMOTE TERMINAL CONSOLE PROCESSOR'                 00180000
          AIF   ('&BSCCPU' NE 'YES').NOBCPU1                             00200000
 *                                                                       00220000
 *                    REMOTE TERMINAL CONSOLE PROCESSOR                  00240000
 *                                                                       00260000
 *        THE REMOTE TERMINAL CONSOLE PROCESSOR WRITES TO REMOTE TERMI-  00280000
 *  NAL CONSOLES (VIA $EXTP OPEN, PUT, AND CLOSE) AND READS FROM THEM    00300000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    AL1(111)            REMOTE CONSOLE LINE LENGTH.    UM3.0 06362000
 MCDTPLIN DC    AL1(0)              DCTPLINE FROM ANOTHER DCT.           06400000
          DC    A(0)                EVENT WAIT FIELD.                    06420000
          DC    A(0)                POINTER TO NEXT DCT.                 06440000
          DC    CL4'RMT-'           DEVICE NAME.                         06460000
 MCONCON  DC    CL4'CON '           CONSOLE NAME CONSTANT.               06480000
 MDUMMY   DC    2A(0)              DUMMY                           UM3.0 06482000
 MCDTRCB  DC    F'0'                VARIABLE DEVICE WORK AREA.     UM3.0 06484000
          DC    XL2'0040'           FN CTRL SEQ - SHOW CONSOLE.    UM3.0 06486000
 .NOCONP  ANOP                                                     UM3.0 06488000
-FILE   4;   326 RECORDS:  
0         MACRO                                                          00020000
          HRTPCONP                                                       00040000
          GBLA  &NUMRJE                                                  00060000
          GBLC  &BSCCPU                                                  00080000
          LCLC  &WRCB,&ORCB                                              00100000
          AIF   (&NUMRJE EQ 0).NORJE                                     00120000
 &WRCB    SETC  '91'                WRITE TO REMOTE CONSOLE.             00140000
 &ORCB    SETC  '92'                READ FROM REMOTE CONSOLE.            00160000
  TITLE 'S P O O L -- REMOTE TERMINAL CONSOLE PROCESSOR'                 00180000
          AIF   ('&BSCCPU' NE 'YES').NOBCPU1                             00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    AL1(15)             PRIORITY LIMIT.                      06340000
          DC    X'234B'             PRINTER FORMS.                       06360000
          DC    AL1(120)            REMOTE CONSOLE LINE LENGTH.          06380000
 MCDTPLIN DC    AL1(0)              DCTPLINE FROM ANOTHER DCT.           06400000
          DC    A(0)                EVENT WAIT FIELD.                    06420000
          DC    A(0)                POINTER TO NEXT DCT.                 06440000
          DC    CL4'RMT-'           DEVICE NAME.                         06460000
 MCONCON  DC    CL4'CON '           CONSOLE NAME CONSTANT.               06480000
 MCDTRCB  DC    F'0'                VARIABLE DEVICE WORK AREA.           06500000
          DC    XL2'0040'           FN CTRL SEQ - SHOW CONSOLE.          06520000
-FILE   5;   161 RECORDS:  
0%BEFORE  '00020000'                                                             
          AIF   (&NUMRJE EQ 0).NOCONP                              UM3.0 00002000
 %DELETE  '00020000' '00120000'                                                  
 %BEFORE  '01000000'                                                             
 MCONREDO NULL                                                     UM3.0 00982000
 %DELETE  '01000000'                                                             
 %BEFORE  '01240000'                                                             
          AIF   ('&BSCCPU' EQ 'YES').BSCCPU1                       UM3.0 01222000
          MVC   0(4,WB),0(WC)      DECHAIN WQUEBUSY HERE IF NOT BSCCPU   01224000
          AGO   .NOBCPU3                                           UM3.0 01226000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEFORE  '06380000'                                                             
          DC    AL1(111)            REMOTE CONSOLE LINE LENGTH.    UM3.0 06362000
 %DELETE  '06380000'                                                             
 %BEFORE  '06500000'                                                             
 MDUMMY   DC    2A(0)              DUMMY                           UM3.0 06482000
 MCDTRCB  DC    F'0'                VARIABLE DEVICE WORK AREA.     UM3.0 06484000
          DC    XL2'0040'           FN CTRL SEQ - SHOW CONSOLE.    UM3.0 06486000
 .NOCONP  ANOP                                                     UM3.0 06488000
 %DELETE  '06500000' '06520000'                                                  
 %BEF      FILEMARK                                                              
-FILE   6;  2420 RECORDS:  
0         AIF   (&NUMRJE EQ 0).NORTAM                              UM3.0 00002000
  TITLE 'S P O O L -- REMOTE TERMINAL HASPGEN OPTIONS'                   00540000
 $WAITIME EQU   10                  TERMINAL POLLING TIME IN SECONDS     00560000
 $DELAYCT EQU   256                 MODEL 20 DELAY COUNT                 00580000
          SPACE 10                                                       00600000
  TITLE 'S P O O L -- REMOTE TERMINAL ACCESS METHOD'                     00940000
 *                                                                       00960000
 *                             LINE MANAGER REGISTER DEFINITIONS         00980000
 *                                                                       01000000
          SPACE 3                                                        01020000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'F0D1D2C3D4C5C647D8C9F0F0F0F0F0F0'  9X                  47340000
          DC    X'F0F0B2A3B4A5A627B8A9F0F0F0F0F0F0'  AX                  47360000
          DC    X'9AE1E293E4959617E899F0F0F0F0F0F0'  BX                  47380000
          DC    X'F0717263746566877869F0F0F0F0F0F0'  CX                  47400000
          DC    X'F0D1D2C3D4C5C647D8C9F0F0F0F0F0F0'  DX                  47420000
          DC    X'AAF0B2A3B4A5A627B8A9F0F0F0F0F0F0'  EX                  47440000
          DC    X'9AE1E293E4959617E899F0F0F0F0F0F0'  FX                  47460000
          SPACE 5                                                        47480000
 .NSHDW91 DROP  MDCT,MBUF,MCODE,MBASE1,MBASE2 DROP ALL ADDRESSABILITY    47500000
 .NORTAM  ANOP                                                     UM3.0 47502000
-FILE   7;  2375 RECORDS:  
0         MACRO                                                          00020000
          HRTPRTAM                                                       00040000
          GBLA  &NUMRJE,&NUMTPPU,&TPBFSIZ,&MLBFSIZ,&PRTRANS              00060000
          GBLC  &STROPT,&STR1978,&STRCPU                                 00080000
          GBLC  &BSCOPT,&BSC2780,&BSCCPU,&USASCII                        00100000
          LCLA  &HTDIST                                                  00120000
          LCLC  &BSVBOPT                                                 00140000
          AIF   (&NUMRJE EQ 0).NORJE                                     00160000
 .*                                                                      00180000
 .*                            DEFINE HASPGEN OPTIONS                    00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'F0717263746566877869F0F0F0F0F0F0'  8X                  47320000
          DC    X'F0D1D2C3D4C5C647D8C9F0F0F0F0F0F0'  9X                  47340000
          DC    X'F0F0B2A3B4A5A627B8A9F0F0F0F0F0F0'  AX                  47360000
          DC    X'9AE1E293E4959617E899F0F0F0F0F0F0'  BX                  47380000
          DC    X'F0717263746566877869F0F0F0F0F0F0'  CX                  47400000
          DC    X'F0D1D2C3D4C5C647D8C9F0F0F0F0F0F0'  DX                  47420000
          DC    X'AAF0B2A3B4A5A627B8A9F0F0F0F0F0F0'  EX                  47440000
          DC    X'9AE1E293E4959617E899F0F0F0F0F0F0'  FX                  47460000
          SPACE 5                                                        47480000
 .NSHDW91 DROP  MDCT,MBUF,MCODE,MBASE1,MBASE2 DROP ALL ADDRESSABILITY    47500000
-FILE   8;   235 RECORDS:  
0%BEFORE  '00020000'                                                             
          AIF   (&NUMRJE EQ 0).NORTAM                              UM3.0 00002000
 %DELETE  '00020000' '00520000'                                                  
 %DELETE  '00620000' '00920000'                                                  
 %BEFORE  '01620000'                                                             
 MDCTJOB1 EQU   X'20'               JOB POST INDICATOR 1           H02.3 01602000
 MDCTJOB2 EQU   X'10'               JOB POST INDICATOR 2           H02.3 01604000
 MDCTJOB  EQU   MDCTJOB1+MDCTJOB2   JOB POST INDICATION            H02.3 01606000
 %DELETE  '01620000'                                                             
 %BEFORE  '05500000'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %DELETE  '41700000' '41720000'                                                  
 %BEFORE  '41840000'                                                             
          DC    X'0F0F0F0F0F0F0F0F0F0F0F0F2D174E4E'                H02.3 41822000
 %DELETE  '41840000'                                                             
 %BEFORE  '41980000'                                                             
          DC    X'B1B1B2A3B1B1B1B1B1B1B1B1B1B171CA'                H02.3 41962000
 %DELETE  '41980000'                                                             
 %AFTER   '47500000'                                                             
 .NORTAM  ANOP                                                     UM3.0 47502000
 %BEF      FILEMARK                                                              
-FILE   9;   946 RECORDS:  
0         AIF   (&NUMRJE EQ 0).NOMLLM                              UM3.0 00002000
  TITLE 'S P O O L -- MULTI-LEAVING LINE MANAGER'                        00140000
 $MULTILV NULL                      MULTI-LEAVING LINE MANAGER           00160000
          USING DCTDSECT,MDCT       ESTABLISH DCT ADDRESSABILITY         00180000
          USING BUFDSECT,MBUF       ESTABLISH BUFFER ADDRESSABILITY      00200000
          USING MCODSECT,MCODE      ESTABLISH CODE TABLE ADDRESSABILITY  00220000
          USING $RTAM,MBASE1,MBASE2 ESTABLISH RTAM ADDRESSABILITY        00240000
          USING $MULTILV,BASE2      ESTABLISH PROCESSOR ADDRESSABILITY   00260000
          LM    MBASE1,MBASE2,$RTAMBAS   LOAD RTAM BASE REGISTERS        00280000
          SPACE 5                                                        00300000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MVC   IOBCCW5+5(9),MWABTSEQ           FOR                      17100000
          MVC   IOBCCW6(2),MSTXSEQ               RESPONSE                17120000
          SPACE 1                                                        17140000
 MTIMEXCP NULL                      *                                    17160000
 .NBCPUXO MVC   IOBSTART,IOBRESTR   SET UP ADDRESS OF FIRST CCW    UM3.0 17162000
          BAL   ML,MERREXCP         INITIATE I/O                         17200000
          B     MSEARCH             SEARCH FOR OTHER REQUIRED PROCESSING 17220000
          SPACE 5                                                        17240000
          DROP  MDCT,MBUF,MCODE,MBASE1,MBASE2 DROP ALL ADDRESSABILITY    17260000
 .NOMLLM  ANOP                                                     UM3.0 17262000
-FILE  10;   863 RECORDS:  
0         MACRO                                                          00020000
          HRTPMLLM                                                       00040000
          GBLA  &NUMRJE,&NUMLNES,&NUMTPPU,&PRINT,&PUNCH                  00060000
          GBLC  &STROPT,&STR1978,&STRCPU                                 00080000
          GBLC  &BSCOPT,&BSC2780,&BSCCPU,&USASCII                        00100000
          AIF   (&NUMRJE EQ 0).NORJE                                     00120000
  TITLE 'S P O O L -- MULTI-LEAVING LINE MANAGER'                        00140000
 $MULTILV NULL                      MULTI-LEAVING LINE MANAGER           00160000
          USING DCTDSECT,MDCT       ESTABLISH DCT ADDRESSABILITY         00180000
          USING BUFDSECT,MBUF       ESTABLISH BUFFER ADDRESSABILITY      00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MVI   IOBCCW5,X'02'                  SEQUENCE                  17080000
          MVC   IOBCCW5+5(9),MWABTSEQ           FOR                      17100000
          MVC   IOBCCW6(2),MSTXSEQ               RESPONSE                17120000
          SPACE 1                                                        17140000
 MTIMEXCP NULL                      *                                    17160000
 .NBCPU61 MVC   IOBSTART,IOBRESTR   SET UP ADDRESS OF FIRST CCW          17180000
          BAL   ML,MERREXCP         INITIATE I/O                         17200000
          B     MSEARCH             SEARCH FOR OTHER REQUIRED PROCESSING 17220000
          SPACE 5                                                        17240000
          DROP  MDCT,MBUF,MCODE,MBASE1,MBASE2 DROP ALL ADDRESSABILITY    17260000
-FILE  11;   285 RECORDS:  
0%BEFORE  '00020000'                                                             
          AIF   (&NUMRJE EQ 0).NOMLLM                              UM3.0 00002000
 %DELETE  '00020000' '00120000'                                                  
 %BEFORE  '00500000'                                                             
 MCHANTST TS    $MULTLB                                            UM3.0 00482000
          BZ    *+10                                               UM3.0 00484000
          SVC   DORMNT                                             UM3.0 00486000
          B     MCHANTST                                           UM3.0 00488000
 %DELETE  '00500000' '00520000'                                                  
 %BEFORE  '00920000'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     MBUF,DCTBUFAD       GET ADDRESS OF BUFFER          UM3.0 16684000
 MTIMERST L     MCODE,MDCTCODE      GET ADDRESS OF CODE TABLE      UM3.0 16686000
          AIF   ('&BSCCPU' NE 'YES').NBCPUXO                       UM3.0 16688000
 %DELETE  '16700000' '16760000'                                                  
 %BEFORE  '17180000'                                                             
 .NBCPUXO MVC   IOBSTART,IOBRESTR   SET UP ADDRESS OF FIRST CCW    UM3.0 17162000
 %DELETE  '17180000'                                                             
 %AFTER   '17260000'                                                             
 .NOMLLM  ANOP                                                     UM3.0 17262000
 %BEF      FILEMARK                                                              
-FILE  12;    98 RECORDS:  
0         AIF   (&NUMRJE EQ 0).NOEXTP                              UM3.0 00002000
  TITLE 'S P O O L -- $EXTP SERVICE ENTRY ROUTINES'                      00100000
 *********************************************************************** 00120000
 *                                                                     * 00140000
 *                    REMOTE JOB ENTRY OPEN ROUTINE                    * 00160000
 *                                                                     * 00180000
 *    ENTRY PARAMETER --                                               * 00200000
 *              R1 = ADDRESS OF REMOTE DEVICE CONTROL TABLE.           * 00220000
 *                                                                     * 00240000
 *********************************************************************** 00260000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BR    LINK                 AND RETURN                          01840000
          SPACE 10                                                       01860000
 $RTAMBAS DC    A($RTAM,$RTAM+4096) BASE ADDRESSES FOR RJE ACCESS METHOD 01880000
 MCONPCE  DC    A($MCONPCE)         ADDRESS OF REMOTE CONSOLE PCE        01900000
 MRMTDCT  DC    A($RMTDCT)          ADDRESS OF FIRST REMOTE DCT          01920000
 MPOOLECF DC    X'00'               REMOTE MASTER EVENT CONTROL FIELD    01940000
 MSOFCODE DS    0CL10                                              UM3.0 01942000
          DC    X'E0',CL9'$SIGNOFF'     S-8 $SIGNOFF CODE          UM3.0 01944000
          DROP  R1,MBASE1,MBASE2    DROP ADDRESSABILITY            UM3.0 01946000
 .NOEXTP  ANOP                                                     UM3.0 01948000
-FILE  13;    99 RECORDS:  
0         MACRO                                                          00020000
          HRTPEXTP                                                       00040000
          GBLA  &NUMRJE                                                  00060000
          AIF   (&NUMRJE EQ 0).NORJE                                     00080000
  TITLE 'S P O O L -- $EXTP SERVICE ENTRY ROUTINES'                      00100000
 *********************************************************************** 00120000
 *                                                                     * 00140000
 *                    REMOTE JOB ENTRY OPEN ROUTINE                    * 00160000
 *                                                                     * 00180000
 *    ENTRY PARAMETER --                                               * 00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 2                                                        01800000
 MABEXIT  SR    R0,R0               SET EOF CONDITION CODE               01820000
          BR    LINK                 AND RETURN                          01840000
          SPACE 10                                                       01860000
 $RTAMBAS DC    A($RTAM,$RTAM+4096) BASE ADDRESSES FOR RJE ACCESS METHOD 01880000
 MCONPCE  DC    A($MCONPCE)         ADDRESS OF REMOTE CONSOLE PCE        01900000
 MRMTDCT  DC    A($RMTDCT)          ADDRESS OF FIRST REMOTE DCT          01920000
 MPOOLECF DC    X'00'               REMOTE MASTER EVENT CONTROL FIELD    01940000
 MSOFCODE DC    CL10'/*SIGNOFF'     SIGN-OFF CODE                        01960000
          DROP  R1,MBASE1,MBASE2    DROP ADDRESSABILITY                  01980000
-FILE  14;    10 RECORDS:  
0%BEFORE  '00020000'                                                             
          AIF   (&NUMRJE EQ 0).NOEXTP                              UM3.0 00002000
 %DELETE  '00020000' '00080000'                                                  
 %BEFORE  '01960000'                                                             
 MSOFCODE DS    0CL10                                              UM3.0 01942000
          DC    X'E0',CL9'$SIGNOFF'     S-8 $SIGNOFF CODE          UM3.0 01944000
          DROP  R1,MBASE1,MBASE2    DROP ADDRESSABILITY            UM3.0 01946000
 .NOEXTP  ANOP                                                     UM3.0 01948000
 %DELETE  '01960000' '01980000'                                                  
 %BEF      FILEMARK                                                              
-FILE  15;  7877 RECORDS:  
0         TITLE 'RTP1130 (1130 MACRO DEFINITIONS) 07/27/69'              00010000
          SPACE 3                                                        00020000
 *********************************************************************** 00030000
 *                                                                     * 00040000
 * TITLE - OS/360 MACRO DEFINTIONS FOR 1130 INSTRUCTIONS               * 00050000
 *                                                                     * 00060000
 * GENERAL DESCRIPTION -                                               * 00070000
 *                                                                     * 00080000
 *  THE MACROS DEFINED BELOW ATTEMPT TO ALLOW 1130 PROGRAMS TO BE      * 00090000
 *  ASSEMBLED ON AN IBM 360 USING THE OS/360 ASSEMBLER OR IT'S         * 00100000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          TITLE 'RTP1130 (TP BUFFER ORIGIN)'                             75420000
          SPACE 3                                                        75430000
 *********************************************************************** 75440000
 *              TP BUFFER ORIGIN AND QUEUE POINTER DEFINITIONS         * 75450000
 *********************************************************************** 75460000
 TPBUFFQP $ADCON ($BUFPOOL)         FREE BUFFER QUEUE POINTER            75470000
 TPBUFIQP DC    AL2(*-*)            INPUT BUFFER QUEUE POINTER           75480000
 TPBUFOQP DC    AL2(*-*)            OUTPUT BUFFER QUEUE POINTER          75490000
 $BUFPOOL $NULL                     START OF TP BUFFER POOL              75500000
          END   RTPETIN                                            UM3.0 75502000
-FILE  16;  7550 RECORDS:  
0         TITLE 'RTP1130 (1130 MACRO DEFINITIONS) 07/27/69'              00010000
          SPACE 3                                                        00020000
 *********************************************************************** 00030000
 *                                                                     * 00040000
 * TITLE - OS/360 MACRO DEFINTIONS FOR 1130 INSTRUCTIONS               * 00050000
 *                                                                     * 00060000
 * GENERAL DESCRIPTION -                                               * 00070000
 *                                                                     * 00080000
 *  THE MACROS DEFINED BELOW ATTEMPT TO ALLOW 1130 PROGRAMS TO BE      * 00090000
 *  ASSEMBLED ON AN IBM 360 USING THE OS/360 ASSEMBLER OR IT'S         * 00100000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          PRINT ON                                                       75410000
          TITLE 'RTP1130 (TP BUFFER ORIGIN)'                             75420000
          SPACE 3                                                        75430000
 *********************************************************************** 75440000
 *              TP BUFFER ORIGIN AND QUEUE POINTER DEFINITIONS         * 75450000
 *********************************************************************** 75460000
 TPBUFFQP $ADCON ($BUFPOOL)         FREE BUFFER QUEUE POINTER            75470000
 TPBUFIQP DC    AL2(*-*)            INPUT BUFFER QUEUE POINTER           75480000
 TPBUFOQP DC    AL2(*-*)            OUTPUT BUFFER QUEUE POINTER          75490000
 $BUFPOOL $NULL                     START OF TP BUFFER POOL              75500000
-FILE  17;   761 RECORDS:  
0%BEFORE  '05450000'                                                             
          GBLB  &PN1442             CARD PUNCH (1442-5 OR 6,7)     H02.3 05442000
 %DELETE  '05450000'                                                             
 %BEFORE  '05500000'                                                             
          GBLA  &UCS                UCS FEATURE ON 1403            UM3.0 05492000
          GBLA  &PNTRAIN            PN PRINT TRAIN ON 1403         UM3.0 05494000
          GBLA  &UCSBLNK            USE X'40' AS BLANK CHARACTER   UM3.0 05496000
 %BEFORE  '05600000'                                                             
          GBLA  &CLOCK              DATA SET OR INTERNAL CLOCKING  H02.3 05592000
 %DELETE  '05600000'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'00C6'             CHARACTER F                    UM3.0 72129000
 .U1403K  ANOP                                                     UM3.0 72129500
 %BEFORE  '73160000'                                                             
          AIF   (&PRFOTLW NE 132).D1403LN                          UM3.0 73152000
 DMREADEM DS    66H                                                UM3.0 73154000
          AGO   .DMASM11            1403 BUFFER                    UM3.0 73156000
 .D1403LN ANOP                                                     UM3.0 73158000
 %AFTER   '75500000'                                                             
          END   RTPETIN                                            UM3.0 75502000
 %BEF      FILEMARK                                                              
-FILE  18;  1650 RECORDS:  
0         TITLE 'RTP1130 (1130 MACRO DEFINITIONS) 07/27/69'              00020000
          SPACE 3                                                        00040000
 *********************************************************************** 00060000
 *                                                                     * 00080000
 * TITLE - OS/360 MACRO DEFINTIONS FOR 1130 INSTRUCTIONS               * 00100000
 *                                                                     * 00120000
 * GENERAL DESCRIPTION -                                               * 00140000
 *                                                                     * 00160000
 *  THE MACROS DEFINED BELOW ATTEMPT TO ALLOW 1130 PROGRAMS TO BE      * 00180000
 *  ASSEMBLED ON AN IBM 360 USING THE OS/360 ASSEMBLER OR IT'S         * 00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                  OF UPPER CORE TO SIDESTEP            32740000
 *                                  RTP1130 TP BUFFER BUILDING           32760000
 *                                  PROCESS                              32780000
          AIF   (&RMTID LT 10).LT10                                UM3.0 32782000
 RTPETSOR DC    AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',58C' '    32784000
          AGO   .END                                               UM3.0 32786000
 .LT10    ANOP                                                     UM3.0 32788000
 RTPETSOR DC    AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',59C' '    32790000
 .END     ANOP                                                     UM3.0 32792000
          END   RTPLINIT                                           UM3.0 32794000
-FILE  19;  1640 RECORDS:  
0         TITLE 'RTP1130 (1130 MACRO DEFINITIONS) 07/27/69'              00020000
          SPACE 3                                                        00040000
 *********************************************************************** 00060000
 *                                                                     * 00080000
 * TITLE - OS/360 MACRO DEFINTIONS FOR 1130 INSTRUCTIONS               * 00100000
 *                                                                     * 00120000
 * GENERAL DESCRIPTION -                                               * 00140000
 *                                                                     * 00160000
 *  THE MACROS DEFINED BELOW ATTEMPT TO ALLOW 1130 PROGRAMS TO BE      * 00180000
 *  ASSEMBLED ON AN IBM 360 USING THE OS/360 ASSEMBLER OR IT'S         * 00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'0004'             4 PUNCH                              32620000
          DC    X'0003'             3 PUNCH                              32640000
          DC    X'0002'             2 PUNCH                              32660000
          TITLE 'RTPLOAD (/*SIGNON CARD STORAGE)'                        32680000
 UPPER    EQU   START+2*(1024-42)                                        32700000
          ORG   UPPER               ORIGIN SIGN-ON IN FAR REACHES        32720000
 *                                  OF UPPER CORE TO SIDESTEP            32740000
 *                                  RTP1130 TP BUFFER BUILDING           32760000
 *                                  PROCESS                              32780000
 RTPETSOR DC    AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',59C' '    32800000
-FILE  20;    27 RECORDS:  
0%BEFORE  '10160000'                                                             
 &RMTID   SETA  1                   DEFINE REMOTE IDENTIFICATION   H02.3 10142000
 %DELETE  '10160000'                                                             
 %BEFORE  '10500000'                                                             
 &CONINSZ SETA  120                 CONSOLE INPUT TANK SIZE        UM3.0 10482000
 %DELETE  '10500000'                                                             
 %BEFORE  '29320000'                                                             
          $LD   0,WA                                               UM3.0 29302000
          $EOR  SIGT00                                             UM3.0 29304000
          $BZ   SIGS8     ITS AN S-8 $                             UM3.0 29306000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEFORE  '32800000'                                                             
          AIF   (&RMTID LT 10).LT10                                UM3.0 32782000
 RTPETSOR DC    AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',58C' '    32784000
          AGO   .END                                               UM3.0 32786000
 .LT10    ANOP                                                     UM3.0 32788000
 RTPETSOR DC    AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',59C' '    32790000
 .END     ANOP                                                     UM3.0 32792000
          END   RTPLINIT                                           UM3.0 32794000
 %DELETE  '32800000'                                                             
 %BEF      FILEMARK                                                              
-FILE  21;  5114 RECORDS:  
0HRTP TITLE 'H A S P / R T P  *MACRO DEFINITIONS*(MODEL 20 INSTS.)'      00020000
 *                                                                       00040000
 *****   BAS    *****          BRANCH AND STORE                          00060000
 *                                                                       00080000
          MACRO                                                          00100000
 &NAME    BAS   &R,&LOC                                                  00120000
          GBLA  &MACHINE                                                 00140000
 &NAME    NULL                                                           00160000
          AIF   (&MACHINE NE 20).ANOT20                                  00180000
          DC    X'4D'                                                    00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       97100000
 *              08 = ADAPTER WRITE LOGGING                               97120000
 *                   08OOOOOO       OOOOOO= BYTES 2,3,4 OF OUTPUT DATA   97140000
 *                                                                       97160000
 *              09 = ALL COMMUNICATION ADAPTER INTERRUPTS                97180000
 *                   09IIIIII       IIIIII= BYTES 2,3,4 OF INPUT DATA    97200000
 *                                                                       97220000
 *********************************************************************** 97240000
          EJECT                                                          97260000
          END   $REPLOAD                                           UM3.0 97262000
-FILE  22;  4863 RECORDS:  
0HRTP TITLE 'H A S P / R T P  *MACRO DEFINITIONS*(MODEL 20 INSTS.)'      00020000
 *                                                                       00040000
 *****   BAS    *****          BRANCH AND STORE                          00060000
 *                                                                       00080000
          MACRO                                                          00100000
 &NAME    BAS   &R,&LOC                                                  00120000
          GBLA  &MACHINE                                                 00140000
 &NAME    NULL                                                           00160000
          AIF   (&MACHINE NE 20).ANOT20                                  00180000
          DC    X'4D'                                                    00200000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                   07000000                                            97080000
 *                                                                       97100000
 *              08 = ADAPTER WRITE LOGGING                               97120000
 *                   08OOOOOO       OOOOOO= BYTES 2,3,4 OF OUTPUT DATA   97140000
 *                                                                       97160000
 *              09 = ALL COMMUNICATION ADAPTER INTERRUPTS                97180000
 *                   09IIIIII       IIIIII= BYTES 2,3,4 OF INPUT DATA    97200000
 *                                                                       97220000
 *********************************************************************** 97240000
          EJECT                                                          97260000
-FILE  23;   411 RECORDS:  
0%BEFORE  '08420000'                                                             
 &NAME    SPSW  *+4                                                H02.3 08402000
 %DELETE  '08420000'                                                             
 %BEFORE  '08600000'                                                             
 &NAME    SSM   =X'&MASK'                                          H02.3 08582000
 %DELETE  '08600000'                                                             
 %BEFORE  '14500000'                                                             
          GBLA  &XIOFAKE                                           UM3.0 14482000
 %BEFORE  '15100000'                                                             
 &PRE.LOC&A XIO &ADDR.(&LOP+&XIOFAKE),&PRE.CT                      UM3.0 15082000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          $SSM  FF                  PREPARE FOR INTERRUPT          UM3.0 94486000
          B     *                   LOOP UNITL INTERRUPT           H02.2 94488000
 %DELETE  '94500000' '94540000'                                                  
 %BEFORE  '94660000'                                                             
          CLC   IREADRES,=AL1(XDLE,XACK0) WAS ACK RECEIVED         H02.3 94642000
          BNE   IAGAIN              START OVER IF NOT              UM3.0 94644000
 %DELETE  '94660000' '94880000'                                                  
 %AFTER   '97260000'                                                             
          END   $REPLOAD                                           UM3.0 97262000
 %BEF      FILEMARK                                                              
-FILE  24;    16 RECORDS:  
0        Ƴ䭥
ú

    ƪ        
		         
                                 
 	                           
                      ڥ        
          ٥                       ٥   
                Υ               
           ƥ                                 
                                                           
                                                                                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
           
 ð    ư  
  ƪ	  	  	
        åíú   ƥƭƺ
 ٥			
     	       ê	ڥ
-FILE  25;   258 RECORDS:  
0SYM              LETRINTh    h  h    h    g  IHB0004B  LTRI0001
 SYM           INT  kOKSVCE  yIMPINT     yBADINTh  h  h  hLTRI0002
 SYM             { h  Dc  F###1    f  YOLDSPIEA  SA     LTRI0003
 SYM           LETRINT h h h  h h  h <h &hLTRI0004
 SYM       	                                                        LTRI0005
 ESD          LETRINT       LETRRIP        SPIE                   LTRI0006
 ESD          SVXOS10        SVXOS19        SVXOS20                LTRI0007
 ESD          SERCOM         ERROR                                  LTRI0008
 TXT          }0{&0}&}0 {	     0A	&{Y0{    0{LTRI0009
 TXT         	͓{Y0A	͓}}q}k}h   0n 0 LTRI0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD                           ^ OSIM0179
 RLD               D 8        < & * OSIM0180
 RLD              m q  y  \ U Y 4    OSIM0181
 RLD                  @   { D H  Q  OSIM0182
 RLD                  * -   u y  ^ 0OSIM0183
 RLD              4 8    	    	H    Y     OSIM0184
 RLD            	  4   8      ٥   ٳ      OSIM0185
 RLD                 &                                   OSIM0186
 END                                   ASMG 70JUL10  19:41.43  3 SEP 70 OSIM0187
  ENT            LETRINT                                                         
-FILE  26;   331 RECORDS:  
0%BEFORE  'HSPL0007'                                                             
 *        ON ENTRY R2 POINTS TO A PARAMETER LIST AS FOLLOWS                      
 *        0-3 THE BCD NAME OF THE DEVICE                                         
 *        4-7 THE LOCATION IN THE DCT OF THE FOLLOWING                           
 *              0 : SLEEP BYTE                                                   
 *              1-3 : BUFFER CHAIN                                               
 *              4-5 : JOB NUMBER                                                 
 *              6 : LOCK BYTE                                                    
 *                                                                               
 %BEFORE  'HSPL0017'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IOBCCW6  DS    D                                                                
 IOBCCW7  DS    D                                                                
 IOBCCW8  DS    D                                                                
 TPBUFCHN DS    0F                                                               
 TPBUFST  DS    0F                                                               
 %DELETE  'HSPL0370' 'HSPL0371'                                                  
 %BEFORE  'HSPL0377'                                                             
 DCTPSTAT DS    0C                                                               
 %DELETE  'HSPL0394'                                                             
 %BEF      FILEMARK                                                              
-FILE  27;   635 RECORDS:  
0HSPL     TITLE ' HASPLING -- JOB TO CONTROL AN I/O DEVICE'              HSPL0001
 **********************************************************************  HSPL0002
 *                                                                    *  HSPL0003
 *                       T H I S    IS THE HASPLING                   *  HSPL0004
 *                                                                    *  HSPL0005
 **********************************************************************  HSPL0006
 *        ON ENTRY R2 POINTS TO A PARAMETER LIST AS FOLLOWS              HSPL0007
 *        0-3 THE BCD NAME OF THE DEVICE                                 HSPL0008
 *        4-7 THE LOCATION IN THE DCT OF THE FOLLOWING                   HSPL0009
 *              0 : SLEEP BYTE                                           HSPL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DCTEWF   DS    F                                                        HSPL0626
 DCTFLAGS DS    0C                                                       HSPL0627
 DCTCHAIN DS    F                                                        HSPL0628
 DCTDEVN  DS    CL8                                                      HSPL0629
 DCTWAYT  DS    F                                                        HSPL0630
 DCTSJNO  DS    H                                                        HSPL0631
 DCTSJWK  DS    H                                                        HSPL0632
 DCTWORK  DS    0F                                                       HSPL0633
          SPACE                                                          HSPL0634
          END                                                            HSPL0635
-FILE  28;   777 RECORDS:  
0HBQ      TITLE 'HASP BATCH QUEUE POSITION FINDER'                       HBQ00001
 HBQ      CSECT                                                          HBQ00002
          SPACE 1                                                        HBQ00003
 *********************************************************************** HBQ00004
 *                                                                     * HBQ00005
 *       TO USE THIS ROUTINE:                                          * HBQ00006
 *       $RUN *HBQ PAR=RFSNO                                           * HBQ00007
 *       WHERE 'RFSNO' IS A LEGITIMATE REQUEST-FOR-SERVICE (S8) NUMBER * HBQ00008
 *       IF 'PAR=' IS NOT SPECIFIED, *HBQ PROMPTS FROM GUSER.          * HBQ00009
 *                                                                     * HBQ00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 QUEPRIO  DS    C                  JOB PRIORITY                          HBQ00768
 QUETYPE  DS    C                  Q TYPE                                HBQ00769
 QUEPRTRT DS    C                                                        HBQ00770
 QUEPUNRT DS    C                                                        HBQ00771
 QUEFLAGS EQU   *                  Q FLAGS                               HBQ00772
 QUECHAIN DS    A                  NEXT Q ENTRY                          HBQ00773
          DS    A                                                        HBQ00774
 QUEJOBNO DS    XL4                JOB NUMBER                            HBQ00775
          SPACE 1                                                        HBQ00776
          END                                                            HBQ00777
-FILE  29;  5086 RECORDS:  
0         PRINT     NOGEN                                                00000001
        TITLE   'Table of Contents'                                      00000002
        PRINT   NOGEN                                                    00000003
        TITLE   'Linkage and Equivalences'                               00000004
        COPY    MLINK               Linkage segment                      00000005
 *                                                                       00000006
 *      ENTRY POINTS USED BY BLOCKS                                      00000007
 *                                                                       00000008
          ENTRY     ARGVAL                                               00000009
          ENTRY     AUGATL                                               00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SOURCF FORMAT  '(42H0BELL TELEPHONE LABORATORIES, INCORPORATED,/1H1)'   00005077
 STATHD FORMAT  '(28H1SNOBOL4 STATISTICS SUMMARY-)'                      00005078
 STDMP  FORMAT  '(33H1DUMP OF VARIABLES AT TERMINATION/1H )'             00005079
 STGENO FORMAT  '(1H0,I15,33H REGENERATIONS OF DYNAMIC STORAGE)'         00005080
 SUCCF  FORMAT  '(37H0NO ERRORS DETECTED IN SOURCE PROGRAM/1H1)'         00005081
 SYSCMT FORMAT  '(27H0CUT BY SYSTEM IN STATEMENT,I4,9H AT LEVEL,I3)'     00005082
 TIMEPS FORMAT  '(1H0,F15.2,35H MS. AVERAGE PER STATEMENT EXECUTED/1H1)' 00005083
 TITLEF FORMAT  '(37H1SNOBOL4 (VERSION 3.3, MAR. 26, 1970)/8H+_______)'  00005084
 WRITNO FORMAT  '(1H0,I15,17H WRITES PERFORMED)'                         00005085
        END                                                              00005086
-FILE  30;  4427 RECORDS:  
0         MACRO                                                          00000001
 &LOC     ACOMP@     &CL1,&CL2,&LOC1,&LOC2,&LOC3                         00000002
 &LOC     L         1,0                                                  00000003
          C         1,0                                                  00000004
          AIF       ('&LOC1' NE '&LOC2').NOT12                           00000005
          AIF       ('&LOC1' NE '').K1                                   00000006
          BL        0                                                    00000007
          MEXIT                                                          00000008
 .K1      BNL       0                                                    00000009
          AIF       ('&LOC3' EQ '').DONE                                 00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BRANCH    RTN1                                                 00004418
 WA$FMT1  FORMAT    '(29H IT OCCURRED IN STATEMENT NO. ,I5)'             00004419
 WA1      LHERE                                                          00004420
          SETAC     ERRTYP,ERRNO+2                                       00004421
          BRANCH    FTLEND                                               00004422
 WA$N     DESCR     0,0,0                                                00004423
 WA$DIAG  DESCR     DIAGUN,0,0                                           00004424
 WA$FMT   FORMAT    '(20H THIS IS WARNING NO.,I4)'                       00004425
          LTORG                                                          00004426
          END                                                            00004427
-FILE  31;   226 RECORDS:  
0./      ADD    LIST=ALL,SEQFLD=774,NAME=CYC                             00000001
 ./   NUMBER   SEQ1=ALL,NEW1=0010,INCR=0010                              00000002
          MACRO                                                          00000003
 &LOC     CYC       &CL1                                                 00000004
 &LOC     ACOMPC    &CL1,3*DESCR,,,AA&SYSNDX                             00000005
          SETAC     &CL1,0                                               00000006
 AA&SYSNDX INCRA    &CL1,DESCR                                           00000007
          MEND      CYC                                                  00000008
 ./  ADD  LIST=ALL,SEQFLD=774,NAME=FASTPR                                00000009
 ./  NUMBER  SEQ1=ALL,NEW1=0010,INCR=0010                                00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ./      ADD    LIST=ALL,SEQFLD=774,NAME=TRL                             00000217
 ./   NUMBER   SEQ1=ALL,NEW1=0010,INCR=0010                              00000218
          MACRO                                                          00000219
 &LOC     TRL       &CL1,&CL2                                            00000220
 &LOC     MOVD      &CL1,&CL2                                            00000221
          VEQLC     &CL2,EDGDT,AA&SYSNDX                                 00000222
          GETDC     &CL1,&CL2,TR1$                                       00000223
 AA&SYSNDX  LHERE   ,                                                    00000224
          MEND      TRL                                                  00000225
 ./  ENDUP                                                               00000226
-FILE  32;  1925 RECORDS:  
0./  ADD  NAME=AAAA,LEVEL=01,SOURCE=0                                    00000001
                                                                         00000002
          E31 MACROS (NOVEMBER 26, 1969)                                 00000003
                                                                         00000004
 ./  ADD  NAME=ACOMP,LEVEL=01,SOURCE=0                                   00000005
          MACRO                                                          00000006
 &LOC     ACOMP     &CL1,&CL2,&LOC1,&LOC2,&LOC3                          00000007
 &LOC     L         1,&CL1                                               00000008
          C         1,&CL2                                               00000009
          AIF       ('&LOC1' NE '&LOC2').NOT12                           00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 &LOC     ZERBLK    &PTR,&CL                                             00001916
 &LOC     L         1,&PTR                                               00001917
          L         5,&CL                                                00001918
          LR        4,8                                                  00001919
          LR        3,0                                                  00001920
          LD        0,=D'0'                                              00001921
 A&SYSNDX STD       0,0(3,1)                                             00001922
          BXLE      3,4,A&SYSNDX                                         00001923
          MEND      ZERBLK                                               00001924
 ./  ENDUP                                                               00001925
-FILE  33;   365 RECORDS:  
0CLEANIO  CSECT                                                          00000001
          ENTRY    FASTRD                                                00000002
          ENTRY   STREAD                                                 00000003
          ENTRY   FASTPR                                                 00000004
          ENTRY   FINIS                                                  00000005
          ENTRY     FORTSAVE                                             00000006
          ENTRY     IHCTRCH                                              00000007
 *********************************************************************** 00000008
 *                                                                     * 00000009
 *                         CLEANIO                                     * 00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    4H                                                       00000356
          DS    CL1                                                      00000357
          DS    0F                                                       00000358
 SAVE     DS    16F           REGISTER SAVE                              00000359
 FDIOCS$  DS    F                                                        00000360
 MAINEP   DS    F             MAIN PROGRAM ENTRY POINT                   00000361
 ERRSAV   DS    18F                                                      00000362
 ENDFILE  DS    F             EXIT ADDRESS FOR EOF, OR ZEROS             00000363
 IOERROR  DS    F             EXIT FOR I/O ERROR CR ZEROS                00000364
           END                                                           00000365
-FILE  34;  2284 RECORDS:  
0         TITLE     'E31 (NOVEMBER 24, 1969)'                            00000001
 SUBR     START                                                          00000002
          ENTRY     ALPHA                                                00000003
          ENTRY     APDSP                                                00000004
          ENTRY     BDSPEC                                               00000005
          ENTRY     BIOPTB                                               00000006
          ENTRY     CARDTB                                               00000007
          ENTRY     COMPLG                                               00000008
          ENTRY     COPL                                                 00000009
          ENTRY     DATER                                                00000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B         8(14)                                                00002275
 STRMTRT  TRT       1(0,1),0(3)         TRANSLATE AND TEST.              00002276
 STTEMP   DC        2F'0'                                                00002277
          LTORG                                                          00002278
          TITLE     'ARITH# AND ADJSWTCH'                                00002279
 ARITH#   CSECT                                                          00002280
          DC        F'0'                                                 00002281
 ADJSWTCH CSECT                                                          00002282
          DC        F'0'                                                 00002283
          END                                                            00002284
-FILE  35;    45 RECORDS:  
0SNOMAC: PROCEDURE OPTIONS (MAIN);                                               
         DECLARE HEADER STATIC CHARACTER (2);                                    
         DECLARE DUMMY1 STATIC CHARACTER (7);                                    
         DECLARE NAME STATIC CHARACTER (5);                                      
         DECLARE LINE STATIC CHARACTER (58);                                     
         DECLARE DUMMY2 STATIC CHARACTER (8);                                    
         DECLARE CNT BINARY FIXED INITIAL (0);                                   
 START:  CALL READ;                                                              
         IF HEADER='./' THEN GO TO NEWMAC;                                       
 PRINT:  PUT FILE(MACRO) EDIT (HEADER,DUMMY1,NAME,LINE)                          
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 COP3:   PUT FILE(COPY3) EDIT (HEADER,DUMMY1,NAME,LINE)                          
                              (A(2), A(7), A(5), A(58));                         
         CALL READ;                                                              
         IF HEADER='./' THEN GO TO NEWMAC;                                       
         GO TO COP3;                                                             
 READ:   PROCEDURE;                                                              
         GET EDIT (HEADER,DUMMY1,NAME,LINE,DUMMY2)                               
                              (A(2), A(7), A(5), A(58), A(8));                   
         END READ;                                                               
 END:    END SNOMAC;                                                             
-FILE  36;    66 RECORDS:  
0ESD          SNOMAC        	;*SNOMACA      IHEQINV              SNOM0001
 ESD          IHESADA        IHESADB        IHEQERR              SNOM0002
 ESD          IHEQTIC      IHEMAIN        IHENTRY                SNOM0003
 ESD          IHESAPC        IHEQLWF      IHEQSLA              SNOM0004
 ESD          IHEQLW0      *SNOMACB     *SNOMACC             SNOM0005
 ESD          IHEDIBA       IHEDOBA       IHEIOAT               SNOM0006
 ESD          IHEIOAA       IHEIOBT       IHEIOBA               SNOM0007
 ESD          IHESAFA       IHESCDS        SCARDS               SNOM0008
 ESD          COPY3          COPY3        COPY2                  SNOM0009
 ESD          COPY2        COPY1          COPY1                SNOM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                                  SNOM0057
 TXT          ٓ00                                                  SNOM0058
 RLD              r      ~    j  r  ~  z       SNOM0059
 TXT                                  	SCARDS                         SNOM0060
 TXT                                  COPY3                          SNOM0061
 TXT                                  COPY2                          SNOM0062
 TXT                                  COPY1                          SNOM0063
 TXT                                  MACRO                          SNOM0064
 RLD                                           `SNOM0065
 END                                                                   SNOM0066
-FILE  37;  1081 RECORDS:  
0$RUN  *MOUNT                                                                    
 S322 9TP *IN* SIZE=3200 RING=OUT 'S4B-V3.3 SEQ ID SOURCE'                       
 S320 9TP *OUT* SIZE=3200 RING=IN 'S4B-V3.3 UPDATE'                              
 $ENDFILE                                                                        
 $RUN *UPDATE                                                                    
 %REW *IN*                                                                       
 %REW *OUT*                                                                      
 %INPUT *IN* 40                                                                  
 %OUTPUT *OUT* 40                                                                
 %DELETE  '00000001'                                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $EMPTY MDATA                                                                    
 $EMPTY MLINK                                                                    
 $EMPTY PARMS                                                                    
 $RUN MACLEAN+*PL1LIB PAR=SCARDS=*OUT*@F(3200,80) MACRO=MACROS1(1000)@F(72)     -
           COPY1=MDATA@F(72) COPY2=MLINK@F(72) COPY3=PARMS@F(72)                 
 $RUN *MACGEN SCARDS=MACROS1(1000) SPUNCH=MACROS1                                
 $LIST MACROS1                                                                   
 $LIST MDATA                                                                     
 $LIST MLINK                                                                     
 $LIST PARMS                                                                     
-FILE  38;  3725 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
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 WRTCCW   DS    3D                                                       TSFO3716
 WRITCCW  DS    (WRITCCWL/8)D                                            TSFO3717
 NEWCCW   DS    2D                                                       TSFO3718
 RTNLST   DS    (RTNLSTL/4)F                                             TSFO3719
 TABCHAR  DS    C                                                        TSFO3720
          ORG   (PSCT+((((*-PSCT)+31)/32)*32))                           TSFO3721
 TRACTAB  DS    (NTRACE*LTRACE)F                                         TSFO3722
          DS    0D                                                       TSFO3723
 PSECTL   EQU   *-PSCT                                                   TSFO3724
          END                                                            TSFO3725
-FILE  39;   346 RECORDS:  
0         MACRO                                                          TGEN0001
          EMSG  &N,&C                                                    TGEN0002
 EMSG&N   DC    A(EMSG&N.L)                                              TGEN0003
          DC    A(*+4)                                                   TGEN0004
          DC    C&C                                                      TGEN0005
 EMSG&N.L EQU   *-EMSG&N-8                                               TGEN0006
          DS    0F                                                       TGEN0007
          MEND                                                           TGEN0008
          EJECT                                                          TGEN0009
          START 0                                                        TGEN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EJECT                                                          TGEN0337
 SA       DS    18F                                                      TGEN0338
          SPACE 5                                                        TGEN0339
 GOLFBALL DS    64CL(GOLFSCTL)                                           TGEN0340
 GOLFL    EQU   *-GOLFBALL                                               TGEN0341
 EBCD     DS    (EBCDMAX)CL(EBCDSCTL)                                    TGEN0342
 EBCDL    EQU   *-EBCD                                                   TGEN0343
 KEYBOARD DS    64CL(KBDSCTL)                                            TGEN0344
 KBDL     EQU   *-KEYBOARD                                               TGEN0345
          END                                                            TGEN0346
-FILE  40;    64 RECORDS:  
0 00       1    X'02'    X     1    X'82'                                        
  01  B 8   C   X'51'    XB 8   C   X'D1'                                        
  02  BA   1    X'62'    XBA   1    X'E2'                                        
  03      2     X'04'    X    2     X'84'                                        
  04   A8  1    X'32'    X A8  1    X'B2'                                        
  05   A 42     X'2C'    X A 42     X'AC'                                        
  06   A  2 C   X'25'    X A  2 C   X'A5'                                        
  07      21C   X'07'    X    21C   X'87'                                        
  08   A 421C   X'2F'    X A 421C   X'AF'                                        
  09  BA 4 1C   X'6B'    XBA 4 1C   X'EB'                                        
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  54  BA84 1    X'7A'    XBA84 1    X'FA'                                        
  55    842     X'1C'    X  842     X'9C'                                        
  56   A842 C   X'3D'    X A842 C   X'BD'                                        
  57  B 842 C   X'5D'    XB 842 C   X'DD'                                        
  58  BA842     X'7C'    XBA842     X'FC'                                        
  59    8421C   X'1F'    X  8421C   X'9F'                                        
  60   A8421    X'3E'    X A8421    X'BE'                                        
  61  B 8421    X'5E'    XB 8421    X'DE'                                        
  62  BA8421C   X'7F'    XBA8421C   X'FF'                                        
  63        C   X'01'    X      C   X'81'                                        
-FILE  41;    64 RECORDS:  
0 00       1    X'02'    X     1    X'82'                                        
  01  BA 42 C   X'6D'    XBA 42 C   X'ED'                                        
  02  B  421C   X'4F'    XB  421C   X'CF'                                        
  03      2     X'04'    X    2     X'84'                                        
  04    8 2 C   X'15'    X  8 2 C   X'95'                                        
  05  B 8 21C   X'57'    XB 8 21C   X'D7'                                        
  06  B 8  1    X'52'    XB 8  1    X'D2'                                        
  07      21C   X'07'    X    21C   X'87'                                        
  08   A   1C   X'23'    X A   1C   X'A3'                                        
  09   A 4  C   X'29'    X A 4  C   X'A9'                                        
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  54  BA84 1    X'7A'    XBA84 1    X'FA'                                        
  55    842     X'1C'    X  842     X'9C'                                        
  56   A842 C   X'3D'    X A842 C   X'BD'                                        
  57  B 842 C   X'5D'    XB 842 C   X'DD'                                        
  58  BA842     X'7C'    XBA842     X'FC'                                        
  59    8421C   X'1F'    X  8421C   X'9F'                                        
  60   A8421    X'3E'    X A8421    X'BE'                                        
  61  B 8421    X'5E'    XB 8421    X'DE'                                        
  62  BA8421C   X'7F'    XBA8421C   X'FF'                                        
  63        C   X'01'    X      C   X'81'                                        
-FILE  42;   265 RECORDS:  
0'00'      NUL                                                                   
 '01'      SOH                                                                   
 '02'      STX                                                                   
 '03'      ETX                                                                   
 '04'      PF                                                                    
 '05'      HT                                                                    
 '06'      LC                                                                    
 '07'      DEL                                                                   
 '08'                                                                            
 '09'                                                                            
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 'F6'      SIX                                                                   
 'F7'      SEVEN                                                                 
 'F8'      EIGHT                                                                 
 'F9'      NINE                                                                  
 'FA'                                                                            
 'FB'                                                                            
 'FC'                                                                            
 'FD'                                                                            
 'FE'                                                                            
 'FF'                                                                            
-FILE  43;    64 RECORDS:  
0 00                 ONE                           EQUALS                        
  01                 Q(LC)                         Q(UC)                         
  02                 A(LC)                         A(UC)                         
  03                 TWO                           LESS-THAN SIGN                
  04                 Z(LC)                         Z(UC)                         
  05                 W(LC)                         W(UC)                         
  06                 S(LC)                         S(UC)                         
  07                 THREE                         SEMICOLON                     
  08                 X(LC)                         X(UC)                         
  09                 E(LC)                         E(UC)                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  54                 HT                            HT                            
  55                 UC                            UC                            
  56                 EOB                           EOB                           
  57                 BS                            BS                            
  58                 LC                            LC                            
  59                 EOT                           EOT                           
  60                 PRE                           PRE                           
  61                 IL                            IL                            
  62                 DEL                           DEL                           
  63                 SPACE                         SPACE                         
-FILE  44;    64 RECORDS:  
0 00                 ONE                           DIERESIS                      
  01                 Q(UC)                         QUESTION MARK                 
  02                 A(UC)                         ALPHA(LC)                     
  03                 TWO                           NEGATION                      
  04                 Z(UC)                         SUBSET                        
  05                 W(UC)                         OMEGA(LC)                     
  06                 S(UC)                         CEILING                       
  07                 THREE                         LESS THAN                     
  08                 X(UC)                         SUPERSET                      
  09                 E(UC)                         EPSILON(LC)                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  54                 HT                            HT                            
  55                 UC                            UC                            
  56                 EOB                           EOB                           
  57                 BS                            BS                            
  58                 LC                            LC                            
  59                 EOT                           EOT                           
  60                 PRE                           PRE                           
  61                 IL                            IL                            
  62                 DEL                           DEL                           
  63                 SPACE                         SPACE                         
-FILE  45;    64 RECORDS:  
0 00                 ONE                           APOSTROPHE                    
  01                 Q(UC)                         FILLED SQUARE                 
  02                 A(UC)                         AT SIGN                       
  03                 TWO                           QUOTATION MARK                
  04                 Z(UC)                         PERCENT SIGN                  
  05                 W(UC)                         FILLED SQUARE                 
  06                 S(UC)                         POUND SIGN                    
  07                 THREE                         LESS-THAN SIGN                
  08                 X(UC)                         EXCLAMATION POINT             
  09                 E(UC)                         FILLED SQUARE                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  54                 HT                            HT                            
  55                 UC                            UC                            
  56                 EOB                           EOB                           
  57                 BS                            BS                            
  58                 LC                            LC                            
  59                 EOT                           EOT                           
  60                 PRE                           PRE                           
  61                 IL                            IL                            
  62                 DEL                           DEL                           
  63                 SPACE                         SPACE                         
-FILE  46;    64 RECORDS:  
0 00                 ONE                           DIERESIS                      
  01                 Q(UC)                         QUESTION MARK                 
  02                 A(UC)                         ALPHA(LC)                     
  03                 TWO                           NEGATION                      
  04                 Z(UC)                         SUBSET                        
  05                 W(UC)                         OMEGA(LC)                     
  06                 S(UC)                         CEILING                       
  07                 THREE                         LESS THAN                     
  08                 X(UC)                         SUPERSET                      
  09                 E(UC)                         EPSILON(LC)                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  54                 HT                            HT                            
  55                 UC                            UC                            
  56                 EOB                           EOB                           
  57                 BS                            BS                            
  58                 LC                            LC                            
  59                 EOT                           EOT                           
  60                 PRE                           PRE                           
  61                 IL                            IL                            
  62                 DEL                           DEL                           
  63                 SPACE                         SPACE                         
-FILE  47;  2435 RECORDS:  
0CLOSE    1001                                                           MACL0001
 GETMAIN  1162                                                           MACL0002
 ABEND    1429                                                           MACL0003
 SNARK    1482                                                           MACL0004
 FREEMAIN 1489                                                           MACL0005
 OPEN     1738                                                           MACL0006
 ESDLIST  1955                                                           MACL0007
 GUINFO   1985                                                           MACL0008
 CUINFO   2001                                                           MACL0009
 GUSER$   2009                                                           MACL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          MACRO                                                          MACL2426
 &NAME    RELSE &DCB                                                     MACL2427
          AIF   ('&DCB' EQ '').ERR                                       MACL2428
 &NAME    IHBINNRA &DCB                                                  MACL2429
          L     15,40(0,1)              LOAD REG 15 FROM DCB             MACL2430
          BAL   14,8(0,15)              LINK TO RELSE RTN                MACL2431
          MEXIT                                                          MACL2432
 .ERR     IHBERMAC 06,117                                                MACL2433
          MEND                                                           MACL2434
                                                                         MACL2435
-FILE  48;   646 RECORDS:  
0IHEEVT   1001                                                           PLMC0001
 IHELIB   1043                                                           PLMC0002
 IHEPRV   1167                                                           PLMC0003
 IHESDR   1184                                                           PLMC0004
 IHEXLV   1199                                                           PLMC0005
 IHEZAP   1235                                                           PLMC0006
 IHEZZZ   1580                                                           PLMC0007
 00000000                                                                PLMC0008
 ./       ADD   IHEEVT,01,1,1,00059280                                   PLMC0009
          MACRO                                                          PLMC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SPIA     DS    A .                      ADDRESS OF PREVIOUS SPICA       PLMC0637
 APBFA    DS    A .                      ADDRESS OF PUT BUFFER ROUTINE.  PLMC0638
 APBFB    DS    A .                      ''     FOR DOUBLE SPACING.      PLMC0639
 APBFC    DS    A .                      ''     FOR TRIPLE SPACING.      PLMC0640
 OPNL     DS    A                                                        PLMC0641
 .LNTH    ANOP                                                           PLMC0642
 LWRK     EQU   *-WORK .                 LENGTH OF WORK SAPCE FOR DUMP.  PLMC0643
          EJECT                                                          PLMC0644
          MEND                                                           PLMC0645
 ./       ENDUP                                                          PLMC0646
-FILE  49;   139 RECORDS:  
0         EJECT                                                          SEQU0001
 DECDSECT DSECT                                                          SEQU0002
 DECSDECB DS    F                       EVENT CNTL BLK                   SEQU0003
 DECTYPE  DS    H                       TYPE OF I/O MACRO                SEQU0004
 DECLNGTH DS    H                       LENGTH OF KEY AND KATA           SEQU0005
 DECDCBAD DS    A                       A(DCB)                           SEQU0006
 DECAREA  DS    A                       A(AREA)                          SEQU0007
 DECIOBPT DS    A                       A(IOB) OR ZERO.                  SEQU0008
          EJECT                                                          SEQU0009
          DCBD  DSORG=(PS)                                               SEQU0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RY       EQU   14                                                       SEQU0130
 RZ       EQU   15                                                       SEQU0131
          SPACE                                                          SEQU0132
 *      FLOATING POINT REGISTERS.                                        SEQU0133
          SPACE                                                          SEQU0134
 FA       EQU   0                                                        SEQU0135
 FB       EQU   2                                                        SEQU0136
 FC       EQU   4                                                        SEQU0137
 FD       EQU   6                                                        SEQU0138
          EJECT                                                          SEQU0139
-FILE  50;    44 RECORDS:  
0PAT      TITLE '                       PATCHES.....'                    PAT00001
          MACRO                                                          PAT00002
          PAT   &NAME,&LOC,&INFO                                         PAT00003
          DC    CL2'&NAME'                                               PAT00004
          DC    XL2'&LOC'                                                PAT00005
          DC    AL1(L'A&SYSNDX-1)                                        PAT00006
 A&SYSNDX DC    X'&INFO'                                                 PAT00007
          MEND                                                           PAT00008
 PATCHER  CSECT                                                          PAT00009
          USING PATCHER,15                                               PAT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  PAT IL,752,08 DATE                                                     PAT00035
  PAT IL,760,08 TIME                                                     PAT00036
  PAT OS,18A,1BFF40F0D080 WAS D201D0800000                               PAT00037
  PAT OS,3A0,1BFF40F0D080 WAS D201D0800000                               PAT00038
  PAT OS,40A,1BFF40F0D080 WAS D201D0800000                               PAT00039
  PAT OS,7BE,1BFF40F0D112 WAS D201D1120000                               PAT00040
  PAT XC,8B2,F0                                                          PAT00041
  PAT ZZ,0,0 STOPPER                                                     PAT00042
          DS    50F                                                      PAT00043
          END                                                            PAT00044
-FILE  51;   124 RECORDS:  
0FDN      TITLE 'SUBROUTINE FDNAME'                                      FDNM0001
 **       NOTE THIS IS NOW REENTRANT                                     FDNM0002
 FDNAME   CSECT                                                          FDNM0003
          STM   14,12,12(13)       *GR13* REQUIRED                       FDNM0004
          LR    10,15                                                    FDNM0005
          USING FDNAME,10                                                FDNM0006
          LR    2,0                                                      FDNM0007
          USING FDBDCT,2                                                 FDNM0008
          LA    1,24                                                     FDNM0009
          L     15,=V(GETSPACE)                                          FDNM0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBDS   DS    F                                                        FDNM0115
 FDUBCH   DS    F                                                        FDNM0116
 FDUBTYPE DS    X                                                        FDNM0117
          DS    7X                 SPARES                                FDNM0118
          SPACE                                                          FDNM0119
 NAMDCT   DSECT                                                          FDNM0120
 NAME     DS    CL24                                                     FDNM0121
          SPACE                                                          FDNM0122
 RJBBUF   EQU   X'44'                                                    FDNM0123
          END                                                            FDNM0124
-FILE  52;    13 RECORDS:  
0TIOT     TITLE '                       I/O TABLE'                       TIOT0001
 TIOT#    CSECT                                                          TIOT0002
          SPACE                                                          TIOT0003
          PRINT OFF                                                      TIOT0004
          COPY  SAMEQU                                                   TIOT0005
 TIOT#    CSECT                                                          TIOT0006
          PRINT ON                                                       TIOT0007
          SPACE                                                          TIOT0008
          DC    X'FF'                                                    TIOT0009
          DC    (25*TIOLTH-1)X'00'      ENUF FOR 25 DDNAMES              TIOT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'EE'                   STOPPER                          TIOT0011
          SPACE 5                                                        TIOT0012
          END                                                            TIOT0013
-FILE  53;   230 RECORDS:  
0STOR     TITLE '                  SIMULATE REGMAIN,GETMAIN,FREEMAIN'    STOR0001
 STORMAIN CSECT                                                          STOR0002
 *              PARAMETERS FOR REGMAIN SVC                               STOR0003
 *        REG0  FIRST BYTE - SUBPOOL                                     STOR0004
 *              3 BYTES LENGTH                                           STOR0005
 *        REG1  FIRST BYTE - ZERO FOR FREEMAIN                           STOR0006
 *              3 BYTES - ADDR OF BUFFER, ZERO IF ENTIRE SUBPOOL IS TO   STOR0007
 *                                 BE RELEASED                           STOR0008
 *                                                                       STOR0009
 *        ABENDS FOR SVC 10 (GETMAIN/FREEMAIN WITH R OPERAND)            STOR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          STOR0221
 MSG1     MSG   'SUBPOOL RELEASING IS NOT SUPPORTED'                     STOR0222
 MSG2     MSG   'RELEASING SUBPOOL ZERO NOT PERMITTED'                   STOR0223
 MSG3     MSG   'ILLEGAL SUBPOOL NUMBER'                                 STOR0224
 MSG4     MSG   'REQUESTED STORAGE COULD NOT BE RELEASED'                STOR0225
 MSG5     MSG   'NOT ENOUGH STORAGE AVAILABLE'                           STOR0226
 MSG6     MSG   'AREA TO BE RELEASED NOT A MULTIPLE OF 8'                STOR0227
 MSG7     MSG   'LIST REQUEST IS NOT SUPPORTED'                          STOR0228
          SPACE                                                          STOR0229
          END                                                            STOR0230
-FILE  54;   349 RECORDS:  
0DDEF     TITLE '                       ROUTINE TO SET UP DD''S'         DDEF0001
          MACRO                                                          DDEF0002
 &NAME    SINK  &LOC                                                     DDEF0003
 &NAME    MVC   &LOC+2(8),DDNAME        MOVE DDNAME                      DDEF0004
          SERCOM$ &LOC                  PRINT A MSG                      DDEF0005
          MEND                                                           DDEF0006
          SPACE 5                                                        DDEF0007
 DDEF#    CSECT                                                          DDEF0008
          USING MHADCB,BR                                                DDEF0009
          USING DDEF#,BASE                                               DDEF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MODTEST  CLC   3(0,RF),0(RC)                                            DDEF0340
 PATCH    DS    10F                                                      DDEF0341
 SA       DS    18F                                                      DDEF0342
          SPACE 2                                                        DDEF0343
 BASE     EQU   10                                                       DDEF0344
 TIOR     EQU   11                                                       DDEF0345
 FLDR     EQU   12                                                       DDEF0346
          PRINT OFF                                                      DDEF0347
          COPY  SAMEQU                                                   DDEF0348
          END                                                            DDEF0349
-FILE  55;   606 RECORDS:  
0OPEN     TITLE '                       SIMULATE QSAM-BSAM OPEN RTN'     OPEN0001
 DMTOPEN  CSECT                                                          OPEN0002
          SPACE                                                          OPEN0003
          ENTRY OPEN#                                                    OPEN0004
 *              OPTION PARAMETER IN HIGH ORDER BITS                      OPEN0005
          SPACE                                                          OPEN0006
 *              BIT 0 - IF ON, THEN IS THE LAST DCB                      OPEN0007
          SPACE                                                          OPEN0008
 LAST     EQU   128                                                      OPEN0009
          SPACE                                                          OPEN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BASE     EQU   8                                                        OPEN0597
 PARMR    EQU   9                                                        OPEN0598
 TIOR     EQU   10                                                       OPEN0599
 DCBR     EQU   11                                                       OPEN0600
 FLDR     EQU   12                                                       OPEN0601
 GDFR     EQU   12                                                       OPEN0602
 NOT      EQU   255                                                      OPEN0603
          SPACE 2                                                        OPEN0604
          COPY  SAMEQU                                                   OPEN0605
          END                                                            OPEN0606
-FILE  56;  1016 RECORDS:  
0ROUT     TITLE '                       LIST OF ROUTINES'                ROUT0001
 DMTROUTE CSECT                                                          ROUT0002
          DC    AL2(GETPUT-DMTROUTE)                                     ROUT0003
          DC    AL2(EOBRTN-DMTROUTE)                                     ROUT0004
          DC    AL2(CNTRL-DMTROUTE)                                      ROUT0005
 GETPUT   DC    AL2(RTNTBL-GETPUT)                                       ROUT0006
          DC    AL2(UNITBL-GETPUT)                                       ROUT0007
 RTNTBL   DC    AL2(GETLOCAT-*)                                          ROUT0008
          DC    AL2(GETLVARR-*)                                          ROUT0009
          DC    AL2(GETMOVER-*)                                          ROUT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DBL      DS    D                                                        ROUT1007
 ASATABLE DC    C' 0-+123456789ABC'                                      ROUT1008
 OPNTABLE DC    X'0B131B038B939BA3ABB3BBC3CBD3DBE309'                    ROUT1009
 TRTABLE  DC    X'09111901899199A1A9B1B9C1C9D1D9E109'                    ROUT1010
          SPACE 3                                                        ROUT1011
 PATCH    DS    20F                                                      ROUT1012
          SPACE 5                                                        ROUT1013
          COPY  SAMEQU                                                   ROUT1014
          SPACE                                                          ROUT1015
          END                                                            ROUT1016
-FILE  57;   125 RECORDS:  
0CLOS     TITLE '                  CLOSING SCHEME'                       CLOS0001
 DMTCLOS  CSECT                                                          CLOS0002
          SPACE                                                          CLOS0003
          ENTRY CLOSE#                                                   CLOS0004
          SPACE                                                          CLOS0005
 *              CLOSE OPTIONS                                            CLOS0006
          SPACE                                                          CLOS0007
 *              BIT 0                                                    CLOS0008
          SPACE                                                          CLOS0009
 LAST     EQU   128                     THE VERY LAST ONE                CLOS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 QQSV     DS    15F                                                      CLOS0116
          COPY  SAMEQU                                                   CLOS0117
 TIOR     EQU   RB                                                       CLOS0118
 FDUBR    EQU   7                                                        CLOS0119
 DCBR     EQU   11                                                       CLOS0120
 BASE     EQU   8                                                        CLOS0121
 PARMR    EQU   3                                                        CLOS0122
 GDFR     EQU   9                                                        CLOS0123
 NOT      EQU   255                                                      CLOS0124
          END                                                            CLOS0125
-FILE  58;   874 RECORDS:  
0LOAD     TITLE '                       DYNAMIC LOADING ROUTINES'        LOAD0001
 DYNAMIC# CSECT                                                          LOAD0002
          SPACE 5                                                        LOAD0003
 *********************************************************************** LOAD0004
          ENTRY LOAD#                                                    LOAD0005
 *********************************************************************** LOAD0006
          SPACE                                                          LOAD0007
          USING LOAD#,15                                                 LOAD0008
 LOAD#    STM   0,14,SAFETY             SAVE CALLER'S REGS               LOAD0009
          MVI   LOADSW,LOAD             WE ARELOADING                    LOAD0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LOADTYPE DS    0BL1                    LOAD TYPE                        LOAD0865
 RTNREG   DS    A                       TO RESTORE REGISTER 14           LOAD0866
 SI       DS    A                       STORAGE INDEX                    LOAD0867
 CPUTIME  DS    F                       CPU TIME TO LOAD                 LOAD0868
 ELTIME   DS    F                       ELAPSED TIME TO LOAD             LOAD0869
 ENDL     DS    0D                                                       LOAD0870
 PTRS     EQU   FOREPTR                                                  LOAD0871
 LOADLTH  EQU   ENDL-LOADLIST           TOTAL AMOUNT OF LOAD LIST        LOAD0872
          SPACE 5                                                        LOAD0873
          END                                                            LOAD0874
-FILE  59;    33 RECORDS:  
0TIMR     TITLE '                       TIME THINGS UP'                  TIMR0001
 TIMER    CSECT                         , HELLO THE TIMER                TIMR0002
          SPACE 2                                                        TIMR0003
          ENTRY STIMER                  START THE TIMER                  TIMR0004
          SPACE 5                                                        TIMR0005
          USING STIMER,15                                                TIMR0006
 STIMER   ST    2,TWO                   SAVE THIS TWO                    TIMR0007
          SVC   38                      CALL MTA'S SUPERVISOR            TIMR0008
          STM   0,2,TIME                SET THE CLOCK                    TIMR0009
          L     2,TWO                   RESTORE THIS TWO                 TIMR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          S     2,TIME+8                GET ELAPSED TIME                 TIMR0024
          LPR   1,2                     POSITIVE TIME, THAT IS           TIMR0025
          L     2,TWO                   RESTOR REG 2                     TIMR0026
          BR    14                      SAY A GOOD-BYE                   TIMR0027
          SPACE 5                                                        TIMR0028
 DAY      DC    A(24*60*60*300)         DAY IN TERMS OF 300THS SECS      TIMR0029
 TWO      DS    F                                                        TIMR0030
 TIME     DS    3F                                                       TIMR0031
          SPACE 5                                                        TIMR0032
          END                                                            TIMR0033
-FILE  60;    18 RECORDS:  
0QUIT     TITLE '                       QUIT ONLY IN BATCH'              QUIT0001
 QUIT$    CSECT                                                          QUIT0002
          USING *,15                                                     QUIT0003
          ST    14,RG14                 SAVE THE RETURN REG              QUIT0004
          L     15,=V(CANREPLY)                                          QUIT0005
          BALR  14,15                   FIGURE WHTHER WE ARE IN BATCH    QUIT0006
          DROP  15                                                       QUIT0007
          USING *,14                                                     QUIT0008
          B     *+4(15)                                                  QUIT0009
          B     NOCALL                                                   QUIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     15,=V(QUIT)             OK QUIT THE USER                 QUIT0011
          BALR  14,15                                                    QUIT0012
 NOCALL   BALR  14,0                    SET COMMON BASE REG              QUIT0013
          USING *,14                                                     QUIT0014
          L     14,RG14                                                  QUIT0015
          BR    14                                                       QUIT0016
 RG14     DS    F                                                        QUIT0017
          END                                                            QUIT0018
-FILE  61;    76 RECORDS:  
0$        TITLE '                   AUXILIARY ROUTINES'                  $0000001
 $        CSECT                                                          $0000002
          SPACE 5                                                        $0000003
          ENTRY SERCOM$,SPRINT$,SPUNCH$                                  $0000004
          ENTRY SCARDS$,GUSER$                                           $0000005
          SPACE 5                                                        $0000006
          USING SERCOM$,15                                               $0000007
 SERCOM$  MVI   MOD+3,X'40'                                              $0000008
          MVC   ROUTE,=V(SERCOM#)                                        $0000009
          B     OUTMSG                                                   $0000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RETURN   DC    F'0'                                                     $0000067
 ROUTE    DC    F'0'                                                     $0000068
 MOD      DC    F'0'                                                     $0000069
 NOTRIM   DC    A(X'4000')                                               $0000070
 INPARM   DC    A(BUFFER,LTH,NOTRIM,QQSV)                                $0000071
 OUTPARM  DC    A(0,LTH,MOD,QQSV)                                        $0000072
 LTH      DC    H'0'                                                     $0000073
 BUFFER   DS    256C                                                     $0000074
          SPACE                                                          $0000075
          END                                                            $0000076
-FILE  62;  1113 RECORDS:  
0%M IEMAA                                                                COMP0001
 %A 10960015                                                             COMP0002
          SPACE                                                          COMP0003
          L     GRA,=V(INESD)           SHOW DEFINED SYMBOLS             COMP0004
          L     LR,=V(ESDLIST)                                           COMP0005
          BALR  RR,LR                                                    COMP0006
          SPACE                                                          COMP0007
          LA    GRA,=C'*PL1DIRECTORY '                                   COMP0008
          L     LR,=V(DIRECTRY)                                          COMP0009
          BALR  RR,LR                                                    COMP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %D 84520015 85280015                                                    COMP1104
 TIME     DS    4F                                                       COMP1105
 %B END                                                                  COMP1106
 %M IEMXB                                                                COMP1107
 %D 35500013 37500013                                                    COMP1108
 CONTIN   MVC   0(2,RC),3(RA)           MOVE IN PHASE NAME               COMP1109
          MVC   3(2,RC),8(RA)       CONCATENATION AND ID                 COMP1110
          MVC   5(4,RC),10(RA)      L# OF 1ST RECORD                     COMP1111
 %B END                                                                  COMP1112
 %E                                                                      COMP1113
-FILE  63;   608 RECORDS:  
0%M IHECLT                                                               PLIB0001
 %AFT 08000017                                                           PLIB0002
          PRINT NOGEN                                                    PLIB0003
 %DEL 09700017                                                           PLIB0004
 %DEL 09900017 10300017                                                  PLIB0005
 %DEL 10500017                                                           PLIB0006
 %DEL 12100017                                                           PLIB0007
 %DEL 19730001 20700017                                                  PLIB0008
 %DEL 23900017                                                           PLIB0009
 %DEL 24000017                                                           PLIB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LM    LR,PR,OFLR(DR)                                           PLIB0599
          BR    LR                                                       PLIB0600
 VSNAP    DC    V(SNAP)            SUBROUTINE TO SNAP USER OUT           PLIB0601
 %B END                                                                  PLIB0602
 %M IHEZZF                                                               PLIB0603
 %A 26300015                                                             PLIB0604
          LTR   RB,RB              HELP PREVENT PROTECTION VIOLATOON     PLIB0605
          BZ    CALLS                                                    PLIB0606
 %B END                                                                  PLIB0607
 %E                                                                      PLIB0608
-FILE  64;   756 RECORDS:  
0ITB      TITLE 'UN-QSAM I/O TRANSMIT ROUTINE FOR PL/I'                  ITB00001
 IHEITB   CSECT                                                          ITB00002
          PRINT NOGEN                                                    ITB00003
          SPACE                                                          ITB00004
          IHELIB                                                         ITB00005
          SPACE                                                          ITB00006
          IHEZAP                                                         ITB00007
          SPACE                                                          ITB00008
          DCBD                                                           ITB00009
          PRINT GEN                                                      ITB00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ERRK     DC    AL2(ERR11)                                               ITB00747
 ERRL     DC    AL2(ERR12)                                               ITB00748
 ERRM     DC    AL2(ERR13)                                               ITB00749
 ERRN     DC    AL2(ERR14)                                               ITB00750
 ERRO     DC    AL2(ERR15)                                               ITB00751
 ERRP     DC    AL2(ERR16)                                               ITB00752
          SPACE                                                          ITB00753
 TENS     DC    H'1000,100,10,1'                                         ITB00754
          LTORG                                                          ITB00755
          END                                                            ITB00756
-FILE  65;    79 RECORDS:  
0KEY      TITLE 'PROGRAM TO DETERMINE NEXTKEY, LASTKEY'                  KEY00001
 IHEKEY   CSECT                                                          KEY00002
          SPACE 1                                                        KEY00003
          PRINT NOGEN                                                    KEY00004
          SPACE                                                          KEY00005
          IHELIB                                                         KEY00006
          SPACE                                                          KEY00007
          IHEZAP                                                         KEY00008
          SPACE                                                          KEY00009
          DCBD                                                           KEY00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     DR,OFDR(DR)                                              KEY00070
          LM    LR,WR,OFLR(DR)     AND RETURN TO THE                     KEY00071
          BR    LR                 CALLER                                KEY00072
 NULL     LA    RA,WHAZZIT                                               KEY00073
          B     SETPTR                                                   KEY00074
          SPACE 3                                                        KEY00075
 VNOTE    DC    V(NOTE#)                                                 KEY00076
 WHAZZIT  DC    F'-1'              ALL BITS ON                           KEY00077
          SPACE                                                          KEY00078
          END                                                            KEY00079
-FILE  66;     4 RECORDS:  
0INESD CSECT                                                             INSD0001
  ESDLIST CLOSE#,DDEF#,DELETE,ERROR#,FREESPAC,LOAD#,NOTE#,OPEN#,POINT#, XINSD0002
                REGMAIN,SCANSTOR,SERCOM$,SETIOERR,SPIE,STDDMP            INSD0003
  END                                                                    INSD0004
-FILE  67;    21 RECORDS:  
0BAT      TITLE 'BATCH (CANREPLY) FOR PL/I USERS'                        BAT00001
 BATCH    CSECT                                                          BAT00002
          USING *,15                                                     BAT00003
          STM   14,2,SAVE          SAVE FEW REGS                         BAT00004
          L     15,=V(CANREPLY)                                          BAT00005
          BALR  14,15                                                    BAT00006
          USING *,14                                                     BAT00007
          DROP  15                                                       BAT00008
          STC   15,BIT             SET BIT IN THE BYTE                   BAT00009
          L     2,0(0,1)           THE REPLY SDV                         BAT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     15,=V(IHEBSKA)     LET IT ASSIGN                         BAT00012
          BALR  14,15                                                    BAT00013
          USING *,14                                                     BAT00014
          LM    14,2,SAVE          RESTORE EVERYTHING                    BAT00015
          BR    14                 RETURN                                BAT00016
 BIT      DC    X'0'                                                     BAT00017
 SAVE     DC    5F'0'                                                    BAT00018
 BITSDV   DC    BL1'10100000',AL3(BIT),H'1,1'                            BAT00019
          LTORG                                                          BAT00020
          END                                                            BAT00021
-FILE  68;    25 RECORDS:  
0CPUT     TITLE 'INDICATE CPU TIME FOR PL/I'                             CPUT0001
 CPUTIME  CSECT                                                          CPUT0002
 * DCL CPUTIME ENTRY RETURNS (FLOAT BIN); /*IN SECS*/                    CPUT0003
 IHEQTIM  DXD   3F                                                       CPUT0004
          USING *,15               BASE REG ALL THE WAY DOWN             CPUT0005
          STM   1,2,SAVE           SAVE PRECIOUS REGISTERS               CPUT0006
          SVC   38                 GET SUPERVISOR BUSY...                CPUT0007
          AR    1,0                ADD BOTH TIME                         CPUT0008
          IHEPRV TIM,2,OP=LA                                             CPUT0009
          S     1,0(,2)                                                  CPUT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     1,0(,1)                                                  CPUT0016
          STE   0,0(,1)                                                  CPUT0017
          LM    1,2,SAVE           RESTORE REGS                          CPUT0018
          BR    14                                                       CPUT0019
          DS    0D                                                       CPUT0020
 DBLE     DC    X'4E00000000000000'                                      CPUT0021
 SAVE     DC    2F'0'              ON DBL FOR SPEED                      CPUT0022
 TIMER    DC    D'13.02083333E-6'  13-1/48 MICROSECS                     CPUT0023
 PR       EQU   12                                                       CPUT0024
          END                                                            CPUT0025
-FILE  69;    28 RECORDS:  
0ELPS     TITLE 'INDICATE ELAPSED TIME FOR PL/I'                         ELPS0001
 ELAPSED  CSECT                                                          ELPS0002
 * DCL ELAPSED ENTRY RETURNS (FLOAT BIN);                                ELPS0003
 IHEQTIM  DXD   3F                                                       ELPS0004
 PR       EQU   12                                                       ELPS0005
          USING *,15                                                     ELPS0006
          STM   1,2,SAVE                                                 ELPS0007
          SVC   38                                                       ELPS0008
          IHEPRV TIM,1,OP=LA                                             ELPS0009
          L     0,8(,1)                                                  ELPS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     1,0(,1)                                                  ELPS0019
          STE   0,0(,1)                                                  ELPS0020
          LM    1,2,SAVE                                                 ELPS0021
          BR    14                                                       ELPS0022
          DS    0D                                                       ELPS0023
 DBLE     DC    X'4E00000000000000'                                      ELPS0024
 SAVE     DC    2F'0'                                                    ELPS0025
 TIMER    DC    D'.003333333333333333333' 1/300                          ELPS0026
 DAY      DC    A(24*360*300)                                            ELPS0027
          END                                                            ELPS0028
-FILE  70;    38 RECORDS:  
0RAND     TITLE 'FAST RANDOM GENERATOR'                                  RAND0001
 RAND     CSECT                                                          RAND0002
          LM    0,1,0(1)                                                 RAND0003
          STM   0,1,24(13)                                               RAND0004
          LR    1,0                                                      RAND0005
          BALR  15,0                                                     RAND0006
          USING *,15                                                     RAND0007
          ST    15,MASK                                                  RAND0008
          ST    1,TEMP                                                   RAND0009
          SR    1,1                                                      RAND0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPM   1                                                        RAND0029
          BR    14                                                       RAND0030
 OVF      SLL   0,1                                                      RAND0031
          SRL   0,1                                                      RAND0032
          A     0,=F'1'                                                  RAND0033
          B     CONT                                                     RAND0034
 MASK     DC    F'0'                                                     RAND0035
 TEMP     DS    D                                                        RAND0036
          LTORG                                                          RAND0037
          END                                                            RAND0038
-FILE  71;    36 RECORDS:  
0ATCH TITLE 'TO ASSOCIATE A PL/I FILE VARIABLE WITH AN FDNAME'           ATCH0001
 ATTACH CSECT                                                            ATCH0002
  PRINT NOGEN                                                            ATCH0003
  IHELIB                                                                 ATCH0004
  SPACE                                                                  ATCH0005
 ATTACH CSECT                                                            ATCH0006
  STM LR,WR,OFLR(DR)                                                     ATCH0007
  IHESDR LW1,WR                                                          ATCH0008
  BALR WR,0                                                              ATCH0009
  USING *,WR                                                             ATCH0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  L BR,=V(DDEF#)                                                         ATCH0027
  BALR LR,BR                                                             ATCH0028
  SR R0,R0                                                               ATCH0029
  L BR,=V(FREESPAC)                                                      ATCH0030
  BALR LR,BR                                                             ATCH0031
 RET L DR,OFDR(DR)                                                       ATCH0032
  LM LR,WR,OFLR(DR)                                                      ATCH0033
  BR LR                                                                  ATCH0034
 MOVE MVC 2(0,RA),0(RB)                                                  ATCH0035
  END                                                                    ATCH0036
-FILE  72;    78 RECORDS:  
0DSP      TITLE '   IHEDSP  DISPLAY                                     XDSP00001
                MTS PL/I LIBRARY'                                        DSP00002
 IHEDSP   CSECT                                                          DSP00003
          IHELIB                                                         DSP00004
 IHEDSP   CSECT                                                          DSP00005
          ENTRY IHEDSPA                                                  DSP00006
 IHEDSPA  STM   LR,PWR,OFLR(DR)                                          DSP00007
          IHESDR LW0                    GET SAVE AREA                    DSP00008
          BALR  PWR,0                   ESTABLISH ADDRESSIBILITY         DSP00009
          USING *,PWR                                                    DSP00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 H100     DC    H'100'                                                   DSP00069
 VERRC    DC    V(IHEERRC)              CATATASTROPHIC ERROR MSG         DSP00070
          SPACE 5                                                        DSP00071
 ADDR     EQU   0                       SOME LOCAL EQUATES               DSP00072
 CURL     EQU   6                                                        DSP00073
 MAXL     EQU   4                                                        DSP00074
 MEOL     EQU   128                                                      DSP00075
 PWR      EQU   WR                                                       DSP00076
          SPACE 5                                                        DSP00077
          END                                                            DSP00078
-FILE  73;     9 RECORDS:  
0MAIN     TITLE '                       IN CASE OF ABSENCE OF IHEMAIN'   MAIN0001
 IHEMAIN  CSECT                                                          MAIN0002
          DC    A(*+4)                                                   MAIN0003
          BALR  10,0                    SET TEMPORARY BASE REGISTER      MAIN0004
          USING *,10                                                     MAIN0005
          SERCOM$ 'IHE006I - NO MAIN PROCEDURE'                          MAIN0006
          L     15,=V(SYSTEM#)                                           MAIN0007
          BALR  14,15                                                    MAIN0008
          END                                                            MAIN0009
-FILE  74;    15 RECORDS:  
0OSI      TITLE ' DELAY STATEMENT IN MTS'                                OSI00001
          SPACE                                                          OSI00002
 IHEOSI   CSECT                                                          OSI00003
          SPACE                                                          OSI00004
          ENTRY IHEOSIA                                                  OSI00005
          SPACE                                                          OSI00006
          USING *,15                                                     OSI00007
 IHEOSIA  L     1,0(0,1)           GET MILLISECONDS                      OSI00008
          M     0,=F'3'            THEN TRANSLATE THIS                   OSI00009
          D     0,=F'10'           INTO 300THS OF SECONDS                OSI00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LTR   0,1                TEST RESULT                           OSI00011
          BCR   12,14              BRANCH IF NOT POSITIVE                OSI00012
          SVC   128                TWAYT SVC CALL                        OSI00013
          BR    14                 DAS IST ALLES.                        OSI00014
          END                                                            OSI00015
-FILE  75;    28 RECORDS:  
0OST      TITLE '  IHEOST     TIME ROUTINE                              XOST00001
                MTS PL/I LIBRARY'                                        OST00002
 IHEOST   CSECT                                                          OST00003
          IHELIB                                                         OST00004
 IHEOST   CSECT                                                          OST00005
          SPACE 2                                                        OST00006
          ENTRY IHEOSTA,IHEOSDA                                          OST00007
          SPACE 2                                                        OST00008
 IHEOSTA  NOPR  0                       TIME ROUTINE                     OST00009
 IHEOSDA  STM   LR,RF,OFLR(DR)          DATE ROUTINE                     OST00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BZ    TIME                                                     OST00019
          STM   RB,RC,72(DR)            SHOW DATE                        OST00020
 TIME     L     RD,0(0,RD)                                               OST00021
          L     RD,0(0,RD)                                               OST00022
          MVC   0(8,RD),72(DR)          THAT'S ALL                       OST00023
          L     DR,OFDR(0,DR)                                            OST00024
          LM    LR,RF,OFLR(DR)                                           OST00025
          BR    LR                                                       OST00026
          SPACE 5                                                        OST00027
          END                                                            OST00028
-FILE  76;   222 RECORDS:  
0RDWT     TITLE '                       READ/WRITE RTNS FOR PL/I'        RDWT0001
 *                                                                       RDWT0002
 *        DECLARATION FOR IHEREAD, IHERITE                               RDWT0003
 *                                                                       RDWT0004
 *        DECLARE IHEREAD ENTRY ( /*CHAR(*) VARYING*/, /*BUFFER*/        RDWT0005
 *                                      BIT (32), /* MODIFIER */         RDWT0006
 *                                      DEC FIXED (9,3), /*LINE NUMBER*/ RDWT0007
 *                                      FILE /*FILENAME */)              RDWT0008
 *                                                                       RDWT0009
 READRITE CSECT                                                          RDWT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          RDWT0213
 ENDFIL   DC    X'B800'                 ERROR CODE FOR ENDFILE           RDWT0214
 TOOBIG   DC    X'9001'                 RECORD TOO LARGE                 RDWT0215
 OUTPTERR DC    X'9801'                 ERROR CODE FOR OUTPUT I/O ERROR  RDWT0216
 INPUTERR DC    X'9802'                 ERROR CODE FOR INPUT I/O ERROR   RDWT0217
 UNSUPD   DC    X'0009'                 UNSUPPORTED FILE OPERATION       RDWT0218
 BADRD    DC    X'0000'                 ATTEMPT TO READ OUTPUT FILE      RDWT0219
 BADWT    DC    X'0001'                 ATTEMPT TO WRITE INPUT FILE      RDWT0220
          SPACE                                                          RDWT0221
          END                                                            RDWT0222
-FILE  77;    10 RECORDS:  
0OFF      TITLE 'TO SIGN OFF THE USER'                                   OFF00001
 SIGNOFF  CSECT                                                          OFF00002
          USING *,15                                                     OFF00003
          L     15,=V(QUIT)        QUIT                                  OFF00004
          BALR  14,15                                                    OFF00005
          DROP  15                                                       OFF00006
          USING *,14                                                     OFF00007
          L     15,=V(IHEOSSA)     RAISE FINISH AND TERMINATE            OFF00008
          BALR  14,15                                                    OFF00009
          END                                                            OFF00010
-FILE  78;    35 RECORDS:  
0EASY     TITLE '   SYSERR   SYSTEM/ERROR ROUTINES                      *SERR0001
                MTS PL/I LIBRARY'                                        SERR0002
 SYSERR   CSECT                                                          SERR0003
          ENTRY ERROR,SYSTEM                                             SERR0004
          IHELIB                                                         SERR0005
          IHEZAP                                                         SERR0006
          SPACE 1                                                        SERR0007
 SYSERR   CSECT                                                          SERR0008
          SPACE 1                                                        SERR0009
 ERROR    NOPR  0                       PSEUDO-ERROR IS CALLED           SERR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BO    AROUND                  YES, BRANCH AROUND               SERR0026
 ERRAGN   L     BR,VERROR               THEN USE ERROR                   SERR0027
 AROUND   BALR  LR,BR                   SAY A GOOD-BYE                   SERR0028
          B     ERRAGN                  A RESTART WILL ONLY RECALL       SERR0029
          SPACE 2                                                        SERR0030
 OCLD     DC    V(IHEOCLD)              IMPLICIT CLOSE ROUTINE           SERR0031
 VERROR   DC    V(ERROR#)               MTS ERROR ROUTINE                SERR0032
 VSYSTEM  DC    V(SYSTEM#)              MTS SYSTEM ROUTINE               SERR0033
          SPACE 5                                                        SERR0034
          END                                                            SERR0035
-FILE  79;    21 RECORDS:  
0GTID     TITLE 'USERID FOR PL/I USERS'                                  GTID0001
 USERID   CSECT                                                          GTID0002
          USING *,15                                                     GTID0003
          L     15,=V(GUSERID)     ANOTHER NAME                          GTID0004
          BALR  14,15                                                    GTID0005
          DROP  15                 NO LONGER USING                       GTID0006
          USING *,14                                                     GTID0007
          ST    1,USERID#          ANSWER IN REG 1 DAMNIT                GTID0008
          L     1,SAVE+3*4         RESTORE REG 1                         GTID0009
          L     2,0(,1)            SHOW SUBRTN THE TARGET SDV            GTID0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     15,=V(IHECSMF)                                           GTID0012
          BALR  14,15                                                    GTID0013
          USING *,14                                                     GTID0014
          LM    14,2,SAVE                                                GTID0015
          BR    14                 RETURN                                GTID0016
 SAVE     DC    5F'0'                                                    GTID0017
 USERID#  DC    F'0'                                                     GTID0018
 USERSDV  DC    A(USERID#),H'4,4'                                        GTID0019
          LTORG                                                          GTID0020
          END                                                            GTID0021
-FILE  80;    95 RECORDS:  
0SNAP     TITLE '                  SUBROUTINE TO SNAP'                   SNAP0001
 SNAP     CSECT                                                          SNAP0002
          USING SNAP,10                                                  SNAP0003
          STM   14,12,12(13)                                             SNAP0004
          LR    10,15                                                    SNAP0005
          LA    15,SA$1                                                  SNAP0006
          ST    15,8(0,13)                                               SNAP0007
          ST    13,4(0,15)                                               SNAP0008
          LR    13,15                                                    SNAP0009
          ST    1,DCB              ADDR OF DCB                           SNAP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GARBAGE  DS    100F               HECK                                  SNAP0086
          SPACE                                                          SNAP0087
 SA$1     DS    18F                                                      SNAP0088
 SA$2     DS    18F                                                      SNAP0089
 SA$3     DS    18F                                                      SNAP0090
 DCB      DS    F                                                        SNAP0091
 L#       DS    H                                                        SNAP0092
 H060     DC    H'60'                                                    SNAP0093
          DCBD                                                           SNAP0094
          END                                                            SNAP0095
-FILE  81;   109 RECORDS:  
0         MACRO                                                          AF000001
          PL1   &DESIGN=F,&PUNCH=NODECK,&TYPERUN=LOAD,&SORCODE=EBCDIC,  XAF000002
                &SIZE=73728,&OBJLIST=NOLIST,&MSGLEV=FLAGW,&OPT=1,       XAF000003
                &SORLIST=SOURCE,&CHARSET=CHAR60,&EXTLIST=NOEXTREF,      XAF000004
                &ATRLIST=NOATR,&SORMGIN=(2,72),&LINECNT=50,&PAGECTL=0,  XAF000005
                &CMPTIME=NOMACRO,&MACLIST=SOURCE2,&COMPILE=COMP,        XAF000006
                &STMDIAG=STMT,&MCPUNCH=NOMACDECK,&DICTYPE=NOEXTDIC,     XAF000007
                &OPPRINT=OP,&LEVCNT=NONEST,&MODEL=67,&LIBRARY=REAL,     XAF000008
                &REFLIST=NOXREF,&DELETE=,&VERSION=4,&DATE=11/15/68       AF000009
          LCLA  &V,&S1                                                   AF000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SORMGINS DC    F'&SS'                                                   AF000100
 SORMGINE DC    F'&SE'                                                   AF000101
 PAGECTL  DC    F'&P'                                                    AF000102
          DS    2F SPARE                                                 AF000103
          DC    CL8'&DATE'                                               AF000104
          MEND                                                           AF000105
 IEMAF    START                                                          AF000106
  PL1 PUNCH=DECK,TYPERUN=NOLOAD,LINECNT=60,LEVCNT=NEST,DATE=03/09/70,   XAF000107
                SIZE=40960,SORMGIN=(1,72),ATRLIST=ATR,REFLIST=XREF       AF000108
  END                                                                    AF000109
-FILE  82;   187 RECORDS:  
0      /*    PROGRAM TO DO SOMETHING FOR IEBUPDAT AND IEBUPDTE INPUT */  UPTE0001
                                                                         UPTE0002
 UPDATE:     PROCEDURE OPTIONS(MAIN);                                    UPTE0003
       DCL                                                               UPTE0004
             SPRINT FILE PRINT,                                          UPTE0005
             INTAPE INPUT FILE RECORD ENV(LEAVE),                        UPTE0006
             OUTTAPE OUTPUT FILE RECORD ENV(LEAVE),                      UPTE0007
             SCARDS FILE INPUT RECORD,                                   UPTE0008
             (BUFFER,WHAT,FIELD,DUMMY,BAFF) CHAR(80) VAR,                UPTE0009
             (FRSTNR,LASTNR,MEMBR,NAME) CHAR(8),                         UPTE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
             FIELD = BREAK(BAFF);                                        UPTE0178
             I=INDEX(FIELD,'NAME=');                                     UPTE0179
             IF I=0 THEN FIELD=SUBSTR(FIELD,I+5);                       UPTE0180
             I = INDEX(FIELD,',');                                       UPTE0181
             IF I=0 THEN I=LENGTH(FIELD)+1;                              UPTE0182
             NAME = SUBSTR(FIELD,1,I-1);                                 UPTE0183
             RETURN;                                                     UPTE0184
             END;                                                        UPTE0185
                                                                         UPTE0186
                                        END UPDATE;                      UPTE0187
-FILE  83;  1050 RECORDS:  
0GLIB     TITLE '                       GENERATE A LOAD LIBRARY'         GLIB0001
          MACRO                                                          GLIB0002
 &A       PUNT  &B,&C                                                    GLIB0003
          LCLC  &D,&E                                                    GLIB0004
 &D       SETC  '&B'                                                     GLIB0005
 &E       SETC  'L'''                                                    GLIB0006
 &A       LA    1,&B                                                     GLIB0007
          AIF   (T'&C EQ 'O').DF                                         GLIB0008
          LA    0,&C                                                     GLIB0009
          AGO   .SPUNT                                                   GLIB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BACKPTR  EQU   4                                                        GLIB1041
 NAME     EQU   8                                                        GLIB1042
 LIBPTR   EQU   16                                                       GLIB1043
 NXTPTR   EQU   20                                                       GLIB1044
 ERPTR    EQU   24                                                       GLIB1045
 NXTLIB   EQU   24                                                       GLIB1046
 REFCNT   EQU   28                                                       GLIB1047
 LIBSEQ   EQU   30                                                       GLIB1048
          SPACE 5                                                        GLIB1049
          END                                                            GLIB1050
-FILE  84;   400 RECORDS:  
0OBJ      TITLE 'OBJSCAN'                                                SCAN0001
 *DATE: 3-28-68                                                          SCAN0002
 *        REVISED 11-17-69                                               SCAN0003
          SPACE 2                                                        SCAN0004
          MACRO                                                          SCAN0005
 &LABE    SERCOM &LIST                                                   SCAN0006
 &LABE    L     15,=V(SERCOM)                                            SCAN0007
          LA    1,&LIST                                                  SCAN0008
          BASR  14,15                                                    SCAN0009
          MEND                                                           SCAN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    A(MODC)                                                  SCAN0391
 LLNQ     DC    H'0'                                                     SCAN0392
 ALINE    DC    A(BUFFER)                                                SCAN0393
 BUFFER   DS    72C                                                      SCAN0394
 MOVEPAR  MVC   FILLN(0),2(1)                                            SCAN0395
 MOVE     MVC   1(0,1),ONCE                                              SCAN0396
 MOVECHRS MVC   0(0,6),0(1)                                              SCAN0397
 COM1S    DC    C'-**** FILE '                                           SCAN0398
 FILLN    DS    CL256' '                                                 SCAN0399
          END                                                            SCAN0400
-FILE  85;    52 RECORDS:  
0 BALR 10,0                                                              SETS0001
 * THIS ROUTINE SETUPS *PL1DIRECTORY                                     SETS0002
 * SCANS FILE ASKED FOR                                                  SETS0003
 * WRITES OUT *PL1DIRECTORY ON UNIT 1                                    SETS0004
  USING *,10                                                             SETS0005
  LA 13,SA                                                               SETS0006
  SPACE 1                                                                SETS0007
  SCARDS FILENAME,EXIT=SYS                                               SETS0008
    LA 1,FILENAME                                                        SETS0009
    CALL GETFD                                                           SETS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  SPACE                                                                  SETS0043
 SW DC X'0'                                                              SETS0044
 BLANKS DC CL8' ' PRIVATE SECTION                                        SETS0045
  DS 0F                                                                  SETS0046
 OUT DS CL8                                                              SETS0047
 INFO DS 4F                                                              SETS0048
 SA DS 18F                                                               SETS0049
  LTORG                                                                  SETS0050
 REG DS 1024F                                                            SETS0051
  END                                                                    SETS0052
-FILE  86;    52 RECORDS:  
0TABS     TITLE '                       TRANSLATE TABLE FOR COMPILER'    TABS0001
 TABLES   CSECT                                                          TABS0002
          ENTRY INTAB,EXTAB                                              TABS0003
 *                       TRANSLATE TABLES                                TABS0004
 *                                                                       TABS0005
 *              THESE ARE USED TO TRANSLATE EXTERNAL CODES (WHICH MAY    TABS0006
 *        VARY EG. EBCDIC,BCD) INTO A FIXED FORMAT INTERNAL CODE. THE    TABS0007
 *        REVERSE TABLE IS ALSO INCLUDED. THE TABLE ACTUALLY USED DEPEND TABS0008
 *        S UPON THE OPTION SPECIFIED AT INVOCATION TIME. IF BCD IS      TABS0009
 *        SPECIFIED THEN THE BELOW TABLES ARE OVERWRITTEN BY AB. THE BCD TABS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    XL16'70717260744E7661785C11201012137F'                   TABS0043
          DC    XL16'808182838485868788898A8B8C8D8E8F'                   TABS0044
          DC    XL16'909192939495969798999A9B9C9D9E9F'                   TABS0045
          DC    XL16'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'                   TABS0046
          DC    XL16'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'                   TABS0047
          DC    XL16'C0141516171819212223CACBCCCDCECF'                   TABS0048
          DC    XL16'D0242526272829323334DADBDCDDDEDF'                   TABS0049
          DC    XL16'E0E13536373839414243EAEBECEDEE5E'                   TABS0050
          DC    XL16'4546484A0773757779EFFAFBFCFDFEFF'                   TABS0051
          END                                                            TABS0052
-FILE  87;   616 RECORDS:  
0CSI#     TITLE 'SEQUENTIAL OBJECT MODULE SQUASHING GENERATOR'           CSI00001
 *                                                                       CSI00002
 *              THINGS TO DO                                             CSI00003
 *                                                                       CSI00004
 *              REMOVE UNNECESSARY PR'S                                  CSI00005
 *              OVERLAY TEXT DATA (CAUSED BY AN ORG *-2)                 CSI00006
 *              NOTHING TO WORRY ON DS (ALL RTNS ARE REENTERABLE)        CSI00007
 *              CONSIDERS REP AND DEF CARDS                              CSI00008
 *                                                                       CSI00009
 DIET     CSECT                                                          CSI00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FAC      DS    F                                                        CSI00607
 ESDTBLE  DS    3F                                                       CSI00608
 IDTBLE   DS    100H                                                     CSI00609
 SDTBLE   DS    50F                                                      CSI00610
 RLDTBLE  DS    3F                                                       CSI00611
 HEXSW    DC    X'0'                    SWITCH FOR ODD/EVEN TEST         CSI00612
 LTHSAVE  EQU   *-SAVE                                                   CSI00613
          EJECT                                                          CSI00614
          DCBD  DSORG=(PS)                                               CSI00615
          END                                                            CSI00616
-FILE  88;   200 RECORDS:  
0TEXT     TITLE '                       EXTRACT TEXT RECORDS'            TEXT0001
 *********************************************************************** TEXT0002
 *********************************************************************** TEXT0003
 *        0 -   OS UNLOADED VERSION ON TAPE BLOCKED (800)                TEXT0004
          SPACE 2                                                        TEXT0005
 *        1     TEXT RECORDS ONLY -- AS MUCH AS TWO PAGES LONG           TEXT0006
          SPACE 2                                                        TEXT0007
 *        2 -   THE REST OF PDS USERDATA, CESD DATA, RLD DATA (LINE FIL) TEXT0008
          SPACE 2                                                        TEXT0009
 *********************************************************************** TEXT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LTH1BLK  DS    2X                                                       TEXT0191
 EP       DS    3X                                                       TEXT0192
 ORG1TBLK DS    3X                                                       TEXT0193
 PDSLOAD  CSECT                                                          TEXT0194
 TEXTCOMG DC    X'0'                                                     TEXT0195
 JUNK     DS    18F                                                      TEXT0196
          DS    0D                                                       TEXT0197
 BLOCK    DS    CL1030                                                   TEXT0198
 RECORD   EQU   BLOCK+6                                                  TEXT0199
          END                                                            TEXT0200
-FILE  89;   754 RECORDS:  
0PDS      TITLE ' ROUTINE TO PUNCH/PRINT A PDS'                          LINK0001
 *********************************************************************** LINK0002
 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* LINK0003
 *        VITAL MESSAGES FROM THE DIRECTORY RECORD FOR LOAD MODS.        LINK0004
 PDSDSECT DSECT                                                          LINK0005
 LTH      DS    H                  LENGTH OF DIR. RECORD                 LINK0006
 IND1     DS    X                  INDICATOR - WHAT KIND OF RECORD       LINK0007
 TTR      DS    3X                 TTR                                   LINK0008
 NAME     DS    CL8                NAME                                  LINK0009
 FSTBLK   DS    3X                 TTR OF FST BLK                        LINK0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          LINK0745
 ID#TBL   DC    75H'0'                                                   LINK0746
          SPACE 5                                                        LINK0747
 PATCH    DS    20F                                                      LINK0748
          LTORG                                                          LINK0749
 TXTESDID DC    H'0'                                                     LINK0750
 TXTBLKAD DC    A(0)                                                     LINK0751
 TXTBLKLG DC    H'0'                                                     LINK0752
 TXTBLK   DS    XL1024                                                   LINK0753
          END   PDSPNCH#                                                 LINK0754
-FILE  90;  8157 RECORDS:  
0$COM ---THIS IS THE MTS UPDATE DECK FOR WATERLOO G-ASSEMBLER                    
 $RUN *MOUNT                                                                     
 S151 9TP *ASMG*  'ASMG MASTER SOURCE'                                           
 S416 9TP *POOL* RING=IN 'LP UPDATE'                                             
 $ENDFILE                                                                        
 $EMP ASMGSET                                                                    
 $EMP ASMGMACROS                                                                 
 $CRE -SYSUT1 SIZE=10P                                                           
 $RUN *UPDATE                                                                    
 %REW *POOL*                                                                     
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $DES -DICT                                                                      
 $EMP NEWASMG                                                                    
 $R *ASMG SCARDS=*POOL* SPRINT=*LIST* 0=*SYSMAC 2=ASMGMACROS SPUNCH=NEWASMG PAR=-
 FX,RD,B,SIZE=200,IBLK=40,OBLK=40                                                
 $R *DISMOUNT PAR=*LIST*                                                         
 $LI ASMGMACROS                                                                  
 $RUN *OBJSCAN                                                                   
 NEWASMG                                                                         
 *ASMG                                                                           
 *ASMBLR                                                                         
-FILE  91;  2597 RECORDS:  
0$RUN *MOUNT                                                                     
 S475 9TP *WATFOR* 'WATFOR MASTER SOURCE'                                        
 S416 9TP *POOL* RING=IN MODE=1600 'LP-UPDATE'                                   
 $ENDFILE                                                                        
 $EMP NEWATFOR                                                                   
 $EMP CDEFN                                                                      
 $EMP COMMR                                                                      
 $EMP STARTA                                                                     
 $EMP WATMAC                                                                     
 $EMP WATERR                                                                     
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $COP *SOURCE* NEWATFOR(LAST+1)                                                  
  LCS            LCSYMBOL                                                        
  LDT            XTART                                                           
 $ENDFILE                                                                        
 $LIST WATMAC                                                                    
 $LIS WATERR                                                                     
 $R DIAGS SCARDS=WATERR 0=WATGRIPES                                              
 $RUN *OBJSCAN                                                                   
 NEWATFOR                                                                        
 *SWAT                                                                           
-FILE  92;  1392 RECORDS:  
0$EMPTY STARTA                                                                   
 $EMPTY STARTB                                                                   
 $EMPTY COMMR                                                                    
 $EMPTY SYS                                                                      
 $EMPTY ACCT                                                                     
 $EMPTY EXTRN                                                                    
 $EMPTY ERRTEXTS                                                                 
 $EMPTY CDEFN                                                                    
 $EMPTY OPTIONS                                                                  
 $EMPTY -MAC                                                                     
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 L=121 'WAT5 LISTING'                                                            
 $RUN *ASMG SCARDS=*POOL* SPUNCH=WAT5.OBJECT 0=*SYSMAC 2=WAT5.MACLIB 3=WAT5.FUNMA
 C SPRINT=*LIST* PAR=B,FX,T,IBLK=50,OBLK=50,SIZE=25,ERR                          
 $RUN *DISMOUNT PAR=*POOL*                                                       
 $RUN *ASMG SCARDS=WAT5.FIOCS+WAT5.DIOCS SPUNCH=WAT5.OBJECT(LAST+1) SPRINT=*LIST*
  0=*SYSMAC 2=WAT5.MACLIB 3=WAT5.FUNMAC PAR=B,FX,T,OBLK=50,SIZE=25,ERR           
 $CONTROL *LIST* WTM                                                             
 $CONTROL *LIST* REW                                                             
 $RUN *OBJSCAN PAR=WAT5.OBJECT                                                   
 $RUN *LIST SPRINT=*SINK*@MCC PAR=*LIST* 50                                      
-FILE  93;   786 RECORDS:  
0FIOS     TITLE 'MTS WATFOR VERSION OF MTS FORTRAN'S IHCFIOSH'           FIOC0001
          COPY  OPTIONS                                                  FIOC0002
 IHCFIOSH CSECT                                                          FIOC0003
          ENTRY FIOCS#                                                   FIOC0004
          EXTRN IHCUATBL                                                 FIOC0005
 *              ***** REGISTER ASSIGNMENTS *****                         FIOC0006
 R        EQU   0                                                        FIOC0007
 L        EQU   1                                                        FIOC0008
 GRX      EQU   2                                                        FIOC0009
 R2       EQU   2                                                        FIOC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 UATELEN  DC    H'5'           HALFWORD SHIFT                            FIOC0777
 MTSDSRN  DC    H'&NOUTILS'           MAX DSRN IN MTS WATFOR             FIOC0778
 DAFDSRN  DC    H'0'           MAX DAF... DSRN                           FIOC0779
 PARTREC  DC    H'255'         FILE RECORD LENGTH                        FIOC0780
 &I       SETA  0                  GENERATE UAT ENTRIES                  FIOC0781
 .UAL     ANOP                                                           FIOC0782
 UA&I     DC    F'&I,0',V(READ#,WRITE#),F'0',H'80,133',F'0',A(BUFFER)    FIOC0783
 &I       SETA  &I+1                                                     FIOC0784
          AIF   (&I LE &NOUTILS).UAL                                     FIOC0785
          END                                                            FIOC0786
-FILE  94;    71 RECORDS:  
0********************************************************************    DIOC0001
 ****************WATFIV  DIOCS#  DIRECT ACCESS I/O****************       DIOC0002
 *   THIS CODE PROVIDES THE LINK  BETWEEN WATIO AND FIOCS, WHICH         DIOC0003
 * ACTUALLY PERFORMS THE I/O OPERATIONS                                  DIOC0004
 **   THE CALLING SEQUENCE IS AS FOLLOWS:                                DIOC0005
 *             L       1,AIBCENTRY                                       DIOC0006
 *             BALR    0,1                                               DIOC0007
 *             DC      AL1(ENTRY)                                        DIOC0008
 *             DC      AL1(IOCODE)                                       DIOC0009
 *     WHERE:                                                            DIOC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ST    2,SAVE+4         SAVE REG 2 TEMPORARILY                  DIOC0062
          L     GRX,SAVE+8       GET POINTER TO DSRN                     DIOC0063
          NI    0(GRX),X'FF'-INDEX   TURN OFF INDEX BIT                  DIOC0064
          L     2,SAVE+4         RESTORE REG 2                           DIOC0065
          L     1,SAVE        GET ORIGINAL R0 INTO R1                    DIOC0066
          B     6(0,1)               RETURN TO CALLING PROGRAM           DIOC0067
 SAVE     DS    3F                                                       DIOC0068
 INDEX    EQU   X'80'                                                    DIOC0069
 GRX      EQU   2                                                        DIOC0070
          END                                                            DIOC0071
-FILE  95;   214 RECORDS:  
0$COMPILE                                                                        
 C***** TEST DECK 1 *****                                                        
 C     TEST DO,IF,GOTO,PRINT,ETC.                                                
       DO 10 J=1,10                                                              
       A=J*J                                                                     
       IF(J .GT. 8) GOTO 20                                                      
    10 PRINT,J,A                                                                 
    20 STOP                                                                      
       END                                                                       
 $DATA                                                                           
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RECORD 1                                                                        
 RECORD 2                                                                        
 RECORD 3                                                                        
 RECORD 4                                                                        
 RECORD 5                                                                        
 RECORD 6                                                                        
 RECORD 7                                                                        
 RECORD 8                                                                        
 RECORD 9                                                                        
 RECORD 10                                                                       
-FILE  96;   119 RECORDS:  
0      SUBROUTINE SYSTEM                                                         
       STOP                                                                      
       END                                                                       
 $TERM                                                                           
       SUBROUTINE RKSUB(M,Y,F,P,Q,DERIV,T,DT)                                    
       DIMENSION Y(1),F(1),P(4),Q(4)                                             
       CALL DERIV(Y,F,T)                                                         
       DO 10 I=1,M                                                               
       P(I)=F(I)                                                                 
       Q(I)=Y(I)                                                                 
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       END;SUBROUTINEPUNCH;CHARACTEROUT72*72,OUT(72),BLANK/Z40/;EQUIVALEN        
      *CE(OUT72,OUT);COMMON/UNPKPN/NOUT,JSEQ,IO,OUT72                            
 C                                                                               
       PRINT10,OUT72,JSEQ;WRITE(NOUT,11)OUT72,JSEQ                               
 C                                                                               
       JSEQ=JSEQ+1;IO=7;OUT72=BLANK;RETURN;10:FORMAT(' ',A72,'00000000',T        
      *74,I4)                                                                    
 11    FORMAT(A72,'00000000',T73,I4)                                             
       END                                                                       
 $TERM                                                                           
-FILE  97;  1072 RECORDS:  
0%BEFORE  '00080014'                                                             
 IEKA     TITLE 'MTS FORTRAN H COMPILER - FORTRAN SYSTEM DIRECTOR'               
 IEKAA00  CSECT                                                                  
 *                                                                               
 %DELETE  '00080014' '00470016'                                                  
 %AFTER '13440014'                                                               
          USING IEKSAVE,SAVE                                                     
 %BEFORE  '13680014'                                                             
          L     LINK,ADDRIFPI      SET FETCH PROTECTION INTERRUPT EXIT           
          BALR  RETN,LINK                                                        
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    V(IEKLGN#),X'000000A8'                                           
          DC    V(IEKLMA#),X'00000078'                                           
          DC    V(IEKRF1#),X'000000E0'                                           
          DC    V(IEKRSL#),X'00000110'                                           
          DC    V(IEKRSS#),X'00000118'                                           
          DC    V(IEKP31#),X'000001E0'                                           
 CNT      EQU   (*-TBL)/8                                                        
          LTORG                                                                  
 AREA     DS    XL(X'2E80')                                                      
          END                                                                    
-FILE  98;  3353 RECORDS:  
0IEKAA00  CSECT                                                          00080014
 IEKA     TITLE 'IEKAA00 - OS/360 FORTRAN H COMPILER - FORTRAN SYSTEM DI100160014
                RECTOR,V.5.1'                                            00240014
 *                                                                       00320014
 *        004000                                                   0000A 00330015
 *        120000                                                   0000A 00340015
 *        135200-136000                                            0000A 00350015
 *        144000                                                   0000A 00360015
 *        214400                                                   0000A 00370015
 *        233600                                                   0000A 00380015
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
            DC    F'2'                                                   84400014
            DC    F'5'                                                   84800014
            DC    F'2'                                                   85200014
            DS    128F              MVD(128)                             85600014
 SIZMAJ   DC    F'&SZMAJ'                                                86000014
          DS    &CMAJOR.F                                                86400014
          SPACE 3                                                        86800014
 IEKJA4   CSECT                                                          87200014
          DS    &RMAJOR.F                                                87600014
          MEND                                                           88000014
-FILE  99;  7951 RECORDS:  
0ESD          IEKJA1                                                JA1 0001
 TXT                                                                  JA1 0002
 TXT                                                                 JA1 0003
 TXT                                                                 JA1 0004
 TXT   y                                                              JA1 0005
 TXT   \                                                              JA1 0006
 TXT                                                                JA1 0007
 TXT  &                                                              JA1 0008
 TXT  h                                                              JA1 0009
 TXT  {                                                              JA1 0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT          GOTOKK }&0H}0D&}	{^{8^hȵ {܌{{	͓}WKK 0005
 TXT         {q}k}                                            WKK 0006
 TXT                                                                 WKK 0007
 TXT   y                                       dʿ          WKK 0008
 TXT   \        i  &      ʿ          i  &        WKK 0009
 RLD                   	     &        <        WKK 0010
 RLD               *  -    d      %    @      h    WKK 0011
 RLD               m  q  u    ^            y      WKK 0012
 RLD                   {  D                                    WKK 0013
 END                                                                    WKK 0014
-FILE 100;  8287 RECORDS:  
0ESD          IEKJA1                                                JA1 0001
 TXT                                                                  JA1 0002
 TXT                                                                 JA1 0003
 TXT                                                                 JA1 0004
 TXT   y                                                              JA1 0005
 TXT   \                                                              JA1 0006
 TXT                                                                JA1 0007
 TXT  &                                                              JA1 0008
 TXT  h                                                              JA1 0009
 TXT  {                                                              JA1 0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT          GOTOKK }&0H}0D&}	{^{8^hȵ {܌{{	͓}WKK 0005
 TXT         {q}k}                                            WKK 0006
 TXT                                                                 WKK 0007
 TXT   y                                       dʿ          WKK 0008
 TXT   \        i  &      ʿ          i  &        WKK 0009
 RLD                   	     &        <        WKK 0010
 RLD               *  -    d      %    @      h    WKK 0011
 RLD               m  q  u    ^            y      WKK 0012
 RLD                   {  D                                    WKK 0013
 END                                                                    WKK 0014
-FILE 101;   142 RECORDS:  
0PID1HDR1624P360S40249B008                  593-CHI    EE00141   C 931   086  NW 
 //PTF40249 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 03/23/70 *01600000
 //             THIS PTF IS IN TWO PARTS.  THE FIRST STEP LINK EDITS NEW*02400000
 //             MODULES INTO FO500.  THE SECOND STEP WILL CREATE A NEW  *03200000
 //             COMPILER IN LINKLIB.  THE SECOND STEP REQUIRES THAT 160 *04000000
 //             TRACKS BE AVAILABLE IN THE LINKLIB.                      04800000
 //STEP1  EXEC  PGM=IEWL,PARM='LIST,LET,MAP,NCAL'                        05600000
 //SYSPRINT DD  SYSOUT=A                                                 06400000
 //SYSLMOD  DD  DSNAME=SYS1.FO500,DISP=OLD                               07200000
 //SYSUT1   DD  UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD             08000000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  OVERLAY PHASE                                                          89600000
  INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU#         90400000
  INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR#           91200000
  INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR#   92000000
  INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP#                                 92800000
  ENTRY IEKAA00                                                          93600000
          SETSSI  19110429                                               94400000
          NAME IEKAA00(R)                                                95200000
 /*                                                                      96000000
 //                                                                      96800000
-FILE 102;   338 RECORDS:  
0.//ADD   360S40037008             12/15/SCRAP THIS CARD             0005 OF 0010
 //PTF40037 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 12/15/69 *01600000
 //             THIS PTF IS IN TWO PARTS.  THE FIRST STEP LINK EDITS NEW*02400000
 //             MODULES INTO FO500.  THE SECOND STEP WILL CREATE A NEW  *03200000
 //             COMPILER IN LINKLIB.  THE SECOND STEP REQUIRES THAT 160 *04000000
 //             TRACKS BE AVAILABLE IN THE LINKLIB.                      04800000
 //STEP1  EXEC  PGM=IEWL,PARM='LIST,LET,MAP,NCAL'                        05600000
 //SYSPRINT DD  SYSOUT=A                                                 06400000
 //SYSLMOD  DD  DSNAME=SYS1.FO500,DISP=OLD                               07200000
 //SYSUT1   DD  UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD             08000000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU#         90400000
  INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR#           91200000
  INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR#   92000000
  INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP#                                 92800000
  ENTRY IEKAA00                                                          93600000
          SETSSI  19110037                                               94400000
          NAME IEKAA00(R)                                                95200000
 /*                                                                      96000000
 //                                                                      96800000
                                                                                 
-FILE 103;   148 RECORDS:  
0PID1HDR1602P360S40447B008                  593-CHI    EE00147   C 931   123  NW 
 //PTF40447 JOB 20,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 06/26/70 *01600000
 //             THIS PTF IS IN TWO PARTS.  THE FIRST STEP LINK EDITS NEW*02400000
 //             MODULES INTO FO500.  THE SECOND STEP WILL CREATE A NEW  *03200000
 //             COMPILER IN LINKLIB.  THE SECOND STEP REQUIRES THAT 160 *04000000
 //             TRACKS BE AVAILABLE IN THE LINKLIB.                      04800000
 //STEP1  EXEC  PGM=IEWL,PARM='LIST,LET,MAP,NCAL'                        05600000
 //SYSPRINT DD  SYSOUT=A                                                 06400000
 //SYSLMOD  DD  DSNAME=SYS1.FO500,DISP=OLD                               07200000
 //SYSUT1   DD  UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD             08000000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR#   92000000
  INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP#                                 92800000
  ENTRY IEKAA00                                                          93600000
          SETSSI  20110447                                               94400000
          NAME IEKAA00(R)                                                95200000
 /*                                                                      96000000
 //                                                                      96800000
                                                                                 
                                                                                 
                                                                                 
-FILE 104;  1136 RECORDS:  
0.//ADD   360S40328608             05/06/SCRAP THIS CARD             0003 OF 0005
 //PTF40328 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 04/29/70 *01600000
 //             THIS PTF IS IN TWO PARTS.  THE FIRST STEP LINK EDITS NEW*02400000
 //             MODULES INTO FO500.  THE SECOND STEP WILL CREATE A NEW  *03200000
 //             COMPILER IN LINKLIB.  THE SECOND STEP REQUIRES THAT 160 *04000000
 //             TRACKS BE AVAILABLE IN THE LINKLIB.                      04800000
 //STEP1  EXEC  PGM=IEWL,PARM='LIST,LET,MAP,NCAL'                        05600000
 //SYSPRINT DD  SYSOUT=A                                                 06400000
 //SYSLMOD  DD  DSNAME=SYS1.FO500,DISP=OLD                               07200000
 //SYSUT1   DD  UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD             08000000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  OVERLAY PHASE                                                          89600000
  INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU#         90400000
  INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR#           91200000
  INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR#   92000000
  INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP#                                 92800000
  ENTRY IEKAA00                                                          93600000
          SETSSI  19110328                                               94400000
          NAME IEKAA00(R)                                                95200000
 /*                                                                      96000000
 //                                                                      96800000
-FILE 105;   300 RECORDS:  
0                                                                                
 //PTF40267 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 03/11/70 *01600000
 //             THIS PTF IS IN TWO PARTS.  THE FIRST STEP LINK EDITS NEW*02400000
 //             MODULES INTO FO500.  THE SECOND STEP WILL CREATE A NEW  *03200000
 //             COMPILER IN LINKLIB.  THE SECOND STEP REQUIRES THAT 160 *04000000
 //             TRACKS BE AVAILABLE IN THE LINKLIB.                      04800000
 //STEP1  EXEC  PGM=IEWL,PARM='LIST,LET,MAP,NCAL'                        05600000
 //SYSPRINT DD  SYSOUT=A                                                 06400000
 //SYSLMOD  DD  DSNAME=SYS1.FO500,DISP=OLD                               07200000
 //SYSUT1   DD  UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD             08000000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  OVERLAY PHASE                                                          89600000
  INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU#         90400000
  INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR#           91200000
  INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR#   92000000
  INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP#                                 92800000
  ENTRY IEKAA00                                                          93600000
          SETSSI  19110267                                               94400000
          NAME IEKAA00(R)                                                95200000
 /*                                                                      96000000
 //                                                                      96800000
-FILE 106;   319 RECORDS:  
0.//ADD   360S40194008             03/24/SCRAP THIS CARD             0008 OF 0060
 //PTF40194 JOB 18,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 03/24/70 *01600000
 //             THIS PTF IS IN TWO PARTS.  THE FIRST STEP LINK EDITS NEW*02400000
 //             MODULES INTO FO500.  THE SECOND STEP WILL CREATE A NEW  *03200000
 //             COMPILER IN LINKLIB.  THE SECOND STEP REQUIRES THAT 160 *04000000
 //             TRACKS BE AVAILABLE IN THE LINKLIB.                      04800000
 //STEP1  EXEC  PGM=IEWL,PARM='LIST,LET,MAP,NCAL'                        05600000
 //SYSPRINT DD  SYSOUT=A                                                 06400000
 //SYSLMOD  DD  DSNAME=SYS1.FO500,DISP=OLD                               07200000
 //SYSUT1   DD  UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD             08000000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  OVERLAY PHASE                                                          89600000
  INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU#         90400000
  INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR#           91200000
  INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR#   92000000
  INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP#                                 92800000
  ENTRY IEKAA00                                                          93600000
          SETSSI  18110194                                               94400000
          NAME IEKAA00(R)                                                95200000
 /*                                                                      96000000
 //                                                                      96800000
-FILE 107;   176 RECORDS:  
0.//ADD   360S40190008             04/23/SCRAP THIS CARD             0051 OF 0060
 //PTF40190 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 04/23/70 *01600000
 //             THIS PTF IS IN TWO PARTS.  THE FIRST STEP LINK EDITS NEW*02400000
 //             MODULES INTO FO500.  THE SECOND STEP WILL CREATE A NEW  *03200000
 //             COMPILER IN LINKLIB.  THE SECOND STEP REQUIRES THAT 160 *04000000
 //             TRACKS BE AVAILABLE IN THE LINKLIB.                      04800000
 //STEP1  EXEC  PGM=IEWL,PARM='LIST,LET,MAP,NCAL'                        05600000
 //SYSPRINT DD  SYSOUT=A                                                 06400000
 //SYSLMOD  DD  DSNAME=SYS1.FO500,DISP=OLD                               07200000
 //SYSUT1   DD  UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD             08000000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  OVERLAY PHASE                                                          89600000
  INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU#         90400000
  INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR#           91200000
  INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR#   92000000
  INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP#                                 92800000
  ENTRY IEKAA00                                                          93600000
          SETSSI  19110190                                               94400000
          NAME IEKAA00(R)                                                95200000
 /*                                                                      96000000
 //                                                                      96800000
-FILE 108;   510 RECORDS:  
0SYM              IEKAA00h    h    h  Υh    h      DDLOOPIEKA0001
 SYM             bNONO  CKCHAR  CNT  XECCOMP  8SET CKNUM CIEKA0002
 SYM           KDMPf OPTLINE  e PARMSW    COMP PACK IEKA0003
 SYM           e PACKEDg TEMPNAMEg PARMLISTh  h    h IEKA0004
 SYM            h   h   h  h  h   	h < h + h | IEKA0005
 SYM            h  h  h !  h ) h  h -  	h  h  hIEKA0006
 SYM              h _ h ? h   	h  h  h `  h ' h IEKA0007
 SYM           " h   	h f h h h i  h  h  h   	h o IEKA0008
 SYM           h q h r  h  h  h   h u h w h x  h IEKA0009
 SYM            h  h   	h  h  h   h  h ] h  IEKA0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT          0{&&Ĉ&{&ʥ{K{AK{%A}}q}K    FUDG0012
 TXT           	           \        \             0      FUDG0013
 TXT   0                    ^       y              \            FUDG0014
 TXT              \                                                FUDG0015
 TXT                                                              FUDG0016
 RLD                   {  H    } 	   Q    \    Y    FUDG0017
 RLD               0    8                FUDG0018
 RLD                                                              FUDG0019
 END                                   ASMG 26FEB70  05:00.29 16 MAR 70 FUDG0020
  MDL  ON                                                                        
-FILE 109;   520 RECORDS:  
0%INPUT   PLC.ZZSR                                                               
 %OUTPUT  -INPUT                                                                 
 %FIND    ZZOS0001                                                               
 %DELETE  ZZOS0010                                                               
          USING ZZSTART,R11,R8                                                   
 %DELETE  ZZOS0016                                                               
          DROP  R11,R8                                                           
 %AFTER   ZZOS0028                                                               
          DROP  R8                                                               
 %DELETE  ZZOS0030                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEFORE  '00009999'                                                             
 %OUTPUT  '-PLCEXCDS'                                                            
 %FIND    EXCD0001                                                               
 %BEFORE  EXCD9999                                                               
 %OUTPUT  '-MACROS(LAST+1)'                                                      
 %FIND    '00000100'                                                             
 %BEFORE  '00009999'                                                             
 %FIND    '00000001'                                                             
 %BEFORE  '00009999'                                                             
 %END                                                                            
-FILE 110;    10 RECORDS:  
0 MDL  ON                                                                        
  NCA            ONSTMT                                                          
  NCA            ONRVRT                                                          
  NCA            ONCOND                                                          
  NCA            ONSGNL                                                          
  NCA            PLCRTT                                                          
 $CONTINUE WITH PLC.ZZSR.O RETURN                                                
 $CONTINUE WITH PLC.OM.C RETURN                                                  
  LCS            LCSYMBOL                                                        
  LDT            ZZSTART                                                         
-FILE 111;  3387 RECORDS:  
0TAPE     TITLE '    M T S   MAGNETIC TAPE ROUTINES'                     TAPE0001
          SPACE 15                                                       TAPE0002
 *********************************************************************** TAPE0003
 *                                                                     * TAPE0004
 *                                                                     * TAPE0005
 *            M T S   MAGNETIC TAPE DEVICE SUPPORT ROUTINES            * TAPE0006
 *                                                                     * TAPE0007
 *                                                                     * TAPE0008
 *********************************************************************** TAPE0009
          SPACE 10                                                       TAPE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBSCR  DS    F                  SCRATCH                               TAPE3378
 FDUBNAM  DS    A                  BACK POINTER                          TAPE3379
 FDUBDS   DS    F                  DEFAULT SWITCHES                      TAPE3380
 FDUBCH   DS    F                  CHAIN                                 TAPE3381
 FDUBTYPE DS    X                  TYPE                                  TAPE3382
          DS    XL3                UNUSED                                TAPE3383
 FDUBNAME DS    A                  POINTER TO EXTERNAL NAME              TAPE3384
          EJECT                                                          TAPE3385
          SPACE 10                                                       TAPE3386
          END                                                            TAPE3387
-FILE 112;   615 RECORDS:  
0TPUC     TITLE 'MAGNETIC TAPE UNIT CHECK'                               TPUC0001
 TAPEUC   START 0                                                        TPUC0002
          ENTRY TPRDUC                                                   TPUC0003
          ENTRY TPWRUC                                                   TPUC0004
 * REGISTERS                                                             TPUC0005
          SPACE 1                                                        TPUC0006
 BASE1    EQU   7                                                        TPUC0007
 BASE2    EQU   6                                                        TPUC0008
 DREG1    EQU   13                                                       TPUC0009
 DREG2    EQU   8                                                        TPUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RTNADR   EQU   DSECT2                                                   TPUC0606
 REREAD   EQU   RTNADR+4                                                 TPUC0607
 CLEANS   EQU   REREAD+1                                                 TPUC0608
 CNTCHR   EQU   CLEANS+1                                                 TPUC0609
 SNSCC    EQU   CNTCHR+1                                                 TPUC0610
 SENSE    EQU   SNSCC+1                                                  TPUC0611
 FLAG     EQU   SENSE+6                                                  TPUC0612
 STOPCD   EQU   FLAG+1                                                   TPUC0613
 DEVID    EQU   SENSE+8                                                  TPUC0614
          END                                                            TPUC0615
-FILE 113;  2218 RECORDS:  
0MNT      TITLE 'M O U N T'                                              MOUN0001
 *********************************************************************** MOUN0002
 *                                                                     * MOUN0003
 *              MACROS TO GENERATE KWIC RHS AND LHS TABLES             * MOUN0004
 *                                                                     * MOUN0005
 *********************************************************************** MOUN0006
          SPACE 3                                                        MOUN0007
          MACRO                                                          MOUN0008
 &ST1     LHS   &KWD,&RHS,&EX                                            MOUN0009
          LCLA  &LNG                                                     MOUN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBNAM  DS    A                  BACK POINTER                          MOUN2209
 FDUBDS   DS    F                  DEFAULT SWITCHES                      MOUN2210
 FDUBCH   DS    F                  CHAIN                                 MOUN2211
 FDUBTYPE DS    X                  FDUB TYPE (0 THRU 7)                  MOUN2212
 FDUBMNTD EQU   7                  FDUB TYPE FOR 'MOUNTED' DEVICE        MOUN2213
          DS    XL3                UNUSED                                MOUN2214
 FDUBNAME DS    A                  POINTER TO EXTERNAL NAME              MOUN2215
          EJECT                                                          MOUN2216
          SPACE 5                                                        MOUN2217
          END                                                            MOUN2218
-FILE 114;   543 RECORDS:  
0TCPY     TITLE 'PROGRAM TO COPY TAPES'                                  TCPY0001
          SPACE 5                                                        TCPY0002
          MACRO                                                          TCPY0003
 &L1      ERROR &MSG                                                     TCPY0004
 &L1      LA    R0,L'Q&SYSNDX                                            TCPY0005
          BAL   R1,RD2                                                   TCPY0006
 Q&SYSNDX DC    C&MSG                                                    TCPY0007
          MEND                                                           TCPY0008
          SPACE 3                                                        TCPY0009
          MACRO                                                          TCPY0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OMIT     EQU   X'04'              SKIP BAD RECORDS                      TCPY0534
 STOR     EQU   X'08'              GETSPACE BUFFERS ATTACHED             TCPY0535
 ALL      EQU   X'10'              COPY ALL OF TAPE                      TCPY0536
 REBLK    EQU   X'20'              USE BLOCKING                          TCPY0537
 TAPEIN   EQU   X'40'              INPUT DEVICE IS A TAPE                TCPY0538
 TAPEOUT  EQU   X'80'              OUTPUT DEVICE IS A TAPE               TCPY0539
          SPACE                                                          TCPY0540
          LTORG                                                          TCPY0541
          SPACE 5                                                        TCPY0542
          END                                                            TCPY0543
-FILE 115;   646 RECORDS:  
0TDMP     TITLE 'MTS TAPE/FILE DUMP UTILITY'                             TDMP0001
          PRINT NOGEN                                                    TDMP0002
          SPACE 3                                                        TDMP0003
          MACRO                                                          TDMP0004
 &SLB     ERMSG &MSG                                                     TDMP0005
          LCLA  &BARF                                                    TDMP0006
 &SLB     BAL   RF,ERRMSG          PRINT OUT ERROR MESSAGE               TDMP0007
 &BARF    SETA  K'&MSG-2                                                 TDMP0008
          DC    Y(&BARF),C&MSG                                           TDMP0009
          MEND                                                           TDMP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C',  VOLUME:  '                                          TDMP0637
 VOLUME   DC    C'VVVVVV,  DATA SET:  '                                  TDMP0638
 DSN      DS    CL17                                                     TDMP0639
 TPHDRL2  EQU   *-TPHDR                                                  TDMP0640
          SPACE 4                                                        TDMP0641
          LTORG                                                          TDMP0642
          SPACE 4                                                        TDMP0643
 IBUF     DS    CL32767                                                  TDMP0644
          SPACE 2                                                        TDMP0645
          END                                                            TDMP0646
-FILE 116;   708 RECORDS:  
0       MACRO                                                            FSAV0001
 &LOC   TZ      &MSK,&ADD                                                FSAV0002
 &LOC   TM      SW,&MSK                                                  FSAV0003
        BZ      &ADD                                                     FSAV0004
        MEND                                                             FSAV0005
        SPACE   3                                                        FSAV0006
        MACRO                                                            FSAV0007
 &LOC   TN      &MSK,&ADD                                                FSAV0008
 &LOC   TM      SW,&MSK                                                  FSAV0009
        BNZ     &ADD                                                     FSAV0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        LTORG                                                            FSAV0699
        DS      0F                                                       FSAV0700
 MORTOC DS      250XL16                                                  FSAV0701
 TOC    DS      250CL16                                                  FSAV0702
 TOCSIZ DS      F                                                        FSAV0703
 AUXTOC DS      250CL16                                                  FSAV0704
 TERM   DC      XL16'0'                                                  FSAV0705
 SIZLOC EQU     TOCSIZ-TOC                                               FSAV0706
 BUF    DS      16CL4096                                                 FSAV0707
        END                                                              FSAV0708
-FILE 117;   185 RECORDS:  
0LABL     TITLE 'PROGRAM TO LABEL MAGNETIC TAPES'                        LBL00001
          SPACE 2                                                        LBL00002
          GBLB  &OPER                                                    LBL00003
          SPACE 2                                                        LBL00004
 LABEL    START 0                                                        LBL00005
          SPACE 2                                                        LBL00006
          REQU                                                           LBL00007
          SPACE                                                          LBL00008
 DEVS     EQU   4                                                        LBL00009
 CHKLABEL EQU   X'80'                                                    LBL00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 VOL      DC    C'VOL1'                                                  LBL00176
 VOLUME   DS    CL6                                                      LBL00177
          DC    C'0'                                                     LBL00178
 BLANKS   DC    CL30' '                                                  LBL00179
 OWNER    DS    CL10                                                     LBL00180
          DC    CL29' '                                                  LBL00181
          SPACE 5                                                        LBL00182
          LTORG                                                          LBL00183
          SPACE 5                                                        LBL00184
          END                                                            LBL00185
-FILE 118;    52 RECORDS:  
0CTRL     TITLE 'FAKE MTS "CONTROL" ROUTINE FOR OLD-FASHIONED SYSTEMS'   CTRL0001
          SPACE 2                                                        CTRL0002
 CONTROL  START 0                                                        CTRL0003
          SPACE 2                                                        CTRL0004
          PRINT NOGEN                                                    CTRL0005
          SPACE 2                                                        CTRL0006
          REQU                                                           CTRL0007
          SPACE 2                                                        CTRL0008
          ENTER RC,SA=SA                                                 CTRL0009
          MVC   IOLST(8),0(R1)     A(REGION),A(LENGTH)                   CTRL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RC8      EXIT  8                                                        CTRL0043
          EJECT                                                          CTRL0044
 SA       DS    18F                                                      CTRL0045
 IOLST    DC    A(0,0,MOD,LNR,0)                                         CTRL0046
 ARET     DS    A                                                        CTRL0047
 MOD      DC    X'40000080'        @ERRRTN@CC                            CTRL0048
 LNR      DS    F                                                        CTRL0049
 TI       DS    X                                                        CTRL0050
          SPACE 2                                                        CTRL0051
          END                                                            CTRL0052
-FILE 119;   415 RECORDS:  
0         TITLE 'PROGRAM TO TEST TAPE ROUTINES'                          TT000001
 TT       START 0                                                        TT000002
          SPACE                                                          TT000003
          REQU                                                           TT000004
          PRINT NOGEN                                                    TT000005
          SPACE                                                          TT000006
          ENTER RC                                                       TT000007
          SPACE                                                          TT000008
          SR    R1,R1                                                    TT000009
          ST    R1,FDUB                                                  TT000010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 2                                                        TT000406
 SNS4     DC    C' STATUS:  '                                            TT000407
 SSTAT    DS    CL40                                                     TT000408
          EJECT                                                          TT000409
          LTORG                                                          TT000410
          SPACE 5                                                        TT000411
          DS    0F                                                       TT000412
 BUF      DS    CL32767                                                  TT000413
          SPACE 5                                                        TT000414
          END                                                            TT000415
-FILE 120;  2219 RECORDS:  
0STAN     TITLE 'STATISTICS PHASE 1 ANALYSIS (VERSION KM003) 12/10/70'   ANAL0001
 **********************************************************************  ANAL0002
 *                                                                    *  ANAL0003
 *         PROGRAM TO PROCESS TAPES PRODUCED BY STAT JOB              *  ANAL0004
 *                (THIS IS *ANALYSIS)                                 *  ANAL0005
 *                                                                    *  ANAL0006
 **********************************************************************  ANAL0007
          SPACE 1                                                        ANAL0008
          PRINT ON,NODATA,NOGEN                                          ANAL0009
          SPACE 1                                                        ANAL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NEWAREA  DS    (JOBEND-JOBINFO)C  PRINT JOB AREA                        ANAL2210
 PTIME    DS    F                  PRINT TIME                            ANAL2211
 EDMPAREA DS    0C                 END OF TAPE OUTPUT AREA               ANAL2212
 CNT      DC    A(EDMPAREA-NEWAREA) LENGTH OF TAPE OUTPUT                ANAL2213
 ADDAREA  DS    8F                 ITEM PRINT AREA                       ANAL2214
 PAGAREA1 DS    (PAGETBLE-PAGETABL)X   AREA FOR CURRENT PAGE DSECT       ANAL2215
          SPACE 2                                                        ANAL2216
 DATA     DS    4096C              BUFFER OF ITEMS FROM STAT JOB         ANAL2217
          SPACE 2                                                        ANAL2218
          END   STATANAL                                                 ANAL2219
-FILE 121;   643 RECORDS:  
0STAT     TITLE 'STAT/SW JOBS -- TAD PINKERTON (WR. 6-67, REV. 11-70)'   STAT0001
          SPACE 2                                                        STAT0002
 *********************************************************************** STAT0003
 *                                                                     * STAT0004
 *                           STAT AND STATSW JOBS                      * STAT0005
 *                                                                     * STAT0006
 *         WRITES STATISTICS TAPE FOR PROCESSING BY *ANALYSIS          * STAT0007
 *                                                                     * STAT0008
 *********************************************************************** STAT0009
          SPACE 2                                                        STAT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       STAT0634
 *  JOB TABLE RECORDING BIT DISPLACEMENTS                                STAT0635
 *                                                                       STAT0636
 JTLDISP  EQU   X'F4'         JOB TABLE WORD FOR STAT BITS DISPLACEMENT  STAT0637
 JTLNAME  EQU   4             JOB TABLE WORDS FOR JOB NAME DISPLACEMENT  STAT0638
 JTLPAR   EQU   X'48'              DISPLACEMENT FOR PARAMETERS IN JOB    STAT0639
 MAXPARS  EQU   12            MAXIMUM NUMBER PARAMETERS IN AN UMMPS JOB  STAT0640
 JOBNO    EQU   0             JOB NUMBER DISPLACEMENT IN JOB TABLE       STAT0641
 *                                                                       STAT0642
          END                                                            STAT0643
-FILE 122;  1706 RECORDS:  
0STP2     TITLE 'STP2/ANALYSIS PROGRAM - THESIS STATISTICS (2/17/71)'    STP20001
          SPACE 1                                                        STP20002
 *********************************************************************** STP20003
 *                                                                     * STP20004
 *         ANALYSIS SUBROUTINE TO PRINT HISTOGRAMS OF VARIOUS AND      * STP20005
 *         SUNDRY INTERVAL DISTRIBUTIONS, PRIMARILY WITH REGARD        * STP20006
 *         TO THE INTERACTION TIME IN THE SYSTEM                       * STP20007
 *                                                                     * STP20008
 *********************************************************************** STP20009
          SPACE 1                                                        STP20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 2                                                        STP21697
 *********************************************************************** STP21698
 *                                                                     * STP21699
 *              DSECT FOR JOB INFORMATION AREA BUILT BY STAT           * STP21700
 *                                                                     * STP21701
 *********************************************************************** STP21702
          SPACE 2                                                        STP21703
          COPY  W091:STATDSECT                                           STP21704
          SPACE 1                                                        STP21705
          END                                                            STP21706
-FILE 123;   468 RECORDS:  
0HSTO     TITLE 'HISTOGRAM BUILDER AND PRINTER'                          HIST0001
          SPACE 1                                                        HIST0002
 HISTO    CSECT                                                          HIST0003
          SPACE 1                                                        HIST0004
 *********************************************************************** HIST0005
 *                                                                     * HIST0006
 *              PROGRAM TO BUILD AND PRINT HISTOGRAMS (FIXED POINT)    * HIST0007
 *                                                                     * HIST0008
 *********************************************************************** HIST0009
          SPACE 1                                                        HIST0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 HISTAB   DSECT                                                          HIST0459
          SPACE 1                                                        HIST0460
 ACCUM    DS    2F                 DOUBLE WORD FOR ACCUMULATING VALUES   HIST0461
 VARIANCE DS     D                 ACCUMULATOR FOR VARIANCE OF ITEMS     HIST0462
 TOTCNT   DS    1F                 COUNTS NUMBER OF ITEMS ENTERED        HIST0463
 UNDRFLOW DS    1F                 COUNTER FOR UNDERFLOW ITEMS           HIST0464
 OVERFLOW DS    1F                 COUNTER FOR OVERFLOW ITEMS            HIST0465
 ACTAB    DS    1000F              BEGINNING OF PAIRED RECORDING TABLE   HIST0466
          SPACE 2                                                        HIST0467
          END                                                            HIST0468
