1FILE   1; 10203 RECORDS:  
0MTS      TITLE ' UMMPS TERMINAL SYSTEM '                                MTS00001
          MACRO                                                          MTS00002
 &SLB     RSAVE &GRX                                                     MTS00003
 &SLB     L     SCA,&GRX.SS                                              MTS00004
          LA    SCA,4(SCA)                                               MTS00005
          ST    SCA,&GRX.SS                                              MTS00006
          ST    &GRX,&GRX.SS(SCA)                                        MTS00007
          MEND                                                           MTS00008
          SPACE 3                                                        MTS00009
          MACRO                                                          MTS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GTSBSE   DC    A(INLOOP+X'1000',INLOOP)                                 MTS09781
 LGIOSP   DC    A(GIOSP)                                                 MTS09782
          LTORG                                                          MTS09783
 ENDOFMTS EQU   *                   LOCATION OF END OF MTS               MTS09784
          EJECT                                                          MTS09785
 DUMMY    DSECT                                                          MTS09786
          COPY  MTS.RHTABLE                                              MTS09787
          COPY  MTS.DSECT                                                MTS09788
          TOTAL                                                          MTS09789
          END                                                            MTS09790
-FILE   2;  1003 RECORDS:  
0$RUN *MOUNT PAR=S439 ON 9TP, *MASTER* 'MTS MASTER4 - RING OUT'                  
 $RUN *MOUNT PAR=POOL ON 9TP *NEWMASTER* 'RING IN'                               
 $RUN *UPDATE                                                                    
 %INPUT *MASTER* 50                                                              
 %OUTPUT *NEWMASTER* 50                                                          
 %AFTER   MTS00236                                                               
          ENTRY ACTIVCNT                                                         
 %AFTER   MTS00281                                                               
          JOBNUM                                                                 
          STH   SCA,UMMPSJNR                                                     
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $CREATE -SYSUT2 SIZE=5000 VOLUME=MTS011                                         
 $CRE -SYSUT3 SIZE=5000 VOLUME=MTS011                                            
 $RUN *ASMG SCARDS=*NEWMASTER* SPRINT=*LIST* 0=*SYSMAC PAR=FX,RLD,SIZE=150,IBLK=-
 50,OBLK=50                                                                      
 $COPY *SOURCE* *LIST*@CC                                                        
 WTM                                                                             
 REW                                                                             
 $ENDFILE                                                                        
 $RUN *LIST SPRINT=*SINK*@MCC PAR=*LIST* 50                                      
 $SIGNOFF                                                                        
-FILE   3;   695 RECORDS:  
0*                                                                               
 *              LINK/XCTL/LOAD DSCET                                             
 *                                                                               
          SPACE 5                                                                
 LXDCT    DSECT                                                                  
 LXDNAM   DS    4F                                                               
 LOADLIST DS    16F                                                              
 XLSWS    DS    F                                                                
 LSW      DS    F                                                                
 PGMETY   DS    F                                                                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SCDSAV   DS    F                                                                
 SCCSVV   DS    F                                                                
 UNLSAV   DS    F                   UNLOAD COMMAND SAVE WORD                     
 SCSSUBR  DS    F                   SCANSTOR SUBR POINTER                        
 SCSGR10  DS    F                   SCANSTOR GR10                                
 FSSAV    DS    3F                  FREESPAC SAVE AREA                           
 SODREADS DS    F                   NUMBER OF DRUM READS AT SIGNON               
 HASPSA   DS    18F                                                              
 LASTDSCT EQU   *                   END OF MAIN DSECT *** *** ***                
          EJECT                                                                  
-FILE   4;   178 RECORDS:  
0*                                                                               
 *                                  REGISTER CONVENTIONS                         
 *                                                                               
 GR0      EQU   0                   USED FOR SVC'S AND TRT,ETC                   
 GR1      EQU   1                     "                                          
 GR2      EQU   2                     "                                          
 GR3      EQU   3                                                                
 GR4      EQU   4                   PSECT POINTER                                
 GR5      EQU   5                   OCCASIONAL BASE REGISTER                     
 GR6      EQU   6                                                                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DSPC     EQU   X'08'               IN DMPSW4                                    
 ORL132   EQU   X'10'               IN DMPSW4                                    
 GRSW     EQU   X'20'               IN DMPSW4                                    
 FRSW     EQU   X'40'               IN DMPSW4                                    
 CORE     EQU   X'80'               IN DMPSW4                                    
 *                                                                               
 *        LOCK EQU'S                                                             
 *                                                                               
 ACCTLOCK EQU   1                                                                
          EJECT                                                                  
-FILE   5;    41 RECORDS:  
0*              VARIOUS ASSUMED CONSTANTS                                        
 *                                                                               
 *                                                                               
 NRLB     EQU   NJBBUF+1            NUMBER OF .OGICAL BUFFERS                    
 NRLD     EQU   NJBDEV              NR OF LOGICAL DEVICES                        
 NRDEV    EQU   NRLD+1              ALLOW ZEROTH DEVICE = OPER                   
          EJECT                                                                  
 *                                                                               
 *                                  SAVE AREA SIZES FOR                          
 *                                  DISK ROUTINES                                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ORL132   EQU   X'10'               IN DMPSW4                                    
 GRSW     EQU   X'20'               IN DMPSW4                                    
 FRSW     EQU   X'40'               IN DMPSW4                                    
 CORE     EQU   X'80'               IN DMPSW4                                    
 *                                                                               
 *        LOCK EQU'S                                                             
 *                                                                               
 ACCTLOCK EQU   1                                                                
 ACTIVLOK EQU   6                                                                
          EJECT                                                                  
-FILE   6;    62 RECORDS:  
0*                                                                               
 *              TABLE FOR PIECES TO BE DYNAMICALLY LOADED                        
 *                                                                               
          SPACE 3                                                                
 LOADTBLL DC    A(LTBLL/16)         NUMBER OF ENTRIES                            
 LOADTBL  EQU   *                                                                
 PDP8     LOADT '*PDP8RTN'                                                       
 SDMP     LOADT '*SDUMP'                                                         
 DISP     LOADT '*2250RTN'                                                       
 TAPE     LOADT '*TAPERTN'                                                       
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'01'                                                            
          DC    X'00'                                                            
          DC    X'01'                                                            
          DC    X'00'                                                            
          SPACE 3                                                                
 INITESD  DC    A(LINESD/12)    NUMBER OF ENTRIES                                
          DC    CL8'LCSYMBOL'                                                    
          DC    V(LCSYMBOL)                                                      
 LINESD   EQU   *-INITESD                                                        
          EJECT                                                                  
-FILE   7;    65 RECORDS:  
0**********************************************************************          
 *                                                                    *          
 *              MTS RIGHT-HAND TABLE                                  *          
 *                                                                    *          
 **********************************************************************          
          SPACE 5                                                                
 RHTABLE  EQU   *                                                                
          DC    AL1(1,0,2),C'ON'                                                 
          DC    AL1(1,4,3),C'OFF'                                                
          DC    X'FF'                                                            
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                                  
 DYSRHT   EQU   *            $DISPLAY                                            
 ALTRHT   DC    AL1(6,0,2),C'FR'                                                 
          DC    AL1(6,4,2),C'GR'                                                 
          DC    AL1(5,8,0)                                                       
          DC    X'FF'                                                            
          SPACE                                                                  
 PTMRHT   DC    AL1(4,0,10),C'M',AL4(60),C'/',AL4(1000)     PLOTTIME             
          DC    X'FF'                                                            
          EJECT                                                                  
-FILE   8;   344 RECORDS:  
0*        *  *  *  *  *  EQUALITIES  *  *  *  *  *                       40EQU000
          SPACE 3                                                        40EQU001
          SPACE 2                                                        40EQU028
 *             GENERAL REGISTERS USED BY THE SUPERVISOR                  40EQU029
 *                                                                       40EQU030
 FRSTGR   EQU   0        FIRST REGISTER SAVED - MUST NOT EXCEED LASTGR   40EQU031
 LASTGR   EQU   15       LAST REGISTER SAVED                             40EQU032
 GR0      EQU   0        UTILITY REGISTERS FOR SUPERVISOR USE            40EQU033
 GR1      EQU   1                                                        40EQU034
 GR2      EQU   2                                                        40EQU035
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                  ( O  INDICATES EMPTY QUEUE )                         40EQU293
          SPACE                                                                  
 *              BITS:                                                            
          SPACE                                                                  
 *        0-3 STORAGE KEY FOR SIO                                                
 *        4   1 IF RETURNS LIST HAS NOT BEEN MOVED YET                           
 *        5   1 IF HALT I/O HAS BEEN DONE FOR LAST OPERATION                     
 *        6   1 IF A UC IS PENDING ON THE DEVICE                                 
 *        7   1 IF A UE IS PENDING ON THE DEVICE                                 
          SPACE                                                                  
-FILE   9;   113 RECORDS:  
0LCSY     TITLE 'LOW CORE SYMBOL DEFINITION'                                     
          MACRO                                                                  
          ESDD  &SYM,&ENAME                                                      
          DC    CL8'&SYM'                                                        
          AIF   (T'&ENAME EQ 'O').A                                              
          DC    V(&ENAME)                                                        
          MEXIT                                                                  
 .A       DC    V(&SYM)                                                          
          MEND                                                                   
          SPACE 3                                                                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ESDD  PEEL                                                             
          ESDD  CASECONV                                                         
          ESDD  $JQENT                                                           
          ESDD  $CKPTEWF                                                         
          ESDD  $CYLALOC                                                         
          ESDD  $POOLCHG                                                         
          ESDD  UMLOAD                                                           
          ESDD  SCANSTOR                                                         
 ENDESD   EQU   *                                                                
          END                                                                    
-FILE  10;    10 RECORDS:  
0%BEFORE  LCSYM028                                                               
          ESDD  SYSTEM#,SYSTEM                                                   
 %DELETE  LCSYM099                                                               
 %BEFORE  LCSYM106                                                               
          ESDD  $JQENT                                                           
          ESDD  $CKPTEWF                                                         
          ESDD  $CYLALOC                                                         
          ESDD  $POOLCHG                                                         
          ESDD  UMLOAD                                                           
          ESDD  SCANSTOR                                                         
-FILE  11;    94 RECORDS:  
0%BEFORE  LLMPE127                                                               
 NJBBUF   EQU   4              NUMBER OF BUFFERS FOR AN ABSOLUTE JOB             
 %DELETE  LLMPE127                                                               
 %BEFORE  LLMPE146                                                               
 *                      * LINK FOR CPU QUEUE*                                    
 %DELETE  LLMPE146                                                               
 %BEFORE  LLMPE162                                                               
 *                     4    ***NOT USED***                                       
 %DELETE  LLMPE162                                                               
 %DELETE  LLMPE168                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEFORE  LLMPE336                                                               
 *              BITS:                                                            
 %DELETE  LLMPE336   LLMPE340                                                    
 %AFTER   LLMPE341                                                               
 *        0-3 STORAGE KEY FOR SIO                                                
 *        4   1 IF RETURNS LIST HAS NOT BEEN MOVED YET                           
 *        5   1 IF HALT I/O HAS BEEN DONE FOR LAST OPERATION                     
 *        6   1 IF A UC IS PENDING ON THE DEVICE                                 
 *        7   1 IF A UE IS PENDING ON THE DEVICE                                 
          SPACE                                                                  
-FILE  12;   380 RECORDS:  
0CDUC     TITLE 'CARD READER UNIT CHECK ROUTINES'                        0010    
 CARDUC   START X'A000'                                                  0020    
          SPACE                                                          0030    
          ENTRY CDSTUC                                                   0040    
          ENTRY CDRDUC                                                   0050    
          SPACE                                                          0060    
 BASE     EQU   *                                                        0070    
          SPACE                                                          0080    
          USING DSECT1,13     REGISTER 13 INITIALIZED BY CALLER          0090    
          SPACE                                                          0100    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DUMPAR   DC    A(DUMCCW)     PARAMETERS FOR DUMMY READ                  3600    
          DC    A(DUMRTN)                                                3610    
 DUMRTN   DS    F             RETURNS LIST FOR DUMMY READ                3620    
          DC    A(MERR)                                                  3630    
          DC    A(DUMUC)                                                 3640    
 SPCRTN   DS    F             RETURNS LIST FOR SPECIAL WAIT              3650    
          DC    A(MERR)                                                  3660    
          DC    A(SPCUC)                                                 3670    
 DUMCCW   CCW   X'E2',*,X'30',1 DUMMY READ, NO-FEED, SKIP FLAG ON        3680    
          END                                                            3690    
-FILE  13;     5 RECORDS:  
0%BEFORE  RDUC0182                                                               
 INTRQ2   DS    0H                                                               
 %DELETE  RDUC0182   RDUC0184                                                    
 %DELETE  RDUC0233                                                               
 %DELETE  RDUC0341   RDUC0342                                                    
-FILE  14;   596 RECORDS:  
0TPUC     TITLE 'MAGNETIC TAPE UNIT CHECK'                                       
 TAPEUC   START 0                                                        TAPUC001
          ENTRY TPRDUC                                                   TAPUC002
          ENTRY TPWRUC                                                   TAPUC003
 * REGISTERS                                                             TAPUC004
          SPACE 1                                                        TAPUC005
 BASE1    EQU   7                                                        TAPUC006
 BASE2    EQU   6                                                        TAPUC007
 DREG1    EQU   13                                                       TAPUC008
 DREG2    EQU   8                                                        TAPUC009
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RTNADR   EQU   DSECT2                                                   TAPUC529
 REREAD   EQU   RTNADR+4                                                 TAPUC530
 CLEANS   EQU   REREAD+1                                                 TAPUC531
 CNTCHR   EQU   CLEANS+1                                                 TAPUC532
 SNSCC    EQU   CNTCHR+1                                                 TAPUC533
 SENSE    EQU   SNSCC+1                                                  TAPUC534
 FLAG     EQU   SENSE+6                                                  TAPUC535
 STOPCD   EQU   FLAG+1                                                   TAPUC536
 DEVID    EQU   SENSE+8                                                  TAPUC537
          END                                                                    
-FILE  15;    10 RECORDS:  
0%BEFORE  TUC00348                                                               
          MVI   STOPCD,C'S'        PEAD WRITE ERROR                              
          MVC   MSGAR(16),MSGM     'MACHINE ERROR'                               
          BAL   2,UPSNS#           WRITE ON POER CONS                            
 %BEFORE  TUC00371                                                               
 UPSNS    LA    2,FATERR                                                         
 UPSNS#   MVC   MSGAR+16(11),MSGS                                                
 %DELETE  TUC00371                                                               
 %BEFORE  TUC00380                                                               
          BR    2                  RETURN TO PERME OR FATERR                     
-FILE  16;   360 RECORDS:  
0PRUC     TITLE 'PRINTER UNIT CHECK ROUTINES'                            PRUC0001
 PTRUC    START 0                                                        PRUC0002
          SPACE 3                                                        PRUC0003
 *        REGISTER ASSIGNMENT                                            PRUC0004
 SR       EQU   13            SAVE AREA REGISTER                         PRUC0005
 GR0      EQU   0                                                        PRUC0006
 GR1      EQU   1                                                        PRUC0007
 GR2      EQU   2                                                        PRUC0008
 GR3      EQU   3                                                        PRUC0009
 PR       EQU   4             PARAMETER AREA                             PRUC0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 UCPL     EQU   *-UCPM                                                   PRUC0325
 PCM      DC    C'PRINT CHECK'                                           PRUC0326
 PCL      EQU   *-PCM                                                    PRUC0327
 MERMSG   DC    C': MACHINE ERROR '                                      PRUC0328
 PERMSG   DC    C': PROGRAM ERROR '                                      PRUC0329
 STTMSG   DC    C'PRINTER STATUS  '                                      PRUC0330
 ABVM     DC    C' THE ABOVE LINE MAY BE PRINTED INCORRECTLY. IT IS REP' PRUC0331
          DC    C'EATED AFTER THIS COMMENT.'                             PRUC0332
 ABVL     EQU   *-ABVM                                                   PRUC0333
          END                                                            PRUC0334
-FILE  17;    76 RECORDS:  
0%DELETE PRUC0081                                                                
 PTRUC2   SVC   SAVE          SAVE THE I/O Q FIRST                               
          TM    INTFLG,REPBIT IF NOT INTERNAL I/O DO GCCWAD FOR LATER            
          BO    *+10                                                             
          SVC   GCCWAD                                                           
          STM   GR0,GR2,CCW                                                      
          L     GR0,SAVGR                                                        
          CLI   SNSFLG,1      DID WE GET SENSE OK                                
 %DELETE PRUC0145                                                                
          B     RESTR         RETRY OPERATION                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     GR0,SAVGR                                                        
          SVC   DELETE                                                           
          SVC   SIO                                                              
          LM    FIRST,LAST,SAVGR                                                 
 %AFTER PRUC0302                                                                 
 CCWL     DC    F'8'          LENGTH OF ONE CCW                                  
 %DELETE PRUC0313,2                                                              
          DC    A(SPCERR)                                                        
          DC    A(SPCERR)                                                        
 %BEFORE FILEMARK                                                                
-FILE  18;   339 RECORDS:  
0TASK     TITLE 'TASKS -- RE-ENTRANT JOB TO IDENTIFY ACTIVE JOBS'                
 TASKS    START 0                                                                
          ENTRY TSKFMT                                                           
          SPACE 2                                                                
          DC    A(TASK1)                                                         
          DC    H'0'               NO DEVICES                                    
          DC    H'1'               ONE BUFFER OF 190 BYTES                       
          DC    F'190'                                                           
 *                                 BYTE      ASSIGNMENT                          
 *                                 0-7     FAKE PAR AREA (MUST BE FIRST)         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' BEING USED'                                                   
 LHEADER  EQU   *-HEADER                                                         
 FILL     DC    C':   F'                                                         
 FAKEF    EQU   FILL+1                                                           
 HEXTRA   EQU   *-240                                                            
          DC    C'0123456789ABCDEF'                                              
          SPACE 2                                                                
          LTORG                                                                  
          SPACE 2                                                                
          END                                                                    
-FILE  19;   135 RECORDS:  
0%BEFORE  UTSK0001                                                               
 TASK     TITLE 'TASKS -- RE-ENTRANT JOB TO IDENTIFY ACTIVE JOBS'                
 %DELETE  UTSK0001                                                               
 %BEFORE  UTSK0007                                                               
          DC    H'1'               ONE BUFFER OF 190 BYTES                       
          DC    F'190'                                                           
 *                                 BYTE      ASSIGNMENT                          
 *                                 0-7     FAKE PAR AREA (MUST BE FIRST)         
 SAVE     EQU   8                  8-79    18 WORD SAVE AREA FOR TSKFMT          
 LIST     EQU   80                 80-91   3 WORD LIST FOR TSKFMT                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EJECT                                                                  
 PRTMVC   MVC   0(0,GR8),0(GR2)                                                  
          DS    0F                                                               
 MASK     DC    XL4'1FFF'          8191 (DECIMAL)                                
 NOTLST   DC    Y(L'NOTFND)                                                      
 NOTFND   DC    C' JOB NOT FOUND'                                                
 PGSLST   DC    Y(L'PGSUSD)                                                      
 PGSUSD   DC    C'          PAGES IN USE'                                        
 %DELETE  UTSK0279   UTSK0289                                                    
 %BEF FILEMARK                                                                   
-FILE  20;   272 RECORDS:  
0BDCS     TITLE 'BROADCAST JOB -- SEND MESSAGE TO ACTIVE MTS JOBS'               
 BROADCST START 0                                                                
          ENTRY MESSAGE                                                          
          SPACE 2                                                                
          DC    A(BDCS1)           ENTRY POINT                                   
          DC    H'0'               NO DEVICES                                    
          DC    H'1'               ONE BUFFER                                    
          DC    A(BUFL)            BUFFER LENGTH                                 
          SPACE 2                                                                
          PRINT OFF                                                              
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 2                                                                
 JBUF     DSECT                                                                  
          SPACE                                                                  
 CCW      DS    D                  DOUBLE WORD FOR CCW CONSTRUCTION              
 SW       DS    CL1                SWITCHES                                      
 BUFFER   DS    CL100              ERROR MESSAGE BUFFER                          
 EOBUF    DS    H,CL79             BUFFER FOR ECHOING MSG TO DATA CONC           
 BUFL     EQU   *-JBUF                                                           
          SPACE 4                                                                
          END                                                                    
-FILE  21;    12 RECORDS:  
0%BEFORE  BDCS0151                                                               
          CLI   RJBPAR+12(GR3),X'FF'   NO. IS IT A BATCH JOB?                    
          BCR   7,GR14             YES. EXIT+0                                   
 %BEFORE  BDCS0205                                                               
          LA    GR7,PW             WRITE 'PW 77'                                 
 %DELETE  BDCS0205                                                               
 %BEFORE  BDCS0247                                                               
 NOTMTS   DC    C'CAN''T BROADCAST TO:'                                          
 PW       DC    H'6',X'8150D7A0B7B7'    'PW 77'                                  
 DCERR    DC    C'UNABLE TO BROADCAST TO DATA CONCENTRATOR'                      
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %DELETE  BDCS0247   BDCS0249                                                    
 %BEFORE FILEMARK                                                                
-FILE  22;   877 RECORDS:  
0VTOC     TITLE    'VOLREL,VOLGET,VTOCS AND DSKOP SUBROUTINES'                   
          SPACE                                                                  
 ********************************************************************-**         
 *                                                                     *         
 *              SUBROUTINES VOLREL, VOLGET, VTOCS, DSKOP               *         
 *                                                                     *         
 ***********************************************************************         
          SPACE                                                                  
          START 0                                                                
          SPACE                                                                  
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                                  
 ***********************************************************************         
 *                                                                     *         
 *                   DEFINE A SAFE PATCHING AREA                       *         
 *                                                                     *         
          DS    4F                                                     *         
 *                                                                     *         
 ***********************************************************************         
          SPACE                                                                  
          END                                                                    
-FILE  23;    59 RECORDS:  
0%BEFORE  VTOC0240                                                               
          C     R0,RETBC(0,R1)     DON'T STORE IF SAME AS LAST TIME              
          BE    VOLEXIT                                                          
 %BEFORE  VTOC0510                                                               
          DC    CL6'MTS010'                                                      
 %DELETE  VTOC0510                                                               
 %BEFORE  VTOC0516                                                               
          DC    CL6'MTS011'                                                      
          DC    XL4'FFFFFFFF'                                                    
          DS    48H                                                              
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ST    R6,0(0,RD)         POINT TO PARAMETER LIST                       
          SR    R2,R2              SET FIRST TIMESWITCH OFF                      
 DSKUC2   SPM   R5                 RESTORE CONDITION CODE                        
          LA    R5,DSKYES          SAY TO RESTORE PROTECT                        
          L     R1,DSKUC3                                                        
          BR    R1                 GO TO UNIT CHECK RTNS                         
 %BEFORE  VTOC0811                                                               
 DSKUC3   DC    A(DISKUC)          UNIT CHECK RECOVERY ROUTINES                  
 DSKOI    OI    USEFLG(R6),0       EXECUTED INSTRUCTION                          
 %BEFORE FILEMARK                                                                
-FILE  24;   302 RECORDS:  
0FLIN     TITLE     'SUBROUTINE FLINE - FIND A LINE ENTRY'                       
          SPACE 6                                                                
 *********************************************************************** FLIN0001
 *                                                                     * FLIN0002
 *                           SUBROUTINE FLINE                          * FLIN0003
 *                                                                     * FLIN0004
 *********************************************************************** FLIN0005
          SPACE                                                          FLIN0006
 ***********************************************************************         
 *                                                                     * FLIN0008
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                          FLIN0069
 ***********************************************************************         
 *                                                                     *         
 *                              DEFINE A SAFE PATCHING AREA            *         
 *                                                                     *         
          DS    4F                                                     *         
 *                                                                     *         
 ***********************************************************************         
          SPACE                                                          FLIN0126
          END                                                                    
-FILE  25;     6 RECORDS:  
0%BEFORE  FLIN0166                                                               
          BH    RDMOR2              IF SO, FORGET SEARCH AND READ NEXT           
 %DELETE  FLIN0166   FLIN0167                                                    
 %BEFORE  FLIN0214                                                               
 RDMOR2   MVC   PREVLN(4),0(R9)      SAVE LAST LN IN REC                         
 %BEFORE FILEMARK                                                                
-FILE  26;  1132 RECORDS:  
0WRIT     TITLE      'WRITE SUBROUTINE'                                          
          SPACE 4                                                                
 *********************************************************************** READ0001
 *                                                                     * READ0002
 *              SUBROUTINE WRITE - WRITE A LINE INTO THE FILE          * READ0003
 *                                                                     * READ0004
 *********************************************************************** READ0005
          SPACE                                                          READ0006
 *********************************************************************** READ0007
 *                                                                     * READ0008
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE                                                                  
 ***********************************************************************         
 *                                                                     *         
 *                           DEFINE A SAFE PATCHING AREA               *         
 *                                                                     *         
          DS    4F                                                     *         
 *                                                                     *         
 ***********************************************************************         
          SPACE                                                          READ0257
          END                                                                    
-FILE  27;    15 RECORDS:  
0%BEFORE  WRIT0484                                                               
          LR    R9,R7              MUST FIX UP LDEND                             
          S     R9,EIGHT                                                         
          ST    R9,LDEND           IN CASE HAVE DELETE ALSO                      
 %BEFORE  WRIT0830                                                               
          SH    R3,0(R8)        MAKE SURE THIS IS A LEGAL LD                     
 %DELETE  WRIT0830                                                               
 %DELETE  WRIT0837                                                               
 %BEFORE  WRIT0947                                                               
          L     R3,SAVIT                                                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %DELETE  WRIT0947                                                               
 %BEFORE  WRIT1092                                                               
 *        ***LOOK*** A FOUR BYTE HOLE                                            
 %DELETE  WRIT1092                                                               
 %BEFORE FILEMARK                                                                
-FILE  28;   112 RECORDS:  
0STRTPSW  DC    D'0'           EXTERNAL START PSW                                
          DS    XL6                                                              
 EXICOD   DS    H             EXTERNAL INTERUPT INTERRUPT CODE                   
 SVICOD   DS    H              SVC INTERRUPT CODE                                
 PGICOD   DS    H              PROGRAM INTERRUPT CODE                            
 MCICOD   DS    H              MACHINE CHECK INTERRUPT CODE                      
 IOICOD   DS    H              I/O INTERRUPT CODE                                
 EXOPSW   DS    D              EXTERNAL INTERRUPT OLD PSW                        
 SVOPSW   DS    D              SVC INTERRUPT OLD PSW                             
 PGOPSW   DS    D              PROGRAM INTERRUPT OLD PSW                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'0000'        SSU 6                                             
          DC     X'8000'       SSU 7                                             
          DC    X'8000'        SSU 8                                             
 *                                                                               
 *        END OF CST AND SST                                                     
 *                                                                               
 TRACE    DS     0F            START OF TRACE TABLE ( IN IPLED CPU'S PSA         
 *                                                                               
          ORG   PSA+4092       MUST PUT LAST JOB IN SECOND HALF PF PSA           
 LASTJOB   DC   A(DUMJOB)      ADDRESS OF LAST JOB TABLE DISPATCHED              
-FILE  29;    12 RECORDS:  
0%BEFORE  MPSA0024                                                               
 SEGT     DC    A(PGTBL0),A(PGTBL0+512),14A(1)    SEGMENT TABLE                  
 %DELETE  MPSA0024                                                               
 %DELETE  MPSA0031                                                               
 %BEFORE  MPSA0035                                                               
 CHGSAV   DS    4F            SAVE AREA FOR LDMCCHG                              
 %DELETE  MPSA0057                                                               
 %BEFORE  MPSA0103                                                               
          DC    X'0000'        SSU 5                                             
          DC    X'0000'        SSU 6                                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %DELETE  MPSA0103   MPSA0104                                                    
 %BEFORE FILEMARK                                                                
-FILE  30;   788 RECORDS:  
0GSFS     TITLE 'STORAGE ALLOCATION FOR MTS.'                                    
          MACRO                                                                  
 &LAB     HWIMB &N,&R=4                                                          
 &LAB    L     &R,LASTJBA                                                        
          L    &R,0(0,&R)                                                        
          L    &R,RJBBUF(0,&R)                                                   
          MEND                                                                   
 *                                                                               
          MACRO                                                                  
 &LAB     GTBUF                                                                  
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *              MTS.DSECT                                                        
          PRINT OFF                                                              
          COPY  *LLMPSEQU(100)                                                   
          COPY  MTS.EQU                                                          
 DUMMY    DSECT              , DOWN THE DRAIN                                    
          COPY  MTS.CONTAB                                                       
          COPY  MTS.DSECT                                                        
          PRINT ON                                                               
 DSCTL   EQU   (LASTDSCT-DSCT+7)/8*8                                             
          END                                                                    
-FILE  31;   123 RECORDS:  
0%BEFORE  GTFR0023                                                               
          GBLB  &NOSLT                                                           
 &NOSLT   SETB  (1)                                                              
 &NOSLT   SETB  (0)                                                              
 %DELETE  GTFR0023                                                               
 %DELETE  GTFR0121                                                               
 %BEFORE  GTFR0132                                                               
          AIF   (&NOSLT).SLT1                                                    
          SR    GR0,GR0       MAXIMUM COUNT                                      
          LA    GR4,PBMXFR-PBDCT1   SET UP TO FIND PRIMARY BUFFER                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .SLT7E    ANOP                                                                  
 %BEFORE  GTFR0670                                                               
          AIF   (&NOSLT).SLT8                                                    
 SCSSLT   SLT   0,1,SBLINK-SBDCT    AN SLT FOR SCANSTOR TO EXECUTE               
          AGO   .SLT8E                                                           
 .SLT8    ANOP                                                                   
 SCSSLT   NOPR  GR14               EXECUTED BY SCANSTOR                          
 .SLT8E   ANOP                                                                   
 %DELETE  GTFR0670                                                               
 %BEFORE FILEMARK                                                                
-FILE  32;  8586 RECORDS:  
0UMPS   TITLE   'UM VERSION OF LLMPS SUPERVISOR'                         SUPR0001
          MACRO                                                          SUPR0002
 &N       SETUP &A,&B                                                    SUPR0003
          AIF   (T'&N EQ 'O').A                                          SUPR0004
 &N       DS    0H                                                       SUPR0005
 .A       IHBINNRA  &A,&B                                                SUPR0006
          MEND                                                           SUPR0007
          SPACE 3                                                        SUPR0008
          SPACE                                                                  
          MACRO                                                                  
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *        BYTE-ALIGNED STUFF. SSUCONF THRU CPUCONF ASSEMBLED FOR SIMPLEX CONF0755
 FSAMAP   DC    X'0'           BIT FOR EACH FSA                          CONF0756
 SSUCONF  DC    X'88'          BIT FOR EACH CPU & CCU                    CONF0757
 CCUCONF  DC    X'08'          BIT FOR EACH CCU IN 4-7                   CONF0758
 CPUCONF  DC    X'80'          BIT FOR EACH CPU IN 0-3                   CONF0759
 BIT      DC    X'8040201008040201'                                      CONF0760
 FSAVALID DC    X'80C0E0F0F8FCFEFF'                                      CONF0761
 NUMBITS  DC    X'00010102010202030102020302030304'                      CONF0762
 INP      DS    CL50          INPUT AREA FOR TYPEWRITER                  CONF0763
          END                                                            CONF0764
-FILE  33;  1224 RECORDS:  
0%AFTER SUPR0008                                                                 
          SPACE                                                                  
          MACRO                                                                  
          BASL  &SUB,&T                                                          
          AIF   (T'&T EQ 'O').NRP                                                
          AIF   ('&T' EQ 'RP').RP                                                
          MNOTE 4,'ILLEGAL T PARAMETER'                                          
          DC    H'0',S(&SUB)                                                     
          MEXIT                                                                  
 .NRP     BAL   SVLKGR,&SUB   SET HI ORDER BIT OF SVLKGR                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LR    GR2,GR3       POINT TO IT FOR STC                                
 ONESEG   STC   GR1,0(0,GR2)  SET SIZE OF LAST SEGMENT OF MACINHGESDF            
 %DELETE CONF0717                                                                
 CCUMAP   DC    X'01000000'   ONE BYTE PER CCU (1 IF ATTACHED)                   
 %AFTER CONF0740                                                                 
 APGTBL02 DC    A(PGTBL0+512) SECOND HALF OF PAGE TABLE                          
 APGTBL1  DC    A(PGTBL1)     SECOND RESIDENT SYSTEM PAGE TABLE                  
 ASVCAEND DC    A(SVCAEND)                                                       
 F256     DC    F'256'                                                           
 %BEFORE FILEMARK                                                                
-FILE  34;   965 RECORDS:  
067TB     TITLE 'TABLES FOR MODEL 67'                                            
 *                                                                       40TAB000
 *              THIS IS THE MODEL 50 TABLES                                      
          SPACE 5                                                        40TAB003
 *        THIS PROGRAM CONTAINS SPACE FOR THE TABLES SPECIFIED BY THE    40TAB004
 *        'ENTRY' FIELDS BELOW.                                          40TAB005
          SPACE 3                                                        40TAB006
 *              VERSION OF 23 MAY 1966                                           
 *              REPLACES VERSION OF 1 APRIL 1966                                 
 *                                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DS    0F                                                       40TAB333
 MAXADD   DC    X'FFE00000'   BITS IN POSITIONS OUTSIDE VM SIZE                  
 NUMDEV   DC    A((ENDDLS-DEVLST)/LDVLST)  TOTAL NUMBER OF DEVICES               
 JTBLLIM  DC    A(0,0,0)      FILLED IN BY INITIALIZATION                        
          SPACE                                                          40TAB336
          DS    0H                                                       40TAB337
 TYPAD    DC    X'0009'       OPERATOR'S CONSOLE ADDRESS                         
 CONS     DC    X'0809'             ALTERNATE OPERATOR'S CONSOLE                 
          SPACE 3                                                        40TAB339
          END                                                                    
-FILE  35;   164 RECORDS:  
0%BEFORE  UMTB0060                                                               
          DC    AL1(0)             QCNT                                          
 %DELETE  UMTB0060                                                               
 %BEFORE  UMTB0114                                                               
          ENTRY CUEND                                                            
 %BEFORE  UMTB0131                                                               
 NONE     DC    20X'0'             FAKE DEVICE LIST ENTRY                        
 %DELETE  UMTB0131                                                               
 %BEFORE  UMTB0228                                                               
          DEV   40,DSP1,2260,2                                                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          CUT   18,00                                                            
 %DELETE  UMTB0875   UMTB0876                                                    
 %BEFORE  UMTB0881                                                               
 PTRTBL   DC    F'9'               NUMBER OF ENTRIES                             
 %DELETE  UMTB0881   UMTB0882                                                    
 %BEFORE  UMTB0900                                                               
 PGTBL0   DC    384Y((*-PGTBL0)*8)  PAGE TABLE FOR REAL CORE REMAP               
 RCTBL    DC    350A(0)             ONE WORD FOR EVERY PAGE ABOVE BUFFER         
 %DELETE  UMTB0900   UMTB0901                                                    
 %BEFORE FILEMARK                                                                
-FILE  36; 13866 RECORDS:  
0HASP     TITLE 'S P O O L  '                                                    
          TITLE 'S P O O L - GENERAL PURPOSE SERVICE MACRO DEFINITIONS'  00000000
 *                                                                       00002000
 ***** $GETBUF  *****          GET A BUFFER                              00004000
 *                                                                       00006000
 *                                                                       00008000
          MACRO                                                          00010000
 &NAME    $GETBUF &NONE,&TYPE=T                                    V02.0 00012000
 &NAME    BAL   LINK,$GE&TYPE.BUF   LINK TO ROUTINE                V02.0 00014000
          $NPEXIT &NONE             SET UP NON-PROCESS EXIT              00016000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          AH    R8,=H'2'            SKIP PUNCH ID                        20160000
          CLC   $BUFEND,0(R8)       IS THIS EOB                          20180000
          BNE   PUNCH               CONTINUE IF NO                       20200000
          B     PREOB               OTHERWISE RETURN TO PRINT PROCESSOR  20220000
 PERRCHK  NULL                      PUNCH NOT READY - TEST ERROR         20240000
 $$PUNE2  EQU   *+1                 FOR INIT                             20260000
          TIOB  PUNERROR,PUNERR     BRANCH IF ERROR                      20280000
          B     PWAIT               OTHERWISE JUST WAIT                  20300000
          SPACE 3                                                        20320000
 PUNERROR NULL                      PUNCH ERROR RECOVERY                 20340000
-FILE  37;  2287 RECORDS:  
0$RUN *MOUNT PAR=POOL ON 9TP *NEW* 'RING IN'                                     
 $RUN *MOUNT PAR=S148 ON 9TP, *MASTER* 'HASP - RING OUT'                         
 $CRE -SYSUT1 SIZE=6000                                                          
 $CRE -SYSUT2 SIZE=6000                                                          
 $CRE -SYSUT3 SIZE=6000                                                          
 $RUN *UPDATE                                                                    
 %INPUT *MASTER*   50                                                            
 %OUTPUT *NEW* 50                                                                
 %FIND '00000000'                                                                
 HASP     TITLE 'S P O O L  '                                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $RUN *DISMOUNT PAR=*MASTER*                                                     
 $RUN *MOUNT PAR=S147 ON 9TP *LIST* RING=IN 'HASP LISTING'                       
 $RUN *ASMBLR SCARDS=*NEW*   2=*SYSMAC  0=*OSMAC  3=MACROS   SPRINT=*LIST*      -
  PAR=FX,RLD,SIZE=99,IBLK=50,OBLK=50                                             
 $COPY *SOURCE* *LIST*@CC                                                        
 WTM                                                                             
 REW                                                                             
 $ENDFILE                                                                        
 $RUN *LIST SPRINT=*SINK*@MCC PAR=*LIST* 50                                      
 $SIGNOFF                                                                        
-FILE  38; 16522 RECORDS:  
0         TITLE 'S P O O L - GENERAL PURPOSE SERVICE MACRO DEFINITIONS'  00000000
 *                                                                       00002000
 ***** $GETBUF  *****          GET A BUFFER                              00004000
 *                                                                       00006000
 *                                                                       00008000
          MACRO                                                          00010000
 &NAME    $GETBUF &NONE,&TYPE=T                                    V02.0 00012000
 &NAME    BAL   LINK,$GE&TYPE.BUF   LINK TO ROUTINE                V02.0 00014000
          $NPEXIT &NONE             SET UP NON-PROCESS EXIT              00016000
          MEND                                                           00018000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 //HJCLASM  JOB (9999,2.1),'ASSEMBLE HASP JCL',MSGLEVEL=1                 CHAINED
 //ASMJCL  EXEC PGM=ASMBLR                                                       
 //SYSIN     DD DSNAME=SYS1.HASPSRC(HASPJCL),DISP=OLD                            
 //SYSLIB    DD DSNAME=SYS1.MACLIB,DISP=OLD                                      
 //SYSUT1    DD DSNAME=SYS1.UT1,LABEL=(,SL),DISP=OLD                             
 //SYSUT2    DD DSNAME=SYS1.UT2,LABEL=(,SL),DISP=OLD                             
 //SYSUT3    DD DSNAME=SYS1.UT3,LABEL=(,SL),DISP=OLD                             
 //SYSPRINT  DD SYSOUT=A                                                         
 //SYSABEND  DD SYSOUT=A                                                         
 //SYSPUNCH  DD UNIT=2540-2                                                      
-FILE  39;   354 RECORDS:  
0HSPL     TITLE ' HASPLING -- JOB TO CONTROL AN I/O DEVICE'                      
 **********************************************************************          
 *                                                                    *          
 *                       T H I S    IS THE HASPLING                   *          
 *                                                                    *          
 **********************************************************************          
          SPACE 5                                                                
          MACRO                                                                  
 &N       $POST &WHERE,&WHY                                                      
 &N       NI    &WHERE,255-$EWF&WHY                                              
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DCTFLAGS DS    0C                                                               
 DCTCHAIN DS    F                                                                
 DCTHREAD DS    F                                                                
 DCTDEVN  DS    CL8                                                              
 DCTWAYT  DS    F                                                                
 DCTSJNO  DS    H                                                                
 DCTSJWK  DS    H                                                                
 DCTWORK  DS    0F                                                               
          SPACE                                                                  
          END                                                                    
-FILE  40;     8 RECORDS:  
0HSJL     TITLE 'JOB LIST ENTRY FOR HASP'                                        
 HASPJL   START 0                                                                
          DC    CL8'    HASP'                                                    
          DC    C'1'                                                             
          DC    X'00'                                                            
          DC    H'0'                                                             
          DC    V(HASP)                                                          
          END                                                                    
-FILE  41;     8 RECORDS:  
0HLJL     TITLE 'JOB LIST ENTRY FO R HASPLING'                                   
 DWB11    START 0                                                                
          DC    CL8'HASPLING'                                                    
          DC    C'1'                                                             
          DC    X'80'                                                            
          DC    H'0'                                                             
          DC    V(HASPLING)                                                      
          END                                                                    
-FILE  42;  2939 RECORDS:  
0**********************************************************************          
 *                                                                    *          
 *                                                                    *          
 *        MTS DEVICE SUPPORT ROUTINES FOR IBM 2780'S                  *          
 *                                                                    *          
 *                                                                    *          
 **********************************************************************          
          SPACE 3                                                                
          MACRO                                                                  
          PFXD  &M,&N                                                            
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SNSCCW   DS    (SNSCCWL/8)D                                                     
 WRINCCW  DS    (WRINCCWL/8)D                                                    
 WRITCCW  DS    (WRITCCWL/8)D                                                    
 RDINCCW  DS    (RDINCCWL/8)D                                                    
 ACKCCW   DS    (ACKCCWL/8)D                                                     
 RTNLST   DS    (RTNLSTL/4)F                                                     
 CCCHAR   DS    C                                                                
          DS    0D                                                               
 PSECTL   EQU   *-PSCT                                                           
          END                                                                    
-FILE  43;   238 RECORDS:  
0         TITLE 'WATFOR UPDATER'                                                 
 *                                                                               
 *        WUPDATE PRODUCES "UPDATE" CONTROL CARDS ON SPUNCH                      
 *        TO MAKE "ORIGINAL SOURCE" IDENTICAL TO "CURRENT SOURCE".               
 *        "ORIGINAL SOURCE" MUST CONTAIN UPDATE-COMPATIBLE SEQUENCING.           
 *        BLOCK FACTORS MUST NOT EXCEED 80.                                      
 *                                                                               
 *                                                                               
 *                                                                               
 *                                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 LOS      DS    H                                                                
 TERM     DC    C'%BEF      FILEMARK  '                                          
          LTORG                                                                  
          DS    0D                                                               
 XNEW     DS    400000C                                                          
 Q1       DS    (NL)C                                                            
          DS    0D                                                               
 XOLD     DS    440000C                                                          
 Q2       DS    (OL)C                                                            
          END                                                                    
-FILE  44;   186 RECORDS:  
0%BEFORE  UNUP0003                                                               
 *        WUPDATE PRODUCES "UPDATE" CONTROL CARDS ON SPUNCH                      
 *        TO MAKE "ORIGINAL SOURCE" IDENTICAL TO "CURRENT SOURCE".               
 *        "ORIGINAL SOURCE" MUST CONTAIN UPDATE-COMPATIBLE SEQUENCING.           
 *        BLOCK FACTORS MUST NOT EXCEED 80.                                      
 *                                                                               
 %DELETE  UNUP0003   UNUP0005                                                    
 %BEFORE  UNUP0010                                                               
 &LABEL   CMP   &N,&NOGO                                                         
          LCLA  &I                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TERM     DC    C'%BEF      FILEMARK  '                                          
          LTORG                                                                  
          DS    0D                                                               
 XNEW     DS    400000C                                                          
 Q1       DS    (NL)C                                                            
          DS    0D                                                               
 XOLD     DS    440000C                                                          
 Q2       DS    (OL)C                                                            
 %DELETE  UNUP0152   UNUP0166                                                    
 %BEF      FILEMARK                                                              
-FILE  45;   667 RECORDS:  
0EDTR     TITLE 'EDITOR'                                                 EDIT0001
 *                                                                       EDIT0002
 *        **********************************************************     EDIT0003
 *        *                                                        *     EDIT0004
 *        *     SDS EDITOR ROUTINE                                 *     EDIT0005
 *        *                                                        *     EDIT0006
 *        **********************************************************     EDIT0007
 *                                                                       EDIT0008
 *                                                                       EDIT0009
 *                                                                       EDIT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MSING    COMMENT '-***MISSING SYM OR ESD CARDS.'                        EDIT0658
          B     TDEXIT                                                   EDIT0659
 MSEND    COMMENT '-***MISSING END CARD IN OBJECT FILE.'                 EDIT0660
          B     TDEXIT                                                   EDIT0661
 *                                                                       EDIT0662
 PUNT     COMMENT '***SYSTEM ERROR.'                                     EDIT0663
          ERROR                                                          EDIT0664
 *                                                                       EDIT0665
 INPUT    DS    256C               INPUT REGION                          EDIT0666
          END                                                            EDIT0667
-FILE  46;  2433 RECORDS:  
0SDS      TITLE 'SDS INITIALIZATION'                                     SDS00001
 *                                                                       SDS00002
 *        **********************************************************     SDS00003
 *        *                                                        *     SDS00004
 *        *     SYMBOLIC DEBUGGING SYSTEM - COMMUNICATIONS MODULE  *     SDS00005
 *        *                                                        *     SDS00006
 *        **********************************************************     SDS00007
 *                                                                       SDS00008
 *        THIS IS THE COMMUNICATIONS MODULE COMMON                       SDS00009
 *        TO ALL SECTIONS IN SDS.  IT CONTAINS PROCEDURES                SDS00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                                                                       SDS02424
          PSTE  FR0,FREGS,8,11                                           SDS02425
          PSTE  FR2,FREGS+2*4,8,11                                       SDS02426
          PSTE  FR4,FREGS+4*4,8,11                                       SDS02427
          PSTE  FR6,FREGS+6*4,8,11                                       SDS02428
          PSTE  GRS,REGISTRS,4,12                                        SDS02429
          PSTE  FRS,FREGS,8,13                                           SDS02430
          PSTE  PSW,PSW,8,14                                             SDS02431
          DC    X'00000000'                                              SDS02432
          END                                                            SDS02433
-FILE  47;  1684 RECORDS:  
0FCN      TITLE 'CONTROL FUNCTION MODULE'                                FCN00001
 *                                                                       FCN00002
 *                                                                       FCN00003
 *                                                                       FCN00004
 *        **********************************************************     FCN00005
 *        *                                                        *     FCN00006
 *        *     SDS CONTROL FUNCTION MODULE                        *     FCN00007
 *        *                                                        *     FCN00008
 *        **********************************************************     FCN00009
 *                                                                       FCN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 MAPENTRY DSECT MAP ENTRY FOR SDS MAP                                    FCN01675
 LOADADD  DS    XL3                LOADED ADDRESS                        FCN01676
 RELOC    DS    XL3                RELOCATION FACTOR                     FCN01677
 LCSECT   DS    XL3                LENGTH FOR THIS CSECT                 FCN01678
 CSNAME   DS    CL8                CSECT NAME                            FCN01679
 SKEY     DS    X                  MAP FLAG BYTE                         FCN01680
 STPTR    DS    XL3                PTR TO START OF CSECT IN SYMBOL TABLE FCN01681
 TOBECON  DS    AL4                PTR TO LAST SDS LINK FOR A SECTION    FCN01682
 LMAP     EQU   *-MAPENTRY                                               FCN01683
          END                                                            FCN01684
-FILE  48;  1768 RECORDS:  
0IOC      TITLE 'I/O CONVERSION'                                         IOC00001
 *        INOUT / OUTPUT CONTROL PACKAGE.                                IOC00002
 *        THIS SUB-LIBRARY CONATINS ALL THE SDS                          IOC00003
 *        INPUT / OUTPUT CONVERSION ROUTINES.                            IOC00004
 *                                                                       IOC00005
 IOC      CSECT                                                          IOC00006
          PRINT NOGEN                                                    IOC00007
          USING *,BASE             COVER IOC                             IOC00008
          USING LINKMOD,CHAIN      COVER FOR SDSDSECT                    IOC00009
          ENTRY FIXED                                                    IOC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IE       EQU   C'E'                                                     IOC01759
 IPLUS    EQU   C'+'                                                     IOC01760
 IMINUS   EQU   C'-'                                                     IOC01761
 ICOMMA   EQU   C','                                                     IOC01762
 IQUOTE   EQU   C''''                                                    IOC01763
 IPRIOD   EQU   C'.'                                                     IOC01764
 IZERO    EQU   C'0'                                                     IOC01765
 I9       EQU   C'9'                                                     IOC01766
 TXDEXP   EQU   0                                                        IOC01767
          END                                                            IOC01768
-FILE  49;   349 RECORDS:  
0         TITLE 'SDS PSECT'                                              PSC00001
 *        **********************************************************     PSC00002
 *        *                                                        *     PSC00003
 *        *     COMMUNICATION AREA                                 *     PSC00004
 *        *                                                        *     PSC00005
 *        **********************************************************     PSC00006
 *                                                                       PSC00007
          DS    0D                                                       PSC00008
 SAVEAREA DS    19F                PRIMARY SAVE AREA                     PSC00009
 SAVEARE2 DS    19F                SECONDARY SAVE AREA                   PSC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 CLINK    DS    A                  FORWARD POINTER TO CONTINUED ENTRY    PSC00340
          DC    X'E0'              TERMINATOR CODE                       PSC00341
 PLINK    DS    AL4                FWD PTR FOR PREVIOUS SECTION          PSC00342
 *                                                                       PSC00343
 LCSE     EQU   *-SDSLINK                                                PSC00344
 *                                                                       PSC00345
 ATDS     DSECT                    DSECT FOR AT-TABLE ENTRY              PSC00346
 ATADRS   DS    A                  LOADED ADDRESS OF BREAKPOINT          PSC00347
 CARAD    DS    A                  POINTER TO COMMAND IN COMMAND TABLE   PSC00348
 LATENT   EQU   *-ATDS             LENGTH FOR AT-TABLE ENTRY             PSC00349
-FILE  50;    59 RECORDS:  
0*                                                                       DST00001
 *        DUMMY STG (SEE SDS LISTING FOR DEFINITON)                      DST00002
 *                                                                       DST00003
 *        INITITAL LOAD TABLE                                            DST00004
 *                                                                       DST00005
 INITS    DS    0F                                                       DST00006
          DC    F'5'                                                     DST00007
          DC    CL12'SYSTEM'                                             DST00008
          DC    CL12'ERROR'                                              DST00009
          DC    CL12'PGNTTRP'                                            DST00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 S4AB     B     *                  SCAN FOR DELIMITING BLANK             DST00050
 PISOSYM  B     *                  PUSH ISOSYM PARAMETERS                DST00051
 RISOSYM  B     *                  RESTORE ISOSYM PARAMETERS             DST00052
 TECF     B     *                  COMPUTE SDS TYPE CHARACTER INDEX      DST00053
 RESTIO   B     *             RESTORE TO *MSOURCE* & *MSINK*             DST00054
          B     *                  SPARE                                 DST00055
 FUNBASE  DS    A (FUNCTION)       FUNCTION BASE REG VALUE               DST00056
 IOCBASE  DS    A (IOC)            I/O CONTROL BASE REG VALUE            DST00057
 PARPFX   DS    A (SDSPRFX,LPFX)   PARM LIST FOR CALL TO SETPFX          DST00058
 *                                                                       DST00059
-FILE  51;   343 RECORDS:  
0         MACRO                                                          MAC00001
 &LABEL   COMMENT &MSG                                                   MAC00002
 &LABEL   BAL   GR14,COMMPROS                                            MAC00003
          DC    AL1(L'M&SYSNDX)                                          MAC00004
 M&SYSNDX DC    C&MSG                                                    MAC00005
          MEND                                                           MAC00006
 *                                                                       MAC00007
          MACRO                                                          MAC00008
 &LABEL   FETCH &WHERETO,&HOWMANY,&EXIT                                  MAC00009
 &LABEL   LA    WORKB,&WHERETO                                           MAC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          GBLC  &SAVLOC                                                  MAC00334
 &LABEL   L     LINK,&SAVLOC                                             MAC00335
          L     BASE2,&SAVLOC+4                                          MAC00336
          AIF   (T'&MODE EQ 'O').B2                                      MAC00337
          AIF   ('&MODE'(1,1) EQ 'F').B4                                 MAC00338
 .B2      B     4(0,LINK)                                                MAC00339
 &SAVLOC  DS    2A                                                       MAC00340
          MEXIT                                                          MAC00341
 .B4      BR    LINK                                                     MAC00342
          MEND                                                           MAC00343
-FILE  52;   347 RECORDS:  
0$RUN *MOUNT PAR=S417 9TP *SDS* QUIT=YES 'SDS MASTER SOURCE'                     
 $RUN *MOUNT PAR=S416 9TP *POOL* QUIT=YES RING=IN 'LP UPDATE TAPE'               
 $EMP SDSMACROS                                                                  
 $EMP DSECT2                                                                     
 $EMP SDSDSECT                                                                   
 $CRE -SYSUT2 SIZE=3000                                                          
 $RUN *UPDATE                                                                    
 %REW     *POOL*                                                                 
 %REW     *SDS*                                                                  
 %OUT     *POOL* 40                                                              
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $COP -SYSUT2(1000) SDSMACROS(1000)                                              
 $LIST SDSMACROS                                                                 
 $EMP NEWSDS                                                                     
 $RUN *ASMG SCARDS=*POOL* SPUNCH=NEWSDS 0=*SYSMAC 2=SDSMACROS PAR=SIZE=200,IBLK=-
 150,T,FX,RD,B                                                                   
 $RUN *OBJSCAN                                                                   
 NEWSDS                                                                          
 SDS                                                                             
 $ENDFILE                                                                        
 $SIGNOFF                                                                        
-FILE  53;     8 RECORDS:  
0*                  COPIED BY NAME 'ASMGSET'                             ASET0001
 *                  THIS BLOCK OF CODING SETS THE GLOBAL SWITCHES        ASET0002
          GBLB      &DEBUG,&NOTBUG,&STAT,&NOTSTAT                        ASET0003
 &DEBUG   SETB      0                   SET 1 FOR DEBUG VERSION          ASET0004
 &STAT    SETB      0                   SET 1 FOR STATISTICS VERSION     ASET0005
 &NOTBUG  SETB      ( NOT &DEBUG)                                        ASET0006
 &NOTSTAT SETB      ( NOT &STAT)                                         ASET0007
 *                  END OF COPIED CODE                                   ASET0008
-FILE  54;  1331 RECORDS:  
0$RUN *MOUNT PAR=S416 9TP *POOL* RING=IN QUIT=YES 'LP UPDATE'            ASET0009
 $RUN *MOUNT PAR=S151 9TP *ASMG* QUIT=YES 'ASMG MASTER SOURCE'           ASET0010
 $RUN *UPDATE                                                            ASET0011
 %REW *POOL*                                                             ASET0012
 %REW *ASMG*                                                             ASET0013
 %OUTPUT *POOL* 40                                                       ASET0014
 %INPUT *ASMG* 40                  ASM                                   ASET0015
 %DELETE '00040020'                                                      ASET0016
 %DELETE '00780020'                                                      ASET0017
          ENTRY ASMRET,LIST1,DCBIN,DCBLIB,DCBPRNT                        ASET0018
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 R=FX,B,RD,SIZE=200,IBLK=40,OBLK=40                                      ASET1330
 $COP *SOURCE* *LIST*@CC                                                 ASET1331
 WTM                                                                     ASET1332
 $ENDFILE                                                                ASET1333
 $RUN *OBJSCAN                                                           ASET1334
 NEWASMG                                                                 ASET1335
 *ASMG                                                                   ASET1336
 *ASMBLR                                                                 ASET1337
 $ENDFILE                                                                ASET1338
 $SIG                                                                    ASET1339
-FILE  55;  4438 RECORDS:  
0         MACRO                                                          ART00001
 &NAME    ACENT     &N                                                   ART00002
 &NAME    STM       R13+1,R13-1,12(R13)                                  ART00003
          BAL       R11,CENT                                             ART00004
          DC        A(&N-START)                                          ART00005
          USING     &N,R13                                               ART00006
          L         R3,ADENT                                             ART00007
          LA        R11,0(R12,R3)                                        ART00008
          USING     ARITH+8,R11                                          ART00009
          MEND                                                           ART00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        AL1(ALOGCD00-ALOGCD) PHI.OR .L*4                     ART04429
          DC        AL1(ALOGCD00-ALOGCD)    .AND.                        ART04430
          DC        AL1(ALOGCD10-ALOGCD)    .NOT.                        ART04431
          DC        AL1(ALOGCD05-ALOGCD) LR1.OR .L*4                     ART04432
          DC        AL1(ALOGCD08-ALOGCD)    .AND.                        ART04433
          DC        AL1(ALOGCD03-ALOGCD)    .NOT.                        ART04434
          DC        AL1(ALOGCD04-ALOGCD) L*4.OR .L*4                     ART04435
          DC        AL1(ALOGCD07-ALOGCD)    .AND.                        ART04436
          DC        AL1(ALOGCD03-ALOGCD)    .NOT.                        ART04437
          END       START                                                ART04438
-FILE  56;  1258 RECORDS:  
0         MACRO                                                          DOD00001
 &NAME    DFIXU     &LOC                                                 DOD00002
 &NAME    S         R3,CSYMBASE                                          DOD00003
          STH       R3,&LOC(1)+2                                         DOD00004
          AIF       (N'&LOC EQ 1).END                                    DOD00005
          STH       R3,&LOC(2)+2                                         DOD00006
          AIF       (N'&LOC EQ 2).END                                    DOD00007
          STH       R3,&LOC(3)+2                                         DOD00008
          AIF       (N'&LOC EQ 3).END                                    DOD00009
          STH       R3,&LOC(4)+2                                         DOD00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 DOPARMH  DC        X'00'                                                DOD01249
 GASSNSW  DC        X'00'                                           V0L0 DOD01250
 DHIGHEST DC        X'00'               HIGHEST DONO IN STACK       V0L0 DOD01251
 *        PUTTING  OUT END OF DO CODING                             V0L0 DOD01252
 DSTACK   DC        X'7FFFFFFF',X'00FFFFFF',X'0000000000000000'     V0L0 DOD01253
 IRGO2    EQU       XERRGO2                                              DOD01254
 IRGO3    EQU       XERRGO4                                              DOD01255
 IRDO7    EQU       XERRDO7                                              DOD01256
          LTORG                                                          DOD01257
          END                                                            DOD01258
-FILE  57;   157 RECORDS:  
0         COPY      OPTIONS                                              00000010
 R14      EQU       14                                                   00000020
          ENTRY     DCSTN1                                               00000030
          ENTRY     FORMATEX                                             00000040
          ENTRY     LENDPROG                                             00000050
          ENTRY     INBCDI                                               00000060
          ENTRY     OUTBCDI                                              00000070
          ENTRY     INFREEI                                              00000080
          ENTRY     OUTFREEI                                             00000090
          ENTRY     INBCD,OUTBCD,INBIN,OUTBIN,INFREE,OUTFREE             00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          LA        7,0(0,7)                                             00001480
          SH        7,10(0,7)                                            00001490
          BR        7                                                    00001500
          DC        H'4'                                                 00001510
          DS        0F                                                   00001520
 FRIOTEMP DC        16X'F0'                                              00001530
          DC        H'0'                                                 00001540
          DC        H'0'                                                 00001550
 END      DS        0D                  LAST CARD IN DECK DUMMY          00001560
          END                                                            00001570
-FILE  58;   104 RECORDS:  
0         MACRO                                                          00000010
 &NAME    EQUX      &ADDR                                                00000020
          ENTRY     &NAME                                                00000030
 &NAME    EQU       &ADDR                                                00000040
          MEND                                                           00000050
          SPACE                                                          00000060
 FUMMYR   CSECT                                                          00000070
          SPACE                                                          00000080
 DTANH    EQUX      *                                                    00000090
          PRINT     ON,NOGEN                                             00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 AMIN1    EQUX      *                                                    00000950
 MAX0     EQUX      *                                                    00000960
 MIN0     EQUX      *                                                    00000970
 AMAX0    EQUX      *                                                    00000980
 AMIN0    EQUX      *                                                    00000990
 DMAX1    EQUX      *                                                    00001000
 DMIN1    EQUX      *                                                    00001010
 TRAPS    EQUX      *                                                    00001020
          BR        14                                                   00001030
          END                                                            00001040
-FILE  59;  1268 RECORDS:  
0         COPY      OPTIONS                                              00000010
 IHCFIOSH CSECT                                                          00000020
          TITLE 'IHCFIOSH - OPERATION SYSTEM/360   FORTRAN H   I/O'      00000030
 *STATUS--CHANGE LEVEL 000                                               00000040
 *                                                                       00000050
 *FUNCTION/OPERATION--ALL I/O READ AND WRITE AND MANIPULATIVE COMMANDS   00000060
 *   OF A FORTRAN SOURCE PROGRAM RESULT IN ONE OR MORE ENTRIES INTO THIS 00000070
 *   ROUTINE, AND IN TURN, FIOCS MAKES AN APPROPRIATE REQUEST OF THE     00000080
 *   CONTROL PROGRAM.                                                    00000090
 *                                                                       00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 STATLOC  DS    F                                                        00012490
          EJECT                                                          00012500
 XDSECT   DSECT                                                     UOW  00012510
 PLINES   DS        F                   LINES PER PAGE ALLOWED      UOW  00012520
 PLNCOUNT DS        F                   LINES SO FAR ON CURRENT PAGEUOW  00012530
 PPAGES   DS        F                   PAGES ALLOWED               UOW  00012540
 PPGCOUNT DS        F                   PAGES SO FAR                UOW  00012550
          DS        F                                               UOW  00012560
 PXCARD   DS        F                                               UOW  00012570
          END                                                            00012575
-FILE  60;   102 RECORDS:  
0         MACRO                                                          00000010
          UNIT                                                           00000020
          GBLA      &NOUTILS                                             00000030
          LCLA      &COUNT                                               00000040
 &COUNT   SETA      8                                                    00000050
 .LOOP    AIF       (&COUNT GT &NOUTILS).END                             00000060
 &COUNT   SETA      &COUNT+1                                             00000070
          UNITGEN                                                        00000080
          AGO       .LOOP                                                00000090
 .END     ANOP                                                           00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    X'00'                   UNUSED DEFAULT FIELD             00000930
          DC    AL2(80)                 BLKSIZE                          00000940
          DC    B'11000000'             RECFM - U                        00000950
          DC    AL1(2)                  BUFNO                            00000960
          DC    AL2(0)                  LRECL                            00000970
          DC    F'1'  DASD VARIABLE POINTER                              00000980
          UNIT                                                           00000990
 END      EQU   *                                                        00001000
     END                                                                 00001010
          END                                                            00001020
-FILE  61;   466 RECORDS:  
0         MACRO                                                          FRM00001
 &NAME    FERROR    &LIST                                                FRM00002
 &NAME    BALR      R14,R9                                               FRM00003
          ERRCODE   &LIST                                                FRM00004
          MEND                                                           FRM00005
          COPY      OPTIONS                                              FRM00006
          EXTRN     DEXP                                                 FRM00007
          EXTRN     DLOG                                                 FRM00008
          EXTRN     INBINI,OUTBINI                                       FRM00009
          EXTRN     XTART                                                FRM00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FSAVE14  DS        F                                                    FRM00457
 FBCNT    DC        H'0'                                                 FRM00458
 FHMOVE   MVC       0(0,R15),0(R1)                                       FRM00459
 FLT      DC        X'0800000050'                                        FRM00460
 FRT      DC        X'380000004C'                                        FRM00461
 FORMCONS DC        X'1C1814402800202C0000240048'                        FRM00462
 FSW      DS        X                                                    FRM00463
 FMTCHAR  DS        X                                                    FRM00464
          LTORG                                                          FRM00465
          END       FORMAT                                               FRM00466
-FILE  62;  1368 RECORDS:  
0         MACRO                                                          FRC00001
 &ADDR    DEFSAVE                                                        FRC00002
 &ADDR    LA        R13,FVSAVE-FMCNBASE(R15)                             FRC00003
          MEND                                                           FRC00004
          COPY      OPTIONS                                              FRC00005
 FORMCONV CSECT                                                          FRC00006
          PRINT     OFF                                                  FRC00007
          COPY      CDEFN                                                FRC00008
 STARTA   CSECT                                                          FRC00009
          COPY      STARTA                                               FRC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RECLEN   DC        H'0'                                                 FRC01359
 INSPNCON DC        C'1048576'                                           FRC01360
 INDPNCON DC        C'4503599627370495'                                  FRC01361
 FRIOROUT DS        1F                                                   FRC01362
 NDEC1    DS        1H                                              V0L1 FRC01363
          LTORG                                                          FRC01364
 ADTBLE   EQU       TRTBLE+1                                             FRC01365
 FINISH   EQU       XBOOT                                                FRC01366
 ABUFFER  EQU       XBUFFER                                              FRC01367
          END                                                            FRC01368
-FILE  63;   721 RECORDS:  
0         PRINT     ON,GEN                                               FRI00001
          COPY      OPTIONS                                              FRI00002
          ENTRY     FRIOTEMP                                             FRI00003
          ENTRY     FRIOSCAN                                             FRI00004
 FRIO     TITLE     'RUN TIME INPUT SCAN ROUTINES'                       FRI00005
 *********************************************************************** FRI00006
 *********************************************************************** FRI00007
 *********************************************************************** FRI00008
 *        THIS SECTION SCANS THE INPUT FIELD, (IN FORMAT I/O), OR THE    FRI00009
 *        COMPLETE INPUT BUFFER, (IN FREE I/O), TO SET UP THE INPUT      FRI00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          BAL       R5,FREXIT2          GO TO END OF FIELD ROUTINE       FRI00712
          LM        R1,R6,FREXSAVE      RESTORE REGISTERS                FRI00713
          LA        R1,1(0,R1)          MOVE POINTER PAST DELIMITER      FRI00714
          CLI       0(R1),C','          IS THIS CHAR A COMMA             FRI00715
          BC        6,*+8               NO BRANCH AROUND                 FRI00716
          LA        R1,1(0,R1)          YES POINT TO NEXT CHAR           FRI00717
          BC        15,FRIOINIT         GO TO INITIALIZE SCAN            FRI00718
          EJECT                                                          FRI00719
          LTORG                                                          FRI00720
          END                                                            FRI00721
-FILE  64;  2359 RECORDS:  
0         MACRO                                                          FCN00001
 &NAME    FOMIT     &FN                                                  FCN00002
          GBLC      &FTABA(255)                                          FCN00003
          GBLA      &FJ                                                  FCN00004
          LCLA      &I                                                   FCN00005
 &I       SETA      0                                                    FCN00006
 .LOOP    AIF       (&I EQ &FJ).END                                      FCN00007
 &I       SETA      &I+1                                                 FCN00008
          AIF       ('&FN' EQ '&FTABA(&I)').SETUP                        FCN00009
          AGO       .LOOP                                                FCN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        0F'0'                                                FCN02350
 CSAVER   EQU       *                                                    FCN02351
 COUT     EQU       *                                                    FCN02352
 CSN      EQU       *                                                    FCN02353
 CSYMBASE EQU       *                                                    FCN02354
 *********                                                               FCN02355
 XSAVEFN2 DC        19F'0'                                               FCN02356
 XSAVEFN1 DC        19F'0'                                               FCN02357
 ONE      EQU       XFLTONE                                              FCN02358
        END                                                              FCN02359
-FILE  65;  1045 RECORDS:  
0         COPY      OPTIONS                                              INO00001
          EJECT                                                          INO00002
          ENTRY     GCONT                                                INO00003
          ENTRY     ISTOP                                                INO00004
          ENTRY     IPAUS                                                INO00005
          ENTRY     IBACK                                                INO00006
          ENTRY     IREWI                                                INO00007
          ENTRY     IENDF                                                INO00008
          ENTRY     IREAD                                                INO00009
          ENTRY     IPUNC                                                INO00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IOLPENDS EQU       IOUNIT+2            CHEAP BASTARD                    INO01036
 ILISTCNT EQU       IDATACD3+9                                           INO01037
 IMAXUNIT EQU       CMAXUNIT                                             INO01038
 * IOEND1  DC  AL1(IREL1),AL3(XIOEND-START),AL1(IREL1),AL3(XIOERR-START) INO01039
 IOEND1   EQU       XINPDSRN+4          SAVE SOME SPACE                  INO01040
 INSTLIN  EQU       XINPDSRN+3          READFMT AND FREE INPUT UNIT      INO01041
 INSTLOUT EQU       XOUTDSRN+3          PRINTFMT AND FREE OUTPUT UNIT    INO01042
 INSTLPUN EQU       XPUNDSRN+3          PUNCHFMT AND FREE PUNCH UNIT     INO01043
          LTORG                                                          INO01044
          END                                                            INO01045
-FILE  66;   990 RECORDS:  
0         MACRO                                                          LNK00001
 &A       REND                                                           LNK00002
 &A       DC        0H'0',X'AA00'                                        LNK00003
          MEND                                                           LNK00004
          MACRO                                                          LNK00005
 &A       RSAVA                                                          LNK00006
 &A       DC        0H'0',X'A0000000'                                    LNK00007
          MEND                                                           LNK00008
          MACRO                                                          LNK00009
 &A       RSTNS     &B                                                   LNK00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC        X'AC'                                                LNK00981
          DC        AL1(0)                                               LNK00982
          DC        Y(*-*)                                               LNK00983
 LBARND   B         *-*                                                  LNK00984
 LRSTNS   DC        0H'0',X'A7',AL1(0),Y(0)                              LNK00985
 LRVARS   DC        0H'0',X'A6',AL1(0),Y(*-*)                            LNK00986
 LRVARS1  DC        0H'0',X'A6',AL1(8),Y(*-*)                            LNK00987
 LSAVER2  DS        18F                                                  LNK00988
          LTORG                                                          LNK00989
          END                                                            LNK00990
-FILE  67;   706 RECORDS:  
0         MACRO                                                          MN#00001
 &NAME    FLIST     &FN,&MODE                                            MN#00002
          GBLC      &FTABA(255)                                          MN#00003
          GBLA      &FJ                                                  MN#00004
          LCLA      &I                                                   MN#00005
 &I       SETA      0                                                    MN#00006
 .LOOP    AIF       (&I EQ &FJ).SETUP                                    MN#00007
 &I       SETA      &I+1                                                 MN#00008
          AIF       ('&FN' EQ '&FTABA(&I)').END                          MN#00009
          AGO       .LOOP                                                MN#00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EJECT                                                          MN#00697
 MRUPT    EQU       *                                                    MN#00698
          USING     ZPIE,R1                                              MN#00699
          USING     MRUPT,R15                                            MN#00700
          CSNAP     INTERRPT,,32                                         MN#00701
          BR        R14                                                  MN#00702
          DROP      R1                                                   MN#00703
          DROP      R15                                                  MN#00704
          LTORG                                                          MN#00705
          END       START                                                MN#00706
-FILE  68;   581 RECORDS:  
0         MACRO                                                          00000010
          CDEFN                                                          00000020
          MEND                                                           00000030
          MACRO                                                          00000040
 &A       ETITLE    &B                                                   00000050
          PUNCH     ' '                                                  00000060
          PUNCH     ' '&B''                                              00000070
          MEND                                                           00000080
          MACRO                                                          00000090
 &A       EMESSAGE  &B,&C,&D                                             00000100
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          EJECT                                                          00005460
          EMESSAGE  VA,D,'ILLEGAL DO-PARAMETER,ASSIGNED OR INITIALIZED VX00005463
                ARIABLE IN SPECIFICATION'                           V0L5 00005464
          EMESSAGE  VA,E,'ATTEMPT TO DIMENSION A CALL-BY-NAME PARAMETER' 00005465
 XT       ETITLE    'EXTERNAL STATEMENT'                                 00005470
          EMESSAGE  XT,0,'INVALID ELEMENT IN EXTERNAL LIST'              00005480
          EMESSAGE  XT,1,'INVALID DELIMITER IN EXTERNAL STATEMENT'       00005490
          EMESSAGE  XT,2,'SUBPROGRAMME PREVIOUSLY EXTERNALLED'           00005500
          EJECT                                                          00005510
          END                                                            00005520
-FILE  69;  1336 RECORDS:  
0         TITLE     'RELOCATOR'                                          RLC00001
          COPY      OPTIONS                                              RLC00002
 RCS123   CSECT                                                          RLC00003
          ENTRY     RPH12                                                RLC00004
          ENTRY     RPH3                                                 RLC00005
          EXTRN     END                                                  RLC00006
          EXTRN     MAIN                                                 RLC00007
          EXTRN     XTART                                                RLC00008
          PRINT     OFF                                                  RLC00009
          EXTRN     CXTART,CXTOP                                         RLC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RPADR1   S         R3,RDATBASE                                          RLC01327
          THEN      DONE                                                 RLC01328
 RSADRS   LA        R3,Z5+4                                              RLC01329
          THEN      (DO,RPADR1),DONE                                     RLC01330
 RSADRD   LA        R3,Z5+8                                              RLC01331
          THEN      (DO,RPADR1),DONE                                     RLC01332
 REL45TMP DC        X'00'                                                RLC01333
 RVGENEQC DC        X'00'                                                RLC01334
          LTORG                                                          RLC01335
          END                                                            RLC01336
-FILE  70;  1553 RECORDS:  
0         MACRO                                                          SCN00001
 &NAME    TEST      &SW,&ON,&OFF                                         SCN00002
 &NAME    TM        &SW,X'01'                                            SCN00003
          AIF       ('&ON' EQ '').A                                      SCN00004
          BO        &ON                                                  SCN00005
          MEXIT                                                          SCN00006
 .A       BNO       &OFF                                                 SCN00007
          MEND                                                           SCN00008
          GBLA      &X,&Y                                                SCN00009
          COPY      OPTIONS                                              SCN00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          CLI       2(R1),X'01'                                          SCN01544
          BNE       PLOOP                                                SCN01545
          SNAPS     STCK,SPEC,4                                          SCN01546
          LA        R1,SCARD                                             SCN01547
          SR        R2,R2                                                SCN01548
          BR        R14                                                  SCN01549
 SPEC     DC        X'00000100'                                          SCN01550
 .SSN1    ANOP                                                           SCN01551
          LTORG                                                          SCN01552
          END                                                            SCN01553
-FILE  71;  2066 RECORDS:  
0         TITLE     '*** MACROS USED IN THIS DECK ***'                   SPC00001
          MACRO                                                          SPC00002
 &NAME    MULTSS                                                         SPC00003
          LCLA      &A                                                   SPC00004
 &A       SETA      24                                                   SPC00005
 &NAME    DS        0H                                                   SPC00006
 .A       ANOP                                                           SPC00007
          M         R2,TSS+&A                                            SPC00008
 &A       SETA      &A-4                                                 SPC00009
          AIF       (&A GE 0).A                                          SPC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SR        R3,R3                                           V0L0 SPC02057
          ST        R3,0(R6,R12)                                    V0L0 SPC02058
          LR        R7,R9                                           V0L0 SPC02059
          SR        R7,R15                                          V0L0 SPC02060
          STH       R7,ZVDIME                                       V0L0 SPC02061
          GETR      R14,TSAVER+16                                   V0L0 SPC02062
          BR        R14                                             V0L0 SPC02063
 *******  END OF TDIME2       **************************************V0L0 SPC02064
          LTORG                                                          SPC02065
          END                                                            SPC02066
-FILE  72;   128 RECORDS:  
0*********************************************************************** 00000002
 *********************************************************************** 00000003
 *                                                                     * 00000004
 *       WATFOR COMPILER - VERSION 0 LEVEL 7         AUGUST 6/68.      * 00000005
 *                                                                     * 00000006
 *********************************************************************** 00000007
 *********************************************************************** 00000008
 *                                                                       00000009
 *******************                                                     00000010
 *        FOLLOWING ARE THE DECLARATIONS FOR THE INST PARAMETERS         00000020
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 .SET2    ANOP                                                           00000980
 &VCHECK1 SETA      0                                                    00000990
 &VCHECK2 SETA      0                                                    00001000
 .VEND    ANOP                                                           00001010
          AIF       ('&CHRMODE' EQ 'BCDIC').SET4                         00001020
 &VCHECK3 SETA      6                                                    00001030
          AGO       .VEND1                                               00001040
 .SET4    ANOP                                                           00001050
 &VCHECK3 SETA      0                                                    00001060
 .VEND1   ANOP                                                           00001070
-FILE  73;   331 RECORDS:  
0         TITLE     'DEFINITIONS'                                        CDF00001
 R0       EQU       0                                                    CDF00002
 R1       EQU       1                                                    CDF00003
 R2       EQU       2                                                    CDF00004
 R3       EQU       3                                                    CDF00005
 R4       EQU       4                                                    CDF00006
 R5       EQU       5                                                    CDF00007
 R6       EQU       6                                                    CDF00008
 R7       EQU       7                                                    CDF00009
 R8       EQU       8                                                    CDF00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 Z8       EQU       ZR8                 /*PATCH*/                        CDF00322
 Z9       EQU       ZR9                 /*PATCH*/                        CDF00323
 Z10      EQU       ZR10                /*PATCH*/                        CDF00324
 Z11      EQU       ZR11                /*PATCH*/                        CDF00325
 Z12      EQU       ZR12                /*PATCH*/                        CDF00326
 Z13      EQU       ZR13                /*PATCH*/                        CDF00327
 Z14      EQU       ZR14                /*PATCH*/                        CDF00328
 Z15      EQU       ZR15                /*PATCH*/                        CDF00329
 ZSAVER   EQU       Z13                 /*****PATCH*****/                CDF00330
          TITLE     ' '                                                  CDF00331
-FILE  74;   863 RECORDS:  
0         TITLE     'COMMUNICATIONS REGION'                              COM00001
 CSTART   BALR      R11,0                                                COM00002
          USING     *,R11                                                COM00003
          LA        R10,CSAVER                                           COM00004
          CLINK1    MSTART                                               COM00005
          DROP      R11                                                  COM00006
 CSTOP    BALR      R11,0                                                COM00007
          USING     *,R11                                                COM00008
          LA        R10,CSAVER                                           COM00009
          CLINK1    MSTOP                                                COM00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 *                  NEXT 4 HALF WORDS POINT TO DO PARAMETERS             COM00854
          AIF       ('&WATTYPE' EQ 'DISTR').CCN1                         COM00855
          ORG       CSAVER+3900                                          COM00856
 .CCN1    ANOP                                                           COM00857
 DMAXNEST EQU       &DOSTACK                                             COM00858
 CDOIOCT  DC        A(*+88)                                              COM00859
 CDOIOST  DC        21F'0'                                               COM00860
 CDTOPSTK DC         A(CDOSTK+DMAXNEST*16)    POINTER TO TOP ENTRY       COM00861
 CDOSTK   DC        (DMAXNEST+1)X'7FFFFFFF00FFFFFF0000000000000000'      COM00862
          TITLE     ' '                                                  COM00863
-FILE  75;  1921 RECORDS:  
0         TITLE     'START AREA'                                         STA00001
 * EXECUTION PROGRAMME INTERRUPT MONITOR                                 STA00002
 *                                                                       STA00003
 XTIMINT  DC        0H'0'                                                STA00004
          USING     XTIMINT,15                                           STA00005
          MVI       XISNRTN+1,X'00'                                      STA00006
          BR        R14                                                  STA00007
          DROP      15                                                   STA00008
          USING     ZPIE,1                                               STA00009
          USING     XRUPT,15                                             STA00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 XEXP42   LD        F0,XEXPLIT                                           STA01912
          SDR       F2,F2                                                STA01913
          B         XCDIV116                                             STA01914
          DROP      15                                                   STA01915
          LTORG                                                          STA01916
      EJECT                                                              STA01917
 OBJECT   DS        0F                                                   STA01918
          DS        &MEMSIZE.C                                           STA01919
 SYMBOL   DS        0D                                                   STA01920
          TITLE     ' '                                                  STA01921
-FILE  76;  1083 RECORDS:  
0         MACRO                                                          MAC00001
 &ADDR    BEGTRACE                                                       MAC00002
          CNOP      2,4                                                  MAC00003
 &ADDR    STM       7,8,*+14                                             MAC00004
          L         8,*+6                                                MAC00005
          BALR      7,8                                                  MAC00006
          DC        V(TRACE)                                             MAC00007
          DS        2F                                                   MAC00008
          MEND                                                           MAC00009
          MACRO                                                          MAC00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          B         XERRUV1                                              MAC01074
          MEND                                                           MAC01075
          MACRO                                                          MAC01076
 &NAME    XROUTS    &NUM                                                 MAC01077
 &NAME    MVC       XLAS&NUM+2(2),2(R14)                                 MAC01078
 XLAS&NUM LA        R15,*-*(R12)                                         MAC01079
          CLC       XUNDEF(&NUM),0(R15)                                  MAC01080
          BNER      R14                                                  MAC01081
          B         XERRUV0                                              MAC01082
          MEND                                                           MAC01083
-FILE  77;  2252 RECORDS:  
0$RUN *MOUNT PAR=S475 9TP *WATFOR* QUIT=YES 'WATFOR MASTER SOURCE' RING OUT      
 $RUN *MOUNT PAR=S416 9TP *POOL* QUIT=YES 'LP UPDATE' RING IN                    
 $CRE -SYSUT1 SIZE=3000                                                          
 $EMP CDEFN                                                                      
 $EMP COMMR                                                                      
 $EMP STARTA                                                                     
 $EMP WATMAC                                                                     
 $EMP OPTIONS                                                                    
 $CRE -SYSUT1 SIZE=3000                                                          
 $RUN *UPDATE                                                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 $COP SPIE+UAT NEWATFOR(LAST+1)                                                  
 $COP *SOURCE* NEWATFOR(LAST+1)                                                  
  LCS            LCSYMBOL                                                        
  LDT            XTART                                                           
 $ENDFILE                                                                        
 $RUN *OBJSCAN                                                                   
 NEWATFOR                                                                        
 *SWAT                                                                           
 $ENDFILE                                                                        
 $SIGNOFF                                                                        
-FILE  78;   375 RECORDS:  
0                                                                                
  'ASSIGN STATEMENTS AND VARIABLES'                                              
  AS-2   'ATTEMPT TO REDEFINE AN ASSIGNED VARIABLE IN AN ARITHMETIC STATEMENT'   
  AS-3   'ASSIGNED VARIABLE USED IN AN ARITHMETIC EXPRESSION'                    
  AS-4   'ASSIGNED VARIABLE CANNOT BE HALF WORD INTEGER'                         
  AS-5   'ATTEMPT TO REDEFINE AN ASSIGN VARIABLE IN AN INPUT LIST'               
                                                                                 
  'BLOCK DATA STATEMENTS'                                                        
  BD-0   'EXECUTABLE STATEMENT IN BLOCK DATA SUBPROGRAMME'                       
  BD-1   'IMPROPER BLOCK DATA STATEMENT'                                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  VA-A   'ATTEMPT TO USE A PREVIOUSLY DEFINED NAME AS A SUBPROGRAMME NAME'       
  VA-B   'NAME USED AS A COMMON BLOCK PREVIOUSLY USED AS A SUBPROGRAMME NAME'    
  VA-C   'NAME USED AS SUBPROGRAMME PREVIOUSLY USED AS A COMMON BLOCK NAME'      
  VA-D   'ILLEGAL DO-PARAMETER,ASSIGNED OR INITIALIZED VARIABLE IN SPECIFICATION'
  VA-E   'ATTEMPT TO DIMENSION A CALL-BY-NAME PARAMETER'                         
                                                                                 
  'EXTERNAL STATEMENT'                                                           
  XT-0   'INVALID ELEMENT IN EXTERNAL LIST'                                      
  XT-1   'INVALID DELIMITER IN EXTERNAL STATEMENT'                               
  XT-2   'SUBPROGRAMME PREVIOUSLY EXTERNALLED'                                   
-FILE  79;    51 RECORDS:  
0         TITLE 'WATFOR DIAGNOSTICS EDITOR'                              WASH0001
 *                                                                       WASH0002
 *        SCARDS - WATFOR ERROR MESSAGES (AS RECEIVED)                   WASH0003
 *        UNIT 0 - OUTPUT FILE TO BE INDEXED BY ERROR CODE               WASH0004
 *                                                                       WASH0005
 DIAGEDIT CSECT                                                          WASH0006
          PRINT NOGEN                                                    WASH0007
          ENTER 10                                                       WASH0008
 NC       SCARDS BUF,LEN,EXIT=EXIT                                       WASH0009
          CLI   BUF+1,C'A'         CHECK FOR A REAL DIAGNOSTIC           WASH0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OBF      DS    CL256                                                    WASH0042
 KEY      DC    F'0'                                                     WASH0043
 LEN      DS    H                                                        WASH0044
 OLEN     DS    H                                                        WASH0045
 *                                                                       WASH0046
 P1       EQU   3                                                        WASH0047
 P2       EQU   4                                                        WASH0048
 QT       EQU   C''''                                                    WASH0049
 MARGIN   EQU   8                                                        WASH0050
          END                                                            WASH0051
-FILE  80;   647 RECORDS:  
0GLIB     TITLE '                       GENERATE A LOAD LIBRARY'         GENL0001
 GENLIB   CSECT                                                          GENL0002
          ENTER 12,SA=SA                HELLO THERE                      GENL0003
          L     9,0(0,1)                SAVE PARAMETER STRING IF ANY     GENL0004
          SVC   38                      TIME FOR THE CUP TIME            GENL0005
          STM   0,1,CPUTIME                                              GENL0006
          L     1,SMLTBLSZ                                               GENL0007
          GETSPACE T=1                                                   GENL0008
          ST    1,SMLTBL                                                 GENL0009
          ST    1,SMLTBL+8                                               GENL0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 BACKPTR  EQU   4                                                        GENL0638
 NAME     EQU   8                                                        GENL0639
 LIBPTR   EQU   16                                                       GENL0640
 NXTPTR   EQU   20                                                       GENL0641
 ERPTR    EQU   24                                                       GENL0642
 NXTLIB   EQU   24                                                       GENL0643
 REFCNT   EQU   28                                                       GENL0644
 LIBSEQ   EQU   30                                                       GENL0645
          SPACE 5                                                        GENL0646
          END                                                            GENL0647
-FILE  81;   111 RECORDS:  
0USER     TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS'               
 USERS    START 0                                                                
          PRINT NOGEN                                                            
 *        COPY  *LLMPSEQU(100)      INCLUDE SYSTEM EQUALITIES                    
          PRINT OFF                                                              
          COPY  *LLMPSEQU(100)                                                   
          PRINT ON                                                               
          EJECT                                                                  
          ENTER 12,SA=SA                                                         
          SR    2,2           USE THSI FOR NUMBER OF TERMINALS                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          DC    C' AVAILABLE LINES, AND'                                         
          DC    X'40202120'                                                      
          DC    C' NON-MTS JOBS USING'                                           
          DC    X'40202120'                                                      
          DC    C' VIRTUAL PAGES AND'                                            
          DC    X'40202120'                                                      
          DC    C' REAL PAGES.'                                                  
 SA       DS    18F                                                              
 WORK     DS    D                                                                
          END                                                                    
-FILE  82;    30 RECORDS:  
0%BEFORE  USER0003                                                               
          PRINT NOGEN                                                            
 %DELETE  USER0001   USER0007                                                    
 %BEFORE  USER0024                                                               
          CLI   RJBPAR+12(9),X'FF'                                               
          BE    TERM               IS TERMINAL                                   
 %DELETE  USER0024   USER0042                                                    
 %BEFORE  USER0067                                                               
          CH    8,S8L1                                                           
          BNH   S8P2                ONLY ONE LINE                                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 S8PRT    DC    C' CURRENT S8 NUMBERS: '                                         
 S8NBR    DC    C'      ,       ,       ,       ,       '                        
          DC    C',       '                                                      
 S8LINE2  DC    C'        ,       ,       ,       ,       ,       '              
          DC    C',       ,       ,       ,       ,       ,       '              
 %DELETE  USER0098   USER0099                                                    
 %BEFORE  USER0105                                                               
          DC    C' BATCH TASKS,'                                                 
 %DELETE  USER0105                                                               
 %BEF      FILEMARK                                                              
-FILE  83;   374 RECORDS:  
0SNIF     TITLE 'PROGRAM TO EXAMINE FILE STORAGE CHARACTERISTICS'        FLSN0001
 FILESNIF START 0                                                        FLSN0002
          PRINT ON,NOGEN                                                 FLSN0003
          ENTER 5,SA=SAVEAREA                                            FLSN0004
          L     2,0(1)        GET THE PARAMETER ADCON                    FLSN0005
          LH    3,0(2)        GET THE PARAMETER LENGTH                   FLSN0006
          LTR   3,3           SEE IF THERE IS A PARAMETER                FLSN0007
          BZ    OLDBACK       BRANCH IF NOT                              FLSN0008
          STH   3,NAMELEN     SAVE THE LENGTH                            FLSN0009
          BCTR  3,0           SUBTRACT ONE FROM PARAMETER LENGTH         FLSN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          CCW   X'08',*-8,0,0 TIC BACK FOR MORE                          FLSN0365
          CCW   X'0E',BUFFER,X'20',140 AND FINALLY READ THE RECORD       FLSN0366
          LTORG                                                          FLSN0367
 HOLECNT  DS    F             NUMBER OF HOLES WE FOUND SO FAR            FLSN0368
 HOLEAREA DS    CL256         PLACE TO KEEP HOLE COUNTS                  FLSN0369
 WORKAREA DS    40D           STANDARD WORK AREA FOR FILE ROUTINES       FLSN0370
 BUFFER   DS    CL140         VTOC RECORD AREA FOR CALLS ON DSKOP        FLSN0371
          END   FILESNIF                                                 FLSN0372
 BUFFER   DS    CL140         VTOC RECORD AREA FOR CALLS ON DSKOP        FLSN0373
          END   FILESNIF                                                 FLSN0374
-FILE  84;     9 RECORDS:  
0%AFTER FLSN0027                                                                 
          ST    0,FDUB             SAVE FDUB POINTER                             
 %DELETE FLSN0038                                                                
 %DELETE FLSN0169,3                                                              
 %AFTER FLSN0212                                                                 
          MVC   PERMITC(5),=CL5'RO'                                              
          CLI   61(3),X'2C'        IS IT READ ONLY                               
          BE    AROUND             YES                                           
 %BEFORE FILEMARK                                                                
-FILE  85;  2290 RECORDS:  
0 BEGIN  COMMENT  PL360 COMPILER -- OS VERSION -- OCTOBER, 1968;           000100
                                                                           000200
     EXTERNAL PROCEDURE SYSINIT(R14); NULL;                                000300
        COMMENT OBTAINS FREE STORAGE AND OPENS DATA SETS;                  000400
     EXTERNAL PROCEDURE SYSTERM(R14); NULL;                                000500
        COMMENT RELEASES FREE STORAGE AND CLOSES DATA SETS;                000600
                                                                           000700
     BYTE LISTFLAG=#FF; COMMENT USED TO CONTROL SOURCE CODE LISTING;       000800
     BYTE NOGOFLAG=#00; COMMENT USED TO INDICATE GO OR NOGO TO NEXT STEP;  000900
     BYTE EXITFLAG=#00; COMMENT USED TO INDICATE END OF ASSEMBLY;          001000
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        CVD(R1,CONWORK); ED(4,WBUF(3),CONWORK(5));                         228100
        R1 := ERRCOUNT; IF R1 > ERRLIMIT THEN                              228200
        MVC(37,WBUF(25),"- ERROR MESSAGE LISTING INCOMPLETE ***");         228300
        PRINT; SET(NOGOFLAG);                                              228400
     END;                                                                  228500
     R0 := 0; IF EXITFLAG THEN GOTO LOOP;                                 228600
     SYSTERM; COMMENT RELEASE SYSTEM RESOURCES;                            228700
     R2 := MEM(R13+4); IF NOGOFLAG THEN R0 := 16 ELSE R0 := 0;             228800
     MEM(R2+16) := R0; COMMENT SET RETURN CODE;                            228900
  END.                                                                     229000
-FILE  86;    29 RECORDS:  
0%BEFORE  PL000001                                                               
  BEGIN  COMMENT  PL360 COMPILER -- OS VERSION -- OCTOBER, 1968;                 
 %DELETE  PL000001                                                               
 %BEFORE  PL000120                                                               
     BYTE SD SYN 0, LD SYN 1, ER SYN 2, CM SYN 5, XCM SYN 6,                     
        RLD SYN 255;                                                             
     ARRAY 14 BYTE ESDCODE="SDLDER****CMER"; COMMENT ESD TYPE NAMES;             
 %DELETE  PL000120   PL000121                                                    
 %BEFORE  PL000725                                                               
              CLI(XCM,ESDTYPE(R1)); IF = THEN                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
           IF = AND R2 = 4 THEN R2 := @XCM ELSE R2 := @ER;                       
           R3 := @ATYPE; R4 := SEGNO; FINDESDENTRY; PROGESDEND := R0;            
           R2 := RLDADDR(R1); R3 := LC; PROGRAM(R3+2) := R2;                     
           RLDADDR(R1) := R3; R0 := V(R7+32) SHLL 4 OR #5800;                    
           PROGRAM(R3) := R0; R3 := R3 + 4; LC := R3;                            
 %DELETE  PL001895   PL001899                                                    
 %BEFORE  PL002193                                                               
     MVC(132,WBUFF,BLANK); R1 := LABELBASE; MVC(11,B1,ZERO);                     
 %DELETE  PL002193                                                               
 %BEF      FILEMARK                                                              
-FILE  87;   184 RECORDS:  
0$RUN *ASMG SPUNCH=PL360SUP 0=*SYSMAC PAR=SIZE=80,FX,RD                          
          ICTL    1,71,18                                                        
          SPACE                                                                  
 *                  SYSTEM LINKAGE ROUTINES                            *         
 *                 PL360 COMPILER  TO  OS/360                          *         
          SPACE                                                                  
          MACRO                                                                  
 &EP      ENTER                                                                  
          ENTRY   &EP                                                            
          USING   &EP,15                                                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 GOTLIST  DS      2F                                                             
 SAVE     DS    18A                                                              
 WORK     DS      F                                                              
 COMPID   DS      CL16                  COMPILATION ID (TIME AND DATE)           
 EOF      DS      X                     SYSIN END-OF-FILE                        
 LISTSW   DS      X                     LISTING                                  
 LOADSW   DS      X                     OBJECT MODULE (SYSGO)                    
 DECKSW   DS      X                     OBJECT MODULE (SYSPUNCH)                 
 SWITCH   DS      X                                                              
       END                                                                       
-FILE  88;    76 RECORDS:  
0$RUN *ASMG SPUNCH=PL360LIB 0=*SYSMAC PAR=FX,SIZE=60                             
 PLSP     TITLE 'PL360 SUPPORT LIBRARY'                                          
          MACRO                                                                  
 &EP      ENTER                                                                  
          ENTRY &EP                                                              
          USING &EP,15                                                           
 &EP      STM   12,11,SAVE                                                       
          L     12,=A($PLCOMP)                                                   
          USING $PLCOMP,12                                                       
          DROP  15                                                               
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 PAGE     ENTER                                                                  
          SPRINT '1'                                                             
          EXIT                                                                   
 *                                                                               
 BIR      MVC   0(0,6),BL80                                                      
 LEN#     DS    H                                                                
 BL80     DC    CL80' '                                                          
 SAVE     DS    18A                                                              
 EOF      DC    X'00'                                                            
          END                                                                    
-FILE  89;  5844 RECORDS:  
0         MACRO                                                          00100010
 &NAME    SAVE  &REG,&CODE,&ID                                           00100030
          LCLA  &A,&B,&C                                                 00100050
          LCLC  &E,&F,&G,&H                                              00100070
          AIF   ('&REG' EQ '').E1                                        00100090
          AIF   ('&ID' EQ '').NULLID                                     00100110
          AIF   ('&ID' EQ '*').SPECID                                    00100130
 &A       SETA  ((K'&ID+2)/2)*2+4                                        00100150
 &NAME    B     &A.(0,15)                         BRANCH AROUND ID       00100170
 &A       SETA  K'&ID                                                    00100190
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     15,=V(FREESPAC)                                                  
          BALR  14,15                   FREE SPACE ACQUIRED BY GDINFO            
          BNE   ###&SYSNDX+4                                                     
          #MTSIOPS                                                               
          #MTSIOCP @CC                                                           
          #MTSIOG '&MSG',,,###&SYSNDX,O,,,,WRITE                                 
          CNOP  0,4                                                              
          B     *+8                AROUND CONSTANTS                              
 ###&SYSNDX DC  F'0'                                                             
          MEND                                                                   
-FILE  90;     7 RECORDS:  
0%BEFORE  SYSM1223                                                               
          L     1,=A(&LV)                                                        
 %DELETE  SYSM1223                                                               
 %BEFORE  SYSM4641                                                               
 &LABE    DC    AL2(X'A300'+16*&REG1+&REG2,0)                                    
 %DELETE  SYSM4641                                                               
 %BEF      FILEMARK                                                              
-FILE  91;   938 RECORDS:  
0TELLOPER EQU   7             TELL THE OPERATOR SOMETHING                TAPE0081
 SAVE     EQU   8                                                        TAPE0082
 RESTOR   EQU   9                                                        TAPE0083
 DELETE   EQU   10                                                       TAPE0084
 SKIP     EQU   13                                                       TAPE0085
 DEVICEND EQU   16            WAIT FOR A STRAY DEVICEND BEFORE PROCEED   TAPE0086
 SAVESKIP EQU   18                                                       TAPE0087
 SNSADR   EQU   19                                                       TAPE0088
 DEVICEID EQU   20                                                       TAPE0089
          SPACE 1                                                        TAPE0090
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        TAPE0976
 FDUBEL   DS    F             NOT PERTINENT                              TAPE0977
 FDUBIL   DS    F             INCREMENT                                  TAPE0978
 FDUBSR   DS    F             SUBROUTINE LOCATION                        TAPE0979
 FDUBSCR  DS    F             SCRATCH                                    TAPE0980
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             TAPE0981
 FDUBDS   DS    F             DEFAULT SWITCHES                           TAPE0982
 FDUBCH   DS    F             NOT PERTINENT                              TAPE0983
          EJECT                                                          TAPE0984
          END   TAPE                                                     TAPE0985
-FILE  92;    57 RECORDS:  
0%DELETE TAPE0204,2                                                              
          LA    R6,BASEBASE   SET UP PERMANENT BASE                              
          ST    R6,BASE       AND SAVE IT IN PSECT                               
 %DELETE TAPE0218                                                                
 SNSAGN   LA    R1,DATACCW                                                       
 %AFTER TAPE0234                                                                 
          TM    TPSNS+1,X'20' TAPE DRIVE MUSTBE READY                            
          BZ    SNSOK                                                            
          TM    TPSNS+1,X'40'                                                    
          BO    SNSOK         STILL REWINDING                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %DELETE TAPE0769                                                                
 RUNOK    SVC   SKIP                                                             
 %DELETE TAPE0778                                                                
          BR    R3                                                               
 %AFTER   TAPE0843                                                               
          LTR   R2,R2              HAS THIS ONE BEEN RELEASED                    
          BZ    NOFDUB                                                           
 %DELETE  TAPE0846                                                               
 NOFDUB   LA    R5,32(0,R5)        BUMP POINTER                                  
 %BEFORE FILEMARK                                                                
-FILE  93;  1494 RECORDS:  
0MNT      TITLE '*MOUNT - FOR MOUNTING PRIVATE VOLUMES AND ALLOCATING DE@MNT00001
                VICES (VERSION EB039)'                                           
 *********************************************************************** MNT00003
 *                                                                     * MNT00004
 *              MACROS TO GENERATE KWIC RHS AND LHS TABLES             * MNT00005
 *                                                                     * MNT00006
 *********************************************************************** MNT00007
          MACRO                                                          MNT00008
 &SLB     LHS   &X,&Y,&Z                                                 MNT00009
          LCLA  &LNG                                                     MNT00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 NOISEBIT EQU   X'20'         ON IF NOISE WORD "ON" WAS FOUND IGNORE     MNT01324
 *                                                                       MNT01325
 PARBITS  DS    XL1           MORE SWITCHES                              MNT01326
 *                                                                       MNT01327
 SIZE     EQU   X'08'         SET RECORD LENGTH OF MOUNTED DEVICE        MNT01330
 TABL     EQU   X'10'         SET TRANSLATE TABLE FOR NEW DEVICE         MNT01331
 EOR      EQU   X'20'         SET END OF RECORD SEQUENCE FOR DEVICE      MNT01332
 RINGBIT  EQU   X'40'              RING = WAS SPECIFIED                          
 RINBIT   EQU   X'80'              RING MUST BE IN IF 1                          
 MAGTAPE  EQU   X'04'                                                            
-FILE  94;   339 RECORDS:  
0%DELETE   MNT00002                                                              
                VICES (VERSION EB039)'                                           
 %AFTER   MNT00358                                                               
 .*                                IT ALSO GENERATES LITERAL CONSTANTS           
 %DELETE  MNT00374 7                                                             
 .**********************************************************************         
 .*             THE FOLLOWING IS CHANGED FROM *SYSMAC VERSION                    
 .**********************************************************************         
 &LABEL   LA    0,&LNGTH                                                         
          LA    1,=C&TEXT                                                        
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %DELETE  MNT01305                                                               
 VOLID    DS    2F                 RACK NUMBER OF MOUNTED VOLUME                 
 %DELETE  MNT01309 2                                                             
 %AFT     MNT01311                                                               
 VOLIDL   DS    XL1                IBM LENGTH OF VOLID                           
 %DELETE  MNT01328 2                                                             
 %AFTER   MNT01332                                                               
 RINGBIT  EQU   X'40'              RING = WAS SPECIFIED                          
 RINBIT   EQU   X'80'              RING MUST BE IN IF 1                          
 MAGTAPE  EQU   X'04'                                                            
-FILE  95;   106 RECORDS:  
0BLOCKL   CSECT                                                                  
          REQU                                                                   
          ENTER 12,SA=SA                                                         
          LM    R2,R6,0(R1)        PARAMETERS                                    
          LH    R3,0(0,R3)         LENGTH                                        
          LTR   R7,R4              MODIFIERS                                     
          BZ    *+8                ADDRESS OR CONTENTS ARE OK                    
          L     R7,0(0,R4)         MODIFIERS                                     
          ST    R7,MODS                                                          
          L     RA,0(0,R5)         LINE NUMBER                                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 #3       DC    X'2241494936'                                                    
 #4       DC    X'0C14247F04'                                                    
 #5       DC    X'7A5151514E'                                                    
 #6       DC    X'3E49494926'                                                    
 #7       DC    X'4142444870'                                                    
 #8       DC    X'3649494936'                                                    
 #9       DC    X'314949493E'                                                    
          DC    5X'0000000000'          NON CHARACTERS                           
          DC    X'FFFFFFFFFF'      X'FF'                                         
          END                                                                    
-FILE  96;   698 RECORDS:  
0PTPR     TITLE 'MTS PAPER TAPE READER SUPPORT ROUTINES   ---   VERSION @RDR00001
                20 JANUARY 1969 (MODEM 1)'                                       
          MACRO                                                          RDR00003
 &SLB     ERMSG &WHAT,&RC                                                RDR00004
          LCLA  &LNG,&LNG4,&LNG16                                        RDR00005
 &LNG     SETA  K'&WHAT-1                                                RDR00006
 &LNG4    SETA  &LNG+4                                                   RDR00007
 &LNG16   SETA  &LNG+16                                                  RDR00008
 &SLB     OI    FDUBS,DSRERR                                             RDR00009
          MVC   PAD(&LNG),*+54  THE MESSAGE                              RDR00010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FDUBCL   DS    F             CURRENT LINE NUMBER                        RDR00614
 FDUBEL   DS    F             NOT PERTINENT                              RDR00615
 FDUBIL   DS    F             INCREMENT                                  RDR00616
 FDUBSR   DS    F             SUBROUTINE LOCATION                        RDR00617
 FDUBSCR  DS    F             SCRATCH                                    RDR00618
 FDUBNAM  DS    F             BACK POINTER TO WHO'S USING IT             RDR00619
 FDUBDS   DS    F             DEFAULT SWITCHES                           RDR00620
 FDUBCH   DS    F             NOT PERTINENT                              RDR00621
          EJECT                                                          RDR00622
          END   TAPE                                                     RDR00623
-FILE  97;   127 RECORDS:  
0%DELETE        RDR00002                                                         
                20 JANUARY 1969 (MODEM 1)'                                       
 %AFTER   RDR00094                                                               
 BASEGR   EQU   R5                                                               
 %AFT     RDR00153                                                               
 UEPENDNG EQU   X'80'              GIVE RC=4 NEXT TIME THROUGH                   
 %DELETE  RDR00257                                                               
          USING BASEBASE,BASEGR                                                  
 %DELETE  RDR00260                                                               
          DROP  BASEGR                                                           
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %DELETE  RDR00556                                                               
 TRANS    TR    0(0,RA),0(R6)      TRANSLATE                                     
 EORCHK   CLC   0(0,RC),EORCHRS                                                  
 %AFTER   RDR00599                                                               
 HARDEOR  DS    C                                                                
 EORCHRS  DS    CL8                                                              
 EORLNG   DS    H                                                                
 %AFTER   RDR00601                                                               
 UNPKBYTE EQU   PAD                                                              
 %BEFORE  FILEMARK                                                               
-FILE  98;  1070 RECORDS:  
0FTN      TITLE 'FORTRAN G MODULE IEYFORT RELEASE 16 FOR MTS'            FORT0001
 IEYFORT  CSECT                                                          FORT0002
 *********************************************************************** FORT0003
 *                                                                       FORT0004
 *FUNCTION/OPERATION.                                                    FORT0005
 *    THIS MODULE CONTROLS THE OPERATION OF THE FORTRAN IV(G) COMPILER.  FORT0006
 *    IT INITIALLY RECEIVES CONTROL FROM THE INVOKING PROGRAM, PERFORMS  FORT0007
 *    APPROPRIATE INITIALIZING FUNCTIONS, THEN TRANSFERS CONTROL TO THE  FORT0008
 *    FIRST PHASE (IEYPAR). CONTAINED WITHIN THIS MODULE ARE ALL THE     FORT0009
 *    INPUT/OUTPUT ROUTINES USED BY THE COMPILER, THE DYNAMIC WORK-      FORT0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ENDCARD  DSECT                                                          FORT1059
          DS    CL1           X'02'                                      FORT1060
 ENDHDR   DS    CL3           C'END'                                     FORT1061
          DS    CL1           BLANK                                      FORT1062
 ENDENTRY DS    CL3           ENTRY POINT ADDRESS (OPTIONAL)             FORT1063
 ENDBLANK DS    CL6           BLANK                                      FORT1064
 ENDESDID DS    CL2           ESDID IF ENTRY POINT (OPTIONAL)            FORT1065
          DS    CL12          BLANK                                      FORT1066
 ENDLEN   DS    CL4           CSECT LENGTH                               FORT1067
          END   IEYFORT                                                  FORT1068
-FILE  99;  1152 RECORDS:  
0ESD          IEYFORT       IEYRTN      IEYPR    :           FTN 0001
 ESD           IEYRD    @   IEYPC    	   IEYMOR              FTN 0002
 ESD          IEYNOCR  h   NEXT     *   CANREPLY               FTN 0003
 ESD          EMPTY          FREEFD         GDINFO                 FTN 0004
 ESD          GETFD          GETSPACE       PGNTTRP                FTN 0005
 ESD          READ           WRITE          SCARDS                 FTN 0006
 ESD          SPRINT         SPUNCH         QUIT                   FTN 0007
 ESD          PARSAV         IEYCMR         IEYPAR                 FTN 0008
 ESD          IEYALL         IEYUNF         IEYGEN                 FTN 0009
 ESD          IEYEXT         IEYINT                                 FTN 0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  <      	&                                                        0090
 TXT        	&
                                                        0091
 TXT  @      	&                                                        0092
 TXT  m      	&                                                        0093
 TXT        	&                                                        0094
 TXT  D      &                                                          0095
 RLD                                                                   0096
 END                                                                        0097
  LCS            LCSYMBOL                                                        
  LDT            IEYFORT                                                         
-FILE 100;   192 RECORDS:  
0INFO     TITLE 'PROGRAM TO GET AND CHANGE USER INFORMATION'                     
          SPACE 5                                                                
          MACRO                                                                  
 &SL      ITEM  &NAME,&XNAME,&INDEX,&TYPE=4,&MASK=255,&SHIFT=0,&CHANGE=0         
          GBLA  &IX                                                              
 .L3      ANOP                                                                   
 &IX      SETA  &IX+1                                                            
          AIF   (&IX EQ &INDEX).L                                                
          AIF   (&IX GT &INDEX).L2                                               
          DC    4F'0'                                                            
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ITEM  LOCPCH,LOCPCH,90                                                 
          ITEM  LOCPTM,LOCPTM,92                                                 
          ITEM  GLOBTTN,GLOBTTN,94                                               
          ITEM  LOCTTN,LOCTTN,96                                                 
 TABLEND  EQU   *                                                                
          EJECT                                                                  
 JUNK    DSECT                                                                   
         COPY  MTS.CONTAB                                                        
          COPY  MTS.DSECT                                                        
          END                                                                    
-FILE 101;    11 RECORDS:  
0%BEFORE  INFO0160                                                               
          ITEM  ACCCNCR,CUMREAD,29                                               
          ITEM  ACCCSU,CUMCORE,30                                                
          ITEM  STANCR,NRREAD,31,CHANGE=1                                        
 %DELETE  INFO0160   INFO0162                                                    
 %BEFORE  INFO0173                                                               
          ITEM  STANLP,NRLINES,63,CHANGE=1                                       
          ITEM  STANPP,NRPAGES,65,CHANGE=1                                       
          ITEM  STANCP,NRPUNCH,67,CHANGE=1                                       
 %DELETE  INFO0173   INFO0175                                                    
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 %BEF      FILEMARK                                                              
-FILE 102;    43 RECORDS:  
0ESD          GUINFO        4CUINFO       LASTJOB                INFO0001
 TXT          k 1}00k1H                                            INFO0002
 TXT         }	{ AB     /  n - {k  i ApA쌯{INFO0003
 TXT         AAό{qi jA{KjA{Hj{H~   nAhINFO0004
 TXT   @       ^GFh i GЊ [ 0Aʿ ʯAFN- INFO0005
 TXT         { h Aό}{q}0                             INFO0006
 TXT   }      q}0                                               INFO0007
 TXT         q}0  h zG GKAA!h zGOh h INFO0008
 TXT         nA&	                                            INFO0009
 TXT        q}0  d K	&  K&G0ANG\Ai   GՌ0AnINFO0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                  0  CUMDISK                 INFO0034
 TXT  y        @  GLOBCPUT                    GLOBPGS         INFO0035
 TXT  \                d  GLOBPCH                   h  GLOBPTM INFO0036
 TXT                            LOCCPUT                   m  INFO0037
 TXT  &      LOCPGS                    q  LOCPCH                  INFO0038
 TXT  h          LOCPTM                      GLOBTTN         INFO0039
 TXT  {                  LOCTTN                                  INFO0040
 TXT  Q                                                   INFO0041
 RLD              @   M                                        INFO0042
 END                                                                    INFO0043
-FILE 103;  2921 RECORDS:  
0      IMPLICIT INTEGER*4 (A - Z)                                                
       INTEGER*2 LIST,COPIES,SPCHAR,BLANK,NUM,SCWORD,HYPHEN,LOWCAS,              
      $ PERIOD,KEY028,LOCATE,CARDIC                                              
       INTEGER*2 PAGDUM,SRT,COLBEG,CHRFIN                                        
       COMMON /A/ POSN,IREAD,IWRITE,CCGCNT,PUNCH,NODOC,MERGE,                    
      $ REMNNT,INSWRD,FINISH,DELETE,COVEA,INVALD,BFOUND,CICNT1,CICNT,            
      $ CIINC,DICT,NEXT,HIT,                                                     
      $ ARRAY1(3),                                                               
      $ LIST,COPIES,SPCHAR(42),BLANK,NUM(10),SCWORD,CARDIC,                      
      $ HYPHEN,LOWCAS,PERIOD,KEY028,LOCATE                                       
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
                                                                                 
-FILE 104;  1038 RECORDS:  
0ESD          A              Q                                        BLK 0001
 TXT   -                   ]        ~ & |  < = > BLK 0002
 TXT   q      + ( ) " '  # % @ _ ; : ? !   A E F L V Z 0 1 5 9       BLK 0003
 TXT         -                                                       BLK 0004
 TXT                                                                BLK 0005
 TXT   }                                                              BLK 0006
 TXT                                                                 BLK 0007
 TXT                 	                                                BLK 0008
 TXT   *                                                             BLK 0009
 TXT                                                                BLK 0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ESD          C       	     0                                        MSG 0004
 ESD          ERR                                                    MSG 0005
 TXT   q                         }}铥}& ʿ  -}-}<0}@	&&MSG 0006
 TXT   }      @&&&-&Զē\} }\Qq}k} &}&MSG 0007
 TXT        }&k}&0}d                                              MSG 0008
 TXT                  W                                            MSG 0009
 TXT                                                                MSG 0010
 RLD               q            u            MSG 0011
 RLD                                                               MSG 0012
 END                                 DATE  68.212/20.52.15            MSG 0013
-FILE 105;  1140 RECORDS:  
0$RUN *FORMAT 1=-SCR                                                             
 COLUMNS PER PAGE = 9 (MAX. IS 8)                                                
 START TEXT ON LINE 14, PP 12                                                    
 CAP OPTION                                                                      
 LINES/PAGE = 56                                                                 
 WIDTH OF COLUMNS IS 60 CHARACTERS                                               
 PAGE NUMBER IS NULL                                                             
 INDENT THE COLUMN (8,0), (5,5), (5,0), (3,0), (6,0), (4,0), (2,0)               
 GO                                                                              
 THE DATA DECK GENERATING THIS MANUAL WILL PRODUCE IT IN UPPER AND LOWER CASE IF
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 SYSTEM PUNCH DATASET, 9, 26, 33, 35 )HL ) SYS000, 33 )L SYS001, 33 )L SYS002,
  33 )L SYS003, 33 )L SYS004, 33 )L )LLM T )MLL )H6 "TABS ARE SET AT", 10, 13 
 )HL )H6 TABULATION, SEE COMMAND OPERANDS "D" AND "T" AND ) "TABS ARE SET 
 AT" )HL ) "TAPE INPUT DATASET", 11, )H6 27, 40 )HL TAPE LABELS, 33 )L )H6 "
 TEXT STARTS ON", 11-13 )HL )H6 "TITLE STARTS ON", 11, 13, 28 )HL TRANSLATION
 , 10, 18 )L )LLM U )MLL )H6 UNDERLINING, 16, 20, 41, SEE ALSO COMMAND OPERAN
 D "U" )HL )LLM W )MLL )H6 "WIDTH OF COLUMNS", 11 )HL )LLL )H6 "026 KEYPUNCH
 ", 12, 14, 23 )HL )H6 "029 KEYPUNCH", 12, 14, 23 )HL ) 44PS, 2, 33, 38 )L )
 E                                                                               
 $ENDFILE                                                                        
-FILE 106;    66 RECORDS:  
0 NCA            SORTE0                                                          
  NCA            SORTE1                                                          
  NCA            SORTE2                                                          
 ESD          SORT          dSORTE0         SORTE1                     0001
 ESD          SORTE2         SCARDS         SPRINT                     0002
 ESD          SETIOERR       FREESPAC       GETFD                      0003
 ESD          READ           FREEFD         WRITE                      0004
 ESD          SERCOM         GETSPACE                                   0005
 TXT          }\} (}0                                                0006
 TXT         &\}&}\0R(^Jj({Ke ({JH({K(\N}d({KB0}{}    0007
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT          INSUFFICIENT VIRTUAL AVAILABLE-SORT00@-TRIM   Y 0"    0054
 TXT                                                                    0055
 TXT                                                               0056
 RLD              &   * - h    u  D     0057
 RLD              M  U  4            0058
 RLD                  *  %   h  q         0059
 RLD              @      d 	      m   	      0060
 RLD              	    	   	   	   	   	     0061
 RLD                                                                  0062
 END                                                                       0063
-FILE 107;    65 RECORDS:  
0HSPQ     TITLE 'PROGRAM TO PRINT OUT HASP QUEUE'                                
 HASPQ    START 0                                                                
          PRINT NOGEN                                                            
          ENTER 12,SA=SA                                                         
          L     2,=V($JQENT)                                                     
          L     2,0(0,2)                                                         
 LP       SR    1,1                                                              
          IC    1,1(0,2)                                                         
          N     1,=F'15'                                                         
          SLL   1,3                                                              
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 OUTWH    DC    C'XXXXXXXX'                                                      
          DC    C' STATUS AND IS '                                               
 OUTBSY   DC    C'XXXX'                                                          
          DC    C', PRIORITY='                                                   
 OUTPRIO  DC    C'XX'                                                            
          DC    C'  '                                                            
 OUTPURG  DC    C'XXXXXXX'                                                       
 OUTE     EQU   *                                                                
 OUTL     DC    Y(OUTE-OUT)                                                      
          END                                                                    
-FILE 108;    20 RECORDS:  
0SYM              HASPQ  LPh  h  uh  yh  h  ^ A  }SA  HSPQ0001
 SYM           b TBL  h   h   h   h   h    h   h HSPQ0002
 SYM           &  h   h -  h   h   h   h   h h  h HSPQ0003
 SYM             b qDBLb OUT  c vOUT#  	h   d OUTWH  h HSPQ0004
 SYM           [  e IOUTBSY  h   f QOUTPRIO  h   f OUTPURGHSPQ0005
 SYM              Tc UOUTL   HASPQ Wh Yh h 0  h 4 HSPQ0006
 SYM            h 8  h h    h                              HSPQ0007
 ESD          HASPQ         $JQENT         SPRINT                 HSPQ0008
 TXT          }0{}& & ؓAY Ai AKA HSPQ0009
 TXT         h +Aq3AvAqo0A h +Aq3AQAqo0ARKAIA0j{HSPQ0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT         KAIA4j{{dKAIA8KAB j{qKAB0A{    UHSPQ0011
 TXT   y         ^        	͓ʥ { q}                HSPQ0012
 TXT        0       EXECUTE PRINT   PUNCH   4       5       6       HSPQ0013
 TXT  &      7       8       9       10      11      12      13      HSPQ0014
 TXT  h      14      PURGE                                           HSPQ0015
 TXT         JOB XXXXXX IS IN XXXXXXXX STATUS AND IS XXXX, PRIORITY=HSPQ0016
 TXT  Q      XX  XXXXXXX                                            HSPQ0017
 TXT  Y             IDLEBUSYHELD           DELETED                  HSPQ0018
 RLD                 u  y   Y                           HSPQ0019
 END                                                                    HSPQ0020
-FILE 109;   734 RECORDS:  
0OPR2     TITLE 'MTS JOB TO MONITOR THE STATUS OF THE SYSTEM AND FAKE OP&        
                ERATORS CONSOLE FUNCTIONS'                                       
 OPER2260 CSECT                                                                  
          SPACE 4                                                                
 ***********************************************************************         
 *                                                                     *         
 *              SUPERVISOR CALL EQU'S                                  *         
 *                                                                     *         
 *                                                                     *         
 ***********************************************************************         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          SPACE 4                                                                
 HQPRINT  DSECT                                                                  
          DS    CL36                                                             
 HQDIS    DS    CL7                                                              
 HQDSKQ   DS    CL3,CL7                                                          
 HQXECQ   DS    CL4,CL6                                                          
 HQPTRQ   DS    CL4,CL6                                                          
 HQPCHQ   DS    CL3,CL5                                                          
          SPACE 4                                                                
          END                                                                    
-FILE 110;   250 RECORDS:  
0SYM              OPER2260g  IHB0003B  GET2g  &IHB0004B  GETCOPR20001
 SYM           HECK  HSHLN  HSHFND  yREINITG  GENERATE       AOPR20002
 SYM           TNPOOLE CALLME      FREEZE FREEZH :MAKEOPER OPR20003
 SYM           MAKEUSER SRCHJTL1 SRCHJTL3 SRCHJTL4 SRCHJTOPR20004
 SYM           L5 &SRCHJTL6 SRCHJTL2 =SRCHJTL7 MAKEHASP BUOPR20005
 SYM           FTST YHASPGEN 8WRDSP1 REFRESH# WRDSP2C POOFOPR20006
 SYM                 *NODEVICEh ˥h h %h h  h c OPR20007
 SYM           :###1   qATNPROC ^PGNTh Dh Hh h }h MOPR20008
 SYM            h Qc ###2  h  c IOCC  g INPUTOPR  |f -OPR20009
 SYM           USEROUT  g USERPDP8 h ,  f USERIBM h   g OPR20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD               D  M  U  4     OPR20241
 RLD                   <  *  %  @ dOPR20242
 RLD               m  u    D  M  U OPR20243
 RLD              4              &    OPR20244
 RLD                   	  *             OPR20245
 RLD              %                                           OPR20246
  REP  00013A  01,4730,C17A                                                      
  REP  0000B4  01,0700 NO PGNT TRP                                               
  REP  0000A0  01,4150,5042   SHUTDOWN FLAG                                      
 END                                                                    OPR20247
-FILE 111;   163 RECORDS:  
0ESD          BSC           INITSDA      GETSPACE               SDA20001
 ESD          LASTJOB        GUINFO         CUINFO                 SDA20002
 ESD          GUSERID        FREESPAC       GETFD                  SDA20003
 ESD          EMPTY          SDUMP          WRITE                  SDA20004
 TXT                           	Y01	͇Y&  aSDA20005
 TXT         ʥ YP  g\P  &&hh%q\h &&SDA20006
 TXT         ʥ{&i &ǯ +{Kh & d& h3h`Fo0SDA20007
 TXT   y      h#hʥhKࡘ8&kࡓ dʥQ-KQ<KSDA20008
 TXT   \       q}/@@	                 SDA20009
 TXT                  (XXXX-XXX)                                 SDA20010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  M                                                            SDA20154
 TXT  \      SDADUMP                                                SDA20155
 RLD                                  	-SDA20156
 RLD              	 	d 	^  d i ٓ * -  ق % ٿSDA20157
 RLD                @ ٯ d y     /  dSDA20158
 RLD               m q  r  * -  y  ^ SDA20159
 RLD              @  &     * -  Q   SDA20160
 RLD                       	           YSDA20161
 RLD                 4   8                                SDA20162
 END                                                                    SDA20163
-FILE 112;    64 RECORDS:  
0SYM              WUPDATEh  h  h  h  h   h  Ƴc  ###1    0001
 SYM             h  h  dh  hh  ݥh  h  m h  yh  ܥh  ^    0002
 SYM           h  h  h   g  UIHB0013Bh  h  0  h  1g     0003
 SYM           IHB0015Bh h   h g IHB0017Bh ԥh ƥ    0004
 SYM           h h   h g IHB0019Bh &h h h *    0005
 SYM             h ) LP1 LP2 COMPARE BUMP HYIKES }D    0006
 SYM           ELEh h 0h 4h 8h  h   BETAh h     0007
 SYM           h åh h  h  PNCHh h h <h    0008
 SYM            &h  h  OMEGAh h dh hh h     0009
 SYM            h m qEXIT uTOOBIGh ܥh ^h h h      0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD                    &   )  0 4    0055
 RLD                  <  d h  ^       0056
 RLD                * D  } M Y  0 4    U    0057
 RLD                     \ 	  U   8           0058
 RLD                                                                   0059
 END                                                                        0060
  LCS            LCSYMBOL                                                        
  LDT                                                                            
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 113;   726 RECORDS:  
0ESD          SDS           tSYSTEMX  u   ERRORX   S           SDS 0193
 ESD           MTSX     ɳ   TERMINE  !   TERMINS  ɐ           SDS 0194
 ESD          SETPFX         GETFD          CANREPLY               SDS 0195
 ESD          	GETSPACE       FUNCTION       SYSTEM                 SDS 0196
 ESD          GDINFO         LINK           STEP     o           SDS 0197
 ESD          ISOSYM   	   STEP           ERROR                  SDS 0198
 ESD          CANON          RADD           FIXED                  SDS 0199
 ESD           SCANPAR     STSEARCH    RADD                SDS 0200
 ESD           RADD1       CANON       CSSCAN              SDS 0201
 ESD           IBPT        POPBP       CONVERT  +           SDS 0202
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  H                    h                                 EDTR0152
 TXT                    H SYMESDLCSENDLDT                EDTR0153
 RLD                 m q   } M Q  \ ٥EDTR0154
 RLD              ٳ    -  ق % ٿ ^ ٩ ٸ EDTR0155
 RLD              { 4 8 ن      ڈ ڍ < & ڡ mEDTR0156
 RLD              q ھ ڵ U   }   Q   4 	  8    EDTR0157
 RLD                                                    EDTR0158
 END                                                                    EDTR0159
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 114;  2354 RECORDS:  
0ESD          ASMGASM       ASMRET       LIST1     d           ASM 0001
 ESD           DCBIN        DCBLIB      DCBPRNT  }           ASM 0002
 ESD           SYSU1        SYSU2    q   SYSU3    0           ASM 0003
 ESD           ALOAD    	<   ALINK    	    AXCTL    	           ASM 0004
 ESD          QCLOSE         BUFFENT        QGETUCB                ASM 0005
 ESD          	QOPEN          QGET           QPUT                   ASM 0006
 ESD          SPUNCH         WRITE          SPRINT                 ASM 0007
 ESD          BSAMIO         BUFFERR     ASMGMAC                ASM 0008
 ESD          SAVECC         ERROR          LINK                   ASM 0009
 ESD          LOAD           UNLOAD         XCTL                   ASM 0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  TXT         &MP&4&4  k 0&                                  SPIE0003
  TXT   +      V0f&1 &4%h  &:qV&Mj&4&o&4SPIE0004
  TXT   f      K&8K K&40  Č&q	͡\@&\K&8KSPIE0005
  TXT          KkĎm"&40&                                    SPIE0006
  TXT   4                                                              SPIE0007
  TXT  -                                                            SPIE0008
  RLD                 -                                        SPIE0009
  END                                                                    SPIE0010
  LCS            LCSYMBOL                                                        
  LDT            ASMGFPP                                                         
-FILE 115;  1841 RECORDS:  
0ESD          STARTA       yCOMMR    y  MAINP      u        MAIN0001
 ESD           MAIN    Q   XBUFFER  ^   XTART               MAIN0002
 ESD          CXTART  y   CXTOP   ˩   LENDS                  MAIN0003
 ESD           MSTART     MSTOP   m   MYIBCOM  }           MAIN0004
 ESD          	OBJECT   y   XEXECSW     LENDPROG               MAIN0005
 ESD          RPH3           SCAN           INBCDI                 MAIN0006
 ESD          OUTBCDI        INFREEI        OUTFREEI               MAIN0007
 ESD          INBCD          OUTBCD         INBIN                  MAIN0008
 ESD          OUTBIN         INFREE         OUTFREE                MAIN0009
 ESD          INBINI         OUTBINI        FORMATEX               MAIN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                               UAT 0015
 TXT                     &                              &          UAT 0016
 TXT  Q                          d                              &  UAT 0017
 TXT                                                                UAT 0018
 RLD                              -      {  \  UAT 0019
 RLD                          d  u  D  U   UAT 0020
 RLD              u 	  {   U                           UAT 0021
 END                                                                    UAT 0022
  LCS            LCSYMBOL                                                        
  LDT            XTART                                                           
-FILE 116;    85 RECORDS:  
0ESD          GENLIB        GETSPACE       SCARDS                 GLIB0001
 ESD          SPRINT         ERROR          SPUNCH                 GLIB0002
 ESD          FREESPAC       SYSTEM                                 GLIB0003
 TXT          }0D& & ؓ   0\	&&{  GLIB0004
 TXT           ) U &^&& k k K0{0Y{dGLIB0005
 TXT                      	ČD\NA݌0{k K򘃘0YGLIB0006
 TXT   y      {{             	ČD\ n  {WN  {W GLIB0007
 TXT   \       0{&  &{00  :ʡʿ öĊ0i0 A0A0AGLIB0008
 TXT        0A:0A0AÌ0ApgA0{jA!kK $&GLIB0009
 TXT  &      BQ0AÓ-N -AkK BQ0AkK BQGLIB0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 RLD                  * -  u y  	  	 	 	GLIB0076
 RLD              	 	 	  	 	u 	y  d h    dGLIB0077
 RLD              h   %  ^   Y  0  GLIB0078
 RLD                   @ ٯ d y  ^ Y م 0GLIB0079
 RLD                  * -  m q ھ Q ڟ \GLIB0080
 RLD               0   \   Y   8 	          GLIB0081
 RLD                                                         GLIB0082
 END                                                                    GLIB0083
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 117;    35 RECORDS:  
0SYM              USERS  LOOP  -FINDPGS  NEXTJOBh  h  h  {USER0001
 SYM           h  Dh  H h  Qh  h  \h  Uh  Y h h USER0002
 SYM           h h h  h h h h  h  h USER0003
 SYM           C &S8P2   h *h -h ˥h h % h  NUSER0004
 SYM           OTMTS hIDLEMTS TERMh q  d sTERMP h w  e BAUSER0005
 SYM           TCHP h [  d GIDLEP h   h   f \NONMTSP h USER0006
 SYM           U  e 7VMPGSP h   d RPGSP h    f PRIUSER0007
 SYM           NT1Yf PRINT2Yc S8L1d S8PRT  d S8NBR  
h USER0008
 SYM             f S8LINE2  h p  h G  h J h N  h V h USER0009
 SYM           Z  h 6 h   h  h   h  h   h  h USER0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT               ,       ,       ,       ,        THERE ARE  TEUSER0026
 TXT  Q      RMINAL USERS,  BATCH TASKS,  AVAILABLE LINES, AND USER0027
 TXT         NON-MTS JOBS USING  VIRTUAL PAGES AND  REAL PAUSER0028
 TXT        GES.                                                    USER0029
 TXT             MTS    IDLE                                    USER0030
 RLD                   {  Q    \       *USER0031
 RLD              -      y   ^                    USER0032
 END                                                                    USER0033
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 118;    46 RECORDS:  
0ESD          FILESNIF      SERCOM         GUSER                  SNIF0001
 ESD          SPRINT         GETFD          GDINFO                 SNIF0002
 ESD          FREEFD         READT          VOLGET                 SNIF0003
 ESD          DSKOP                                                  SNIF0004
 TXT          }0& & ؓ    ㌯& Ɣкƈ&kĕ0&K SNIF0005
 TXT         jĕ 0\&      -   *         0 ENTER FILE NSNIF0006
 TXT         AME...	͓0U&q       m          	ČSNIF0007
 TXT   y       -k  0Y&}  -             	0	& SNIF0008
 TXT   \      Čh00	ČhNh   4hʵq  SNIF0009
 TXT        ʊ & &&& &&&& K	Q 
&+SNIF0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT         ,     ).     PERMIT CODE =      ē                     SNIF0037
 TXT         ^    ;-   -  	 H     h                  SNIF0038
 TXT  \                                                   SNIF0039
 TXT                          RO   ALL  PRJNONONE                 SNIF0040
 RLD               <  &      d  h      {  D  % SNIF0041
 RLD                m h   y  ^ 	 	m 	q 	SNIF0042
 RLD              	} 	M  A I J R   \   U   YSNIF0043
 RLD            	     0                    SNIF0044
 END                                                                   SNIF0045
  LCS            LCSYMBOL                                                        
-FILE 119;   514 RECORDS:  
0ESD          SEG#08        	SEG#01                                     0001
 TXT              &  h  ƿ0& 05 1005 1    0002
 TXT         55<0& 05 10 5&i   J& J0550d    0003
 TXT         5^0d 5^0d 0m& 05 10\ 5&i   J& J05    0004
 TXT   y      5<0{& 05 10 5& J& J05505^0    0005
 TXT   \       5^0 0& 05 10 5& J& J05ȥ 21ݧ     0006
 TXT        5*}1& 05 10015^1 5-^1 1& 05    0007
 TXT  &       1001 5ˌ1& 05 10  P\01& 05 1    0008
 TXT  h      0Y01010101*01@ J05ȥ 22025^1Ч 5    0009
 TXT  {      ^1 1& 05 1002 5ˌ16& 05 10=     0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  u      B& B0C݇B      H  D         &	qB4              0031
 TXT             &        {                                             0032
 TXT                    LISTLOADDECK  {                                 0033
 TXT        NO                                                          0034
 RLD                 M Q   < h   n     0035
 RLD               -          	  @           0036
 RLD              d   h                                       0037
 END                                                                        0038
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 120;    15 RECORDS:  
0ESD          $PLCOMP       READ          WRITE                PLSP0001
 ESD          SCARDS         SERCOM         ERROR                  PLSP0002
 ESD          	SPRINT                                                 PLSP0003
 TXT          1{1q&k A & {0A{       4              	PLSP0004
 TXT         {--{4ʿ&& {{{n AqAkA0{0A{PLSP0005
 TXT            f   d            *** INPUT RECORD LENGTH EXCEEDS 80PLSP0006
 TXT   y       CHARACTERS.	͓0Au	͡0ݓ{0& {}0Ay{W       U   \    PLSP0007
 TXT   \           d	qAK - {6                                    PLSP0008
 TXT   6                                                              PLSP0009
 TXT                                                                PLSP0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT                                                                PLSP0011
 TXT  q                                                              PLSP0012
 RLD                           M  Q q      PLSP0013
 RLD              u 	  y                                        PLSP0014
 END                                                                    PLSP0015
-FILE 121;    50 RECORDS:  
0ESD          TAPE          MTPWRUC         TPRDUC                 TAPE0001
 ESD          GETSPACE       DSRDISPV                               TAPE0002
 TXT                         -i- ˓&ƥ TAPE0003
 TXT         04  	ѓ08u	a& Pį  Pa a ƥ- &-\ &-TAPE0004
 TXT         &@Ư-&Ư & q\áHHʥW2kf>TAPE0005
 TXT   y      H&Ư{k-DkGk aka
k	aU&Ư-KY:kaj\uj TAPE0006
 TXT   \      \uW0\+                                          TAPE0007
 TXT         j\k7k,aq}      \0002HΓ^ TAPE0008
 TXT         oajja\/ \0aɌ0/k	ak K {aa}TAPE0009
 TXT  ;      /⍵a/^//K aaKaa//^a&^Hoa&TAPE0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        a0K }&WTM WEF REWBSRBSFFSRFSFRUN 2CVTAPE0041
 TXT  -      [5CV[8CVl[2OF[2ON[2EF[2EN[5OF[5ON#[5EF[5EN,[8OF[TAPE0042
 TXT  q      8ON][8EFt[8EN[800[160C[SRL 2RLL YSNS !                TAPE0043
 TXT  {          9TP         "                                    TAPE0044
 RLD                              4 8    TAPE0045
 RLD                  \   8    { 	          TAPE0046
 END                                                                   TAPE0047
  LDT                                                                            
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 122;   203 RECORDS:  
0ESD          MOUNT         WRITE          SCARDS                 MNT 0080
 ESD          SERCOM         GUSER          DSRDISPV               MNT 0081
 ESD          LASTJOB        CANREPLY       GUINFO                 MNT 0082
 ESD          GETSPACE       FREESPAC       GDINFO                 MNT 0083
 ESD          READ           GETFD1         GUSERID                MNT 0084
 ESD          BLOCKL         FREEFD         QUIT                   MNT 0085
 ESD          ERROR          KEYWRD                                 MNT 0086
 TXT          }^H ^ 0d&0}&}0ؓ  a  j  000 MNT 0087
 TXT         00&00 &0	͌{ohA\0	ČIoMNT 0088
 TXT         j{0{h\ I܌0{ENTER MOUNT PARAMETERSʡ}hk MNT 0089
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  u                              ="" """""    0020
 TXT        ʊ<                                            0021
 TXT          "  ==@@""--/                       0022
 TXT  <                  " ʖ":+ʉ    0023
 TXT  d      Ζ                                                  0024
 TXT  y         {   A                                                   0025
 RLD                   u  y                                   0026
 END                                                                        0027
  LCS            LCSYMBOL                                                        
  LDT                                                                            
-FILE 123;    44 RECORDS:  
0ESD          TAPE          GETSPACE       ASCEBC                 PTPR0001
 ESD          DSRDISPV                                               PTPR0002
 TXT               	   Y     	  	  	-i- &    PTPR0003
 TXT         0  	 O07	a& PN  \ &Ư& @& PTPR0004
 TXT         & kį"X&q}4Ko K&=\B&KPTPR0005
 TXT   y      ʥ 0&K ʥ Ưq~0 YOU CAN'T WRITE ON THEPTPR0006
 TXT   \       READER                                                 PTPR0007
 TXT   Y      4q jӍ^=}ǡkj&kk PTPR0008
 TXT        ʥ	^ fjfjf^ K { a}8PTPR0009
 TXT        ;}^^&{=^ {^ j-ݺ{{<{PTPR0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        \ ^nF\ nA\  Ϣ < j20 K a0 0 PTPR0035
 TXT        0ڌ0o Kïq\BKʥ 0K ʥ PTPR0036
 TXT  Q      q~0 ILLEGAL CONTROL OPERATION FOR PAPER TAPE    PTPR0037
 TXT           ߓ[    N{ ^ն  - N PTPR0038
 TXT        { b2EORSTTWRLL&SRL WTMWEFREWBSRBSFFSRRUNFSPTPR0039
 TXT  =      F                                                      PTPR0040
 TXT                           " REMOVE TAPE FROM XXXX *       PTPR0041
 RLD                              \      dPTPR0042
 RLD                                                              PTPR0043
 END                                                                   PTPR0044
-FILE 124;   307 RECORDS:  
0LRD    TITLE   'MATRIX DECOMPOSITION'                                           
 LRD#   CSECT                                                                    
        ENTRY   LRD                                                              
 GRK    EQU     14                      INDEX REGISTER                           
 SR1    EQU     14                      SCRATCH REGISTER                         
 SRN    EQU     0                       INCREMENTING REGISTER FOR N              
 GRN    EQU     1                       NO. OF ROWS OF MATRIX                    
 SRM    EQU     2                       INCREMENTING REGISTER FOR M              
 GRM    EQU     3                       NO. OF COLUMNS OF MATRIX                 
 GRSIGN EQU     4                       SIGN OF PERMUTATION                      
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        LTR     GRSIGN,GRSIGN                                                    
        BNZ     *+8                                                              
        LA      SR1,4                                                            
        LR      15,SR1                                                           
        LM      0,12,20(13)                                                      
        L       14,12(0,13)                                                      
        SPM     14                      RESTORE PROGRAM MASK                     
        MVI     12(13),X'FF'                                                     
        BR      14                                                               
        END                                                                      
-FILE 125;    15 RECORDS:  
0ESD          LRD#          {LRD                                   LRD 0001
 TXT          }k q     & } ȿ       rLRD 0002
 TXT           0ς &  0&0϶ & -  ;&}ggB0 LRD 0003
 TXT         W\ \g021Z& - 00ނ& -  ť^LRD 0004
 TXT   y      0åg\0. 0Mٯ - - - &-0\004LRD 0005
 TXT   \      Z000 - g\0W㌯2{x n;}. - -, - LRD 0006
 TXT         \   - g\1-. x;}gB1gʡ Z 0LRD 0007
 TXT  &      1  ť^1å;g\1. 1mٯ - - &- -zLRD 0008
 TXT  h      -&Z-&-l 11w02;Z01 - g\1܌02;LRD 0009
 TXT  {      1}gg102;{x ѵ ٵ - -ŵ \; LRD 0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  8      -  -  -^2;-g\12xgB2l2;02ѵ ٵ -LRD 0011
 TXT         -ŵ 2\  - g\2 xgB2gg1̓}rLRD 0012
 TXT        Ό}2ζƶ{- 2k ɯ -ԯ -گ g{2ggk2&LRD 0013
 TXT        - 2\ q}\}\k}                        LRD 0014
 END                                                                    LRD 0015
-FILE 126;   184 RECORDS:  
0DBS    TITLE   'DOUBLE BACK SUBSTITUTION'                                       
 DBS#   CSECT                                                                    
        ENTRY   DBS                                                              
 SR2    EQU     14                      SCRATCH REGISTER                         
 GRK    EQU     0                       INDEX REGISTER                           
 SRN    EQU     2                       INCREMENTING REGISTER OVER N             
 GRN    EQU     3                       DIMENSION OF UL                          
 SRM    EQU     4                       INCREMENTING REGISTER OVER M             
 GRM    EQU     5                       NO. OF COLUMNS OF X AND B                
 GRL2   EQU     6                       DIMENSIONED COL LENGTH OF X & B          
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 FINI   LD      FR2,0(0,GRX)                                                     
        DDR     FR2,FR0                 X(1) = X(1)/UL(1,1)                      
        STD     FR2,0(0,GRX)            (UNCHANGED IF UL(1,1) IS ZERO)           
        ALR     GRX,GRL2                                                         
        BXLE    GRK,SRM,FINI                                                     
 END    LM      14,12,12(13)                                                     
        MVI     12(13),X'FF'                                                     
        SR      15,15                                                            
        BR      14                                                               
        END                                                                      
-FILE 127;    10 RECORDS:  
0ESD          DBS#          DBS                                   DBS 0001
 TXT          }q$&& &&  ȵ -- -     0  DBS 0002
 TXT         ^  0!g1܂ - fg001܂ - fg0!01DBS 0003
 TXT           팿0\    - - BC0u 0[ó%DBS 0004
 TXT   y      ^ ԯ -ԯ gB0m00M ó%^  -ԯ - gB0mfg0@01\DBS 0005
 TXT   \       - Bó%^  -ԯ gB0fg0ʿ [DBS 0006
 TXT        1<a { ó%^ ԯ -ԯ gB1fg1[ 1DBS 0007
 TXT  &      a G  ^  1- ó%^ ԯ -ԯ fB1>fg1[DBS 0008
 TXT  h      挥1&a  ^  1܂ - fg1q}k}        DBS 0009
 END                                                                    DBS 0010
-FILE 128;   137 RECORDS:  
0DBST   TITLE   'DOUBLE BACK SUBSTITUTION FOR TRANSFORMED SYSTEM'                
 DBST#  CSECT                                                                    
        ENTRY   DBST                                                             
 GRK    EQU     14                      INDEX REGISTER                           
 SRN    EQU     2                       INCREMENTING REGISTER OVER N             
 GRN    EQU     3                       DIMENSION OF UL                          
 SRM    EQU     4                       INCREMENTING REGISTER OVER M             
 GRM    EQU     5                       NO. OF COLUMNS OF X AND B                
 GRL2   EQU     6                       DIMENSIONED COL LENGTH OF X & B          
 GRB    EQU     7                       ADDRESS OF B                             
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        STD     FR2,0(GRI,GRX)                                                   
        BXH     GRI,SRN,PERMX           BRANCH IF I>-8                           
        ALR     GRX,GRL2                                                         
        BXLE    GRK,SRM,PERM                                                     
 END    LM      14,12,12(13)                                                     
        MVI     12(13),X'FF'                                                     
        SR      15,15                                                            
        BR      14                                                               
 EIGHT  DC      F'8'                                                             
        END                                                                      
-FILE 129;     8 RECORDS:  
0ESD          DBST#          DBST                                  DBST0001
 TXT          }q!&& &&  ȵ -- -     0DBST0002
 TXT            0;g1 - fgU001 - fgU0;DBST0003
 TXT         01   ]ѡ 0- f0 ԯ %ԡ DBST0004
 TXT   y      B 000dfgU0:ʴ aGѯ  % DBST0005
 TXT   \      ѥfB0Q-ѯ fgU0K0a}ʴ  1 DBST0006
 TXT        ԯ - -ѯ f1fgU1q}k}                     DBST0007
 END                                                                    DBST0008
-FILE 130;    50 RECORDS:  
0INV      TITLE 'MATRIX INVERSION ORGANISER '                                    
 INV#     CSECT                                                                  
          ENTRY INV                                                              
          USING *,12                                                             
 INV      STM   14,12,12(13)                                                     
          LR    12,15                                                            
          LM    4,9,0(1)                                                         
          LR    3,4                                                              
          STM   3,9,PARLIST                                                      
          LA    1,PARLIST                                                        
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     14,12(0,13)                                                      
          MVI   12(13),X'FF'                                                     
          BR    14                                                               
 PARLIST  DS    7F                                                               
 SAVE     DS    18F                                                              
 ALRD     DC    V(LRD)                                                           
 AINV1    DC    V(INV1)                                                          
 ASPAC    DC    V(GETSPACE)                                                      
 AFREE    DC    V(FREESPAC)                                                      
          END                                                                    
-FILE 131;     8 RECORDS:  
0ESD          INV#           4INV           LRD                    INV 0001
 ESD          INV1           GETSPACE       FREESPAC               INV 0002
 TXT          }q {{&}{}{0{U	Č{0 0{%˓  INV 0003
 TXT           0{	Č{&0 0{%~{{0{Y	 0{0	Ͷē}{INV 0004
 TXT         q}\}k}                                          INV 0005
 TXT   U                                                              INV 0006
 RLD               U    Y     	   0                        INV 0007
 END                                                                    INV 0008
-FILE 132;   279 RECORDS:  
0INV1     TITLE 'MATRIX INVERSION'                                               
 INV1#    CSECT                                                                  
 *                                                                               
 *        THE SUBROUTINE LRD IS CALLED PREVIOUS TO ENTERING THIS                 
 *        ROUTINE AND SETS UP THE DECOMPOSED MATRIX UL AND THE                   
 *        PERMUTATION VECTOR IP.   FOR SOME MATRIX A WE HAVE:                    
 *                                      -1             -1    -1 -1               
 *                  PA = LU   OR   A = P  LU,  THUS   A   = U  L  P              
 *                                                                               
 *        THIS ROUTINE COMPUTES THE INVERSES OF L AND U AND HENCE                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          STD   FR0,0(GRI,ULCOLI)                                                
          ALR   ULCOLI,GRL                                                       
          BXLE  GRJ,SRN,LASTROW                                                  
 OUT      LM    14,12,12(13)                                                     
          SR    15,15                                                            
          MVI   12(13),X'FF'                                                     
          BR    14                                                               
          CNOP  0,8                                                              
 ONE      DC    X'4110000000000000'                                              
          END                                                                    
-FILE 133;    13 RECORDS:  
0ESD          INV1#         INV1                                  INV10001
 TXT          }q#  ȿ  ȡ - ! 2&_  -  쌯2- ^ INV10002
 TXT          ^ %&  02&_& -&  - & -^ g0INV10003
 TXT         ʧ  0q& -^ %  0 0 - !INV10004
 TXT   y      0& 0^ %& ⋌00 0M -& 00wƥINV10005
 TXT   \      1& -^  ^ %&  04 %& -& -^ g0INV10006
 TXT        00>ʧ   & -^ % g1- ^ ʧ 1 INV10007
 TXT  &       & ^ %& g1-^  1< 1C 1oINV10008
 TXT  h      ^ ^ -^ -^ 012Z; ^ -  ^ -& &INV10009
 TXT  {      -^ % g1- ^ !2 ^ -&  ^ %& INV10010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  8      g10-^ 01Q1 &^ %& g2-^  2INV10011
 TXT        01^ - zg2q}k}                      INV10012
 END                                                                    INV10013
-FILE 134;   178 RECORDS:  
0DAIN     TITLE 'INTERPOLATION IN DOUBLE PRECISION'                              
 DAINT#   CSECT                                                                  
 GR0      EQU   0                                                                
 SRN      EQU   2                       INCREMENTING REGISTER FOR N              
 GRN      EQU   3                       NUMBER OF POINTS SUPPLIED                
 VECTX    EQU   4                       ADDRESS OF X                             
 VECTY    EQU   5                       ADDRESS OF Y                             
 SCX      EQU   6                       SCRATCH VECTOR                           
 GRM      EQU   7                       NO. OF INTERPOLATION POINTS              
 SCY      EQU   8                       SCRATCH VECTOR                           
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          AR    GRI,SRN                                                          
          CR    GRI,GRM                                                          
          BL    INTER                                                            
          LD    FR0,0(GRM,SCY)                                                   
 DONE     SR    15,15                                                            
          LM    0,11,20(13)                                                      
          MVI   12(13),X'FF'                                                     
          SPM   14                                                               
          BR    14                                                               
          END                                                                    
-FILE 135;    11 RECORDS:  
0ESD          DAINT#        DDAINT                                 DAIN0001
 TXT          }q ʥ      0躿ȿ  -- ʁlDAIN0002
 TXT         kh i    0-l1k  ^0k00r1ɶk   0-DAIN0003
 TXT         ú,  , 쌿0 ^0k- - & -  01^  DAIN0004
 TXT   y      0^]ʵ -- -- & &-گ -ѯ zs^ʡ  1ጥ1&DAIN0005
 TXT   \      p1@k    Ѻ ^1-- & -ٯ s 100\-DAIN0006
 TXT        - & -ů g0\01&ú,  - - & -  쌯1r1rtsDAIN0007
 TXT  &      [01!p1@k  Ѻ -- & -ٯ ^01!rʵ- DAIN0008
 TXT  h      ů   - ы-,- - gs1kp 1 q}k}DAIN0009
 TXT  {      \                                                    DAIN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 END                                                                    DAIN0011
-FILE 136;   178 RECORDS:  
0SAIN     TITLE 'INTERPOLATION IN SINGLE PRECISION'                              
 SAINT#   CSECT                                                                  
 GR0      EQU   0                                                                
 SRN      EQU   2                       INCREMENTING REGISTER FOR N              
 GRN      EQU   3                       NUMBER OF POINTS SUPPLIED                
 VECTX    EQU   4                       ADDRESS OF X                             
 VECTY    EQU   5                       ADDRESS OF Y                             
 SCX      EQU   6                       SCRATCH VECTOR                           
 GRM      EQU   7                       NO. OF INTERPOLATION POINTS              
 SCY      EQU   8                       SCRATCH REGISTER                         
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          AR    GRI,SRN                                                          
          CR    GRI,GRM                                                          
          BL    INTER                                                            
          LE    FR0,0(GRM,SCY)                                                   
 DONE     SR    15,15                                                            
          LM    0,11,20(13)                                                      
          MVI   12(13),X'FF'                                                     
          SPM   14                                                               
          BR    14                                                               
          END                                                                    
-FILE 137;    11 RECORDS:  
0ESD          SAINT#        DSAINT                                 SAIN0001
 TXT          }q ʥ      0躿ȿ  -- ʁlSAIN0002
 TXT         kh i `   0-l1k`  ^0k00r1ɶk`   0-SAIN0003
 TXT         #  # 쌿0 ^0k - &   01^  SAIN0004
 TXT   y      0^]ʵ - - & &گ ѯ zs^ʡ  1ጥ1&SAIN0005
 TXT   \      p1@k     ^1- & ٯ s 100\㭿SAIN0006
 TXT        - & ů g0\01&#   - &   쌯1r1rtsSAIN0007
 TXT  &      [01!p1@k   - & ٯ ^01!rʵ- SAIN0008
 TXT  h      ů   - -#-  gs1kp 1 q}k}SAIN0009
 TXT  {      \                                                    SAIN0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 END                                                                    SAIN0011
-FILE 138;    43 RECORDS:  
0SINV     TITLE 'INVERSION OF A POSITIVE DEFINITE SYMMETRIC MATRIX'              
 SINV#    CSECT                                                                  
          ENTRY SINV                                                             
          USING *,6                                                              
 SINV     STM   14,6,12(13)                                                      
          LR    6,15                                                             
          ST    13,SAVE+4                                                        
          LA    13,SAVE                                                          
          L     15,ASLRD                                                         
          BALR  14,15                                                            
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     14,12(0,13)                                                      
          MVI   12(13),X'FF'                                                     
          BR    14                                                               
 PARLIST  DS    4F                                                               
 SAVE     DS    18F                                                              
 ASINV2   DC    V(SINV2)                                                         
 ASLRD    DC    V(SLRD)                                                          
 ASPAC    DC    V(GETSPACE)                                                      
 AFREE    DC    V(FREESPAC)                                                      
          END                                                                    
-FILE 139;     7 RECORDS:  
0ESD          SINV#          }SINV          SINV2                  SINV0001
 ESD          SLRD           GETSPACE       FREESPAC               SINV0002
 TXT          W}?&}-@}-0-D	Č-q    0-H	Č-SINV0003
 TXT         
--0-{	 0-	Ͷē}-@q}\}k}          SINV0004
 TXT   {                                                              SINV0005
 RLD               {    D    H 	                           SINV0006
 END                                                                    SINV0007
-FILE 140;   145 RECORDS:  
0SLRD     TITLE 'DECOMPOSITION OF A SQUARE SYMMETRIC MATRIX'                     
 SLRD#    CSECT                                                                  
 ACOLK    EQU   14                      ADDR. OF COL K OF A                      
 GR2      EQU   14                                                               
 GR0      EQU   0                                                                
 GR1      EQU   1                                                                
 SRN      EQU   2                       INCREMENTING REGISTER FOR N              
 GRN      EQU   3                       DIMENSION OF MATRIX                      
 GRL2     EQU   4                       DIMENSIONED COL LENGTH OF A              
 ACOLI    EQU   5                       ADDR OF COL I OF MATRIX A                
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          L     14,12(0,13)                                                      
          SPM   14                                                               
          MVI   12(13),X'FF'                                                     
          BR    14                                                               
          CNOP  0,4                                                              
 BIAS     DC    X'31000000'                                                      
 A        DC    X'48385F07'             0.2202*16**8                             
 B        DC    X'00423A2A'             0.2587                                   
 BUFF     DS    F                                                                
          END                                                                    
-FILE 141;     8 RECORDS:  
0ESD          SLRD#         SLRD                                  SLRD0001
 TXT          }k q      -- - ʥ r   & 00=SLRD0002
 TXT         VU\ -ѿ g0sf [V  \ ѥ-ѯ Ug0!SLRD0003
 TXT         fgs0&kٿ  }1 1& 1&; 1   1& 1<1&:1<@1SLRD0004
 TXT   y      ^0  " 1<= 1<-ٿ lSLRD0005
 TXT   \      1r0^.  -. g0ʵf [  ѯ ѥ-ѯ SLRD0006
 TXT        g1fgs100\ 01ƶq}\}\k}     SLRD0007
 END                                                                    SLRD0008
-FILE 142;   136 RECORDS:  
0SNV1     TITLE 'INVERSION OF A LOWER TRIANGULAR MATRIX'                         
 SINV1#   CSECT                                                                  
 MINUS8   EQU   14                      SCRATCH REGISTER                         
 SRN      EQU   2                       INCREMENTING REGISTER FOR N              
 GRN      EQU   3                       SIZE OF MATRIX                           
 GRL      EQU   4                       DIMENSIONED COL LEN. OF MATRIX           
 ULCOL1   EQU   5                       ADDR OF COLUMN 1 OF MATRIX               
 ULCOLI   EQU   5                       ADDR OF COLUMN I OF MATRIX               
 SCROW    EQU   6                       ADDR OF SCRATCH VECTOR                   
 ULCOLJ   EQU   7                       ADDR OF COLJ OF MATRIX                   
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          ALR   ULCOLI,GRL                                                       
          BXLE  GRI,SRN,INVERSE                                                  
 OUT      LM    14,12,12(13)                                                     
          SR    15,15                                                            
          MVI   12(13),X'FF'                                                     
          SPM   14                                                               
          BR    14                                                               
          CNOP  0,8                                                              
 ONE      DC    X'4110000000000000'                                              
          END                                                                    
-FILE 143;     8 RECORDS:  
0ESD          SINV1#        SINV1        SINV2                 SNV10001
 TXT          }{ 0000}q ]^       uʥ SNV10002
 TXT         S#&  1_ - -- ㌯0Oʮ ʵ 1_ٿ -ٿ шɿ SNV10003
 TXT         %- ɉgs0* - -- kr^0 h0O#&  -- SNV10004
 TXT   y      ʮ ٿ шʵɿ %- ɉsy}0y -- - kr^0bSNV10005
 TXT   \      b^01hqzш& %ڿ  gs0W-& gk0Sgb0q}SNV10006
 TXT        k}\                                         SNV10007
 END                                                                    SNV10008
-FILE 144;   425 RECORDS:  
0JESS     TITLE 'JACOBI METHOD FOR EIGENVALUE PROBLEM'                           
 JESS#    CSECT                                                                  
 SR2      EQU   14                      SCRATCH REGISTER                         
 RETURN   EQU   14                                                               
 SWTCH    EQU   0                       SWITCH IN SINE/COSINE SECTION            
 SRN      EQU   0                                                                
 GRN      EQU   1                       SIZE OF MATRICES A AND R                 
 LENA     EQU   2                       DIMENSIONED COL.LENGTH OF A              
 ACOL1    EQU   3                       ADDR. OF COLUMN 1 OF A                   
 LENR     EQU   4                       DIMENSIONED COL.LENGTH OF R              
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 B        DC    X'00423A2A'             0.2587                                   
 BUFF     DS    F                                                                
 N        DS    E                                                                
 HIVAL    DC    X'4B100000'                                                      
 SHIFTS   DC    X'01000000'                                                      
          DC    X'0A000000'                                                      
 THRSH    DS    E                                                                
 SWEEP    DS    F                                                                
 SAVE     DS    F                                                                
          END                                                                    
-FILE 145;    22 RECORDS:  
0ESD          JESS#         JESS                                  JESS0001
 TXT          }q &}4 O   ȥ       ֋0   - }  3\JESS0002
 TXT         - & 03D l 3\̶-^ g-0-^  -} ƈkJESS0003
 TXT         g0&\4k4: 4ÿ 4-̌0m-3\'-4ÿ-4&\400\ JESS0004
 TXT   y      00{\4$\4&\400 } } ƭg-0H' 4ÿ 44JESS0005
 TXT   \      $4&400- rvC-4{  1g-0{ -} uJESS0006
 TXT        B- 0ҍ4ʯ 4- f3r03D4ʯJESS0007
 TXT  &       400s} _{ { _{ ƺ` 4Ԍ 1d` 4Ԍ 1d-401^JESS0008
 TXT  h       ̌1u{  1]-3YË0141]̥ú  3\\102 JESS0009
 TXT  {      -3\1   ɺ-  3\\1\02 3\ - 14óË]JESS0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT        " 4= 4  l쌯2^̡  úó% 38%30ɥ- % 38%-JESS0013
 TXT        30ы- k 2ʩ k{ WX\2ʯ̡ { úó% 38JESS0014
 TXT  Q      %30ɥ- % 38%-30ы-{ kf 2H { % 4%4 JESS0015
 TXT        % 4 %4ɳ{ % 4Ɉ- -} ѳ-{ %-4 4, 4 %JESS0016
 TXT        { ɋ-{ h^  úó% 38%30-^ %-30% 38ы- g3/JESS0017
 TXT        1ʯ- { úó% 38%30- %-30% 38ы-{ g3hg-0JESS0018
 TXT        01\ 03F}4 q}\}k}         39JESS0019
 TXT                                                        JESS0020
 TXT        .                                                    JESS0021
 END                                                                    JESS0022
-FILE 146;    28 RECORDS:  
0FIXOBJ ENTER 12,SA=SA                                                           
 B      READ 2,CARD,LEN,LNR,EXIT=DONE                                            
       CLI   LSW,0                                                               
       BNE   A                                                                   
       CLC   =C'ESD',CARD+1                                                      
       BE    C                                                                   
 A     CLC   =C'END',CARD+1                                                      
       BNE   B                                                                   
       MVI   LSW,0                                                               
       CLC   =C'   ',CARD+29                                                     
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       B   B                                                                     
 DONE  EXIT 0                                                                    
 LSW   DC   X'00'                                                                
 LEN   DS  H                                                                     
 LNR   DS   F                                                                    
 ELNR   DS   F                                                                   
 CARD   DS   80C                                                                 
 CARDE  DS    80C                                                                
 SA    DS    18F                                                                 
       END                                                                       
-FILE 147;    16 RECORDS:  
0SYM              FIXOBJ   Bh  h  h  h  åh  ԥh  ƥh      0001
 SYM               Ah  h  h  @h  h  dh  hh   h      0002
 SYM           h  uh  yh  ܥh  ^h  h   h  Hh  h  }h    0003
 SYM             Mh  Qh  h  \    C  8DONEb LSW   	b     0004
 SYM           LENb LNRc ELNRC CARD     &D -CARDE     &A     0005
 SYM           ^SA     h 8h h    h   h                  0006
 ESD                       READ           WRITE                      0007
 TXT          }0A^& & ؓ0A8{                       0008
 TXT         	Č{8n A{NB A{NBA{k ANBA{ 0A8    0009
 TXT         {  -          h      	KA'A0A{  -      0010
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT   y                    	 0A8{U       \            0011
 TXT   \   
      	͌0{kAKAA0{ q}                        0012
 TXT  8              ESDEND                                              0013
 RLD                             @    d    u  y    0014
 RLD                 ^  H    }  M  Q   8               0015
 END                                                                        0016
-FILE 148;  3903 RECORDS:  
0        ^    -                                                  IPL CARD
 TXT          ^   -   ^   -   ^   :          BSLD0003
 TXT        	{K   ʯ{ &   {  {j {b {u{}nX{BSLD0004
 TXT        {<nE{{!nN{{1{O{o0{q{M&{硋{\{\BSLD0005
 TXT  :      {^q{\ i& i   - {: -  0{K  { Q    BSLD0006
 TXT  ^                     	                  BSLD0007
 TXT         {& &K -^K  -K b y                      BSLD0008
 TXT  y           D      	&     	                                BSLD0009
 TXT  {      ʥ&k	 ʥ&    	  jBSLD0010
 TXT  8       	j3 &	&ʥ n  &-   j0  BSLD0011
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 TXT  	      j   o 	j 	j 	^n 	n Kj Xd    h {\08 CONF0083
 TXT  	D                                                CONF0084
 RLD              	%    *     	   % 	    @       CONF0085
 RLD              	   	   	   	   	   	   	CONF0086
 RLD              	   	   	   	    	   	   	<CONF0087
 RLD              	&   	   	   	*   	-   	   	CONF0088
 RLD               d 	   	   	      *   -CONF0089
 RLD                                                         CONF0090
 END                                                                    CONF0091
  LDT            ISTART                                                          
