1                                                                                               THU SEP 12/96   23:39:34   Page    1
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00001/001   UMLOAD                   D4 MASTER       SA  G          S0563 D4T1 VLO FSNAME=UMLOAD.D4_MASTER.SA.001(1)               1
            D4T1      1  UMLOAD.D4_MASTER.SA.001            1 LINE     80  133 PAGE UM   SHERRY              JULY 27, 1977  21:22:56
0          D4.0 VERSION OF MTS RELOCATABLE LOADER.
           SINCE D3.0, UMLOAD HAS BEEN CHANGED TO SUPPORT ALI, MSG, AND OPT CARDS.
           ALLOWABLE OPTIONS ARE:  MDL=ON/OFF, WARN=ON/OFF, NCALCS=ON/OFF, NULMSG=ON/OFF,
           PUSH, POP, FILL=XX/OFF, SAVESD=ON/OFF, AND WXLCS=ON/OFF.  THE DIR CARD FORMAT
           HAS BEEN CHANGED FOR LONG RECORD LINE FILE DIR LIBRARIES.  COMPLETE DETAILS MAY
           BE FOUND IN MTS VOLUME 5 AND IN COMPUTING CENTER NEWSLETTER VOL 7, NO. 1.  THERE
           HAVE BEEN INTERNAL CHANGES FOR ADDRESSABILITY AND THE NEW SUBROUTINE UMLOADRP
           HAS BEEN ADDED (BY UBC) FOR RAMROD.
0          Referenced by comments of: 1/2, 1021/5, 1021/7 
00001/002   UMLOAD                   UPDATE          UC  G          W009:UMLOAD.U                                                   
            D4.2T1    1  UMLOAD.UPDATE.UC.002               1 LINE     71    4 PAGE UM   SHERRY              MAR. 26, 1979  02:14:18
                         W009:UMLOAD.U        
0          UPDATE DECK TO PRODUCE CURRENT UMLOAD SOURCE FROM D4.1 UMLOAD (001/1).
00001/003   UMLOAD                   OBJECT          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   SHERRY                                     
00001/004   UMLOAD                   LOADINFO DSECT  SA  G          *LOADINFODSECT                                                  
            D4T1      3  UMLOAD.LOADINFO_DSECT.SA.004       1 LINE     67    1 PAGE UM   SHERRY              JULY 27, 1977  21:23:19
                         *LOADINFODSECT       
0          COPY SECTION FOR INFORMATION RETURNED BY LOADINFO SUBR (PART OF 354/1).
0          Referenced by comments of: 506/3, 545/3 
00001/005   UMLOAD                   INFO CLS        SA  O  INF     W009:CLSINFO.S                                                  
            D4T1      4  UMLOAD.INFO_CLS.SA.005             1 LINE     80   46 PAGE UM   SHERRY              JULY 27, 1977  21:23:21
                         W009:CLSINFO.S       
0          A CLS-CODED PROGRAM (I.E. USE VIA THE MTS #CLS COMMAND) TO ALLOW THE USER
           TO EXAMINE LOADER TABLES (INCLUDING THE RESIDENT IPL LOADER PSECT) AND LOW
           CORE SYMBOL TALES (LCSYMBOL, SYSDEFS, <FIX>, ETC.).  ASSEMBLE USING
           COPY:MTS.MACROS (344/3).
00001/006   UMLOAD                   INFO CLS        OE  O          W009:CLSINFO.O                                                  
            D4T1      5  UMLOAD.INFO_CLS.OE.006             1 LINE   8744    7 PAGE UM   SHERRY              JULY 27, 1977  21:23:24
                         W009:I               
00001/007   UMLOAD                   INFO CLS        M              W009:CLSINFO.X                                                  
            D4T1      6  UMLOAD.INFO_CLS.M.007              1 LINE     74    2 PAGE UM   SHERRY              JULY 27, 1977  21:23:26
                         W009:CLSINFO.X       
0          MESSAGE FILE USED BY THE INFO CLS.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
1                                                                                               THU SEP 12/96   23:39:34   Page    2
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00001/008   UMLOAD                   INFO CLS        WF             W009:CLSINFO.W                                                  
            D4T1      7  UMLOAD.INFO_CLS.WF.008             1 LINE     91    4 PAGE UM   SHERRY              JULY 27, 1977  21:23:29
                         W009:CLSINFO.W       
0          WRITEUP DESCRIBING THE INFO CLS PROGRAM.
00001/009   UMLOAD                   CLSDRV          SA  O  CLSD    W009:CLSDRV.S                                                   
            D4T1      8  UMLOAD.CLSDRV.SA.009               1 LINE     80    5 PAGE UM   SHERRY              JULY 27, 1977  21:23:31
                         W009:CLSDRV.S        
0          THIS IS AN INTERFACE PROGRAM WHICH PERMITS THE INFO CLS TO BE RUN AS A NORMAL PROGRAM.
00001/010   UMLOAD                   CLSDRV          OC  O          W009:CLSDRV.O                                                   
            D4T1      9  UMLOAD.CLSDRV.OC.010               1 LINE    668    2 PAGE UM   SHERRY              JULY 27, 1977  21:23:33
                         W009:CLSDRV.O        
00003/001   JOBLIST                                  SA  G          S1319 D4.2T1 VLO FSNAME=JOBLIST..SA.001(1)                     2
            D4.2T1    2  JOBLIST..SA.001                    1 LINE     71    4 PAGE UM   WSG                 MAR. 26, 1979  02:14:20
0          MANY ASSEMBLIES WHICH TOGETHER FORM THE LIST OF AVAILABLE JOBS IN UMMPS.
           ASSEMBLE WITH PAR=B.
00003/002   JOBLIST                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00004/001B  TABLES                                   SA  G  TABL    WSG:TABLES                                                      
            RD16T1    1  TABLES..SA.001                     1 LINE     80   25 PAGE UM   WSG                 JULY 12, 1979  22:22:07
                         WSG.:TABLES          
0          TABLES THAT DEFINE THE HARDWARE CONFIGURATION FOR THE UM AMDAHL 470, THE NUMBER OF LOW-CORE
           TERMINAL I/O BUFFERS, THE LIST OF PUBLIC DISK VOLUME NAMES AND CORRESPONDING DISK DRIVES, ETC.
           THIS DECK IS DISTRIBUTED AS AN EXAMPLE OF AN I/O CONFIGURATION; OBVIOUSLY, EACH INSTALLATION
           WILL SUPPLY TABLES FOR ITS LOCAL CONFIGURATION OR USE DECKGEN (004/5).  THIS DECK CONTAINS
           SEVERAL MACRO DEFINITIONS USEFUL FOR DEFINING THE TABLES.  COPIES COPY:LLMPSEQU (087),
           COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND *CNFGINFODSECT(2) (654).
           ASSEMBLE USING COPY:FILE.MACROS (482/33) AND COPY:SETPARM (653).
           NOTE:  IT IS NORMAL TO GET AN *ASMG WARNING MESSAGE ABOUT RELOCATABLE Y-CONS. IF
                  ASSEMBLING WITH *ASMH, USE PAR=MSGLEVEL(1) TO SUPPRESS THESE WARNINGS.
0          Referenced by comments of: 482/38 
00004/002B  TABLES                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00004/003   TABLES                   WRITEUP         WF             S1319 D4.2T1 VLO FSNAME=TABLES.WRITEUP.WF.003(1)               4
            D4.2T1    4  TABLES.WRITEUP.WF.003              1 LINE    128   13 PAGE UM   WSG                 MAR. 26, 1979  02:14:21
                         WSG.:TABLES.WF       
00004/004   TABLES                   DECKGEN         SA  G  DCKP    MTS:DCKPCHR.S                                                   
            D4.2T1    5  TABLES.DECKGEN.SA.004              1 LINE     80   76 PAGE UBC            HELFFRICH MAR. 26, 1979  02:14:27
                         MTS.:DCKPCHR.S       
0          STAND-ALONE PROGRAM TO GENERATE AN ASSEMBLER OBJECT DECK FOR THE SYSTEM TABLES
           CSECT BASED ON INPUT ENTERED FROM THE OPERATOR'S CONSOLE.  IT WILL ALSO WRITE
1                                                                                               THU SEP 12/96   23:39:34   Page    3
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          THE GENERATED OBJECT DECK ONTO A TAPE, FOR SUBSEQUENT USE WITH THE IPLREADER
           PROGRAM (1021), WHICH CAN REPLACE THE TABLES CSECT IN A SYSTEM WITH THE ONE
           FROM THE TAPE.  USES THE IPLREADER ROUTINES FOR CONSOLE I/O, WHICH MEANS THAT
           A 3270 MAY BE USED.  COPIES *CNFGINFODSECT (654).  ASSEMBLE WITH *ASMH USING
           COPY:FILE.MACROS (482/33), COPY:MISC.MACROS (728), AND *SYSMAC.
00004/005   TABLES                   DECKGEN         OC  G          MTS:DCKPCHR.O                                                   
            D4.2T1    6  TABLES.DECKGEN.OC.005              1 LINE     80    8 PAGE UBC            HELFFRICH MAR. 26, 1979  02:14:35
                         MTS.:DCKPCHR.O       
0          THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE.
0          Referenced by comments of: 4/1 
00004/006   TABLES                   *IPL.DECKGEN    D              MTS:IPL.DECKGEN                                                 
            D4.2T1    7  TABLES.*IPL.DECKGEN.D.006          1 SEQ    4100   30 PAGE UBC            HELFFRICH MAR. 26, 1979  02:14:36
                         *IPL.DECKGEN         
0          OBJECT FOR DECKGEN SUITABLE FOR LOADING BY THE IPL READER.
00004/007   TABLES                   DECKGEN DESCR   WF             MTS:DCKPCHR.W                                                   
            D4.2T1    8  TABLES.DECKGEN_DESCR.WF.007        1 LINE    126    7 PAGE UBC            HELFFRICH MAR. 26, 1979  02:14:38
                         MTS.:DCKPCHR.W       
0          WRITEUP DESCRIBING HOW TO USE THE DECKGEN PROGRAM TO GENERATE A TABLES OBJECT DECK.  A COPY IS INCLUDED WITH
           THE PAPER DOCUMENTATION.
00005/001   JBRP                                     SA  G          S0563 D4T1 VLO FSNAME=JBRP..SA.001(1)                         16
            D4T1     16  JBRP..SA.001                       1 LINE     80    7 PAGE UM   MTA                 JULY 27, 1977  21:23:55
                         MTA.:JBRP            
0          JOB REQUEST PROCESSOR (TASK INITIALIZATION).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
00005/002   JBRP                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00006/001   FNDJTL                                   SA  G          S0563 D4T1 VLO FSNAME=FNDJTL..SA.001(1)                       17
            D4T1     17  FNDJTL..SA.001                     1 LINE     80    2 PAGE UM   MTA                 JULY 27, 1977  21:23:58
                         MTA.:FNDJTL          
0          FIND JOB TABLE.
00006/002   FNDJTL                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00007/001   FBJTJL                                   SA  G          MTA:FBJTJL(1,999)                                               
            D4T1     18  FBJTJL..SA.001                     1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  21:23:59
                         MTA.:FBJTJL          
0          FREE BUFFERS AND JOB TABLE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
1                                                                                               THU SEP 12/96   23:39:34   Page    4
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00007/002   FBJTJL                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00008/001   FIDCQ                                    SA  G          S0563 D4T1 VLO FSNAME=FIDCQ..SA.001(1)                        19
            D4T1     19  FIDCQ..SA.001                      1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  21:24:01
                         MTA.:FIDCQ           
0          FREE I/O DEVICES AND CPU QUEUE.  UNCHANGED SINCE 1968!
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
00008/002   FIDCQ                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00009/001   BUFALLOC                                 SA  G          MTA:BUFALLOC(1,999)                                             
            D4T1     20  BUFALLOC..SA.001                   1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  21:24:03
                         MTA.:BUFALLOC        
0          SUBROUTINE TO ALLOCATE AND RELEASE 128-BYTE, LOW-CORE, TERMINAL, I/O BUFFERS.
           THIS ROUTINE IS CALLED BY SEVERAL TERMINAL DEVICE SUPPORT ROUTINES (TSFO, PDP8RTN, MNETRTN, ETC).
           IT ALLOCATES BUFFERS FROM A POOL OF BUFFERS WHICH ARE PART OF TABLES AND WHICH BUFALLOC REFERENCES
           WITH THE TABLES EXTERNAL SYMBOL 'TERMBFRS'.
           THE PURPOSE OF THESE BUFFERS IS TO HAVE THE TERMINAL ROUTINES DOING I/O INTO REAL-CORE BUFFERS,
           THUS AVOIDING THE OVERHEAD OF HAVING MANY VM PAGES LOCKED IN CORE DURING TERMINAL I/O.
            
           THE BUFSTAT PROGRAM (618) PRINTS WHICH JOB IS USING WHICH BUFFER(S).
00009/002   BUFALLOC                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00010/001   EXIT                                     SA  G          MTA:EXIT(1,999)                                                 
            D4.2T1    9  EXIT..SA.001                       1 LINE     72    2 PAGE UM   MTA                 MAR. 26, 1979  02:14:39
                         MTA.:EXIT            
0          KILLS CALLING TASK.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
00010/002   EXIT                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00011/001   CARDUC                                   SA  G          S0720 'D3T1' FSNAME=CARDUC..SA.1(1)                         12  
            D4T1     22  CARDUC..SA.001                     1 LINE     80    9 PAGE UM   MTA                 JULY 30, 1973  03:30.59
0          2501 AND 2540 READER UNIT CHECK ROUTINES.
00011/002   CARDUC                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00012/001   TAPEUC                                   SA     TPUC    WSG:TAPEUC(1,999)                                               
            D4T1     23  TAPEUC..SA.001                     1 LINE     80   18 PAGE SFU  BENET     WSG       JULY 27, 1977  21:25:13
                         WSG.:TAPEUC          
0          MAGNETIC TAPE UNIT CHECK ROUTINES.  COPIES COPY:CMDAREADSECT (531/18).
1                                                                                               THU SEP 12/96   23:39:34   Page    5
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00012/002   TAPEUC                                   OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    SFU  BENET     WSG                              
00013/001   PTRUC                                    SA  G          S0563 D4T1 VLO FSNAME=PTRUC..SA.001(1)                        24
            D4T1     24  PTRUC..SA.001                      1 LINE     80   10 PAGE UM   MTA                 JULY 27, 1977  21:25:15
                         MTA.:PTRUC           
0          1403 AND 1443 PRINTER UNIT CHECK ROUTINES.
00013/002   PTRUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00014/001   PUNUC                                    SA  G  PCUC    DWB:PUNUC(1,999)                                              15
            D4.1T1    8  PUNUC..SA.001                      1 LINE     80    6 PAGE UM   DWB                 MAY  13, 1978  16:52:09
                         DWB.:PUNUC           
0          2540 AND 1442 PUNCH UNIT CHECK ROUTINES.
00014/002   PUNUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00016/001   CCTB                                     SA  G          S0720 'D3T1' FSNAME=CCTRANTB..SA.1(1)                         16
            D4T1     26  CCTB..SA.001                       1 SEQ      80    2 PAGE UM   MTA                 JULY 30, 1973  23:01.33
0          USED BY MTS TO TRANSLATE LOGICAL CARRIAGE CONTROL TO PRINTER COMMANDS.
           UNCHANGED SINCE DIST 1.0.
00016/002   CCTB                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00017       PN XLATE TABLE                           SA           # (OBSOLETE)                                                      
            D3T1     17  PN_XLATE_TABLE..SA.1               1 SEQ      80    1 PAGE UM                       JULY 30, 1973  23:01.33
00018/001   STOP/BLAST/GOOSE JOBS                    SA  G          S0720 'D3T1' FSNAME=STOP/BLAST/GOOSE_JOBS..SA.1(1)            18
            D4T1     27  STOP/BLAST/GOOSE_JOBS..SA.001      1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:01.54
0          THE STOP, BLAST, AND GOOSE UMMPS JOB PROGRAMS.  UNCHANGED SINCE DIST 1.0.
00018/002   STOP/BLAST/GOOSE JOBS                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00019/001   TASKS JOB                                SA  G  TSKJ    S0792 WSGFS FSNAME=UTASKS                                       
            D4.1T1    9  TASKS_JOB..SA.001                  1 LINE     80   11 PAGE UM   WSG                 MAY  13, 1978  16:52:12
                         WSG.:UTASKS          
0          THE JOB PROGRAM VERSION OF *TASKS (145); CONTAINS THE TSKFMT SUBROUTINE CALLED BY
           *TASKS (145) AND SSRTN (413/1).  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).  SOURCE IN LINES (1,999).
0          Referenced by comments of: 145/1, 413/1, 647/1 
1                                                                                               THU SEP 12/96   23:39:34   Page    6
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00019/002   TASKS JOB                                OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00020/001   JOBDUMP                                  SA  G          S0720 'D3T1' FSNAME=JOBDUMP_JOB..SA.1(1)                      20
            D4T1     29  JOBDUMP..SA.001                    1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:03.31
0          UMMPS "JOBDUMP" JOB.  USES SVC XJOBDUMP TO DUMP THE SPECIFIED JOB.
           UNCHANGED SINCE DIST 1.0.
00020/002   JOBDUMP                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00021/001   BROADCST                                 SA  G  BDCS    MTS:BROADCST(1000)                                              
            D4.2T1   10  BROADCST..SA.001                   1 LINE     80   14 PAGE UM   OGDEN               MAR. 26, 1979  02:14:40
                         MTS.:BROADCST        
0          JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR
           TO ALL USERS.  HAS A SETA SYMBOL (%DC) WHICH CONTROLS CONDITIONAL ASSEMBLY
           OF CODE WHICH SENDS BROADCAST MESSAGES TO THE UM DATA CONCENTRATORS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).  ASSEMBLE USING 
           COPY:MISC.MACROS (728).
00021/002   BROADCST                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
0          OBJECT ASSEMBLED WITH &DC SETA 0.
00021/003   BROADCST                 PGM             OC  G          MTS:BROADCST(1,499)                                             
            D4.2T1   11  BROADCST.PGM.OC.003                1 LINE     25    1 PAGE UM   OGDEN               MAR. 26, 1979  02:14:46
0          A PROGRAM THAT CAN BE $RUN TO DO WHAT THE BROADCST JOB PROGRAM DOES.
00023/001   TPMOVE JOBS                              SA  O  TPMV    S0792 WSGFS FSNAME=REWJOB                                       
            D4T1     31  TPMOVE_JOBS..SA.001                1 LINE     80    6 PAGE UM   WSG                 DEC. 01, 1976  12:56:04
0          JOBS TO MOVE A TAPE (REW, WTM, BSF, BSR, FSF, FSR, ERG)
           THE WTM JOB DOESN'T USE A MODESET, SO THE DENSITY WILL BE UNPREDICTABLE ON
           DUAL-DENSITY TAPE DRIVES.
00023/002   TPMOVE JOBS                              OC  O        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00024/001   ONLINE/OFFLINE                           SA  G          MTS:ON/OFFLINE(1,999)                                           
            D4T1     32  ONLINE/OFFLINE..SA.001             1 LINE     80   17 PAGE UM   MTA                 JULY 27, 1977  21:27:39
                         MTS.:ON/OFFLINE      
0          JOB TO ONLINE OR OFFLINE A DEVICE, CONTROL UNIT, CHANNEL, OR CHANNEL-CONTROL UNIT PATH.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
            
           (1) TO ONLINE/OFFLINE ONE OR MORE DEVICES:
                ONLINE|OFFLINE DEVNAME1 DEVNAME2 ...
            
           (2) TO ONLINE/OFFLINE A CONTROL UNIT:
                ONLINE|OFFLINE CU|ALL DEVNAME1|CU#1 DEVNAME2|CU#2 ...
1                                                                                               THU SEP 12/96   23:39:34   Page    7
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0              WHERE THE DEVNAMES MUST BE NAMES OF DEVICES THAT ARE ATTACHED TO ONLY ONE CONTROL UNIT,
               AND THE CU#S ARE CONTROL UNIT NUMBERS AS ASSIGNED IN TABLES.
            
           (3) TO ONLINE/OFFLINE A CONNECTION BETWEEN A CHANNEL AND A CONTROL UNIT:
                ONLINE|OFFLINE CHAN|CH|CHANNEL CHANAD DEVNAME1|CU#1 DEVNAME2|CU#2 ...
               WHERE CHANAD IS EITHER A CHANNEL NUMBER IN HEX (E.G. 0, 1, 2, ETC.) OR A CHANNEL ADDRESS
               IN HEX (E.G. 080, 1D0, ETC.).  THE DEVNAMES MUST BE DEVICES ATTACHED TO THE SPECIFIED
               CHANNEL IN ONLY ONE WAY.
            
           (4) TO ONLINE/OFFLINE A CHANNEL:
                ONLINE|OFFLINE CHAN|CH|CHANNEL CHANAD
               WHERE CHANAD IS THE SAME AS IN (3) ABOVE.  ONLY ONE CHANAD MAY BE GIVEN.
00024/002   ONLINE/OFFLINE                           OC  O        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00025/001   QN/PN/TN JOBS                            SA  G          S0720 'D3T1' FSNAME=QN/PN/TN_JOBS..SA.1(1)                    24
            D4T1     33  QN/PN/TN_JOBS..SA.001              1 SEQ      80    5 PAGE UM   MTA                 JULY 30, 1973  23:03.42
0          THREE ASSEMBLIES THAT LOAD THE 1403 UCS BUFFER FOR QN, PN, OR TN CHARACTER SETS.
           THE QN JOB CONTAINS A SUBROUTINE USED BY ALL THE REST OF THEM.
           FOR EXAMPLE, ENTERING "PN PTR1 ECHO" ON THE OPERATOR'S CONSOLE WILL LOAD THE UCS BUFFER FOR PTR1 WITH THE PN
           CHARACTER SET AND ECHO THE CHARACTERS TO THE PRINTER FOR VERIFICATION.
           UNCHANGED SINCE DIST 2.0.
00025/002   QN/PN/TN JOBS                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00026       CPCC JOB                                 SA           # (OBSOLETE)                                                      
            D3T1     25  CPCC_JOB..SA.1                     1 SEQ      80    7 PAGE UM                       JULY 30, 1973  23:04.05
00031       GTZ                                                   # (OBSOLETE)                                                      
            D2.1    036                                                             UM                                              
00038/001   TSFO                                     SA  G  TSF     W032:TSFOSOU4.0                                                 
            D4T1     34  TSFO.RPI_MASTER.SA.001             1 LINE     80  235 PAGE UM   EMERY               JULY 27, 1977  21:27:53
0          SOURCE FOR TSFO (TWENTY-SEVEN-FORTY-ONE), THE MTS DEVICE SUPPORT ROUTINES FOR THE IBM
           2703 (DEVICE TYPES TTY AND 2741) OR THE MEMOREX 1270 WITH AUTO-SPEED (DEVICE TYPE MRXA).
00038/002   TSFO                     *2741RTN        OC  G          *2741RTN                                                        
            D4T1     35  TSFO.*2741RTN.OC.002               1 LINE     80   17 PAGE UM   EMERY               JULY 27, 1977  21:28:20
                         *2741RTN             
0          THIS IS THE TSFO OBJECT FILE WHICH IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL.
           THE "COM" CARD AT THE BEGINNING TELLS PISTLE TO DEFINE THE FOLLOWING SYMBOLS IN LCSYMBOL:
              TSFO       ENTRY POINT FOR DEVICE TYPE 2741
              TEL2       ENTRY POINT FOR DEVICE TYPE TTY
              MRXA       ENTRY POINT FOR DEVICE TYPE MRXA
1                                                                                               THU SEP 12/96   23:39:34   Page    8
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00038/003   TSFO                     *TTYRTN         OC  G          *TTYRTN                                                         
            D4T1     36  TSFO.*TTYRTN.OC.003                1 LINE     30    1 PAGE UM   EMERY               JULY 27, 1977  21:28:22
                         *TTYRTN              
0          THIS FILE CONSISTS OF:       $CONTINUE WITH *2741RTN RETURN
                                         LDT            TEL2
            
           IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL TEL2 IS UNDEFINED IN LCSYMBOL.
           NORMALLY TEL2 IS DEFINED BY PISTLE AT IPL.
00038/004   TSFO                     *MRXARTN        OC  G          *MRXARTN                                                        
            D4T1     37  TSFO.*MRXARTN.OC.004               1 LINE     30    1 PAGE UM   EMERY               JULY 27, 1977  21:28:24
                         *MRXARTN             
0          THIS FILE CONSISTS OF:       $CONTINUE WITH *2741RTN RETURN
                                         LDT            MRXA
            
           IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL MRXA IS UNDEFINED IN LCSYMBOL.
           NORMALLY MRXA IS DEFINED BY PISTLE AT IPL.
00038/005   TSFO                     TRTBLGEN        SA     TGEN    W032:TRTBLGEN(1,500)                                            
            D4T1     38  TSFO.TRTBLGEN.SA.005               1 LINE     80   11 PAGE UM   EMERY               JULY 27, 1977  21:28:26
0          PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE ALL NON-ASCII
           TABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY
           ARBITRARY TRANSLATE TABLES.  LOGICAL I/O UNITS USED ARE:
             1         DEFINITION OF NAMES OF CHARACTERS (038/9).
             2         DEFINITION OF CHARACTER SET ON THE GOLFBALL.  038/10 AND 038/11 ARE EXAMPLES.
             3         DEFINITION OF THE CODE SET BEING USED (EITHER 038/7 OR 038/8).
             SPRINT    PRINTED OUTPUT  AND ERROR COMMENTS.
             SPUNCH    NEW TRANSLATE TABLES.
            
           THE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK.
            
00038/006   TSFO                     TRTBLGEN        OC             W032:TRTBLGEN(2000)                                             
            D4T1     39  TSFO.TRTBLGEN.OC.006               1 LINE     80    3 PAGE UM   EMERY               JULY 27, 1977  21:28:28
00038/007   TSFO                     KBD2741PTTC     D              W032:KBD2741PTTC                                                
            D4T1     40  TSFO.KBD2741PTTC.D.007             1 LINE     41    1 PAGE UM   EMERY               JULY 27, 1977  21:28:30
0          SEE 038/5.  THIS IS THE 2741 PTTC KEYBOARD DEFINITION.
00038/008   TSFO                     KBD2741CORR     D              W032:KBD2741CORR                                                
            D4T1     41  TSFO.KBD2741CORR.D.008             1 LINE     41    1 PAGE UM   EMERY               JULY 27, 1977  21:28:33
0          SEE 038/5.  THIS IS THE 2741 CORRESPONDENCE KEYBOARD DEFINITION.
00038/009   TSFO                     EBCDDEFN        D              W032:EBCDDEFN                                                   
            D4T1     42  TSFO.EBCDDEFN.D.009                1 LINE     32    3 PAGE UM   EMERY               JULY 27, 1977  21:28:35
0          SEE 038/5. THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT.
0          Referenced by comments of: 38/5, 575/3 
1                                                                                               THU SEP 12/96   23:39:34   Page    9
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00038/010   TSFO                     GOLFPTTC        D              W032:GOLFPTTC                                                   
            D4T1     43  TSFO.GOLFPTTC.D.010                1 LINE     72    3 PAGE UM   EMERY               JULY 27, 1977  21:28:37
0          SEE 038/5.  THIS FILE CONTAINS DEFINITIONS OF PTTC GOLF BALLS.
           THE DEFINITONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER.
           CONTAINS "$CONTINUE WITH W032:GOLFPTTC" LINES.
0          Referenced by comments of: 575/3 
00038/011   TSFO                     GOLFCORR        D              W032:GOLFCORR                                                   
            D4T1     44  TSFO.GOLFCORR.D.011                1 LINE     72    8 PAGE UM   EMERY               JULY 27, 1977  21:28:39
0          SEE 038/5.  THIS FILE CONTAINS DEFINITIONS OF CORRESPONDENCE GOLF BALLS.
           THE DEFINITIONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER.
           CONTAINS "$CONTINUE WITH W032:GOLFCORR" LINES.
0          Referenced by comments of: 575/3 
00038/012   TSFO                     MEMO 338        WF           # OBSOLETE (SEE 575/7)                                          45
            D4T1     45  TSFO.MEMO_338.WF.012               1 LINE    117    6 PAGE UM   EMERY               JAN. 24, 1977  21:27:23
00038/013   TSFO                     MEMO 353        WF           # OBSOLETE (SEE COMP. 733)                                      46
            D4T1     46  TSFO.MEMO_353.WF.013               1 LINE     77    1 PAGE UM   EMERY               MAR. 04, 1977  16:54:45
00038/014   TSFO                     MEMO 366        WF             W098:M366                                                       
            D4T3    767  TSFO.MEMO_366.WF.014               1 LINE    110    3 PAGE UM   EMERY               SEP. 19, 1977  16:30:27
0          THIS IS COMPUTING CENTER MEMO 366 -- "ADDITIONS TO MEMOREX 1270 DEVICE SUPPORT
           ROUTINE"
00039/001   CASECONV                                 SA     CASE    S0720 'D3T1' FSNAME=CASECONV..SA.1(1)                         37
            D4T1     47  CASECONV..SA.001                   1 LINE     80    1 PAGE UM   EMERY               JULY 30, 1973  23:04.54
0          TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE.
           ALL OTHER CHARACTERS ARE UNCHANGED.
00039/002   CASECONV                                 OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   EMERY                                      
00040/001   KEYWRD SCANNER                           SA  G          W170:KWIC(MIN,-1)                                               
            D4.2T1   12  KEYWRD_SUBR_-_KWIC..SA.001         1 LINE     80   72 PAGE UM   HELFFRICH           MAR. 26, 1979  02:14:48
                         W170:KWIC            
0          D4.2 BASE SOURCE FOR KEYWORD SCANNER.
0          Referenced by comments of: 40/4 
00040/002C  KEYWRD SCANNER           UPDATE          UC  G          W170:KWIC(10000)                                                
            RD16T1    2  KEYWRD_SCANNER.UPDATE.UC.002       1 LINE     69    1 PAGE UM   HELFFRICH           JULY 12, 1979  22:22:10
0          UPDATE DECK TO YIELD CURRENT KEYWORD SCANNER SOURCE CODE.
1                                                                                               THU SEP 12/96   23:39:34   Page   10
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00040/003B  KEYWRD SCANNER           OBJECT          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00040/004B  KEYWRD SCANNER           SPELLING CORR   SA  G          W170:KWIC.SPELL(1000)                                           
            RD16T1    3  KEYWRD_SCANNER.SPELLING_C.SA.004   1 LINE     70    3 PAGE UM   HELFFRICH           JULY 12, 1979  22:22:54
                         W170:KWIC.SPELL      
0          SPELLING CORRECTION SUBROUTINE USED BY MTS AND THE KEYWORD SCANNER (40/1).
           ALSO USER-CALLABLE.
00040/005B  KEYWRD SCANNER           SPELLING CORR   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00041       GETSPACE/FREESPAC                        SA           # (OBSOLETED BY 732)                                              
            D4T1     51  GETSPACE/FREESPAC.D4_MAST.SA.001   1 SEQ      80   28 PAGE UM                       JULY 27, 1977  21:31:43
00042/001   MTS                      D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=MTS                         
            D4T1     55  MTS.D4_MASTER.SA.001               1 SEQ      80  137 PAGE UM   MTS       HELFFRICH SEP. 15, 1977  18:11:07
0          MASTER SOURCE FOR DIST 4.0 MTS.  COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALDEFS
           (1026/1), COPY:GLOBALSETS (1026/2), COPY:RATEVEC (651/2), AND COPY:JOBSTA (413/9).
           ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:RMGRMACLIB (1054/1), AND *SYSMAC.
0          Referenced by comments of: 344/1 
00042/002B  MTS                      UPDATE          UC  G          MTS:MTSUPD                                                      
            RD16T1    4  MTS.UPDATE.UC.002                  1 LINE     76   27 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:22:55
                         MTS.:MTSUPD          
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=MTS.
00042/003B  MTS                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00042/004B  MTS                      ASM JOB         C              MTS:MTSASM                                                      
            RD16T1    5  MTS.ASM_JOB.C.004                  1 LINE    122    5 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:23:08
                         MTS.:MTSASM          
0          USING THE D4.2 SOURCE AS BASE:
            
           AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES
           AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES OF MTS
            
           USING THE D4.0 SOURCE AS BASE:
            
           AT LINE 2000, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES
           AT LINE 3000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES OF MTS
0          Referenced by comments of: 722/1 
1                                                                                               THU SEP 12/96   23:39:34   Page   11
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00042/005B  MTS                                      L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=MTS.LIST              1   
            RD16T1    6  MTS..L.005                         1 SEQ     133  527 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:24:14
00042/006   MTS                      FILETYPE WORDS  WF             S0938 FSAVE2 VLO FSNAME=ADDNEWFILE(1)                           
            D4T1     60  MTS.FILETYPE_WORDS.WF.008          1 LINE    134    3 PAGE UM   MTA                 MAY  28, 1975  22:49:52
0          WRITEUP DESCRIBING HOW TO ADD A NEW TYPE OF FILE TO MTS.
00042/007   MTS                      TSATBL WORDS    WF             S0563 D4T1 VLO FSNAME=MTS.TSATBL_WORDS.WF.009(1)              61
            D4T1     61  MTS.TSATBL_WORDS.WF.009            1 LINE    113    1 PAGE UM   MTA                 SEP. 15, 1977  18:14:15
0          WRITEUP DESCRIBING HOW TO USE THE TSATBL MACRO (IN COPY:MTS.MACROS).
00043       LCSYMBOL                                 SA           # (PART OF COMP 4000)                                             
                                                                                    UM                                              
0          Referenced by comments of: 4000/1 
00044/001   PDP                                      SA  G          MTA:PDP.S                                                       
            D4.2T1   13  PDP..SA.001                        1 LINE     72   35 PAGE UM   MTA                 MAR. 26, 1979  02:15:06
                         MTA.:PDP.S           
0          THE PAGING DRUM PROCESSOR.  ASSEMBLY PARAMETERS ALLOW VERSION TO
           BE ASSEMBLED FOR EITHER 2305 FIXED HEAD FILE AND 3330 MIGRATION
           DISK, OR 2301 DRUM AND 3330 MIGRATION DISK.  DISTRIBUTED OBJECT
           IS FOR 2305/3330 COMBINATION NORMALLY USED ON 370/470 SYSTEMS.
           COPIES COPY:PCBDSECT (470), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3).
0          Referenced by comments of: 540/3 
00044/002   PDP                      2305/3330 OBJ   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
0          VERSION ASSEMBLED FOR USE WITH AN IBM 2305 MOD 1 OR MOD 2 FHF AND IBM 3330 
           (OR EQUIVALENT) PAGING DISK.
00045/001   SUPERVISOR               D4 MASTER       SA  G          S0563 D4T1 VLO FSNAME=SUPERVISOR.D4_MASTER.SA.004(1)          66
            D4T1     66  SUPERVISOR.D4_MASTER.SA.004        1 SEQ      80  318 PAGE UM   MTA                 AUG. 20, 1977  22:31:37
0          MASTER SOURCE FOR D4.0 SUPERVISOR.  COPIES COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT
           (470), COPY:CPSCNPAR (609/2), AND COPY:CMDAREADSECT (531/18).
0          Referenced by comments of: 45/2, 540/3, 611/1 
00045/002B  SUPERVISOR               UPDATE          UC  G          MTA:UMMPS.U                                                     
            RD16T1    7  SUPERVISOR.UPDATE.UC.002           1 LINE     76   30 PAGE UM   MTA                 JULY 12, 1979  22:24:21
                         MTA:UMMPS.U          
0          UPDATE TO D4.0 UMMPS (045/1) TO PRODUCE CURRENT UMMPS.
1                                                                                               THU SEP 12/96   23:39:34   Page   12
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00045/003B  SUPERVISOR                               OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00045/004   SUPERVISOR                               L              S0707 UMMPSL POSN=UMMPS.LISTING.370                             
            D4.2T2  507  SUPERVISOR..L.004                  1 SEQ     133  677 PAGE UM   MTA                 APR. 09, 1979  00:02:33
00045/005   SUPERVISOR               SVC WRITEUP     WT             S0683 OGDEN FSNAME=SVCDESCR                                     
            D4.2T2  517  SUPERVISOR.SVC_WRITEUP.WT.005      1 LINE     92   36 PAGE UM   OGDEN               APR. 04, 1979  00:12:01
0          TEXT/360 INPUT FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS.
00045/006   SUPERVISOR               SVC WRITEUP     PT             MTS:SVC.W                                                       
            D4.2T2  508  SUPERVISOR.SVC_WRITEUP.PT.006      1 LINE    105   86 PAGE UM   OGDEN               APR. 09, 1979  00:05:56
                         MTS.:SVC.W           
0          COPY THIS TO A TN PRINTER @CC (NOT @MCC).
00045/007   SUPERVISOR               TEST SVC STIO   SA  G          MTA:TESTSTIO(1,999)                                             
            D4T1     71  SUPERVISOR.TEST_SVC_STIO.SA.011    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  21:46:19
                         MTA.:TESTSTIO        
0          TEST PROGRAM FOR SVC STIO TO BE USED IN THE VIRTUAL MACHINE.
00045/008   SUPERVISOR               TEST SVC STIO   OC  G          MTA:TESTSTIO(1000)                                              
            D4T1     72  SUPERVISOR.TEST_SVC_STIO.OC.012    1 LINE     80    2 PAGE UM   MTA                 JULY 27, 1977  21:46:19
00045/009   SUPERVISOR               TEST PROT SVC   SA  O          MTA:TESTPROTSVC(1,999)                                          
            D4T1     73  SUPERVISOR.TEST_PROT_SVC.SA.013    1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  21:46:22
                         MTA.:TESTPROTSVC     
0          PROGRAM TO TEST THE SVCS RELATED TO PROTECTION.  INTENDED TO BE USED WHILE
           RUNNING MTS IN THE VIRTUAL MACHINE.  HALTS IF AN ERROR OCCURS.
00045/010   SUPERVISOR               TEST PROT SVC   OC  O          MTA:TESTPROTSVC(1000)                                           
            D4T1     74  SUPERVISOR.TEST_PROT_SVC.OC.014    1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:46:25
00045/011   SUPERVISOR               TEST SETSTK     SA  G          MTA:TESTSETSTK(1,999)                                           
            D4.1T1   21  SUPERVISOR.TEST_SETSTK.SA.013      1 LINE     59    1 PAGE UM   MTA                 MAY  13, 1978  17:01:22
                         MTA:TESTSETSTK       
0          PROGRAM TO TEST THE CHANGES TO THE SETSTK SVC.
00045/012   SUPERVISOR               TEST SETSTK     OC  G          MTA:TESTSETSTK(1000)                                            
            D4.1T1   22  SUPERVISOR.TEST_SETSTK.OC.014      1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  17:01:23
00045/013   SUPERVISOR               DOCUMENTATION   WF             MTA:UMMPS.INFO                                                  
            D4.2T1   14  SUPERVISOR.DOCUMENTATION.WF.013    1 LINE     94    6 PAGE UM   MTA                 MAR. 26, 1979  02:15:12
                         MTA:UMMPS.INFO       
0          SUMMARY OF SECTIONS OF UMMPS AND WHAT THEY DO.  PREPARED FOR A LECTURE TO A
           GRADUATE PROGRAMMING CLASS.
1                                                                                               THU SEP 12/96   23:39:34   Page   13
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00046/001   CONFIG                   D4 MASTER       SA  G          S0699 D3TAPE POSN=CONFIG.370                                    
            D4T1     78  CONFIG.D4_MASTER.SA.004            1 SEQ      80   36 PAGE UM   MTA                 SEP. 15, 1977  18:17:27
0          D4.0 MASTER SOURCE FOR CONFIGURATION PROGRAM.  COPIES COPY:GLOBALS (1026/3),
           COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CMDAREADSECT
           (531/18), AND *CNFGINFODSECT (654).  ASSEMBLE USING COPY:MISC.MACROS (728),
           COPY:SETPARM (653), AND MTA:MCHMAC (577/6).
00046/002B  CONFIG                   UPDATE          UC  G          MTA:CONFIG.U                                                    
            RD16T1    8  CONFIG.UPDATE.UC.002               1 LINE     76   12 PAGE UM   MTA                 JULY 12, 1979  22:24:49
                         MTA.:CONFIG.U        
0          UDATE TO 046/1 TO PRODUCE CURRENT CONFIG.
00046/003B  CONFIG                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00046/004   CONFIG                                   L              S0707 UMMPSL POSN=CNFG.LISTING.370                              
            D4.2T1   16  CONFIG..L.004                      1 SEQ     133  146 PAGE UM   MTA                 APR. 13, 1979  01:01:23
00047      *CATALOG                                  SA  G        # (OBSOLETED BY $FILESTATUS, COMP 529)                            
            D3T1     56  CATALOG..SA.1                      1 LINE     80    8 PAGE UM                       JULY 30, 1973  23:26.21
00049/001   SDUMP SUBR                               SA             MTS:SDUMP(1000)                                                 
            D4.2T1   17  SDUMP_SUBR..SA.001                 1 LINE     80   18 PAGE UM   MTS       HELFFRICH MAR. 26, 1979  02:16:17
                         MTS.:SDUMP           
0          MTS SUBROUTINE TO PRODUCE DUMPS.  ALSO USED BY $DISPLAY COMMAND.
           COPIES *CNFGINFODSECT (654).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 463/1 
00049/002   SDUMP SUBR                               OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00050/001   STATISTICS SAVE          *STA            C              *STA                                                            
            D4.2T1   18  STATISTICS_SAVE.*STA.C.001         1 LINE     45    1 PAGE UM   SALISBURY           MAR. 26, 1979  02:16:26
                         *STA                 
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO RUN THE STATISTICS SAVE PROGRAM.  INVOKED BY ENTERING "MTS *STA"
           ON THE OPERATOR'S CONSOLE.  THE SAVE PROGRAM DUMPS THE MTS JOB STATISTICS FILE (*STATISTICS) TO TAPE.  MTS
           WARNS THE OPERATOR WHEN *STATISTICS HAS REACHED 7500 RECORDS BY PRINTING "*** *STATISTICS IS FULL ***"
           ON THE CONSOLE.  WHEN THIS HAPPENS, THE OPERATOR SHOULD IMMEDIATELY ENTER "MTS *STA" TO BEGIN THE SAVE
           PROGRAM BEFORE THE FILE IS REALLY FULL (JOBS WILL BEGIN TO "SNARK" IF THIS HAPPENS).
0          Referenced by comments of: 256/2 
00050/002   STATISTICS SAVE          *STI            C              *STI                                                            
            D4.2T1   19  STATISTICS_SAVE.*STI.C.002         1 LINE     43    1 PAGE UM   SALISBURY           MAR. 26, 1979  02:16:27
                         *STI                 
0          COMMAND FILE WHICH IS RUN AUTOMATICALLY AT SYSTEM INITIALIZATION BY INIT:INITCMD 
           (97/2).  THIS CAUSES THE STATISTICS SAVE PROGRAM (50/3) TO CHECK FOR A SYSTEM 
           CRASH DURING THE LAST STATISTICS SAVE.  IF THERE WAS A CRASH, THE DIRECTORY 
1                                                                                               THU SEP 12/96   23:39:34   Page   14
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          (50/6) IS REPAIRED AND *STATISTICS (50/5) IS RESAVED.
0          Referenced by comments of: 97/2 
00050/003   STATISTICS SAVE          SAVE PGM        SG  G          W044:NEWSTA.S                                                   
            D4.2T1   20  STATISTICS_SAVE.SAVE_PGM.SG.003    1 LINE    114    8 PAGE UM   SALISBURY           MAR. 26, 1979  02:16:28
0          PROGRAM TO SAVE *STATISTICS (50/5) ON TAPE.  THE USE OF THIS PROGRAM IS 
           DESCRIBED IN THE MTS OPERATORS MANUAL (592).  IN GENERAL, THIS PROGRAM
           SAVES *STATISTICS ON BOTH A MONTHLY AND A DAILY TAPE AND ENTERS THE
           SIGNON/SIGNOFF TIME RANGES INTO THE FILE SYS:DIRECTORY (50/6).
0          Referenced by comments of: 50/2, 50/6 
00050/004   STATISTICS SAVE          SAVE PGM        OC  G          SYS:NEWSTA                                                      
            D4.2T1   21  STATISTICS_SAVE.SAVE_PGM.OC.004    1 LINE     80   10 PAGE UM   SALISBURY           MAR. 26, 1979  02:16:31
                         SYS.:NEWSTA          
0          MUST BE LOADED WITH TAPE DIRECTORY LIBRARY SYS:DIRLIB (742/5), E. G.,
            
                            $RUN SYS:NEWSTA+SYS:DIRLIB
00050/005   STATISTICS SAVE          *STATISTICS     D            # MTS:TST.STAT                                                    
                                                                                    UM   SALISBURY                                  
                         *STATISTICS          
0          DATA FILE USED TO ACCUMULATE MTS SIGNOFF STATISTICS TO BE USED FOR BILLING
           AND JOB STATISTICS.  MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (PKEY=*SYS.STAT, PKEY=SYS.:STA, MTS.&PKEY=*SYS.STAT, ACC.&PKEY=ACC.:ACCMAINT),
           R (PKEY=INIT:INITCHK, ACC.)
0          Referenced by comments of: 50/2, 50/3, 97/2 
00050/006   STATISTICS SAVE          DIRECTORY       D            # MTS:TST.DIR                                                     
                                                                                    UM   SALISBURY                                  
                         SYS.:DIRECTORY       
0          DIRECTORY OF STATISTICS FILES (*STATISTICS) THAT HAVE BEEN SAVED ON DAILY
           AND MONTHLY STATISTICS TAPES BY SYS:NEWSTA (50/3).  THIS DIRECTORY MAY BE 
           INTERROGATED BY THE TAPE DIRECTORY PROGRAM (742/1).
0          Referenced by comments of: 50/2, 50/3, 617/1 
00051/001  *WATFOR                   ARITH           S            # (OBSOLETE)                                                      
            D2T2    011                                                             UM                                              
00051/002  *WATFOR                   DODO            S            # (OBSOLETE)                                                      
            D2T2    012                                                             UM                                              
00051/003  *WATFOR                   DUMMY           S            # (OBSOLETE)                                                      
            D2T2    013                                                             UM                                              
1                                                                                               THU SEP 12/96   23:39:34   Page   15
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00051/004  *WATFOR                   DUMMYFUN        S            # (OBSOLETE)                                                      
            D2T2    014                                                             UM                                              
00051/005  *WATFOR                   FIOCS           S            # (OBSOLETE)                                                      
            D2T2    015                                                             UM                                              
00051/006  *WATFOR                   FIOSTAB         S            # (OBSOLETE)                                                      
            D2T2    016                                                             UM                                              
00051/007  *WATFOR                   FORMAT          S            # (OBSOLETE)                                                      
            D2T2    017                                                             UM                                              
00051/008  *WATFOR                   FORMCONV        S            # (OBSOLETE)                                                      
            D2T2    018                                                             UM                                              
00051/009  *WATFOR                   FRIOSCAN        S            # (OBSOLETE)                                                      
            D2T2    019                                                             UM                                              
00051/010  *WATFOR                   FUNCTION        S            # (OBSOLETE)                                                      
            D2T2    020                                                             UM                                              
00051/011  *WATFOR                   INOUT           S            # (OBSOLETE)                                                      
            D2T2    021                                                             UM                                              
00051/012  *WATFOR                   LINKR           S            # (OBSOLETE)                                                      
            D2T2    022                                                             UM                                              
00051/013  *WATFOR                   MAIN            S            # (OBSOLETE)                                                      
            D2T2    023                                                             UM                                              
00051/014  *WATFOR                   MESSAGE         S            # (OBSOLETE)                                                      
            D2T2    024                                                             UM                                              
00051/015  *WATFOR                   RELOC           S            # (OBSOLETE)                                                      
            D2T2    025                                                             UM                                              
00051/016  *WATFOR                   SCAN            S            # (OBSOLETE)                                                      
            D2T2    026                                                             UM                                              
00051/017  *WATFOR                   SPECS           S            # (OBSOLETE)                                                      
            D2T2    027                                                             UM                                              
00051/018  *WATFOR                   OPTIONS         S            # (OBSOLETE)                                                      
            D2T2    028                                                             UM                                              
00051/019  *WATFOR                   CDEFN           S            # (OBSOLETE)                                                      
            D2T2    029                                                             UM                                              
00051/020  *WATFOR                   COMMR           S            # (OBSOLETE)                                                      
            D2T2    030                                                             UM                                              
1                                                                                               THU SEP 12/96   23:39:34   Page   16
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00051/021  *WATFOR                   STARTA          S            # (OBSOLETE)                                                      
            D2T2    031                                                             UM                                              
00051/022  *WATFOR                   WATMAC          S            # (OBSOLETE)                                                      
            D2T2    032                                                             UM                                              
00051/023  *WATFOR                   UAT             O            # (OBSOLETE)                                                      
            D2T2    033                                                             UM                                              
00051/024  *WATFOR                   UPDATE          U            # (OBSOLETE)                                                      
            D2.2    091                                                             UM                                              
00051/025  *WATFOR                   DIAGS           S            # (OBSOLETE)                                                      
            D2T2    035                                                             UM                                              
00051/026  *WATFOR                   DIAGS           O            # (OBSOLETE)                                                      
            D2T2    036                                                             UM                                              
00052/001  *COINFLIP                                 SA     CNFL    S0720 'D3T1' FSNAME=COINFLIP..SA.1(1)                         62
            D4T1     85  COINFLIP..SA.001                   1 SEQ      80    3 PAGE UM   STERKEN             JULY 30, 1973  23:27.01
0          DEMONSTRATION PROGRAM.
00052/002  *COINFLIP                                 OE             *COINFLIP                                                       
            D4T1     86  COINFLIP..OE.002                   1 LINE    255    1 PAGE UM   STERKEN             JULY 27, 1977  21:50:14
                         *COINFLIP            
00053/001   DISKDUMP                                 SA  G  DSKD    FILE:DISKDUMP.S                                                 
            D4T1     87  DISKDUMP..SA.001                   1 LINE     80   12 PAGE UM   HELFFRICH           JULY 27, 1977  21:50:16
                         FILE:DISKDUMP.S      
0          PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS.  DOESN'T CALL MTS FILE ROUTINES.
00053/002   DISKDUMP                                 OC  G          FILE:DISKDUMP                                                   
            D4T1     88  DISKDUMP..OC.002                   1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  21:50:18
                         FILE:DISKDUMP        
00054/001  *TPS                                      S            # (OBSOLETE)                                                      
            D2T1    145                                                             UM                                              
00054/002  *TPS                      LL PTR UC       S            # (OBSOLETE)                                                      
            D2T1    146                                                             UM                                              
00055/001  *BCDEBCD                                  SA  G  BCDE    S0720 'D3T1' FSNAME=BCDEBCD..SA.1(1)                          66
            D4T1     89  BCDEBCD..SA.001                    1 SEQ      80    2 PAGE UM   ENGLE               JULY 30, 1973  23:27.43
0          TRANSLATE SCIENTIFIC 026 CODE TO EBCD.
00055/002  *BCDEBCD                                  OC  G          *BCDEBCD                                                        
            D4T1     90  BCDEBCD..OC.002                    1 LINE     80    1 PAGE UM   ENGLE               JULY 27, 1977  21:50:22
                         *BCDEBCD             
1                                                                                               THU SEP 12/96   23:39:34   Page   17
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00056      *2250RTN                                  SA           # (OBSOLETE)                                                      
            D4T1     91  2250RTN..SA.                       1 SEQ      80   26 PAGE UM                       JULY 30, 1973  23:28.54
00057/001  *TABEDIT                                  SA  O  TBED    W045:TABEDIT                                                    
            D4T1     92  TABEDIT..SA.001                    1 LINE     80    5 PAGE UM   PIRKOLA             JULY 27, 1977  21:50:27
0          PROGRAM TO REFORMAT RECORDS USING A SPECIFIED TAB CHARACTER AND TAB STOPS.
           COPIES *GDINFODSECT (594).  ASSEMBLE USING *SYSMAC.
00057/002  *TABEDIT                                  OC  O          *TABEDIT                                                        
            D4T1     93  TABEDIT..OC.002                    1 LINE     80    2 PAGE UM   PIRKOLA             JULY 27, 1977  21:50:29
                         *TABEDIT             
00058      *T7D                                      S            # (OBSOLETE)                                                      
            D2T1    142                                                             UM                                              
00059      *TCP                                      S            # (OBSOLETE)                                                      
            D2T1    141                                                             UM                                              
00060       JBRP <MTS>                               S            # (OBSOLETE)                                                      
            D2T1    144                                                             UM                                              
00061      *T9D                                      S            # (OBSOLETE)                                                      
            D2T1    143                                                             UM                                              
00063      *PTSKRTN                                  SA           # (OBSOLETE)                                                      
            D4T1     94  PTSKRTN..SA.                       1 SEQ      80   14 PAGE UM                       JULY 30, 1973  23:30.18
00064/001  *OBJSCAN                                  SA  G  SCAN    W062:OBJSCAN.S                                                  
            D4.2T1   22  OBJSCAN..SA.001                    1 LINE     80   22 PAGE UM   TIFFANY             MAR. 26, 1979  02:16:32
0          SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER
           RANGES FOR EACH MODULE ENCOUNTERED.  COPIES *GDINFODSECT (594).
00064/002  *OBJSCAN                                  OE  G          *OBJSCAN                                                        
            D4.2T1   23  OBJSCAN..OE.002                    1 SEQ    4804    2 PAGE UM   TIFFANY             MAR. 26, 1979  02:16:34
                         *OBJSCAN             
00065      *ASMERR                                   S            # (OBSOLETE)                                                      
            D2T1    323                                                             UM                                              
00066/001  *ASMG                     ASMGASM         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGASM                        1  
            D4T1     97  ASMG.ASMGASM.SA.001                1 SEQ      80   20 PAGE UM   MTA                 JULY 27, 1977  21:50:54
0          COMPONENTS 066/1 THROUGH 066/67 ARE THE MASTER OS/360 SOURCE FOR THE G LEVEL
           ASSEMBLER (ASMG) VERSION 2, LEVEL 7 FROM THE UNIVERSITY OF WATERLOO.  THE
           UPDATE DECK (066/71) WILL PRODUCE AN ASMG WHICH RUNS IN MTS.  COMPONENT 066/72
           CONTAINS COMMANDS TO UPDATE AND ASSEMBLE ASMG.
0          Referenced by comments of: 705/12 
1                                                                                               THU SEP 12/96   23:39:34   Page   18
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/002  *ASMG                     ASMGBUFF        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGBUFF                       2  
            D4T1     98  ASMG.ASMGBUFF.SA.002               1 SEQ      80   51 PAGE UM   MTA                 JULY 27, 1977  21:50:58
00066/003  *ASMG                     ASMGFD          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFD                         3  
            D4T1     99  ASMG.ASMGFD.SA.003                 1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  21:51:00
00066/004  *ASMG                     ASMGFEX         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFEX                        4  
            D4T1    100  ASMG.ASMGFEX.SA.004                1 SEQ      80   19 PAGE UM   MTA                 JULY 27, 1977  21:51:02
00066/005  *ASMG                     ASMGFI          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFI                         5  
            D4T1    101  ASMG.ASMGFI.SA.005                 1 SEQ      80   13 PAGE UM   MTA                 JULY 27, 1977  21:51:04
00066/006  *ASMG                     ASMGFPP         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFPP                        6  
            D4T1    102  ASMG.ASMGFPP.SA.006                1 SEQ      80   33 PAGE UM   MTA                 JULY 27, 1977  21:51:07
00066/007  *ASMG                     ASMGF1          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF1                         7  
            D4T1    103  ASMG.ASMGF1.SA.007                 1 SEQ      80   46 PAGE UM   MTA                 JULY 27, 1977  21:51:10
00066/008  *ASMG                     ASMGF2          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2                         8  
            D4T1    104  ASMG.ASMGF2.SA.008                 1 SEQ      80   89 PAGE UM   MTA                 JULY 27, 1977  21:51:15
00066/009  *ASMG                     ASMGF2A         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2A                        9  
            D4T1    105  ASMG.ASMGF2A.SA.009                1 SEQ      80   60 PAGE UM   MTA                 JULY 27, 1977  21:51:19
00066/010  *ASMG                     ASMGF3          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF3                         10 
            D4T1    106  ASMG.ASMGF3.SA.010                 1 SEQ      80   62 PAGE UM   MTA                 JULY 27, 1977  21:51:23
00066/011  *ASMG                     ASMGF7C         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7C                        11 
            D4T1    107  ASMG.ASMGF7C.SA.011                1 SEQ      80   26 PAGE UM   MTA                 JULY 27, 1977  21:51:25
00066/012  *ASMG                     ASMGF7D         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7D                        12 
            D4T1    108  ASMG.ASMGF7D.SA.012                1 SEQ      80   25 PAGE UM   MTA                 JULY 27, 1977  21:51:27
00066/013  *ASMG                     ASMGF7E         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7E                        13 
            D4T1    109  ASMG.ASMGF7E.SA.013                1 SEQ      80   26 PAGE UM   MTA                 JULY 27, 1977  21:51:29
00066/014  *ASMG                     ASMGF7G         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7G                        14 
            D4T1    110  ASMG.ASMGF7G.SA.014                1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:51:30
00066/015  *ASMG                     ASMGF7I         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7I                        15 
            D4T1    111  ASMG.ASMGF7I.SA.015                1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  21:51:33
00066/016  *ASMG                     ASMGF7L         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7L                        16 
            D4T1    112  ASMG.ASMGF7L.SA.016                1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:51:35
00066/017  *ASMG                     ASMGF7N         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7N                        17 
            D4T1    113  ASMG.ASMGF7N.SA.017                1 SEQ      80   13 PAGE UM   MTA                 JULY 27, 1977  21:51:37
00066/018  *ASMG                     ASMGF7S         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7S                        18 
            D4T1    114  ASMG.ASMGF7S.SA.018                1 SEQ      80    8 PAGE UM   MTA                 JULY 27, 1977  21:51:39
1                                                                                               THU SEP 12/96   23:39:34   Page   19
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/019  *ASMG                     ASMGF7V         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7V                        19 
            D4T1    115  ASMG.ASMGF7V.SA.019                1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  21:51:42
00066/020  *ASMG                     ASMGF7X         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7X                        20 
            D4T1    116  ASMG.ASMGF7X.SA.020                1 SEQ      80   36 PAGE UM   MTA                 JULY 27, 1977  21:51:45
00066/021  *ASMG                     ASMGF8A         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8A                        21 
            D4T1    117  ASMG.ASMGF8A.SA.021                1 SEQ      80   27 PAGE UM   MTA                 JULY 27, 1977  21:51:47
00066/022  *ASMG                     ASMGF8C         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8C                        22 
            D4T1    118  ASMG.ASMGF8C.SA.022                1 SEQ      80    6 PAGE UM   MTA                 JULY 27, 1977  21:51:48
00066/023  *ASMG                     ASMGF8D         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8D                        23 
            D4T1    119  ASMG.ASMGF8D.SA.023                1 SEQ      80   23 PAGE UM   MTA                 JULY 27, 1977  21:51:54
00066/024  *ASMG                     ASMGF8I         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8I                        24 
            D4T1    120  ASMG.ASMGF8I.SA.024                1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  21:51:57
00066/025  *ASMG                     ASMGF8L         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8L                        25 
            D4T1    121  ASMG.ASMGF8L.SA.025                1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:51:59
00066/026  *ASMG                     ASMGF8M         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8M                        26 
            D4T1    122  ASMG.ASMGF8M.SA.026                1 SEQ      80   27 PAGE UM   MTA                 JULY 27, 1977  21:52:03
00066/027  *ASMG                     ASMGF8N         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8N                        27 
            D4T1    123  ASMG.ASMGF8N.SA.027                1 SEQ      80   13 PAGE UM   MTA                 JULY 27, 1977  21:52:05
00066/028  *ASMG                     ASMGF8P         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8P                        28 
            D4T1    124  ASMG.ASMGF8P.SA.028                1 SEQ      80   22 PAGE UM   MTA                 JULY 27, 1977  21:52:09
00066/029  *ASMG                     ASMGF8S         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8S                        29 
            D4T1    125  ASMG.ASMGF8S.SA.029                1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:52:11
00066/030  *ASMG                     ASMGF8V         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8V                        30 
            D4T1    126  ASMG.ASMGF8V.SA.030                1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  21:52:14
00066/031  *ASMG                     ASMGIS00        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS00                       31 
            D4T1    127  ASMG.ASMGIS00.SA.031               1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  21:52:17
00066/032  *ASMG                     ASMGIS09        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS09                       33 
            D4T1    128  ASMG.ASMGIS09.SA.032               1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  21:52:20
00066/033  *ASMG                     ASMGIS20        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS20                       35 
            D4T1    129  ASMG.ASMGIS20.SA.033               1 SEQ      80    6 PAGE UM   MTA                 JULY 27, 1977  21:52:22
00066/034  *ASMG                     ASMGIS44        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS44                       36 
            D4T1    130  ASMG.ASMGIS44.SA.034               1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  21:52:24
00066/035  *ASMG                     ASMGIS60        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS60                       37 
            D4T1    131  ASMG.ASMGIS60.SA.035               1 SEQ      80   10 PAGE UM   MTA                 JULY 27, 1977  21:52:26
1                                                                                               THU SEP 12/96   23:39:34   Page   20
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/036  *ASMG                     ASMGIS67        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS67                       38 
            D4T1    132  ASMG.ASMGIS67.SA.036               1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  21:52:28
00066/037  *ASMG                     ASMGIS70        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS70                       39 
            D4T1    133  ASMG.ASMGIS70.SA.037               1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  21:52:30
00066/038  *ASMG                     ASMGIS71        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS71                       40 
            D4T1    134  ASMG.ASMGIS71.SA.038               1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  21:52:33
00066/039  *ASMG                     ASMGRTA         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGRTA                        41 
            D4T1    135  ASMG.ASMGRTA.SA.039                1 SEQ      80    5 PAGE UM   MTA                 JULY 27, 1977  21:52:34
00066/040  *ASMG                     ASMGUP          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGUP                         42 
            D4T1    136  ASMG.ASMGUP.SA.040                 1 SEQ      80   20 PAGE UM   MTA                 JULY 27, 1977  21:52:37
00066/041  *ASMG                     APARM           SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=APARM                          43 
            D4T1    137  ASMG.APARM.SA.041                  1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:52:39
00066/042  *ASMG                     ASMGSET         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGSET                        44 
            D4T1    138  ASMG.ASMGSET.SA.042                1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:52:41
00066/043  *ASMG                     COMMENCE        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=COMMENCE                       45 
            D4T1    139  ASMG.COMMENCE.SM.043               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:43
00066/044  *ASMG                     COMMON          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=COMMON                         46 
            D4T1    140  ASMG.COMMON.SM.044                 1 SEQ      80   18 PAGE UM   MTA                 JULY 27, 1977  21:52:46
00066/045  *ASMG                     DCBOUT          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=DCBOUT                         47 
            D4T1    141  ASMG.DCBOUT.SM.045                 1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:47
00066/046  *ASMG                     DEFCHAR         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=DEFCHAR                        48 
            D4T1    142  ASMG.DEFCHAR.SM.046                1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:52:49
00066/047  *ASMG                     ELZERO          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=ELZERO                         49 
            D4T1    143  ASMG.ELZERO.SM.047                 1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:51
00066/048  *ASMG                     EMSG            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=EMSG                           50 
            D4T1    144  ASMG.EMSG.SM.048                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:54
00066/049  *ASMG                     ENTRYOUT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=ENTRYOUT                       51 
            D4T1    145  ASMG.ENTRYOUT.SM.049               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:55
00066/050  *ASMG                     EPTR            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=EPTR                           52 
            D4T1    146  ASMG.EPTR.SM.050                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:58
00066/051  *ASMG                     FDIMEN          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=FDIMEN                         53 
            D4T1    147  ASMG.FDIMEN.SM.051                 1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  21:53:00
00066/052  *ASMG                     FINISH          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=FINISH                         54 
            D4T1    148  ASMG.FINISH.SM.052                 1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:02
1                                                                                               THU SEP 12/96   23:39:34   Page   21
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/053  *ASMG                     GETT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=GETT                           55 
            D4T1    149  ASMG.GETT.SM.053                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:04
00066/054  *ASMG                     INST            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=INST                           56 
            D4T1    150  ASMG.INST.SM.054                   1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:53:06
00066/055  *ASMG                     INSTSET         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=INSTSET                        57 
            D4T1    151  ASMG.INSTSET.SM.055                1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:53:08
00066/056  *ASMG                     LIST1EQU        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=LIST1EQU                       58 
            D4T1    152  ASMG.LIST1EQU.SM.056               1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:53:10
00066/057  *ASMG                     MESSAGE         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=MESSAGE                        59 
            D4T1    153  ASMG.MESSAGE.SM.057                1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:12
00066/058  *ASMG                     PRINTOUT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PRINTOUT                       60 
            D4T1    154  ASMG.PRINTOUT.SM.058               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:14
00066/059  *ASMG                     PRNT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PRNT                           61 
            D4T1    155  ASMG.PRNT.SM.059                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:16
00066/060  *ASMG                     PUTT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PUTT                           62 
            D4T1    156  ASMG.PUTT.SM.060                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:18
00066/061  *ASMG                     RD              SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=RD                             63 
            D4T1    157  ASMG.RD.SM.061                     1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:20
00066/062  *ASMG                     SETR            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SETR                           64 
            D4T1    158  ASMG.SETR.SM.062                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:22
00066/063  *ASMG                     SNAPDATA        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SNAPDATA                       65 
            D4T1    159  ASMG.SNAPDATA.SM.063               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:24
00066/064  *ASMG                     SNAPOUT         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SNAPOUT                        66 
            D4T1    160  ASMG.SNAPOUT.SM.064                1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:53:26
00066/065  *ASMG                     TIMEOUT         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=TIMEOUT                        67 
            D4T1    161  ASMG.TIMEOUT.SM.065                1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:29
00066/066  *ASMG                     TRANSLAT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=TRANSLAT                       68 
            D4T1    162  ASMG.TRANSLAT.SM.066               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:31
00066/067  *ASMG                     UPEMSG          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=UPEMSG                         69 
            D4T1    163  ASMG.UPEMSG.SM.067                 1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:33
00066/068  *ASMG                     ASMGMOD         SA  G          WATF:ASMGMOD(1,999)                                             
            D4T1    164  ASMG.ASMGMOD.SA.068                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:37
0          SOURCE FOR THE MODULE LIST INDICATING FROM WHICH FILE TO LOAD EACH PART OF ASMG.
00066/069  *ASMG                     ASMGMOD         OC  G          WATF:ASMGMOD(1000)                                              
            D4T1    165  ASMG.ASMGMOD.OC.069                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:37
1                                                                                               THU SEP 12/96   23:39:34   Page   22
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/070  *ASMG                     GTIMEST         OC  G          WATF:GTIMEST                                                    
            D4T1    166  ASMG.GTIMEST.OC.070                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:39
0          OBJECT FOR A SUBROUTINE TO GET THE USER'S REMAINING EXECUTION TIME.  SOURCE
           FOR THIS SUBROUTINE HAS BEEN LOST, BUT COULD BE REGENERATED IF REALLY NECESSARY.
00066/071  *ASMG                     ASMGUPD         UU  G          WATF:ASMGUPD                                                    
            D4T1    167  ASMG.ASMGUPD.UU.071                1 LINE     83   40 PAGE UM   MTA                 JULY 27, 1977  21:53:41
0          UPDATE DECK TO CONVERT ALL OF THE OS VERSION OF ASMG (066/1 THROUGH 066/67) TO RUN IN MTS.
0          Referenced by comments of: 66/1, 66/72 
00066/072  *ASMG                     ASMGJOB         C              WATF:ASMGJOB                                                    
            D4T1    168  ASMG.ASMGJOB.C.072                 1 LINE    124    1 PAGE UM   MTA                 JULY 27, 1977  21:53:49
0           THIS JOB UPDATES AND ASSEMBLES THE G ASSEMBLER FOR MTS. 
               THE FOLLOWING FILES AND TAPES ARE USED: 
                      ASMGUPD - UPDATE DECK FOR ALL OF ASMG (066/71) 
                      ASMGSET - EMPTIED AND WRITTEN WITH A COPY SECTION 
                      ASMGMACROS - EMPTIED AND WRITTEN WITH A MACRO LIBRARY 
                      ASMGERRORS - EMPTIES AND WRITTEN WITT SERCOM OUTPUT OF THE ASSEMBLY
                      S0032 VOL=ASMGOS - MASTER TAPE, CONTAINS CURRENT OS VERSION OF ASMG (066/1 THROUGH 066/67) 
                        ***NOTE*** DATA SET NAMES ON THIS TAPE MUST NOT BE CHANGED SINCE ASMGUPD CONTAINS 
                                   %POSN COMMANDS TO POSITION THE TAPE. 
                      S0416 VOL=UPDATE - WRITTEN WITH NEW SOURCE FOR ASMG (MTS VERSION) 
                      S0111 VOL=ASMGL - WRITTEN WITH LISTINGS FOR ASMG (MTS VERSION) 
                      ASMG - EMPTIED AND WRITTEN WITH OBJECT FOR ASMG (MTS VERSION) 
            
                THE LISTINGS ARE NOT PRINTED. A SEPARATE JOB IS REQUIRED. 
0          Referenced by comments of: 66/74 
00066/073  *ASMG                     ASMGJOB2        C              WATF:ASMGJOB2                                                   
            D4T1    169  ASMG.ASMGJOB2.C.073                1 LINE    112    1 PAGE UM   MTA                 JULY 27, 1977  21:53:51
0          COMMAND FILE TO ASSEMBLE SELECTED PARTS OF ASMG.
00066/074  *ASMG                     ASMGLINK        C              WATF:ASMGLINK                                                   
            D4T1    170  ASMG.ASMGLINK.C.074                1 LINE    112    1 PAGE UM   MTA                 JULY 27, 1977  21:53:53
0          COMMAND FILE TO PUT OUTPUT OF ASMGJOB (066/72) INTO PRIVATE FILES FOR TESTING.
0          Referenced by comments of: 66/75 
00066/075  *ASMG                     ASMGCOPY        C              WATF:ASMGCOPY                                                   
            D4T1    171  ASMG.ASMGCOPY.C.075                1 LINE     26    2 PAGE UM   MTA                 JULY 27, 1977  21:53:56
0          COMMAND FILE TO MOVE THE OUTPUT OF ASMGLINK (066/74) INTO THE PUBLIC FILES.
1                                                                                               THU SEP 12/96   23:39:34   Page   23
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/076  *ASMG                     *ASMG           OE  G          *ASMG                                                           
            D4T1    172  ASMG.*ASMG.OE.076                  1 SEQ    8852    3 PAGE UM   MTA                 JULY 27, 1977  21:53:58
                         *ASMG                
0          THE OBJECT FOR ASMG IS STORED IN 18 SEQUENTIAL, PUBLIC FILES IN MTS (066/76 THROUGH
           066/92).  THE FILES AND THEIR CONTENTS BY MODULE NAME ARE:
            
                    FILE           ENTRY POINT    CONTENTS
                    ----           -----------    --------
                    *ASMG          ASMGASM        ASMGASM,ASMGBUFF,ASMGMOD
                    *ASMBLR        ASMGASM        (EXACTLY THE SAME CONTENTS AS *ASMG)
                    ETC:ASMGFPP    ASMGFPP        ASMGFPP,ASMGFD,ASMGFEX
                    ETC:ASMGF1     ASMGF1         ASMGF1
                    ETC:ASMGF2     ASMGF2         ASMGF2,ASMGF2A
                    ETC:ASMGF3     ASMGF3         ASMGF3
                    ETC:ASMGF7     ASMGF7         ASMGF7C,ASMGF7G,,ASMGF7L,ASMGF7S,ASMGFI,
                                                  ASMGF7D,ASMGF7E,ASMGF7I,ASMGF7N,ASMGF7V,ASMGF7X
                    ETC:ASMGF8     ASMGF8         ASMGF8A,ASMGF8C,ASMGF8L,ASMGF8N,ASMGF8P,
                                                  ASMGF8S,ASMGF8V,ASMGF8D,ASMGF8I,ASMGF8M
                    ETC:ASMGIS00                  ASMGIS00
                    ETC:ASMGIS09                  ASMGIS09
                    ETC:ASMGIS20                  ASMGIS20
                    ETC:ASMGIS44                  ASMGIS44
                    ETC:ASMGIS60                  ASMGIS60
                    ETC:ASMGIS67                  ASMGIS67
                    ETC:ASMGIS70                  ASMGIS70
                    ETC:ASMGIS71                  ASMGIS71
                    ETC:ASMGRTA    ASMGRTA        ASMGRTA
                    ETC:ASMGUP     ASMGUP         ASMGUP
            
           NOTE:  *ASMG ALSO CONTAINS THE OBJECT
00066/077  *ASMG                     ASMGFPP         OE  G          ETC:ASMGFPP                                                     
            D4T1    173  ASMG.ASMGFPP.OE.077                1 SEQ   12064    5 PAGE UM   MTA                 JULY 27, 1977  21:54:00
                         ETC.:ASMGFPP         
00066/078  *ASMG                     ASMGF1          OE  G          ETC:ASMGF1                                                      
            D4T1    174  ASMG.ASMGF1.OE.078                 1 SEQ    9088    3 PAGE UM   MTA                 JULY 27, 1977  21:54:02
                         ETC.:ASMGF1          
00066/079  *ASMG                     ASMGF2          OE  G          ETC:ASMGF2                                                      
            D4T1    175  ASMG.ASMGF2.OE.079                 1 SEQ   20784    6 PAGE UM   MTA                 JULY 27, 1977  21:54:04
                         ETC.:ASMGF2          
00066/080  *ASMG                     ASMGF3          OE  G          ETC:ASMGF3                                                      
            D4T1    176  ASMG.ASMGF3.OE.080                 1 SEQ    8286    3 PAGE UM   MTA                 JULY 27, 1977  21:54:06
                         ETC.:ASMGF3          
00066/081  *ASMG                     ASMGF7          OE  G          ETC:ASMGF7                                                      
            D4T1    177  ASMG.ASMGF7.OE.081                 1 SEQ   12904    6 PAGE UM   MTA                 JULY 27, 1977  21:54:08
                         ETC.:ASMGF7          
1                                                                                               THU SEP 12/96   23:39:34   Page   24
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/082  *ASMG                     ASMGF8          OE  G          ETC:ASMGF8                                                      
            D4T1    178  ASMG.ASMGF8.OE.082                 1 SEQ    9552    6 PAGE UM   MTA                 JULY 27, 1977  21:54:10
                         ETC.:ASMGF8          
00066/083  *ASMG                     ASMGIS00        OE  G          ETC:ASMGIS00                                                    
            D4T1    179  ASMG.ASMGIS00.OE.083               1 SEQ    2220    1 PAGE UM   MTA                 JULY 27, 1977  21:54:12
                         ETC.:ASMGIS00        
00066/084  *ASMG                     ASMGIS09        OE  G          ETC:ASMGIS09                                                    
            D4T1    180  ASMG.ASMGIS09.OE.084               1 SEQ    1834    1 PAGE UM   MTA                 JULY 27, 1977  21:54:15
                         ETC.:ASMGIS09        
00066/085  *ASMG                     ASMGIS20        OE  G          ETC:ASMGIS20                                                    
            D4T1    181  ASMG.ASMGIS20.OE.085               1 SEQ    1199    1 PAGE UM   MTA                 JULY 27, 1977  21:54:17
                         ETC.:ASMGIS20        
00066/086  *ASMG                     ASMGIS44        OE  G          ETC:ASMGIS44                                                    
            D4T1    182  ASMG.ASMGIS44.OE.086               1 SEQ    1866    1 PAGE UM   MTA                 JULY 27, 1977  21:54:19
                         ETC.:ASMGIS44        
00066/087  *ASMG                     ASMGIS60        OE  G          ETC:ASMGIS60                                                    
            D4T1    183  ASMG.ASMGIS60.OE.087               1 SEQ    2074    1 PAGE UM   MTA                 JULY 27, 1977  21:54:21
                         ETC.:ASMGIS60        
00066/088  *ASMG                     ASMGIS67        OE  G          ETC:ASMGIS67                                                    
            D4T1    184  ASMG.ASMGIS67.OE.088               1 SEQ    2160    1 PAGE UM   MTA                 JULY 27, 1977  21:54:23
                         ETC.:ASMGIS67        
00066/089  *ASMG                     ASMGIS70        OE  G          ETC:ASMGIS70                                                    
            D4T1    185  ASMG.ASMGIS70.OE.089               1 SEQ    2372    1 PAGE UM   MTA                 JULY 27, 1977  21:54:25
                         ETC.:ASMGIS70        
00066/090  *ASMG                     ASMGIS71        OE  G          ETC:ASMGIS71                                                    
            D4T1    186  ASMG.ASMGIS71.OE.090               1 SEQ    2380    1 PAGE UM   MTA                 JULY 27, 1977  21:54:28
                         ETC.:ASMGIS71        
00066/091  *ASMG                     ASMGRTA         OE  G          ETC:ASMGRTA                                                     
            D4T1    187  ASMG.ASMGRTA.OE.091                1 SEQ    1280    1 PAGE UM   MTA                 JULY 27, 1977  21:54:30
                         ETC.:ASMGRTA         
00066/092  *ASMG                     ASMGUP          OE  G          ETC:ASMGUP                                                      
            D4T1    188  ASMG.ASMGUP.OE.092                 1 SEQ    3538    1 PAGE UM   MTA                 JULY 27, 1977  21:54:32
                         ETC.:ASMGUP          
00066/093  *ASMG                     USER'S GUIDE    P              S0881 ASMG27 POSN=ASMG.GUIDE.USERS                           3  
            D4T1    189  ASMG.USER'S_GUIDE.P.093            1 SEQ      80   41 PAGE UM   MTA                 JULY 27, 1977  21:54:49
0          WATERLOO USER'S GUIDE FOR OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
           SEE MTS VOLUME 14 (665) FOR MTS ASMG USER'S GUIDE.
00066/094  *ASMG                     IMPLEMENTATION  P              S0881 ASMG27 POSN=ASMG.GUIDE.IMPL                            4  
            D4T1    190  ASMG.IMPLEMENTATION.P.094          1 SEQ      78   27 PAGE UM   MTA                 JULY 27, 1977  21:54:52
0          IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
1                                                                                               THU SEP 12/96   23:39:34   Page   25
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00067/001B  FILE SAVE                MAIN            SA  G  FSAV    RSTR:FILESAVE(1001)                                             
            RD16T1    9  FILE_SAVE.MAIN.SA.001              1 LINE     80   33 PAGE UM   HELFFRICH           JULY 12, 1979  22:24:52
                         RSTR:FILESAVE        
0          MTS FILESAVE (DISK BACKUP) PROGRAM.  THIS PROGRAM IS RUN ONCE PER WEEK AT UM
           TO PRODUCE A BACKUP OF ALL DISK FILES IN CASE OF HARDWARE (OR SOFTWARE)
           PROBLEMS.  ON OTHER DAYS, A PARTIAL FILESAVE IS PRODUCED USING THE ONLINE
           FILE SAVE PROGRAM (716) OF THOSE FILES WHICH HAVE CHANGED SINCE THE PREVIOUS
           FILE SAVE WAS RUN.  THE TAPES GENERATED BY THE FULL SAVE ARE COPIED (SEE 610)
           AND SAVED FOR SEVERAL MONTHS.  SIX WEEK INTERVALS OF THESE FULL TAPES ARE
           SAVED FOR SEVERAL YEARS.  WE HAVE FOUND THAT THIS PROCEDURE (WHICH INCLUDES
           STORING THE FULL TAPES IN ANOTHER BUILDING) SEEMS TO PROVIDE A REASONABLE BACKUP.
            
           THIS IS THE SOURCE FOR THE FILESAVE MAIN PROGRAM WHICH ACCEPTS THE FOLLOWING
           PARAMETERS SEPARATED BY BLANKS:
            
                ALL -- MEANS ALL FILES WILL BE SAVED
                CHG -- MEANS ONLY CHANGED FILES WILL BE SAVED
                DIR -- MEANS THAT *RESTORE (712) DIRECTORY ENTRIES ARE TO BE GENERATED
            
           ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE FILESAVE MACROS (716/14).
            
           ****************************************************************************
           RD16 CHANGES:
            
           CHANGED TO ELIMINATE USAGE OF FDVSER FIELD (WHICH IS NOT NEEDED NOW) IN THE
           CATALOG.  ALSO, FIXED A BUG WHICH WOULD HAVE CAUSED A PGNT IF A BAD 
           SHLENT/SHNENT HAD BEEN ENCOUNTERED.
           ****************************************************************************
0          Referenced by comments of: 92/1, 502/7 
00067/002   FILE SAVE                SAVEFILE        SA  G  SFIL    RSTR:SAVEFILE(1001)                                             
            D4T1    192  FILE_SAVE.SAVEFILE.SA.002          1 LINE     80   10 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:03
                         RSTR:SAVEFILE        
0          ASSEMBLE USING COPY:FILE.MACROS (482/33) AND *SYSMAC.
0          Referenced by comments of: 502/7, 716/2 
00067/003   FILE SAVE                VTOCRD          SA  G  VTOC    RSTR:VTOCREAD(1001)                                             
            D4.2T1   24  FILE_SAVE.VTOCRD.SA.003            1 LINE     80   11 PAGE UM   HELFFRICH           MAR. 26, 1979  02:16:35
                         RSTR:VTOCREAD        
0          SUBROUTINE TO READ ENTIRE VTOC OF DISK VOLUME.  ASSEMBLE USING *SYSMAC AND
           COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 502/7 
00067/004B  FILE SAVE                OBJECT          OC  G          RSTR:FILESAVEOBJ                                                
            RD16T1   10  FILE_SAVE.OBJECT.OC.004            1 LINE     80   20 PAGE UM   HELFFRICH           JULY 12, 1979  22:25:00
                         RSTR:FILESAVEOBJ     
0          OBJECT FROM 067/1, 067/2, 067/3, AND 716/4 (TAPEOUT).
1                                                                                               THU SEP 12/96   23:39:34   Page   26
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 104/108, 682/20, 682/40, 1030/1 
00067/005   FILE SAVE                RESTART         SA  G          RSTR:LFS.RESTART(1005)                                          
            D4.1T1   28  FILE_SAVE.RESTART.SA.005           1 LINE     72    3 PAGE UM   HELFFRICH           MAY  13, 1978  17:02:58
                         RSTR:LFS.RESTART     
0          PROGRAM USED BY WEEKLY SAVE (067/9) TO CAUSE THE WEEKLY TAPES TO BE RE-USED 
           AFTER THEIR CYCLE PERIOD HAS EXPIRED (6 WEEKS).  THIS HAS TO BE DONE BECAUSE
           IF FILESAVE CRASHES WITH PART OF A SET OF TAPES WRITTEN, IT WOULD NOT RE-USE
           THE PARTIALLY WRITTEN TAPES OF THE SET WHEN RESTARTED.  THIS PROGRAM IS A
           KLUDGE.
0          Referenced by comments of: 67/7 
00067/006   FILE SAVE                RESTART         OC  G          RSTR:LFS.RESTART(1,999)                                         
            D4.1T1   29  FILE_SAVE.RESTART.OC.006           1 LINE     80    2 PAGE UM   HELFFRICH           MAY  13, 1978  17:02:59
00067/007   FILE SAVE                SVSTART         C              RSTR:SVSTART                                                    
            D4.2T1   26  FILE_SAVE.SVSTART.C.007            1 LINE     68    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:16:38
                         RSTR:SVSTART         
0          COMMAND AND DATA FILE WHICH IS $SOURCED TO BY *SVW (067/9).  THIS FILE STARTS
           UP THE SEVERAL (CURRENTLY 6) STREAMS WHICH ARE USED FOR THE FULL FILE SAVE.
           IT USES LFS.RESTART (067/5) TO CAUSE THE WEEKLY TAPES TO BE RE-USED AFTER
           THEIR CYCLE PERIOD HAS EXPIRED.
0          Referenced by comments of: 67/9 
00067/008   FILE SAVE                FSS             C              MTS:TST.FSS                                                     
            D4.2T1   27  FILE_SAVE.FSS.C.008                1 LINE    121    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:16:38
                         RSTR:FSS             
0          COMMAND AND DATA FILE $SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4,
           *SV5, AND *SV6).  THIS FILE CONTAINS THE DISK VOLUME SERIAL NUMBERS OF THE VOLUMES
           TO BE SAVED BY EACH STREAM.  IN ADDITION, THE LETTER "C" MAY FOLLOW EACH VOLUME
           SERIAL NUMBER TO INDICATE WHETHER THE LABEL FOR EACH TAPE IS TO BE CHECKED.
           THIS FILE WILL HAVE TO BE CHANGED BY EACH INSTALLATION TO REFLECT THE NUMBER
           OF DISK PACKS IN USE AND THEIR VOLUME SERIAL NUMBERS.  THE FILE "FSLOG" IS
           USED TO LOG THE FILESAVE START/STOP TIMES.
00067/009   FILE SAVE                WEEKLY START    C              *SVW                                                            
            D4T1    200  FILE_SAVE.WEEKLY_START.C.010       1 LINE     25    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:24
                         RSTR:*SVW            
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE WEEKLY (FULL) FILESAVE
           PROCESS.  ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN.  THIS FILE WILL
           $SOURCE TO RSTR:SVSTART (067/7) WHICH WILL START UP 5 MORE STREAMS (*SV2, *SV3,
           *SV4, *SV5 AND *SV6) AUTOMATICALLY SO THAT THE FULL SAVE IS DONE IN 6 STREAMS.
           EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED, DEPENDING
           ON THE NUMBER OF DISK DRIVES AND CONTROLS, AND TAPE DRIVES AND CONTROLS WHICH
           ARE AVAILABLE.  INVOKED BY ENTERING "MTS *SVW" ON THE OPERATORS CONSOLE.
0          Referenced by comments of: 67/5, 67/7 
1                                                                                               THU SEP 12/96   23:39:34   Page   27
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00067/010   FILE SAVE                WKLY STREAM #1  C              *SV1                                                            
            D4T1    201  FILE_SAVE.WKLY_STREAM_#1.C.011     1 LINE     19    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:27
                         RSTR:*SV1            
0          THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART
           WEEKLY (FULL) STREAM #1.
00067/011   FILE SAVE                WKLY STREAM #2  C              *SV2                                                            
            D4T1    202  FILE_SAVE.WKLY_STREAM_#2.C.012     1 LINE     19    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:29
                         RSTR:*SV2            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #2.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #2.
00067/012   FILE SAVE                WKLY STREAM #3  C              *SV3                                                            
            D4T1    203  FILE_SAVE.WKLY_STREAM_#3.C.013     1 LINE     19    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:32
                         RSTR:*SV3            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #3.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #3.
00067/013   FILE SAVE                WKLY STREAM #4  C              *SV4                                                            
            D4T1    204  FILE_SAVE.WKLY_STREAM_#4.C.014     1 LINE     19    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:34
                         RSTR:*SV4            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #4.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #4.
00067/014   FILE SAVE                WKLY STREAM #5  C              *SV5                                                            
            D4.1T1   32  FILE_SAVE.WKLY_STREAM_#5.C.014     1 LINE     19    1 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:01
                         RSTR:*SV5            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #5.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #5.
00067/015   FILE SAVE                WKLY STREAM #6  C              *SV6                                                            
            D4.2T1   28  FILE_SAVE.WKLY_STREAM_#6.C.015     1 LINE     19    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:16:39
                         RSTR:*SV6            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #6.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #6.
00069      *DRAW                                     SA           # (OBSOLETE)                                                      
            D4T1    210  DRAW..SA.                          1 SEQ      80   13 PAGE UM                       JULY 30, 1973  23:38.23
00071/001   LISTSTAT                                 SA  G          S0811 REBATE 'REBATES' FSNAME=LISTSTAT                          
            D4.2T1   29  LISTSTAT..SA.001                   1 LINE     80   10 PAGE UM   LIFT                JAN. 05, 1979  16:23:53
0          PROGRAM TO PRINT *STATISTICS RECORDS.  WILL READ RECORDS (ON SCARDS) FROM A
           FILE OR BLOCKED TAPE (SUCH AS PRODUCED BY *CMB).  PRINTS OUTPUT ON SPRINT.
           ALTERNATE SUBROUTINE ENTRY LIST#, USED BY RSCAN (707), LETS CALLER SPECIFY
           I/O FDUBS INSTEAD OF SCARDS/SPRINT.  PROGRAM MUST BE RUN WITH PROT=OFF.
           IF A RATE NUMBER APPEARS IN THE *STATISTICS RECORD AND THE JOB WAS RUN AFTER
           THE BEGINNING OF 1974, THE MTS GETRATES SUBROUTINE (651/8) IS CALLED TO
1                                                                                               THU SEP 12/96   23:39:34   Page   28
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          OBTAIN A SET OF RATES USED TO PRINT THE COST OF THE JOB.  OTHERWISE, RATES
           ARE OBTAINED FROM ASSEMBLED-IN TABLES. FOR THIS REASON, THE PROGRAM WILL HAVE
           TO BE REASSEMBLED AT EACH INSTALLATION SINCE THE RATE TABLES WILL BE WRONG.
           COPIES COPY:STATDSECT (620) AND COPY:RATEVEC(5) (651/2).  SOURCE IN LINES (1,999).
0          Referenced by comments of: 355/1, 707/3, 753/4 
00071/002   LISTSTAT                                 OC  G          W035:LISTSTAT                                                   
            D4.2T1   30  LISTSTAT..OC.002                   1 SEQ      80    3 PAGE UM   LIFT                MAR. 26, 1979  02:17:32
00072      *FORTEDIT                                 SA  O        # (OBSOLETE)                                                      
            D3T1    170  FORTEDIT..SA.1                     1 SEQ      80   20 PAGE UM                       JULY 30, 1973  23:39.26
00073/001  *DSK                                      C              *DSK                                                            
            D4.2T1   31  DSK..C.001                         1 LINE     32    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:17:32
                         FILE:*DSK            
0          COMMAND FILE TO RUN DSKMAN (073/3).  INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE.
0          Referenced by comments of: 682/4 
00073/002  *DSK                      DSKMAN          SA  G  DMAN    FILE:DSKMAN.S                                                   
            D4T1    214  DSK.DSKMAN.SA.002                  1 LINE     80    7 PAGE UM   HELFFRICH           AUG. 14, 1977  18:52:50
                         FILE:DSKMAN.S        
0          PROGRAM USED BY OPERATORS TO MANIPULATE THE LIST OF MTS DISK VOLUMES.
           PROGRAM ALLOWS VOLUMES TO BE ADDED AND REMOVED FROM THE SYSTEM DYNAMICALLY AS WELL
           AS ALLOWING THE DRIVE ADDRESS FOR A VOLUME TO BE FORGOTTEN, THUS CAUSING MTS TO
           SEARCH THROUGH ALL DRIVE ADDRESSES LOOKING FOR THAT VOLUME ON THE NEXT REFERENCE.
           THIS IS PARTICULARLY USEFUL WHEN THE OPERATOR WISHES TO MOVE A VOLUME TO A DRIVE
           WITH A DIFFERENT ADDRESS.  ASSEMBLE USING COPY:FILE.MACROS (482/33).
           SEE COMP 682/4 FOR A WRITEUP.
00073/003  *DSK                      DSKMAN          OC  G          SYS:DSK                                                         
            D4T1    215  DSK.DSKMAN.OC.003                  1 LINE     80    3 PAGE UM   HELFFRICH           AUG. 14, 1977  18:52:51
                         SYS.:DSK             
0          Referenced by comments of: 73/1 
00074      *2250EDIT                                 SA           # (OBSOLETE)                                                      
            D4T1    216  2250EDIT..SA.                      1 SEQ      80   29 PAGE UM                       JULY 30, 1973  23:39.56
00076/001   RESERVE DISK             *RSV            C              *RSV                                                            
            D4.2T1   32  RESERVE_DISK.*RSV.C.001            1 LINE     45    1 PAGE UM   MTA                 MAR. 26, 1979  02:17:33
                         *RSV                 
0          COMMAND FILE TO RUN THE DISK RESERVE PROGRAM (076/3).  INVOKED BY ENTERING "MTS *RSV"
           ON OPERATOR'S CONSOLE.
00076/002   RESERVE DISK             RESERVE PGM     SA  G          S0720 'D3T1' FSNAME=RESERVE_DISK.RESERVE_PGM.SA.2(1)         177
            D4T1    218  RESERVE_DISK.RESERVE_PGM.SA.002    1 LINE     80    1 PAGE UM   MTA                 JULY 30, 1973  23:40.00
0          PROGRAM TO EXECUTE A RESERVE COMMAND FOR A DISK PACK. USED ONLY WITH 2844 OR 2 TAIL SWITCH.
1                                                                                               THU SEP 12/96   23:39:34   Page   29
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00076/003   RESERVE DISK             RESERVE PGM     OC  G          SYS:RSV                                                         
            D4T1    219  RESERVE_DISK.RESERVE_PGM.OC.003    1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:56:39
                         SYS.:RSV             
0          Referenced by comments of: 76/1 
00077/001   STATBUFF                                 SA  G  STBF    MTA:STATBUFF                                                    
            D4T1    220  STATBUFF..SA.001                   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:56:41
                         MTA.:STATBUFF        
0          POINTS TO THE BUFFER USED BY THE STAT JOB (079) IF IT IS ACTIVE.  THE SECOND
           WORD POINTS TO THE STAT JOB'S JOB TABLE.
00077/002   STATBUFF                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00078/001   STAT SUBROUTINE                          SA  G  STSB    MTA:STATSUB                                                     
            D4T1    221  STAT_SUBROUTINE..SA.001            1 LINE     80    4 PAGE UM   HELFFRICH           JULY 27, 1977  21:56:44
                         MTA.:STATSUB         
0          SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O.
00078/002   STAT SUBROUTINE                          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00079/001   STAT JOB                                 SA  G  STAT    W170:STAT.JOB(1005)                                             
            D4.1T1   33  STAT_JOB..SA.001                   1 LINE     80   16 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:02
                         W170:STAT.JOB        
0          THE "STAT" JOB WILL SAVE STATISTICS ABOUT HARDWARE INTERRUPTS, MTS I/O OPERATIONS,
           AND INTERNAL SUPERVISOR FUNCTIONS (SUCH AS THE EXECUTION OF SIO) ON TAPE.  CAN PRODUCE
           LARGE AMOUNTS OF DATA QUICKLY.  *ANALYSIS (140) CAN HELP ANALYZE THE DATA.  COPIES
           COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 77/1, 79/3, 140/1 
00079/002   STAT JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00079/003   STAT JOB                 STATSW          SA  G          W170:STAT.PROG(1005)                                            
            D4.1T1   34  STAT_JOB.STATSW.SA.004             1 LINE     72    5 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:07
                         W170:STAT.PROG       
0          THE STATSW JOB PROGRAM (WHICH IS ALSO A MTS-CALLABLE ROUTINE) PARSES AN INPUT
           LINE FROM OPER (OR SCARDS, IF MTS CALLED) AND CALLS THE STATSSUB SUBROUTINE IN
           THE STAT JOB ASSEMBLY (079/1) TO DO THE DIRTY WORK RELATING TO DATA COLLECTION
           RECORDING SWITCHING.  SEE THE COMMENTS IN THE SOURCE LISTING.
0          Referenced by comments of: 79/5 
00079/004   STAT JOB                 STATSW JOB      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
1                                                                                               THU SEP 12/96   23:39:34   Page   30
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00079/005   STAT JOB                 MTS STATSW      OC  G          MTS:STATSW                                                      
            D4.1T1   35  STAT_JOB.MTS_STATSW.OC.006         1 LINE     24    1 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:09
                         MTS.:STATSW          
0          RIP AND LCS CARDS TO FORCE REFERENCE TO THE MTS ENTRY POINT TO STATSW (079/3)
           TO ENABLE THE STATSW JOB TO BE RUN AS AN MTS PROGRAM.
00079/006   STAT JOB                 MEMO 393        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M393                              
            D4.1T1   36  STAT_JOB.WRITEUP.WF.007            1 LINE     97    2 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:09
0          THIS IS COMPUTING CENTER MEMO 393 -- "DATA-COLLECTION FACILITY".
00080/001   INIT JOB                                 SA  G          MTA:INITJOB(1,999)                                           78 
            D4.1T1   37  INIT_JOB..SA.001                   1 LINE     80    3 PAGE UM   MTA                 MAY  13, 1978  17:03:10
                         MTA.:INITJOB         
0          AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST).
           IF &OPERJOB (IN COPY:GLOBALS) IS SET, THE INIT JOB WILL START THE OPERATOR JOB
           AND WAIT UP TO 20 SECONDS FOR IT TO START. THEN, AFTER FINDING THE DISK LOCATIONS
           OF THE MTS FILE CATALOGS, IT TURNS OVER THE REMAINING WORK OF INITIALIZING THE
           SYSTEM TO MTS BY USING THE SVC STRTJB TO START "MTS *INIT" (SEE COMP 097).
           INSTALLATIONS NOT USING THE OPERATOR JOB WILL WANT TO CHANGE THE VALUE OF &OPERJOB
           AND REASSEMBLE THE INIT JOB TO REMOVE THE 20 SECOND DELAY.  COPIES COPY:GLOBALS
           (1026/3).
00080/002   INIT JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00082       DMOD                                     SA           # (OBSOLETE)                                                      
            D4T1    224  DMOD..SA.001                       1 LINE     80    7 PAGE UM                       JULY 27, 1977  21:56:50
00083/001  *EBCDBCD                                  SA  G  EBBC    S0792 WSGFS FSNAME=EBCDBCD                                      
            D4.2T1   33  EBCDBCD..SA.001                    1 LINE     80    4 PAGE UM   WSG                 DEC. 21, 1978  19:20:23
0          PROGRAM TO TRANSLATE ARBITRARY LENGTH 029 KEYPUNCH RECORDS TO 026.
           SOURCE IN LINES (1,999).
00083/002  *EBCDBCD                                  OC  G          *EBCDBCD                                                        
            D4.2T1   34  EBCDBCD..OC.002                    1 LINE     80    1 PAGE UM   WSG                 MAR. 26, 1979  02:19:33
                         *EBCDBCD             
00084/001   AUDIO RESP UNIT - 7772   ARURTN          SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.SA.001(1)    228
            D4T1    228  AUDIO_RESP_UNIT_-_7772.*A.SA.001   1 LINE     80   56 PAGE UM   WSG                 JULY 28, 1976  00:35:37
0          DEVICE SUPPORT ROUTINES FOR THE IBM 7772 AUDIO RESPONSE UNIT.  NO LONGER IN USE AT UM.
           REFERENCES *ARUDEF (084/4) AND *SPEAK (084/3).
           USES BAS AND BASR INSTRUCTIONS LIKE CRAZY.  ASSEMBLE WITH PAR=IS=67.
0          Referenced by comments of: 84/3, 84/4 
00084/002   AUDIO RESP UNIT - 7772   *ARURTN         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.OC.002(1)    229
            D4T1    229  AUDIO_RESP_UNIT_-_7772.*A.OC.002   1 LINE     80    4 PAGE UM   WSG                 JULY 28, 1976  00:35:45
0          OBJECT SUITABLE FOR LOADING INTO SHARED VM.
1                                                                                               THU SEP 12/96   23:39:34   Page   31
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00084/003   AUDIO RESP UNIT - 7772   *SPEAK          D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*S.D.003(1)     230
            D4T1    230  AUDIO_RESP_UNIT_-_7772.*S.D.003    1 LINE    255   60 PAGE UM   WSG                 JULY 30, 1973  23:42.25
0          VOCABULARY FILE FOR *ARURTN (084/1).
0          Referenced by comments of: 84/1 
00084/004   AUDIO RESP UNIT - 7772   *ARUDEF         D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.004(1)     231
            D4T1    231  AUDIO_RESP_UNIT_-_7772.*A.D.004    1 LINE     10    1 PAGE UM   WSG                 JULY 30, 1973  23:42.34
0          PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1)
0          Referenced by comments of: 84/1 
00084/005   AUDIO RESP UNIT - 7772   DCVD SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.005(1)    232
            D4T1    232  AUDIO_RESP_UNIT_-_7772.DC.SA.005   1 LINE     80    5 PAGE UM   WSG                 FEB. 13, 1976  17:36:01
0          SUBROUTINE TO CONVERT DIGITALLY CODED VOICE FROM THE FORMAT EXPECTED BY THE 7772 TO A MORE REASONABLE FORMAT.
0          Referenced by comments of: 84/12, 84/15, 84/17 
00084/006   AUDIO RESP UNIT - 7772   DCVD SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.006(1)    233
            D4T1    233  AUDIO_RESP_UNIT_-_7772.DC.OC.006   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:06
0          PUT THIS IN *LIBRARY.
00084/007   AUDIO RESP UNIT - 7772   DCVC SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.007(1)    234
            D4T1    234  AUDIO_RESP_UNIT_-_7772.DC.SA.007   1 LINE     80    4 PAGE UM   WSG                 FEB. 13, 1976  17:36:17
0          SUBROUTINE TO CONVERT DIGITALLY CODED VOICE TO THE FORMAT EXPECTED BY THE 7772.
0          Referenced by comments of: 84/12, 84/15, 84/17 
00084/008   AUDIO RESP UNIT - 7772   DCVC SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.008(1)    235
            D4T1    235  AUDIO_RESP_UNIT_-_7772.DC.OC.008   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:26
0          PUT THIS IN *LIBRARY.
00084/009   AUDIO RESP UNIT - 7772   DCVG SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.009(1)    236
            D4T1    236  AUDIO_RESP_UNIT_-_7772.DC.SA.009   1 LINE     80    3 PAGE UM   WSG                 FEB. 13, 1976  17:36:52
0          SUBROUTINE TO RETRIEVE THE DIGITALLY CODED VOICE USED BY THE 7772.
0          Referenced by comments of: 84/12, 84/15, 84/17 
00084/010   AUDIO RESP UNIT - 7772   DCVG SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.010(1)    237
            D4T1    237  AUDIO_RESP_UNIT_-_7772.DC.OC.010   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:55
0          PUT THIS IN *LIBRARY.
00084/011   AUDIO RESP UNIT - 7772   *ARUVOC         D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.011(1)     238
            D4T1    238  AUDIO_RESP_UNIT_-_7772.*A.D.011    1 LINE    102   11 PAGE UM   WSG                 JULY 30, 1973  23:42.36
0          LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING.
1                                                                                               THU SEP 12/96   23:39:34   Page   32
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00084/012   AUDIO RESP UNIT - 7772   CREVOC          SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.012(1)    239
            D4T1    239  AUDIO_RESP_UNIT_-_7772.*C.SA.012   1 LINE     80   19 PAGE UM   WSG                 FEB. 13, 1976  17:38:37
0          PROGRAM TO CREATE AN ARU VOCABULARY FILE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9)
           AS WELL AS THE MSG SUBR (084/13).
0          Referenced by comments of: 84/13, 84/14 
00084/013   AUDIO RESP UNIT - 7772   CREVOC MSG SUB  SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.013(1)    240
            D4T1    240  AUDIO_RESP_UNIT_-_7772.*C.SA.013   1 LINE     80    5 PAGE UM   WSG                 FEB. 25, 1976  12:52:33
0          MSG SUBR CALLED BY CREVOC (084/12). 
0          Referenced by comments of: 84/12, 84/14 
00084/014   AUDIO RESP UNIT - 7772   *CREVOC         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.OC.014(1)    241
            D4T1    241  AUDIO_RESP_UNIT_-_7772.*C.OC.014   1 LINE     80    3 PAGE UM   WSG                 FEB. 25, 1976  12:51:48
0          OBJECT FOR CREVOC (084/12) AND THE MSG SUBR (084/13).
           ALSO CONTAINS ERROR MESSAGES STARTING AT LINE 800.
           LINE NUMBERS ARE IMPORTANT IN THIS FILE.
00084/015   AUDIO RESP UNIT - 7772   VLIST           SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.SA.015(1)    242
            D4T1    242  AUDIO_RESP_UNIT_-_7772.*V.SA.015   1 LINE     80    4 PAGE UM   WSG                 FEB. 13, 1976  17:39:10
0          PROGRAM TO EITHER SPEAK OR PRINT AN AUDIO RESPONSE UNIT VOCABULARY FILE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
00084/016   AUDIO RESP UNIT - 7772   *VLIST          OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.OC.016(1)    243
            D4T1    243  AUDIO_RESP_UNIT_-_7772.*V.OC.016   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:39:14
00084/017   AUDIO RESP UNIT - 7772   DCVDEC          SF  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.SF.017(1)    244
            D4T1    244  AUDIO_RESP_UNIT_-_7772.*D.SF.017   1 LINE     67    1 PAGE UM   WSG                 FEB. 13, 1976  17:39:56
0          PROGRAM TO FORM AND LIST THE INFO WHICH WOULD BE TRANSMITTED TO THE ARU FOR A TEXT LINE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
00084/018   AUDIO RESP UNIT - 7772   *DCVDEC         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.OC.018(1)    245
            D4T1    245  AUDIO_RESP_UNIT_-_7772.*D.OC.018   1 LINE    454    1 PAGE UM   WSG                 FEB. 13, 1976  17:40:05
00084/019   AUDIO RESP UNIT - 7772   *FSK            D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*F.D.019(1)     246
            D4T1    246  AUDIO_RESP_UNIT_-_7772.*F.D.019    1 LINE     31    1 PAGE UM   WSG                 JULY 30, 1973  23:43.01
0          AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO 11-BIT (FRAME SIZE) ASCII CODE.
00084/020   AUDIO RESP UNIT - 7772   *IM             D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*I.D.020(1)     247
            D4T1    247  AUDIO_RESP_UNIT_-_7772.*I.D.020    1 LINE     87    1 PAGE UM   WSG                 JULY 30, 1973  23:43.03
0          AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO INTERNATIONAL MORSE CODE.
1                                                                                               THU SEP 12/96   23:39:34   Page   33
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00084/021   AUDIO RESP UNIT - 7772   *NOTES          D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*N.D.021(1)     248
            D4T1    248  AUDIO_RESP_UNIT_-_7772.*N.D.021    1 LINE     91    2 PAGE UM   WSG                 JULY 30, 1973  23:43.05
0          AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES.
00086/001  *2501RTN                                  SA  G          S0563 D4T1 VLO FSNAME=2501RTN..SA.001(1)                     249
            D4T1    249  2501RTN..SA.001                    1 LINE     80   16 PAGE UM   DWB                 JULY 27, 1977  21:58:36
                         DWB.:UBCTFZO.S       
0          MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2501 CARD READER.  CALLS BINEBCD (243).
0          Referenced by comments of: 243/1 
00086/002  *2501RTN                                  OC  G          *2501RTN                                                        
            D4T1    250  2501RTN..OC.002                    1 LINE     80    2 PAGE UM   DWB                 JULY 27, 1977  21:58:38
                         *2501RTN             
0          OBJECT FOR 2501 ROUTINES AND OMR CONVERT SUBR (576/2).
00087    B  LLMPSEQU                                 SA  G          COPY:LLMPSEQU                                                   
            RD16T1   11  LLMPSEQU..SA.                      1 LINE     72   10 PAGE UM   MTA                 JULY 12, 1979  22:25:02
                         COPY:LLMPSEQU        
0          COPY SECTION FOR DEFINITIONS OF JOB TABLE, DEVICE LIST, DEVICE TABLE, ETC. WHICH
           IS COPIED BY MANY PROGRAMS.  ITS NAME COMES STRAIGHT FROM ANCIENT HISTORY (LINCOLN
           LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES).
           THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING
           AT LINE 100.
           NOTE:  PROGRAMS COPYING THIS FILE MUST FIRST COPY COPY:GLOBALS (1026/3).
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 24/1, 42/1, 44/1, 45/1, 46/1, 79/1, 101/1, 104/81,
                 116/1, 135/1, 198/1, 353/2, 354/1, 354/5, 387/1, 387/2, 387/27, 388/1, 400/1, 400/3, 400/8, 400/9, 413/1,
                 464/1, 482/5, 482/7, 500/34, 507/2, 509/1, 513/1, 531/1, 531/6, 531/13, 539/1, 540/1, 540/5, 540/7, 540/16,
                 540/25, 545/3, 554/1, 554/3, 570/1, 577/2, 577/4, 577/7, 578/1, 615/13, 618/1, 621/2, 629/1, 629/4, 634/1,
                 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/10, 682/22, 693/1, 731/3, 732/1, 1012/1, 1021/1,
                 1021/3, 3024/1, 4000/1 
00090      *HEXLIST                                  SA           # (OBSOLETE)                                                      
            D3T1    202  HEXLIST..SA.1                      1 LINE     80    6 PAGE UM                       JULY 30, 1973  23:43.29
00091      *DOUBLE                                   SA           # (OBSOLETE)                                                      
            D3T1    204  DOUBLE..SA.1                       1 LINE     80   16 PAGE UM                       JULY 27, 1973  22:03.05
00092/001B  FILE RESTORE             RSTFMT0         SA  G  FMT     RSTR:RSTFMT0(1000)                                              
            RD16T1   12  FILE_RESTORE.RSTFMT0.SA.001        1 LINE     80   48 PAGE UM   HELFFRICH           JULY 12, 1979  22:25:03
                         RSTR:RSTFMT0         
0          MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502).
           ASSEMBLE USING *SYSMAC.
1                                                                                               THU SEP 12/96   23:39:34   Page   34
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00092/002   FILE RESTORE             RSTFMT1         SA  G  FMT1    RSTR:RSTFMT1(1000)                                              
            D4T1    253  FILE_RESTORE.RSTFMT1.SA.002        1 LINE     80   31 PAGE UM   HELFFRICH           JULY 27, 1977  21:58:50
                         RSTR:RSTFMT1         
0          SUBROUTINE CALLED BY 092/1.  ASSEMBLE USING *SYSMAC.
00092/003B  FILE RESTORE             RSTFMT2         SA  G  FMT2    RSTR:RSTFMT2(1000)                                              
            RD16T1   13  FILE_RESTORE.RSTFMT2.SA.003        1 LINE     80   41 PAGE UM   HELFFRICH           JULY 12, 1979  22:25:10
                         RSTR:RSTFMT2         
0          SUBROUTINE CALLED BY 092/1 AND *RESTORE (712).  ASSEMBLE USING *SYSMAC AND 
           COPY:FILE.MACROS (482/33).
            
           ****************************************************************************
           RD16 CHANGES:
            
           CHANGED TO PRINT OUT AMOUNT OF SPACE NEEDED FOR A FILE IF ITS RESTORATION
           CAUSES THE ACCOUNT'S SPACE MAXIMUM TO BE EXCEEDED.
           ****************************************************************************
0          Referenced by comments of: 712/1, 712/2, 712/3 
00092/004B  FILE RESTORE                             OC  G          RSTR:RST                                                        
            RD16T1   14  FILE_RESTORE..OC.004               1 LINE     80   25 PAGE UM   HELFFRICH           JULY 12, 1979  22:25:22
                         RSTR:RST             
0          OBJECT FROM 092/1, 092/2, AND 092/3.
00092/005   FILE RESTORE             *RST            C              *RST                                                            
            D4.2T1   38  FILE_RESTORE.*RST.C.005            1 LINE     37    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:20:51
                         RSTR:*RST            
0          COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST).  INVOKED BY ENTERING "MTS *RST"
           ON OPERATOR'S CONSOLE.
00094/001  *TIME                                     SA  G  TIME    W062:TIME                                                       
            D4T1    257  TIME..SA.001                       1 LINE     80    2 PAGE UM   TIFFANY             JULY 27, 1977  21:59:07
0          PROGRAM TO PRINT TIME AND DATE.  CHANGED FOR STANDARDIZATION.
00094/002  *TIME                                     OC  G          *TIME                                                           
            D4T1    258  TIME..OC.002                       1 SEQ     247    1 PAGE UM   TIFFANY             JULY 27, 1977  21:59:09
                         *TIME                
00094/003  *TIME                     EXPANDED VERS   SA  G          S0563 D4T1 VLO FSNAME=TIME.EXPANDED_VERS.SA.003(1)           259
            D4T1    259  TIME.EXPANDED_VERS.SA.003          1 LINE    120    3 PAGE UM   HELFFRICH           JULY 27, 1977  21:59:11
0          IMPROVED (?) VERSION OF *TIME WHICH GIVES EXTENDED TIME INFORMATION. 
00094/004  *TIME                     EXPANDED VERS   OC  G          S0563 D4T1 VLO FSNAME=TIME.EXPANDED_VERS.OC.004(1)           260
            D4T1    260  TIME.EXPANDED_VERS.OC.004          1 LINE     80    2 PAGE UM   HELFFRICH           JULY 27, 1977  21:59:13
0          THIS OBJECT COULD BE PLACED IN *TIME INSTEAD OF 094/2.
1                                                                                               THU SEP 12/96   23:39:34   Page   35
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00096/001  *SYMBOLS                                  SA  G  SYMB    W009:SYMBOL.S                                                   
            D4.2T1   39  SYMBOLS..SA.001                    1 LINE     80   13 PAGE UM   SHERRY              MAR. 26, 1979  02:20:51
                         W009:SYMBOL.S        
0          PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL.
00096/002  *SYMBOLS                                  OC  G          *SYMBOLS                                                        
            D4.2T1   40  SYMBOLS..OC.002                    1 LINE   1628    3 PAGE UM   SHERRY              MAR. 26, 1979  02:20:54
                         *SYMBOLS             
00097/001   INIT                     *INIT           C              *INIT                                                           
            D4.2T1   41  INIT.*INIT.C.001                   1 LINE     47    1 PAGE UM   ENGLE               MAR. 26, 1979  02:20:54
                         INIT:*INIT           
0          THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL.  NO
           OPERATOR ACTION IS REQUIRED.  THIS COMMAND FILE SIGNS ON UNDER THE ID INIT
           AND SOURCES TO INIT:INITCMD.
            
           *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY
           ACCINITL IN INIT:INIT TO PRODUCE LISTS OF THE USER IDS WHICH WERE NOT PROPERLY
           SIGNED OFF WHEN THE SYSTEM LAST WENT DOWN (IF ANY) SO THAT THEY MAY BE "FIXED".
00097/002B  INIT                     INIT:INITCMD    C              INIT:INITCMD                                                    
            RD16T1   15  INIT.INIT:INITCMD.C.002            1 LINE     62    1 PAGE UM   MTA                 JULY 12, 1979  22:25:24
                         INIT:INITCMD         
0          THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RELOAD.
           THE FOLLOWING FUNCTIONS ARE PERFORMED:
            
            (1)  INIT:REASON (97/20) IS CREATED AND EMPTIED.
            (2)  THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF
                 IN *STATISTICS (50/5) TO VERIFY (AT LEAST PARTIALLY) THAT THEY ARE CORRECT.
            (3)  THE PROGRAM INITLOG (097/10) IS RUN TO OBTAIN THE REASON FOR RELOADING FROM THE
                 OPERATOR AND WRITE IT AT THE END OF THE FILE INIT:LOG (97/19) AND INTO INIT:REASON.
            (4)  FMT2305 IS RUN TO FORMAT THE 2305 FIXED HEAD FILE(S).  IT READS A LIST
                 OF FHF NAMES FROM THIS FILE.  AS DISTRIBUTED, THE LIST CONSISTS OF FHFO, FHF8, AND FHFG.
            (5)  THE PDP IS STARTED.
            (6)  INIT:REASON IS COPIED TO THE END OF INIT:RELOADLOG (97/21).
            (7)  RAMROD IS RUN TO WRITE THE COMMENTS FOR THE CURRENT SYSTEM TO INIT:REASON(1000), 
                 WHICH IS THEN COPIED TO OPER.
            (8)  THE POST-IPL LOADER, MTS *S2L (559/1), IS STARTED.
            (9)  MTS *CMD (531/5) IS STARTED TO BEGIN THE CMDSTAT DATA COLLECTION.
            (10) MTS *FSM (716/12) IS STARTED TO CLEAN UP THE ONLINE FILE SAVE DIRECTORIES.
            (11) MTS *STI (50/2) IS STARTED TO CHECK FOR A SYSTEM CRASH DURING THE LAST STATISTICS SAVE.
            (12) THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED.
            (13) THE CLEAN PROGRAM (97/6) IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN
                 THE SYSTEM LAST WENT DOWN.
            (14) THE INIT PROGRAM (97/3) IS RUN.  IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES)
                 OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE 5 LISTS (IN THE FILES INIT1,
                 INIT2, ETC.) OF THE USER IDS WHICH WERE SIGNED-ON WHEN THE SYSTEM LAST WENT DOWN.
                 WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS AVAILABLE" ON
                 THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS.  WHEN FINISHED, THE TOTAL
                 NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE.  NO BATCH JOBS SHOULD BE ALLOWED
                 TO RUN (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE
1                                                                                               THU SEP 12/96   23:39:34   Page   36
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                IT IS POSSIBLE THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH
                 ARE STILL BEING FIXED.  IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING
                 FILE IS AVAILABLE" MESSAGE PRINTS AND AFTER THE "POST-IPL SYSTEM LOADED OK"
                 MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE ABLE TO SIGNON UNTIL THEIR
                 USER IDS HAVE BEEN FIXED.  THESE USERS WILL GET A MESSAGE WHICH INDICATES THAT
                 THEIR IDS ARE TEMPORARILY UNAVAILABLE.
0          Referenced by comments of: 50/2, 97/12, 531/5, 559/1 
00097/003   INIT                     INIT:INIT       OE  G          S0027 DISTRB FSNAME=INIT                                        
            D4.1T1   39  INIT.INIT:INIT.OE.003              1 LINE   1430    4 PAGE UM   ENGLE               FEB. 27, 1978  11:51:52
                         INIT:INIT            
0          PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN.
           OBJECT PATCHED TO CHANGE THE NAMES IN ACCIO TO PUBLIC FILES.  THIS FILE
           MUST BE GIVEN THE PROGRAM KEY INIT.  THIS PROGRAM REFERENCES INIT1, INIT2,
           ETC. TO GET THE USER IDS TO BE FIXED.  THESE LISTS ARE BUILT BY THE PROGRAM
           AT INIT(1000).
0          Referenced by comments of: 97/2, 104/79 
00097/004   INIT                     INITCHK         SA  G  ICHK    S0027 DISTRB FSNAME=INITCHK                                     
            D4T1    266  INIT.INIT:INITCHK.SA.004           1 LINE     80    4 PAGE UM   ENGLE               DEC. 08, 1975  10:08:45
0          PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "RESONABLE" TIME AND DATE.
           COPIES GRDEF (104/68).
00097/005   INIT                     INIT:INITCHK    OC  G          S0027 DISTRB FSNAME=ICHK                                        
            D4T1    267  INIT.INIT:INITCHK.OC.005           1 LINE     80    3 PAGE UM   ENGLE               DEC. 08, 1975  10:10:31
                         INIT:INITCHK         
00097/006   INIT                     CLEAN           SA  G  SFDS    FILE:SFDESTRY                                                   
            D4T1    268  INIT.INIT:CLEAN.SA.006             1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  22:03:04
                         FILE:SFDESTRY        
0          PROGRAM TO DESTROY SCRATCH FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 97/2 
00097/007   INIT                     CLEAN           OC  G          INIT:CLEAN                                                      
            D4T1    269  INIT.INIT:CLEAN.OC.007             1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  22:03:07
                         INIT:CLEAN           
00097/008   INIT                     DINIT           SA  O  DNIT    S0720 'D3T1' FSNAME=INIT.INIT:DINIT.SA.8(1)                  221
            D4T1    270  INIT.INIT:DINIT.SA.008             1 LINE     80    7 PAGE UM   DWB                 AUG. 01, 1973  00:54.09
0          DRUM INITIALIZATION PROGRAM.  HAS TABLE OF DRUM NAMES TO USE ASSEMBLED IN.  AS DISTRIBUTED, THE TABLE
           CONTAINS TWO NAMES:  DRM1 AND DRM2.  IF THE PROGRAM CAN'T ACQUIRE ANY OF THE SPECIFIED DRUMS FROM THE
           SUPERVISOR, IT PRINTS "NNNN NOT AVAILABLE" AND GOES ON TO THE NEXT DRUM.
1                                                                                               THU SEP 12/96   23:39:34   Page   37
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00097/009   INIT                     DINIT           OC             INIT:DINIT                                                      
            D4T1    271  INIT.INIT:DINIT.OC.009             1 LINE     80    4 PAGE UM   DWB                 JULY 27, 1977  22:03:14
                         INIT:DINIT           
00097/010   INIT                     INITLOG         SA  G          MTA:INITLOG(1,999)                                              
            D4.2T1   43  INIT.INITLOG.SA.010                1 LINE     72    1 PAGE UM   MTA                 MAR. 26, 1979  02:20:55
                         MTA.:INITLOG         
0          PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD.
           COPIES *CNFGINFODSECT (654).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 97/2 
00097/011   INIT                     INITLOG         OC  G          INIT:INITLOG                                                    
            D4.2T1   44  INIT.INITLOG.OC.011                1 LINE    525    1 PAGE UM   MTA                 MAR. 26, 1979  02:20:56
                         INIT:INITLOG         
0          NOTE:  THIS OBJECT FILE CONTAINS AN NCA CARD FOR CNFIGTBL, SINCE THERE IS
                  NO CNFIGTBL ON A 370.
00097/012   INIT                     FMT2305         SA  G          MTA:FMT2305.S                                                   
            D4.2T1   45  INIT.FMT2305.SA.012                1 LINE     68    4 PAGE UBC  MTA                 MAR. 26, 1979  02:20:57
                         MTA.:FMT2305.S       
0          MTS PROGRAM TO INITIALIZE (I.E. FORMAT) A 2305 OR ITS UNDERSTUDY.
           THIS PROGRAM IS RUN FROM INIT:INITCMD (097/2) AT STARTUP TO FORMAT A 2305
           BEFORE STARTING THE PDP.
00097/013   INIT                     FMT2305         OC  G          INIT:FMT2305                                                    
            D4.2T1   46  INIT.FMT2305.OC.013                1 SEQ      80    2 PAGE UBC  MTA                 MAR. 26, 1979  02:20:58
                         INIT:FMT2305         
00097/014   INIT                     INIT:INIT1      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT1           
0          LIST OF USER IDS IN *ACCOUNTING1 WHICH NEED TO BE FIXED AFTER IPL.
00097/015   INIT                     INIT:INIT2      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT2           
0          LIST OF USER IDS IN *ACCOUNTING2 WHICH NEED TO BE FIXED AFTER IPL.
00097/016   INIT                     INIT:INIT3      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT3           
0          LIST OF USER IDS IN *ACCOUNTING3 WHICH NEED TO BE FIXED AFTER IPL.
1                                                                                               THU SEP 12/96   23:39:34   Page   38
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00097/017   INIT                     INIT:INIT4      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT4           
0          LIST OF USER IDS IN *ACCOUNTING4 WHICH NEED TO BE FIXED AFTER IPL.
00097/018   INIT                     INIT:INIT5      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT5           
0          LIST OF USER IDS IN *ACCOUNTING5 WHICH NEED TO BE FIXED AFTER IPL.
00097/019   INIT                     INIT:LOG        D            # MTS:TST.LOG                                                     
                                                                                    UM   MTA                                        
                         INIT:LOG             
0          LOG OF SYSTEM RELOADS.  CONTAINS THE TIME AND DATE OF EACH RELOAD, THE NAME
           OF THE SYSTEM IPLED FROM, THE REASON FOR THE RELOAD (AS ENTERED BY THE OPERATOR),
           THE LIST OF SCRATCH FILES DESTROYED, AND THE LIST OF USER IDS FIXED.
0          Referenced by comments of: 97/2 
00097/020   INIT                     INIT:REASON     D            # MTS:TST.LOG                                                     
                                                                                    UM   MTA                                        
                         INIT:REASON          
0          FILE TO CONTAIN REASON FOR RELOADING AND CURRENT SYSTEM NAME AND COMMENTS
           AFTER EACH RELOAD.
0          Referenced by comments of: 97/2 
00097/021   INIT                     INIT:RELOADLOG  D            # MTS:TST.LOG                                                     
                                                                                    UM   MTA                                        
                         INIT:RELOADLOG       
0          LOG OF SYSTEM RELOADS.  SAME AS INIT:LOG EXCEPT DOES NOT CONTAIN THE LISTS
           OF SCRATCH FILES OR USER IDS.
0          Referenced by comments of: 97/2 
00098      *SQUASH                                   SA           # (OBSOLETED BY *LINKEDIT, COMP 297)                              
            D2T1    278                                                             UM                                              
00099      *IHC                                      M            # (OBSOLETE)                                                      
            D3T1    225  IHC..M.                            1 LINE     68    1 PAGE UM                       JULY 30, 1973  23:46.44
00100/001  *FILEDUMP                                 SA  G  FILD    W045:FILEDUMP                                                   
            D4T1    276  FILEDUMP..SA.001                   1 LINE     80    8 PAGE UM   PIRKOLA             JULY 27, 1977  22:03:25
0          USE *TAPEDUMP INSTEAD.
1                                                                                               THU SEP 12/96   23:39:34   Page   39
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00100/002  *FILEDUMP                                 OC  G          *FILEDUMP                                                       
            D4T1    277  FILEDUMP..OC.002                   1 LINE     80    3 PAGE UM   PIRKOLA             JULY 27, 1977  22:03:27
                         *FILEDUMP            
00101/001   MOUNT COMMAND                            SA  G  MNT     WSG:MOUNTCMD                                                    
            D4.2T1   47  MOUNT_COMMAND..SA.001              1 LINE     80   70 PAGE UM   WSG                 MAR. 26, 1979  02:20:58
                         WSG.:MOUNTCMD        
0          CLS TO MOUNT PRIVATE DEVICES.  SUPPORTS MAGNETIC TAPES, 2671 PAPER TAPE READER, PAPER TAPE
           PUNCHES ON THE UM DATA CONCENTRATOR, 7772 AUDIO RESPONSE UNIT, AND THE MERIT COMPUTER NETWORK.
           MOUNT CONTAINS GLOBAL ASSEMBLY PARAMETERS (DESCRIBED IN THE SOURCE) FOR THE MAXIMUM NUMBER
           OF DEVICES OF EACH TYPE (IF ZERO, THE CODE AND TABLES TO SUPPORT THAT TYPE ARE DELETED).
           ANOTHER ASSEMBLY PARAMETER SPECIFIES THE RACK NUMBER FOR SCRATCH TAPES (DISTRIBUTED 
           AS 'POOL').  OTHER PARAMETERS SPECIFY THE DEFAULT DENSITY FOR SCRATCH TAPES (DISTRIBUTED
           AS 8EN FOR 7-TRACK AND 1600 FOR 9-TRACK).  ANOTHER PARAMETER SPECIFIES WHETHER THE TAPE
           ID IS REQUIRED (AS DISTRIBUTED, IT IS).  ANOTHER PARAMETER SPECIFIES THE SUPERVISOR
           LOCK NUMBER, IF ANY, TO BE USED FOR INTERLOCKING THE OPERATOR COMMUNICATION, I.E. TO
           PREVENT MULTIPLE MOUNT REQUESTS FROM BEING PRESENTED TO THE OPERATOR SIMULTANEOUSLY
           DISTRIBUTED AS ZERO, I.E. NO INTERLOCKING).  MOUNT CALLS THE MNTSTAT SUBROUTINE (447/1)
           TO RECORD A MOUNT STATISTICS RECORD FOR EVERY MOUNT REQUEST.  IT ALSO CALLS CUINFO FOR
           EACH MOUNT DONE BY THE OPERATOR TO INCREMENT THE MOUNT COUNT (FOR BILLING).  MOUNT WILL
           REFUSE ANY MOUNT REQUIRING OPERATOR INTERVENTION IF THE SYSTEM IS IN UNATTENDED MODE
           (BATCH JOBS ARE RERUN).  INTERFACES WITH TAPESHARE (1067/5).  COPIES COPY:LLMPSEQU (087),
           COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND COPY:JOBSTA (413/9).  ASSEMBLE
           WITH SIZE=12 AND USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 101/2, 447/1, 1067/5 
00101/002   MOUNT COMMAND                            OC  G          W030:CLSMOUNT                                                   
            D4.2T1   48  MOUNT_COMMAND..OC.002              1 LINE     80    7 PAGE UM   WSG                 MAR. 26, 1979  02:21:02
                         *CLSMOUNT            
0          OBJECT FOR THE MOUNT COMMAND CLS (101/1), THE MOUNT SUBROUTINE (271/1), THE
           MNTSTAT SUBROUTINE (447/1), AND THE DISMOUNT SUBROUTINE (270/1).  THIS FILE
           IS LOADED INTO SHARED VM AFTER IPL BY PISTLE.
00101/003   MOUNT COMMAND            *MOUNT                       # (OBSOLETED BY $MOUNT)                                           
            D3T1    230  MOUNT.*MOUNT.OC.3                  1 LINE     24    1 PAGE UM                       JULY 30, 1973  23:47.04
00102      *DISMOUNT                                              # (OBSOLETED BY $RELEASE)                                         
            D3T1    232  DISMOUNT.*DISMOUNT.OC.3            1 LINE     24    1 PAGE UM                       JULY 30, 1973  23:47.08
00104/001   ACCOUNTING               ACCFORMAT       SA  G  AFMT    S0027 DISTRB FSNAME=ACCFORMAT                                   
            D4.2T1   49  ACCOUNTING.ACCFORMAT.SA.001        1 SEQ      80    2 PAGE UM   ENGLE               JAN. 09, 1979  15:58:55
0                     COMPONENT 104 CONTAINS THE SOURCE AND OBJECT FOR THE MTS ACCOUNTING ROUTINES.
                      THE FOLLOWING PROGRAMS CAN BE CONSTRUCTED BY COMBINING THE OBJECT FILES AS INDICATED BELOW:
            
                          *ACCRESTORE              ASTR+AFLU+AIO+GTFL+ACAT+FLRT+CSIG+SYSDEFS
                          *STATUS                  STAT+AIO+IOLC+GTFL
                          ACC:ACCDISPLAY           ADSP+ACCLIB
                          ACC:ACCERRORSCAN         ACNS+ACCLIB
                          ACC:ACCFILCHARGE         ADSP+AFLC+ACCLIB
                          ACC:ACCHEXDISP           ADSP+AXPR+ACCLIB
1                                                                                               THU SEP 12/96   23:39:34   Page   40
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                         ACC:ACCLISTING           ALST+ACCLIB
                          ACC:ACCMAINT             AMAT+ACCLIB
                          ACC:ACCPASWD             APSW+GTFL+AIO+FLNM
                          ACC:ACCRETRIEVE          ARTV+ATRD
                          ACC:ACCSAVE              ASAV+ACCLIB
                          ACC:DIRDISPLAY           DDSP+ACCLIB
                          ACC:DIRLIST              DLST+ACCLIB
                          ACC:GETFILECHG           FLUP+AIO+FLRT+TTRP+GTFL+SYSDEFS
                          ACC:PROJECTDISP          APDS+ACCLIB
                          ACC:PROJECTIDS           APID+ACCLIB
                          ACC:PROJECTLIST          APLS+ACCLIB
                          ACC:PROJECTMAINT         APMT+ACCLIB
                          ACC:STAPROJECT           SPCL+(AMXM PATCHED FROM SPPA)+AUPR+ACCLIB
                          ACCUPDAT                 ARDW+PRINT+AIO+TTRP+GTFL+OLDPRINT+ACCPRINT+ACCUPDAT
                          INIT:INIT(1,999)         AINT+AFLU+AIO+ACAT+FLRT+CSIG+GTFL+SYSDEFS
                          INIT:INIT(1000)          AINS+FLNM+GTFL
            
                          ACC:ACCLIB               ACAT+AERR+AFIN+AFKF+AFLA+AFIO+AFLU+AIO+ALPR+ALST+APLS+APPR+APRT+CSIG+DIR+DPRT+FIOC
                                                   +FLNM+FLRT+FLSH+GPID+GTFL+IOLC+LCNT+LOG+RBTA+STRD+TMCL+TTRP+SYSDEFS
                                                   (SEE ACCOUNTING CLS FOR FIOC (631/12) AND REBATE FOR RBTA (632/4) AND STRD (632/6)).
            
                      ACCFORMAT (104/1) IS THE COPY SECTION THAT DESCRIBES THE ACCOUNTING FILE RECORD FORMAT.
                      IT IS COPIED UNDER THE NAME "ACCFORMAT" BY COMPONENTS OF THE ACCOUNTING SYSTEM.
            
                      ****** NOTE:  ACCOUNTING PROGRAMS HAVE A GBLB SYMBOL (&DC) TO ELIMINATE THE ASSEMBLY
                                    OF INSTRUCTIONS FOR THE DATA CELL.  IF THE VALUE OF &DC IS 0, THE
                                    INSTRUCTIONS WILL NOT BE ASSEMBLED.  IF THE VALUE IS 1, THE INSTRUCTIONS
                                    WILL BE ASSEMBLED.  ALL DISTRIBUTION PROGRAMS HAVE THE VALUE SET TO 0,
                                    AND THE RESULTS OF SETTING &DC TO 1 ARE NOT GUARANTEED.
0          Referenced by comments of: 104/1, 104/4, 104/6, 104/12, 104/14, 104/18, 104/29, 104/48, 104/51, 104/62, 104/64,
                 104/77, 104/79, 104/84, 104/86, 104/89, 104/95, 502/1, 586/1, 631/6, 631/9, 632/3 
00104/002   ACCOUNTING               ACCPROJFMT      SA  G          S0027 DISTRB FSNAME=ACCPROJFMT                                  
            D4.2T1   50  ACCOUNTING.ACCPROJFMT.SA.002       1 LINE     80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:25:29
0          COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT.
0          Referenced by comments of: 104/18, 104/33, 104/40, 104/51, 104/132, 500/20, 500/24, 631/6 
00104/003   ACCOUNTING               ACCPROJFMT      UC  G        # S0027 DISTRB FSNAME=ACCPROJFMTUP                                
            D4.2T1   51  ACCOUNTING.ACCPROJFMT.UC.003       1 LINE     67    1 PAGE UM   ENGLE               JAN. 25, 1979  16:25:32
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/004   ACCOUNTING               ACCERROR        SA  G  AERR    S0027 DISTRB FSNAME=ACCERROR                                    
            D4.2T1   52  ACCOUNTING.ACCERROR.SA.004         1 LINE     80    8 PAGE UM   ENGLE               JAN. 10, 1979  16:30:18
0          CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN.
           COPIES ACCFORMAT (104/1).
1                                                                                               THU SEP 12/96   23:39:34   Page   41
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/005   ACCOUNTING               ACCERROR        OC  G          S0027 DISTRB FSNAME=AERR                                        
            D4.2T1   53  ACCOUNTING.ACCERROR.OC.005         1 LINE     80    2 PAGE UM   ENGLE               JAN. 11, 1979  11:04:50
00104/006   ACCOUNTING               ACCPRINT        SA  G  APRT    S0027 DISTRB FSNAME=ACCPRINT                                    
            D4.2T1   54  ACCOUNTING.ACCPRINT.SA.006         1 LINE     80   10 PAGE UM   ENGLE               JAN. 09, 1979  15:31:15
0          FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS.
           COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/125 
00104/007   ACCOUNTING               ACCPRINT        OC  G          S0027 DISTRB FSNAME=APRT                                        
            D4.2T1   55  ACCOUNTING.ACCPRINT.OC.007         1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  15:31:21
00104/008   ACCOUNTING               ACCLIST         SA  G  ALST    S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.SA.8(1)               240
            D4T1    286  ACCOUNTING.ACCLIST.SA.007          1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  16:22.45
0          READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD.
00104/009   ACCOUNTING               ACCLIST         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.OC.9(1)               241
            D4T1    287  ACCOUNTING.ACCLIST.OC.008          1 LINE     80    1 DISK UM   ENGLE               OCT. 03, 1972  15:12.04
00104/010   ACCOUNTING               ACCLIST         OC  G        # ACC:ACCLISTING                                                  
                                                                                    UM   ENGLE                                      
                         ACC:ACCLISTING       
00104/011   ACCOUNTING               ACCLIST         OC  G        # MTS:TST.ACCLIST                                                 
                                                                                    UM   ENGLE                                      
                         ACC:ACCLIST          
0          PROGRAM TO PRINT EVERY FIELD OF EACH ACCOUNTING RECORD.  ACCLIST+ACCPRINT.
00104/012   ACCOUNTING               ACCINITL        SA  G  AINT    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCINITL.SA.10(1)           130
            D4T1    288  ACCOUNTING.ACCINITL.SA.009         1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  13:31.37
0          RESTORES LOCK BITS AND FILE SPACE FIELDS FOR ALL RECORDS WITH CURRENT NUMBER OF SIGNONS > 0.
           COPIES ACCFORMAT (104/1).
00104/013   ACCOUNTING               ACCINITL        OC  G          S0027 DISTRB FSNAME=AINT                                        
            D4T1    289  ACCOUNTING.ACCINITL.OC.010         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:07:50
00104/014   ACCOUNTING               STATUS          SA  G  STAT    S0027 DISTRB FSNAME=STATUS                                      
            D4.1T1   40  ACCOUNTING.STATUS.SA.013           1 LINE     80   19 PAGE UM   ENGLE               FEB. 27, 1978  12:34:41
0          MAIN PROGRAM FOR *STATUS.  COPIES ACCFORMAT (104/1) AND *CNFGINFODSECT (654).
00104/015   ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STAT                                        
            D4.1T1   41  ACCOUNTING.STATUS.OC.014           1 LINE     80    5 PAGE UM   ENGLE               FEB. 27, 1978  12:34:52
0          Referenced by comments of: 129/2 
1                                                                                               THU SEP 12/96   23:39:34   Page   42
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/016   ACCOUNTING               FILERATE        SA  G  FLRT    S0027 DISTRB FSNAME=FILERATE                                    
            D4T1    292  ACCOUNTING.FILERATE.SA.013         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:10:41
0          SUBROUTINE TO RETURN A CURRENT RATE NUMBER AND THE FILE RATES FOR A SIGNON ID.
           COPIES GRDEF (104/68) AND COPY:RATEVEC (651/2).
0          Referenced by comments of: 484/1 
00104/017   ACCOUNTING               FILERATE        OC  G          S0027 DISTRB FSNAME=FLRT                                        
            D4T1    293  ACCOUNTING.FILERATE.OC.014         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:11:04
00104/018   ACCOUNTING               ACCMAINT        SA  G  AMAT    S0027 DISTRB FSNAME=ACCMAINT                                    
            D4.2T1   56  ACCOUNTING.ACCMAINT.SA.018         1 LINE     80   58 PAGE UM   ENGLE               JAN. 25, 1979  16:37:32
0          MAIN PROGRAM FOR ACCMAINT.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
           THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG)
           INTO WHICH A LOG IS WRITTEN.
00104/019   ACCOUNTING               ACCMAINT        UC  G        # S0027 DISTRB FSNAME=ACCMAINTUPD                                 
            D4.2T1   57  ACCOUNTING.ACCMAINT.UC.019         1 LINE     72    2 PAGE UM   ENGLE               JAN. 25, 1979  16:37:51
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/020   ACCOUNTING               ACCMAINT        OC  G          S0027 DISTRB FSNAME=AMAT                                        
            D4.2T1   58  ACCOUNTING.ACCMAINT.OC.020         1 LINE     80   10 PAGE UM   ENGLE               JAN. 25, 1979  16:37:55
0          Referenced by comments of: 104/125 
00104/021   ACCOUNTING               ACCMAINT        OE  G        # ACC:ACCMAINT                                                    
                                                                                    UM   ENGLE                                      
                         ACC:ACCMAINT         
0          Referenced by comments of: 104/123 
00104/022   ACCOUNTING               ACCIO           SA  G  AIO     S0027 DISTRB FSNAME=ACCIO                                       
            D4T1    296  ACCOUNTING.ACCIO.SA.017            1 LINE     80   15 PAGE UM   ENGLE               JUNE 04, 1976  14:22:22
0          GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S).
0          Referenced by comments of: 104/39 
00104/023   ACCOUNTING               ACCIO           OC  G          S0027 DISTRB FSNAME=AIO                                         
            D4T1    297  ACCOUNTING.ACCIO.OC.018            1 LINE     80    3 PAGE UM   ENGLE               JUNE 04, 1976  14:22:35
0          THERE ARE REP CARDS IN THIS FILE TO CHANGE FILE NAMES TO PUBLIC FILES.
0          Referenced by comments of: 129/2, 484/1, 631/13 
00104/024   ACCOUNTING               ACCGFUPD        SA  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.ACCGFUPD.SA.19(1)            66
            D4T1    298  ACCOUNTING.ACCGFUPD.SA.019         1 LINE     72    1 PAGE UM   ENGLE               MAR. 21, 1975  01:02:18
0          PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS.  RUN WITH ACCRDWRT (104/31).
1                                                                                               THU SEP 12/96   23:39:34   Page   43
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 104/31, 682/40 
00104/025   ACCOUNTING               ACCGFUPD        OC  G          W013:ACCGFUPD(1,98)                                             
            D4T1    299  ACCOUNTING.ACCGFUPD.OC.020         1 LINE     80    1 PAGE UM   ENGLE               JULY 27, 1977  22:10:30
00104/026   ACCOUNTING               ACCDSPLA        SA  G  ADSP    S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.SA.22(1)             254
            D4T1    300  ACCOUNTING.ACCDSPLA.SA.021         1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  12:08.13
0          PROGRAM TO READ A SPECIFIC RECORD OF THE ACCOUNTING FILE AND CALL ACCPRINT FOR IT.
00104/027   ACCOUNTING               ACCDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.OC.23(1)             255
            D4T1    301  ACCOUNTING.ACCDSPLA.OC.022         1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  12:08.26
00104/028   ACCOUNTING               ACCDSPLA        OC  G        # ACC:ACCDISPLAY                                                  
                                                                                    UM   ENGLE                                      
                         ACC:ACCDISPLAY       
00104/029   ACCOUNTING               ACCSTRUP        SA  G  ASTR    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSTRUP.SA.24(1)           137
            D4T1    302  ACCOUNTING.ACCSTRUP.SA.023         1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  13:43.30
0          MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1).
00104/030   ACCOUNTING               ACCSTRUP        OC  G          S0027 DISTRB FSNAME=ASTR                                        
            D4T1    303  ACCOUNTING.ACCSTRUP.OC.024         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:19:52
0          Referenced by comments of: 484/1 
00104/031   ACCOUNTING               ACCRDWRT        SA  G  ARDW    S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.SA.26(1)             258
            D4T1    304  ACCOUNTING.ACCRDWRT.SA.025         1 LINE     80    6 PAGE UM   ENGLE               OCT. 05, 1972  12:20.15
0          PROGRAM TO PERFORM GENERAL REFORMATTING OPERATION ON THE ACCOUNTING FILE. IT CALLS A USER PROVIDED
           SUBROUTINE CALLED ACCUPDAT TO DO THE ACTUAL REFORMATTING. ACCGFUPD (104/24) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE
           COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION.
0          Referenced by comments of: 104/24, 682/40 
00104/032   ACCOUNTING               ACCRDWRT        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.OC.27(1)             259
            D4T1    305  ACCOUNTING.ACCRDWRT.OC.026         1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  12:20.35
0          Referenced by comments of: 104/64 
00104/033   ACCOUNTING               PCONVERT        SA  G          S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.SA.28(1)           139
            D4T1    306  ACCOUNTING.PCONVERT.SA.027         1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:33.24
0          PRJPRINT SUBROUTINE TO CONVERT A DISTRIBUTION 3.0 PROJECT FILE TO DISTRIBUTIONS 3.1, 3.2, OR 4.0
           (WHICH ARE ALL THE SAME) BY ADDING NETWORK FIELDS AND FLAG.
           TO USE, RUN PRJLIST (104/43) + PCONVERT + ACCLIB (104/39).  NEW PROJECT FILE IS PRODUCED ON SPUNCH.
           COPIES ACCPROJFMT (104/2).
00104/034   ACCOUNTING               PCONVERT        OC  G          S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.OC.29(1)           140
            D4T1    307  ACCOUNTING.PCONVERT.OC.028         1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:33.42
1                                                                                               THU SEP 12/96   23:39:34   Page   44
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/035   ACCOUNTING               ACCPRJMT        SA  G  APMT    S0027 DISTRB FSNAME=ACCPRJMT                                    
            D4.2T1   59  ACCOUNTING.ACCPRJMT.SA.035         1 LINE     80   29 PAGE UM   ENGLE               FEB. 05, 1979  17:30:21
0          MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT.  RUN WITH PROT=OFF.
           THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO
           WHICH A LOG IS WRITTEN.
0          Referenced by comments of: 104/125 
00104/036   ACCOUNTING               ACCPRJMT        UC  G        # S0027 DISTRB FSNAME=ACCPRJMTUPD                                 
            D4.2T1   60  ACCOUNTING.ACCPRJMT.UC.036         1 LINE     73    2 PAGE UM   ENGLE               FEB. 05, 1979  17:30:30
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/037   ACCOUNTING               ACCPRJMT        OC  G          S0027 DISTRB FSNAME=APMT                                        
            D4.2T1   61  ACCOUNTING.ACCPRJMT.OC.037         1 LINE     80    5 PAGE UM   ENGLE               JAN. 25, 1979  16:26:26
00104/038   ACCOUNTING               ACCPRJMT        OE  G        # ACC:PROJECTMAINT                                                
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTMAINT     
00104/039   ACCOUNTING               ACCLIB          OL  G          S0027 DISTRB FSNAME=ACCLIB                                      
            D4.2T1   62  ACCOUNTING.ACCLIB.OL.039           1 LINE    780   24 PAGE UM   ENGLE               FEB. 02, 1979  14:41:05
                         ACC:ACCLIB           
0          THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/22) TO PUBLIC FILES.
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  R PKEY=FILEINFO.
0          Referenced by comments of: 104/33, 632/3, 632/6, 682/40 
00104/040   ACCOUNTING               ACPRJPRT        SA  G  APPR    S0027 DISTRB FSNAME=ACPRJPRT                                    
            D4.2T1   63  ACCOUNTING.ACPRJPRT.SA.040         1 LINE     80    9 PAGE UM   ENGLE               JAN. 25, 1979  16:30:30
0          SUBROUTINE TO PRINT A RECORD FROM *PROJECT.
           COPIES ACCPROJFMT (104/2).
0          Referenced by comments of: 104/125 
00104/041   ACCOUNTING               ACPRJPRT        OC  G          S0027 DISTRB FSNAME=APPR                                        
            D4.2T1   64  ACCOUNTING.ACPRJPRT.OC.041         1 LINE     80    4 PAGE UM   ENGLE               JAN. 25, 1979  16:30:35
00104/042   ACCOUNTING               PRJLIST         SA  G  APLS    S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.SA.35(1)              267
            D4T1    313  ACCOUNTING.PRJLIST.SA.034          1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  15:13.34
0          PROGRAM TO READ EACH RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT.
0          Referenced by comments of: 500/24 
00104/043   ACCOUNTING               PRJLIST         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.OC.36(1)              268
            D4T1    314  ACCOUNTING.PRJLIST.OC.035          1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:13.55
0          Referenced by comments of: 104/33 
1                                                                                               THU SEP 12/96   23:39:34   Page   45
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/044   ACCOUNTING               PRJLIST         OC  G        # ACC:PROJECTLIST                                                 
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTLIST      
00104/045   ACCOUNTING               PRJDSPLA        SA  G  APDS    S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.SA.37(1)             269
            D4T1    315  ACCOUNTING.PRJDSPLA.SA.036         1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  15:17.03
0          PROGRAM TO READ A SPECIFIC RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT.
00104/046   ACCOUNTING               PRJDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.OC.38(1)             270
            D4T1    316  ACCOUNTING.PRJDSPLA.OC.037         1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:17.49
00104/047   ACCOUNTING               PRJDSPLA        OC  G        # ACC:PROJECTDISP                                                 
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTDISP      
00104/048   ACCOUNTING               ACCPASWD        SA  G  APSW    S0027 DISTRB FSNAME=ACCPASWD                                    
            D4.2T1   65  ACCOUNTING.ACCPASWD.SA.048         1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  15:29:57
0          PROGRAM TO GENERATE A RANDOM PASSWORD FOR AN ACCOUNTING RECORD AND PRINT THE NEW PASSWORD PLUS
           THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET.  THIS PROGRAM WRITES AN AUDIT
           TRAIL IN THE FILE *PWSTAT, WHICH MUST EXIST AS A LINE FILE WITH AT LEAST ONE LINE
           (WHICH MAY BE ANYTHING).  RUN WITH PROT=OFF.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/141, 104/142, 104/149 
00104/049   ACCOUNTING               ACCPASWD        OC  G          S0027 DISTRB FSNAME=APSW                                        
            D4.2T1   66  ACCOUNTING.ACCPASWD.OC.049         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1979  15:30:04
00104/050   ACCOUNTING               ACCPASWD        OE  G        # WPSW:PROGRAM1                                                   
                                                                                    UM   ENGLE                                      
                         ACC:ACCPASWD         
00104/051   ACCOUNTING               ACONSIST        SA  G  ACNS    S0027 DISTRB FSNAME=ACONSIST                                    
            D4.2T1   67  ACCOUNTING.ACONSIST.SA.051         1 LINE     80   13 PAGE UM   ENGLE               JAN. 10, 1979  16:37:32
0          MAIN PROGRAM FOR ACCERRORSCAN.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
0          Referenced by comments of: 104/125 
00104/052   ACCOUNTING               ACONSIST        OC  G          S0027 DISTRB FSNAME=ACNS                                        
            D4.2T1   68  ACCOUNTING.ACONSIST.OC.052         1 LINE     80    4 PAGE UM   ENGLE               JAN. 10, 1979  16:37:40
00104/053   ACCOUNTING               ACONSIST        OC  G        # ACC:ACCERRORSCAN                                                
                                                                                    UM   ENGLE                                      
                         ACC:ACCERRORSCAN     
00104/054   ACCOUNTING               FILENAME        SA  G  FLNM    S0027 DISTRB FSNAME=FILENAME                                    
            D4.2T1   69  ACCOUNTING.FILENAME.SA.054         1 LINE     80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:39:44
0          CONTAINS THE NAMES OF THE FILES *ACCOUNTING, *PWSTAT, *PROJECT, *PROJDIRECTORY, AND *STATISTICS.
1                                                                                               THU SEP 12/96   23:39:34   Page   46
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/055   ACCOUNTING               FILENAME        UC  G        # S0027 DISTRB FSNAME=FILENAMEUPD                                 
            D4.2T1   70  ACCOUNTING.FILENAME.UC.055         1 LINE     39    1 PAGE UM   ENGLE               JAN. 25, 1979  16:39:54
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/056   ACCOUNTING               FILENAME        OC  G          S0027 DISTRB FSNAME=FLNM                                        
            D4.2T1   71  ACCOUNTING.FILENAME.OC.056         1 SEQ      80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:40:00
0          Referenced by comments of: 631/13 
00104/057   ACCOUNTING               DIRECTRY        SA  G  DIR     S0027 DISTRB FSNAME=DIRECTRY                                    
            D4.2T1   72  ACCOUNTING.DIRECTRY.SA.057         1 LINE     80   17 PAGE UM   ENGLE               JAN. 10, 1979  15:27:14
0          I/O SUBROUTINES FOR THE DIRECTORY FILE.  COPIES *CNFGINFODSECT (654).
00104/058   ACCOUNTING               DIRECTRY        OC  G          S0027 DISTRB FSNAME=DIR                                         
            D4.2T1   73  ACCOUNTING.DIRECTRY.OC.058         1 LINE     80    4 PAGE UM   ENGLE               JAN. 10, 1979  15:27:27
0          Referenced by comments of: 631/13 
00104/059   ACCOUNTING               DIRLIST         SA  G  DLST    S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRLIST.SA.46(1)             79
            D4T1    325  ACCOUNTING.DIRLIST.SA.046          1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  11:36.26
0          MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY.
00104/060   ACCOUNTING               DIRLIST         OC  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRLIST.OC.47(1)             80
            D4T1    326  ACCOUNTING.DIRLIST.OC.047          1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  11:36.55
00104/061   ACCOUNTING               DIRLIST         OC  G        # ACC:DIRLIST                                                     
                                                                                    UM   ENGLE                                      
                         ACC:DIRLIST          
00104/062   ACCOUNTING               FILUPDAT        SA  G  FLUP    S0027 DISTRB FSNAME=FILUPDAT                                    
            D4.2T1   74  ACCOUNTING.FILUPDAT.SA.062         1 LINE     80    7 PAGE UM   ENGLE               MAR. 07, 1979  12:02:47
0          PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE
           CURRENT MONTH (IF NO PAR= IS GIVEN) OR EXPIRATION TIME.  IF PAR=MM/DD/YY IS
           GIVEN, UPDATE IS TO 24:00:00 OF MM/DD/YY OR EXPIRATION TIME.  IF PAR=
           MM/DD/YY HH:MM:SS IS GIVEN, UPDATE IS TO SPECIFIED TIME OR EXPIRATION TIME.
           PROGRAM UPDATES THE ACCOUNTING RECORD AND WRITES A STATISTICS RECORD FOR BILLING.
           RUN WITH PROT=OFF.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/141, 104/142 
00104/063   ACCOUNTING               FILUPDAT        OC  G          S0027 DISTRB FSNAME=FLUP                                        
            D4.2T1   75  ACCOUNTING.FILUPDAT.OC.063         1 LINE     80    3 PAGE UM   ENGLE               MAR. 07, 1979  12:02:58
00104/064   ACCOUNTING               ACONVERT        SA  G  ACNV    S0027 DISTRB FSNAME=ACONVERT                                    
            D4T1    329  ACCOUNTING.ACONVERT.SA.050         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:41:10
0          ACCUPDAT SUBROUTINE TO CONVERT A DISTRIBUTION 3.2 ACCOUNTING FILE TO THE NEW FORMAT WHICH INCLUDES PLOTTER PAPER AND PEN
           FIELDS.  USE WITH ACCRDWRT (104/32).  COPIES ACCFORMAT (104/1).
1                                                                                               THU SEP 12/96   23:39:34   Page   47
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/065   ACCOUNTING               ACONVERT        OC  G          S0027 DISTRB FSNAME=ACNV                                        
            D4T1    330  ACCOUNTING.ACONVERT.OC.051         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:41:16
00104/066   ACCOUNTING               STAPROJECT      OC  O          S0027 DISTRB FSNAME=STAPROJECT                                  
            D4.2T1   76  ACCOUNTING.STAPROJECT.OC.066       1 LINE     80    5 PAGE UM   ENGLE               JAN. 25, 1979  16:32:39
0          PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT.
           PRODUCED BY ASSEMBLING ACCMXMAT (631/6) WITH &STAPRJ SET TO ONE.  RUN WITH PROT=OFF.
0          Referenced by comments of: 631/6 
00104/067   ACCOUNTING               STAPROJECT      OE  G        # ACC:STAPROJECT                                                  
                                                                                    UM   ENGLE                                      
                         ACC:STAPROJECT       
0          LINKEDITED VERSION OF 104/66 + AUPR (631/8) + "$CONTINUE WITH ACC:ACCLIB".
00104/068   ACCOUNTING               GRDEF           SA  G  GRDF    S0720 'D3T1' FSNAME=ACCOUNTING.GRDEF.SA.58(1)                290
            D4T1    336  ACCOUNTING.GRDEF.SA.057            1 SEQ      80    1 PAGE UM   ENGLE               JAN. 10, 1973  17:16.39
0          COPY SECTION.
0          Referenced by comments of: 97/4, 104/16, 104/77, 104/79, 104/81, 104/89, 104/93, 104/100, 104/112, 104/132, 360/1,
                 500/30, 586/1, 631/1, 631/4, 631/11, 632/3, 708/1 
00104/069   ACCOUNTING               WKDAY           SA  G  WKDA    S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.SA.59(1)                291
            D4T1    337  ACCOUNTING.WKDAY.SA.058            1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1973  12:14.08
0          SUBROUTINE TO PRODUCE THE DAY OF THE WEEK FOR A GIVEN DATE.  USED IN INITCHK (104/76).
00104/070   ACCOUNTING               WKDAY           OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.OC.60(1)                292
            D4T1    338  ACCOUNTING.WKDAY.OC.059            1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  12:14.29
00104/071   ACCOUNTING               DIRDSPLA        SA  G  DDSP    S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.SA.61(1)             293
            D4T1    339  ACCOUNTING.DIRDSPLA.SA.060         1 LINE     80    3 PAGE UM   ENGLE               JAN. 12, 1973  13:57.36
0          PROGRAM TO READ A SPECIFIC RECORD FROM *PRJDIRECTORY AND CALL DIRPRINT FOR IT.
00104/072   ACCOUNTING               DIRDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.OC.62(1)             294
            D4T1    340  ACCOUNTING.DIRDSPLA.OC.061         1 LINE     80    1 DISK UM   ENGLE               JAN. 12, 1973  13:57.46
00104/073   ACCOUNTING               DIRDSPLA        OC  G        # ACC:DIRDISPLAY                                                  
                                                                                    UM   ENGLE                                      
                         ACC:DIRDISPLAY       
00104/074   ACCOUNTING               DIRPRINT        SA  G  DPRT    S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRPRINT.SA.62(1)            90
            D4T1    341  ACCOUNTING.DIRPRINT.SA.062         1 LINE     80    6 PAGE UM   ENGLE               DEC. 06, 1974  12:00.11
0          SUBROUTINE TO FORMAT A DIRECTORY ENTRY FOR PRINTING.  USED IN ACC:ACCLIB.
00104/075   ACCOUNTING               DIRPRINT        OC  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRPRINT.OC.63(1)            91
            D4T1    342  ACCOUNTING.DIRPRINT.OC.063         1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  12:00.34
1                                                                                               THU SEP 12/96   23:39:34   Page   48
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/076   ACCOUNTING               INITCHK                      # (SEE COMP 097/5 AND 097/6)                                      
                                                                                    UM   ENGLE                                      
0          Referenced by comments of: 104/69 
00104/077   ACCOUNTING               ACCFLUPD        SA  G  AFLU    S0027 DISTRB FSNAME=ACCFLUPD                                    
            D4T1    343  ACCOUNTING.ACCFLUPD.SA.065         1 LINE     80    7 PAGE UM   ENGLE               JUNE 02, 1976  12:42:09
0          SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD.
           COPIES ACCFORMAT (104/1) AND GRDEF (104/68).
00104/078   ACCOUNTING               ACCFLUPD        OC  G          S0027 DISTRB FSNAME=AFLU                                        
            D4T1    344  ACCOUNTING.ACCFLUPD.OC.066         1 LINE     80    2 PAGE UM   ENGLE               JUNE 02, 1976  12:42:15
0          Referenced by comments of: 484/1 
00104/079   ACCOUNTING               ACCINSCN        SA  G  AINS    S0027 DISTRB FSNAME=ACCINSCN                                    
            D4T1    345  ACCOUNTING.ACCINSCN.SA.067         1 LINE     80    6 PAGE UM   ENGLE               DEC. 05, 1975  11:57:04
0          USED IN INIT:INIT (097/3).  COPIES ACCFORMAT (104/1) AND GRDEF (104/68).
00104/080   ACCOUNTING               ACCINSCN        OC  G          S0027 DISTRB FSNAME=AINS                                        
            D4T1    346  ACCOUNTING.ACCINSCN.OC.068         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  11:57:12
00104/081   ACCOUNTING               CURSIG          SA  G  CSIG    S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.SA.70(1)               301
            D4T1    347  ACCOUNTING.CURSIG.SA.069           1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1973  17:55.52
0          SUBROUTINE TO DETERMINE NUMBER OF CURRENT SIGNONS.  COPIES GRDEF (104/68) AND *LLMPSEQU.  NOTE THAT THE
           SOURCE SHOULD BE CHANGED (IF RE-ASSEMBLED) SO THAT IT COPIES COPY:LLMPSEQU (087) INSTEAD OF *LLMPSEQU
           WHICH NO LONGER EXISTS.
00104/082   ACCOUNTING               CURSIG          OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.OC.71(1)               302
            D4T1    348  ACCOUNTING.CURSIG.OC.070           1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:56.03
0          Referenced by comments of: 484/1 
00104/083   ACCOUNTING               DEDFLFIX                     # (SEE COMP 502/9 AND 502/10)                                     
                                                                                    UM   ENGLE                                      
00104/084   ACCOUNTING               ACCLSTPR        SA  G  ALPR    S0027 DISTRB FSNAME=ACCLSTPR                                    
            D4.2T1   77  ACCOUNTING.ACCLSTPR.SA.084         1 LINE     80    9 PAGE UM   ENGLE               JAN. 09, 1979  15:32:09
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/125 
00104/085   ACCOUNTING               ACCLSTPR        OC  G          S0027 DISTRB FSNAME=ALPR                                        
            D4.2T1   78  ACCOUNTING.ACCLSTPR.OC.085         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1979  15:32:23
00104/086   ACCOUNTING               ACCFLCHG        SA  G  AFLC    S0027 DISTRB FSNAME=ACCFLCHG                                    
            D4T1    351  ACCOUNTING.ACCFLCHG.SA.074         1 LINE     80    4 PAGE UM   ENGLE               MAY  14, 1976  16:23:03
0          SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD.
           CALLED BY ACCDSPLA.  COPIES ACCFORMAT (104/1).
1                                                                                               THU SEP 12/96   23:39:34   Page   49
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/087   ACCOUNTING               ACCFLCHG        OC  G          S0027 DISTRB FSNAME=AFLC                                        
            D4T1    352  ACCOUNTING.ACCFLCHG.OC.075         1 LINE     80    1 PAGE UM   ENGLE               MAY  14, 1976  16:23:10
0          PATCHED TO AGREE WITH SOURCE.
00104/088   ACCOUNTING               ACCFLCHG        OE  G        # ACC:ACCFILCHARGE                                                
                                                                                    UM   ENGLE                                      
                         ACC:ACCFILCHARGE     
0          ACCDSPLA+ACCFLCHG
00104/089   ACCOUNTING               APSWDISP        SA  G  APWD    S0720 'D3T1' FSNAME=ACCOUNTING.APSWDISP.SA.77(1)             307
            D4T1    353  ACCOUNTING.APSWDISP.SA.076         1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1973  18:07.38
0          SUBROUTINE TO PRINT INTERNAL PASSWORD REPRESENTATION AND LAST DATE AND TIME SET FOR AN ACCOUNTING RECORD.
           CALLED BY ACCDSPLA.  COPIES ACCFORMAT (104/1) AND GRDEF (104/68).
00104/090   ACCOUNTING               APSWDISP        OC  G          S0027 DISTRB FSNAME=APWD                                        
            D4T1    354  ACCOUNTING.APSWDISP.OC.077         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  12:20:25
00104/091   ACCOUNTING               ACCHEXPR        SA  O  AXPR    S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.SA.79(1)             309
            D4T1    355  ACCOUNTING.ACCHEXPR.SA.078         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1973  10:55.07
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN HEX.  CALLED BY ACCDSPLA.
00104/092   ACCOUNTING               ACCHEXPR        OC  O          S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.OC.80(1)             310
            D4T1    356  ACCOUNTING.ACCHEXPR.OC.079         1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  10:55.43
00104/093   ACCOUNTING               TIMETRP         SA  G  TTRP    S0964 'D3.2T1' FSNAME=ACCOUNTING.TIMETRP.SA.80(1)            101
            D4T1    357  ACCOUNTING.TIMETRP.SA.080          1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:04.25
0          SUBROUTINE TO SET UP REAL TIME INTERRUPTS AND SET A FLAG AT THE INTERRUPT.  COPIES GRDEF (104/68).
00104/094   ACCOUNTING               TIMETRP         OC  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.TIMETRP.OC.81(1)            102
            D4T1    358  ACCOUNTING.TIMETRP.OC.081          1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:04.41
0          Referenced by comments of: 631/13 
00104/095   ACCOUNTING               ACCSGATR        SA  G  ASAR    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.SA.83(1)           165
            D4T1    359  ACCOUNTING.ACCSGATR.SA.082         1 LINE     80    5 PAGE UM   ENGLE               JAN. 08, 1974  14:50.39
0          PROGRAM TO RESET SIGNON ATTENTION FLAG IN A USERS ACCOUNTING RECORD.
           THIS PROGRAM WRITES AN AUDIT TRAIL IN THE FILE *PWSTAT, WHICH MUST EXIST AS A LINE FILE
           WITH AT LEAST ONE LINE (WHICH MAY BE ANYTHING).  RUN WITH PROT=OFF.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/141, 104/142, 104/149 
00104/096   ACCOUNTING               ACCSGATR        OC  G          S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.OC.84(1)           166
            D4T1    360  ACCOUNTING.ACCSGATR.OC.083         1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  14:53.32
00104/097   ACCOUNTING               ACCSAVE         SA  G  ASAV    S0027 DISTRB FSNAME=ACCSAVE                                     
            D4T1    361  ACCOUNTING.ACCSAVE.SA.084          1 LINE     80    8 PAGE UM   ENGLE               DEC. 05, 1975  12:22:04
0          MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE.
1                                                                                               THU SEP 12/96   23:39:34   Page   50
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 104/127 
00104/098   ACCOUNTING               ACCSAVE         OC  G          S0027 DISTRB FSNAME=ASAV                                        
            D4T1    362  ACCOUNTING.ACCSAVE.OC.085          1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  12:22:10
00104/099   ACCOUNTING               ACCSAVE         OE  G        # ACC:ACCSAVE                                                     
                                                                                    UM   ENGLE                                      
                         ACC:ACCSAVE          
00104/100   ACCOUNTING               ACCTAPRD        SA  G  ATRD    S0027 DISTRB FSNAME=ACCTAPRD                                    
            D4T1    363  ACCOUNTING.ACCTAPRD.SA.086         1 LINE     80    4 PAGE UM   ENGLE               DEC. 05, 1975  12:24:14
0          VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES.
           COPIES GRDEF (104/68).
00104/101   ACCOUNTING               ACCTAPRD        OC  G          S0027 DISTRB FSNAME=ATRD                                        
            D4T1    364  ACCOUNTING.ACCTAPRD.OC.087         1 LINE     80    2 PAGE UM   ENGLE               DEC. 05, 1975  12:24:24
00104/102   ACCOUNTING               GETFILE         SA  G  GTFL    S0027 DISTRB FSNAME=GETFILE                                     
            D4.1T1   50  ACCOUNTING.GETFILE.SA.102          1 LINE     80    3 PAGE UM   ENGLE               FEB. 27, 1978  11:04:45
0          SUBROUTINE TO GET A FDUB, ETC.
00104/103   ACCOUNTING               GETFILE         OC  G          S0027 DISTRB FSNAME=GTFL                                        
            D4.1T1   51  ACCOUNTING.GETFILE.OC.103          1 LINE     80    1 PAGE UM   ENGLE               FEB. 27, 1978  11:04:47
0          Referenced by comments of: 129/2, 484/1, 631/13 
00104/104   ACCOUNTING               ACATALOG        SA  G  ACAT    FILE:ACATALOG                                                   
            D4.2T1   79  ACCOUNTING.ACATALOG.SA.104         1 LINE     80    4 PAGE UM   HELFFRICH           MAR. 26, 1979  02:25:39
                         FILE:ACATALOG        
0          SUBROUTINE THAT GETS THE CURRENT DISK AND DATA CELL SPACE FOR A USER FROM THE CATALOG AND DSCB. USED BY
           ACC:ACCMAINT, INIT:INIT, AND *ACCRESTORE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00104/105   ACCOUNTING               ACATALOG        OC  G          FILE:ACATALOG.O                                                 
            D4.2T1   80  ACCOUNTING.ACATALOG.OC.105         1 LINE     80    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:25:40
                         FILE:ACATALOG.O      
0          Referenced by comments of: 484/1 
00104/106   ACCOUNTING               ACATALOG        SA  G          MTA:ACATALOG(1,999)                                             
            D4T1    369  ACCOUNTING.ACATALOG.SA.092         1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  22:18:36
                         MTA.:ACATALOG        
0          THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION,
           BUT CALLS THE ACATSUB SUBROUTINE (104/108) TO BUILD A TABLE OF USER ID VERSUS FILE SPACE FOR ALL USERS ON THE
           FIRST CALL TO ACATALOG.  FROM THEN ON, IT JUST DOES A TABLE LOOKUP TO GET THE SIZE-- THE RESULT BEING A VERY
           FAST ACATALOG.  THIS VERSION IS ONLY USED WHEN EVERY USER'S FILE SPACE IS TO BE RECALCULATED.  AT UM, IT HAS
           ONLY BEEN USED WHEN NEW FILE SYSTEMS ARE INSTALLED, I.E. WHEN A COMPLETE FILE SAVE AND RESTORE HAVE BEEN DONE.
0          Referenced by comments of: 104/108, 682/40 
1                                                                                               THU SEP 12/96   23:39:34   Page   51
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/107   ACCOUNTING               ACATALOG        OC  G          MTA:ACATALOG(2000)                                              
            D4T1    370  ACCOUNTING.ACATALOG.OC.093         1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  22:18:38
00104/108   ACCOUNTING               ACATSUB         SA  G          FILE:ACATSUB(1,999)                                             
            D4.2T1   81  ACCOUNTING.ACATSUB.SA.108          1 LINE     72    8 PAGE UM   MTA                 MAR. 26, 1979  02:25:41
                         FILE:ACATSUB         
0          SUBROUTINE CALLED BY SUPER ACATALOG (104/106) AND USED BY THE DISK ERROR RECOVERY
           PROCEDURES (703).  IT BUILDS A TABLE OF THE AMOUNT OF SPACE USED BY EACH USERID
           WHICH HAS FILES.  IN THE PROCESS, IT CHECKS THE CATALOG AGAINST THE DSCBS ON THE
           VARIOUS VOLUMES AND OPTIONALLY PRODUCES TWO LISTS WHICH CAN BE USED WITH FASTRSTR
           (671).  IF UNIT 10 IS ASSIGNED, IT IS A LIST OF USERIDS WHICH ARE KNOWN TO HAVE
           LOST CATALOG SEGMENTS (INCLUDING POSSIBLY *SYS) AND TWO OUTPUT LISTS ARE PRODUCED.
           UNIT 11 WILL CONTAIN A LIST OF UNCATALOGED FILES WHICH BELONG TO THE USERS 
           IN THE UNIT 10 LIST.  UNIT 12 WILL CONTAIN A LIST OF ALL FILES WHICH ARE IN THE
           CATALOG BUT HAVE NO DSCB.  THE LIST ON UNIT 11 SHOULD BE CHECKED FOR DUPLICATE
           ENTRIES (E.G. USING *SORT).  THERE WILL NOT BE DUPLICATES BETWEEN THE TWO LISTS
           SINCE, IF A FILE IS IN THE CATALOG ANYWHERE, IT WILL NOT BE PUT IN THE LIST ON
           UNIT 11.  THE LIST ON UNIT 11 WILL NOT INCLUDE *MASTER.CATALOGN OR *IPLAREA.
           THE LIST ON UNIT 12 WILL NOT INCLUDE ANY SCRATCH FILES OR ANY DUPLICATE NAMES.
           USES UNITS 10, 11, AND 12 TO AVOID CONFLICTS WITH ACCUPDAT.  CALLS VTOCREAD
           (067/4).  ASSEMBLE WITH PAR=SIZE=12 USING COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 104/106, 682/26, 682/40 
00104/109   ACCOUNTING               ACATSUB         OC  G          FILE:ACATSUB(1000)                                              
            D4.2T1   82  ACCOUNTING.ACATSUB.OC.109          1 LINE     80    4 PAGE UM   MTA                 MAR. 26, 1979  02:25:43
00104/110   ACCOUNTING               WRITEUP         WF             S0027 DISTRB FSNAME=ACCWRITEUP                                  
            D4.2T1   83  ACCOUNTING.WRITEUP.WF.110          1 LINE     80    8 PAGE UM   ENGLE               JAN. 25, 1979  16:36:21
0          A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS.
00104/111   ACCOUNTING               WRITEUP         UC           # S0027 DISTRB FSNAME=ACCWRITEUPUP                                
            D4.2T1   84  ACCOUNTING.WRITEUP.UC.111          1 LINE     76    1 PAGE UM   ENGLE               JAN. 25, 1979  16:36:27
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/112   ACCOUNTING               IOLOKCK         SA  G  IOLC    S0027 DISTRB FSNAME=IOLOKCK                                     
            D4T1    374  ACCOUNTING.IOLOKCK.SA.097          1 LINE     80    5 PAGE UM   ENGLE               DEC. 05, 1975  12:27:08
0          SUBROUTINE TO INTERCEPT I/O ERRORS AND NON-ZERO RETURN CODES FROM SETLCK IN ORDER
           TO PREVENT INTERRUPTION OF FILE LOCK WAITS.  SETIOERR MUST BE CALLED WITH IOLOKCK AS
           THE I/O ERROR SUBROUTINE IN ORDER TO ACTIVATE THE I/O ERROR INTERCEPT.
           COPIES GRDEF (104/68).
0          Referenced by comments of: 129/2, 631/13 
00104/113   ACCOUNTING               IOLOKCK         OC  G          S0027 DISTRB FSNAME=IOLC                                        
            D4T1    375  ACCOUNTING.IOLOKCK.OC.098          1 LINE     80    2 PAGE UM   ENGLE               DEC. 05, 1975  12:27:18
1                                                                                               THU SEP 12/96   23:39:34   Page   52
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/114   ACCOUNTING               FLINFCL         SG  G          S0027 DISTRB FSNAME=FLINFCL                                     
            D4.1T1   52  ACCOUNTING.FLINFCL.SG.113          1 LINE     59    1 PAGE UM   ENGLE               FEB. 27, 1978  13:45:51
0          PROGRAM TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE
           BROKEN DOWN BY THE FIRST LETTER OF THE PROJECT NUMBER FOR ACTIVE (UNEXPIRED)
           SIGNON ID'S AND SUMMARIZED FOR ALL DEAD (EXPIRED) ID'S.  IF PAR=DEAD IS GIVEN,
           THE REVERSE IS DONE, I.E., THE USAGE INFORMATION IS BROKEN DOWN BY THE FIRST
           LETTER OF THE PROJECT NUMBER FOR DEAD ID'S AND SUMMARIZED FOR ALL ACTIVE ID'S.
           THE PARAMETER MM/DD/YY (OR DATE=MM/DD/YY) MAY ALSO BE GIVEN TO SPECIFY A
           DATE; FILES BELONGING TO ID'S EXPIRING AT OR BEFORE MIDNIGHT OF THAT DATE ARE
           CONSIDERED DEAD.  IF NO DATE IS SPECIFIED, THEN THE PREVIOUS MIDNIGHT IS
           USED AS THE TIME.  IN ADDITION, IF PAR=STAFF IS GIVEN, ADDITIONAL INFORMATION
           FOR EACH SIGNON ID BELONGING TO A PROJECT BEGINNING WITH THE LETTER W IS PRINTED.
           THIS SECTION LOADS THE MAIN FUNCTION (104/116) FROM ACC:ACCLIB+NEW:GOMLIB.
00104/115   ACCOUNTING               FLINFCL         OC  G          S0027 DISTRB FSNAME=FICL                                        
            D4.1T1   53  ACCOUNTING.FLINFCL.OC.114          1 LINE     80    1 PAGE UM   ENGLE               FEB. 27, 1978  13:47:55
                         ACC:FILEINFO         
0          THIS FILE HAS THE PROGRAM KEY ACC.:FILEINFO.
00104/116A  ACCOUNTING               ACCFLINF        SG  G          S0027 DISTRB FSNAME=ACCFLINF                                    
            D4.1T1   54  ACCOUNTING.ACCFLINF.SG.115         1 LINE    100    3 PAGE UM   ENGLE               FEB. 27, 1978  13:52:19
0          MAIN FUNCTION TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE.
0          Referenced by comments of: 104/114, 104/119, 104/121, 104/123 
00104/117A  ACCOUNTING               ACCFLINF        UC  G          S0027 DISTRB FSNAME=ACCFLINFUPD                                 
                                                                                    UM   ENGLE                                      
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/118A  ACCOUNTING               ACCFLINF        OC  G          S0027 DISTRB FSNAME=AFIN                                        
            D4.1T1   55  ACCOUNTING.ACCFLINF.OC.116         1 LINE     80    7 PAGE UM   ENGLE               FEB. 27, 1978  13:53:04
00104/119   ACCOUNTING               ACCFLKWF        SG  G          S0027 DISTRB FSNAME=ACCFLKWF                                    
            D4.1T1   56  ACCOUNTING.ACCFLKWF.SG.117         1 LINE     70    1 PAGE UM   ENGLE               FEB. 27, 1978  14:01:40
0          KWSCAN EXECUTE SUBROUTINE FOR ACCFLINF (104/116).
00104/120   ACCOUNTING               ACCFLKWF        OC  G          S0027 DISTRB FSNAME=AFKF                                        
            D4.1T1   57  ACCOUNTING.ACCFLKWF.OC.118         1 LINE     80    1 PAGE UM   ENGLE               FEB. 27, 1978  14:02:24
00104/121   ACCOUNTING               ACCFLATN        SG  G          S0027 DISTRB FSNAME=ACCFLATN                                    
            D4.2T1   85  ACCOUNTING.ACCFLATN.SG.120         1 LINE     55    1 PAGE UM   ENGLE               JAN. 09, 1979  15:35:45
0          GOM ATTENTION INTERRUPT EXIT FOR ACCFLINF (104/116).
00104/122   ACCOUNTING               ACCFLATN        OC  G          S0027 DISTRB FSNAME=AFLA                                        
            D4.2T1   86  ACCOUNTING.ACCFLATN.OC.121         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  15:38:12
1                                                                                               THU SEP 12/96   23:39:34   Page   53
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/123   ACCOUNTING               ACCFLAIO        SA  G  AFIO    S0027 DISTRB FSNAME=ACCFLAIO                                    
            D4T1    382  ACCOUNTING.ACCFLAIO.SA.105         1 LINE     80    1 PAGE UM   ENGLE               MAR. 02, 1977  11:42:53
0          SUBROUTINES ACCSCN AND ACCCLS WHICH ARE INTERFACES BETWEEN ACCFLINF (104/116)
           AND ACCSCAN AND ACCCLOSE (104/21).
00104/124   ACCOUNTING               ACCFLAIO        OC  G          S0027 DISTRB FSNAME=AFIO                                        
            D4T1    383  ACCOUNTING.ACCFLAIO.OC.106         1 LINE     80    1 PAGE UM   ENGLE               MAR. 02, 1977  11:42:57
00104/125   ACCOUNTING               LINCOUNT        SA  G  LCNT    S0027 DISTRB FSNAME=LINCOUNT                                    
            D4.2T1   87  ACCOUNTING.LINCOUNT.SA.124         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:00:46
0          DEFINITION OF THE VARIABLE LINCOUNT.  REFERENCED BY ACCPRINT (104/6),
           ACCLSTPR (104/84), ACPRJPRT (104/40), ACCMAINT (104/20), ACCPRJMT
           (104/35), AND ACONSIST (104/51).
00104/126   ACCOUNTING               LINCOUNT        OC  G          S0027 DISTRB FSNAME=LCNT                                        
            D4.2T1   88  ACCOUNTING.LINCOUNT.OC.125         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:01:15
00104/127   ACCOUNTING               ACCRETRV        SG  G          S0027 DISTRB FSNAME=ACCRETRV                                    
            D4.2T1   89  ACCOUNTING.ACCRETRV.SG.126         1 LINE    135    5 PAGE UM   ENGLE               JAN. 26, 1979  10:27:54
0          PROGRAM TO MOUNT AN ACCSAVE TAPE (104/97) AND DISPLAY OR LIST ACCOUNTING OR
           PROJECT RECORDS.  ASSUMES THE EXISTENCE OF PROGRAMS IN ACC:ACCDISPLAY,
           ACC:PROJECTDISP, ACC:ACCLISTING, AND ACC:PROJECTLIST.
0          Referenced by comments of: 104/130 
00104/128   ACCOUNTING               ACCRETRV        OC  G          S0027 DISTRB FSNAME=ARTV                                        
            D4.2T1   90  ACCOUNTING.ACCRETRV.OC.127         1 LINE     80    9 PAGE UM   ENGLE               JAN. 26, 1979  10:34:06
00104/129   ACCOUNTING               ACCRETRV        OE  G        # ACC:ACCRETRIEVE                                                 
                                                                                    UM   ENGLE                                      
                         ACC.:ACCRETRIEVE     
0          ACCRETRV+ACCTAPRD
00104/130   ACCOUNTING               TIMECALL        SA  G  TMCL    S0027 DISTRB FSNAME=TIMECALL                                    
            D4.2T1   91  ACCOUNTING.TIMECALL.SA.129         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:05:36
0          INTERFACE TO DYNAMICALLY LINK TO THE TIME SUBROUTINE. CALLED BY ACCRETRV
           (104/127).
00104/131   ACCOUNTING               TIMECALL        OC  G          S0027 DISTRB FSNAME=TMCL                                        
            D4.2T1   92  ACCOUNTING.TIMECALL.OC.130         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:06:23
00104/132   ACCOUNTING               GTPRJIDS        SA  G  GPID    S0027 DISTRB FSNAME=GTPRJIDS                                    
            D4.2T1   93  ACCOUNTING.GTPRJIDS.SA.131         1 LINE     80   13 PAGE UM   ENGLE               JAN. 11, 1979  11:04:53
0          SUBROUTINE TO OBTAIN THE SIGNON IDS BELONGING TO A PROJECT.  COPIES GRDEF
           (104/68), ACCPROJFMT (104/2) AND *CNFGINFODSECT (654).
1                                                                                               THU SEP 12/96   23:39:34   Page   54
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/133   ACCOUNTING               GTPRJIDS        OC  G          S0027 DISTRB FSNAME=GPID                                        
            D4.2T1   94  ACCOUNTING.GTPRJIDS.OC.132         1 LINE     80    4 PAGE UM   ENGLE               JAN. 11, 1979  11:05:00
00104/134   ACCOUNTING               ACCPRJID        SG  G          S0027 DISTRB FSNAME=ACCPRJID                                    
            D4.2T1   95  ACCOUNTING.ACCPRJID.SG.133         1 LINE    112    1 PAGE UM   ENGLE               JAN. 09, 1979  13:08:32
0          PROGRAM TO LIST THE SIGNON ID'S FOR A SPECIFIED PROJECT.
00104/135   ACCOUNTING               ACCPRJID        OC  G          S0027 DISTRB FSNAME=APID                                        
            D4.2T1   96  ACCOUNTING.ACCPRJID.OC.134         1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:08:55
00104/136   ACCOUNTING               ACCPRJID        OE  G        # ACC:PROJECTIDS                                                  
                                                                                    UM   ENGLE                                      
                         ACC.:PROJECTIDS      
00104/137   ACCOUNTING               IDRANGE         SG  G          S0027 DISTRB FSNAME=IDRANGE                                     
            D4.2T1   97  ACCOUNTING.IDRANGE.SG.136          1 LINE     84    3 PAGE UM   ENGLE               JAN. 09, 1979  14:35:56
0          PROGRAM TO PRINT THE LAST ID IN A RANGE GIVEN THE FIRST ID AND NUMBER
           OF ID'S OR THE NUMBER OF ID'S GIVEN THE FIRST AND LAST ID'S WITH OPTION
           TO LIST ALL ID'S IN THE RANGE.  COLLATING SEQUENCE IS A-H, J-N, P-Z, 0-9.
00104/138   ACCOUNTING               IDRANGE         OC  G          S0027 DISTRB FSNAME=IRNG                                        
            D4.2T1   98  ACCOUNTING.IDRANGE.OC.137          1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  14:36:14
00104/139   ACCOUNTING               LOG             SG  G          S0027 DISTRB FSNAME=LOGSOURCE                                   
            D4.2T1   99  ACCOUNTING.LOG.SG.138              1 LINE     80    3 PAGE UM   ENGLE               FEB. 02, 1979  14:36:49
0          SUBROUTINE TO WRITE AN AUDIT TRAIL IN A LOG FILE.
00104/140   ACCOUNTING               LOG             OC  G          S0027 DISTRB FSNAME=LOG                                         
            D4.2T1  100  ACCOUNTING.LOG.OC.139              1 LINE     80    4 PAGE UM   ENGLE               FEB. 02, 1979  14:37:03
00104/141   ACCOUNTING               *ACCOUNTING     D            # MTS:$ACCOUNTING                                                 
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING          
0          THIS FILE CONTAINS THE SUFFIXS FOR THE NAME OF THE AUXILIARY ACCOUNTING FILE
           CONTAINING THE ACCOUNTING RECORD FOR EACH USER ID.  THIS FILE MUST BE PERMITTED AS FOLLOWS:
           R/N,R (PKEY=*SYS.ACC,PKEY=*ACC,PKEY=*STATUS,PKEY=INIT:INIT,PKEY=*CKID,
           PKEY=(ACCPASWD (104/48)),PKEY=(ACCSGATR (104/95)),PKEY=(FIX (502/11)),
           PKEY=*ACRESTORE,PKEY=(SCANFILES (502/1))),WE PKEY=INIT:INITCHK,RW ACC.,
           RWE PKEY=(FILUPDAT (104/62))
            
           THE DISTRIBUTED SYSTEM HAS THE FOLLOWING USERIDS:  ACC., APL., COPY,
           DWB., ETC., FILE, FIX., INIT, MTA., MTS., NEW., NPRV, RSTR, SEG2, STRT,
           SYS., TMTS, UNSP, WSG., W009, W045, W167, AND W170.
00104/142   ACCOUNTING               *ACCOUNTING1    D            # MTS:$ACCOUNTING1                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING1         
0          THE AUXILIARY ACCOUNTING FILES (*ACCOUNTING1, *ACCOUNTING2, ETC.) CONTAIN THE
           ACTUAL ACCOUNTING RECORDS, ONE FOR EACH USER ID.  THE FILES MUST BE PERMITTED AS FOLLOWS:
1                                                                                               THU SEP 12/96   23:39:34   Page   55
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          R/N,RWC (PKEY=*SYS.ACC,PKEY=*ACC,PKEY=INIT:INIT,PKEY=(FIX (502/11)),PKEY=*ACRESTORE,
           PKEY=(FILUPDAT (104/62)),PKEY=(SCANFILES (502/1)),PKEY=(ACCPASWD (104/48)),
           PKEY=(ACCSGATR (104/95))),R (PKEY=*STATUS,PKEY=*CKID,PKEY=ACC.:FILEINFO),RW ACC.
00104/143   ACCOUNTING               *ACCOUNTING2    D            # MTS:$ACCOUNTING2                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING2         
00104/144   ACCOUNTING               *ACCOUNTING3    D            # MTS:$ACCOUNTING3                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING3         
00104/145   ACCOUNTING               *ACCOUNTING4    D            # MTS:$ACCOUNTING4                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING4         
00104/146   ACCOUNTING               *ACCOUNTING5    D            # MTS:$ACCOUNTING5                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING5         
00104/147   ACCOUNTING               *PROJECT        D            # MTS:$PROJECT                                                    
                                                                                    UM   ENGLE                                      
                         *PROJECT             
0          THE PROJECT FILE CONTAINS A RECORD FOR EACH PROJECT.  THE FILE MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=*ACC
           THIS FILE MUST ALSO BE PERMITTED READ TO THE USER ID WHICH RUNS THE BILLING PROGRAMS.
00104/148   ACCOUNTING               *PRJDIRECTORY   D            # MTS:$PRJDIRECTOR                                                
                                                                                    UM   ENGLE                                      
                         *PRJDIRECTORY        
0          THE PROJECT DIRECTORY FILE CONTAINS LISTS OF THE USER ID'S BELONGING TO EACH
           PROJECT.  THE FILE MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=*ACC
00104/149   ACCOUNTING               *PWSTAT         D            # MTS:TST.PWSTAT                                                  
                                                                                    UM   ENGLE                                      
                         *PWSTAT              
0          LOG FILE USED TO RECORD THE TIME AND DATE OF PASSWORD SETTINGS BY THE
           ACCOUNTING PROGRAMS.  MUST BE PERMITTED AS FOLLOWS:
           P/N, (RWC,TRUNC) ACC.&PKEY=NEW.:LOGPURGE
           SOME INSTALLATIONS MAY CHOOSE TO PERMIT THIS FILE WE TO ALL SO THAT ANY USER
           WHO MANAGES TO RUN ACCPASWD (104/48) OR ACCSGATR (104/95) WILL LEAVE SOME
           EVIDENCE.  IN THEORY, THESE PROGAMS ARE NOT AVAILABLE TO USERS.
00104/150   ACCOUNTING               LOG FILE        D            # MTS:TST.ACCLOG                                                  
                                                                                    UM   ENGLE                                      
                         ACC.:ACCLOG          
0          THIS FILE WILL ACCUMULATE ACCOUNTING MAINTENANCE AND PROJECT MAINTENANCE
           DATA. IT SHOULD BE PURGED REGULARLY TO PREVENT IT BECOMING TOO LARGE.
           NEW:LOGPURGE (739) MAY BE USED FOR THIS PURPOSE.
1                                                                                               THU SEP 12/96   23:39:34   Page   56
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00108/001  *PL360                    COMPILER        S3             DBMS:PL360COMP.S                                                
            D4.1T1   58  PL360.COMPILER.S3.001              1 LINE     80   79 PAGE UM   STERKEN             MAY  13, 1978  17:04:54
0          THIS VERSION OF PL360 WAS RECEIVED FROM STANFORD IN LATE
           1977 AND INSTALLED AT UM IN JANUARY, 1978.  IT IS ONLY SLIGHTLY
           DIFFERENT FROM THE D4.0 VERSION ADAPTED FOR MTS BY UQV.
            
           THE PL360 COMPILER CONSISTS OF TWO PARTS.  PL360COMP IS
           WRITTEN IN PL360 AND CONTAINS ALL SYSTEM INDEPENDENT PORTIONS
           OF THE COMPILER.  PL360INTF IS WRITTEN IN ASSEMBLY AND IS THE
           MTS INTERFACE TO PL360.  THE ENTRY POINT IS IN PL360COMP.
            
           ONCE *PL360 IS BOOTSTRAPPED, THE OBJECT MODULES ARE 
           OBTAINED AS FOLLOWS:
            
               $RUN *PL360 SCARDS=PL360COMP.S SPUNCH=PL360COMP.O SPRINT=*PRINT*
               $RUN *ASMG SCARDS=PL360INTF.S SPUNCH=PL360INTF.O SPRINT=*PRINT* 
            
           *PL360 IS THEN LINKEDITED AS FOLLOWS:
            
                $RUN *LINKEDIT
                INCLUDE PL360COMP.O+PL360INTF.O
                COMBINE
                PUNCH ON *PL360 
                STOP
            
           *PL360 CREATES AND DESTROYS A TEMPORARY FILE (-PL360#01) IN WHICH
           IT KEEPS AN INTERMEDIATE VERSION OF THE OBJECT MODULES IT PRODUCES.
            
           THE MTS VERSION OF PL360 IS DESCRIBED FURTHER IN CCMEMO 75.
           THE BEST REFERENCE MANUAL FOR PL360 IS "INTRODUCTION TO PL360
           PROGRAMMING" BY RICHARD L. GUERTIN (WADSWORTH PUBLISHING CO.,
           BELMONT, CALIFORNIA).
00108/002  *PL360                    MTS INTERFACE   SA             DBMS:PL360INTF.S                                                
            D4.1T1   59  PL360.MTS_INTERFACE.SA.002         1 LINE     80   14 PAGE UM   STERKEN             MAY  13, 1978  17:05:00
0          SOURCE FOR MTS INTERFACE OF PL/360.
00108/003  *PL360                    *PL360          OE             *PL360                                                          
            D4.1T1   60  PL360.*PL360.OE.003                1 SEQ   25492   10 PAGE UM   STERKEN             MAY  13, 1978  17:05:01
                         *PL360               
00108/004  *PL360                    LIBRARY         SA             DBMS:PL360LIB.S                                                 
            D4.1T1   61  PL360.LIBRARY.SA.004               1 LINE     80    3 PAGE UM   STERKEN             MAY  13, 1978  17:05:02
0          *PL360LIB CONTAINS VARIOUS UTILITY SUBROUTINES (READ, WRITE, 
           PAGE, PUNCH, ETC.) WHICH CAN BE REFERENCED FROM PL360 PROGRAMS 
           AS PRE-DECLARED  PROCEDURES.  THE CALLING SEQUENCE IS NOT
           OS-STANDARD.  SEE "INTRODUCTION TO PL360 PROGRAMMING" OR CCMEMO
           75 FOR DETAILS.  THESE ROUTINES ARE NOT USED BY PL360COMP.
            
           PL360LIB.S CONTAINS THE ASSEMBLY SOURCE FOR *PL360LIB.
1                                                                                               THU SEP 12/96   23:39:34   Page   57
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00108/005  *PL360                    *PL360LIB       OE             *PL360LIB                                                       
            D4.1T1   62  PL360.*PL360LIB.OE.005             1 LINE   2913    2 PAGE UM   STERKEN             MAY  13, 1978  17:05:03
                         *PL360LIB            
00110       TNL                                      SA           # (ABANDONED)                                                     
            D3T1    335  TNL.*TNL.S.1                       1 SEQ      80   30 PAGE UM                       JULY 31, 1973  00:08.57
00111/001  *PTPRRTN                                  SA  G  PTPR    W116:PTPR.S                                                     
            D4.2T1  101  PTPRRTN..SA.001                    1 LINE     80   24 PAGE UM   H YOUNG             MAR. 26, 1979  02:28:14
0          DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER.  ASKS THE 
           OPERATOR FOR THE CAUSE OF ANY EQUIPMENT CHECKS AND THEN TRANSMITS THAT
           INFORMATION TO THE USER.  MAXIMUM LENGTH OF THE OPERATOR'S RESPONSE IS
           GOVERNED BY THE LENGTH OF THE PAD WHICH IS FOUND IN THE PSECT (LENGTH IS
           COMPUTED BY &LENRESP).  MINIMUM LENGTH OF THE OPERATOR'S RESPONSE IS SET
           BY &MINRESP AND IS CURRENTLY SET TO 10 CHARACTERS.  COPIES COPY:MTS.MACROS.
00111/002  *PTPRRTN                                  OC  G          *PTPRRTN                                                        
            D4.2T1  102  PTPRRTN..OC.002                    1 LINE     80    3 PAGE UM   H YOUNG             MAR. 26, 1979  02:28:18
                         *PTPRRTN             
00116/001B *PDP8RTN                                  SA  G  PDP8    WSG:PDP8                                                        
            RD16T1   16  PDP8RTN..SA.001                    1 LINE     80   70 PAGE UM   WSG                 JULY 12, 1979  22:25:25
                         WSG.:PDP8            
0          MTS DEVICE SUPPORT ROUTINES FOR THE UM FRONT END MACHINES (DATA CONCENTRATORS). 
           INCLUDES SUPPORT FOR "VOTRAX" AUDIO RESPONSE UNITS BY CALLING SPECIAL SUBROUTINES
           TO PERFORM I/O CONVERSION (SEE COMP 681).  COPIES COPY:LLMPSEQU (087),
           COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2) AND *CNFGINFODSECT (654).
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 681/1, 681/2, 681/19 
00116/002B *PDP8RTN                                  OC  G          *PDP8RTN                                                        
            RD16T1   17  PDP8RTN..OC.002                    1 LINE   8960   27 PAGE UM   WSG                 JULY 12, 1979  22:25:48
                         *PDP8RTN             
00116/003  *PDP8RTN                  MEMO 347        WF           # OBSOLETE (SEE COMP. 733)                                     394
            D4T1    394  PDP8RTN.MEMO_347.WF.004            1 LINE    192   10 PAGE UM   EMERY               MAR. 03, 1977  14:28:25
00116/004  *PDP8RTN                  MEMO 384        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M384DECWRITER                    
            D4.2T1  105  PDP8RTN.MEMO_384.WF.004            1 LINE    118    3 PAGE UM   LUBBERS             SEP. 07, 1978  15:45:22
0          THIS IS COMPUTING CENTER MEMO 384 -- "QUICK GUIDE FOR USING DECWRITER TERMINALS
           VIA THE DATA CONCENTRATOR AND MEMOREX 1270."
00116/005  *PDP8RTN                  MEMO 370        WF             W098:M370                                                       
            D4.1T1   63  PDP8RTN.MEMO_370.WF.005            1 LINE    119    4 PAGE UM   FLOWER              MAY  13, 1978  17:05:03
0          THIS IS COMPUTING CENTER MEMO 370 -- "USE OF THE TEXAS INSTRUMENTS MODEL
           733 ASR TERMINAL WITH THE DATA CONCENTRATOR."
1                                                                                               THU SEP 12/96   23:39:34   Page   58
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00116/006  *PDP8RTN                  MEMO 375        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M375DECWRITER                    
            D4.2T1  106  PDP8RTN.MEMO_375.WF.006            1 LINE    104   10 PAGE UM   K YOUNG             SEP. 07, 1978  15:03:42
0          THIS IS COMPUTING CENTER MEMO 375 -- "THE DECWRITER TERMINAL AND MTS."
00117      *GRAPHMAC                                 SM           # (OBSOLETE)                                                      
            D4T1    396  GRAPHMAC..SM.                      1 SEQ      80   63 PAGE UM                       JULY 31, 1973  00:14.26
00119/001   SYN360                                   SS             S0720 'D3T1' FSNAME=SYN360..SS.1(1)                          343
            D4T1    397  SYN360..SS.001                     1 SEQ      80    5 PAGE UM   DWB                 JULY 31, 1973  00:15.37
0          PROGRAM (IN SNOBOL) TO PRODUCE THE SYNTAX TABLES THAT SNOBOL USES TO PARSE ITS INPUT.
           USED AS "CPU BURNER" AND "PAGER" FOR SYSTEM TESTING.
00119/002   SYN360                   TABLES DATA     D              S0720 'D3T1' FSNAME=SYN360.TABLES_DATA.D.2(1)                344
            D4T1    398  SYN360.TABLES_DATA.D.002           1 SEQ      80    3 PAGE UM   DWB                 JULY 31, 1973  00:15.38
0          INPUT TO 119/1.  ENDS WITH A "$CONTINUE WITH SYNTBL" CARD.
00120/001   REWIND SUBR                              SA  G          MTA:REWIND(1,999)                                               
            D4.1T1   64  REWIND_SUBR..SA.001                1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  17:05:05
                         MTA.:REWIND          
0          FORTRAN CALLABLE REWIND SUBROUTINE.  ASSEMBLE USING *SYSMAC.
00120/002   REWIND SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00121/001  *USERS                                    SG  G          MTS:USERS.S                                                     
            D4.1T1   65  USERS..SG.001                      1 LINE     68    1 PAGE UM   MTA                 MAY  13, 1978  17:05:05
                         MTS.:USERS.S         
0          GOM PROGRAM TO ISSUE A "$SYSTEMSTATUS USERS" COMMAND (GRUDGINGLY).
00121/002  *USERS                                    OC  G          *USERS                                                          
            D4.2T1  107  USERS..OC.002                      1 LINE     80    1 PAGE UM   MTA                 MAR. 26, 1979  02:30:27
                         *USERS               
00123      *PTASKS                                   SA           # (OBSOLETE)                                                      
            D4T1    405  PTASKS..SA.                        1 SEQ      80   17 PAGE UM                       JULY 31, 1973  00:15.58
00126/001   BLSTDEV                                  SA  G          S0720 'D3T1' FSNAME=BLSTDEV..SA.1(1)                         351
            D4T1    406  BLSTDEV..SA.001                    1 LINE     80    3 PAGE UM   MTA                 JULY 30, 1973  03:31.46
0          SUBROUTINE TO RESET A DEVICE FOR A NEW OPERATION. USED BY SEVERAL DSR'S.
00126/002   BLSTDEV                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00128      *PTPPRTN                                  SA  S          S0563 D4T1 VLO FSNAME=PTPPRTN..SA.(1)                        407
            D4T1    407  PTPPRTN..SA.                       1 SEQ      80   19 PAGE UM   WSG                 JULY 31, 1973  00:17.03
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 1018 PAPER TAPE PUNCH.  HAS BUGS AND HAS NOT BEEN USED AT UM FOR MANY YEARS.
           OBJECT NOT DISTRIBUTED; WASTE YOUR OWN MONEY ASSEMBLING IT!
1                                                                                               THU SEP 12/96   23:39:34   Page   59
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00129/001  *STATUS                                   SA  G        # (SEE COMP 104)                                                  
                                                                                    UM   ENGLE                                      
0          PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD.
           RUN WITH PROT=OFF.
00129/002  *STATUS                                   OE  G          *STATUS                                                         
            D4.1T1   67  STATUS..OE.002                     1 LINE   5158    4 PAGE UM   ENGLE               MAY  13, 1978  17:05:07
                         *STATUS              
0          CONSISTS OF:  STATUS (104/15) + ACCIO (104/23) + IOLOKCK (104/112) + GETFILE (104/103).
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  U/N,R PKEY=*MTS.RUN
           THIS FILE MUST BE GIVEN THE PROGRAM KEY *STATUS.
00131       STRTPDP                                               # (OBSOLETE, SEE COMP 614)                                        
            D2T1    149                                                             UM                                              
00132      *PERMIT                                   SA           # (OBSOLETE)                                                      
            D4T1    409  PERMIT..SA.001                     1 LINE     80    6 PAGE UM                       JULY 27, 1977  22:26:58
00133/001  *PLOT                                     SA             S1011 ETC 'MISC' FSNAME=PTRCONVPLOT                             
            D4.2T1  108  PLOT..SA.001                       1 LINE     72    8 PAGE UM   LIFT                DEC. 07, 1978  15:44:47
0          CONVERSATIONAL INTERFACE TO PRINTER PLOT SUBROUTINES (282).
00133/002  *PLOT                                     OC             *PLOT                                                           
            D4.2T1  109  PLOT..OC.002                       1 LINE     80    3 PAGE UM   LIFT                MAR. 26, 1979  02:31:35
                         *PLOT                
00135/001  *TAPERTN                                  SA  G  TAPE    WSG:TAPE                                                        
            D4.2T1  110  TAPERTN..SA.001                    1 LINE     80  110 PAGE UM   WSG                 MAR. 26, 1979  02:31:36
                         WSG.:TAPE            
0          MTS DEVICE SUPPORT ROUTINES FOR MAGNETIC TAPES.  NOTE:  THE "NLC" CONTROL COMMAND
           (WHICH ONLY WORKS IF ISSUED BY A USER ID WHICH IS AUTHORIZED TO $SET PROT=OFF OR
           BY USER ID SYS WITH PROGRAM KEY "*LABEL") OVERRIDES THE NORMAL CHECKING FOR
           VOLUME LABELS.  IT IS USED BY *LABEL (487) TO LABEL VIRGIN TAPES AND FIND LABEL
           (729) TO PRINT UNKNOWN LABELS.  COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS
           (1026/1), COPY:GLOBALSETS (1026/2), *CNFGINFODSECT (654), AND *SENSEDSECT (3025).
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 489/1 
00135/002  *TAPERTN                                  OC  G          *TAPERTN                                                        
            D4.2T1  111  TAPERTN..OC.002                    1 LINE     80    7 PAGE UM   WSG                 MAR. 26, 1979  02:31:47
                         *TAPERTN             
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE.
00136/001  *FIX                                      C   G          *FIX                                                            
            D4T1    415  FIX..C.001                         1 LINE      7    1 PAGE UM   ENGLE               JULY 27, 1977  22:49:32
                         *FIX                 
0          COMMAND FILE USED BY OPERATORS TO CLEAN UP A USERID (E.G. AFTER A SNARK).  THIS WILL SET THE
1                                                                                               THU SEP 12/96   23:39:34   Page   60
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          CORRECT NUMBER OF CURRENT SIGNONS IN THE USER'S ACCOUNTING RECORD AND UPDATE HIS FILE SPACE
           INFORMATION.  THIS FILE SOURCES TO FIX:FIX (136/2).
           INVOKED BY ENTERING "MTS *FIX" ON OPERATORS CONSOLE.
00136/002  *FIX                      FIX:FIX         C   G          FIX:FIX                                                         
            D4T1    416  FIX.FIX:FIX.C.002                  1 LINE     49    1 PAGE UM   ENGLE               JULY 27, 1977  22:49:34
                         FIX.:FIX             
0          COMMAND FILE TO RUN *ACCRESTORE (484).
0          Referenced by comments of: 136/1 
00137/001  *UPDATE                   D4 MASTER       SA  G  UPDT    W009:UPDATE.S                                                   
            D4T1    417  UPDATE.D4_MASTER.SA.001            1 LINE     80   32 PAGE UM   SHERRY              JULY 27, 1977  22:49:35
                         W009:UPDATE.S        
0          D4 MASTER SOURCE FOR THE MTS SOURCE UPDATE PROGRAM.  REQUIRES BLOCKED I/O ROUTINES (283).
00137/002  *UPDATE                   UPDATE          UU  G          W009:UPDATE.U                                                   
            D4T1    418  UPDATE.UPDATE.UU.002               1 LINE     72    5 PAGE UM   SHERRY              JULY 27, 1977  22:49:39
                         W009:UPDATE.U        
0          UPDATE DECK TO PRODUCE D4 SOURCE FOR *UPDATE FROM D3 MASTER SOURCE.
           MAJOR SURGERY WAS PERFORMED TO FIX SEVERAL BUGS AND SUPPORT THE NEW
           "%MCMD MTSCOMMAND" COMMAND.
00137/003  *UPDATE                                   OE  G          *UPDATE                                                         
            D4T1    419  UPDATE..OE.003                     1 LINE   7560    4 PAGE UM   SHERRY              JULY 27, 1977  22:49:41
                         *UPDATE              
00138/001  *TEXT360                  MONITOR         SA  G  T360    W062:T360.S                                                     
            D4T1    420  TEXT360.MONITOR.SA.001             1 LINE     80   18 PAGE UM   TIFFANY             JULY 27, 1977  22:49:43
0          NEW VERSION 7 OF TEXT/360 TEXT PROCESSING PROGRAM.  THE SEPARATE PROGRAMS
           *FMAINT, *BLDLIN, *PLAOUT, AND *POSTPR ARE NO LONGER USED.  INSTEAD, *TEXT360
           CONTAINS ALL THESE PROGRAMS.  IN ADDITION, MOST PARTS OF TEXT/360 HAVE BEEN
           RE-WRITTEN BECOMING BOTH SMALLER AND FASTER.
00138/002  *TEXT360                  FMAINT          SA  G  FMNT    W062:FM.S                                                       
            D4.2T1  112  TEXT360.FMAINT.SA.002              1 LINE     80   55 PAGE UM   TIFFANY             MAR. 26, 1979  02:31:48
0          TEXT/360 FILE MAINTENANCE.
00138/003  *TEXT360                  BLDLIN          SA  G  BLDL    W062:BUILINE.S                                                  
            D4T1    422  TEXT360.BLDLIN.SA.003              1 LINE     80   94 PAGE UM   TIFFANY             JULY 27, 1977  22:49:54
0          TEXT/360 BUILD LINES.
00138/004  *TEXT360                  HYPHEN          SA  G  HYPH    W062:HYPHEN.S                                                   
            D4.2T1  113  TEXT360.HYPHEN.SA.004              1 LINE     80   10 PAGE UM   TIFFANY             MAR. 26, 1979  02:31:56
0          TEXT/360 SUBROUTINE TO HYPHENATE WORDS.
1                                                                                               THU SEP 12/96   23:39:34   Page   61
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00138/005  *TEXT360                  PLAOUT          SA  G  PLAY    W062:PAGELAYOUT                                                 
            D4.2T1  114  TEXT360.PLAOUT.SA.005              1 LINE     80   70 PAGE UM   TIFFANY             MAR. 26, 1979  02:31:56
0          TEXT/360 PAGE LAYOUT.
00138/006  *TEXT360                  PPR1            SP  O  PPR1    W062:POSTPR                                                     
            D4.2T1  115  TEXT360.PPR1.SP.006                1 LINE     80   28 PAGE UM   TIFFANY             MAR. 26, 1979  02:32:05
0          TEXT/360 POST PROCESSOR.
00138/007  *TEXT360                  PPR2            SA  G  PPR2    W062:PPR2                                                       
            D4T1    426  TEXT360.PPR2.SA.007                1 LINE     80   11 PAGE UM   TIFFANY             JULY 27, 1977  22:50:26
0          TEXT/360 SPELLING POSTPROCESSOR.
00138/008  *TEXT360                  OBJECT          OE  G          *TEXT360                                                        
            D4.2T1  116  TEXT360.OBJECT.OE.008              1 SEQ   14896   27 PAGE UM   TIFFANY             MAR. 26, 1979  02:32:07
                         *TEXT360             
0          OBJECT FROM 138/1 THROUGH 138/7.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/009  *TEXT360                  *PRESCAN        SA  O  SCAN    W062:PRESCAN                                                    
            D4T1    428  TEXT360.*PRESCAN.SA.009            1 LINE     80   40 PAGE UM   TIFFANY             JULY 27, 1977  22:50:30
0          TEXT/360 PRESCAN PROGRAM.
00138/010  *TEXT360                  *PRESCAN        OE  O          *PRESCAN                                                        
            D4T1    429  TEXT360.*PRESCAN.OE.010            1 LINE   8994    5 PAGE UM   TIFFANY             JULY 27, 1977  22:50:34
                         *PRESCAN             
00138/011  *TEXT360                  *PRINT          SA  G  PRNT    W062:PRINT                                                      
            D4T1    430  TEXT360.*PRINT.SA.011              1 LINE     80   11 PAGE UM   TIFFANY             JULY 27, 1977  22:50:37
0          TEXT/360 OUTPUT PRINTING PROGRAM.
00138/012  *TEXT360                  *PRINT          OC  G          *PRINT                                                          
            D4T1    431  TEXT360.*PRINT.OC.012              1 LINE     80    3 PAGE UM   TIFFANY             JULY 27, 1977  22:50:39
                         *PRINT               
00138/013  *TEXT360                  *DICTUPD        SP  G  DICT    W062:DICTUPD                                                    
            D4T1    432  TEXT360.*DICTUPD.SP.013            1 LINE     80    7 PAGE UM   TIFFANY             JULY 27, 1977  22:50:41
0          PROGRAM TO MAINTAIN TEXT/360 SPELLING DICTIONARY.
00138/014  *TEXT360                  *DICTUPD        OE  O          *DICTUPD                                                        
            D4T1    433  TEXT360.*DICTUPD.OE.014            1 LINE  10746    5 PAGE UM   TIFFANY             JULY 27, 1977  22:50:43
                         *DICTUPD             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
1                                                                                               THU SEP 12/96   23:39:34   Page   62
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00138/015  *TEXT360                  *DICT           D              *DICT                                                           
            D4T1    434  TEXT360.*DICT.D.015                1 SEQ    4096   22 PAGE UM   TIFFANY             JULY 27, 1977  22:50:45
                         *DICT                
0          TEXT/360 SPELLING DICTIONARY CONTAINING ABOUT 12000 WORDS.
00138/016  *TEXT360                  *HYPHDICT       D              *HYPHDICT                                                       
            D4.2T1  117  TEXT360.*HYPHDICT.D.016            1 LINE     64    5 PAGE UM   MANUAL              MAR. 26, 1979  02:32:08
                         *HYPHDICT            
0          A HYPHENATION OVERRIDE DICTIONARY FOR WORDS THAT MTS TEXT PROCESSING LANGUAGES
           CANNOT HYPHENATE CORRECTLY.
00138/017B *TEXT360                  *T360MASTCONV   SP  G          W062:MASTER2INPUT(1,499)                                        
            RD16T1   18  TEXT360.*T360MASTCONV.SP.017       1 LINE     70    3 PAGE UM   TIFFANY             JULY 12, 1979  22:25:52
0          PROGRAM TO CONVERT A TEXT/360 MASTER FILE INTO A TEXT/360 INPUT STREAM.
00138/018C *TEXT360                  *T360MASTCONV   SA  G          W062:MASTER2INPUT(500,999)                                      
            RD16T1   19  TEXT360.*T360MASTCONV.SA.018       1 LINE     72    1 PAGE UM   TIFFANY             JULY 12, 1979  22:25:54
0          A SUBROUTINE TO REPLACE "NONPRINTABLE" CHARACTERS WITH SPECIAL CHARACTERS
           PRECEDED BY EITHER A "/" OR "//".
00138/019B *TEXT360                  *T360MASTCONV   OE  G          *T360MASTCONV                                                   
            RD16T1   20  TEXT360.*T360MASTCONV.OE.019       1 LINE   5598    5 PAGE UM   TIFFANY             JULY 12, 1979  22:25:55
                         *T360MASTCONV        
0          EXTERNAL SYMBOL IHESAPC SHOULD BE RENAMED IHESAPE.  ENDS WITH A
           "$CONTINUE WITH *PL1LIB" RECORD.
00140/001  *ANALYSIS                                 SA  G          S0563 D4T1 VLO FSNAME=ANALYSIS..SA.001(1)                    438
            D4T1    438  ANALYSIS..SA.001                   1 LINE     80   60 PAGE UM   MTA                 JULY 27, 1977  22:50:55
0          PROGRAM USED IN ANALYZING THE STATISTICS PRODUCED ON MAGNETIC TAPE BY THE STAT JOB (079).
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 79/1 
00140/002  *ANALYSIS                                 OC  G          *ANALYSIS(1)                                                    
            D4T1    439  ANALYSIS..OC.002                   1 LINE  11972    7 PAGE UM   MTA                 JULY 27, 1977  22:51:00
                         *ANALYSIS            
0          THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000.  SEE CCMEMO 294 (140/9).
00140/003  *ANALYSIS                 PL/1 MAIN PGM   SP             S0563 D4T1 VLO FSNAME=ANALYSIS.PL/1_MAIN_PGM.SP.003(1)       440
            D4T1    440  ANALYSIS.PL/1_MAIN_PGM.SP.003      1 LINE     80    1 PAGE UM   MTA                 JUNE 28, 1974  16:12.14
0          PL/1 MAIN PROGRAM FOR USE WITH *ANALYSIS.
00140/004  *ANALYSIS                 PL/1 MAIN PGM   OC             *ANALYSIS(0,.999)                                               
            D4T1    441  ANALYSIS.PL/1_MAIN_PGM.OC.004      1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  22:57:07
1                                                                                               THU SEP 12/96   23:39:34   Page   63
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00140/005  *ANALYSIS                 EXAMPLE STP2    SA  G          S0938 FSAVE2 VLO FSNAME=KIPSSTP2(2)                          124
            D4T1    442  ANALYSIS.EXAMPLE_STP2.SA.005       1 LINE     80   43 PAGE UM   MTA                 NOV. 08, 1975  00:29:03
0          EXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS.  CALLS THE HISTOGRAM SUBROUTINE (140/7).
           COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC.
0          Referenced by comments of: 140/7 
00140/006  *ANALYSIS                 EXAMPLE STP2    OC  G          S0938 FSAVE2 VLO FSNAME=KIPSSTP2(3)                          177
            D4T1    443  ANALYSIS.EXAMPLE_STP2.OC.006       1 LINE     80   29 PAGE UM   MTA                 OCT. 25, 1976  22:22:14
00140/007  *ANALYSIS                 HISTOGRAM       SA  G          *ANALYSIS(-400,-1)                                              
            D4T1    444  ANALYSIS.HISTOGRAM.SA.007          1 LINE     80   11 PAGE UM   MTA                 JULY 27, 1977  23:11:25
0          SUBROUTINE TO PLOT HISTOGRAMS, VAGUELY RELATED TO *ANALYSIS AND BRIEFLY DESCRIBED IN THE *ANALYSIS WRITEUP (140/9).
           CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/5). ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 140/5 
00140/008  *ANALYSIS                 HISTOGRAM       OC  G          *ANALYSIS(-600,-401)                                            
            D4T1    445  ANALYSIS.HISTOGRAM.OC.008          1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  23:11:26
00140/009  *ANALYSIS                 MEMO 393        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M393DATACOLFAC                   
            D4.2T1  118  ANALYSIS.MEMO_393.WF.009           1 LINE    151   28 PAGE UM   HELFFRICH           FEB. 12, 1979  14:35:13
0          THIS IS COMPUTING CENTER MEMO 393 -- "DATA COLLECTION FACILITY."
           REQUIRES HAND-INSERTED CHARACTERS.
0          Referenced by comments of: 140/2, 140/7 
00140/010  *ANALYSIS                 CALLSTP2        SA  G          MTA:CALLSTP2(1,999)                                             
            D4.1T1   71  ANALYSIS.CALLSTP2.SA.010           1 LINE     80    5 PAGE UM   MTA                 MAY  13, 1978  17:05:20
                         MTA.:CALLSTP2        
0          PROGRAM TO REPLACE *ANALYSIS FOR THE CASE WHERE ONLY STP2A, STP2D, AND/OR
           STP2E ARE SUPPLIED AND THE JOB AREA IS NOT NEEDED.  MUCH FASTER THAN *ANALYSIS
           FOR THIS CASE.
00140/011  *ANALYSIS                 CALLSTP2        OC  G          MTA:CALLSTP2(1000)                                              
            D4.1T1   72  ANALYSIS.CALLSTP2.OC.011           1 LINE     80    2 PAGE UM   MTA                 MAY  13, 1978  17:05:21
00141      *GPAKDRAW                                 S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00143       REWIND# SUBR                             SA           # (SEE COMP 578)                                                  
                                                                                    UM                                              
00144/001  *ASA                                      SA  O  ASA     LBT:ASA(1,999)                                                  
            D4T1    450  ASA..SA.001                        1 LINE     80    4 PAGE UM   TIFFANY             JULY 27, 1977  23:16:57
0          PRINTS OUTPUT WITH ASA STANDARD CARRIAGE CONTROL.
           ASSEMBLE WITH PAR=BATCH.
1                                                                                               THU SEP 12/96   23:39:34   Page   64
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00144/002  *ASA                                      OC  O          *ASA                                                            
            D4T1    451  ASA..OC.002                        1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:16:59
                         *ASA                 
00145/001  *TASKS                                    SA  G  TSKS    S0792 WSGFS FSNAME=MTASKS                                       
            D4T1    452  TASKS..SA.001                      1 LINE     80    5 PAGE UM   WSG                 DEC. 01, 1976  12:53:23
0          MTS PROGRAM TO PRINT TASK STATUS IN SAME FORMAT AS TASKS JOB (019).  CALLS TSKFMT SUBROUTINE
           WHICH IS PART OF TASKS JOB (019).
0          Referenced by comments of: 19/1 
00145/002  *TASKS                                    OC  G          *TASKS                                                          
            D4T1    453  TASKS..OC.002                      1 LINE     80    1 PAGE UM   WSG                 JULY 27, 1977  23:19:56
                         *TASKS               
00146      *OLDED                                    SA           # (OBSOLETE)                                                      
            D2T1    325                                                             UM                                              
00147/001  *FILESCAN                                 SA  G  FSCN    S0027 DISTRB FSNAME=FILESCAN                                    
            D4T1    454  FILESCAN..SA.001                   1 LINE     80    9 PAGE UM   ENGLE               DEC. 05, 1975  16:09:05
0          MTS FILE SCANNING PROGRAM.
00147/002  *FILESCAN                                 OE  G          S0027 DISTRB FSNAME=FSCN                                        
            D4T1    455  FILESCAN..OE.002                   1 LINE    255    2 PAGE UM   ENGLE               DEC. 05, 1975  16:09:21
00148/001  *WATLIB                                                  *WATLIB                                                         
            D4T1    456  WATLIB...001                       1 SEQ     384    4 PAGE UM   SHERRY              JULY 27, 1977  23:22:28
                         *WATLIB              
0          THIS FILE HAS SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES AND ASSEMBLER SUBROUTINE OBJECT DECKS 
           WHICH *WATFIV ASSUMES AS THE DEFAULT LIBRARY WHEN ATTEMPTING TO RESOLVE UNDEFINED SYMBOLS IN
           WATFIV PROGRAMS.
0          Referenced by comments of: 148/2, 148/3 
00148/002  *WATLIB                   WATSUB SUBR     SA  G          W159:WAT5.XFACE.S(4)                                            
            D4T1    457  WATLIB.WATSUB_SUBR.SA.002          1 LINE     66    3 PAGE UM   SHERRY              AUG. 14, 1977  19:11:25
0          SOURCE FOR THE WATSUB SUBROUTINE.  OBJECT IS IN *WATLIB (148/1).
00148/003  *WATLIB                   TRACER SUBR     SA  G          W159:WAT5.TRACE.S                                               
            D4T1    458  WATLIB.TRACER_SUBR.SA.003          1 LINE     57    1 PAGE UM   SHERRY              AUG. 14, 1977  19:11:26
0          SOURCE FOR THE TRACER SUBROUTINE.  OBJECT IS IN *WATLIB (148/1).
00148/004  *WATLIB                   WATGENLIB       SA  G  WATG    W159:WATGEN.S                                                   
            D4T1    459  WATLIB.*WATGENLIB.SA.004           1 LINE     80   23 PAGE UM   SHERRY              JULY 27, 1977  23:22:29
0          WATFIV LIBRARY GENERATOR.  THE WATFIV CONTROL CARD CHARACTER IS "/"
           (ALTERNATIVELY "$"), SO THE SET SYMBOLS &CC AND &CCA SHOULD BE CHANGED
           APPROPRIATELY IF A DIFFERENT CONVENTION IS FOLLOWED.
           ASSEMBLE USING *SYSMAC.
1                                                                                               THU SEP 12/96   23:39:34   Page   65
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00148/005  *WATLIB                   *WATGENLIB      OE  G          *WATGENLIB                                                      
            D4T1    460  WATLIB.*WATGENLIB.OE.005           1 SEQ    3151    2 PAGE UM   SHERRY              JULY 27, 1977  23:22:31
                         *WATGENLIB           
00151      *CONVSNOBOL                               SS  G          *CONVSNOBOL                                                     
            D4T1    461  CONVSNOBOL..SS.                    1 LINE     69    1 PAGE UM   SWARTZ              JULY 27, 1977  23:22:33
                         *CONVSNOBOL          
0          $SOURCE FILE WHICH RUNS A SNOBOL PROGRAM TO ENHANCE CONVERSATIONAL USE OF SNOBOL.
00153      *MADTOPL1                                 SS     MPL1    *MADTOPL1                                                       
            D4T1    462  MADTOPL1..SS.                      1 LINE     80   21 PAGE UM   ?                   JULY 27, 1977  23:22:35
                         *MADTOPL1            
0          CONVERT MAD 7090 TO PL/I
00154/001  *LAS                                      C              *LAS                                                            
            D4T1    463  LAS..C.001                         1 LINE      9    1 PAGE UM   WSG                 JULY 27, 1977  23:22:37
                         STRT:*LAS            
0          COMMAND FILE FOR STARTING MTS TERMINAL LINES.  INVOKED BY ENTERING "MTS *LAS" ON THE
           OPERATORS CONSOLE.  SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:LAS (154/2).
0          Referenced by comments of: 621/1 
00154/002  *LAS                      LAS             C              MTS:TST.LAS                                                     
            D4.2T1  119  LAS.LAS.C.002                      1 LINE     67    1 PAGE UM   WSG                 MAR. 26, 1979  02:32:17
                         STRT:LAS             
0          COMMAND FILE WHICH STARTS UP MTS TERMINAL LINES.  THIS FILE WILL HAVE TO BE
           MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION.
0          Referenced by comments of: 154/1 
00156       IPL PROGRAM                                           # (OBSOLETE)                                                      
            D3.2T1  131  IPL_PROGRAM..SA.01                 1 LINE     80   13 PAGE UM                       MAR. 21, 1975  01:13:31
00157/001   IPL BOOTSTRAP                            SA  G  IPLB    W009:ABSLDR(1,999)                                              
            D4T1    465  IPL_BOOTSTRAP..SA.001              1 LINE     80    4 PAGE UM   SHERRY              JULY 27, 1977  23:22:41
                         W009:ABSLDR          
0          ABSOLUTE LOADER FOR STAND-ALONE PROGRAMS.
           THE OBJECT DECK FOR THIS PROGRAM MUST BE MASSAGED BY HAND (OR KEYPUNCH) BEFORE IT WILL
           IPL (SEE COMMENTS IN LISTING IF IT BECOMES NECESSARY TO RE-ASSEMBLE -- UNLIKELY).
           157/2 HAS ALREADY BEEN APPROPRIATELY FIXED.
           CURRENTLY, THIS PROGRAM IS NOT USED.
00157/002   IPL BOOTSTRAP                            OC  G          W009:ABSLDR(1000)                                               
            D4T1    466  IPL_BOOTSTRAP..OC.002              1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  23:22:43
0          THIS OBJECT DECK (ALONG WITH 156 AND SOME REP CARDS) IS LOCATED AT THE END (AFTER
           THE LDT CARD) OF THE RESIDENT SYSTEM DECK.
1                                                                                               THU SEP 12/96   23:39:34   Page   66
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00160       FRONCOPY                                 S            # (OBSOLETE)                                                      
            D2T1    387                                                             UM                                              
00162    B  PSA DSECT                                SA  G          COPY:PSA                                                        
            RD16T1   21  PSA_DSECT..SA.                     1 LINE     72    4 PAGE UM   MTA                 JULY 12, 1979  22:25:58
                         COPY:PSA             
0          DEFINITION OF PREFIXED STORAGE AREA (PSA).
           COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS.
           REQUIRES THAT COPY:GLOBALS (1026/3) BE COPIED FIRST.
0          Referenced by comments of: 45/1, 46/1, 577/2, 577/4, 577/7, 611/1, 634/4, 1021/1, 1021/3 
00163/001   PL1 COMPILER             MACLIB          SM  G  MAC     W062:MACLIB                                                     
            D4T1    468  PL1_COMPILER.MACLIB.SM.001         1 LINE     80   66 PAGE UM   TIFFANY             JULY 27, 1977  23:22:48
0          PL/I(F) VERSION 5 COMPILER (RELEASE 20.1).
            
           MACLIB IS A MACRO LIBRARY FOR THE SIMULATION OF OS/360 STUFF IN MTS.
0          Referenced by comments of: 233/41 
00163/002   PL1 COMPILER             SAMEQU          SA  G  SAMQ    S0410 MTSPL1 'PL1LIB' POSN=SAMEQU                            2  
            D4T1    469  PL1_COMPILER.SAMEQU.SA.002         1 SEQ      80    4 PAGE UM   TIFFANY             JULY 27, 1977  23:23:35
0          COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE
0          Referenced by comments of: 163/3, 163/4, 163/5, 163/6, 163/7, 163/8, 163/9, 163/10, 163/11, 163/15, 233/32 
00163/003   PL1 COMPILER             REPLACE         SA  G  RPLC    S0410 MTSPL1 'PL1LIB' POSN=REPLACE                           3  
            D4T1    470  PL1_COMPILER.REPLACE.SA.003        1 SEQ      80    3 PAGE UM   TIFFANY             JULY 27, 1977  23:23:36
0          ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE.
           COPIES SAMEQU (163/2).
00163/004   PL1 COMPILER             CKLIO           SA  G  CKL     S0410 MTSPL1 'PL1LIB' POSN=CKLIO                             4  
            D4T1    471  PL1_COMPILER.CKLIO.SA.004          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:23:38
0          ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT.  COPIES SAMEQU (163/2).
00163/005   PL1 COMPILER             NONSENSE        SA  G  NONE    S0410 MTSPL1 'PL1LIB' POSN=NONSENSE                          5  
            D4T1    472  PL1_COMPILER.NONSENSE.SA.005       1 SEQ      80    3 PAGE UM   TIFFANY             JULY 27, 1977  23:23:40
0          ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE.  COPIES SAMEQU (163/2).
00163/006   PL1 COMPILER             FREEDDEF        SA  G  FREE    S0410 MTSPL1 'PL1LIB' POSN=FREEDDEF                          6  
            D4T1    473  PL1_COMPILER.FREEDDEF.SA.006       1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:23:43
0          ROUTINE TO FREE ALL DDEF'S.  COPIES SAMEQU (163/2).
00163/007   PL1 COMPILER             FINDTIOT        SA  G  FIND    S0410 MTSPL1 'PL1LIB' POSN=FINDTIOT                          7  
            D4T1    474  PL1_COMPILER.FINDTIOT.SA.007       1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:23:45
0          ROUTINE TO FIND A TIOT GIVEN A "DDNAME."  COPIES SAMEQU (163/2).
1                                                                                               THU SEP 12/96   23:39:34   Page   67
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00163/008   PL1 COMPILER             DDEF            SA  G  DDEF    S0410 MTSPL1 'PL1LIB' POSN=DDEF                              8  
            D4T1    475  PL1_COMPILER.DDEF.SA.008           1 SEQ      80    8 PAGE UM   TIFFANY             JULY 27, 1977  23:23:48
0          ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH.  COPIES SAMEQU (163/2).
00163/009   PL1 COMPILER             OPEN            SA  G  OPEN    S0410 MTSPL1 'PL1LIB' POSN=OPEN.D4.1                            
            D4.1T1   73  PL1_COMPILER.OPEN.SA.009           1 SEQ      80   16 PAGE UM   TIFFANY             MAY  13, 1978  17:06:25
0          SIMULATE OS/360 OPEN.  CURRENTLY ONLY BSAM AND QSAM ARE SUPPORTED.  COPIES
           SAMEQU (163/2).
00163/010   PL1 COMPILER             ROUT            SA  G  RUTE    S0410 MTSPL1 'PL1LIB' POSN=ROUTE.D4.1                           
            D4.1T1   74  PL1_COMPILER.ROUT.SA.010           1 SEQ      80   26 PAGE UM   TIFFANY             MAY  13, 1978  17:06:27
0          LIST OF VARIOUS ROUTINES.  COPIES SAMEQU (163/2).
            
           MODIFIED TO FIX @NOTIFY PROBLEM.
00163/011   PL1 COMPILER             CLOSE           SA  G  CLOS    S0410 MTSPL1 'PL1LIB' POSN=CLOSE                             11 
            D4T1    478  PL1_COMPILER.CLOSE.SA.011          1 SEQ      80    4 PAGE UM   TIFFANY             JULY 27, 1977  23:23:56
0          SIMULATE OS/360 CLOSE.  COPIES SAMEQU (163/2).
00163/012   PL1 COMPILER             QUIT            SA  G  QUIT    S0410 MTSPL1 'PL1LIB' POSN=QUIT                              12 
            D4T1    479  PL1_COMPILER.QUIT.SA.012           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:23:57
0          QUIT ONLY IN BATCH
00163/013   PL1 COMPILER             UPDATE          UI             LBT:PL1.UP                                                      
            D4.2T2  509  PL1_COMPILER.UPDATE.UI.013         1 LINE     73   20 PAGE UM   TIFFANY             APR. 09, 1979  00:06:03
0          *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL/I COMPILER FROM OS/360 RELEASE 20.1 SOURCE.
00163/014C  PL1 COMPILER             UPDATE          UC             W062:IEMAA.UP                                                   
            RD16T1   22  PL1_COMPILER.UPDATE.UC.014         1 LINE     73    4 PAGE UM   TIFFANY             JULY 12, 1979  22:25:59
0          UPDATE TO 21.8 SOURCE OF IEMAA.
00163/015   PL1 COMPILER             TIOT            SA  G  TIOT    S0410 MTSPL1 'PL1LIB' POSN=PL1TIOT                           54 
            D4T1    481  PL1_COMPILER.TIOT.SA.014           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:24:14
0          YES IT REALLY IS A TIOT.  COPIES SAMEQU (163/2).
00163/016   PL1 COMPILER             ESDLIST         SA  G  ESDL    S0410 MTSPL1 'PL1LIB' POSN=INESD                             55 
            D4T1    482  PL1_COMPILER.ESDLIST.SA.015        1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:24:14
0          TABLE OF SOMETHING OR OTHER
00163/017   PL1 COMPILER             IEMTM           SA  G  TM      S0410 MTSPL1 'PL1LIB' POSN=IEMTM.D4                             
            D4T1    483  PL1_COMPILER.IEMTM.SA.016          1 LINE     80   40 PAGE UM   TIFFANY             JULY 27, 1977  23:24:16
0          COMPILER PHASE "TM" WHICH PRODUCES THE SYMPL1 RECORDS IF THE "TEST" OPTION IS USED.
1                                                                                               THU SEP 12/96   23:39:34   Page   68
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00163/018B  PL1 COMPILER             *PL1            OE  G          *PL1                                                            
            RD16T1   23  PL1_COMPILER.*PL1.OE.018           1 SEQ    4640    7 PAGE UM   TIFFANY             JULY 12, 1979  22:26:01
                         *PL1                 
00163/019   PL1 COMPILER             PL1DIRECTOR     D              ETC:PL1DIRECTOR                                                 
            D4T1    485  PL1_COMPILER.PL1DIRECTOR.D.018     1 SEQ    4064    2 PAGE UM   TIFFANY             JULY 27, 1977  23:24:21
                         ETC.:PL1DIRECTOR     
00163/020   PL1 COMPILER             PLI             OL  G          ETC:PLI                                                         
            D4T1    486  PL1_COMPILER.PLI.OL.019            1 SEQ    7388   13 PAGE UM   TIFFANY             JULY 27, 1977  23:24:23
                         ETC.:PLI             
00163/021   PL1 COMPILER             *PL1LINKLIB1    OE  G          *PL1LINKLIB1                                                    
            D4T1    487  PL1_COMPILER.*PL1LINKLIB1.OE.020   1 SEQ   14640  214 PAGE UM   TIFFANY             JULY 27, 1977  23:24:26
                         *PL1LINKLIB1         
0          >>>>>>>>>>> THERE IS A REP CARD IN THIS FILE. <<<<<<<<<<<<<<
00164      *LCS                                      OC  G          *LCS                                                            
            D4T1    488  LCS..OC.                           1 LINE     24    1 PAGE UM   MTA                 JULY 27, 1977  23:24:46
                         *LCS                 
0          CONTAINS THE SINGLE LOADER CARD:
            LCS            LCSYMBOL
00170      *LISTVTOC                                 SA           # (OBSOLETE)                                                      
            D2T1    105                                                             UM                                              
00171      *BATCH                                    SA           # (OBSOLETED BY *BATCH*)                                          
            D2T1    327                                                             UM                                              
00172/001  *UMIST                    MACRO LIB       SM     ISTM    S0720 'D3T1' FSNAME=UMIST.MACRO_LIB.SM.1(1)                  435
            D4T1    489  UMIST.MACRO_LIB.SM.001             1 SEQ      80   14 PAGE UM   SALISBURY           JULY 31, 1973  00:35.25
0          172/1 THRU 172/9 REPRESENT THE CURRENT SOURCE FOR *UMIST. IT CONSISTS OF 1 MACRO LIBRARY, 2 COPY SECTIONS, AND
           6 ASSEMBLIES. TO ASSEMBLE UMIST CREATE AND FILL /SYMBOLS AND /PSECT (THE COPY SECTIONS), CREATE THE MACRO LIBRARY,
           AND ASSEMBLE ANY OR ALL OF THE ASSEMBLIES USING BOTH *SYSMAC AND THE SPECIAL MACRO LIBRARY.
           COMPONENT 172/1 IS THE MACRO LIBRARY READY FOR COPYING INTO A FILE.
           UMIST IS THE UM VERSION OF THE TRAC STRING PROCESSING LANGUAGE AND IS UNCHANGED SINCE 2.0.
00172/002  *UMIST                    /SYMBOLS        SA     ISC1    S0720 'D3T1' FSNAME=UMIST./SYMBOLS.SA.2(1)                   436
            D4T1    490  UMIST./SYMBOLS.SA.002              1 SEQ      80    4 PAGE UM   SALISBURY           JULY 31, 1973  00:35.27
0          THIS IS THE "/SYMBOLS" COPY SECTION
00172/003  *UMIST                    /PSECT          SA     ISC2    S0720 'D3T1' FSNAME=UMIST./PSECT.SA.3(1)                     437
            D4T1    491  UMIST./PSECT.SA.003                1 SEQ      80    7 PAGE UM   SALISBURY           JULY 31, 1973  00:35.29
0          THIS IS THE "/PSECT" COPY SECTION
00172/004  *UMIST                    /ENTRY          SA     IST1    S0720 'D3T1' FSNAME=UMIST./ENTRY.SA.4(1)                     438
            D4T1    492  UMIST./ENTRY.SA.004                1 SEQ      80    7 PAGE UM   SALISBURY           JULY 31, 1973  00:35.31
0          "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH AS POSSIBLE.
1                                                                                               THU SEP 12/96   23:39:34   Page   69
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00172/005  *UMIST                    /TABLES         SA     IST2    S0720 'D3T1' FSNAME=UMIST./TABLES.SA.5(1)                    439
            D4T1    493  UMIST./TABLES.SA.005               1 SEQ      80    9 PAGE UM   SALISBURY           JULY 31, 1973  00:35.33
0          MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS.
           CALLED "/TABLES"
00172/006  *UMIST                    /MISC           SA     IST3    S0720 'D3T1' FSNAME=UMIST./MISC.SA.6(1)                      440
            D4T1    494  UMIST./MISC.SA.006                 1 SEQ      80    2 PAGE UM   SALISBURY           JULY 31, 1973  00:35.35
0          "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK,
           INPUT BUFFER, AND FREE STORAGE.
00172/007  *UMIST                    /UTILITIES      SA     IST4    S0720 'D3T1' FSNAME=UMIST./UTILITIES.SA.7(1)                 441
            D4T1    495  UMIST./UTILITIES.SA.007            1 SEQ      80   32 PAGE UM   SALISBURY           JULY 31, 1973  00:35.40
0          "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH SUPPORT PRIMITIVE FUNCTIONS.
           THIS ASSEMBLY USES THE "SWPR" RPQ'ED INSTRUCTION.
00172/008  *UMIST                    /FCNS/1         SA     IST5    S0720 'D3T1' FSNAME=UMIST./FCNS/1.SA.8(1)                    442
            D4T1    496  UMIST./FCNS/1.SA.008               1 SEQ      80   37 PAGE UM   SALISBURY           JULY 31, 1973  00:35.46
0          "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS.
00172/009  *UMIST                    /FCNS/2         SA     IST6    S0720 'D3T1' FSNAME=UMIST./FCNS/2.SA.9(1)                    443
            D4T1    497  UMIST./FCNS/2.SA.009               1 SEQ      80   30 PAGE UM   SALISBURY           JULY 31, 1973  00:35.51
0          "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS.
00172/010  *UMIST                    TEST DECK       D              S0720 'D3T1' FSNAME=UMIST.TEST_DECK.D.10(1)                  444
            D4T1    498  UMIST.TEST_DECK.D.010              1 SEQ      80    3 PAGE UM   SALISBURY           JULY 31, 1973  00:35.54
0          "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF.
00172/011  *UMIST                    OBJECT          OC             *UMIST                                                          
            D4T1    499  UMIST.OBJECT.OC.011                1 LINE     80   16 PAGE UM   SALISBURY           JULY 27, 1977  23:25:21
                         *UMIST               
00175      *GPAKLIB                                  OL           # (OBSOLETE)                                                      
            D4T1    500  GPAKLIB..OL.                       1 SEQ    3888   40 DISK UM                       JAN. 22, 1973  18:22.11
00178      *PIL - OLD VERSION                        SA  S        # (OBSOLETED BY 566)                                              
            D3T1    447  PIL..SA.1                          1 SEQ      80  215 PAGE UM                       JULY 31, 1973  00:38.27
00179      *GPAKGRID                                 OC           # (OBSOLETE)                                                      
            D4T1    501  GPAKGRID..OC.                      1 LINE     80    7 DISK UM                       JAN. 22, 1973  22:06.14
00180       SCANDASD                                 SA           # (OBSOLETE)                                                      
            D2T1    117                                                             UM                                              
00182/001  *SNOBOL4                  MAIN            SA  G          S0720 'D3T1' FSNAME=SNOBOL4.S4.SA.1(1)                       450
            D4T1    502  SNOBOL4.MAIN.SA.001                1 SEQ      80  138 PAGE UM   SWARTZ              JULY 31, 1973  00:40.21
0          BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4.
           COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13).
1                                                                                               THU SEP 12/96   23:39:34   Page   70
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 182/6 
00182/002  *SNOBOL4                  SUBR            SA  G          S0720 'D3T1' FSNAME=SNOBOL4.SUBR.SA.2(1)                     451
            D4T1    503  SNOBOL4.SUBR.SA.002                1 SEQ      80   46 PAGE UM   SWARTZ              JULY 31, 1973  00:41.01
0          BELL LABS SOURCE FOR SUBROUTINES.
00182/003  *SNOBOL4                  MACROS          SA  G          S0720 'D3T1' FSNAME=SNOBOL4.MACROS.SA.3(1)                   452
            D4T1    504  SNOBOL4.MACROS.SA.003              1 SEQ      80   41 PAGE UM   SWARTZ              JULY 31, 1973  00:44.08
0          BELL LABS SOURCE FOR MACROS.
00182/004  *SNOBOL4                  GENERATE        C              S0101 'SNOBOL4 FS' FSNAME=S4.GEN                                
            D4T1    505  SNOBOL4.GENERATE.C.004             1 LINE    128    1 PAGE UM   SWARTZ              MAY  06, 1975  19:57:08
0          MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4.
00182/005  *SNOBOL4                  LINKEDIT        C              S0101 'SNOBOL4 FS' FSNAME=S4.LINK                               
            D4T1    506  SNOBOL4.LINKEDIT.C.005             1 LINE     54    1 PAGE UM   SWARTZ              MAY  06, 1975  19:57:10
0          MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4.
00182/006  *SNOBOL4                  UPDATE          UU  G          S0101 'SNOBOL4 FS' FSNAME=S4.MTS.U                              
            D4T1    507  SNOBOL4.UPDATE.UU.006              1 LINE     80   23 PAGE UM   SWARTZ              APR. 30, 1975  22:36:24
0          *UPDATE DECK TO MODIFIY BELL LABS SOURCE (182/1) TO BRING IT UP TO VERSION 3.10
           SNOBOL 4 AND TO ADD THE CHANGES NECESSARY TO RUN IT IN MTS.
00182/007  *SNOBOL4                  OBJECT          OE  G          *SNOBOL4                                                        
            D4T1    508  SNOBOL4.OBJECT.OE.007              1 SEQ   32767   27 PAGE UM   SWARTZ              JULY 27, 1977  23:26:57
                         *SNOBOL4             
0          OBJECT FROM ASSEMBLY OF MAIN AND SUBR, WHICH HAS BEEN COMBINED AND PURGED
           BY *LINKEDIT.
00182/008  *SNOBOL4                  MACLEAN         SP  G          S0720 'D3T1' FSNAME=SNOBOL4.MACLEAN.SP.6(1)                  455
            D4T1    509  SNOBOL4.MACLEAN.SP.008             1 SEQ      80    1 PAGE UM   SWARTZ              JULY 31, 1973  00:47.21
0          SOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSEMBLY.
00182/009  *SNOBOL4                  MACLEAN         OC  G          S0720 'D3T1' FSNAME=SNOBOL4.MACLEAN.OC.7(1)                  456
            D4T1    510  SNOBOL4.MACLEAN.OC.009             1 SEQ      80    2 PAGE UM   SWARTZ              JULY 31, 1973  00:47.23
0          RUN THIS PLUS *PL1LIB.
00182/010  *SNOBOL4                  TEST PGMS       SS  G          S0101 'SNOBOL4 FS' FSNAME=S4.TEST                               
            D4T1    511  SNOBOL4.TEST_PGMS.SS.010           1 LINE     72    3 PAGE UM   SWARTZ              APR. 30, 1975  22:36:43
0          PROGRAMS FOR TESTING SNOBOL4.
00182/011  *SNOBOL4                  MLINK           SA  G          S0101 'SNOBOL4 FS' FSNAME=MLINK                                 
            D4T1    512  SNOBOL4.MLINK.SA.011               1 LINE     28    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:16
0          COPY SECTION.
1                                                                                               THU SEP 12/96   23:39:34   Page   71
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 182/1, 334/1 
00182/012  *SNOBOL4                  PARMS           SA  G          S0101 'SNOBOL4 FS' FSNAME=PARMS                                 
            D4T1    513  SNOBOL4.PARMS.SA.012               1 LINE     68    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:18
0          COPY SECTION.
0          Referenced by comments of: 182/1, 334/1 
00182/013  *SNOBOL4                  MDATA           SA  G          S0101 'SNOBOL4 FS' FSNAME=MDATA                                 
            D4T1    514  SNOBOL4.MDATA.SA.013               1 LINE     39    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:14
0          COPY SECTION.
0          Referenced by comments of: 182/1, 334/1 
00191      *TRANSNOBOL                               SS  G          *TRANSNOBOL                                                     
            D4T1    515  TRANSNOBOL..SS.                    1 LINE     76    4 PAGE UM   SWARTZ              JULY 27, 1977  23:27:11
                         *TRANSNOBOL          
0          CONVERT SNOBOL3 TO SNOBOL4. UNCHANGED SINCE DIST 1.
00193/001  *OSMAC                                    SM             *OSMAC                                                          
            D4T1    516  OSMAC..SM.001                      1 LINE     72  159 PAGE UM   H YOUNG             JULY 27, 1977  23:27:12
                         *OSMAC               
0          MACRO LIBRARY FOR OS/360 RELEASE 21.0
00193/002  *OSMAC                    BUILD PROGRAM   SA     MACB    S0652 SOURCE POSN=MACBLD                                     1  
            D4T1    517  OSMAC.BUILD_PROGRAM.SA.002         1 SEQ      80   11 PAGE UM   H YOUNG             JULY 27, 1977  23:29:04
0          THIS IS A PROGRAM TO BUILD *OSMAC.  IT READS NAMES OF MACROS (UP TO 255 CHARS PER LINE) FROM
           SCARDS, DELETING ANY NAMES WHICH ARE DUPLICATES OR WHICH ARE LONGER THAN 8 CHARS.  THE LIST
           OF MACRO NAMES IS TERMINATED BY AN END-OF-FILE FROM SCARDS.  THE NAMES ARE SORTED INTO 
           ALPHABETICAL ORDER AND THE MACRO TAPE IS THEN READ FROM LOGICAL I/O UNIT 0.
           THE SPECIFIED MACROS ARE WRITTEN IN THE MACRO LIBRARY FILE (LOGICAL I/O UNIT 1)
           BEGINNING AT LINE 3000.  THE READING IS TERMINATED WHEN ALL SPECIFIED MACROS HAVE BEEN
           FOUND OR WHEN 2 CONSEQUTIVE END-OF-FILES HAVE BEEN READ.  A DIRECTORY SHOWING THE STARTING
           LINE NUMBER FOR EACH MACRO IS PRINTED ON SPRINT.
            
           NORMALLY, THIS PROGRAM DELETES SEQUENCE ID FROM THE MACROS TO SAVE FILE SPACE (A LOT).
           STATEMENTS 201 AND 202 SHOULD BE DELETED IF SEQUENCE ID IS TO BE PRESERVED:
                    LA    1,72
                    STH   1,LEN
00193/003  *OSMAC                    BUILD PROGRAM   OC             W116:BUILDMAC                                                   
            D4T1    518  OSMAC.BUILD_PROGRAM.OC.003         1 LINE     80    3 PAGE UM   H YOUNG             JULY 27, 1977  23:29:06
00196       PAGEIT                                   SA           # (OBSOLETED BY COMP 643)                                         
            D3T2      4  PAGEIT..SA.1                       1 LINE     80    3 PAGE UM                       JULY 31, 1973  20:59.23
0          Referenced by comments of: 643/1 
1                                                                                               THU SEP 12/96   23:39:34   Page   72
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00197    B *SMDS                                     M              *SMDS                                                           
            RD16T1   24  SMDS..M.                           1 LINE    168    6 PAGE UM   MTS                 JULY 12, 1979  22:26:02
                         *SMDS                
0          MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET).  USED IN CONJUNCTION WITH FMSG MACRO IN MTS.
00198/001   GUINFO/CUINFO SUBRS      D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=INFO                        
            D4T1    520  GUINFO/CUINFO_SUBRS.D4_MA.SA.001   1 SEQ      80   12 PAGE UM   MTS       HELFFRICH JULY 27, 1977  23:30:24
0          SUBROUTINES TO ALLOW USERS TO ACCESS (OR CHANGE) CERTAIN INFORMATION IN THE MTS DSECT.
           COPIES COPY:LLMPSEQU (087), COPY:JOBSTA (413/9), AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1).
00198/002B  GUINFO/CUINFO SUBRS      UPDATE          UC  G          MTS:INFOUPD                                                     
            RD16T1   25  GUINFO/CUINFO_SUBRS.UPDAT.UC.002   1 LINE     72    5 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:26:04
                         MTS.:INFOUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=INFO.
00198/003B  GUINFO/CUINFO SUBRS                      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00198/004B  GUINFO/CUINFO SUBRS                      L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=INFO.LIST             7   
            RD16T1   26  GUINFO/CUINFO_SUBRS..L.004         1 SEQ     133   55 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:26:15
00200      *SDARTN                                   SA           # (OBSOLETE)                                                      
            D3T2      8  SDARTN..SA.1                       1 LINE     80   94 PAGE UM                       JULY 31, 1973  21:01.58
00201/001  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                14 
            D4T1    524  GPSS.OS_SOURCE.SA.001              1 SEQ      80   20 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:43
0          THE MTS IMPLEMENTATION OF GPSS OFFERS SEVERAL FEATURES NOT PROVIDED BY THE IBM VERSION:
            
              (1) IMPROVED LISTING CONTROL WITH BATCH AND TERMINAL DEFAULTS.
              (2) LINE NUMBERS IN THE LISTING.
              (3) SENSIBLE CARRIAGE CONTROL (FAR FEWER PAGE SKIPS).
              (4) CAPABILITY OF DIRECTLY INTERFACING WITH SUBROUTINES THAT USE OS/I CALLING SEQUENCES.
              (5) SUBROUTINES TO ALLOW MANIPULATION OF GPSS DATA FROM FORTRAN PROGRAMS.
              (6) TIME ESTIMATES TO ALLOW ERROR OUTPUT TO BE PRINTED BEFORE MTS TERMINATES A JOB.
              (7) ATTENTION INTERRUPT CONTROL TO TELL THE USER WHERE HIS PROGRAM IS AND HOW MUCH HAS BEEN SPENT.
              (8) PADDING AND TRUNCATION OF JOBTAPES FOR DISK SPACE ECONOMY.
              (9) ERROR MESSAGE SUMMARY.
            
           THREE PRINCIPLE APPENDAGES ARE TACKED ONTO THE IBM MODULES TO MAKE THESE IMPROVEMENTS.  FIRST, A DRIVER PROGRAM
           IS PROVIDED TO SCAN THE PAR= FIELD AND SET-UP DEFAULTS; AND, AT THE CONCLUSION OF A RUN, TO PRINT AN ERROR
           SUMMARY WHERE APPROPRIATE.  SECOND, A SET OF INTERFACE SUBROUTINES PROVIDE A SIMULATED OS/360 ENVIRONMENT.
           ONE NOTABLE FEATURE OF THIS INTERFACE IS THAT SCRATCH FILE I/O IS IMPLEMENTED BY USE OF VIRTUAL MEMORY FILES.
           THIRD, A SET OF SMALL "HOOK" SUBROUTINES IS PROVIDED.  BECAUSE OF THE VOLATILITY OF THE RATHER POOR IBM
           CODE, SUCH FUNCTIONS AS IMPROVED LISTING CONTROL WERE IMPLEMENTED BY ASSEMBLING "HOOKS" INTO THE IBM CODE,
           EACH "HOOK" RESULTING IN A CALL TO A "HOOK" SUBROUTINE.  WHILE THE "HOOK" SUBROUTINES EXHIBIT WHAT WOULD
           APPEAR TO BE BAD PROGRAMMING PRACTICES (E.G. ABSOLUTE DISPLACEMENTS IN INSTRUCTIONS), THEY HAVE BEEN CODED
           IN SUCH A WAY AS TO BE INSENSITIVE TO REASSEMBLY OF THE IBM MODULES.
1                                                                                               THU SEP 12/96   23:39:34   Page   73
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
           COMPONENTS 201/1 THROUGH 201/11 ARE THE OS/360 SOURCE FOR GPSS VERSION 1 MODIFICATION LEVEL 3.
00201/002  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                15 
            D4T1    525  GPSS.OS_SOURCE.SA.002              1 SEQ      80   11 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:44
00201/003  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                16 
            D4T1    526  GPSS.OS_SOURCE.SA.003              1 SEQ      80    8 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:46
00201/004  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                17 
            D4T1    527  GPSS.OS_SOURCE.SA.004              1 SEQ      80   62 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:50
00201/005  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                18 
            D4T1    528  GPSS.OS_SOURCE.SA.005              1 SEQ      80  102 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:55
00201/006  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                19 
            D4T1    529  GPSS.OS_SOURCE.SA.006              1 SEQ      80   22 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:57
00201/007  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                20 
            D4T1    530  GPSS.OS_SOURCE.SA.007              1 SEQ      80   88 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:02
00201/008  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                21 
            D4T1    531  GPSS.OS_SOURCE.SA.008              1 SEQ      80  112 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:08
00201/009  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                22 
            D4T1    532  GPSS.OS_SOURCE.SA.009              1 SEQ      80  152 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:16
00201/010  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                23 
            D4T1    533  GPSS.OS_SOURCE.SA.010              1 SEQ      80  109 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:23
00201/011  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                24 
            D4T1    534  GPSS.OS_SOURCE.SA.011              1 SEQ      80   57 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:28
00201/012  *GPSS                     GPSSUPDATE      UU  G          S0289 S289 'GPSS/360' FSNAME=GPSSUPDATE                         
            D4T1    535  GPSS.GPSSUPDATE.UU.012             1 LINE     80    7 PAGE UM   FLANIGAN            AUG. 13, 1974  15:30.13
0          UPDATE DECK TO BE APPLIED TO 11 OS SOURCE FILES.  A TAPE-TO-TAPE UPDATE VIA *UPDATE
           USING *IBM* TO *MTS* IS ASSUMED.  THIS UPDATE PRODUCES VERSION 1, MOD 4 GPSS.
00201/013  *GPSS                     GPSS.OS.O       OE  G          S0289 S289 'GPSS/360' FSNAME=GPSS.OS.O                          
            D4T1    536  GPSS.GPSS.OS.O.OE.013              1 LINE    255   43 PAGE UM   FLANIGAN            AUG. 13, 1974  15:28.34
0          OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES.
00201/014  *GPSS                     GPSSMAC         SM  G  GMAC    S0289 S289 'GPSS/360' FSNAME=GPSSMAC                            
            D4T1    537  GPSS.GPSSMAC.SM.014                1 LINE     80    8 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.29
0          MACRO LIBRARY NEEDED FOR ALL ASSEMBLIES.
00201/015  *GPSS                     GPSS.S          SA  G  GPSS    S0289 S289 'GPSS/360' FSNAME=GPSS.S                             
            D4T1    538  GPSS.GPSS.S.SA.015                 1 LINE     80    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.33
0          SOURCE FOR MTS DRIVER PROGRAM.
1                                                                                               THU SEP 12/96   23:39:34   Page   74
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00201/016  *GPSS                     GPSSPKG.S       SA  G  GPKG    S0289 S289 'GPSS/360' FSNAME=GPSSPKG.S                          
            D4T1    539  GPSS.GPSSPKG.S.SA.016              1 LINE     80    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.38
0          SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS.
00201/017  *GPSS                     HOOKSECT.S      SA  G  GHOK    S0289 S289 'GPSS/360' FSNAME=HOOKSECT.S                         
            D4T1    540  GPSS.HOOKSECT.S.SA.017             1 LINE     80   15 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.50
0          SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE.
00201/018  *GPSS                     JUNK.S          SA  G  GJNK    S0289 S289 'GPSS/360' FSNAME=JUNK.S                             
            D4T1    541  GPSS.JUNK.S.SA.018                 1 LINE     80    3 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.42
0          SOURCE FOR SEVERAL SUBROUTINES.
00201/019  *GPSS                     GPSS.MTS.O      OE  G          S0289 S289 'GPSS/360' FSNAME=GPSS.MTS.O                         
            D4T1    542  GPSS.GPSS.MTS.O.OE.019             1 LINE    255    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:49.02
0          OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S.
00201/020  *GPSS                     *GPSS           OE  G          *GPSS                                                           
            D4T1    543  GPSS.*GPSS.OE.020                  1 SEQ   32767   34 PAGE UM   FLANIGAN            JULY 27, 1977  23:38:01
                         *GPSS                
0          LINKEDIT OF GPSS.OS.O AND GPSS.MTS.O WITH ENTRY POINT ESD ITEMS PURGED.
           NOTE:  GPSS CALL THE FOLLOWING LIBRARY SUBROUTINES:  COST, SETIME, AND TIMNTRP.
00201/021  *GPSS                     GPSSLIB         SA  G  GHLP    S0289 S289 'GPSS/360' FSNAME=HELPLIB.S                          
            D4T1    544  GPSS.*GPSSLIB.SA.021               1 LINE     80    8 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.45
0          SOURCE FOR SUBROUTINES WHICH ALLOW THE MANIPULATION OF GPSS DATA FROM FORTRAN SUBROUTINES.
00201/022  *GPSS                     *GPSSLIB        OC  G          *GPSSLIB                                                        
            D4T1    545  GPSS.*GPSSLIB.OC.022               1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 27, 1977  23:38:05
                         *GPSSLIB             
00201/023  *GPSS                     *GPSSERR        M   G          *GPSSERR                                                        
            D4T1    546  GPSS.*GPSSERR.M.023                1 LINE     73    9 PAGE UM   FLANIGAN            JULY 27, 1977  23:38:08
                         *GPSSERR             
0          ERROR MESSAGE FILE.
00201/024  *GPSS                     TESTPROG        S   G  TEST    S0289 S289 'GPSS/360' FSNAME=TESTPROG                           
            D4T1    547  GPSS.TESTPROG.S.024                1 LINE     80    1 PAGE UM   FLANIGAN            APR. 06, 1974  14:49.23
0          SOURCE FOR TEST PROGRAM.
00201/025  *GPSS                     TESTOUTPUT      D   G          S0289 S289 'GPSS/360' FSNAME=TESTOUTPUT                         
            D4T1    548  GPSS.TESTOUTPUT.D.025              1 LINE    129    3 PAGE UM   FLANIGAN            NOV. 02, 1974  13:57.22
0          OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM.
1                                                                                               THU SEP 12/96   23:39:34   Page   75
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00201/026  *GPSS                     NOTES           WF             S0780 'D3.1T1' FSNAME=GPSS/360.D3.1_NOTES.WF.26(1)           190
            D4T1    549  GPSS.NOTES.WF.026                  1 LINE    107    1 PAGE UM   FLANIGAN            MAR. 06, 1974  03:34.46
0          WRITEUP DESCRIBING GPSS/360.
00204/001   FORTRANG                 IEYFORT         SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORT.S                       
            D4T1    550  FORTRANG.IEYFORT.SA.001            1 LINE     72   11 PAGE UM   HANSEN              JUNE 01, 1976  10:43:12
0          THIS IS THE MTS VERSION OF THE CONTROL MODULE OF THE FORTRAN G COMPILER. IT INCORPORATES THE FUNCTIONS
           OF THE OS MODULES IEYFORT AND IEYFORT2.  THIS MODULE IS THE ENTRY POINT TO THE COMPILER.
0          Referenced by comments of: 551/1 
00204/002   FORTRANG                 IEYFORT         OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORT.O                       
            D4T1    551  FORTRANG.IEYFORT.OC.002            1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  10:43:23
00204/003   FORTRANG                 IEYFORTD        SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORTD.S                      
            D4T1    552  FORTRANG.IEYFORTD.SA.003           1 LINE     72   12 PAGE UM   HANSEN              JUNE 01, 1976  10:43:18
0          THIS IS THE CONTROL MODULE OF THE COMPILER VERSION WHICH PRODUCES SYM RECORDS.
           IT OBTAINS SYMBOL STORAGE IN SEGMENT 6 AND COMPILER STORAGE IN SEGMENTS 7 AND
           ABOVE, GREATLY REDUCING THE CHANCE OF A COMPILER PROGRAM INTERRUPT.
0          Referenced by comments of: 204/21 
00204/004   FORTRANG                 IEYFORTD        OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORTD.O                      
            D4T1    553  FORTRANG.IEYFORTD.OC.004           1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  10:43:37
00204/005   FORTRANG                 IEYALL          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYALL.S                        
            D4T1    554  FORTRANG.IEYALL.SA.005             1 LINE     80   87 PAGE UM   HANSEN              OCT. 06, 1975  14:36:02
0          FORTRAN G ALLOCATE MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS
           (204/23).
00204/006   FORTRANG                 IEYALL          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYALL.O                        
            D4T1    555  FORTRANG.IEYALL.OC.006             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:38
00204/007   FORTRANG                 IEYEXT          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYEXT.S                        
            D4T1    556  FORTRANG.IEYEXT.SA.007             1 LINE     80   60 PAGE UM   HANSEN              OCT. 06, 1975  14:36:23
0          FORTRAN G EXIT MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS (204/23).
00204/008   FORTRANG                 IEYEXT          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYEXT.O                        
            D4T1    557  FORTRANG.IEYEXT.OC.008             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:43
00204/009   FORTRANG                 IEYGEN          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYGEN.S                        
            D4T1    558  FORTRANG.IEYGEN.SA.009             1 LINE     80  171 PAGE UM   HANSEN              OCT. 06, 1975  14:37:56
0          FORTRAN G CODE GENERATION MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING
           IEYMACROS (204/23).
1                                                                                               THU SEP 12/96   23:39:34   Page   76
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00204/010   FORTRANG                 IEYGEN          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYGEN.O                        
            D4T1    559  FORTRANG.IEYGEN.OC.010             1 LINE     80    8 PAGE UM   HANSEN              JUNE 01, 1976  11:26:47
00204/011   FORTRANG                 IEYINT          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYINT.S                        
            D4T1    560  FORTRANG.IEYINT.SA.011             1 LINE     80    3 PAGE UM   HANSEN              OCT. 06, 1975  14:38:23
0          FORTRAN G POP INTERPRETER.  COPIES IEYDINT (204/24).  ASSEMBLE USING IEYMACROS
           (204/23).
00204/012   FORTRANG                 IEYINT          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYINT.O                        
            D4T1    561  FORTRANG.IEYINT.OC.012             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:51
00204/013   FORTRANG                 IEYPAR          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYPAR.S                        
            D4T1    562  FORTRANG.IEYPAR.SA.013             1 LINE     80  188 PAGE UM   HANSEN              NOV. 13, 1975  09:23:17
0          FORTRAN G PARSER MODIFIED TO ALLOW AN ARBITRARY NUMBER OF COMMENTS BETWEEN ANY
           TWO STATEMENTS.  COPIES IEYDINT (204/24).  ASSEMBLE USING IEYMACROS (204/23).
00204/014   FORTRANG                 IEYPAR          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYPAR.O                        
            D4T1    563  FORTRANG.IEYPAR.OC.014             1 LINE     80    9 PAGE UM   HANSEN              JUNE 01, 1976  11:26:55
00204/015   FORTRANG                 IEYROL          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYROL.S                        
            D4T1    564  FORTRANG.IEYROL.SA.015             1 LINE     80   11 PAGE UM   HANSEN              OCT. 06, 1975  14:39:13
0          FORTRAN G ROLL CONTROL MODULE FOR COMPILER WORKSPACE.  ASSEMBLE USING IEYMACROS
           (204/23).
00204/016   FORTRANG                 IEYROL          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYROL.O                        
            D4T1    565  FORTRANG.IEYROL.OC.016             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:27:00
00204/017   FORTRANG                 IEYOPT          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYOPT.S                        
            D4T1    566  FORTRANG.IEYOPT.SA.017             1 LINE     68    3 PAGE UM   HANSEN              OCT. 08, 1975  16:28:22
0          THIS IS AN OPTION SCANNER CALLED BY IEYFORT TO PARSE THE PAR FIELD.
00204/018   FORTRANG                 IEYOPT          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYOPT.O                        
            D4T1    567  FORTRANG.IEYOPT.OC.018             1 LINE    255    1 PAGE UM   HANSEN              OCT. 08, 1975  16:31:46
00204/019   FORTRANG                 IEYUNF          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYUNF.S                        
            D4T1    568  FORTRANG.IEYUNF.SA.019             1 LINE     80   35 PAGE UM   HANSEN              OCT. 06, 1975  14:39:38
0          FORTRAN G "UNIFY" MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS
           (204/23).
00204/020   FORTRANG                 IEYUNF          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYUNF.O                        
            D4T1    569  FORTRANG.IEYUNF.OC.020             1 LINE     80    8 PAGE UM   HANSEN              JUNE 01, 1976  11:27:04
00204/021   FORTRANG                 IEYSYM          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYSYM.S                        
            D4T1    570  FORTRANG.IEYSYM.SA.021             1 LINE     72   15 PAGE UM   HANSEN              DEC. 15, 1975  12:43:24
0          THIS IS THE SYM CARD PRODUCING MODULE.  IT IS CALLED BY IEYFORTD (204/3).
1                                                                                               THU SEP 12/96   23:39:34   Page   77
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00204/022   FORTRANG                 IEYSYM          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYSYM.O                        
            D4T1    571  FORTRANG.IEYSYM.OC.022             1 LINE     80    4 PAGE UM   HANSEN              DEC. 15, 1975  12:43:35
00204/023   FORTRANG                 IEYMACROS       SM  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYMACROS                       
            D4T1    572  FORTRANG.IEYMACROS.SM.023          1 LINE     80   62 PAGE UM   HANSEN              OCT. 08, 1975  16:29:23
0          THE MACRO LIBRARY NEEDED TO ASSEMBLE ALL OS MODULES OF FORTRAN G, I.E. EVERYTHING
           EXCEPT IEYFORT, IEYFORTD, IEYOPT, AND IEYSYM.
0          Referenced by comments of: 204/5, 204/7, 204/9, 204/11, 204/13, 204/15, 204/19 
00204/024   FORTRANG                 IEYDINT         SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYDINT                         
            D4T1    573  FORTRANG.IEYDINT.SA.024            1 LINE     80   34 PAGE UM   HANSEN              OCT. 08, 1975  16:30:07
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
0          Referenced by comments of: 204/11, 204/13 
00204/025   FORTRANG                 IEYMID          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYMID                          
            D4T1    574  FORTRANG.IEYMID.SA.025             1 LINE     80    1 PAGE UM   HANSEN              OCT. 08, 1975  16:29:36
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
00204/026   FORTRANG                 IEYPRF          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYPRF                          
            D4T1    575  FORTRANG.IEYPRF.SA.026             1 LINE     80    1 PAGE UM   HANSEN              OCT. 08, 1975  16:29:45
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
00204/027   FORTRANG                 IEYPSCT         SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYPSCT                         
            D4T1    576  FORTRANG.IEYPSCT.SA.027            1 LINE     80    5 PAGE UM   HANSEN              OCT. 08, 1975  16:30:00
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
0          Referenced by comments of: 204/5, 204/7, 204/9, 204/19 
00204/028   FORTRANG                 REG OBJECT      OE  G          *FORTRANG                                                       
            D4T1    577  FORTRANG.REG_OBJECT.OE.028         1 SEQ   32766   16 PAGE UM   HANSEN              JULY 27, 1977  23:51:00
                         *FORTRANG            
0          THE LINKEDITED OBJECT OF THE REGULAR (NON-TEST) FORTRAN G COMPILER.
           IT INCLUDES IEYFORT, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, AND IEYUNF.
00204/029   FORTRANG                 TEST OBJECT     OE  G          *FTNGTEST                                                       
            D4T1    578  FORTRANG.TEST_OBJECT.OE.029        1 SEQ   32767   17 PAGE UM   HANSEN              JULY 27, 1977  23:51:01
                         *FTNGTEST            
0          THE LINKEDITED OBJECT OF THE SYM CARD PRODUCING VERSION OF THE FORTRAN G COMPILER.
           IT INCLUDES IEYFORTD, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, IEYSYM, AND IEYUNF.
00210/001  *LISP                                     SA  G          W118:LISP.S                                                     
            D4.2T1  122  LISP..SA.001                       1 LINE     71  105 PAGE UM   GOODRICH            MAR. 26, 1979  02:32:20
0          NEW LISP INTERPRETER WRITTEN BY UM MENTAL HEALTH RESEARCH INSTITUTE.
           THE OLD OS/360 LISP IS NOW USED ONLY IN CONJUNCTION WITH REDUCE2 (556).
1                                                                                               THU SEP 12/96   23:39:34   Page   78
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00210/002  *LISP                                     OE  G          *LISP                                                           
            D4.2T1  123  LISP..OE.002                       1 SEQ   32767   26 PAGE UM   GOODRICH            MAR. 26, 1979  02:32:29
                         *LISP                
00210/003  *LISP                     TRANSIT         SA  G          C1945 SAVE 'WR2' POSN=TRANSIT:ASMG                              
            D4T1    581  LISP.TRANSIT.SA.003                1 SEQ      80   10 PAGE UM   GOODRICH            JULY 27, 1977  23:51:59
0          THIS COMPONENT CONTAINS THE "HYPOTHETICAL WORLDS" FUNCTIONS, RPLACA2, RPLACD2,
           SETA2, NEWWORLD, REALWORLD, GETWORLD.
00210/004  *LISP                     EDITOR          S   G          C1945 SAVE 'WR2' POSN=EDIT:LISP                                 
            D4T1    582  LISP.EDITOR.S.004                  1 SEQ     152   18 PAGE UM   GOODRICH            JULY 27, 1977  23:52:01
0          THIS COMPONENT CONTAINS THE LISP SOURCE FOR A LISP DATA STRUCTURE EDITOR.
           IT WAS WRITTEN AT UBC AND IS DOCUMENTED IN MTS VOLUME 8.
00210/005  *LISP                     BREAK           S   G          C1945 SAVE 'WR2' POSN=DEBUG:LISP                                
            D4T1    583  LISP.BREAK.S.005                   1 SEQ     126   10 PAGE UM   GOODRICH            JULY 27, 1977  23:53:01
0          THIS COMPONENT CONTAINS THE LISP SOURCE FOR A LISP DEBUGGING PACKAGE.
           IT WAS WRITTEN AT UBC AND IS DOCUMENTED IN MTS VOLUME 8.
00210/006  *LISP                     COMPILER        S   G          W118:LCOM                                                       
            D4.2T1  124  LISP.COMPILER.S.006                1 LINE    116   28 PAGE UM   GOODRICH            MAR. 26, 1979  02:32:29
0          THIS IS THE LISP SOURCE FOR THE LISP COMPILER.
00210/007  *LISP                     *LISPLIB        O   G          *LISPLIB                                                        
            D4.2T1  125  LISP.*LISPLIB.O.007                1 LINE  32520   73 PAGE UM   GOODRICH            MAR. 26, 1979  02:32:33
                         *LISPLIB             
0          THIS IS A SEQ FILE WHICH CONTAINS CHECKPOINTED VERSIONS OF LESS FREQUENTLY
           USED FUNCTIONS IN A FORMAT UNDERSTOOD ONLY BY THE LISP INTERPRETER.
           IT CURRENTLY CONTAINS THE SUBCOMPONENTS TRANSIT, EDITOR, BREAK, AND COMPILER.
00212      *FILESNIFF                                SA  G        # (OBSOLETED BY $FILESTATUS, COMP 529)                            
            D3T2     49  FILESNIFF..SA.1                    1 LINE     80    6 PAGE UM                       JULY 31, 1973  21:17.52
00217      *LIBTOFASTLIB                             S            # (OBSOLETE)                                                      
            D2T1    289                                                             UM                                              
00220      *GOMAD                                    S            # (OBSOLETE)                                                      
            D2T1    293                                                             UM                                              
00221      **TP                                      S            # (OBSOLETE)                                                      
            D2T1    140                                                             UM                                              
00223/001   SIOERR SUBR                              SA  G          MTA:SIOERR(1,999)                                               
            D4T1    586  SIOERR_SUBR..SA.001                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  23:54:04
                         MTA.:SIOERR          
0          FORTRAN INTERFACE TO SETIOERR.
1                                                                                               THU SEP 12/96   23:39:34   Page   79
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00223/002   SIOERR SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00225/001B *SYSMAC                                   SM  G          MTA:SYSMAC                                                      
            RD16T1   27  SYSMAC..SM.001                     1 LINE     80   97 PAGE UM   MTA                 JULY 12, 1979  22:26:16
0          MTS SYSTEM MACRO LIBRARY FOR GENERAL USE.  THIS VERSION IS THE SAME AS
           *SYSMAC ON THE TEST PACK (225/2) EXCEPT THAT THE COMMENTS HAVE NOT BEEN REMOVED.
0          Referenced by comments of: 1000/51 
00225/002B *SYSMAC                                   SM  G        # *SYSMAC                                                         
                                                                                    UM   MTA                                        
                         *SYSMAC              
0          Referenced by comments of: 225/1, 570/1 
00225/003B *SYSMAC                   TEST PGM 1      SA  G          MTA:TESTIOMAC                                                   
            RD16T1   28  SYSMAC.TEST_PGM_1.SA.003           1 LINE     72    9 PAGE UM   MTA                 JULY 12, 1979  22:27:14
                         MTA.:TESTIOMAC       
0          TEST PROGRAM FOR MANY MACROS IN *SYSMAC.
00225/004  *SYSMAC                   TEST PGM 2      SA  G          MTA:TESTMINMAX                                                  
            D4.2T1  128  SYSMAC.TEST_PGM_2.SA.004           1 LINE     45    3 PAGE UM   MTA                 MAR. 26, 1979  02:33:10
                         MTA:TESTMINMAX       
0          TESTS MIN AND MAX MACROS.
00225/005C *SYSMAC                   TRTAB WRITEUP   WF             W062:TRTAB.W                                                    
            RD16T1   29  SYSMAC.TRTAB_WRITEUP.WF.005        1 LINE    100    3 PAGE UM   TIFFANY             JULY 12, 1979  22:27:17
0          WRITEUP FOR REVISED TRTAB MACRO.  WILL BE INCORPORATED INTO MTS VOLUME
           14 EVENTUALLY.
00229      *TIDY                                     SF           # (OBSOLETED BY COMP 727)                                         
            D4T1    589  TIDY..SF.001                       1 SEQ      80   60 PAGE UM                       JULY 31, 1973  21:20.10
0          Referenced by comments of: 727/1 
00231      *GRAPHLIB                                 SA           # (OBSOLETE)                                                      
            D4T1    591  GRAPHLIB..SA.                      1 SEQ      80  211 PAGE UM                       JULY 31, 1973  21:21.10
00233/001   PL1 LIBRARY              MACLIB          SM           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/002   PL1 LIBRARY              SAMEQU          SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/003   PL1 LIBRARY              REPLACE         SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
1                                                                                               THU SEP 12/96   23:39:34   Page   80
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00233/004   PL1 LIBRARY              CKLIO           SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/005   PL1 LIBRARY              NONSENSE        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/006   PL1 LIBRARY              FREEDDEF        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/007   PL1 LIBRARY              FINDTIOT        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/008   PL1 LIBRARY              DDEF            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/009   PL1 LIBRARY              OPEN            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/010   PL1 LIBRARY              ROUT            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/011   PL1 LIBRARY              CLOSE           SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/012   PL1 LIBRARY              QUIT            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/013   PL1 LIBRARY              PL1MACLIB       SM  G  PL1M    W062:PL1MACLIB                                                  
            D4T1    592  PL1_LIBRARY.PL1MACLIB.SM.013       1 LINE     80   13 PAGE UM   TIFFANY             JULY 27, 1977  23:56:02
0          MACRO LIBRARY FOR PL/I LIBRARY ROUTINES.
0          Referenced by comments of: 233/41 
00233/014   PL1 LIBRARY              SNAP            SA  G  SNAP    S0410 MTSPL1 'PL1LIB' POSN=SNAP                              14 
            D4T1    593  PL1_LIBRARY.SNAP.SA.014            1 SEQ      80    3 PAGE UM   TIFFANY             JULY 27, 1977  23:56:16
0          SUBROUTINES TO DUMP.  USED BY IHEDUMP.
00233/015   PL1 LIBRARY              CNTL            SA  G  CNTL    S0410 MTSPL1 'PL1LIB' POSN=CNTL                              15 
            D4T1    594  PL1_LIBRARY.CNTL.SA.015            1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  23:56:17
0          SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND MTS 'CONTROL' SUBROUTINE.
00233/016   PL1 LIBRARY              RAND            SA  G  RAND    S0410 MTSPL1 'PL1LIB' POSN=RAND.D4                              
            D4T1    595  PL1_LIBRARY.RAND.SA.016            1 LINE     80    2 PAGE UM   TIFFANY             JULY 28, 1977  00:03:58
0          RANDOM NUMBER GENERATOR
00233/017   PL1 LIBRARY              USERID          SA  G  USER    S0410 MTSPL1 'PL1LIB' POSN=USERID                            17 
            D4T1    596  PL1_LIBRARY.USERID.SA.017          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:00
0          RUN TIME SUBR
1                                                                                               THU SEP 12/96   23:39:34   Page   81
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00233/018   PL1 LIBRARY              BATCH           SA  G  BTCH    S0410 MTSPL1 'PL1LIB' POSN=BATCH                             18 
            D4T1    597  PL1_LIBRARY.BATCH.SA.018           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:02
0          RUN TIME SUBROUTINE TO CALL CANREPLY
00233/019   PL1 LIBRARY              ELAPSED         SA  G  ELPS    S0410 MTSPL1 'PL1LIB' POSN=ELAPSED                           19 
            D4T1    598  PL1_LIBRARY.ELAPSED.SA.019         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:05
0          RUN TIME SUBROUTINE
00233/020   PL1 LIBRARY              CPUTIME         SA  G  CPUT    S0410 MTSPL1 'PL1LIB' POSN=CPUTIME                           20 
            D4T1    599  PL1_LIBRARY.CPUTIME.SA.020         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:07
0          RUN TIME SUBROUTINE
00233/021   PL1 LIBRARY              UN-QSAM         SA  G  ITBA    S0410 MTSPL1 'PL1LIB' POSN=IHEITB.D4                            
            D4T1    600  PL1_LIBRARY.UN-QSAM.SA.021         1 LINE     80   18 PAGE UM   TIFFANY             JULY 27, 1977  01:52:09
0          I/O ROUTINES FOR NON-STANDARD PL/I FILES -- IHEITB
00233/022   PL1 LIBRARY              KEY             SA  G  NKEY    S0410 MTSPL1 'PL1LIB' POSN=NEXTKEY                           22 
            D4T1    601  PL1_LIBRARY.KEY.SA.022             1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:12
0          NEXTKEY AND LASTKEY
00233/023   PL1 LIBRARY              ATTACH          SA  G  ATCH    S0410 MTSPL1 'PL1LIB' POSN=ATTACH                            23 
            D4T1    602  PL1_LIBRARY.ATTACH.SA.023          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:14
0          PROGRAM TO CALL DDEF AT RUN TIME
00233/024   PL1 LIBRARY              DISPLAY         SA  G  DSPA    S0410 MTSPL1 'PL1LIB' POSN=IHEDSP                            24 
            D4T1    603  PL1_LIBRARY.DISPLAY.SA.024         1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:16
0          REPLACEMENT FOR AN IBM SUBROUTINE.  OUTPUT ON SERCOM, INPUT FROM GUSER.
00233/025   PL1 LIBRARY              IHEMAIN         SA  G  MAIN    S0410 MTSPL1 'PL1LIB' POSN=IHEMAIN                           25 
            D4T1    604  PL1_LIBRARY.IHEMAIN.SA.025         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:19
0          MAIN PROGRAM IF USER DOES NOT GIVE ONE
0          Referenced by comments of: 233/43 
00233/026   PL1 LIBRARY              IHEOST          SA  G  OSTA    S0410 MTSPL1 'PL1LIB' POSN=IHEOST                            26 
            D4T1    605  PL1_LIBRARY.IHEOST.SA.026          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:21
0          GIVES TIME AND DATE.
00233/027   PL1 LIBRARY              SIGNOFF         SA  G  SIGN    S0410 MTSPL1 'PL1LIB' POSN=SIGNOFF                           27 
            D4T1    606  PL1_LIBRARY.SIGNOFF.SA.027         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:23
0          RUN TIME SUBR
1                                                                                               THU SEP 12/96   23:39:34   Page   82
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00233/028   PL1 LIBRARY              SYSERR          SA  G  SERR    S0410 MTSPL1 'PL1LIB' POSN=SYSERR                            28 
            D4T1    607  PL1_LIBRARY.SYSERR.SA.028          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:26
0          SYSTEM AND ERROR
00233/029   PL1 LIBRARY              IHELTT          SA  G  LTTA    S0410 MTSPL1 'PL1LIB' POSN=IHELTT                            29 
            D4T1    608  PL1_LIBRARY.IHELTT.SA.029          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:28
0          TRANSFER VECTOR TABLE IN *PL1LIB.
00233/030   PL1 LIBRARY              IHELTV          SA  G  LTVA    S0410 MTSPL1 'PL1LIB' POSN=IHELTV                            30 
            D4T1    609  PL1_LIBRARY.IHELTV.SA.030          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:30
0          TRANSFER VECTOR TABLE IN SHAREDPL1LIB.
00233/031   PL1 LIBRARY              IHESAP          SA  G  SAPA    S0410 MTSPL1 'PL1LIB' POSN=IHESAP.D4                            
            D4T1    610  PL1_LIBRARY.IHESAP.SA.031          1 LINE     80    8 PAGE UM   TIFFANY             JULY 27, 1977  01:52:32
0          PL/I PROGRAM INITIALIZER.
0          Referenced by comments of: 233/43 
00233/032   PL1 LIBRARY              FINFO           SA  G  FINF    S0410 MTSPL1 'PL1LIB' POSN=FINFO                             32 
            D4T1    611  PL1_LIBRARY.FINFO.SA.032           1 SEQ      80    4 PAGE UM   TIFFANY             JULY 27, 1977  01:52:35
0          ROUTINE TO GET INFORMATION FOR A PL/I FILE.  COPIES SAMEQU (163/2).
00233/033   PL1 LIBRARY              READ/WRITE      SA  G  READ    S0410 MTSPL1 'PL1LIB' POSN=IHEREAD                           33 
            D4T1    612  PL1_LIBRARY.READ/WRITE.SA.033      1 SEQ      80    5 PAGE UM   TIFFANY             JULY 27, 1977  01:52:38
0          ROUTINES IHEREAD AND IHERITE.
00233/034   PL1 LIBRARY              NOTE/POINT      SA  G  PNTS    S0410 MTSPL1 'PL1LIB' POSN=IHENOTE                           34 
            D4T1    613  PL1_LIBRARY.NOTE/POINT.SA.034      1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:40
0          SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND THE MTS SUBROUTINES 'NOTE' AND 'POINT'.
00233/035   PL1 LIBRARY              PLCALL ET AL    SA  G  PLCL    S0027 DISTRB FSNAME=PLCALL                                      
            D4T1    614  PL1_LIBRARY.PLCALL_ET_AL.SA.035    1 LINE     80    6 PAGE UM   ENGLE               MAY  17, 1976  14:28:46
0          SUBROUTINES PCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL1 PROGRAM TO CALL SUBROUTINES
           WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE.
           THE SUBROUTINES PL1ADR AND PL1RC ARE ALSO ENTRY POINTS TO THIS PROGRAM.
00233/036   PL1 LIBRARY              IHEATTN         SA  G  ATTN    S0410 MTSPL1 'PL1LIB' POSN=ATTN.D4                              
            D4T1    615  PL1_LIBRARY.IHEATTN.SA.036         1 LINE     80    9 PAGE UM   TIFFANY             JULY 27, 1977  01:52:50
0          ASSEMBLE USING *SYSMAC.
00233/037   PL1 LIBRARY              IHEZZZZZ        SA  G  ZZZZ    S0410 MTSPL1 'PL1LIB' POSN=IHEZZZZZ.D4                          
            D4T1    616  PL1_LIBRARY.IHEZZZZZ.SA.037        1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:52
0          A NULL-LENGTH CONTROL SECTION TO BE PLACED AT THE END OF SHAREDPL1LIB FOR THE
           BENEFIT OF SDS.
1                                                                                               THU SEP 12/96   23:39:34   Page   83
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00233/038   PL1 LIBRARY              CALLPL1         SA  G          S0410 MTSPL1 'PL1LIB' POSN=PL1CALL.D4                           
            D4T1    617  PL1_LIBRARY.CALLPL1.SA.038         1 LINE     72   10 PAGE UM   TIFFANY             JULY 27, 1977  01:52:55
0          SUBROUTINES PL1SUB, PL1FCN, IPLFCN, PLDFCN, I2FCN, CPXFCN, CDFCN, LGLFCN,
           LG1FCN, PL1BEG, PL1END, AND IPL1RC WHICH CAN BE USED BY NON-PL1 PROGRAMS
           TO CALL PL1 PROCEDURES.
0          Referenced by comments of: 233/43 
00233/039   PL1 LIBRARY              MAXLEN          SA  G  MAXL    S0410 MTSPL1 'PL1LIB' POSN=MAXLEN.D4                            
            D4T1    619  PL1_LIBRARY.MAXLEN.SA.040          1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:54:07
0          MAXLEN OBTAINS THE MAXIMUM LENGTH FOR A GIVEN PL/1 CHARACTER VARYING STRING.
00233/040   PL1 LIBRARY              IHEDBNA         SA  G          S0410 MTSPL1 'PL1LIB' POSN=IHEDBNA                              
            D4.1T1   83  PL1_LIBRARY.IHEDBNA.SA.040         1 SEQ      80    4 PAGE UM   TIFFANY             MAY  13, 1978  17:07:38
0          THIS REPLACES THE IBM VERSION OF IHEDBNA WHICH CAUSED ADDRESSIBILITY
           INTERRUPTS, ESPECIALLY IN *LINKEDIT WHILE CONVERTING BIT STRINGS TO
           ARITHMETIC VALUES.
00233/041   PL1 LIBRARY              UPDATE          UI  G          S0410 MTSPL1 'PL1LIB' POSN=PL1LIBUP.D4                          
            D4T1    620  PL1_LIBRARY.UPDATE.UI.041          1 LINE     73    9 PAGE UM   TIFFANY             JULY 27, 1977  01:54:11
0          *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL1 LIBRARY FROM IBM RELEASE 21.8.
           THE RESULT OF THIS ASSEMBLY SHOULD BE ASSEMBLED USING THE FOLLOWING MACRO
           LIBRARIES (IN THE ORDER GIVEN):  PL1MACLIB (233/13), MACLIB (163/1), AND *SYSMAC.
00233/042   PL1 LIBRARY              ENDPL1LIB       OC  G          S0410 MTSPL1 'PL1LIB' POSN=ENDPL1LIB.D4                      40 
            D4T1    621  PL1_LIBRARY.ENDPL1LIB.OC.042       1 LINE     24    1 PAGE UM   TIFFANY             JULY 27, 1977  01:54:14
0          CONTAINS 5 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD).
00233/043   PL1 LIBRARY              *PL1LIB         OL  G          *PL1LIB                                                         
            D4T1    622  PL1_LIBRARY.*PL1LIB.OL.043         1 SEQ    2642    3 PAGE UM   TIFFANY             JULY 27, 1977  01:54:16
                         *PL1LIB              
0          NON-REENTRANT PART OF RUN-TIME LIBRARY; THE REMAINDER IS IN SHAREDPL1LIB.
           NOTE:  IHEMAIN (233/25) MUST COME AFTER BOTH IHESAP (233/31) AND CALLPL1
                  (233/38) IN THE DIR RECORD FOR THIS LIBRARY.
00233/044   PL1 LIBRARY              SHAREDPL1LIB    OE  G          SEG2:SHAREDPL1LIB                                               
            D4.1T1   84  PL1_LIBRARY.SHAREDPL1LIB.OE.044    1 LINE    256   58 PAGE UM   TIFFANY             MAY  13, 1978  17:07:38
                         SEG2:SHAREDPL1LIB    
0          REENTRANT PART OF RUN-TIME LIBRARY; LOADED INTO SHARED VM AT IPL BY PISTLE.
           CONTAINS IHEPRD WHICH IS SET UP CORRECTLY BY CRELCSPR (506/2).
00233/045   PL1 LIBRARY              UNSP PREAD      SA  G  PREA    S0684 UNSP FSNAME=PREAD.S                                       
            D4T1    624  PL1_LIBRARY.UNSP_PREAD.SA.045      1 LINE     80    3 PAGE UM   UNSP                NOV. 09, 1975  19:29:47
0          THE FOLLOWING PROCEDURES CONSTITUTE THE UM "UNSUPPORTED" PL/1 LIBRARY.
           WRITEUPS ARE INCLUDED IN 685/2.
            
1                                                                                               THU SEP 12/96   23:39:34   Page   84
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          PREAD ALLOWS THE MTS READ SUBROUTINE TO BE CALLED FROM A PL/1 PROGRAM WITHOUT
           USING PLCALL.
00233/046   PL1 LIBRARY              UNSP PWRITE     SA  G  PWRI    S0684 UNSP FSNAME=PWRITE.S                                      
            D4T1    625  PL1_LIBRARY.UNSP_PWRITE.SA.046     1 LINE     80    3 PAGE UM   UNSP                NOV. 09, 1975  19:29:40
0          PWRITE ALLOWS THE MTS WRITE SUBROUTINE TO BE CALLED FROM A PL/1 PROGRAM WITHOUT
           USING PLCALL.
00233/047   PL1 LIBRARY              UNSP SETLEN     SA  O  SETL    S0684 UNSP FSNAME=SETLEN.S                                      
            D4T1    626  PL1_LIBRARY.UNSP_SETLEN.SA.047     1 LINE     80    1 PAGE UM   UNSP                NOV. 09, 1975  19:30:07
0          SETLEN RESETS THE LENGTH OF A PL/1 CHARACTER VARYING STRING.
00233/048   PL1 LIBRARY              UNSP LIBRARY    OL  O          UNSP:PL1LIB                                                     
            D4T1    627  PL1_LIBRARY.UNSP_LIBRARY.OL.048    1 LINE    105    1 PAGE UM   UNSP                JULY 27, 1977  01:58:53
                         UNSP:PL1LIB          
00234/001   8ASR                     8ASRMAC         SM  G  MAC8    S0806 DIST4 FSNAME=8ASRMAC                                      
            D4T1    628  8ASR.8ASRMAC.SM.001                1 LINE     80   16 PAGE UM   LUBBERS             JUNE 02, 1976  20:37:42
0          MACRO LIBRARY FOR DEC ASSEMBLERS.
0          Referenced by comments of: 234/4, 234/6, 661/1 
00234/002   8ASR                     8ASREQU.C       SA  G  DEF8    S0806 DIST4 FSNAME=8ASREQU.C                                    
            D4T1    629  8ASR.8ASREQU.C.SA.002              1 LINE     80    4 PAGE UM   LUBBERS             JULY 19, 1977  11:33:37
0          COPY SECTION.
0          Referenced by comments of: 234/4, 234/6 
00234/003   8ASR                     8ASRST.C        SA  G  COP8    S0806 DIST4 FSNAME=8ASRST.C                                     
            D4T1    630  8ASR.8ASRST.C.SA.003               1 LINE     80    7 PAGE UM   LUBBERS             JULY 19, 1977  11:34:01
0          COPY SECTION.
0          Referenced by comments of: 234/4, 234/6 
00234/004   8ASR                     MAIN PROGRAM    SA  G          S0806 DIST4 FSNAME=8ASR.S                                       
            D4T1    631  8ASR.MAIN_PROGRAM.SA.004           1 LINE     99   33 PAGE UM   LUBBERS             JULY 19, 1977  11:34:21
0          MAIN PROGRAM FOR *8ASR, *9ASR, AND *1ASR.
           COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1).
00234/005   8ASR                     MAIN PROGRAM    OC  G          S0806 DIST4 FSNAME=8ASROBJ                                      
            D4T1    632  8ASR.MAIN_PROGRAM.OC.005           1 LINE     80   10 PAGE UM   LUBBERS             JULY 19, 1977  11:34:41
00234/006   8ASR                     SUBROUTINES     SA  G          S0806 DIST4 FSNAME=8ASRCOM.S                                    
            D4T1    633  8ASR.SUBROUTINES.SA.006            1 LINE    105   10 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:06
0          SUBROUTINES USED BY 234/4.
           COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1).
1                                                                                               THU SEP 12/96   23:39:34   Page   85
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00234/007   8ASR                     SUBROUTINES     OC  G          S0806 DIST4 FSNAME=8ASRCOMOBJ                                   
            D4T1    634  8ASR.SUBROUTINES.OC.007            1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:13
00234/008   8ASR                     PDP-8 OP TBLS   SA  G          S0806 DIST4 FSNAME=8OPS.S                                       
            D4T1    635  8ASR.PDP-8_OP_TBLS.SA.008          1 LINE     99    4 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:53
0          ASSEMBLY TO DEFINE PDP-8 OPERATION CODES FOR *8ASR.
00234/009   8ASR                     PDP-8 OP TBLS   OC  G          S0806 DIST4 FSNAME=8OPSOBJ                                      
            D4T1    636  8ASR.PDP-8_OP_TBLS.OC.009          1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:06
00234/010   8ASR                     *8ASR           OE  G          *8ASR                                                           
            D4T1    637  8ASR.*8ASR.OE.010                  1 SEQ   11502    7 PAGE UM   LUBBERS             JULY 27, 1977  02:03:03
                         *8ASR                
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/9
00234/011   8ASR                     PDP-9 OP TBLS   SA  G          S0806 DIST4 FSNAME=9OPS.S                                       
            D4T1    638  8ASR.PDP-9_OP_TBLS.SA.011          1 LINE     99    4 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:18
0          ASSEMBLY TO DEFINE PDP-9 OPERATION CODES FOR *9ASR.
00234/012   8ASR                     PDP-9 OP TBLS   OC  G          S0806 DIST4 FSNAME=9OPSOBJ                                      
            D4T1    639  8ASR.PDP-9_OP_TBLS.OC.012          1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:26
00234/013   8ASR                     *9ASR           OE  G          *9ASR                                                           
            D4T1    640  8ASR.*9ASR.OE.013                  1 SEQ   11502    7 PAGE UM   LUBBERS             JULY 27, 1977  02:03:10
                         *9ASR                
0          OBJECT CONSISTING OF 234/5 + 234/7 +234/12
00234/014   8ASR                     PDP-1 OP TBLS   SA  G          S0806 DIST4 FSNAME=1OPS.S                                       
            D4T1    641  8ASR.PDP-1_OP_TBLS.SA.014          1 LINE     99    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:35
0          ASSEMBLY TO DEFINE PDP-1 OPERATION CODES FOR *1ASR.
00234/015   8ASR                     PDP-1 OP TBLS   OC  G          S0806 DIST4 FSNAME=1OPSOBJ                                      
            D4T1    642  8ASR.PDP-1_OP_TBLS.OC.015          1 LINE     80    6 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:43
00234/016   8ASR                     FRIDEN TR TBL   SA             S0806 DIST4 FSNAME=TDEC.S                                       
            D4T1    643  8ASR.FRIDEN_TR_TBL.SA.016          1 LINE     99    3 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:57
0          ASSEMBLY TO DEFINE TRANSLATE TABLE FOR FRIDEN TERMINAL USED IN CONNECTION WITH *1ASR.
00234/017   8ASR                     FRIDEN TR TBL   OC             S0806 DIST4 FSNAME=TDECOBJ                                      
            D4T1    644  8ASR.FRIDEN_TR_TBL.OC.017          1 LINE     80    3 PAGE UM   LUBBERS             JUNE 02, 1976  20:43:05
00234/018   8ASR                     *1ASR           OE  G          *1ASR                                                           
            D4T1    645  8ASR.*1ASR.OE.018                  1 SEQ   11986    7 PAGE UM   LUBBERS             JULY 27, 1977  02:03:22
                         *1ASR                
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/15 + 234/17
1                                                                                               THU SEP 12/96   23:39:34   Page   86
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00234/019   8ASR                     OS INTERFACE    SA     BARF    S0806 DIST4 FSNAME=BIGOS                                        
            D4T1    646  8ASR.OS_INTERFACE.SA.019           1 LINE     80    8 PAGE UM   LUBBERS             JUNE 29, 1973  21:38.49
0          SUBROUTINES TO PROVIDE MTS ENVIRONMENT FOR 8ASR IN OS/360.  NOT COMPLETELY CHECKED OUT.
           OBJECT NOT DISTRIBUTED.  ASSEMBLE USING *OSMAC OR USE OS/360.
00234/020   8ASR                     LINK EDITOR     SA  G  LNK8    S0806 DIST4 FSNAME=8LINK                                        
            D4T1    647  8ASR.LINK_EDITOR.SA.020            1 LINE     80   77 PAGE UM   LUBBERS             JAN. 07, 1974  16:41.59
0          PROGRAM TO LINK-EDIT RELOCATIBLE PDP-8 OBJECT TO PRODUCE LOADABLE FILE OR TAPE.
           COPIES 8PANEL (234/24).
00234/021   8ASR                     LINK EDITOR     OC  G          S0806 DIST4 FSNAME=8LINKOBJ                                     
            D4T1    648  8ASR.LINK_EDITOR.OC.021            1 LINE     80    8 PAGE UM   LUBBERS             JAN. 07, 1974  16:42.37
00234/022   8ASR                     PDP8 SIMULATOR  SA  G  SIM8    S0806 DIST4 FSNAME=8SIM                                         
            D4T1    649  8ASR.PDP8_SIMULATOR.SA.022         1 LINE     80   28 PAGE UM   LUBBERS             JUNE 29, 1973  21:42.44
0          PDP-8 SIMULATOR SECTION OF *8LINK.  COPIES 8PANEL (234/24).
00234/023   8ASR                     PDP8 SIMULATOR  OC  G          S0806 DIST4 FSNAME=8SIMOBJ                                      
            D4T1    650  8ASR.PDP8_SIMULATOR.OC.023         1 LINE     80    2 DISK UM   LUBBERS             JUNE 29, 1973  21:47.24
00234/024   8ASR                     8PANEL          SA  G  PANL    S0806 DIST4 FSNAME=8PANEL                                       
            D4T1    651  8ASR.8PANEL.SA.024                 1 LINE     80    3 PAGE UM   LUBBERS             JUNE 29, 1973  21:43.27
0          COPY SECTION.
0          Referenced by comments of: 234/20, 234/22 
00234/025   8ASR                     *8LINK          OE  G          *8LINK                                                          
            D4T1    652  8ASR.*8LINK.OE.025                 1 SEQ    7776   11 PAGE UM   LUBBERS             JULY 27, 1977  02:03:43
                         *8LINK               
0          LINK EDIT OF 234/21 + 234/23.
00234/026   8ASR                     MEMO 329        WF             S0563 D4T1 VLO FSNAME=8ASR.MEMO_329.WF.026(1)                653
            D4T1    653  8ASR.MEMO_329.WF.026               1 LINE    234   32 PAGE UM   LUBBERS             JAN. 24, 1977  21:23:27
0          THIS IS COMPUTING CENTER MEMO 329 -- "*8ASR PDP-8 ASSEMBLER AND *8LINK LINK
           EDITOR AND LOADER"
00234/027   8ASR                     TAPE-CARD UTIL  SA           # (OBSOLETE)                                                      
            D2T2    108                                                             UM                                              
00234/028   8ASR                     8ASR-PAL CNVRT  SA           # (OBSOLETE)                                                      
            D2T2    109                                                             UM                                              
00238      *2250PLOT                                 SA           # (OBSOLETE)                                                      
            D4T1    654  2250PLOT..SA.                      1 SEQ      80    4 PAGE UM                       JULY 31, 1973  21:29.07
1                                                                                               THU SEP 12/96   23:39:34   Page   87
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00241      *TRACK                                    SA           # (OBSOLETE)                                                      
            D4T1    655  TRACK..SA.                         1 SEQ      80    8 PAGE UM                       JULY 31, 1973  21:29.51
00243/001   BINEBCD                                  SA  G          MTA:BINEBCD(1,999)                                              
            D4T1    656  BINEBCD..SA.001                    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  02:04:19
                         MTA.:BINEBCD         
0          SUBROUTINE TO CONVERT AN EBCDIC CARD WHICH WAS READ IN COLUMN BINARY BACK TO EBCDIC.  CALLED BY *2501RTN (086)
           AND BY HASP (387).  THIS VERSION DOES NO ERROR CHECKING.
0          Referenced by comments of: 86/1 
00243/002   BINEBCD                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00243/003   BINEBCD                                  SA  G          MTA:BINEBCD(2000)                                               
            D4T1    657  BINEBCD..SA.003                    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  02:04:21
0          SAME SUBROUTINE, BUT WITH ERROR CHECKING.  OBJECT NOT DISTRIBUTED.
00244/001  **CT                                      S            # (OBSOLETE)                                                      
            D2T1    138                                                             UM                                              
00244/002  **CT                      TAPE SUBR       S            # (OBSOLETE)                                                      
            D2T1    139                                                             UM                                              
00249      *COPY                                     SA           # (OBSOLETE)                                                      
            D4T1    658  COPY..SA.001                       1 LINE     80    4 PAGE UM                       JULY 27, 1977  02:04:23
00251/001  *IEBUPDAT                                 SP  O          S0721 'D3T2' FSNAME=IEBUPDAT..SA.1(1)                        117
            D4T1    660  IEBUPDAT..SP.001                   1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  21:31.45
0          A PROGRAM TO COPY TAPES CONTAINING CARD IMAGES CONFORMING TO THE IBM IEBUPDAT OR IEBUPDTE PROGRAMS.
           THIS PROGRAM WILL MAKE INSERTIONS AND DELETIONS.
00251/002  *IEBUPDAT                                 OC  O          *IEBUPDAT                                                       
            D4T1    661  IEBUPDAT..OC.002                   1 LINE     80    5 PAGE UM   TIFFANY             JULY 27, 1977  02:04:29
                         *IEBUPDAT            
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00253       LINE DIRECTORY SORT                      SA           # (OBSOLETED BY COMP 546)                                         
            D2T1    121                                                             UM                                              
00254       BSLOAD                                   SA  G        # (OBSOLETE)                                                      
            D3.1T1  192  BSLOAD..SA.1                       1 LINE     80   26 PAGE UM                       MAR. 06, 1974  03:34.57
00256/001   STATISTICS COMBINE       *CMB            C              *CMB                                                            
            D4T1    662  STATISTICS_COMBINE.*CMB.C.001      1 LINE     29    1 PAGE UM   WSG                 JULY 27, 1977  02:04:31
                         *CMB                 
0          COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2).
           INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE.
1                                                                                               THU SEP 12/96   23:39:34   Page   88
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00256/002   STATISTICS COMBINE       COMBINE PGM     SA  G  CMB     S0792 WSGFS FSNAME=CMB                                          
            D4.2T1  129  STATISTICS_COMBINE.COMBIN.SA.002   1 LINE     80    7 PAGE UM   WSG                 OCT. 02, 1978  11:48:07
0          PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/1).
           PROGRAM WILL ASK FOR TAPE DRIVE WHERE OUTPUT TAPE IS MOUNTED, THEN ASK FOR INPUT TAPE
           DRIVE NAMES.  COMBINE PROCESS IS ENDED BY ENTERING "DONE" FOR AN INPUT DRIVE NAME.
           THIS PROGRAM PRODUCES TAPES WHICH ARE BLOCKED IN A RATHER NON-STANDARD MANNER.
           HOWEVER, MOST SYSTEM PROGRAMS WHICH READ *STATISTICS DATA, ARE CAPABLE OF
           DEBLOCKING THESE TAPES.  SOURCE IN LINES (1,999).
0          Referenced by comments of: 256/1 
00256/003   STATISTICS COMBINE       COMBINE PGM     OC  G          SYS:CMB                                                         
            D4.2T1  130  STATISTICS_COMBINE.COMBIN.OC.003   1 LINE     80    2 PAGE UM   WSG                 MAR. 26, 1979  02:33:12
                         SYS.:CMB             
00257      *MOMS                                     OC           # (NOT DISTRIBUTED)                                               
            D3T2    123  MOMS..OC.                          1 LINE    255   12 DISK UM                       FEB. 22, 1973  17:18.51
00258/001   RECEIPT CARDS            *RCP            C              *RCP                                                            
            D4.2T1  131  RECEIPT_CARDS.*RCP.C.001           1 LINE     31    1 PAGE UM   DONNELLY            MAR. 26, 1979  02:33:13
                         *RCP                 
0          COMMAND FILE TO RUN BATCH RECEIPT (S-8) CARD GENERATOR PROGRAM (258/3).
           INVOKED BY ENTERING "MTS *RCP" FROM OPERATORS CONSOLE.
00258/002   RECEIPT CARDS            RECEIPT PGM     SA     RECP    W035:RCP                                                        
            D4.2T1  132  RECEIPT_CARDS.RECEIPT_PGM.SA.002   1 LINE     80    5 PAGE UM   DONNELLY            MAR. 26, 1979  02:33:14
0          PROGRAM TO GENERATE MTS BATCH RECEIPT CARDS.
00258/003   RECEIPT CARDS            RECEIPT PGM     OC             SYS:RCP                                                         
            D4T1    667  RECEIPT_CARDS.RECEIPT_PGM.OC.003   1 LINE     80    2 PAGE UM   DONNELLY            JULY 27, 1977  02:04:47
                         SYS.:RCP             
0          Referenced by comments of: 258/1 
00259      *LIST                                     SA           # (OBSOLETE)                                                      
            D2T1    332                                                             UM                                              
00260/001   SSP                      *SSP            OC  G        # (NOT DISTRIBUTED)                                               
            D3T2    127  SSP.*SSP.O.1                       1 LINE     32    1 PAGE UM                       JULY 31, 1973  21:32.18
00260/002   SSP                      *SSPSTAT        OL  G        # (NOT DISTRIBUTED)                                               
            D3T2    128  SSP.*SSPSTAT.OL.2                  1 LINE    255   30 PAGE UM                       JULY 31, 1973  21:32.20
00260/003   SSP                      *SSPMATH        OL  G        # (NOT DISTRIBUTED)                                               
            D3T2    129  SSP.*SSPMATH.OL.3                  1 LINE    255  129 PAGE UM                       JULY 31, 1973  21:32.27
00261/001   SLIP                     SLIP FTN        SF  G          S0985 W081 'W081SAVE' FSNAME=DSLIP.S                            
            D4T1    668  SLIP.*SLIP_FTN.SF.001              1 LINE     84   25 PAGE UM   GOODRICH            DEC. 21, 1975  20:30:52
0          SLIP IS A LIBRARY OF FORTRAN-CALLABLE SUBROUTINES FOR LIST PROCESSING.
           SEE THE DESCRIPTION IN THE CACM V.6, N.9, SEPT/63, PP 524-544.  THERE ARE
1                                                                                               THU SEP 12/96   23:39:34   Page   89
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          TWO SEPARATE IMPLEMENTATIONS IN MTS:  *SLIP IS THE NORMAL DOUBLE-WORD
           VERSION, "LITTLE SLIP" (UNSP:LSLIPLIB) IS A SINGLE-PRECISION VERSION.
            
           THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR *SLIP.
00261/002   SLIP                     SLIP PRIM       SA  G          S0985 W081 'W081SAVE' FSNAME=DSLIPPRIM.S                        
            D4T1    669  SLIP.*SLIP_PRIM.SA.002             1 LINE     79    4 PAGE UM   GOODRICH            MAY  03, 1977  15:46:19
0          THIS IS THE ASSEMBLY SOURCE FOR *SLIP PRIMITIVES.
00261/003   SLIP                     *SLIP           OL  G          *SLIP                                                           
            D4T1    670  SLIP.*SLIP_LIBRARY.OL.003          1 SEQ    2040   37 PAGE UM   GOODRICH            JULY 27, 1977  02:09:06
                         *SLIP                
00261/004   SLIP                     *SLIPDEC        SF  G  SDEC    *SLIPDEC                                                        
            D4T1    671  SLIP.*SLIPDEC.SF.004               1 LINE     80    3 PAGE UM   GOODRICH            JULY 27, 1977  02:09:08
                         *SLIPDEC             
0          THIS IS A SET OF FORTRAN DECLARATIONS FOR ALL SLIP FUNCTIONS.  IT IS TO BE
           USED BY PROGRAMS WHICH CALL THE *SLIP PACKAGE.
00261/005   SLIP                     LSLIP FTN       SF  O          S0684 UNSP FSNAME=LSLIP.S                                       
            D4T1    672  SLIP.LSLIP_FTN.SF.005              1 LINE     84   30 PAGE UM   UNSP                JUNE 22, 1976  16:35:26
0          THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR THE "LITTLE SLIP" PACKAGE.  AT UM,
           THIS VERSION OF SLIP IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.
00261/006   SLIP                     LSLIP LIBRARY   OL  O          UNSP:LSLIPLIB                                                   
            D4T1    673  SLIP.LSLIP_LIBRARY.OL.006          1 LINE    946   36 PAGE UM   UNSP                JULY 27, 1977  02:09:48
                         UNSP:LSLIPLIB        
00265      *1                                        SM             *1                                                              
            D4T1    674  1..SM.                             1 LINE     80   31 PAGE UM   SALISBURY           JULY 27, 1977  02:09:51
                         *1                   
0          MACRO LIBRARY FOR LIST PROCESSING IN ASSEMBLY LANGUAGE.  SIMILAR TO L6.
00267/001  *DOWNDATE                                 SA  O          WATF:DOWNDATE(1,999)                                            
            D4T1    675  DOWNDATE..SA.001                   1 LINE     80    9 PAGE UM   MTA                 JULY 27, 1977  02:09:53
0          THE INVERSE OF *UPDATE. WILL PRODUCE AN UPDATE DECK FROM TWO SOURCE TAPES.
           CALLS SCANPAR SUBROUTINE (267/3).
0          Referenced by comments of: 267/3, 3003/88 
00267/002  *DOWNDATE                                 OE  O          *DOWNDATE                                                       
            D4T1    676  DOWNDATE..OE.002                   1 LINE   2626    2 PAGE UM   MTA                 JULY 27, 1977  02:09:55
                         *DOWNDATE            
0          INCLUDES SCANPAR OBJECT (267/4).
1                                                                                               THU SEP 12/96   23:39:34   Page   90
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00267/003  *DOWNDATE                 SCANPAR         SA             WATF:SCANPAR(1,999)                                             
            D4T1    677  DOWNDATE.SCANPAR.SA.003            1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  02:09:57
0          SUBROUTINE CALLED BY DOWNDATE (267/1) AND UNEDIT (561/1) TO SCAN PARAMETERS.
0          Referenced by comments of: 267/1, 561/1 
00267/004  *DOWNDATE                 SCANPAR         OC             WATF:SCANPAR(1000)                                              
            D4T1    678  DOWNDATE.SCANPAR.OC.004            1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:09:59
0          Referenced by comments of: 267/2 
00268       @TESTITP                                 S            # (OBSOLETE)                                                      
            D2T1    421                                                             UM                                              
00270/001   DISMOUNT SUBR                            SA  G  DMNT    S0792 WSGFS FSNAME=DISMOUNT                                     
            D4T1    679  DISMOUNT_SUBR..SA.001              1 LINE     80    5 PAGE UM   WSG                 DEC. 01, 1976  13:10:50
0          THIS SUBROUTINE PRODUCES $RELEASE COMMANDS WHICH ARE PASSED TO CMDNOE FOR PROCESSING.
0          Referenced by comments of: 101/2 
00270/002   DISMOUNT SUBR                            OC  G        # *CLSMOUNT (SEE COMP 101)                                        
                                                                                    UM   WSG                                        
00271/001   MOUNT SUBR                               SA  G  MNTS    S0792 WSGFS FSNAME=MOUNT.SA                                     
            D4T1    680  MOUNT_SUBR..SA.001                 1 LINE     80    3 PAGE UM   WSG                 DEC. 01, 1976  12:50:44
0          THIS SUBROUTINE PRODUCES A $MOUNT COMMAND WHICH IS PASSED TO CMDNOE FOR PROCESSING.
0          Referenced by comments of: 101/2 
00271/002   MOUNT SUBR                               OC  G        # *CLSMOUNT (SEE COMP 101/2)                                      
                                                                                    UM   WSG                                        
00273/001   FPC                                      SA  G          S0563 D4T1 VLO FSNAME=FPC..SA.001(1)                         681
            D4T1    681  FPC..SA.001                        1 LINE     80    6 PAGE UM   WSG                 JULY 31, 1973  21:33.40
0          SUBROUTINES E7090, D7090, E7090P, D7090P TO CONVERT IBM 7090 SERIES FLOATING POINT NUMBERS TO SYSTEM/360
           LONG AND SHORT FORM.
00273/002   FPC                                      OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
00274       GLINT                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    395                                                             UM                                              
00275/001   BITWISE LOGIC - IHCLOGIC                 SA  G  IHCL    W062:LOGIC(1,999)                                               
            D4T1    682  BITWISE_LOGIC_-_IHCLOGIC..SA.001   1 LINE     80    4 PAGE UM   TIFFANY             SEP. 15, 1977  18:53:12
0          SUBROUTINES AND, LAND, OR, LOR, XOR, LXOR, COMPL, LCOMPL, SHFTL, AND SHFTR USED FOR LOGICAL 
           OPERATIONS IN FORTRAN.
           D4.0 VERSION IS MORE THAN 3 TIMES FASTER THAN PREVIOUS VERSIONS.
1                                                                                               THU SEP 12/96   23:39:34   Page   91
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00275/002   BITWISE LOGIC - IHCLOGIC                 OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   TIFFANY                                    
00278/001   IOH                                      SA  G  IOH     W016:IOH.S(1.8)                                                 
            D4.1T1   85  IOH..SA.001                        1 LINE     80  153 PAGE UM   SWARTZ              MAY  13, 1978  17:07:43
0          I/O CONVERSION PACKAGE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 387/24, 400/1 
00278/002   IOH                                      OC  G          W016:IOH.O                                                      
            D4.1T1   86  IOH..OC.002                        1 LINE     80   21 PAGE UM   SWARTZ              MAY  13, 1978  17:08:15
0          OBJECT IS ALSO IN *LIBRARY (524) -- MAY NOT BE EXACTLY THE SAME VERSION.
00278/003   IOH                      IOPKG           SA  G          W016:IOHPKG.S                                                   
            D4.1T1   87  IOH.IOPKG.SA.003                   1 LINE     68    5 PAGE UM   SWARTZ              MAY  13, 1978  17:08:19
0          COPIES *GDINFODSECT (594).
00278/004   IOH                      IOPKG           OC  G          W016:IOHPKG.O                                                   
            D4.1T1   88  IOH.IOPKG.OC.004                   1 LINE     80    3 PAGE UM   SWARTZ              MAY  13, 1978  17:08:22
0          OBJECT IS ALSO IN *LIBRARY (524).
00278/005   IOH                      TEST PGM        SA  G  IOHT    W016:TESTIOH.S                                                  
            D4T1    687  IOH.TEST_PGM.SA.005                1 LINE     80   11 PAGE UM   SWARTZ              JULY 27, 1977  02:10:39
0          PROGRAM TO TEST IOH.
00278/006   IOH                      TEST PGM        OC  G          W016:TESTIOH.O                                                  
            D4T1    688  IOH.TEST_PGM.OC.006                1 LINE     80   10 PAGE UM   SWARTZ              JULY 27, 1977  02:10:41
00278/007   IOH                      IOHDBLIN        SA             W016:IOHDBLIN.S                                                 
            D4T1    689  IOH.IOHDBLIN.SA.007                1 LINE     74    7 PAGE UM   SWARTZ              JULY 27, 1977  02:10:43
00278/008   IOH                      IOHDBLIN        OE             ETC:IOHDBLIN                                                    
            D4T1    690  IOH.IOHDBLIN.OE.008                1 SEQ    2530    1 PAGE UM   SWARTZ              JULY 27, 1977  02:10:45
                         ETC.:IOHDBLIN        
00278/009   IOH                      IOHDBLOUT       SA             W016:IOHOUT                                                     
            D4T1    691  IOH.IOHDBLOUT.SA.009               1 LINE     73    5 PAGE UM   SWARTZ              JULY 27, 1977  02:10:48
00278/010   IOH                      IOHDBLOUT       OE             ETC:IOHDBLOUT                                                   
            D4T1    692  IOH.IOHDBLOUT.OE.010               1 SEQ    1363    1 PAGE UM   SWARTZ              JULY 27, 1977  02:10:49
                         ETC.:IOHDBLOUT       
00278/011   IOH                      IOHEVAL         SA             W016:IOHEVAL.S(5)                                               
            D4.1T1   89  IOH.IOHEVAL.SA.011                 1 LINE     65    2 PAGE UM   SWARTZ              MAY  13, 1978  17:08:24
0          COPIES COPY:ED.COPY.M (648/16).
1                                                                                               THU SEP 12/96   23:39:34   Page   92
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00278/012   IOH                      IOHEVAL         OC             ETC:IOHEVAL                                                     
            D4.1T1   90  IOH.IOHEVAL.OC.012                 1 SEQ      80    1 PAGE UM   SWARTZ              MAY  13, 1978  17:08:25
                         ETC.:IOHEVAL         
00279       LINPG SUBR                               S            # (NOT DISTRIBUTED)                                               
            D2T1    396                                                             UM                                              
00282/001   PRINTER PLOT SUBR                        SA  G          S1011 ETC 'MISC' FSNAME=PTRPLOT                                 
            D4.2T1  133  PRINTER_PLOT_SUBR..SA.001          1 LINE     69   21 PAGE UM   LIFT                FEB. 23, 1979  11:28:04
0          COPIES "PLOTDS" (282/2).  ASSEMBLE WITH PAR=BATCH.
0          Referenced by comments of: 133/1 
00282/002   PRINTER PLOT SUBR        COPY SECTION    SA  G          S1011 ETC 'MISC' FSNAME=PTRPLOTD4DS                             
            D4T1    696  PRINTER_PLOT_SUBR.COPY_SE.SA.002   1 LINE     80    4 PAGE UM   LIFT                APR. 06, 1977  18:45:48
0          "PLOTDS" COPY SECTION COPIED BY 282/1.
0          Referenced by comments of: 282/1 
00282/003   PRINTER PLOT SUBR                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   LIFT                                       
00283/001   BLOCKED I/O - QSAM                       SA  G          S0563 D4T1 VLO FSNAME=BLOCKED_I/O_-_QSAM..SA.001(1)          697
            D4T1    697  BLOCKED_I/O_-_QSAM..SA.001         1 LINE     80   19 PAGE UM   H YOUNG             JULY 31, 1973  21:35.33
0          LIBRARY SUBROUTINES TO PERFORM FIXED BLOCKING (FORMAT FB) ON FILES, TAPES, ETC.
           ENTRY POINTS:  QGETUCB (QGTUCB), QOPEN, QGET, QPUT, QCLOSE, QCNTRL, AND QFREEUCB (QFRUCB).
0          Referenced by comments of: 137/1 
00283/002   BLOCKED I/O - QSAM                       OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   H YOUNG                                    
00285/001   SKIP SUBR                                SA  G  SKIP    S0792 WSGFS FSNAME=SKIP                                         
            D4.1T1   91  SKIP_SUBR..SA.001                  1 LINE     80    5 PAGE UM   WSG                 MAY  02, 1978  23:41:03
0          SUBR TO SPACE A FILE OR MAG TAPE FORWARD OR BACKWARD BY RECORDS AND/OR FILES.
           SOURCE IN LINES (1,999).
00285/002   SKIP SUBR                                OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
00286/001   MATH SUBRS               SLE             S            # (NOT DISTRIBUTED)                                               
            D2T1    389                                                             UM                                              
00286/002   MATH SUBRS               INV             S            # (NOT DISTRIBUTED)                                               
            D2T1    390                                                             UM                                              
00286/003   MATH SUBRS               INV1            S            # (NOT DISTRIBUTED)                                               
            D2T1    391                                                             UM                                              
1                                                                                               THU SEP 12/96   23:39:34   Page   93
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00286/004   MATH SUBRS               LRD             S            # (NOT DISTRIBUTED)                                               
            D2T1    392                                                             UM                                              
00286/005   MATH SUBRS               DBS             S            # (NOT DISTRIBUTED)                                               
            D2T1    393                                                             UM                                              
00286/006   MATH SUBRS               DBST            S            # (NOT DISTRIBUTED)                                               
            D2T1    394                                                             UM                                              
00287/001   SPIE SUBR                                SA  G          MTA:SPIE(1,999)                                                 
            D4T1    699  SPIE_SUBR..SA.001                  1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  02:12:55
                         MTA.:SPIE            
0          SUBROUTINE TO INTERFACE OS/360 'SPIE' MACRO WITH MTS 'PGNTTRP' SUBROUTINE.
00287/002   SPIE SUBR                                OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00291/001  *IEHMOVE                                  SA  G  SCAN    W062:IEHMOVE.S                                                  
            D4T1    700  IEHMOVE..SA.001                    1 LINE     80   28 PAGE UM   TIFFANY             JULY 27, 1977  02:12:57
0          PROGRAM TO READ UNLOADED OS/360 DATA SETS IN MTS. SEE ALSO *UNLINKER (562).
           CALLS THE BLKRTN SUBROUTINE (562/2) TO READ OS/VS IEBCOPY OR IEHMOVE TAPES.
00291/002  *IEHMOVE                                  OE  G          *IEHMOVE                                                        
            D4.2T1  134  IEHMOVE..OE.002                    1 LINE   7856    8 PAGE UM   TIFFANY             MAR. 26, 1979  02:33:16
                         *IEHMOVE             
00293/001  *MACGEN                                   SA  G  MACG    WATF:MACGEN(1,999)                                              
            D4T1    702  MACGEN..SA.001                     1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  02:13:02
0          GENERATE THE DIRECTORY FOR A MACRO LIBRARY.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 648/12 
00293/002  *MACGEN                                   OE  G          *MACGEN                                                         
            D4T1    703  MACGEN..OE.002                     1 SEQ     658    1 PAGE UM   HELFFRICH           JULY 27, 1977  02:13:04
                         *MACGEN              
00296       CHECKDASD                                SA           # (OBSOLETE)                                                      
            D2T1    119                                                             UM                                              
00297/001B *LINKEDIT                 LKEDCMD         SP  G          W052:LINK.CMD.S                                                 
            RD16T1   30  LINKEDIT.LKEDCMD.SP.001            1 LINE     99   33 PAGE UM   SHERRY              JULY 12, 1979  22:27:18
0          MTS LINKAGE EDITOR MAIN PROGRAM - COMMAND PROCESSOR.
           CONTAINS  A "$CONTINUE WITH W052:LINK.COM" (297/6) RECORD.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
            
           *****************************************************************************
           RD16 CHANGES:
            
           1)  TERSE NOW DEFAULTS TO THE MTS SETTING.
1                                                                                               THU SEP 12/96   23:39:34   Page   94
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          2)  RETURN IS NOW LIKE MTS INSTEAD OF STOP.
           3)  LINKEDIT NOW TERMINATES EXECUTION BY A STOP STATEMENT INSTEAD OF CALLING
               SYSTEM.
           4)  A WARNING MESSAGE IS PRINTED IF (IN COMMAND MODE) A USER DOES AN 
               INCLUDE, COMBINE, PURGE BUT NO PUNCH BEFORE STOP.  TERMINAL USERS
               ARE GIVEN A CHANCE TO CHANGE THEIR MINDS BEFORE STOPPING.
           5)  BUG FIX:
                        $RUN *LINKEDIT SCARDS=NOSUCHFILE SPUNCH=-STUFF
               NOW WORKS AND DOESN'T PRINT ALL KINDS OF WEIRD GARBAGE DUE TO THE 
               NONEXISTENT INPUT FILE.
           6)  BUG FIX:
               FORWARD REFERENCED ENTRY POINTS OF A BUFFERED CONTROL SECTION ARE
               NOW RESOLVED AND DEFINED PROPERLY.
           7)  IN BATCH, WARNINGS NO LONGER CAUSE AN ERROR RETURN IF QUIT=ON.
           8)  BUG FIX:
               AN INPUT FILE WITH A COM RECORD AT LINE 1 IN NO COMMAND MODE NO
               LONGER CAUSES AN ERRONEOUS ERROR MESSAGE TO BE PRINTED AND THEN
               CRAPS OUT. 
            
           MOST OF THE ABOVE CHANGES WERE IN THE D4.2 VERSION, BUT WERE UNDOCUMENTED
           IN THE DRIVER FILE LISTING.  NUMBERS 3, 7, AND 8 ARE NEW IN THE RD16 
           VERSION.
           *****************************************************************************
0          Referenced by comments of: 297/11, 297/16 
00297/002B *LINKEDIT                 INCLUDE         SP  G          W052:LINK.INCL.S                                                
            RD16T1   31  LINKEDIT.INCLUDE.SP.002            1 LINE    100   17 PAGE UM   SHERRY              JULY 12, 1979  22:27:27
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/003  *LINKEDIT                 PUNCH           SP  G          W052:LINK.PUNCH.S                                               
            D4T1    706  LINKEDIT.PUNCH.SP.003              1 LINE    100    7 PAGE UM   SHERRY              JULY 27, 1977  02:13:20
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/004  *LINKEDIT                 COMBINE         SP  G          W052:LINK.COMB.S                                                
            D4T1    707  LINKEDIT.COMBINE.SP.004            1 LINE    100   10 PAGE UM   SHERRY              JULY 27, 1977  02:13:22
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/005  *LINKEDIT                 SUBR            SP  G          W052:LINK.SUBR.S                                                
            D4T1    708  LINKEDIT.SUBR.SP.005               1 LINE     99    5 PAGE UM   SHERRY              JULY 27, 1977  02:13:25
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/006B *LINKEDIT                 LINK.COM        SP  G          W052:LINK.COM                                                   
            RD16T1   32  LINKEDIT.LINK.COM.SP.006           1 LINE    100    6 PAGE UM   SHERRY              JULY 12, 1979  22:27:32
0          COPY SECTION REQUIRED TO COMPILE THE INDIVIDUAL ROUTINES.
1                                                                                               THU SEP 12/96   23:39:34   Page   95
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          LINE NUMBERS IN THIS FILE ARE IMPORTANT.
0          Referenced by comments of: 297/1, 297/2, 297/3, 297/4, 297/5, 297/8, 297/9, 297/10, 297/12, 297/13, 297/15, 297/16 
00297/007  *LINKEDIT                 ASMSUBR         SA  G          W052:LINK.ALIB.S                                                
            D4T1    710  LINKEDIT.ASMSUBR.SA.007            1 LINE     71    3 PAGE UM   SHERRY              JULY 27, 1977  02:13:29
0          ASMG SUBROUTINES.
00297/008  *LINKEDIT                 DUMP            SP  G          W052:LINK.DUMP.S                                                
            D4T1    711  LINKEDIT.DUMP.SP.008               1 LINE     92    4 PAGE UM   SHERRY              JULY 27, 1977  02:13:31
0          SUBROUTINE TO PRODUCE ERROR DUMPS.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/009B *LINKEDIT                 UTIL            SP  G          W052:LINK.UTIL.S                                                
            RD16T1   33  LINKEDIT.UTIL.SP.009               1 LINE     88    3 PAGE UM   SHERRY              JULY 12, 1979  22:27:34
0          MISCELLANEOUS UTILITY SUBROUTINES.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/010  *LINKEDIT                 UNLK            SP  G          W052:LINK.UNLK.S                                                
            D4T1    713  LINKEDIT.UNLK.SP.010               1 LINE    100    6 PAGE UM   SHERRY              JULY 27, 1977  02:13:36
0          SUBROUTINE TO UNLINK MULTIPLE-CSECT MODULES.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/011  *LINKEDIT                 ATTN            SA  G          W052:LINK.ATTN.S                                                
            D4T1    714  LINKEDIT.ATTN.SA.011               1 LINE     67    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:38
0          ROUTINE TO ALLOW *LINKEDIT TO FIELD ATTENTION INTERRUPTS.
           NOTE:  THIS ROUTINE IS NO LONGER REQUIRED SINCE THE D4.0 PL1 COMPILER SUPPORTS
                  ON CONDITION (ATTN), WHICH LKEDMCD (297/1) HAS BEEN CHANGED TO USE.
00297/012  *LINKEDIT                 PURGE           SP  G          W052:LINK.PUREP.S                                               
            D4T1    715  LINKEDIT.PURGE.SP.012              1 LINE     91    3 PAGE UM   SHERRY              JULY 27, 1977  02:13:40
0          SUBROUTINE TO IMPLEMENT PURGE AND REPLACE (UPDATE) COMMANDS.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/013  *LINKEDIT                 XMAL            SP  G          W052:LINK.XMAL.S                                                
            D4T1    716  LINKEDIT.XMAL.SP.013               1 LINE     96    8 PAGE UM   SHERRY              JULY 27, 1977  02:13:42
0          SUBROUTINE TO IMPLEMENT XREF, MAP, ATTRIBUTE, AND LIST COMMANDS.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
1                                                                                               THU SEP 12/96   23:39:34   Page   96
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00297/014  *LINKEDIT                 IOCVT           SA  G          W052:LINK.IOCVT.S                                               
            D4T1    717  LINKEDIT.IOCVT.SA.014              1 LINE     72   17 PAGE UM   SHERRY              JULY 27, 1977  02:13:44
0          ROUTINES TO DO I/O CONVERSIONS, TEXT MODIFICATION, AND SCANNING;
           USED BY DISPLAY, SCAN, AND MODIFY COMMANDS.
           ASSEMBLE USING *SYSMAC.
00297/015  *LINKEDIT                 IOSUB           SP  G          W052:LINK.IOSUB.S                                               
            D4T1    718  LINKEDIT.IOSUB.SP.015              1 LINE     91    3 PAGE UM   SHERRY              JULY 27, 1977  02:13:47
0          SUBROUTINE USED BY DISPLAY, SCAN, AND MODIFY COMMANDS.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/016  *LINKEDIT                 LINK.CMD.GEN    C              W052:LINK.CMD.G                                                 
            D4T1    719  LINKEDIT.LINK.CMD.GEN.C.016        1 LINE    106    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:50
0          THIS IS AN MTS COMMAND SOURCE FILE TO RECOMPILE LINK.CMD.S (297/1).
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.  THIS FILE
           CONTAINS SOME $EDIT COMMANDS TO SET THE VERSION DATE IN W052:LINK.COM
           (297/6) BEFORE COMPILING.
00297/017B *LINKEDIT                 LINKLOAD        OC  G          W052:LINKLOAD                                                   
            RD16T1   34  LINKEDIT.LINKLOAD.OC.017           1 LINE  32767  120 PAGE UM   SHERRY              JULY 12, 1979  22:27:34
0          UNLINKEDITED OBJECT FOR LINKAGE EDITOR.  THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT.
0          Referenced by comments of: 297/18 
00297/018  *LINKEDIT                 LINKEDIT.G      C              W052:LINKEDIT.G                                                 
            D4T1    721  LINKEDIT.LINKEDIT.G.C.018          1 LINE     34    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:54
0          THIS FILE CONTAINS ALL THE MTS AND *LINKEDIT COMMANDS NECESSARY TO LINKEDIT
           THE UNLINKEDITED VERSION OF THE LINKAGE EDITOR (297/17).  THE *LINKEDIT
           COMMAND "RENAME IHESAPC IHESAPE" IS IMPORTANT SO THAT THE PAR= FIELD ON A
           $RUN *LINKEDIT COMMAND WON'T BE INTERCEPTED BY THE PL1 ENVIRONMENT.
00297/019B *LINKEDIT                 OBJECT          OE  G          *LINKEDIT                                                       
            RD16T1   35  LINKEDIT.OBJECT.OE.019             1 SEQ   32767   71 PAGE UM   SHERRY              JULY 12, 1979  22:27:44
                         *LINKEDIT            
0          THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT.
00297/020  *LINKEDIT                 DESCRIPTION     P              W052:SUMMARY                                                    
            D4T1    723  LINKEDIT.DESCRIPTION.P.020         1 LINE     67    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:59
0          BRIEF DESCRIPTION OF DIFFERENCES BETWEEN D3 AND D4 VERSION OF *LINKEDIT.
00298/001  *FORTRANH                 ASM SOU         SA  G          S1099 FORTRN FSNAME=FTNH.ASM                                    
            D4.2T1  140  FORTRANH.ASM_SOU.SA.001            1 LINE     80  282 PAGE UM   HANSEN              FEB. 04, 1979  13:57:59
0          SOURCE FOR ASSEMBLER MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND
           UNIVERSITY OF ROCHESTER VERSIONS. 
            
1                                                                                               THU SEP 12/96   23:39:34   Page   97
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          ASSEMBLE USING 298/7 MACRO LIBRARY.
0          Referenced by comments of: 551/1 
00298/002  *FORTRANH                 FORTRAN SOU     SF  G          S1099 FORTRN FSNAME=FTNH.FTN                                    
            D4.2T1  141  FORTRANH.FORTRAN_SOU.SF.002        1 LINE     80  129 PAGE UM   HANSEN              NOV. 14, 1978  17:50:31
0          SOURCE FOR FORTRAN MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND UNIVERSITY
           OF ROCHESTER VERSIONS.
00298/003  *FORTRANH                 ROCHESTER SOU   S   G          S1099 FORTRN FSNAME=FTNH.UOR                                    
            D4.2T1  142  FORTRANH.ROCHESTER_SOU.S.003       1 LINE     80   93 PAGE UM   HANSEN              DEC. 01, 1978  12:43:27
0          SOURCE (ASSEMBLER AND FORTRAN) FOR THE MODULES FROM THE UNIVERSITY OF
           ROCHESTER.
00298/004  *FORTRANH                 OS SOURCE       S   O          S0695 OSSRC5                                                2   
            D4.2T1  143  FORTRANH.OS_SOURCE.S.004           1 SEQ      80 1263 PAGE UM   HANSEN              MAR. 26, 1979  02:37:25
0          SOURCE MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS (RELEASE 20.1).
           NO PTF'S ARE INCLUDED IN THIS FILE.
00298/005  *FORTRANH                 OBJECT          OC  G          S1099 FORTRN FSNAME=FORTRANH                                    
            D4.2T1  144  FORTRANH.OBJECT.OC.005             1 LINE  22909  139 PAGE UM   HANSEN              MAR. 02, 1979  12:04:06
0          COMPLETE, UN-LINKEDITED FORTRAN H COMPILER, CONSISTING OF OBJECT FOR 298/1,
           298/2, 298/3, AND 298/4.
00298/006  *FORTRANH                 *FORTRANH       OE  G          *FORTRANH                                                       
            D4.2T1  145  FORTRANH.*FORTRANH.OE.006          1 LINE  32767  102 PAGE UM   HANSEN              MAR. 26, 1979  02:37:54
                         *FORTRANH            
0          LINKEDITED VERSION OF 297/5.
00298/007  *FORTRANH                 MACLIB          SM  G          S1099 FORTRN FSNAME=IEK.MACLIB                                  
            D4.2T1  146  FORTRANH.MACLIB.SM.007             1 LINE     72    3 PAGE UM   HANSEN              NOV. 14, 1978  18:00:46
0          MACRO LIBRARY USED BY 298/1.
00299      *LOVOC                                    S            # (OBSOLETE)                                                      
            D2T2    205                                                             UM                                              
00300      *LODEF                                    S            # (OBSOLETE)                                                      
            D2T2    206                                                             UM                                              
00302      *SSPSOURCE                                SF  G        # (NOT DISTRIBUTED)                                               
            D3T2    167  SSPSOURCE..SF.1                    1 LINE     80    5 PAGE UM                       FEB. 17, 1972  13:31.13
00303/001A  SORT                     SORT PGM        SA  G  SORT    S0027 DISTRB FSNAME=SORT                                        
            D4.2T1  147  SORT.SORT_PGM.SA.001               1 LINE     80   85 PAGE UM   ENGLE               MAR. 02, 1979  17:48:28
0          GENERAL SORT PROGRAM.  COPIES *CNFGINFODSECT (654).
           ASSEMBLE AS FOLLOWS FOR THE FOUR VERSIONS:
            
1                                                                                               THU SEP 12/96   23:39:34   Page   98
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0              &WARN    SETB  0
            
                  &SUB     SETB  0          FOR *SORT VERSION (303/4). CONTROL STATEMENT
                                            READ VIA GUSER MUST BE TERMINATED WITH THE
                                            END PARAMETER OR AN EOF.
            
                  &SUB     SETB  1          FOR SORT SUBROUTINE VERSION (303/6).  CONTROL
                                            STATEMENT MUST BE TERMINATED WITH THE END
                                            PARAMETER.
            
               &WARN    SETB  1
            
                  &SUB     SETB  0          FOR *SORT VERSION (303/3). WARNING MESSAGE
                                            IS ISSUED IF CONTROL STATEMENT IS READ VIA
                                            GUSER AND NOT TERMINATED WITH THE END 
                                            PARAMETER OR AN EOF.
            
                  &SUB     SETB  1          FOR SORT SUBROUTINE VERSION (303/5).  WARNING
                                            MESSAGE IS ISSUED IF CONTROL STATEMENT IS NOT
                                            TERMINATED WITH THE END PARAMETER.
            
           NOTE:  OTHER VALUES FOR MBYI AND MBYT MAY BE MORE APPROPRIATE FOR MACHINES OTHER
           THAN THE AMDAHL 470V/6 OR WITH A RATE STRUCTURE OTHER THAN ONE FOR WHICH THE COST
           OF 1 CPU SECOND EQUALS THE COST OF 200 VMI PAGE-SECONDS (AS AT UM).
00303/002A  SORT                     SORT PGM        UC  G          S0027 DISTRB FSNAME=SORTUPDATE                                  
            D4.2T1  148  SORT.SORT_PGM.UU.002               1 LINE     72    6 PAGE UM   ENGLE               MAR. 02, 1979  17:49:43
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00303/003A  SORT                     *SORT PHASE 2   OC  G          S0027 DISTRB FSNAME=1178SRT                                     
            D4.2T1  149  SORT.*SORT_PHASE_2.OC.003          1 LINE     80   10 PAGE UM   ENGLE               MAR. 02, 1979  17:49:56
0          Referenced by comments of: 303/1 
00303/004A  SORT                     *SORT           OC  O          S0027 DISTRB FSNAME=SRT                                         
            D4.2T1  150  SORT.*SORT.OC.004                  1 LINE     80    9 PAGE UM   ENGLE               MAR. 02, 1979  17:50:20
                         *SORT                
0          Referenced by comments of: 303/1 
00303/005A  SORT                     SORT SUBR PH 2  OC  G          S0027 DISTRB FSNAME=1178SRT1                                    
            D4.2T1  151  SORT.SORT_SUBR_PH_2.OC.005         1 LINE     80   10 PAGE UM   ENGLE               MAR. 02, 1979  17:50:25
0          Referenced by comments of: 303/1 
00303/006   SORT                     SORT SUBR       OC  O          S0027 DISTRB FSNAME=SRT1                                        
            D4.2T1  152  SORT.SORT_SUBR.OC.006              1 LINE     80   10 PAGE UM   ENGLE               MAR. 02, 1979  17:50:30
0          Referenced by comments of: 303/1 
1                                                                                               THU SEP 12/96   23:39:34   Page   99
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00303/007   SORT                     SORT2/3/4 SUBR  SA  G  SRT2    S0027 DISTRB FSNAME=SORT2                                       
            D4.2T1  153  SORT.SORT2/3/4_SUBR.SA.007         1 LINE     80   36 PAGE UM   ENGLE               FEB. 05, 1979  11:09:04
0          SORT2 IS A SUBROUTINE TO SORT AN ARRAY IN VM.
           SORT3 IS A SUBROUTINE TO SORT AN ARRAY IN VM INCLUDING A "TAGGED" ARRAY.
           SORT4 IS A SUBROUTINE TO SORT AN ARRAY OF ADDRESSES BASED ON THE DATA TO WHICH
           THE ADDRESSES REFER.
            
           COPIES *CNFGINFODSECT (654).
00303/008   SORT                     SORT2/3/4 SUBR  UC  G        # S0027 DISTRB FSNAME=SORT2UPDATE                                 
            D4.2T1  154  SORT.SORT2/3/4_SUBR.UU.008         1 LINE     70    1 PAGE UM   ENGLE               JAN. 04, 1979  15:41:48
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00303/009   SORT                     SORT2/3/4 SUBR  OC  G          S0027 DISTRB FSNAME=SRT2                                        
            D4.2T1  155  SORT.SORT2/3/4_SUBR.OC.009         1 LINE     80    5 PAGE UM   ENGLE               FEB. 05, 1979  11:09:10
00303/010   SORT                     MESSAGE         SA  G  MSG     S0027 DISTRB FSNAME=MESSAGE                                     
            D4T1    738  SORT.MESSAGE.SA.006                1 LINE     80    4 PAGE UM   ENGLE               MAY  18, 1976  11:01:21
0          MODULE TO PRINT SORT ERROR MESSAGES (303/12).
0          Referenced by comments of: 303/16 
00303/011   SORT                     MESSAGE         OE  G          S0027 DISTRB FSNAME=MSG                                         
            D4T1    739  SORT.MESSAGE.OE.007                1 LINE     80    1 PAGE UM   ENGLE               MAY  18, 1976  11:01:36
00303/012   SORT                     MESSAGES        M              S0027 DISTRB FSNAME=SORTMESSAGES                                
            D4.2T1  156  SORT.MESSAGES.M.012                1 LINE     81    3 PAGE UM   ENGLE               JAN. 04, 1979  15:49:18
0          SORT ERROR MESSAGES.
           NOTE:  LINE NUMBERS ARE IMPORTANT IN THIS FILE.
0          Referenced by comments of: 303/10, 303/16 
00303/013   SORT                     CHECK           SA  G  CHK     S0027 DISTRB FSNAME=CHECK                                       
            D4T1    741  SORT.CHECK.SA.009                  1 LINE     80    8 PAGE UM   ENGLE               JULY 08, 1976  14:36:37
0          MODULE TO IMPLEMENT THE SORT "CHK" PARAMETER.
0          Referenced by comments of: 303/16 
00303/014   SORT                     CHECK           OE  G          S0027 DISTRB FSNAME=CHK                                         
            D4T1    742  SORT.CHECK.OE.010                  1 LINE     80    2 PAGE UM   ENGLE               JULY 08, 1976  14:36:44
00303/015   SORT                     DOC             WT             S0027 DISTRB FSNAME=SORTWRITEUP                                 
            D4.2T1  157  SORT.DOC.WT.015                    1 LINE    256   51 PAGE UM   ENGLE               JAN. 04, 1979  15:54:23
0          TEXT/360 MASTER FOR MTS VOLUME 5 SORT WRITEUP INCLUDING PRELIMINARY ADDITIONS 
           AND CORRECTIONS SINCE COMPUTING CENTER MEMO 368 (UPDATE 1 TO VOLUME 5, OCT/77).
1                                                                                               THU SEP 12/96   23:39:34   Page  100
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00303/016   SORT                     *SORTLM             G          *SORTLM                                                         
            D4.2T1  158  SORT.*SORTLM..016                  1 LINE   2657    4 PAGE UM   ENGLE               MAR. 26, 1979  02:39:06
                         *SORTLM              
0          FILE CONTAINING ERROR MESSAGE PROGRAM (303/10), MESSAGES (303/12), CHECK ROUTINE (303/13),
           AND TAPESORT (303/23).  THE VERSION OF TAPESORT IN THIS COMPONENT IS THE SAME AS 303/24
           EXCEPT THAT IT SPECIFIES MODE=6250 FOR THE POOL TAPES.  LINE NUMBERS IN THIS FILE ARE
           IMPORTANT.
00303/017   SORT                     SRTTMTST        SA  G  SRTT    S0027 DISTRB FSNAME=SRTTMTST                                    
            D4T1    745  SORT.SRTTMTST.SA.013               1 LINE     80    4 PAGE UM   ENGLE               JAN. 24, 1977  16:01:14
0          MAIN PROGRAM TO PRODUCE CPU AND VMI TIMING RESULTS WHEN LOADED WITH *SORT.
00303/018   SORT                     SRTTMTST        OC  G          S0027 DISTRB FSNAME=SRTT                                        
            D4T1    746  SORT.SRTTMTST.OC.014               1 LINE     80    1 PAGE UM   ENGLE               JAN. 24, 1977  16:02:11
00303/019   SORT                     SORTPLOT        SF  G  SRTP    S0027 DISTRB FSNAME=SORTPLOT                                    
            D4T1    747  SORT.SORTPLOT.SF.015               1 LINE     80    7 PAGE UM   ENGLE               MAY  18, 1976  11:19:41
0          PROGRAM TO GENERATE CALCOMP TIMING PLOTS FOR THE SORT WRITEUP.  IT ASSUMES THE
           EXISTENCE OF THE PENCHG SUBROUTINE FOR MULTICOLOR PLOTS.  A DUMMY SUBROUTINE MAY BE
           SUBSTITUTED.  INTERNAL STATEMENT NUMBER 87 SHOULD BE SKIPPED TO ELIMINATE THE
           PLOTTING OF DATA POINTS.
00303/020   SORT                     SORTPLOT        OC  G          S0027 DISTRB FSNAME=SRTP                                        
            D4T1    748  SORT.SORTPLOT.OC.016               1 LINE   3500    4 PAGE UM   ENGLE               MAY  18, 1976  11:23:17
00303/021   SORT                     SORTPLOT        D   G          S0027 DISTRB FSNAME=SRTPDATA                                    
            D4T1    749  SORT.SORTPLOT.D.017                1 LINE     28    3 PAGE UM   ENGLE               SEP. 09, 1977  16:40:18
0          DATA FOR SORT TIMING PLOTS, MEASURED ON AMDAHL 470V/6.
00303/022   SORT                     SORTPLOT        D   G          S0027 DISTRB FSNAME=SRTPPLOT                                    
            D4T1    750  SORT.SORTPLOT.D.018                1 LINE    254   15 PAGE UM   ENGLE               SEP. 09, 1977  16:40:39
0          CALCOMP PLOT FILE FOR SORT TIMING PLOTS IN SORT WRITEUP.  CONTAINS PPEN RECORDS
           FOR MULTICOLOR PLOTTING.
00303/023   SORT                     TAPESORT        SA  G  TSRT    S0027 DISTRB FSNAME=TAPESORT                                    
            D4T1    751  SORT.TAPESORT.SA.019               1 LINE     80   18 PAGE UM   ENGLE               SEP. 02, 1976  12:02:04
0          MODULE TO IMPLEMENT THE TAPE MERGE OPTION IN SORT.
           CONTAINS A GBLC SYMBOL &MODE WITH VALUE '1600' WHICH SPECIFIES
           THE MODE (DENSITY) FOR THE POOL TAPES MOUNTED BY THIS PROGRAM.
0          Referenced by comments of: 303/16 
00303/024   SORT                     TAPESORT        OC  G          S0027 DISTRB FSNAME=TSRT                                        
            D4T1    752  SORT.TAPESORT.OC.020               1 LINE     80    3 PAGE UM   ENGLE               SEP. 02, 1976  12:02:08
1                                                                                               THU SEP 12/96   23:39:34   Page  101
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00303/025   SORT                     SRT2TIME        SG  G          S0027 DISTRB FSNAME=SRT2TIME                                    
            D4T1    753  SORT.SRT2TIME.SG.021               1 LINE     72    4 PAGE UM   ENGLE               SEP. 09, 1977  16:42:55
0          PROGRAM TO PRODUCE CPU TIMING RESULTS FOR SORT2, SORT3, AND SORT4.  MAY BE USED
           TO TIME ONE OR MORE VERSIONS OF THESE SUBROUTINES.  INFORMATION REQUESTED BY
           PROMPTING INCLUDES LOCATIONS (FILE NAMES ENTERED ONE/LINE TERMINATED BY EOF) OF
           ADDITIONAL VERSIONS (BESIDES THE ONE LOADED WITH THE PROGRAM), WHETHER THE RESULTS
           OF EACH INDIVIDUAL REPETITION ARE TO BE PRINTED, THE NUMBER OF REPETITIONS (0 OR
           MORE) FOR EACH TEST (RANDOM NUMBERS, ALREADY ORDERED, REVERSE ORDER, AND ALL
           EQUAL), ELEMENTS/ARRAY, ELEMENT LENGTH (LENGTH IS SAME FOR TAG ELEMENTS FOR
           SORT3), AND STARTING RANDOM NUMBER.  IF ELEMENTS/ARRAY OR ELEMENT LENGTH IS ZERO,
           A NEW SET OF NUMBER OF REPETITIONS WILL BE REQUESTED.
00303/026   SORT                     SRT2TIME        OC  G          S0027 DISTRB FSNAME=S2TM                                        
            D4T1    754  SORT.SRT2TIME.OC.022               1 LINE     80    8 PAGE UM   ENGLE               SEP. 09, 1977  16:44:10
0          >>>>>>>> NOTE:  REP CARD IN THIS OBJECT CAUSES THE TIMES TO BE PRINTED AS
                    TIME/N RATHER THAN TIME/(N*LOG2(N)).
00303/027   SORT                     MEMO 379        WT             W098:M379                                                       
            D4.2T1  159  SORT.MEMO_379.WT.027               1 LINE     77    1 PAGE UM   ENGLE               MAR. 26, 1979  02:39:07
0          THIS IS COMPUTING CENTER MEMO 379 -- "SORT DELETE OUTPUT RECORDS PARAMETER
           AND SORT SIGNED DECIMAL AND ZONED DECIMAL FIELD LENGTH CHANGES."
00303/028   SORT                     MEMO 391        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M391SORT                         
            D4.2T1  160  SORT.MEMO_391.WF.028               1 LINE     80    3 PAGE UM   ENGLE               SEP. 13, 1978  14:08:30
0          THIS IS COMPUTING CENTER MEMO 391 -- "CHANGES TO THE SORT PROGRAMS."
00304/001   TAPE DIAGNOSTIC          *TPD            C              *TPD                                                            
            D4.2T1  161  TAPE_DIAGNOSTIC.*TPD.C.001         1 LINE     61    1 PAGE UM   WSG                 MAR. 26, 1979  02:39:10
                         *TPD                 
0          COMMAND FILE TO RUN THE SYSTEM TAPE DIAGNOSTIC PROGRAM (304/2).  INVOKED BY ENTERING
           "MTS *TPD" ON THE OPERATOR'S CONSOLE.
00304/002   TAPE DIAGNOSTIC                          SA  G  TDIA    WSG:TAPEDIAG(1,999)                                             
            D4T1    756  TAPE_DIAGNOSTIC..SA.002            1 LINE     80    8 PAGE UM   WSG                 JULY 27, 1977  02:24:20
                         WSG.:TAPEDIAG        
0          SIMPLE TAPE DIAGNOSTIC PROGRAM.  READS AND WRITES RANDOM LENGTH, RANDOM DATA
           RECORDS.  WORKS ON BOTH 7- AND 9-TRACK.  WHEN IT ASKS FOR A TAPE DRIVE, PARAMETERS
           MAY BE GIVEN AFTER THE DRIVE NAME AS FOLLOWS:
             800   - FOR 9-TRACK, TEST 800 BPI.
             1600  - FOR 9-TRACK, TEST 1600 BPI.
             6250  - FOR 9-TRACK, TEST 6250 BPI.
             ALL   - TEST THE ENTIRE TAPE RATHER THAN THE DEFAULT 300 READ/WRITE ATTEMPTS.
           IF NONE OF THE FIRST THREE PARAMETERS IS GIVEN, ALL 9-TRACK DENSITIES WILL BE TESTED
           IN SUCCESSION (800, 1600, AND 6250).  IF ANY OF THESE DENSITIES IS NOT SUPPORTED BY
           THE DRIVE BEING TESTED, A WARNING MESSAGE WILL BE PRODUCED AND THAT DENSITY IS
           SKIPPED.  ALL THREE 7-TRACK DENSITIES ARE ALWAYS TESTED ON AN INTERLEAVED
           RECORD-BY-RECORD BASIS.
1                                                                                               THU SEP 12/96   23:39:34   Page  102
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 304/1 
00304/003   TAPE DIAGNOSTIC                          OC  G          WSG:TAPEDIAG(1000)                                              
            D4T1    757  TAPE_DIAGNOSTIC..OC.003            1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  02:24:22
00305/001  *FTNTOPL1                 SLCPF4          SP  O  LCP     S0721 'D3T2' FSNAME=FTNTOPL1.SLCPF4.SP.1(1)                  177
            D4T1    758  FTNTOPL1.SLCPF4.SP.001             1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  22:47.13
0          IBM PROGRAM 360-CV-710: LCP FORTRAN-IV TO PL/I, VERSION 1 LEVEL 0. THE SOURCE DECKS (305/1 THRU 305/20)
           SHOULD BE STORED IN FILES NAMED AS INDICATED.  THE UPDATE DECK (305/21) WILL CONVERT THESE FILES, WHICH 
           ARE UNMODIFIED IBM SOURCE, INTO A VERSION THAT WILL RUN IN MTS.  MOST OF THESE PROGRAMS ARE WRITTEN IN PL/I
           VERSION 4 WITH SORGMIN=(2,41).  THE ONLY PROGRAMS WHICH ARE NOT PL/I ARE SCONVER, SPUTTBS, AND SLBLNK, WHICH ARE
           ASSEMBLY LANGUAGE.  UNCHANGED SINCE DIST 2.
00305/002  *FTNTOPL1                 SCONVER         SA  O  CON     S0721 'D3T2' FSNAME=FTNTOPL1.SCONVER.SA.2(1)                 178
            D4T1    759  FTNTOPL1.SCONVER.SA.002            1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.14
00305/003  *FTNTOPL1                 SPUTTBS         SA  O  PUT     S0721 'D3T2' FSNAME=FTNTOPL1.SPUTTBS.SA.3(1)                 179
            D4T1    760  FTNTOPL1.SPUTTBS.SA.003            1 SEQ      80   24 PAGE UM   TIFFANY             JULY 31, 1973  22:47.18
0          Referenced by comments of: 305/21 
00305/004  *FTNTOPL1                 SLTCOL          SP  O  LTC     S0721 'D3T2' FSNAME=FTNTOPL1.SLTCOL.SP.4(1)                  180
            D4T1    761  FTNTOPL1.SLTCOL.SP.004             1 SEQ      80   12 PAGE UM   TIFFANY             JULY 31, 1973  22:47.22
00305/005  *FTNTOPL1                 SIPPRS          SP  O  IPP     S0721 'D3T2' FSNAME=FTNTOPL1.SIPPRS.SP.5(1)                  181
            D4T1    762  FTNTOPL1.SIPPRS.SP.005             1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.25
00305/006  *FTNTOPL1                 SPH10           SP  O  PH1     S0721 'D3T2' FSNAME=FTNTOPL1.SPH10.SP.6(1)                   182
            D4T1    763  FTNTOPL1.SPH10.SP.006              1 SEQ      80   11 PAGE UM   TIFFANY             JULY 31, 1973  22:47.28
00305/007  *FTNTOPL1                 SFNPRO          SP  O  FNP     S0721 'D3T2' FSNAME=FTNTOPL1.SFNPRO.SP.7(1)                  183
            D4T1    764  FTNTOPL1.SFNPRO.SP.007             1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.30
00305/008  *FTNTOPL1                 SDMPRO          SP  O  DMP     S0721 'D3T2' FSNAME=FTNTOPL1.SDMPRO.SP.8(1)                  184
            D4T1    765  FTNTOPL1.SDMPRO.SP.008             1 SEQ      80   18 PAGE UM   TIFFANY             JULY 31, 1973  22:47.32
00305/009  *FTNTOPL1                 SNLPRO          SP  O  NLP     S0721 'D3T2' FSNAME=FTNTOPL1.SNLPRO.SP.9(1)                  185
            D4T1    766  FTNTOPL1.SNLPRO.SP.009             1 SEQ      80    9 PAGE UM   TIFFANY             JULY 31, 1973  22:47.34
00305/010  *FTNTOPL1                 SFTPRO          SP  O  FTP     S0721 'D3T2' FSNAME=FTNTOPL1.SFTPRO.SP.10(1)                 186
            D4T1    767  FTNTOPL1.SFTPRO.SP.010             1 SEQ      80   21 PAGE UM   TIFFANY             JULY 31, 1973  22:47.38
00305/011  *FTNTOPL1                 SRTPRO          SP  O  RTP     S0721 'D3T2' FSNAME=FTNTOPL1.SRTPRO.SP.11(1)                 187
            D4T1    768  FTNTOPL1.SRTPRO.SP.011             1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.40
00305/012  *FTNTOPL1                 SIOPRO          SP  O  IOP     S0721 'D3T2' FSNAME=FTNTOPL1.SIOPRO.SP.12(1)                 188
            D4T1    769  FTNTOPL1.SIOPRO.SP.012             1 SEQ      80   25 PAGE UM   TIFFANY             JULY 31, 1973  22:47.43
00305/013  *FTNTOPL1                 SARPRO          SP  O  ARP     S0721 'D3T2' FSNAME=FTNTOPL1.SARPRO.SP.13(1)                 189
            D4T1    770  FTNTOPL1.SARPRO.SP.013             1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.47
1                                                                                               THU SEP 12/96   23:39:34   Page  103
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00305/014  *FTNTOPL1                 SCAPRO          SP  O  CAP     S0721 'D3T2' FSNAME=FTNTOPL1.SCAPRO.SP.14(1)                 190
            D4T1    771  FTNTOPL1.SCAPRO.SP.014             1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.49
00305/015  *FTNTOPL1                 SIFPRO          SP  O  IFP     S0721 'D3T2' FSNAME=FTNTOPL1.SIFPRO.SP.15(1)                 191
            D4T1    772  FTNTOPL1.SIFPRO.SP.015             1 SEQ      80    6 PAGE UM   TIFFANY             JULY 31, 1973  22:47.52
00305/016  *FTNTOPL1                 SALPRO          SP  O  ALP     S0721 'D3T2' FSNAME=FTNTOPL1.SALPRO.SP.16(1)                 192
            D4T1    773  FTNTOPL1.SALPRO.SP.016             1 SEQ      80    7 PAGE UM   TIFFANY             JULY 31, 1973  22:47.54
00305/017  *FTNTOPL1                 SPH20           SP  O  PH2     S0721 'D3T2' FSNAME=FTNTOPL1.SPH20.SP.17(1)                  193
            D4T1    774  FTNTOPL1.SPH20.SP.017              1 SEQ      80   16 PAGE UM   TIFFANY             JULY 31, 1973  22:47.58
00305/018  *FTNTOPL1                 SPH30           SP  O  PH3     S0721 'D3T2' FSNAME=FTNTOPL1.SPH30.SP.18(1)                  194
            D4T1    775  FTNTOPL1.SPH30.SP.018              1 SEQ      80   41 PAGE UM   TIFFANY             JULY 31, 1973  22:48.03
00305/019  *FTNTOPL1                 SLBLNK          SA  O  SLBL    S0721 'D3T2' FSNAME=FTNTOPL1.SLBLNK.SA.19(1)                 195
            D4T1    776  FTNTOPL1.SLBLNK.SA.019             1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:48.07
00305/020  *FTNTOPL1                 SUT1            SP  O          S0721 'D3T2' FSNAME=FTNTOPL1.SUT1.SP.20(1)                   196
            D4T1    777  FTNTOPL1.SUT1.SP.020               1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  22:48.08
00305/021  *FTNTOPL1                 UPDATE          UU  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.UPDATE.UU.021(1)              778
            D4T1    778  FTNTOPL1.UPDATE.UU.021             1 LINE     80    4 PAGE UM   TIFFANY             JULY 27, 1977  02:25:15
0          UPDATE DECK, INCLUDING MTS COMMANDS, TO PRODUCE IN A FILE "NEWLCP" A VERSION OF *FTNTOPL1 THAT WILL RUN
           IN MTS. THIS DECK WILL HAVE TO BE CHANGED TO MEET LOCAL CONDITIONS - IT CURRENTLY USES THE DATA CELL.
           LATEST VERSION CORRECTS SPUTTBS (305/3) SO THAT THERE CAN BE MORE THAN 200 INPUT CARDS.
0          Referenced by comments of: 305/1 
00305/022  *FTNTOPL1                                 OC  O          *FTNTOPL1                                                       
            D4T1    779  FTNTOPL1..OC.022                   1 SEQ   22330   46 PAGE UM   TIFFANY             JULY 27, 1977  02:25:17
                         *FTNTOPL1            
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00306/001  *WIREWRAP                 WW.S.MAIN       SA  G  WWMN    S0767 'SAVETAPE' FSNAME=WW.S.MAIN                               
            D4T1    780  WIREWRAP.WW.S.MAIN.SA.001          1 LINE     80   55 PAGE UM   GOEN                AUG. 21, 1975  11:54:24
0          PROGRAM TO PRODUCE ALL SORTS OF NEAT OUTPUT ABOUT WIRING BACKPANELS FOR HARDWARE DEVICES.
           INPUT TO THE PROGRAM IS A MACRO-ORIENTED LANGUAGE FOR DESCRIBING HARDWARE DEVICES FROM LOGIC
           DIAGRAMS.  OUTPUT INCLUDES LISTS OF SIGNALS, WIRE-CHAINS, IC'S USED, COST AND POWER TOTALS,
           AND A PUNCHED CARD DECK FOR AUTOMATICALLY DRIVING ANY GARDNER-DENVER WIREWRAP MACHINE.
           THE WIREWRAP PROGRAM CONSISTS OF THREE CSECTS:  WW.S.MAIN (306/1), WW.S.AUX (306/2),
           AND WW.S.MACR (306/3).  EACH REQUIRES COPY SECTIONS WWCOPY (306/5) AND WWDATA (306/6) AND MACRO
           LIBRARIES WWMAC (306/7) AND *SYSMAC.  THE OBJECT MODULE (*WIREWRAP) MUST BE RUN IN CONJUNCTION
           WITH THE *WWLIB (306/9) LIBRARY FILE OR MUST BE CONCATENATED WITH A PRIVATE SUBROUTINE
           PACKAGE USED TO DEFINE THE CHARACTERISTICS OF THE IC MOUNTING TECHNIQUE.  SOURCE FILE
           WWJOB (306/8) WILL ASSEMBLE *WIREWRAP.
0          Referenced by comments of: 306/1 
1                                                                                               THU SEP 12/96   23:39:34   Page  104
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00306/002  *WIREWRAP                 WW.S.AUX        SA  G  WWAU    S0767 'SAVETAPE' FSNAME=WW.S.AUX                                
            D4T1    781  WIREWRAP.WW.S.AUX.SA.002           1 LINE     80   42 PAGE UM   GOEN                AUG. 21, 1975  11:54:30
0          Referenced by comments of: 306/1 
00306/003  *WIREWRAP                 WW.S.MACR       SA  G  WWMC    S0767 'SAVETAPE' FSNAME=WW.S.MACR                               
            D4T1    782  WIREWRAP.WW.S.MACR.SA.003          1 LINE     80   29 PAGE UM   GOEN                AUG. 21, 1975  11:54:38
0          Referenced by comments of: 306/1 
00306/004  *WIREWRAP                 *WIREWRAP       OE  G          *WIREWRAP                                                       
            D4T1    783  WIREWRAP.*WIREWRAP.OE.004          1 SEQ   12724   15 PAGE UM   GOEN                JULY 27, 1977  02:29:07
                         *WIREWRAP            
00306/005  *WIREWRAP                 WWCOPY          SA  G  WWCO    S0767 'SAVETAPE' FSNAME=WWCOPY                                  
            D4T1    784  WIREWRAP.WWCOPY.SA.005             1 LINE     80    4 PAGE UM   GOEN                AUG. 21, 1975  11:55:07
0          COPY SECTION USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
00306/006  *WIREWRAP                 WWDATA          SA  G  WWDA    S0767 'SAVETAPE' FSNAME=WWDATA                                  
            D4T1    785  WIREWRAP.WWDATA.SA.006             1 LINE     80    8 PAGE UM   GOEN                AUG. 21, 1975  11:55:02
0          COPY SECTION USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
00306/007  *WIREWRAP                 WWMAC           SM  G          S0767 'SAVETAPE' FSNAME=WWMAC                                   
            D4T1    786  WIREWRAP.WWMAC.SM.007              1 LINE     73    3 PAGE UM   GOEN                AUG. 21, 1975  11:54:50
0          MACRO LIB USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
00306/008  *WIREWRAP                 WWJOB           C   G          S0767 'SAVETAPE' FSNAME=WWJOB                                   
            D4T1    787  WIREWRAP.WWJOB.C.008               1 LINE     92    1 PAGE UM   GOEN                AUG. 21, 1975  11:54:55
0          Referenced by comments of: 306/1 
00306/009  *WIREWRAP                 *WWLIB          OL  G          *WWLIB                                                          
            D4.1T1   99  WIREWRAP.*WWLIB.OL.009             1 LINE   2948   37 PAGE UM   GOEN                MAY  13, 1978  17:10:10
                         *WWLIB               
0          NON-STANDARD LIBRARY FILE USED BY *WIREWRAP TO OBTAIN CHARACTERISTICS OF THE IC
           MOUNTING TECHNIQUE.  CONSISTS OF A DIRECTORY FOLLOWED BY THE LINK-EDITED OBJECT
           MODULES FOR BAY TYPES:  LAB, LAB16, IC, MSERIES, PG1, PG3, PG5, PG13, UG1, MIC,
           RSERIES, 8SERIES, CHIP, AND DOUGLAS.  THE *WIREWRAP USER'S GUIDE (306/33)
           DESCRIBES MOST OF THESE BAY TYPES.  8SERIES IS USED FOR CLASSIC PDP-8 MINCOMPUTERS.
           CHIP AND DOUGLAS ARE DESCRIBED IN THEIR RESPECTIVE FORTRAN SOURCE CODES.  THIS
           LIBRARY ALSO MAKES USE OF OBJECT FILES *WWSQGRD (306/11), *WWSTGRD1 (306/13),
           AND *WWSTGRD2 (306/15).
0          Referenced by comments of: 306/1, 306/16, 306/17, 306/18, 306/19, 306/20, 306/21, 306/22, 306/23, 306/24, 306/25,
1                                                                                               THU SEP 12/96   23:39:34   Page  105
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
 
                 306/26, 306/27, 306/28, 306/29 
00306/010  *WIREWRAP                 SQGRD           SA  G  SQGR    S0767 'SAVETAPE' FSNAME=SQGRD.S                                 
            D4T1    789  WIREWRAP.SQGRD.SA.010              1 LINE     80    7 PAGE UM   GOEN                DEC. 13, 1973  12:57.39
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/011  *WIREWRAP                 SQGRD           OE  G          *WWSQGRD                                                        
            D4T1    790  WIREWRAP.SQGRD.OE.011              1 SEQ     606    1 PAGE UM   GOEN                JULY 27, 1977  02:29:46
                         *WWSQGRD             
0          Referenced by comments of: 306/9 
00306/012  *WIREWRAP                 STGRD1          SA  G  STG1    S0767 'SAVETAPE' FSNAME=STGRD1.S                                
            D4T1    791  WIREWRAP.STGRD1.SA.012             1 LINE     80    8 PAGE UM   GOEN                DEC. 13, 1973  12:57.57
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/013  *WIREWRAP                 STGRD1          OE  G          *WWSTGRD1                                                       
            D4T1    792  WIREWRAP.STGRD1.OE.013             1 SEQ     726    1 PAGE UM   GOEN                JULY 27, 1977  02:29:50
                         *WWSTGRD1            
0          Referenced by comments of: 306/9 
00306/014  *WIREWRAP                 STGRD2          SA  G  STG2    S0767 'SAVETAPE' FSNAME=STGRD2.S                                
            D4T1    793  WIREWRAP.STGRD2.SA.014             1 LINE     80    8 PAGE UM   GOEN                DEC. 13, 1973  12:58.13
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/015  *WIREWRAP                 STGRD2          OE  G          *WWSTGRD2                                                       
            D4T1    794  WIREWRAP.STGRD2.OE.015             1 SEQ    5718    2 PAGE UM   GOEN                JULY 27, 1977  02:29:55
                         *WWSTGRD2            
0          Referenced by comments of: 306/9 
00306/016  *WIREWRAP                 LAB             SF  G  LAB     S0767 'SAVETAPE' FSNAME=LAB.S                                   
            D4T1    795  WIREWRAP.LAB.SF.016                1 LINE     80    5 PAGE UM   GOEN                FEB. 20, 1976  14:55:25
0          SUBROUTINE PACKAGE FOR BAY TYPE 'LAB'.  OBJECT MODULE IN *WWLIB (306/9).
00306/017  *WIREWRAP                 LAB16           SF  G          S0767 'SAVETAPE' FSNAME=LAB16.S                                 
            D4.1T1  100  WIREWRAP.LAB16.SF.017              1 LINE     70    3 PAGE UM   GOEN                MAR. 13, 1978  15:48:56
0          SUBROUTINE PACKAGE FOR BAY TYPE 'LAB16', WHICH IS THE SAME AS 'LAB' EXCEPT
           IT ALLOWS FOR 14- OR 16-PIN CHIPS.  OBJECT MODULE IN *WWLIB (306/9).
00306/018  *WIREWRAP                 MSERIES         SF  G  MSER    S0767 'SAVETAPE' FSNAME=MSERIES.S                               
            D4T1    796  WIREWRAP.MSERIES.SF.017            1 LINE     80    5 PAGE UM   GOEN                DEC. 13, 1973  12:56.06
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MSERIES'. OBJECT MODULE IN *WWLIB (306/9).
1                                                                                               THU SEP 12/96   23:39:34   Page  106
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00306/019  *WIREWRAP                 RSERIES         SF  G  RSER    S0767 'SAVETAPE' FSNAME=RSERIES.S                               
            D4T1    797  WIREWRAP.RSERIES.SF.018            1 LINE     80    5 PAGE UM   GOEN                DEC. 13, 1973  12:56.35
0          SUBROUTINE PACKAGE FOR BAY TYPE 'RSERIES'.  OBJECT MODULE IN *WWLIB (306/9).
00306/020  *WIREWRAP                 IC              SF  G  IC      S0767 'SAVETAPE' FSNAME=IC.S                                    
            D4T1    798  WIREWRAP.IC.SF.019                 1 LINE     80    5 PAGE UM   GOEN                DEC. 13, 1973  12:55.30
0          SUBROUTINE PACKAGE FOR BAY TYPE 'IC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/021  *WIREWRAP                 MIC             SF  G  MIC     S0767 'SAVETAPE' FSNAME=MIC.S                                   
            D4T1    799  WIREWRAP.MIC.SF.020                1 LINE     80    6 PAGE UM   GOEN                JAN. 16, 1974  13:12.44
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MIC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/022  *WIREWRAP                 PG1             SF  G  PG1     S0767 'SAVETAPE' FSNAME=79.PG1SOU                               
            D4T1    800  WIREWRAP.PG1.SF.021                1 LINE     80    6 PAGE UM   GOEN                DEC. 13, 1973  13:35.38
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/023  *WIREWRAP                 PG3             SF  G  PG3     S0767 'SAVETAPE' FSNAME=79.PG3SOU                               
            D4T1    801  WIREWRAP.PG3.SF.022                1 LINE     80    7 PAGE UM   GOEN                DEC. 13, 1973  13:36.09
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG3'.  OBJECT MODULE IN *WWLIB (306/9).
00306/024  *WIREWRAP                 PG5             SF  G  PG5     S0767 'SAVETAPE' FSNAME=79.PG5SOU                               
            D4T1    802  WIREWRAP.PG5.SF.023                1 LINE     80    6 PAGE UM   GOEN                DEC. 13, 1973  13:36.26
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG5'.  OBJECT MODULE IN *WWLIB (306/9).
00306/025  *WIREWRAP                 PG13            SF  G  PG13    S0767 'SAVETAPE' FSNAME=79.PG13SOU                              
            D4T1    803  WIREWRAP.PG13.SF.024               1 LINE     80    7 PAGE UM   GOEN                DEC. 13, 1973  13:35.53
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG13'.  OBJECT MODULE IN *WWLIB (306/9).
00306/026  *WIREWRAP                 UG1             SA  G  UG1     S0767 'SAVETAPE' FSNAME=AUGATUG1.S                              
            D4T1    804  WIREWRAP.UG1.SA.025                1 LINE     80   20 PAGE UM   GOEN                JAN. 16, 1974  13:13.19
0          SUBROUTINE PACKAGE FOR BAY TYPE 'UG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/027  *WIREWRAP                 CHIP            SF  G          S0767 'SAVETAPE' FSNAME=CHIP.S                                  
            D4T1    805  WIREWRAP.CHIP.SF.026               1 LINE     69    3 PAGE UM   GOEN                FEB. 20, 1976  14:54:28
0          SUBROUTINE PACKAGE FOR BAY TYPE 'CHIP'.  USEFUL FOR "BREADBOARDING" APPLICATIONS;
           I.E. STICKING WIREWRAP SOCKETS INTO VECTOR BOARD.  COMPLETE DOCUMENTATION IS IN
           THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE.  OBJECT MODULE IN *WWLIB (306/9).
00306/028  *WIREWRAP                 DOUGLAS         SF  G          S0767 'SAVETAPE' FSNAME=DOUGLAS.S                               
            D4T1    806  WIREWRAP.DOUGLAS.SF.027            1 LINE     69    4 PAGE UM   GOEN                FEB. 20, 1976  14:58:54
0          SUBROUTINE PACKAGE FOR BAY TYPE 'DOUGLAS' -- THE DEC-BAY-COMPATIBLE '10-DE-77'
           SOCKET BOARD.  DOCUMENTATION IS IN THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE.
           OBJECT MODULE IN *WWLIB (306/9).
1                                                                                               THU SEP 12/96   23:39:34   Page  107
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00306/029  *WIREWRAP                 8SERIES         SF  G          S0767 'SAVETAPE' FSNAME=8SERIES.S                               
            D4T1    807  WIREWRAP.8SERIES.SF.028            1 LINE     73    3 PAGE UM   GOEN                DEC. 13, 1973  12:57.00
0          SUBROUTINE PACKAGE FOR BAY TYPE '8SERIES' -- FOR DEC'S PDP-8 CLASSIC MINI-COMPUTER.
           OBJECT MODULE IN *WWLIB (306/9).
00306/030  *WIREWRAP                 *WWICMAC        D              *WWICMAC                                                        
            D4.2T1  162  WIREWRAP.*WWICMAC.D.030            1 LINE     65    4 PAGE UM   GOEN                MAR. 26, 1979  02:39:11
                         *WWICMAC             
0          THIS FILE CONTAINS "WIREWRAP MACROS" FOR MOST OF THE IC'S USED FOR LOGIC DESIGN AT THE UM COMPUTING CENTER.
           THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES "PAR=TYPE=IC" FOR THE MOUNTING TECHNIQUE.
00306/031  *WIREWRAP                 *WWLABMAC       D              *WWLABMAC                                                       
            D4.2T1  163  WIREWRAP.*WWLABMAC.D.031           1 LINE     55    3 PAGE UM   GOEN                MAR. 26, 1979  02:39:12
                         *WWLABMAC            
0          THIS FILE CONTAINS A "WIREWRAP MACRO" DICTIONARY FOR IC'S USED IN THE LOGIC LAB "SUITCASE" USED
           IN ECE DEPARTMENT CLASSES AT UM.  THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES
           "PAR=TYPE=LAB" FOR THE MOUNTING TECHNIQUE.
00306/032  *WIREWRAP                 TTLMAC          D   G          S0767 'SAVETAPE' FSNAME=TTLMAC                                  
            D4T1    810  WIREWRAP.TTLMAC.D.031              1 LINE     91    4 PAGE UM   GOEN                JUNE 18, 1976  13:38:55
0          ANOTHER "WIREWRAP MACRO" DICTIONARY.
00306/033  *WIREWRAP                 MEMO 267        WT             S0563 D4T1 VLO FSNAME=WIREWRAP.MEMO_267.WT.032(1)            811
            D4T1    811  WIREWRAP.MEMO_267.WT.032           1 LINE     81   49 PAGE UM   GOEN                FEB. 03, 1977  16:58:19
0          THIS IS COMPUTING CENTER MEMO 267 -- "*WIREWRAP USER'S GUIDE"
0          Referenced by comments of: 306/9 
00307      *OBJCONV                                  SA           # (OBSOLETE)                                                      
            D3T2    220  OBJCONV..SA.1                      1 SEQ      80    1 PAGE UM                       JULY 31, 1973  22:54.21
00308/001  *FMT                      MAIN            SA  O          W030:UBCFMT                                                     
            D4.2T1  164  FMT.MAIN.SA.001                    1 LINE     73   91 PAGE UBC            LIFT      MAR. 26, 1979  02:39:12
0          FORMAT TEXT PROCESSING LANGUAGE, KNOWN AS *FMT THROUGHOUT MTS-LAND EXCEPT AT UM WHERE
           IT IS CALLED *FORMAT.  THIS IS THE MAIN PROGRAM AND "MAIN LINE" SUBROUTINES.
           ALL ROUTINES USING THE FMT#DS COPY SECTION (308/4) ARE INCLUDED HERE, NAMELY
           FMT, FMTCC, FMTOUT, AND CONCARD.  THIS VERSION HAS MULTIPLE COLUMN SUPPORT
           AND SUPERFMT.  ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC.
0          Referenced by comments of: 560/1 
00308/002  *FMT                      SUBROUTINES     SA  O          W030:UBCFMTRTN                                                  
            D4.2T1  165  FMT.SUBROUTINES.SA.002             1 LINE     77   29 PAGE UBC            LIFT      MAR. 26, 1979  02:39:23
0          SUBROUTINES WHICH DO NOT COPY FMT#DS.  THE ROUTINE FMTOPTS SHOULD BE REASSEMBLED
           TO CHANGE THE NAME OF THE FUNCTION LIBRARY (ETC:FMTLIB) IF NECESSARY.
           ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC.
1                                                                                               THU SEP 12/96   23:39:34   Page  108
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00308/003  *FMT                      MORE SUBRS      SA  O          W030:UBCFMTRTN1                                                 
            D4T1    814  FMT.MORE_SUBRS.SA.003              1 LINE     80   99 PAGE UBC            LIFT      JULY 27, 1977  02:36:32
0          ADDITIONAL SUBROUTINES WHICH ARE ALSO USED BY THE FUNCTIONS (308/7 ET SEQ).
           ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC.
00308/004  *FMT                      FMT#DS          SA  G          W030:UBCFMTDS                                                   
            D4T1    815  FMT.FMT#DS.SA.004                  1 LINE     80   13 PAGE UBC            LIFT      JULY 27, 1977  02:36:38
0          FMT#DS COPY SECTION.
0          Referenced by comments of: 308/1 
00308/005  *FMT                      UBCMACLIB       SM  G          W030:UBCMACLIB                                                  
            D4T1    816  FMT.UBCMACLIB.SM.005               1 LINE     80   15 PAGE UBC            LIFT      JULY 27, 1977  02:36:40
0          Referenced by comments of: 308/1, 308/2, 308/3, 308/8, 308/10 
00308/006  *FMT                      OBJECT          OE  O          *FORMAT                                                         
            D4.2T1  166  FMT.OBJECT.OE.006                  1 SEQ   31983   14 PAGE UBC            LIFT      MAR. 26, 1979  02:39:25
                         *FORMAT              
0          OBJECT FROM 308/1, 308/2, AND 308/3.
0          Referenced by comments of: 308/8 
00308/007  *FMT                      HYPHEN          S3  O          W030:FMTHYPHEN                                                  
            D4T1    818  FMT.HYPHEN.S3.007                  1 LINE     70   21 PAGE UBC            LIFT      JULY 27, 1977  02:36:45
0          THIS COMPONENT AND THOSE FOLLOWING ARE THE SOURCE FOR THE FMT DYNAMICALLY
           LOADED FUNCTION LIBRARY (ETC:FMTLIB).
            
           THIS IS THE HYPHEN FUNCTION AND ITS SUBROUTINES.  IT HAS $CONTINUE WITHS
           WHICH ARE SELF-REFERENCING.  AFTER COMPILATION, REFERENCES IN THE OBJECT 
           TO INFREE1 SHOULD BE CHANGED TO INFREE#.  THIS FUNCTION REFERENCES THE 
           DATA FILE ETC:FMTDICT (308/18).
00308/008  *FMT                      GSPFRSP         SA  O          W030:FMTHYPHEN1                                                 
            D4T1    819  FMT.GSPFRSP.SA.008                 1 LINE     80    4 PAGE UBC            LIFT      JULY 27, 1977  02:36:48
0          SUBROUTINE CALLED BY HYPHEN (308/6).  ASSEMBLE USING UBCMACLIB (308/5) AND *SYSMAC.
00308/009  *FMT                      INDEX           SF  O          W030:FMTINDEX                                                   
            D4T1    820  FMT.INDEX.SF.009                   1 LINE     80   10 PAGE UBC            LIFT      JULY 27, 1977  02:36:50
0          INDEX FUNCTION AND SEVERAL SUBROUTINES.
00308/010  *FMT                      ASMFNS          SA  O          W030:FMTASMFNS                                                  
            D4T1    821  FMT.ASMFNS.SA.010                  1 LINE     80   11 PAGE UBC            LIFT      JULY 27, 1977  02:36:52
0          FUNCTIONS UCTRAN, IFDEF, IFNUL, BLOCK, CAPIT, DOUBLE, GETPAR, FMTCHAR,
           MOST, AND ALL.  ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC.
1                                                                                               THU SEP 12/96   23:39:34   Page  109
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00308/011  *FMT                      CONTENTS        SF  O          W030:FMTCONTENTS                                                
            D4T1    822  FMT.CONTENTS.SF.011                1 LINE     73    4 PAGE UBC            LIFT      JULY 27, 1977  02:36:54
0          AFTER COMPILATION, CHANGE THE NAME "CONTNS  " TO "CONTENTS" IN THE OBJECT.
00308/012  *FMT                      COUNT           SF  G          W030:FMTCOUNT                                                   
            D4T1    823  FMT.COUNT.SF.012                   1 LINE     72    3 PAGE UBC            LIFT      JULY 27, 1977  02:36:56
00308/013  *FMT                      DATE            S3  O          W030:FMTDATE                                                    
            D4T1    824  FMT.DATE.S3.013                    1 LINE     71    4 PAGE UBC            LIFT      JULY 27, 1977  02:36:59
00308/014  *FMT                      FTNFNS          SF  O          W030:FMTFTNFNS                                                  
            D4T1    825  FMT.FTNFNS.SF.014                  1 LINE     72    6 PAGE UBC            LIFT      JULY 27, 1977  02:37:01
0          FUNCTIONS STACK, NULL, CENTER, TEST, INPUT, MYSORT, PAD, FOR, SPREAD, EXIST,
           JUST, AND FMTCNTRL.  AFTER COMPILATION, CHANGE THE NAME "FMTCTL  " TO "FMTCNTRL"
           IN THE OBJECT.
00308/015  *FMT                      SORT            SF  O          W030:FMTSORT                                                    
            D4T1    826  FMT.SORT.SF.015                    1 LINE     64    1 PAGE UBC            LIFT      JULY 27, 1977  02:37:03
0          AFTER COMPILATION, CHANGE THE NAME "FMTSRT " TO FMTSORT" IN THE OBJECT.
00308/016  *FMT                      PAGE            SF  O          W030:FMTPAGE                                                    
            D4T1    827  FMT.PAGE.SF.016                    1 LINE     80    7 PAGE UBC            LIFT      JULY 27, 1977  02:37:05
0          PAGE FUNCTION AND FMTPAG SUBROUTINE.
00308/017  *FMT                      FMTLIB          OL  O          ETC:FMTLIB                                                      
            D4T1    828  FMT.FMTLIB.OL.017                  1 SEQ    6314   26 PAGE UBC            LIFT      JULY 27, 1977  02:37:07
                         ETC.:FMTLIB          
0          FUNCTION LIBRARY CONSISTING OF OBJECT FROM 308/7 THROUGH 308/16.
00308/018  *FMT                      DICT            D              ETC:FMTDICT                                                     
            D4T1    829  FMT.DICT.D.018                     1 LINE     80    3 PAGE UBC            LIFT      JULY 27, 1977  02:37:09
                         ETC.:FMTDICT         
0          HYPHENATION DICTIONARY DATA FILE USED BY 308/7.
0          Referenced by comments of: 308/7 
00309      *STASS360                                 SA           # (OBSOLETED BY *ASSIST, COMP 669)                                
            D3T2    225  STASS360.MONITOR.SA.1              1 SEQ      80   11 PAGE UM                       JULY 31, 1973  22:55.58
00311      *VARRLIST                                 S            # (OBSOLETE)                                                      
            D2T1    333                                                             UM                                              
00313       1130 RJE SUPPORT PROGRAM                 S            # (OBSOLETE)                                                      
            D2T1    096                                                             UM                                              
1                                                                                               THU SEP 12/96   23:39:34   Page  110
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00314/001  *LABELSNIFF                               SA  G          LBT:LBLSNIFF.S                                                  
            D4T1    830  LABELSNIFF..SA.001                 1 LINE     80   53 PAGE UM   TIFFANY             JULY 27, 1977  02:37:11
0          THIS PROGRAM (ALSO KNOWN IN SOME LANDS AS *TAPESNIFF) FORMATS AND
           PRINTS INFORMATION ABOUT TAPES.  FOR D4, THIS PROGRAM HAS BEEN
           CHANGED TO SUPPORT BOTH UNLABELED AS WELL AS LABELED TAPES, 6250
           BPI, AND SPECIAL HANDLING FOR *FS TAPES.  IT NOW PRINTS THE RACK
           NUMBER AND OTHER ITEMS SUCH AS "RING=IN".  BETTER ERROR RECOVERY IS
           INCLUDED FOR 7-TRACK MIXED PARITY TAPES.  UNLABELED TAPES ARE PROCESSED
           UP TO A DOUBLE FILE MARK WHICH IS TREATED AS THE LOGICAL END OF TAPE.
           *FS TAPES ARE DETECTED AND THE OUTPUT LISTING IS SIMILAR TO THAT
           PRODUCED BY THE *FS LIST COMMAND.  A "METRIC" PARAMETER HAS BEEN
           ADDED TO USE METRIC MEASUREMENT INSTEAD OF FEET. THE "ENGLISH"
           PARAMETER IS THE DEFAULT HOWEVER.  ANY INPUT LINE BEGINNING WITH
           A DOLLAR SIGN IS TREATED AS AN MTS COMMAND.
           COPIES *SENSEDSECT (3025).
00314/002  *LABELSNIFF                               OE  G          *LABELSNIFF                                                     
            D4T1    831  LABELSNIFF..OE.002                 1 SEQ    8056    6 PAGE UM   TIFFANY             JULY 27, 1977  02:37:15
                         *LABELSNIFF          
00315      *ANS                                      SA           # (OBSOLETE)                                                      
            D2T1    155                                                             UM                                              
00316       GENLIB                                   SA           # (OBSOLETED BY 389)                                              
            D3T2    236  GENLIB..SA.                        1 SEQ      80    6 PAGE UNE                      JULY 31, 1973  22:59.46
00318/001  *XPL                      SUBMONITOR      SA  G  XMON    S0296 S296 'JOH XPL' POSN=XMON@S                             12 
            D4T1    832  XPL.SUBMONITOR.SA.001              1 SEQ      80   24 PAGE UM   SHERRY              JULY 27, 1977  02:39:23
0          XPL COMPILER AND EXECUTION CONTROL (SEE 1968 FJCC PROC, PP 617-636).  ONE NEVER $RUNS AN
           XPL OBJECT DECK SINCE THE OBJECT CODE IS STORED IN A FORMAT UNIQUE TO XPL.  RATHER, ONE
           RUNS THE XPL SUBMONITOR, WHICH IN TURN LOADS THE XPL PROGRAM AND PROVIDES A RUN-TIME
           INTERFACE TO MTS.  SINCE THE COMPILER ITSELF IS ALSO AN XPL PROGRAM, IT MUST BE RUN IN THE
           SAME MANNER, I.E. IT MUST BE RUN UNDER CONTROL OF THE SUBMONITOR.  THE 2 FILES *XPL
           AND *XPLGO CONTAIN MTS OBJECT FOR A SET OF DEFAULT FILE NAMES FOR THE COMPILER
           AND COMPILED CODE EXECUTION RESPECTIVELY.  EACH ENDS WITH "$CONTINUE WITH *XMON" SO THAT
           BY $RUNNING *XPL OR *XPLGO, THE SUBMONITOR (*XMON), WITH APPROPRIATE DEFAULTS, IS INVOKED.
            
           MODIFIED UBC SOURCE FOR THE XPL SUBMONITOR (*XMON).
00318/002  *XPL                      SUBMONITOR      OC  G          S0296 S296 'JOH XPL' POSN=XMON@O                             14 
            D4T1    833  XPL.SUBMONITOR.OC.002              1 SEQ      80    2 PAGE UM   SHERRY              JULY 27, 1977  02:39:26
0          THIS FILE PLUS THE OBJECT FOR TRACE (318/4) CONSTITUTE *XMON.
           THE FOLLOWING PATCH SHOULD BE INSERTED INTO THIS OBJECT FILE:
            REP  0008C6  01,0700,0700       TRACE DIES IF LEFT IN
0          Referenced by comments of: 318/4 
00318/003  *XPL                      TRACE           SA  G  TRAC    S0296 S296 'JOH XPL' POSN=TRACE@S                            4  
            D4T1    834  XPL.TRACE.SA.003                   1 SEQ      80   33 PAGE UM   SHERRY              JULY 27, 1977  02:39:35
0          UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON) AND *SPL (336).
1                                                                                               THU SEP 12/96   23:39:34   Page  111
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00318/004  *XPL                      TRACE           OC  G          S0296 S296 'JOH XPL' POSN=TRACE@O                            6  
            D4T1    835  XPL.TRACE.OC.004                   1 SEQ      80    2 PAGE UM   SHERRY              JULY 27, 1977  02:39:38
0          THE SUBMONITOR OBJECT (318/2) PLUS THIS FILE CONSTITUTE *XMON.
           THE FOLLOWING 2 LOADER CARDS SHOULD ALSO BE ADDED AT THE END OF *XMON:
            LCS            LCSYMBOL
            LDT            XPLSM
0          Referenced by comments of: 318/2 
00318/005  *XPL                      *XMON           OE  G          *XMON                                                           
            D4T1    836  XPL.*XMON.OE.005                   1 SEQ    4384    2 PAGE UM   SHERRY              JULY 27, 1977  02:39:38
                         *XMON                
00318/006  *XPL                      DEFAULTS        SA  G  DFLT    S0296 S296 'JOH XPL' POSN=DFLT@S                             1  
            D4T1    837  XPL.DEFAULTS.SA.006                1 SEQ      80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:44
0          SOURCE FOR THE 2 SETS OF SUBMONITOR DEFAULTS, THE FIRST FOR THE EXECUTION OF THE COMPILER (*XPL)
           AND THE SECOND FOR THE EXECUTION OF COMPILED CODE (*XPLGO).
00318/007  *XPL                      *XPL            OC  G          *XPL                                                            
            D4T1    838  XPL.*XPL.OC.007                    1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:44
                         *XPL                 
0          OBJECT FOR THE FIRST DEFAULTS PROGRAM.  CONTAINS A "$CONTINUE WITH *XMON" LINE.
00318/008  *XPL                      *XPLGO          OC  G          *XPLGO                                                          
            D4T1    839  XPL.*XPLGO.OC.008                  1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:46
                         *XPLGO               
0          OBJECT FOR THE SECOND DEFAULTS PROGRAM.  CONTAINS A "$CONTINUE WITH *XMON" LINE.
00318/009  *XPL                      COMPILER        SX  G          *XCOM                                                           
            D4T1    840  XPL.COMPILER.SX.009                1 LINE     80   54 PAGE UM   SHERRY              JULY 27, 1977  02:39:48
                         *XCOM                
0          XPL SOURCE FOR THE XPL COMPILER (*XCOM).  THIS VERSION IS MODIFIED FROM AN EARLY STANFORD
           RELEASE; IT IS NOT THE SHARE RELEASE.  IT WAS USED QUITE HEAVILY AT UM AND IS RELATIVELY BUG-FREE.
           MOST XPL USERS NOW USE *EXPL (495) BECAUSE INDEPENDENTLY COMPILABLE PROCEDURES REDUCE
           THE COST OF COMPILER DEVELOPMENT.
           THE COMPILER SOURCE IS KEPT IN A PUBLIC FILE (*XCOM) SO THAT PARTS OF IT ARE AVAILABLE FOR
           EXTRACTION BY STUDENTS IN COMPILER WRITING COURSES.
00318/010  *XPL                      COMPILER        O   G          *XPLCOMPILER                                                    
            D4T1    841  XPL.COMPILER.O.010                 1 SEQ     240   29 PAGE UM   SHERRY              JULY 27, 1977  02:39:57
                         *XPLCOMPILER         
0          XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER).
00318/011  *XPL                      *XPLIBRARY      SX  G          *XPLIBRARY                                                      
            D4T1    842  XPL.*XPLIBRARY.SX.011              1 SEQ      80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:59
                         *XPLIBRARY           
0          SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL.
1                                                                                               THU SEP 12/96   23:39:34   Page  112
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00318/012  *XPL                      *SKELETON       SX  G          *SKELETON                                                       
            D4T1    843  XPL.*SKELETON.SX.012               1 LINE     80   10 PAGE UM   SHERRY              JULY 27, 1977  02:40:01
                         *SKELETON            
0          THIS IS THE MINIMAL FRAMEWORK FOR A TABLE-DRIVEN COMPILER.  USER IS EXPECTED TO REPLACE THE
           SYNTAX TABLES WITH APPROPRIATE TABLES PRODUCED BY *ANALYZER AND COMPLETE THE COMPILER BY
           WRITING THE CODE SYNTHESIZER SECTION.
0          Referenced by comments of: 495/9 
00318/013  *XPL                      ANALYZER        SX  G          S0296 S296 'JOH XPL' POSN=ANAL@S                             15 
            D4T1    844  XPL.*ANALYZER.SX.013               1 SEQ      80   33 PAGE UM   SHERRY              JULY 27, 1977  02:40:20
0          XPL PROGRAM TO ANALYZE A BNF DESCRIPTION OF A LANGUAGE AND PRODUCE TABLES FOR COMPILING IT.
0          Referenced by comments of: 495/8 
00318/014  *XPL                      *ANALYZER       O   G          *ANALYZER                                                       
            D4T1    845  XPL.*ANALYZER.O.014                1 SEQ     240   24 PAGE UM   SHERRY              JULY 27, 1977  02:40:21
                         *ANALYZER            
0          XPL FORMAT OBJECT FILE.
00318/015  *XPL                      XPLBNF          D   G          S0296 S296 'JOH XPL' POSN=XPLBNF                             10 
            D4T1    846  XPL.XPLBNF.D.015                   1 SEQ      80    3 PAGE UM   SHERRY              JULY 27, 1977  02:40:28
0          BNF DESCRIPTION OF XPL SUITABLE FOR INPUT TO *ANALYZER.
00318/016  *XPL                      MEMO 230        WF             S0563 D4T1 VLO FSNAME=XPL.MEMO_230.WF.016(1)                 847
            D4T1    847  XPL.MEMO_230.WF.016                1 LINE    127    4 PAGE UM   SHERRY              JAN. 25, 1977  18:03:50
0          THIS IS COMPUTING CENTER MEMO 230 -- "XPL USER'S GUIDE"
00319      *FLIKPLT                                  OC           # (OBSOLETE)                                                      
            D3T2    251  FLIKPLT..OC.                       1 LINE     80   15 PAGE UM                       JULY 31, 1973  23:03.29
00321      *PIB                                      OC           # (OBSOLETE)                                                      
            D3T2    252  PIB..OC.                           1 LINE     80  122 PAGE UM                       JULY 31, 1973  23:03.31
00322/001  *2260RTN                                  SA  G          S0563 D4T1 VLO FSNAME=2260RTN..SA.001(1)                     848
            D4T1    848  2260RTN..SA.001                    1 LINE     80   56 PAGE UM   MTA                 JULY 27, 1977  02:40:36
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 2260 DISPLAY.
           SUPPORT FOR THE @MAXLEN MODIFIER HAS BEEN ADDED, BUT NOT TESTED DUE TO LACK OF
           HARDWARE AT UM.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00322/002  *2260RTN                                  OC  G          *2260RTN                                                        
            D4T1    849  2260RTN..OC.002                    1 LINE     80    6 PAGE UM   MTA                 JULY 27, 1977  02:40:40
                         *2260RTN             
1                                                                                               THU SEP 12/96   23:39:34   Page  113
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00324/001   EDITOR - OLD                             SA  G        # (OBSOLETE)                                                      
            D3T2    255  EDITOR..SA.1                       1 LINE     80   97 PAGE UM                       FEB. 02, 1973  21:38.36
00324/002   EDITOR - OLD             MESSAGES        M            # (OBSOLETE)                                                      
            D3T2    258  EDITOR.MESSAGES.M.4                1 LINE     70    8 PAGE UM                       JULY 31, 1973  23:08.21
00324/003   EDITOR - OLD             *ED             SA  G        # (OBSOLETE)                                                      
            D3T2    259  EDITOR.*ED.SA.5                    1 LINE     80    3 PAGE UM                       JULY 31, 1973  23:08.24
00326/001   STAT MONTHLY SUMMARY     MAIN PGM        SP  G          S0027 DISTRB FSNAME=SYSSTAT                                     
            D4.2T1  167  STAT_MONTHLY_SUMMARY.MAIN.SP.001   1 LINE     99   17 PAGE UM   ENGLE               JAN. 10, 1979  16:58:17
0          READS STATISTICS (*STATISTICS) TAPES OR FILES AND PRINTS MANY PAGES OF INTERESTING (HOPEFULLY)
           INFORMATION ABOUT A MONTHS RUNNING OF THE SYSTEM.  IT ALSO READS CPU UTILIZATION AND HASP BATCH
           QUEUE STATISTICS FROM SSRTN (413/1) (NORMALLY IN SYS:SSRTNSUMM) AND PRINTS THAT INFORMATION. 
            
           THE FOLLOWING LOGICAL I/O UNITS ARE USED:
            
            0         INPUT OF SSRTN (413/1) SUMMARY DATA.
            SPRINT    OUTPUT. 
            
           THE FOLLOWING PL/I FILE NAMES ARE USED: 
            
            ERROR     LOG OF SKIPPED INPUT RECORDS, LIST OF WEEKDAY MINUTES DURING WHICH THE MOST
                      USERS WERE SIGNED ON, AND LIST OF WEEKEND MINUTES DURING WHICH THE MOST USERS
                      WERE SIGNED ON.  THE NUMBER OF MINUTES FOR EACH CATEGORY IS APPROXIMATELY 1%
                      OF THE TOTAL MINUTES FOR THE COMBINED CATEGORIES.
            SAVE      SAVE OR RESTORE INTERMEDIATE INFORMATION (SEE BELOW).
            SCARDS    USES GET LIST FOR 6 OR 7 ITEMS, FOLLOWED BY GET DATA FOR 2 VARIABLES:
            
                         1)   'MM'    MONTH TO ANALYZE, OR
                              '00'    LOOK AT ALL INPUT (REQUIRES 'FULL', Â'CPU', AND Â'MIXED')
            
                         2)   'YYYY'  YEAR
            
                         3)   'PART'  USE DATA FROM WHATEVER PART OF MONTH IS PRESENT, OR
                              'FULL'  EXPECT DATA FROM ENTIRE MONTH, OR
                              '9TO5'  FILTERS ALL DATA EXCEPT 9AM TO 5PM, OR
                              '5TOM'  FILTERS ALL DATA EXCEPT 5PM TO MIDNIGHT, OR
                              'COUR'  FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS BEGINNING
                                      WITH "1", "2", OR "3", OR
                              'UGRD'  FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS 1AWA, 1BF4,
                                      1AAA, 1AGA, 1APA, 1AVA, 1CXA, OR 1HGA.
            
                         4)   'REST'  RESTORE DATA (CHECKPOINT) FROM SAVE, OR
                              'SAVE'  SAVE (CHECKPOINT) DATA ON SAVE, OR
                              'USER'  SAVE NUM OF USERS VERSUS TIME DATA ONLY ON SAVE, OR
                              'CPU.'  SKIP EVERYTHING EXCEPT JOBS PROGRAM STATISTICS, OR
                              'NONE'  NONE OF ABOVE
            
                         5)   'CPU'   PROCESS JOBS STATISTICS DATA (SEE COMP 413/10), OR
                              'YES'   SAME AS 'CPU', OR
                              'NOT'   OMIT PROCESSING OF JOBS STATISTICS
            
1                                                                                               THU SEP 12/96   23:39:34   Page  114
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                        6)   'WHOLE' NO RATE CHANGE DURING PERIOD OF COMPUTATION, OR
                              'MIXED' RATE CHANGE OCCURRED
            
                         7)   'DD'    FIRST DAY (OF MONTH) FOR NEW RATES.  GIVE ONLY IF 'MIXED'
                                      GIVEN.
            
                         8)   TESTCOUNT=N    NUMBER OF INPUT RECORDS TO ECHO ON SPRINT (DEBUG)
            
                         9)   DEBUG='1'B     PRODUCES GENERAL DEBUG OUTPUT.  PRINTS FOR ONLY N
                                             RECORDS IF TESTCOUNT GIVEN.
            
                      THIS IS FOLLOWED BY ONE OR MORE LINES EACH CONTAINING A MOUNT REQUEST OR
                      FILE NAME FOR STATISTICS RECORDS.  THE LIST OF INPUT FILES IS TERMINATED
                      BY "DONE" OR AN END-OF-FILE.
            
                      AT UM, THE NORMAL INPUT USED IS:
            
                           'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE' ;
                           STATM 9TP *T* VOL=STATM 'MMM 19YY MONTHLY STATISTICS'
                           STAT 9TP *T* VOL=STAT 'MMM+1 1, 19YY, 1 A.M. DAILY STATISTICS'
                           BILL 9TP *T* VOL=STAT 'MMM 19YY DAILY MTS STATISTICS FILE CHARGES'
                           DONE
00326/002   STAT MONTHLY SUMMARY     PPAGES SUBR     SP  G          S0027 DISTRB FSNAME=SYSSTAT2000                                 
            D4.2T1  168  STAT_MONTHLY_SUMMARY.PPAG.SP.002   1 LINE     99    7 PAGE UM   ENGLE               JAN. 10, 1979  16:59:12
0          SUBROUTINE CALLED BY MAIN PROGRAM.
00326/003   STAT MONTHLY SUMMARY     CPUSE SUBR      SG  G          S0027 DISTRB FSNAME=CPUSE                                       
            D4.1T1  104  STAT_MONTHLY_SUMMARY.CPUS.SG.003   1 LINE    179    4 PAGE UM   ENGLE               DEC. 13, 1977  16:12:06
0          SUBROUTINE WHICH READS SSRTN SUMMARY DATA (SEE COMP 413/1) AND PRINTS THE RESULTS.  CALLED ONLY IF 'CPU'
           IS SPECIFIED FOR THE FIFTH PARAMETER OR 'CPU.' IS SPECIFIED FOR THE FOURTH PARAMETER.
0          Referenced by comments of: 413/1 
00326/004   STAT MONTHLY SUMMARY     SETRATE         SP  G  SRAT    S0027 DISTRB FSNAME=SYSSTAT4000                                 
            D4.2T1  169  STAT_MONTHLY_SUMMARY.SETR.SP.004   1 LINE     80    6 PAGE UM   ENGLE               JAN. 10, 1979  17:03:02
0          SUBROUTINES WHICH FILL IN A RATE STRUCTURE BY CALLING GETRATES AND DECOMPOSE A RATE
           NUMBER INTO SUBSCRIPTS.  ASSUMPTION OF HOW RATE NUMBER IS COMPUTED IS BUILT-IN,
           SEE LINE 68 FF.  326/1 CALLS SETRATE TO DYNAMICALLY CONSTRUCT THE CURRENT AND OLD RATES.
           EXTERNAL REFERENCE TO GETRATE ON ESD CARD IN OBJECT DECK MUST BE CHANGED TO GETRATES.
           RUN WITH PROT=OFF.
00326/005   STAT MONTHLY SUMMARY     OBJECT          OE  G          S0027 DISTRB FSNAME=SYST                                        
            D4.2T1  170  STAT_MONTHLY_SUMMARY.OBJE.OE.005   1 LINE  32767   80 PAGE UM   ENGLE               JAN. 10, 1979  17:03:32
0          OBJECT MODULES FOR 326/1, 326/2, 326/3, AND 326/4.  CONTAINS A SYSDEFS
           RIP CARD AND A $CONTINUE WITH *PL1LIB CARD.  RUN WITH PROT=OFF.  TO RUN,
           ISSUE SOMETHING LIKE:
            
           $RUN SYST 0=SYS:SSRTNSUMM SPRINT=OUT PAR=ERROR=-ERROR
1                                                                                               THU SEP 12/96   23:39:34   Page  115
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00326/006   STAT MONTHLY SUMMARY     BATCHID         D              S0027 DISTRB FSNAME=BATCHID                                     
            D4T1    855  STAT_MONTHLY_SUMMARY.BATC.D.006    1 LINE      4    1 PAGE UM   ENGLE               JAN. 21, 1977  14:35:03
0          100-LINE DATA FILE REFERENCED TO DEFINE THE MAPPING BETWEEN THE FIRST TWO DIGITS
           OF THE S-8 NUMBER AND THE REMOTE BATCH STATION ID'S.
00328       ALLLINES                                 SA           # (OBSOLETE)                                                      
            D2T1    264                                                             UM                                              
00330/001   ABKGET                                   SP  O          W041:ABKGET.S4                                                  
            D4T1    856  ABKGET..SP.001                     1 LINE     80    4 PAGE UM   DWB                 JULY 27, 1977  02:41:12
0          PROGRAM TO SORT AND TABULATE TERMINAL ANSWERBACK STATISTICS FROM *STATISTICS DATA.
           WILL READ INPUT FROM EITHER AN INDIVIDUAL OR MONTHLY STATISTICS TAPE.
           FIRST LINE OF INPUT MUST BE MONTH AND YEAR, SECOND AND SUCCEEDING LINES
           MUST BE FILE OR TAPE NAMES, OR MOUNT REQUESTS, TERMINATED BY AN END-OF-FILE
           OR "DONE" -- FOR EXAMPLE
            
                       '01' '1977'                (LINE MUST HAVE TRAILING BLANK)
                       STATM 9TP *T* VOL=STATM 'JAN 1977'
                       STAT 9TP *T* VOL=STAT '1 FEB 1977 01:00'
                       DONE
00330/002   ABKGET                                   OC  O          W041:ABKGET.O4                                                  
            D4T1    857  ABKGET..OC.002                     1 LINE     80    9 PAGE UM   DWB                 JULY 27, 1977  02:41:15
00334/001  *SNOBOL4B                 MAIN            SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.S4.SA.1(1)                      267
            D4T1    858  SNOBOL4B.MAIN.SA.001               1 SEQ      80  107 PAGE UM   SWARTZ              JULY 31, 1973  23:13.39
0          BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.0).
           THIS FILE IS ASSUMED TO BE FILE 1 ON THE INPUT TAPE FOR THE UPDATE.
           COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13).
0          Referenced by comments of: 334/8 
00334/002  *SNOBOL4B                 SUBR            SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.SUBR.SA.2(1)                    268
            D4T1    859  SNOBOL4B.SUBR.SA.002               1 SEQ      80   49 PAGE UM   SWARTZ              JULY 31, 1973  23:14.01
0          BELL LABS SOURCE FOR SUBROUTINES.  THIS FILE IS ASSUMED TO BE FILE 6 ON THE
           INPUT TAPE FOR THE UPDATE.
00334/003  *SNOBOL4B                 CLEANIO         SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.CLEANIO.SA.5(1)                 271
            D4T1    860  SNOBOL4B.CLEANIO.SA.003            1 SEQ      80    8 PAGE UM   SWARTZ              JULY 31, 1973  23:14.24
0          BELL LABS SOURCE FOR CLEANIO.  THIS FILE IS ASSUMED TO BE FILE 5 ON THE INPUT
           TAPE FOR THE UPDATE.
00334/004  *SNOBOL4B                 BASIC MACROS    SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.BASIC_MACROS.SA.3(1)            269
            D4T1    861  SNOBOL4B.BASIC_MACROS.SA.004       1 SEQ      80   41 PAGE UM   SWARTZ              JULY 31, 1973  23:14.15
0          BELL LABS SOURCE FOR BASIC MACROS.  THIS FILE IS ASSUMED TO BE FILE 4 ON THE
           INPUT TAPE FOR THE UPDATE.
1                                                                                               THU SEP 12/96   23:39:34   Page  116
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00334/005  *SNOBOL4B                 NEW MACROS      SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.NEW_MACROS.SA.4(1)              270
            D4T1    862  SNOBOL4B.NEW_MACROS.SA.005         1 SEQ      80    5 PAGE UM   SWARTZ              JULY 31, 1973  23:14.21
0          BELL LABS SOURCE FOR NEW MACROS.  THIS FILE IS ASSUMED TO BE FILE 3 ON THE
           INPUT TAPE FOR THE UPDATE.
00334/006  *SNOBOL4B                 GENERATE        C              S0540 'SNOBOL4B FS' FSNAME=S4B.GEN                              
            D4T1    863  SNOBOL4B.GENERATE.C.006            1 LINE    128    1 PAGE UM   SWARTZ              MAY  08, 1975  14:44:26
0          MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4B.
00334/007  *SNOBOL4B                 LINKEDIT        C              S0540 'SNOBOL4B FS' FSNAME=S4B.LINK                             
            D4T1    864  SNOBOL4B.LINKEDIT.C.007            1 LINE     56    1 PAGE UM   SWARTZ              MAY  08, 1975  14:44:28
0          MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4B.
00334/008  *SNOBOL4B                 UPDATE          UU  G          S0540 'SNOBOL4B FS' FSNAME=S4B.MTS.U                            
            D4T1    865  SNOBOL4B.UPDATE.UU.008             1 LINE     80   22 PAGE UM   SWARTZ              MAY  08, 1975  14:44:18
0          *UPDATE DECK TO MODIFIY BELL LABS SOURCE (334/1) TO BRING IT UP TO VERSION 3.10
           SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.10) AND TO ADD THE CHANGES NECESSARY TO
           RUN IT IN MTS.
00334/009  *SNOBOL4B                 OBJECT          OE  G          *SNOBOL4B                                                       
            D4T1    866  SNOBOL4B.OBJECT.OE.009             1 SEQ   32767   41 PAGE UM   SWARTZ              JULY 27, 1977  02:45:10
                         *SNOBOL4B            
0          OBJECT FROM ASSEMBLY OF MAIN, SUBR, AND CLEANIO PLUS FTN.O WHICH HAS BEEN COMBINED
           AND PURGED BY *LINKEDIT.
00334/010  *SNOBOL4B                 FTN.O           OE  G          S0540 'SNOBOL4B FS' FSNAME=S4B.FTN.O                            
            D4T1    867  SNOBOL4B.FTN.O.OE.010              1 LINE    255    5 PAGE UM   SWARTZ              MAY  08, 1975  14:44:42
0          FORTRAN I/O ROUTINES FOR USED BY SNOBOL4B.
00334/011  *SNOBOL4B                 MACLEAN                      # (SEE COMP 182)                                                  
                                                                                    UM   SWARTZ                                     
00334/012  *SNOBOL4B                 TEST PGMS       SS  G          S0540 'SNOBOL4B FS' FSNAME=S4B.TEST                             
            D4T1    868  SNOBOL4B.TEST_PGMS.SS.012          1 LINE     74    5 PAGE UM   SWARTZ              MAY  08, 1975  14:44:44
0          PROGRAMS FOR TESTING SNOBOL4B.
00335/001  *DITTO                                    SA  G          S0791 FMTJNK 'FORMAT' FSNAME=DITTO                              
            D4T1    869  DITTO..SA.001                      1 LINE     80   10 PAGE UM   LIFT                JULY 27, 1977  02:45:21
0          PROGRAM TO PRODUCE DITTO (OR OTHER DUPLICATING PROCESS) MASTERS ON A 2741 OR
           1050 FROM PRINTED OUTPUT (SUCH AS FROM *FORMAT) WHICH MAY INCLUDE OVERPRINTING.
00335/002  *DITTO                                    OE  G          *DITTO                                                          
            D4T1    870  DITTO..OE.002                      1 SEQ    2070    2 PAGE UM   LIFT                JULY 27, 1977  02:45:21
                         *DITTO               
1                                                                                               THU SEP 12/96   23:39:34   Page  117
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00336/001  *SPL                      SUBMONITOR      SA           # (NOT DISTRIBUTED)                                               
            D3T2    277  SPL.SUBMONITOR.SA.1                1 SEQ      80   21 PAGE UM                       JULY 31, 1973  23:16.06
0          Referenced by comments of: 318/3 
00336/002  *SPL                      COMPILER        SX           # (NOT DISTRIBUTED)                                               
            D3T2    279  SPL.COMPILER.SX.4                  1 SEQ      80  160 PAGE UM                       JULY 31, 1973  23:16.33
00337/001   PRINTTRACE                               SA  G          MTA:PRINTTRACE(1,999)                                           
            D4.2T1  171  PRINTTRACE..SA.001                 1 LINE     79    3 PAGE UM   MTA                 MAR. 26, 1979  02:39:38
                         MTA.:PRINTTRACE      
0          SUBROUTINE TO PRINT TRACE TABLE ENTRIES FROM DUMP TAPE OR STAT JOB TAPE. TO GET TRACE TABLE ON STAT JOB
           TAPE TYPE "TRCTP" ON OPERATORS CONSOLE.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 400/1, 400/13, 1028/3 
00337/002   PRINTTRACE                               OC  G          MTA:PRINTTRACE(1000,1999)                                       
            D4.2T1  172  PRINTTRACE..OC.002                 1 LINE     80    4 PAGE UM   MTA                 MAR. 26, 1979  02:39:39
00338/001   RIPPLE                   PN/QN           SA  O          MTA:RIPPLE(1,999)                                               
            D4T1    873  RIPPLE.PN/QN.SA.001                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:27
                         MTA.:RIPPLE          
0          PROGRAM TO RIPPLE PRINT ON A PN OR QN PRINTER.  USEFUL FOR CLEANING A TRAIN OR CHECKING OUT A PRINTER.
           OLTEP (458) DOES A BETTER JOB.
00338/002   RIPPLE                   PN/QN           OC  O          MTA:RIPPLE(1000)                                                
            D4T1    874  RIPPLE.PN/QN.OC.002                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:29
00338/003   RIPPLE                   *RIP            C              *RIP                                                            
            D4T1    875  RIPPLE.*RIP.C.003                  1 LINE     36    1 PAGE UM   MTA                 JULY 27, 1977  02:45:32
                         *RIP                 
0          COMMAND FILE TO RUN MTA:RIPPLE(1000).  INVOKED BY ENTERING "MTS *RIP , PTRX" ON THE OPERATOR'S CONSOLE,
           WHERE PTRX IS THE PRINTER TO BE RIPPLED.
0          Referenced by comments of: 338/6 
00338/004   RIPPLE                   TN              SA  O          MTA:TNRIP(1,999)                                                
            D4T1    876  RIPPLE.TN.SA.004                   1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:34
                         MTA.:TNRIP           
0          SAME AS 338/1 EXCEPT FOR TN PRINTERS.
00338/005   RIPPLE                   TN              OC  O          MTA:TNRIP(1000)                                                 
            D4T1    877  RIPPLE.TN.OC.005                   1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:36
00338/006   RIPPLE                   *TNR            C              *TNR                                                            
            D4T1    878  RIPPLE.*TNR.C.006                  1 LINE     18    1 PAGE UM   MTA                 JULY 27, 1977  02:45:38
                         *TNR                 
0          SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000).
1                                                                                               THU SEP 12/96   23:39:34   Page  118
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00339       WRITE80                                  S            # (OBSOLETE)                                                      
            D2T1    165                                                             UM                                              
00340/001   READRESTP                                SA  O          S0938 FSAVE2 VLO FSNAME=READRESTP(1)                            
            D4T1    879  READRESTP..SA.001                  1 LINE     80   11 PAGE UM   MTA                 JAN. 07, 1977  01:57:29
0          PROGRAM WHICH WILL READ A DUMP/RESTORE TAPE AND EXTRACT THINGS FROM AN OS OR
           VS DATA SET.  IT PRODUCES OUTPUT THAT CAN BE USED AS INPUT TO *UNLINKER (562).
           IT WILL PROCESS ANY OS DATA SET WHICH HAS NO MORE THAN 3 EXTENTS AND NO NOTE
           LISTS.  IT PROMPTS FOR DATA SET NAMES USING GUSER AND SERCOM, READS FROM UNIT
           0, AND WRITES ON UNIT 1.  OBJECT AT LINE 1000.
00340/002   READRESTP                SUBROUTINE      SA  O        # (PART OF 340/1)                                                 
                                                                                    UM   MTA                                        
0          SUBROUTINE CALLED BY 340/1.
00340/003   READRESTP                                OC  O        # (PART OF 340/1)                                                 
                                                                                    UM   MTA                                        
00341/001   RDRSTP                   UNLINK          SA           # (OBSOLETED BY *UNLINKER, COMP 562)                              
            D2T1    168                                                             UM                                              
00341/002   RDRSTP                   BLKRTN          SA           # (OBSOLETED BY *UNLINKER)                                        
            D2T1    169                                                             UM                                              
00342       LIBPRINT                                 S            # (OBSOLETE)                                                      
            D2T1    171                                                             UM                                              
00343       MTS.CONTAB                               SA           # (OBSOLETED BY 344)                                              
            D3.2T1  180  MTS.CONTAB..SA.                    1 LINE     80    4 PAGE UM                       MAR. 21, 1975  01:24:57
00344/001   MTS.MACROS               MASTER SOURCE   SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=MTS.MACROS                  
            D4.1T1  106  MTS.MACROS..SM.                    1 LINE     80   75 PAGE UM   MTS       HELFFRICH MAY  13, 1978  17:12:45
0          D4.1 MASTER SOURCE FOR THE MTS MACRO LIBRARY WHICH IS USED TO ASSEMBLE MTS (042)
           AND THE "MTS SUBROUTINES" (AS LISTED UNDER THE COMMENTS FOR 042/2) IN ADDITION
           TO MANY OTHER PROGRAMS.
00344/002B  MTS.MACROS               UPDATE          UC  G          MTS:MACROSUPD                                                   
            RD16T1   36  MTS.MACROS.UPDATE.UC.002           1 LINE     72   11 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:27:46
                         MTS.:MACROSUPD       
0          MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE.  FILE
           CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE
           AS BASE.  THIS LINE SHOULD BE REMOVED WHEN USING THE D4.1 SOURCE AS BASE.
           THE UPDATED SOURCE, WHEN RUN THROUGH *MACUTIL, WILL PRODUCE THE
           CURRENT MACRO LIBRARY (344/3).
00344/003B  MTS.MACROS               MACRO LIBRARY   SM  G          COPY:MTS.MACROS                                                 
            RD16T1   37  MTS.MACROS.MACRO_LIBRARY.SM.003    1 LINE     72   45 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:27:48
                         COPY:MTS.MACROS      
0          THIS IS "COPY:MTS.MACROS" WHICH IS PRODUCED BY *MACUTIL, USING AS INPUT THE
1                                                                                               THU SEP 12/96   23:39:34   Page  119
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          OUTPUT FROM THE *CDUPDATE RUN OF 344/2 AGAINST 344/1.
0          Referenced by comments of: 1/5, 42/1, 101/1, 116/1, 135/1, 198/1, 322/1, 344/2, 354/1, 354/5, 387/1, 387/2, 387/3,
                 387/4, 387/5, 387/7, 387/8, 388/1, 388/2, 400/3, 413/5, 447/1, 464/1, 482/51, 500/34, 509/1, 513/1, 531/1,
                 531/6, 531/13, 535/1, 535/3, 535/9, 539/1, 553/1, 553/2, 553/5, 567/1, 570/1, 578/1, 585/1, 600/1, 600/4,
                 600/6, 600/8, 600/10, 615/13, 629/1, 631/1, 635/1, 636/1, 637/1, 638/1, 639/1, 648/1, 648/7, 648/9, 648/14,
                 648/17, 651/10, 725/1, 732/1, 761/1, 761/3, 1067/5, 3024/1, 4000/1 
00345       MTS.EQU                                  SA           # (OBSOLETED BY 344)                                              
            D3.2T1  182  MTS.EQU..SA.                       1 LINE     80    4 PAGE UM                       MAR. 21, 1975  01:25:01
00346       MTS.DSECT                                SA           # (OBSOLETED BY 344)                                              
            D3.2T1  183  MTS.DSECT..SA.                     1 LINE     80   20 PAGE UM                       MAR. 21, 1975  01:25:03
00347       MTS.EQU2                                 SA           # (OBSOLETED BY 344)                                              
            D3.2T1  184  MTS.EQU2..SA.                      1 LINE     81    4 PAGE UM                       MAR. 21, 1975  01:25:08
00348       MTS.RHTABLE                              SA           # (OBSOLETED BY 344)                                              
            D3.2T1  185  MTS.RHTABLE..SA.                   1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:25:10
00350       BLOCKLETTER                              SA           # (OBSOLETE)                                                      
            D2T1    252                                                             UM                                              
00353/001   BABYSIT                  *BBS            C              *BBS                                                            
            D4T1    881  BABYSIT.*BBS.C.001                 1 LINE     67    1 PAGE UM   WSG                 JULY 27, 1977  02:49:58
                         *BBS                 
0          COMMAND FILE INVOKED BY ENTERING "MTS *BBS" FROM OPERATOR'S CONSOLE WHICH SIGNS ON
           UNDER USER ID "SYS." AND RUNS WSG:BBSIT(1000) WITH I/O ON THE OPERATOR'S CONSOLE.
00353/002   BABYSIT                                  SA  O  BBST    WSG:BBSIT(1,999)                                                
            D4T1    882  BABYSIT..SA.002                    1 LINE     80    4 PAGE UM   WSG                 JULY 27, 1977  02:50:00
                         WSG.:BBSIT           
0          PROGRAM TO WATCH FOR SPECIFIED USERS TO SIGNON OR SIGNOFF. USEFUL FOR CATCHING A PIRATE.
           RUN WITH PROT=OFF.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
00353/003   BABYSIT                                  OC  O          WSG:BBSIT(1000)                                                 
            D4T1    883  BABYSIT..OC.003                    1 LINE     80    1 PAGE UM   WSG                 JULY 27, 1977  02:50:02
00354/001   LLXU                     D4 MASTER       SA  G  LLXU    S0917 MTSSD4 'MASTER D4.0' POSN=LLXU                            
            D4T1    884  LLXU.D4_MASTER.SA.001              1 SEQ      80   51 PAGE UM   MTS       SHERRY    JULY 27, 1977  02:50:07
0          LOAD/LINK/XCTL/UNLOAD SUBROUTINES, THE INTERFACE BETWEEN MTS AND UMLOAD.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1).
00354/002B  LLXU                     UPDATE          UC  G          MTS:LLXUUPD                                                     
            RD16T1   38  LLXU.UPDATE.UC.002                 1 LINE     82   10 PAGE UM   MTS       SHERRY    JULY 12, 1979  22:27:53
                         MTS.:LLXUUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=LLXU.
1                                                                                               THU SEP 12/96   23:39:34   Page  120
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00354/003B  LLXU                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       SHERRY                           
00354/004B  LLXU                                     L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=LLXU.LIST             9   
            RD16T1   39  LLXU..L.004                        1 SEQ     133  144 PAGE UM   MTS       SHERRY    JULY 12, 1979  22:27:57
00354/005   LLXU                     LLXUTEST        SA  G  LLXT    W009:LLXUTEST.S                                                 
            D4T1    888  LLXU.LLXUTEST.SA.007               1 LINE     80   77 PAGE UM   SHERRY              JULY 27, 1977  02:54:50
0          PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD.  ASSEMBLE USING *SYSMAC AND
           COPY:MTS.MACROS (344/3).  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
           CONTAINS REFERENCE TO W009:LLXUTEST.XTL (354/9).  DOCUMENTATION ON THE USE OF
           THIS PROGRAM IS CONTAINED IN THE WRITEUP (354/11).
0          Referenced by comments of: 354/7, 354/9, 354/11 
00354/006   LLXU                     LLXUTEST        OC  G          W009:LLXUTEST.O                                                 
            D4T1    889  LLXU.LLXUTEST.OC.008               1 LINE     80   21 PAGE UM   SHERRY              JULY 27, 1977  02:55:01
00354/007   LLXU                     FAKEGATE        SA  G          W009:FAKEGATE.S                                                 
            D4T1    890  LLXU.FAKEGATE.SA.009               1 LINE     67    1 PAGE UM   SHERRY              JULY 27, 1977  02:55:04
0          DUMMY VERSIONS OF ROUTINES IN GATEKEEP WHICH LLXU CALLS -- REQUIRED FOR
           LLXUTEST (354/5).
00354/008   LLXU                     FAKEGATE        OC  G          W009:FAKEGATE.O                                                 
            D4T1    891  LLXU.FAKEGATE.OC.010               1 LINE    176    1 PAGE UM   SHERRY              JULY 27, 1977  02:55:06
00354/009   LLXU                     TOXCTL          SA  G  TXTL    W009:LLXUTEST.XTL(1000)                                         
            D4T1    892  LLXU.TOXCTL.SA.011                 1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  02:55:08
0          INTERFACE TO XCTL WHICH PERMITS XCTL TO BE TESTED BY LLXUTEST (354/5) WITHOUT
           UNLOADING THE TEST PROGRAM.
0          Referenced by comments of: 354/5 
00354/010   LLXU                     TOXCTL          OC  G          W009:LLXUTEST.XTL(1,999)                                        
            D4T1    893  LLXU.TOXCTL.OC.012                 1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  02:55:10
00354/011   LLXU                     TEST WRITEUP    WF             W009:LLXUTEST.W                                                 
            D4T1    894  LLXU.TEST_WRITEUP.WF.013           1 LINE    119   14 PAGE UM   SHERRY              JULY 27, 1977  02:55:12
0          WRITEUP DESCRIBING LLXUTEST (354/5).
0          Referenced by comments of: 354/5 
00355/001   STATSCN                                  SA  G  STSC    WSG:STATSCN(1,999)                                              
            D4T1    895  STATSCN..SA.001                    1 LINE     80    7 PAGE UM   WSG                 JULY 27, 1977  02:55:19
                         WSG.:STATSCN         
0          PROGRAM TO READ THROUGH *STATISTICS DATA (FROM FILE OR TAPE) LOOKING FOR SPECIFIED USERID-DATE
           COMBINATIONS.  RECORDS FOR ANY OF THE SPECIFIED USERS ON THE SPECIFIED DATES ARE WRITTEN ON SPUNCH.
           FOR EXAMPLE:
                         $RUN STATSCN(1000) SPUNCH=-F
1                                                                                               THU SEP 12/96   23:39:34   Page  121
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                        WSG. 05-08-73
                         STRT 04-XX-73
                         DONE
                         *TAPE*
                         *STATISTICS
                         DONE
            
           WILL SCAN THROUGH THE TAPE *TAPE* AND THE FILE *STATISTICS LOOKING FOR ALL STATISTICS RECORDS FOR USER
           "WSG." ON 8 MAY 1973 AND USER "STRT" ON ANY DAY IN APRIL 1973 (NOTE THAT XX'S MAY BE USED IN ANY FIELD(S)
           OF THE DATE OR "XXXX" GIVEN TO ACCEPT ANY USER ID).  THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE).
           THE LISTSTAT PROGRAM (071) CAN THEN BE USED TO PRINT THE STATISTICS RECORDS.  COPIES COPY:STATDSECT (620).
00355/002   STATSCN                                  OC  G          WSG:STATSCN(1000)                                               
            D4T1    896  STATSCN..OC.002                    1 LINE     80    2 PAGE UM   WSG                 JULY 27, 1977  02:55:21
00357/001   RCALL/ADROF SUBRS                        SA  G  RCAL    S0027 DISTRB FSNAME=RCALL                                       
            D4.1T1  110  RCALL/ADROF_SUBRS..SA.001          1 SEQ      80    2 PAGE UM   ENGLE               MAY  05, 1978  13:26:44
0          RCALL ALLOWS FORTRAN PROGRAMS TO CALL SUBROUTINES WITH R TYPE CALLING SEQUENCES, E.G. GETFD.
           ADROF ALLOWS FORTRAN PROGRAMS TO GET THE ADDRESS OF A VARIABLE, E.G. ADROF('ABC').
           UNCHANGED FROM DIST 2.0.
00357/002   RCALL/ADROF SUBRS                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00358/001  *TAPECOPY                                 SA  G  TPCP    WSG:TAPECOPY(1,999)                                             
            D4.1T1  111  TAPECOPY..SA.001                   1 LINE     80   17 PAGE UM   WSG                 MAY  13, 1978  17:13:14
                         WSG.:TAPECOPY        
0          MULTIPLE FILE TAPE COPY PROGRAM.  COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK.
00358/002  *TAPECOPY                                 OC  G          *TAPECOPY                                                       
            D4.1T1  112  TAPECOPY..OC.002                   1 LINE     80    3 PAGE UM   WSG                 MAY  13, 1978  17:13:17
                         *TAPECOPY            
00360/001   TIME SUBR                                SA  G  TIME    W013:TIME                                                       
            D4T1    900  TIME_SUBR..SA.001                  1 LINE     80   17 PAGE UM   ENGLE               AUG. 14, 1977  19:27:52
0          SUBROUTINE TO DO THINGS WITH THE TIME (DATE/TIME, CPU, AND ELAPSED).
           COPIES GRDEF (104/68) AND *CNFGINFODSECT (654).
0          Referenced by comments of: 534/8, 716/6 
00360/002   TIME SUBR                                OC  G          SEG2:TIME                                                       
            D4T1    901  TIME_SUBR..OC.002                  1 LINE     80    2 PAGE UM   ENGLE               AUG. 14, 1977  19:27:55
                         SEG2:TIME            
0          LOADED INTO SHARED VM BY PISTLE.
00387/001B  HASP                     MAIN            SA  G  HSP     S0996 HASP 'MODULAR HASP' FSNAME=HASP.MAIN                      
            RD16T1   40  HASP.MAIN.SA.001                   1 LINE     80  212 PAGE UM   HANSEN              MAY  22, 1979  15:32:28
0          SOURCE FOR MAIN ASSEMBLY OF MTS HASP, WHICH IS DERIVED FROM IBM HASP II VERSION 2.3.
           THIS VERSION USES THE SLT (SEARCH LIST) INSTRUCTION, OPTIONALLY (&NOSLT), TO SEARCH
1                                                                                               THU SEP 12/96   23:39:34   Page  122
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          PCE'S, DCT'S, AND MESSAGE BLOCKS.  COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA
           (413/9), AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
0          Referenced by comments of: 243/1, 570/3 
00387/002B  HASP                     EXEC            SA  G  EXEC    S0996 HASP 'MODULAR HASP' FSNAME=HASP.EXEC                      
            RD16T1   41  HASP.EXEC.SA.002                   1 LINE     80   55 PAGE UM   HANSEN              MAY  22, 1979  15:34:51
0          COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9),  AND COPY:LLMPSEQU (087). 
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6).
00387/003B  HASP                     RDR             SA  G  RDR     S0996 HASP 'MODULAR HASP' FSNAME=HASP.RDR                       
            RD16T1   42  HASP.RDR.SA.003                    1 LINE     80   75 PAGE UM   HANSEN              MAY  22, 1979  15:33:43
0          COPIES COPY:GLOBALSETS (1026/2).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
00387/004B  HASP                     PPR             SA  G  PPR     S0996 HASP 'MODULAR HASP' FSNAME=HASP.PPR                       
            RD16T1   43  HASP.PPR.SA.004                    1 LINE     80   26 PAGE UM   HANSEN              MAY  22, 1979  15:35:03
0          COPIES COPY:GLOBALSETS (1026/2).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
00387/005B  HASP                     DATA            SA  G  DATA    S0996 HASP 'MODULAR HASP' FSNAME=HASP.DATA                      
            RD16T1   44  HASP.DATA.SA.005                   1 LINE     80   10 PAGE UM   HANSEN              MAY  22, 1979  15:35:11
0          COPIES COPY:GLOBALSETS (1026/2).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
00387/006B  HASP                     MACROS          SM  G  MACS    S0996 HASP 'MODULAR HASP' FSNAME=HASP.MACLIB                    
            RD16T1   45  HASP.MACROS.SM.006                 1 LINE     80  130 PAGE UM   HANSEN              MAY  22, 1979  15:31:50
0          HASP MACRO LIBRARY.
0          Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 387/27, 387/30, 387/32, 387/34, 387/36 
00387/007B  HASP                     OPER            SA  G  OPER    S0996 HASP 'MODULAR HASP' FSNAME=HASP.OPER                      
            RD16T1   46  HASP.OPER.SA.007                   1 LINE     80   96 PAGE UM   HANSEN              MAY  22, 1979  15:32:58
0          COPIES COPY:GLOBALSETS (1026/2).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
00387/008B  HASP                     MXMTR           SA  G  MXMT    S0996 HASP 'MODULAR HASP' FSNAME=HASP.MXMTR                     
            RD16T1   47  HASP.MXMTR.SA.008                  1 LINE     80   17 PAGE UM   HANSEN              MAY  22, 1979  15:35:08
0          MERIT BATCH TRANSMITTER PROCESSOR.  ASSEMBLE USING COPY:MTS.MACROS (344/3)
           AND HASP.MACROS (387/6).
00387/009   HASP                     SEG2:HASP       OC  G          S0996 HASP 'MODULAR HASP' FSNAME=HASP.D.SEG2                    
            D4.2T1  181  HASP.SEG2:HASP.OC.009              1 LINE     80   39 PAGE UM   HANSEN              FEB. 16, 1979  10:37:36
                         SEG2:HASP            
0          THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL.  THIS FILE ALSO CONTAINS THE
1                                                                                               THU SEP 12/96   23:39:34   Page  123
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          HASPLING (388) OBJECT. IF MERIT SUPPORT IS INCLUDED, THE MERIT ASCII/EBCDIC
           TRANSLATION TABLE (570/3) OBJECT MUST BE ADDED TO THIS FILE, A "COM MASCEBC
           EBCMASC" CARD MUST BE PLACED AT THE BEGINNING OF THIS FILE, AND THE 
           SEG2:S2FILES (559/4) ENTRIES FOR HASP MUST BE CHANGED TO USE THE IPLCS 
           OPTION (INSTEAD OF THE IPL OPTION).
00387/010   HASP                     LISTING         L              S1019 HASPLS 'HASP LISTING' POSN=HASP.LIST                      
            D4.2T1  182  HASP.LISTING.L.010                 1 SEQ     132 1067 PAGE UM   HANSEN              MAR. 26, 1979  02:44:08
00387/011   HASP                     HRTP1130        SA  G  1130    W092:HRTP1130.U                                                 
            D4T1    916  HASP.HRTP1130.SA.015               1 LINE     80  176 PAGE UM   HANSEN              JULY 27, 1977  03:03:38
0          REMOTE TERMINAL PROGRAM FOR 1130.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/012   HASP                     HRTPLOAD        SA  G  LOAD    W092:HRTPLOAD.U                                                 
            D4T1    917  HASP.HRTPLOAD.SA.016               1 LINE     80   38 PAGE UM   HANSEN              JULY 27, 1977  03:03:49
0          LOADER FOR REMOTE 1130 PROGRAM.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/013   HASP                     HRTPB360        SA  G  B360    W092:HRTP360.ASM                                                
            D4T1    918  HASP.HRTPB360.SA.017               1 LINE     80  104 PAGE UM   HANSEN              JULY 27, 1977  03:03:52
0          REMOTE PROGRAM FOR 360'S (BOTH MODEL 20 AND OTHER).  THIS IS THE OS VERSION WITH BUGS FIXED.
           NOTE:  THIS REMOTE PROGRAM IS FROM HASP II VERSION 3.1, ALTHOUGH IT WORKS OK WITH MTS HASP (WHICH
                  WAS DERIVED PRINCIPALLY FROM HASP II VERSION 2.3). INCLUDES TN PRINTER SUPPORT.
00387/014   HASP                     HRTPSYS3        SA  G  SYS3    S0721 'D3T2' FSNAME=HASP.HRTPSYS3.SA.13(1)                   321
            D4T1    919  HASP.HRTPSYS3.SA.018               1 LINE     80  102 PAGE UM   HANSEN              AUG. 02, 1973  02:31.26
0          REMOTE PROGRAM FOR IBM SYSTEM/3.  HERE AGAIN, THIS VERSION IS FROM HASP II VERSION 3.1.
00387/015   HASP                     RTPBOOT         B   G          S0721 'D3T2' FSNAME=HASP.RTPBOOT.B.14(1)                     322
            D4T1    920  HASP.RTPBOOT.B.019                 1 LINE    160    1 PAGE UM   HANSEN              AUG. 02, 1973  02:31.40
0          BOOTSTRAP LOADER FOR 1130 REMOTE PROGRAM.  THESE ARE THE SIX BINARY CARDS THAT THE HASP
           MANUAL TELLS YOU TO HAND PUNCH.
           THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN AND PLACED AT THE BEGINNING OF THE 1130 REMOTE PROGRAM DECK.
           NO SOURCE AVAILABLE.
00387/016   HASP                     LETRRIP         SA  G  LETI    S0721 'D3T2' FSNAME=HASP.LETRRIP.SA.15(1)                    323
            D4T1    921  HASP.LETRRIP.SA.020                1 LINE     80    2 PAGE UM   HANSEN              AUG. 02, 1973  02:31.42
0          PARTIAL SOURCE FOR AN MTS PROGRAM TO CONVERT 1130 OBJECT PROGRAMS ASSEMBLED BY *ASMG FROM ASMG OBJECT FORMAT
           TO 1130 BINARY OBJECT CARD FORMAT.  READS FROM SCARDS, WRITES ON SPUNCH.
00387/017   HASP                     LETRRIP         OC  G          S0721 'D3T2' FSNAME=HASP.LETRRIP.OC.16(1)                    324
            D4T1    922  HASP.LETRRIP.OC.021                1 LINE     80    6 PAGE UM   HANSEN              AUG. 02, 1973  02:31.44
0          OBJECT IS IN 3 PARTS:  (1) THE OS/360 OBJECT FOR LETRRIP FROM HASP WITH REP CARDS TO PATCH ALL OS SVC'S INTO
           INVALID OP-CODES (TO PRODUCE PROGRAM INTERRUPTS WHICH CAN BE FIELDED), (2) THE OBJECT FROM 387/16, AND (3) THE
           OBJECT FOR THE ALGOL COMPILER (OR LIBRARY) MTS INTERFACE (COMP 505/2 OR 505/22).
1                                                                                               THU SEP 12/96   23:39:34   Page  124
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00387/018   HASP                     *HSP            C              *HSP                                                            
            D4T1    923  HASP.*HSP.C.022                    1 LINE      9    1 PAGE UM   WSG                 JULY 27, 1977  03:04:50
                         STRT:*HSP            
0          COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:HSP (387/19).
           INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE.
00387/019   HASP                     HSP             C              MTS:TST.HSP                                                     
            D4.2T1  183  HASP.HSP.C.019                     1 LINE     23    1 PAGE UM   WSG                 MAR. 26, 1979  02:44:20
                         STRT:HSP             
0          THIS FILE ISSUES BUNCHES OF HASP COMMANDS ($START ET AL.).  THE PARTICULAR
           COMMANDS WILL HAVE TO BE MODIFIED FOR THE I/O DEVICES IN USE AT EACH
           INSTALLATION.
            
           THE UM LOCAL VERSION (NOT THE DISTRIBUTED VERSION) STARTS *HLG (752).
0          Referenced by comments of: 387/18 
00387/020   HASP                     *DRN            C              *DRN                                                            
            D4T1    925  HASP.*DRN.C.024                    1 LINE      9    1 PAGE UM   WSG                 JULY 27, 1977  03:04:54
                         STRT:*DRN            
0          COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:DRN (387/21).
           INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE.
00387/021   HASP                     STRT:DRN        C              STRT:DRN                                                        
            D4T1    926  HASP.STRT:DRN.C.025                1 LINE     16    1 PAGE UM   WSG                 JULY 27, 1977  03:04:56
                         STRT:DRN             
0          THIS FILE ISSUES "$DRAIN SAXX" HASP COMMANDS USED TO DRAIN HASP PRIOR TO SHUTDOWN.
           THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE RJE LINES AVAILABLE (IF ANY)
           AT EACH INSTALLATION.
0          Referenced by comments of: 387/20 
00387/022   HASP                     OPER MANUAL     WF             W225:HSPM.CI                                                    
            D4.2T1  184  HASP.OPER_MANUAL.WF.022            1 LINE    225   28 PAGE UM   DONNELLY            MAR. 26, 1979  02:44:20
0          MTS HASP OPERATOR'S MANUAL.  NOTE:  SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592).
00387/023   HASP                     ASM JOB         C              W167:HSP.GEND4.2                                                
            D4.2T1  185  HASP.ASM_JOB.C.023                 1 LINE     96    2 PAGE UM   HANSEN              MAR. 26, 1979  02:44:28
0          COMMANDS TO ASSEMBLE HASP.
00387/024   HASP                     PCE SNIFFER     SA     PCE     W167:PCE(1,999)                                                 
            D4T1    929  HASP.PCE_SNIFFER.SA.028            1 LINE     80    4 PAGE UM   HANSEN              JULY 27, 1977  03:05:11
                         MTS.:PCE             
0          PCE SNIFFER UTILITY PROGRAM.
           EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE:
            
             F:N1   B:N2   T: N3P  N4U  N5B
1                                                                                               THU SEP 12/96   23:39:34   Page  125
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
           WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S,
                 N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION,
                 N3 IS THE NUMBER OF *PRINT* PCE'S,
                 N4 IS THE NUMBER OF *PUNCH* PCE'S,
                 AND N5 IS THE NUMBER OF *BATCH* PCE'S.
            
           IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS
           FROM THE PREVIOUS LINE PRINTED.
           IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE
           USER THEY THINK THEY ARE.  IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS
           FROM THE JCT ID, IT PRINTS:
            
             PCE: AAAAA   JCTID: IIII    JOB TABLE: PPPPPPPP   JOB N
            
           WHERE AAAAA IS THE HEX LOCN OF THE PCE,
                 IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL),
                 PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER),
                 AND N IS THE JOB NUMBER.
            
           USES IOH (278) FOR OUTPUT FORMATTING AND REQUIRES THE HASP COPY SECTIONS.
00387/025   HASP                     PCE SNIFFER     OC             W167:PCE(1000)                                                  
            D4.1T1  128  HASP.PCE_SNIFFER.OC.029            1 LINE     80    1 PAGE UM   HANSEN              MAY  17, 1978  15:41:20
00387/026   HASP                     WRITEUP         WF             S0996 HASP 'MODULAR HASP' FSNAME=HASP.WRUP                      
            D4.2T1  186  HASP.WRITEUP.WF.026                1 LINE    116   17 PAGE UM   HANSEN              FEB. 15, 1979  17:51:11
0          A DISCUSSION OF THE D4.2 HASP COMPONENTS AND CHANGES WITH A DESCRIPTION OF HOW
           TO ASSEMBLE IT.
00387/027B  HASP                     DUMP/ANAL       SA             S0996 HASP 'MODULAR HASP' FSNAME=D/A.ASM                        
            RD16T1   48  HASP.DUMP/ANAL.SA.027              1 LINE    130   53 PAGE UM   HANSEN              MAY  22, 1979  15:35:15
0          THIS PROGRAM PERMITS A SYSTEM PROGRAMMER TO LOOK AT MEMORY OR A DUMP TAPE (VIA A
           DUMP TAPE OPTIONALLY ASSIGNED TO UNIT 1) AND PRINT IT IN AN EASILY READABLE FORM.
           FORMS PERMITTED ARE PRIMARILY HASP DSECT FORMATS (E.G., PCE AND DCT) AND JOBTABLE
           OR DUMP FORMATS.  A HELP COMMAND PROVIDES COMPREHENSIVE DESCRIPTIONS AS OBTAINED
           FROM 387/29.  COPIES COPY:GLOBALSETS (1026/2) AND COPY:LLMPSEQU (087).  REQUIRES
           ASSEMBLY WITH THE HASP MACROS (387/6).  CONTAINS MTS COMMANDS AT THE BEGINNING
           OF THE FILE TO ASSEMBLE IT.  IT ALSO CONTAINS A SPECIAL VERSION OF THE SYSADR
           SUBROUTINE (400/7) WHICH READS FROM THE DUMP TAPE.  IT REQUIRES THE VMFIND
           SUBROUTINE (400/2).
0          Referenced by comments of: 387/29 
00387/028   HASP                     DUMP/ANAL       OC             S0996 HASP 'MODULAR HASP' FSNAME=D/A.D                          
            D4.2T1  188  HASP.DUMP/ANAL.OC.028              1 LINE  24312   21 PAGE UM   HANSEN              FEB. 15, 1979  17:50:09
                         MTS.:HASP.D/A        
00387/029B  HASP                     DUMP/ANAL HELP  M              S0996 HASP 'MODULAR HASP' FSNAME=D/A.HELP                       
            RD16T1   49  HASP.DUMP/ANAL_HELP.M.029          1 LINE     68    5 PAGE UM   HANSEN              NOV. 14, 1978  15:34:22
0          HELP MESSAGE FILE FOR USE BY DUMP/ANAL (387/27).  THIS FILE IS IN THE FORM OF AN
1                                                                                               THU SEP 12/96   23:39:34   Page  126
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          ASSEMBLER MACRO LIBRARY.
00387/030   HASP                     HASPTRACKS      SA  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.S                   
            D4.1T1  133  HASP.HASPTRACKS.SA.034             1 LINE     95    4 PAGE UM   HANSEN              MAR. 28, 1978  20:37:30
0          PROGRAM TO CHECK FOR DUPLICATE OR MISSING TRACKS ON A HASP SPOOL PACK AND
           TO REPAIR (VERIFICATION REQUIRED) THE CYLINDER MAP IN MEMORY.  THE FILE
           BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM.  REQUIRES THE HASP MACRO
           LIBRARY (387/6) FOR ASSEMBLY.  CALLS THE SYSADR (400/7) SUBROUTINE.
0          Referenced by comments of: 387/31 
00387/031   HASP                     HASPTRACKS      OC  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS                     
            D4.1T1  134  HASP.HASPTRACKS.OC.035             1 LINE    256    5 PAGE UM   HANSEN              MAR. 28, 1978  20:38:55
0          OBJECT FOR HASPTRACKS (387/30) PLUS THE OBJECT FOR SYSADR (400/7).
00387/032   HASP                     QUESCAN         SA  O          S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.S                      
            D4.1T1  135  HASP.QUESCAN.SA.036                1 LINE     91    5 PAGE UM   HANSEN              MAR. 28, 1978  20:39:08
0          PROGRAM TO SCAN THE HASP QUEUE, VERIFYING THAT ALL ENTRIES ARE PROPERLY LINKED,
           LOCATING UNATTACHED SEGMENTS, AND MAKING OTHER TESTS.  THE FILE BEGINS WITH
           MTS COMMANDS TO ASSEMBLE THE PROGRAM.  COPIES THE HASP COPY SECTIONS AND REQUIRES
           THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY.  CALLS THE SYSADR (400/7) SUBR.
0          Referenced by comments of: 387/33 
00387/033   HASP                     QUESCAN         OC  O          S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN                        
            D4.1T1  136  HASP.QUESCAN.OC.037                1 LINE    256    5 PAGE UM   HANSEN              MAR. 28, 1978  20:39:25
0          OBJECT FOR QUESCAN (387/32) PLUS THE OBJECT FOR SYSADR (400/7).
00387/034B  HASP                     HASPSTAT        SA  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.S                     
            RD16T1   50  HASP.HASPSTAT.SA.034               1 LINE    111    3 PAGE UM   HANSEN              MAY  22, 1979  15:35:56
0          PROGRAM TO LOOK AT HASP WHILE IT'S RUNNING AND CHECK FOR POSSIBLE PROBLEMS.
           IF FOUND, THEY ARE PRINTED ON SERCOM.  THE FILE BEGINS WITH MTS COMMANDS TO
           ASSEMBLE THE PROGRAM. COPIES COPY:GLOBALSETS (1026/2). REQUIRES THE HASP
           MACRO LIBRARY (387/6) FOR ASSEMBLY.  CALLS THE SYSADR (400/7) SUBR.
0          Referenced by comments of: 387/35 
00387/035   HASP                     HASPSTAT        OC  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.D                     
            D4.2T1  191  HASP.HASPSTAT.OC.035               1 LINE    256    5 PAGE UM   HANSEN              FEB. 15, 1979  17:50:01
0          OBJECT FOR HASPSTAT (387/34) PLUS THE OBJECT FOR SYSADR (400/7).
00387/036   HASP                     HASPCKPT        SA  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPCKPT                       
            D4.1T1  139  HASP.HASPCKPT.SA.040               1 LINE     95    3 PAGE UM   HANSEN              MAR. 28, 1978  20:41:54
0          PROGRAM TO REFORMAT THE HASP CHECKPOINT RECORD TO AVOID DOING A COLD START
           WHEN CHANGING FROM 16- TO 32-BYTE $ROUTAB ENTRIES.  COULD BE USED FOR OTHER
           CHECKPOINT RECORD CHANGES TOO.  THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE
           THE PROGRAM.  COPIES THE HASP COPY SECTIONS AND REQUIRES THE HASP MACRO
1                                                                                               THU SEP 12/96   23:39:34   Page  127
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          LIBRARY (387/6) FOR ASSEMBLY.  OBJECT NOT DISTRIBUTED.
00388/001   HASPLING                 MAIN            SA  G  HSPL    S0996 HASP 'MODULAR HASP' FSNAME=HASPLING                       
            D4.2T1  192  HASPLING.MAIN.SA.001               1 LINE     80   26 PAGE UM   HANSEN              JAN. 30, 1979  18:56:42
0          COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING
           COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 387/9 
00388/002   HASPLING                 MNET            SA  G  HSPM    S0996 HASP 'MODULAR HASP' FSNAME=HSPLNG.MNET                    
            D4.2T1  193  HASPLING.MNET.SA.002               1 LINE     80   19 PAGE UM   HANSEN              JAN. 30, 1979  18:56:46
0          ASSEMBLE USING COPY:MTS.MACROS (344/3).
00388/003   HASPLING                 OBJECT          OC  G        # (PART OF 387/13)                                                
                                                                                    UM   HANSEN                                     
00389/001  *GENLIB                                   SA  G  GENL    LBT:GENLIB.S                                                    
            D4T1    938  GENLIB..SA.001                     1 LINE     80  143 PAGE UM   TIFFANY             JULY 27, 1977  03:05:47
0          NEW VERSION OF *GENLIB.  PARAMETERS SEQL, POINT, AND LINE NO LONGER SUPPORTED.
00389/002  *GENLIB                                   OE  G          *GENLIB                                                         
            D4.2T1  194  GENLIB..OE.002                     1 LINE  12279   14 PAGE UM   TIFFANY             MAR. 26, 1979  02:46:18
                         *GENLIB              
00389/003  *GENLIB                   MESSAGES        M              ETC:GENLIBHELP                                                  
            D4T1    940  GENLIB.MESSAGES.M.003              1 LINE     66   10 PAGE UM   TIFFANY             JULY 27, 1977  03:06:15
                         ETC.:GENLIBHELP      
0          MESSAGE FILE REFERENCED FOR THE EXPLAIN COMMAND.
00390/001  *QUE                                      C              *QUE(1,999)                                                     
            D4T1    941  QUE..C.001                         1 LINE     30    1 PAGE UM   WSG                 AUG. 14, 1977  19:29:14
                         *QUE                 
0          COMMAND FILE TO PRINT A LISTING (ON *PRINT*) OF THE HASP QUEUE.  INVOKED BY
           ENTERING "MTS *QUE" ON THE OPERATOR'S CONSOLE.
00390/002  *QUE                      PGM             SA  G  HSPQ    S0721 'D3T2' FSNAME=QUE..SA.1(1)                             334
            D4T1    942  QUE.PGM.SA.002                     1 SEQ      80    2 PAGE UM   WSG                 AUG. 02, 1973  02:35.17
0          PROGRAM TO PRINT OUT HASP QUEUE.
00390/003  *QUE                      PGM             OC  G          *QUE(1000)                                                      
            D4T1    943  QUE.PGM.OC.003                     1 LINE     80    1 PAGE UM   WSG                 AUG. 14, 1977  19:29:15
00391       FILE STATISTICS                          SP           # (OBSOLETE)                                                      
            D2T1    123                                                             UM                                              
1                                                                                               THU SEP 12/96   23:39:34   Page  128
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00392      *FSAVE                                    SA           # (OBSOLETED BY COMP 548)                                         
            D2.2    116                                                             UM                                              
0          Referenced by comments of: 549/1 
00399/001   DUMP                                     SA  G          S0563 D4T1 VLO FSNAME=DUMP..SA.001(1)                        944
            D4T1    944  DUMP..SA.001                       1 LINE     80   13 PAGE UM   MTA                 JULY 27, 1977  03:06:22
                         MTA.:DUMP            
0          THIS IS THE UMMPS SYSTEM DUMP PROGRAM.  IT TAKES A DUMP OF ALL OF REAL MEMORY PLUS, OPTIONALLY,
           THE VM FOR A SPECIFIED JOB.  IT WRITES THE DUMP UNFORMATED ONTO A 9-TRACK LABELED TAPE FOR
           WHICH THE VOLUME LABEL MUST BE 'DUMPXX'.  THE PRINTDUMP PROGRAM (400) WILL PRINT SELECTED
           PARTS OF A DUMP TAPE.
           COPIES COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 400/1 
00399/002   DUMP                     UPDATE          UC  G          MTA:DUMP.U                                                      
            D4.2T1  195  DUMP.UPDATE.UC.002                 1 LINE     65    1 PAGE UM   MTA                 MAR. 26, 1979  02:46:19
0          UPDATES TO THE D4.0 SOURCE.
00399/003   DUMP                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00400/001B  PRINTDUMP                MAIN            SA  G          MTA:DMPLST(1000)                                                
            RD16T1   51  PRINTDUMP.MAIN.SA.001              1 LINE     72   29 PAGE UM   MTA                 JULY 12, 1979  22:34:35
                         MTA.:DMPLST          
0          PRINTS DUMP TAPES PRODUCED BY SYSTEM DUMP (399).  A SEPARATE DUMP PROGRAM
           IS ALSO AVAILABLE FOR HASP (SEE COMP 387).  PRINTDUMP REQUIRES PRINTTRACE
           (337), THE MSG ROUTINES (1023), AND IOH (278) FOR THE "TRACE" COMMAND ONLY. 
           COPIES COPY:LLMPSEQU (087), COPY:PCBDSECT (470), COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/2), *SENSEDSECT (3025), AND *CNFGINFODSECT (654).
           ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 399/1, 534/9 
00400/002   PRINTDUMP                VMFIND SUBR     SA  G          MTA:DMPLST.VMFIN(1,999)                                         
            D4T1    946  PRINTDUMP.VMFIND_SUBR.SA.002       1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  03:06:29
                         MTA.:DMPLST.VMFIN    
0          SUBROUTINE TO FIND A VM PAGE ON A DUMP TAPE.
0          Referenced by comments of: 387/27 
00400/003   PRINTDUMP                D4 SSCN SUBR    SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=SSCN                        
            D4T1    947  PRINTDUMP.SSCN_SUBR.SA.003         1 LINE     80   11 PAGE UM   MTS       MTA       JULY 27, 1977  03:06:31
                         MTA.:DMPLST.SSCN     
0          D4.0 MASTER SOURCE FOR SUBROUTINE TO DUMP THE VM OF AN MTS TASK, FORMATTING IT
           APPROPRIATELY.  MUST BE REASSEMBLED WHENEVER THE MTS DSECT IS CHANGED.  COPIES
           COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING
           COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1).
1                                                                                               THU SEP 12/96   23:39:34   Page  129
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 400/6, 534/10 
00400/004B  PRINTDUMP                SSCN SUBR UPD   UC  G          MTS:SSCNUPD                                                     
            RD16T1   52  PRINTDUMP.SSCN_SUBR_UPD.UC.004     1 LINE     72    3 PAGE UM   MTS       MTA       JULY 12, 1979  22:34:43
                         MTS.:SSCNUPD         
0          UPDATE TO D4 MASTER TO PRODUCE CURRENT SOURCE.
           UPDATE USES $CONTROL *IN* POSN=SSCN.
00400/005C  PRINTDUMP                SSCN SUBR LIST  L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=SSCN.LIST             15  
            RD16T1   53  PRINTDUMP.SSCN_SUBR_LIST.L.005     1 SEQ     133   38 PAGE UM   MTS       MTA       JULY 12, 1979  22:34:51
00400/006   PRINTDUMP                DUMP SUBR       SA  G          MTA:DMPLST.ADUMP(1,999)                                         
            D4T1    948  PRINTDUMP.DUMP_SUBR.SA.004         1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  03:06:33
                         MTA.:DMPLST.ADUMP    
0          SUBROUTINE TO FORMAT DUMP OUTPUT.  CALLED BY SSCN (400/3).
00400/007   PRINTDUMP                SYSADR SUBR     SA  G          MTA:DMPLST.SYSAD(1,999)                                         
            D4.1T1  144  PRINTDUMP.SYSADR_SUBR.SA.006       1 LINE     80    4 PAGE UM   MTA                 MAY  13, 1978  17:16:52
                         MTA.:DMPLST.SYSAD    
0          SUBROUTINE TO RESOLVE A NAME FROM THE UMLOAD SYMBOL TABLE FOR THE RESIDENT SYSTEM
           ON A DUMP TAPE.
0          Referenced by comments of: 387/27, 387/30, 387/31, 387/32, 387/33, 387/34, 387/35 
00400/008   PRINTDUMP                TASKSTAT SUBR   SA  G          MTA:DMPLST.TSTAT(1,999)                                         
            D4.2T1  198  PRINTDUMP.TASKSTAT_SUBR.SA.007     1 LINE     86    5 PAGE UM   MTA                 MAR. 26, 1979  02:46:27
                         MTA.:DMPLST.TSTAT    
0          VERSION OF TASKSTAT SUBROUTINE (647) WHICH WORKS WITH A DUMP TAPE.  COPIES
           COPY:GLOBALS(1026/3), COPY:LLMPSEQU (087), AND COPY:JOBSTA (413/9).
           ASSEMBLE USING COPY:SETPARM (653) AND DMPLST.MACROS (400/12).
00400/009   PRINTDUMP                LOADCLAS SUBR   SA  G          MTA:DMPLST.LOADC(1,999)                                         
            D4.2T1  199  PRINTDUMP.LOADCLAS_SUBR.SA.008     1 LINE     72    3 PAGE UM   MTA                 MAR. 26, 1979  02:46:28
                         MTA.:DMPLST.LOADC    
0          SUBROUTINE TO PRODUCE A SUBSET OF LOADCLAS (540/7) OUTPUT FROM A DUMP TAPE.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING
           COPY:SETPARM (653) AND DMPLST.MACROS (400/11).
00400/010   PRINTDUMP                ICTAB SUBR      SA  G          MTA:DMPLST.ICTAB(1,999)                                         
            D4T1    952  PRINTDUMP.ICTAB_SUBR.SA.008        1 LINE     80   21 PAGE UM   MTA                 JULY 27, 1977  03:06:43
                         MTA.:DMPLST.ICTAB    
0          SUBROUTINE WHICH IMPLEMENTS THE ICTAB COMMAND FOR PRINTDUMP.  THIS IS A MODIFIED
           VERSION OF TABLMOD (554).  ASSEMBLE USING COPY:FILE.MACROS (482/33).
1                                                                                               THU SEP 12/96   23:39:34   Page  130
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00400/011   PRINTDUMP                ICSTAT SUBR     SA  G          MTA:DMPLST.ICSTA(1,999)                                         
            D4T1    953  PRINTDUMP.ICSTAT_SUBR.SA.009       1 LINE     80    6 PAGE UM   MTA                 JULY 27, 1977  03:06:45
                         MTA.:DMPLST.ICSTA    
0          VERSION OF THE ICSTAT SUBROUTINE (PART OF 482/25) THAT WORKS FROM A DUMP TAPE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 400/9 
00400/012   PRINTDUMP                MACROS          SM  G          MTA:DMPLST.MACROS                                               
            D4.2T1  200  PRINTDUMP.MACROS.SM.011            1 LINE     63    1 PAGE UM   MTA                 MAR. 26, 1979  02:46:29
                         MTA:DMPLST.MACROS    
0          MACRO LIBRARY.
0          Referenced by comments of: 400/8, 1012/1 
00400/013B  PRINTDUMP                                OC  G          MTA:PRINTDUMP                                                   
            RD16T1   54  PRINTDUMP..OC.013                  1 LINE   8832   15 PAGE UM   MTA                 JULY 12, 1979  22:34:52
                         MTS.:PRINTDUMP       
0          THIS FILE CONTAINS THE OBJECT FOR ALL OF PRINTDUMP PLUS PRINTTRACE (337).
           HAS A $CONTINUE WITH SEG2:UNITS RETURN (1012/2) RECORD.
00400/014   PRINTDUMP                GETDUMP         SA  G          SYS:GETDUMP(1000)                                               
            D4.2T1  202  PRINTDUMP.GETDUMP.SA.013           1 LINE     72    1 PAGE UM   OGDEN               MAR. 26, 1979  02:46:32
                         SYS:GETDUMP          
0          PROGRAM INVOKED BY 400/16.  COPIES *SENSEDSECT (3025).
00400/015   PRINTDUMP                GETDUMP         OC  G          SYS:GETDUMP(1,999)                                              
            D4.2T1  203  PRINTDUMP.GETDUMP.OC.014           1 LINE     80    3 PAGE UM   OGDEN               MAR. 26, 1979  02:46:33
00400/016   PRINTDUMP                DUMP            C              SYS:DUMP                                                        
            D4.2T1  204  PRINTDUMP.DUMP.C.015               1 LINE     37    1 PAGE UM   OGDEN               MAR. 26, 1979  02:46:33
                         SYS:DUMP             
0          SOURCE FILE TO AUTOMATICALLY MOUNT AND PRINT A DUMP TAPE.  PROMPTS USER FOR
           DUMP TAPE NUMBER AND DUMPS OUTPUT ON *PRINT*.  ASSUMES THAT FILE IS SOURCED
           TO FROM THE ID SYS.
00400/017   PRINTDUMP                WRITEUP         WF             MTA:PRINTDUMP.W                                                 
            D4.1T1  844  PRINTDUMP.WRITEUP.WF.014           1 LINE     78    3 PAGE UM   MTA                 MAY  25, 1978  18:03:26
                         MTA.:PRINTDUMP.W     
0          DESCRIPTION OF HOW TO USE PRINTDUMP.
00410/001  *ASMTIDY                                  SA  S  ATID    DWB:ASMTIDY.S(1)                                                
            D4T1    958  ASMTIDY..SA.001                    1 LINE     80   17 PAGE UBC            TIFFANY   JULY 27, 1977  03:06:57
                         DWB.:ASMTIDY.S       
0          PROGRAM TO CLEAN UP AND ENTER ASSEMBLY PROGRAMS INTO FILES.
           REQUIRES THAT USER "$SET SEQFCHK=OFF" IF OUTPUT IS INTO A SEQUENTIAL FILE.
           UBC VERSION OF JAN 27, 1976 CHANGED ONLY TO DEFAULT SEQID ON, TO CHECK FOR INPUT
1                                                                                               THU SEP 12/96   23:39:34   Page  131
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          RECORDS > 256 BYTES, AND TO WATCH FOR RC=4 ON WRITING OUTPUT.  THIS VERSION
           DOES NOT USE INFREE.  ASSEMBLE USING UBC MACROS (1024).
           UM WRITEUP IS IN MTS VOLUME 14 (SEE COMP 665).
0          Referenced by comments of: 1024/1 
00410/002  *ASMTIDY                                  OC  S          *ASMTIDY                                                        
            D4T1    959  ASMTIDY..OC.002                    1 SEQ      80    3 PAGE UBC            TIFFANY   JULY 27, 1977  03:06:59
                         *ASMTIDY             
00410/003  *ASMTIDY                  NEW ASMTIDY     SS  G          S0684 UNSP FSNAME=ASMTIDY.S                                     
            D4.2T1  205  ASMTIDY.NEW_ASMTIDY.SS.003         1 LINE    108    6 PAGE UM   UNSP      SHERRY    JAN. 18, 1979  22:27:46
0          NEW VERSION OF ASMTIDY WHICH WORKS CORRECTLY.  THERE IS NO ICTL CAPABILITY. 
           IT INDENTS STRUCTURED PROGRAMMING MACROS AND NOW PROCESSES PARAMETERS 
           DESCRIBED IN 410/5. IT READS THE SOURCE ON SCARDS, WRITES ONLY THE CHANGED
           LINES ON SPUNCH (@I), AND PRINTS A LISTING ON SPRINT WITH NESTING LINES
           AND *FRAMES EXPANDED.  USES UNSP:SPITPAR (757/2).
00410/004  *ASMTIDY                  NEW ASMTIDY     OE  G          UNSP:ASMTIDY                                                    
            D4.2T1  206  ASMTIDY.NEW_ASMTIDY.OE.004         1 LINE  15828    8 PAGE UM   UNSP      SHERRY    MAR. 26, 1979  02:50:31
                         UNSP:ASMTIDY         
0          HAS A "$CONTINUE WITH UNSP:SPITPAR" (757/2) CARD.
00410/005  *ASMTIDY                  NEW ASMTIDY     WF             S0684 UNSP FSNAME=ASMTIDY.F                                     
            D4.2T1  207  ASMTIDY.NEW_ASMTIDY.WF.005         1 LINE     79    3 PAGE UM   UNSP      SHERRY    JAN. 18, 1979  22:27:41
00413/001B  SYSTEM STATUS            SSRTN           SA  G          WSG:SSRTN                                                       
            RD16T1   55  SYSTEM_STATUS.SSRTN.SA.001         1 LINE     72   41 PAGE UM   WSG                 JULY 12, 1979  22:34:53
                         WSG.:SSRTN           
0          THE SYSTEM STATUS ROUTINE (SSRTN) COMPUTES SYSTEM LOAD (CPU, PAGING, DISK, CHANNEL, AND
           DRUM SPACE) DURING EVERY 20 SECONDS OF SYSTEM OPERATION.  IT IS A SUBROUTINE CALLED BY
           THE OPERATOR JOB (634), THE JOBS JOB (413/3) AND THE MTS $SYSTEMSTATUS CLS (413/5).  IT
           ALSO HAS A SEPARATE ENTRY POINT (SSFMT) WHICH ONLY PRODUCES THE FORMATED OUTPUT VECTOR
           AS PRINTED BY THE "LOAD" COMMAND.  THIS ENTRY IS CALLED BY THE OPERATOR JOB (TO PRODUCE
           THE TOP LINE ON THE CONSOLE SCREEN) AND BY THE 3270 %ACTIVITY COMMAND (629/4).  THE
           "MASTER" COMMAND CAN ONLY BE ACTIVATED BY ONE TASK AT A TIME.  WHEN ISSUED, IT CAUSES
           THAT TASK TO PERFORM THE LOAD CALCULATION EVERY 20 SECONDS UPDATING THE INFORMATION
           IN THE JOBSTA VECTOR (413/7) FOR USE BY OTHER TASKS AND ALSO LOGGING THE DATA VIA
           CMDSTAT (AS RECORD TYPE 8).  CALLS BJPMOD (650), CHECKFE (731), TASKSTAT (647),
           TSKFMT (019), AND CMDSTATS (531).  COPIES COPY:BJPDSCT (650/3), COPY:JOBSTA (413/9),
           COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654).  ASSEMBLE
           WITH PAR=SIZE=12.
            
           CHANGED AS FOLLOWS SINCE D4.0:
            (1) SSFMT EXPANDED TO ALSO RETURN THE HEADER LINE FOR "LOAD" OUTPUT.
            (2) DISPLAY COMMAND CHANGED TO ALLOW OPTIONAL JOB=N PARAMETER IMMEDIATELY
                BEFORE THE DISPLAY ADDRESS IF ISSUED BY OPERATOR JOB, JOBS JOB, OR
                $SY WITH USER ID MTS.  WHEN JOB=N IS GIVEN, THE PRIVATE VM FOR JOB N
                IS DISPLAYED, RATHER THAN THE CURRENT JOB.
            (3) DISPLAY COMMAND CHANGED TO ALLOW "DISPLAY LOCK N" FOR DISPLAYING WHICH
                JOB (IF ANY) CURRENTLY HAS SUPERVISOR LOCK N SET.  IN ORDER FOR THIS
1                                                                                               THU SEP 12/96   23:39:34   Page  132
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0               COMMAND TO WORK, UMMPS MUST HAVE A DEF CARD DEFINING "LOCKTBL".
            (4) THE LENGTH OF THE HASP $ROUTAB TABLE ENTRIES HAS BEEN PARAMETERIZED
                SINCE THE UM HASP NOW SUPPORTS RJE PASSWORDS (REQUIRING 32-BYTE $ROUTAB
                ENTRIES INSTEAD OF 16).
            (5) THE MASTER COMMAND NOW PRODUCES A SUMMARY RECORD EVERY 10 MINUTES (VIA
                A NEW CMDSTAT CALL -- TYPE 19) WHICH CONTAINS CURRENTLY ONLY 10 BYTES
                OF DATA (ALL HALFWORDS):  SUMMARY PERIOD LENGTH (SECONDS), AVERAGE
                CPU UTILIZATION OVER SUMMARY PERIOD (PERCENT * 100), AVERAGE HASP EXEC
                QUEUE LENGTH OVER SUMMARY PERIOD, MAX HASP EXEC QUEUE LENGTH DURING
                PERIOD, AND MIN HASP EXEC QUEUE LENGTH DURING PERIOD.  THE "SVEC"
                COMMAND HAS BEEN REMOVED.  THE SUMMARY DATA IS PLACED IN THE FILE
                SYS:SSRTNSUMM BY *DWB (531/12) AND MAY BE PRINTED BY SUMMPRT (413/10) OR
                SUMMARIZED BY THE CPUSE SUBR (326/3) ON A MONTHLY BASIS.
            (6) IF THE EXTERNAL SYMBOL "CHECKFE" IS DEFINED, THE NEW "CHECK FRONT END"
                SUBR (731) IS CALLED EVERY SEVERAL MINUTES TO CHECK ON THE STATUS (UP,
                DOWN, OFFLINE, ETC.) OF FRONT END PROCESSORS.  IT WILL INFORM THE OPERATOR
                OF ANY ABNORMAL CONDITIONS IT NOTICES.  SYMBOLS IN JOBSTA (413/9) ARE
                USED TO CONTROL THE CHECKING OF THE FRONT ENDS AND TO REPORT THEIR STATUS.
                AT UM, THE SYMBOLS JSCAS, JSCBS, JSCCS, AND JSMNS ARE USED FOR THE STATUS
                OF THE THREE DATA CONCENTRATORS AND THE MERIT FRONT END RESPECTIVELY.
            (7) ALLOWS FOR MORE THAN 999 REAL PAGES IN VARIOUS OUTPUT FORMATS.
            (8) CHANGED TO MAINTAIN A COUNT OF THE NUMBER OF AVAILABLE (FREE) JOB TABLES
                AS WELL AS A COUNT OF THE NUMBER OF ADDITIONAL GRABS WHICH CAN BE DONE
                BY 3270 JOBS.
            (9) MESSAGES NOW APPEAR IN UPPER/LOWER CASE.
           (10) MINOR CHANGES FOR CHECKFE.
0          Referenced by comments of: 19/1, 326/1, 413/3, 413/5, 413/7, 413/10, 540/9, 647/1, 650/1, 731/1 
00413/002B  SYSTEM STATUS            SSRTN           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00413/003   SYSTEM STATUS            JOBS JOB        SA  G  JOBS    S0792 WSGFS FSNAME=JOBS.SA                                      
            D4T1    963  SYSTEM_STATUS.JOBS_JOB.SA.003      1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  03:07:17
0          UMMPS JOB PROGRAM (NAMED "JOBS") TO INTERFACE TO SSRTN (413/1) FROM THE JOB PROGRAM LEVEL.
0          Referenced by comments of: 413/1 
00413/004   SYSTEM STATUS            JOBS JOB        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00413/005   SYSTEM STATUS            SYS STAT CLS    SA  G  SCLS    WSG:SSTA.CLS(1,999)                                             
            D4.1T1  150  SYSTEM_STATUS.SYS_STAT_CL.SA.005   1 LINE     80   14 PAGE UM   WSG                 MAY  13, 1978  17:17:12
                         WSG.:SSTA.CLS        
0          $SYSTEMSTATUS CLS FOR INTERFACING WITH SSRTN (413/1) FROM MTS COMMAND LEVEL.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 413/1 
1                                                                                               THU SEP 12/96   23:39:34   Page  133
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00413/006   SYSTEM STATUS            SYS STAT CLS    OC  G          *CLSSSTA                                                        
            D4.1T1  151  SYSTEM_STATUS.SYS_STAT_CL.OC.006   1 LINE     80    2 PAGE UM   WSG                 MAY  13, 1978  17:17:15
                         *CLSSSTA             
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE.
00413/007   SYSTEM STATUS            JOBSTA VECTOR   SA  G  SVEC    WSG:SSTA.VEC(1,999)                                             
            D4.2T1  208  SYSTEM_STATUS.JOBSTA_VECT.SA.007   1 LINE     80    1 PAGE UM   WSG                 MAR. 26, 1979  02:50:33
                         WSG.:SSTA.VEC        
0          SYSTEM STATUS INFORMATION VECTOR MAINTAINED BY SSRTN (413/1).
           COPIES COPY:JOBSTA (413/9).
0          Referenced by comments of: 413/1, 540/9 
00413/008B  SYSTEM STATUS            JOBSTA VECTOR   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
0          THIS OBJECT DECK SHOULD BE KEPT IN SEGMENT 0 TO REDUCE THE OVERHEAD OF THE SVC WAYT IN SSRTN.
00413/009B  SYSTEM STATUS            JOBSTA DSECT    SA  G          COPY:JOBSTA                                                     
            RD16T1   56  SYSTEM_STATUS.JOBSTA_DSEC.SA.009   1 LINE     71    3 PAGE UM   WSG                 JULY 12, 1979  22:35:03
                         COPY:JOBSTA          
0          THIS IS THE DSECT FOR THE SYSTEM STATUS VECTOR.
0          Referenced by comments of: 42/1, 101/1, 198/1, 387/1, 387/2, 400/8, 413/1, 413/7, 634/1, 647/1, 650/1, 731/1,
                 3024/3, 4000/33 
00413/010   SYSTEM STATUS            SUMMPRT         SG  G          WSG:SUMMPRT(1,999)                                              
            D4.2T1  210  SYSTEM_STATUS.SUMMPRT.SG.010       1 LINE    121    1 PAGE UM   WSG                 MAR. 26, 1979  02:50:34
                         WSG.:SUMMPRT         
0          GOM PROGRAM TO PRINT SUMMARY DATA COLLECTED BY SSRTN (413/1).
0          Referenced by comments of: 413/1 
00413/011   SYSTEM STATUS            SUMMPRT         OC  G          WSG:SUMMPRT(1000)                                               
            D4.2T1  211  SYSTEM_STATUS.SUMMPRT.OC.011       1 LINE     80    2 PAGE UM   WSG                 MAR. 26, 1979  02:50:35
0          Referenced by comments of: 540/9 
00413/012   SYSTEM STATUS            DOCUMENTATION   WF             WSG:SSRTN.DOC                                                   
            D4.2T1  212  SYSTEM_STATUS.DOCUMENTATI.WF.012   1 LINE    106    3 PAGE UM   WSG                 MAR. 26, 1979  02:50:35
                         WSG.:SSRTN.DOC       
0          WRITEUP DESCRIBING THE SYSTEM LOAD COMPUTATION ALGORITHM AND JOB SCHEDULING MECHANISM.
00414/001  *TAPEDUMP                                 SA  G  TDMP    WSG:TAPEDUMP(1,999)                                             
            D4.2T1  213  TAPEDUMP..SA.001                   1 LINE     80   18 PAGE UM   WSG                 MAR. 26, 1979  02:50:36
                         WSG.:TAPEDUMP        
0          PROGRAM TO DUMP 7- OR 9-TRACK TAPES OR FILES.
1                                                                                               THU SEP 12/96   23:39:34   Page  134
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00414/002  *TAPEDUMP                                 OE  G          *TAPEDUMP                                                       
            D4.2T1  214  TAPEDUMP..OE.002                   1 LINE   3883    3 PAGE UM   WSG                 MAR. 26, 1979  02:50:40
                         *TAPEDUMP            
00418      *HBT                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    183                                                             UM                                              
00421      *SCN                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    199                                                             UM                                              
00422       FORTRAN LIBRARY                          SA           # (OBSOLETED BY COMP 1002)                                        
            D3T2    350  FORTRAN_LIBRARY.IBCOM#.SA.1        1 LINE     80   29 PAGE UM                       AUG. 02, 1973  02:49.57
00436/001   GTDJMSR                                  SA             DWB:GRJTM(1,124)                                                
            D4T1    975  GTDJMSR..SA.001                    1 LINE     77    3 PAGE UM   DWB                 JULY 27, 1977  03:11:05
                         DWB.:GRJTM           
0          SUBROUTINE TO CONVERT GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900.
           SIMILAR TO GRGJULTM (518), BUT TAKES DIFFERENT ARGUMENTS.
00436/002   GTDJMSR                                  OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00436/003   GTDJMSR                  GTDJMS          SA             DWB:GTDJMS(1,999)                                               
            D4T1    976  GTDJMSR.GTDJMS.SA.003              1 LINE     77    1 PAGE UM   DWB                 JULY 27, 1977  03:11:07
                         DWB.:GTDJMS          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO GTDJMSR.  CONVERTS GREGORIAN
           TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900.
00436/004   GTDJMSR                  GTDJMS          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00437/001   JMSGTDR/JTUGTDR                          SA             DWB:JMSGTDR(125,999)                                            
            D4T1    977  JMSGTDR/JTUGTDR..SA.001            1 LINE     77    4 PAGE UM   DWB                 JULY 27, 1977  03:11:09
                         DWB.:JMSGTDR         
0          SUBROUTINE TO CONVERT JULIAN MICRO-SECONDS TO GREGORIAN TIME AND DATE.
           SIMILAR TO JULGRGTM (522), BUT TAKES DIFFERENT ARGUMENTS.  HAS ALTERNATE
           ENTRY POINT (JTUGTDR) WHICH CONVERTS JULIAN TIMER-UNITS TO GREGORIAN TIME
           AND DATE.  THIS IS THE UBC-CORRECTED VERSION OF FEB/77 WITH A FEW ADDITIONAL
           UM CORRECTIONS ADDED.
00437/002   JMSGTDR/JTUGTDR                          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
0          NOTE:  *ANALYSIS CALLS A SUBROUTINE (JULGRGTM/JULGRGTU) WHICH IS ESSENTIALLY THE SAME AS THIS,
                  BUT WITH DIFFERENT NAMES.  THE OBJECT FOR THAT SUBROUTINE IS PART OF *ANALYSIS.
                  *ANALYSIS COULD (SHOULD) BE CHANGED TO USE THIS SUBR OUT OF *LIBRARY.
1                                                                                               THU SEP 12/96   23:39:34   Page  135
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00437/003   JMSGTDR/JTUGTDR          JMSGTD          SA             DWB:JMSGTD(1,999)                                               
            D4T1    978  JMSGTDR/JTUGTDR.JMSGTD.SA.003      1 LINE     77    1 PAGE UM   DWB                 JULY 27, 1977  03:11:11
                         DWB.:JMSGTD          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JMSGTDR.
00437/004   JMSGTDR/JTUGTDR          JMSGTD          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00437/005   JMSGTDR/JTUGTDR          JTUGTD          SA             DWB:JTUGTD(1,999)                                               
            D4T1    979  JMSGTDR/JTUGTDR.JTUGTD.SA.005      1 LINE     77    1 PAGE UM   DWB                 JULY 27, 1977  03:11:14
                         DWB.:JTUGTD          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JTUGTDR.
00437/006   JMSGTDR/JTUGTDR          JTUGTD          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00441      *FILEUSE                                  SA  G        # (OBSOLETED BY $FILESTATUS, COMP 529)                            
            D3T2    369  FILEUSE..SA.1                      1 LINE     80    5 PAGE UM                       AUG. 02, 1973  02:54.05
00442/001   CCATL                                    SA  O  CCAT    FILE:CCATL                                                      
            D4.2T1  215  CCATL..SA.001                      1 LINE     80   18 PAGE UM   HELFFRICH           MAR. 26, 1979  02:50:40
                         FILE:CCATL           
0          PROGRAM TO CONSTRUCT A CATALOG FROM SCRATCH IF THAT SHOULD EVER BECOME
           NECESSARY.  THIS PROGRAM HAS BEEN REWORKED EXTENSIVELY FOR D4.
           THE GENERAL OPERATION IS NOW TO ALLOCATE AN *MASTER.CATALOG0 OF THE REQUESTED SIZE
           AND THEN SUBALLOCATE TO THE MICAT, SYSCAT, SFCAT, AND USER CATALOG AS REQUESTED,
           ALLOCATING ADDITIONAL *MASTER.CATALOGN'S AS NECESSARY.  AS A RESULT THE FOUR "LOGICAL
           PIECES" OF THE CATALOG MAY BE MADE TO ALL FALL WITHIN THE SAME EXTENT OR ON FOUR
           SEPARATE EXTENTS (AND VOLUMES) OR SOMEWHERE IN BETWEEN DEPENDING ON HOW THE EXTENT
           SIZES AND CATALOG SIZES ARE SPECIFIED.  (AT UM, WE PUT THE MICAT, SYSCAT, AND SFCAT
           ON THREE SEPARATE VOLUMES TO MINIMIZE CONTENTION.)  ASSEMBLE USING COPY:FILE.MACROS
           (482/33).  SEE COMP 682/2 FOR A WRITEUP.
0          Referenced by comments of: 682/2 
00442/002   CCATL                                    OC  O          FILE:CCATL.O                                                    
            D4.2T1  216  CCATL..OC.002                      1 LINE     80    5 PAGE UM   HELFFRICH           MAR. 26, 1979  02:50:43
                         FILE:CCATL.O         
00443       FORMAT-TEXT360 CONVERTER                 SS  S          W073:FORMAT2T360                                                
            D4T1    982  FORMAT-TEXT360_CONVERTER..SS.      1 LINE     90    9 PAGE UM   SALISBURY           JULY 27, 1977  03:11:21
0          SNOBOL PROGRAM TO CONVERT INPUT FOR *FORMAT TO INPUT FOR TEXT/360.
           THIS PROGRAM HAS MANY LIMITATIONS AND SOME KNOWN BUGS, BUT IS USUALLY BETTER THAN RETYPING.
00444/001   MTS VOLUME 2             MASTER          WT             S0485 MTSV2 'MTS MANUALS' POSN=NEWM10.V2                        
            D4.2T1  217  MTS_VOLUME_2.MASTER.WT.001         1 SEQ     132  290 PAGE UM   MANUAL              MAR. 26, 1979  02:53:01
0          TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUALS
           (DECEMBER 1978).
            
1                                                                                               THU SEP 12/96   23:39:34   Page  136
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          EDITOR:  RICHARD A. SALISBURY
00444/002   MTS VOLUME 2             PRINT           PT             S0485 MTSV2 'MTS MANUALS' POSN=PRINT10.V2                       
            D4.2T1  218  MTS_VOLUME_2.PRINT.PT.002          1 SEQ     132  497 PAGE UM   MANUAL              MAR. 26, 1979  02:53:13
0          TEXT/360 PRINT FILE.
00444/003   MTS VOLUME 2             FLOWCHART       P              S0485 MTSV2 'MTS MANUALS' POSN=FLOWCHART                        
            D4.2T1  219  MTS_VOLUME_2.FLOWCHART.P.003       1 SEQ     133    6 PAGE UM   MANUAL              MAR. 26, 1979  02:54:14
0          *FLOWCHART EXAMPLE -- MUST BE PRINTED AT 8 LINES/INCH.
00447/001   MOUNT STATISTICS         MNTSTAT SUBR    SA  G  MSTA    S0792 WSGFS FSNAME=MNTSTAT                                      
            D4T1    986  MOUNT_STATISTICS.MNTSTAT.SA.001    1 LINE     80    3 PAGE UM   WSG                 JAN. 14, 1977  15:13:26
0          THE MOUNT STATISTICS FACILITY IS USED TO SAVE INFORMATION ABOUT MOUNTS
           AND ATTEMPTED MOUNTS WHICH FAIL.  THIS INFORMATION IS COLLECTED VIA THE
           CMDSTAT FACILITY (531) AS RECORD TYPE 16.  THE CMDSTAT FACILITY PERIODICALLY
           PLACES THE MNTSTAT RECORDS IN THE FILE SYS:MOUNTSTAT.  THE SAVMS PROGRAM
           (447/3) SHOULD BE RUN ABOUT MONTHLY TO DUMP THE DATA FROM THIS FILE ONTO
           TAPE.  THE SAVMS PROGRAM WILL LEAVE THE RECORD FOR THE LAST REFERENCE TO 
           EACH RACK NUMBER IN THE FILE FOR ACCESS BY THE MSSCN PROGRAM (447/5) AND
           DELETE OLDER RECORDS.  THE MSDEL PROGRAM (447/8) CAN BE USED TO DELETE
           ANY ADDITIONAL UNWANTED RECORDS AFTER SAVMS HAS BEEN RUN.
            
           MNTSTAT IS A SUBROUTINE CALLED BY THE MOUNT COMMAND (101/1) TO LOG STATISTICS
           RECORDS ABOUT EACH MOUNT REQUEST.  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 101/1, 101/2, 447/3, 447/8 
00447/002   MOUNT STATISTICS         MNTSTAT SUBR    OC  G        # *CLSMOUNT (SEE COMP 101/2)                                      
                                                                                    UM   WSG                                        
00447/003   MOUNT STATISTICS         SAVMS PGM       SA  G  SVMS    WSG:SAVMS(1,999)                                                
            D4.2T1  220  MOUNT_STATISTICS.SAVMS_PG.SA.003   1 LINE     80    7 PAGE UM   WSG                 MAR. 26, 1979  02:54:15
                         WSG.:SAVMS           
0          PROGRAM TO DUMP THE MOUNT STATISTICS FROM SYS:MOUNTSTAT TO TAPE.  THIS PROGRAM
           IS RUN MONTHLY AT UM.  IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A TAPE AND
           THEN DELETES ALL BUT THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH
           RACK NUMBER.  AT UM, THIS LEAVES ABOUT 100 PAGES WORTH OF MOUNT STATISTICS.
           THIS IS DONE SO THAT AN ONLINE FILE CONTAINING THE LAST REFERENCE (AND LAST
           POTENTIAL CHANGE) FOR EACH TAPE IS AVAILABLE FOR THE MSSCN PROGRAM (447/5).
           THE FILE SYS:MOUNTSTAT MUST BE A LINE FILE.  THE TAPE IS BLOCKED VB(16379,255).
           AT UM, WE COPY EACH MONTH'S TAPE ONTO THE END OF A LARGER TAPE, SAVING THE
           MOUNT STATISTICS INDEFINITELY.  IT IS ADVISABLE TO OCCASIONALLY OPTIMIZE
           SYS:MOUNTSTAT BY COPYING IT TO ANOTHER FILE AND BACK SINCE THE PROCESS OF 
           DELETING THE OLD RECORDS (BY SAVMS) CAUSES THE FILE TO BECOME UNOPTIMIZED.
           THIS PROGRAM WILL HANDLE A MIXTURE OF BOTH THE RECORDS PRODUCED BY MNTSTAT
           (447/1) VIA CMDSTAT AND THE OLDER RECORDS PRODUCED BY THE D3.0 TAPESTAT PROGRAM.
0          Referenced by comments of: 447/1 
1                                                                                               THU SEP 12/96   23:39:34   Page  137
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00447/004   MOUNT STATISTICS         SAVMS PGM       OC  G          WSG:SAVMS(1000)                                                 
            D4.2T1  221  MOUNT_STATISTICS.SAVMS_PG.OC.004   1 LINE     80    2 PAGE UM   WSG                 MAR. 26, 1979  02:54:16
00447/005   MOUNT STATISTICS         MSSCN PGM       SA  G  MSSN    WSG:MSSCN(1,999)                                                
            D4.2T1  222  MOUNT_STATISTICS.MSSCN_PG.SA.005   1 LINE     80   13 PAGE UM   WSG                 MAR. 26, 1979  02:54:16
                         WSG.:MSSCN           
0          PROGRAM TO SCAN MOUNT STATISTICS RECORDS (FROM FILE OR TAPE) LOOKING FOR SPECIFIED
           RACK NUMBERS OR USERS FOR SPECIFIED DATE RANGES.  IT PRINTS THE RECORDS ON SPRINT
           SORTED BY RACK NUMBER AND DATE/TIME.  FOR EXAMPLE,
            
                          $RUN MSSCN(1000) SCARDS=SYS:MOUNTSTAT
                          R S0622 03-25-76 05-22-76
                          U WSG. 01-14-77
                          R S08##
                          $ENDFILE
            
           WILL SCAN SYS:MOUNTSTAT FOR ALL MOUNTS OF TAPE S0622 FROM 25 MAR 76 TO 22 MAY 76,
           FOR ALL MOUNTS BY USER WSG ON 14 JAN 77, AND FOR ALL MOUNTS OF TAPES WITH
           RACK NUMBERS BEGINNING WITH S08 FOLLOWED BY ANY TWO CHARACTERS.  IF SCARDS
           IS NOT ASSIGNED, MSSCN WILL PROMPT FOR FDNAMES TO BE SCANNED.  IF MORE THAN
           500 RECORDS ARE LIKELY TO BE OUTPUT, THE PROGRAM SHOULD BE RUN WITH PAR=N,
           WHERE N IS AN UPPER BOUND (USED FOR SORTING).  THIS PROGRAM WILL ALSO ACCEPT
           THE OLDER RECORDS PRODUCED BY THE D3.0 TAPESTAT PROGRAM (NOW OBSOLETE).
0          Referenced by comments of: 447/1, 447/3, 447/7 
00447/006   MOUNT STATISTICS         MSSCN PGM       OC  G          SYS:MSSCN                                                       
            D4.2T1  223  MOUNT_STATISTICS.MSSCN_PG.OC.006   1 LINE     80    3 PAGE UM   WSG                 MAR. 26, 1979  02:54:18
                         SYS.:MSSCN           
00447/007   MOUNT STATISTICS         *MSS            C              *MSS                                                            
            D4.2T1  224  MOUNT_STATISTICS.*MSS.C.007        1 LINE     54    1 PAGE UM   WSG                 MAR. 26, 1979  02:54:18
                         *MSS                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN MSSCN (447/5).  INVOKED BY ENTERING
           "MTS *MSS" ON THE OPERATOR'S CONSOLE.
00447/008   MOUNT STATISTICS         MSDEL PGM       SA  G  MSDL    WSG:MSDEL(1,999)                                                
            D4T1    992  MOUNT_STATISTICS.MSDEL_PG.SA.008   1 LINE     80    4 PAGE UM   WSG                 JULY 27, 1977  03:20:25
                         WSG.:MSDEL           
0          PROGRAM USED TO DELETE UNWANTED RECORDS FROM THE MOUNT STATISTICS FILE
           SYS:MOUNTSTAT.  IT ASKS FOR RACK NUMBERS TO BE DELETED, WHICH MUST BE ENTERED
           ONE PER LINE, FOLLOWED BY AN END-OF-FILE.  IT MAKES ONE PASS THROUGH SYS:MOUNTSTAT,
           WHICH IS LOCKED FOR MODIFICATION, AND DELETES ANY RECORD WHICH HAS ONE OF THE
           SPECIFIED RACK NUMBERS.  AT UM, THIS PROGRAM IS RUN PERIODICALLY TO CLEAN OUT
           OLD SERIES OF RACK NUMBERS TO KEEP SYS:MOUNTSTAT AT A REASONABLE SIZE.  THIS
           PROGRAM WILL NEVER DELETE ANY RECORD WHICH HAS NOT BEEN PREVIOUSLY SAVED ON TAPE
           AND WILL HANDLE A FILE WHICH IS A MIXTURE OF RECORDS PRODUCED BY MNTSTAT (447/1)
           AND THE D3.0 TAPESTAT PROGRAM (NOW OBSOLETE).
0          Referenced by comments of: 447/1 
1                                                                                               THU SEP 12/96   23:39:34   Page  138
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00447/009   MOUNT STATISTICS         MSDEL PGM       OC  G          WSG:MSDEL(1000)                                                 
            D4T1    993  MOUNT_STATISTICS.MSDEL_PG.OC.009   1 LINE     80    2 PAGE UM   WSG                 JULY 27, 1977  03:20:27
00447/010   MOUNT STATISTICS         SYS:MOUNTSTAT   D            # MTS:TST.MOUNTSTA                                                
                                                                                    UM   WSG                                        
                         SYS:MOUNTSTAT        
00449      *DEB                                      S            # (OBSOLETED BY *SORT)                                            
            D2T1    341                                                             UM                                              
00451       CATALOG VERIFY - VNTD                                 # (SEE COMP 682)                                                  
                                                                                    UM                                              
00453/001   DRUM INIT <STAND-ALONE>                  SA     DNIT    S0722 'D3T3' FSNAME=DRUM_INIT_<STAND-ALONE>..SA.1(1)          15
            D4T1    994  DRUM_INIT_<STAND-ALONE>..SA.001    1 SEQ      80    7 PAGE UM   DWB                 AUG. 01, 1973  18:21.35
0          STAND ALONE PROGRAM TO FORMAT DRUMS.  HAS REP CARDS TO DEFINE CERTAIN PARAMETERS.
           UNCHANGED SINCE DIST 2.0
00453/002   DRUM INIT <STAND-ALONE>                  OC             S0722 'D3T3' FSNAME=DRUM_INIT_<STAND-ALONE>..OC.2(1)          16
            D4T1    995  DRUM_INIT_<STAND-ALONE>..OC.002    1 SEQ      80    6 PAGE UM   DWB                 AUG. 01, 1973  18:21.37
00455       DBS:MAC                                  SM           # (OBSOLETE)                                                      
            D3T3     17  DBS:MAC..SM.                       1 LINE     66    3 PAGE UM                       AUG. 01, 1973  18:21.38
00456      *CONFIG                                   SA           # (OBSOLETE)                                                      
            D2T1    318                                                             UM                                              
00457       TPSBUFFER                                SA           # (OBSOLETE)                                                      
            D2T1    147                                                             UM                                              
00458/001   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  1  
            D4T1    996  OLTEP.21.7_SOURCE.SA.001           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:06
0          458/1 THROUGH 458/76 CONTAIN THE SOURCE FOR OS/360 RELEASE 21.7 OLTEP.
           THIS IS ASSEMBLED WITH *OSMAC AND OLTEPMACLIB (458/77).
           OLTEP IS RUN UNDER FAKEOS (SEE COMP 545).
0          Referenced by comments of: 338/1 
00458/002   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  2  
            D4T1    997  OLTEP.21.7_SOURCE.SA.002           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:07
00458/003   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  3  
            D4T1    998  OLTEP.21.7_SOURCE.SA.003           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:09
00458/004   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  4  
            D4T1    999  OLTEP.21.7_SOURCE.SA.004           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:12
00458/005   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  5  
            D4T1   1000  OLTEP.21.7_SOURCE.SA.005           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:14
1                                                                                               THU SEP 12/96   23:39:34   Page  139
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00458/006   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  6  
            D4T1   1001  OLTEP.21.7_SOURCE.SA.006           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:16
00458/007   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  7  
            D4T1   1002  OLTEP.21.7_SOURCE.SA.007           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:18
00458/008   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  8  
            D4T1   1003  OLTEP.21.7_SOURCE.SA.008           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:21
00458/009   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  9  
            D4T1   1004  OLTEP.21.7_SOURCE.SA.009           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:23
00458/010   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  10 
            D4T1   1005  OLTEP.21.7_SOURCE.SA.010           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:25
00458/011   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  11 
            D4T1   1006  OLTEP.21.7_SOURCE.SA.011           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:28
00458/012   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  12 
            D4T1   1007  OLTEP.21.7_SOURCE.SA.012           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:30
00458/013   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  13 
            D4T1   1008  OLTEP.21.7_SOURCE.SA.013           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:32
00458/014   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  14 
            D4T1   1009  OLTEP.21.7_SOURCE.SA.014           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:35
00458/015   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  15 
            D4T1   1010  OLTEP.21.7_SOURCE.SA.015           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:37
00458/016   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  16 
            D4T1   1011  OLTEP.21.7_SOURCE.SA.016           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:39
00458/017   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  17 
            D4T1   1012  OLTEP.21.7_SOURCE.SA.017           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:41
00458/018   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  18 
            D4T1   1013  OLTEP.21.7_SOURCE.SA.018           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:44
00458/019   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  19 
            D4T1   1014  OLTEP.21.7_SOURCE.SA.019           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:46
00458/020   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  20 
            D4T1   1015  OLTEP.21.7_SOURCE.SA.020           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:48
00458/021   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  21 
            D4T1   1016  OLTEP.21.7_SOURCE.SA.021           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:51
00458/022   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  22 
            D4T1   1017  OLTEP.21.7_SOURCE.SA.022           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:53
1                                                                                               THU SEP 12/96   23:39:34   Page  140
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00458/023   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  23 
            D4T1   1018  OLTEP.21.7_SOURCE.SA.023           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:55
00458/024   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  24 
            D4T1   1019  OLTEP.21.7_SOURCE.SA.024           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:58
00458/025   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  25 
            D4T1   1020  OLTEP.21.7_SOURCE.SA.025           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:24:00
00458/026   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  26 
            D4T1   1021  OLTEP.21.7_SOURCE.SA.026           1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  03:24:02
00458/027   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  27 
            D4T1   1022  OLTEP.21.7_SOURCE.SA.027           1 SEQ      80   35 PAGE UM   MTA                 JULY 27, 1977  03:24:06
00458/028   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  28 
            D4T1   1023  OLTEP.21.7_SOURCE.SA.028           1 SEQ      80   19 PAGE UM   MTA                 JULY 27, 1977  03:24:07
00458/029   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  29 
            D4T1   1024  OLTEP.21.7_SOURCE.SA.029           1 SEQ      80   24 PAGE UM   MTA                 JULY 27, 1977  03:24:10
00458/030   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  30 
            D4T1   1025  OLTEP.21.7_SOURCE.SA.030           1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  03:24:12
00458/031   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  31 
            D4T1   1026  OLTEP.21.7_SOURCE.SA.031           1 SEQ      80   26 PAGE UM   MTA                 JULY 27, 1977  03:24:14
00458/032   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  32 
            D4T1   1027  OLTEP.21.7_SOURCE.SA.032           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:24:16
00458/033   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  33 
            D4T1   1028  OLTEP.21.7_SOURCE.SA.033           1 SEQ      80   23 PAGE UM   MTA                 JULY 27, 1977  03:24:19
00458/034   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  34 
            D4T1   1029  OLTEP.21.7_SOURCE.SA.034           1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  03:24:21
00458/035   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  35 
            D4T1   1030  OLTEP.21.7_SOURCE.SA.035           1 SEQ      80    8 PAGE UM   MTA                 JULY 27, 1977  03:24:23
00458/036   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  36 
            D4T1   1031  OLTEP.21.7_SOURCE.SA.036           1 SEQ      80    7 PAGE UM   MTA                 JULY 27, 1977  03:24:25
00458/037   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  37 
            D4T1   1032  OLTEP.21.7_SOURCE.SA.037           1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  03:24:27
00458/038   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  38 
            D4T1   1033  OLTEP.21.7_SOURCE.SA.038           1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  03:24:30
00458/039   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  39 
            D4T1   1034  OLTEP.21.7_SOURCE.SA.039           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:24:32
1                                                                                               THU SEP 12/96   23:39:34   Page  141
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00458/040   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  40 
            D4T1   1035  OLTEP.21.7_SOURCE.SA.040           1 SEQ      80   16 PAGE UM   MTA                 JULY 27, 1977  03:24:35
00458/041   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  41 
            D4T1   1036  OLTEP.21.7_SOURCE.SA.041           1 SEQ      80    8 PAGE UM   MTA                 JULY 27, 1977  03:24:37
00458/042   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  42 
            D4T1   1037  OLTEP.21.7_SOURCE.SA.042           1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  03:24:39
00458/043   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  43 
            D4T1   1038  OLTEP.21.7_SOURCE.SA.043           1 SEQ      80   37 PAGE UM   MTA                 JULY 27, 1977  03:24:42
00458/044   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  44 
            D4T1   1039  OLTEP.21.7_SOURCE.SA.044           1 SEQ      80   17 PAGE UM   MTA                 JULY 27, 1977  03:24:44
00458/045   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  45 
            D4T1   1040  OLTEP.21.7_SOURCE.SA.045           1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  03:24:46
00458/046   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  46 
            D4T1   1041  OLTEP.21.7_SOURCE.SA.046           1 SEQ      80   31 PAGE UM   MTA                 JULY 27, 1977  03:24:49
00458/047   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  47 
            D4T1   1042  OLTEP.21.7_SOURCE.SA.047           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:24:51
00458/048   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  48 
            D4T1   1043  OLTEP.21.7_SOURCE.SA.048           1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  03:24:53
00458/049   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  49 
            D4T1   1044  OLTEP.21.7_SOURCE.SA.049           1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  03:24:56
00458/050   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  50 
            D4T1   1045  OLTEP.21.7_SOURCE.SA.050           1 SEQ      80   10 PAGE UM   MTA                 JULY 27, 1977  03:24:58
00458/051   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  51 
            D4T1   1046  OLTEP.21.7_SOURCE.SA.051           1 SEQ      80    5 PAGE UM   MTA                 JULY 27, 1977  03:25:00
00458/052   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  52 
            D4T1   1047  OLTEP.21.7_SOURCE.SA.052           1 SEQ      80   24 PAGE UM   MTA                 JULY 27, 1977  03:25:03
00458/053   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  53 
            D4T1   1048  OLTEP.21.7_SOURCE.SA.053           1 SEQ      80   27 PAGE UM   MTA                 JULY 27, 1977  03:25:05
00458/054   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  54 
            D4T1   1049  OLTEP.21.7_SOURCE.SA.054           1 SEQ      80   24 PAGE UM   MTA                 JULY 27, 1977  03:25:07
00458/055   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  55 
            D4T1   1050  OLTEP.21.7_SOURCE.SA.055           1 SEQ      80   33 PAGE UM   MTA                 JULY 27, 1977  03:25:10
00458/056   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  56 
            D4T1   1051  OLTEP.21.7_SOURCE.SA.056           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:25:12
1                                                                                               THU SEP 12/96   23:39:34   Page  142
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00458/057   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  57 
            D4T1   1052  OLTEP.21.7_SOURCE.SA.057           1 SEQ      80   39 PAGE UM   MTA                 JULY 27, 1977  03:25:15
00458/058   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  58 
            D4T1   1053  OLTEP.21.7_SOURCE.SA.058           1 SEQ      80   32 PAGE UM   MTA                 JULY 27, 1977  03:25:17
00458/059   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  59 
            D4T1   1054  OLTEP.21.7_SOURCE.SA.059           1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  03:25:19
00458/060   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  60 
            D4T1   1055  OLTEP.21.7_SOURCE.SA.060           1 SEQ      80   20 PAGE UM   MTA                 JULY 27, 1977  03:25:21
00458/061   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  61 
            D4T1   1056  OLTEP.21.7_SOURCE.SA.061           1 SEQ      80   18 PAGE UM   MTA                 JULY 27, 1977  03:25:23
00458/062   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  62 
            D4T1   1057  OLTEP.21.7_SOURCE.SA.062           1 SEQ      80    8 PAGE UM   MTA                 JULY 27, 1977  03:25:25
00458/063   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  63 
            D4T1   1058  OLTEP.21.7_SOURCE.SA.063           1 SEQ      80   10 PAGE UM   MTA                 JULY 27, 1977  03:25:28
00458/064   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  64 
            D4T1   1059  OLTEP.21.7_SOURCE.SA.064           1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  03:25:30
00458/065   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  65 
            D4T1   1060  OLTEP.21.7_SOURCE.SA.065           1 SEQ      80   38 PAGE UM   MTA                 JULY 27, 1977  03:25:33
00458/066   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  66 
            D4T1   1061  OLTEP.21.7_SOURCE.SA.066           1 SEQ      80    7 PAGE UM   MTA                 JULY 27, 1977  03:25:34
00458/067   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  67 
            D4T1   1062  OLTEP.21.7_SOURCE.SA.067           1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  03:25:37
00458/068   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  68 
            D4T1   1063  OLTEP.21.7_SOURCE.SA.068           1 SEQ      80   19 PAGE UM   MTA                 JULY 27, 1977  03:25:39
00458/069   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  69 
            D4T1   1064  OLTEP.21.7_SOURCE.SA.069           1 SEQ      80   13 PAGE UM   MTA                 JULY 27, 1977  03:25:42
00458/070   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  70 
            D4T1   1065  OLTEP.21.7_SOURCE.SA.070           1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  03:25:44
00458/071   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  71 
            D4T1   1066  OLTEP.21.7_SOURCE.SA.071           1 SEQ      80   24 PAGE UM   MTA                 JULY 27, 1977  03:25:47
00458/072   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  72 
            D4T1   1067  OLTEP.21.7_SOURCE.SA.072           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:25:48
00458/073   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  73 
            D4T1   1068  OLTEP.21.7_SOURCE.SA.073           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:25:50
1                                                                                               THU SEP 12/96   23:39:34   Page  143
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00458/074   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  74 
            D4T1   1069  OLTEP.21.7_SOURCE.SA.074           1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  03:25:53
00458/075   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  75 
            D4T1   1070  OLTEP.21.7_SOURCE.SA.075           1 SEQ      80   26 PAGE UM   MTA                 JULY 27, 1977  03:25:56
00458/076   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  76 
            D4T1   1071  OLTEP.21.7_SOURCE.SA.076           1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  03:25:58
00458/077   OLTEP                    OLTEPMACLIB     SM  G          S0938 FSAVE2 VLO FSNAME=OLTEPMACLIB(1)                          
            D4T1   1072  OLTEP.OLTEPMACLIB.SM.077           1 LINE     72   56 PAGE UM   MTA                 SEP. 23, 1975  00:49:30
0          MACROS, SOME OF WHICH ARE USED BY OLTEP -- NOT SURE WHICH MACROS ARE NOT NEEDED.
0          Referenced by comments of: 458/1 
00458/078   OLTEP                    OBJECT          OC  G          ETC:OLTEP                                                       
            D4T1   1073  OLTEP.OBJECT.OC.078                1 SEQ     920    2 PAGE UM   MTA                 JULY 27, 1977  03:26:41
                         ETC.:OLTEP           
0          OBJECT FOR OLTEP MAIN PROGRAM AND IFDOLT59, WHICH IS INCLUDED TO GET THE RIGHT
           DEFINITION OF SOME MULTIPLY DEFINED SYMBOLS.
00458/079   OLTEP                    OLTEPLIB        OL  G          ETC:OLTEPLIB                                                    
            D4.2T1  225  OLTEP.OLTEPLIB.OL.079              1 LINE   2572   64 PAGE UM   MTA                 MAR. 26, 1979  02:54:19
                         ETC.:OLTEPLIB        
0          OBJECT LIBRARY FOR THE REST OF OLTEP.  SOME MODULES WHICH ARE NOT USED IN MTS ARE INCLUDED.
           THE FOLLOWING PATCHES ARE INCLUDED BECAUSE THESE MODULES USE MACROS WHICH ARE NOT IN *OSMAC:
           TO IFDOLT20:   REP  000000  0141F00020,07FE
           TO IFDOLT22:   REP  000386  014700
0          Referenced by comments of: 458/80 
00458/080   OLTEP                    OLTEPBLDLIN     D   G          MTA:OLTEPBLDLIN                                                 
            D4.2T1  226  OLTEP.OLTEPBLDLIN.D.080            1 LINE     60    1 PAGE UM   MTA                 MAR. 26, 1979  02:54:23
                         MTA.:OLTEPBLDLIN     
0          INPUT TO CREBLDL (545/36) FOR OLTEP.  CONTAINS ENTRIES FOR THINGS IN
           OLTEPLIB (458/79), BUT NOT OLTEPCDSLIB (458/86) OR OLTEPTSTLIB (458/82).
00458/081   OLTEP                    OLTEPBLDL       D   G          ETC:OLTEPBLDL                                                   
            D4.2T1  227  OLTEP.OLTEPBLDL.D.081              1 SEQ     242    9 PAGE UM   MTA                 MAR. 26, 1979  02:54:23
                         ETC.:OLTEPBLDL       
0          BLDL INFO FOR OLTEP.  CREATED BY CREBLDL (545/36) USING 458/80, 458/83, AND 
           458/85 AS INPUT.
00458/082   OLTEP                    OLTEPTSTLIB     OL  G          MTS:OLTEPTSTLIB                                                 
            D4.2T1  228  OLTEP.OLTEPTSTLIB.OL.082           1 LINE  26386  242 PAGE UM   MTA                 MAR. 26, 1979  02:54:24
                         ETC.:OLTEPTSTLIB     
0          OBJECT LIBRARY FOR TEST SECTIONS AND CDS (CONFIGURATION DATA SET)
           MODULES.  INCLUDES TESTS FOR:  2400, 2301, 2540, 2541, 2501, 1403,
1                                                                                               THU SEP 12/96   23:39:34   Page  144
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          2305, 2671, 2835, 3270, AND 3274.  ALSO INCLUDES SOSP FOR USE IN BUILDING
           CDS ENTRIES AND RETRIEVING TEST SECTIONS FROM THE OLTSEP TAPE. 
           SOSP IS VERSION 8.0.  TO ADD NEW TEST SECTIONS, SIMPLY PUT THEM IN
           THIS LIBRARY AND ADD A LINE FOR EACH TO OLTEPTSTBLDL (458/83) (AND
           RUN IT THROUGH CREBLDL).  EACH TEST SECTION MUST HAVE AN ENTRY
           WITH THE SAME NAME AS THE SECTION (E.G. T2400A).
            
           PUT THIS IN ETC:OLTEPTSTLIB.
0          Referenced by comments of: 458/80 
00458/083   OLTEP                    OLTEPTSTBLDL    D              MTA:OLTEPTSTBLDL                                                
            D4.2T1  229  OLTEP.OLTEPTSTBLDL.D.083           1 LINE     60    7 PAGE UM   MTA                 MAR. 26, 1979  02:54:36
                         MTA:OLTEPTSTBLDL     
0          INPUT TO CREBLDL (545/36) FOR 458/82.
0          Referenced by comments of: 458/82 
00458/084   OLTEP                    OLTEPCDS        D              MTA:OLTEPCDS                                                    
            D4.2T1  230  OLTEP.OLTEPCDS.D.084               1 LINE     64    8 PAGE UM   MTA                 MAR. 26, 1979  02:54:37
                         MTA.:OLTEPCDS        
0          INPUT TO SOSPB TO PRODUCE  A CDS FOR THE UM HARDWARE CONFIGURATION.  THIS
           MUST BE COPIED TO A TAPE AND THE TAPE USED AS INPUT TO SOSPB (WITH THE OLTSEP
           TAPE AND AN OUTPUT TAPE ALSO AVAILABLE).
0          Referenced by comments of: 458/86 
00458/085   OLTEP                    OLTEPCDSBLDL    D              MTA:OLTEPCDSBLDL                                                
            D4.2T1  231  OLTEP.OLTEPCDSBLDL.D.085           1 LINE     60   11 PAGE UM   MTA                 MAR. 26, 1979  02:54:38
                         MTA.:OLTEPCDSBLDL    
0          INPUT TO CREBLDL FOR THE UM CONFIGURATION CDS.
00458/086   OLTEP                    OLTEPCDSLIB     OL  G          ETC:OLTEPCDSLIB                                                 
            D4.2T1  232  OLTEP.OLTEPCDSLIB.OL.086           1 LINE   6552   40 PAGE UM   MTA                 MAR. 26, 1979  02:54:40
                         ETC.:OLTEPCDSLIB     
0          LIBRARY OF CDS ENTRIES FOR THE UM CONFIGURATION PRODUCED BY SOSP READING
           OLTEPCDS (458/84).
0          Referenced by comments of: 458/80 
00458/087   OLTEP                    OLTEPOBJCVT     SA  O          MTA:OLTEPOBJCVT(1,999)                                          
            D4T1   1081  OLTEP.OLTEPOBJCVT.SA.086           1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  03:27:09
                         MTA.:OLTEPOBJCVT     
0          PROGRAM TO CONVERT OLTSEP, OLTEP, OR CDS DECKS WITH OR WITHOUT OS LINKEDIT
           CONTROL CARDS TO MTS FORMAT AND PRODUCE INPUT TO CREBLDL FOR THEM.  THE INPUT
           IS READ FROM SCARDS; THE MTS OBJECT DECKS ARE WRITTEN ON SPUNCH; A PROTOTYPE
           BLDL RECORD IS READ FROM UNIT 0; AND BLDL OUTPUT RECORDS WITH CORRECT NAME
           AND LENGTH ARE WRITTEN ON UNIT 1.
1                                                                                               THU SEP 12/96   23:39:34   Page  145
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00458/088   OLTEP                    OLTEPOBJCVT     OC  O          MTA:OLTEPOBJCVT(1000)                                           
            D4T1   1082  OLTEP.OLTEPOBJCVT.OC.087           1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  03:27:11
00458/089   OLTEP                    OLTEPCMD        C              MTA:OLTEPCMD                                                    
            D4T1   1083  OLTEP.OLTEPCMD.C.088               1 LINE     95    1 PAGE UM   MTA                 JULY 27, 1977  03:27:14
                         MTA.:OLTEPCMD        
0          THE FOLLOWING PROCEDURES SHOULD BE USED FOR RELEASE 21.7 OLTEP.
           TO RUN OLTEP, ISSUE THE FOLLOWING COMMAND:
            
             $SOURCE OLTEPCMD
            
           WHERE OLTEPCMD IS 458/89 MODIFIED FOR LOCAL FILE NAMES.  THIS WILL LOAD THE SPECIAL VERSION
           OF FAKEOS AND START OLTEP WITH THE COMMENT "IFD102I OLTS RUNNING" BEING PRINTED.
           FURTHER OPERATOR COMMUNICATION WITH OLTEP IS DESCRIBED IN THE IBM MANUAL (FORM GC28-6650-6) ON PAGES 41-47.
           THE OPERATION OF OLTEP IN MTS IS AS DESCRIBED IN THIS MANUAL EXCEPT FOR THE FOLLOWING:
           (1)  PAGES 1-40 DESCRIBE HOW TO INSTALL AND INVOKE OLTEP IN OS AND ARE IRRELEVANT.
           (2)  THE PROCEDURE REQUIRED TO INTERRUPT A TEST IS TO PRESS THE ATTENTION KEY.
           (3)  ALL COMMUNICATION IS VIA THE TERMINAL, NOT THE OPERATOR'S CONSOLE.
           (4)  IT IS NOT NECESSARY TO TYPE "R 00,'XXX'", SINCE "XXX" IS TREATED IN EXACTLY THE SAME WAY.
           (5)  THE PRINTED OUTPUT FROM OLTEP (REFERED TO AS THE DIAGMSG DD IN THE MANUAL) WILL BE PUT
                IN THE TEMPORARY FILE -DIAG WHICH MAY BE COPIED TO *PRINT* AFTER OLTEP TERMINATES.
00459      *ICSERIES                                 S            # (OBSOLETE)                                                      
            D2T2    155                                                             UM                                              
00460       WIREWRAP TEST                                         # (OBSOLETE)                                                      
            D2T2    156                                                             UM                                              
00461/001   DISTRIBUTION             DEDIT           SA  G          WSG:DEDIT                                                       
            D4.2T1  233  DISTRIBUTION.DEDIT.SA.001          1 LINE     72   28 PAGE UM   WSG                 MAR. 26, 1979  02:54:43
                         WSG.:DEDIT           
0          DISTRIBUTION DRIVER FILE EDITOR USED TO CONSTRUCT AND EDIT DRIVER FILES.
           COPIES COPY:DRDSECT (461/11) AND *CNFGINFODSECT (654).
0          Referenced by comments of: 461/11 
00461/002   DISTRIBUTION             *DEDIT          OE  G          *DEDIT                                                          
            D4.2T1  234  DISTRIBUTION.*DEDIT.OE.002         1 LINE  11192    6 PAGE UM   WSG                 MAR. 26, 1979  02:54:45
                         *DEDIT               
00461/003   DISTRIBUTION             5-LINE          SA  G  5LIN    S0722 'D3T3' FSNAME=DISTRIBUTION.5-LINE.SA.7(1)               31
            D4T1   1086  DISTRIBUTION.5-LINE.SA.003         1 LINE     80    8 PAGE UBC  HOGG                MAR. 01, 1973  19:33:27
0          PROGRAM TO PRINT THE FIRST 5 AND LAST 5 LINES OF EACH FILE ON A *FS TAPE.  USED TO VERIFY DIST TAPE CONTENTS.
00461/004   DISTRIBUTION             5-LINE          OC  G          MTS:FS5L                                                        
            D4T1   1087  DISTRIBUTION.5-LINE.OC.004         1 LINE     80    3 PAGE UBC  HOGG                JULY 27, 1977  03:27:34
                         MTS.:FS5L            
1                                                                                               THU SEP 12/96   23:39:34   Page  146
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00461/005B  DISTRIBUTION             6250 DRIVER     D              MTS:DRIVER6250                                                  
            RD16T2  381  DISTRIBUTION.6250_DRIVER.D.005     1 LINE    263  282 PAGE UM   SWEET               JULY 23, 1979  17:00:00
                         MTS:DRIVER6250       
0          THIS IS THE COMPLETE DRIVER FILE FOR THE 6250 BPI VERSION OF UM RD16.  ITEMS
           INCLUDED IN RD16 ARE MARKED WITH REVISION LEVELS AS FOLLOWS:
            
           REVL=B    LATER VERSIONS OF COMPONENTS SENT ON D4.2.  THESE WILL 
                     ALSO BE SENT OUT WITH THE NEXT REGULAR SYSTEM 
                     DISTRIBUTION.
            
           REVL=C    NEW SUBCOMPONENTS WHICH HAVE BEEN ADDED TO THE 
                     PRODUCTION SYSTEM AT UM SINCE D4.2 AND WHICH ARE TO BE
                     INCLUDED IN THE NEXT REGULAR DISTRIBUTION.
            
           REVL=D    PRELIMINARY VERSIONS OF PROGRAMS FOR PERUSAL AND/OR
                     TESTING BY OTHER INSTALLATIONS.  THIS CATEGORY IS
                     INTENDED FOR COMPONENTS WHICH MAY BE DESTINED TO
                     BECOME A PART OF THE PRODUCTION SYSTEM AT UM, BUT,
                     DUE TO THEIR CURRENT PRELIMINARY STATE ARE NOT YET
                     SUITABLE FOR INCLUSION.  DEPENDING UPON WHETHER OR
                     NOT IT HAS BEEN DECIDED IF THE COMPONENT WILL
                     DEFINITELY BE INCLUDED IN THE PRODUCTION SYSTEM
                     EVENTUALLY, EITHER A COMPONENT NUMBER IN UM'S
                     RANGE WAS ASSIGNED OR IT WAS GIVEN A NUMBER IN
                     THE "THROWAWAY" RANGE 9000 TO 9999.
            
           REVL=X    COMPONENTS WHICH ARE TO BE SENT ONLY ON A
                     REDISTRIBUTION TAPE. THESE COMPONENTS HAVE NUMBERS
                     IN THE RANGE 9000 TO 9999.
0          Referenced by comments of: 461/13 
00461/006B  DISTRIBUTION             1600 DRIVER     D            = MTS:DRIVER1600                                                  
            D4.2T2  559  DISTRIBUTION.1600_DRIVER.D.006     1 LINE    263  273 PAGE UM   SWEET               APR. 16, 1979  03:32:43
                         MTS:DRIVER1600       
0          THIS IS THE COMPLETE DRIVER FILE FOR THE 1600 BPI VERSION OF UM RD16.  ITEMS
           INCLUDED IN RD16 ARE MARKED WITH REVISION LEVELS AS INDICATED IN THE COMMENTS
           FOR 461/5.
0          Referenced by comments of: 461/14 
00461/007B  DISTRIBUTION             DRIVER COMMENT  D              MTS:COMM                                                        
            RD16T2  382  DISTRIBUTION.DRIVER_COMME.D.007    1 LINE    138  135 PAGE UM   SWEET               JULY 23, 1979  17:00:00
                         MTS:COMM             
0          THIS IS THE COMMENT FILE FOR THE RD16 DRIVER FILES (461/5 AND 461/6).  LINE NUMBERS IN
           THIS FILE ARE IMPORTANT.
1                                                                                               THU SEP 12/96   23:39:34   Page  147
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00461/008   DISTRIBUTION             NEW SYSTEMS     WF             S1320 D4.2T2 VLO FSNAME=DISTRIBUTION.NEW_SYSTEMS.WF.008(1)   551
            D4.2T2  551  DISTRIBUTION.NEW_SYSTEMS.WF.008    1 LINE    147    3 PAGE UM   WSG                 APR. 16, 1979  03:24:51
                         WSG.:NEWSYS.WF       
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.2 AT NEW INSTALLATIONS,
           I.E. INSTALLATIONS WHICH HAVE NOT PREVIOUSLY USED MTS.
00461/009   DISTRIBUTION             OLD SYSTEMS     WF             S1320 D4.2T2 VLO FSNAME=DISTRIBUTION.OLD_SYSTEMS.WF.009(1)   552
            D4.2T2  552  DISTRIBUTION.OLD_SYSTEMS.WF.009    1 LINE     76    7 PAGE UM   WSG                 APR. 16, 1979  03:24:52
                         WSG.:OLDSYS.WF       
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.2 AT OLD INSTALLATIONS,
           I.E. INSTALLATIONS WHICH HAVE PREVIOUSLY USED MTS.
00461/010   DISTRIBUTION             GENERAL NOTES   WF             W095:GEN.NOTES                                                  
            D4.2T1  235  DISTRIBUTION.GENERAL_NOTE.WF.010   1 LINE    147    9 PAGE UM   WSG                 MAR. 26, 1979  02:55:05
0          GENERAL NOTES ON DISTRIBUTION 4.2.
00461/011   DISTRIBUTION             DRIVER DSECT    SA  G  DRVD    COPY:DRDSECT                                                    
            D4.1T1  163  DISTRIBUTION.DRIVER_DSECT.SA.010   1 LINE     80    3 PAGE UM   WSG                 MAY  13, 1978  17:21:51
                         COPY:DRDSECT         
0          COPY SECTION FOR THE DRIVER FILE DSECT USED BY *FS (548) AND *DEDIT (461/1).
           IT DEFINES THE STRUCTURE OF A DISTRIBUTION DRIVER FILE RECORD.
0          Referenced by comments of: 461/1, 548/1 
00461/012   DISTRIBUTION             DRIV INDEX GEN  C              MTS:DISTINDEX                                                   
            D4.2T1  236  DISTRIBUTION.DRIV_INDEX_G.C.012    1 LINE    133    1 PAGE UM   SWEET               MAR. 26, 1979  02:55:09
                         MTS.:DISTINDEX       
0          COMMAND FILE TO PRODUCE A DRIVER FILE ALPHABETIZED INDEX.
00461/013   DISTRIBUTION             6250 INDEX      P              MTS:INDEX6250                                                   
            D4.2T2  561  DISTRIBUTION.6250_INDEX.P.013      1 LINE    133  164 PAGE UM   SWEET               APR. 16, 1979  03:33:10
                         MTS:INDEX6250        
0          INDEX FOR THE 6250 BPI DRIVER FILE (461/5).  COPY TO A TN PRINTER.
00461/014   DISTRIBUTION             1600 INDEX      P              MTS:INDEX1600                                                   
            D4.2T2  562  DISTRIBUTION.1600_INDEX.P.014      1 LINE    133  164 PAGE UM   SWEET               APR. 16, 1979  03:33:34
                         MTS:INDEX1600        
0          INDEX FOR THE 1600 BPI DRIVER FILE (461/6).  COPY TO A TN PRINTER.
00461/015   DISTRIBUTION             D4.2 MEMO LIST  WF             W095:MEMOLIST                                                   
            D4.2T1  237  DISTRIBUTION.D4.2_MEMO_LI.WF.015   1 LINE    112    5 PAGE UM   SWEET               MAR. 26, 1979  02:55:17
0          WRITEUP SHOWING THE STATUS OF ALL COMPUTING CENTER MEMOS AT THE TIME OF D4.2.
           DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6).
1                                                                                               THU SEP 12/96   23:39:34   Page  148
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00461/016   DISTRIBUTION             CHG FORMS CMDS  C              MTS:CHANGEFORMS                                                 
            D4.1T1  166  DISTRIBUTION.CHG_FORMS_CM.C.014    1 LINE     66    1 PAGE UM   DWB                 MAY  13, 1978  17:21:58
                         MTS.:CHANGEFORMS     
0          COMMAND FILE TO RUN THE DISTRIBUTION CHANGE FORM GENERATION PROGRAM (461/17)
           WHICH READS THE CHANGE FORM DATA FILE (461/18) TO PRODUCE CHANGE FORMS IN THE
           FILE -FORMS.
00461/017   DISTRIBUTION             CHG FORMS PGM   SS  G          MTS:CHGFORMPGM                                                  
            D4.2T2  518  DISTRIBUTION.CHG_FORMS_PG.SS.017   1 LINE     78    3 PAGE UM   DWB                 APR. 09, 1979  00:16:29
                         MTS.:CHGFORMPGM      
0          SPITBOL PROGRAM TO PROCESS THE CHANGE FORM DATA FILE (461/18) AND PRODUCE CHANGE
           FORMS.
0          Referenced by comments of: 461/16, 461/18 
00461/018B  DISTRIBUTION             CHG FORMS DATA  D              MTS:CHGFORMDATA                                                 
            RD16T1   57  DISTRIBUTION.CHG_FORMS_DA.D.018    1 LINE     89   79 PAGE UM   DWB                 JULY 12, 1979  22:39:49
                         MTS.:CHGFORMDATA     
0          DATA FILE OF CHANGE FORMS RELEVANT TO THE D4 DISTRIBUTION.  TO BE USED AS INPUT
           TO THE CHANGE FORM PROGRAM (461/17) TO PRODUCE THE ACTUAL PRINTED FORMS.  THE
           CONSTRUCTION OF THIS DATA FILE IS DESCRIBED IN 461/19.
0          Referenced by comments of: 461/16, 461/17, 461/19 
00461/019   DISTRIBUTION             CHG FORMS DESC  WF             DWB:CHGFORMNOTE                                                 
            D4.1T1  169  DISTRIBUTION.CHG_FORMS_DE.WF.017   1 LINE     68    3 PAGE UM   DWB                 MAY  13, 1978  17:22:07
                         DWB.:CHGFORMNOTE     
0          MEMO TO UM COMPUTING CENTER STAFF ABOUT HOW TO CONSTRUCT THE CHANGE FORMS
           DATA FILE (461/18).
00461/020   DISTRIBUTION             MEMO 378        WF             W098:M378                                                       
            D4.1T1  170  DISTRIBUTION.MEMO_378.WF.018       1 LINE     92   11 PAGE UM   PIRKOLA             MAY  13, 1978  17:22:07
0          THIS IS COMPUTING CENTER MEMO 378 -- "SUPPORT CATEGORIES FOR COMPUTING
           CENTER SOFTWARE."
00461/021   DISTRIBUTION             FM.GEN          SS  G          WSG:FM.GEN                                                      
            D4.2T1  238  DISTRIBUTION.FM.GEN.SS.021         1 LINE     75    2 PAGE UM   WSG                 MAR. 26, 1979  03:04:25
                         WSG:FM.GEN           
0          MTS COMMANDS AND A SPITBOL PROGRAM TO GENERATE INPUT FOR THE FILE MOVE
           PROGRAM (1020) WHICH CAN BE USED TO BUILD A TEST PACK BASED ON A DRIVER
           FILE.  THE PROGRAM WILL ASK FOR THE FOLLOWING:
              (1) THE NAME OF A FILE WHICH CONTAINS A COMPLETE LIST OF THE FILES
                  CURRENTLY ON THE TEST PACK (POSSIBLY NULL),
              (2) THE NAME OF THE DRIVER FILE, AND 
              (3) THE DRIVER FILE REVISION LEVEL TO BE USED (ENTER A NULL LINE FOR
                  A FULL DISTRIBUTION).
           THE PROGRAM WILL READ THROUGH THE DRIVER FILE AND, FOR LINES WHICH HAVE
           A NON-BLANK DISK NAME FIELD (SEE *DEDIT WRITEUP) AND THE APPROPRIATE
1                                                                                               THU SEP 12/96   23:39:34   Page  149
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          REVISION LEVEL, IT WILL OUTPUT (ON SPUNCH) RECORDS WHICH CAN BE USED AS
           INPUT TO FILE MOVE.  THE PROGRAM WILL PRINT AN ERROR MESSAGE (ON SPRINT)
           FOR ANY COMPONENT (AT THE SPECIFIED REVISION LEVEL) WHICH HAS A BAD SAVE
           CONTROL FIELD OR WHICH IS LOCATED ON TAPE (SINCE FILE MOVE CAN'T READ
           TAPES).  IT WILL ALSO OUTPUT (ON UNIT 0) A NEW FILE LIST FOR THE PACK,
           I.E., A LIST OF WHAT FILES WILL BE ON THE PACK AFTER FILE MOVE IS RUN.
00461/022   DISTRIBUTION             MTS421 FILES    D              S1320 D4.2T2 VLO FSNAME=DISTRIBUTION.MTS421_FILES.D.022(1)   553
            D4.2T2  553  DISTRIBUTION.MTS421_FILES.D.022    1 LINE     17    7 PAGE UM   WSG                 APR. 16, 1979  03:24:59
                         MTS:MTS421.FILES     
0          A LIST OF ALL THE FILES ON THE D4.2 DUMP/RESTORE PACK.
00461/023   DISTRIBUTION             DEDIT WRITEUP   PT           = S1319 D4.2T1 VLO FSNAME=DISTRIBUTION.DEDIT_WRITEU.PT.023(1)  239
            D4.2T1  239  DISTRIBUTION.DEDIT_WRITEU.PT.023   1 LINE    103   14 PAGE UM   WSG                 MAR. 26, 1979  03:04:30
                         WSG.:DEDIT.PT        
0          TEMPORARY VOLUME 2 WRITEUP FOR D4.2 *DEDIT.  COPY TO A TN PRINTER @MCC.
           DESCRIBES THE FOLLOWING NEW FEATURES:
            
           (1) "WITH PROMPT" OPTION ON INSERT COMMAND.
           (2) UPDATE  ALL|/COMMAND¬ COMMAND.
           (3) /DISKNAME COMMAND
00461/024C  DISTRIBUTION             MTS BIB         WF             W098:EAS.PUBLIT                                                 
            RD16T1   58  DISTRIBUTION.MTS_BIB.WF.024        1 LINE     69    2 PAGE UM   SWEET               JULY 12, 1979  22:41:15
0          BIBLIOGRAPHY OF PUBLISHED PAPERS ABOUT MTS AND FRIENDS.
00462       CHECKSUM                                 SA           # (OBSOLETED BY PROTECTION)                                       
            D3T3     36  CHECKSUM..SA.1                     1 SEQ      80    3 PAGE UM                       AUG. 01, 1973  18:30.28
00463/001   STDDMP SUBR                              SA  G          MTS:STDDMP(1000)                                                
            D4.2T1  240  STDDMP_SUBR..SA.001                1 LINE     72    5 PAGE UM   MTA                 MAR. 26, 1979  03:04:31
                         MTS:STDDMP           
0          PRODUCES STANDARD FORMAT DUMPS.  SEE ALSO SDUMP (049).
00463/002   STDDMP SUBR                              OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00464/001   PLIMIT                   D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=PLIM                        
            D4T1   1094  PLIMIT.D4_MASTER.SA.001            1 SEQ      80    3 PAGE UM   MTS       HELFFRICH JULY 27, 1977  03:28:49
0          CHECKS PAGE AND PUNCH LIMITS.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1).
00464/002B  PLIMIT                   UPDATE          UC  G          MTS:PLIMUPD                                                     
            RD16T1   59  PLIMIT.UPDATE.UC.002               1 LINE     68    1 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:41:16
                         MTS.:PLIMUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=PLIM.
1                                                                                               THU SEP 12/96   23:39:34   Page  150
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00464/003B  PLIMIT                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00464/004B  PLIMIT                                   L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=PLIM.LIST             8   
            RD16T1   60  PLIMIT..L.004                      1 SEQ     133   19 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:41:38
00465/001B *APL                      MTS INTERFACE   SA  G          W170:APL.MTS(1000)                                              
            RD16T1   61  APL.MTS_INTERFACE.SA.001           1 LINE     72   31 PAGE UM   HELFFRICH           JULY 12, 1979  22:41:38
0          THE APL-MTS INTERFACE.  ASSEMBLE USING THE APL MACRO LIBRARY (465/3).  CONTAINS
           THE OBJECT AT LINE 1 AND THE SOURCE AT LINE 1000.  COPIES APLDEFN, DIRSECT,
           ZSYMBOLS, AND PERTERM FROM THE APL MACRO LIBRARY (465/3), *GFINFODSECT (593)
           AND *CNFGINFODSECT (654).
            
           THIS IS A 370-ONLY VERSION OF APL, AND DOES NOT EVER NEED TO BE RUN WITH 
           PROT=OFF.  PREVIOUSLY, THIS HAD TO BE DONE IF APL WAS LOADED INTO SHARED
           VM SO IT WOULD MODIFY ITSELF TO USE MVCL LOGIC TO CLEAR WORKSPACES IF RUNNING
           ON A 370.
00465/002  *APL                      TRTABS          SA  G  TRTA    S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TRTA.S                    
            D4T1   1099  APL.TRTABS.SA.002                  1 LINE     80   43 PAGE UM   HELFFRICH           MAR. 04, 1977  19:14:31
0          SOURCE FOR THE APL TRANSLATE TABLES TO CONVERT APL INTERNAL CHARACTERS TO EXTERNAL
           CHARACTERS.  INCLUDES TABLES FOR:  1052, 1050, 2741, CORRESPONDENCE 2741, TTY 38
           APL ASSIGNMENT #3, GSI300/DTC300/DTC302, APL2 DEVICES (DDI265), LA36, AND ASCII
           DEVICES.  ASSEMBLE USING THE APL MACRO LIBRARY (465/3).
00465/003  *APL                      MACRO LIBRARY   SM  G  ALIB    S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.MACROS                    
            D4T1   1100  APL.MACRO_LIBRARY.SM.003           1 LINE     80   21 PAGE UM   HELFFRICH           MAR. 04, 1977  19:05:51
0          MACRO LIBRARY CONTAINING MACROS AND COPY SECTIONS REQUIRED FOR ASSEMBLING ALL
           THE APL SOURCE COMPONENTS.
0          Referenced by comments of: 465/1, 465/2, 465/4, 465/5, 465/6, 465/7, 465/8, 465/9, 465/10, 465/11, 465/12, 465/13 
00465/004  *APL                      ARTH UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.ARTH.U                    
            D4T1   1101  APL.ARTH_UPDATE.UU.004             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:17:46
0          UPDATE TO BE APPLIED TO ORIGINAL SOURCE TO YIELD CURRENT UM SOURCE FOR ARTH MODULE.
           THE SUCCEEDING SUB-COMPONENTS (365/5 THROUGH 365/12) ARE SIMILAR.  ARTH CHANGES:
           MACRO FIXUP AND RECOGNITION OF "REVERSAL ALONG FIRST DIMENSION" OPERATOR.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/005  *APL                      DEXP UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DEXP.U                    
            D4T1   1102  APL.DEXP_UPDATE.UU.005             1 LINE     61    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:18:21
0          SEE COMMENTS FOR 465/4.  DEXP CHANGES:  FIX OF BUG CAUSING OCCASIONAL WRONG SIGN
           OF VALUE RETURNED BY SQUARE ROOT.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/006  *APL                      DYIB UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DYIB.U                    
            D4T1   1103  APL.DYIB_UPDATE.UU.006             1 LINE     65    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:18:55
0          SEE COMMENTS FOR 465/4.  DYIB CHANGES:  IMPLEMENTATION OF PRIVILEGED DYADIC OPERATIONS.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
1                                                                                               THU SEP 12/96   23:39:34   Page  151
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00465/007  *APL                      IBAR UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.IBAR.U                    
            D4T1   1104  APL.IBAR_UPDATE.UU.007             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:19:29
0          SEE COMMENTS FOR 465/4.  IBAR CHANGES:  CHANGE TO RETRIEVAL METHOD FOR TIME OF
           DAY IBEAM.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/008  *APL                      OCTL UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.OCTL.U                    
            D4T1   1105  APL.OCTL_UPDATE.UU.008             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:20:01
0          SEE COMMENTS FOR 465/4.  OCTL CHANGES:  CHANGES FOR CATN.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/009  *APL                      REDU UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.REDU.U                    
            D4T1   1106  APL.REDU_UPDATE.UU.009             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:20:30
0          SEE COMMENTS FOR 465/4.  REDU CHANGES:  YIELDS NONCE ERROR IF "SCAN" OPERATION
           IS ATTEMPTED.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/010  *APL                      SLCT UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.SLCT.U                    
            D4T1   1107  APL.SLCT_UPDATE.UU.010             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:21:01
0          SEE COMMENTS FOR 465/4.  SLCT CHANGES:  RECOGNITION OF EXPANSION AND COMPRESSION
           ALONG FIRST DIMENSION SYMBOLS.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/011  *APL                      TPIN UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TPIN.U                    
            D4.2T1  242  APL.TPIN_UPDATE.UU.011             1 LINE     72   12 PAGE UM   HELFFRICH           JAN. 16, 1979  15:32:03
0          SEE COMMENTS FOR 465/4.  TPIN CHANGES:  )SYMBOLS COMMAND IMPLEMENTED; BUG RELATING
           TO IGNORING OF INPUT AFTER ATTN INTERRUPT FIXED; CHANGES TO OBTAIN DATE DIFFERENTLY;
           )COPY AND )PCOPY ERROR REPORTING ADDED.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY
           (465/3).
00465/012  *APL                      VECT UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.VECT.U                    
            D4T1   1109  APL.VECT_UPDATE.UU.012             1 LINE     65    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:22:13
0          SEE COMMENTS FOR 465/4.  VECT CHANGES:  CALLS ERROR$ RATHER THAN ERROR.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/013  *APL                      CATN            SA  G  ACTN    S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.CATN.S                    
            D4.1T1  179  APL.CATN.SA.013                    1 LINE     80   13 PAGE UM   HELFFRICH           FEB. 02, 1978  15:13:19
0          REWRITE OF CATENATION PROCESSOR TO PROVIDE FULL CATENATION CAPABILITIES IN APL/MTS.
           COPIES OPSECT AND APLDEFN FROM THE APL MACRO LIBRARY (465/3).
00465/014B *APL                      OBJECT          OC  G          SEG2:S2APL                                                      
            RD16T1   62  APL.OBJECT.OC.014                  1 LINE  11225  110 PAGE UM   HELFFRICH           JULY 12, 1979  22:41:46
                         SEG2:S2APL           
0          APL OBJECT LOADED INTO SHARED VM BY PISTLE AT IPL.
0          Referenced by comments of: 465/15 
1                                                                                               THU SEP 12/96   23:39:34   Page  152
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00465/015  *APL                      *APL            OC  G          *APL                                                            
            D4T1   1112  APL.*APL.OC.015                    1 LINE     24    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:35:49
                         *APL                 
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM APL (465/14).
00465/016  *APL                      MEMO 382        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M382APL                          
            D4.2T1  244  APL.MEMO_382.WF.016                1 LINE    130   12 PAGE UM   HELFFRICH           SEP. 07, 1978  17:00:42
0          THIS IS COMPUTING CENTER MEMO 382 -- "MTS APL USERS' GUIDE".
           NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY.
00466/001   ACTIVCNT/ASTATSUB                        SA  G  ACAS    MTS:ACTIVCNT(1,99)                                              
            D4T1   1114  ACTIVCNT/ASTATSUB..SA.001          1 LINE     80    1 PAGE UM   DWB                 JULY 27, 1977  03:35:53
                         MTS.:ACTIVCNT        
0          ACTIVCNT CONTAINS THE NUMBER OF USERS SIGNED ON AND ASTATSUB IS USED
           TO COMMUNICATE BETWEEN MTS AND THE STAT JOB.
           ACTIVCNT HAS BEEN EXPANDED SINCE DIST 2.0 FROM ONE TO THREE WORDS.  THE EXTRA TWO WORDS (ONE FOR BATCH,
           ONE FOR TERMINAL) ARE INCREMENTED WHENEVER ANYONE SIGNS OFF.  THIS PERMITS PROGRAMS TO MEASURE JOB
           THROUGHPUT CONVENIENTLY.  ASTATSUB IS UNCHANGED SINCE DIST 2.0.
00466/002   ACTIVCNT/ASTATSUB                        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00467/001   ENDSEG2                                  SA  G          MTS:ENDSEG2.S                                                   
            D4.1T1  181  ENDSEG2..SA.001                    1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  17:23:16
0          ASSEMBLY TO MARK THE END OF THE IPLED PART OF SHARED VM.
00467/002   ENDSEG2                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00468/001   RESIDENT SYSTEM          D4.2 SYS        D              MTS:D4.2SYS                                                     
            D4.2T2  554  RESIDENT_SYSTEM.D4.2_SYS.D.001     1 SEQ    4100  140 PAGE UM   WSG                 APR. 16, 1979  03:25:00
                         *IPL.D4.2            
0          RAMROD IPL FILE FOR D4.2 SYSTEM (WITH DUMMY TABLES) ON DUMP/RESTORE PACK.
0          Referenced by comments of: 482/4, 482/26 
00468/002   RESIDENT SYSTEM          D4.2 UM SYS     D              MTS:TST.IPL.0                                                   
            D4.2T2  555  RESIDENT_SYSTEM.D4.2_UM_S.D.002    1 SEQ    4100  145 PAGE UM   WSG                 APR. 16, 1979  03:25:05
                         *IPL.0               
0          RAMROD IPL FILE FOR D4.2 SYSTEM WITH UM I/O CONFIGURATION, BUT ONLY MTS421.
           THIS IS THE "CURRENT" SYSTEM ON THE D4.2 DUMP/RESTORE PACK.
00468/003B  RESIDENT SYSTEM          UM RAMROD       D              MTS:ROD                                                         
            RD16T1   63  RESIDENT_SYSTEM.UM_RAMROD.D.003    1 SEQ   32767 1441 PAGE UM   WSG                 JULY 12, 1979  22:41:58
                         MTS.:ROD             
0          CURRENT UM RAMROD FILE.
            
1                                                                                               THU SEP 12/96   23:39:34   Page  153
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          THE FOLLOWING PROCEDURES ARE USED IN MAINTAINING THIS FILE.  WHENEVER A NEW
           SYSTEM IS INSTALLED (I.E. WRITTEN TO *IPL.0), THREE THINGS ARE DONE:
            
             (1)  THE NAME OF THE SYSTEM INSTALLED IS CHANGED TO THE "MODEL NUMBER"
                  OF THE DATE IT IS INSTALLED, E.G. "AY108" FOR MAY 10, 1978.
            
             (2)  THE SYSTEM INSTALLED IS MADE THE CURRENT SYSTEM.
            
             (3)  THE OLDEST SYSTEM IS DELETED SO THAT THERE ARE ABOUT FIVE SYSTEMS--
                  THE CURRENT ONE AND THE FOUR PRECEDING.
            
           WHEN SOMEONE WISHES TO CHANGE A COMPONENT, BUT NOT INSTALL A NEW SYSTEM,
           A NEW SYSTEM CALLED "NEWSYS" IS CREATED FROM THE CURRENT SYSTEM (IF IT
           DOESN'T ALREADY EXIST) AND THE DESIRED CHANGES MADE AND NOTED USING THE
           "ANNOTATE" COMMAND.  THEN WHEN THE NEWSYS SYSTEM IS ACTUALLY TO BE INSTALLED
           AS THE RUNNING SYSTEM, THE PROCEDURE ABOVE IS FOLLOWED.
            
           A TEST SYSTEM CAN BE CREATED AT ANY TIME WITH ANY NAME, BUT WHEN THE NEW
           COMPONENTS ARE READY TO BE INSTALLED, THEY SHOULD BE PUT IN "NEWSYS" AND
           THE TEST SYSTEM DESTROYED.
00468/004   RESIDENT SYSTEM          *IPL.1          D            # *IPL.1                                                          
                                                                                    UM   WSG                                        
                         *IPL.1               
0          UM FIRST BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER.
           NOTE:  THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE.
00468/005   RESIDENT SYSTEM          *IPL.2          D            # *IPL.2                                                          
                                                                                    UM   WSG                                        
                         *IPL.2               
0          UM SECOND BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER.
           NOTE:  THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE.
00468/006   RESIDENT SYSTEM          WRITEUP         WF             S1320 D4.2T2 VLO FSNAME=RESIDENT_SYSTEM.WRITEUP.WF.006(1)    557
            D4.2T2  557  RESIDENT_SYSTEM.WRITEUP.WF.006     1 LINE    144    4 PAGE UM   WSG                 APR. 16, 1979  03:25:20
                         WSG.:RESSYS.WF       
0          A WRITEUP DESCRIBING THE STRUCTURE OF THE SYSTEM OBJECT DECKS.
00469       360/20 RJE SUPPORT PGM                   S            # (OBSOLETE)                                                      
            D2T1    094                                                             UM                                              
00470       PCB DSECT                COPY:PCBDSECT   SA  G          COPY:PCBDSECT                                                   
            D4.2T1  245  PCB_DSECT.COPY:PCBDSECT.SA.        1 LINE     72    2 PAGE UM   MTA                 MAR. 26, 1979  03:15:00
                         COPY:PCBDSECT        
0          DSECT FOR THE PAGE CONTROL BLOCK.  COPIED BY THE SUPERVISOR, PDP, AND CONFIG AMONG OTHERS.
0          Referenced by comments of: 44/1, 45/1, 46/1, 400/1, 577/2 
1                                                                                               THU SEP 12/96   23:39:34   Page  154
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00471       REX                                      SA           # (OBSOLETE)                                                      
            D3.2T1  303  REX.MONITOR.SA.01                  1 LINE     80   78 PAGE UM                       JULY 16, 1974  13:04:27
00472/001  *ST360                    MAIN PGM        SA  G          S0722 'D3T3' FSNAME=ST360.MAIN_PGM.SA.1(1)                    59
            D4T1   1118  ST360.MAIN_PGM.SA.001              1 SEQ      80   41 PAGE UM   MTA                 AUG. 01, 1973  18:40.02
0          THE STUDENT VIRTUAL MACHINE SIMULATOR.  THE SIMULATED MACHINE HAS THE FOLLOWING CHARACTERISTICS:
            
              1.  THE SYSTEM/360 UNIVERSAL INSTRUCTION SET
              2.  NO INTERVAL TIMER
              3.  NO MEMORY PROTECTION
              4.  32K BYTES OF STORAGE
              5.  AN I/O COMPLEMENT CONSISTING OF:
            
                      A. 1052 OPERATOR'S CONSOLE            ADDRESS 0009
                      B. 2540 CARD READER                   ADDRESS 000C
                      C. 2540 CARD PUNCH                    ADDRESS 000D
                      D. 1403 LINE PRINTER                  ADDRESS 000E
                      E. 2 2401 9-TRACK TAPE DRIVES         ADDRESSES 0180-0181
            
              6.  EXCEPT AT IPL, SELF-MODIFYING CCW'S ARE NOT ALLOWED
              7.  INSTANTANEOUS I/O
            
           NOTE:  THE STANDARD VIRTUAL MACHINE (558) NOW HAS AN ASSEMBLY PARAMETER
                  TO PRODUCE A STUDENT VERSION.
00472/002  *ST360                    CCWTRANS SUBR   SA  G          S0722 'D3T3' FSNAME=ST360.CCWTRANS_SUBR.SA.2(1)               60
            D4T1   1119  ST360.CCWTRANS_SUBR.SA.002         1 SEQ      80   12 PAGE UM   MTA                 AUG. 01, 1973  18:49.51
0          SUBROUTINE CALLED BY 472/1 TO TRANSLATE CCW LISTS.
           UNCHANGED SINCE DIST 2.0.
00472/003  *ST360                    OBJECT          OE  G          *ST360                                                          
            D4T1   1120  ST360.OBJECT.OE.003                1 SEQ    8720    5 PAGE UM   MTA                 JULY 27, 1977  03:36:53
                         *ST360               
00473/001  *1130ASM                  CCD             SA             S0722 'D3T3' FSNAME=1130ASM.CCD.SA.1(1)                       62
            D4T1   1121  1130ASM.CCD.SA.001                 1 SEQ      80   48 PAGE UM   LUBBERS             AUG. 01, 1973  18:51.47
0          IBM ASSEMBLER FOR THE IBM 1130 AND IBM 1800 COMPUTERS.  THIS VERSION HAS BEEN MODIFIED TO RUN IN MTS.
           THIS THING APPEARS TO CONSIST OF 4 ASSEMBLIES AND 1 COPY SECTION.  THE QUESTION IS WHICH IS WHICH.
           WE SUGGEST THAT THE FIRST MAY BE THE COPY SECTION, BUT WE'RE NOT SURE.
00473/002  *1130ASM                  M0              SA             S0722 'D3T3' FSNAME=1130ASM.M0.SA.2(1)                        63
            D4T1   1122  1130ASM.M0.SA.002                  1 SEQ      80    2 PAGE UM   LUBBERS             AUG. 01, 1973  18:51.57
00473/003  *1130ASM                  M12             SA             S0722 'D3T3' FSNAME=1130ASM.M12.SA.3(1)                       64
            D4T1   1123  1130ASM.M12.SA.003                 1 SEQ      80   74 PAGE UM   LUBBERS             AUG. 01, 1973  18:52.43
00473/004  *1130ASM                  M3              SA             S0722 'D3T3' FSNAME=1130ASM.M3.SA.4(1)                        65
            D4T1   1124  1130ASM.M3.SA.004                  1 SEQ      80   89 PAGE UM   LUBBERS             AUG. 01, 1973  18:53.47
1                                                                                               THU SEP 12/96   23:39:34   Page  155
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00473/005  *1130ASM                  M4              SA             S0722 'D3T3' FSNAME=1130ASM.M4.SA.5(1)                        66
            D4T1   1125  1130ASM.M4.SA.005                  1 SEQ      80   25 PAGE UM   LUBBERS             AUG. 01, 1973  18:54.12
00473/006  *1130ASM                  OBJECT          OC             *1130ASM                                                        
            D4T1   1126  1130ASM.OBJECT.OC.006              1 SEQ      80   18 PAGE UM   LUBBERS             JULY 27, 1977  03:46:47
                         *1130ASM             
00475       OS SIMULATION PACKAGE                    S            # (OBSOLETE)                                                      
            D2T1    284                                                             UM                                              
00476       DBS:MSG                                  S            # (OBSOLETE)                                                      
            D2T1    441                                                             UM                                              
00480       APF                                      SA           # (OBSOLETE)                                                      
            D2T1    329                                                             UM                                              
00481       FILE SAVE - OLD VERSION                  O            # (OBSOLETE)                                                      
            D2T1    001                                                             UM                                              
00482/001   FILE SYSTEM              DASDUC          SA  G          FILE:DASDUC                                                     
            D4T1   1127  FILE_SYSTEM.DASDUC.SA.001          1 LINE     80   18 PAGE UM   HELFFRICH           JULY 27, 1977  03:46:49
                         FILE:DASDUC          
0          2311/2314/2321/2301 UNIT CHECK ROUTINES.
00482/002   FILE SYSTEM              DASDUC          OC  G          FILE:DASDUC.O                                                   
            D4T1   1128  FILE_SYSTEM.DASDUC.OC.002          1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  03:46:51
                         FILE:DASDUC.O        
00482/003   FILE SYSTEM              MOVE            SA  G          FILE:MOVE                                                       
            D4T1   1129  FILE_SYSTEM.MOVE.SA.003            1 LINE     80    4 PAGE UM   HELFFRICH           JULY 27, 1977  03:46:54
                         FILE:MOVE            
0          SUBROUTINE TO MOVE CORE AROUND.  COPIES *CNFGINFODSECT (654).
00482/004   FILE SYSTEM              MOVE            OC  G          FILE:MOVE.O                                                     
                                                                                    UM   HELFFRICH                                  
                         FILE:MOVE.O          
0          OBJECT ALSO PART OF THE RESIDENT SYSTEM (468/1).
0          Referenced by comments of: 482/40 
00482/005   FILE SYSTEM              VOLGET          SA  G          FILE:VOLGET(1000)                                               
            D4.2T1  246  FILE_SYSTEM.VOLGET.SA.005          1 LINE     72   14 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:00
                         FILE:VOLGET          
0          BASIC LOW LEVEL DISK SUBROUTINES TO EXECUTE CHANNEL PROGRAMS, ETC.  ASSEMBLE USING
           COPY:FILE.MACROS (482/33).  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).
0          Referenced by comments of: 534/5 
1                                                                                               THU SEP 12/96   23:39:34   Page  156
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00482/006   FILE SYSTEM              VOLGET          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/007   FILE SYSTEM              TRAK            SA  G          FILE:TRAK(1000)                                                 
            D4.2T1  247  FILE_SYSTEM.TRAK.SA.007            1 LINE     72   15 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:03
                         FILE:TRAK            
0          BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE PHYSICAL RECORDS.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
            
           NOTE:  THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S.
0          Referenced by comments of: 482/51 
00482/008   FILE SYSTEM              TRAK            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/009   FILE SYSTEM              READI           SA  G          FILE:READI(1000)                                                
            D4.2T1  248  FILE_SYSTEM.READI.SA.009           1 LINE     72    6 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:06
                         FILE:READI           
0          SUBROUTINE TO READ FROM A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/010   FILE SYSTEM              READI           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/011B  FILE SYSTEM              WRITEI          SA  G          FILE:WRITEI(1000)                                               
            RD16T1   64  FILE_SYSTEM.WRITEI.SA.011          1 LINE     72   33 PAGE UM   HELFFRICH           JULY 12, 1979  22:43:06
                         FILE:WRITEI          
0          *****************************************************************************
           THIS SUBCOMPONENT WAS MISTAKENLY PUT ON THE RD16 TAPES.  IT IS EXACTLY THE
           SAME AS THE D4.2 VERSION!!!!!
           *****************************************************************************
00482/012   FILE SYSTEM              WRITEI          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/013   FILE SYSTEM              READL           SA  G          FILE:READL(1000)                                                
            D4.2T1  250  FILE_SYSTEM.READL.SA.013           1 LINE     72   10 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:13
                         FILE:READL           
0          SUBROUTINE TO FIND THE FIRST OR LAST LINE NUMBER IN A FILE.
           ALSO CONTAINS SUBROUTINES TO RENUMBER, COUNT, RETURN, AND SET LINES IN A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/014   FILE SYSTEM              READL           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
1                                                                                               THU SEP 12/96   23:39:34   Page  157
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00482/015B  FILE SYSTEM              OPEN            SA  G          FILE:OPEN(1000)                                                 
            RD16T1   65  FILE_SYSTEM.OPEN.SA.015            1 LINE     80   87 PAGE UM   HELFFRICH           JULY 12, 1979  22:43:15
                         FILE:OPEN            
0          SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/016   FILE SYSTEM              OPEN            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/017   FILE SYSTEM              GETDSK          SA  G          FILE:GETDSK(1000)                                               
            D4.2T1  252  FILE_SYSTEM.GETDSK.SA.017          1 LINE     72   18 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:27
                         FILE:GETDSK          
0          SUBROUTINES TO ALLOCATE AND RELEASE DISK SPACE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/018   FILE SYSTEM              GETDSK          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/019   FILE SYSTEM              FLINE           SA  G          FILE:FLINE(1000)                                                
            D4.2T1  253  FILE_SYSTEM.FLINE.SA.019           1 LINE     72    6 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:30
                         FILE:FLINE           
0          SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/020   FILE SYSTEM              FLINE           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/021B  FILE SYSTEM              CATALOG         SA  G          FILE:CATALOG(1000)                                              
            RD16T1   66  FILE_SYSTEM.CATALOG.SA.021         1 LINE     72   45 PAGE UM   HELFFRICH           JULY 12, 1979  22:43:30
                         FILE:CATALOG         
0          SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/022   FILE SYSTEM              CATALOG         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/023   FILE SYSTEM              RWSEQ           SA  G          FILE:RWSEQ(1000)                                                
            D4.2T1  255  FILE_SYSTEM.RWSEQ.SA.023           1 LINE     72   15 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:37
                         FILE:RWSEQ           
0          SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/024   FILE SYSTEM              RWSEQ           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
1                                                                                               THU SEP 12/96   23:39:34   Page  158
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00482/025   FILE SYSTEM              TABLRTN         SA  G          FILE:TABLRTN                                                    
            D4.2T1  256  FILE_SYSTEM.TABLRTN.SA.025         1 LINE     78   31 PAGE UM   GOODRICH            MAR. 26, 1979  03:15:39
                         FILE:TABLRTN         
0          SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
           ASSEMBLE STARTING AT LINE 1.
0          Referenced by comments of: 482/40, 534/5 
00482/026   FILE SYSTEM              TABLRTN         OC  G          FILE:TABLRTN.O                                                  
            D4.2T1  257  FILE_SYSTEM.TABLRTN.OC.026         1 LINE     80   15 PAGE UM   GOODRICH            MAR. 26, 1979  03:15:56
                         FILE:TABLRTN.O       
0          OBJECT ALSO PART OF THE RESIDENT SYSTEM (468/1).
00482/027   FILE SYSTEM              GETFINF         SA  G          FILE:GETFINF(1000)                                              
            D4.2T1  258  FILE_SYSTEM.GETFINF.SA.027         1 LINE     70    8 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:57
                         FILE:GETFINF         
0          SUBROUTINE TO RETURN INFORMATION ABOUT A FILE.  CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF).
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/028   FILE SYSTEM              GETFINF         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/029   FILE SYSTEM              TEST DSACC      SA  G          FILE:DSACC(1,999)                                               
            D4T1   1144  FILE_SYSTEM.TEST_DSACC.SA.031      1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:47:50
                         FILE:DSACC           
0          SPECIAL NOP VERSION OF DSACC.
0          Referenced by comments of: 482/37 
00482/030   FILE SYSTEM              TEST DSACC      OC  G          FILE:DSACC(1000)                                                
            D4T1   1145  FILE_SYSTEM.TEST_DSACC.OC.032      1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:47:52
0          Referenced by comments of: 682/40 
00482/031   FILE SYSTEM              FSTEST          SA  G          FILE:FSTEST(1005)                                               
            D4.2T1  259  FILE_SYSTEM.FSTEST.SA.031          1 LINE     68   13 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:59
                         FILE:FSTEST          
0          FILE SYSTEM TEST PROGRAM.  ASSEMBLE USING COPY:FILE.MACROS (482/33) AND *SYSMAC.
           USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES.
0          Referenced by comments of: 682/11 
00482/032   FILE SYSTEM              FSTEST          OC  G          FILE:FSTEST(1,1004.999)                                         
            D4.2T1  260  FILE_SYSTEM.FSTEST.OC.032          1 LINE     80    6 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:02
1                                                                                               THU SEP 12/96   23:39:34   Page  159
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00482/033B  FILE SYSTEM              FILE.MACROS     SM  G          COPY:FILE.MACROS                                                
            RD16T1   67  FILE_SYSTEM.FILE.MACROS.SM.033     1 LINE     72    9 PAGE UM   HELFFRICH           JULY 12, 1979  22:43:38
                         COPY:FILE.MACROS     
0          MACRO LIBRARY USED TO ASSEMBLE THE FILE SYSTEM AND RELATED ROUTINES.
            
           FOR D4, THE FOLLOWING COPY SECTIONS HAVE BEEN CONVERTED INTO MACROS AND PLACED IN COPY:FILE.MACROS:
            
               COPY SECTION FILE NAME        MACRO NAME
            
               COPY:CATEQU                   CATEQU
               COPY:FCBEQU                   FCBEQU,BCBEQU
               COPY:DSCBDSCT                 DSCBDSCT
               COPY:DSKDSCT                  DSKDSCT
               COPY:PATEQU                   PATEQU
               COPY:ICEQU                    ICEQU
0          Referenced by comments of: 4/1, 4/4, 67/1, 67/2, 67/3, 73/2, 92/3, 97/6, 104/104, 104/108, 400/10, 400/11, 442/1,
                 482/5, 482/9, 482/13, 482/15, 482/17, 482/19, 482/21, 482/23, 482/25, 482/27, 482/31, 482/40, 482/42, 482/51,
                 502/1, 502/7, 502/9, 509/1, 539/1, 540/16, 546/1, 554/1, 554/3, 578/1, 598/1, 599/1, 621/2, 629/4, 644/1,
                 671/1, 671/5, 682/18, 682/20, 682/24, 682/26, 682/28, 682/32, 682/43, 716/2, 716/6, 1020/1, 1021/1, 1021/3,
                 1021/5, 1030/1, 3024/37 
00482/034   FILE SYSTEM              PDLIST PGM      SA  G          FILE:PDLIST(-1000,-1)                                           
            D4.1T1  200  FILE_SYSTEM.PDLIST_PGM.SA.037      1 LINE     72    3 PAGE UM   HELFFRICH           MAY  13, 1978  17:24:55
                         FILE:PDLIST          
0          PROGRAM TO PRINT THE PHYSICAL DRIVE ADDRESS FOR EACH PUBLIC DISK VOLUME.
           THIS PROGRAM IS DEPENDENT ON THE SENSE DATA FORMAT AND SO WILL NOT WORK ON
           SOME MANUFACTURERS DISKS, E.G., STC.
0          Referenced by comments of: 482/36 
00482/035   FILE SYSTEM              PDLIST PGM      OC  G          FILE:PDLIST(1)                                                  
            D4.1T1  201  FILE_SYSTEM.PDLIST_PGM.OC.038      1 LINE     80    2 PAGE UM   HELFFRICH           MAY  13, 1978  17:24:56
00482/036   FILE SYSTEM              *PDL            C              *PDL                                                            
            D4.2T1  262  FILE_SYSTEM.*PDL.C.036             1 LINE     29    1 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:05
                         *PDL                 
0          OPERATOR FILE TO RUN PDLIST (482/34).  INVOKED BY ENTERING "MTS *PDL"
           ON THE OPERATORS CONSOLE.
00482/037   FILE SYSTEM              TEST FILERTNS   OC  G          FILE:FILERTNS                                                   
            D4.2T1  263  FILE_SYSTEM.TEST_FILERTNS.OC.037   1 LINE     38    1 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:06
                         FILE:FILERTNS        
0          A SERIES OF $CONTINUE WITHS TO PICK UP THE VARIOUS FILE SYSTEM OBJECT DECKS,
           A TEST VERSION OF TABLES (482/38), AND A TEST VERSION OF DSACC (482/29).
0          Referenced by comments of: 482/38 
1                                                                                               THU SEP 12/96   23:39:34   Page  160
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00482/038   FILE SYSTEM              TEST TABLES     SA  G          FILE:TBLS.TEST.S                                                
            D4T1   1159  FILE_SYSTEM.TEST_TABLES.SA.046     1 LINE     56    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:51:43
                         FILE:TBLS.TEST.S     
0          A CUT-DOWN VERSION OF TABLES (004) CONTAINING ONLY A DEVICE LIST WITH TWO DISKS
           (D340 AND D350), A DSKTAB WITH ONLY ONE PACK (TMTS01), AND CATALOG ROOT ENTRIES.
           USED WITH THE TEST VERSION OF THE FILE ROUTINES (482/37).
0          Referenced by comments of: 482/37 
00482/039   FILE SYSTEM              TEST TABLES     OC  G          FILE:TABLES.TEST                                                
            D4T1   1160  FILE_SYSTEM.TEST_TABLES.OC.047     1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:51:45
                         FILE:TABLES.TEST     
00482/040   FILE SYSTEM              TABLRTN TEST    SA  G          FILE:TABLTST                                                    
            D4.1T1  203  FILE_SYSTEM.TABLRTN_TEST.SA.042    1 LINE     80   35 PAGE UM   GOODRICH            MAY  13, 1978  17:24:57
                         FILE:TABLTST         
0          PROGRAM TO TEST THE SHARED FILE TABLE ROUTINES TABLRTN (482/25).
           TO USE THIS, THE SHARED FILE TABLE ROUTINES MUST BE RE-ASSEMBLED STARTING AT
           LINE 0, SO THAT ALL SVC'S ARE REPLACED WITH SUBROUTINE CALLS TO ENTRY POINTS IN
           THIS TABLE TEST PROGRAM.  THE COMMANDS ACCEPTED BY THIS PROGRAM ARE DOCUMENTED IN THE
           SOURCE.  THIS PROGRAM SHOULD BE ASSEMBLED USING *SYSMAC AND COPY:FILE.MACROS (482/33).
           THIS PROGRAM REQUIRES A COPY OF MOVE (482/4) IN ORDER TO LOAD PROPERLY.
00482/041   FILE SYSTEM              TABLRTN TEST    OC  G          FILE:TABLTST.O                                                  
            D4.1T1  204  FILE_SYSTEM.TABLRTN_TEST.OC.043    1 LINE     80    5 PAGE UM   GOODRICH            MAY  13, 1978  17:25:01
                         FILE:TABLTST.O       
00482/042   FILE SYSTEM              CATALOG SCAN    SA  G          FILE:CATSCAN(1000)                                              
            D4.2T1  264  FILE_SYSTEM.CATALOG_SCAN.SA.042    1 LINE     70    8 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:06
                         FILE:CATSCAN         
0          A PROGRAM WHICH GOES THROUGH THE CATALOG BY USER ID AND GATHERS INFORMATION OF INTEREST
           (E.G. THE NUMBER OF FILES WITH SPECIFIC SHARING DESCRIPTORS ETC.).  IT TAKES A LONG TIME
           TO RUN.  ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/043   FILE SYSTEM              CATALOG SCAN    OC  G          FILE:CATSCAN(1,999)                                             
            D4.2T1  265  FILE_SYSTEM.CATALOG_SCAN.OC.043    1 LINE     80    6 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:08
00482/044   FILE SYSTEM              DOCUMENTATION   WF             S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOCUMENTATION.WF.052(1)   1165
            D4T1   1165  FILE_SYSTEM.DOCUMENTATION.WF.052   1 LINE    190   63 PAGE UM   HELFFRICH           DEC. 10, 1976  17:23:53
0          FORMAT INPUT FOR THE MTS FILE SYSTEM INTERNAL DOCUMENTATION.  THE FORMAT OUTPUT
           SHOULD BE RUN THROUGH THE INDEX PROGRAM (482/45) TO PRODUCE AN INDEX FOR THE
           FRONT OF THIS WRITEUP.  COMPONENT 482/46 CONTAINS COMMANDS TO DO THIS.
           SEE ALSO COMP 682/1 FOR ADDITIONAL DOCUMENTATION RELATED TO THE FILE SYSTEM.
0          Referenced by comments of: 482/46 
00482/045   FILE SYSTEM              INDEX           SS  G          S0563 D4T1 VLO FSNAME=FILE_SYSTEM.INDEX.SS.053(1)           1166
            D4T1   1166  FILE_SYSTEM.INDEX.SS.053           1 LINE     68    1 PAGE UM   HELFFRICH           DEC. 10, 1976  17:24:07
0          SNOBOL PROGRAM TO PRODUCE A TABLE OF CONTENTS FOR THE FILE SYSTEM INTERNAL DOCUMENTATION.
1                                                                                               THU SEP 12/96   23:39:34   Page  161
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 482/44, 482/46 
00482/046   FILE SYSTEM              DOC CMDS        C              S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOC_CMDS.C.054(1)         1167
            D4T1   1167  FILE_SYSTEM.DOC_CMDS.C.054         1 LINE     65    1 PAGE UM   HELFFRICH           DEC. 10, 1976  17:24:15
0          A COMMAND FILE TO PRODUCE THE COMPLETE FILE SYSTEM INTERNAL DOCUMENTATION.
           IT REFERENCES THE FORMAT INPUT (482/44) AND THE INDEX PROGRAM (482/45).
00482/047   FILE SYSTEM              DSECTLIST1      SS  G          FILE:DSECTLIST                                                  
            D4T1   1168  FILE_SYSTEM.DSECTLIST1.SS.055      1 LINE     53    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:53
                         FILE:DSECTLIST       
0          THIS SNOBOL PROGRAM AND THE ONE FOLLOWING ARE USED TO CONVERT AN ASSEMBLY LANGUAGE
           DSECT INTO FORMAT INPUT WHICH INCLUDES SYMBOL VALUES FOR INCLUSION IN A WRITEUP.
00482/048   FILE SYSTEM              DSECTLIST2      SS  G          FILE:DSECT2                                                     
            D4T1   1169  FILE_SYSTEM.DSECTLIST2.SS.056      1 LINE     63    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:55
                         FILE:DSECT2          
0          THE SPUNCH OUTPUT FROM 482/47 SHOULD BE RUN THROUGH THIS PROGRAM, THE SPUNCH
           OUTPUT FROM THIS PROGRAM THEN BEING FORMAT INPUT.
00482/049   FILE SYSTEM              DSECTLIST CMDS  C              FILE:SODSECT                                                    
            D4T1   1170  FILE_SYSTEM.DSECTLIST_CMD.C.057    1 LINE     71    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:57
                         FILE:SODSECT         
0          THIS COMMAND FILE WILL RUN THE DSECTLIST PROGRAMS AND SLIGHTLY EDIT THE
           OUTPUT FOR EACH OF THE FILE SYSTEM DSECTS (FCBEQU, BCBEQU, CATEQU, DSKDSCT,
           DSCBDSCT, PATEQU, ICEQU, AND FDUBDSECT).  THE RESULTING OUTPUT IS INCLUDED
           AS PART OF 482/44.
00482/050B  FILE SYSTEM              SCRATCH SIZES   C              FILE:SCRATCHSIZES(1)                                            
            RD16T1   68  FILE_SYSTEM.SCRATCH_SIZES.C.050    1 LINE     72    3 PAGE UM   HELFFRICH           JULY 12, 1979  22:43:40
                         FILE:SCRATCHSIZES    
0          A SOURCE FILE TO GENERATE A LIST OF HOW MUCH SCRATCH AREA SPACE EACH FILE
           ROUTINE SUBROUTINE NEEDS.  THE FILE CONTAINS THE NECESSARY COMMANDS TO INVOKE
           THE ASSEMBLER, THE ASSEMBLER MACROS WHICH DO THE DIRTY WORK, AND THE DATA UPON
           WHICH THE MACROS WORK. 
           THE COMMANDS ARE DEPENDENT UPON THE FILE NAME WHICH CONTAINS THEM.
00482/051   FILE SYSTEM              TRAKSTAT        SA  O          FILE:TRAKSTAT(1000)                                             
            D4.2T1  267  FILE_SYSTEM.TRAKSTAT.SA.051        1 LINE     72    7 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:10
                         FILE:TRAKSTAT        
0          PROGRAM TO DISPLAY HISTOGRAMS (PREFERABLY ON A 3270 DEVICE) OF CURRENT DISK
           ACTIVITY IN VARIOUS CATEGORIES:  LINE DIRECTORY, DATA, CATALOG, PAT, AND
           DSCB. TAKES THE FOLLOWING PAR FIELD PARAMETERS:
            
                      NOHIST         TO SUPPRESS HISTOGRAMS
                      NOCLEAR        TO SUPPRESS CLEARING OF CUMULATIVE I/O
                                     COUNTS
                      DT= NS|NM|NH¬  TO DEFINE SAMPLE INTERVAL
                      RESET= NO|YES¬ TO RESET SWITCH IN TRAK (482/7) WHICH
1                                                                                               THU SEP 12/96   23:39:34   Page  162
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                                    TRIGGERS STATISTICS COLLECTION
            
           DEFAULT PARAMETERS ARE DT=15S, RESET=YES.  COPIES COPY:FILE.MACROS (482/33)
           AND COPY:MTS.MACROS (344/3).
00482/052   FILE SYSTEM              TRAKSTAT        OC  O          FILE:TRAKSTAT(1,999)                                            
            D4.2T1  268  FILE_SYSTEM.TRAKSTAT.OC.052        1 LINE     80    4 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:16
00482/053   FILE SYSTEM              TRAKSTATAREA    SA  O          FILE:TRAKSTATAREA(1000)                                         
            D4.2T1  269  FILE_SYSTEM.TRAKSTATAREA.SA.053    1 LINE     62    1 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:18
                         FILE:TRAKSTATAREA    
0          THIS REGION MUST BE PISTLED BEFORE FILE SYSTEM STATISTICS MAY BE GENERATED. 
           THE FIRST WORD OF THIS REGION IS A COUNT RELATING TO HOW MANY PUBLIC VOLUMES
           FOR WHICH STATISTICS MAY BE ACCUMULATED.
00482/054   FILE SYSTEM              TRAKSTATAREA    OC  O          FILE:TRAKSTATAREA(1,999)                                        
            D4.2T1  270  FILE_SYSTEM.TRAKSTATAREA.OC.054    1 LINE     80    1 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:19
00483/001  *WATFIV                   UPDATE          UU  G          W159:WAT5.SGEN                                                  
            D4.1T1  205  WATFIV.UPDATE.UU.001               1 LINE     80   30 PAGE UM   SHERRY              MAY  13, 1978  17:25:02
0          THE WATFIV UPDATE DECK (483/1) IS ORGANIZED (BY LINE NUMBER) AS FOLLOWS:
            
               LINE NUMBERS        FILE #    NAME
               (2000,2999)          *2*      ACCT
               (9000,9999)          *9*      ARITH
               (11000,11999)        *11*     CDEFN
               (17000,17999)        *17*     COMMR
               (34000,34999)        *34*     DODO
               (42000,42999)        *42*     ERROR
               (44000,44999)        *44*     ERRTEXTS
               (46000,46999)        *46*     EXTRN
               (49000,49999)        *49*     FORMAT
               (50000,50999)        *50*     FORMCONV
               (51000,51999)        *51*     FRIOSCAN
               (53000,53999)        *53*     FUNCTION
               (55000,55999)        *55*     IBCOM#
               (58000,58999)        *58*     INOUT
               (60000,60999)        *60*     LANDR
               (61000,61999)        *61*     MAIN
               (66000,66999)        *66*     NAMELIST
               (68000,68999)        *68*     OPTIONS
               (71000,71999)        *71*     SCAN
               (75000,75999)        *75*     SPEX
               (76000,76999)        *76*     STARTA
               (77000,77999)        *77*     STARTB
               (78000,78999)        *78*     STOP#
               (79000,79999)        *79*     SYS
               (84000,84999)        *84*     WATIO
               (85000,85999)        *85*     WATLOAD
               (86000,86999)        *86*     ZMONTH
            
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
1                                                                                               THU SEP 12/96   23:39:34   Page  163
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          THIS COMPONENT SHOULD BE RESTORED TO A FILE NAMED WAT5.SGEN SINCE THE COMMAND
           FILE (483/7) HAS NUMEROUS REFERENCES TO THIS FILE.
0          Referenced by comments of: 483/1, 483/7 
00483/002  *WATFIV                   FIOCS           SA  G  FIOC    W159:WAT5.FIOCS.S                                               
            D4T1   1173  WATFIV.FIOCS.SA.002                1 LINE     80   21 PAGE UM   SHERRY              JULY 27, 1977  03:57:06
0          ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/8 
00483/003  *WATFIV                   DIOCS           SA  G  DIOC    W159:WAT5.DIOCS.S                                               
            D4T1   1174  WATFIV.DIOCS.SA.003                1 LINE     80    3 PAGE UM   SHERRY              JULY 27, 1977  03:57:08
0          ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/8 
00483/004  *WATFIV                   DEFAULT         SA  G  DFLT    W159:WAT5.DFALT.S                                               
            D4T1   1175  WATFIV.DEFAULT.SA.004              1 LINE     80    4 PAGE UM   SHERRY              JULY 27, 1977  03:57:10
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER.
           ASSEMBLE USING *SYSMAC.
           NOTE:  THIS ROUTINE IS ALSO USED BY ALGOLW (528) AND PLC (485).
0          Referenced by comments of: 483/8 
00483/005  *WATFIV                   OBJECT          OE  G        # *WATFIV                                                         
                                                                                    UM   SHERRY                                     
0          NOTE:  BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED.
00483/006  *WATFIV                   TEST DECKS      SF  G          W159:WAT5.TEST                                                  
            D4T1   1176  WATFIV.TEST_DECKS.SF.006           1 LINE     80    7 PAGE UM   SHERRY              JULY 27, 1977  03:57:12
0          THE FIRST FEW LINES ON THIS FILE CONTAIN THE MTS COMMANDS NEEDED TO COMPILE
           THE TEST DECKS WHICH START AT LINE 1000.  THEY MUST BE RUN WITH THE FOLLOWING
           I/O ASSIGNMENTS (TEMPORARY FILES):
            
                1   A SEQUENTIAL FILE
                2   A LINE FILE
                3   ANOTHER LINE FILE
            
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00483/007  *WATFIV                   REASS           C              W159:WAT5.REASS                                                 
            D4T1   1177  WATFIV.REASS.C.007                 1 LINE    127    4 PAGE UM   SHERRY              JULY 27, 1977  03:57:14
0          THIS FILE CONTAINS ALL THE MTS COMMANDS NECESSARY TO GENERATE THE VARIOUS
           COMPONENTS OF WATFIV.  THE MTS COMMADS ARE ORGANIZED (BY LINE NUMBER) IDENTICALLY
           TO COMP 483/1, E.G. THE SOURCE COMMANDS NECESSARY TO ASSEMBLE WATIO (TAPE FILE
           #84) ARE LOCATED IN THE LINE RANGE (84000,84999) AS ARE THE CORRESPONDING UPDATE
           CONTROL CARDS IN WAT5.SGEN (483/1).  LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE
1                                                                                               THU SEP 12/96   23:39:34   Page  164
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          483/8 CONTAINS REFERENCES BY LINE NUMBER.  THIS FIRST HUNDRED LINES OF THIS FILE
           CONTAIN DESCRIPTIONS OF THE VARIOUS SOURCE COMMANDS.  THIS FILE CONTAINS TWO $MOUNT
           COMMANDS-- ONE TO MOUNT THE WATERLOO DISTRIBUTION TAPE AND ANOTHER TO MOUNT A TAPE
           WHICH RECEIVES THE UNLOADED WATFIV SOURCE FILES.  THE MOUNT COMMANDS ARE AT LINE
           NUMBERS 101 AND 201, RESPECTIVELY, AND SHOULD BE REPLACED APPROPRIATELY.
0          Referenced by comments of: 483/1, 483/8 
00483/008  *WATFIV                   $SOU            C              W159:WAT5.$SOU                                                  
            D4T1   1178  WATFIV.$SOU.C.008                  1 LINE     55    1 PAGE UM   SHERRY              JULY 27, 1977  03:57:16
0          THIS FILE CONTAINS ALL THE "$SOURCE WAT5.REASS(---)" (483/7) COMMANDS NECESSARY
           TO GENERATE THE MTS VERSION OF WATFIV.  THIS IS A FIVE STEP PROCEDURE:
            
           (1) THE SOURCE CODE FOR WATFIV IS UNLOADED FROM THE WATERLOO DISTRIBUTION TAPE
               (WATFIV V1L4) ONTO ANOTHER TAPE; A MACRO LIBRARY IS UNLOADED; AND THE FUNCTION
               OBJECT DECK LIBRARY IS UNLOADED AND UPDATED.
           (2) THE COPY SECTIONS ACCT, CDEFN, COMMR, ERRTEXTS, EXTRN, OPTIONS, STARTA, STARTB,
               AND SYS ARE GENERATED (A DISK FILE WITH THE SAME NAME IS PRODUCED FOR EACH COPY SECTION).
           (3) THE WATFIV CSECTS ARE ASSEMBLED.
           (4) THE LOCAL MTS ORIGINATED ROUTINES FIOCS (483/2), DIOCS (483/3), DFLT (483/4),
               TIME (483/9), AND MTSFUN (483/10) ARE ASSEMBLED.
           (5) THE RESULTING OBJECT DECKS ARE LINKEDITED VIA THE PROCEDURE (483/11) AND THE
               OUTPUT IS PLACED IN A FILE NAMED WAT5, WHICH MAY BE COPIED TO THE PUBLIC
               FILE *WATFIV.
            
           THUS, WATFIV WILL BE GENERATED IF THIS FILE IS $SOURCED TO.
00483/009  *WATFIV                   TIME            SA  O  TIME    W159:WAT5.TIME.S                                                
            D4T1   1179  WATFIV.TIME.SA.009                 1 LINE     80    7 PAGE UM   SHERRY              JULY 27, 1977  03:57:19
0          VERSION OF THE MTS TIME SUBROUTINE RECODED TO CONFORM TO WATFIV CALLING CONVENTIONS.
           PROGRAM WRITTEN AT UBC.  ASSEMBLE USING *SYSMAC AND THE TWO WATERLOO MACRO LIBRARIES.
0          Referenced by comments of: 483/8 
00483/010  *WATFIV                   MTSFUN          SA  G  MTSF    W159:WAT5.MTSFUNS                                               
            D4T1   1180  WATFIV.MTSFUN.SA.010               1 LINE     80    4 PAGE UM   SHERRY              JULY 27, 1977  03:57:21
0          CODE FOR BUILTIN SUBROUTINES RAND, SCLOCK, CLOCK, IEOR, IOR, IAND, AND ICOMPL.
           ASSEMBLE USING *SYSMAC AND THE TWO WATERLOO MACRO LIBRARIES.
0          Referenced by comments of: 483/8 
00483/011  *WATFIV                   RELINK          C              W159:WAT5.RELINK                                                
            D4T1   1181  WATFIV.RELINK.C.011                1 LINE     29    1 PAGE UM   SHERRY              JULY 27, 1977  03:57:23
0          LINKEDITOR COMMANDS REQUIRED TO LINKEDIT WATFIV.  "INCLUDES" WAT5.O (483/12).
0          Referenced by comments of: 483/8 
1                                                                                               THU SEP 12/96   23:39:34   Page  165
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00483/012  *WATFIV                   WAT5.O          OC  G          W159:WAT5.O                                                     
            D4T1   1182  WATFIV.WAT5.O.OC.012               1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  03:57:25
0          THIS FILE CONTAINS A SERIES OF "$CONTINUE WITH" RECORDS, THE OBJECT FOR SPIE, AND SOME
           LOADER CONTROL RECORDS TO CAUSE THE VARIOUS WATFIV SUB-COMPONENTS TO BE LOADED
           WHEN THIS FILE IS $RUN.  ALSO REFERENCED BY 483/11 TO LINKEDIT WATFIV.
0          Referenced by comments of: 483/11 
00484      *ACCRESTORE                               OE  G          *ACCRESTORE                                                     
            D4.1T1  206  ACCRESTORE..OE.                    1 LINE   3464    3 PAGE UM   ENGLE               MAY  13, 1978  17:25:05
                         *ACCRESTORE          
0          PROGRAM TO COMPUTE NUMBER OF CURRENT SIGNONS AND CURRENT DISK SPACE FOR A USERID
           AND THEN UPDATE THE ACCOUNTING RECORD.  FILE IS LINKEDIT OF ACCSTRUP (104/30),
           THE MAIN PROGRAM, PLUS CURSIG (104/82), ACATALOG (104/105), GETFILE (104/103),
           ACCIO (104/23), ACCFLUPD (104/78), FILERATE (104/16), AND SYSDEFS.  THIS FILE
           MUST BE PERMITTED AS FOLLOWS:  U/N,R (P=W&PKEY=*MTS.RUN,USERID&PKEY=*MTS.ETC.RUN)
           WHERE "USERID" SHOULD BE REPLACED BY THE USER ID USED TO RUN DEADFILES (502).
           THIS FILE MUST BE GIVEN THE PROGRAM KEY *ACRESTORE.
0          Referenced by comments of: 136/2 
00485/001  *PLC                      INSTALLATION    PF             S0548 PLCARC 'PL/C ARCHIVE' FSNAME=INSTALL                      
            D4.1T1  207  PLC.INSTALLATION.PF.001            1 LINE     69    5 PAGE UM   BODWIN              APR. 19, 1978  17:48:47
0          DUE TO COPYRIGHT RESTRICTIONS, THE MASTER SOURCE FOR PL/C CANNOT BE DISTRIBUTED;
           YOU MUST OBTAIN IT DIRECTLY FROM CORNELL UNIVERSITY.
            
           485/1 CONSISTS OF INSTRUCTIONS FOR INSTALLING PL/C RELEASE 7.6 IN MTS.  $COPY
           IT TO A TN PRINTER.
0          Referenced by comments of: 483/4 
00485/002  *PLC                      PLCGEN          C              S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCGEN                       
            D4.1T1  208  PLC.PLCGEN.C.002                   1 LINE    110    4 PAGE UM   BODWIN              APR. 19, 1978  17:48:50
0          MTS COMMAND FILE TO GENERATE MTS PL/C.  HAS "$CONTINUE WITH"S TO MANY OF THE
           DISTRIBUTED FILES -- SEE 485/1 FOR DETAILS.
00485/003B *PLC                      CONT            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.U                       
            RD16T1   69  PLC.CONT.UU.003                    1 LINE     72    8 PAGE UM   BODWIN              MAY  30, 1979  16:59:06
0          MTS UPDATE FOR THE COLLECTION OF CSECTS WHICH CONTROL THE SEQUENCING OF THE
           COMPILER PHASES AND PROVIDE INTERFACING BETWEEN PL/C AND THE LOW LEVEL ROUTINES.
00485/004B *PLC                      CONT            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
1                                                                                               THU SEP 12/96   23:39:34   Page  166
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00485/005  *PLC                      DGIO            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DGIO.U                       
            D4.2T1  272  PLC.DGIO.UU.005                    1 LINE     72    1 PAGE UM   BODWIN              DEC. 14, 1978  16:11:11
0          MTS UPDATE FOR THE I/O CODE GENERATOR.
00485/006  *PLC                      DGIO            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DGIO.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/007  *PLC                      ERMW            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=ERMW.U                       
            D4.1T1  211  PLC.ERMW.UU.007                    1 LINE     72    4 PAGE UM   BODWIN              APR. 19, 1978  17:47:30
0          MTS UPDATE FOR THE MODULE WHICH PRODUCES THE ERROR MESSAGES.
00485/008  *PLC                      ERMW            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=ERMW.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/009  *PLC                      EXRI            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXRI.U                       
            D4.1T1  212  PLC.EXRI.UU.009                    1 LINE     72    1 PAGE UM   BODWIN              APR. 19, 1978  17:47:33
0          MTS UPDATE FOR THE MODULE WHICH PERFORMS RECORD I/O.
00485/010  *PLC                      EXRI            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXRI.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/011  *PLC                      GPCR            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=GPCR.U                       
            D4.1T1  213  PLC.GPCR.UU.011                    1 LINE     17    1 PAGE UM   BODWIN              APR. 19, 1978  17:47:35
0          MTS UPDATE FOR THE MODULE WHICH PERFORMS CONVERSIONS.
00485/012  *PLC                      GPCR            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=GPCR.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/013  *PLC                      IM              UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=IM.U                         
            D4.2T1  273  PLC.IM.UU.013                      1 LINE     72    7 PAGE UM   BODWIN              DEC. 18, 1978  14:51:13
0          MTS UPDATE FOR THE INSTALLATION DEPENDANT MODULE.
00485/014  *PLC                      IM              OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=IM.O                         
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/015B *PLC                      MIMO            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.U                       
            RD16T1   70  PLC.MIMO.UU.015                    1 LINE     72    6 PAGE UM   BODWIN              MAY  30, 1979  16:59:18
0          MTS UPDATE FOR THE MODULE WHICH GAINS INITIAL CONTROL IN PL/C.
1                                                                                               THU SEP 12/96   23:39:34   Page  167
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00485/016B *PLC                      MIMO            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/017  *PLC                      OPTB            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTB.U                       
            D4.2T1  275  PLC.OPTB.UU.017                    1 LINE     72    1 PAGE UM   BODWIN              DEC. 14, 1978  16:11:42
0          MTS UPDATE FOR THE MODULE WHICH DEFINES THE DEFAULT OPTIONS FOR PL/C.
00485/018  *PLC                      OPTB            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTB.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/019  *PLC                      OPTN            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTN.U                       
            D4.2T1  276  PLC.OPTN.UU.019                    1 LINE     72    4 PAGE UM   BODWIN              FEB. 02, 1979  01:20:38
0          MTS UPDATE FOR THE MODULE WHICH PERFORMS THE COMPILER OPTIONS SCANNING.
00485/020  *PLC                      OPTN            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTN.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/021B *PLC                      SYSO            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.U                       
            RD16T1   71  PLC.SYSO.UU.021                    1 LINE     72   24 PAGE UM   BODWIN              JUNE 18, 1979  22:10:30
0          MTS UPDATE FOR THE MODULE WHICH INTERFACES WITH THE OPERATING SYSTEM.
00485/022B *PLC                      SYSO            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/023  *PLC                      DEFAULT         SA  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.S                    
            D4.1T1  219  PLC.DEFAULT.SA.023                 1 LINE     71    3 PAGE UM   BODWIN              APR. 19, 1978  17:48:53
0          SUBROUTINE TO HANDLE DEFAULT PAGE AND TIME ESTIMATES IN MTS -- NOT PART OF THE
           CORNELL SOURCE.
00485/024  *PLC                      DEFAULT         OC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.O                    
            D4.1T1  220  PLC.DEFAULT.OC.024                 1 LINE     80    1 PAGE UM   BODWIN              APR. 19, 1978  17:48:00
00485/025  *PLC                      MACDIR          SM  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MACDIR                       
            D4.1T1  221  PLC.MACDIR.SM.025                  1 LINE     15    2 PAGE UM   BODWIN              APR. 19, 1978  18:12:00
0          THE DIRECTORY FOR THE PL/C MACRO LIBRARY, WHICH CANNOT ITSELF BE DISTRIBUTED
           BECAUSE OF CORNELL RESTRICTIONS.
00485/026  *PLC                      MACROS          SM  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MACROS                       
            D4.1T1  222  PLC.MACROS.SM.026                  1 LINE     72    5 PAGE UM   BODWIN              APR. 19, 1978  18:12:07
0          ADDITIONAL MACROS FOR THE PL/C MACRO LIBRARY.
1                                                                                               THU SEP 12/96   23:39:34   Page  168
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00485/027  *PLC                      OBJECT          OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLC.O                        
                                                                                    UM   BODWIN                                     
0          CORNELL PL/C OBJECT WITH "$CONTINUE WITH"S TO THE VARIOUS OBJECT FILES FOR THE
           MODULES WHICH ARE DIFFERENT IN MTS.  BECAUSE OF CORNELL RESTRICTIONS, THIS
           FILE CANNOT BE DISTRIBUTED.
00485/028  *PLC                      TEST PGMS       SP  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLC.TEST                     
            D4.1T1  223  PLC.TEST_PGMS.SP.028               1 LINE     91    9 PAGE UM   BODWIN              APR. 19, 1978  18:45:59
0          TEST PROGRAMS TO EXERCISE THE MTS VERSION OF PL/C.  THE LAST EXAMPLES ILLUSTRATE
           KNOWN BUGS.
00486      *HBQ                                      SA           # (OBSOLETED BY $SYSTEMSTATUS)                                    
            D4T1   1196  HBQ..SA.001                        1 LINE     80   18 PAGE UM                       FEB. 25, 1975  16:41:55
0          PROGRAM TO PRINT HASP STATUS OF A PARTICULAR BATCH JOB (BY RECEIPT NUMBER) OR THE BACKLOG
           AT A PARTICULAR REMOTE STATION OR THE ENTIRE SYSTEM.
            
           *** NOTE:  THIS PROGRAM IS NOW OBSOLETE SINCE ALL OF ITS FUNCTIONS ARE PROVIDED
                      BY THE MTS $SYSTEMSTATUS COMMAND.
00487/001  *LABEL                    MAIN PGM        SA  G          S1237 TAPES 'TAPEFS' FSNAME=LABEL                               
            D4.1T1  224  LABEL.MAIN_PGM.SA.001              1 LINE     80    6 PAGE UM   LIFT                APR. 20, 1978  20:30:09
0          PROGRAM TO INITIALIZE LABELED OR UNLABELED MAGNETIC TAPES.  CALLS TPINIT
           SUBROUTINE (487/4). SOURCE IN LINES (1,999).
0          Referenced by comments of: 135/1, 487/3 
00487/002  *LABEL                    MAIN PGM        OC  G          *LABEL                                                          
            D4.1T1  225  LABEL.MAIN_PGM.OC.002              1 LINE   1840    1 PAGE UM   LIFT                MAY  13, 1978  17:29:09
                         *LABEL               
00487/003  *LABEL                    *LBL            C              *LBL                                                            
            D4T1   1200  LABEL.*LBL.C.003                   1 LINE     32    1 PAGE UM   LIFT                JULY 27, 1977  04:07:25
                         *LBL                 
0          COMMAND FILE TO RUN *LABEL (487/1) FOR THE OPERATORS.  INVOKED BY ENTERING
           "MTS *LBL" ON THE OPERATOR'S CONSOLE.
00487/004  *LABEL                    TPINIT SUBR     SA  G          S1237 TAPES 'TAPEFS' FSNAME=TAPEINIT                            
            D4.2T1  278  LABEL.TPINIT_SUBR.SA.004           1 LINE     80    4 PAGE UM   LIFT                OCT. 19, 1978  15:42:09
0          SUBROUTINE, WITH ALTERNATE ENTRY TAPEINIT, WHICH INITIALIZES TAPES (LABELED OR
           UNLABELED).  SOURCE IN LINES (1,999).
0          Referenced by comments of: 487/1 
00487/005  *LABEL                    TPINIT SUBR     OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   LIFT                                       
1                                                                                               THU SEP 12/96   23:39:34   Page  169
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00488       CONTROL                                  SA           # (OBSOLETE)                                                      
            D2.3    035                                                             UM                                              
00489/001   TAPETEST                                 SA  G  TT      WSG:TT(1,999)                                                   
            D4.2T1  279  TAPETEST..SA.001                   1 LINE     80   15 PAGE UM   WSG                 MAR. 26, 1979  03:22:13
                         WSG.:TT              
0          THE TAPETEST (TT) PROGRAM WAS DESIGNED TO CHECK OUT THE MTS MAG TAPE ROUTINES (135).
           HOWEVER, IT SEEMS TO BE A RATHER MORE GENERALLY USEFUL UTILITY FOR PERFORMING I/O.
           IT FIELDS ATTENTION INTERRUPTS AND DSR ERRORS.  COPIES *SENSEDSECT (3025).
           IT WILL ACCEPT THE FOLLOWING COMMANDS (ON GUSER):
            
               ATTACH FDNAME       ATTACH A FILE OR DEVICE (CALL "GETFD").
               CONTROL STRING      CALL "CONTROL" WITH STRING AS THE ARGUMENT.
               HELP                FOR A LIST OF COMMANDS.
               LEN N               SET MAXIMUM INPUT LENGTH TO N.  IF N IS NON-ZERO, THE READ AND RDBKWD
                                   COMMANDS WILL USE THE @MAXLEN MODIFIER.
               MTS STRING          CALL "CMD" (WITH STRING) OR "MTS" (IF STRING OMITTED).
               READ N              READ THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA.
               RBKWD N             READ BACKWARD THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA.
               RETURN              TO QUIT.
               SNS                 ISSUE A "SNS" CONTROL COMMAND AND PRINT THE "SENSE DATA" IN A READABLE FORMAT.
               STA                 IDENTICAL TO "SNS" EXCEPT FOR LABELED TAPES, IN WHICH CASE IT DOES NOT CAUSE THE NEXT
                                   FILE TO BE OPENED.
               STOP                TO QUIT.
               WRITE FDNAME        WRITE RECORDS READ FROM FDNAME (OR *MSOURCE* IF OMITTED) ON THE ATTACHED UNIT.
            
           NOTES:  COMMANDS MAY BE ABBREVIATED BY THEIR FIRST LETTER EXCEPT FOR "RBKWD" AND "STA"
                   WHICH REQUIRE TWO LETTERS.  ANY COMMAND BEGINNING WITH A $ IS PASSED TO MTS
                   FOR PROCESSING.
            
            
           EXAMPLE:      $MOUNT POOL 9TP *T*
                         $RUN TT(1000)
                         A *T*
                         C DSN TEST1
                         C FMT FB(8000,80)
                         W TESTFILE
                         C WTM
                         C DSN TWO
                         W
                         HELLO
                         $ENDFILE
                         C POSN TWO
                         LEN 50
                         R 5
                         LEN 0
                         RB
                         SNS
                         C REW
                         $RUN *TAPEDUMP 0=*T* SPRINT=*PRINT*
1                                                                                               THU SEP 12/96   23:39:34   Page  170
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00489/002   TAPETEST                                 OC  G          WSG:TT(1000)                                                    
            D4.2T1  280  TAPETEST..OC.002                   1 LINE     80    5 PAGE UM   WSG                 MAR. 26, 1979  03:22:14
00490      *LAR                                      C              *LAR                                                            
            D4T1   1203  LAR..C.                            1 LINE     29    1 PAGE UM   MTA                 JULY 27, 1977  04:07:31
                         STRT:*LAR            
0          COMMAND FILE TO RUN UNITS (1012) TO RESET ALL 2703 (AND SIMILAR) LINES.
           IT RESETS EVERYTHING WITH DEVICE TYPE MRXA, SDA, TTY, OR 2741.
           INVOKED BY ENTERING "MTS *LAR" ON THE OPERATOR'S CONSOLE.
           IT SHOULD ONLY BE USED WHEN A 2703 OR MEMOREX 1270 HAS DROPPED ITS
           LINES SINCE IT FAKES A UNIT CHECK ON EACH 2703 ADDRESS.
00491/001  *SCRAMBLE                                 SF  O          S0683 OGDEN FSNAME=SCRAMBLE.S                                   
            D4T1   1204  SCRAMBLE..SF.001                   1 LINE     50    1 PAGE UM   OGDEN               JUNE 06, 1976  22:11:25
0          THE PREVIOUSLY SCRAMBLED SOURCE FOR *SCRAMBLE HAS NOW BEEN UNSCRAMBLED (IF ANYONE
           CARES, SINCE THIS PROGRAM IS NOW CONSIDERED TO BE OBSOLETE AT UM).   *ENCRYPT (677)
           IS A BETTER PROGRAM FOR THE SAME PURPOSE.
0          Referenced by comments of: 677/1 
00491/002  *SCRAMBLE                                 OC  O          S0683 OGDEN FSNAME=SCRAMBLE.O                                   
            D4T1   1205  SCRAMBLE..OC.002                   1 LINE    175    3 PAGE UM   OGDEN               JUNE 06, 1976  22:11:42
00491/003  *SCRAMBLE                 WRITEUP         WT  O          S0780 'D3.1T1' FSNAME=SCRAMBLE.WRITEUP.WT.2(1)               293
            D4T1   1206  SCRAMBLE.WRITEUP.WT.003            1 LINE    132    4 PAGE UM   ENGLE               JAN. 08, 1974  16:05.57
0          GENERAL WRITEUP ON SCRAMBLE ALGORITHMNS.
00492/001  *DCALC                                    SP  G          S0722 'D3T3' FSNAME=DCALC..SP.1(1)                           123
            D4T1   1207  DCALC..SP.001                      1 LINE     80   13 PAGE UM   MTA                 AUG. 03, 1973  21:27.08
0          PL/I DESK CALCULATOR PROGRAM.
00492/002  *DCALC                                    OE  G          *DCALC                                                          
            D4T1   1208  DCALC..OE.002                      1 SEQ   21678    9 PAGE UM   MTA                 JULY 27, 1977  04:12:43
                         *DCALC               
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00493/001  *TALLY                    MAIN            SA  O  TALY    W044:TALLYSOU                                                   
            D4T1   1209  TALLY.370_MAIN.SA.001              1 LINE     80    9 PAGE UM   SALISBURY           JULY 27, 1977  04:12:45
0          TALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO COUNT THE NUMBER OF TIMES
           EACH MACHINE INSTRUCTION IS EXECUTED.
00493/002  *TALLY                    SIM SUBR        SA  O  TSIM    W044:TALLYSIMSOU                                                
            D4T1   1210  TALLY.370_SIM_SUBR.SA.002          1 LINE     80   36 PAGE UM   SALISBURY           JULY 27, 1977  04:12:47
1                                                                                               THU SEP 12/96   23:39:34   Page  171
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00493/003  *TALLY                    OBJECT          OC  O          *TALLY                                                          
                                                                                    UM   SALISBURY                                  
                         *TALLY               
00494/001  *CSMP                                     SA  G  CSMP    W020:CSMPDISTR(1,341)                                           
            D4T1   1215  CSMP..SA.001                       1 LINE     80    8 PAGE UM   FLANIGAN            JULY 27, 1977  04:12:59
0          CONTINUOUS SYSTEM MODELING PROGRAM (MODIFIED FROM IBM).
            
           *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS.
00494/002  *CSMP                                     OE  G          *CSMP                                                           
            D4T1   1216  CSMP..OE.002                       1 SEQ      80    2 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:02
                         *CSMP                
00494/003  *CSMP                     CSMPTRAN        SA  G  CPTR    W020:CSMPDISTR(500,720)                                         
            D4T1   1217  CSMP.*CSMPTRAN.SA.003              1 LINE     80    6 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:03
0          TRANSLATION CONTROL.  ASSEMBLE USING *SYSMAC AND PUT IN *CSMPTRAN. 
           ADD "$CONTINUE WITH *CSMPLIB" AT END.
00494/004  *CSMP                     *CSMPTRAN       OE  G          *CSMPTRAN                                                       
            D4T1   1218  CSMP.*CSMPTRAN.OE.004              1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:05
                         *CSMPTRAN            
0          ENDS WITH A "$CONTINUE WITH *CSMPLIB" CARD.
00494/005  *CSMP                     CSMPEXEC        SA  G  CPEX    W020:CSMPDISTR(1000,1107)                                       
            D4T1   1219  CSMP.*CSMPEXEC.SA.005              1 LINE     80    4 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:08
0          EXECUTION CONTROL
00494/006  *CSMP                     *CSMPEXEC       OE  G          *CSMPEXEC                                                       
            D4T1   1220  CSMP.*CSMPEXEC.OE.006              1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:10
                         *CSMPEXEC            
00494/007  *CSMP                     CSMPLIB IBM     S   G          S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80)           2  
            D4T1   1221  CSMP.*CSMPLIB.S.007                1 SEQ      80  155 PAGE UM   FLANIGAN            JULY 28, 1977  00:34:43
0          ORIGINAL IBM SOURCE (FORTRAN AND ASM).
00494/008  *CSMP                     CSMPLIB UPD     UU  G          W020:CSMPDISTR(2000,2175)                                       
            D4T1   1222  CSMP.*CSMPLIB.UU.008               1 LINE     80    4 PAGE UM   FLANIGAN            JULY 28, 1977  00:34:48
0          THIS UPDATE DECK APPLIES ALL KNOWN IBM APARS PLUS LOCAL CHANGES. IT ASSUMES THE FOLLOWING:
              (1) IBM SOURCE IS ON TAPE *S*
              (2) A POOL (SCRATCH) TAPE HAS BEEN MOUNTED AS *P*
              (3) AN EMPTY SEQUENTIAL FILE -A EXISTS
           THIS UPDATE PUTS THE UPDATED CSMP FORTRAN ROUTINES ON *P* (BLOCKING FACTOR 100), REWINDS IT,
           PUTS THE UPDATED CSMP ASSEMBLER ROUTINES IN -A, AND REWINDS AND UNLOADS *S*.
1                                                                                               THU SEP 12/96   23:39:34   Page  172
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00494/009  *CSMP                     CSMPLIB ASM     SA  G          W020:CSMPDISTR(1500,1531)                                       
            D4T1   1223  CSMP.*CSMPLIB.SA.009               1 LINE     70    1 PAGE UM   FLANIGAN            JULY 28, 1977  00:34:50
0          TWO ASM ROUTINES USED DURING DYNAMIC LINKING.
00494/010  *CSMP                     *CSMPLIB        OL  G          *CSMPLIB                                                        
            D4T1   1224  CSMP.*CSMPLIB.OL.010               1 SEQ    6924   32 PAGE UM   FLANIGAN            JULY 28, 1977  00:34:52
                         *CSMPLIB             
0          LIBRARY MADE FROM ASM AND FTN ROUTINES UPDATED BY 494/8 AND ASM ROUTINES
           FROM COMPONENT 494/9.  (NOTE:  FORTRANH HAS BEEN USED.)
00495/001   EXPL                     SUBMONITOR      SA     XMON    W052:EXMON.S                                                    
            D4.2T1  281  EXPL.SUBMONITOR.SA.001             1 LINE     80   40 PAGE UM   SHERRY              MAR. 26, 1979  03:22:15
0          EXTENDED VERSION OF XPL.  USING THIS VERSION, AN XPL PROGRAM CAN CONSIST OF A COLLECTION OF INDEPENDENTLY
           COMPILED PROCEDURES.  THIS VERSION PRODUCES NORMAL MTS OBJECT DECKS, RATHER THAN SPECIAL OBJECT MODULES.
            
           THE SUBMONITOR CONSISTS OF 4 CSECTS:  XMON, XPLDFLTS, COMPACT#, AND SORTIT.  ASSEMBLE USING *SYSMAC.
           COPIES *GDINFODSECT (594).
            
           THIS VERSION SUPPORTS CHANGES DESCRIBED IN 495/12.
0          Referenced by comments of: 318/9 
00495/002C  EXPL                     SUBMON UPDATE   UC  G          W226:EXMON                                                      
            RD16T1   72  EXPL.SUBMON_UPDATE.UC.002          1 LINE     80    3 PAGE UM   PICKELMAN           JULY 12, 1979  22:48:10
0          THIS IS AN UPDATE TO BE APPLIED TO 495/1.  THE OBJECT (495/14) IS NOT INSTALLED
           AS THE EXPL SUBMONITOR AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003).
00495/003   EXPL                     SUBMONITOR      OC             W052:EXMON.O                                                    
            D4.2T1  282  EXPL.SUBMONITOR.OC.002             1 LINE   5618    5 PAGE UM   SHERRY              MAR. 26, 1979  03:22:18
00495/004   EXPL                     *EXPLIB         OE             *EXPLIB                                                         
            D4.2T1  283  EXPL.*EXPLIB.OE.003                1 LINE   6364    4 PAGE UM   SHERRY              MAR. 26, 1979  03:22:19
                         *EXPLIB              
0          *EXPLIB SHOULD BE A LINKEDIT OF XMON, COMPACT#, AND SORTIT, PLUS THE XPLDFLTS CSECT WHICH SPECIFIES A FREE
           STRING AREA SIZE (FSASIZE) OF 5 PAGES.  ALL SYMBOLS SHOULD BE PURGED EXCEPT XPLSM, XPLSM@SP, COMPACTI,
           AND TIMEXOFX.  IN ADDITION, TIMEXOFX SHOULD BE CHANGED TO TIME_OF_ AND AN ENT CARD SPECIFYING XPLSM
           AS THE ENTRY POINT SHOULD BE INSERTED INTO THE OBJECT MODULE.
00495/005   EXPL                     *EXCOM          SX             *EXCOM                                                          
            D4.2T1  284  EXPL.*EXCOM.SX.004                 1 LINE     96   68 PAGE UM   SHERRY              MAR. 26, 1979  03:22:19
                         *EXCOM               
0          EXPL SOURCE FOR THE EXTENDED XPL COMPILER.  THE RESULTING OBJECT MUST BE RUN
           CONCATENATED WITH *EXPLIB.
00495/006C  EXPL                     *EXCOM UPDATE   UC  G          W226:EXCOM                                                      
            RD16T1   73  EXPL.*EXCOM_UPDATE.UC.006          1 LINE     68    1 PAGE UM   PICKELMAN           JULY 12, 1979  22:48:12
0          THIS IS AN UPDATE TO BE APPLIED TO 495/5.  THE OBJECT (495/13) IS NOT
1                                                                                               THU SEP 12/96   23:39:34   Page  173
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          INSTALLED AS *EXPL AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003). 
00495/007   EXPL                     *EXPL           OE             *EXPL                                                           
            D4.2T1  285  EXPL.*EXPL.OE.005                  1 SEQ   32767   41 PAGE UM   SHERRY              MAR. 26, 1979  03:22:24
                         *EXPL                
0          IT IS MOST CONVENIENT TO LINKEDIT THE COMPILER AND SUBMONITOR TOGETHER TO MAKE *EXPL.  NOTE THAT THE
           ENTRY POINT MUST BE XPLSM.  WHEN LINKEDITING, THE XPLDFLTS CSECT WHICH SETS THE FREE STRING AREA SIZE
           (FSASIZE) TO 15 PAGES SHOULD BE USED.
00495/008   EXPL                     *EXPLBNF        D              *EXPLBNF                                                        
            D4T1   1230  EXPL.*EXPLBNF.D.006                1 LINE     73    3 PAGE UM   SHERRY              JULY 28, 1977  00:37:44
                         *EXPLBNF             
0          SUITABLE INPUT TO *ANALYZER (318/13) TO PRODUCE THE NECESSARY DECLARATIONS FOR
           DRIVING THE PARSING ALGORITHM FOR *EXPL.
00495/009   EXPL                     *EXSKELETON     SX  G          *EXSKELETON                                                     
            D4T1   1231  EXPL.*EXSKELETON.SX.007            1 LINE     80   12 PAGE UM   SHERRY              JULY 28, 1977  00:37:46
                         *EXSKELETON          
0          THIS IS A VERSION OF SKELETON (318/12), A PROTO-COMPILER FOR USE WITH *EXPL.
           IT CONSISTS OF SEVERAL INDEPENDENTLY COMPILABLE EXTERNAL PROCEDURES WHICH FORM
           THE FRAMEWORK FOR A TABLE-DRIVEN COMPILER.
00495/010   EXPL                     CREATE          C              S0579 SAVE 'JWS-SAVE' FSNAME=EXPL.CREATE                        
            D4T1   1232  EXPL.CREATE.C.008                  1 LINE     31    1 PAGE UM   SHERRY              APR. 08, 1977  09:42:10
0          SOURCE FILE WHICH LINKEDITS THE APPROPRIATE PIECES OF THE SUBMONITOR AND EXCOM
           INTO AN EXPL COMPILER.
00495/011   EXPL                     MEMO 343        WF             S0563 D4T1 VLO FSNAME=EXPL.MEMO_343.WF.009(1)               1233
            D4T1   1233  EXPL.MEMO_343.WF.009               1 LINE    115    5 PAGE UM   SHERRY              JAN. 24, 1977  21:36:39
0          THIS IS COMPUTING CENTER MEMO 343 -- "EXPL--EXTENDED XPL"
00495/012   EXPL                     MEMO 390        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M390EXPL                         
            D4.2T1  286  EXPL.MEMO_390.WF.010               1 LINE     95    3 PAGE UM   SHERRY              SEP. 07, 1978  16:15:58
0          THIS IS COMPUTING CENTER MEMO 390 -- "CHANGES TO EXPL."
00495/013C  EXPL                     SUBMONITOR      OC  G          W226:EXMON.O                                                    
            RD16T1   74  EXPL.SUBMONITOR.OC.013             1 LINE   5250    5 PAGE UM   PICKELMAN           JULY 12, 1979  22:48:12
0          THIS IS THE OBJECT OF 495/1, WITH 495/2 UPDATE APPLIED.  THIS IS NOT INSTALLED
           AS THE EXPL SUBMONITOR AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB
           (9003).
0          Referenced by comments of: 495/6, 9003/1 
00495/014C  EXPL                     COMPILER        OC  G          W226:EXPL                                                       
            RD16T1   75  EXPL.COMPILER.OC.014               1 LINE  32767   40 PAGE UM   PICKELMAN           JULY 12, 1979  22:48:13
0          THIS IS THE OBJECT OF 495/5, WITH THE 495/6 UPDATE APPLIED.  THIS IS NOT 
1                                                                                               THU SEP 12/96   23:39:34   Page  174
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          INSTALLED AS *EXPL AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003).
0          Referenced by comments of: 495/2, 9003/36 
00496/001  *APC                                      SA  G          W062:APC.S                                                      
            D4.2T1  287  APC..SA.001                        1 LINE     73   69 PAGE UM   TIFFANY             MAR. 26, 1979  03:23:17
0          THIS IS THE ALL-PURPOSE COMPARE PROGRAM WHICH IS USED PRIMARILY TO TEST FOR
           EQUALITY BETWEEN RECORDS OF TWO FILES OR DEVICES.  COPIES *GDINFODSECT (594)
           AND *CNFGINFODSECT (654).  ASSEMBLE WITH PAR=SIZE=32.
0          Referenced by comments of: 629/12, 746/1, 1016/1, 1024/1 
00496/002C *APC                      UPDATE          UC  G          W062:APC.UP                                                     
            RD16T1   76  APC.UPDATE.UC.002                  1 LINE     68    3 PAGE UM   TIFFANY             JULY 12, 1979  22:48:16
0          UPDATE TO 496/1.  USES TR3270 (629/12).
00496/003B *APC                                      OE  G          *APC                                                            
            RD16T1   77  APC..OE.003                        1 LINE  21255    8 PAGE UM   TIFFANY             JULY 12, 1979  22:48:17
                         *APC                 
0          HAS A $CONTINUE WITH *LIBRARY RECORD.
00496/004  *APC                      EXPLAIN MSG     M              ETC:APCEXP                                                      
            D4.1T1  229  APC.EXPLAIN_MSG.M.003              1 LINE     66   10 PAGE UM   TIFFANY             MAY  13, 1978  17:29:42
                         ETC.:APCEXP          
0          EXPLAIN MESSAGE FILE FOR *APC.
00497/001  *SNAP                                     SF  G          S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80)           1  
            D4T1   1240  SNAP..SF.001                       1 SEQ      80  132 PAGE UM   FLANIGAN            JULY 28, 1977  00:40:58
00497/002  *SNAP                                     UU  G          S0722 'D3T3' FSNAME=SNAP..UU.2(1)                            147
            D4T1   1241  SNAP..UU.002                       1 LINE     73    1 PAGE UM   FLANIGAN            JULY 30, 1973  20:45.57
00497/003  *SNAP                                     OE  G          *SNAP                                                           
            D4T1   1242  SNAP..OE.003                       1 SEQ    5212   27 PAGE UM   FLANIGAN            JULY 28, 1977  00:43:57
                         *SNAP                
00498/001D *IG                       DI              SA  G          GRAF:IG.DI.S                                                    
            RD16T1   78  IG.DI.SA.001                       1 LINE     84   72 PAGE UM   GOODRICH            JULY 12, 1979  22:48:19
0          *****************************************************************************
           RD16 VERSION:
            
           COMPONENTS 498/1 AND 498/4 ARE NOT INTENDED FOR INSTALLATION -- THEY WILL NOT
           FUNCTION CORRECTLY IF USED SINCE THEY INCLUDE PORTIONS OF A NEW EGP
           IMPLEMENTATION.  HOWEVER, THEY ARE BEING REDISTRIBUTED SINCE THEY NOW INCLUDE
           UNE-DEPENDENT CODE UNDER CONDITIONAL STATEMENTS.  CORRECTIONS TO THIS AND
           SIMILAR CODE FOR OTHER SITES SHOULD BE SENT BACK TO U OF M FOR INCLUSION.
           *****************************************************************************
1                                                                                               THU SEP 12/96   23:39:34   Page  175
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/002  *IG                       DSM             SA  G          S0933 IGDIST FSNAME=IG.DSM.S                                    
            D4.2T1  290  IG.DSM.SA.002                      1 LINE     86   38 PAGE UM   GOODRICH            MAR. 24, 1979  02:04:03
0          SOURCE FOR DATA STRUCTURE MANIPULATON CSECT (DSM).
00498/003  *IG                       PD              SA  G          S0933 IGDIST FSNAME=IG.PD.S                                     
            D4.2T1  291  IG.PD.SA.003                       1 LINE     87   16 PAGE UM   GOODRICH            MAR. 24, 1979  02:05:03
0          SOURCE FOR PICTURE DESCRIPTION CSECT (PD).
00498/004D *IG                       GETDD           SA  G          GRAF:IG.GETDD.S                                                 
            RD16T1   79  IG.GETDD.SA.004                    1 LINE     91   22 PAGE UM   GOODRICH            JULY 12, 1979  22:48:43
0          SOURCE FOR GET DEVICE DEPENDENT ROUTINE CSECT (#IGETDD).
00498/005  *IG                       EGP             SA  G          S0933 IGDIST FSNAME=IG.EGP.S                                    
            D4.2T1  293  IG.EGP.SA.005                      1 LINE     86   10 PAGE UM   GOODRICH            MAR. 24, 1979  02:04:46
0          SOURCE FOR GET EXTERNAL GRAPHICS PROCEDURE CSECT (#IGETEGP).
00498/006  *IG                       ERRCOM          SA  G          S0933 IGDIST FSNAME=IG.ERRCOM.S                                 
            D4T1   1248  IG.ERRCOM.SA.006                   1 LINE     85    3 PAGE UM   GOODRICH            AUG. 05, 1976  21:11:45
0          SOURCE FOR ERROR COMMENT PRINTING CSECT (ERRCOM#).
00498/007  *IG                       LOAD            SA  G          S0933 IGDIST FSNAME=IG.LOAD.S                                   
            D4T1   1249  IG.LOAD.SA.007                     1 LINE     88   12 PAGE UM   GOODRICH            JULY 09, 1977  14:00:42
0          SOURCE FOR OBJECT LOADING FACILITY (LOAD).
00498/008  *IG                       *IG             OL  G          *IG                                                             
            D4.2T1  294  IG.*IG.OL.008                      1 SEQ   20060   20 PAGE UM   GOODRICH            MAR. 26, 1979  03:25:47
                         *IG                  
0          OBJECT LIBRARY FOR INTEGRATED GRAPHICS ROUTINES.
00498/009  *IG                       COPY:IG.COPY.M  SM  G          COPY:IG.COPY.M                                                  
            D4.2T1  295  IG.COPY:IG.COPY.M.SM.009           1 LINE     75   16 PAGE UM   GOODRICH            MAR. 26, 1979  03:25:48
                         COPY:IG.COPY.M       
0          MACRO LIBRARY OF COPY SECTIONS USED BY THE VARIOUS COMPONENTS OF IG.
00498/010  *IG                       TEST            SF  G          W114:IG.TEST.S                                                  
            D4.2T1  296  IG.TEST.SF.010                     1 LINE     85   21 PAGE UM   GOODRICH            MAR. 26, 1979  03:25:54
0          FORTRAN SOURCE FOR THE PROGRAM TO TEST OUT NEW VERSIONS OF IG.
00498/011  *IG                       DUMP            SA  G          S0933 IGDIST FSNAME=IG.DUMP.S                                   
            D4T1   1253  IG.DUMP.SA.011                     1 LINE     88    8 PAGE UM   GOODRICH            MAY  01, 1977  16:08:35
0          SOURCE FOR IG DATA STRUCTURE DUMPING ROUTINE.
1                                                                                               THU SEP 12/96   23:39:34   Page  176
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/012  *IG                       DUMP            OE  G          S0933 IGDIST FSNAME=IG.DUMP.O                                   
            D4T1   1254  IG.DUMP.OE.012                     1 LINE     80    3 PAGE UM   GOODRICH            JULY 09, 1977  21:48:05
0          OBJECT FOR IG DATA STRUCTURE DUMPING ROUTINE.
00498/013  *IG                       BRANCH MONITOR  SA  G          S0933 IGDIST FSNAME=BMON.S                                      
            D4T1   1255  IG.BRANCH_MONITOR.SA.013           1 LINE     69    4 PAGE UM   GOODRICH            JUNE 01, 1976  14:21:53
0          SOURCE FOR A PROGRAM WHICH MONITORS ALL THE BRANCHES IN A SPECIFIED ROUTINE.
00498/014  *IG                       BRANCH MONITOR  OE  G          S0933 IGDIST FSNAME=BMON.O                                      
            D4T1   1256  IG.BRANCH_MONITOR.OE.014           1 LINE    255    1 PAGE UM   GOODRICH            JULY 09, 1977  21:48:02
0          OBJECT FOR A PROGRAM WHICH MONITORS ALL THE BRANCHES IN A SPECIFIED ROUTINE.
00498/015  *IG                       RELINK          C              W114:IG.RELINK                                                  
            D4.1T1  237  IG.RELINK.C.015                    1 LINE     61    1 PAGE UM   GOODRICH            MAY  13, 1978  17:31:40
0          COMMANDS TO LINKEDIT AND CREATE A LIBRARY FOR A NEW VERSION OF IG.
00498/016  *IG                       STATS SAVE      C              S0933 IGDIST FSNAME=IG.SHUFFLE                                  
            D4.1T1  238  IG.STATS_SAVE.C.016                1 LINE     50    1 PAGE UM   GOODRICH            APR. 08, 1978  16:57:22
0          COMMANDS TO SAVE THE CONTENTS OF THE STATISTICS FILE (498/95) MAINTAINED BY IG.
           THE TAPE MOUNT COMMAND IN THIS FILE MUST BE CHANGED FOR EACH INSTALLATION BEFORE IT IS OF USE.
00498/017  *IG                       MEMO 299        WF             S0563 D4T1 VLO FSNAME=IG.MEMO_299.WF.017(1)                 1259
            D4T1   1259  IG.MEMO_299.WF.017                 1 LINE    235   61 PAGE UM   GOODRICH            MAR. 04, 1977  14:29:58
0          THIS IS COMPUTING CENTER MEMO 299 -- "INTEGRATED GRAPHICS SYSTEM USER'S GUIDE"
00498/018  *IG                       IMPLEMENTATION  WF             S0933 IGDIST FSNAME=IGIG.W                                      
            D4.2T1  297  IG.IMPLEMENTATION.WF.018           1 LINE    145   25 PAGE UM   GOODRICH            AUG. 29, 1978  01:29:16
0          THE INTEGRATED GRAPHICS INTERNAL GUTS AND IMPLEMENTATION GUIDE.
00498/019  *IG                       STATS CALC      SF  G          S0933 IGDIST FSNAME=IG.STATC.S                                  
            D4T1   1261  IG.STATS_CALC.SF.019               1 LINE     67    2 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:11
0          FORTRAN SOURCE FOR A PROGRAM WHICH CALCULATES AND GROUPS INFORMATION ON IG USAGE FROM THE STATISTICS GATHERED BY IG.
00498/020  *IG                       STATS SCAN      SA  G          S0933 IGDIST FSNAME=IG.STATSCN.S                                
            D4T1   1262  IG.STATS_SCAN.SA.020               1 LINE     87    3 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:16
0          FORTRAN SOURCE FOR A PROGRAM TO SCAN SELECTIVELY FOR CERTAIN RECORDS IN THE  STATISTICS FILE MAINTAINED BY IG.
00498/021  *IG                       PWRIT           SA  G          S0933 IGDIST FSNAME=IG.PWRIT.S                                  
            D4.1T1  240  IG.PWRIT.SA.021                    1 LINE     93   10 PAGE UM   GOODRICH            APR. 08, 1978  16:56:35
0          SOURCE FOR THE *PLOTSYS INTERFACE WHICH ALLOWS CALCOMP PLOTTING PROGRAMS TO RUN WITH IG INSTEAD.
1                                                                                               THU SEP 12/96   23:39:34   Page  177
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/022  *IG                       UBPWRIT         SF  G          S0933 IGDIST FSNAME=IG.UBPWRIT.S                                
            D4T1   1264  IG.UBPWRIT.SF.022                  1 LINE     72    3 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:46
0          SOURCE FOR THE UBC PWRIT PROGRAM USED TO INTERFACE THEIR PLOTTING ROUTINES TO ALLOW PROGRAMS TO RUN WITH IG INSTEAD.
00498/023  *IG                       IGRI.339        S              S0596 BLAH 'IG ROUTINES' FSNAME=W114:IGRI.339.S                 
            D4T1   1265  IG.IGRI.339.S.023                  1 LINE     79   13 PAGE UM   GOODRICH            DEC. 21, 1974  16:04.29
0          SOURCE FOR AN OPERATING SYSTEM FOR THE DEC 339 / PDP-9 WHICH ALLOWS THE RUNNING OF IG.
00498/024  *IG                       FIGURES         SF  G          S0933 IGDIST FSNAME=IG.FIGS.S                                   
            D4T1   1266  IG.FIGURES.SF.024                  1 LINE     82    4 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:54
0          FORTRAN SOURCE FOR A PROGRAM TO GENERATE THE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE.
00498/025  *IG                       FIGURES 1       SG  G          S0933 IGDIST FSNAME=IG.FIGS1.S                                  
            D4T1   1267  IG.FIGURES_1.SG.025                1 LINE     56    1 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:57
0          GOM SOURCE FOR A PROGRAM TO GENERATE MORE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE.
00498/026  *IG                       FIGURES DATA    D              S0933 IGDIST FSNAME=IG.FIGS.D                                   
            D4T1   1268  IG.FIGURES_DATA.D.026              1 LINE    252    6 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:52
0          DATA FOR THE PROGRAMS USED TO GENERATE THE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE.
00498/027  *IG                       GREEKFONT       SA  G          S0933 IGDIST FSNAME=IG.GREEKF.S                                 
            D4T1   1269  IG.GREEKFONT.SA.027                1 LINE     92    4 PAGE UM   GOODRICH            JULY 09, 1977  21:47:50
0          SOURCE FOR THE GREEK CHARACTER SET USED BY IG.  OBJECT IS AT LINES (400,999)
           OF 498/28.
0          Referenced by comments of: 498/28 
00498/028  *IG                       ETC:IG.FONTS    OC  G          ETC:IG.FONTS                                                    
            D4T1   1270  IG.ETC:IG.FONTS.OC.028             1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:50:39
                         ETC.:IG.FONTS        
0          THIS FILE CONTAINS THE OBJECT FOR THE IG CHARACTER FONTS, CURRENTLY ONLY THE
           GREEK FONT (498/27).  EACH FONT STARTS ON A MULTIPLE OF LINE 100.  LINES 0 TO
           99 CURRENTLY CONTAIN A SNOBOL PROGRAM TO CONVERT THE OLD BYTE-STYLE CHARACTER
           SET SOURCE TO THE NEW HALFWORD DEFINITION SOURCE.  THIS MAY BE DELETED WHEN NO
           LONGER NEEDED.
00498/029  *IG                       *IG.AGT         SA  G          S0933 IGDIST FSNAME=IG.AGT.S                                    
            D4T1   1271  IG.*IG.AGT.SA.029                  1 LINE     89    8 PAGE UM   GOODRICH            FEB. 26, 1977  20:24:08
0          SOURCE FOR THE DDR FOR THE ADAGE 10 REFRESH DISPLAY.
00498/030  *IG                       *IG.AGT         OC  G          S0933 IGDIST FSNAME=IG.AGT.O                                    
            D4T1   1272  IG.*IG.AGT.OC.030                  1 LINE     80    3 PAGE UM   GOODRICH            MAY  11, 1977  18:47:58
1                                                                                               THU SEP 12/96   23:39:34   Page  178
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/031  *IG                       *IG.AJ830       SA  G          S0933 IGDIST FSNAME=IG.AJ830.S                                  
            D4T1   1273  IG.*IG.AJ830.SA.031                1 LINE     93   10 PAGE UM   GOODRICH            JULY 09, 1977  14:04:41
0          SOURCE FOR THE DDR FOR THE ANDERSON-JACOBSON 830 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION.
00498/032  *IG                       *IG.AJ830       OC  G          *IG.AJ830                                                       
            D4T1   1274  IG.*IG.AJ830.OC.032                1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:01
                         *IG.AJ830            
00498/033  *IG                       *IG.CCMP        SA  G          S0933 IGDIST FSNAME=IG.CCMP.S                                   
            D4.1T1  241  IG.*IG.CCMP.SA.033                 1 LINE    108    8 PAGE UM   GOODRICH            APR. 08, 1978  16:54:34
0          SOURCE FOR THE DDR FOR THE CALCOMP PLOTTER VIA *PLOTSYS.
00498/034  *IG                       *IG.CCMP        OC  G          *IG.CCMP                                                        
            D4.1T1  242  IG.*IG.CCMP.OC.034                 1 SEQ      80    2 PAGE UM   GOODRICH            MAY  13, 1978  17:32:04
                         *IG.CCMP             
0          HAS A "$CONTINUE WITH *PLOTSYS" CARD.
00498/035  *IG                       *IG.CK400       SA  G          S0933 IGDIST FSNAME=IG.CK400.S                                  
            D4.1T1  243  IG.*IG.CK400.SA.035                1 LINE     90   11 PAGE UM   GOODRICH            DEC. 07, 1977  23:26:43
0          SOURCE FOR THE DDR FOR THE COMPUTEK 400 STORAGE TUBE DISPLAY.
00498/036  *IG                       *IG.CK400       OC  G          *IG.CK400                                                       
            D4.1T1  244  IG.*IG.CK400.OC.036                1 SEQ      80    3 PAGE UM   GOODRICH            MAY  13, 1978  17:32:09
                         *IG.CK400            
00498/037  *IG                       *IG.DTC300      SA  G          S0933 IGDIST FSNAME=IG.DTC300.S                                 
            D4T1   1279  IG.*IG.DTC300.SA.037               1 LINE     95    9 PAGE UM   GOODRICH            JULY 09, 1977  14:04:56
0          SOURCE FOR THE DDR FOR THE DATA TERMINALS CORPORATION 300 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION.
00498/038  *IG                       *IG.DTC300      OC  G          *IG.DTC300                                                      
            D4T1   1280  IG.*IG.DTC300.OC.038               1 SEQ      80    2 PAGE UM   GOODRICH            JULY 28, 1977  00:51:13
                         *IG.DTC300           
00498/039  *IG                       *IG.DTC302      SA  G          S0933 IGDIST FSNAME=IG.DTC302.S                                 
            D4T1   1281  IG.*IG.DTC302.SA.039               1 LINE     95    9 PAGE UM   GOODRICH            JULY 09, 1977  14:05:02
0          SOURCE FOR THE DDR FOR THE DATA TERMINALS CORPORATION 302 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION.
00498/040  *IG                       *IG.DTC302      OC  G          *IG.DTC302                                                      
            D4T1   1282  IG.*IG.DTC302.OC.040               1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:18
                         *IG.DTC302           
00498/041  *IG                       *IG.GT40        SA  G          S0933 IGDIST FSNAME=IG.GT40.S                                   
            D4T1   1283  IG.*IG.GT40.SA.041                 1 LINE     91   10 PAGE UM   GOODRICH            MAY  01, 1977  16:06:13
0          SOURCE FOR THE DDR FOR THE DIGITAL EQUIPMENT CORPORATION GT40 REFRESH DISPLAY.
1                                                                                               THU SEP 12/96   23:39:34   Page  179
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/042  *IG                       *IG.GT40        OC  G          *IG.GT40                                                        
            D4T1   1284  IG.*IG.GT40.OC.042                 1 SEQ      80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:22
                         *IG.GT40             
00498/043  *IG                       *IG.HP2648      SA  G        = S0933 IGDIST FSNAME=IG.HP2648.S                                 
                                                                                    UM   GOODRICH                                   
0          SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 2648 VIDEO-GRAPHICS TERMINAL.
           (NOT READY FOR DISTRIBUTION)
00498/044  *IG                       *IG.HP2648      OC  G        = *IG.HP2648                                                      
                                                                                    UM   GOODRICH                                   
0          (NOT READY FOR DISTRIBUTION)
00498/045  *IG                       *IG.HP7203      SA  G          S0933 IGDIST FSNAME=IG.HP7203.S                                 
            D4T1   1285  IG.*IG.HP7203.SA.043               1 LINE     95    9 PAGE UM   GOODRICH            MAY  01, 1977  16:06:18
0          SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 7203A PLOTTER WITH EIA INTERFACE.
00498/046  *IG                       *IG.HP7203      OC  G          *IG.HP7203                                                      
            D4T1   1286  IG.*IG.HP7203.OC.044               1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:26
                         *IG.HP7203           
00498/047C *IG                       *IG.HP7221      SA  G          S0933 IGDIST FSNAME=IG.HP7221.S                                 
            RD16T1   80  IG.*IG.HP7221.SA.047               1 LINE    102   17 PAGE UM   GOODRICH            AUG. 29, 1978  01:25:18
0          SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 7221A 4-PEN PLOTTER WITH EIA INTERFACE.
00498/048C *IG                       *IG.HP7221      OC  G          *IG.HP7221                                                      
            RD16T1   81  IG.*IG.HP7221.OC.048               1 LINE     80    5 PAGE UM   GOODRICH            JULY 12, 1979  22:51:57
00498/049  *IG                       *IG.HUGHES      SA  G          S0933 IGDIST FSNAME=IG.HUGHES.S                                 
            D4.1T1  245  IG.*IG.HUGHES.SA.045               1 LINE     92   19 PAGE UM   GOODRICH            OCT. 11, 1977  19:01:24
0          SOURCE FOR THE DDR FOR THE HUGHES GRAPHICS TERMINAL.
00498/050  *IG                       *IG.HUGHES      OC  G          *IG.HUGHES                                                      
            D4.1T1  246  IG.*IG.HUGHES.OC.046               1 LINE     80    4 PAGE UM   GOODRICH            MAY  13, 1978  17:32:14
                         *IG.HUGHES           
00498/051  *IG                       *IG.MX12000     SA  G          S0933 IGDIST FSNAME=IG.MX12000.S                                
            D4T1   1287  IG.*IG.MX12000.SA.045              1 LINE     94   13 PAGE UM   GOODRICH            JULY 09, 1977  14:06:49
0          SOURCE FOR THE DDR FOR THE MAGNAVOX 12000 PLASMA TERMINAL.
00498/052  *IG                       *IG.MX12000     OC  G          *IG.MX12000                                                     
            D4T1   1288  IG.*IG.MX12000.OC.046              1 LINE     80    4 PAGE UM   GOODRICH            JULY 28, 1977  00:51:31
                         *IG.MX12000          
00498/053  *IG                       *IG.PEP         SA  G          S0933 IGDIST FSNAME=IG.PEP.S                                    
            D4T1   1289  IG.*IG.PEP.SA.047                  1 LINE     96   11 PAGE UM   GOODRICH            JULY 09, 1977  14:06:57
0          SOURCE FOR THE DDR FOR THE PRINCETON ELECTRONIC PRODUCTS 801 LITHICON DISPLAY.
1                                                                                               THU SEP 12/96   23:39:34   Page  180
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/054  *IG                       *IG.PEP         OC  G          *IG.PEP                                                         
            D4T1   1290  IG.*IG.PEP.OC.048                  1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:35
                         *IG.PEP              
00498/055  *IG                       *IG.PRNT        SA  G          S0933 IGDIST FSNAME=IG.PRNT.S                                   
            D4T1   1291  IG.*IG.PRNT.SA.049                 1 LINE     91    4 PAGE UM   GOODRICH            MAY  01, 1977  16:06:34
0          SOURCE FOR THE DDR FOR PRINTER PLOTS. (WILL BE REPLACED SOON BY CODE FROM UBC).
00498/056  *IG                       *IG.PRNT        OC  G          *IG.PRNT                                                        
            D4T1   1292  IG.*IG.PRNT.OC.050                 1 LINE     80    2 PAGE UM   GOODRICH            JULY 28, 1977  00:51:39
                         *IG.PRNT             
00498/057  *IG                       *IG.QUMES5      SA  G          S0933 IGDIST FSNAME=IG.QUMES5.S                                 
            D4.2T1  298  IG.*IG.QUMES5.SA.057               1 LINE     92   10 PAGE UM   GOODRICH            JAN. 04, 1979  18:38:55
0          SOURCE FOR THE DDR FOR THE QUME SPRINT5 TERMINAL WITH DIABLO-STYLE PRINTER.
00498/058  *IG                       *IG.QUMES5      OC  G          *IG.QUMES5                                                      
            D4.2T1  299  IG.*IG.QUMES5.OC.058               1 LINE     80    4 PAGE UM   GOODRICH            MAR. 26, 1979  03:28:33
                         *IG.QUMES5           
00498/059  *IG                       *IG.SAVE        SA  G          S0933 IGDIST FSNAME=IG.SAVE.S                                   
            D4T1   1293  IG.*IG.SAVE.SA.051                 1 LINE     91    9 PAGE UM   GOODRICH            JULY 09, 1977  14:07:07
0          SOURCE FOR THE FAKE DDR WHICH DOES SAVING OF OBJECTS.
00498/060  *IG                       *IG.SAVE        OC  G          *IG.SAVE                                                        
            D4T1   1294  IG.*IG.SAVE.OC.052                 1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:43
                         *IG.SAVE             
00498/061  *IG                       *IG.TD4000      SA  G          S0933 IGDIST FSNAME=IG.TD4000.S                                 
            D4T1   1295  IG.*IG.TD4000.SA.053               1 LINE     92    9 PAGE UM   GOODRICH            JULY 09, 1977  14:07:12
0          SOURCE FOR THE DDR FOR THE TREND DATA 4000 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION.
00498/062  *IG                       *IG.TD4000      OC  G          *IG.TD4000                                                      
            D4T1   1296  IG.*IG.TD4000.OC.054               1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:48
                         *IG.TD4000           
00498/063  *IG                       *IG.TTY         SA  G          S0933 IGDIST FSNAME=IG.TTY.S                                    
            D4T1   1297  IG.*IG.TTY.SA.055                  1 LINE     99   10 PAGE UM   GOODRICH            JULY 11, 1977  15:01:03
0          SOURCE FOR THE DDR FOR THE TELETYPE DEBUGGING ROUTINES.
00498/064  *IG                       *IG.TTY         OC  G          *IG.TTY                                                         
            D4T1   1298  IG.*IG.TTY.OC.056                  1 SEQ      80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:52:09
                         *IG.TTY              
00498/065  *IG                       *IG.TX4002      SA  G          S0933 IGDIST FSNAME=IG.TX4002.S                                 
            D4T1   1299  IG.*IG.TX4002.SA.057               1 LINE     96   10 PAGE UM   GOODRICH            JULY 09, 1977  14:07:23
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4002 STORAGE TUBE DISPLAY.
1                                                                                               THU SEP 12/96   23:39:34   Page  181
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/066  *IG                       *IG.TX4002      OC  G          *IG.TX4002                                                      
            D4T1   1300  IG.*IG.TX4002.OC.058               1 SEQ      80    2 PAGE UM   GOODRICH            JULY 28, 1977  00:52:36
                         *IG.TX4002           
00498/067  *IG                       *IG.TX4006      SA  G          S0933 IGDIST FSNAME=IG.TX4006.S                                 
            D4T1   1301  IG.*IG.TX4006.SA.059               1 LINE     95   11 PAGE UM   GOODRICH            JULY 09, 1977  14:07:28
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4006 STORAGE TUBE DISPLAY.
00498/068  *IG                       *IG.TX4006      OC  G          *IG.TX4006                                                      
            D4T1   1302  IG.*IG.TX4006.OC.060               1 LINE     80    4 PAGE UM   GOODRICH            JULY 28, 1977  00:52:41
                         *IG.TX4006           
00498/069  *IG                       *IG.TX4010      SA  G          S0933 IGDIST FSNAME=IG.TX4010.S                                 
            D4T1   1303  IG.*IG.TX4010.SA.061               1 LINE     95   12 PAGE UM   GOODRICH            JULY 09, 1977  21:46:11
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4010 STORAGE TUBE DISPLAY.
00498/070  *IG                       *IG.TX4010      OC  G          *IG.TX4010                                                      
            D4T1   1304  IG.*IG.TX4010.OC.062               1 SEQ      80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:52:45
                         *IG.TX4010           
00498/071  *IG                       *IG.TX4014      SA  G          S0933 IGDIST FSNAME=IG.TX4014.S                                 
            D4.1T1  247  IG.*IG.TX4014.SA.065               1 LINE    105   12 PAGE UM   GOODRICH            OCT. 11, 1977  19:01:55
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4014 STORAGE TUBE DISPLAY.
00498/072  *IG                       *IG.TX4014      OC  G          *IG.TX4014                                                      
            D4.1T1  248  IG.*IG.TX4014.OC.066               1 SEQ      80    3 PAGE UM   GOODRICH            MAY  13, 1978  17:32:17
                         *IG.TX4014           
00498/073  *IG                       *IG.TX4025      SA  G          S0933 IGDIST FSNAME=IG.TX4025.S                                 
            D4.1T1  249  IG.*IG.TX4025.SA.067               1 LINE     95   11 PAGE UM   GOODRICH            APR. 08, 1978  16:57:48
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4025 STORAGE TUBE DISPLAY.
00498/074  *IG                       *IG.TX4025      OC  G          *IG.TX4025                                                      
            D4.1T1  250  IG.*IG.TX4025.OC.068               1 LINE     80    4 PAGE UM   GOODRICH            MAY  13, 1978  17:32:32
                         *IG.TX4025           
00498/075  *IG                       *IG.TX4662      SA  G          S0933 IGDIST FSNAME=IG.TX4662.S                                 
            D4.2T1  300  IG.*IG.TX4662.SA.075               1 LINE    102   12 PAGE UM   GOODRICH            JAN. 04, 1979  18:39:03
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4662 DIGITAL PLOTTER.
00498/076  *IG                       *IG.TX4662      OC  G          *IG.TX4662                                                      
            D4.2T1  301  IG.*IG.TX4662.OC.076               1 LINE     80    4 PAGE UM   GOODRICH            MAR. 26, 1979  03:28:38
                         *IG.TX4662           
00498/077  *IG                       *IG.VUCOM       SA  G          S0933 IGDIST FSNAME=IG.VUCOM.S                                  
            D4T1   1309  IG.*IG.VUCOM.SA.067                1 LINE     93    6 PAGE UM   GOODRICH            FEB. 26, 1977  20:28:30
0          SOURCE FOR THE DDR FOR THE VUCOM TERMINAL.
1                                                                                               THU SEP 12/96   23:39:34   Page  182
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/078  *IG                       *IG.VUCOM       OC  G          S0933 IGDIST FSNAME=IG.VUCOM.O                                  
            D4T1   1310  IG.*IG.VUCOM.OC.068                1 LINE     80    3 PAGE UM   GOODRICH            JUNE 16, 1976  19:09:45
00498/079  *IG                       *IG.XX1620      SA  G          S0933 IGDIST FSNAME=IG.XX1620.S                                 
            D4T1   1311  IG.*IG.XX1620.SA.069               1 LINE     95    9 PAGE UM   GOODRICH            JULY 09, 1977  21:46:28
0          SOURCE FOR THE DDR FOR THE XEROX 1620 TERMINAL WITH DIABLO PRINTER.
00498/080  *IG                       *IG.XX1620      OC  G          *IG.XX1620                                                      
            D4T1   1312  IG.*IG.XX1620.OC.070               1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:53:02
                         *IG.XX1620           
00498/081  *IG                       *IG.ZETA        SA  G          S0933 IGDIST FSNAME=IG.ZETA.S                                   
            D4T1   1313  IG.*IG.ZETA.SA.071                 1 LINE     86   14 PAGE UM   GOODRICH            FEB. 26, 1977  20:19:25
0          SOURCE FOR THE DDR FOR THE ZETA PLOTTER DEVELOPED BY NCSS.  NEEDS SOME CHANGES
           TO RUN IN MTS.  OBJECT NOT DISTRIBUTED.
00498/082  *IG                       *IG.3270        SA  G          S0933 IGDIST FSNAME=IG.3270.S                                   
            D4.1T1  253  IG.*IG.3270.SA.076                 1 LINE     88    9 PAGE UM   GOODRICH            APR. 08, 1978  16:57:58
0          SOURCE FOR THE DDR FOR THE IBM 3270 AND COMPATIBLE TERMINALS.
00498/083  *IG                       *IG.3270        OC  G          *IG.3270                                                        
            D4.1T1  254  IG.*IG.3270_-_370.OC.077           1 SEQ      80    2 PAGE UM   GOODRICH            MAY  13, 1978  17:32:36
                         *IG.3270             
00498/084  *IG                       *IG.339         SA  G          S0933 IGDIST FSNAME=IG.339.S                                    
            D4.1T1  256  IG.*IG.339.SA.080                  1 LINE     96    6 PAGE UM   GOODRICH            APR. 08, 1978  16:58:02
0          SOURCE FOR THE DDR FOR THE DIGITAL EQUIPMENT CORPORATION 339 REFRESH DISPLAY.
00498/085  *IG                       *IG.339         OC  G          *IG.339                                                         
            D4.1T1  257  IG.*IG.339.OC.081                  1 SEQ      80    2 PAGE UM   GOODRICH            MAY  13, 1978  17:32:39
                         *IG.339              
00498/086  *IG                       INTERACTIVE IG  SG  O          S0933 IGDIST FSNAME=IAIG.S                                      
            D4.1T1  258  IG.INTERACTIVE_IG.SG.082           1 LINE    115   24 PAGE UM   GOODRICH            APR. 08, 1978  17:10:19
0          SOURCE FOR AN INTERACTIVE VERSION OF IG REQUIRING NO PROGRAMMING ON PART OF USER.
           REQUIRES NEW:GOMLIB.  ALSO MAY BE USED AS A GRAPHICS MONITOR FOR PROGRAMS BY
           CALLING THE ENTRY REIAIG.
0          Referenced by comments of: 498/89, 498/91, 659/34 
00498/087  *IG                       INTERACTIVE IG  OC  O          S0933 IGDIST FSNAME=IAIG.O                                      
            D4.1T1  259  IG.INTERACTIVE_IG.OC.083           1 LINE     80   23 PAGE UM   GOODRICH            APR. 08, 1978  17:10:40
0          HAS A "$CONTINUE WITH NEW:GOMLIB+W081:SPANBREAK.O" CARD.
00498/088  *IG                       INTERACTIVE IG  WF  O          S0933 IGDIST FSNAME=IAIG.W                                      
            D4T1   1321  IG.INTERACTIVE_IG.WF.079           1 LINE    142    4 PAGE UM   GOODRICH            JULY 09, 1977  21:52:00
1                                                                                               THU SEP 12/96   23:39:34   Page  183
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00498/089  *IG                       SPAN BREAK      SA  G          S0933 IGDIST FSNAME=SPANBREAK.S                                 
            D4T1   1322  IG.SPAN_BREAK.SA.080               1 LINE     76    4 PAGE UM   GOODRICH            JULY 09, 1977  21:52:04
0          SNOBOL STYLE SPAN AND BREAK FUNCTIONS USED BY INTERACTIVE IG (498/86).
00498/090  *IG                       SPAN BREAK      OC  G          S0933 IGDIST FSNAME=SPANBREAK.O                                 
            D4T1   1323  IG.SPAN_BREAK.OC.081               1 LINE     80    1 PAGE UM   GOODRICH            JULY 09, 1977  21:52:02
00498/091  *IG                       IAIGCMD         SS  G          S0933 IGDIST FSNAME=IAIGCMD.S                                   
            D4.1T1  260  IG.IAIGCMD.SS.087                  1 LINE     73    1 PAGE UM   GOODRICH            APR. 08, 1978  17:10:27
0          SNOBOL PROGRAM WHICH GENERATES GOM VECTOR VALUES STATEMENTS FOR COMMAND SCANNER
           DATA FOR INTERACTIVE IG (498/86).
00498/092  *IG                       VERSION LABLER  SG  G          S0933 IGDIST FSNAME=VERLAB.S                                    
            D4T1   1325  IG.VERSION_LABLER.SG.083           1 LINE    151    3 PAGE UM   GOODRICH            JULY 09, 1977  21:50:06
0          SOURCE FOR VERSION LABEL PROGRAM WHICH GENERATES A HEAD SHEET FOR EACH IG COMPONENT'S LISTING WHEN IT IS ASSEMBLED.
00498/093  *IG                       VERSION LABLER  OC  G          S0933 IGDIST FSNAME=VERLAB.O                                    
            D4T1   1326  IG.VERSION_LABLER.OC.084           1 LINE     80    4 PAGE UM   GOODRICH            JULY 09, 1977  21:50:04
00498/094  *IG                       MEMO 356        WF             S0563 D4T1 VLO FSNAME=IG.MEMO_356.WF.085(1)                 1327
            D4T1   1327  IG.MEMO_356.WF.085                 1 LINE    235   17 PAGE UM   GOODRICH            AUG. 14, 1977  21:30:55
0          THIS IS COMPUTING CENTER MEMO 356 -- "RECENT CHANGES AND ADDITIONS TO THE INTEGRATED
           GRAPHICS SYSTEM"
00498/095  *IG                       ETC:IG.STAT     D            # MTS:TST.EMPSEQWE                                                
                                                                                    UM   GOODRICH                                   
                         ETC.:IG.STAT         
0          FILE FOR ACCUMULATING USAGE STATISTICS.
0          Referenced by comments of: 498/16 
00500/001   BILLING                  BLSIGCK         SG  G          S0027 DISTRB FSNAME=BLSIGCK                                     
            D4.2T1  302  BILLING.BLSIGCK.SG.001             1 LINE     94    3 PAGE UM   ENGLE               JAN. 09, 1979  13:10:41
0          PROGRAM TO LIST ALL SIGNONS WHICH WERE MADE DURING THE BILLING PERIOD AND
           ARE STILL SIGNED ON OR WHICH STILL HAVE A STATISTICS RECORD IN THE 
           STATISTICS FILE.  IF SIGONSCN (500/34) DETECTS AN INCONSISTENCY, THIS
           PROGRAM ATTEMPTS TO CORRECT THE SITUATION BY REASSEMBLING THE SUBROUTINE
           ON THE ASSUMPTION THAT THE MTS DSECT HAS BEEN CHANGED.  PKEY=BILL:BLSIGCK.
           RUN WITH PROT=OFF.
0          Referenced by comments of: 500/34 
00500/002   BILLING                  BLSIGCK         OC  G          S0027 DISTRB FSNAME=BLSC                                        
            D4.2T1  303  BILLING.BLSIGCK.OC.002             1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:10:44
1                                                                                               THU SEP 12/96   23:39:34   Page  184
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00500/003   BILLING                  BILLRFT         SP  G  BLRF    S0027 DISTRB FSNAME=BILLRFT                                     
            D4.2T1  304  BILLING.BILLRFT.SP.003             1 LINE     80   21 PAGE UM   ENGLE               JAN. 09, 1979  17:15:02
0          PROGRAM TO REFORMAT STATISTICS RECORDS, HAND BILLING RECORDS, OS/360 BILLING RECORDS, AND NETWORK
           RECORDS FOR BILLING SORT.
0          Referenced by comments of: 500/13, 500/20, 500/26 
00500/004   BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=BLRF                                        
            D4.2T1  305  BILLING.BILLRFT.OC.004             1 LINE     80   21 PAGE UM   ENGLE               JAN. 09, 1979  17:15:48
0          REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';).
00500/005   BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=NETBLRF                                     
            D4.2T1  306  BILLING.BILLRFT.OC.005             1 LINE     80   18 PAGE UM   ENGLE               JAN. 09, 1979  17:17:11
0          REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/006   BILLING                  BILLING         SP  G  BILL    S0027 DISTRB FSNAME=BILLING                                     
            D4.1T1  261  BILLING.BILLING.SP.004             1 LINE     80   31 PAGE UM   ENGLE               JAN. 20, 1978  13:27:30
0          PROGRAM TO DO MAIN PART OF BILLING AFTER SORT.
0          Referenced by comments of: 500/13, 500/15, 500/28 
00500/007   BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=BILL                                        
            D4.1T1  262  BILLING.BILLING.OC.005             1 LINE     80   27 PAGE UM   ENGLE               JAN. 20, 1978  13:27:41
0          REGULAR BILLING (COMPILED WITH %NET='';).
00500/008   BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=NETBILL                                     
            D4T2      6  BILLING.BILLING.OC.006             1 LINE     80   11 PAGE UM   ENGLE               MAY  17, 1976  12:54:28
0          NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/009   BILLING                  BILPRNT         SP  G  BLPR    S0027 DISTRB FSNAME=BILPRNT                                     
            D4.2T1  307  BILLING.BILPRNT.SP.009             1 LINE     80   13 PAGE UM   ENGLE               JAN. 10, 1979  14:41:29
0          PROGRAM TO PRINT BILLING REPORTS.
0          Referenced by comments of: 500/14, 500/30 
00500/010   BILLING                  BILPRNT         OC  G          S0027 DISTRB FSNAME=BLPR                                        
            D4.2T1  308  BILLING.BILPRNT.OC.010             1 LINE     80   15 PAGE UM   ENGLE               JAN. 10, 1979  14:42:54
00500/011   BILLING                  BILLWRITEUP     WF  G          S0027 DISTRB FSNAME=BILLWRITEUP                                 
            D4.2T1  309  BILLING.BILLWRITEUP.WF.011         1 LINE    159    8 PAGE UM   ENGLE               JAN. 09, 1979  16:20:05
0          WRITEUP FOR RUNNING BILLING.
00500/012   BILLING                  BILLSOURCE      C              S0027 DISTRB FSNAME=BILLSOURCE                                  
            D4.2T1  310  BILLING.BILLSOURCE.C.012           1 LINE    123    1 PAGE UM   ENGLE               JAN. 09, 1979  16:38:01
0          COMMAND FILE FOR RUNNING BILLING.  LINE NUMBERS IN THIS FILE ARE IMPORTANT TO
1                                                                                               THU SEP 12/96   23:39:34   Page  185
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          THE RESTART FILE (500/16).
0          Referenced by comments of: 500/16 
00500/013   BILLING                  BILLTABLES      D              S0027 DISTRB FSNAME=BILLTABLES                                  
            D4T2     11  BILLING.BILLTABLES.D.011           1 LINE     76    4 PAGE UM   ENGLE               MAY  17, 1976  12:57:23
0          MACHINE READABLE TABLE OF INFORMATION USED BY BILLING.  READ DURING EXECUTION OF BILLRFT (500/3) AND 
           BILLING (500/6).
00500/014   BILLING                  DIVISION        D              BILL:DIVISION                                                   
            D4T2     12  BILLING.DIVISION.D.012             1 LINE    104   22 PAGE UM   ENGLE               JULY 28, 1977  01:22:52
0          MACHINE READABLE TABLE OF UNIVERSITY UNITS ACCORDING TO UNIT CODE.  READ AND WRITTEN BY BILPRNT (500/9).
00500/015   BILLING                  COVER           D              S0027 DISTRB FSNAME=COVER                                       
            D4T2     13  BILLING.COVER.D.013                1 LINE     66    1 PAGE UM   ENGLE               DEC. 05, 1975  13:40:06
0          MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS.  READ BY BILLING (500/6).
00500/016   BILLING                  RESTART         C              S0027 DISTRB FSNAME=RESTART                                     
            D4.2T1  311  BILLING.RESTART.C.016              1 LINE     51    1 PAGE UM   ENGLE               JAN. 09, 1979  16:41:39
0          COMMAND FILE TO RESTART IN THE MIDDLE OF THE BILLING PROCESS AFTER SOME PARTS HAVE BEEN COMPLETED.
           HAS $CONTINUE WITH'S TO BILLSOURCE (500/12).
0          Referenced by comments of: 500/12 
00500/017   BILLING                  BILLLIB         OL  G          S0027 DISTRB FSNAME=BILLLIB                                     
            D4.2T1  312  BILLING.BILLLIB.OL.017             1 LINE    504   19 PAGE UM   ENGLE               FEB. 12, 1979  11:52:33
0          LIBRARY FOR BILLING PROGRAMS.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00500/018   BILLING                  FLUSH           SP  G  FLSH    S0722 'D3T3' FSNAME=BILLING.FLUSH.SP.17(1)                   197
            D4T2     16  BILLING.FLUSH.SP.016               1 LINE     80    1 PAGE UM   ENGLE               JUNE 07, 1973  10:28.44
0          SUBROUTINE TO FORCE A LINE OF OUTPUT TO A PL/I STREAM FILE (PUT STATEMENTS) TO BE PRINTED NOW (DAMNIT),
           E.G., ON A TERMINAL FOR PROMPTING FOR INPUT.
00500/019   BILLING                  FLUSH           OC  G          S0780 'D3.1T1' FSNAME=BILLING.FLUSH.OC.17(1)                 306
            D4T2     17  BILLING.FLUSH.OC.017               1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1974  15:46.26
00500/020   BILLING                  BLPRJFL         SA  G          S0964 'D3.2T1' FSNAME=BILLING.BLPRJFL.SA.18(1)               394
            D4T2     18  BILLING.BLPRJFL.SA.018             1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  13:12.59
0          SUBROUTINE TO READ THE NEXT PROJECT RECORD FROM *PROJECT.  CALLED BY BILLRFT (500/3).
           COPIES ACCPROJFMT (104/2).
00500/021   BILLING                  BLPRJFL         OC  G          S0964 'D3.2T1' FSNAME=BILLING.BLPRJFL.OC.19(1)               395
            D4T2     19  BILLING.BLPRJFL.OC.019             1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:13.11
1                                                                                               THU SEP 12/96   23:39:34   Page  186
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00500/022   BILLING                  PNLIST          SP  G  PNLS    S0027 DISTRB FSNAME=PNLIST                                      
            D4.2T1  313  BILLING.PNLIST.SP.022              1 LINE     80    5 PAGE UM   ENGLE               JAN. 10, 1979  16:34:56
0          PROGRAM TO PRODUCE LISTINGS OF PROJECT NUMBERS IN *PROJECT SORTED BY UNIVERSITY ACCOUNT NUMBER, INTER-DEPARTMENTAL
           REQUISITION NUMBER, UNIT CODE, AND NAME.
0          Referenced by comments of: 500/24 
00500/023   BILLING                  PNLIST          OC  G          S0027 DISTRB FSNAME=PNLS                                        
            D4.2T1  314  BILLING.PNLIST.OC.023              1 LINE     80    6 PAGE UM   ENGLE               FEB. 12, 1979  11:52:37
00500/024   BILLING                  PNLSEXTR        SA  G          S0964 'D3.2T1' FSNAME=BILLING.PNLSEXTR.SA.22(1)              398
            D4T2     22  BILLING.PNLSEXTR.SA.022            1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  13:16.12
0          SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/22).  CALLED BY PRJLIST (104/42) WHICH IS CALLED BY PNLIST.
           COPIES ACCPROJFMT (104/2).
00500/025   BILLING                  PNLSEXTR        OC  G          S0964 'D3.2T1' FSNAME=BILLING.PNLSEXTR.OC.23(1)              399
            D4T2     23  BILLING.PNLSEXTR.OC.023            1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:16.32
00500/026   BILLING                  BLRECPR         SP  G          S0964 'D3.2T1' FSNAME=BILLING.BLRECPR.SP.24(1)               400
            D4T2     24  BILLING.BLRECPR.SP.024             1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  14:16.05
0          PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/3).
00500/027   BILLING                  BLRECPR         OC  G          S0964 'D3.2T1' FSNAME=BILLING.BLRECPR.OC.25(1)               401
            D4T2     25  BILLING.BLRECPR.OC.025             1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  14:16.20
00500/028   BILLING                  POSIFIL         SP  G          S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.SP.26(1)               312
            D4T2     26  BILLING.POSIFIL.SP.026             1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  15:49.10
0          SUBROUTINE CALLED BY BILLING (500/6) TO POSITION PL/1 FILES FOR RESTART.
00500/029   BILLING                  POSIFIL         OC  G          S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.OC.27(1)               313
            D4T2     27  BILLING.POSIFIL.OC.027             1 LINE     80    2 PAGE UM   ENGLE               JAN. 08, 1974  15:49.29
00500/030   BILLING                  BLDVSRTE        SA  G  BDSE    S0027 DISTRB FSNAME=BLDVSRTE                                    
            D4.2T1  315  BILLING.BLDVSRTE.SA.030            1 LINE     80    4 PAGE UM   ENGLE               JAN. 10, 1979  14:53:17
0          SORT EXIT SUBROUTINES TO DO DIVISION SORT FOR BILPRNT (500/9).  COPIES GRDEF
           (104/68).
00500/031   BILLING                  BLDVSRTE        OC  G          S0027 DISTRB FSNAME=BDSE                                        
            D4.2T1  316  BILLING.BLDVSRTE.OC.031            1 LINE     80    2 PAGE UM   ENGLE               FEB. 12, 1979  11:52:41
00500/032   BILLING                  BILLMNT         SG  G          S0027 DISTRB FSNAME=BILLMNT                                     
            D4T2     30  BILLING.BILLMNT.SG.030             1 LINE     73    1 PAGE UM   ENGLE               MAR. 01, 1977  17:10:37
0          GOM PROGRAM TO MOUNT THE BILLING REPORT TAPE.
00500/033   BILLING                  BILLMNT         OC  G          S0027 DISTRB FSNAME=BMNT                                        
            D4T2     31  BILLING.BILLMNT.OC.031             1 LINE     80    3 PAGE UM   ENGLE               MAR. 01, 1977  17:10:40
1                                                                                               THU SEP 12/96   23:39:34   Page  187
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00500/034   BILLING                  SIGONSCN        SA  G  SSCN    S0027 DISTRB FSNAME=SIGONSCN                                    
            D4.2T1  317  BILLING.SIGONSCN.SA.034            1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:13:20
0          SUBROUTINE TO SCAN THE JOB TABLE FOR SIGNONS MADE DURING THE BILLING
           PERIOD.  CALLED BY BLSIGCK (500/1).  COPIES COPY:GLOBALS (1026/3)
           AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 500/1 
00500/035   BILLING                  SIGONSCN        OC  G          S0027 DISTRB FSNAME=SSCN                                        
            D4.2T1  318  BILLING.SIGONSCN.OC.035            1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  13:13:26
00500/036   BILLING                  TAPMNT          SG  G          S0027 DISTRB FSNAME=TAPMNT                                      
            D4.2T1  319  BILLING.TAPMNT.SG.036              1 LINE     72    3 PAGE UM   ENGLE               JAN. 09, 1979  13:48:40
0          SUBROUTINE TO ACQUIRE SUCCESSIVE FILES FOR A SPECIFIED RANGE FROM TAPE
           DIRECTORY TAPES.
00500/037   BILLING                  TAPMNT          OC  G          S0027 DISTRB FSNAME=TMNT                                        
            D4.2T1  320  BILLING.TAPMNT.OC.037              1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  13:50:32
00501/001   MTS VOLUME 3             MASTER          WT             S1167 MTSV3 'MTS MANUALS' POSN=NEWM13.V3                        
            D4.2T1  321  MTS_VOLUME_3.MASTER.WT.001         1 SEQ     132  322 PAGE UM   MANUAL              APR. 01, 1979  22:21:10
0          TEXT/360 MASTER FOR VOLUME 3 "SYSTEM SUBROUTINE DESCRIPTIONS" OF THE UM MTS MANUALS
           (OCTOBER 1976, UPDATED JUNE 1977, FEBRUARY 1978, AND JULY 1978.)
            
           EDITOR:  RICHARD A. SALISBURY
00501/002   MTS VOLUME 3             PRINT           PT             S1167 MTSV3 'MTS MANUALS' POSN=PRINT13.V3                       
            D4.2T1  322  MTS_VOLUME_3.PRINT.PT.002          1 SEQ     132  676 PAGE UM   MANUAL              APR. 01, 1979  22:21:46
0          TEXT/360 PRINT FILE.
00501/003   MTS VOLUME 3             UPDATE 1        PT             W073:TNLV3.JUN77                                                
            D4.2T1  323  MTS_VOLUME_3.UPDATE_1.PT.003       1 LINE    147  100 PAGE UM   MANUAL              APR. 01, 1979  22:22:21
0          THIS IS COMPUTING CENTER MEMO 358 -- "UPDATE 1 TO MTS VOLUME 3," 
           (JUNE 1977).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00501/004   MTS VOLUME 3             UPDATE 2        PT             W073:TNLV3.FEB78                                                
            D4.2T1  324  MTS_VOLUME_3.UPDATE_2.PT.004       1 LINE    106   77 PAGE UM   MANUAL              APR. 01, 1979  22:22:36
0          THIS IS COMPUTING CENTER MEMO 374 -- "UPDATE 2 TO MTS VOLUME 3," 
           (FEBRUARY 1978).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00501/005   MTS VOLUME 3             UPDATE 3        PT             W073:TNLV3.JUL78                                                
            D4.2T1  325  MTS_VOLUME_3.UPDATE_3.PT.005       1 LINE    133   44 PAGE UM   MANUAL              APR. 01, 1979  22:22:45
0          THIS IS COMPUTING CENTER MEMO 385 -- "UPDATE 3 TO MTS VOLUME 3," 
           (JULY 1978).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
1                                                                                               THU SEP 12/96   23:39:34   Page  188
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00502/001   DEADFILES                SCANFILES       SA  G  SCFL    S0027 DISTRB FSNAME=SCANFILE                                    
            D4T2     34  DEADFILES.SCANFILES.SA.001         1 LINE     80    9 PAGE UM   ENGLE               APR. 18, 1977  14:40:28
0          DEADFILES IS A SERIES OF PROGRAMS USED TO REMOVE FILES WHICH BELONG TO EXPIRED
           USER ID'S.  AT UM, THIS IS DONE ONCE PER MONTH AND THE TAPE(S) GENERATED ARE
           SAVED INDEFINITELY.  THE OPERATOR'S MANUAL (592) DESCRIBES THE PROCEDURE.
           HOWEVER, IT SAYS TO USE USER ID W035 (WHICH IS NOT ON THE DISTRIBUTED PACK).
           USE USER ID RSTR INSTEAD AND USE THE PROGRAMS RSTR:SCANFILES AND RSTR:FIX
           INSTEAD OF THE CORRESPONDING PROGRAMS UNDER W035.
            
           SCANFILES COPIES ACCFORMAT (104/1).  ASSEMBLE USING COPY:FILE.MACROS (482/33).
           RUN WITH PROT=OFF.
0          Referenced by comments of: 92/1, 104/141, 104/142, 484/1 
00502/002   DEADFILES                SCANFILES       OE  G          MTS:TST.SCANFILE                                                
            D4T2     35  DEADFILES.SCANFILES.OE.002         1 LINE   3320    3 PAGE UM   ENGLE               APR. 18, 1977  14:43:09
                         RSTR:SCANFILES       
00502/003   DEADFILES                DESTROY         SA  G  DSTR    RSTR:DEADFILEDES(1001)                                          
            D4T2     36  DEADFILES.DESTROY.SA.003           1 LINE     80    3 PAGE UM   HELFFRICH           JULY 28, 1977  01:37:10
                         RSTR:DEADFILEDES     
0          PROGRAM TO DESTROY A LIST OF FILES.  CALLS DESTROY DIRECTLY, NOT THE MTS INTERFACE TO IT.
           ASSEMBLE USING *SYSMAC.
00502/004   DEADFILES                DESTROY         OC  G          RSTR:DEADFILEDES(1,998)                                         
            D4T2     37  DEADFILES.DESTROY.OC.004           1 LINE     80    1 PAGE UM   HELFFRICH           JULY 28, 1977  01:37:13
00502/005B  DEADFILES                CATDES          SA  G  CDES    RSTR:DEADUCATDES(1000)                                          
            RD16T1   82  DEADFILES.CATDES.SA.005            1 LINE     80    4 PAGE UM   HELFFRICH           JULY 12, 1979  22:51:58
                         RSTR:DEADUCATDES     
0          PROGRAM TO DESTROY USER CATALOGS.  IT DOES NOT CHECK TO SEE IF THERE ARE ANY
           FILES IN THE CATALOG BEFORE DESTROYING IT (WHICH IT SHOULD).  RUNNING THIS
           PROGRAM IS THE ONLY WAY THAT CATALOG SPACE IS EVER RECLAIMED AND IF THIS
           PROGRAM IS NOT RUN, THE CATALOG WILL ONLY GET BIGGER.  THIS PROGRAM ALSO
           DELETES FILE ENTRIES FOR EXPIRED USERIDS FROM THE ONLINE FILESAVE MASTER
           FILE DIRECTORY SO THAT THE FILES MAY NOT BE RESTORED USING *RESTORE.
           ASSEMBLE USING THE FILESAVE MACROS (716/14) AND *SYSMAC.
            
           ****************************************************************************
           RD16 CHANGES:
            
           CHANGED TO BUILD NEW MASTER FILE DIRECTORY IN RSTR:FILEDIR.NEW RATHER
           THAN IN PLACE IN RSTR:FILEDIR.MAS.  THIS MAKES *RESTORE USABLE DURING 
           THE PERIOD WHEN CATDES IS RUNNING.
           ****************************************************************************
00502/006B  DEADFILES                CATDES          OC  G          RSTR:DEADUCATDES(1,998)                                         
            RD16T1   83  DEADFILES.CATDES.OC.006            1 LINE     80    3 PAGE UM   HELFFRICH           JULY 12, 1979  22:51:59
0          THIS FILE SHOULD HAVE THE PROGRAM KEY RSTR:DEADUCATDES
1                                                                                               THU SEP 12/96   23:39:34   Page  189
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00502/007   DEADFILES                SAVEFILES       SA  G  SVFL    RSTR:DEADSAVE(1005)                                             
            D4.1T1  267  DEADFILES.SAVEFILES.SA.007         1 LINE     80    6 PAGE UM   HELFFRICH           MAY  13, 1978  17:34:05
                         RSTR:DEADSAVE        
0          PROGRAM TO SAVE A SPECIFIC SET OF FILES IN THE SAME FORMAT AS FILESAVE (067).
           ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33).  CALLS THE FOLLOWING
           SUBROUTINES:  SAVEFILE (067/2), TAPEOUT (067/3), AND FILEDSCB (502/9).
0          Referenced by comments of: 502/9 
00502/008   DEADFILES                SAVEFILES       OE  G          RSTR:DEADSAVE(1,998)                                            
            D4.1T1  268  DEADFILES.SAVEFILES.OE.008         1 LINE     80    3 PAGE UM   HELFFRICH           MAY  13, 1978  17:34:06
00502/009   DEADFILES                FILEDSCB SUBR   SA  G  DSCB    RSTR:FILEDSCB(1001)                                             
            D4T2     42  DEADFILES.FILEDSCB_SUBR.SA.009     1 LINE     80    5 PAGE UM   HELFFRICH           JULY 28, 1977  01:37:24
                         RSTR:FILEDSCB        
0          SUBROUTINE CALLED BY SAVEFILES (502/7) AND THE ONLINE FILESAVE (716) TO GET
           DSCB'S FOR A FILE.  ASSEMBLE USING COPY:FILE.MACROS (482/33) AND *SYSMAC.
0          Referenced by comments of: 502/7, 716/2 
00502/010   DEADFILES                FILEDSCB SUBR   OC  G          RSTR:FILEDSCB(1,998)                                            
            D4T2     43  DEADFILES.FILEDSCB_SUBR.OC.010     1 LINE     80    2 PAGE UM   HELFFRICH           JULY 28, 1977  01:37:27
00502/011   DEADFILES                FIX             SA  G          S0564 D4T2 VLO FSNAME=DEADFILES.FIX.SA.011(1)                 44
            D4T2     44  DEADFILES.FIX.SA.011               1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1973  17:58.20
0          PROGRAM TO UPDATE THE FILE INFORMATION IN AN ACCOUNTING RECORD TO ADJUST FOR THE FILES DESTROYED.
           CALLS *ACCRESTORE.  RUN WITH PROT=OFF.
0          Referenced by comments of: 104/141, 104/142 
00502/012   DEADFILES                FIX             OC  G          MTS:TST.FIX                                                     
            D4T2     45  DEADFILES.FIX.OC.012               1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:59.15
                         RSTR:FIX             
00504/001   MTS VOLUME 1             MASTER          WT             S0488 MTSV1 'MTS MANUALS' POSN=NEWM7.V1                     24  
            D4.2T1  328  MTS_VOLUME_1.MASTER.WT.001         1 SEQ     132  355 PAGE UM   MANUAL              APR. 01, 1979  22:24:48
0          TEXT/360 MASTER FOR VOLUME 1, "MICHIGAN TERMINAL SYSTEM," OF THE UM MTS MANUALS 
           (OCTOBER 1978).
            
           EDITOR:  RICHARD A. SALISBURY
00504/002   MTS VOLUME 1             PRINT           PT             S0488 MTSV1 'MTS MANUALS' POSN=PRINT7.V1                    25  
            D4.2T1  329  MTS_VOLUME_1.PRINT.PT.002          1 SEQ     132  577 PAGE UM   MANUAL              APR. 01, 1979  22:25:04
0          TEXT/360 PRINT FILE.
00504/003   MTS VOLUME 1             ERROR DUMP      P              S0488 MTSV1 'MTS MANUALS' POSN=ERRORDUMP.7                  26  
            D4.2T1  330  MTS_VOLUME_1.ERROR_DUMP.P.003      1 SEQ     133    3 PAGE UM   MANUAL              APR. 01, 1979  22:25:11
0          PRINTED OUTPUT FOR EXAMPLE OF USING ERROR DUMPS AND LOAD MAPS.
1                                                                                               THU SEP 12/96   23:39:34   Page  190
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00504/004   MTS VOLUME 1             DEBUG DUMP      P              S0488 MTSV1 'MTS MANUALS' POSN=DEBUGDUMP.7                  27  
            D4.2T1  331  MTS_VOLUME_1.DEBUG_DUMP.P.004      1 SEQ     105    3 PAGE UM   MANUAL              APR. 01, 1979  22:25:12
0          PRINTED OUTPUT FOR EXAMPLE IN DEBUG MODE SECTION.
00504/005   MTS VOLUME 1             INDEX SOURCE    D              S0488 MTSV1 'MTS MANUALS' POSN=V1INDEXSOU.7                 29  
            D4.2T1  332  MTS_VOLUME_1.INDEX_SOURCE.D.005    1 SEQ     121    7 PAGE UM   MANUAL              APR. 01, 1979  22:25:13
00504/006   MTS VOLUME 1             VISUAL MODE     WT             S0488 MTSV1 'MTS MANUALS' POSN=VISUALMODE.7                 28  
            D4.2T1  333  MTS_VOLUME_1.VISUAL_MODE.WT.006    1 SEQ      88    4 PAGE UM   MANUAL              APR. 01, 1979  22:25:14
0          TEXT360 SOURCE FOR VISUAL MODE DIAGRAMS IN "EDIT MODE" SECTION OF MTS 
           VOLUME 1.
00505/001  *ALGOL                    DUMPRESTORE     C              S0504 'UBC -> UM #6' FMT=U(255)                              1  
            D4T2     51  ALGOL.DUMPRESTORE.C.001            1 SEQ      44    2 PAGE UNE  SALISBURY           JULY 28, 1977  01:42:52
0          MTS COMMANDS USED TO GENERATE OR RESTORE THE ALGOL FILES ON THE UNE ALGOL
           DISTRIBUTION TAPE.  ALTHOUGH THESE COMMANDS ARE NOT APPROPRIATE FOR RESTORING
           THE ALGOL FILES FROM THE DIST 3 TAPE, THEY ARE INCLUDED BECAUSE THEY SHOW
           THE ORGANIZATION OF THE UNE ALGOL.
00505/002  *ALGOL                    CINTSORC        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         4  
            D4T2     52  ALGOL.CINTSORC.SA.002              1 SEQ      80   30 PAGE UNE  SALISBURY           JULY 28, 1977  01:42:56
0          COMPILER/MTS INTERFACE MODULE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 505/19 
00505/003  *ALGOL                    FSACONV         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         5  
            D4T2     53  ALGOL.FSACONV.SA.003               1 SEQ      80    2 PAGE UNE  SALISBURY           JULY 28, 1977  01:42:56
0          COPY SECTION COPIED BY COMPILER.
00505/004  *ALGOL                    FSAREA          SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         6  
            D4T2     54  ALGOL.FSAREA.SA.004                1 SEQ      80    3 PAGE UNE  SALISBURY           JULY 28, 1977  01:42:59
0          COPY SECTION COPIED BY COMPILER.
00505/005  *ALGOL                    IEX50T          SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         7  
            D4T2     55  ALGOL.IEX50T.SA.005                1 SEQ      80   95 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:04
0          COPY SECTION COPIED BY COMPILER.
00505/006  *ALGOL                    IEX60000        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         8  
            D4T2     56  ALGOL.IEX60000.SA.006              1 SEQ      80   15 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:06
0          COPY SECTION COPIED BY COMPILER.
00505/007  *ALGOL                    OSALG00         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         14 
            D4T2     57  ALGOL.OSALG00.SA.007               1 SEQ      80   10 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:17
0          COMPS 505/7 THROUGH 505/16 ARE OS/360 ALGOL COMPILER SOURCE.
           EACH MUST BE ASSEMBLED USING THE SPECIAL OS MACRO LIBRARY (505/17).
1                                                                                               THU SEP 12/96   23:39:34   Page  191
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00505/008  *ALGOL                    OSALG01         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         15 
            D4T2     58  ALGOL.OSALG01.SA.008               1 SEQ      80    4 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:17
00505/009  *ALGOL                    OSALG10         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         16 
            D4T2     59  ALGOL.OSALG10.SA.009               1 SEQ      80   22 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:20
00505/010  *ALGOL                    OSALG11         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         17 
            D4T2     60  ALGOL.OSALG11.SA.010               1 SEQ      80   88 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:25
00505/011  *ALGOL                    OSALG20         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         18 
            D4T2     61  ALGOL.OSALG20.SA.011               1 SEQ      80   16 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:26
00505/012  *ALGOL                    OSALG30         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         19 
            D4T2     62  ALGOL.OSALG30.SA.012               1 SEQ      80   62 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:30
00505/013  *ALGOL                    OSALG40         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         20 
            D4T2     63  ALGOL.OSALG40.SA.013               1 SEQ      80   17 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:32
00505/014  *ALGOL                    OSALG50         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         21 
            D4T2     64  ALGOL.OSALG50.SA.014               1 SEQ      80   96 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:37
00505/015  *ALGOL                    OSALG51         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         22 
            D4T2     65  ALGOL.OSALG51.SA.015               1 SEQ      80   24 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:39
00505/016  *ALGOL                    OSALG51M        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         23 
            D4T2     66  ALGOL.OSALG51M.SA.016              1 SEQ      80    9 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:41
00505/017  *ALGOL                    OSMAC           SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         24 
            D4T2     67  ALGOL.OSMAC.SA.017                 1 SEQ      80  103 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:46
0          SPECIAL OS INTERFACE MACROS.  MUST BE USED TO ASSEMBLE COMPS 505/7 THROUGH
           505/16.
0          Referenced by comments of: 505/7, 505/20, 505/21 
00505/018  *ALGOL                    WORKAREA        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         25 
            D4T2     68  ALGOL.WORKAREA.SA.018              1 SEQ      80    4 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:48
0          COPY SECTION COPIED BY COMPILER AND LIBRARY.
00505/019  *ALGOL                    *ALGOL          OC  G          *ALGOL                                                          
            D4T2     69  ALGOL.*ALGOL.OC.019                1 SEQ      80   31 PAGE UM   SALISBURY           JULY 28, 1977  01:43:50
                         *ALGOL               
0          COMPLETE COMPILER OBJECT FILE.  CONSISTS OF OBJECT OF COMPS 505/7 THROUGH
           505/16 (THE OS/360 SOURCE) PLUS THE COMPILER/MTS INTERFACE MODULE
           (505/2) AND AN " ENT            COMENTRY" LOADER CARD TO SPECIFY THE COMPILER
           ENTRY POINT.
00505/020  *ALGOL                    LIBSORC         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         11 
            D4T2     70  ALGOL.LIBSORC.SA.020               1 SEQ      80  181 PAGE UNE  SALISBURY           JULY 28, 1977  01:44:18
0          OS/360 LIBRARY SOURCE.  ASSEMBLE USING OSMAC (505/17).
1                                                                                               THU SEP 12/96   23:39:34   Page  192
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00505/021  *ALGOL                    LIBSORC1        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         12 
            D4T2     71  ALGOL.LIBSORC1.SA.021              1 SEQ      80   37 PAGE UNE  SALISBURY           JULY 28, 1977  01:44:22
0          MORE OS/360 LIBRARY SOURCE.  ASSEMBLE USING OSMAC (505/17).
00505/022  *ALGOL                    LINTSORC        SA  G          S0722 'D3T3' FSNAME=ALGOL.LINTSORC.SA.22(1)                  248
            D4T2     72  ALGOL.LINTSORC.SA.022              1 LINE     80   28 PAGE UM   SALISBURY           AUG. 03, 1973  22:24.23
0          LIBRARY/MTS INTERFACE MODULE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 505/23 
00505/023  *ALGOL                    *ALGOLLIB       OL  G          *ALGOLLIB                                                       
            D4T2     73  ALGOL.*ALGOLLIB.OL.023             1 SEQ    3963   11 PAGE UM   SALISBURY           JULY 28, 1977  01:45:30
                         *ALGOLLIB            
0          COMPLETE LIBRARY OBJECT FILE.  CONSISTS OF OBJECT OF COMPS 505/20 AND 505/21
           (THE OS/360 LIBRARY SOURCE) PLUS THE LIBRARY/MTS INTERFACE MODULE (505/22)
           AND AN " ENT            LIBENTRY" LOADER CARD TO SPECIFY THE LIBRARY ENTRY POINT.
00505/024  *ALGOL                    KDFSORC         S   G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         10 
            D4T2     74  ALGOL.KDFSORC.S.024                1 SEQ      80   45 PAGE UNE  SALISBURY           JULY 28, 1977  01:45:40
0          SOURCE FOR THE "KDF9" I/O LIBRARY.  MAY BE USED BY USERS WHO ARE ACCUSTOMED TO
           RUNNING ALGOL PROGRAMS ON THE KDF9 COMPUTER.  THE SOURCE IS ENTIRELY IN ALGOL
           EXCEPT FOR "FORMAT" WHICH IS ASSEMBLE LANGUAGE.
00505/025  *ALGOL                    *KDFLIB         OL  G          *KDFLIB                                                         
            D4T2     75  ALGOL.*KDFLIB.OL.025               1 SEQ     348   56 PAGE UM   SALISBURY           JULY 28, 1977  01:45:43
                         *KDFLIB              
0          KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB.  NOTE:  THIS VERSION OF KDFLIB USES SHORT
           FLOATING POINT ARITHMETIC.  PAR=LONG,PROCEDURE SHOULD BE USED TO RECOMPILE THE LIBRARY
           IF LONG FLOATING POINT ARITHMETIC IS DESIRED.
00505/026  *ALGOL                    KDFLIBTEST      S   G          S0722 'D3T3' FSNAME=ALGOL.KDFLIBTEST.S.26(1)                 252
            D4T2     76  ALGOL.KDFLIBTEST.S.026             1 LINE     67    1 PAGE UM   SALISBURY           AUG. 03, 1973  22:25.28
0          ALGOL PROGRAM TO TEST *KDFLIB.
00506/001   PL1 MAINTENANCE          CRELCS          SA  G  CLCS    S0410 MTSPL1 'PL1LIB' POSN=CRELCS                            37 
            D4T2     77  PL1_MAINTENANCE.CRELCS.SA.001      1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  01:46:04
0          CREATE LOW-CORE SYMBOL TABLES, ESPECIALLY PL1SYM AND INTSUBS.
0          Referenced by comments of: 506/6, 506/7 
00506/002   PL1 MAINTENANCE          CRELCSPR        SA  G  LCSP    S0410 MTSPL1 'PL1LIB' POSN=CRELCSPR.D4                          
            D4T2     78  PL1_MAINTENANCE.CRELCSPR.SA.002    1 LINE     80    6 PAGE UM   TIFFANY             JULY 28, 1977  01:46:04
0          SAME AS 506/1 EXCEPT FOR PSEUDO-REGISTERS.  IHEPRD IS GENERATED.
0          Referenced by comments of: 233/44 
1                                                                                               THU SEP 12/96   23:39:34   Page  193
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00506/003   PL1 MAINTENANCE          RUN             SA  G          S0410 MTSPL1 'PL1LIB' POSN=RUN.S                                
            D4.1T1  269  PL1_MAINTENANCE.RUN.SA.003         1 SEQ      80   25 PAGE UM   TIFFANY             MAY  13, 1978  17:34:55
0          PROGRAM USED TO SIMULATE THE LOADING PROCESS WITH THE PL/I LIBRARY IN USER VM,
           RATHER THAN SHARED VM (FOR CHECKOUT).  SIMILAR TO UBC'S *RUN PROGRAM (NOT
           DISTRIBUTED), BUT WITH EXTRA FEATURE (SPECIFIED BY "S2L=" KEYWORD) FOR LOADING
           LIBRARIES (SUCH AS FIX, SHAREDPL1LIB, ETC.) INTO SEGMENT 12 INSTEAD OF SHARED
           VM.  KEYWORDS "PGM=" (OR "PROGRAM=") HAVE ALSO BEEN ADDED.  SEE THE SOURCE FOR
           USAGE INSTRUCTIONS.  COPIES *LOADINFODSECT (001/4).  ASSEMBLE WITH PAR=BATCH
           USING MTS:UBCMACLIB (1024).
00506/004   PL1 MAINTENANCE          SYMBOLS         SA  G  SYMB    S0410 MTSPL1 'PL1LIB' POSN=SYMBOLS                           44 
            D4T2     81  PL1_MAINTENANCE.SYMBOLS.SA.005     1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  01:46:12
0          PRINT PL1LIB SYMBOLS AND THEIR CURRENT ADDRESSES.
00506/005   PL1 MAINTENANCE          REMOVELIBS      SA  G  RMVL    S0410 MTSPL1 'PL1LIB' POSN=REMOVELIBS                        45 
            D4T2     82  PL1_MAINTENANCE.REMOVELIB.SA.006   1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  01:46:14
0          REMOVE LOADER CARDS LIKE RIP, LIB, ETC.
00506/006   PL1 MAINTENANCE          PL1SYMBOLS      D              S0410 MTSPL1 'PL1LIB' POSN=PL1SYMBOLS.D4                        
            D4T2     83  PL1_MAINTENANCE.PL1SYMBOL.D.007    1 LINE    117    2 PAGE UM   TIFFANY             JULY 28, 1977  01:46:16
0          LIST OF PL/I SYMBOL NAMES.  USED BY CRELCS (506/1).
00506/007   PL1 MAINTENANCE          INTSUBS         D              S0410 MTSPL1 'PL1LIB' POSN=INTSUBS                           48 
            D4T2     84  PL1_MAINTENANCE.INTSUBS.D.008      1 SEQ      56    1 PAGE UM   TIFFANY             JULY 28, 1977  01:46:20
0          LIST OF INTERNAL SUBROUTINES.  USED BY CRELCS (506/1).
00506/008   PL1 MAINTENANCE          PATCHER         SA  G  PAT     W062:PATCH                                                      
            D4.2T1  334  PL1_MAINTENANCE.PATCHER.SA.008     1 LINE     80    3 PAGE UM   TIFFANY             APR. 01, 1979  22:25:15
0          MODULE TO INSERT PATCHES INTO PL1 COMPILER AS IT IS LOADED.
00506/009   PL1 MAINTENANCE          LLXU            SA  G  LLXU    W062:LOAD.S                                                     
            D4.2T1  335  PL1_MAINTENANCE.LLXU.SA.009        1 LINE     80   18 PAGE UM   TIFFANY             APR. 01, 1979  22:26:43
0          SIMULATE OS LINK/LOAD/XCTL WITH GOODIES. COPIES *GDINFODSECT (594).
00506/010   PL1 MAINTENANCE          SETUP DIRECTRY  SA  G  SETP    W062:SETUP(1,999)                                               
            D4T2     87  PL1_MAINTENANCE.SETUP_DIR.SA.011   1 LINE     80    4 PAGE UM   TIFFANY             JULY 28, 1977  01:46:27
0          PROGRAM TO SET UP *PL1DIRECTOR FOR PL/I COMPILER.
00506/011   PL1 MAINTENANCE          SQUEEZE         SA  G  SQIZ    W062:SQUEEZE(1,999)                                             
            D4T2     88  PL1_MAINTENANCE.SQUEEZE.SA.012     1 LINE     80    7 PAGE UM   TIFFANY             JULY 28, 1977  01:46:29
0          PROGRAM TO REMOVE PL/I COMPILER MODULES WHICH ARE NO LONGER IN USE TO SAVE FILE SPACE.
1                                                                                               THU SEP 12/96   23:39:34   Page  194
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00506/012   PL1 MAINTENANCE          INSTALLATION    WF             S0410 MTSPL1 'PL1LIB' POSN=INSTALL.D4                           
            D4T2     89  PL1_MAINTENANCE.INSTALLAT.WF.013   1 LINE    140   18 PAGE UM   TIFFANY             JULY 28, 1977  01:46:32
0          INSTRUCTIONS FOR INSTALLATION OF PL/I IN MTS AND DOCUMENTATION ON OS SIMULATION
           PACKAGE.
00507/001   TIMELIMIT                *LIM            C              *LIM                                                            
            D4.2T1  336  TIMELIMIT.*LIM.C.001               1 LINE     60    1 PAGE UM   WSG                 APR. 01, 1979  22:26:49
                         *LIM                 
0          COMMAND FILE USED BY OPERATORS TO FIND OUT HOW MUCH CPU TIME IS REMAINING FOR AN
           EXECUTING BATCH JOB.  INVOKED BY ENTERING "MTS *LIM" ON OPERATOR'S CONSOLE.
00507/002   TIMELIMIT                TLIMIT PGM      SA  G  TLIM    S0792 WSGFS FSNAME=TLIMIT                                       
            D4T2     91  TIMELIMIT.TLIMIT_PGM.SA.002        1 LINE     80    5 PAGE UM   WSG                 JAN. 13, 1977  16:30:08
0          PROGRAM TO COMPUTE HOW MUCH TIME IS LEFT BEFORE A JOB EXCEEDS ITS GLOBAL TIME LIMIT.
           OPERATOR ENTERS EITHER AN UMMPS JOB NUMBER OR USER ID TO SPECIFY THE JOB(S) FOR
           WHICH THE REMAINING TIME IS TO BE CALCULATED.  END-OF-FILE TERMINATES PROGRAM.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654).
           SOURCE IN LINES (1,999).
00507/003   TIMELIMIT                TLIMIT PGM      OC  G          SYS:TLIMIT                                                      
            D4T2     92  TIMELIMIT.TLIMIT_PGM.OC.003        1 LINE     80    1 PAGE UM   WSG                 JULY 28, 1977  01:48:19
                         SYS.:TLIMIT          
00508/001  *BASIC                    STRT1           C              W070:BASIC.STRT1                                                
            D4T2     93  BASIC.STRT1.C.001                  1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:22
0          MTS COMMANDS TO RESTORE FILES NEEDED TO GENERATE BASIC, 508/2 THROUGH 508/18
           AND 508/28 THROUGH 508/30, WHICH IT ASSUMES ARE ON A *FS TAPE BY THEMSELVES.
00508/002  *BASIC                    STRT2           C              W070:BASIC.STRT2                                                
            D4T2     94  BASIC.STRT2.C.002                  1 LINE    122    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:24
0          MTS COMMANDS TO ASSEMBLE AND LINK-EDIT THE BASIC SOURCE, 508/19 THROUGH 508/27,
           WHICH IT ASSUMES ARE ON A REGULAR (NON *FS) BLOCKED TAPE.
00508/003  *BASIC                    BIFDSECT        SA  G          W070:BIFDSECT                                                   
            D4T2     95  BASIC.BIFDSECT.SA.003              1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:26
0          THE DSECT USED BY "BUILT-IN" FUNCTIONS.
00508/004  *BASIC                    CLIDSECT        SA  G          W070:CLIDSECT                                                   
            D4T2     96  BASIC.CLIDSECT.SA.004              1 LINE     72    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:28
0          THE DSECT USED BY COMMAND AND CMNDINIT.
00508/005  *BASIC                    DS6A            SA  G          W070:DS6A                                                       
            D4T2     97  BASIC.DS6A.SA.005                  1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:30
0          THE DSECT USED BY LOADER.
1                                                                                               THU SEP 12/96   23:39:34   Page  195
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00508/006  *BASIC                    DSECTCOMM       SA  G          W070:DSECTCOMM                                                  
            D4T2     98  BASIC.DSECTCOMM.SA.006             1 LINE     70    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:33
0          THE BASIC COMMON DSECT.
00508/007  *BASIC                    DSECT9A         SA  G          W070:DSECT9A                                                    
            D4.2T1  337  BASIC.DSECT9A.SA.007               1 LINE     69    2 PAGE UM   FRONCZAK            APR. 01, 1979  22:26:50
0          THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH.
00508/008  *BASIC                    FHDRDSECT       SA  G          W070:FHDRDSECT                                                  
            D4T2    100  BASIC.FHDRDSECT.SA.008             1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:37
0          THE "FILE HEADER" DSECT.
00508/009  *BASIC                    GLOBALSYM       SA  G          W070:GLOBALSYM                                                  
            D4T2    101  BASIC.GLOBALSYM.SA.009             1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:39
0          CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE
           INSTALLATION NAME.
00508/010  *BASIC                    INTFACMAC       SM  G          W070:INTFACMAC                                                  
            D4T2    102  BASIC.INTFACMAC.SM.010             1 LINE     58    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:41
0          BASIC MACRO LIBRARY.
00508/011  *BASIC                    LDICDSCT        SA  G          W070:LDICDSCT                                                   
            D4T2    103  BASIC.LDICDSCT.SA.011              1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:44
0          THE "LOADING DIRECTORY" DSECT.
00508/012  *BASIC                    MAPDSECT        SA  G          W070:MAPDSECT                                                   
            D4T2    104  BASIC.MAPDSECT.SA.012              1 LINE     68    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:46
0          THE "MAP ENTRY DESCRIPTION" DSECT.
00508/013  *BASIC                    OPDEFEQUS       SA  G          W070:OPDEFEQUS                                                  
            D4T2    105  BASIC.OPDEFEQUS.SA.013             1 LINE     70    2 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:48
0          "EQUS" USED IN OPERATOR DEFINITIONS.
00508/014  *BASIC                    OPDEFMACROS     SM  G          W070:OPDEFMACROS                                                
            D4T2    106  BASIC.OPDEFMACROS.SM.014           1 LINE     72    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:50
0          MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS.
00508/015  *BASIC                    PDSECT          SA  G          W070:PDSECT                                                     
            D4T2    107  BASIC.PDSECT.SA.015                1 LINE     72    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:52
0          THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----).
1                                                                                               THU SEP 12/96   23:39:34   Page  196
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00508/016  *BASIC                    SYMTABDEF       SA  G          W070:SYMTABDEF                                                  
            D4T2    108  BASIC.SYMTABDEF.SA.016             1 LINE     33    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:55
0          THE SYMBOL TABLE DSECT (UNDOCUMENTED).
00508/017  *BASIC                    SYMTABSECT      SA  G          W070:SYMTABSECT                                                 
            D4T2    109  BASIC.SYMTABSECT.SA.017            1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:57
0          THE SYMBOL TABLE DSECT (DOCUMENTED).
00508/018  *BASIC                    WSLAYOUT        SA  G          W070:WSLAYOUT                                                   
            D4T2    110  BASIC.WSLAYOUT.SA.018              1 LINE     68    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:59
0          THE "WORKING STORAGE LAYOUT" DSECT.
00508/019  *BASIC                    CLI             SA  G          S0842 BSCSD POSN=*BASIC.CLI                                  1  
            D4T2    111  BASIC.CLI.SA.019                   1 SEQ      80  123 PAGE UM   FRONCZAK            JULY 28, 1977  01:49:58
00508/020  *BASIC                    LEX             SA  G          S0358 BSCSEF POSN=*BASIC.LEX                                    
            D4.1T1  270  BASIC.LEX.SA.020                   1 SEQ      80  108 PAGE UM   FRONCZAK            MAY  13, 1978  17:35:22
00508/021  *BASIC                    CMP             SA  G          S0842 BSCSD POSN=*BASIC.CMP                                  3  
            D4T2    113  BASIC.CMP.SA.021                   1 SEQ      80  101 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:11
00508/022  *BASIC                    CPS             SA  G          S0358 BSCSEF POSN=*BASIC.CPS                                    
            D4.1T1  271  BASIC.CPS.SA.022                   1 SEQ      80   79 PAGE UM   FRONCZAK            MAY  13, 1978  17:35:31
00508/023  *BASIC                    NUM             SA  G          S0842 BSCSD POSN=*BASIC.NUM                                  5  
            D4T2    115  BASIC.NUM.SA.023                   1 SEQ      80   62 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:19
00508/024  *BASIC                    VFL             SA  G          S0842 BSCSD POSN=*BASIC.VFL                                  6  
            D4T2    116  BASIC.VFL.SA.024                   1 SEQ      80   40 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:22
00508/025  *BASIC                    BIO             SA  G          S0842 BSCSD POSN=*BASIC.BIO                                  7  
            D4T2    117  BASIC.BIO.SA.025                   1 SEQ      80   51 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:25
00508/026  *BASIC                    INF             SA  G          S0842 BSCSD POSN=*BASIC.INF                                  8  
            D4T2    118  BASIC.INF.SA.026                   1 SEQ      80   47 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:27
00508/027  *BASIC                    BSI             SA  G          S0842 BSCSD POSN=*BASIC.BSI                                  9  
            D4T2    119  BASIC.BSI.SA.027                   1 SEQ      80    5 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:29
00508/028  *BASIC                    LIBSYM          SA  G          W070:LIBSYM                                                     
            D4T2    120  BASIC.LIBSYM.SA.028                1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:32
0          PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER.
00508/029  *BASIC                    SPECIALRATES    SA  G          W070:SPECIALRATES                                               
            D4T2    121  BASIC.SPECIALRATES.SA.029          1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:33
0          THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR:  %PRINT BALANCE AND STATISTICS PRINTING.
1                                                                                               THU SEP 12/96   23:39:34   Page  197
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00508/030  *BASIC                    OBJECT          OC  G          SEG2:BASIC                                                      
            D4.2T1  338  BASIC.OBJECT.OC.030                1 LINE     80  120 PAGE UM   FRONCZAK            APR. 01, 1979  22:26:50
                         SEG2:BASIC           
0          OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY PISTLE.
0          Referenced by comments of: 508/31 
00508/031  *BASIC                    *BASIC          OC  G          *BASIC                                                          
            D4T2    123  BASIC.*BASIC.OC.031                1 SEQ      24    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:43
                         *BASIC               
0          CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SHARED VM
           BASIC (508/30).
00508/032  *BASIC                    BASICHELPC      M              ETC:BASICHELPC                                                  
            D4T2    124  BASIC.BASICHELPC.M.032             1 LINE     68    2 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:45
                         ETC.:BASICHELPC      
0          BASIC HELP COMMAND FILE.
00508/033  *BASIC                    INSTALLATION    P              W070:T360SYSGENPR                                               
            D4T2    125  BASIC.INSTALLATION.P.033           1 SEQ     100    4 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:47
0          NOTES ON THE INSTALLATION OF BASIC.  COPY TO A TN PRINTER @MCC.
00509/001   PERMIT COMMAND                           SA  G          DWB:PK.PERMIT(1)                                                
            D4.2T1  339  PERMIT_COMMAND..SA.001             1 LINE     80   44 PAGE UM   DWB                 APR. 01, 1979  22:26:59
                         DWB.:PK.PERMIT       
0          THIS IS THE SOURCE FOR THE MTS $PERMIT COMMAND AND THE PERMIT, SETKEY, AND
           SETFSAVE SUBROUTINES.  THE PERMIT COMMAND IS IMPLEMENTED AS A CLS ALTHOUGH IT
           REALLY ISN'T SINCE IT HAS NO SUB-COMMANDS.  THIS WAS DONE SOLELY FOR EASE OF
           ISOLATION, CHECKOUT, AND MODIFICATION.  HAS $PERMIT CLS ENTRY POINT PERCMD
           AND SUBROUTINE ENTRY POINTS PERMIT, SETKEY, AND SETFSAVE.  CALLS MANY OF THE
           FILE ROUTINES DIRECTLY.  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100)
           (087).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:FILE.MACROS (482/33).
           NOTE:  SOURCE STARTS AT LINE 1, COMMANDS TO ASSEMBLE START AT LINE 0.
00509/002   PERMIT COMMAND                           OC  G          *CLSPERMIT                                                      
            D4.2T1  340  PERMIT_COMMAND..OC.002             1 LINE   7802    4 PAGE UM   DWB                 APR. 01, 1979  22:27:35
                         *CLSPERMIT           
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL.  THE LOADER COM
           CARD DEFINES THE SYMBOLS PERCMD, PERMIT, SETKEY, AND SETFSAVE IN LCSYMBOL.
00509/003   PERMIT COMMAND           *PERSUB         OC  G          *PERSUB                                                         
            D4T2    128  PERMIT_COMMAND.*PERSUB.OC.003      1 LINE     26    1 PAGE UM   DWB                 JULY 28, 1977  01:50:56
                         *PERSUB              
0          THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "PERMIT" FOLLOWED BY A 
           "$CONTINUE WITH *CLSPERMIT" CARD.  IT IS USED AS THE FILE NAME IN THE
           LOADT TABLE IN MTS, AND IS LOADED FROM IF THE PERMIT SUBROUTINE IS NOT
           DEFINED IN LCSYMBOL.
1                                                                                               THU SEP 12/96   23:39:34   Page  198
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00509/004   PERMIT COMMAND           *SKEYSUB        OC  G          *SKEYSUB                                                        
            D4T2    129  PERMIT_COMMAND.*SKEYSUB.OC.004     1 LINE     26    1 PAGE UM   DWB                 JULY 28, 1977  01:50:58
                         *SKEYSUB             
0          THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETKEY" FOLLOWED BY A 
           "$CONTINUE WITH *CLSPERMIT" CARD.  IT IS USED AS THE FILE NAME IN THE
           LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETKEY SUBROUTINE IS NOT
           DEFINED IN LCSYMBOL.
00509/005   PERMIT COMMAND           *SFSAVSUB       OC  G          *SFSAVSUB                                                       
            D4T2    130  PERMIT_COMMAND.*SFSAVSUB.OC.005    1 LINE     26    1 PAGE UM   DWB                 JULY 28, 1977  01:51:01
                         *SFSAVSUB            
0          THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETFSAVE" FOLLOWED BY A 
           "$CONTINUE WITH *CLSPERMIT" CARD.  IT IS USED AS THE FILE NAME IN THE
           LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETFSAVE SUBROUTINE IS NOT
           DEFINED IN LCSYMBOL.
00509/006   PERMIT COMMAND           *SPRIVSUB       OC  G          *SPRIVSUB                                                       
            D4T2    131  PERMIT_COMMAND.*SPRIVSUB.OC.006    1 LINE     25    1 PAGE UM   DWB                 JULY 28, 1977  01:51:03
                         *SPRIVSUB            
0          THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETFPRIV" FOLLOWED BY A 
           "$CONTINUE WITH *CLSPERMIT" CARD.  IT IS USED AS THE FILE NAME IN THE
           LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETFPRIV SUBROUTINE IS NOT
           DEFINED IN LCSYMBOL.
00509/007   PERMIT COMMAND           SUBR TEST PGM   SF             DWB:PERSTEST                                                    
            D4T2    133  PERMIT_COMMAND.SUBR_TEST.SF.008    1 LINE     70    1 PAGE UM   DWB                 JULY 28, 1977  01:52:57
                         DWB.:PERSTEST        
0          PROGRAM TO TEST THE PERMIT SUBROUTINE.  THIS FILE ALSO CONTAINS A FAKE SDMOD
           SUBROUTINE FOR PERMIT TO CALL.  THE FAKE SDMOD JUST PRINTS OUT THE CALLING PARAMETERS.
           THIS PROGRAM WILL CALL PERMIT SEVERAL TIMES WITH AN ASSORTMENT OF PARAMETERS AND ISSUE
           A $FILESTATUS COMMAND AFTER EACH.  IN ORDER TO USE THIS PROGRAM, YOU MAY ALSO WANT TO
           SUPPLY A FAKE (E.G. NOP) SDWRITE SUBROUTINE FOR PERMIT TO CALL.  OR YOU CAN JUST RUN
           THE FIRST MODULE WITH THE REAL SDMOD AND SDWRITE ROUTINES.
00510/001   MTS VOLUME 13                            WF             S0723 'D3T4' FSNAME=MTS_VOLUME_13..WF.1(1)                    62
            D4T2    134  MTS_VOLUME_13..WF.001              1 LINE    159   61 PAGE UM   MANUAL              AUG. 01, 1973  22:10.11
0          FORMAT INPUT FOR VOLUME 13 "DATA CONCENTRATOR USER'S GUIDE" OF THE UM MTS MANUAL (AUGUST 1973).
            
           EDITOR:  RICHARD A. SALISBURY
            
           NOTE:  THIS MANUAL IS OBSOLETE AND WILL NOT BE REISSUED.
00510/002   MTS VOLUME 13                            PF             S0723 'D3T4' FSNAME=MTS_VOLUME_13..PF.2(1)                    63
            D4T2    135  MTS_VOLUME_13..PF.002              1 LINE     80   81 PAGE UM   MANUAL              AUG. 01, 1973  22:11.01
0          PRINT FILE FOR VOLUME 13.  COPY TO A TN PRINTER.
1                                                                                               THU SEP 12/96   23:39:34   Page  199
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00511/001  *OBJLIST                                  SA  G  OBJL    LBT:OBJLIST.S                                                   
            D4.1T1  273  OBJLIST..SA.001                    1 LINE     80   55 PAGE UM   TIFFANY             MAY  13, 1978  17:35:44
0          PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT.  READS *ASMH (737) SYM
           RECORDS.
00511/002  *OBJLIST                                  OE  G          *OBJLIST                                                        
            D4.1T1  274  OBJLIST..OE.002                    1 SEQ    7253    4 PAGE UM   TIFFANY             MAY  13, 1978  17:35:48
                         *OBJLIST             
00512/001   MTS VOLUME 11            MASTER          WT             S0549 MTSV11 'MTS MANUALS' POSN=NEWM3.V11                       
            D4.2T1  341  MTS_VOLUME_11.MASTER.WT.001        1 SEQ     132   83 PAGE UM   MANUAL              APR. 01, 1979  22:29:11
0          TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUALS
           (AUGUST 1978).
            
           EDITOR:  GAIL H. LIFT
00512/002   MTS VOLUME 11            PRINT           PT             S0549 MTSV11 'MTS MANUALS' POSN=PRINT3.V11                      
            D4.2T1  342  MTS_VOLUME_11.PRINT.PT.002         1 SEQ     132  174 PAGE UM   MANUAL              APR. 01, 1979  22:29:19
0          TEXT/360 PRINT FILE.
00512/003   MTS VOLUME 11            FIGURES         SG  G          S0549 MTSV11 'MTS MANUALS' POSN=V11FIGS.MAIN                    
            D4.2T1  343  MTS_VOLUME_11.FIGURES.SG.003       1 SEQ      80    2 PAGE UM   MANUAL              APR. 01, 1979  22:29:54
0          GOM SOURCE FOR MAIN PROGRAM TO CALL SUBROUTINES WHICH GENERATE FIGURES
           FOR VOLUME 11.
00512/004   MTS VOLUME 11            FIGURES         SF  G          S0549 MTSV11 'MTS MANUALS' POSN=V11FIGS.SUBR                    
            D4.2T1  344  MTS_VOLUME_11.FIGURES.SF.004       1 SEQ     256   42 PAGE UM   MANUAL              APR. 01, 1979  22:29:56
0          FORTRAN SOURCE FOR SUBROUTINES WHICH GENERATE FIGURES FOR VOLUME 11.
00512/005   MTS VOLUME 11            INDEX SOURCE    D              S0549 MTSV11 'MTS MANUALS' POSN=V11INDEXSOU                     
            D4.2T1  345  MTS_VOLUME_11.INDEX_SOURC.D.005    1 SEQ      37    3 PAGE UM   MANUAL              APR. 01, 1979  22:30:35
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 11.
00513/001   DYSSUB                   D4 MASTER       SA  G          MTS:DYSSUB(1,999)                                               
            D4T2    142  DYSSUB..SA.001                     1 LINE     72    5 PAGE UM   MTS       HELFFRICH JULY 28, 1977  01:54:59
                         MTS.:DYSSUB          
0          SUBROUTINE TO PROCESS SOME $DISPLAY PARAMETERS.  IT IS LOADED INTO SHARED VM AFTER IPL
           BY PISTLE.  COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), *GDINFODSECT (594),
           AND *SENSEDSECT (3025).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1).
00513/002B  DYSSUB                   UPDATE          UC  G          MTS:DYSUPD                                                      
            RD16T1   84  DYSSUB.UPDATE.UC.002               1 LINE     68    1 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:00
                         MTS.:DYSUPD          
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=DYS.
1                                                                                               THU SEP 12/96   23:39:34   Page  200
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00513/003B  DYSSUB                                   OC  G          *DYSSUB                                                         
            RD16T1   85  DYSSUB..OC.003                     1 LINE     80    3 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:01
                         *DYSSUB              
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE.
00513/004B  DYSSUB                                   L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DYS.LIST              14  
            RD16T1   86  DYSSUB..L.004                      1 SEQ     133   42 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:10
00514/001  *PL1TIDY                                  SP  G          W062:NEATENED                                                   
            D4T2    144  PL1TIDY..SP.001                    1 LINE     72   18 PAGE UM   TIFFANY             JULY 28, 1977  01:55:02
0          THIS IS A REVISED VERSION OF THE IBM "NEATER" PROGRAM.
           NOTE: AFTER COMPILATION, THE SYMBOL IHESAPC IN THE OBJECT MUST BE CHANGED TO IHESAPE.
00514/002  *PL1TIDY                                  OE  G          *PL1TIDY                                                        
            D4T2    145  PL1TIDY..OE.002                    1 SEQ   25530    9 PAGE UM   TIFFANY             JULY 28, 1977  01:55:04
                         *PL1TIDY             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00515/001  *11ASR                    11ASMJOB        C              S0806 DIST4 FSNAME=11ASMJOB                                     
            D4T2    146  11ASR.11ASMJOB.C.001               1 LINE     94    1 PAGE UM   GOODRICH            MAY  15, 1975  11:11:20
0          MTS COMMANDS TO ASSEMBLE AND LINK EDIT ALL THE CSECTS FOR THE PDP-11 ASSEMBLER ORIGINALLY WRITTEN
           BY THE MERIT COMPUTER NETWORK PROJECT.  THE REQUIRED MACRO LIBRARY IS ALSO GENERATED.
0          Referenced by comments of: 516/1, 660/1, 660/14, 755/1, 755/3 
00515/002  *11ASR                    MACRO           SM  G          S0806 DIST4 FSNAME=MACRO                                        
            D4T2    147  11ASR.MACRO.SM.002                 1 LINE     68    4 PAGE UM   GOODRICH            OCT. 18, 1976  16:11:24
0          MACRO LIBRARY USED TO ASSEMBLE COMPS 515/3 THROUGH 515/7.
00515/003  *11ASR                    UATS/MAL        SA  G          S0806 DIST4 FSNAME=UATS/MAL                                     
            D4T2    148  11ASR.UATS/MAL.SA.003              1 LINE     86  105 PAGE UM   GOODRICH            JULY 19, 1977  11:06:25
0          CAPABILTIES FOR EXPRESSION EVALUATION IN LENGTH AND REPLICATION FACTORS
           IN DC AND DS STATEMENT HAVE BEEN ADDED.  LOGICAL OPERATORS IN ADDRESS
           CALCULATIONS HAVE BEEN ADDED, AS HAS THE SPLITTING OF LONG SOURCE
           STATEMENTS INTO SEVERAL OUTPUT LINES.
0          Referenced by comments of: 515/11 
00515/004  *11ASR                    DCEVAL.SOU      SA  G          S0806 DIST4 FSNAME=DCEVAL.SOU                                   
            D4T2    149  11ASR.DCEVAL.SOU.SA.004            1 LINE     75   17 PAGE UM   GOODRICH            MAY  15, 1975  11:07:38
00515/005  *11ASR                    REPSCAN         SA  O          S0806 DIST4 FSNAME=REPSCAN                                      
            D4T2    150  11ASR.REPSCAN.SA.005               1 LINE     63    3 DISK UM   GOODRICH            FEB. 22, 1973  16:48.41
00515/006  *11ASR                    MAC             SA  O          S0806 DIST4 FSNAME=MAC                                          
            D4T2    151  11ASR.MAC.SA.006                   1 LINE     70   39 PAGE UM   GOODRICH            OCT. 16, 1976  15:53:03
1                                                                                               THU SEP 12/96   23:39:34   Page  201
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00515/007  *11ASR                    EXTF11.SOU      SA  G          S0806 DIST4 FSNAME=EXTF11.SOU                                   
            D4T2    152  11ASR.EXTF11.SOU.SA.007            1 LINE     72    7 PAGE UM   GOODRICH            OCT. 03, 1975  12:38:19
00515/008  *11ASR                    OPCODES11       SA  G          S0806 DIST4 FSNAME=OPCODES11                                    
            D4T2    153  11ASR.OPCODES11.SA.008             1 LINE     72   15 PAGE UM   GOODRICH            MAR. 08, 1976  11:15:41
00515/009  *11ASR                    MICROP          SA  G          S0806 DIST4 FSNAME=MICROP                                       
            D4T2    154  11ASR.MICROP.SA.009                1 LINE     72    6 PAGE UM   GOODRICH            JULY 19, 1977  11:30:16
00515/010  *11ASR                    OBJECT          OE  G          *11ASR                                                          
            D4T2    155  11ASR.OBJECT.OE.010                1 SEQ   30652   14 PAGE UM   GOODRICH            JULY 28, 1977  01:58:38
                         *11ASR               
00515/011  *11ASR                    11ASRERROR      M   G          ETC:11ASRERROR                                                  
            D4T2    156  11ASR.11ASRERROR.M.011             1 LINE     70    4 PAGE UM   GOODRICH            JULY 28, 1977  01:58:40
                         ETC.:11ASRERROR      
0          ERROR COMMENT FILE REFERENCED BY UATS/MAL (515/3) ON LINE 2762.
00515/012  *11ASR                    MERIT OPCODES   OE  G          ETC:11ASROPMER                                                  
            D4T2    157  11ASR.MERIT_OPCODES.OE.012         1 SEQ    4368    2 PAGE UM   GOODRICH            JULY 28, 1977  01:58:42
                         ETC.:11ASROPMER      
0          OBJECT MODULE LOADED FROM ETC:11ASROPMER BY *11ASR TO ALLOW ASSEMBLY OF SOURCE
           USING THE SO-CALLED "MERIT" PDP-11 OPCODES. 
00515/013  *11ASR                    LAM OPCODES     OE  G          ETC:11ASROPMLAM                                                 
            D4T2    158  11ASR.LAM_OPCODES.OE.013           1 SEQ    3120    1 PAGE UM   GOODRICH            JULY 28, 1977  01:58:45
                         ETC.:11ASROPMLAM     
0          OBJECT MODULE LOADED FROM ETC:11ASROPMLAM BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR
           THE UM DATA CONCENTRATOR LINE ADAPTER MICROPROCESSOR (LAM).
00515/014  *11ASR                    11/470 OPCODES  OE  G          ETC:11ASROPM360                                                 
            D4T2    159  11ASR.11/470_OPCODES.OE.014        1 SEQ    1560    1 PAGE UM   GOODRICH            JULY 28, 1977  01:58:47
                         ETC.:11ASROPM360     
0          OBJECT MODULE LOADED FROM ETC:11ASROPM360 BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR
           THE UM DATA CONCENTRATOR PDP-11/AMDAHL 470 (360/370) CHANNEL INTERFACE MICROPROCESSOR.
00515/015  *11ASR                    11/03 OPCODES   OE  G          ETC:11ASROP03                                                   
            D4T2    160  11ASR.11/03_OPCODES.OE.015         1 SEQ    3576    2 PAGE UM   GOODRICH            JULY 28, 1977  01:58:49
                         ETC.:11ASROP03       
0          OBJECT MODULE LOADED FROM ETC:11ASROP03 BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR
           THE PDP-11/03 (LSI) COMPUTER.
00515/016  *11ASR                    11/45 OPCODES   OE  G          ETC:11ASROP45                                                   
            D4T2    161  11ASR.11/45_OPCODES.OE.016         1 SEQ    4608    2 PAGE UM   GOODRICH            JULY 28, 1977  01:58:52
                         ETC.:11ASROP45       
0          OBJECT MODULE LOADED FROM ETC:11ASROP45 BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR
           THE PDP-11/45 COMPUTER.
1                                                                                               THU SEP 12/96   23:39:34   Page  202
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00515/017  *11ASR                    MEMO 286        WT             S0564 D4T2 VLO FSNAME=11ASR.MEMO_286.WT.017(1)               162
            D4T2    162  11ASR.MEMO_286.WT.017              1 LINE     80   49 PAGE UM   GOODRICH            JAN. 26, 1977  20:17:02
0          THIS IS COMPUTING CENTER MEMO 286 -- "THE PDP-11 ASSEMBLER AND LINK EDITOR:
           A USER'S GUIDE TO *11ASR AND *LINK11"
00516/001  *LINK11                                   SA  G          S0806 DIST4 FSNAME=LINKSOU                                      
            D4T2    163  LINK11..SA.001                     1 LINE    100   44 PAGE UM   GOODRICH            OCT. 16, 1976  15:53:41
0          LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515).
           NEW VERSION ALLOWS UP TO 1024 EXTERNAL SYMBOLS (INSTEAD OF 256).
0          Referenced by comments of: 660/1 
00516/002  *LINK11                                   OE  G          *LINK11                                                         
            D4T2    164  LINK11..OE.002                     1 SEQ   11140    3 PAGE UM   GOODRICH            JULY 28, 1977  01:59:54
                         *LINK11              
00516/003  *LINK11                   USER'S GUIDE    WT           # (SEE COMP 515/17)                                               
                                                                                    UM   GOODRICH                                   
00517/001   LOGICAL OPERATORS                        SA  G          S0564 D4T2 VLO FSNAME=LOGICAL_OPERATORS..SA.001(1)           165
            D4T2    165  LOGICAL_OPERATORS..SA.001          1 LINE     70    4 PAGE UM   HARDING             JULY 28, 1977  01:59:54
0          SUBROUTINES TO PROVIDE THE FOLLOWING SYSTEM/360 MACHINE OPERATIONS:  MVC, CLC, NC, OC, XC, TR, TRT, ED, AND EDMK.
           REWRITTEN SINCE DIST 2.0.
00517/002   LOGICAL OPERATORS                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HARDING                                    
00518/001   GRGJUL SUBRS                             SA  G  GRJL    S0027 DISTRB FSNAME=GRGJULTM                                    
            D4T2    166  GRGJUL_SUBRS..SA.001               1 LINE     80    5 PAGE UM   ENGLE               DEC. 05, 1975  16:10:51
0          GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC).
0          Referenced by comments of: 436/1, 529/1 
00518/002   GRGJUL SUBRS                             OC  G        # (PART OF COMP 143)                                              
                                                                                    UM   ENGLE                                      
0          THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE"
           BY PISTLE AT IPL.
00519/001   GRJLDT/GRJLTM SUBRS      GRJLDT          SA  G  GJDT    S0027 DISTRB FSNAME=GRJLDT                                      
            D4.1T1  277  GRJLDT/GRJLTM_SUBRS.GRJLD.SA.001   1 LINE     80    1 PAGE UM   ENGLE               JAN. 20, 1978  13:32:33
0          GREGORIAN-TO-JULIAN CONVERSION SUBROUTINES (TWO OF MANY -- TOO MANY).
00519/002   GRJLDT/GRJLTM SUBRS      GRJLDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
1                                                                                               THU SEP 12/96   23:39:34   Page  203
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00519/003   GRJLDT/GRJLTM SUBRS      GRJLTM          SA  G  GJTM    S0027 DISTRB FSNAME=GRJLTM                                      
            D4.1T1  278  GRJLDT/GRJLTM_SUBRS.GRJLT.SA.003   1 LINE     80    1 PAGE UM   ENGLE               JAN. 20, 1978  13:33:56
00519/004   GRJLDT/GRJLTM SUBRS      GRJLTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00520/001   GROSDT                                   SA  G  GODT    S0027 DISTRB FSNAME=GROSDT                                      
            D4.1T1  279  GROSDT..SA.001                     1 LINE     80    2 PAGE UM   ENGLE               JAN. 20, 1978  13:36:51
0          GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE.
00520/002   GROSDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/001   JLGRDT/JLGRTM            JLGRDT          SA  G  JGDT    S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRDT.SA.1(1)              89
            D4T2    170  JLGRDT/JLGRTM.JLGRDT.SA.001        1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:55.50
0          JULIAN-TO-GREGORIAN CONVERSION SUBROUTINES.
00521/002   JLGRDT/JLGRTM            JLGRDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/003   JLGRDT/JLGRTM            JLGRTM          SA  G  JGTM    S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRTM.SA.3(1)              90
            D4T2    171  JLGRDT/JLGRTM.JLGRTM.SA.003        1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:57.15
00521/004   JLGRDT/JLGRTM            JLGRTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00522/001   JULGRG SUBRS                             SA  G  JLGR    S0723 'D3T4' FSNAME=JULGRG_SUBRS..SA.1(1)                     91
            D4T2    172  JULGRG_SUBRS..SA.001               1 LINE     80    5 PAGE UM   ENGLE               MAY  03, 1973  10:00.10
0          JULIAN TO GREGORIAN DATE/TIME CONVERSION SUBROUTINES (JULGRGDT, JULGRGTM, AND JLGRSEC).
0          Referenced by comments of: 437/1, 529/1, 716/6 
00522/002   JULGRG SUBRS                             OC  G          SEG2:CFE                                                        
            D4T2    173  JULGRG_SUBRS..OC.002               1 LINE     80    1 PAGE UM   ENGLE               JULY 28, 1977  02:06:33
                         SEG2:CFE             
0          THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE"
           BY PISTLE AT IPL.
00523/001   OSGRDT                                   SA  G  OGDT    S0027 DISTRB FSNAME=OSGRDT                                      
            D4.1T1  280  OSGRDT..SA.001                     1 LINE     80    2 PAGE UM   ENGLE               JAN. 20, 1978  13:38:52
0          OS/360 (YYDDD) TO GREGORIAN DATE CONVERSION SUBROUTINE.
00523/002   OSGRDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
1                                                                                               THU SEP 12/96   23:39:34   Page  204
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00524/001  *LIBRARY                                  OL             *LIBRARY                                                        
            D4.2T1  349  LIBRARY..OL.001                    1 LINE  13448   26 PAGE UM   SALISBURY           APR. 01, 1979  22:32:26
                         *LIBRARY             
0          OBJECT LIBRARY FOR SYSTEM NON-RESIDENT SUBROUTINES.  THE SOURCE FILES FOR THE PROGRAMS CONTAINED
           IN THIS LIBRARY ARE GIVEN ELSEWHERE IN THIS DISTRIBUTION UNDER THE SPECIFIC SUBROUTINE NAME.
           THIS LIBRARY IS AUTOMATICALLY SEARCHED WHEN PROGRAMS ARE LOADED IF THERE ARE UNRESOLVED SYMBOLS.
0          Referenced by comments of: 278/2, 278/4, 744/1, 744/6 
00524/002  *LIBRARY                  CREATELIB       C              LIB:CREATELIB                                                   
            D4T2    176  LIBRARY.CREATELIB.C.002            1 LINE     91    1 PAGE UM   SALISBURY           SEP. 16, 1977  10:40:01
0          MTS COMMAND FILE TO CONSTRUCT A NEW LIBRARY FILE; IT COPIES THE INDIVIDUAL MODULES INTO A FILE,
           LINK EDITS THE FILE, AND THEN RUN *GENLIB.
           NOTE:  THIS COMMAND FILE HAS MANY "$CONTINUE WITH" LINES FOR PRIVATE FILES (NOT DISTRIBUTED) WHICH
                  CONSTITUTE THE COMPONENTS OF *LIBRARY.
0          Referenced by comments of: 524/3 
00524/003  *LIBRARY                  ENTERLIB        C              LIB:ENTERLIB                                                    
            D4T2    177  LIBRARY.ENTERLIB.C.003             1 LINE     37    1 PAGE UM   SALISBURY           JULY 28, 1977  02:06:41
0          MTS COMMAND FILE TO ENTER THE NEW LIBRARY FILE CONSTRUCTED BY CREATELIB (524/2)
           INTO *LIBRARY.  WITH RSF, THIS CAN BE DONE DURING NORMAL SYSTEM OPERATION.
00524/004A *LIBRARY                                  WF             W098:EAS.MODLIB                                                 
                                                                                    UM   SALISBURY                                  
00525/001   ELEM FUNC LIB            SQRT            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.SQRT.SA.001(1)           178
            D4T2    178  ELEM_FUNC_LIB.SQRT.SA.001          1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:02.02
0          THE ELEMENTARY FUNCTION LIBRARY CONTAINS THE MATHEMATICAL AND IMPLICITLY CALLED SUBROUTINES USUALLY ASSOCIATED
           WITH THE FORTRAN IV LANGUAGE AS WELL AS A FEW ADDITIONAL FUNCTIONS WHICH, INEXPLICABLY, ARE NOT PART OF THE
           IBM FORTRAN LIBRARY.  THESE FUNCTIONS ARE ALL RE-ENTRANT AND, THEREFORE, ARE NORMALLY LOADED INTO SHARED VM.
            
           COMPS 525/1 THROUGH 525/46 SHOULD ALL BE ASSEMBLED WITH THE EFL.MACLIB MACRO LIBRARY (525/47).
0          Referenced by comments of: 527/1, 1000/48 
00525/002   ELEM FUNC LIB            EXP             SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EXP.SA.002(1)            179
            D4T2    179  ELEM_FUNC_LIB.EXP.SA.002           1 LINE     71    3 PAGE UM   HARDING             SEP. 24, 1974  09:04.04
00525/003   ELEM FUNC LIB            ALOG10/ALOG     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALOG10/ALOG.SA.003(1)    180
            D4T2    180  ELEM_FUNC_LIB.ALOG10/ALOG.SA.003   1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.13
00525/004   ELEM FUNC LIB            COS/SIN         SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COS/SIN.SA.004(1)        181
            D4T2    181  ELEM_FUNC_LIB.COS/SIN.SA.004       1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.18
00525/005   ELEM FUNC LIB            COTAN/TAN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COTAN/TAN.SA.005(1)      182
            D4T2    182  ELEM_FUNC_LIB.COTAN/TAN.SA.005     1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.23
1                                                                                               THU SEP 12/96   23:39:34   Page  205
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00525/006   ELEM FUNC LIB            ARCOS/ARSIN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006(1)    183
            D4T2    183  ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:02.28
00525/007   ELEM FUNC LIB            ATAN2/ATAN      SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ATAN2/ATAN.SA.007(1)     184
            D4T2    184  ELEM_FUNC_LIB.ATAN2/ATAN.SA.007    1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:02.33
00525/008   ELEM FUNC LIB            COSH/SINH       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COSH/SINH.SA.008(1)      185
            D4T2    185  ELEM_FUNC_LIB.COSH/SINH.SA.008     1 LINE     71    1 DISK UM   HARDING             JUNE 27, 1972  12:02.38
00525/009   ELEM FUNC LIB            TANH            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.TANH.SA.009(1)           186
            D4T2    186  ELEM_FUNC_LIB.TANH.SA.009          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.42
00525/010   ELEM FUNC LIB            ERFC/ERF        SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERFC/ERF.SA.010(1)       187
            D4T2    187  ELEM_FUNC_LIB.ERFC/ERF.SA.010      1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.46
00525/011   ELEM FUNC LIB            ALGAMA/GAMMA    SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011(1)    188
            D4T2    188  ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:02.51
00525/012   ELEM FUNC LIB            DSQRT           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DSQRT.SA.012(1)          189
            D4T2    189  ELEM_FUNC_LIB.DSQRT.SA.012         1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.56
00525/013   ELEM FUNC LIB            DEXP            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DEXP.SA.013(1)           190
            D4T2    190  ELEM_FUNC_LIB.DEXP.SA.013          1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.00
00525/014   ELEM FUNC LIB            DLOG10/DLOG     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLOG10/DLOG.SA.014(1)    191
            D4T2    191  ELEM_FUNC_LIB.DLOG10/DLOG.SA.014   1 LINE     67    2 DISK UM   HARDING             JUNE 27, 1972  12:03.05
00525/015   ELEM FUNC LIB            DCOS/DSIN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOS/DSIN.SA.015(1)      192
            D4T2    192  ELEM_FUNC_LIB.DCOS/DSIN.SA.015     1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.11
00525/016   ELEM FUNC LIB            DCOTAN/DTAN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016(1)    193
            D4T2    193  ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016   1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:03.15
00525/017   ELEM FUNC LIB            DARCOS/DARSIN   SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DARCOS/DARS.SA.017(1)    194
            D4T2    194  ELEM_FUNC_LIB.DARCOS/DARS.SA.017   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.20
00525/018   ELEM FUNC LIB            DATAN2/DATAN    SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DATAN2/DATA.SA.018(1)    195
            D4T2    195  ELEM_FUNC_LIB.DATAN2/DATA.SA.018   1 LINE     70    2 DISK UM   HARDING             FEB. 16, 1973  09:37.48
00525/019   ELEM FUNC LIB            DCOSH/DSINH     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOSH/DSINH.SA.019(1)    196
            D4T2    196  ELEM_FUNC_LIB.DCOSH/DSINH.SA.019   1 LINE     68    2 DISK UM   HARDING             JUNE 27, 1972  12:03.32
00525/020   ELEM FUNC LIB            DTANH           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DTANH.SA.020(1)          197
            D4T2    197  ELEM_FUNC_LIB.DTANH.SA.020         1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:03.36
00525/021   ELEM FUNC LIB            DERFC/DERF      SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DERFC/DERF.SA.021(1)     198
            D4T2    198  ELEM_FUNC_LIB.DERFC/DERF.SA.021    1 LINE     72    2 DISK UM   HARDING             JUNE 27, 1972  12:03.39
00525/022   ELEM FUNC LIB            DLGAMA/DGAMMA   SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022(1)    199
            D4T2    199  ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022   1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.42
1                                                                                               THU SEP 12/96   23:39:34   Page  206
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00525/023   ELEM FUNC LIB            CABS            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CABS.SA.023(1)           200
            D4T2    200  ELEM_FUNC_LIB.CABS.SA.023          1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:03.46
00525/024   ELEM FUNC LIB            CSQRT           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CSQRT.SA.024(1)          201
            D4T2    201  ELEM_FUNC_LIB.CSQRT.SA.024         1 LINE     67    2 DISK UM   HARDING             JUNE 27, 1972  12:03.50
00525/025   ELEM FUNC LIB            CEXP            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CEXP.SA.025(1)           202
            D4T2    202  ELEM_FUNC_LIB.CEXP.SA.025          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:03.54
00525/026   ELEM FUNC LIB            CLOG            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CLOG.SA.026(1)           203
            D4T2    203  ELEM_FUNC_LIB.CLOG.SA.026          1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.57
00525/027   ELEM FUNC LIB            CCOS/CSIN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CCOS/CSIN.SA.027(1)      204
            D4T2    204  ELEM_FUNC_LIB.CCOS/CSIN.SA.027     1 LINE     69    2 PAGE UM   HARDING             JULY 27, 1973  12:18.03
00525/028   ELEM FUNC LIB            CDABS           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDABS.SA.028(1)          205
            D4T2    205  ELEM_FUNC_LIB.CDABS.SA.028         1 LINE     69    1 DISK UM   HARDING             JUNE 27, 1972  12:04.04
00525/029   ELEM FUNC LIB            CDSQRT          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDSQRT.SA.029(1)         206
            D4T2    206  ELEM_FUNC_LIB.CDSQRT.SA.029        1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:04.08
00525/030   ELEM FUNC LIB            CDEXP           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDEXP.SA.030(1)          207
            D4T2    207  ELEM_FUNC_LIB.CDEXP.SA.030         1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:04.12
00525/031   ELEM FUNC LIB            CDLOG           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDLOG.SA.031(1)          208
            D4T2    208  ELEM_FUNC_LIB.CDLOG.SA.031         1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:04.16
00525/032   ELEM FUNC LIB            CDCOS/CDSIN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032(1)    209
            D4T2    209  ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032   1 LINE     63    2 DISK UM   HARDING             JUNE 27, 1972  12:04.19
00525/033   ELEM FUNC LIB            FIXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FIXPI#.SA.033(1)         210
            D4T2    210  ELEM_FUNC_LIB.FIXPI#.SA.033        1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:04.23
00525/034   ELEM FUNC LIB            FRXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPI#.SA.034(1)         211
            D4T2    211  ELEM_FUNC_LIB.FRXPI#.SA.034        1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:04.25
00525/035   ELEM FUNC LIB            FDXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPI#.SA.035(1)         212
            D4T2    212  ELEM_FUNC_LIB.FDXPI#.SA.035        1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:04.28
00525/036   ELEM FUNC LIB            FCXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCXPI#.SA.036(1)         213
            D4T2    213  ELEM_FUNC_LIB.FCXPI#.SA.036        1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.31
00525/037   ELEM FUNC LIB            FCDXI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCDXI#.SA.037(1)         214
            D4T2    214  ELEM_FUNC_LIB.FCDXI#.SA.037        1 LINE     71    1 DISK UM   HARDING             JUNE 27, 1972  12:04.34
00525/038   ELEM FUNC LIB            FRXPR#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPR#.SA.038(1)         215
            D4T2    215  ELEM_FUNC_LIB.FRXPR#.SA.038        1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:04.37
00525/039   ELEM FUNC LIB            FDXPD#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPD#.SA.039(1)         216
            D4T2    216  ELEM_FUNC_LIB.FDXPD#.SA.039        1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.43
1                                                                                               THU SEP 12/96   23:39:34   Page  207
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00525/040   ELEM FUNC LIB            CMPY#           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CMPY#.SA.040(1)          217
            D4T2    217  ELEM_FUNC_LIB.CMPY#.SA.040         1 LINE     61    1 DISK UM   HARDING             JUNE 27, 1972  12:04.46
00525/041   ELEM FUNC LIB            CDVD#           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDVD#.SA.041(1)          218
            D4T2    218  ELEM_FUNC_LIB.CDVD#.SA.041         1 LINE     55    1 DISK UM   HARDING             JUNE 27, 1972  12:04.50
00525/042   ELEM FUNC LIB            CDMPY#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDMPY#.SA.042(1)         219
            D4T2    219  ELEM_FUNC_LIB.CDMPY#.SA.042        1 LINE     61    1 DISK UM   HARDING             JUNE 27, 1972  12:04.54
00525/043   ELEM FUNC LIB            CDDVD#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDDVD#.SA.043(1)         220
            D4T2    220  ELEM_FUNC_LIB.CDDVD#.SA.043        1 LINE     55    1 DISK UM   HARDING             JUNE 27, 1972  12:04.56
00525/044   ELEM FUNC LIB            DREAL           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DREAL.SA.044(1)          221
            D4T2    221  ELEM_FUNC_LIB.DREAL.SA.044         1 LINE     58    1 DISK UM   HARDING             JUNE 27, 1972  12:05.00
00525/045   ELEM FUNC LIB            DIMAG           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DIMAG.SA.045(1)          222
            D4T2    222  ELEM_FUNC_LIB.DIMAG.SA.045         1 LINE     58    1 DISK UM   HARDING             JUNE 27, 1972  12:05.02
00525/046   ELEM FUNC LIB            MINMAX          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.MINMAX.SA.046(1)         223
            D4T2    223  ELEM_FUNC_LIB.MINMAX.SA.046        1 LINE     65    2 DISK UM   HARDING             JUNE 27, 1972  12:05.05
00525/047   ELEM FUNC LIB            EFL.MACLIB      SM  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EFL.MACLIB.SM.047(1)     224
            D4T2    224  ELEM_FUNC_LIB.EFL.MACLIB.SM.047    1 LINE     65    1 DISK UM   HARDING             JUNE 27, 1972  12:05.10
0          EFL MACRO LIBRARY REQUIRED FOR ASSEMBLING COMPS 525/1 THROUGH 525/46.
0          Referenced by comments of: 525/1 
00525/048   ELEM FUNC LIB            ERRMON#         SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERRMON#.SA.048(1)        225
            D4T2    225  ELEM_FUNC_LIB.ERRMON#.SA.048       1 LINE     70    9 PAGE UM   HARDING             JULY 28, 1977  02:09:29
0          EFL ERROR MONITOR.
0          Referenced by comments of: 527/1 
00525/049   ELEM FUNC LIB            <EFL>           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.<EFL>.SA.049(1)          226
            D4T2    226  ELEM_FUNC_LIB.<EFL>.SA.049         1 LINE     57    3 PAGE UM   HARDING             SEP. 24, 1974  09:03.35
0          SOURCE FOR LOW-CORE SYMBOL TABLE "<EFL>" WHICH DEFINES EACH OF THE ENTRY POINTS FOR THE EFL ROUTINES.
           THE <EFL> SYMBOL TABLE IS POINTED TO BY LCSYMBOL.
           THE ASSEMBLED NAME OF THIS PROGRAM IS "EFL" SINCE "<EFL>" IS AN ILLEGAL CSECT NAME.  THE OBJECT DECK MUST BE
           CHANGED (BY THE EDITOR) TO CHANGE THE NAME TO "<EFL>" IF IT IS RE-ASSEMBLED.
00525/050   ELEM FUNC LIB            OBJECT          OC  G          SEG2:EFL                                                        
            D4T2    227  ELEM_FUNC_LIB.OBJECT.OC.050        1 LINE     80   17 PAGE UM   HARDING             JULY 28, 1977  02:09:34
                         SEG2:EFL             
0          OBJECT LOADED INTO SHARED VM AT IPL BY PISTLE.
           THE FOLLOWING SYMBOLS ARE ADDED TO LCSYMBOL BY PISTLE:
            
             TRACER, TRACER#, SIOC, SIOC#, SIOCP, AND <EFL>
            
           THE SYMBOL <EFL> DEFINES A SEPARATE SYMBOL TABLE WHICH CONTAINS THE ADDRESSES OF
           OF ALL THE EFL ENTRY POINTS.
1                                                                                               THU SEP 12/96   23:39:34   Page  208
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00526/001   SIOC SUBR                                SA  G          S0564 D4T2 VLO FSNAME=SIOC_SUBR..SA.001(1)                   228
            D4T2    228  SIOC_SUBR..SA.001                  1 LINE     80   42 PAGE UM   HARDING             JULY 28, 1977  02:09:37
0          AN I/O CONVERSION PROGRAM TO PERFORM FLOATING POINT, INTEGER, LOGICAL, AND HEX CONVERSIONS.  THE CONVERSIONS
           AVAILABLE CORRESPOND TO THOSE USUALLY ASSOCIATED WITH THE D, E, F, G, I, L, AND Z FORTRAN FORMAT SPECIFICATIONS.
           THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, IS NORMALLY LOADED INTO SHARED VM.
00526/002   SIOC SUBR                                OC  G          SEG2:SIOC                                                       
            D4T2    229  SIOC_SUBR.370_OBJECT.OC.002        1 LINE     80    3 PAGE UM   HARDING             JULY 28, 1977  02:09:46
                         SEG2:SIOC            
00526/003   SIOC SUBR                SIOCP           SA  G          S0564 D4T2 VLO FSNAME=SIOC_SUBR.SIOCP.SA.004(1)              231
            D4T2    231  SIOC_SUBR.SIOCP.SA.004             1 LINE     80    6 PAGE UM   HARDING             JULY 28, 1977  02:09:50
0          SUBROUTINE TO TRANSLATE FORTRAN FORMAT-LIKE CHARACTER STRINGS INTO THE DATA
           BLOCK REQUIRED FOR CALLING SIOC.
00526/004   SIOC SUBR                SIOCP           OC  G        # (PART OF COMP 525/50)                                           
                                                                                    UM   HARDING                                    
00527/001   TRACER SUBR                              SA  G          S0564 D4T2 VLO FSNAME=TRACER_SUBR..SA.001(1)                 232
            D4T2    232  TRACER_SUBR..SA.001                1 LINE     80   52 PAGE UM   HARDING             SEP. 24, 1974  09:04.21
0          THE TRACEBACK PROGRAM FORMERLY PROVIDED CONVERSATIONAL ERROR PROCESSING FOR ERROR
           CONDITIONS DETECTED BY THE ELEMENTARY FUNCTION LIBRARY (525) AS WELL AS PROGRAM
           AND ATTENTION INTERRUPT PROCESSING.  COMMANDS ARE AVAILABLE FOR DISPLAYING AND
           ALTERING FLOATING POINT, INTEGER, CHARACTER, AND HEX DATA.  THIS PROGRAM IS
           RE-ENTRANT AND, THEREFORE, CAN BE LOADED INTO SHARED VM.
            
           NOTE:  AT UM, THIS COMPONENT IS CONSIDERED TO BE OBSOLETE AND WILL PROBABLY BE
                  REMOVED FROM THE SYSTEM IN THE NEAR FUTURE SINCE THE CURRENT VERSION OF
                  THE EFL ERROR MONITOR (525/48) NO LONGER CALLS IT.
00527/002   TRACER SUBR                              OC  G        # (PART OF COMM 525)                                              
                                                                                    UM   HARDING                                    
0          OBJECT IS PART OF FILE "SEG2:EFL".
00527/003   TRACER SUBR              MEMO 218        WF           # OBSOLETE (NO REPLACEMENT)                                    233
            D4T2    233  TRACER_SUBR.MEMO_218.WF.003        1 LINE    147   10 PAGE UM   HARDING             JAN. 24, 1977  20:18:34
00528/001   ALGOLW                   INSTALLATION    WF             S0467 ALGOLW 'ALGOL W' FSNAME=ALW.INSTALL                       
            D4T2    234  ALGOLW.INSTALLATION.WF.001         1 LINE    117    3 PAGE UNE  HUNTER    BODWIN    MAR. 09, 1977  22:18:03
0          INSTRUCTIONS ON HOW TO ASSEMBLE ALL THE FOLLOWING JUNK INTO THE TWO ALGOLW 
           COMPILERS.
0          Referenced by comments of: 483/4 
00528/002   ALGOLW                   X MAIN          SA  G  XM      S0467 ALGOLW 'ALGOL W' FSNAME=ALW.XMAIN.S                       
            D4T2    235  ALGOLW.X_MAIN.SA.002               1 LINE     80   22 PAGE UNE  HUNTER    BODWIN    JAN. 17, 1977  15:51:33
0          SOURCE FOR COMPILE- AND RUN-TIME SYSTEM INTERFACE FOR *XALGOLW.
1                                                                                               THU SEP 12/96   23:39:34   Page  209
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00528/003   ALGOLW                   X LOADER        S3  G          S0689 UQVD06 FSNAME=ALGOLW.LOADCARD.S3.10(1)                 120
            D4T2    236  ALGOLW.X_LOADER.S3.003             1 LINE     80    6 PAGE UNE  HUNTER    BODWIN    MAY  05, 1975  18:31.27
0          PL360 BASE SOURCE FOR XALGOLW PSEUDO-LOADER.
00528/004   ALGOLW                   X LOADER        UU  G          S0467 ALGOLW 'ALGOL W' FSNAME=ALW.XLOAD.U                       
            D4T2    237  ALGOLW.X_LOADER.UU.004             1 LINE     72    4 PAGE UNE  HUNTER    BODWIN    JAN. 17, 1977  15:44:14
0          UPDATE DECK TO BE APPLIED TO 528/3 TO YIELD SOURCE FOR XALGOLW PSEUDO-LOADER.
00528/005   ALGOLW                   DEFAULT         SA  G        # (SEE COMP 483/4)                                                
                                                                                    UNE  HUNTER    BODWIN                           
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER.
00528/006   ALGOLW                   *XALGOLW        OE  G          *XALGOLW                                                        
            D4T2    238  ALGOLW.*XALGOLW.OE.006             1 SEQ    3402    2 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:13:51
                         *XALGOLW             
0          XALGOLW COMPILER OBJECT COMPRISED OF 528/2, 528/3 UPDATED BY 528/4, AND 528/5.  THE REST OF
           THE XALGOLW OBJECT IS IN *ALGOLWXLIB (528/10) AND IN SHARED VM (SEE 528/16).
00528/007   ALGOLW                   LIBRARY         S3  G          S0879 UNE11                                                  3  
            D4T2    239  ALGOLW.LIBRARY.S3.007              1 SEQ      80   74 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:14:43
0          BASE SOURCE FOR ALGOLW RUN-TIME LIBRARIES.  UPDATE DECK 528/8 APPLIES
           TO THIS SOURCE.
00528/008   ALGOLW                   LIBRARY         UU  O          S0467 ALGOLW 'ALGOL W' FSNAME=ALW.XLIB.U                        
            D4T2    240  ALGOLW.LIBRARY.UU.008              1 LINE     69    2 PAGE UNE  HUNTER    BODWIN    MAY  26, 1976  16:53:22
0          APPLICATION OF THIS UPDATE DECK TO 528/7 YIELDS THE CURRENT *XALGOLW AND *ALGOLW
           RUN-TIME LIBRARY SOURCE.
00528/009   ALGOLW                   XLIB LOAD VECT  SA  G          S0467 ALGOLW 'ALGOL W' FSNAME=ALW.XLVCT.S                       
            D4T2    241  ALGOLW.XLIB_LOAD_VECT.SA.009       1 LINE     57    1 PAGE UNE  HUNTER    BODWIN    MAY  26, 1976  16:51:21
0          SOURCE FOR LOAD VECTOR OF XALGOLW TO ENABLE ITS LOADER TO RESOLVE EXTERNAL SYMBOLS.
00528/010   ALGOLW                   XLIBRARY        OE  G          *ALGOLWXLIB                                                     
            D4T2    242  ALGOLW.XLIBRARY.OE.010             1 SEQ   19420    8 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:14:59
                         *ALGOLWXLIB          
0          EMBODIES SOURCE OF 528/7, 528/8, AND 528/9.  DYNAMICALLY LOADED BY *XALGOLW COMPILER
           FOR EXECUTION OF COMPILED PROGRAM.
0          Referenced by comments of: 528/6 
00528/011   ALGOLW                   MAIN            SA  G  ALWM    S0467 ALGOLW 'ALGOL W' FSNAME=ALW.MAIN.S                        
            D4T2    243  ALGOLW.MAIN.SA.011                 1 LINE     80   13 PAGE UNE  HUNTER    BODWIN    MAY  26, 1976  16:55:02
0          SOURCE FOR *ALGOLW COMPILER SYSTEM INTERFACE AND MAIN PROGRAM.
1                                                                                               THU SEP 12/96   23:39:34   Page  210
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00528/012   ALGOLW                   *ALGOLW         OE  G          *ALGOLW                                                         
            D4T2    244  ALGOLW.*ALGOLW.OE.012              1 SEQ    3044    1 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:15:04
                         *ALGOLW              
0          ALGOLW COMPILER OBJECT COMPRISED OF 528/11 AND 528/5.  THE REST OF
           THE ALGOLW OBJECT IS IN SHARED VM (SEE 528/16).
00528/013   ALGOLW                   PHASE A         S3  G  AWA     S0467 ALGOLW 'ALGOL W' FSNAME=ALW.PA.S                          
            D4T2    245  ALGOLW.PHASE_A.S3.013              1 LINE     80  159 PAGE UNE  HUNTER    BODWIN    MAY  26, 1976  16:57:00
0          COMPLETE SOURCE FOR AL STAVELY'S REWRITE OF PHASE A OF ALGOLW.
00528/014   ALGOLW                   PHASE B         S3  G          S0879 UNE11                                                  2  
            D4T2    246  ALGOLW.PHASE_B.S3.014              1 SEQ      80  104 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:15:24
0          PHASE B BASE SOURCE.  528/15 UPDATE DECK APPLIES TO THIS SOURCE.
00528/015   ALGOLW                   PHASE B         UU  O          S0467 ALGOLW 'ALGOL W' FSNAME=ALW.PB.U                          
            D4T2    247  ALGOLW.PHASE_B.UU.015              1 LINE     72    1 PAGE UNE  HUNTER    BODWIN    MAR. 09, 1977  22:16:55
0          UPDATE DECK TO BE APPLIED TO 528/14 TO YIELD CURRENT PHASE B SOURCE.
00528/016   ALGOLW                   SHARED OBJECT   OC  O          SEG2:ALGW                                                       
            D4T2    248  ALGOLW.SHARED_OBJECT.OC.016        1 LINE     80   69 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:15:38
                         SEG2:ALGW            
0          OBJECT LOADED INTO SHARED VM AT IPL BY PISTLE.  THIS OBJECT EMBODIES 528/13,
           528/14, AND 528/15.
00528/017   ALGOLW                   LIBRARY         SA  G  ALWL    S0467 ALGOLW 'ALGOL W' FSNAME=ALW.RUN.S                         
            D4T2    249  ALGOLW.LIBRARY.SA.017              1 LINE     80   13 PAGE UNE  HUNTER    BODWIN    MAY  26, 1976  16:59:54
0          SOURCE FOR ENTRY POINT OF ALL *ALGOLW-COMPILED PROGRAMS, RESIDENT IN RUNTIME
           LIBRARY.  THE MODULE IS ALSO THE OPERATING SYSTEM INTERFACE FOR EXECUTING
           *ALGOLW-COMPILED PROGRAMS.
00528/018   ALGOLW                   LIBRARY         OE  O          *ALGOLWLIB                                                      
            D4T2    250  ALGOLW.LIBRARY.OE.018              1 SEQ   19420    8 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:16:06
                         *ALGOLWLIB           
0          EMBODIES SOURCE OF 528/5, 528/7, 528/8, AND 528/17.  ALL *ALGOLW-COMPILED PROGRAMS CONTAIN
           A "$CONTINUE WITH *ALGOLWLIB RETURN" RECORD TO PICK UP THE RUNTIME SUPPORT ROUTINES.
00528/019   ALGOLW                   X TEST PGMS     S              W040:ALW.XPROGS                                                 
            D4T2    251  ALGOLW.X_TEST_PGMS.S.019           1 LINE    117   16 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:16:08
0          *XALGOLW TEST PROGRAM SERIES.
00528/020   ALGOLW                   TEST PGMS       C              W040:ALW.PROGS                                                  
            D4T2    252  ALGOLW.TEST_PGMS.C.020             1 LINE     72   17 PAGE UNE  HUNTER    BODWIN    JULY 28, 1977  02:16:12
0          *ALGOLW TEST PROGRAM SERIES.
1                                                                                               THU SEP 12/96   23:39:34   Page  211
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00528/021   ALGOLW                   MEMO 372        WF           # OBSOLETE (SEE COMP. 741)                                        
            D4.1T1  281  ALGOLW.MEMO_372.WF.021             1 LINE    165   57 PAGE UM   BODWIN              MAY  13, 1978  17:35:54
00528/022   ALGOLW                   UNSP I/O        SA  O  ALIO    S0684 UNSP FSNAME=ALGOLIO.S                                     
            D4.2T1  350  ALGOLW.UNSP_I/O.SA.022             1 LINE     80    5 PAGE UM   UNSP                FEB. 23, 1979  04:51:31
0          THREE ROUTINES THAT ALLOW ACCESS TO THE MTS I/O SUBROUTINES.  OBJECT IS
           IN UNSP:LIBRARY (685/4).
00529/001B  FILESTATUS COMMAND                       SA             DWB:FSTATCMD4P(1)                                               
            RD16T1   87  FILESTATUS_COMMAND..SA.001         1 LINE     80   85 PAGE UM   DWB                 JULY 12, 1979  22:52:12
                         DWB.:FSTATCMD4P      
0          SOURCE FOR FILESTATUS COMMAND WHICH IS NORMALLY LOADED BY PISTLE AT IPL AND EXECUTED
           WHENEVER A $FILESTATUS COMMAND IS ISSUED.  (THIS COMMAND PRINTS INFO ABOUT FILES.)
           THE FILESTATUS COMMAND, LIKE THE PERMIT COMMAND, WAS IMPLEMENTED AS A COMMAND LANGUAGE
           SUBSYSTEM (CLS) EVEN THOUGH IT REALLY ISN'T A CLS (SEE THE COMMENTS FOR COMP 509/1).
            
           COPIES *GFINFODSECT (593) AND *GDINFODSECT (594).
           REQUIRES SHARED VM SUBROUTINES JULGRGDT (522) AND GRGJULDT (518).
            
           *****************************************************************************
           RD16 CHANGES:
            
           CHANGED TO USE TYPE 20 RHS SUBSTRINGS INSTEAD OF TYPE 6, SO AS TO MATCH
           DOCUMENTATION AND EXPECTED BEHAVIOR.
           *****************************************************************************
00529/002B  FILESTATUS COMMAND                       OC             *CLSFILESTATUS                                                  
            RD16T1   88  FILESTATUS_COMMAND..OC.002         1 LINE     80   17 PAGE UM   DWB                 JULY 12, 1979  22:52:36
                         *CLSFILESTATUS       
00530/001  *AMENDS                                   SA             S0564 D4T2 VLO FSNAME=AMENDS..SA.001(1)                      256
            D4T2    256  AMENDS..SA.001                     1 LINE     80    6 PAGE UM   DWB                 JULY 28, 1977  02:17:36
                         DWB.:UNEPA.S         
0          CHANGED TO PROMPT FOR OLD AND NEW COPIES IF UNITS 0 AND/OR 1 ARE NOT ASSIGNED.
00530/002  *AMENDS                                   OC             *AMENDS                                                         
            D4T2    257  AMENDS..OC.002                     1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:17:38
                         *AMENDS              
00531/001   COMMAND STATISTICS       CMDSTAT D4.1    SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=CMDSTAT                     
            D4.1T1  284  COMMAND_STATISTICS.CMDSTA.SA.001   1 LINE     80   13 PAGE UM   MTS       HELFFRICH MAY  13, 1978  17:36:26
0          GENERAL SYSTEM LOGGING FACILITY TO LOG ALL MTS COMMANDS, THE HASP LOG, THE
           OPERATOR'S CONSOLE LOG, UNIT AND MACHINE CHECK RECORDS, ETC.  COPIES
           COPY:CMDAREADSECT (531/18), CMDSTAT.D (531/19), COPY:LLMPSEQU (087), AND
           COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
            
           CURRENTLY THE FOLLOWING RECORD TYPES ARE ASSIGNED:
              TYPE 1 = MTS COMMANDS
                   2 = OVERFLOW
                   3 = RELOAD
1                                                                                               THU SEP 12/96   23:39:34   Page  212
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                  4 = UNIT-CHECK DATA
                   5 = END-OF-USER (HAS BEEN SIGNED-OFF)
                   6 = 3270 DSR STATISTICS
                   7 = HASP LOG
                   8 = SSRTN JOBSTA DATA
                   9 = TSFO DSR STATISTICS
                  10 = MACHINE-CHECK RECORDS
                  11 = OPERATOR CONSOLE LOG 
                  12 = EDITOR STATISTICS
                  13 = LOADER STATISTICS
                  14 = PLOTTER USER STATISTICS
                  15 = SPIRES STATISTICS
                  16 = MOUNT STATISTICS
                  17 = MERIT STATISTICS
                  18 = PLOTTER LOAD STATISTICS
                  19 = SSRTN SUMMARY DATA
                  20 = DISK MANAGER STATISTICS (TRAK TO START)
            
           RECORDS ARE LOGGED BY CALLING THE S-TYPE ENTRY TO CMDSTAT AS FOLLOWS:
                  CALL CMDSTATS,(LOC,LEN,TYPE)
           WHERE LOC IS THE LOCATION OF THE RECORD
                 LEN IS THE HALFWORD LENGTH OF THE RECORD
                 TYPE IS THE FULLWORD RECORD TYPE
           AND   RC=0 IS NORMAL
                 RC=4 MEAN ALL DROP AREAS ARE FULL; THE RECORD HAS NOT BEEN LOGGED.
0          Referenced by comments of: 413/1, 447/1, 752/1 
00531/002B  COMMAND STATISTICS       CMDSTAT UPDATE  UC  G          MTS:CMDSTATUPD                                                  
            RD16T1   89  COMMAND_STATISTICS.CMDSTA.UC.002   1 LINE     72    3 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:38
                         MTS.:CMDSTATUPD      
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.1 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=CMDSTAT. 
            
           REQUIRES THE RD16 VERSION OF CMDPIKUP (531/6).
00531/003B  COMMAND STATISTICS       CMDSTAT OBJECT  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00531/004B  COMMAND STATISTICS       CMDSTAT LIST    L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=CMDSTAT.LIST          16  
            RD16T1   90  COMMAND_STATISTICS.CMDSTA.L.004    1 SEQ     133   39 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:40
00531/005B  COMMAND STATISTICS       *CMD            C   G          *CMD                                                            
            RD16T1   91  COMMAND_STATISTICS.*CMD.C.005      1 LINE     77    1 PAGE UM   DWB                 JULY 12, 1979  22:52:41
                         *CMD                 
0          THIS COMMAND FILE IS INVOKED BY INIT:INTCMD (097/2) WHENEVER THE SYSTEM IS IPLED.  AFTER SIGNON,
           *CMD RUNS CMDPIKUP (531/6).  AN ERROR FILE (CMDERRORS) MUST EXIST UNDER THE USER ID USED FOR *CMD.
           THE LOGGED RECORDS FILL UP A 384 PAGE FILE ABOUT 3 TIMES PER DAY UNDER BUSY CONDITIONS.
           TWO SUCH FILES ARE USED ALTERNATELY.  THE TAPES ONTO WHICH THEY ARE DUMPED FILL UP IN ABOUT 2 WEEKS.
0          Referenced by comments of: 97/2 
1                                                                                               THU SEP 12/96   23:39:34   Page  213
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00531/006B  COMMAND STATISTICS       CMDPIKUP        SA  G  CMDP    SYS:CMDPIKUP(1000)                                              
            RD16T1   92  COMMAND_STATISTICS.CMDPIK.SA.006   1 LINE     80   21 PAGE UM   DWB                 JULY 12, 1979  22:52:42
                         SYS:CMDPIKUP         
0          PROGRAM TO PICKUP LOG RECORDS (FROM CMDSTAT) AND SAVE THEM IN FILES; FILENAMES ARE
           SPECIFIED BY THE CMDDIR FILE (531/9).  WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC
           STRTJB TO START "MTS *DWB" (531/12) WHICH DUMPS THE FILLED FILE ONTO TAPE ACCORDING
           TO DIRECTORY INFORMATION IN CMDDIR.  IN ADDITION, MACHINE AND CHANNEL CHECK RECORDS
           (TYPE 10) ARE ALSO WRITTEN ON UNIT 10 WHICH IS ASSIGNED TO THE FILE INIT:MCFILE.
           DISK UNIT CHECK RECORDS (TYPE 4) ARE ALSO WRITTEN ON UNIT 4 WHICH IS ASSIGNED TO
           THE FILE INIT:UC3330LOG(*L+1).  CMDPIKUP REQUIRES AN EMPTY FILE NAMED CMDSTATLOCK
           WHICH IS USED TO MAKE SURE THAT ONLY ONE COPY OF THIS PROGRAM IS RUNNING AT A TIME.
           WHEN CMDPIKUP IS STARTED, IT FIRST SCANS THE DIRECTORY FILE LOOKING FOR BUSY ENTRIES.
           IF IT FINDS ANY, IT CHANGES FILE BUSY TO FILE FULL AND TAPE BUSY TO TAPE ACTIVE (SEE
           531/35), AND THEN SETS THINGS UP SO A FILE-TO-TAPE TASK (531/12) WILL BE STARTED UP
           ABOUT 4 MINUTES AFTER CMDPIKUP STARTED (THIS DELAY IS TO ALLOW PISTLE TO FINISH
           LOADING MOUNT IF THE SYSTEM HAS JUST BEEN IPLED).  NOTE:  THE FILE "CMDDIR" (531/9)
           IS REFERENCED DIRECTLY BY THIS PROGRAM.  CMDPIKUP COPIES COPY:CMDAREADSECT (531/18),
           COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), CMDSTAT.D (531/18), *GFINFODSECT (593),
           AND *GDINFODSECT (594).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND MTA:MCHMAC (577/6).
0          Referenced by comments of: 531/2, 531/5, 531/8, 531/35, 603/1 
00531/007B  COMMAND STATISTICS       CMDPIKUP        OC  G          SYS:CMDPIKUP(1,999)                                             
            RD16T1   93  COMMAND_STATISTICS.CMDPIK.OC.007   1 LINE     80    6 PAGE UM   DWB                 JULY 12, 1979  22:52:47
00531/008   COMMAND STATISTICS       CMDSTATLOCK     D            # MTS:TST.EMPTY                                                   
                                                                                    UM   DWB                                        
                         SYS:CMDSTATLOCK      
0          FILE USED BY CMDPIKUP (531/6) TO MAKE SURE ONLY ONE COPY AT A TIME IS RUNNING.
00531/009   COMMAND STATISTICS       SYS:CMDDIR      D              MTS:TST.CMDDIR                                                  
            D4.1T1  285  COMMAND_STATISTICS.SYS:CM.D.007    1 LINE     70    1 PAGE UM   DWB                 MAY  13, 1978  17:36:30
                         SYS.:CMDDIR          
0          THIS FILE SPECIFIES THE NAMES OF THE DATA FILES USED FOR DUMPING THE LOGGED RECORDS.
           IT ALSO SPECIFIES THE TAPE PARAMETERS USED FOR DUMPING EACH FILE TO TAPE WHEN FULL.
           *** WARNING ***  WHEN EDITTING THIS FILE WITH THE EDITOR, NEVER USE VISUAL MODE
                            OR THE REPLACE COMMAND SINCE THE LINES CONTAINING TAPE INFORMATION
                            HAVE HEX FIELDS WHICH WILL BE CLOBBERED.
0          Referenced by comments of: 531/6, 531/13 
00531/010   COMMAND STATISTICS       SYS:CMDSTAT1    D            # MTS:TST.CMDSTATX                                                
                                                                                    UM   DWB                                        
                         SYS:CMDSTAT1         
00531/011   COMMAND STATISTICS       SYS:CMDSTAT2    D            # MTS:TST.CMDSTATX                                                
                                                                                    UM   DWB                                        
                         SYS:CMDSTAT2         
1                                                                                               THU SEP 12/96   23:39:34   Page  214
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00531/012   COMMAND STATISTICS       *DWB            C   G          MTS:TST.DWB                                                     
            D4.2T1  353  COMMAND_STATISTICS.*DWB.C.012      1 LINE    161    1 PAGE UM   DWB                 APR. 01, 1979  22:38:12
                         *DWB                 
0          COMMAND FILE INVOKED BY CMDPIKUP TO RUN THE CMDTAPE PROGRAM (531/13) WHICH DUMPS A FULL LOG
           FILE TO TAPE AND UPDATES THE CMDFDIR DIRECTORY TO ADD A LINE OF INFORMATION FOR EACH FILE WRITTEN.
           THE CMDTAPE PROGRAM ALSO WRITES ALL MOUNT STATISTICS RECORDS (TYPE 16) ON UNIT 16 WHICH IS
           ASSIGNED TO THE FILE SYS:MOUNTSTAT(*L+1) AND MERIT NETWORK USAGE STATISTICS RECORDS (TYPE 17)
           ON UNIT 17 WHICH IS ASSIGNED TO THE FILE MNET:STAT(*L+1).  THE FILE CMDERRORS IS REQUIRED FOR
           LOGGING.  IT WOULD SEEM THAT DON COULD OF THOUGHT OF SOME NAME MORE ORIGINAL THAN HIS INITIALS.
           DON'S RESPONSE:  "SINCE NO ONE WOULD NAME AN SVC AFTER ME, I WAS FORCED ... "
0          Referenced by comments of: 413/1, 531/6 
00531/013   COMMAND STATISTICS       CMDTAPE         SA  G          DWB:CMDTAPE.370(1,999)                                          
            D4.2T1  354  COMMAND_STATISTICS.CMDTAP.SA.013   1 LINE     72    8 PAGE UM   DWB                 APR. 01, 1979  22:38:13
                         DWB.:CMDTAPE.370     
0          PROGRAM TO COPY CMDSTAT LOG FILES TO TAPE.  RUN BY *DWB.
           NOTE:  THE FILES CMDDIR (531/9) AND CMDFDIR (531/15) ARE REFERENCED DIRECTLY BY THIS PROGRAM.
           COPIES COPY:CMDAREADSECT (531/18), *GDINFODSECT (594), COPY:LLMPSEQU (087), AND
           COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 531/12, 531/15, 531/16, 531/31 
00531/014   COMMAND STATISTICS       CMDTAPE         OC  G          SYS:CMDTAPE.O                                                   
            D4.2T1  355  COMMAND_STATISTICS.CMDTAP.OC.014   1 LINE    820    6 PAGE UM   DWB                 APR. 01, 1979  22:38:16
                         SYS.:CMDTAPE.O       
0          OBJECT OF 531/13 AND 722/1.
00531/015   COMMAND STATISTICS       SYS:CMDFDIR     D            # MTS:TST.CMDFDIR                                                 
            D4T2    266  COMMAND_STATISTICS.SYS:CM.D.010    1 LINE      ?    1 PAGE UM   DWB                 JULY 28, 1977  02:18:13
                         SYS.:CMDFDIR         
0          DATA FILE, MAINTAINED BY THE CMDTAPE PROGRAM (531/13), WHICH HAS ONE LINE FOR EACH FILE
           ON A COMMAND STATISTICS TAPE.  IT HAS THE EARLIEST AND LATEST TIMES FOR THAT FILE, THE FILE
           NUMBER, AND THE MOUNT INFORMATION.  IT IS ORDERED BY THE EARLIEST TIME.  SOME PROGRAMS USE
           THIS FILE TO DETERMINE WHAT TAPE TO USE, GIVEN A TIME RANGE.
0          Referenced by comments of: 531/13 
00531/016   COMMAND STATISTICS       CMDERRORS       D            # MTS:TST.EMPSEQF                                                 
                                                                                    UM   DWB                                        
                         SYS:CMDERRORS        
0          LOG FILE FOR CMDTAPE (531/13).
00531/017   COMMAND STATISTICS       CMDAREAPRINT    SA           # (SUPERCEDED BY 531/25)                                          
            D3T4    179  COMMAND_STATISTICS.PRINT_P.SA.10   1 LINE     80    5 PAGE UM                       AUG. 01, 1973  22:44.44
0          Referenced by comments of: 531/33 
1                                                                                               THU SEP 12/96   23:39:34   Page  215
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00531/018B  COMMAND STATISTICS       CMDAREADSECT    SA  G  CMDA    COPY:CMDAREADSECT                                               
            RD16T1   94  COMMAND_STATISTICS.CMDARE.SA.018   1 LINE     80    3 PAGE UM   DWB                 JULY 12, 1979  22:52:49
                         COPY:CMDAREADSECT    
0          COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD.
0          Referenced by comments of: 12/1, 45/1, 46/1, 531/1, 531/6, 531/13, 531/31, 531/33, 540/9, 577/2, 603/1, 621/2,
                 621/4, 621/8, 621/10, 655/2, 707/1, 707/2, 718/1, 753/1, 753/3 
00531/019   COMMAND STATISTICS       CMDSTATDATA     SA  G  CMDD    DWB:CMDSTAT.D                                                   
            D4T2    268  COMMAND_STATISTICS.CMDSTA.SA.013   1 LINE     80    1 PAGE UM   DWB                 JULY 28, 1977  02:20:51
                         DWB.:CMDSTAT.D       
0          COPY SECTION FOR CMDSTAT DATA.
0          Referenced by comments of: 531/1 
00531/020   COMMAND STATISTICS       CHECKTIME       SA  G  CHKT    DWB:CMDCHECKTIME(1,999)                                         
            D4T2    269  COMMAND_STATISTICS.CHECKT.SA.014   1 LINE     80    5 PAGE UM   DWB                 JULY 28, 1977  02:20:53
                         DWB.:CMDCHECKTIME    
0          PROGRAM TO CHECK COMMAND STATISTICS OUTPUT TIMES TO SEE IF SOMETHING IS MISSING OR WHATEVER.  IT PRINTS THE TIME/DATE OF
           THE FIRST AND LAST RECORDS AND OTHER RECORDS IF THE DIFFERENCE FROM THE PREVIOUS RECORD IS AT LEAST 1 SECOND AND IS
           GREATER THAN 128 TIMES THE AVERAGE OF THE LAST 8 DIFFERENCES, OR IF THE DIFFERENCE IS GREATER THAN 10 MINUTES.
           IF THE DIFFERENCE IS NEGATIVE, IT DOES THE SAME THING EXCEPT THAT IT USES 16 TIMES THE AVERAGE OF THE LAST 8.
            
           IF PAR=M IS GIVEN, IT GOES THROUGH MULTIPLE FILES.
           IF PAR=S IS GIVEN, IT PRINTS EVERY 128TH RECORD INSTEAD OF MAKING THE ABOVE CHECKS.
00531/021   COMMAND STATISTICS       CHECKTIME       OC  G          DWB:CMDCHECKTIME(1000)                                          
            D4T2    270  COMMAND_STATISTICS.CHECKT.OC.015   1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:20:56
00531/022   COMMAND STATISTICS       CMDXTRACT       SF             DWB:CMDXTRACT(1,999)                                            
            D4.2T1  357  COMMAND_STATISTICS.CMDXTR.SF.022   1 LINE     71    1 PAGE UM   DWB                 APR. 01, 1979  22:38:18
                         DWB.:CMDXTRACT       
0          PROGRAM TO EXTRACT COMMAND LINES FOR A GIVEN USERID AND TIME RANGE.
           TAKES STATISTICS INPUT ON SCARDS, PRINTS LINES (WITH TIME,DATE,ID
           PROJ NO,AND TASK NUMBER) ON 6. 5 (INPUT) AND SPRINT (OUTPUT)
           SHOULD BE ATTACHED TO TERMINAL. IT WILL ASK QUESTIONS FOR ITS
           PARAMETERS.
00531/023   COMMAND STATISTICS       CMDXTRACT       OC             DWB:CMDXTRACT(1000)                                             
            D4.2T1  358  COMMAND_STATISTICS.CMDXTR.OC.023   1 LINE    914    2 PAGE UM   DWB                 APR. 01, 1979  22:38:19
00531/024   COMMAND STATISTICS       CMDXTRACT3      SF             DWB:CMDXTRACT3(1,999)                                           
            D4.2T1  359  COMMAND_STATISTICS.CMDXTR.SF.024   1 LINE     65    1 PAGE UM   DWB                 APR. 01, 1979  22:38:19
                         DWB.:CMDXTRACT3      
0          PROGRAM TO EXTRACT HASP LOG ITEMS AND OTHER THINGS.  ASKS FOR A RECORD TYPE AND A "THING"
           (E.G. AN S8 NUMBER) TO SEARCH FOR.  RUN IT LIKE 531/22.
1                                                                                               THU SEP 12/96   23:39:34   Page  216
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00531/025   COMMAND STATISTICS       CMDXTRACT3      OC             DWB:CMDXTRACT3(1000)                                            
            D4.2T1  360  COMMAND_STATISTICS.CMDXTR.OC.025   1 LINE    778    2 PAGE UM   DWB                 APR. 01, 1979  22:38:20
00531/026   COMMAND STATISTICS       CMDXTRACT4      SF             DWB:CMDXTRACT4(1,999)                                           
            D4.2T1  361  COMMAND_STATISTICS.CMDXTR.SF.026   1 LINE     71    2 PAGE UM   DWB                 APR. 01, 1979  22:38:21
                         DWB.:CMDXTRACT4      
0          EXTRACTS TYPES 1 THROUGH 4 FOR A GIVEN TIME INTERVAL AND OPTIONALLY FOR A
           GIVEN USERID.  RUN LIKE 531/22.
00531/027   COMMAND STATISTICS       CMDXTRACT4      OC             DWB:CMDXTRACT4(1000)                                            
            D4.2T1  362  COMMAND_STATISTICS.CMDXTR.OC.027   1 LINE    954    2 PAGE UM   DWB                 APR. 01, 1979  22:38:21
00531/028   COMMAND STATISTICS       PROCESSING      SF             DWB:CMDPROC.S                                                   
            D4.2T1  363  COMMAND_STATISTICS.PROCES.SF.028   1 LINE     75    9 PAGE UM   DWB                 APR. 01, 1979  22:38:22
                         DWB.:CMDPROC.S       
0          PROGRAM TO READ AND GENERATE VARIOUS STATISTICS ON COMMAND DATA
           (USAGE OF VARIOUS COMMANDS FOR VARIOUS CATEGORIES OF USERS,
           AVERAGE LENGTH OF COMMANDS AND COMMAND NAMES,USAGE OF
           ABBREVIATIONS,...)
                SCARDS-DATA IN
                6     -PRINT OUT
                5     -PROMPT INPUT
                SPRINT-PROMPT OUTPUT
                (ASKS FOR NUMBER OF FILES TO PROCESS) 
00531/029   COMMAND STATISTICS       PROCESSING      OC             DWB:CMDPROC.O                                                   
            D4.2T1  364  COMMAND_STATISTICS.PROCES.OC.029   1 LINE  20186   11 PAGE UM   DWB                 APR. 01, 1979  22:38:23
                         DWB.:CMDPROC.O       
00531/030   COMMAND STATISTICS       SCANCMD         SA           # (OBSOLETE)                                                      
            D3.2T1  435  COMMAND_STATISTICS.SCANCMD.SA.22   1 LINE     80    7 PAGE UM                       MAR. 21, 1975  01:49:37
00531/031   COMMAND STATISTICS       SELECTCMD       SA  G          MTS:SELECTCMD(1,999)                                            
            D4T2    277  COMMAND_STATISTICS.SELECT.SA.023   1 LINE     80    6 PAGE UM   MTA                 JULY 28, 1977  02:21:14
                         MTS.:SELECTCMD       
0          PROGRAM TO RETRIEVE DATA FROM CMDSTAT TAPES USING DIRECTORY BUILT BY CMDTAPE (531/13).
           CALLS READBFR ROUTINE (709).  COPIES COPY:CMDAREADSECT (531/18).
0          Referenced by comments of: 709/1 
00531/032   COMMAND STATISTICS       SELECTCMD       OC  G          MTS:SELECTCMD(1000)                                             
            D4T2    278  COMMAND_STATISTICS.SELECT.OC.024   1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:21:16
00531/033   COMMAND STATISTICS       CMDUTIL         SA  G  CMDU    DWB:CMDUTIL(1,999)                                              
            D4T2    279  COMMAND_STATISTICS.CMDUTI.SA.025   1 LINE     80    9 PAGE UM   DWB                 JULY 28, 1977  02:21:19
                         DWB.:CMDUTIL         
0          PROGRAM TO PRINT OR COPY (OR BOTH) COMMAND STATISTICS RECORDS BASED ON RECORD
           TYPES.  THIS PROGRAM REPLACES AND EXTENDS CMDAREAPRINT (531/17).  IF NO PARAMETER
           IS GIVEN, IT WILL PROMPT FOR PRINT|COPY|BOTH AND FOR THE RECORD TYPES.  CURRENTLY,
           RECORDS WHICH ARE NOT COMMAND STATISTICS (I.E. NOT TYPES 1, 2, 3, OR 5) ARE JUST
1                                                                                               THU SEP 12/96   23:39:34   Page  217
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          PRINTED AS BCD.  THIS IS FINE FOR THE HASP AND CONSOLE LOGS, BUT NOT FOR OTHERS.
           ROUTINES TO FORMAT OTHER RECORD TYPES FOR PRINTING CAN BE INCLUDED WHEN WRITTEN.
           IF PAR=COUNT IS GIVEN, THEN IT WILL NEITHER COPY NOR PRINT, BUT INSTEAD SIMPLY
           REPORT THE NUMBER OF RECORDS OF EACH TYPE FOUND.  IT READS CMDSTAT DATA FROM
           SCARDS AND PRINTS OUTPUT ON SPRINT.  IF THE COPY FUNCTION IS SPECIFIED, THEN
           RECORD TYPE N IS WRITTEN ON MTS I/O UNIT N.  COPIES COPY:CMDAREADSECT (531/18).
00531/034   COMMAND STATISTICS       CMDUTIL         OC  G          DWB:CMDUTIL(1000)                                               
            D4T2    280  COMMAND_STATISTICS.CMDUTI.OC.026   1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  02:21:22
00531/035   COMMAND STATISTICS       CARE & FEEDING  WF             DWB:CMDSTAT.CF                                                  
            D4T2    281  COMMAND_STATISTICS.CARE_&.WF.027   1 LINE    112    3 PAGE UM   DWB                 JULY 28, 1977  02:21:24
                         DWB.:CMDSTAT.CF      
0          WRITEUP DESCRIBING NORMAL BEHAVIOR OF COMMAND STATISTICS PICKUP AND WHAT TO
           DO WHEN ABNORMALITIES OCCUR.  THE CMDPIKUP PROGRAM (531/6) HAS BEEN CHANGED
           TO ATTEMPT TO REPAIR ANY PROBLEMS (BUSY ENTRIES) FOUND WHEN IT FIRST STARTS
           UP.  THUS SIMPLE CAUSES OF CONSTIPATION SUCH AS DESCRIBED IN THE THIS WRITEUP
           SHOULD NO LONGER OCCUR.  HOWEVER, MORE COMPLEX CASES, SUCH AS A FILE BEING
           LEFT UNREADABLE DUE TO A DISK ERROR, WILL STILL REQUIRE THE CORRECTIVE ACTIONS
           DESCRIBED HEREIN.
00532/001  *PLOTSEE                                  SA  G          S0933 IGDIST FSNAME=PLOTSEE.S                                   
            D4.2T1  365  PLOTSEE..SA.001                    1 LINE     71   11 PAGE UM   GOODRICH            JAN. 04, 1979  18:39:22
0          PLOT PREVIEWING PROGRAM.  USER OF ANY IG-SUPPORTED DISPLAY CAN VIEW PDS PLOT
           FILES PRODUCED VIA *PLOTSYS.  HAS "WINDOWING" FACILITY.  USES PLOT SYSTEM
           ROUTINE PSYM (615/6) ASSEMBLED WITH THE &WHAT SETC SYMBOL SET TO 'IG'.
00532/002  *PLOTSEE                                  OE  G          *PLOTSEE                                                        
            D4.2T1  366  PLOTSEE..OE.002                    1 LINE   4904    9 PAGE UM   GOODRICH            APR. 01, 1979  22:41:01
                         *PLOTSEE             
0          CONTAINS A "$CONTINUE WITH *IG RETURN" LINE.
00533      *FRISK                                    SA           # (OBSOLETED BY COMP 727)                                         
            D4T2    284  FRISK.MAIN.SA.001                  1 LINE     72   44 PAGE UBC                      JULY 18, 1977  15:53:27
0          Referenced by comments of: 727/1 
00534/001   TMTS                     JOB LIST ENTRY  SA  G          MTS:TMTSJLE(1,999)                                              
            D4T2    287  TMTS.JOB_LIST_ENTRY.SA.001         1 LINE     60    1 PAGE UM   MTA                 JULY 28, 1977  02:28:32
                         MTS.:TMTSJLE         
0          "TEST MTS" JOB LIST ENTRY.  NORMALLY, IT POINTS TO TMTS FAKE JOB-PROGRAM (534/3), WHICH WHEN
           ACTIVATED, SAYS "NO TEST SYSTEM LOADED."  RUNNING THE LOADMTS PROGRAM (534/5) LOADS A TEST
           VERSION OF MTS AND FRIENDS INTO SHARED VM AND PLUGS THE MTS ENTRY POINT INTO THIS JOB LIST ENTRY.
           THIS PROVIDES A WAY OF CHECKING OUT NEW VERSIONS OF MTS WITHOUT USING THE VIRTUAL MACHINE.
0          Referenced by comments of: 534/3 
1                                                                                               THU SEP 12/96   23:39:34   Page  218
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00534/002   TMTS                     JOB LIST ENTRY  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00534/003   TMTS                     FAKE JOB-PGM    SA  G          MTS:TMTSFAKE(1,999)                                             
            D4T2    288  TMTS.FAKE_JOB-PGM.SA.003           1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  02:28:35
                         MTS.:TMTSFAKE        
0          DUMMY JOB PROGRAM POINTED TO BY TMTS JOB LIST ENTRY (534/1).
0          Referenced by comments of: 534/1 
00534/004   TMTS                     FAKE JOB-PGM    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00534/005   TMTS                     LOADMTS         SA  G          TMTS:LOADMTS(2000)                                              
            D4.2T1  367  TMTS.LOADMTS.SA.005                1 LINE     71    9 PAGE UM   MTA                 APR. 01, 1979  22:41:01
                         TMTS:LOADMTS         
0          PROGRAM TO LOAD A TEST VERSION OF MTS AND FRIENDS INTO SHARED VM AND PLANT THE ENTRY POINT IN THE TMTS JOB LIST ENTRY.
            
           I/O UNIT USAGE:     GUSER - FOR USER INPUT
                               SERCOM - FOR PROMPTING
                               SPRINT - MAP, MESSAGES, AND EVERYTHING WRITTEN ON SERCOM
            
           TWO PARAMETERS MAY BE GIVEN:  PAR=TEST (THE DEFAULT) MEANS LOAD THE TEST SYSTEM INTO PRIVATE
                                         VM AND DON'T CHANGE THE ENTRY POINT IN THE TMTS JOB LIST,
                                         PAR=NOTEST MEANS LOAD THE TEST SYSTEM INTO SHARED VM AND
                                         CHANGE THE TMTS JOB LIST ENTRY POINT.
            
           THE PROGRAM FINDS THE FIRST UNUSED ADDRESS IN SHARED VM USING ENDSEG2 AND ASKS IF IT
           IS OK TO START LOADING THERE.  REPLY "OK" OR WITH A NEW ADDRESS IN SHARED VM.
            
           THE PROGRAM PROMPTS FOR THE NAME OF A FILE TO LOAD FROM, WHICH SHOULD CONTAIN THOSE
           PARTS OF THE SYSTEM TO BE TESTED, BUT MUST CONTAIN AT LEAST THE FOLLOWING:
            
             MTS, MTS SUBRS (GETSPACE/FREESPAC, GUINFO/CUINFO, PLIMIT, LLXU, TIMER, CMDS, RSF,
             GATE, USUB, FSUB, DSRS, DSRI), COST, CFDUB, SYSDEFS, GETRATES, RATEVEC, RATENBR,
             DYSSUB, CHARGE, STDDMP, MSG, AND ENDSEG2.
            
           GATE SHOULD BE ASSEMBLED WITH &TMTS SET TO 1.  OTHER COMPONENTS MAY ALSO BE INCLUDED,
           BUT NEITHER VOLGET (482/5) NOR TABLRTN (482/25) SHOULD BE INCLUDED.
            
           COPIES *CNFGINFODSECT (654).
0          Referenced by comments of: 534/1 
00534/006   TMTS                     LOADMTS         OC  G          TMTS:LOADMTS(1,1999)                                            
            D4.2T1  368  TMTS.LOADMTS.OC.006                1 LINE   3655    3 PAGE UM   MTA                 APR. 01, 1979  22:41:03
00534/007   TMTS                     TMTSLIB         OL  O          TMTS:TMTSLIB                                                    
            D4.2T1  369  TMTS.TMTSLIB.OL.007                1 LINE  32767   92 PAGE UM   MTA                 APR. 01, 1979  22:41:04
                         TMTS:TMTSLIB         
0          THIS IS A SPECIAL (AND NOT CURRENT) VERSION OF *LIBRARY WHICH INCLUDES ADDITIONAL
1                                                                                               THU SEP 12/96   23:39:34   Page  219
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          SUBROUTINES WHICH NORMALLY ARE IN SHARED VM AND NOT PART OF *LIBRARY.  THE TEST
           SYSTEM SHOULD REFERENCE THIS FILE AND NOT *LIBRARY.  THE FOLLOWING COMMAND WILL
           CAUSE THIS TO BE DONE:
            
              $SET LIBSRCH=TMTS:TMTSLIB *LIBRARY=OFF
00534/008   TMTS                     POSTIPL         C   G          TMTS:POSTIPL                                                    
            D4T2    292  TMTS.POSTIPL.C.008                 1 LINE     86    1 PAGE UM   MTA                 JULY 28, 1977  02:28:48
                         TMTS:POSTIPL         
0          LINES 1 TO 9 OF THIS FILE CONTAIN COMMANDS TO RUN PISTLE TO LOAD SEG2:STDTV (535/3)
           AND SEG2:TIME (360/1) INTO SHARED VM AND DEFINE THEIR SYMBOLS IN THE TMTS LCSYMBOL.
           THIS FILE ALSO CONTAINS THE SOURCE (AT LINE 10) AND OBJECT (AT LINE 1000) FOR A
           SMALL FORTRAN PROGRAM WHICH CALLS THE TIME SUBROUTINE (WITH PROT=OFF) TO CAUSE IT
           TO INITIALIZE ITSELF.  THE PROCEDURE IS TO FIRST LOAD TMTS, START A TMTS TASK,
           SIGNON, AND $SOURCE TO THIS COMMAND FILE.
00534/009   TMTS                     PRINTDUMP       OC  G          TMTS:PRINTDUMP                                                  
            D4T2    293  TMTS.PRINTDUMP.OC.009              1 LINE     42    1 PAGE UM   MTA                 JULY 28, 1977  02:28:50
                         TMTS:PRINTDUMP       
0          CONTAINS THE TWO LINES:
                $CONTINUE WITH MTA:PRINTDUMP(1,999) RETURN
                $CONTINUE WITH TMTS:MTSSSCN
           TO PICK UP THE APPROPRIATE OBJECT DECKS FOR A VERSION OF PRINTDUMP (400)
           WHICH WILL PRINT TMTS JOB DUMPS.
00534/010   TMTS                     MTSSSCN         OC  G          TMTS:MTSSSCN                                                    
            D4.2T1  370  TMTS.MTSSSCN.OC.010                1 LINE     80    3 PAGE UM   MTA                 APR. 01, 1979  22:41:14
                         TMTS:MTSSSCN         
0          OBJECT FOR PRINTDUMP SSCN SUBROUTINE (400/3) USED FOR PRINTING TMTS JOB DUMPS
           (SEE 534/9).
00535/001   CLS INTERFACE            CLS DRIVER PGM  SA  O  DRIV    W044:MTSSOU                                                     
            D4T2    295  CLS_INTERFACE.CLS_DRIVER.SA.001    1 LINE     80   49 PAGE UM   SALISBURY           JULY 28, 1977  02:28:55
0          PROGRAM TO FAKE AN MTS/CLS INTERFACE FOR DEBUGGING A NEW CLS.  SINCE
           IT EXECUTES AS A NORMAL PROGRAM, SDS CAN BE USED IN THE DEBUGGING.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00535/002   CLS INTERFACE            CLS DRIVER PGM  OC  O          W044:MTS                                                        
            D4T2    296  CLS_INTERFACE.CLS_DRIVER.OC.002    1 LINE     80    9 PAGE UM   SALISBURY           JULY 28, 1977  02:28:58
0          Referenced by comments of: 9001/8 
00535/003B  CLS INTERFACE            STDTV           SA  G  STTV    MTS:STDTV                                                       
            RD16T1   95  CLS_INTERFACE.STDTV.SA.003         1 LINE     80    1 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:52
                         MTS.:STDTV           
0          STANDARD CLS TRANSFER VECTOR WHICH CAN BE USED WHEN CALLING A CLS FROM EXECUTION
           MODE.  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 534/8 
1                                                                                               THU SEP 12/96   23:39:34   Page  220
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00535/004B  CLS INTERFACE            STDTV           OC  G          SEG2:STDTV                                                      
            RD16T1   96  CLS_INTERFACE.STDTV.OC.004         1 LINE     80    3 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:53
                         SEG2:STDTV           
0          LOADED INTO SHARED VM BY PISTLE AFTER IPL.
00535/005   CLS INTERFACE            PLAN COPY SECT  SA           # (OBSOLETED BY 344)                                              
            D3.2T1  447  CLS_INTERFACE.PLAN_COPY_SE.SA.01   1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:50:18
00535/006   CLS INTERFACE            T/V DSECT       SA           # (OBSOLETED BY CLSTV MACRO IN 344)                               
            D3.2T1  448  CLS_INTERFACE.T/V_DSECT.SA.02      1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:50:21
00535/007   CLS INTERFACE            T/V STD ADCONS  SA           # (OBSOLETED BY 344)                                              
            D3.2T1  449  CLS_INTERFACE.T/V_STD_ADCO.SA.03   1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:50:23
00535/008   CLS INTERFACE            CLSAREA         SA           # (OBSOLETED BY 344)                                              
            D3.2T2   42  CLSAREA..SA.                       1 LINE     80    2 PAGE UM                       MAR. 21, 1975  02:20:53
00535/009B  CLS INTERFACE            GOM T/V DSECT   SG  G          COPY:CLSTV.SG                                                   
            RD16T1   97  CLS_INTERFACE.GOM_T/V_DSE.SG.009   1 LINE     97    1 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:53
                         COPY:CLSTV.SG        
0          THIS IS THE GOM EQUIVALENT OF 535/6, I.E., THE CLSTV MACRO IN MTS.MACROS
           (344/3).
0          Referenced by comments of: 659/71, 659/74 
00536      *BRAILLE                                               # (OBSOLETE)                                                      
            D3T4    199  BRAILLE..SA.1                      1 LINE     73   21 PAGE UM                       JULY 30, 1973  03:34.19
00538/001  *COBOLU                   EXECUTOR        SA  G  COBU    MTA:COBOLU(1,999)                                               
            D4T2    299  COBOLU.EXECUTOR.SA.001             1 LINE     80    3 PAGE UM   H YOUNG             JULY 28, 1977  02:29:06
                         MTA.:COBOLU          
0          THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM.
           COPIES FAKEOS.GBLS (545/19).  ASSEMBLE USING *SYSMAC.
00538/002  *COBOLU                   EXECUTOR        OE  G          *COBOLU                                                         
            D4T2    300  COBOLU.EXECUTOR.OE.002             1 SEQ     614    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:08
                         *COBOLU              
00538/003  *COBOLU                   BLDLIN          D              MTA:COBOL.BLDLIN                                                
            D4T2    301  COBOLU.BLDLIN.D.003                1 LINE     44    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:10
                         MTA.:COBOL.BLDLIN    
0          SCARDS INPUT TO CREBLDL (545/36) TO BUILD 538/4.
00538/004  *COBOLU                   BLDL            D              ETC:COBOL.BLDL                                                  
            D4T2    302  COBOLU.BLDL.D.004                  1 SEQ     238    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:12
                         ETC.:COBOL.BLDL      
1                                                                                               THU SEP 12/96   23:39:34   Page  221
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00538/005  *COBOLU                   IKFCBL00        OE  O          ETC:IKFCBL00                                                    
            D4T2    303  COBOLU.IKFCBL00.OE.005             1 SEQ    1024    4 PAGE UM   H YOUNG             JULY 28, 1977  02:29:15
                         ETC.:IKFCBL00        
0          COMPONENTS 538/5 THROUGH 538/16 ARE THE UNMODIFIED OS/360 OBJECT FOR THE ANSI COBOL
           COMPILER (RELEASE 21.6, VERSION 2).
00538/006  *COBOLU                   IKFCBL01        OE  O          ETC:IKFCBL01                                                    
            D4T2    304  COBOLU.IKFCBL01.OE.006             1 SEQ    6144    5 PAGE UM   H YOUNG             JULY 28, 1977  02:29:17
                         ETC.:IKFCBL01        
0          OBJECT HAS REP CARD TO CHANGE DEFAULT PAR FIELD.
00538/007  *COBOLU                   IKFCBL1B        OE  O          ETC:IKFCBL1B                                                    
            D4T2    305  COBOLU.IKFCBL1B.OE.007             1 SEQ    1024    7 PAGE UM   H YOUNG             JULY 28, 1977  02:29:19
                         ETC.:IKFCBL1B        
00538/008  *COBOLU                   IKFCBL10        OE  O          ETC:IKFCBL10                                                    
            D4T2    306  COBOLU.IKFCBL10.OE.008             1 SEQ    1024   12 PAGE UM   H YOUNG             JULY 28, 1977  02:29:21
                         ETC.:IKFCBL10        
00538/009  *COBOLU                   IKFCBL20        OE  O          ETC:IKFCBL20                                                    
            D4T2    307  COBOLU.IKFCBL20.OE.009             1 SEQ    1024   13 PAGE UM   H YOUNG             JULY 28, 1977  02:29:23
                         ETC.:IKFCBL20        
00538/010  *COBOLU                   IKFCBL30        OE  O          ETC:IKFCBL30                                                    
            D4T2    308  COBOLU.IKFCBL30.OE.010             1 SEQ    1024    4 PAGE UM   H YOUNG             JULY 28, 1977  02:29:26
                         ETC.:IKFCBL30        
00538/011  *COBOLU                   IKFCBL40        OE  O          ETC:IKFCBL40                                                    
            D4T2    309  COBOLU.IKFCBL40.OE.011             1 SEQ    1024   11 PAGE UM   H YOUNG             JULY 28, 1977  02:29:28
                         ETC.:IKFCBL40        
00538/012  *COBOLU                   IKFCBL50        OE  O          ETC:IKFCBL50                                                    
            D4T2    310  COBOLU.IKFCBL50.OE.012             1 SEQ    1024    9 PAGE UM   H YOUNG             JULY 28, 1977  02:29:30
                         ETC.:IKFCBL50        
00538/013  *COBOLU                   IKFCBL51        OE  O          ETC:IKFCBL51                                                    
            D4T2    311  COBOLU.IKFCBL51.OE.013             1 SEQ    1024   10 PAGE UM   H YOUNG             JULY 28, 1977  02:29:32
                         ETC.:IKFCBL51        
00538/014  *COBOLU                   IKFCBL6A        OE  O          ETC:IKFCBL6A                                                    
            D4T2    312  COBOLU.IKFCBL6A.OE.014             1 SEQ    1024    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:35
                         ETC.:IKFCBL6A        
00538/015  *COBOLU                   IKFCBL60        OE  O          ETC:IKFCBL60                                                    
            D4T2    313  COBOLU.IKFCBL60.OE.015             1 SEQ    1024    8 PAGE UM   H YOUNG             JULY 28, 1977  02:29:37
                         ETC.:IKFCBL60        
00538/016  *COBOLU                   IKFCBL70        OE  O          ETC:IKFCBL70                                                    
            D4T2    314  COBOLU.IKFCBL70.OE.016             1 SEQ    1024   13 PAGE UM   H YOUNG             JULY 28, 1977  02:29:39
                         ETC.:IKFCBL70        
1                                                                                               THU SEP 12/96   23:39:34   Page  222
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00538/017  *COBOLU                   *COBLIB         OL  O          *COBLIB                                                         
            D4T2    315  COBOLU.*COBLIB.OL.017              1 SEQ    1024    9 PAGE UM   H YOUNG             JULY 28, 1977  02:29:41
                         *COBLIB              
0          OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY.
           NOTE:  *GENLIB COMPLAINS ABOUT THIS (MULTIPLY DEFINED SYMBOLS).  IGNORE IT.
00538/018  *COBOLU                   TEST PGM #1     SC             MTA:COBTEST                                                     
            D4T2    316  COBOLU.TEST_PGM_#1.SC.018          1 LINE     67    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:43
                         MTA.:COBTEST         
0          TEST PROGRAM.
00538/019  *COBOLU                   TEST PGM #2     SC             MTA:COBTEST2                                                    
            D4T2    317  COBOLU.TEST_PGM_#2.SC.019          1 LINE     73    4 PAGE UM   H YOUNG             JULY 28, 1977  02:29:46
                         MTA.:COBTEST2        
0          ANOTHER TEST PROGRAM.
00538/020  *COBOLU                   TEST PGM #3     SC             MTA:COBTEST3                                                    
            D4T2    318  COBOLU.TEST_PGM_#3.SC.020          1 LINE     59    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:48
                         MTA.:COBTEST3        
0          TESTS THE SORT VERB.
00539/001   TIMNTRP                  D4 MASTER       SA  G          S0917 MTSSD4 'MASTER D4.0' POSN=TIMT                            
            D4T2    319  TIMNTRP.D4_MASTER.SA.001           1 SEQ      80   24 PAGE UM   MTS       MTA       JULY 28, 1977  02:30:36
0          MTS TIMER INTERRUPT ROUTINES (USER CALLABLE):  SETIME, RSTIME, GETIME, AND TIMNTRP.
           ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:RMGRMACLIB (1054/1), AND COPY:FILE.MACROS
           (482/33). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
00539/002B  TIMNTRP                  UPDATE          UC  G          MTS:TIMTUPD                                                     
            RD16T1   98  TIMNTRP.UPDATE.UC.002              1 LINE     68    3 PAGE UM   MTS       MTA       JULY 12, 1979  22:52:54
                         MTS.:TIMTUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=TIMT.
00539/003B  TIMNTRP                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       MTA                              
00539/004B  TIMNTRP                                  L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=TIMT.LIST             10  
            RD16T1   99  TIMNTRP..L.004                     1 SEQ     133   73 PAGE UM   MTS       MTA       JULY 12, 1979  22:53:04
00539/005   TIMNTRP                  TEST PROGRAM    SA  O          MTA:TESTTI(1,999)                                               
            D4T2    323  TIMNTRP.TEST_PROGRAM.SA.007        1 LINE     80    6 PAGE UM   MTS       MTA       JULY 28, 1977  02:37:30
                         MTA.:TESTTI          
0          DRIVER FOR TESTING TIMER ROUTINES.
1                                                                                               THU SEP 12/96   23:39:34   Page  223
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00539/006   TIMNTRP                  TEST PROGRAM    OC  O          MTA:TESTTI(1000)                                                
            D4T2    324  TIMNTRP.TEST_PROGRAM.OC.008        1 LINE     80    3 PAGE UM   MTS       MTA       JULY 28, 1977  02:37:32
00540/001   SYSTEM WATCHERS          PDPBUG          SA  G          MTA:PDPBUG(1000)                                                
            D4.2T1  372  SYSTEM_WATCHERS.PDPBUG.SA.001      1 LINE     68    4 PAGE UM   MTA                 APR. 01, 1979  22:41:16
                         MTA.:PDPBUG          
0          THIS COMPONENT CONSISTS OF PROGRAMS WHICH MONITOR THE ACTIVITY OF VARIOUS PARTS
           OF THE SYSTEM.
            
           PDPBUG IS A PROGRAM TO PRINT STATISTICS ABOUT SYSTEM PAGING.  COMMENTS IN THE SOURCE
           CODE DESCRIBE THE OUTPUT.  MUST BE RE-ASSEMBLED IF EITHER THE SUPERVISOR OR THE PDP
           IS RE-ASSEMBLED.  THE ITEMS TO BE CHANGED ARE DOCUMENTED IN SOURCE COMMENTS.
           COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654).
00540/002   SYSTEM WATCHERS          PDPBUG          OC  G          MTA:PDPBUG(1,999)                                               
            D4.2T1  373  SYSTEM_WATCHERS.PDPBUG.OC.002      1 LINE     80    3 PAGE UM   MTA                 APR. 01, 1979  22:41:18
00540/003   SYSTEM WATCHERS          PRNTCNTS        SA  G          MTA:PRNTCNTS(1000)                                              
            D4.2T1  374  SYSTEM_WATCHERS.PRNTCNTS.SA.003    1 LINE     74   11 PAGE UM   MTA                 APR. 01, 1979  22:41:19
                         MTA.:PRNTCNTS        
0          PROGRAM TO PRINT ALL SORTS OF COUNTS AND TIMES FROM THE PDP (044) AND SUPERVISOR (045).  IT MUST BE REASSEMBLED
           WHENEVER EITHER THE PDP OR UMMPS CHANGES BECAUSE OF THE MANY SYMBOLS OF THE FORM "DISPN EQU X" WHICH GIVE THE LOCATIONS
           OF THE COUNTS IN THE PDP AND SUPERVISOR.  ASSEMBLE USING *SYSMAC.
           COPIES COPY:GLOBALS (1026/3).
00540/004   SYSTEM WATCHERS          PRNTCNTS        OC  G          MTA:PRNTCNTS(1,999)                                             
            D4.2T1  375  SYSTEM_WATCHERS.PRNTCNTS.OC.004    1 LINE     80    6 PAGE UM   MTA                 APR. 01, 1979  22:41:24
00540/005   SYSTEM WATCHERS          HOGS            SA  G          MTA:HOGS(1000)                                                  
            D4.2T1  376  SYSTEM_WATCHERS.HOGS.SA.005        1 LINE     68    2 PAGE UM   MTA                 APR. 01, 1979  22:41:27
                         MTA.:HOGS            
0          PROGRAM TO FIND THE JOBS WHICH ARE USING THE MOST CPU TIME, VM, AND DRUM READS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (026/5).  ASSEMBLE USING COPY:SETPARM
           (653).
00540/006   SYSTEM WATCHERS          HOGS            OC  G          MTA:HOGS(1,999)                                                 
            D4.2T1  377  SYSTEM_WATCHERS.HOGS.OC.006        1 LINE     80    1 PAGE UM   MTA                 APR. 01, 1979  22:41:28
00540/007   SYSTEM WATCHERS          LOADCLAS        SA  G          MTA:LOADCLAS.S                                                  
            D4.2T1  378  SYSTEM_WATCHERS.LOADCLAS.SA.007    1 LINE     71    4 PAGE UM   MTA                 APR. 01, 1979  22:41:29
                         MTA.:LOADCLAS.S      
0          PROGRAM TO CALL TASKSTAT (647) FOR EVERY JOB IN THE SYSTEM EVERY 30 SECONDS AND
           SUMMARIZE THE RESULTS.  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).
0          Referenced by comments of: 400/9, 647/1 
1                                                                                               THU SEP 12/96   23:39:34   Page  224
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00540/008   SYSTEM WATCHERS          LOADCLAS        OC  G          MTA:LOADCLAS                                                    
            D4.2T1  379  SYSTEM_WATCHERS.LOADCLAS.OC.008    1 LINE     80    4 PAGE UM   MTA                 APR. 01, 1979  22:41:30
                         MTA.:LOADCLAS        
00540/009B  SYSTEM WATCHERS          DBJP            SA  G  DPBJ    MTS:DBJP(1000)                                                  
            RD16T1  100  SYSTEM_WATCHERS.DBJP.SA.009        1 LINE     80    8 PAGE UM   OGDEN               JULY 12, 1979  22:53:05
                         MTS.:DBJP            
0          PROGRAM TO DISPLAY BIG JOB PARAMETERS (AND OTHER STUFF).  EVERY 20 SECONDS
           IT PRINTS STATISTICS RELATING TO THE SYSTEM LOAD.  IF SCARDS IS EXPLICITLY
           ASSIGNED, THEN TYPE 8 CMDSTAT RECORDS GENERATED BY SSRTN (413) ARE USED TO
           GENERATE THE STATISTICS.  OTHERWISE, THE INCORE JOBSTA VECTOR (413/7) IS
           USED AS THE SOURCE OF INFORMATION.  DBJP CAN ALSO BE USED TO TEST NEW
           VERSION OF BJPMOD (650) BY CONCATENATING DBJP TO THE NEW BJPMOD OBJECT
           (BJPMOD MUST PRECEDE DBJP).  COPIES COPY:GLOBALS (1026/3), COPY:JOBSTA
           (413/11), COPY:BJPDSCT (650/3), COPY:CMDAREADSECT (531/18), *GDINFODSECT
           (594), AND *CNFGINFODSECT (654).
00540/010B  SYSTEM WATCHERS          DBJP            OC  G          MTS:DBJP(1,999)                                                 
            RD16T1  101  SYSTEM_WATCHERS.DBJP.OC.010        1 LINE     80    4 PAGE UM   OGDEN               JULY 12, 1979  22:53:07
00540/011   SYSTEM WATCHERS          DPBJ            SA  G          MTA:DPBJ(1000)                                                  
            D4.2T1  382  SYSTEM_WATCHERS.DPBJ.SA.011        1 LINE     52    1 PAGE UM   MTA                 APR. 01, 1979  22:41:34
                         MTA.:DPBJ            
0          EVERY 20 SECONDS, THIS PROGRAM PRINTS THE NUMBER OF JOBS (IN EACH OF 4 CATEGORIES)
           THAT HAVE USED ANY CPU TIME IN THE PREVIOUS 20 SECONDS.  THE CATEGORIES ARE
           DETERMINED BY WHETHER THE JOB IS PAGING BOUND AND WHETHER IT IS OVER THE BIG
           JOB THRESHOLD (BIGJTH).
00540/012   SYSTEM WATCHERS          DPBJ            OC  G          MTA:DPBJ(1,999)                                                 
            D4.2T1  383  SYSTEM_WATCHERS.DPBJ.OC.012        1 LINE     80    1 PAGE UM   MTA                 APR. 01, 1979  22:41:35
00540/013   SYSTEM WATCHERS          DRUMSTAT        SA  O          MTA:DRUMSTAT(1000)                                              
            D4.2T1  384  SYSTEM_WATCHERS.DRUMSTAT.SA.013    1 LINE     72    3 PAGE UM   MTA                 APR. 01, 1979  22:41:36
                         MTA.:DRUMSTAT        
0          EVERY 30 SECONDS, THIS PROGRAM PRINTS DRUMIN, DRUMOUT, DISKIN, DISKOUT, LOOPS,
           NRP (NUMBER OF RELEASED PAGES), SKPREAD (NUMBER OF READS SKIPPED TO WAIT FOR MORE
           WORK), NCP (NUMBER OF CHANNEL PROGRAMS), NWPD (NUMBER OF WRITE PAGES DISCARDED,
           I.E. UNCHANGED), NGWP (NUMBER OF PAGES FROM GETWP), NOXACNT (NUMBER OF PAGES ON
           PIQ WITH NO EXTERNAL ADDRESS), PI/LOOP (PAGE INS PER LOOP), PI/CP, T/LOOP (TIME
           PER LOOP), T/PI, T/CP, AND %SS (PERCENT SUPERVISOR STATE) FOR THE PDP.
00540/014   SYSTEM WATCHERS          DRUMSTAT        OC  O          MTA:DRUMSTAT(1,999)                                             
            D4.2T1  385  SYSTEM_WATCHERS.DRUMSTAT.OC.014    1 LINE     80    2 PAGE UM   MTA                 APR. 01, 1979  22:41:36
00540/015   SYSTEM WATCHERS          GTUNIT MAIN     SG  G          S0683 OGDEN FSNAME=GTDRIVER.S                                   
            D4.1T1  305  SYSTEM_WATCHERS.GTUNIT_MA.SG.015   1 LINE     44    1 PAGE UM   OGDEN               NOV. 10, 1977  20:40:15
0          MAIN PROGRAM TO CALL THE GTUNIT SUBR (540/16) EVERY 20 SECONDS.  CALLS THE PAR
           (687/1) AND ATRAP (689/1) SUBROUTINES.
1                                                                                               THU SEP 12/96   23:39:34   Page  225
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00540/016   SYSTEM WATCHERS          GTUNIT SUBR     SA  G  GTUN    S0683 OGDEN FSNAME=GTUNIT.S                                     
            D4.1T1  306  SYSTEM_WATCHERS.GTUNIT_SU.SA.016   1 LINE     80    4 PAGE UM   OGDEN               FEB. 03, 1978  15:16:59
0          SUBROUTINE TO COUNT THE NUMBER OF GTUNIT WAITS OUTSTANDING FOR EACH PUBLIC
           DISK VOLUME, AND PRINT THE NON-ZERO RESULTS ON SPRINT.  CALLS TASKSTAT (647/1).
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:FILE.MACROS
           (482/33).
0          Referenced by comments of: 540/15, 647/1 
00540/017   SYSTEM WATCHERS          GTUNIT          OE  G          FILE:GTUNIT                                                     
            D4.1T1  307  SYSTEM_WATCHERS.GTUNIT.OE.017      1 LINE    652    2 PAGE UM   OGDEN               MAY  13, 1978  17:40:58
                         FILE:GTUNIT          
0          OBJECT FOR 540/15 AND 540/16.
00540/018   SYSTEM WATCHERS          TTPRINT         SA  G          MTA:TTPRINT.S                                                   
            D4.2T1  386  SYSTEM_WATCHERS.TTPRINT.SA.018     1 LINE     71    3 PAGE UM   MTA                 APR. 01, 1979  22:41:37
                         MTA.:TTPRINT.S       
0          PROGRAM TO PRINT THE SUPERVISOR TRACE TABLE AT THE TIME IT IS RUN, I.E., FROM
           MEMORY.
00540/019   SYSTEM WATCHERS          TTPRINT         OC  G          MTA:TTPRINT                                                     
            D4.2T1  387  SYSTEM_WATCHERS.TTPRINT.OC.019     1 LINE    440    4 PAGE UM   MTA                 APR. 01, 1979  22:41:38
                         MTA.:TTPRINT         
00540/020   SYSTEM WATCHERS          UPTIME CMDS     C              *LRL                                                            
            D4T3    227  UPTIME.*LRL.C.001                  1 LINE      8    1 PAGE UM   MTA                 JULY 28, 1977  23:53:31
                         *LRL                 
0          COMMAND FILE USED BY THE OPERATORS TO PRINT THE REASON FOR THE LAST SYSTEM
           RELOAD AND THE ELAPSED TIME SINCE THAT RELOAD.  INVOKED BY ENTERING "MTS *LRL"
           ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 540/21 
00540/021   SYSTEM WATCHERS          UPTIME CMDS     C              SYS:LRL                                                         
            D4T3    228  UPTIME.LRL.C.002                   1 LINE     38    1 PAGE UM   MTA                 JULY 28, 1977  23:53:34
                         SYS.:LRL             
0          COMMAND FILE SOURCED TO BY *LRL (540/20) TO GET THE REASON FOR THE LAST
           RELOAD AND RUN THE UPTIME PROGRAM (540/22).
00540/022   SYSTEM WATCHERS          UPTIME PGM      SA  G          MTA:UPTIME(1000)                                                
            D4.2T1  388  SYSTEM_WATCHERS.UPTIME_PG.SA.022   1 LINE     72    1 PAGE UM   MTA                 APR. 01, 1979  22:41:40
                         MTA.:UPTIME          
0          PROGRAM TO PRINT THE ELAPSED TIME SINCE THE LAST IPL.  NOTE:  THIS PROGRAM ONLY
           WORKS ON A 370 OR 470.
0          Referenced by comments of: 540/21 
1                                                                                               THU SEP 12/96   23:39:34   Page  226
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00540/023   SYSTEM WATCHERS          UPTIME PGM      OC  G          MTA:UPTIME(1,999)                                               
            D4.2T1  389  SYSTEM_WATCHERS.UPTIME_PG.OC.023   1 LINE     80    1 PAGE UM   MTA                 APR. 01, 1979  22:41:41
00540/024   SYSTEM WATCHERS          PWCT CMDS       C              *PWC                                                            
            D4.2T1  390  SYSTEM_WATCHERS.PWCT_CMDS.C.024    1 LINE     58    1 PAGE UM   OGDEN               APR. 01, 1979  22:41:41
                         *PWC                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE PWCT PROGRAM (540/25) TO PRINT WAIT
           COUNTS FOR MTS JOBS.  INVOKED BY ENTERING "MTS *PWC" ON THE OPERATOR'S CONSOLE.
00540/025   SYSTEM WATCHERS          PWCT PGM        SA  G  PWCT    MTS:PWC(1000)                                                   
            D4.2T1  391  SYSTEM_WATCHERS.PWCT_PGM.SA.025    1 LINE     80   20 PAGE UBC  HOGG      OGDEN     APR. 01, 1979  22:41:42
                         MTS.:PWC             
0          PROGRAM TO PRINT WAIT COUNTS, I.E., COUNTS OF HOW MANY MTS TASKS ARE WAITING FOR
           WHAT.  IT TAKES THREE OPTIONAL INTEGER NUMBERS IN THE PAR FIELD SEPARATED BY
           BLANKS:  NUMBER OF SECONDS BETWEEN SAMPLES, NUMBER OF LINES OF OUTPUT BETWEEN
           HEADINGS, AND THE TOTAL NUMBER OF LINES OF OUTPUT BEFORE QUITTING.  COPIES
           COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:RMGRMACLIB
           (1054/1).
0          Referenced by comments of: 540/24, 647/1 
00540/026   SYSTEM WATCHERS          PWCT PGM        OC  G          MTS:PWC(1,999)                                                  
            D4.2T1  392  SYSTEM_WATCHERS.PWCT_PGM.OC.026    1 LINE   2584    4 PAGE UBC  HOGG      OGDEN     APR. 01, 1979  22:41:46
00541/001  *DECODE                                   SA  G          S0723 'D3T4' FSNAME=DECODE..SA.1(1)                          220
            D4T2    339  DECODE..SA.001                     1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  22:56.50
0          PROGRAM TO PROVIDE HASP-TYPE DECOMPRESSION/DEBLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE.
00541/002  *DECODE                                   OC  G          *DECODE                                                         
            D4.2T1  393  DECODE..OC.002                     1 LINE     80    1 PAGE UM   MTA                 APR. 01, 1979  22:41:47
                         *DECODE              
00542/001  *DF                                       SA           # (NOT DISTRIBUTED)                                               
            D3T4    222  DF..SA.1                           1 LINE     72   93 PAGE UM   GOODRICH            AUG. 01, 1973  22:56.58
00542/002  *DF                       PSECT           SA           # (NOT DISTRIBUTED)                                               
            D3T4    223  DF.PSECT.SA.2                      1 LINE     72    3 PAGE UM   GOODRICH            AUG. 01, 1973  22:57.15
00542/003  *DF                                       OL           # (NOT DISTRIBUTED)                                               
            D3T4    224  DF..OL.3                           1 SEQ    3536    6 PAGE UM   GOODRICH            AUG. 01, 1973  22:57.19
00543/001  *ENCODE                                   SA  G          S0723 'D3T4' FSNAME=ENCODE..SA.1(1)                          225
            D4T2    341  ENCODE..SA.001                     1 LINE     80   10 PAGE UM   MTA                 AUG. 01, 1973  22:57.23
0          PROGRAM TO PROVIDE HASP-TYPE COMPRESSION/BLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE.
00543/002  *ENCODE                                   OC  G          *ENCODE                                                         
            D4.2T1  394  ENCODE..OC.002                     1 LINE     80    3 PAGE UM   MTA                 APR. 01, 1979  22:41:48
                         *ENCODE              
1                                                                                               THU SEP 12/96   23:39:34   Page  227
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00544      *ENDJUNK                                  OC  G          *ENDJUNK                                                        
            D4T2    343  ENDJUNK..OC.                       1 LINE     24    1 PAGE UM   MTA                 JULY 28, 1977  02:38:57
                         *ENDJUNK             
0          CONTAINS THE TWO LOADER CARDS:
            LCS            LCSYMBOL
            LDT
00545/001  *FAKEOS                   INSTALLATION    WF             S0989 UQV15 FSNAME=FAKEOS.INSTALLATION(1)                    15 
            D4T2    344  FAKEOS.INSTALLATION.WF.001         1 LINE    100    3 PAGE UM   MTA                 FEB. 17, 1976  20:04:00
0          SOMEWHAT OUT-OF-DATE WRITEUP DESCRIBING THE ORGANIZATION AND INSTALLATION OF *FAKEOS.
0          Referenced by comments of: 762/2 
00545/002  *FAKEOS                   WRITEUP         WF             S0989 UQV15 FSNAME=FAKEOS.WRITEUP(1)                         14 
            D4T2    345  FAKEOS.WRITEUP.WF.002              1 LINE    148   11 PAGE UM   MTA                 FEB. 17, 1976  20:03:19
0          UQV USER LEVEL WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS.
           UM USER LEVEL DOCUMENTATION IS IN MTS VOLUME 2.
00545/003  *FAKEOS                   MAIN MASTER     SA  G          S0689 UQVD06 FSNAME=FAKEOS.FAKEOSB.SA.4(1)                   134
            D4T2    346  FAKEOS.MAIN_MASTER.SA.003          1 SEQ    4000  188 PAGE UM   MTA                 FEB. 19, 1975  06:22.20
0          MASTER SOURCE FOR THE FAKEOS MAIN PROGRAM.
           COPIES COPY:GLOBALDEFS (1026/1), FAKEOS.GBLS (545/19), COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087),
           *LOADINFODSECT (001/4), *GDINFODSECT (594), AND *SENSEDSECT (3025).
           ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (ON UNIT 0), AND FOS.MACLIB (545/21).
00545/004  *FAKEOS                   PREFIX MASTER   SA  G          S0689 UQVD06 FSNAME=FAKEOS.FAKEOSPFX.SA.3(1)                 133
            D4T2    347  FAKEOS.PREFIX_MASTER.SA.004        1 SEQ    4000   45 PAGE UM   MTA                 FEB. 19, 1975  06:22.12
0          MASTER SOURCE FOR FAKEOS PREFIX.
           COPIES FAKEOS.GBLS (545/19), *GDINFODSECT (594), AND *CNFGINFODSECT (654).
           ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (ON UNIT 0), AND FOS.MACLIB (545/21).
00545/005  *FAKEOS                   UPDATE 1        UU  G          S1319 D4.2T1 VLO FSNAME=FAKEOS.UPDATES.UU.005               395 
                                                                                    UM   MTA                                        
0          UPDATES TO PRODUCE D4.2 FAKEOS FROM D4.0 VERSION.  CONTAINS COMMANDS AND 
           UPDATES TO ASSEMBLE 545/3 AND 545/4.
00545/006C *FAKEOS                   UPDATES         UC  G          MTA:FOS.UPDATES                                                 
            RD16T1  102  FAKEOS.UPDATES.UC.006              1 LINE     76    1 PAGE UM   MTA                 JULY 12, 1979  22:53:08
                         MTA.:FOS.UPDATES     
0          POST D4.2 UPDATES TO FAKEOS PREFIX (LINE 1) AND MAIN PROGRAM (LINE 10000).
00545/007C *FAKEOS                   ASSEMBLY CMDS   C              MTA:FOS.ASM                                                     
            RD16T1  103  FAKEOS.ASSEMBLY_CMDS.C.007         1 LINE     91    1 PAGE UM   MTA                 JULY 12, 1979  22:53:09
0          COMMANDS TO ASSEMBLE FAKEOS PREFIX (AT LINE 1) AND MAIN PROGRAM (AT LINE
           1000).
1                                                                                               THU SEP 12/96   23:39:34   Page  228
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00545/008  *FAKEOS                   OS LOWCORE      SA             MTA:FOS.OSLC                                                    
            D4T2    349  FAKEOS.OS_LOWCORE.SA.006           1 LINE     42    4 PAGE UM   MTA                 JULY 28, 1977  02:40:56
                         MTA.:FOS.OSLC        
0          CONTENTS OF FIRST HALF-PAGE OF OS.
00545/009  *FAKEOS                   BDAM SIMULATOR  SA             MTA:FOS.BDAM                                                    
            D4.2T1  396  FAKEOS.BDAM_SIMULATOR.SA.007       1 LINE     87   69 PAGE UM   MTA                 APR. 01, 1979  22:42:20
                         MTA.:FOS.BDAM        
0          SOURCE FOR OS BDAM SIMULATOR.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/010  *FAKEOS                   BDAM SIMULATOR  OE             ETC:BDAM                                                        
            D4.2T1  397  FAKEOS.BDAM_SIMULATOR.OE.008       1 SEQ   15140    4 PAGE UM   MTA                 APR. 01, 1979  22:42:40
                         ETC.:BDAM            
00545/011  *FAKEOS                   DDNAME SCANNER  SA             S0938 FSAVE2 VLO FSNAME=FOS.DDEF(3)                         402 
            D4T2    352  FAKEOS.DDNAME_SCANNER.SA.009       1 LINE     80   20 PAGE UM   MTA                 JULY 28, 1977  02:41:08
                         MTA.:FOS.DDEF        
0          SOURCE FOR DDNAME SCANNER.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/012  *FAKEOS                   DDNAME SCANNER  OC           # (PART OF 545/37)                                                
            D3.2T1  455  FAKEOS.VOSDDEF.OE.18               1 SEQ    2586    1 PAGE UM   MTA                 MAR. 21, 1975  01:50:37
00545/013  *FAKEOS                   EXCP SIMULATOR  SA             MTA:FOS.EXCP                                                    
            D4.2T1  398  FAKEOS.EXCP_SIMULATOR.SA.011       1 LINE     72    8 PAGE UM   MTA                 APR. 01, 1979  22:42:41
                         MTA.:FOS.EXCP        
0          SOURCE FOR NON-OLTEP EXCP SIMULATOR.
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/014  *FAKEOS                   EXCP SIMULATOR  OE             ETC:FAKEOS.EXCP                                                 
            D4.2T1  399  FAKEOS.EXCP_SIMULATOR.OE.012       1 SEQ    2492    1 PAGE UM   MTA                 APR. 01, 1979  22:42:43
                         ETC.:FAKEOS.EXCP     
00545/015  *FAKEOS                   OLTEP EXCP SIM  SA             MTA:FOS.OLTSEXCP                                                
            D4T2    355  FAKEOS.OLTEP_EXCP_SIM.SA.013       1 LINE     71    5 PAGE UM   MTA                 JULY 28, 1977  02:41:15
                         MTA.:FOS.OLTSEXCP    
0          SOURCE FOR OLTEP EXCP SIMULATOR.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/016  *FAKEOS                   OS SVC 59 SIML  SA             MTA:FOS.SVC59                                                   
            D4T2    356  FAKEOS.OS_SVC_59_SIML.SA.014       1 LINE     71    6 PAGE UM   MTA                 JULY 28, 1977  02:41:18
                         MTA.:FOS.SVC59       
0          SOURCE FOR OS SVC 59 SIMULATOR.
           COPIES FAKEOS.GLBS (545/18) AND *CNFGINFODSECT (654).
1                                                                                               THU SEP 12/96   23:39:34   Page  229
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/017  *FAKEOS                   FOS.OLTS        OE             ETC:FOS.OLTS                                                    
            D4T2    357  FAKEOS.FOS.OLTS.OE.015             1 LINE   1638    4 PAGE UM   MTA                 JULY 28, 1977  02:41:20
                         ETC.:FOS.OLTS        
0          OBJECT FROM 545/15 AND 545/16.  MUST BE CONCATENATED WITH *FAKEOS (545/38) WHEN RUNNING OLTEP.
00545/018  *FAKEOS                   IERRCO00        SA             MTA:FOS.IERRCO00                                                
            D4.1T1  318  FAKEOS.IERRCO00.SA.016             1 LINE     72   16 PAGE UM   MTA                 MAY  13, 1978  17:41:39
                         MTA.:FOS.IERRCO00    
0          SOURCE FOR THE FAKEOS SORT INTERFACE SUBROUTINE.
0          Referenced by comments of: 545/16 
00545/019  *FAKEOS                   FAKEOS.GBLS     SA             MTA:FAKEOS.GBLS                                                 
            D4.2T1  400  FAKEOS.FAKEOS.GBLS.SA.017          1 LINE     72    1 PAGE UM   MTA                 APR. 01, 1979  22:42:43
                         MTA.:FAKEOS.GBLS     
0          GLOBAL PARAMETERS COPY SECTION.
           EACH INSTALLATION SHOULD RE-DEFINE &OWNER, &COBUID, &MPSID, &FAKEID,
           &FAKMAIN, &ICENAME, AND &ETCID.
0          Referenced by comments of: 538/1, 545/3, 545/4, 545/9, 545/11, 545/15, 545/32, 737/3 
00545/020  *FAKEOS                   FOS.LPA         SA             MTA:FOS.LPA                                                     
            D4.1T1  319  FAKEOS.FOS.LPA.SA.018              1 LINE     55    1 PAGE UM   MTA                 MAY  13, 1978  17:41:41
                         MTA:FOS.LPA          
0          SYMBOL TABLE FOR MODULES MOVED FROM FOS.IGG TO *FAKEOS.  OBJECT IN *FAKEOS (545/38).
00545/021  *FAKEOS                   FOS.MACLIB      SM             MTA:FOS.MACLIB                                                  
            D4.2T1  401  FAKEOS.FOS.MACLIB.SM.019           1 LINE     72   26 PAGE UM   MTA                 APR. 01, 1979  22:42:44
                         MTA.:FOS.MACLIB      
0          FAKEOS MACRO LIBRARY.
0          Referenced by comments of: 545/3, 545/4, 545/9, 545/11, 545/13, 545/15, 545/16, 545/32 
00545/022  *FAKEOS                   IERRCO00 TEST   SA  G          MTA:FOS.IERR.TEST(1,999)                                        
            D4.1T1  320  FAKEOS.IERRCO00_TEST.SA.020        1 LINE     80    6 PAGE UM   MTA                 MAY  13, 1978  17:41:42
                         MTA.:FOS.IERR.TES    
0          TEST PROGRAM FOR IERRCO00.  RUNS WITHOUT FAKEOS.  ALL THE SORT TEST DATA IS
           INTERNAL TO IT.  SETS THE "DIAG" PARAMETER TO IERRCO00 SO A LOT OF SORT TRACE
           OUTPUT IS PRODUCED.  CHECKS THE RESULT OF THE SORT AND PRINTS ERROR COMMENTS
           IF BAD.
00545/023  *FAKEOS                   IERRCO00 TEST   OC  G          MTA:FOS.IERR.TEST(1000)                                         
            D4.1T1  321  FAKEOS.IERRCO00_TEST.OC.021        1 LINE     80    4 PAGE UM   MTA                 MAY  13, 1978  17:41:43
1                                                                                               THU SEP 12/96   23:39:34   Page  230
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00545/024  *FAKEOS                   BSAM TEST       SA             MTA:FOS.TESTBSAM(1,999)                                         
            D4.2T1  402  FAKEOS.BSAM_TEST.SA.022            1 LINE     65    1 PAGE UM   MTA                 APR. 01, 1979  22:42:48
                         MTA.:FOS.TESTBSAM    
0          PROGRAM TO TEST BSAM BY COPYING FROM INPUT TO SYSPRINT USING BSAM WITH DOUBLE
           BUFFERING ON BOTH.  ASSEMBLE USING *OSMAC (ON UNIT 2) AND *SYSMAC (ON UNIT 0).
00545/025  *FAKEOS                   BSAM TEST       OC             MTA:FOS.TESTBSAM(1000)                                          
            D4.2T1  403  FAKEOS.BSAM_TEST.OC.023            1 LINE     80    3 PAGE UM   MTA                 APR. 01, 1979  22:42:49
00545/026  *FAKEOS                   QSAM TEST       SA             MTA:FOS.TESTQSAM(1,999)                                         
            D4T2    365  FAKEOS.QSAM_TEST.SA.023            1 LINE     69    1 PAGE UM   MTA                 JULY 28, 1977  02:41:44
                         MTA.:FOS.TESTQSAM    
0          PROGRAM TO TEST QSAM BY COPYING INPUT TO OUTPUT USING QSAM.  ECHOS EACH LINE
           ON MTS UNIT 1.  GENERAL ENOUGH TO ALLOW ANY MODE OF GET AND PUT (MOVE, LOCATE,
           DATA) AND ANY RECORD FORMAT (NO MEAN TRICK IN OS!).  ASSEMBLE USING *SYSMAC
           (ON UNIT 2) AND *OSMAC (ON UNIT 0) (SIC).
00545/027  *FAKEOS                   QSAM TEST       OC             MTA:FOS.TESTQSAM(1000)                                          
            D4T2    366  FAKEOS.QSAM_TEST.OC.024            1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:41:47
00545/028  *FAKEOS                   UPDATE TEST     SA             MTA:FOS.TSTUPDAT(1,999)                                         
            D4T2    367  FAKEOS.UPDATE_TEST.SA.025          1 LINE     66    1 PAGE UM   MTA                 JULY 28, 1977  02:41:49
                         MTA.:FOS.TSTUPDAT    
0          TEST PROGRAM WHICH READS INPUT USING BSAM WITH DOUBLE BUFFERING AND REWRITES
           ANY LINE BEGINNING WITH "A" AFTER CHANGING THE "A" TO "B".  ALSO ECHOS LINES
           READ ON SYSPRINT USING QSAM.  ASSEMBLE WITH *SYSMAC (ON UNIT 0) AND *OSMAC
           (ON UNIT 2).
00545/029  *FAKEOS                   UPDATE TEST     OC             MTA:FOS.TSTUPDAT(1000)                                          
            D4T2    368  FAKEOS.UPDATE_TEST.OC.026          1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:41:51
00545/030  *FAKEOS                   TIMER TEST      SA             MTA:FOS.TESTTIME(1,999)                                         
            D4T2    369  FAKEOS.TIMER_TEST.SA.027           1 LINE     69    1 PAGE UM   MTA                 JULY 28, 1977  02:41:53
                         MTA.:FOS.TESTTIME    
0          PROGRAM WHICH TESTS STIMER AND TTIMER IN OS.  PRINTS MESSAGES TELLING WHAT IT'S
           DOING.  ASSEMBLE USING *SYSMAC (ON UNIT 0) AND *OSMAC (ON UNIT 2).  IF ASSEMBLED
           WITH *SYSMAC ONLY, IT WILL TEST STIMER AND TTIMER IN MTS.
00545/031  *FAKEOS                   TIMER TEST      OC             MTA:FOS.TESTTIME(1000)                                          
            D4T2    370  FAKEOS.TIMER_TEST.OC.028           1 LINE     80    2 PAGE UM   MTA                 JULY 28, 1977  02:41:56
00545/032  *FAKEOS                   BDAM DUMP       SA             MTA:FOS.BDAMDUMP(1000)                                          
            D4.2T1  404  FAKEOS.BDAM_DUMP.SA.030            1 LINE     72    5 PAGE UM   MTA                 APR. 01, 1979  22:42:49
                         MTA.:FOS.BDAMDUMP    
0          SOURCE FOR PROGRAM TO DUMP BDAM FAKEOS FILES.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
1                                                                                               THU SEP 12/96   23:39:34   Page  231
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00545/033  *FAKEOS                   BDAM DUMP       OC             MTA:FOS.BDAMDUMP(1,999)                                         
            D4.2T1  405  FAKEOS.BDAM_DUMP.OC.031            1 LINE     80    4 PAGE UM   MTA                 APR. 01, 1979  22:42:51
00545/034  *FAKEOS                   FAKEOSTRACE     SA             MTA:FOS.TRACE(1,999)                                            
            D4T2    373  FAKEOS.*FAKEOSTRACE.SA.031         1 LINE     66    3 PAGE UM   MTA                 JULY 28, 1977  02:42:03
                         MTA.:FOS.TRACE       
0          SOURCE FOR PROGRAM TO PRINT FAKEOS TRACE FILE.  ASSEMBLE USING *SYSMAC.
00545/035  *FAKEOS                   *FAKEOSTRACE    OE             *FAKEOSTRACE                                                    
            D4.2T1  406  FAKEOS.*FAKEOSTRACE.OE.033         1 LINE   2764    2 PAGE UM   MTA                 APR. 01, 1979  22:42:53
                         *FAKEOSTRACE         
00545/036  *FAKEOS                   FAKEOSCREBLDL   SA             MTA:FOS.CREBLDL(1,999)                                          
            D4T2    375  FAKEOS.*FAKEOSCREBLDL.SA.033       1 LINE     68    3 PAGE UM   MTA                 JULY 28, 1977  02:42:07
                         MTA.:FOS.CREBLDL     
0          PROGRAM TO CREATE A DIRECTORY THAT FAKEOS WILL USE WHEN DOING A BLDL ON LINKLIB.
           TAKES INPUT DATA ON SCARDS, OUTPUT DIRECTORY WRITTEN ON UNIT 0.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 458/80, 458/81, 458/83, 538/3 
00545/037  *FAKEOS                   *FAKEOSCREBLDL  OE             *FAKEOSCREBLDL                                                  
            D4.2T1  407  FAKEOS.*FAKEOSCREBLDL.OE.035       1 SEQ    1620    1 PAGE UM   MTA                 APR. 01, 1979  22:42:54
                         *FAKEOSCREBLDL       
0          Referenced by comments of: 737/5, 737/6, 762/5, 762/6 
00545/038B *FAKEOS                   *FAKEOS         OE  G          *FAKEOS                                                         
            RD16T1  104  FAKEOS.*FAKEOS.OE.038              1 LINE  32767   17 PAGE UM   MTA                 JULY 12, 1979  22:53:11
                         *FAKEOS              
0          CURRENT OBJECT FOR FAKEOS.
0          Referenced by comments of: 545/17, 545/20 
00545/039  *FAKEOS                   MESSAGE FILE    M              ETC:FAKEOS.MSG                                                  
            D4.2T1  409  FAKEOS.MESSAGE_FILE.M.037          1 LINE    121    4 PAGE UM   MTA                 APR. 01, 1979  22:42:56
                         ETC.:FAKEOS.MSG      
0          ERROR MESSAGE FILE FOR FAKEOS.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00545/040  *FAKEOS                   OS DATA MANAGE  OL             ETC:FOS.IGG                                                     
            D4.1T1  323  FAKEOS.OS_DATA_MANAGE.OL.038       1 LINE   3668    6 PAGE UM   MTA                 MAY  13, 1978  17:41:45
                         ETC.:FOS.IGG         
0          LIBRARY OF OS DATA MANAGEMENT MODULES FROM REL 21.8 AND IERRCO00.
           >>>>>> NOTE: OBJECT HAS REP CARDS.
1                                                                                               THU SEP 12/96   23:39:34   Page  232
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00546/001  *VALIDATEFILE                             SA  G  VALD    RSTR:VALIDATEFILE(1005)                                         
            D4.2T1  410  VALIDATEFILE..SA.001               1 LINE     80   38 PAGE UM   HELFFRICH           APR. 01, 1979  22:42:57
                         RSTR:VALIDATEFILE    
0          PROGRAM TO VALIDATE LINE FILES FOR CONSISTENCY.  CAN BE USED (BY USERS) AFTER A
           SYSTEM CRASH DURING WHICH A FILE WAS OPEN.  PROMPTS FOR INPUT.  ASSEMBLE USING
           COPY:FILE.MACROS (482/33).
00546/002  *VALIDATEFILE                             OE  G          *VALIDATEFILE                                                   
            D4.2T1  411  VALIDATEFILE..OE.002               1 LINE     80    7 PAGE UM   HELFFRICH           APR. 01, 1979  22:43:19
                         *VALIDATEFILE        
00547      *FOREVER                                  D              *FOREVER                                                        
            D4T2    383  FOREVER..D.                        1 LINE     51    3 PAGE UM   MTA                 JULY 28, 1977  02:42:26
                         *FOREVER             
0          A FILE CONTAINING ABOUT 300 LINES OF JUNK, ENDING WITH "$CONTINUE WITH *FOREVER" SO THAT
           IT APPEARS TO CONTAIN EVEN MORE.
00548/001  *FS                                       SA  G          MTS:FS.S                                                        
            D4.2T1  412  FS..SA.001                         1 LINE     77   90 PAGE UBC  MTA                 APR. 01, 1979  22:43:20
                         MTS.:FS.S            
0          USER PROGRAM TO SAVE AND RESTORE FILES ON MAGNETIC TAPE, MAINTAINING
           A DIRECTORY AND PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION.
           THIS PROGRAM IS ALSO USED TO GENERATE MTS DISTRIBUTION TAPES.
           CALLS SNIFF SUBROUTINE (548/2).  COPIES COPY:DRDSECT (461/11),
           *GFINFODSECT (593), AND *GDINFODSECT (594).
0          Referenced by comments of: 461/11, 549/1 
00548/002  *FS                       SNIFF SUBR      SA  G          MTS:FS.SNIFF(1,999)                                             
            D4T2    385  FS.SNIFF_SUBR.SA.002               1 LINE     80    4 PAGE UBC  MTA                 AUG. 14, 1977  21:51:13
                         MTS.:FS.SNIFF        
0          SUBROUTINE TO DETERMINE THE AMOUNT OF SPACE REQUIRED BY A FILE. CALLED BY *FS.
           COPIES *GFINFODSECT (593). ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 548/1 
00548/003  *FS                                       OE  G          *FS                                                             
            D4.2T1  413  FS..OE.003                         1 LINE  32315   12 PAGE UBC  MTA                 APR. 01, 1979  22:44:14
                         *FS                  
00549/001  *FSCON                                    SA  G          MTS:FSCON.S(1,1449)                                             
            D4T2    387  FSCON..SA.001                      1 LINE     80   33 PAGE UM   MTA                 JULY 28, 1977  02:43:20
                         MTS.:FSCON.S         
0          PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT.
           NO LONGER REQUIRES THE FSZ SUBROUTINE.
1                                                                                               THU SEP 12/96   23:39:34   Page  233
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00549/002  *FSCON                                    OE  G          *FSCON                                                          
            D4.2T1  414  FSCON..OE.002                      1 SEQ    8116    3 PAGE UM   MTA                 APR. 01, 1979  22:44:15
                         *FSCON               
00550      *FSCOPY                                   SA           # (OBSOLETED BY 548)                                              
            D3T4    270  FSCOPY..SA.1                       1 LINE     80   30 PAGE UBC                      AUG. 01, 1973  23:05.32
00551/001  *FTN                                      SA  G          S1099 FORTRN FSNAME=FTN.S                                       
            D4.2T1  415  FTN..SA.001                        1 LINE     85   51 PAGE UM   HANSEN              MAR. 02, 1979  12:24:24
0          THIS VERSION OF *FTN INTERFACES TO THE FORTRAN G (204) AND FORTRAN H (298)
           COMPILERS AND ALSO TO OVERDRIVE (667), THE FORTRAN PREPROCESSOR.
           IT IS LOADED INTO SHARED VM AT IPL BY PISTLE WITH THE SINGLE SYMBOL FTN
           DEFINED IN LCSYMBOL.  THERE ARE 4 REFERENCES TO FILE NAMES IN THIS VERSION
           AT LINES 922 THROUGH 925.  AS DISTRIBUTED, THEY ARE *FORTRANH, *FORTRANG,
           *FTNGTEST, AND *OVERDRIVE RESPECTIVELY. COPIES *GDINFODSECT (594).
0          Referenced by comments of: 699/1 
00551/002  *FTN                      SHARED OBJECT   OC  G          SEG2:FTN                                                        
            D4.2T1  416  FTN.SHARED_OBJECT.OC.002           1 LINE     80   11 PAGE UM   HANSEN              APR. 01, 1979  22:46:11
                         SEG2:FTN             
0          LOADED INTO SHARED VM AT IPL BY PISTLE.
00551/003  *FTN                                      OC  G          *FTN                                                            
            D4T2    391  FTN..OC.003                        1 SEQ      24    1 PAGE UM   HANSEN              JULY 28, 1977  02:45:44
                         *FTN                 
0          CONTAINS ONLY THE LOADER CARDS:
                 RIP  FTN 
                 LCS            LCSYMBOL
                 LDT            FTN 
00552/001  *GASP                                     SF  G  GASP    S0282 SYSSAV 'FLANIGAN SYSTEM SAVE TAPE' FSNAME=GASPII.S        
            D4T2    392  GASP..SF.001                       1 LINE     80   30 PAGE UM   FLANIGAN            APR. 18, 1975  08:59:55
0          FTN SOURCE FOR GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION.
           NOTE:  SOURCE CONTAINS MANY "$CONTINUE WITH *GASPCOM RETURN" LINES.
00552/002  *GASP                                     SA  G  GASP    W020:GASP.ASMB(1,14)                                            
            D4T2    393  GASP..SA.002                       1 LINE     80    1 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:12
0          ASMG SOURCE FOR GASP ERROR EXIT ROUTINE.
00552/003  *GASP                                     OL  G          *GASP                                                           
            D4T2    394  GASP..OL.003                       1 SEQ    6930   15 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:12
                         *GASP                
0          OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN 552/1 AND 552/2.
1                                                                                               THU SEP 12/96   23:39:34   Page  234
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00552/004  *GASP                     *GASPCOM        SF  G  GPCM    *GASPCOM(0,7)                                                   
            D4T2    395  GASP.*GASPCOM.SF.004               1 LINE     80    1 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:14
                         *GASPCOM             
00552/005  *GASP                     MEMO 246        WF             S0564 D4T2 VLO FSNAME=GASP.MEMO_246.WF.005(1)                396
            D4T2    396  GASP.MEMO_246.WF.005               1 LINE    127   11 PAGE UM   FLANIGAN            JAN. 24, 1977  20:29:16
0          THIS IS COMPUTING CENTER MEMO 246 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM"
00552/006  *GASP                     INTERNAL DESC   P   G          W020:GASPINFO(1,1488)                                           
            D4T2    397  GASP.INTERNAL_DESC.P.006           1 LINE     80   28 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:54
0          DESCRIPTION OF THE INTERNALS OF GASP.
00553/001B  NETWORK CLS                              SA  G  NETC    S0683 OGDEN FSNAME=NET.S                                        
            RD16T1  105  NETWORK_CLS..SA.001                1 LINE     80   43 PAGE UM   OGDEN               JUNE 27, 1979  05:08:46
0          COMMAND LANGUAGE SUB-SYSTEM FOR MERIT COMPUTER NETWORK ($NET COMMAND).
           DESCRIBED IN "MERIT NETWORK USER'S GUIDE" IN MTS VOLUME 4.
           CALLS COPY SUBROUTINE (553/2) TO IMPLEMENT THE .COPY NETWORK COMMAND.
           COPIES *GDINFODSECT (594) AND *SENSEDSECT (3025).
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00553/002   NETWORK CLS              COPY SUBR       SA  G          S0683 OGDEN FSNAME=NETCOPY.S                                    
            D4.2T1  418  NETWORK_CLS.COPY_SUBR.SA.002       1 LINE     71   38 PAGE UM   OGDEN               FEB. 10, 1979  21:55:28
0          SUBROUTINES TO IMPLEMENT THE .COPY NETWORK COMMAND.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 553/1 
00553/003B  NETWORK CLS                              OC  G          *CLSNET                                                         
            RD16T1  106  NETWORK_CLS..OC.003                1 LINE  10144   11 PAGE UM   OGDEN               JULY 12, 1979  22:56:38
                         *CLSNET              
0          OBJECT FROM 553/1 AND 553/2, NORMALLY LOADED INTO SHARED VM BY PISTLE AFTER IPL.
00553/004   NETWORK CLS              MNET:NETCOPY    OC  G          MNET:NETCOPY                                                    
            D4T2    401  NETWORK_CLS.MNET:NETCOPY.OC.004    1 LINE     24    1 PAGE UM   OGDEN               JULY 28, 1977  02:48:09
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM NETCOPY SUBROUTINE.
           THIS FILE IS $RUN AUTOMATICALLY WHEN A .COPY NETWORK COMMAND (OR EQUIVALENT AT A NON-MTS HOST)
           IS ISSUED AT A REMOTE HOST TO COPY A FILE TO OR FROM THE LOCAL MTS HOST.
00553/005   NETWORK CLS              NET TEST PGM    SA  G  TNET    S0683 OGDEN FSNAME=TNET.S                                       
            D4T2    403  NETWORK_CLS.NET_TEST_PGM.SA.006    1 LINE     80    3 PAGE UM   OGDEN               MAR. 03, 1977  12:42:13
0          PROGRAM TO CALL THE NET CLS -- ALLOWS TESTING WITH SDS.  CALLS MSG
           ROUTINES (1023).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND WITH SIZE=20.
00553/006   NETWORK CLS              NET TEST PGM    OC  G          W163:TNET                                                       
            D4T2    404  NETWORK_CLS.NET_TEST_PGM.OC.007    1 LINE     80    3 PAGE UM   OGDEN               JULY 28, 1977  02:48:46
1                                                                                               THU SEP 12/96   23:39:34   Page  235
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00554/001   TABLMOD                  JOB PROGRAM     SA  G  TBJP    FILE:TABLMOD                                                    
            D4.2T1  420  TABLMOD.JOB_PROGRAM.SA.001         1 LINE     80   28 PAGE UM   GOODRICH            APR. 01, 1979  22:55:06
                         FILE:TABLMOD         
0          UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE SHARED FILE TABLE.
           INVOKED BY ENTERING "TABLMOD" ON THE OPERATOR'S CONSOLE.  THE FOLLOWING COMMANDS
           ARE AVAILABLE:
            
             VERIFY   VERIFYS (ENTRY AND ELEMENT) ALLOCATIONS ARE CONSISTANT BY CHASING
                      THROUGH VARIOUS CHAINS IN SHARED FILE TABLE.  ALSO PRINTS THE NUMBER
                      OF OPEN FILES, MATRIX COMPUTATIONS, AND DEADLOCK DETECTIONS.
            
             TRACE    PRINTS OUT THE ENTIRE SHARED FILE TABLE.  EACH ENTRY CONSISTS OF
                      A FILE NAME, JOB NUMBER, OPEN STATUS ("OPEN" OR "NOTO"), LOCK
                      STATUS ("LOCKR", "LOCKM", OR "LOCKD"), AND WAIT STATUS ("WAITO",
                      "WAITR", "WAITM", OR "WAITD").
            
             LSTAT    PRINTS THE INFORMATION ASSOCIATED WITH A SINGLE FILE ("LSTAT FILE
                      FNAME") OR A SINGLE JOB ("LSTAT JOB N") IN THE SAME FORMAT AS THE
                      TRACE COMMAND.
            
             LOCATE   PRINTS THE HALF-WORD OFFSET INT