1                                                                                               FRI AUG 02/96   16:11:27   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  UMLD    W009:UMLDNEW.S                                                  
            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          UU  G          W009:UMLDNEW.U                                                  
            D4T1      2  UMLOAD.UPDATE.UU.002               1 LINE     73   39 PAGE UM   SHERRY              JULY 27, 1977  21:23:08
0          UPDATE DECK TO PRODUCE D4 UMLOAD SOURCE (001/1) FROM D3 UMLOAD SOURCE.
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
0          COPY SECTION FOR INFORMATION RETURNED BY LOADINFO SUBR (PART OF 354/1).
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
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).
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
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
0          MESSAGE FILE USED BY THE INFO CLS.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
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
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
0          THIS IS AN INTERFACE PROGRAM WHICH PERMITS THE INFO CLS TO BE RUN AS A NORMAL PROGRAM.
1                                                                                               FRI AUG 02/96   16:11:27   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/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
00003/001   JOBLIST                                  SA  G  JBLS    WSG:JLE                                                         
            D4T1     10  JOBLIST..SA.001                    1 LINE     80    8 PAGE UM   MTA                 JULY 27, 1977  21:23:35
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   MTA                                        
00004/001   TABLES                                   SA  G  TABL    WSG:TABLES(1,999)                                               
            D4T1     11  TABLES..SA.001                     1 LINE     80   21 PAGE UM   WSG                 JULY 27, 1977  21:23:37
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/4).  THIS DECK CONTAINS
           SEVERAL MACRO DEFINITIONS USEFUL FOR DEFINING THE TABLES.  COPIES COPY:LLMPSEQU (087),
           COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/3), AND *CNFGINFODSECT(2) (654).
           ASSEMBLE USING COPY:FILE.MACROS (482/36) AND COPY:SETPARM (653).
           NOTE:  IT IS NORMAL TO GET AN ASSEMBLER WARNING MESSAGE ABOUT RELOCATABLE Y-CONS.
0          Referenced by comments of: 482/10, 482/46 
00004/002   TABLES                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00004/003   TABLES                   WRITEUP         WF             WSG:TABLES.WF                                                   
            D4T1     12  TABLES.WRITEUP.WF.003              1 LINE    133   13 PAGE UM   WSG                 SEP. 15, 1977  18:04:18
00004/004   TABLES                   DECKGEN         SA  G  DCKP    MTS:DCKPCHR.S                                                   
            D4T1     13  TABLES.DECKGEN.SA.005              1 LINE     80   73 PAGE UBC            HELFFRICH JULY 27, 1977  21:23:45
0          STAND-ALONE PROGRAM WRITTEN AT UBC AND MODIFIED AT UM WHICH GENERATES AN MTS OBJECT DECK FOR TABLES BASED
           ON INPUT ENTERED FROM THE OPERATOR'S CONSOLE.  IT WILL ALSO WRITE THE GENERATED
           OBJECT DECK ONTO A TAPE, FOR USE WITH IPLREADER (1021), WHICH CAN 
           REPLACE THE TABLES DECK IN A SYSTEM READ BY IPLREADER FROM THE TAPE.
           COPIES *CNFGINFODSECT (654).  ASSEMBLE USING COPY:FILE.MACROS (482/36) 
           AND PAR=IS=67 .
0          Referenced by comments of: 4/1 
00004/005   TABLES                   DECKGEN         OC  G          MTS:DCKPCHR.O                                                   
            D4T1     14  TABLES.DECKGEN.OC.006              1 LINE     80    8 PAGE UBC            HELFFRICH JULY 27, 1977  21:23:51
0          THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE.
00004/006   TABLES                   DECKGEN DESCR   WF             MTS:DCKPCHR.W                                                   
            D4T1     15  TABLES.DECKGEN_DESCR.WF.007        1 LINE    119    7 PAGE UBC            HELFFRICH JULY 27, 1977  21:23:53
0          WRITEUP DESCRIBING HOW TO USE THE DECKGEN PROGRAM TO GENERATE A TABLES OBJECT DECK.  A COPY IS INCLUDED WITH
           THE PAPER DOCUMENTATION.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00005/001   JBRP                                     SA  G  JBRP    MTA:JBRP(1,999)                                                 
            D4T1     16  JBRP..SA.001                       1 LINE     80    7 PAGE UM   MTA                 JULY 27, 1977  21:23:55
0          JOB REQUEST PROCESSOR (TASK INITIALIZATION).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:SETPARM (653).
00005/002   JBRP                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00006/001   FNDJTL                                   SA  G  FNDJ    MTA:FNDJTL(1,999)                                               
            D4T1     17  FNDJTL..SA.001                     1 LINE     80    2 PAGE UM   MTA                 JULY 27, 1977  21:23:58
0          FIND JOB TABLE.
00006/002   FNDJTL                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00007/001   FBJTJL                                   SA  G  FBJT    MTA:FBJTJL(1,999)                                               
            D4T1     18  FBJTJL..SA.001                     1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  21:23:59
0          FREE BUFFERS AND JOB TABLE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           NOTE:  &S370 CAUSES THE 360 AND 370 OBJECT TO BE DIFFERENT.
           ASSEMBLE USING COPY:SETPARM (653).
00007/002   FBJTJL                   370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00007/003   FBJTJL                   360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00008/001   FIDCQ                                    SA  G  FIDC    MTA:FIDCQ                                                       
            D4T1     19  FIDCQ..SA.001                      1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  21:24:01
0          FREE I/O DEVICES AND CPU QUEUE.  UNCHANGED SINCE 1968!
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:SETPARM (653).
00008/002   FIDCQ                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00009/001   BUFALLOC                                 SA  G  BUFA    MTA:BUFALLOC(1,999)                                             
            D4T1     20  BUFALLOC..SA.001                   1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  21:24:03
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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00009/002   BUFALLOC                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00010/001   EXIT                                     SA  G  EXIT    MTA:EXIT(1,999)                                                 
            D4T1     21  EXIT..SA.001                       1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  21:24:05
0          KILLS CALLING TASK.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:SETPARM (653).
00010/002   EXIT                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00011/001   CARDUC                                   SA  G  CDUC    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
0          MAGNETIC TAPE UNIT CHECK ROUTINES.  COPIES COPY:CMDAREADSECT (531/12).
00012/002   TAPEUC                                   OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    SFU  BENET     WSG                              
00013/001   PTRUC                                    SA  G  PTUC    MTA:PTRUC                                                       
            D4T1     24  PTRUC..SA.001                      1 LINE     80   10 PAGE UM   MTA                 JULY 27, 1977  21:25:15
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    S0720 'D3T1' FSNAME=PCHUC..SA.1(1)                            15
            D4T1     25  PUNUC..SA.001                      1 LINE     80    6 PAGE UM   MTA                 JULY 30, 1973  03:31.18
0          2540 PUNCH UNIT CHECK ROUTINES.
00014/002   PUNUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
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                                        
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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  STOP    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    WSG:UTASKS(1,999)                                               
            D4T1     28  TASKS_JOB..SA.001                  1 LINE     80   11 PAGE UM   WSG                 JULY 27, 1977  21:25:22
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/4).
           ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 145/1, 413/1, 647/1 
00019/002   TASKS JOB                                OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00020/001   JOBDUMP                                  SA  G  JBDM    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    S0221 FSAVE FSNAME=BDCS                                         
            D4T1     30  BROADCST..SA.001                   1 LINE     80    9 PAGE UM   WSG                 JAN. 13, 1977  11:57:32
0          JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR
           TO ALL USERS.  HAS A SETB SYMBOL (&NODC) WHICH CONTROLS CONDITIONAL ASSEMBLY
           OF CODE WHICH SENDS BROADCAST MESSAGES TO THE UM DATA CONCENTRATORS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
00021/002   BROADCST                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
0          OBJECT ASSEMBLED WITH &NODC SETB 1.
00023/001   TPMOVE JOBS                              SA  O  TPMV    S0221 FSAVE 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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00023/002   TPMOVE JOBS                              OC  O        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00024/001   ONLINE/OFFLINE                           SA  G  ONOF    MTS:ON/OFFLINE(1,999)                                           
            D4T1     32  ONLINE/OFFLINE..SA.001             1 LINE     80   17 PAGE UM   MTA                 JULY 27, 1977  21:27:39
0          JOB TO ONLINE OR OFFLINE A DEVICE, CONTROL UNIT, CHANNEL, OR CHANNEL-CONTROL UNIT PATH.
           COPIES COPY:GLOBALS (1026/4) 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 ...
               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  UCSI    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.
0          Referenced by comments of: 1027/1 
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                     RPI MASTER      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
1                                                                                               FRI AUG 02/96   16:11:27   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          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
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
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
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
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.
1                                                                                               FRI AUG 02/96   16:11:27   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/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 
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             S0622 D3MISC FSNAME=M338MEMOREX1270(1)                       122
            D4T1     45  TSFO.MEMO_338.WF.012               1 LINE    117    6 PAGE UM   EMERY               JAN. 24, 1977  21:27:23
0          THIS IS COMPUTING CENTER MEMO 338 -- "EXTENSIONS TO MEMOREX 1270 DEVICE SUPPORT
           ROUTINE"
00038/013   TSFO                     MEMO 353        WF             S0622 D3MISC FSNAME=M353MEMOREX(1)                           147
            D4T1     46  TSFO.MEMO_353.WF.013               1 LINE     77    1 PAGE UM   EMERY               MAR. 04, 1977  16:54:45
0          THIS IS COMPUTING CENTER MEMO 353 -- "NEW FEATURES FOR MEMOREX 1270 CONTROLLER"
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00039/002   CASECONV                                 OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   EMERY                                      
00040/001   KEYWRD SUBR - KWIC                       SA  G  KWIC    W170:KWIC.S                                                     
            D4T1     48  KEYWRD_SUBR_-_KWIC..SA.001         1 LINE     80   71 PAGE UM   HELFFRICH           SEP. 15, 1977  18:04:56
0          MTS KEYWORD SCANNER.
0          Referenced by comments of: 344/1 
00040/002   KEYWRD SUBR - KWIC                       OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00040/003   KEYWRD SUBR - KWIC       SPELLING CORR   SA  G  SPEL    W170:KWIC.SPELL(-1000,0)                                        
            D4T1     49  KEYWRD_SUBR_-_KWIC.SPELLI.SA.003   1 LINE     80    4 PAGE UM   HELFFRICH           SEP. 15, 1977  18:05:02
0          KWIC ET AL SPELLING CORRECTION SUBROUTINE, ALSO USER- AND MTS-CALLABLE.
           NOTE:  SOURCE STARTS AT LINE -1000.
00040/004   KEYWRD SUBR - KWIC       SPELLING CORR   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00040/005   KEYWRD SUBR - KWIC       DOCUMENTATION   WF             W170:KWIC.W                                                     
            D4T1     50  KEYWRD_SUBR_-_KWIC.DOCUME.WF.005   1 LINE     81    8 PAGE UM   HELFFRICH           SEP. 15, 1977  18:05:04
0          MEMO DOCUMENTING CURRENT FEATURES OF THE KEYWORD SCANNER.
00041/001   GETSPACE/FREESPAC        D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=GSFS                        
            D4T1     51  GETSPACE/FREESPAC.D4_MAST.SA.001   1 SEQ      80   28 PAGE UM   DWB                 JULY 27, 1977  21:31:43
0          MTS STORAGE (VM) ALLOCATION SUBROUTINES.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 41/2, 344/1 
00041/002   GETSPACE/FREESPAC        UPDATE          UU  G          MTS:GSFSUPD                                                     
            D4T1     52  GETSPACE/FREESPAC.UPDATE.UU.002    1 LINE     72    9 PAGE UM   DWB                 JULY 27, 1977  21:31:43
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (041/1).
           UPDATE DECK USES %POSN *IN* GSFS.
00041/003   GETSPACE/FREESPAC        370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00041/004   GETSPACE/FREESPAC        360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00041/005   GETSPACE/FREESPAC        370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=GSFS.LIST                 
            D4T1     53  GETSPACE/FREESPAC.370_LIS.L.005    1 SEQ     133   61 PAGE UM   DWB                 JULY 27, 1977  21:32:58
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00041/006   GETSPACE/FREESPAC        360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=GSFS.LIST             
            D4T1     54  GETSPACE/FREESPAC.360_LIS.L.006    1 SEQ     133   61 PAGE UM   DWB                 JULY 27, 1977  21:34:00
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   DWB                 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/3), COPY:RATEVEC (651/2), AND COPY:JOBSTA (413/13).
           ASSEMBLE USING COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1 
00042/002   MTS                      UPDATE          UU  G          MTS:MTSUPD                                                      
            D4T1     56  MTS.UPDATE.UU.002                  1 LINE     72   34 PAGE UM   DWB                 SEP. 15, 1977  18:11:11
0          UPDATE DECK TO PRODUCE D4 SOURCE OF MTS FROM D3 MTS MASTER SOURCE.
           NOTE:  UPDATE DECK USES %POSN *IN* MTS.
            
           THE FOLLOWING IS A COMPLETE LIST OF THE MTS PIECES.  THESE ARE THE PIECES WHICH REQUIRE 
           THE DSECT (I.E. USE THE THEDSECT MACRO) AND ITS DEPENDENCIES TO ASSEMBLE.
           THE OBJECT FOR ALL THESE PIECES IS IN RAMROD.
            
               MTS                 042
               GETSPACE/FREESPAC   041
               GUINFO/CUINFO       198
               LLXU                354
               GATE                4000
               PLIMIT              464
               TIMNTRP             539
               RSF                 578
               FSUB                635
               CMDS                636
               DSRS                637
               USUB                638
               DSRI                639
               RATENBR             651/10
            
           IF THE MTS DSECT IS CHANGED, THE FOLLOWING ADDITIONAL COMPONENTS MUST ALSO BE
           REASSEMBLED (I.E. THEY ALSO USE THE THEDSECT MACRO, BUT ARE NOT IN RAMROD):
            
               MTA:DMPLST.SSCN     400/3
               DYSSUB              513
00042/003   MTS                      370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00042/004   MTS                      360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00042/005   MTS                      ASM JOB         C              MTS:MTSASM                                                      
            D4T1     57  MTS.ASM_JOB.C.005                  1 LINE    105    5 PAGE UM   DWB                 JULY 27, 1977  21:34:44
0          AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES FOR A 360.
           AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES FOR A 360.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          AT LINE 2000, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES FOR A 370.
           AT LINE 3000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES FOR A 370.
            
           NOTE:  THIS COMMAND FILE RUNS THE BLOCK HEADER PROGRAM (722) TO PRODUCE LISTING
                  HEADERS AT THE BEGINNING OF EACH PIECE OF MTS.
0          Referenced by comments of: 722/1 
00042/006   MTS                      370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=MTS.LIST                  
            D4T1     58  MTS.370_LISTING.L.006              1 SEQ     133  433 PAGE UM   DWB                 SEP. 15, 1977  18:12:36
00042/007   MTS                      360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=MTS.LIST              
            D4T1     59  MTS.360_LISTING.L.007              1 SEQ     133  432 PAGE UM   DWB                 SEP. 15, 1977  18:13:58
00042/008   MTS                      FILETYPE WORDS  WF             S0938 FSAVE2 LBLTYPE=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/009   MTS                      TSATBL WORDS    WF             WSG:TSATBL.WF                                                   
            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  PDP     MTA:PDP.S                                                       
            D4T1     62  PDP..SA.001                        1 LINE     80   66 PAGE UM   MTA                 SEP. 15, 1977  18:14:16
0          THE PAGING DRUM PROCESSOR.
           COPIES COPY:PCBDSECT (470), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/4).
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 FHF AND IBM 3330 (OR EQUIVALENT) PAGING DISK.
00044/003   PDP                      2301/3330 OBJ   OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
0          VERSION ASSEMBLED FOR USE WITH AN IBM 2301 DRUM AND IBM 3330 (OR EQUIVALENT) PAGING DISK.
00045/001   SUPERVISOR               UMMPS.360       UU  G          S0699 D3TAPE POSN=UMMPS.360.UPD                              12 
            D4T1     63  SUPERVISOR.UMMPS.360.UU.001        1 SEQ      80   32 PAGE UM   MTA                 JULY 27, 1977  21:37:48
0          UPDATE DECK TO APPLY TO D3.0 SUPERVISOR SOURCE TO PRODUCE THE
           LAST VERSION WHICH SUPPORTED THE 360/67 ONLY (045/2).
0          Referenced by comments of: 540/3, 609/1, 611/1 
1                                                                                               FRI AUG 02/96   16:11:27   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/002   SUPERVISOR               UMMPS.360       SA  G          S0699 D3TAPE POSN=UMMPS.360                                  13 
            D4T1     64  SUPERVISOR.UMMPS.360.SA.002        1 SEQ      80  252 PAGE UM   MTA                 JULY 27, 1977  21:37:59
0          MASTER SOURCE FOR LAST 360/67 VERSION.  ASSEMBLY PARAMETERS ARE SET TO USE THE SLT RPQ, INITIALLY CLEAR VM,
           AND NOT TIME THINGS LIKE TS LOOPS.  THESE ARE THE ONLY CONFIGURATION DEPENDENT ASPECTS.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:PSA (162), COPY:PCBDSECT (470), AND COPY:CPSCNPAR (609/3).
           ASSEMBLE USING *SYSMAC.
            
           NOTE:  THE SUPERVISOR HAS 3 PARAMETERS WHICH CONTROL THE OPERATION OF THE PRIVILEDGED JOB MECHANISM.
                  THIS MECHANISM ATTEMPTS TO CONTROL THRASHING BY DETECTING JOBS WHICH REQUIRE A SIZEABLE AMOUNT
                  OF REAL CORE AND ONLY LETTING SUCH JOBS RUN IF THE ESTIMATED WORKING SET SIZE OF ALL SUCH JOBS
                  DOES NOT EXCEED A CERTAIN GLOBAL VALUE.  ONE OF THE 3 PARAMETERS DETERMINES THE THRESHOLD
                  (IN REAL PAGES) AT WHICH THE SUPERVISOR DECIDES (FOR ANY JOB WHICH MANAGES TO ACQUIRE THAT MANY 
                  REAL PAGES) WHETHER OR NOT THE JOB MAY GO FROM "NEUTRAL" TO "PRIVILEDED" AND CONTINUE TO EXECUTE
                  (WITH A LARGER TIME SLICE).  IF THE ANSWER IS NO, THE JOB IS MADE "NON-PRIVILEDGED" FOR A WHILE
                  AND NOT ALLOWED TO EXECUTE.  THE ANSWER IS BASED ON THE SECOND OF THE 3 PARAMETERS, WHICH SPECIFIES
                  HOW MANY REAL PAGES (MAXIMUM) ARE TO BE DEVOTED TO "BIG JOBS", I.E. PRIVILEDGED JOBS.  ACTUALLY,
                  WHEN THE TEST IS MADE FOR A JOB WHICH HAS ACHIEVED THE PARAMETER 1 (BIGJTH) THRESHOLD, THE GREATER
                  OF THE JOB'S ACTUAL REAL PAGES AND HIS ESTIMATED WORKING SET IS USED TO DETERMINE IF THIS JOB WILL
                  "BREAK THE CAMEL'S BACK", I.E. EXCEED THE PARAMETER 2 (ADDBIGJ) THRESHOLD.  FOR THIS REASON, THE
                  SECOND PARAMETER THRESHOLD MAY BE REACHED BEFORE THE CURRENT BIG JOBS COLLECTIVELY HAVE THAT MANY
                  REAL PAGES IF THE CURRENT WORKING SET ESTIMATE FOR ANY OF THE JOBS IS TOO HIGH.  THESE 3
                  PARAMETERS ARE ADJUSTED DYNAMICALLY BY BJPMOD (650/1) IN RESPONSE TO THE SYSTEM LOAD.
0          Referenced by comments of: 45/1, 45/3 
00045/003   SUPERVISOR               UMMPS.370       UU  G          MTA:UMMPS.U                                                     
            D4T1     65  SUPERVISOR.UMMPS.370.UU.003        1 LINE     71   60 PAGE UM   MTA                 AUG. 20, 1977  22:30:18
0          UPDATE TO UMMPS.360 MASTER (045/2) TO PRODUCE THE CURRENT 370 SUPERVISOR (045/4).
           COPIES COPY:CMDAREADSECT (531/12) IN ADDITION TO ITEMS LISTED FOR 045/2.
00045/004   SUPERVISOR               D4 MASTER       SA  G          S0699 D3TAPE POSN=UMMPS.370                                     
            D4T1     66  SUPERVISOR.D4_MASTER.SA.004        1 SEQ      80  318 PAGE UM   MTA                 AUG. 20, 1977  22:31:37
0          MASTER SOURCE FOR DIST 4.0 370 SUPERVISOR.  COPIES COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/3), COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT
           (470), COPY:CPSCNPAR (609/3), AND COPY:CMDAREADSECT (531/12).
0          Referenced by comments of: 45/3 
00045/005   SUPERVISOR               370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00045/006   SUPERVISOR               360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00045/007   SUPERVISOR               370 LISTING     L              S0707 UMMPSL POSN=UMMPS.LISTING.370                             
            D4T1     67  SUPERVISOR.370_LISTING.L.007       1 SEQ     133  598 PAGE UM   MTA                 AUG. 20, 1977  22:32:31
0          ASSEMBLY LISTING FOR 370 SUPERVISOR.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00045/008   SUPERVISOR               360 LISTING     L              S0707 UMMPSL POSN=UMMPS.LISTING.360                             
            D4T1     68  SUPERVISOR.360_LISTING.L.008       1 SEQ     133  570 PAGE UM   MTA                 AUG. 20, 1977  22:33:17
0          ASSEMBLY LISTING FOR 360 SUPERVISOR.
00045/009   SUPERVISOR               SVC WRITEUP     WT             S1073 UNSP FSNAME=SVCDESCR                                      
            D4T1     69  SUPERVISOR.SVC_WRITEUP.WT.009      1 LINE     92   34 PAGE UM   OGDEN               AUG. 06, 1977  12:34:52
0          TEXT/360 INPUT FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS.
00045/010   SUPERVISOR               SVC WRITEUP     PT             MTS:SVC.W                                                       
            D4T1     70  SUPERVISOR.SVC_WRITEUP.PT.010      1 LINE    105   82 PAGE UM   OGDEN               AUG. 14, 1977  18:51:20
0          COPY THIS TO A TN PRINTER @CC (NOT @MCC).
00045/011   SUPERVISOR               TEST SVC STIO   SA  G  TSIO    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
0          TEST PROGRAM FOR SVC STIO TO BE USED IN THE VIRTUAL MACHINE.
00045/012   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/013   SUPERVISOR               TEST PROT SVC   SA  O  TSTP    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
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/014   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
00046/001   CONFIG                   360 UPDATE      UU  G          S0699 D3TAPE POSN=CONFIG.360.UPD                             10 
            D4T1     75  CONFIG.360_UPDATE.UU.001           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:46:43
0          UPDATE TO D3.0 SOURCE TO PRODUCE 46/2.
00046/002   CONFIG                   360 MASTER      SA  G          S0699 D3TAPE POSN=CONFIG.360                                 11 
            D4T1     76  CONFIG.360_MASTER.SA.002           1 SEQ      80   23 PAGE UM   MTA                 JULY 27, 1977  21:46:45
0          CONFIGURATION PROGRAM MASTER SOURCE FOR "360 ONLY" VERSION.  COPIES COPY:LLMPSEQU (087), COPY:PSA (162),
           COPY:GLOBALS (1026/4), COPY:PCBDSECT (470), COPY:CHAERC (577/30), AND COPY:CHASYS.2 (577/35).
00046/003   CONFIG                   370 UPDATE      UU  G          MTA:CONFIG.U                                                    
            D4T1     77  CONFIG.370_UPDATE.UU.003           1 LINE     85   10 PAGE UM   MTA                 SEP. 15, 1977  18:16:02
0          UPDATE TO 046/2 TO PRODUCE CURRENT 370 CONFIG.  COPIES *CNFGINFOSECT (654)
           IN ADDITION TO FILES LISTED FOR 046/2.
00046/004   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/4),
           COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CHAERC (577/30),
1                                                                                               FRI AUG 02/96   16:11:27   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          COPY:CHASYS.2 (577/35), COPY:CMDAREADSECT (531/12), AND *CNFGINFODSECT (654).
00046/005   CONFIG                   370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00046/006   CONFIG                   360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00046/007   CONFIG                   370 LISTING     L              S0707 UMMPSL POSN=CNFG.LISTING.370                              
            D4T1     79  CONFIG.370_LISTING.L.007           1 SEQ     133  108 PAGE UM   MTA                 SEP. 15, 1977  18:18:21
0          ASSEMBLY LISTING FOR 370 CONFIG.
00046/008   CONFIG                   360 LISTING     L              S0707 UMMPSL POSN=CNFG.LISTING.360                              
            D4T1     80  CONFIG.360_LISTING.L.008           1 SEQ     133  112 PAGE UM   MTA                 SEP. 15, 1977  18:19:08
0          ASSEMBLY LISTING FOR 360 CONFIG.
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     SDMP    S0720 'D3T1' FSNAME=SDUMP..SA.1(1)                            58
            D4T1     81  SDUMP_SUBR..SA.001                 1 LINE     80   17 PAGE UM   EMERY               JULY 30, 1973  23:26.25
0          MTS SUBROUTINE TO PRODUCE DUMPS.  ALSO USED BY $DISPLAY COMMAND.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 463/1 
00049/002   SDUMP SUBR                               OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   EMERY                                      
00050/001   STATISTICS SAVE          *STA            C              *STA                                                            
            D4T1     82  STATISTICS_SAVE.*STA.C.001         1 LINE     29    1 PAGE UM   WSG                 JULY 27, 1977  21:50:05
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).
00050/002   STATISTICS SAVE                          SA  G  SSAV    WSG:SSAV(1,999)                                                 
            D4T1     83  STATISTICS_SAVE..SA.002            1 LINE     80    8 PAGE UM   WSG                 JULY 27, 1977  21:50:07
0          PROGRAM TO SAVE *STATISTICS ON TAPE.  THIS PROGRAM IS RUN BY ENTERING "MTS *STA" ON THE OPERATOR'S CONSOLE.
           IT FIRST ASKS THE OPERATOR FOR THE NAME OF THE 9-TRACK TAPE DRIVE ON WHICH HE HAS MOUNTED AN "INDIVIDUAL" STAT
           TAPE (WITH THE RING IN).  THE INDIVIDUAL TAPE (300 FEET IS LONG ENOUGH) SHOULD BE LABELED WITH "STAT  " AS THE
           VOLUME NAME.  THIS PROGRAM WILL THEN COPY *STATISTICS(3,LAST) TO THIS TAPE WHICH IS BLOCKED VB(16379,255).
           THE CURRENT TIME AND DATE WILL BE USED AS THE DATA SET NAME.  THE DATA READ FROM *STATISTICS IS ALSO SAVED IN
           VM AND THE TAPE IS REWOUND AND COMPARED WITH THE VM COPY.  IF THE COMPARE IS SUCCESSFUL, LINE 2 OF *STATISTICS
           (USED TO FIND THE CURRENT FILE ON THE MONTHLY TAPE) IS SAVED AND THE FILE IS EMPTIED.  LINE 1 (USED BY MTS
           FOR HISTORICAL REASONS TO INDICATE THE LAST LINE NUMBER CURRENTLY IN THE FILE) IS SET TO "00002" AND LINE 2
           IS RESTORED AFTER BEING INCREMENTED BY 1.  THE FILE IS THEN UNLOCKED WHICH ALLOWS ANY WAITING USERS TO SIGNOFF.
           THE INDIVIDUAL TAPE IS UNLOADED AND THE OPERATOR IS ASKED TO ENTER THE NAME OF THE TAPE DRIVE WHERE THE MONTHLY
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          TAPE IS MOUNTED (RING IN).  THE MONTHLY TAPE SHOULD HAVE "STATM " AS THE VOLUME NAME.  THE TAPE WILL BE SPACED
           OUT TO THE FILE NUMBER SPECIFIED BY LINE 2 OF *STATISTICS AND THE VM COPY OF THE DATA WILL BE ADDED TO THE
           MONTHLY TAPE AS A NEW FILE.  IF THE MONTHLY TAPE HAS NO FILES ON IT (FRESHLY LABELED), THE PROGRAM WILL ASK THE
           OPERATOR IF HE IS BEGINNING A NEW MONTHLY TAPE AND IF HE REPLIES "YES" THEN IT RESETS LINE 2 OF *STATISTICS.
           THERE IS NOTHING IN THE PROGRAM (OTHER THAN TERMINOLOGY) WHICH IS ORIENTED TO A MONTHLY CYCLE OF TAPES.  THE
           CYCLE IS CONTROLLED BY THE OPERATOR STARTING A NEW "MONTHLY" TAPE.
0          Referenced by comments of: 256/2 
00050/003   STATISTICS SAVE                          OC  G          SYS:STA                                                         
            D4T1     84  STATISTICS_SAVE..OC.003            1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  21:50:09
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                                              
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                                              
1                                                                                               FRI AUG 02/96   16:11:27   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/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                                              
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   ?                   JULY 30, 1973  23:27.01
0          DEMONSTARTION PROGRAM.
00052/002  *COINFLIP                                 OE             *COINFLIP                                                       
            D4T1     86  COINFLIP..OE.002                   1 LINE    255    1 PAGE UM   ?                   JULY 27, 1977  21:50:14
00053/001   DISKDUMP                                 SA  G  DSKD    FILE:DISKDUMP.S                                                 
            D4T1     87  DISKDUMP..SA.001                   1 LINE     80   12 PAGE UM   PIRKOLA             JULY 27, 1977  21:50:16
0          PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS.  DOESN'T CALL MTS FILE ROUTINES.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00053/002   DISKDUMP                                 OC  G          FILE:DISKDUMP                                                   
            D4T1     88  DISKDUMP..OC.002                   1 LINE     80    3 PAGE UM   PIRKOLA             JULY 27, 1977  21:50:18
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
00056      *2250RTN                                  SA  O  R225    S0720 'D3T1' FSNAME=2250RTN..SA.(1)                           68
            D4T1     91  2250RTN..SA.                       1 SEQ      80   26 PAGE UM   PIRKOLA             JULY 30, 1973  23:28.54
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 2250 DISPLAY.  HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
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
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  O  PTSK    S0720 'D3T1' FSNAME=PTSKRTN..SA.(1)                           71
            D4T1     94  PTSKRTN..SA.                       1 SEQ      80   14 PAGE UM   PIRKOLA             JULY 30, 1973  23:30.18
0          PROGRAM TO DISPLAY TASK STATUS ON A 2250. HASN'T BEEN TRIED IN YEARS AND MAY NOT WORK ANYMORE.
           THIS IS A SUBROUTINE CALLED BY 123.
           OBJECT NOT DISTRIBUTED.
           COPIES *LLMPSEQU (WHICH SHOULD BE COPY:LLMPSEQU (087)) TWICE.
0          Referenced by comments of: 123/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00064/001  *OBJSCAN                                  SA  G  SCAN    W062:SCN                                                        
            D4T1     95  OBJSCAN..SA.001                    1 LINE     80   22 PAGE UM   TIFFANY             JULY 27, 1977  21:50:33
0          SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER
           RANGES FOR EACH MODULE ENCOUNTERED.
00064/002  *OBJSCAN                                  OE  G          *OBJSCAN                                                        
            D4T1     96  OBJSCAN..OE.002                    1 SEQ    5256    2 PAGE UM   TIFFANY             JULY 27, 1977  21:50:34
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.
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
1                                                                                               FRI AUG 02/96   16:11:27   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/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
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
1                                                                                               FRI AUG 02/96   16:11:27   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/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
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
1                                                                                               FRI AUG 02/96   16:11:27   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/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
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
1                                                                                               FRI AUG 02/96   16:11:27   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/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  MOD     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
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 
1                                                                                               FRI AUG 02/96   16:11:27   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/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.
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
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
1                                                                                               FRI AUG 02/96   16:11:27   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/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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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.
00067/001   FILE SAVE                MAIN            SA  G  FSAV    RSTR:FILESAVE(1001)                                             
            D4T1    191  FILE_SAVE.MAIN.SA.001              1 LINE     80   37 PAGE UM   HELFFRICH           JULY 27, 1977  21:54:54
0          MTS FILESAVE (DISK BACKUP) PROGRAM.
           THIS PROGRAM IS RUN 6 TIMES PER WEEK AT UM TO BACKUP DISK FILES IN CASE OF HARDWARE (OR
           SOFTWARE) PROBLEMS.  A "FULL SAVE" IS RUN ONCE PER WEEK, A "PARTIAL SAVE" 5 TIMES PER
           WEEK.  THE PARTIAL SAVE SAVES ONLY THOSE FILES WHICH HAVE BEEN CHANGED SINCE
           THE PREVIOUS FILE SAVE.  THE TAPES GENERATED BY THE PARTIAL SAVE ARE RE-CYCLED ON A
           WEEKLY BASIS.  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
            
           A LIST OF FILES NOT SAVED BECAUSE THE USER HAS SET THE "NOSAVE" BIT IS PRODUCED
           ON UNIT 1.  ASSEMBLE USING COPY:FILE.MACROS (482/36) AND THE EDITOR MACROS (648/11).
0          Referenced by comments of: 92/1, 502/7, 716/4 
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
0          ASSEMBLE USING COPY:FILE.MACROS (482/36) AND *SYSMAC.
0          Referenced by comments of: 502/7, 716/2 
00067/003   FILE SAVE                TAPEOUT         SA  G  TOUT    RSTR:TAPEOUT(1001)                                              
            D4T1    193  FILE_SAVE.TAPEOUT.SA.003           1 LINE     80    9 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:08
0          ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 502/7, 716/4 
00067/004   FILE SAVE                VTOCRD          SA  G  VTOC    RSTR:VTOCREAD(1001)                                             
            D4T1    194  FILE_SAVE.VTOCRD.SA.004            1 LINE     80   11 PAGE UM   HELFFRICH           AUG. 14, 1977  18:52:43
0          SUBROUTINE TO READ ENTIRE VTOC OF DISK VOLUME.  ASSEMBLE USING *SYSMAC AND
           COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 104/94, 682/20, 682/40, 1030/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00067/005   FILE SAVE                OBJECT          OC  G          RSTR:FILESAVEOBJ                                                
            D4T1    195  FILE_SAVE.OBJECT.OC.005            1 LINE     80   18 PAGE UM   HELFFRICH           AUG. 14, 1977  18:52:45
0          OBJECT FROM 067/1, 067/2, 067/3, AND 067/4.
00067/006   FILE SAVE                RESTART         SA  G          RSTR:LFS.RESTART(1001)                                          
            D4T1    196  FILE_SAVE.RESTART.SA.006           1 LINE     71    3 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:15
0          PROGRAM USED BY WEEKLY SAVE (067/10) TO CAUSE THE WEEKLY TAPES TO BE RE-USED 
           AFTER THEIR CYCLE PERIOD HAS EXPIRED (6 WEEKS).  THIS HAS TO BE DONE BECAUSE
           OTHERWISE FILESAVE WOULD REFUSE TO REUSE THE TAPES BECAUSE THEY ARE OF AN EARLIER
           DATE THAN THE CURRENT ONE.  ASSEMBLE USING THE EDITOR MACROS (648/11).
0          Referenced by comments of: 67/8 
00067/007   FILE SAVE                RESTART         OC  G          RSTR:LFS.RESTART(1,999)                                         
            D4T1    197  FILE_SAVE.RESTART.OC.007           1 LINE    671    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:17
00067/008   FILE SAVE                SVSTART         C              RSTR:SVSTART                                                    
            D4T1    198  FILE_SAVE.SVSTART.C.008            1 LINE     68    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:20
0          COMMAND AND DATA FILE WHICH IS SOURCED TO BY *SVW (067/10) AND *SVD (067/15).
           THIS FILE STARTS UP THE SEVERAL (2 OR 4) STREAMS WHICH ARE USED FOR THE
           SHORT(PARTIAL) OR LONG (FULL) FILE SAVE.  THE LONG SAVE USES LFS.RESTART 
           (067/6) TO CAUSE THE WEEKLY TAPES TO BE RE-USED AFTER THEIR CYCLE PERIOD
           HAS EXPIRED.
00067/009   FILE SAVE                RSTR:FSS        C              MTS:TST.FSS                                                     
            D4T1    199  FILE_SAVE.RSTR:FSS.C.009           1 LINE    100    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:22
0          COMMAND AND DATA FILE SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4,
           *SVA, *SVB, *SVC, AND *SVE).  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 AND A LIST
           OF THE FILES NOT SAVED BECAUSE THE USER HAS SET THE "NOSAVE" BIT.
00067/010   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
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 WHICH WILL START UP 3 MORE STREAMS (*SV2, *SV3,
           AND *SV4) AUTOMATICALLY SO THAT THE FULL SAVE IS DONE IN 4 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/6, 67/8 
1                                                                                               FRI AUG 02/96   16:11:27   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/011   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
0          THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART
           WEEKLY (FULL) STREAM #1.
00067/012   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
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/013   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
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/014   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
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/015   FILE SAVE                DAILY START     C              *SVD                                                            
            D4T1    205  FILE_SAVE.DAILY_START.C.015        1 LINE     59    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:37
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE DAILY (PARTIAL) FILESAVE PROCESS.
           ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN.
           THIS FILE WILL SOURCE TO RSTR:SVSTART WHICH WILL START UP 3 MORE STREAMS (*SVB, *SVC,
           AND *SVE) AUTOMATICALLY SO THAT THE PARTIAL SAVE IS DONE IN 4 STREAMS.
           EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED.
           INVOKED BY ENTERING "MTS *SVD" ON THE OPERATORS CONSOLE.
0          Referenced by comments of: 67/8 
00067/016   FILE SAVE                DAILY STREAM 1  C              *SVA                                                            
            D4T1    206  FILE_SAVE.DAILY_STREAM_1.C.016     1 LINE     20    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:39
0          THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART
           DAILY (PARTIAL) STREAM #1.
00067/017   FILE SAVE                DAILY STREAM 2  C              *SVB                                                            
            D4T1    207  FILE_SAVE.DAILY_STREAM_2.C.017     1 LINE     20    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:41
0          COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #2.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #2.
00067/018   FILE SAVE                DAILY STREAM 3  C              *SVC                                                            
            D4T1    208  FILE_SAVE.DAILY_STREAM_3.C.018     1 LINE     20    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:44
0          COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #3.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #3.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00067/019   FILE SAVE                DAILY STREAM 4  C              *SVE                                                            
            D4T1    209  FILE_SAVE.DAILY_STREAM_4.C.019     1 LINE     20    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:46
0          COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #4.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #4.
00069      *DRAW                                     SA  O  DRAW    S0720 'D3T1' FSNAME=DRAW..SA.(1)                             167
            D4T1    210  DRAW..SA.                          1 SEQ      80   13 PAGE UM   PIRKOLA             JULY 30, 1973  23:38.23
0          PROGRAM TO DO SIMPLE DRAWING ON A 2250.  HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
00071/001   LISTSTAT                                 SA  G  LSTA    W030:LISTSTAT                                                   
            D4T1    211  LISTSTAT..SA.001                   1 LINE     80   16 PAGE UM   LIFT                JULY 27, 1977  21:56:21
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
           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).
0          Referenced by comments of: 355/1, 707/3 
00071/002   LISTSTAT                                 OC  G          W035:LISTSTAT                                                   
            D4T1    212  LISTSTAT..OC.002                   1 SEQ      80    3 PAGE UM   LIFT                JULY 27, 1977  21:56:23
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                                                            
            D4T1    213  DSK..C.001                         1 LINE     30    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:56:25
0          COMMAND FILE TO RUN DSKMAM (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
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/36).
           SEE COMP 682/4 FOR A WRITEUP.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
0          Referenced by comments of: 73/1 
00074      *2250EDIT                                 SA  O  E225    S0720 'D3T1' FSNAME=2250EDIT..SA.(1)                         175
            D4T1    216  2250EDIT..SA.                      1 SEQ      80   29 PAGE UM   PIRKOLA             JULY 30, 1973  23:39.56
0          PROGRAM TO EDIT FILES USING 2250 DISPLAY.  HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
00076/001   RESERVE DISK             *RSV            C              *RSV                                                            
            D4T1    217  RESERVE_DISK.*RSV.C.001            1 LINE     42    1 PAGE UM   MTA                 JULY 27, 1977  21:56:35
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  RSV     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.
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
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   MTA                 JULY 27, 1977  21:56:41
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   MTA                                        
00078/001   STAT SUBROUTINE                          SA  G  STSB    MTA:STATSUB                                                     
            D4T1    221  STAT_SUBROUTINE..SA.001            1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  21:56:44
0          SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O.
00078/002   STAT SUBROUTINE                          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00079/001   STAT JOB                                 SA  G  STAT    MTA:STATSOU                                                     
            D4T1    222  STAT_JOB..SA.001                   1 LINE     80   17 PAGE UM   MTA                 JULY 27, 1977  21:56:46
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/4) AND COPY:LLMPSEQU (087).
           ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 77/1, 140/1 
1                                                                                               FRI AUG 02/96   16:11:27   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/002   STAT JOB                 370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00079/003   STAT JOB                 360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00080/001   INIT JOB                                 SA  G  INIT    MTA:INITJOB(1,999)                                           78 
            D4T1    223  INIT_JOB..SA.001                   1 LINE     80    3 PAGE UM   MTA                 SEP. 15, 1977  18:21:08
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/4).
00080/002   INIT JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00082/001   DMOD                                     SA  G  DMOD    W045:DMOD                                                       
            D4T1    224  DMOD..SA.001                       1 LINE     80    7 PAGE UM   PIRKOLA             JULY 27, 1977  21:56:50
0          PROGRAM TO PATCH A DISK PAGE.  NOTE:  USE OF THE NEWER PROGRAMS FSTEST (482/34)
           OR VAMREC (3030) IS RECOMMENDED OVER DMOD.
           AVAILABLE COMMANDS ARE:
            
               RNNNNPPPP                READ RELATIVE PAGE PPPP ON PUBLIC VOLUME NUMBER NNNN.
               RHNNNNPPPP               SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. (H MEANS HOLD)
               R                        READ PAGE USING THE LAST NNNNPPPP SPECIFIED.
               RH                       SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME.
               WNNNNPPPP                WRITE RELATIVE PAGE PPPP ON PUBLIC VOLUME NUMBER NNNN.
               WHNNNNPPPP               SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME.
               W                        WRITE PAGE USING THE LAST NNNNPPPP SPECIFIED.
               WH                       SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME.
               D                        DUMP PAGE ON SPRINT.
               I                        INTERRUPT (CALL ERROR).  USED TO RETURN TO MTS SO THAT $MOD CAN BE
                                        USED TO PATCH THE PAGE, THEN $RESTART AND WRITE IT OUT.
00082/002   DMOD                                     OC  G          W045:DMOD.O                                                     
            D4T1    225  DMOD..OC.002                       1 LINE     80    2 PAGE UM   PIRKOLA             JULY 27, 1977  21:56:53
00083/001  *EBCDBCD                                  SA  G  EBBC    S0221 FSAVE FSNAME=EBCDBCD                                      
            D4T1    226  EBCDBCD..SA.001                    1 LINE     80    3 PAGE UM   WSG                 APR. 03, 1975  14:24:47
0          PROGRAM TO TRANSLATE ARBITRARY LENGTH 029 KEYPUNCH RECORDS TO 026.
           SOURCE IN LINES (1,999).
00083/002  *EBCDBCD                                  OC  G          *EBCDBCD                                                        
            D4T1    227  EBCDBCD..OC.002                    1 LINE     80    1 PAGE UM   WSG                 JULY 27, 1977  21:57:14
1                                                                                               FRI AUG 02/96   16:11:27   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/001   AUDIO RESP UNIT - 7772   *ARURTN         SA  G  ARU     S0221 FSAVE FSNAME=ARURTN.SA                                    
            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          S0221 FSAVE FSNAME=ARURTN.OC                                    
            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.
00084/003   AUDIO RESP UNIT - 7772   *SPEAK          D   G          S0720 'D3T1' FSNAME=ARU.*SPEAK.D.3(1)                        189
            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          S0720 'D3T1' FSNAME=ARU.*ARUDEF.D.4(1)                       190
            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  DCVD    S0221 FSAVE FSNAME=DCVD.SA                                      
            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          S0221 FSAVE FSNAME=DCVD.OC                                      
            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  DCVC    S0221 FSAVE FSNAME=DCVC.SA                                      
            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          S0221 FSAVE FSNAME=DCVC.OC                                      
            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.
1                                                                                               FRI AUG 02/96   16:11:27   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/009   AUDIO RESP UNIT - 7772   DCVG SUBR       SA  G  DCVG    S0221 FSAVE FSNAME=DCVG.SA                                      
            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          S0221 FSAVE FSNAME=DCVG.OC                                      
            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          S0720 'D3T1' FSNAME=ARU.*ARUVOC.D.11(1)                      191
            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.
00084/012   AUDIO RESP UNIT - 7772   *CREVOC         SA  G  CREV    S0221 FSAVE FSNAME=CREVOC.SA                                    
            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         SA  G  MSG     S0221 FSAVE FSNAME=MSG.SA                                       
            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          S0221 FSAVE FSNAME=CREVOC.OC                                    
            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  VLST    S0221 FSAVE FSNAME=VLIST.SA                                     
            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          S0221 FSAVE FSNAME=VLIST.OC                                     
            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          S0221 FSAVE FSNAME=DCVDEC.SF                                    
            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).
1                                                                                               FRI AUG 02/96   16:11:27   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/018   AUDIO RESP UNIT - 7772   *DCVDEC         OC  G          S0221 FSAVE FSNAME=DCVDEC.OC                                    
            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          S0720 'D3T1' FSNAME=ARU.*FSK.D.18(1)                         196
            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          S0720 'D3T1' FSNAME=ARU.*IM.D.19(1)                          197
            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.
00084/021   AUDIO RESP UNIT - 7772   *NOTES          D   G          S0720 'D3T1' FSNAME=ARU.*NOTES.D.20(1)                       198
            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          DWB:UBCTFZO.S                                                   
            D4T1    249  2501RTN..SA.001                    1 LINE     80   16 PAGE UM   DWB                 JULY 27, 1977  21:58:36
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
0          OBJECT FOR 2501 ROUTINES AND OMR CONVERT SUBR (576/2).
00087       LLMPSEQU                                 SA  G          COPY:LLMPSEQU                                                   
            D4T1    251  LLMPSEQU..SA.                      1 LINE     80   16 PAGE UM   MTA                 JULY 27, 1977  21:58:40
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/4).
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 24/1, 41/1, 42/1, 44/1, 45/2, 45/4, 46/2, 46/4,
                 63/1, 79/1, 101/1, 104/69, 116/1, 123/1, 135/1, 198/1, 353/2, 354/1, 354/7, 387/9, 388/1, 400/1, 400/3,
                 400/6, 400/7, 413/1, 464/1, 482/5, 487/1, 507/2, 509/1, 513/1, 531/1, 531/4, 531/8, 539/1, 540/1, 540/5,
                 540/7, 545/3, 554/1, 554/3, 570/1, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 577/53, 577/55, 577/58, 578/1,
                 588/1, 589/1, 615/13, 618/1, 621/2, 629/2, 634/1, 635/1, 636/1, 637/1, 638/1, 639/1, 647/1, 651/10, 682/22,
                 693/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
1                                                                                               FRI AUG 02/96   16:11:27   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/001   FILE RESTORE             RSTFMT0         SA  G  FMT     RSTR:RSTFMT0(1001)                                              
            D4T1    252  FILE_RESTORE.RSTFMT0.SA.001        1 LINE     80   47 PAGE UM   HELFFRICH           JULY 27, 1977  21:58:42
0          MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502).
           ASSEMBLE USING *SYSMAC.
00092/002   FILE RESTORE             RSTFMT1         SA  G  FMT1    RSTR:RSTFMT1(1001)                                              
            D4T1    253  FILE_RESTORE.RSTFMT1.SA.002        1 LINE     80   31 PAGE UM   HELFFRICH           JULY 27, 1977  21:58:50
0          SUBROUTINE CALLED BY 092/1.  ASSEMBLE USING *SYSMAC AND THE EDITOR MACRO
           LIBRARY (648/11).
00092/003   FILE RESTORE             RSTFMT2         SA  G  FMT2    RSTR:RSTFMT2(1001)                                              
            D4T1    254  FILE_RESTORE.RSTFMT2.SA.003        1 LINE     80   31 PAGE UM   HELFFRICH           SEP. 15, 1977  18:43:40
0          SUBROUTINE CALLED BY 092/1 AND *RESTORE (712).  ASSEMBLE USING *SYSMAC AND THE
           EDITOR MACRO LIBRARY (648/11).
0          Referenced by comments of: 712/1, 712/2, 712/4 
00092/004   FILE RESTORE                             OC  G          RSTR:RST                                                        
            D4T1    255  FILE_RESTORE..OC.004               1 LINE     80   25 PAGE UM   HELFFRICH           SEP. 15, 1977  18:43:45
0          OBJECT FROM 092/1, 092/2, AND 092/3.
00092/005   FILE RESTORE             *RST            C              *RST                                                            
            D4T1    256  FILE_RESTORE.*RST.C.005            1 LINE     35    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:59:05
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
00094/003  *TIME                     EXPANDED VERS   SA  G          W170:BANAL(1,999)                                               
            D4T1    259  TIME.EXPANDED_VERS.SA.003          1 LINE    120    3 PAGE UM   HELFFRICH HELFFRICH JULY 27, 1977  21:59:11
0          NEW, IMPROVED VERSION OF *TIME WHICH GIVES EXTENDED TIME 
           INFORMATION.
00094/004  *TIME                     EXPANDED VERS   OC  G          W170:TIMEX                                                      
            D4T1    260  TIME.EXPANDED_VERS.OC.004          1 LINE     80    2 PAGE UM   HELFFRICH HELFFRICH JULY 27, 1977  21:59:13
0          THIS OBJECT COULD BE PLACED IN *TIME INSTEAD OF 094/2.
00096/001  *SYMBOLS                                  SA  G  SYMB    W009:SYMBOL.S                                                   
            D4T1    261  SYMBOLS..SA.001                    1 LINE     80   11 PAGE UM   SHERRY              JULY 27, 1977  21:59:15
0          PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL.
1                                                                                               FRI AUG 02/96   16:11:27   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/002  *SYMBOLS                                  OC  G          *SYMBOLS                                                        
            D4T1    262  SYMBOLS..OC.002                    1 LINE   1568    3 PAGE UM   SHERRY              JULY 27, 1977  21:59:17
00097/001   INIT                     *INIT           C              MTS:TST.*INIT                                                   
            D4T1    263  INIT.*INIT.C.001                   1 LINE     45    1 PAGE UM   ENGLE               JULY 27, 1977  21:59:19
0          THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL.  NO
           OPERATOR ACTION IS REQUIRED.  THIS COMMAND FILE SIGNS ON UNDER USER ID INIT AND
           SOURCES TO INIT:INITCMD(1000,1999) ON A 370/470 OR TO INIT:INITCMD(200,2999) 
           ON A 360.
            
           *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/002   INIT                     INIT:INITCMD    C              MTS:TST.INITCMD                                                 
            D4T1    264  INIT.INIT:INITCMD.C.002            1 LINE     82    1 PAGE UM   MTA                 JULY 27, 1977  21:59:21
0          LINES (1000,1999) OF THIS FILE CONTAIN THE COMMANDS NECESSARY TO INITIALIZE THE
           SYSTEM AFTER A RE-LOAD ON A 370 MACHINE.  THE FOLLOWING FUNCTIONS ARE PERFORMED:
            
            (1)  THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF
                 IN *STATISTICS TO VERIFY (AT LEAST PARTIALLY) THAT THEY ARE CORRECT.
            (2)  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.
            (3)  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 AND FHF8.
            (4)  SIX FILES (*USERS, *TALLY, *IG.3270.370, *CLSED, AND COPY:GLOBALSETS) ARE EMPTIED
                 AND REPLACED WITH THEIR APPROPRIATE 370 VERSIONS.
            (5)  THE PDP IS STARTED.
            (6)  THE POST-IPL LOADER (MTS *S2L) IS STARTED.
            (7)  MTS *CMD (531/3) IS STARTED TO BEGIN THE CMDSTAT DATA COLLECTI
            (8)  MTS *FSM (716/15) IS STARTED TO CLEAN UP THE ONLINE FILE SAVE DIRECTORIES.
            (9)  THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED.
            (10) SEVERAL SYSTEM LOADING PARAMETERS ARE SET.
            (11) THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN
                 THE SYSTEM LAST WENT DOWN.
            (12) THE INIT PROGRAM IS RUN.  IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES)
                 OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE A LIST (IN 5 FILES) OF ALL
                 OF THE USER IDS WHICH WERE IN USE (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
                 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.
            
            
           LINES (2000,2999) OF THIS FILE CONTAIN THE COMMANDS NECESSARY TO INITIALIZE THE
           SYSTEM AFTER A RE-LOAD ON A 360 MACHINE.  THE FOLLOWING FUNCTIONS ARE PERFORMED:
1                                                                                               FRI AUG 02/96   16:11:27   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           
            (1)  THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF
                 IN *STATISTICS TO VERIFY (AT LEAST PARTIALLY) THAT THEY ARE CORRECT.
            (2)  THE CURRENT DATE AND TIME ARE WRITTEN AT THE END OF THE 360/67 MACHINE CHECK
                 ERRPR COMMENT FILE (INIT:ERCOM).
            (3)  THE PROGRAM CZASE IS RUN TO FORMAT ANY MACHINE CHECK LOGOUTS (FOUND IN THE DRUM CRACKS),
                 AND WRITE THEM AT THE END OF THE FILE INIT:LOGOUT.  IT ALSO WRITES THEM UNFORMATTED
                 IN THE FILE INIT:DRUMCRACKS.
            (4)  THE PROGRAM INITLOG IS RUN TO PRINT THE CURRENT HARDWARE CONFIGURATION, OBTAIN THE
                 REASON FOR RELOADING FROM THE OPERATOR, AND WRITE IT AT THE END OF THE FILE INIT:LOG.
            (5)  DINIT IS RUN TO INITIALIZE THE DRUMS (ASSUMES DRM1 AND DRM2).
            (6)  DRMINIT IS RUN TO WRITE THE MACHINE CHECK RECOVERY CODE ONTO THE DRUMS.
                 INIT:MCFILES HAS A LIST OF FILES CONTAINING THE CODE.  A MAP IS WRITTEN ON INIT:MCMAP.
            (7)  SIX FILES (*USERS, *TALLY, *IG.3270.370, *CLSED, AND COPY:GLOBALSETS) ARE EMPTIED
                 AND REPLACED WITH THEIR APPROPRIATE 360 VERSIONS.
            (8)  THE PDP IS STARTED.
            (9)  THE POST-IPL LOADER (MTS *S2L) IS STARTED.
            (10) MTS *CMD (531/3) IS STARTED TO BEGIN THE CMDSTAT DATA COLLECTI
            (11) MTS *FSM (716/15) IS STARTED TO CLEAN UP THE ONLINE FILE SAVE DIRECTORIES.
            (12) THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED.
            (13) SEVERAL SYSTEM LOADING PARAMETERS ARE SET.
            (14) THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE
                 SYSTEM LAST WENT DOWN.
            (15) THE INIT PROGRAM IS RUN.  IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10),
                 MTS *INIT(20), ETC.) TO MAKE A LIST (IN 5 FILES) OF ALL OF THE USER IDS WHICH WERE IN USE (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 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 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: 97/12, 531/3, 559/1 
00097/003   INIT                     INIT:INIT       OE  G          S0027 DISTRB FSNAME=INIT                                        
            D4T1    265  INIT.INIT:INIT.OE.003              1 LINE   1430    4 PAGE UM   ENGLE               SEP. 16, 1976  13:45:49
0          PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN.
           PATCHED TO CHANGE THE NAMES IN ACCIO TO PUBLIC FILES.
           THIS FILE MUST BE GIVEN THE PROGRAM KEY INIT.
0          Referenced by comments of: 104/67 
00097/004   INIT                     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/57).
1                                                                                               FRI AUG 02/96   16:11:27   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/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
00097/006   INIT                     INIT:CLEAN      SA  G  SFDS    W045:SFDESTRY                                                   
            D4T1    268  INIT.INIT:CLEAN.SA.006             1 LINE     80    3 PAGE UM   PIRKOLA             JULY 27, 1977  22:03:04
0          PROGRAM TO DESTROY SCRATCH FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00097/007   INIT                     INIT:CLEAN      OC  G          INIT:CLEAN                                                      
            D4T1    269  INIT.INIT:CLEAN.OC.007             1 LINE     80    1 PAGE UM   PIRKOLA             JULY 27, 1977  22:03:07
00097/008   INIT                     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.
           THIS PROGRAM IS ONLY USED IN 360 VERSION ON MTS.
00097/009   INIT                     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
00097/010   INIT                     INIT:INITLOG    SA  G  INIL    MTA:INITLOG(1,999)                                              
            D4T1    272  INIT.INIT:INITLOG.SA.010           1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  22:03:16
0          PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD.
           COPIES COPY:CHACST (577/28) AND *CNFGINFODSECT (654).
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 97/2 
00097/011   INIT                     INIT:INITLOG    OC  G          INIT:INITLOG                                                    
            D4T1    273  INIT.INIT:INITLOG.OC.011           1 LINE     80    2 PAGE UM   MTA                 JULY 27, 1977  22:03:18
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  PFMT    MTA:FMT2305.S                                                   
            D4T1    274  INIT.FMT2305.SA.012                1 LINE     80    9 PAGE UBC  MTA                 JULY 27, 1977  22:03:21
0          MTS PROGRAM TO INITIALIZE (I.E. FORMAT) A 2305 OR ITS UNDERSTUDY.
           THIS PROGRAM IS RUN FROM INIT:INITCMD (097/2) ON 370 SYSTEM STARTUP TO FORMAT A 2305
           BEFORE STARTING THE PDP.
00097/013   INIT                     FMT2305         OC  G          INIT:FMT2305                                                    
            D4T1    275  INIT.FMT2305.OC.013                1 SEQ      80    2 PAGE UBC  MTA                 JULY 27, 1977  22:03:23
00098      *SQUASH                                   SA           # (OBSOLETED BY *LINKEDIT, COMP 297)                              
            D2T1    278                                                             UM                                              
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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.  (THIS PROGRAM HAS BEEN REMOVED FROM UM DOCUMENTATION.)
00100/002  *FILEDUMP                                 OC  G          *FILEDUMP                                                       
            D4T1    277  FILEDUMP..OC.002                   1 LINE     80    3 PAGE UM   PIRKOLA             JULY 27, 1977  22:03:27
00101/001   MOUNT COMMAND                            SA  G  MNT     WSG:MOUNTCMD                                                    
            D4T1    278  MOUNT_COMMAND..SA.001              1 LINE     80   69 PAGE UM   WSG                 JULY 27, 1977  22:03:29
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).
           AS DISTRIBUTED, ONLY 11 9-TRACK AND ONE 7-TRACK TAPE ARE SUPPORTED.  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).  COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/3), AND COPY:JOBSTA (413/13).  ASSEMBLE WITH SIZE=12 AND USING
           COPY:MTS.MACROS (344).
0          Referenced by comments of: 101/2, 447/1 
00101/002   MOUNT COMMAND            *CLSMOUNT       OC  G          WSG:MNTOBJ.D4                                                   
            D4T1    279  MOUNT_COMMAND.*CLSMOUNT.OC.002     1 LINE     80    6 PAGE UM   WSG                 JULY 27, 1977  22:03:39
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                                   
            D4T1    280  ACCOUNTING.ACCFORMAT.SA.001        1 SEQ      80    2 PAGE UM   ENGLE               OCT. 05, 1976  14:56:02
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:
            
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0              *STATUS                  STAT+AIO+IOLC+GTFL
               ACC:ACCMAINT             AMAT+ACCLIB
               INIT:INIT(1,999)         AINT+AFLU+AIO+ACAT+FLRT+CSIG+GTFL+SYSDEFS
               INIT:INIT(1000)          AINS+FLNM+GTFL
               *ACCRESTORE              ASTR+AFLU+AIO+GTFL+ACAT+FLRT+CSIG+SYSDEFS
               ACC:PROJECTMAINT         APMT+ACCLIB
               ACC:PROJECTLIST          APLS+ACCLIB
               ACC:PROJECTDISP          APDS+ACCLIB
               ACC:DIRLIST              DLST+ACCLIB
               ACCUPDAT                 ARDW+PRINT+AIO+TTRP+GTFL+OLDPRINT+ACCPRINT+ACCUPDAT
               ACC:ACCLISTING           ALST+ACCLIB
               ACC:ACCDISPLAY           ADSP+ACCLIB
               ACC:ACCERRORSCAN         ACNS+ACCLIB
               ACC:ACCHEXDISP           ADSP+AXPR+ACCLIB
               ACC:ACCFILCHARGE         ADSP+AFLC+ACCLIB
               ACC:ACCSAVE              ASAV+ACCLIB
               ACC:DIRDISPLAY           DDSP+ACCLIB
               ACC:STAPROJECT           SPCL+(AMXM PATCHED FROM SPPA)+AUPR+ACCLIB
               ACC:ACCPASWD             APSW+GTFL+AIO+FLNM
               ACC:GETFILECHG           FLUP+AIO+FLRT+TTRP+GTFL+SYSDEFS
               ACC:ACCLIB               ACAT+AERR+AFIN+AFLA+AFIO+AFLU+AIO+ALPR+ALST+APLS+APPR+APRT+CSIG+DIR+DPRT+FIOC
                                        +FLNM+FLRT+FLSH+GTFL+IOLC+RBTA+STRD+TTRP+SYSDEFS
                                        (SEE ACCOUNTING CLS FOR FIOC (631/11) 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/3, 104/5, 104/9, 104/11, 104/15, 104/23, 104/38, 104/40, 104/48, 104/50,
                 104/65, 104/67, 104/72, 104/74, 104/76, 104/82, 502/1, 586/1, 631/6, 631/8, 632/3 
00104/002   ACCOUNTING               ACCPROJFMT      SA  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.ACCPROJFMT.SA.02(1)          53
            D4T1    281  ACCOUNTING.ACCPROJFMT.SA.002       1 SEQ      80    1 PAGE UM   ENGLE               MAY  03, 1974  11:49.29
0          COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT.
0          Referenced by comments of: 104/15, 104/27, 104/32, 104/40, 500/18, 500/22, 631/6 
00104/003   ACCOUNTING               ACCERROR        SA  G  AERR    S0027 DISTRB FSNAME=ACCERROR                                    
            D4T1    282  ACCOUNTING.ACCERROR.SA.003         1 LINE     80    8 PAGE UM   ENGLE               OCT. 05, 1976  15:16:31
0          CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN.
           COPIES ACCFORMAT (104/1).
00104/004   ACCOUNTING               ACCERROR        OC  G          S0027 DISTRB FSNAME=AERR                                        
            D4T1    283  ACCOUNTING.ACCERROR.OC.004         1 LINE     80    2 PAGE UM   ENGLE               OCT. 05, 1976  15:17:04
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00104/005   ACCOUNTING               ACCPRINT        SA  G  APRT    S0027 DISTRB FSNAME=ACCPRINT                                    
            D4T1    284  ACCOUNTING.ACCPRINT.SA.005         1 LINE     80   10 PAGE UM   ENGLE               OCT. 05, 1976  14:56:20
0          FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS.
           COPIES ACCFORMAT (104/1).
00104/006   ACCOUNTING               ACCPRINT        OC  G          S0027 DISTRB FSNAME=APRT                                        
            D4T1    285  ACCOUNTING.ACCPRINT.OC.006         1 LINE     80    5 PAGE UM   ENGLE               OCT. 05, 1976  15:15:13
00104/007   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/008   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/009   ACCOUNTING               ACCINITL        SA  G          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/010   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/011   ACCOUNTING               STATUS          SA  G  STAT    S0027 DISTRB FSNAME=STATUS                                      
            D4T1    290  ACCOUNTING.STATUS.SA.011           1 LINE     80   18 PAGE UM   ENGLE               JUNE 28, 1977  16:28:57
0          MAIN PROGRAM FOR *STATUS.  COPIES ACCFORMAT (104/1).
00104/012   ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STAT                                        
            D4T1    291  ACCOUNTING.STATUS.OC.012           1 LINE     80    5 PAGE UM   ENGLE               JUNE 28, 1977  16:31:09
0          Referenced by comments of: 129/2 
00104/013   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/57) AND COPY:RATEVEC (651/2).
0          Referenced by comments of: 484/1 
00104/014   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/015   ACCOUNTING               ACCMAINT        SA  G  AMAT    S0027 DISTRB FSNAME=ACCMAINT                                    
            D4T1    294  ACCOUNTING.ACCMAINT.SA.015         1 LINE     80   57 PAGE UM   ENGLE               MAR. 10, 1977  17:13:01
0          MAIN PROGRAM FOR ACCMAINT.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
1                                                                                               FRI AUG 02/96   16:11:27   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/016   ACCOUNTING               ACCMAINT        OC  G          S0027 DISTRB FSNAME=AMAT                                        
            D4T1    295  ACCOUNTING.ACCMAINT.OC.016         1 LINE     80   10 PAGE UM   ENGLE               MAR. 10, 1977  17:13:21
00104/017   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/31, 104/105 
00104/018   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 LIBRARY TO CHANGE FILE NAMES TO PUBLIC FILES.
0          Referenced by comments of: 129/2, 484/1, 631/12 
00104/019   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/25).
0          Referenced by comments of: 104/25, 682/40 
00104/020   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/021   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/022   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/023   ACCOUNTING               ACCSTRUP        SA  G          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/024   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/025   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/19) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE
           COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION.
0          Referenced by comments of: 104/19, 682/40 
1                                                                                               FRI AUG 02/96   16:11:27   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/026   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/50 
00104/027   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/35) + PCONVERT + ACCLIB (104/31).  NEW PROJECT FILE IS PRODUCED ON SPUNCH.
           COPIES ACCPROJFMT (104/2).
00104/028   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
00104/029   ACCOUNTING               ACCPRJMT        SA  G  APMT    S0027 DISTRB FSNAME=ACCPRJMT                                    
            D4T1    308  ACCOUNTING.ACCPRJMT.SA.029         1 LINE     80   28 PAGE UM   ENGLE               MAR. 10, 1977  17:13:29
0          MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT.  RUN WITH PROT=OFF
00104/030   ACCOUNTING               ACCPRJMT        OC  G          S0027 DISTRB FSNAME=APMT                                        
            D4T1    309  ACCOUNTING.ACCPRJMT.OC.030         1 LINE     80    5 PAGE UM   ENGLE               MAR. 10, 1977  17:13:35
00104/031   ACCOUNTING               ACCLIB          OL  G          S0027 DISTRB FSNAME=ACCLIB                                      
            D4T1    310  ACCOUNTING.ACCLIB.OL.031           1 LINE     80   19 PAGE UM   ENGLE               MAR. 02, 1977  11:49:12
0          THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/17) TO PUBLIC FILES.
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  R PKEY=FILEINFO.
0          Referenced by comments of: 104/27, 632/1, 632/3, 632/5, 682/40 
00104/032   ACCOUNTING               ACPRJPRT        SA  G  APPR    S0027 DISTRB FSNAME=ACPRJPRT                                    
            D4T1    311  ACCOUNTING.ACPRJPRT.SA.032         1 LINE     80    9 PAGE UM   ENGLE               MAY  26, 1976  09:44:37
0          SUBROUTINE TO PRINT A RECORD FROM *PROJECT.
           COPIES ACCPROJFMT (104/2).
00104/033   ACCOUNTING               ACPRJPRT        OC  G          S0027 DISTRB FSNAME=APPR                                        
            D4T1    312  ACCOUNTING.ACPRJPRT.OC.033         1 LINE     80    3 PAGE UM   ENGLE               MAY  26, 1976  09:44:50
00104/034   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/22 
00104/035   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/27 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00104/036   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/037   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/038   ACCOUNTING               ACCPASWD        SA  G  APSW    S0720 'D3T1' FSNAME=ACCOUNTING.ACCPASWD.SA.39(1)             271
            D4T1    317  ACCOUNTING.ACCPASWD.SA.038         1 LINE     80    5 PAGE UM   ENGLE               OCT. 05, 1972  15:22.09
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/107, 104/108 
00104/039   ACCOUNTING               ACCPASWD        OC  G          S0027 DISTRB FSNAME=APSW                                        
            D4T1    318  ACCOUNTING.ACCPASWD.OC.039         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:28:01
00104/040   ACCOUNTING               ACONSIST        SA  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.ACONSIST.SA.40(1)            75
            D4T1    319  ACCOUNTING.ACONSIST.SA.040         1 LINE     80   13 PAGE UM   ENGLE               DEC. 06, 1974  11:33.54
0          MAIN PROGRAM FOR ACCERRORSCAN.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
00104/041   ACCOUNTING               ACONSIST        OC  G          S0027 DISTRB FSNAME=ACNS                                        
            D4T1    320  ACCOUNTING.ACONSIST.OC.041         1 LINE     80    4 PAGE UM   ENGLE               DEC. 05, 1975  10:31:08
00104/042   ACCOUNTING               FILENAME        SA  G  FLNM    S0720 'D3T1' FSNAME=ACCOUNTING.FILENAME.SA.43(1)             275
            D4T1    321  ACCOUNTING.FILENAME.SA.042         1 LINE     80    1 PAGE UM   ENGLE               OCT. 05, 1972  15:37.25
0          CONTAINS THE NAMES OF THE FILES *ACCOUNTING, *PWSTAT, *PROJECT, *PROJDIRECTORY, AND *STATISTICS.
00104/043   ACCOUNTING               FILENAME        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.FILENAME.OC.44(1)             276
            D4T1    322  ACCOUNTING.FILENAME.OC.043         1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:37.58
0          Referenced by comments of: 631/12 
00104/044   ACCOUNTING               DIRECTRY        SA  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRECTRY.SA.44(1)            77
            D4T1    323  ACCOUNTING.DIRECTRY.SA.044         1 LINE     80   17 PAGE UM   ENGLE               DEC. 06, 1974  11:35.19
0          I/O SUBROUTINES FOR THE DIRECTORY FILE.  COPIES *CNFGINFODSECT (654).
00104/045   ACCOUNTING               DIRECTRY        OC  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRECTRY.OC.45(1)            78
            D4T1    324  ACCOUNTING.DIRECTRY.OC.045         1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  11:35.55
0          Referenced by comments of: 631/12 
00104/046   ACCOUNTING               DIRLIST         SA  G          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.
1                                                                                               FRI AUG 02/96   16:11:27   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/047   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/048   ACCOUNTING               FILUPDAT        SA  G  FLUP    S0027 DISTRB FSNAME=FILUPDAT                                    
            D4T1    327  ACCOUNTING.FILUPDAT.SA.048         1 LINE     80    6 PAGE UM   ENGLE               DEC. 05, 1975  10:33:05
0          PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE MONTH OR EXPIRATION TIME.
           IT BOTH 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/107, 104/108 
00104/049   ACCOUNTING               FILUPDAT        OC  G          S0027 DISTRB FSNAME=FLUP                                        
            D4T1    328  ACCOUNTING.FILUPDAT.OC.049         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:34:49
00104/050   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/26).  COPIES ACCFORMAT (104/1).
00104/051   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/052   ACCOUNTING               STAPRJPA        SA  O  SPPA    S0027 DISTRB FSNAME=STAPRJPA                                    
            D4T1    331  ACCOUNTING.STAPRJPA.SA.052         1 LINE     80    1 PAGE UM   ENGLE               SEP. 15, 1977  17:12:53
0          TXT PATCH RECORDS FOR ACCMXMAT USED IN ACC:STAPROJECT (104/54).  COPIES
           COPY:RATEVEC (651/2).
00104/053   ACCOUNTING               STAPRJPA        OC  O          S0027 DISTRB FSNAME=SPPA                                        
            D4T1    332  ACCOUNTING.STAPRJPA.OC.053         1 LINE     80    1 PAGE UM   ENGLE               SEP. 15, 1977  17:13:41
00104/054   ACCOUNTING               STAPRJCL        SA  O  SPCL    S0027 DISTRB FSNAME=STAPRJCL                                    
            D4T1    333  ACCOUNTING.STAPRJCL.SA.054         1 LINE     80    1 PAGE UM   ENGLE               SEP. 15, 1977  17:14:31
0          MAIN PROGRAM FOR ACC:STAPROJECT.  CALLS ACCMXMAT WHICH HAS BEEN PATCHED WITH TXT RECORDS FROM STAPRJPA.
0          Referenced by comments of: 104/52 
00104/055   ACCOUNTING               STAPRJCL        OC  O          S0027 DISTRB FSNAME=SPCL                                        
            D4T1    334  ACCOUNTING.STAPRJCL.OC.055         1 LINE     80    1 PAGE UM   ENGLE               SEP. 15, 1977  17:15:31
00104/056   ACCOUNTING               STAPROJECT      OC  O          S0027 DISTRB FSNAME=STAPROJECT                                  
            D4T1    335  ACCOUNTING.STAPROJECT.OC.056       1 LINE     80    8 PAGE UM   ENGLE               SEP. 15, 1977  17:16:10
0          PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT.  RUN WITH PROT=OFF.
           CONTAINS A "$CONTINUE WITH ACC:ACCLIB" RECORD.
            
           >>>>>>>> NOTE:  REP CARD IN THIS OBJECT CAUSES THE PRINT SUBROUTINE (631/8)
                    TO IGNORE THE SETTING OF THE HIGH PRIORITY FLAG.
1                                                                                               FRI AUG 02/96   16:11:27   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/057   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/13, 104/65, 104/67, 104/69, 104/76, 104/80, 104/86, 104/97, 360/1, 500/28,
                 586/1, 631/1, 631/4, 631/10, 632/3, 708/1 
00104/058   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/64).
00104/059   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/060   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/061   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/062   ACCOUNTING               DIRPRINT        SA  G          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/063   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
00104/064   ACCOUNTING               INITCHK                      # (SEE COMP 097/5 AND 097/6)                                      
                                                                                    UM   ENGLE                                      
0          Referenced by comments of: 104/58 
00104/065   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/57).
00104/066   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/067   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/57).
1                                                                                               FRI AUG 02/96   16:11:27   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/068   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/069   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/57) 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/070   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/071   ACCOUNTING               DEDFLFIX                     # (SEE COMP 502/9 AND 502/10)                                     
                                                                                    UM   ENGLE                                      
00104/072   ACCOUNTING               ACCLSTPR        SA  G  ALPR    S0027 DISTRB FSNAME=ACCLSTPR                                    
            D4T1    349  ACCOUNTING.ACCLSTPR.SA.072         1 LINE     80    9 PAGE UM   ENGLE               OCT. 05, 1976  15:15:19
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT.  COPIES ACCFORMAT (104/1).
00104/073   ACCOUNTING               ACCLSTPR        OC  G          S0027 DISTRB FSNAME=ALPR                                        
            D4T1    350  ACCOUNTING.ACCLSTPR.OC.073         1 LINE     80    3 PAGE UM   ENGLE               OCT. 05, 1976  15:16:22
00104/074   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).
00104/075   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/076   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/57).
00104/077   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/078   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.
1                                                                                               FRI AUG 02/96   16:11:27   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/079   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/080   ACCOUNTING               TIMETRP         SA  G          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/57).
00104/081   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/12 
00104/082   ACCOUNTING               ACCSGATR        SA  G          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/107, 104/108 
00104/083   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/084   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.
00104/085   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/086   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/57).
00104/087   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/088   ACCOUNTING               GETFILE         SA  G  GTFL    S0027 DISTRB FSNAME=GETFILE                                     
            D4T1    365  ACCOUNTING.GETFILE.SA.088          1 LINE     80    3 PAGE UM   ENGLE               SEP. 16, 1976  13:29:52
0          SUBROUTINE TO GET A FDUB, ETC.
00104/089   ACCOUNTING               GETFILE         OC  G          S0027 DISTRB FSNAME=GTFL                                        
            D4T1    366  ACCOUNTING.GETFILE.OC.089          1 LINE     80    1 PAGE UM   ENGLE               SEP. 16, 1976  13:29:58
0          Referenced by comments of: 129/2, 484/1, 631/12 
1                                                                                               FRI AUG 02/96   16:11:27   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/090   ACCOUNTING               ACATALOG        SA  G  ACAT    W045:ACATALOG                                                   
            D4T1    367  ACCOUNTING.ACATALOG.SA.090         1 LINE     80    4 PAGE UM   PIRKOLA             JULY 27, 1977  22:18:31
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/36).
00104/091   ACCOUNTING               ACATALOG        OC  G          W045:ACATALOG.O                                                 
            D4T1    368  ACCOUNTING.ACATALOG.OC.091         1 LINE     80    1 PAGE UM   PIRKOLA             JULY 27, 1977  22:18:33
0          Referenced by comments of: 484/1 
00104/092   ACCOUNTING               ACATALOG        SA  G  ACAT    MTA:ACATALOG(1,999)                                             
            D4T1    369  ACCOUNTING.ACATALOG.SA.092         1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  22:18:36
0          THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION,
           BUT CALLS THE ACATSUB SUBROUTINE (104/94) 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/94, 682/40 
00104/093   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/094   ACCOUNTING               ACATSUB         SA  G  ACSB    FILE:ACATSUB(1,999)                                             
            D4T1    371  ACCOUNTING.ACATSUB.SA.094          1 LINE     80   13 PAGE UM   MTA                 JULY 27, 1977  22:18:40
0          SUBROUTINE CALLED BY SUPER ACATALOG (104/92) 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/36).
0          Referenced by comments of: 104/92, 682/26, 682/40 
00104/095   ACCOUNTING               ACATSUB         OC  G          FILE:ACATSUB(1000)                                              
            D4T1    372  ACCOUNTING.ACATSUB.OC.095          1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  22:18:43
00104/096   ACCOUNTING               WRITEUP         WF  G          S0027 DISTRB FSNAME=ACCWRITEUP                                  
            D4T1    373  ACCOUNTING.WRITEUP.WF.096          1 LINE     80    7 PAGE UM   ENGLE               MAY  05, 1977  14:59:04
0          A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS.
1                                                                                               FRI AUG 02/96   16:11:27   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/097   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/57).
0          Referenced by comments of: 129/2, 631/12 
00104/098   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
00104/099   ACCOUNTING               FLINFCL         SG  G          S0027 DISTRB FSNAME=FLINFCL                                     
            D4T1    376  ACCOUNTING.FLINFCL.SG.099          1 LINE     59    1 PAGE UM   ENGLE               MAR. 02, 1977  11:36:57
0          GOM PROGRAM TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE BY
           EXPIRED SIGNON ID'S (DEAD), AND INITIAL CHARACTER OF PROJECT NUMBER.  IT ALSO
           PRINTS A LIST OF FILE USAGE FOR SIGNON ID'S BELONGING TO PROJECT NUMBERS
           BEGINNING WITH THE LETTER W.  IF NO PARAMETER IS GIVEN, FILES BELONGING TO ID'S
           EXPIRING AT OR BEFORE THE PREVIOUS MIDNIGHT ARE CONSIDERED DEAD.  IF A PARAMETER
           IS GIVEN, IT IS A DATE IN THE FORM MM/DD/YY; AND FILES BELONGING TO ID'S EXPIRING
           AT OR BEFORE MIDNIGHT OF THAT DATE ARE CONSIDERED DEAD.  THIS SECTION LOADS THE
           MAIN FUNCTION (104/101) FROM ACC:ACCLIB+NEW:GOMLIB.
00104/100   ACCOUNTING               FLINFCL         OC  G          S0027 DISTRB FSNAME=FICL                                        
            D4T1    377  ACCOUNTING.FLINFCL.OC.100          1 LINE     80    1 PAGE UM   ENGLE               MAR. 02, 1977  11:36:59
0          THIS FILE HAS THE PROGRAM KEY ACC.:FILEINFO.
00104/101   ACCOUNTING               ACCFLINF        SG  G          S0027 DISTRB FSNAME=ACCFLINF                                    
            D4T1    378  ACCOUNTING.ACCFLINF.SG.101         1 LINE    100    3 PAGE UM   ENGLE               MAR. 02, 1977  11:39:05
0          GOM MAIN FUNCTION TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE.
0          Referenced by comments of: 104/99, 104/103, 104/105 
00104/102   ACCOUNTING               ACCFLINF        OC  G          S0027 DISTRB FSNAME=AFIN                                        
            D4T1    379  ACCOUNTING.ACCFLINF.OC.102         1 LINE     80    6 PAGE UM   ENGLE               MAR. 02, 1977  11:39:14
00104/103   ACCOUNTING               ACCFLATN        SG  G          S0027 DISTRB FSNAME=ACCFLATN                                    
            D4T1    380  ACCOUNTING.ACCFLATN.SG.103         1 LINE     52    1 PAGE UM   ENGLE               MAR. 02, 1977  11:41:11
0          GOM ATTENTION INTERRUPT EXIT FOR ACCFLINF (104/101).
00104/104   ACCOUNTING               ACCFLATN        OC  G          S0027 DISTRB FSNAME=AFLA                                        
            D4T1    381  ACCOUNTING.ACCFLATN.OC.104         1 LINE     80    1 PAGE UM   ENGLE               MAR. 02, 1977  11:41:25
00104/105   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/101)
           AND ACCSCAN AND ACCCLOSE (104/17).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00104/106   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/107   ACCOUNTING               *ACCOUNTING     D   G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   ENGLE                                      
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:
           U/N,R (PKEY=*SYS.ACC,PKEY=*ACC,PKEY=*STATUS,PKEY=INIT:INIT,PKEY=MTS.:CKID,
           PKEY=(ACCPASWD (104/38)),PKEY=(ACCSGATR (104/82)),PKEY=(FIX (502/11)),
           PKEY=*ACRESTORE,PKEY=(SCANFILES (502/1))),WE PKEY=INIT:INITCHK,RW ACC.,
           RWE (PKEY=(FILUPDAT (104/48)),MTS.&PKEY=MTS.:DISASTER)
00104/108   ACCOUNTING               *ACCOUNTINGN    D   G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   ENGLE                                      
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:
           U/N,RWC (PKEY=*SYS.ACC,PKEY=*ACC,PKEY=INIT:INIT,PKEY=(FIX (502/11)),PKEY=*ACRESTORE,
           PKEY=(FILUPDAT (104/48)),PKEY=(SCANFILES (502/1)),PKEY=(ACCPASWD (104/38)),
           PKEY=(ACCSGATR (104/82)),MTS.&PKEY=MTS.:DISASTER),R (PKEY=*STATUS,PKEY=MTS.:CKID,
           PKEY=ACC.:FILEINFO),RW ACC.
00104/109   ACCOUNTING               *PROJECT        D   G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   ENGLE                                      
0          THE PROJECT FILE CONTAINS A RECORD FOR EACH PROJECT.  THE FILE MUST BE PERMITTED AS FOLLOWS:
           U/N,RW ACC.,R (PKEY=*ACC,BILL)
00104/110   ACCOUNTING               *PRJDIRECTORY   D   G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   ENGLE                                      
0          THE PROJECT DIRECTORY FILE CONTAINS LISTS OF THE USER ID'S BELONGING TO EACH
           PROJECT.  THE FILE MUST BE PERMITTED AS FOLLOWS:
           U/N,RW ACC.,R PKEY=*ACC
00108/001  *PL360                    COMPILER        S3             W016:PL360COMP.S                                                
            D4T1    384  PL360.COMPILER.S3.001              1 LINE     86   74 PAGE UM   SWARTZ              JULY 27, 1977  22:20:48
0          JULY 1975 VERSION FROM UQV.
00108/002  *PL360                    MTS INTERFACE   SA             W016:PL360INTF.S                                                
            D4T1    385  PL360.MTS_INTERFACE.SA.002         1 LINE     80   14 PAGE UM   SWARTZ              JULY 27, 1977  22:20:56
0          SOURCE FOR MTS INTERFACE OF PL/360.
00108/003  *PL360                    *PL360          OE             *PL360                                                          
            D4T1    386  PL360.*PL360.OE.003                1 SEQ   25452   10 PAGE UM   SWARTZ              JULY 27, 1977  22:20:58
00108/004  *PL360                    *PL360LIB       SA             W016:PL360LIB.S                                                 
            D4T1    387  PL360.*PL360LIB.SA.004             1 LINE     80    3 PAGE UM   SWARTZ              JULY 27, 1977  22:21:01
0          SOURCE FOR THE RUN TIME PL360 LIBRARY - *PL360LIB.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00108/005  *PL360                    *PL360LIB       OE             *PL360LIB                                                       
            D4T1    388  PL360.*PL360LIB.OE.005             1 LINE   2913    2 PAGE UM   SWARTZ              JULY 27, 1977  22:21:03
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    S0221 FSAVE FSNAME=PTPR                                         
            D4T1    389  PTPRRTN..SA.001                    1 LINE     80   20 PAGE UM   WSG                 MAY  10, 1977  16:54:26
0          DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER.
00111/002  *PTPRRTN                                  OC  G          *PTPRRTN                                                        
            D4T1    390  PTPRRTN..OC.002                    1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  22:21:22
00116/001  *PDP8RTN                                  SA  G  PDP8    WSG:PDP8                                                        
            D4T1    391  PDP8RTN..SA.001                    1 LINE     80   62 PAGE UM   WSG                 JULY 27, 1977  22:21:24
0          MTS DEVICE SUPPORT ROUTINES FOR THE UM PDP-8, PDP-8E, AND PDP-11 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), AND COPY:GLOBALSETS (1026/3).  ASSEMBLE USING
           COPY:MTS.MACROS (344).
0          Referenced by comments of: 681/1, 681/2, 681/19 
00116/002  *PDP8RTN                                  OC  G          *PDP8RTN                                                        
            D4T1    392  PDP8RTN..OC.002                    1 LINE    255   28 PAGE UM   WSG                 JULY 27, 1977  22:21:33
00116/003  *PDP8RTN                  MEMO 287        WF             S0622 D3MISC FSNAME=M287TI733ANDDC(1)                        81 
            D4T1    393  PDP8RTN.MEMO_287.WF.003            1 LINE    119    4 PAGE UM   GERSCH              JAN. 24, 1977  20:39:23
0          THIS IS COMPUTING CENTER MEMO 287 -- "USE OF THE TEXAS INSTRUMENTS MODEL 733 ASR
           TERMINAL WITH THE DATA CONCENTRATOR"
00116/004  *PDP8RTN                  MEMO 347        WF             S0622 D3MISC FSNAME=M347DECWRITER(1)                         137
            D4T1    394  PDP8RTN.MEMO_347.WF.004            1 LINE    192   10 PAGE UM   EMERY               MAR. 03, 1977  14:28:25
0          THIS IS COMPUTING CENTER MEMO 347 -- "USING THE LA36 DECWRITER WITH THE DATA CONCENTRATOR
           AND MEMOREX TERMINAL CONTROL UNITS"
00116/005  *PDP8RTN                  MEMO 348        WF             S0622 D3MISC FSNAME=M348DECWRITER(1)                         139
            D4T1    395  PDP8RTN.MEMO_348.WF.005            1 LINE    108    3 PAGE UM   GERSCH              JAN. 24, 1977  21:39:37
0          THIS IS COMPUTING CENTER MEMO 348 -- "QUICK GUIDE TO USING DECWRITERS VIA THE DATA
           CONCENTRATOR AND MEMOREX 1270"
00117      *GRAPHMAC                                 SM  O  GRPM    S0720 'D3T1' FSNAME=GRAPHMAC..SM.(1)                         342
            D4T1    396  GRAPHMAC..SM.                      1 SEQ      80   63 PAGE UM   PIRKOLA             JULY 31, 1973  00:14.26
0          MACROS TO SUPPORT AN EXTENSION OF EXPRESS GRAPHICS ON 2250'S IN MTS.
           CALLS SUBROUTINES IN *GRAPHLIB (231).
0          Referenced by comments of: 231/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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  REW     MTA:REWIND(1,999)                                               
            D4T1    399  REWIND_SUBR..SA.001                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  22:24:49
0          FORTRAN CALLABLE REWIND SUBROUTINE.  ASSEMBLE USING *SYSMAC.
00120/002   REWIND SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00121/001  *USERS                    MAIN PGM        SA  G  USER    MTA:USERS(1,999)                                                
            D4T1    400  USERS.MAIN_PGM.SA.001              1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  22:24:52
0          USER-LEVEL PROGRAM TO PRINT THE CURRENT NUMBER OF TERMINAL USERS AND BATCH JOBS.
           IN ADDITION, FOR A 360/67 IT PRINTS THE CURRENT HARDWARE CONFIGURATION (PROCESSORS,
           CHANNEL CONTROLLERS, AND STORAGE) BY CALLING USERSCON (121/2), WHICH IS REFERENCED
           BY A WEAK EXTERN AND WILL BE CALLED ONLY IF PRESENT.  COPIES COPY:JOBSTA (413/13).
00121/002  *USERS                    67 CONF SUBR    SA  G  CONF    S0938 FSAVE2 LBLTYPE=VLO FSNAME=USERSCONF.S                     
            D4T1    401  USERS.67_CONF_SUBR.SA.002          1 LINE     80    3 PAGE UM   MTA                 FEB. 14, 1975  00:54:01
0          SUBR TO PRINT 360/67 HARDWARE CONFIGURATION.  COPIES COPY:CHACST (577/28).
0          Referenced by comments of: 121/1 
00121/003  *USERS                    67 CONF SUBR    OC  G          S0938 FSAVE2 LBLTYPE=VLO FSNAME=USERSCONF.O                     
            D4T1    402  USERS.67_CONF_SUBR.OC.003          1 LINE     80    1 PAGE UM   MTA                 FEB. 14, 1975  00:54:57
00121/004  *USERS                    370 OBJECT      OC  G          *USERS                                                          
            D4T1    403  USERS.370_OBJECT.OC.004            1 LINE    255    1 PAGE UM   MTA                 JULY 27, 1977  22:26:45
0          CONTAINS THE OBJECT FROM 121/1.
00121/005  *USERS                    360 OBJECT      OC  G          WSG:USERS.360                                                   
            D4T1    404  USERS.360_OBJECT.OC.005            1 LINE    255    1 PAGE UM   MTA                 JULY 27, 1977  22:26:48
0          CONTAINS THE OBJECT FROM 121/1 AND 121/2.
00123      *PTASKS                                   SA  O  PTSK    S0720 'D3T1' FSNAME=PTASKS..SA.(1)                           350
            D4T1    405  PTASKS..SA.                        1 SEQ      80   17 PAGE UM   PIRKOLA             JULY 31, 1973  00:15.58
0          PROGRAM TO DISPLAY TASK STATUS ON A 2250 DISPLAY.  CALLS *PTSKRTN (063).
           COPIES *LLMPSEQU, WHICH SHOULD BE CHANGED TO COPY COPY:LLMPSEQU (087).
           OBJECT NOT DISTRIBUTED.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00126/001   BLSTDEV                                  SA  G  BLDV    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  PTPP    S0720 'D3T1' FSNAME=PTPPRTN..SA.(1)                          352
            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!
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                                                         
            D4T1    408  STATUS..OE.002                     1 LINE   4896    4 PAGE UM   ENGLE               JULY 27, 1977  22:26:56
0          CONSISTS OF:  STATUS (104/12) + ACCIO (104/18) + IOLOKCK (104/97) + GETFILE (104/89).
           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/001  *PERMIT                                   SA  G  PMIT    W045:STARPERMIT                                                 
            D4T1    409  PERMIT..SA.001                     1 LINE     80    6 PAGE UM   PIRKOLA             JULY 27, 1977  22:26:58
0          ACTUALLY *PERMIT IS NO LONGER NEEDED SINCE THE ADVENT OF THE $PERMIT COMMAND.  HOWEVER,
           THIS VERSION WORKS WITH THE NEW FILE ROUTINES SO THAT STUBBORN USERS CAN STILL HAVE *PERMIT.
           CALLS PERMIT SUBROUTINE.
00132/002  *PERMIT                                   OE  G          *PERMIT                                                         
            D4T1    410  PERMIT..OE.002                     1 LINE    255    1 PAGE UM   PIRKOLA             JULY 27, 1977  22:27:00
00133/001  *PLOT                                     SA     PLOT    S1011 ETC 'MISC' FSNAME=PTRCONVPLOT                          1  
            D4T1    411  PLOT..SA.001                       1 LINE     80   14 PAGE UM   LIFT                AUG. 30, 1976  20:47:43
0          CONVERSATIONAL INTERFACE TO PRINTER PLOT SUBROUTINES (282).
00133/002  *PLOT                                     OC             *PLOT                                                           
            D4T1    412  PLOT..OC.002                       1 LINE     80    3 PAGE UM   LIFT                JULY 27, 1977  22:49:18
00135/001  *TAPERTN                                  SA  G  TAPE    WSG:TAPE                                                        
            D4T1    413  TAPERTN..SA.001                    1 LINE     80  108 PAGE UM   WSG                 SEP. 15, 1977  18:48:35
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") CAN BE USED TO DETERMINE THE VOLUME
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          LABEL OF A TAPE AS FOLLOWS:
            
               $GET >TXXX
               $CONTROL >TXXX NLC
               $LIST
               $RELEASE
            
           THIS CONTROL COMMAND IS ALSO USED BY *LABEL TO ENABLE IT TO LABEL VIRGIN TAPES.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/3),
           *CNFGINFODSECT (654), AND *SENSEDSECT (3025).  ASSEMBLE WITH SIZE=16 USING
           COPY:MTS.MACROS (344).
0          Referenced by comments of: 489/1 
00135/002  *TAPERTN                                  OC  G          WSG:TAPERTN                                                     
            D4T1    414  TAPERTN..OC.002                    1 LINE     80    7 PAGE UM   WSG                 SEP. 15, 1977  18:48:45
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
0          COMMAND FILE USED BY OPERATORS TO CLEAN UP A USERID (E.G. AFTER A SNARK).  THIS WILL SET THE
           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
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
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
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
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
1                                                                                               FRI AUG 02/96   16:11:27   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          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                                                       
            D4T1    421  TEXT360.FMAINT.SA.002              1 LINE     80   55 PAGE UM   TIFFANY             JULY 27, 1977  22:49:45
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                                                   
            D4T1    423  TEXT360.HYPHEN.SA.004              1 LINE     80   10 PAGE UM   TIFFANY             JULY 27, 1977  22:50:09
0          TEXT/360 SUBROUTINE TO HYPHENATE WORDS.
00138/005  *TEXT360                  PLAOUT          SA  G  PLAY    W062:PAGELAYOUT                                                 
            D4T1    424  TEXT360.PLAOUT.SA.005              1 LINE     80   70 PAGE UM   TIFFANY             JULY 27, 1977  22:50:11
0          TEXT/360 PAGE LAYOUT.
00138/006  *TEXT360                  PPR1            SP  O  PPR1    W062:POSTPR                                                     
            D4T1    425  TEXT360.PPR1.SP.006                1 LINE     80   28 PAGE UM   TIFFANY             JULY 27, 1977  22:50:24
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          NEW:TEXT360                                                     
            D4T1    427  TEXT360.OBJECT.OE.008              1 SEQ   14896   27 PAGE UM   TIFFANY             JULY 27, 1977  22:50:28
0          OBJECT FROM 138/1 THROUGH 138/7.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
            
           >>>>>> NOTE:  OBJECT HAS REP CARDS <<<<<<<<<<<<<<<<<<<<<<<<<<<
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
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
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
0          TEXT/360 SPELLING DICTIONARY CONTAINING ABOUT 12000 WORDS.
00138/016  *TEXT360                  *HYPHDICT       D              *HYPHDICT                                                       
            D4T1    435  TEXT360.*HYPHDICT.D.016            1 LINE     58    1 PAGE UM   MANUAL              JULY 27, 1977  22:50:48
0          A HYPHENATION OVERRIDE DICTIONARY FOR WORDS THAT TEXT/360 CANNOT HYPHENATE CORRECTLY.
00138/017  *TEXT360                  *T360MASTCONV   SP  G          W062:MASTER2INPUT(1,999)                                        
            D4T1    436  TEXT360.*T360MASTCONV.SP.017       1 LINE     70    3 PAGE UM   TIFFANY             JULY 27, 1977  22:50:50
0          PROGRAM TO CONVERT A TEXT/360 MASTER FILE INTO A TEXT/360 INPUT STREAM.
00138/018  *TEXT360                  *T360MASTCONV   OE  G          *T360MASTCONV                                                   
            D4T1    437  TEXT360.*T360MASTCONV.OE.018       1 LINE   6162    4 PAGE UM   TIFFANY             JULY 27, 1977  22:50:52
0          EXTERNAL SYMBOL IHESAPC SHOULD BE RENAMED IHESAPE.  ENDS WITH A
           "$CONTINUE WITH *PL1LIB" RECORD.
00140/001  *ANALYSIS                                 SA  G  ANAL    MTA:ANALYSIS(1,9999)                                            
            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
0          THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000.  SEE CCMEMO 294 (140/9).
00140/003  *ANALYSIS                 PL/1 MAIN PGM   SP             S0219 FSAVE FSNAME=PL1STAT                                   423
            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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
00140/005  *ANALYSIS                 EXAMPLE STP2    SA  G  STP2    S0938 FSAVE2 LBLTYPE=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 LBLTYPE=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  HIST    *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 294        WF             S0622 D3MISC FSNAME=M294DCF(1)                               85 
            D4T1    446  ANALYSIS.MEMO_294.WF.009           1 LINE    152   28 PAGE UM   MTA                 JAN. 24, 1977  20:42:47
0          THIS IS COMPUTING CENTER MEMO 294 -- "DATA COLLECTION FACILITY"
0          Referenced by comments of: 140/2, 140/7 
00140/010  *ANALYSIS                 CALLSTP2        SA  G  CSTP    MTA:CALLSTP2(1,999)                                             
            D4T1    447  ANALYSIS.CALLSTP2.SA.010           1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  23:12:31
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)                                              
            D4T1    448  ANALYSIS.CALLSTP2.OC.011           1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  23:12:34
00141/001  *GPAKDRAW                                 S            # (NO SOURCE AVAILABLE)                                           
                                                                                    UM   PIRKOLA                                    
0          PROGRAM TO DO DRAWING ON A 2250 DISPLAY.  REQUIRES *GPAKLIB (175) AND *GRAPHLIB (231).
           THIS PROGRAM HASN'T BEEN TRIED IN YEARS.
00141/002  *GPAKDRAW                                 OC  O          S0720 'D3T1' FSNAME=GPAKDRAW..OC.2(1)                        396
            D4T1    449  GPAKDRAW..OC.002                   1 LINE     80    2 DISK UM   PIRKOLA             JAN. 22, 1973  22:09.16
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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.
00144/002  *ASA                                      OC  O          *ASA                                                            
            D4T1    451  ASA..OC.002                        1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:16:59
00145/001  *TASKS                                    SA  G  TSKS    S0221 FSAVE 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
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
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 *WATBIB (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 *WATBIB (148/1).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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.
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
00151      *CONVSNOBOL                               SS  G          *CONVSNOBOL                                                     
            D4T1    461  CONVSNOBOL..SS.                    1 LINE     69    1 PAGE UM   SWARTZ              JULY 27, 1977  23:22:33
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
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
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: 413/9, 621/1, 3003/80 
00154/002  *LAS                      STRT:LAS        C              MTS:TST.LAS                                                     
            D4T1    464  LAS.STRT:LAS.C.002                 1 LINE     34    1 PAGE UM   WSG                 JULY 27, 1977  23:22:39
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
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00160       FRONCOPY                                 S            # (OBSOLETE)                                                      
            D2T1    387                                                             UM                                              
00162       PSA DSECT                                SA  G          COPY:PSA                                                        
            D4T1    467  PSA_DSECT..SA.                     1 LINE     72    8 PAGE UM   MTA                 JULY 27, 1977  23:22:45
0          DEFINITION OF PREFIXED STORAGE AREA (PSA).
           COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS.
           REQUIRES THAT COPY:GLOBALS (1026/4) BE COPIED FIRST.
0          Referenced by comments of: 45/2, 45/4, 46/2, 46/4, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 577/53, 577/55,
                 577/58, 588/1, 589/1, 611/1, 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/14, 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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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                              9  
            D4T1    476  PL1_COMPILER.OPEN.SA.009           1 SEQ      80   17 PAGE UM   TIFFANY             JULY 27, 1977  23:23:51
0          SIMULATE OS/360 OPEN.  COPIES SAMEQU (163/2).
00163/010   PL1 COMPILER             ROUT            SA  G  RUTE    W062:DMTROUTE                                                   
            D4T1    477  PL1_COMPILER.ROUT.SA.010           1 LINE     80   28 PAGE UM   TIFFANY             JULY 27, 1977  23:23:52
0          LIST OF VARIOUS ROUTINES.  COPIES SAMEQU (163/2).
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             W062:PL1UPDATE                                                  
            D4T1    480  PL1_COMPILER.UPDATE.UI.013         1 LINE     73   20 PAGE UM   TIFFANY             JULY 27, 1977  23:23:59
0          *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL/I COMPILER FROM OS/360 RELEASE 20.1 SOURCE.
00163/014   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/015   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/016   PL1 COMPILER             IEMTM           SA  G  TM      W062:IEMTM                                                      
            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.
00163/017   PL1 COMPILER             *PL1            OE  G          *PL1                                                            
            D4T1    484  PL1_COMPILER.*PL1.OE.017           1 SEQ    4796    7 PAGE UM   TIFFANY             JULY 27, 1977  23:24:19
00163/018   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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00163/019   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
00163/020   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
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
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.
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,
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          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
00175      *GPAKLIB                                  OL             S0720 'D3T1' FSNAME=GPAKLIB..OL.(1)                          446
            D4T1    500  GPAKLIB..OL.                       1 SEQ    3888   40 DISK UM   PIRKOLA             JAN. 22, 1973  18:22.11
0          GRAPHIC LIBRARY FROM OS CONVERTED FOR MTS. REQUIRES *GRAPHLIB (231). THIS IS AN ANCIENT VERSION
           AND DOES NOT CORRESPOND TO ANYTHING CURRENTLY IN OS.
           SOURCE IS NOT AVAILABLE.
            
           THERE ARE MANY (!!) REP CARDS IN THIS.
0          Referenced by comments of: 141/1, 179/1 
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  O          S0720 'D3T1' FSNAME=GPAKGRID..OC.(1)                         449
            D4T1    501  GPAKGRID..OC.                      1 LINE     80    7 DISK UM   PIRKOLA             JAN. 22, 1973  22:06.14
0          PROGRAM TO PLOT ON A 2250 DISPLAY.  REQUIRES *GPAKLIB (175) AND *GRAPHLIB (231).
           NO SOURCE AVAILABLE.
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00197      *SMDS                                     M   G          *SMDS                                                           
            D4T1    519  SMDS..M.                           1 LINE    118    4 PAGE UM   MTA                 JULY 27, 1977  23:29:07
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   DWB                 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/13), AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 198/2, 344/1 
00198/002   GUINFO/CUINFO SUBRS      UPDATE          UU  G          MTS:INFOUPD                                                     
            D4T1    521  GUINFO/CUINFO_SUBRS.UPDAT.UU.002   1 LINE     71    4 PAGE UM   DWB                 JULY 27, 1977  23:30:27
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (198/1).
00198/003   GUINFO/CUINFO SUBRS      370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00198/004   GUINFO/CUINFO SUBRS      360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00198/005   GUINFO/CUINFO SUBRS      370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=INFO.LIST                 
            D4T1    522  GUINFO/CUINFO_SUBRS.370_L.L.005    1 SEQ     133   39 PAGE UM   DWB                 JULY 27, 1977  23:32:02
00198/006   GUINFO/CUINFO SUBRS      360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=INFO.LIST             
            D4T1    523  GUINFO/CUINFO_SUBRS.360_L.L.006    1 SEQ     133   39 PAGE UM   DWB                 JULY 27, 1977  23:33: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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          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.
            
           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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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.
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
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
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
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
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          C1945 SAVE 'WR2' POSN=LISPSOURCE:ASMG                           
            D4T1    579  LISP..SA.001                       1 SEQ      71   91 PAGE UM   GOODRICH            JULY 27, 1977  23:51:53
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00210/002  *LISP                                     OE  G          *LISP                                                           
            D4T1    580  LISP..OE.002                       1 SEQ   32767   26 PAGE UM   GOODRICH            JULY 27, 1977  23:51:54
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          C1945 SAVE 'WR2' POSN=COMPILERSOURCE                            
            D4T1    584  LISP.COMPILER.S.006                1 SEQ     106   24 PAGE UM   GOODRICH            JULY 27, 1977  23:54:00
0          THIS IS THE LISP SOURCE FOR THE LISP COMPILER.
00210/007  *LISP                     *LISPLIB        O   G          *LISPLIB                                                        
            D4T1    585  LISP.*LISPLIB.O.007                1 SEQ   32517   58 PAGE UM   GOODRICH            JULY 27, 1977  23:54:02
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  SERR    MTA:SIOERR(1,999)                                               
            D4T1    586  SIOERR_SUBR..SA.001                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  23:54:04
0          FORTRAN INTERFACE TO SETIOERR.
00223/002   SIOERR SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00225/001  *SYSMAC                                   SM  G  SYSM    NEW:SYSMAC                                                      
            D4T1    587  SYSMAC..SM.001                     1 LINE     80  113 PAGE UM   MTA                 AUG. 14, 1977  19:21:42
0          MTS SYSTEM MACRO LIBRARY FOR GENERAL USE.
           NOTE:  SOME MACROS (E.G. DFAD ET AL) REFERENCE &S370.  ALL OTHERS GENERATE CODE
                  WHICH WILL WORK EITHER ON A 360 OR 370. 
00225/002  *SYSMAC                   TEST PGM        SA  G  TMAC    MTA:TESTIOMAC                                                   
            D4T1    588  SYSMAC.TEST_PGM.SA.002             1 LINE     80    8 PAGE UM   MTA                 JULY 27, 1977  23:54:13
0          TEST PROGRAM FOR MANY MACROS IN *SYSMAC.
00229/001  *TIDY                                     SF  B  TIDY    S0721 'D3T2' FSNAME=TIDY..SF.1(1)                             53
            D4T1    589  TIDY..SF.001                       1 SEQ      80   60 PAGE UM   ?                   JULY 31, 1973  21:20.10
0          WILL "TIDY" UP FORTRAN SOURCE FILES.  UNCHANGED SINCE DIST 1.  VERY POOR PROGRAM.
00229/002  *TIDY                                     OC  B          *TIDY                                                           
            D4T1    590  TIDY..OC.002                       1 LINE     80   30 PAGE UM   ?                   JULY 27, 1977  23:55:48
00231      *GRAPHLIB                                 SA  O  GLIB    S0721 'D3T2' FSNAME=GRAPHLIB..S.(1)                           55
            D4T1    591  GRAPHLIB..SA.                      1 SEQ      80  211 PAGE UM   PIRKOLA             JULY 31, 1973  21:21.10
0          SUBROUTINE TO SUPPORT AN EXTENSION OF EXPRESS GRAPHICS ON A 2250 IN MTS. CALLED BY MACROS IN *GRAPHMAC (117).
           THIS IS AN ANCIENT VERSION AND HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
0          Referenced by comments of: 117/1, 141/1, 175/1, 179/1 
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                                    
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                                    
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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    W062:RAND(1,999)                                                
            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
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00233/021   PL1 LIBRARY              UN-QSAM         SA  G  ITBA    W062:IHEITB                                                     
            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
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00233/031   PL1 LIBRARY              IHESAP          SA  G  SAPA    W062:IHESAP                                                     
            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    W062:ATTN                                                       
            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    W062:IHEZZZZZ(1,999)                                            
            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.
00233/038   PL1 LIBRARY              CALLPL1         SA  G          W062:PL1CALL.S                                                  
            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              CALLPL1         WT  G          S0622 D3MISC FSNAME=M342PLI(1)                               129
            D4T1    618  PL1_LIBRARY.CALLPL1.WT.039         1 LINE    118    4 PAGE UM   TIFFANY             JAN. 24, 1977  21:52:40
0          THIS IS COMPUTING CENTER MEMO 342 -- "NON-PL/I TO PL/I INTERFACE SUBROUTINES"
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00233/040   PL1 LIBRARY              MAXLEN          SA  G  MAXL    LBT:MAXLEN.S                                                    
            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/041   PL1 LIBRARY              UPDATE          UI  G          W062:PL1LIBUPDATE                                               
            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          W062:ENDPL1LIB                                               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
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                                               
            D4T1    623  PL1_LIBRARY.SHAREDPL1LIB.OE.044    1 LINE    256   58 PAGE UM   TIFFANY             JULY 27, 1977  01:54:19
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    S1073 UNSP FSNAME=PREAD.S                                       
            D4T1    624  PL1_LIBRARY.UNSP_PREAD.SA.045      1 LINE     80    3 PAGE UM   OGDEN               NOV. 09, 1975  19:29:47
0          THE FOLLOWING PROCEDURES CONSTITUTE THE UM "UNSUPPORTED" PL/1 LIBRARY.
           WRITEUPS ARE INCLUDED IN 685/2.
            
           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    S1073 UNSP FSNAME=PWRITE.S                                      
            D4T1    625  PL1_LIBRARY.UNSP_PWRITE.SA.046     1 LINE     80    3 PAGE UM   OGDEN               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    S1073 UNSP FSNAME=SETLEN.S                                      
            D4T1    626  PL1_LIBRARY.UNSP_SETLEN.SA.047     1 LINE     80    1 PAGE UM   OGDEN               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   OGDEN               JULY 27, 1977  01:58:53
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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).
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
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/9
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/15 + 234/17
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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
0          LINK EDIT OF 234/21 + 234/23.
00234/026   8ASR                     MEMO 329        WF             S0622 D3MISC FSNAME=M3298ASR(1)                              114
            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  O  P225    S0721 'D3T2' FSNAME=2250PLOT..SA.(1)                         111
            D4T1    654  2250PLOT..SA.                      1 SEQ      80    4 PAGE UM   PIRKOLA             JULY 31, 1973  21:29.07
0          PROGRAM TO PLOT ON A 2250 DISPLAY.  HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
00241      *TRACK                                    SA  O  *TRK    S0721 'D3T2' FSNAME=TRACK..SA.(1)                            112
            D4T1    655  TRACK..SA.                         1 SEQ      80    8 PAGE UM   PIRKOLA             JULY 31, 1973  21:29.51
0          EXPERIMENTAL PROGRAM TO DO LIGHT PEN TRACKING ON A MOD 3 2250.
           HASN'T BEEN TRIED IN YEARS, PROBABLY WON'T WORK ANYMORE.
           OBJECT NOT DISTRIBUTED.
00243/001   BINEBCD                                  SA  G  BBCD    MTA:BINEBCD(1,999)                                              
            D4T1    656  BINEBCD..SA.001                    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  02:04:19
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                                        
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00243/003   BINEBCD                                  SA  G  BBCD    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/001  *COPY                                     SA  O  COPY    W045:FILECOPY                                                   
            D4T1    658  COPY..SA.001                       1 LINE     80    4 PAGE UM   PIRKOLA             JULY 27, 1977  02:04:23
0          PROGRAM TO COPY A FILE FROM ANOTHER USER.  IT IS MAINTAINED ONLY FOR
           HISTORICAL REASONS (SOME USER'S NEVER GIVE UP) AND SHOULD NOT BE USED.  TRY $COPY, YOU'LL LIKE IT.
00249/002  *COPY                                     OE  O          *COPY                                                           
            D4T1    659  COPY..OE.002                       1 LINE   1382    3 PAGE UM   PIRKOLA             JULY 27, 1977  02:04:25
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
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
0          COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2).
           INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE.
00256/002   STATISTICS COMBINE       COMBINE PGM     SA  G  CMB     S0221 FSAVE FSNAME=CMB                                          
            D4T1    663  STATISTICS_COMBINE.COMBIN.SA.002   1 LINE     80    7 PAGE UM   WSG                 JAN. 13, 1977  12:37:16
0          PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/2).
           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 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00256/003   STATISTICS COMBINE       COMBINE PGM     OC  G          SYS:CMB                                                         
            D4T1    664  STATISTICS_COMBINE.COMBIN.OC.003   1 LINE     80    2 PAGE UM   WSG                 JULY 27, 1977  02:04:39
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                                                            
            D4T1    665  RECEIPT_CARDS.*RCP.C.001           1 LINE     29    1 PAGE UM   EMERY               JULY 27, 1977  02:04:42
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    W032:RCP                                                        
            D4T1    666  RECEIPT_CARDS.RECEIPT_PGM.SA.002   1 LINE     80    5 PAGE UM   EMERY               JULY 27, 1977  02:04:44
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   EMERY               JULY 27, 1977  02:04:47
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
           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 LIBRARY   OL  G          *SLIP                                                           
            D4T1    670  SLIP.*SLIP_LIBRARY.OL.003          1 SEQ    2040   37 PAGE UM   GOODRICH            JULY 27, 1977  02:09:06
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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          S1073 UNSP FSNAME=LSLIP.S                                       
            D4T1    672  SLIP.LSLIP_FTN.SF.005              1 LINE     84   30 PAGE UM   OGDEN               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   OGDEN               JULY 27, 1977  02:09:48
00265      *1                                        SM             *1                                                              
            D4T1    674  1..SM.                             1 LINE     80   31 PAGE UM   SALISBURY           JULY 27, 1977  02:09:51
0          MACRO LIBRARY FOR LIST PROCESSING IN ASSEMBLY LANGUAGE.  SIMILAR TO L6.
00267/001  *DOWNDATE                                 SA  O  DNDT    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/77 
00267/002  *DOWNDATE                                 OE  O          *DOWNDATE                                                       
            D4T1    676  DOWNDATE..OE.002                   1 LINE   2626    2 PAGE UM   MTA                 JULY 27, 1977  02:09:55
0          INCLUDES SCANPAR OBJECT (267/4).
00267/003  *DOWNDATE                 SCANPAR         SA     SCNP    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    S0221 FSAVE 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.
1                                                                                               FRI AUG 02/96   16:11:27   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          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    S0221 FSAVE 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  FPC     S0721 'D3T2' FSNAME=FPC..SA.1(1)                             136
            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.
00275/002   BITWISE LOGIC - IHCLOGIC                 OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   TIFFANY                                    
00278/001   IOH                                      SA  G  IOH     W016:IOH.S(1.8)                                                 
            D4T1    683  IOH..SA.001                        1 LINE     80  155 PAGE UM   SWARTZ              JULY 27, 1977  02:10:21
0          I/O CONVERSION PACKAGE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 387/28, 400/1 
00278/002   IOH                                      OC  G          W016:IOH.O                                                      
            D4T1    684  IOH..OC.002                        1 LINE     80   16 PAGE UM   SWARTZ              JULY 27, 1977  02:10:33
0          OBJECT IS ALSO IN *LIBRARY (524) -- MAY NOT BE EXACTLY THE SAME VERSION.
00278/003   IOH                      IOPKG           SA  G          W016:IOHPKG.S                                                   
            D4T1    685  IOH.IOPKG.SA.003                   1 LINE     80   15 PAGE UM   SWARTZ              JULY 27, 1977  02:10:35
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00278/004   IOH                      IOPKG           OC  G          W016:IOHPKG.O                                                   
            D4T1    686  IOH.IOPKG.OC.004                   1 LINE     80    4 PAGE UM   SWARTZ              JULY 27, 1977  02:10:36
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
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
00278/011   IOH                      IOHEVAL         SA             W016:IOHEVAL.S                                                  
            D4T1    693  IOH.IOHEVAL.SA.011                 1 LINE     80    3 PAGE UM   SWARTZ              JULY 27, 1977  02:10:51
00278/012   IOH                      IOHEVAL         OE             ETC:IOHEVAL                                                     
            D4T1    694  IOH.IOHEVAL.OE.012                 1 SEQ     252    1 PAGE UM   SWARTZ              JULY 27, 1977  02:10:53
00279       LINPG SUBR                               S            # (NOT DISTRIBUTED)                                               
            D2T1    396                                                             UM                                              
00282/001   PRINTER PLOT SUBR                        SA  G  PRPL    S1011 ETC 'MISC' FSNAME=PTRPLOTD4                            13 
            D4T1    695  PRINTER_PLOT_SUBR..SA.001          1 LINE     80   44 PAGE UM   LIFT                AUG. 31, 1976  12:13:11
0          PRINTER PLOT HAS BEEN REWRITTEN IN ORDER TO FIX SOME BUGS.
           COPIES "PLOTDS" (282/2).  ASSEMBLE WITH PAR=BATCH.
0          Referenced by comments of: 133/1 
00282/002   PRINTER PLOT SUBR        COPY SECTION    SA  G  PRPC    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                                       
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00283/001   BLOCKED I/O - QSAM                       SA  G          S0721 'D3T2' FSNAME=QSAM..SA.1(1)                            140
            D4T1    697  BLOCKED_I/O_-_QSAM..SA.001         1 LINE     80   19 PAGE UM   MTA                 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   MTA                                        
00285/001   SKIP SUBR                                SA  G  SKIP    S0221 FSAVE FSNAME=SKIP                                         
            D4T1    698  SKIP_SUBR..SA.001                  1 LINE     80    5 PAGE UM   WSG                 APR. 03, 1975  14:27:53
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                                              
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  SPIE    MTA:SPIE(1,999)                                                 
            D4T1    699  SPIE_SUBR..SA.001                  1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  02:12:55
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:NEWMOVE.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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00291/002  *IEHMOVE                                  OE  G          NEW:IEHMOVE                                                     
            D4T1    701  IEHMOVE..OE.002                    1 LINE   7696    8 PAGE UM   TIFFANY             JULY 27, 1977  02:13:00
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.
00293/002  *MACGEN                                   OE  G          *MACGEN                                                         
            D4T1    703  MACGEN..OE.002                     1 SEQ     658    1 PAGE UM   HELFFRICH           JULY 27, 1977  02:13:04
00296       CHECKDASD                                SA           # (OBSOLETE)                                                      
            D2T1    119                                                             UM                                              
00297/001  *LINKEDIT                 LKEDCMD         SP  G          W052:LINK.CMD.S                                                 
            D4T1    704  LINKEDIT.LKEDCMD.SP.001            1 LINE     99   33 PAGE UM   SHERRY              JULY 27, 1977  02:13:06
0          MTS LINKAGE EDITOR MAIN PROGRAM - COMMAND PROCESSOR.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
0          Referenced by comments of: 297/11, 297/16 
00297/002  *LINKEDIT                 INCLUDE         SP  G          W052:LINK.INCL.S                                                
            D4T1    705  LINKEDIT.INCLUDE.SP.002            1 LINE    100   17 PAGE UM   SHERRY              JULY 27, 1977  02:13:15
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/006  *LINKEDIT                 LINK.COM        SP  G          W052:LINK.COM                                                   
            D4T1    709  LINKEDIT.LINK.COM.SP.006           1 LINE    100    6 PAGE UM   SHERRY              JULY 27, 1977  02:13:27
0          COPY SECTION REQUIRED TO COMPILE THE INDIVIDUAL ROUTINES.
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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/009  *LINKEDIT                 UTIL            SP  G          W052:LINK.UTIL.S                                                
            D4T1    712  LINKEDIT.UTIL.SP.009               1 LINE     88    3 PAGE UM   SHERRY              JULY 27, 1977  02:13: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)
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.
1                                                                                               FRI AUG 02/96   16:11:27   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          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.  THE OBJECT CODE IS WRITTEN TO A FILE NAMED
           LINK.CMD.O.
00297/017  *LINKEDIT                 LINKLOAD        OC  G          W052:LINKLOAD                                                   
            D4T1    720  LINKEDIT.LINKLOAD.OC.017           1 LINE     39    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:52
0          CONTAINS A SERIES OF "$CONTINUE WITH" RECORDS AND LOADER CONTROL CARDS TO
           CAUSE THE VARIOUS LINKEDITOR SUB-COMPONENTS TO BE LOADED WHEN THIS FILE
           IS $RUN.  BY CONVENTION, THE OBJECT FILES FOR EACH SUB-COMPONENT OF THE
           LINKEDITOR HAS THE SAME NAME AS THE CORRESPONDING SOURCE FILE EXCEPT THAT
           THE SUFFIX ".S" IS REPLACED BY ".O" TO DENOTE OBJECT.
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/019  *LINKEDIT                 OBJECT          OE  G          *LINKEDIT                                                       
            D4T1    722  LINKEDIT.OBJECT.OE.019             1 SEQ   32767   70 PAGE UM   SHERRY              JULY 27, 1977  02:13:57
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                 COMPILER        SA             S0579 SAVE 'JWS-SAVE' FSNAME=FSDSOURCE                          
            D4T1    724  FORTRANH.COMPILER.SA.001           1 LINE     80   79 PAGE UM   HANSEN              JAN. 04, 1977  13:22:15
0          THIS COMPONENT IS THE SOURCE FOR ALL MODULES WHICH HAVE BEEN CHANGED FROM THE OS VERSION.
           IT HAS BEEN MODIFIED TO USE ESSENTIALLY THE SAME CALLING SEQUENCES AS IEYFORT
           (*FORTRANG) AND CAN BE CALLED BY *FTN (551) OR RUN DIRECTLY.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          Referenced by comments of: 551/1 
00298/002  *FORTRANH                 COMPILER        OC             S0579 SAVE 'JWS-SAVE' FSNAME=FSDOBJ                             
            D4T1    725  FORTRANH.COMPILER.OC.002           1 LINE   3418    9 PAGE UM   HANSEN              APR. 29, 1977  14:44:12
00298/003  *FORTRANH                 IEKTSM          SF  G          S0579 SAVE 'JWS-SAVE' FSNAME=IEKTSM.S                           
            D4T1    726  FORTRANH.IEKTSM.SF.003             1 LINE     80   11 PAGE UM   HANSEN              NOV. 17, 1975  15:00:13
0          THIS IS A SLIGHT MODIFICATION OF WSU'S SYM CARD PRODUCING SUBROUTINE.
           IT USES THE EXTENDED LANGUAGE FEATURES OF FORTRAN H AND, AS SUCH, MUST BE
           COMPILED WITH PAR=XL.
00298/004  *FORTRANH                 IEKTSM          OC  G          S0579 SAVE 'JWS-SAVE' FSNAME=IEKTSM                             
            D4T1    727  FORTRANH.IEKTSM.OC.004             1 LINE   2392    2 PAGE UM   HANSEN              NOV. 17, 1975  15:01:02
00298/005  *FORTRANH                 IEKUEN          SF  G          S0579 SAVE 'JWS-SAVE' FSNAME=IEKUEN.S                           
            D4T1    728  FORTRANH.IEKUEN.SF.005             1 LINE     80    8 PAGE UM   HANSEN              SEP. 15, 1975  14:23:52
0          THIS IS THE SUBROUTINE IN FORTRAN H WHICH CALLS IEKTSM IF THE TEST PARAMETER
           WAS SPECIFIED.  IT USES THE EXTENDED LANGUAGE FEATURES OF FORTRAN H AND, AS
           SUCH, MUST BE COMPILED WITH PAR=XL.
00298/006  *FORTRANH                 IEKUEN          OC  G          S0579 SAVE 'JWS-SAVE' FSNAME=IEKUEN                             
            D4T1    729  FORTRANH.IEKUEN.OC.006             1 LINE    240    2 PAGE UM   HANSEN              SEP. 15, 1975  14:25:40
00298/007  *FORTRANH                 OS OBJECT       OE  O          S0721 'D3T2' FSNAME=FORTRANH.OS_OBJECT.O.4(1)                163
            D4T1    730  FORTRANH.OS_OBJECT.OE.007          1 SEQ    1024   63 DISK UM   HANSEN              JUNE 23, 1972  12:54.06
0          OBJECT MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS (RELEASE 20.1).
           NO PTF'S ARE INCLUDED IN THIS FILE.
00298/008  *FORTRANH                 *FORTRANH       OC             S0579 SAVE 'JWS-SAVE' FSNAME=FORTRANH                           
            D4T1    731  FORTRANH.*FORTRANH.OC.008          1 LINE  22004  114 PAGE UM   HANSEN              JAN. 04, 1977  13:21:55
0          COMPLETE, UN-LINKEDITED FORTRAN H COMPILER CONSISTING OF 298/2, 298/4, 298/6,
           AND 298/7.
00298/009  *FORTRANH                 *FORTRANH       OE             *FORTRANH                                                       
            D4T1    732  FORTRANH.*FORTRANH.OE.009          1 SEQ   32767  103 PAGE UM   HANSEN              JULY 27, 1977  02:18:54
0          LINKEDITED VERSION OF 297/8.
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00303/001   SORT                     *SORT           SA  G  SORT    S0027 DISTRB FSNAME=SORT                                        
            D4T1    733  SORT.*SORT.SA.001                  1 LINE     80   76 PAGE UM   ENGLE               SEP. 09, 1977  16:22:26
0          GENERAL SORT PROGRAM.  COPIES *CNFGINFODSECT (654).
           ASSEMBLE AS FOLLOWS FOR THE TWO VERSIONS:
               &SUB     SETB  0             FOR *SORT VERSION (303/2)
               &SUB     SETB  1             FOR SORT SUBROUTINE VERSION (303/3)
           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/002   SORT                     *SORT           OE  G          WSG:SRT                                                         
            D4T1    734  SORT.*SORT.OE.002                  1 LINE     80    8 PAGE UM   ENGLE               SEP. 15, 1977  18:56:56
0          Referenced by comments of: 303/1 
00303/003   SORT                     SORT SUBR       OC  G          S0027 DISTRB FSNAME=SRT1                                        
            D4T1    735  SORT.SORT_SUBR.OC.003              1 LINE     80    9 PAGE UM   ENGLE               SEP. 09, 1977  16:32:44
0          Referenced by comments of: 303/1 
00303/004   SORT                     SORT2/3/4 SUBR  SA  G  SRT2    S0027 DISTRB FSNAME=SORT2                                       
            D4T1    736  SORT.SORT2/3/4_SUBR.SA.004         1 LINE     80   33 PAGE UM   ENGLE               SEP. 14, 1977  10:34:39
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/005   SORT                     SORT2/3/4 SUBR  OC  G          S0027 DISTRB FSNAME=SRT2                                        
            D4T1    737  SORT.SORT2/3/4_SUBR.OC.005         1 LINE     80    4 PAGE UM   ENGLE               SEP. 14, 1977  10:34:52
00303/006   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/8).
0          Referenced by comments of: 303/12 
00303/007   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/008   SORT                     MESSAGES        M              S0027 DISTRB FSNAME=SORTMESSAGES                                
            D4T1    740  SORT.MESSAGES.M.008                1 LINE     81    3 PAGE UM   ENGLE               SEP. 09, 1977  16:34:17
0          SORT ERROR MESSAGES.
           NOTE:  LINE NUMBERS ARE IMPORTANT IN THIS FILE.
0          Referenced by comments of: 303/6, 303/12 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00303/009   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/12 
00303/010   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/011   SORT                     DOC             WT  G          S0027 DISTRB FSNAME=SORTWRITEUP                                 
            D4T1    743  SORT.DOC.WT.011                    1 LINE    256   52 PAGE UM   ENGLE               SEP. 09, 1977  16:36:11
0          TEXT/360 MASTER FOR SORT WRITEUP.
00303/012   SORT                     *SORTLM             G          *SORTLM                                                         
            D4T1    744  SORT.*SORTLM..012                  1 LINE   2657    4 PAGE UM   ENGLE               SEP. 15, 1977  18:57:10
0          FILE CONTAINING ERROR MESSAGE PROGRAM (303/6), MESSAGES (303/8), CHECK ROUTINE (303/9),
           AND TAPESORT (303/19).  THE VERSION OF TAPESORT IN THIS COMPONENT IS THE SAME AS 303/20
           EXCEPT THAT IT SPECIFIES MODE=6250 FOR THE POOL TAPES.  LINE NUMBERS IN THIS FILE ARE
           IMPORTANT.
00303/013   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/014   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/015   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/016   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/017   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/018   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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00303/019   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/12 
00303/020   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
00303/021   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/022   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)).
00304/001   TAPE DIAGNOSTIC          *TPD            C              *TPD                                                            
            D4T1    755  TAPE_DIAGNOSTIC.*TPD.C.001         1 LINE     58    1 PAGE UM   WSG                 JULY 27, 1977  02:24:18
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
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.
0          Referenced by comments of: 304/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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          W062:UP                                                      314
            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
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   GERSCH              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 
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   GERSCH              AUG. 21, 1975  11:54:30
0          Referenced by comments of: 306/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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   GERSCH              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   GERSCH              JULY 27, 1977  02:29:07
00306/005  *WIREWRAP                 WWCOPY          SA  G  WWCO    S0767 'SAVETAPE' FSNAME=WWCOPY                                  
            D4T1    784  WIREWRAP.WWCOPY.SA.005             1 LINE     80    4 PAGE UM   GERSCH              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   GERSCH              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   GERSCH              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   GERSCH              AUG. 21, 1975  11:54:55
0          Referenced by comments of: 306/1 
00306/009  *WIREWRAP                 *WWLIB          OL  G          *WWLIB                                                          
            D4T1    788  WIREWRAP.*WWLIB.OL.009             1 LINE   2412   32 PAGE UM   GERSCH              JULY 27, 1977  02:29:19
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, IC,
           MSERIES, PG1, PG3, PG5, PG13, UG1, MIC, RSERIES, 8SERIES, CHIP, AND DOUGLAS.  THE
           *WIREWRAP USER'S GUIDE (306/32) 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,
                 306/26, 306/27, 306/28 
00306/010  *WIREWRAP                 SQGRD           SA  G  SQGR    S0767 'SAVETAPE' FSNAME=SQGRD.S                                 
            D4T1    789  WIREWRAP.SQGRD.SA.010              1 LINE     80    7 PAGE UM   GERSCH              DEC. 13, 1973  12:57.39
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00306/011  *WIREWRAP                 SQGRD           OE  G          *WWSQGRD                                                        
            D4T1    790  WIREWRAP.SQGRD.OE.011              1 SEQ     606    1 PAGE UM   GERSCH              JULY 27, 1977  02:29:46
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   GERSCH              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   GERSCH              JULY 27, 1977  02:29:50
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   GERSCH              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   GERSCH              JULY 27, 1977  02:29:55
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   GERSCH              FEB. 20, 1976  14:55:25
0          SUBROUTINE PACKAGE FOR BAY TYPE 'LAB'.  OBJECT MODULE IN *WWLIB (306/9).
00306/017  *WIREWRAP                 MSERIES         SF  G  MSER    S0767 'SAVETAPE' FSNAME=MSERIES.S                               
            D4T1    796  WIREWRAP.MSERIES.SF.017            1 LINE     80    5 PAGE UM   GERSCH              DEC. 13, 1973  12:56.06
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MSERIES'. OBJECT MODULE IN *WWLIB (306/9).
00306/018  *WIREWRAP                 RSERIES         SF  G  RSER    S0767 'SAVETAPE' FSNAME=RSERIES.S                               
            D4T1    797  WIREWRAP.RSERIES.SF.018            1 LINE     80    5 PAGE UM   GERSCH              DEC. 13, 1973  12:56.35
0          SUBROUTINE PACKAGE FOR BAY TYPE 'RSERIES'.  OBJECT MODULE IN *WWLIB (306/9).
00306/019  *WIREWRAP                 IC              SF  G  IC      S0767 'SAVETAPE' FSNAME=IC.S                                    
            D4T1    798  WIREWRAP.IC.SF.019                 1 LINE     80    5 PAGE UM   GERSCH              DEC. 13, 1973  12:55.30
0          SUBROUTINE PACKAGE FOR BAY TYPE 'IC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/020  *WIREWRAP                 MIC             SF  G  MIC     S0767 'SAVETAPE' FSNAME=MIC.S                                   
            D4T1    799  WIREWRAP.MIC.SF.020                1 LINE     80    6 PAGE UM   GERSCH              JAN. 16, 1974  13:12.44
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MIC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/021  *WIREWRAP                 PG1             SF  G  PG1     S0767 'SAVETAPE' FSNAME=79.PG1SOU                               
            D4T1    800  WIREWRAP.PG1.SF.021                1 LINE     80    6 PAGE UM   GERSCH              DEC. 13, 1973  13:35.38
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG1'.  OBJECT MODULE IN *WWLIB (306/9).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00306/022  *WIREWRAP                 PG3             SF  G  PG3     S0767 'SAVETAPE' FSNAME=79.PG3SOU                               
            D4T1    801  WIREWRAP.PG3.SF.022                1 LINE     80    7 PAGE UM   GERSCH              DEC. 13, 1973  13:36.09
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG3'.  OBJECT MODULE IN *WWLIB (306/9).
00306/023  *WIREWRAP                 PG5             SF  G  PG5     S0767 'SAVETAPE' FSNAME=79.PG5SOU                               
            D4T1    802  WIREWRAP.PG5.SF.023                1 LINE     80    6 PAGE UM   GERSCH              DEC. 13, 1973  13:36.26
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG5'.  OBJECT MODULE IN *WWLIB (306/9).
00306/024  *WIREWRAP                 PG13            SF  G  PG13    S0767 'SAVETAPE' FSNAME=79.PG13SOU                              
            D4T1    803  WIREWRAP.PG13.SF.024               1 LINE     80    7 PAGE UM   GERSCH              DEC. 13, 1973  13:35.53
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG13'.  OBJECT MODULE IN *WWLIB (306/9).
00306/025  *WIREWRAP                 UG1             SA  G  UG1     S0767 'SAVETAPE' FSNAME=AUGATUG1.S                              
            D4T1    804  WIREWRAP.UG1.SA.025                1 LINE     80   20 PAGE UM   GERSCH              JAN. 16, 1974  13:13.19
0          SUBROUTINE PACKAGE FOR BAY TYPE 'UG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/026  *WIREWRAP                 CHIP            SF  G          S0767 'SAVETAPE' FSNAME=CHIP.S                                  
            D4T1    805  WIREWRAP.CHIP.SF.026               1 LINE     69    3 PAGE UM   GERSCH              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/027  *WIREWRAP                 DOUGLAS         SF  G          S0767 'SAVETAPE' FSNAME=DOUGLAS.S                               
            D4T1    806  WIREWRAP.DOUGLAS.SF.027            1 LINE     69    4 PAGE UM   GERSCH              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).
00306/028  *WIREWRAP                 8SERIES         SF  G          S0767 'SAVETAPE' FSNAME=8SERIES.S                               
            D4T1    807  WIREWRAP.8SERIES.SF.028            1 LINE     73    3 PAGE UM   GERSCH              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/029  *WIREWRAP                 *WWICMAC        D   G          *WWICMAC                                                        
            D4T1    808  WIREWRAP.*WWICMAC.D.029            1 LINE     65    4 PAGE UM   GERSCH              JULY 27, 1977  02:33:45
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/030  *WIREWRAP                 *WWLABMAC       D   G          *WWLABMAC                                                       
            D4T1    809  WIREWRAP.*WWLABMAC.D.030           1 LINE     55    3 PAGE UM   GERSCH              JULY 27, 1977  02:33:48
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00306/031  *WIREWRAP                 TTLMAC          D   G          S0767 'SAVETAPE' FSNAME=TTLMAC                                  
            D4T1    810  WIREWRAP.TTLMAC.D.031              1 LINE     91    4 PAGE UM   GERSCH              JUNE 18, 1976  13:38:55
0          ANOTHER "WIREWRAP MACRO" DICTIONARY.
00306/032  *WIREWRAP                 MEMO 267        WT             S0622 D3MISC FSNAME=M267WIREWRAP(1)                          77 
            D4T1    811  WIREWRAP.MEMO_267.WT.032           1 LINE     81   49 PAGE UM   GERSCH              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  FMT     W030:UBCFMT                                                     
            D4T1    812  FMT.MAIN.SA.001                    1 LINE     80  150 PAGE UBC            LIFT      JULY 27, 1977  02:36:13
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  FMTS    W030:UBCFMTRTN                                                  
            D4T1    813  FMT.SUBROUTINES.SA.002             1 LINE     80   49 PAGE UBC            LIFT      JULY 27, 1977  02:36:26
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.
00308/003  *FMT                      MORE SUBRS      SA  O  FMTR    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  FMTD    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  FMTM    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 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00308/006  *FMT                      OBJECT          OE  O          *FORMAT                                                         
            D4T1    817  FMT.OBJECT.OE.006                  1 SEQ   31823   13 PAGE UBC            LIFT      JULY 27, 1977  02:36:42
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 SELF-REFERENCING
           $CONTINUE WITHS.  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  GSFS    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  FASM    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.
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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  PAGE    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
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
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                                              
00314/001  *LABELSNIFF                               SA  G          LBT:SNIFF                                                       
            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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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).
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
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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
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
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
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
0          SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL.
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
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/7 
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/6 
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
0          XPL FORMAT OBJECT FILE.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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             S0622 D3MISC FSNAME=M230XPL(1)                               69 
            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  D226    MTA:2260RTN                                                     
            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).
00322/002  *2260RTN                                  OC  G          *2260RTN                                                        
            D4T1    849  2260RTN..OC.002                    1 LINE     80    6 PAGE UM   MTA                 JULY 27, 1977  02:40:40
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                                     
            D4T1    850  STAT_MONTHLY_SUMMARY.MAIN.SP.001   1 LINE     99   16 PAGE UM   ENGLE               FEB. 10, 1977  13:51:54
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 THE SYSTEM STATUS SAVE PROGRAM (413/11) AND PRINTS THAT INFORMATION. 
            
           THE FOLLOWING PL/I FILE NAMES ARE USED:
            
            SPRINT    OUTPUT.
            ERROR     LOG OF SKIPPED INPUT RECORDS AND LIST OF MINUTES WITH MORE THAN 150 USERS SIGNED
                      ON DURING WEEKDAYS AND MORE THAN 50 USERS SIGNED ON DURING WEEKENDS.
            SYSTAT    INPUT FROM JOBS PROGRAM.  TAPE MUST BE FB(32400,108).
            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')
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0           
                         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
            
                         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
0          Referenced by comments of: 413/10 
00326/002   STAT MONTHLY SUMMARY     PPAGES SUBR     SP  G          S0027 DISTRB FSNAME=SYSSTAT2000                                 
            D4T1    851  STAT_MONTHLY_SUMMARY.PPAG.SP.002   1 LINE     99    6 PAGE UM   ENGLE               FEB. 10, 1977  13:52:50
0          SUBROUTINE CALLED BY MAIN PROGRAM.
00326/003   STAT MONTHLY SUMMARY     CPUSE SUBR      SP  G          S0027 DISTRB FSNAME=SYSSTAT3000                                 
            D4T1    852  STAT_MONTHLY_SUMMARY.CPUS.SP.003   1 LINE     91    4 PAGE UM   ENGLE               JAN. 21, 1977  14:26:55
0          SUBROUTINE WHICH READS JOBS STATISTICS DATA (SEE COMP 413/10) AND PRINTS THE RESULTS.  CALLED ONLY IF 'CPU'
           IS SPECIFIED FOR THE FIFTH PARAMETER.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00326/004   STAT MONTHLY SUMMARY     SETRATE         SP  G  SRAT    S0027 DISTRB FSNAME=SYSSTAT4000                                 
            D4T1    853  STAT_MONTHLY_SUMMARY.SETR.SP.004   1 LINE     80    4 PAGE UM   ENGLE               MAR. 11, 1977  15:25:31
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          OC  G          S0027 DISTRB FSNAME=SYST                                        
            D4T1    854  STAT_MONTHLY_SUMMARY.OBJE.OC.005   1 LINE     80  130 PAGE UM   ENGLE               MAR. 11, 1977  15:25:59
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 SPRINT=OUT PAR=SYSTAT=*WSG* ERROR=-ERROR
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 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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.
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
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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  DTTO    W030: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
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  PTTR    MTA:PRINTTRACE(1,999)                                           
            D4T1    871  PRINTTRACE..SA.001                 1 LINE     80    7 PAGE UM   MTA                 JULY 27, 1977  02:45:23
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/11, 1028/3 
00337/002   PRINTTRACE                               OC  G          MTA:PRINTTRACE(1000,1999)                                       
            D4T1    872  PRINTTRACE..OC.002                 1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  02:45:25
00338/001   RIPPLE                   PN/QN           SA  O  RPLE    MTA:RIPPLE(1,999)                                               
            D4T1    873  RIPPLE.PN/QN.SA.001                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:27
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
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 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00338/004   RIPPLE                   TN              SA  O  TNRP    MTA:TNRIP(1,999)                                                
            D4T1    876  RIPPLE.TN.SA.004                   1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:34
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
0          SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000).
00339       WRITE80                                  S            # (OBSOLETE)                                                      
            D2T1    165                                                             UM                                              
00340/001   READRESTP                                SA  O          S0938 FSAVE2 LBLTYPE=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       MTS.MACROS                               SM  G          COPY:MTS.MACROS                                                 
            D4T1    880  MTS.MACROS..SM.                    1 LINE     80   75 PAGE UM   DWB                 JULY 27, 1977  02:49:53
0          THIS IS "COPY:MTS.MACROS" WHICH IS USED TO ASSEMBLE MTS (042) AND THE "MTS SUBROUTINES":  KWIC (040),
           GETSPACE/FREESPAC (041), GUINFO/CUINFO (198), LLXU (354), PLIMIT (464), TIMNTRP (539), GATE (4000),
           AND RSF (578), FSUB (635), CMDS (636), DSRS (637), USUB (638), AND DSRI (639) IN ADDITION TO MANY OTHER PROGRAMS.
            
           FOR D4, THE FOLLOWING COPY SECTIONS HAVE BEEN CONVERTED INTO MACROS AND PLACED IN COPY:MTS.MACROS:
            
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0              COPY SECTION FILE NAME        MACRO NAME
            
               COPY:MTS.DSECT                THEDSECT
               COPY:UBCDSECTS                UBCDSECT
               COPY:WOPTRDSECT               WOPTRDCT
               COPY:FCBDSECT                 FCBDSCT
               COPY:FDUBDSECT                FDBDCT
               COPY:CLSAREA                  CLSAREA
               COPY:MTS.TV                   MTSTV
               COPY:MTS.CONTAB               MTSCTAB
               COPY:STANDARDTV               SUBTV
               COPY:MTS.RHTABLE              RHTABLE
               COPY:CLSPLAN                  CLSPLAN
               COPY:MTS.LLXUDEFS             LXDCT
               COPY:MTS.EQU                  MTSEQU
               COPY:MTS.EQU2                 MTSEQU2
               COPY:CLSVECTOR                CLSTV
0          Referenced by comments of: 1/5, 41/1, 42/1, 101/1, 116/1, 135/1, 198/1, 322/1, 354/1, 354/7, 387/1, 387/2, 387/3,
                 387/4, 387/5, 387/12, 388/1, 388/2, 400/3, 413/5, 447/1, 464/1, 482/33, 509/1, 513/1, 531/1, 531/4, 531/8,
                 535/1, 535/3, 539/1, 553/1, 553/2, 553/6, 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/3, 648/5, 648/9, 651/10, 725/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
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
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/4).
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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   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/4).
           ASSEMBLE USING COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1, 354/2 
00354/002   LLXU                     UPDATE          UU  G          MTS:LLXUUPD                                                     
            D4T1    885  LLXU.UPDATE.UU.002                 1 LINE     72   21 PAGE UM   SHERRY              JULY 27, 1977  02:50:08
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (354/1).
00354/003   LLXU                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   SHERRY                                     
00354/004   LLXU                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   SHERRY                                     
00354/005   LLXU                     370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=LLXU.LIST                 
            D4T1    886  LLXU.370_LISTING.L.005             1 SEQ     133  117 PAGE UM   SHERRY              JULY 27, 1977  02:52:20
00354/006   LLXU                     360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=LLXU.LIST             
            D4T1    887  LLXU.360_LISTING.L.006             1 SEQ     133  117 PAGE UM   SHERRY              JULY 27, 1977  02:54:47
00354/007   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).  COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU (087).
           CONTAINS REFERENCE TO W009:LLXUTEST.XTL (354/11).  DOCUMENTATION ON THE USE OF
           THIS PROGRAM IS CONTAINED IN THE WRITEUP (354/13).
0          Referenced by comments of: 354/9, 354/11, 354/13 
00354/008   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/009   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/7).
00354/010   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/011   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/7) WITHOUT
           UNLOADING THE TEST PROGRAM.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          Referenced by comments of: 354/7 
00354/012   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/013   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/7).
0          Referenced by comments of: 354/7 
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
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
                         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    S0721 'D3T2' FSNAME=RCALL..SA.1(1)                           306
            D4T1    897  RCALL/ADROF_SUBRS..SA.001          1 SEQ      80    2 PAGE UM   ENGLE               JULY 31, 1973  23:20.43
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)                                             
            D4T1    898  TAPECOPY..SA.001                   1 LINE     80   17 PAGE UM   WSG                 JULY 28, 1977  00:21:09
0          MULTIPLE FILE TAPE COPY PROGRAM.  COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK.
00358/002  *TAPECOPY                                 OC  G          *TAPECOPY                                                       
            D4T1    899  TAPECOPY..OC.002                   1 LINE     80    3 PAGE UM   WSG                 JULY 28, 1977  00:21:11
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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/57) AND *CNFGINFODSECT (654).
            
           NOTE: WHEN RUNNING ON A 360, THIS ROUTINE ASSUMES THAT THE LOCAL TIME IS
                 EASTERN DAYLIGHT (-4 HOURS FROM GMT).  TO CHANGE THIS, REASSEMBLE
                 WITH A DIFFERENT VALUE FOR &TOFFSET (IN MINUTES).
0          Referenced by comments of: 534/8, 716/6, 716/10 
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
0          LOADED INTO SHARED VM BY PISTLE.
00387/001   HASP                     MAIN            SA  G  HSP     S0996 HASP 'MODULAR HASP' POSN=HASP.MAIN                        
            D4T1    902  HASP.MAIN.SA.001                   1 SEQ      80  255 PAGE UM   HANSEN              JULY 27, 1977  02:57:55
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
           PCE'S, DCT'S, AND MESSAGE BLOCKS.  COPIES HASP.DSECTS (387/10), HASP.DECS (387/7),
           COPY:GLOBALSETS (1026/3), HASP.SETS (387/8), COPY:JOBSTA (413/13), AND HASP.GLOBALS(100)
           (387/9).  ASSEMBLE USING COPY:MTS.MACROS (344) AND HASP.MACROS (387/6).
0          Referenced by comments of: 243/1, 570/3 
00387/002   HASP                     EXEC            SA  G  EXEC    S0996 HASP 'MODULAR HASP' POSN=HASP.EXEC                        
            D4T1    903  HASP.EXEC.SA.002                   1 SEQ      80   46 PAGE UM   HANSEN              JULY 27, 1977  02:58:01
0          COPIES HASP.DSECTS (387/10), HASP.DECS (387/7), COPY:GLOBALSETS (1026/3),
           HASP.SETS (387/8), COPY:JOBSTA (413/13), AND HASP.GLOBALS (387/9).  ASSEMBLE
           USING COPY:MTS.MACROS (344) AND HASP.MACROS (387/6).
00387/003   HASP                     RDR             SA  G  RDR     S0996 HASP 'MODULAR HASP' POSN=HASP.RDR                         
            D4T1    904  HASP.RDR.SA.003                    1 SEQ      80   65 PAGE UM   HANSEN              JULY 27, 1977  02:58:05
0          COPIES HASP.DSECTS (387/10), HASP.DECS (387/7), COPY:GLOBALSETS (1026/3), HASP.SETS
           (387/8), HASP.GLOBALS (387/9), AND HASP.MNET (387/11).  ASSEMBLE USING COPY:MACROS
           (344) AND HASP.MACROS (387/6).
00387/004   HASP                     PPR             SA  G  PPR     S0996 HASP 'MODULAR HASP' POSN=HASP.PPR                         
            D4T1    905  HASP.PPR.SA.004                    1 SEQ      80   24 PAGE UM   HANSEN              JULY 27, 1977  02:58:08
0          COPIES HASP.DSECTS (387/10), HASP.DECS (387/7), COPY:GLOBALSETS (1026/3), HASP.SETS
           (387/8), AND HASP.GLOBALS (387/9).  ASSEMBLE USING COPY:MTS.MACROS (344) AND
           HASP.MACROS (387/6).
00387/005   HASP                     DATA            SA  G  DATA    W167:HASP.D4.DATA                                               
            D4T1    906  HASP.DATA.SA.005                   1 LINE     80    6 PAGE UM   HANSEN              SEP. 15, 1977  18:59:51
0          COPIES HASP.DECS (387/7), COPY:GLOBALSETS (1026/3), AND HASP.SETS (387/8).
           ASSEMBLE USING COPY:MTS.MACROS (344) AND HASP.MACROS (387/6).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00387/006   HASP                     MACROS          SM  G  MACS    S0996 HASP 'MODULAR HASP' POSN=HASP.MACROS                      
            D4T1    907  HASP.MACROS.SM.006                 1 SEQ      80   37 PAGE UM   HANSEN              JULY 27, 1977  02:58:20
0          HASP MACRO LIBRARY.
0          Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/5, 387/12 
00387/007   HASP                     DECS            SA  G  DECS    S0996 HASP 'MODULAR HASP' POSN=HASP.DECS                        
            D4T1    908  HASP.DECS.SA.007                   1 SEQ      80    3 PAGE UM   HANSEN              JULY 27, 1977  02:58:21
0          CONDITIONAL ASSEMBLY SYMBOL DEFINITIONS.
0          Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/5, 387/12, 387/33 
00387/008   HASP                     SETS            SA  G  SETS    S0996 HASP 'MODULAR HASP' POSN=HASP.SETS                        
            D4T1    909  HASP.SETS.SA.008                   1 SEQ      80   12 PAGE UM   HANSEN              JULY 27, 1977  02:58:24
0          CONDITIONAL ASSEMBLY SYMBOL SETS AND EQUS.
0          Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/5, 387/12, 387/33 
00387/009   HASP                     GLOBALS         SA  G  GBLS    S0996 HASP 'MODULAR HASP' POSN=HASP.GLOBALS                     
            D4T1    910  HASP.GLOBALS.SA.009                1 SEQ      80    4 PAGE UM   HANSEN              JULY 27, 1977  02:58:27
0          COPIES COPY:LLMPSEQU (087).
0          Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/33 
00387/010   HASP                     DSECTS          SA  G  DSCT    S0996 HASP 'MODULAR HASP' POSN=HASP.DSECTS                      
            D4T1    911  HASP.DSECTS.SA.010                 1 SEQ      80   26 PAGE UM   HANSEN              JULY 27, 1977  02:58:46
0          MOST OF HASP'S DSECTS AND ASSOCIATED EQU'S FOR PCE, DCT, JCT, ETC.
0          Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/12, 387/33 
00387/011   HASP                     MNET            SA  G  MNET    S0996 HASP 'MODULAR HASP' POSN=HASP.MNET                        
            D4T1    912  HASP.MNET.SA.011                   1 SEQ      80   24 PAGE UM   HANSEN              JULY 27, 1977  02:58:48
0          MERIT BATCH RECEIVER SUPPORT.
0          Referenced by comments of: 387/3 
00387/012   HASP                     MXMTR           SA  G  MXMT    S0996 HASP 'MODULAR HASP' POSN=HASP.MXMTR                       
            D4T1    913  HASP.MXMTR.SA.012                  1 SEQ      80   16 PAGE UM   HANSEN              JULY 27, 1977  02:58:59
0          MERIT BATCH TRANSMITTER PROCESSOR.  COPIES HASP.DSECTS (387/10), HASP.DECS (387/7),
           HASP.SETS (387/8), AND COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:MTS.MACROS (344)
           AND HASP.MACROS (387/6).
00387/013   HASP                     SEG2:HASP       OC  G          W167:HASP.D4                                                    
            D4T1    914  HASP.SEG2:HASP.OC.013              1 LINE     80   35 PAGE UM   HANSEN              SEP. 15, 1977  18:59:58
0          THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL.  THIS FILE ALSO CONTAINS THE
           HASPLING (388) OBJECT.  THE D4.0 VERSION HAS 6 RJE STATIONS AND WAS ASSEMBLED
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          WITH PAR=SYSPARM='00011000010,,,,6,,,,,150,50,,20,,,NO,0,,6,,,,0'.  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/014   HASP                     LISTING         L              S1019 HASPLS 'HASP LISTING' POSN=HASPLIST                       
            D4T1    915  HASP.LISTING.L.014                 1 SEQ     133  895 PAGE UM   HANSEN              SEP. 15, 1977  19:01:14
00387/015   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/016   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/017   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/018   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/019   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/020   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/021   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/9, AND (3) THE
           OBJECT FOR THE ALGOL COMPILER (OR LIBRARY) MTS INTERFACE (COMP 505/2 OR 505/22).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00387/022   HASP                     *HSP            C              *HSP                                                            
            D4T1    923  HASP.*HSP.C.022                    1 LINE      9    1 PAGE UM   WSG                 JULY 27, 1977  03:04:50
0          COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:HSP (387/23).
           INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE.
00387/023   HASP                     STRT:HSP        C              MTS:TST.HSP                                                     
            D4T1    924  HASP.STRT:HSP.C.023                1 LINE     25    1 PAGE UM   WSG                 JULY 27, 1977  03:04:52
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.
0          Referenced by comments of: 387/22 
00387/024   HASP                     *DRN            C              *DRN                                                            
            D4T1    925  HASP.*DRN.C.024                    1 LINE      9    1 PAGE UM   WSG                 JULY 27, 1977  03:04:54
0          COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:DRN (387/25).
           INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE.
00387/025   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
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/24 
00387/026   HASP                     OPER MANUAL     WF             W035:HSPM                                                       
            D4T1    927  HASP.OPER_MANUAL.WF.026            1 LINE    152   25 PAGE UM   HANSEN              JULY 27, 1977  03:04:58
0          MTS HASP OPERATOR'S MANUAL.  NOTE:  SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592).
00387/027   HASP                     ASM JOB         C              W167:HSP.GEN                                                    
            D4T1    928  HASP.ASM_JOB.C.027                 1 LINE     83    1 PAGE UM   HANSEN              JULY 27, 1977  03:05:09
0          COMMANDS TO ASSEMBLE HASP.
00387/028   HASP                     PCE SNIFFER     SA     PCE     DWB:PCE(1,999)                                                  
            D4T1    929  HASP.PCE_SNIFFER.SA.028            1 LINE     80    4 PAGE UM   HANSEN              JULY 27, 1977  03:05:11
0          PCE SNIFFER UTILITY PROGRAM.
           EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE:
            
             F:N1   B:N2   T: N3P  N4U  N5B
            
           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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          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 HAS ABSOLUTE DEFINITIONS FOR DISPLACEMENTS OF SOME ITEMS IN
           PCE AND WORK AREA OF EXECUTION PCE.
00387/029   HASP                     PCE SNIFFER     OC             DWB:PCE(1000)                                                   
            D4T1    930  HASP.PCE_SNIFFER.OC.029            1 LINE     80    1 PAGE UM   HANSEN              JULY 27, 1977  03:05:13
00387/030   HASP                     WRITEUP         WF             W167:HASP.WRUP                                                  
            D4T3    768  HASP.WRITEUP.WF.030                1 LINE    116   10 PAGE UM   HANSEN              SEP. 19, 1977  16:31:07
0          A DISCUSSION OF THE D4.0 HASP COMPONENTS AND CHANGES WITH A DESCRIPTION OF HOW
           TO ASSEMBLE IT.
00387/031   HASP                     DUMP/ANAL       S   O          W167:D/A.D4                                                     
            D4T1    931  HASP.DUMP/ANAL.S.031               1 LINE    125   21 PAGE UM   HANSEN              JULY 27, 1977  03:05:17
0          A SPITBOL PROGRAM WRITTEN IN SNOSTORM (SEE COMP 678).  THIS PROGRAM PERMITS A
           SYSTEM PROGRAMMER TO LOOK A HASP PCE'S, DCT'S, BUFFERS, ETC (IN SHARED VM OR
           ON A DUMP TAPE ASSIGNED TO UNIT 1) AND PRINT THEM IN AN EASILY READABLE FORM.
           USES DUMP/ANAL.ASM (387/33) TO LOAD FUNCTIONS AND UNSP:SPITLIB.
00387/032   HASP                     DUMP/ANAL       OC  O          W167:D/A                                                        
            D4T1    932  HASP.DUMP/ANAL.OC.032              1 LINE     80   43 PAGE UM   HANSEN              JULY 27, 1977  03:05:20
0          HAS A "$CONTINUE WITH UNSP:SPITLIB" CARD.
00387/033   HASP                     DUMP/ANAL.ASM   SA  G          W167:D/A.ASM                                                    
            D4T1    933  HASP.DUMP/ANAL.ASM.SA.033          1 LINE    106   31 PAGE UM   HANSEN              JULY 27, 1977  03:05:25
0          ASSEMBLY ROUTINES USED BY 387/31.  COPIES HASP.DECS (387/7), COPY:GLOBALSETS
           (1026/3), HASP.SETS (387/8), HASP.DSECTS (387/10), AND HASP.GLOBALS (387/9).
0          Referenced by comments of: 387/31 
00387/034   HASP                     DUMP/ANAL.ASM   OL  G          W167:D/A.LIB                                                    
            D4T1    934  HASP.DUMP/ANAL.ASM.OL.034          1 LINE    252   18 PAGE UM   HANSEN              JULY 27, 1977  03:05:36
00387/035   HASP                     DUMP/ANAL.WRUP  WF             W167:D/A.WRUP                                                   
            D4T1    935  HASP.DUMP/ANAL.WRUP.WF.035         1 LINE     70    5 PAGE UM   HANSEN              JULY 27, 1977  03:05:38
0          BRIEF DESCRIPTION OF DUMP/ANALYZE USE, COMPILATION, AND MODIFICATION.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00388/001   HASPLING                 MAIN            SA  G  HSPL    W167:HASPLING.D4                                                
            D4T1    936  HASPLING.MAIN.SA.001               1 LINE     80   26 PAGE UM   HANSEN              SEP. 15, 1977  19:02:11
0          COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING
           COPY:MTS.MACROS (344).
0          Referenced by comments of: 387/13 
00388/002   HASPLING                 MNET            SA  G  HSPM    S0996 HASP 'MODULAR HASP' POSN=HSPLNG.MNET                      
            D4T1    937  HASPLING.MNET.SA.002               1 SEQ      80   18 PAGE UM   HANSEN              JULY 27, 1977  03:05:44
0          ASSEMBLE USING COPY:MTS.MACROS (344).
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.
0          Referenced by comments of: 710/2 
00389/002  *GENLIB                                   OE  G          *GENLIB                                                         
            D4T1    939  GENLIB..OE.002                     1 LINE  12279   14 PAGE UM   TIFFANY             JULY 27, 1977  03:06:13
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
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   PIRKOLA             AUG. 14, 1977  19:29:14
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   PIRKOLA             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   PIRKOLA             AUG. 14, 1977  19:29:15
00391       FILE STATISTICS                          SP           # (OBSOLETE)                                                      
            D2T1    123                                                             UM                                              
00392      *FSAVE                                    SA           # (OBSOLETED BY COMP 548)                                         
            D2.2    116                                                             UM                                              
0          Referenced by comments of: 549/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00399/001   DUMP                                     SA  G  DUMP    MTA:DUMP(1,999)                                                 
            D4T1    944  DUMP..SA.001                       1 LINE     80   13 PAGE UM   MTA                 JULY 27, 1977  03:06:22
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 'DUMP'.  THE PRINTDUMP PROGRAM (400) WILL PRINT SELECTED
           PARTS OF A DUMP TAPE.
           COPIES COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 400/1 
00399/002   DUMP                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00399/003   DUMP                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00400/001   PRINTDUMP                MAIN            SA  G  DMPL    MTA:DMPLST                                                      
            D4T1    945  PRINTDUMP.MAIN.SA.001              1 LINE     80   43 PAGE UM   MTA                 JULY 27, 1977  03:06:24
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. 
           MUST BE REASSEMBLED FOR A 360 VERSION.  COPIES COPY:LLMPSEQU (087),
           COPY:PCBDSECT (470), COPY:GLOBALDEFS (1026/1), AND COPY:GLOBALSETS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 399/1, 400/12, 534/9 
00400/002   PRINTDUMP                VMFIND SUBR     SA  G  DMPF    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
0          SUBROUTINE TO FIND A VM PAGE ON A DUMP TAPE.
00400/003   PRINTDUMP                SSCN SUBR       SA  G  DMPS    MTA:DMPLST.SSCN                                                 
            D4T1    947  PRINTDUMP.SSCN_SUBR.SA.003         1 LINE     80   11 PAGE UM   MTA                 JULY 27, 1977  03:06:31
0          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/4)
           AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING COPY:MTS.MACROS (344).
0          Referenced by comments of: 400/4, 534/10 
00400/004   PRINTDUMP                DUMP SUBR       SA  G  DMPA    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
0          SUBROUTINE TO FORMAT DUMP OUTPUT.  CALLED BY SSCN (400/3).
00400/005   PRINTDUMP                SYSADR SUBR     SA  G  DMPA    MTA:DMPLST.SYSAD(1,999)                                         
            D4T1    949  PRINTDUMP.SYSADR_SUBR.SA.005       1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  03:06:35
0          SUBROUTINE TO RESOLVE A NAME FROM THE UMLOAD SYMBOL TABLE FOR THE RESIDENT SYSTEM
           ON A DUMP TAPE.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00400/006   PRINTDUMP                TASKSTAT SUBR   SA  G  DMPT    MTA:DMPLST.TSTAT(1,999)                                         
            D4T1    950  PRINTDUMP.TASKSTAT_SUBR.SA.006     1 LINE     80    6 PAGE UM   MTA                 JULY 27, 1977  03:06:38
0          VERSION OF TASKSTAT SUBROUTINE (647) WHICH WORKS WITH A DUMP TAPE.  MUST BE
           REASSEMBLED FOR A 360 VERSION.  COPIES COPY:GLOBALS(1026/4), DMPLST.VCONS
           (400/10), COPY:LLMPSEQU (087), AND COPY:JOBSTA (413/13).  ASSEMBLE USING
           COPY:SETPARM (653).
0          Referenced by comments of: 400/12 
00400/007   PRINTDUMP                LOADC SUBR      SA  G  DMPC    MTA:DMPLST.LOADC(1,999)                                         
            D4T1    951  PRINTDUMP.LOADC_SUBR.SA.007        1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  03:06:40
0          SUBROUTINE TO PRODUCE A SUBSET OF LOADCLAS (540/7) OUTPUT FROM A DUMP TAPE.
           COPIES COPY:GLOBALS (1026/4), COPY:LLMPSEQU(100) (087), AND DMPLST.VCONS (400/10).
           ASSEMBLE USING COPY:SETPARM (653).
00400/008   PRINTDUMP                ICTAB SUBR      SA  G  DMPI    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
0          SUBROUTINE WHICH IMPLEMENTS THE ICTAB COMMAND FOR PRINTDUMP.  THIS IS A MODIFIED
           VERSION OF TABLMOD (554).  ASSEMBLE USING COPY:FILE.MACROS (482/36).
00400/009   PRINTDUMP                ICSTAT SUBR     SA  G  DMPI    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
0          VERSON OF THE ICSTAT SUBROUTINE (PART OF 482/27) THAT WORKS FROM A DUMP TAPE.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00400/010   PRINTDUMP                VCONS           SA  G  DMPC    MTA:DMPLST.VCONS                                                
            D4T1    954  PRINTDUMP.VCONS.SA.010             1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  03:06:48
0          COPY SECTION.
0          Referenced by comments of: 400/6, 400/7 
00400/011   PRINTDUMP                370 OBJECT      OC  G          MTA:PRINTDUMP                                                   
            D4T1    955  PRINTDUMP.370_OBJECT.OC.011        1 LINE   8984   13 PAGE UM   MTA                 JULY 27, 1977  03:06:50
0          THIS FILE CONTAINS THE OBJECT FOR ALL OF PRINTDUMP PLUS PRINTTRACE (337).
00400/012   PRINTDUMP                360 OBJECT      OC  G          MTA:PRINTDUMP.360                                               
            D4T1    956  PRINTDUMP.360_OBJECT.OC.012        1 LINE   8920   13 PAGE UM   MTA                 JULY 27, 1977  03:06:52
0          SAME AS 400/11 EXCEPT FOR THE MAIN PROGRAM (400/1) AND THE TASKSTAT SUBR (400/6)
           WHICH ARE REASSEMBLED FOR A 360.
00400/013   PRINTDUMP                WRITEUP         WF             MTA:PRINTDUMP.W                                                 
            D4T1    957  PRINTDUMP.WRITEUP.WF.013           1 LINE     78    3 PAGE UM   MTA                 JULY 27, 1977  03:06:55
0          DESCRIPTION OF HOW TO USE PRINTDUMP.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00410/001  *ASMTIDY                                  SA  S  ATID    DWB:ASMTIDY.S(1)                                                
            D4T1    958  ASMTIDY..SA.001                    1 LINE     80   17 PAGE UBC            DWB       JULY 27, 1977  03:06:57
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
           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            DWB       JULY 27, 1977  03:06:59
00410/003  *ASMTIDY                  NEW ASMTIDY     SS  G          UNSP:ASMTIDY(1000)                                              
            D4T1    960  ASMTIDY.NEW_ASMTIDY.SS.003         1 LINE    141    3 PAGE UM   OGDEN               JULY 27, 1977  03:07:01
0          NEW VERSION OF ASMTIDY WHICH WORKS CORRECTY.  SINCE IT IS WRITTEN IN SPITBOL,
           NO PARAMETER FOR SPECIFYING THE TAB STOPS IS SUPPORTED.  THERE IS NO ICTL
           CAPABILITY.  IT INDENTS IF'S AND DO'S AND, FOR DEBUGGING, IT GENERATES IF AND
           DO LABELS WHICH INCLUDE THE SOURCE LINE NUMBER.  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:SPITLIB.  AT UM, THIS
           PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
00410/004  *ASMTIDY                  NEW ASMTIDY     OE  G          UNSP:ASMTIDY(1,999)                                             
            D4T1    961  ASMTIDY.NEW_ASMTIDY.OE.004         1 LINE  12644    6 PAGE UM   OGDEN               JULY 27, 1977  03:07:03
0          HAS A "$CONTINUE WITH *SPITLIB" CARD.
00413/001   SYSTEM STATUS            SSRTN           SA  G  SRTN    WSG:SSRTN                                                       
            D4T1    962  SYSTEM_STATUS.SSRTN.SA.001         1 LINE     80   76 PAGE UM   WSG                 JULY 27, 1977  03:07:06
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/2).  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.  SSRTN CALLS BJPMOD (650),
           TASKSTAT (647), TSKFMT (019), AND CMDSTAT (531).  COPIES COPY:BJPDSCT (650/3),
           COPY:JOBSTA (413/13), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND *CNFGINFODSECT
           (654).  ASSEMBLE WITH PAR=SIZE=12.
0          Referenced by comments of: 19/1, 413/3, 413/5, 413/7, 540/9, 647/1, 650/1 
00413/002   SYSTEM STATUS            SSRTN           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00413/003   SYSTEM STATUS            JOBS JOB        SA  G  JOBS    WSG:JOBS(1,999)                                                 
            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)                                             
            D4T1    964  SYSTEM_STATUS.SYS_STAT_CL.SA.005   1 LINE     80   14 PAGE UM   WSG                 JULY 27, 1977  03:07:20
0          $SYSTEMSTATUS CLS FOR INTERFACING WITH SSRTN (413/1) FROM MTS COMMAND LEVEL.
           ASSEMBLE USING COPY:MTS.MACROS (344).
0          Referenced by comments of: 413/1 
00413/006   SYSTEM STATUS            SYS STAT CLS    OC  G          *CLSSSTA                                                        
            D4T1    965  SYSTEM_STATUS.SYS_STAT_CL.OC.006   1 LINE     80    2 PAGE UM   WSG                 JULY 27, 1977  03:07:22
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)                                             
            D4T1    966  SYSTEM_STATUS.JOBSTA_VECT.SA.007   1 LINE     80    1 PAGE UM   WSG                 JULY 27, 1977  03:07:24
0          SYSTEM STATUS INFORMATION VECTOR MAINTAINED BY SSRTN (413/1).
           COPIES COPY:JOBSTA (413/13).
0          Referenced by comments of: 413/1 
00413/008   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/009   SYSTEM STATUS            SYS STAT SAVE   C              *SSS                                                            
            D4T1    967  SYSTEM_STATUS.SYS_STAT_SA.C.009    1 LINE     26    1 PAGE UM   WSG                 JULY 27, 1977  03:07:27
0          COMMANDS TO SIGNON AND SOURCE TO SYS:SSS.  INVOKED BY *LAS (154) OR BY ENTERING "MTS *SSS"
           ON OPERATORS CONSOLE.
00413/010   SYSTEM STATUS            SYS STAT SAVE   C              SYS:SSS(1,99)                                                   
            D4T1    968  SYSTEM_STATUS.SYS_STAT_SA.C.010    1 LINE    104    1 PAGE UM   WSG                 JULY 27, 1977  03:07:30
0          COMMANDS TO RUN THE SYSTEM STATUS SAVE PROGRAM (413/11) WHICH ACCUMLATES SYSTEM LOAD INFORMATION
           IN A FILE (SYS:STAT), ONE LINE EVERY 20 SECONDS.  THIS FILE IS AUTOMATICALLY DUMPED ONTO A
           TAPE PERIODICALLY.  THIS INFORMATION (ON TAPE) CAN BE PROCESSED BY THE STAT MONTHLY SUMMARY
           PROGRAM (326).  TO PREVENT THE LOGGING OF THIS DATA, SIMPLY REMOVE THE "MTS *SSS" LINE
           FROM *LAS.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00413/011   SYSTEM STATUS            SAVE PGM        SA  G  SSSV    WSG:SSTA.SAVE(1,999)                                            
            D4T1    969  SYSTEM_STATUS.SAVE_PGM.SA.011      1 LINE     80    1 PAGE UM   WSG                 JULY 27, 1977  03:10:14
0          SYSTEM STATUS SAVE PROGRAM (SEE COMMENTS FOR 413/10).
0          Referenced by comments of: 326/1, 413/10 
00413/012   SYSTEM STATUS            SAVE PGM        OC  G          SYS:SSS(100)                                                    
            D4T1    970  SYSTEM_STATUS.SAVE_PGM.OC.012      1 LINE     80    1 PAGE UM   WSG                 JULY 27, 1977  03:10:16
00413/013   SYSTEM STATUS            JOBSTA DSECT    SA  G          COPY:JOBSTA                                                     
            D4T1    971  SYSTEM_STATUS.JOBSTA_DSEC.SA.013   1 LINE     80    4 PAGE UM   WSG                 JULY 27, 1977  03:10:19
0          THIS IS THE DSECT FOR THE SYSTEM STATUS VECTOR.
0          Referenced by comments of: 42/1, 101/1, 121/1, 198/1, 387/1, 387/2, 400/6, 413/1, 413/7, 647/1, 650/1, 3024/3 
00413/014   SYSTEM STATUS            DOCUMENTATION   WF             WSG:SSRTN.DOC                                                   
            D4T1    972  SYSTEM_STATUS.DOCUMENTATI.WF.014   1 LINE    105    3 PAGE UM   WSG                 JULY 27, 1977  03:10:21
0          WRITEUP DESCRIBING THE SYSTEM LOAD COMPUTATION ALGORITHM AND JOB SCHEDULING MECHANISM.
0          Referenced by comments of: 540/9 
00414/001  *TAPEDUMP                                 SA  G  TDMP    S0221 FSAVE FSNAME=TAPEDUMP                                     
            D4T1    973  TAPEDUMP..SA.001                   1 LINE     80   20 PAGE UM   WSG                 JAN. 17, 1977  17:08:35
0          PROGRAM TO DUMP 7- OR 9-TRACK TAPES OR FILES.
           SOURCE IN LINES (1,999).
00414/002  *TAPEDUMP                                 OE  G          *TAPEDUMP                                                       
            D4T1    974  TAPEDUMP..OE.002                   1 LINE   4729    3 PAGE UM   WSG                 JULY 27, 1977  03:11:03
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
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                                        
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
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.
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
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
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                                                      
            D4T1    980  CCATL..SA.001                      1 LINE     80   18 PAGE UM   PIRKOLA             JULY 27, 1977  03:11:16
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
1                                                                                               FRI AUG 02/96   16:11:27   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          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/36).  SEE COMP 682/2 FOR A WRITEUP.
0          Referenced by comments of: 682/2 
00442/002   CCATL                                    OC  O          FILE:CCATL.O                                                    
            D4T1    981  CCATL..OC.002                      1 LINE     80    5 PAGE UM   PIRKOLA             JULY 27, 1977  03:11:19
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  G          S0485 MTSV2 'MTS MANUALS' POSN=NEWM8.V2                         
            D4T1    983  MTS_VOLUME_2.MASTER.WT.001         1 SEQ     132  250 PAGE UM   MANUAL              JULY 27, 1977  03:16:01
0          TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUALS
           (JANUARY 1975, UPDATED JULY 1975, NOV 1976, AND MAY 1977).
            
           EDITOR:  RICHARD A. SALISBURY
00444/002   MTS VOLUME 2             PRINT           PT  G          S0485 MTSV2 'MTS MANUALS' POSN=PRINT8.V2                        
            D4T1    984  MTS_VOLUME_2.PRINT.PT.002          1 SEQ     132  467 PAGE UM   MANUAL              JULY 27, 1977  03:16:31
0          TEXT/360 PRINT FILE.
00444/003   MTS VOLUME 2             FLOWCHART       P   G          S0485 MTSV2 'MTS MANUALS' POSN=FLOWCHART                        
            D4T1    985  MTS_VOLUME_2.FLOWCHART.P.003       1 SEQ     133    6 PAGE UM   MANUAL              JULY 27, 1977  03:20:08
0          *FLOWCHART EXAMPLE -- MUST BE PRINTED AT 8 LINES/INCH.
00447/001   MOUNT STATISTICS         MNTSTAT SUBR    SA  G  MSTA    S0221 FSAVE 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).
0          Referenced by comments of: 101/1, 101/2, 447/3, 447/8 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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)                                                
            D4T1    987  MOUNT_STATISTICS.SAVMS_PG.SA.003   1 LINE     80    7 PAGE UM   WSG                 JULY 27, 1977  03:20:12
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 
00447/004   MOUNT STATISTICS         SAVMS PGM       OC  G          WSG:SAVMS(1000)                                                 
            D4T1    988  MOUNT_STATISTICS.SAVMS_PG.OC.004   1 LINE     80    2 PAGE UM   WSG                 JULY 27, 1977  03:20:15
00447/005   MOUNT STATISTICS         MSSCN PGM       SA  G  MSSN    WSG:MSSCN(1,999)                                                
            D4T1    989  MOUNT_STATISTICS.MSSCN_PG.SA.005   1 LINE     80   13 PAGE UM   WSG                 JULY 27, 1977  03:20:17
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                                                       
            D4T1    990  MOUNT_STATISTICS.MSSCN_PG.OC.006   1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  03:20:20
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00447/007   MOUNT STATISTICS         *MSS            C              *MSS                                                            
            D4T1    991  MOUNT_STATISTICS.*MSS.C.007        1 LINE     52    1 PAGE UM   WSG                 JULY 27, 1977  03:20:22
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
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 
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
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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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 LBLTYPE=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
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                                                    
            D4T1   1074  OLTEP.OLTEPLIB.OL.079              1 LINE   2572   64 PAGE UM   MTA                 JULY 27, 1977  03:26:42
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                                                 
            D4T1   1075  OLTEP.OLTEPBLDLIN.D.080            1 LINE     60    7 PAGE UM   MTA                 JULY 27, 1977  03:26:46
0          INPUT TO CREBLDL (545/33) FOR OLTEP.  CONTAINS ENTRIES FOR THINGS IN
           OLTEPLIB (458/79) AND OLTEPTSTLIB (458/82), BUT NOT OLTEPCDSLIB (458/85).
0          Referenced by comments of: 458/82 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00458/081   OLTEP                    OLTEPBLDL       D   G          ETC:OLTEPBLDL                                                   
            D4T1   1076  OLTEP.OLTEPBLDL.D.081              1 SEQ     242    7 PAGE UM   MTA                 JULY 27, 1977  03:26:48
0          BLDL INFO FOR OLTEP.  CREATED BY CREBLDL (545/33) USING 458/80 AND 458/84 AS INPUT.
00458/082   OLTEP                    OLTEPTSTLIB     OL  G          WSG:OLTEPTSTLIB                                                 
            D4T1   1077  OLTEP.OLTEPTSTLIB.OL.082           1 LINE  26386  232 PAGE UM   MTA                 JULY 27, 1977  03:26:50
0          OBJECT LIBRARY FOR TEST SECTIONS AND CDS (CONFIGURATION DATA SET)
           MODULES.  INCLUDES TESTS FOR:  2400, 2301, 2540, 2541, 2501, 1403,
           2305, 2671, 2835, AND 3270.  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 OLTEPBLDLIN (458/80) (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                    OLTEPCDS        D              MTA:OLTEPCDS                                                    
            D4T1   1078  OLTEP.OLTEPCDS.D.083               1 LINE     68    5 PAGE UM   MTA                 JULY 27, 1977  03:27:02
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/85 
00458/084   OLTEP                    OLTEPCDSBLDL    D              MTA:OLTEPCDSBLDL                                                
            D4T1   1079  OLTEP.OLTEPCDSBLDL.D.084           1 LINE     60    7 PAGE UM   MTA                 JULY 27, 1977  03:27:04
0          INPUT TO CREBLDL FOR THE UM CONFIGURATION CDS.
00458/085   OLTEP                    OLTEPCDSLIB     OL  G          ETC:OLTEPCDSLIB                                                 
            D4T1   1080  OLTEP.OLTEPCDSLIB.OL.085           1 LINE   4644   21 PAGE UM   MTA                 JULY 27, 1977  03:27:06
0          LIBRARY OF CDS ENTRIES FOR THE UM CONFIGURATION PRODUCED BY SOSP READING
           OLTEPCDS (458/83).
0          Referenced by comments of: 458/80 
00458/086   OLTEP                    OLTEPOBJCVT     SA  O  OBJC    MTA:OLTEPOBJCVT(1,999)                                          
            D4T1   1081  OLTEP.OLTEPOBJCVT.SA.086           1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  03:27:09
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00458/087   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/088   OLTEP                    OLTEPCMD        C              MTA:OLTEPCMD                                                    
            D4T1   1083  OLTEP.OLTEPCMD.C.088               1 LINE     95    1 PAGE UM   MTA                 JULY 27, 1977  03:27:14
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/88 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  DED     WSG:DEDIT                                                       
            D4T1   1084  DISTRIBUTION.*DEDIT.SA.001         1 LINE     80   45 PAGE UM   WSG                 JULY 27, 1977  03:27:16
0          DISTRIBUTION DRIVER FILE EDITOR USED TO CONTRUCT AND EDIT DRIVER FILES SUCH AS 461/6.
           CALLS THE MTS EDIT SUBROUTINE.  COPIES COPY:DRDSECT (461/12).
0          Referenced by comments of: 461/12 
00461/002   DISTRIBUTION             *DEDIT          OE  G          *DEDIT                                                          
            D4T1   1085  DISTRIBUTION.*DEDIT.OE.002         1 LINE   9614    5 PAGE UM   WSG                 JULY 27, 1977  03:27:20
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
00461/005   DISTRIBUTION             CLEAN COMMENTS               # (OBSOLETED BY *DEDIT)                                           
            D3T3     33  DISTRIBUTION.CLEAN_COMMENT.SA.9    1 LINE     80    3 PAGE UM                       AUG. 01, 1973  18:28.16
00461/006   DISTRIBUTION             6250 DRIVER     D              MTS:D4DRIVER                                                    
            D4T3    776  DISTRIBUTION.6250_DRIVER.D.006     1 LINE    244  219 PAGE UM   WSG                 SEP. 19, 1977  17:11:12
0          THIS IS THE COMPLETE DRIVER FILE FOR THE 6250 BPI VERSION OF D4.0.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          Referenced by comments of: 461/14 
00461/007   DISTRIBUTION             1600 DRIVER     D              MTS:D4DRIVER1600                                                
            D4T3    777  DISTRIBUTION.1600_DRIVER.D.007     1 LINE    244  219 PAGE UM   WSG                 SEP. 19, 1977  17:11:27
0          THIS IS THE COMPLETE DRIVER FILE FOR THE 1600 BPI VERSION OF D4.0.
0          Referenced by comments of: 461/15 
00461/008   DISTRIBUTION             DRIVER COMMENT  D              MTS:D4COMM                                                      
            D4T3    775  DISTRIBUTION.DRIVER_COMME.D.008    1 LINE    121  101 PAGE UM   WSG                 SEP. 19, 1977  17:10:44
0          THIS IS THE D4.0 COMMENT FILE FOR BOTH THE 6250 AND 1600 BPI DRIVER FILES.
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00461/009   DISTRIBUTION             NEW SYSTEMS     WF             WSG:NEWSYS.WF                                                   
            D4T1   1088  DISTRIBUTION.NEW_SYSTEMS.WF.009    1 LINE    147    3 PAGE UM   WSG                 SEP. 15, 1977  19:04:54
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.0 AT NEW INSTALLATIONS, I.E. INSTALLATIONS WHICH ARE
           NOT CURRENTLY RUNNING MTS.
00461/010   DISTRIBUTION             OLD SYSTEMS     WF             WSG:OLDSYS.WF                                                   
            D4T1   1089  DISTRIBUTION.OLD_SYSTEMS.WF.010    1 LINE    148    5 PAGE UM   WSG                 SEP. 15, 1977  19:04:55
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.0 AT OLD INSTALLATIONS, I.E. INSTALLATIONS WHICH ARE
           CURRENTLY RUNNING MTS.
00461/011   DISTRIBUTION             GENERAL NOTES   WF             WSG:GENNOTES.WF                                                 
            D4T3    769  DISTRIBUTION.GENERAL_NOTE.WF.011   1 LINE    142    9 PAGE UM   WSG                 SEP. 19, 1977  16:33:51
0          GENERAL NOTES ON DISTRIBUTION 4.0.
00461/012   DISTRIBUTION             DRIVER DSECT    SA  G  DRVD    COPY:DRDSECT                                                    
            D4T1   1090  DISTRIBUTION.DRIVER_DSECT.SA.012   1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  03:28:01
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/013   DISTRIBUTION             DRIV INDEX GEN  C              MTS:DISTINDEX                                                   
            D4T1   1091  DISTRIBUTION.DRIV_INDEX_G.C.013    1 LINE    133    1 PAGE UM   WSG                 JULY 27, 1977  03:28:01
0          COMMAND FILE TO PRODUCE A DRIVER FILE ALPHABETIZED INDEX (SEE 461/14 AND 461/15).
00461/014   DISTRIBUTION             6250 INDEX      D              MTS:D4INDEX                                                     
            D4T3    773  DISTRIBUTION.6250_INDEX.D.014      1 LINE    133  137 PAGE UM   WSG                 SEP. 19, 1977  17:09:06
0          INDEX FOR THE 6250 BPI DRIVER FILE (461/6).  COPY TO A TN PRINTER.
00461/015   DISTRIBUTION             1600 INDEX      D              MTS:D4INDEX1600                                                 
            D4T3    774  DISTRIBUTION.1600_INDEX.D.015      1 LINE    133  137 PAGE UM   WSG                 SEP. 19, 1977  17:09:20
0          INDEX FOR THE 1600 BPI DRIVER FILE (461/7).  COPY TO A TN PRINTER.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00461/016   DISTRIBUTION             MEMO LIST       WF             WSG:MEMOLIST                                                    
            D4T1   1092  DISTRIBUTION.MEMO_LIST.WF.016      1 LINE    112    5 PAGE UM   WSG                 SEP. 15, 1977  19:05:05
0          WRITEUP SHOWING THE STATUS OF ALL COMPUTING CENTER MEMOS DISTRIBUTED WITH D4.0.
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          S0722 'D3T3' FSNAME=STANDARD_DUMP..SA.1(1)                    37
            D4T1   1093  STDDMP_SUBR..SA.001                1 SEQ      80    7 PAGE UM   MTA                 AUG. 01, 1973  18:30.34
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   DWB                 JULY 27, 1977  03:28:49
0          CHECKS PAGE AND PUNCH LIMITS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1, 464/2 
00464/002   PLIMIT                   UPDATE          UU  G          MTS:PLIMUPD                                                     
            D4T1   1095  PLIMIT.UPDATE.UU.002               1 LINE     55    1 PAGE UM   DWB                 JULY 27, 1977  03:28:51
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (464/1).
           UPDATE DECK USES %POSN *IN* PLIM.
00464/003   PLIMIT                   370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00464/004   PLIMIT                   360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00464/005   PLIMIT                   370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=PLIM.LIST                 
            D4T1   1096  PLIMIT.370_LISTING.L.005           1 SEQ     133   16 PAGE UM   DWB                 JULY 27, 1977  03:30:06
00464/006   PLIMIT                   360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=PLIM.LIST             
            D4T1   1097  PLIMIT.360_LISTING.L.006           1 SEQ     133   16 PAGE UM   DWB                 JULY 27, 1977  03:32:08
00465/001  *APL                      MTS INTERFACE   SA  G  AMTS    S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.MTS.S                     
            D4T1   1098  APL.MTS_INTERFACE.SA.001           1 LINE     80   61 PAGE UM   HELFFRICH           JUNE 24, 1977  02:41:04
0          SOURCE FOR THE APL-MTS INTERFACE.  ASSEMBLE USING THE APL MACRO LIBRARY (465/3).
           COPIES APLDEFN, DIRSECT, ZSYMBOLS, AND PERTERM FROM THE APL MACRO LIBRARY (465/3)
           AND *GFINFODSECT (593) AND *CNFGINFODSECT (654).
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          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).
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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00465/011  *APL                      TPIN UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TPIN.U                    
            D4T1   1108  APL.TPIN_UPDATE.UU.011             1 LINE     72    3 PAGE UM   HELFFRICH           MAR. 04, 1977  19:21:48
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.
           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                    
            D4T1   1110  APL.CATN.SA.013                    1 LINE     80   14 PAGE UM   HELFFRICH           MAR. 04, 1977  19:12:37
0          REWRITE OF CATENATION PROCESSOR TO PROVIDE FULL CATENATION CAPABILITIES IN APL/MTS.
           ASSEMBLE USING THE APL MACRO LIBRARY (465/3).
00465/014  *APL                      OBJECT          OC  G          SEG2:S2APL                                                      
            D4T1   1111  APL.OBJECT.OC.014                  1 LINE    255  118 PAGE UM   HELFFRICH           JULY 27, 1977  03:35:38
0          APL OBJECT LOADED INTO SHARED VM BY PISTLE AT IPL.
0          Referenced by comments of: 465/15 
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
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM APL (465/14).
00465/016  *APL                      MEMO 362        WF             W098:M362                                                       
            D4T1   1113  APL.MEMO_362.WF.016                1 LINE    130   12 PAGE UM   HELFFRICH           JULY 27, 1977  03:35:51
0          THIS IS COMPUTING CENTER MEMO 362 -- "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
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  ENDS    S0722 'D3T3' FSNAME=ENDSEG2..SA.1(1)                          49
            D4T1   1115  ENDSEG2..SA.001                    1 SEQ      80    1 PAGE UM   MTA                 AUG. 01, 1973  18:33.38
0          ASSEMBLY WHOSE ONLY PURPOSE IS TO MARK THE END OF THE IPLED PART OF SHARED VM.
           UNCHANGED SINCE DIST 2.0.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00467/002   ENDSEG2                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00468/001   RESIDENT SYSTEM          470 OBJECT      OC           # (SYSTEM D4SYS IN 468/3)                                         
                                                                                    UM   MTA                                        
0          RESIDENT SYSTEM FOR 370/470 WITH A 2305 FHF FOR PAGING.
0          Referenced by comments of: 468/3 
00468/002   RESIDENT SYSTEM          360 OBJECT      OC           # (SYSTEM D4SYS.360 IN 468/3)                                     
                                                                                    UM   MTA                                        
0          RESIDENT SYSTEM FOR 360/67 USING 2301 DRUM FOR PAGING.
0          Referenced by comments of: 468/3 
00468/003   RESIDENT SYSTEM          UM RAMROD       D              MTS:ROD                                                         
            D4T3    770  RESIDENT_SYSTEM.UM_RAMROD.D.003    1 SEQ   32767  431 PAGE UM   MTA                 SEP. 19, 1977  16:33:55
0          CURRENT UM RAMROD FILE INCLUDING SYSTEMS "D4SYS" (468/1) AND "D4SYS.360" (468/2).
            
           THE FOLLOWING PROCEDURES ARE USED IN MAINTAINING THIS FILE.
           WHENEVER A NEW SYSTEM IS INSTALLED (I.E. WRITTEN ON MTS001), 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. "AR117" FOR MARCH 11, 1977.
            
             (2)  THE SYSTEM INSTALLED IS MADE THE CURRENT SYSTEM.
            
             (3)  THE OLDEST SYSTEM IS DELETED SO THAT THERE ARE 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" SHOULD BE 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          D4.0 370 SYS    D              MTS:IPL.D4SYS                                                   
            D4T3    771  RESIDENT_SYSTEM.D4.0_370.D.004     1 SEQ    4100  132 PAGE UM   MTA                 SEP. 19, 1977  16:34:26
0          RAMROD IPL FILE FROM D4.0 DUMP/RESTORE PACK.
00468/005   RESIDENT SYSTEM          D4.0 360 SYS    D              MTS:IPL.D4SYS360                                                
            D4T3    772  RESIDENT_SYSTEM.D4.0_360.D.005     1 SEQ    4100  131 PAGE UM   MTA                 SEP. 19, 1977  16:34:34
0          RAMROD IPL FILE FROM D4.0 DUMP/RESTORE PACK.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00468/006   RESIDENT SYSTEM          WRITEUP         WF             WSG:RESSYS.WF                                                   
            D4T1   1116  RESIDENT_SYSTEM.WRITEUP.WF.006     1 LINE    144    4 PAGE UM   WSG                 SEP. 15, 1977  19:05:35
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                                                   
            D4T1   1117  PCB_DSECT.COPY:PCBDSECT.SA.        1 LINE     72    2 PAGE UM   MTA                 JULY 27, 1977  03:36:42
0          DSECT FOR THE PAGE CONTROL BLOCK.  COPIED BY THE SUPERVISOR, PDP, AND CONFIG AMONG OTHERS.
0          Referenced by comments of: 44/1, 45/2, 45/4, 46/2, 46/4, 400/1, 577/25, 577/53 
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  STMN    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  CCWT    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
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          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
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
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  DAUC    FILE:DASDUC                                                     
            D4T1   1127  FILE_SYSTEM.DASDUC.SA.001          1 LINE     80   18 PAGE UM   PIRKOLA             JULY 27, 1977  03:46:49
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   PIRKOLA             JULY 27, 1977  03:46:51
00482/003   FILE SYSTEM              MOVE            SA  G  MOVE    FILE:MOVE                                                       
            D4T1   1129  FILE_SYSTEM.MOVE.SA.003            1 LINE     80    4 PAGE UM   PIRKOLA             JULY 27, 1977  03:46:54
0          SUBROUTINE TO MOVE CORE AROUND.  COPIES *CNFGINFODSECT (654).
00482/004   FILE SYSTEM              MOVE            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
0          Referenced by comments of: 482/48 
00482/005   FILE SYSTEM              VOLGET          SA  G  VGET    FILE:VOLGET                                                     
            D4T1   1130  FILE_SYSTEM.VOLGET.SA.005          1 LINE     80   25 PAGE UM   PIRKOLA             JULY 27, 1977  03:46:56
0          BASIC LOW LEVEL DISK SUBROUTINES TO EXECUTE CHANNEL PROGRAMS, ETC.  ASSEMBLE USING
           COPY:FILE.MACROS (482/36).  COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU(100) (087).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          Referenced by comments of: 534/5 
00482/006   FILE SYSTEM              VOLGET          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/007   FILE SYSTEM              TRAK            SA  G  TRAK    FILE:TRAK                                                       
            D4T1   1131  FILE_SYSTEM.TRAK.SA.007            1 LINE     80   23 PAGE UM   PIRKOLA             JULY 27, 1977  03:46:58
0          BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE PHYSICAL RECORDS.
           COPIES *CNFGINFODSECT (654).  ASSEMBLE USING COPY:FILE.MACROS (482/36).
            
           NOTE:  THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S.
00482/008   FILE SYSTEM              TRAK            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/009   FILE SYSTEM              FILETEST        SA  O  FTST    W045:FILETEST                                                   
            D4T1   1132  FILE_SYSTEM.FILETEST.SA.009        1 LINE     80   25 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:01
0          FILE ROUTINES PRIMATIVE TEST PROGRAM.  SEE COMMENTS IN SOURCE FOR USAGE.
           NOTE:  FSTEST (482/34) IS A BETTER TEST TOOL.
           THIS PROGRAM ACTS AS A MAIN PROGRAM TO CALL PRIVATE COPIES OF ALL OF THE FILE ROUTINES.
00482/010   FILE SYSTEM              FILETEST        OC  O          W045:FILETEST.O                                                 
            D4T1   1133  FILE_SYSTEM.FILETEST.OC.010        1 LINE     80    5 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:03
0          PRIVATE COPIES OF THE FOLLOWING FILE ROUTINES SHOULD BE LOADED WITH FILETEST:
            
               VOLGET, TRAK, READI, WRITEI, READL, OPEN ETC, GETDSK, FLINE, CATALOG, RWSEQ, TABLRTN, TABLES, AND DSACC.
            
           THESE SHOULD BE THE REGULAR VERSIONS EXCEPT AS FOLLOWS:
            
             TABLRTN          THIS SHOULD BE A SPECIAL VERSION OF TABLRTN (482/27) WHICH DOES NOT EXECUTE ANY SVC'S.
                              A CHANGE IN THE MYSVC MACRO TO ASSEMBLE A NOP WILL ACCOMPLISH THIS.
            
             DSACC            THIS SHOULD BE THE SPECIAL VERSION OF DSACC (482/32), THE DISK ACCOUNTING ROUTINES,
                              WHICH JUST GIVE RETURN CODE ZERO.  IF THIS IS NOT PROVIDED THE REGULAR DISK ACCOUNTING 
                              ROUTINES WOULD BE CALLED THEREBY ACCOUNTING FOR FILES CREATED OR DESTROYED ON THE TEST PACK.
            
             TABLES           YOU SHOULD MAKE A SPECIAL VERSION OF TABLES (004) WHICH HAS ONLY VOLUME "TMTS01"
                              (OR WHATEVER THE NAME OF THE TEST PACK IS) AND PERHAPS HAS ONLY A LIMITED SET OF
                              DRIVE ADDRESSES.  IF THE FULL SET OF VOLUMES WERE INCLUDED, THE FILE TESTING PROCEDURE
                              COULD EASILY GRAB A "LIVE" (I.E. NON-TEST) PACK AND SCREW-UP REGULAR USER FILES.
00482/011   FILE SYSTEM              READI           SA  G  READ    FILE:READ                                                       
            D4T1   1134  FILE_SYSTEM.READI.SA.011           1 LINE     80   11 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:05
0          SUBROUTINE TO READ FROM A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00482/012   FILE SYSTEM              READI           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00482/013   FILE SYSTEM              WRITEI          SA  G  WRIT    FILE:WRITEI                                                     
            D4T1   1135  FILE_SYSTEM.WRITEI.SA.013          1 LINE     80   52 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:08
0          SUBROUTINE TO WRITE INTO A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00482/014   FILE SYSTEM              WRITEI          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/015   FILE SYSTEM              READL           SA  G  REDL    FILE:READL                                                      
            D4T1   1136  FILE_SYSTEM.READL.SA.015           1 LINE     80   20 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:12
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/36).
00482/016   FILE SYSTEM              READL           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/017   FILE SYSTEM              OPEN            SA  G  OPEN    FILE:OPEN                                                       
            D4T1   1137  FILE_SYSTEM.OPEN.SA.017            1 LINE     80   86 PAGE UM   PIRKOLA             SEP. 15, 1977  19:06:04
0          SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00482/018   FILE SYSTEM              OPEN            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/019   FILE SYSTEM              GETDSK          SA  G  GDSK    FILE:GETDSK                                                     
            D4T1   1138  FILE_SYSTEM.GETDSK.SA.019          1 LINE     80   30 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:19
0          SUBROUTINES TO ALLOCATE AND RELEASE DISK SPACE.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00482/020   FILE SYSTEM              GETDSK          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/021   FILE SYSTEM              FLINE           SA  G  FLIN    FILE:FLIN                                                       
            D4T1   1139  FILE_SYSTEM.FLINE.SA.021           1 LINE     80   10 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:22
0          SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00482/022   FILE SYSTEM              FLINE           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/023   FILE SYSTEM              CATALOG         SA  G  CSBR    FILE:CATL                                                       
            D4T1   1140  FILE_SYSTEM.CATALOG.SA.023         1 LINE     80   89 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:24
0          SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00482/024   FILE SYSTEM              CATALOG         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/025   FILE SYSTEM              RWSEQ           SA  G  RWSE    FILE:RWSEQ                                                      
            D4T1   1141  FILE_SYSTEM.RWSEQ.SA.025           1 LINE     80   29 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:30
0          SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00482/026   FILE SYSTEM              RWSEQ           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/027   FILE SYSTEM              TABLRTN         SA  G  TABL    FILE:TABLRTN                                                    
            D4T1   1142  FILE_SYSTEM.TABLRTN.SA.027         1 LINE     80   64 PAGE UM   PIRKOLA             SEP. 15, 1977  19:06:16
0          SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
           ASSEMBLE STARTING AT LINE 1.
0          Referenced by comments of: 482/10, 482/48, 534/5 
00482/028   FILE SYSTEM              TABLRTN         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/029   FILE SYSTEM              GETFINF         SA  G  GETF    FILE:GETFINF                                                    
            D4T1   1143  FILE_SYSTEM.GETFINF.SA.029         1 LINE     80   14 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:47
0          SUBROUTINE TO RETURN INFORMATION ABOUT A FILE.  CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF).
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00482/030   FILE SYSTEM              GETFINF         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/031   FILE SYSTEM              TEST DSACC      SA  G  DSAC    FILE:DSACC(1,999)                                               
            D4T1   1144  FILE_SYSTEM.TEST_DSACC.SA.031      1 LINE     80    1 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:50
0          SPECIAL NOP VERSION OF DSACC.
0          Referenced by comments of: 482/45, 682/40 
00482/032   FILE SYSTEM              TEST DSACC      OC  G          FILE:DSACC(1000)                                                
            D4T1   1145  FILE_SYSTEM.TEST_DSACC.OC.032      1 LINE     80    1 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:52
0          Referenced by comments of: 482/10 
00482/033   FILE SYSTEM              FSMAC           SA  G          W045:FSMAC                                                      
            D4T1   1146  FILE_SYSTEM.FSMAC.SA.033           1 LINE     72    4 PAGE UM   PIRKOLA             JULY 27, 1977  03:47:55
0          A PROGRAM WHICH ONLY CONSISTS OF A MACRO AND MACRO CALLS USED TO CALCULATE THE FILE SYSTEM SCRATCH AREA SIZES.
           IT PRODUCES NO OBJECT CODE, BUT THE ASSEMBLY LISTING IS USEFUL IN DETERMINING THE VALUES TO USE IN SETTING UP
           THE MTSEQU2 MACRO IN COPY:MTS.MACROS (344).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00482/034   FILE SYSTEM              FSTEST          SA  G  FSTS    FILE:FSTEST.S                                                   
            D4T1   1147  FILE_SYSTEM.FSTEST.SA.034          1 LINE     80   26 PAGE UM   HELFFRICH           AUG. 14, 1977  19:34:29
0          FILE SYSTEM TEST PROGRAM.  ASSEMBLE USING COPY:FILE.MACROS (482/36) AND *SYSMAC.
           USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES.
            
           SOME NEW COMMANDS AND OPTIONS HAVE BEEN ADDED.  SEE COMP 682/11 FOR A WRITEUP.
0          Referenced by comments of: 82/1, 482/9, 682/11 
00482/035   FILE SYSTEM              FSTEST          OC  G          FILE:FSTEST                                                     
            D4T1   1148  FILE_SYSTEM.FSTEST.OC.035          1 LINE     80    6 PAGE UM   HELFFRICH           AUG. 14, 1977  19:34:31
00482/036   FILE SYSTEM              FILE.MACROS     SM  G          COPY:FILE.MACROS                                                
            D4T1   1149  FILE_SYSTEM.FILE.MACROS.SM.036     1 LINE     72   10 PAGE UM   PIRKOLA             JULY 27, 1977  03:48:04
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                   CATEEQU
               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/4, 73/2, 97/6, 104/90, 104/94, 400/8, 400/9, 442/1, 482/5,
                 482/7, 482/11, 482/13, 482/15, 482/17, 482/19, 482/21, 482/23, 482/25, 482/27, 482/29, 482/34, 482/37, 482/40,
                 482/42, 482/48, 482/50, 502/1, 502/7, 502/9, 509/1, 539/1, 546/1, 554/1, 554/3, 578/1, 598/1, 599/1, 621/2,
                 629/2, 644/1, 671/1, 682/18, 682/20, 682/24, 682/26, 682/28, 682/32, 716/2, 716/6, 716/8, 1020/1, 1021/1,
                 1021/3, 1021/5, 1030/1, 3024/1 
00482/037   FILE SYSTEM              FILECONV        SA  G  FCNV    W047:FILECONV                                                   
            D4T1   1150  FILE_SYSTEM.FILECONV.SA.037        1 LINE     80   13 PAGE UM   HELFFRICH           JULY 27, 1977  03:48:07
0          SOURCE FOR THE MAIN PROGRAM TO CONVERT ALL LINE FILES FROM THE OLD (D3) FORMAT INTO THE
           NEW (D4) FORMAT WHICH SUPPORTS LONG RECORDS.  THIS ROUTINE REQUIRES OLD.FILERTNS (482/40),
           AND WRITPKG (482/42).  THE SOURCE CONTAINS A DESCRIPTION OF THE USAGE OF THIS PROGRAM.
           COPIES OLDFCBEQU (482/44).  ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 482/39, 482/44 
00482/038   FILE SYSTEM              FILECONV        OC  G          W047:FILECONV.O                                                 
            D4T1   1151  FILE_SYSTEM.FILECONV.OC.038        1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  03:48:09
00482/039   FILE SYSTEM              FILECNV VOLGET  OC  G          W047:FCNV.VOLGET                                                
            D4T1   1152  FILE_SYSTEM.FILECNV_VOLGE.OC.039   1 LINE     80    4 PAGE UM   HELFFRICH           AUG. 20, 1977  23:09:11
0          THIS IS VOLGET OBJECT WITH A COM CARD FOR PISTLE SO THAT IT AND A SET OF
           TABLES (TO BE PROVIDED LOCALLY AND CONCATENATED WITH THIS FILE) CAN BE
           SHARED AMONG MULTIPLE STREAMS OF FILECONV (482/37).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00482/040   FILE SYSTEM              OLD.FILERTNS    SA  G          S0805 ARCHIV 'GRUBBY FILES' FSNAME=OLD.FILERTNS                 
            D4T1   1153  FILE_SYSTEM.OLD.FILERTNS.SA.040    1 LINE     80  104 PAGE UM   HELFFRICH           OCT. 20, 1976  18:39:30
0          SOURCE FOR THE OLD (D3) FILE ROUTINES, CALLED BY FILECONV TO READ UNCONVERTED LINE FILES.
           COPIES OLDFCBEQU (482/44).  ASSEMBLE USING COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 482/37, 482/44 
00482/041   FILE SYSTEM              OLD.FILERTNS    OC  G          W047:OLD.FILERTNS                                               
            D4T1   1154  FILE_SYSTEM.OLD.FILERTNS.OC.041    1 LINE     80    9 PAGE UM   HELFFRICH           JULY 27, 1977  03:51:32
00482/042   FILE SYSTEM              WRITPKG         SA  G  WPKG    W047:WRITPKG                                                    
            D4T1   1155  FILE_SYSTEM.WRITPKG.SA.042         1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  03:51:33
0          SOURCE FOR THE SUBROUTINES INITWRIT, WRITIT, AND ENDWRIT CALLED BY
           FILECONV.  THEY INTERFACE TO THE NEW (D4) LINE FILE ROUTINES.  ASSEMBLE USING
           *SYSMAC AND COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 482/37 
00482/043   FILE SYSTEM              WRITPKG         OE  G          W047:WRITPKG.O                                                  
            D4T1   1156  FILE_SYSTEM.WRITPKG.OE.043         1 LINE  20928    7 PAGE UM   HELFFRICH           JULY 27, 1977  03:51:36
0          THIS IS A LINK-EDITED, COMBINED, AND PURGED OBJECT MODULE WHICH CONTAINS THE
           OBJECT FOR WRITPKG AND THE FILE ROUTINES IT CALLS.  IT MUST BE USED IN THIS FORM TO
           AVOID MULTIPLY DEFINED SYSMBOLS.
00482/044   FILE SYSTEM              OLDFCBEQU       SA  G          W047:OLDFCBEQU                                                  
            D4T1   1157  FILE_SYSTEM.OLDFCBEQU.SA.044       1 LINE     80    4 PAGE UM   HELFFRICH           JULY 27, 1977  03:51:38
0          COPY SECTION USED BY FILECONV (482/37) AND OLD.FILERTNS (482/40).
0          Referenced by comments of: 482/37, 482/40 
00482/045   FILE SYSTEM              TEST FILERTNS   OC  G          FILE:FILERTNS                                                   
            D4T1   1158  FILE_SYSTEM.TEST_FILERTNS.OC.045   1 LINE     38    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:51:40
0          A SERIES OF $CONTINUE WITHS TO PICK UP THE VARIOUS FILE SYSTEM OBJECT DECKS,
           A TEST VERSION OF TABLES (482/46), AND A TEST VERSION OF DSACC (482/31).
0          Referenced by comments of: 482/46 
00482/046   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
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/45).
0          Referenced by comments of: 482/45 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00482/047   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
00482/048   FILE SYSTEM              TABLRTN TEST    SA  G  TABT    W045:TABLTST                                                    
            D4T1   1161  FILE_SYSTEM.TABLRTN_TEST.SA.048    1 LINE     80   34 PAGE UM   PIRKOLA             JULY 27, 1977  03:51:48
0          PROGRAM TO TEST THE SHARED FILE TABLE ROUTINES TABLRTN (482/27).
           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/36).
           THIS PROGRAM REQUIRES A COPY OF MOVE (482/4) IN ORDER TO LOAD PROPERLY.
00482/049   FILE SYSTEM              TABLRTN TEST    OC  G          W045:TABLTST.O                                                  
            D4T1   1162  FILE_SYSTEM.TABLRTN_TEST.OC.049    1 LINE     80    6 PAGE UM   PIRKOLA             JULY 27, 1977  03:51:51
00482/050   FILE SYSTEM              CATALOG SCAN    SA  G          DWB:CATSCAN                                                     
            D4T1   1163  FILE_SYSTEM.CATALOG_SCAN.SA.050    1 LINE     80   11 PAGE UM   PIRKOLA             JULY 27, 1977  03:51:53
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/36).
0          Referenced by comments of: 482/54 
00482/051   FILE SYSTEM              CATALOG SCAN    OC  G          DWB:CATSCAN(1000)                                               
            D4T1   1164  FILE_SYSTEM.CATALOG_SCAN.OC.051    1 LINE     80    5 PAGE UM   PIRKOLA             JULY 27, 1977  03:51:56
00482/052   FILE SYSTEM              DOCUMENTATION   WF             S0622 D3MISC FSNAME=FS.WF                                    64 
            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/53) TO PRODUCE AN INDEX FOR THE
           FRONT OF THIS WRITEUP.  COMPONENT 482/54 CONTAINS COMMANDS TO DO THIS.
           SEE ALSO COMP 682/1 FOR ADDITIONAL DOCUMENTATION RELATED TO THE FILE SYSTEM.
0          Referenced by comments of: 482/54 
00482/053   FILE SYSTEM              INDEX           SS  G          S0622 D3MISC FSNAME=FS.INDEX                                 65 
            D4T1   1166  FILE_SYSTEM.INDEX.SS.053           1 LINE     68    1 PAGE UM   PIRKOLA             DEC. 10, 1976  17:24:07
0          SNOBOL PROGRAM TO PRODUCE A TABLE OF CONTENTS FOR THE FILE SYSTEM INTERNAL DOCUMENTATION.
0          Referenced by comments of: 482/52 
00482/054   FILE SYSTEM              DOC CMDS        C              S0622 D3MISC FSNAME=FS.CMDS                                  66 
            D4T1   1167  FILE_SYSTEM.DOC_CMDS.C.054         1 LINE     65    1 PAGE UM   PIRKOLA             DEC. 10, 1976  17:24:15
0          A COMMAND FILE TO PRODUCE THE COMPLETE FILE SYSTEM INTERNAL DOCUMENTATION.
           IT REFERENCES THE FORMAT INPUT (482/52) AND THE INDEX PROGRAM (482/50).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00482/055   FILE SYSTEM              DSECTLIST1      SS  G          FILE:DSECTLIST                                                  
            D4T1   1168  FILE_SYSTEM.DSECTLIST1.SS.055      1 LINE     53    1 PAGE UM   PIRKOLA             JULY 27, 1977  03:56:53
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/056   FILE SYSTEM              DSECTLIST2      SS  G          FILE:DSECT2                                                     
            D4T1   1169  FILE_SYSTEM.DSECTLIST2.SS.056      1 LINE     63    1 PAGE UM   PIRKOLA             JULY 27, 1977  03:56:55
0          THE SPUNCH OUTPUT FROM 482/55 SHOULD BE RUN THROUGH THIS PROGRAM, THE SPUNCH
           OUTPUT FROM THIS PROGRAM THEN BEING FORMAT INPUT.
00482/057   FILE SYSTEM              DSECTLIST CMDS  C              FILE:SODSECT                                                    
            D4T1   1170  FILE_SYSTEM.DSECTLIST_CMD.C.057    1 LINE     71    1 PAGE UM   PIRKOLA             JULY 27, 1977  03:56:57
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/52.
00482/058   FILE SYSTEM              FCBEQU          SA           # (OBSOLETED BY 482/36)                                           
            D3.2T1  322  FILE_SYSTEM.FCBEQU.SA.27           1 LINE     80    4 PAGE UM                       MAR. 21, 1975  01:37:09
00482/059   FILE SYSTEM              CATEQU          SA           # (OBSOLETED BY 482/36)                                           
            D3.2T1  323  FILE_SYSTEM.CATEQU.SA.28           1 LINE     80    4 PAGE UM                       MAR. 21, 1975  01:37:12
00482/060   FILE SYSTEM              ICEQU           SA           # (OBSOLETED BY 482/36)                                           
            D3.2T1  324  FILE_SYSTEM.ICEQU.SA.29            1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:37:14
00482/061   FILE SYSTEM              DSCBDSCT        SA           # (OBSOLETED BY 482/36)                                           
            D3.2T1  327  FILE_SYSTEM.DSCBDSCT.SA.41         1 LINE     80    1 PAGE UM                       MAR. 21, 1975  01:37:28
00482/062   FILE SYSTEM              DSKDSCT         SA           # (OBSOLETED BY 482/36)                                           
            D3.2T1  328  FILE_SYSTEM.DSKDSCT.SA.42          1 LINE     80    2 PAGE UM                       MAR. 21, 1975  01:37:30
00482/063   FILE SYSTEM              PATEQU          SA           # (OBSOLETED BY 482/36)                                           
            D3.2T1  329  FILE_SYSTEM.PATEQU.SA.43           1 LINE     80    1 PAGE UM                       MAR. 21, 1975  01:37:32
00482/064   FILE SYSTEM              SCRATCH SIZES   C              FILE:SCRATCHSIZES(1)                                            
            D4T1   1171  FILE_SYSTEM.SCRATCH_SIZES.C.064    1 LINE     72    3 PAGE UM   HELFFRICH           JULY 27, 1977  03:57:00
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.
00483/001  *WATFIV                   UPDATE          UU  G          W159:WAT5.SGEN                                                  
            D4T1   1172  WATFIV.UPDATE.UU.001               1 LINE     80   28 PAGE UM   SHERRY              JULY 27, 1977  03:57:03
0          THE WATFIV UPDATE DECK (483/1) IS ORGANIZED (BY LINE NUMBER) AS FOLLOWS:
            
               LINE NUMBERS        FILE #    NAME
               (2000,2999)          *2*      ACCT
1                                                                                               FRI AUG 02/96   16:11:27   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              (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.
           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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
           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.
            
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          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 
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                                                     
            D4T1   1183  ACCRESTORE..OE.                    1 LINE   3376    3 PAGE UM   ENGLE               JULY 27, 1977  03:57:27
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/24),
           THE MAIN PROGRAM, PLUS CURSIG (104/70), ACATALOG (104/91), GETFILE (104/89),
           ACCIO (104/18), ACCFLUPD (104/66), FILERATE (104/13), 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                      CONT            UU  G          S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.CONT.U                   215
            D4T1   1184  PLC.CONT.UU.001                    1 LINE     72   11 PAGE UM   SWARTZ              APR. 16, 1976  15:12:53
0          THIS IS THE MTS UPDATE FOR PLCCONT, THE COLLECTION OF CSECTS WHICH CONTROL
           THE SEQUENCING OF THE COMPILER PHASES AND PROVIDE INTERFACING BETWEEN
           PL/C AND THE LOW LEVEL ROUTINES IN PLCSYSI.
            
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          THE MASTER SOURCE FOR PL/C CANNOT BE DISTRIBUTED; YOU MUST OBTAIN IT DIRECTLY FROM CORNELL UNIVERSITY.
0          Referenced by comments of: 483/4 
00485/002  *PLC                      CONT            OC  G        # S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.CONT.O                   224
                                                                                    UM   SWARTZ                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/003  *PLC                      ERMW            UU  G          S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.ERMW.U                   216
            D4T1   1185  PLC.ERMW.UU.003                    1 LINE     72    4 PAGE UM   SWARTZ              APR. 16, 1976  15:14:14
0          MTS UPDATE FOR THE MODULE WHICH PRODUCES THE ERROR MESSAGES.
00485/004  *PLC                      ERMW            OC  G        # S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.ERMW.O                   225
                                                                                    UM   SWARTZ                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/005  *PLC                      IM              UU  G          S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.IM.U                     217
            D4T1   1186  PLC.IM.UU.005                      1 LINE     72    7 PAGE UM   SWARTZ              APR. 16, 1976  15:14:38
0          MTS UPDATE FOR THE MODULE PLCIM.
00485/006  *PLC                      IM              OC  G        # S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.IM.O                     226
                                                                                    UM   SWARTZ                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/007  *PLC                      MIMO            UU  G          S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.MIMO.U                   218
            D4T1   1187  PLC.MIMO.UU.007                    1 LINE     72    6 PAGE UM   SWARTZ              APR. 16, 1976  15:15:08
0          MTS UPDATE FOR THE MODULE PLCMIMO WHICH GAINS INITIAL CONTROL IN PL/C.
00485/008  *PLC                      MIMO            OC  G        # S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.MIMO.O                   227
                                                                                    UM   SWARTZ                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/009  *PLC                      OPTB            UU  G          S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.OPTB.U                   219
            D4T1   1188  PLC.OPTB.UU.009                    1 LINE     72    1 PAGE UM   SWARTZ              APR. 16, 1976  15:15:25
0          MTS UPDATE FOR THE MODULE PLCOPTBL WHICH DEFINES THE DEFAULT OPTIONS FOR PL/C.
00485/010  *PLC                      OPTB            OC  G        # S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.OPTB.O                   228
                                                                                    UM   SWARTZ                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/011  *PLC                      OPTN            UU  G          S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.OPTN.U                   220
            D4T1   1189  PLC.OPTN.UU.011                    1 LINE     72    4 PAGE UM   SWARTZ              APR. 16, 1976  15:15:33
0          MTS UPDATE FOR THE MODULE PLCOPTN, THE COMPILER OPTIONS SCANNER.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00485/012  *PLC                      OPTN            OC  G        # S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.OPTN.O                   229
                                                                                    UM   SWARTZ                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/013  *PLC                      SYSO            UU  G          S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.SYSO.U                   221
            D4T1   1190  PLC.SYSO.UU.013                    1 LINE     80   18 PAGE UM   SWARTZ              APR. 16, 1976  15:15:45
0          THIS IS THE MTS UPDATE FOR PLCSYSI (PLCSYSI IS THE CSECT NAME, BUT THE CORNELL
           MODULE NAME IS ASMSYSO), THE MODULE TO INTERFACE TO THE OPERATING SYSTEM.
00485/014  *PLC                      SYSO            OC  G        # S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.SYSO.O                   230
                                                                                    UM   SWARTZ                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/015  *PLC                      DEFAULT         SA  G        # (SEE COMP 483/4)                                                
                                                                                    UM   SWARTZ                                     
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER.
00485/016  *PLC                      OBJECT UPDATE   UU  G          S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.O.U                      222
            D4T1   1191  PLC.OBJECT_UPDATE.UU.016           1 LINE     75    4 PAGE UM   SWARTZ              APR. 16, 1976  15:16:35
0          UPDATE DECK TO BE APPLIED TO CORNELL DATA SET TPLCOBJ TO SPLIT OUT THE OBJECT
           WHICH DOES NOT REQUIRE CHANGING IN MTS AND TO APPLY BUG FIXES PRODUCED BOTH
           AT UM AND BY CORNELL IN PATCH LETTERS #1 AND #2.
00485/017  *PLC                      UNCHANGED OBJ   OC  G        # S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.O                        232
                                                                                    UM   SWARTZ                                     
0          THIS IS THE RESULT OF APPLYING 485/15 TO THE CORNELL OBJECT, BUT BECAUSE OF
           CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/018  *PLC                      *PLC            OE  G        # *PLC                                                            
                                                                                    UM   SWARTZ                                     
0          COMPLETE LINKEDITED MTS VERSION OF PL/C, BUT BECAUSE OF CORNELL RESTRICTIONS,
           IT CANNOT BE DISTRIBUTED.
00485/019  *PLC                      INSTALLATION    WF             S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC.INSTALL                  214
            D4T1   1192  PLC.INSTALLATION.WF.019            1 LINE    106    5 PAGE UM   SWARTZ              APR. 16, 1976  15:02:42
0          WRITEUP DESCRIBING HOW TO INSTALL VERSION 7.1 PL/C IN MTS.
00485/020  *PLC                      TEST PL/C       OC             S1053 ARCHIV 'ARCHIVE 1' FSNAME=PLC                          223
            D4T1   1193  PLC.TEST_PL/C.OC.020               1 LINE     32    1 PAGE UM   SWARTZ              APR. 16, 1976  15:18:17
0          A SERIES OF "$CONTINUE WITH" LINES WHICH GATHER TOGETHER THE FAR-FLUNG PIECES OF
           PL/C FOR TESTING A NEW VERSION.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00485/021  *PLC                      TEST PGMS       SP  G          W170:PLC.MTS.PROGS                                              
            D4T1   1194  PLC.TEST_PGMS.SP.021               1 LINE     91    9 PAGE UM   SWARTZ              JULY 27, 1977  04:02:53
0          PL/C PROGRAMS TO EXERCISE BUG FIXES.
00485/022  *PLC                      MEMO 309        WF             S0622 D3MISC FSNAME=M309PLC(1)                               95 
            D4T1   1195  PLC.MEMO_309.WF.022                1 LINE    156   49 PAGE UM   SWARTZ              JAN. 24, 1977  20:57:33
0          THIS IS COMPUTING CENTER MEMO 309 -- "USER'S GUIDE TO PL/C"
00486/001  *HBQ                                      SA  G  HBQ     S0579 SAVE 'JWS-SAVE' FSNAME=HBQ.S                              
            D4T1   1196  HBQ..SA.001                        1 LINE     80   18 PAGE UM   HANSEN              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.
00486/002  *HBQ                                      OE  G          *HBQ                                                            
            D4T1   1197  HBQ..OE.002                        1 LINE    255    3 PAGE UM   HANSEN              JULY 27, 1977  04:07:17
00487/001  *LABEL                                    SA  G  LABL    S0221 FSAVE FSNAME=LABEL                                        
            D4T1   1198  LABEL..SA.001                      1 LINE     80    8 PAGE UM   WSG                 FEB. 04, 1977  17:16:13
0          PROGRAM TO INITIALIZE LABELED OR UNLABELED MAGNETIC TAPES.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           SOURCE IN LINES (1,999).
00487/002  *LABEL                                    OC  G          *LABEL                                                          
            D4T1   1199  LABEL..OC.002                      1 LINE     80    2 PAGE UM   WSG                 JULY 27, 1977  04:07:25
0          Referenced by comments of: 487/3 
00487/003  *LABEL                    *LBL            C   G          *LBL                                                            
            D4T1   1200  LABEL.*LBL.C.003                   1 LINE     32    1 PAGE UM   WSG                 JULY 27, 1977  04:07:25
0          COMMAND FILE TO RUN THE SYSTEM TAPE INITIALIZING PROGRAM (487/2).
           INVOKED BY ENTERING "MTS *LBL" ON THE OPERATOR'S CONSOLE.
00488       CONTROL                                  SA           # (OBSOLETE)                                                      
            D2.3    035                                                             UM                                              
00489/001   TAPETEST                                 SA  G  TT      WSG:TT(1,999)                                                   
            D4T1   1201  TAPETEST..SA.001                   1 LINE     80   14 PAGE UM   WSG                 JULY 27, 1977  04:07:27
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.
               LEN N               SET MAXIMUM INPUT LENGTH TO N.  IF N IS NON-ZERO, THE READ AND RDBKWD
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0                                  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.
               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.
               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*
00489/002   TAPETEST                                 OC  G          WSG:TT(1000)                                                    
            D4T1   1202  TAPETEST..OC.002                   1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  04:07:29
00490      *LAR                                      C              *LAR                                                            
            D4T1   1203  LAR..C.                            1 LINE     29    1 PAGE UM   MTA                 JULY 27, 1977  04:07:31
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          S0809 VBDIST 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 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00491/002  *SCRAMBLE                                 OC  O          S0809 VBDIST 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
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00493/001  *TALLY                    370 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                    370 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
00493/003  *TALLY                    370 OBJECT      OC  O          *TALLY                                                          
            D4T1   1211  TALLY.370_OBJECT.OC.003            1 LINE    255    4 PAGE UM   SALISBURY           JULY 27, 1977  04:12:50
00493/004  *TALLY                    360 MAIN        SA  O          S0722 'D3T3' FSNAME=TALLY..SA.1(1)                           125
            D4T1   1212  TALLY.360_MAIN.SA.004              1 LINE     80    8 PAGE UM   SALISBURY           AUG. 03, 1973  21:27.17
00493/005  *TALLY                    360 SIM SUBR    SA  O          S0722 'D3T3' FSNAME=TALLY.SIM_SUBR.SA.2(1)                   126
            D4T1   1213  TALLY.360_SIM_SUBR.SA.005          1 LINE     80   25 PAGE UM   SALISBURY           AUG. 03, 1973  21:27.22
00493/006  *TALLY                    360 OBJECT      OC  O          WSG:TALLY.360                                                   
            D4T1   1214  TALLY.360_OBJECT.OC.006            1 LINE     80    4 PAGE UM   SALISBURY           JULY 27, 1977  04:12:57
0          CONTENTS OF *TALLY FOR 360 SYSTEMS.
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
00494/007  *CSMP                     *CSMPLIB        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        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*.
00494/009  *CSMP                     *CSMPLIB        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
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    S0579 SAVE 'JWS-SAVE' FSNAME=EXMON.S                            
            D4T1   1225  EXPL.SUBMONITOR.SA.001             1 LINE     80   34 PAGE UM   SHERRY              AUG. 27, 1976  20:51:52
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.
0          Referenced by comments of: 318/9 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00495/002   EXPL                     SUBMONITOR      OC             S0579 SAVE 'JWS-SAVE' FSNAME=EXMON.O                            
            D4T1   1226  EXPL.SUBMONITOR.OC.002             1 LINE     80    6 PAGE UM   SHERRY              AUG. 27, 1976  20:52:04
00495/003   EXPL                     *EXPLIB         OE             *EXPLIB                                                         
            D4T1   1227  EXPL.*EXPLIB.OE.003                1 SEQ    5516    2 PAGE UM   SHERRY              JULY 28, 1977  00:37:34
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/004   EXPL                     *EXCOM          SX             *EXCOM                                                          
            D4T1   1228  EXPL.*EXCOM.SX.004                 1 LINE     80   66 PAGE UM   SHERRY              JULY 28, 1977  00:37:36
0          EXPL SOURCE FOR THE EXTENDED XPL COMPILER.  THE RESULTING OBJECT MUST BE RUN
           CONCATENATED WITH *EXPLIB.
00495/005   EXPL                     *EXPL           OE             *EXPL                                                           
            D4T1   1229  EXPL.*EXPL.OE.005                  1 SEQ   32767   38 PAGE UM   SHERRY              JULY 28, 1977  00:37:42
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/006   EXPL                     *EXPLBNF        D              *EXPLBNF                                                        
            D4T1   1230  EXPL.*EXPLBNF.D.006                1 LINE     73    3 PAGE UM   SHERRY              JULY 28, 1977  00:37:44
0          SUITABLE INPUT TO *ANALYZER (318/13) TO PRODUCE THE NECESSARY DECLARATIONS FOR
           DRIVING THE PARSING ALGORITHM FOR *EXPL.
00495/007   EXPL                     *EXSKELETON     SX  G          *EXSKELETON                                                     
            D4T1   1231  EXPL.*EXSKELETON.SX.007            1 LINE     80   12 PAGE UM   SHERRY              JULY 28, 1977  00:37:46
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/008   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/009   EXPL                     MEMO 343        WF             S0622 D3MISC FSNAME=M343EXPL(1)                              131
            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"
00496/001  *APC                                      SA     APC     DWB:APC.S(1)                                                    
            D4T1   1234  APC..SA.001                        1 LINE     80   16 PAGE UBC  STEVENS   DWB       JULY 28, 1977  00:40:35
0          UBC'S ALL PURPOSE FILE COMPARE PROGRAM MODIFIED TO MAKE @NOTIFY WORK PROPERLY
           AND TO CLEAN UP SOME ERROR COMMENTS.  ASSEMBLE USING THE STEVENS MACRO LIBRARY
           (1016) AND UBC MACROS (1024).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          Referenced by comments of: 1016/1, 1024/1 
00496/002  *APC                                      OC             *APC                                                            
            D4T1   1235  APC..OC.002                        1 SEQ      80    3 PAGE UBC  STEVENS   DWB       JULY 28, 1977  00:40:37
00496/003  *APC                      NEW VERSION     SA  G          W062:APC.S                                                      
            D4T1   1236  APC.NEW_VERSION.SA.003             1 LINE     72   56 PAGE UM   TIFFANY             SEP. 15, 1977  19:07:50
0          A "NEW AND BETTER" VERSION OF *APC.  SEE THE WRITEUP (496/6) FOR DETAILS.
           ASSEMBLE WITH PAR=SIZE=32.
00496/004  *APC                      NEW VERSION     OE  G          NEW:APC                                                         
            D4T1   1237  APC.NEW_VERSION.OE.004             1 LINE  20096    8 PAGE UM   TIFFANY             SEP. 15, 1977  19:08:05
00496/005  *APC                      NEW EXPLAIN     M              ETC:APCEXP                                                      
            D4T1   1238  APC.NEW_EXPLAIN.M.005              1 LINE     66   10 PAGE UM   TIFFANY             SEP. 15, 1977  19:08:06
0          EXPLAIN MESSAGE FILE FOR THE NEW VERSION OF *APC.
00496/006  *APC                      MEMO 365        WT             W098:M365                                                       
            D4T1   1239  APC.MEMO_365.WT.006                1 LINE    127    8 PAGE UM   TIFFANY             SEP. 15, 1977  19:08:07
0          THIS IS COMPUTING CENTER MEMO 365 -- "THE ALL-PURPOSE COMPARE PROGRAM"
0          Referenced by comments of: 496/3 
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
00498/001  *IG                       DI              SA  G          S0933 IGDIST FSNAME=IG.DI.S                                     
            D4T1   1243  IG.DI.SA.001                       1 LINE     87   66 PAGE UM   GOODRICH            JULY 09, 1977  13:59:38
0          THE INTEGRATED GRAPHICS (IG) SYSTEM IS A LIBRARY OF FORTRAN CALLABLE SUBROUTINES FOR
           PERFORMING GRAPHICS OPERATIONS ON A WIDE VARIETY OF GRAPHIC TERMINALS.  IT CONSISTS OF *IG
           AND ROUTINES FOR DEVICE DEPENDENT I/O SUPPORT.  EACH SOURCE MODULE FOR THIS COMPONENT
           ALSO CONTAINS THE MTS COMMANDS FOR ASSEMBLING IT.
            
           498/1 IS THE SOURCE FOR THE DEVICE INTERFACE CSECT (DI).
00498/002  *IG                       DSM             SA  G          S0933 IGDIST FSNAME=IG.DSM.S                                    
            D4T1   1244  IG.DSM.SA.002                      1 LINE     89   33 PAGE UM   GOODRICH            JULY 09, 1977  14:00:07
0          SOURCE FOR DATA STRUCTURE MANIPULATON CSECT (DSM).
00498/003  *IG                       PD              SA  G          S0933 IGDIST FSNAME=IG.PD.S                                     
            D4T1   1245  IG.PD.SA.003                       1 LINE     87   16 PAGE UM   GOODRICH            JULY 09, 1977  14:00:50
0          SOURCE FOR PICTURE DESCRIPTION CSECT (PD).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00498/004  *IG                       GETDD           SA  G          S0933 IGDIST FSNAME=IG.GETDD.S                                  
            D4T1   1246  IG.GETDD.SA.004                    1 LINE     91   17 PAGE UM   GOODRICH            JULY 09, 1977  14:00:25
0          SOURCE FOR GET DEVICE DEPENDENT ROUTINE CSECT (#IGETDD).
00498/005  *IG                       GETEGP          SA  G          S0933 IGDIST FSNAME=IG.GETEGP.S                                 
            D4T1   1247  IG.GETEGP.SA.005                   1 LINE     92    5 PAGE UM   GOODRICH            JULY 09, 1977  14:00:37
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                                                             
            D4T1   1250  IG.*IG.OL.008                      1 SEQ   22720   18 PAGE UM   GOODRICH            AUG. 14, 1977  21:27:28
0          OBJECT LIBRARY FOR INTEGRATED GRAPHICS ROUTINES.
00498/009  *IG                       COPY:IG.COPY.M  SM  G          COPY:IG.COPY.M                                                  
            D4T1   1251  IG.COPY:IG.COPY.M.SM.009           1 LINE     72    9 PAGE UM   GOODRICH            JULY 28, 1977  00:45:24
0          MACRO LIBRARY OF COPY SECTIONS USED BY THE VARIOUS COMPONENTS OF IG.
00498/010  *IG                       TEST            SF  G          W114:IG.TEST.S                                                  
            D4T1   1252  IG.TEST.SF.010                     1 LINE     87   17 PAGE UM   GOODRICH            AUG. 14, 1977  21:27:30
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.
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00498/015  *IG                       RELINK          C              W114:IG.RELINK                                                  
            D4T1   1257  IG.RELINK.C.015                    1 LINE     61    1 PAGE UM   GOODRICH            AUG. 14, 1977  21:27:39
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                                  
            D4T1   1258  IG.STATS_SAVE.C.016                1 LINE     50    1 PAGE UM   GOODRICH            JULY 09, 1977  21:47:54
0          COMMANDS TO SAVE THE CONTENTS OF THE STATISTICS FILE 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             S0622 D3MISC FSNAME=M299IG(1)                                87 
            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                                      
            D4T1   1260  IG.IMPLEMENTATION.WF.018           1 LINE    145   24 PAGE UM   GOODRICH            JULY 09, 1977  21:50:09
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                                  
            D4T1   1263  IG.PWRIT.SA.021                    1 LINE     94    7 PAGE UM   GOODRICH            MAY  13, 1977  16:44:27
0          SOURCE FOR THE *PLOTSYS INTERFACE WHICH ALLOWS CALCOMP PLOTTING PROGRAMS TO RUN WITH IG INSTEAD.
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
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
00498/033  *IG                       *IG.CCMP        SA  G          S0933 IGDIST FSNAME=IG.CCMP.S                                   
            D4T1   1275  IG.*IG.CCMP.SA.033                 1 LINE     91    7 PAGE UM   GOODRICH            MAY  01, 1977  16:05:51
0          SOURCE FOR THE DDR FOR THE CALCOMP PLOTTER VIA *PLOTSYS.
00498/034  *IG                       *IG.CCMP        OC  G          WSG:IG.CCMP                                                     
            D4T1   1276  IG.*IG.CCMP.OC.034                 1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:05
0          HAS A "$CONTINUE WITH *PLOTSYS" CARD.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00498/035  *IG                       *IG.CK400       SA  G          S0933 IGDIST FSNAME=IG.CK400.S                                  
            D4T1   1277  IG.*IG.CK400.SA.035                1 LINE     90   11 PAGE UM   GOODRICH            JULY 09, 1977  14:04:50
0          SOURCE FOR THE DDR FOR THE COMPUTEK 400 STORAGE TUBE DISPLAY.
00498/036  *IG                       *IG.CK400       OC  G          *IG.CK400                                                       
            D4T1   1278  IG.*IG.CK400.OC.036                1 SEQ      80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:09
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
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
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.
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
00498/043  *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/044  *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
00498/045  *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/046  *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
00498/047  *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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00498/048  *IG                       *IG.PEP         OC  G          WSG:IG.PEP                                                      
            D4T1   1290  IG.*IG.PEP.OC.048                  1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:35
00498/049  *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/050  *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
00498/051  *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/052  *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
00498/053  *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/054  *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
00498/055  *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/056  *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
00498/057  *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.
00498/058  *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
00498/059  *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/060  *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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00498/061  *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/062  *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
00498/063  *IG                       *IG.TX4014      SA  G          S0933 IGDIST FSNAME=IG.TX4014.S                                 
            D4T1   1305  IG.*IG.TX4014.SA.063               1 LINE    105   12 PAGE UM   GOODRICH            JULY 09, 1977  21:46:16
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4014 STORAGE TUBE DISPLAY.
00498/064  *IG                       *IG.TX4014      OC  G          *IG.TX4014                                                      
            D4T1   1306  IG.*IG.TX4014.OC.064               1 SEQ      80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:52:49
00498/065  *IG                       *IG.TX4662      SA  G          S0933 IGDIST FSNAME=IG.TX4662.S                                 
            D4T1   1307  IG.*IG.TX4662.SA.065               1 LINE    105   10 PAGE UM   GOODRICH            JULY 09, 1977  21:46:21
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4662 DIGITAL PLOTTER.
00498/066  *IG                       *IG.TX4662      OC  G          WSG:IG.TX4662                                                   
            D4T1   1308  IG.*IG.TX4662.OC.066               1 LINE     80    4 PAGE UM   GOODRICH            JULY 28, 1977  00:52:54
00498/067  *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.
00498/068  *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/069  *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/070  *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
00498/071  *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/072  *IG                       *IG.3270        SA  G          S0933 IGDIST FSNAME=IG.3270.S                                   
            D4T1   1314  IG.*IG.3270.SA.072                 1 LINE     91    9 PAGE UM   GOODRICH            JULY 09, 1977  21:46:36
0          SOURCE FOR THE DDR FOR THE IBM 3270 AND COMPATIBLE TERMINALS.  USES 370 INSTRUCTIONS;
           FOR A 360 VERSION, ASSEMBLE USING THE EDITOR MACROS (648/11) AND WITH PAR=IS=67.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00498/073  *IG                       *IG.3270        OC  G          WSG:IG.3270                                                     
            D4T1   1315  IG.*IG.3270.OC.073                 1 LINE     80    4 PAGE UM   GOODRICH            JULY 28, 1977  00:53:09
0          370 OBJECT
00498/074  *IG                       *IG.3270        OC  G          WSG:IG.3270.360                                                 
            D4T1   1316  IG.*IG.3270.OC.074                 1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:53:11
0          360 OBJECT
00498/075  *IG                       *IG.339         SA  G          S0933 IGDIST FSNAME=IG.339.S                                    
            D4T1   1317  IG.*IG.339.SA.075                  1 LINE     99    7 PAGE UM   GOODRICH            MAY  01, 1977  16:07:45
0          SOURCE FOR THE DDR FOR THE DIGITAL EQUIPMENT CORPORATION 339 REFRESH DISPLAY.
00498/076  *IG                       *IG.339         OC  G          *IG.339                                                         
            D4T1   1318  IG.*IG.339.OC.076                  1 SEQ      80    2 PAGE UM   GOODRICH            AUG. 14, 1977  21:30:33
00498/077  *IG                       INTERACTIVE IG  SG  O          W081:IAIG.S                                                     
            D4T1   1319  IG.INTERACTIVE_IG.SG.077           1 LINE    115   23 PAGE UM   GOODRICH            AUG. 14, 1977  21:30:34
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/80, 498/82, 659/36 
00498/078  *IG                       INTERACTIVE IG  OC  O          W081:IAIG.O                                                     
            D4T1   1320  IG.INTERACTIVE_IG.OC.078           1 LINE     80   20 PAGE UM   GOODRICH            AUG. 14, 1977  21:30:47
0          THIS OBJECT IS 370 DEPENDENT.  TO GET A 360 VERSION, RECOMPILE THE SOURCE ON A 360.
           HAS A "$CONTINUE WITH NEW:GOMLIB+W081:SPANBREAK.O" CARD.
00498/079  *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
00498/080  *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/77).
00498/081  *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/082  *IG                       IAIGCMD         SS  G          W081:IAIGCMD.S                                                  
            D4T1   1324  IG.IAIGCMD.SS.082                  1 LINE     73    1 PAGE UM   GOODRICH            AUG. 14, 1977  21:30:52
0          SNOBOL PROGRAM WHICH GENERATES GOM VECTOR VALUES STATEMENTS FOR COMMAND SCANNER
           DATA FOR INTERACTIVE IG (498/77).
00498/083  *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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00498/084  *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/085  *IG                       MEMO 356        WF             WSG:M356                                                        
            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"
            
           >>>>>>>> READY TO BE ADDED TO THE D4 TAPES <<<<<<<<<<<
00500/001   BILLING                  BILLRFT         SP  G  BLRF    S0027 DISTRB FSNAME=BILLRFT                                     
            D4T2      1  BILLING.BILLRFT.SP.001             1 LINE     80   20 PAGE UM   ENGLE               MAR. 29, 1977  11:38:48
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/11, 500/18, 500/24 
00500/002   BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=BLRF                                        
            D4T2      2  BILLING.BILLRFT.OC.002             1 LINE     80   20 PAGE UM   ENGLE               MAR. 29, 1977  11:39:24
0          REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';).
00500/003   BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=NETBLRF                                     
            D4T2      3  BILLING.BILLRFT.OC.003             1 LINE     80   17 PAGE UM   ENGLE               MAR. 29, 1977  11:40:10
0          REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/004   BILLING                  BILLING         SP  G  BILL    S0027 DISTRB FSNAME=BILLING                                     
            D4T2      4  BILLING.BILLING.SP.004             1 LINE     80   31 PAGE UM   ENGLE               MAY  17, 1976  12:54:11
0          PROGRAM TO DO MAIN PART OF BILLING AFTER SORT.
0          Referenced by comments of: 500/11, 500/13, 500/26 
00500/005   BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=BILL                                        
            D4T2      5  BILLING.BILLING.OC.005             1 LINE     80   20 PAGE UM   ENGLE               MAY  17, 1976  12:54:17
0          REGULAR BILLING (COMPILED WITH %NET='';).
00500/006   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/007   BILLING                  BILPRNT         SP  G  BLPR    S0027 DISTRB FSNAME=BILPRNT                                     
            D4T2      7  BILLING.BILPRNT.SP.007             1 LINE     80   13 PAGE UM   ENGLE               OCT. 01, 1976  17:21:29
0          PROGRAM TO PRINT BILLING REPORTS.
0          Referenced by comments of: 500/12, 500/28 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00500/008   BILLING                  BILPRNT         OC  G          S0027 DISTRB FSNAME=BLPR                                        
            D4T2      8  BILLING.BILPRNT.OC.008             1 LINE     80   15 PAGE UM   ENGLE               OCT. 01, 1976  17:21:32
00500/009   BILLING                  BILLWRITEUP     WF  G          S0027 DISTRB FSNAME=BILLWRITEUP                                 
            D4T2      9  BILLING.BILLWRITEUP.WF.009         1 LINE     80    8 PAGE UM   ENGLE               MAY  05, 1977  14:59:10
0          WRITEUP FOR RUNNING BILLING.
00500/010   BILLING                  BILLSOURCE      C              S0027 DISTRB FSNAME=BILLSOURCE                                  
            D4T2     10  BILLING.BILLSOURCE.C.010           1 LINE    121    1 PAGE UM   ENGLE               MAR. 02, 1977  10:24:12
0          COMMAND FILE FOR RUNNING BILLING.  LINE NUMBERS IN THIS FILE ARE IMPORTANT TO
           THE RESTART FILE (500/14).
0          Referenced by comments of: 500/14 
00500/011   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/1) AND 
           BILLING (500/4).
00500/012   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/7).
00500/013   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/4).
00500/014   BILLING                  RESTART         C              S0027 DISTRB FSNAME=RESTART                                     
            D4T2     14  BILLING.RESTART.C.014              1 LINE     45    1 PAGE UM   ENGLE               MAY  17, 1976  12:58:02
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/10).
0          Referenced by comments of: 500/10 
00500/015   BILLING                  BILLLIB         OL  G          S0027 DISTRB FSNAME=BILLLIB                                     
            D4T2     15  BILLING.BILLLIB.OL.015             1 LINE     80    5 PAGE UM   ENGLE               SEP. 29, 1976  15:15:48
0          LIBRARY FOR BILLING PROGRAMS.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00500/016   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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00500/017   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/018   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/1).
           COPIES ACCPROJFMT (104/2).
00500/019   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
00500/020   BILLING                  PNLIST          SP  G  PNLS    S0027 DISTRB FSNAME=PNLIST                                      
            D4T2     20  BILLING.PNLIST.SP.020              1 LINE     80    5 PAGE UM   ENGLE               MAY  17, 1976  12:58:35
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/22 
00500/021   BILLING                  PNLIST          OC  G          S0027 DISTRB FSNAME=PNLS                                        
            D4T2     21  BILLING.PNLIST.OC.021              1 LINE     80    6 PAGE UM   ENGLE               MAY  17, 1976  12:58:38
00500/022   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/20).  CALLED BY PRJLIST (104/34) WHICH IS CALLED BY PNLIST.
           COPIES ACCPROJFMT (104/2).
00500/023   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/024   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/1).
00500/025   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/026   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/4) TO POSITION PL/1 FILES FOR RESTART.
00500/027   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/028   BILLING                  BLDVSRTE        SA  G  BDSE    S0027 DISTRB FSNAME=BLDVSRTE                                    
            D4T2     28  BILLING.BLDVSRTE.SA.028            1 LINE     80    4 PAGE UM   ENGLE               SEP. 29, 1976  15:01:23
0          SORT EXIT SUBROUTINES TO DO DIVISION SORT FOR BILPRNT (500/7).  COPIES GRDEF
           (104/57).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00500/029   BILLING                  BLDVSRTE        OC  G          S0027 DISTRB FSNAME=BDSE                                        
            D4T2     29  BILLING.BLDVSRTE.OC.029            1 LINE     80    2 PAGE UM   ENGLE               SEP. 29, 1976  15:01:28
00500/030   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/031   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
00501/001   MTS VOLUME 3             MASTER          WT  G          S0486 MTSV3 'MTS MANUALS' POSN=NEWM11.V3                        
            D4T2     32  MTS_VOLUME_3.MASTER.WT.001         1 SEQ     132  312 PAGE UM   MANUAL              JULY 28, 1977  01:36:18
0          TEXT/360 MASTER FOR VOLUME 3 "SYSTEM SUBROUTINE DESCRIPTIONS" OF THE UM MTS MANUALS
           (OCTOBER 1976, UPDATED JUNE 1977).
            
           EDITOR:  RICHARD A. SALISBURY
00501/002   MTS VOLUME 3             PRINT           PT  G          S0486 MTSV3 'MTS MANUALS' POSN=PRINT11.V3                       
            D4T2     33  MTS_VOLUME_3.PRINT.PT.002          1 SEQ     132  652 PAGE UM   MANUAL              JULY 28, 1977  01:36:50
0          TEXT/360 PRINT FILE.
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.  COPIES
           ACCFORMAT (104/1).  ASSEMBLE USING COPY:FILE.MACROS (482/36) AND *SYSMAC.  RUN
           WITH PROT=OFF.
0          Referenced by comments of: 92/1, 104/107, 104/108, 484/1 
00502/002   DEADFILES                SCANFILES       OE  G          S0027 DISTRB FSNAME=SCFL                                        
            D4T2     35  DEADFILES.SCANFILES.OE.002         1 LINE   3320    3 PAGE UM   ENGLE               APR. 18, 1977  14:43:09
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
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/005   DEADFILES                CATDES          SA  G  CDES    RSTR:DEADUCATDES(1001)                                          
            D4T2     38  DEADFILES.CATDES.SA.005            1 LINE     80    2 PAGE UM   HELFFRICH           JULY 28, 1977  01:37:15
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).  THIS IS THE ONLY WAY THAT CATALOG SPACE IS EVER RECLAIMED
           AND IF THIS PROGRAM IS NOT RUN, THE CATALOG WILL ONLY GET BIGGER.
           ASSEMBLE USING *SYSMAC.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00502/006   DEADFILES                CATDES          OC  G          RSTR:DEADUCATDES(1,998)                                         
            D4T2     39  DEADFILES.CATDES.OC.006            1 LINE     80    1 PAGE UM   HELFFRICH           JULY 28, 1977  01:37:17
00502/007   DEADFILES                SAVEFILES       SA  G  SVFL    RSTR:DEADSAVE(1001)                                             
            D4T2     40  DEADFILES.SAVEFILES.SA.007         1 LINE     80    7 PAGE UM   HELFFRICH           JULY 28, 1977  01:37:20
0          PROGRAM TO SAVE A SPECIFIC SET OF FILES IN THE SAME FORMAT AS FILESAVE (067).
           ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/36).  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)                                            
            D4T2     41  DEADFILES.SAVEFILES.OE.008         1 LINE     80    3 PAGE UM   HELFFRICH           JULY 28, 1977  01:37:22
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
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/36) 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  DFFX    S0722 'D3T3' FSNAME=DEADFILES.FIX.SA.15(1)                   222
            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/107, 104/108 
00502/012   DEADFILES                FIX             OC  G          S0722 'D3T3' FSNAME=DEADFILES.FIX.OC.16(1)                   223
            D4T2     45  DEADFILES.FIX.OC.012               1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:59.15
00504/001   MTS VOLUME 1             MASTER          WT  G          S0488 MTSV1 'MTS MANUALS' POSN=NEWM6.V1                     21  
            D4T2     46  MTS_VOLUME_1.MASTER.WT.001         1 SEQ     132  335 PAGE UM   MANUAL              JULY 28, 1977  01:41:29
0          TEXT/360 MASTER FOR VOLUME 1 "MICHIGAN TERMINAL SYSTEM" OF THE UM MTS MANUALS (APRIL 1976,
           UPDATED MARCH 1977).
            
           EDITOR:  RICHARD A. SALISBURY
00504/002   MTS VOLUME 1             PRINT           PT  G          S0488 MTSV1 'MTS MANUALS' POSN=PRINT6.V1                    22  
            D4T2     47  MTS_VOLUME_1.PRINT.PT.002          1 SEQ     132  569 PAGE UM   MANUAL              JULY 28, 1977  01:41:59
0          TEXT/360 PRINT FILE.
00504/003   MTS VOLUME 1             ERROR DUMP      P   G          S0488 MTSV1 'MTS MANUALS' POSN=ERRORDUMP.5                  17  
            D4T2     48  MTS_VOLUME_1.ERROR_DUMP.P.003      1 SEQ     133    3 PAGE UM   MANUAL              JULY 28, 1977  01:42:39
0          PRINTED OUTPUT FOR EXAMPLE OF USING ERROR DUMPS AND LOAD MAPS.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00504/004   MTS VOLUME 1             DEBUG DUMP      P   G          S0488 MTSV1 'MTS MANUALS' POSN=DEBUGDUMP.5                  18  
            D4T2     49  MTS_VOLUME_1.DEBUG_DUMP.P.004      1 SEQ     105    3 PAGE UM   MANUAL              JULY 28, 1977  01:42:39
0          PRINTED OUTPUT FOR EXAMPLE IN DEBUG MODE SECTION.
00504/005   MTS VOLUME 1             INDEX SOURCE    D   G          S0488 MTSV1 'MTS MANUALS' POSN=V1INDEXSOU.5                 19  
            D4T2     50  MTS_VOLUME_1.INDEX_SOURCE.D.005    1 SEQ     150    8 PAGE UM   MANUAL              JULY 28, 1977  01:42:42
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).
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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).
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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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
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/7, 506/8 
00506/002   PL1 MAINTENANCE          CRELCSPR        SA  G  LCSP    W062:CRELCSPR(1,999)                                            
            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 
00506/003   PL1 MAINTENANCE          PICKUP          SA  G  PKUP    S0410 MTSPL1 'PL1LIB' POSN=PICKUP                            42 
            D4T2     79  PL1_MAINTENANCE.PICKUP.SA.003      1 SEQ      80    4 PAGE UM   TIFFANY             JULY 28, 1977  01:46:07
0          PROGRAM TO PICK UP A MODULE FROM A LOADER LIBRARY.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00506/004   PL1 MAINTENANCE          PL1LOADR        SA  G  PL1L    W062:PL1LOADR(1000)                                             
            D4T2     80  PL1_MAINTENANCE.PL1LOADR.SA.004    1 LINE     80    5 PAGE UM   TIFFANY             JULY 28, 1977  01:46:09
0          SIMULATE LOADING PROCESS WITH PL/I LIBRARY IN SEGMENT 5 INSTEAD OF SHARED VM (FOR CHECKOUT).
00506/005   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/006   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/007   PL1 MAINTENANCE          PL1SYMBOLS      D              W062:PL1SYMBOLS                                                 
            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/008   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/009   PL1 MAINTENANCE          PATCHER         SA  G  PAT     W062:PATCH                                                      
            D4T2     85  PL1_MAINTENANCE.PATCHER.SA.009     1 LINE     80    3 PAGE UM   TIFFANY             JULY 28, 1977  01:46:24
0          MODULE TO INSERT PATCHES INTO PL1 COMPILER AS IT IS LOADED
00506/010   PL1 MAINTENANCE          LLXU            SA  G  LLXU    W062:LOAD.S                                                     
            D4T2     86  PL1_MAINTENANCE.LLXU.SA.010        1 LINE     80   18 PAGE UM   TIFFANY             JULY 28, 1977  01:46:25
0          SIMULATE OS LINK/LOAD/XCTL WITH GOODIES.
           THIS PROGRAM CALLS UMLOAD DIRECTLY.
00506/011   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/012   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.
00506/013   PL1 MAINTENANCE          INSTALLATION    WF             W062:INSTALL                                                    
            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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00507/001   TIMELIMIT                *LIM            C              *LIM                                                            
            D4T2     90  TIMELIMIT.*LIM.C.001               1 LINE     56    1 PAGE UM   WSG                 JULY 28, 1977  01:46:34
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    S0221 FSAVE 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/4), 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
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 CREATE AND RESTORE FILES NEEDED TO GENERATE BASIC.  ASSUMES THAT BASIC (BY ITSELF) IS
           ON A *FS TAPE AND RESTORES FILES FROM IT.
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 BASIC.  ASSUMES THE ASSEMBLER IS ON A REGULAR 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.
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                                                    
            D4T2     99  BASIC.DSECT9A.SA.007               1 LINE     69    2 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:35
0          THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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----).
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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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          S0842 BSCSD POSN=*BASIC.LEX                                  2  
            D4T2    112  BASIC.LEX.SA.020                   1 SEQ      80  108 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:05
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          S0842 BSCSD POSN=*BASIC.CPS                                  4  
            D4T2    114  BASIC.CPS.SA.022                   1 SEQ      80   79 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:16
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.
00508/030  *BASIC                    OBJECT          OC  G          SEG2:BASIC                                                      
            D4T2    122  BASIC.OBJECT.OC.030                1 LINE     80  120 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:35
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
0          CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SHARED VM
           BASIC (508/30).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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)                                                
            D4T2    126  PERMIT_COMMAND..SA.001             1 LINE     80   44 PAGE UM   DWB                 JULY 28, 1977  01:50:49
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/4) AND COPY:LLMPSEQU(100)
           (087).  ASSEMBLE USING COPY:MTS.MACROS (344) AND COPY:FILE.MACROS (482/36).
           NOTE:  SOURCE STARTS AT LINE 1, COMMANDS TO ASSEMBLE START AT LINE 0.
00509/002   PERMIT COMMAND                           OC  G          *CLSPERMIT                                                      
            D4T2    127  PERMIT_COMMAND..OC.002             1 LINE     80    8 PAGE UM   DWB                 JULY 28, 1977  01:50:54
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
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.
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
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
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
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           MEMO 345        WF             S0622 D3MISC FSNAME=M345SETFSAVE(1)                          134
            D4T2    132  PERMIT_COMMAND.MEMO_345.WF.007     1 LINE    143    3 PAGE UM   DWB                 JAN. 24, 1977  21:37:52
0          THIS IS COMPUTING CENTER MEMO 345 -- "SETFSAVE SUBROUTINE DESCRIPTION"
00509/008   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
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.
00511/001  *OBJLIST                                  SA  G  OBJL    LBT:INTERP                                                      
            D4T2    136  OBJLIST..SA.001                    1 LINE     80   54 PAGE UM   TIFFANY             JULY 28, 1977  01:53:58
0          PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT.
00511/002  *OBJLIST                                  OE  G          *OBJLIST                                                        
            D4T2    137  OBJLIST..OE.002                    1 SEQ    7141    3 PAGE UM   TIFFANY             JULY 28, 1977  01:54:01
00512/001   MTS VOLUME 11            MASTER          WT  G          S0549 MTSV11 'MTS MANUALS' POSN=NEWM2.V11                   6   
            D4T2    138  MTS_VOLUME_11.MASTER.WT.001        1 SEQ     132   69 PAGE UM   MANUAL              JULY 28, 1977  01:54:29
0          TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUALS
           (APRIL 1971, UPDATED MARCH 1974).
            
           EDITOR:  GAIL H. LIFT
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00512/002   MTS VOLUME 11            PRINT           PT  G          S0549 MTSV11 'MTS MANUALS' POSN=PRINT2.V11                  7   
            D4T2    139  MTS_VOLUME_11.PRINT.PT.002         1 SEQ     132  439 PAGE UM   MANUAL              JULY 28, 1977  01:54:43
0          TEXT/360 PRINT FILE.
00512/003   MTS VOLUME 11            FIGURES         D              S0549 MTSV11 'MTS MANUALS' POSN=V11FIGURES                  9   
            D4T2    140  MTS_VOLUME_11.FIGURES.D.003        1 SEQ     254   95 PAGE UM   MANUAL              JULY 28, 1977  01:54:53
0          PLOT FILE FOR FIGURES APPEARING IN MTS VOLUME 11.
00512/004   MTS VOLUME 11            INDICES         P              S0549 MTSV11 'MTS MANUALS' POSN=V11INDICES                  8   
            D4T2    141  MTS_VOLUME_11.INDICES.P.004        1 SEQ     132    6 PAGE UM   MANUAL              JULY 28, 1977  01:54:57
0          SORTED SUBROUTINE INDEX.
00513/001   DYSSUB                                   SA  G          MTS:DYSSUB(1,999)                                               
            D4T2    142  DYSSUB..SA.001                     1 LINE     72    5 PAGE UM   DWB                 JULY 28, 1977  01:54:59
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/4), *GDINFODSECT (594),
           AND *SENSEDSECT (3025).  ASSEMBLE USING COPY:MTS.MACROS (344).
00513/002   DYSSUB                                   OC  G          *DYSSUB                                                         
            D4T2    143  DYSSUB..OC.002                     1 LINE     80    2 PAGE UM   DWB                 JULY 28, 1977  01:55:00
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE.
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
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   LUBBERS             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 
00515/002  *11ASR                    MACRO           SM  G          S0806 DIST4 FSNAME=MACRO                                        
            D4T2    147  11ASR.MACRO.SM.002                 1 LINE     68    4 PAGE UM   LUBBERS             OCT. 18, 1976  16:11:24
0          MACRO LIBRARY USED TO ASSEMBLE COMPS 515/3 THROUGH 515/7.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             OCT. 16, 1976  15:53:03
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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             JULY 28, 1977  01:58:38
00515/011  *11ASR                    11ASRERROR      M   G          ETC:11ASRERROR                                                  
            D4T2    156  11ASR.11ASRERROR.M.011             1 LINE     70    4 PAGE UM   LUBBERS             JULY 28, 1977  01:58:40
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   LUBBERS             JULY 28, 1977  01:58:42
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   LUBBERS             JULY 28, 1977  01:58:45
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   LUBBERS             JULY 28, 1977  01:58:47
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00515/015  *11ASR                    11/03 OPCODES   OE  G          ETC:11ASROP03                                                   
            D4T2    160  11ASR.11/03_OPCODES.OE.015         1 SEQ    3576    2 PAGE UM   LUBBERS             JULY 28, 1977  01:58:49
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   LUBBERS             JULY 28, 1977  01:58:52
0          OBJECT MODULE LOADED FROM ETC:11ASROP45 BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR
           THE PDP-11/45 COMPUTER.
00515/017  *11ASR                    MEMO 286        WT             S0622 D3MISC FSNAME=M28611ASR(1)                             79 
            D4T2    162  11ASR.MEMO_286.WT.017              1 LINE     80   49 PAGE UM   LUBBERS             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   LUBBERS             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   LUBBERS             JULY 28, 1977  01:59:54
00516/003  *LINK11                   USER'S GUIDE    WT           # (SEE COMP 515/17)                                               
                                                                                    UM   LUBBERS                                    
00517/001   LOGICAL OPERATORS                        SA  G          W060:ASM.LOGOPS                                                 
            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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00519/001   GRJLDT/GRJLTM SUBRS      GRJLDT          SA  G  GJDT    S0723 'D3T4' FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLDT.SA.1(1)        86
            D4T2    167  GRJLDT/GRJLTM_SUBRS.GRJLD.SA.001   1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:46.03
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                                      
00519/003   GRJLDT/GRJLTM SUBRS      GRJLTM          SA  G  GJTM    S0723 'D3T4' FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLTM.SA.3(1)        87
            D4T2    168  GRJLDT/GRJLTM_SUBRS.GRJLT.SA.003   1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:47.21
00519/004   GRJLDT/GRJLTM SUBRS      GRJLTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00520/001   GROSDT                                   SA  G  GODT    S0723 'D3T4' FSNAME=GROSDT..SA.1(1)                           88
            D4T2    169  GROSDT..SA.001                     1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:52.15
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, 716/10 
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
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    S0723 'D3T4' FSNAME=OSGRDT..SA.1(1)                           92
            D4T2    174  OSGRDT..SA.001                     1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  12:10.55
0          OS/360 (YYDDD) TO GREGORIAN DATE CONVERSION SUBROUTINE.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00523/002   OSGRDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00524/001  *LIBRARY                                  OL             *LIBRARY                                                        
            D4T2    175  LIBRARY..OL.001                    1 SEQ   14096   24 PAGE UM   SALISBURY           SEP. 16, 1977  10:39:59
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 
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.
00525/001   ELEM FUNC LIB            SQRT            SA  G          S0496 EFL74 FSNAME=SQRT                                         
            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 
00525/002   ELEM FUNC LIB            EXP             SA  G          S0496 EFL74 FSNAME=EXP                                          
            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          S0496 EFL74 FSNAME=ALOG10.ALOG                                  
            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          S0496 EFL74 FSNAME=COS.SIN                                      
            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          S0496 EFL74 FSNAME=COTAN.TAN                                    
            D4T2    182  ELEM_FUNC_LIB.COTAN/TAN.SA.005     1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.23
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00525/006   ELEM FUNC LIB            ARCOS/ARSIN     SA  G          S0496 EFL74 FSNAME=ARCOS.ARSIN                                  
            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          S0496 EFL74 FSNAME=ATAN2.ATAN                                   
            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          S0496 EFL74 FSNAME=COSH.SINH                                    
            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          S0496 EFL74 FSNAME=TANH                                         
            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          S0496 EFL74 FSNAME=ERFC.ERF                                     
            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          S0496 EFL74 FSNAME=ALGAMA.GAMMA                                 
            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          S0496 EFL74 FSNAME=DSQRT                                        
            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          S0496 EFL74 FSNAME=DEXP                                         
            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          S0496 EFL74 FSNAME=DLOG10.DLOG                                  
            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          S0496 EFL74 FSNAME=DCOS.DSIN                                    
            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          S0496 EFL74 FSNAME=DCOTAN.DTAN                                  
            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          S0496 EFL74 FSNAME=DARCOS.DARSI                                 
            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          S0496 EFL74 FSNAME=DATAN2.DATAN                                 
            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          S0496 EFL74 FSNAME=DCOSH.DSINH                                  
            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          S0496 EFL74 FSNAME=DTANH                                        
            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          S0496 EFL74 FSNAME=DERFC.DERF                                   
            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          S0496 EFL74 FSNAME=DLGAMA.DGAMM                                 
            D4T2    199  ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022   1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.42
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00525/023   ELEM FUNC LIB            CABS            SA  G          S0496 EFL74 FSNAME=CABS                                         
            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          S0496 EFL74 FSNAME=CSQRT                                        
            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          S0496 EFL74 FSNAME=CEXP                                         
            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          S0496 EFL74 FSNAME=CLOG                                         
            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          S0496 EFL74 FSNAME=CCOS.CSIN                                    
            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          S0496 EFL74 FSNAME=CDABS                                        
            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          S0496 EFL74 FSNAME=CDSQRT                                       
            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          S0496 EFL74 FSNAME=CDEXP                                        
            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          S0496 EFL74 FSNAME=CDLOG                                        
            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          S0496 EFL74 FSNAME=CDCOS.CDSIN                                  
            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          S0496 EFL74 FSNAME=FIXPI                                        
            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          S0496 EFL74 FSNAME=FRXPI                                        
            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          S0496 EFL74 FSNAME=FDXPI                                        
            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          S0496 EFL74 FSNAME=FCXPI                                        
            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          S0496 EFL74 FSNAME=FCDXI                                        
            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          S0496 EFL74 FSNAME=FRXPR                                        
            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          S0496 EFL74 FSNAME=FDXPD                                        
            D4T2    216  ELEM_FUNC_LIB.FDXPD#.SA.039        1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.43
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00525/040   ELEM FUNC LIB            CMPY#           SA  G          S0496 EFL74 FSNAME=CMPY                                         
            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          S0496 EFL74 FSNAME=CDVD                                         
            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          S0496 EFL74 FSNAME=CDMPY                                        
            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          S0496 EFL74 FSNAME=CDDVD                                        
            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          S0496 EFL74 FSNAME=DREAL                                        
            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          S0496 EFL74 FSNAME=DIMAG                                        
            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          S0496 EFL74 FSNAME=MINMAX                                       
            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          S0496 EFL74 FSNAME=EFL.MACLIB                                   
            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          W060:ASM.ERRMON                                                 
            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          S0496 EFL74 FSNAME=ASM.EFL                                      
            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
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                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00526/001   SIOC SUBR                                SA  G  SIOC    W060:ASM.SIOC370                                                
            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.
           USES AN ASSEMBLY PARAMETER TO CONTROL WHETHER THE CODE SHOULD BE GENERATED FOR
           A STANDARD 360 OR FOR A 370 WITH THE EXTENDED PRECISION FEATURE.
00526/002   SIOC SUBR                370 OBJECT      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
0          370/470 OBJECT.
00526/003   SIOC SUBR                360 OBJECT      OC  G          SEG2:SIOC.360                                                   
            D4T2    230  SIOC_SUBR.360_OBJECT.OC.003        1 LINE     80    3 PAGE UM   HARDING             JULY 28, 1977  02:09:48
0          360 OBJECT.
00526/004   SIOC SUBR                SIOCP           SA  G  SIOP    W060:ASM.SIOCP                                                  
            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/005   SIOC SUBR                SIOCP           OC  G        # (PART OF COMP 525/50)                                           
                                                                                    UM   HARDING                                    
00527/001   TRACER SUBR                              SA  G  TRAC    S0496 EFL74 FSNAME=TRACER                                       
            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             S0622 D3MISC FSNAME=M218TRACEBACK(1)                         67 
            D4T2    233  TRACER_SUBR.MEMO_218.WF.003        1 LINE    147   10 PAGE UM   HARDING             JAN. 24, 1977  20:18:34
0          THIS IS COMPUTING CENTER MEMO 218 -- "THE TRACEBACK PROGRAM"
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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    HELFFRICH 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    HELFFRICH JAN. 17, 1977  15:51:33
0          SOURCE FOR COMPILE- AND RUN-TIME SYSTEM INTERFACE FOR *XALGOLW.
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    HELFFRICH 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    HELFFRICH 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    HELFFRICH                        
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    HELFFRICH JULY 28, 1977  02:13:51
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    HELFFRICH 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    HELFFRICH 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    HELFFRICH MAY  26, 1976  16:51:21
0          SOURCE FOR LOAD VECTOR OF XALGOLW TO ENABLE ITS LOADER TO RESOLVE EXTERNAL SYMBOLS.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00528/010   ALGOLW                   XLIBRARY        OE  G          *ALGOLWXLIB                                                     
            D4T2    242  ALGOLW.XLIBRARY.OE.010             1 SEQ   19420    8 PAGE UNE  HUNTER    HELFFRICH JULY 28, 1977  02:14:59
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    HELFFRICH MAY  26, 1976  16:55:02
0          SOURCE FOR *ALGOLW COMPILER SYSTEM INTERFACE AND MAIN PROGRAM.
00528/012   ALGOLW                   *ALGOLW         OE  G          *ALGOLW                                                         
            D4T2    244  ALGOLW.*ALGOLW.OE.012              1 SEQ    3044    1 PAGE UNE  HUNTER    HELFFRICH JULY 28, 1977  02:15:04
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    HELFFRICH 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    HELFFRICH 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    HELFFRICH 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    HELFFRICH JULY 28, 1977  02:15:38
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    HELFFRICH 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    HELFFRICH JULY 28, 1977  02:16:06
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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    HELFFRICH 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    HELFFRICH JULY 28, 1977  02:16:12
0          *ALGOLW TEST PROGRAM SERIES.
00528/021   ALGOLW                   MEMO 330        WF             S0622 D3MISC FSNAME=M330ALGOLW(1)                            116
            D4T2    253  ALGOLW.MEMO_330.WF.021             1 LINE    146   56 PAGE UM   HELFFRICH           JAN. 26, 1977  20:45:55
0          THIS IS COMPUTING CENTER MEMO 330 -- "ALGOL W LANGUAGE REFERENCE AND USER'S GUIDE"
00529/001   FILESTATUS COMMAND                       SA             DWB:FSTATCMD4P(1)                                               
            D4T2    254  FILESTATUS_COMMAND..SA.001         1 LINE     80   85 PAGE UM   DWB                 AUG. 14, 1977  21:42:08
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).
00529/002   FILESTATUS COMMAND                       OC             *CLSFILESTATUS                                                  
            D4T2    255  FILESTATUS_COMMAND..OC.002         1 LINE     80   15 PAGE UM   DWB                 AUG. 14, 1977  21:42:17
00530/001  *AMENDS                                   SA     AMEN    DWB:UNEPA.S                                                     
            D4T2    256  AMENDS..SA.001                     1 LINE     80    6 PAGE UM   DWB                 JULY 28, 1977  02:17:36
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
00531/001   COMMAND STATISTICS       CMDSTAT         SA  G  CMDS    DWB:CMDSTAT.370(1)                                              
            D4T2    258  COMMAND_STATISTICS.CMDSTA.SA.001   1 LINE     80   12 PAGE UM   DWB                 JULY 28, 1977  02:17:40
0          GENERAL SYSTEM LOGGING PROGRAM TO LOG ALL MTS COMMANDS, THE HASP LOG, THE OPERATOR'S
           CONSOLE LOG, UNIT AND MACHINE CHECK RECORDS, ETC.  COPIES COPY:CMDAREADSECT (531/12), CMDSTAT.D (531/13),
           COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:MTS.MACROS (344).
           CURRENTLY THE FOLLOWING RECORD TYPES ARE ASSIGNED:
              TYPE 1 = MTS COMMANDS
                   2 = OVERFLOW
                   3 = RELOAD
                   4 = UNIT-CHECK DATA
                   5 = END-OF-USER (HAS BEEN SIGNED-OFF)
                   6 = 3270 DSR STATISTICS
                   7 = HASP LOG
                   8 = SYSTEMSTATUS (SSRTN) STATISTICS
                   9 = TSFO DSR STATISTICS
                  10 = MACHINE-CHECK RECORDS
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0                 11 = OPERATOR CONSOLE LOG 
                  12 = EDITOR STATISTICS
                  13 = LOADER STATISTICS
                  14 = PLOT STATISTICS
                  15 = SPIRES STATISTICS
                  16 = MOUNT STATISTICS
                  17 = MERIT STATISTICS
0          Referenced by comments of: 413/1, 447/1 
00531/002   COMMAND STATISTICS       CMDSTAT         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00531/003   COMMAND STATISTICS       *CMD            C   G          *CMD                                                            
            D4T2    259  COMMAND_STATISTICS.*CMD.C.003      1 LINE     77    1 PAGE UM   DWB                 JULY 28, 1977  02:17:47
0          THIS COMMAND FILE IS INVOKED BY INIT:INTCMD (097/2) WHENEVER THE SYSTEM IS IPLED.  AFTER SIGNON,
           *CMD RUNS CMDPIKUP (531/4).  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 
00531/004   COMMAND STATISTICS       CMDPIKUP        SA  G  CMDP    DWB:CMDPIKUP.370(1)                                             
            D4T2    260  COMMAND_STATISTICS.CMDPIK.SA.004   1 LINE     80   19 PAGE UM   DWB                 JULY 28, 1977  02:17:50
0          PROGRAM TO PICKUP LOG RECORDS (FROM CMDSTAT) AND SAVE THEM IN FILES; FILENAMES ARE
           SPECIFIED BY THE CMDDIR FILE (531/6).  WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC
           STRTJB TO START "MTS *DWB" (531/7) 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/27), AND THEN SETS THINGS UP SO A FILE-TO-TAPE TASK (531/7) 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/6)
           IS REFERENCED DIRECTLY BY THIS PROGRAM.  CMDPIKUP COPIES COPY:CMDAREADSECT (531/12),
           COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), CMDSTAT.D (531/13), AND *GDINFODSECT
           (594).  ASSEMBLE USING COPY:MTS.MACROS (344) AND MTA:MCHMAC (577/57).
0          Referenced by comments of: 531/3, 531/27, 603/1 
00531/005   COMMAND STATISTICS       CMDPIKUP        OC  G          SYS:CMDPIKUP.O                                                  
            D4T2    261  COMMAND_STATISTICS.CMDPIK.OC.005   1 LINE     80    5 PAGE UM   DWB                 JULY 28, 1977  02:17:58
00531/006   COMMAND STATISTICS       SYS:CMDDIR      D              MTS:TST.CMDDIR                                                  
            D4T2    262  COMMAND_STATISTICS.SYS:CM.D.006    1 LINE     70    1 PAGE UM   DWB                 JULY 28, 1977  02:18:00
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0                           OR THE REPLACE COMMAND SINCE THE LINES CONTAINING TAPE INFORMATION
                            HAVE HEX FIELDS WHICH WILL BE CLOBBERED.
0          Referenced by comments of: 531/4, 531/8 
00531/007   COMMAND STATISTICS       *DWB            C   G          *DWB                                                            
            D4T2    263  COMMAND_STATISTICS.*DWB.C.007      1 LINE    106    1 PAGE UM   DWB                 JULY 28, 1977  02:18:03
0          COMMAND FILE INVOKED BY CMDPIKUP TO RUN THE CMDTAPE PROGRAM (531/8) 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: 531/4 
00531/008   COMMAND STATISTICS       CMDTAPE         SA  G  CMDT    DWB:CMDTAPE.370(1)                                              
            D4T2    264  COMMAND_STATISTICS.CMDTAP.SA.008   1 LINE     80   18 PAGE UM   DWB                 JULY 28, 1977  02:18:05
0          PROGRAM TO COPY CMDSTAT LOG FILES TO TAPE.  RUN BY *DWB.
           NOTE:  THE FILES CMDDIR (531/6) AND CMDFDIR (531/10) ARE REFERENCED DIRECTLY BY THIS PROGRAM.
           COPIES COPY:CMDAREADSECT (531/12), *GDINFODSECT (594), COPY:LLMPSEQU (087), AND
           COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:MTS.MACROS (344).
0          Referenced by comments of: 531/7, 531/10, 531/23 
00531/009   COMMAND STATISTICS       CMDTAPE         OC  G          SYS:CMDTAPE.O                                                   
            D4T2    265  COMMAND_STATISTICS.CMDTAP.OC.009   1 LINE     80    5 PAGE UM   DWB                 JULY 28, 1977  02:18:10
00531/010   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
0          DATA FILE, MAINTAINED BY THE CMDTAPE PROGRAM (531/8), 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/8, 531/25 
00531/011   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
00531/012   COMMAND STATISTICS       CMDAREADSECT    SA  G  CMDA    COPY:CMDAREADSECT                                               
            D4T2    267  COMMAND_STATISTICS.CMDARE.SA.012   1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:20:48
0          COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD.
0          Referenced by comments of: 12/1, 45/3, 45/4, 46/4, 531/1, 531/4, 531/8, 531/23, 531/25, 540/9, 577/53, 603/1,
                 621/2, 621/4, 621/8, 621/10, 655/2, 707/2, 718/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00531/013   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
0          COPY SECTION FOR CMDSTAT DATA.
0          Referenced by comments of: 531/1, 531/4 
00531/014   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
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/015   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/016   COMMAND STATISTICS       CMDXTRACT       SF             DWB:CMDXTRACT(1,999)                                            
            D4T2    271  COMMAND_STATISTICS.CMDXTR.SF.016   1 LINE     71    1 PAGE UM   DWB                 JULY 28, 1977  02:20:58
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/017   COMMAND STATISTICS       CMDXTRACT       OC             DWB:CMDXTRACT(1000)                                             
            D4T2    272  COMMAND_STATISTICS.CMDXTR.OC.017   1 LINE    240    2 PAGE UM   DWB                 JULY 28, 1977  02:21:01
00531/018   COMMAND STATISTICS       CMDXTRACT3      SF             DWB:CMDXTRACT3(1,999)                                           
            D4T2    273  COMMAND_STATISTICS.CMDXTR.SF.018   1 LINE     65    1 PAGE UM   DWB                 JULY 28, 1977  02:21:04
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/16.
00531/019   COMMAND STATISTICS       CMDXTRACT3      OC             DWB:CMDXTRACT3(1000)                                            
            D4T2    274  COMMAND_STATISTICS.CMDXTR.OC.019   1 LINE    778    2 PAGE UM   DWB                 JULY 28, 1977  02:21:06
00531/020   COMMAND STATISTICS       PROCESSING      SF             DWB:CMDPROC                                                     
            D4T2    275  COMMAND_STATISTICS.PROCES.SF.020   1 LINE     75    9 PAGE UM   DWB                 JULY 28, 1977  02:21:09
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) 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00531/021   COMMAND STATISTICS       PROCESSING      OC             DWB:CMDPROCO                                                    
            D4T2    276  COMMAND_STATISTICS.PROCES.OC.021   1 LINE  19550   10 PAGE UM   DWB                 JULY 28, 1977  02:21:11
00531/022   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/023   COMMAND STATISTICS       SELECTCMD       SA  G  SELC    MTS:SELECTCMD(1,999)                                            
            D4T2    277  COMMAND_STATISTICS.SELECT.SA.023   1 LINE     80    6 PAGE UM   MTA                 JULY 28, 1977  02:21:14
0          PROGRAM TO RETRIEVE DATA FROM CMDSTAT TAPES USING DIRECTORY BUILT BY CMDTAPE (531/8).
           CALLS READBFR ROUTINE (709).  COPIES COPY:CMDAREADSECT (531/12).
0          Referenced by comments of: 709/1 
00531/024   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/025   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
0          PROGRAM TO PRINT OR COPY (OR BOTH) COMMAND STATISTICS RECORDS BASED ON RECORD
           TYPES.  THIS PROGRAM REPLACES AND EXTENDS CMDAREAPRINT (531/10).  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
           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/12).
00531/026   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/027   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
0          WRITEUP DESCRIBING NORMAL BEHAVIOR OF COMMAND STATISTICS PICKUP AND WHAT TO
           DO WHEN ABNORMALITIES OCCUR.  THE CMDPIKUP PROGRAM (531/4) 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          S0981 W114 'W114SAVE' FSNAME=PLOTSEE.S                          
            D4T2    282  PLOTSEE..SA.001                    1 LINE     78   11 PAGE UM   GOODRICH            JUNE 12, 1977  21:56:41
0          PLOT PREVIEWING PROGRAM.
           USER OF ANY IG-SUPPORTED DISPLAY CONNECTED TO MTS VIA UM DATA CONCENTRATOR CAN
           VIEW PDS PLOT FILES PRODUCED VIA *PLOTSYS.  HAS "WINDOWING" FACILITY.
           SOURCE START ON LINE 7.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00532/002  *PLOTSEE                                  OE  G          *PLOTSEE                                                        
            D4T2    283  PLOTSEE..OE.002                    1 LINE     80    4 PAGE UM   GOODRICH            JULY 28, 1977  02:23:57
0          CONTAINS A "$CONTINUE WITH *IG+*PLOTSYS" LINE.
00533/001  *FRISK                    MAIN            SA  O          S1073 UNSP FSNAME=FRISK.S                                       
            D4T2    284  FRISK.MAIN.SA.001                  1 LINE     72   44 PAGE UBC  HALL      OGDEN     JULY 18, 1977  15:53:27
0          AN UPDATED VERSION OF *FRISK WHICH, IN ADDITION TO CROSS-REFERENCING
           FORTRAN PROGRAMS, WILL TIDY THE SOURCE.  TIDYING INCLUDES RE-LABELING
           TO AN ASCENDING SEQUENCE, INDENTATION FOR DO-LOOP NESTING AND OTHER
           STRUCTURE, AND EXTRACTION OF FORMAT STATEMENTS.
            
           AT UM, FRISK IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
00533/002  *FRISK                                    OC  O          UNSP:NEWFRISK                                                   
            D4T2    285  FRISK..OC.002                      1 LINE     80   16 PAGE UBC  HALL      OGDEN     JULY 28, 1977  02:27:12
00533/003  *FRISK                    USER'S GUIDE    WF             S1073 UNSP FSNAME=FRISK.F                                       
            D4T2    286  FRISK.USER'S_GUIDE.WF.003          1 LINE    135    6 PAGE UBC  HALL      OGDEN     JULY 19, 1976  22:51:14
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
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 
00534/002   TMTS                     JOB LIST ENTRY  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00534/003   TMTS                     FAKE JOB-PGM    SA  G  TMFK    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
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  LMTS    TMTS:LOADMTS(1,999)                                             
            D4T2    289  TMTS.LOADMTS.SA.005                1 LINE     80   15 PAGE UM   MTA                 JULY 28, 1977  02:28:37
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
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0                                        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/27) SHOULD BE INCLUDED.
0          Referenced by comments of: 534/1 
00534/006   TMTS                     LOADMTS         OC  G          TMTS:LOADMTS(1000)                                              
            D4T2    290  TMTS.LOADMTS.OC.006                1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  02:28:40
00534/007   TMTS                     TMTSLIB         OL  O          TMTS:TMTSLIB                                                    
            D4T2    291  TMTS.TMTSLIB.OL.007                1 LINE  31993   90 PAGE UM   MTA                 JULY 28, 1977  02:28:42
0          THIS IS A SPECIAL (AND SLIGHTLY OBSOLETE) VERSION OF *LIBRARY WHICH INCLUDES ADDITIONAL 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
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
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                                                    
            D4T2    294  TMTS.MTSSSCN.OC.010                1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:28:52
0          OBJECT FOR PRINTDUMP SSCN SUBROUTINE (400/3) USED FOR PRINTING TMTS JOB DUMPS
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          (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).
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
00535/003   CLS INTERFACE            STDTV           SA  G  STTV    MTS:STDTV                                                       
            D4T2    297  CLS_INTERFACE.STDTV.SA.003         1 LINE     80    1 PAGE UM   DWB                 JULY 28, 1977  02:29:01
0          STANDARD CLS TRANSFER VECTOR WHICH CAN BE USED WHEN CALLING A CLS FROM EXECUTION
           MODE.  ASSEMBLE USING COPY:MTS.MACROS (344).
0          Referenced by comments of: 534/8 
00535/004   CLS INTERFACE            STDTV           OC  G          SEG2:STDTV                                                      
            D4T2    298  CLS_INTERFACE.STDTV.OC.004         1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:29:03
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 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
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   MTA                 JULY 28, 1977  02:29:06
0          THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM.
           COPIES FAKEOS.GBLS (545/17).  ASSEMBLE USING *SYSMAC.
00538/002  *COBOLU                   EXECUTOR        OE  G          *COBOLU                                                         
            D4T2    300  COBOLU.EXECUTOR.OE.002             1 SEQ     614    1 PAGE UM   MTA                 JULY 28, 1977  02:29:08
00538/003  *COBOLU                   BLDLIN          D              MTA:COBOL.BLDLIN                                                
            D4T2    301  COBOLU.BLDLIN.D.003                1 LINE     44    1 PAGE UM   MTA                 JULY 28, 1977  02:29:10
0          SCARDS INPUT TO CREBLDL (545/33) TO BUILD 538/4.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00538/004  *COBOLU                   BLDL            D              ETC:COBOL.BLDL                                                  
            D4T2    302  COBOLU.BLDL.D.004                  1 SEQ     238    1 PAGE UM   MTA                 JULY 28, 1977  02:29:12
00538/005  *COBOLU                   IKFCBL00        OE  O          ETC:IKFCBL00                                                    
            D4T2    303  COBOLU.IKFCBL00.OE.005             1 SEQ    1024    4 PAGE UM   MTA                 JULY 28, 1977  02:29:15
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   MTA                 JULY 28, 1977  02:29:17
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   MTA                 JULY 28, 1977  02:29:19
00538/008  *COBOLU                   IKFCBL10        OE  O          ETC:IKFCBL10                                                    
            D4T2    306  COBOLU.IKFCBL10.OE.008             1 SEQ    1024   12 PAGE UM   MTA                 JULY 28, 1977  02:29:21
00538/009  *COBOLU                   IKFCBL20        OE  O          ETC:IKFCBL20                                                    
            D4T2    307  COBOLU.IKFCBL20.OE.009             1 SEQ    1024   13 PAGE UM   MTA                 JULY 28, 1977  02:29:23
00538/010  *COBOLU                   IKFCBL30        OE  O          ETC:IKFCBL30                                                    
            D4T2    308  COBOLU.IKFCBL30.OE.010             1 SEQ    1024    4 PAGE UM   MTA                 JULY 28, 1977  02:29:26
00538/011  *COBOLU                   IKFCBL40        OE  O          ETC:IKFCBL40                                                    
            D4T2    309  COBOLU.IKFCBL40.OE.011             1 SEQ    1024   11 PAGE UM   MTA                 JULY 28, 1977  02:29:28
00538/012  *COBOLU                   IKFCBL50        OE  O          ETC:IKFCBL50                                                    
            D4T2    310  COBOLU.IKFCBL50.OE.012             1 SEQ    1024    9 PAGE UM   MTA                 JULY 28, 1977  02:29:30
00538/013  *COBOLU                   IKFCBL51        OE  O          ETC:IKFCBL51                                                    
            D4T2    311  COBOLU.IKFCBL51.OE.013             1 SEQ    1024   10 PAGE UM   MTA                 JULY 28, 1977  02:29:32
00538/014  *COBOLU                   IKFCBL6A        OE  O          ETC:IKFCBL6A                                                    
            D4T2    312  COBOLU.IKFCBL6A.OE.014             1 SEQ    1024    1 PAGE UM   MTA                 JULY 28, 1977  02:29:35
00538/015  *COBOLU                   IKFCBL60        OE  O          ETC:IKFCBL60                                                    
            D4T2    313  COBOLU.IKFCBL60.OE.015             1 SEQ    1024    8 PAGE UM   MTA                 JULY 28, 1977  02:29:37
00538/016  *COBOLU                   IKFCBL70        OE  O          ETC:IKFCBL70                                                    
            D4T2    314  COBOLU.IKFCBL70.OE.016             1 SEQ    1024   13 PAGE UM   MTA                 JULY 28, 1977  02:29:39
00538/017  *COBOLU                   *COBLIB         OL  O          *COBLIB                                                         
            D4T2    315  COBOLU.*COBLIB.OL.017              1 SEQ    1024    9 PAGE UM   MTA                 JULY 28, 1977  02:29:41
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   MTA                 JULY 28, 1977  02:29:43
0          TEST PROGRAM.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00538/019  *COBOLU                   TEST PGM #2     SC             MTA:COBTEST2                                                    
            D4T2    317  COBOLU.TEST_PGM_#2.SC.019          1 LINE     73    4 PAGE UM   MTA                 JULY 28, 1977  02:29:46
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   MTA                 JULY 28, 1977  02:29:48
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   MTA                 JULY 28, 1977  02:30:36
0          MTS TIMER INTERRUPT ROUTINES (USER CALLABLE):  SETIME, RSTIME, GETIME, AND TIMNTRP.
           ASSEMBLE USING *SYSMAC, COPY:MTS.MACROS (344), AND COPY:FILE.MACROS (482/36).
           COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU (087).
0          Referenced by comments of: 344/1, 539/2 
00539/002   TIMNTRP                  UPDATE          UU  G          MTS:TIMTUPD                                                     
            D4T2    320  TIMNTRP.UPDATE.UU.002              1 LINE     72    6 PAGE UM   MTA                 JULY 28, 1977  02:30:36
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (539/1).
           UPDATE DECK USES %POSN *IN* TIMT.
00539/003   TIMNTRP                  370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00539/004   TIMNTRP                  360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00539/005   TIMNTRP                  370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=TIMT.LIST                 
            D4T2    321  TIMNTRP.370_LISTING.L.005          1 SEQ     133   64 PAGE UM   MTA                 JULY 28, 1977  02:31:50
00539/006   TIMNTRP                  360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=TIMT.LIST             
            D4T2    322  TIMNTRP.360_LISTING.L.006          1 SEQ     133   63 PAGE UM   MTA                 JULY 28, 1977  02:37:29
00539/007   TIMNTRP                  TEST PROGRAM    SA  O  TSTI    MTA:TESTTI(1,999)                                               
            D4T2    323  TIMNTRP.TEST_PROGRAM.SA.007        1 LINE     80    6 PAGE UM   MTA                 JULY 28, 1977  02:37:30
0          DRIVER FOR TESTING TIMER ROUTINES.
00539/008   TIMNTRP                  TEST PROGRAM    OC  O          MTA:TESTTI(1000)                                                
            D4T2    324  TIMNTRP.TEST_PROGRAM.OC.008        1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:37:32
00540/001   SYSTEM WATCHERS          PDPBUG          SA  G  PDPB    MTA:PDPBUG(1000)                                                
            D4T2    325  SYSTEM_WATCHERS.PDPBUG.SA.001      1 LINE     80   10 PAGE UM   MTA                 JULY 28, 1977  02:37:35
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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          COPIES COPY:LLMPSEQU(100) (087) AND COPY:GLOBALS (1026/4).
            
           NOTE:  THE DISTRIBUTED VERSION WILL WORK ONLY ON THE 370 D4.0 SYSTEM.
00540/002   SYSTEM WATCHERS          PDPBUG          OC  G          MTA:PDPBUG(1,999)                                               
            D4T2    326  SYSTEM_WATCHERS.PDPBUG.OC.002      1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:37:37
00540/003   SYSTEM WATCHERS          PRNTCNTS        SA  G  PCNT    MTA:PRNTCNTS(1000)                                              
            D4T2    327  SYSTEM_WATCHERS.PRNTCNTS.SA.003    1 LINE     80   24 PAGE UM   MTA                 SEP. 16, 1977  10:48:53
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/4).
            
           NOTE:  THE DISTRIBUTED VERSION WILL WORK ONLY ON THE 370 D4.0 SYSTEM.
00540/004   SYSTEM WATCHERS          PRNTCNTS        OC  G          MTA:PRNTCNTS(1,999)                                             
            D4T2    328  SYSTEM_WATCHERS.PRNTCNTS.OC.004    1 LINE     80    6 PAGE UM   MTA                 SEP. 16, 1977  10:49:08
00540/005   SYSTEM WATCHERS          HOGS            SA  G  HOGS    MTA:HOGS(1000)                                                  
            D4T2    329  SYSTEM_WATCHERS.HOGS.SA.005        1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:37:47
0          PROGRAM TO FIND THE JOBS WHICH ARE USING THE MOST CPU TIME, VM, AND DRUM READS.
           COPIES COPY:LLMPSEQU (087). ASSEMBLE USING COPY:SETPARM (653) AND *SYSMAC.
00540/006   SYSTEM WATCHERS          HOGS            OC  G          MTA:HOGS(1,999)                                                 
            D4T2    330  SYSTEM_WATCHERS.HOGS.OC.006        1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  02:37:49
00540/007   SYSTEM WATCHERS          LOADCLAS        SA  G  LDCL    MTA:LOADCLAS.S                                                  
            D4T2    331  SYSTEM_WATCHERS.LOADCLAS.SA.007    1 LINE     80    7 PAGE UM   MTA                 JULY 28, 1977  02:37:52
0          PROGRAM TO CALL TASKSTAT (647) FOR EVERY JOB IN THE SYSTEM EVERY 30 SECONDS AND
           SUMMARIZE THE RESULTS.  COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU(100) (087).
0          Referenced by comments of: 400/7, 647/1 
00540/008   SYSTEM WATCHERS          LOADCLAS        OC  G          MTA:LOADCLAS                                                    
            D4T2    332  SYSTEM_WATCHERS.LOADCLAS.OC.008    1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:37:54
00540/009   SYSTEM WATCHERS          DBJP            SA  G  DPBJ    MTS:DBJP(1000)                                                  
            D4T2    333  SYSTEM_WATCHERS.DBJP.SA.009        1 LINE     80    7 PAGE UM   OGDEN               JULY 28, 1977  02:37:57
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 SSRTN (413) RECORDS SAVED BY CMDSTAT ARE READ AND USED TO
           GENERATE THE STATISTICS.  OTHERWISE, THE INCORE JOBSTA VECTOR (413/14) 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/4), COPY:JOBSTA
           (413/14), COPY:BJPDSCT (650/3),COPY:CMDAREADSECT (531/12), *GDINFODSECT
           (594), AND *CNFGINFODSECT (654).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00540/010   SYSTEM WATCHERS          DBJP            OC  G          MTS:DBJP(1,999)                                                 
            D4T2    334  SYSTEM_WATCHERS.DBJP.OC.010        1 LINE     80    4 PAGE UM   OGDEN               JULY 28, 1977  02:37:59
00540/011   SYSTEM WATCHERS          DPBJ            SA  G  DPBJ    MTA:DPBJ(1000)                                                  
            D4T2    335  SYSTEM_WATCHERS.DPBJ.SA.011        1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:38:02
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)                                                 
            D4T2    336  SYSTEM_WATCHERS.DPBJ.OC.012        1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  02:38:04
00540/013   SYSTEM WATCHERS          DRUMSTAT        SA  O          MTA:DRUMSTAT(1000)                                              
            D4T2    337  SYSTEM_WATCHERS.DRUMSTAT.SA.013    1 LINE     72    3 PAGE UM   MTA                 JULY 28, 1977  02:38:07
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.
            
           NOTE:  HAS ABSOLUTE OFFSETS INTO THE PDP.  WON'T WORK ON A 360.
00540/014   SYSTEM WATCHERS          DRUMSTAT        OC  O          MTA:DRUMSTAT(1,999)                                             
            D4T2    338  SYSTEM_WATCHERS.DRUMSTAT.OC.014    1 LINE     80    2 PAGE UM   MTA                 JULY 28, 1977  02:38:09
00541/001  *DECODE                                   SA  G  DECD    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                                                         
            D4T2    340  DECODE..OC.002                     1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  02:38:49
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  ENCD    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.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00543/002  *ENCODE                                   OC  G          *ENCODE                                                         
            D4T2    342  ENCODE..OC.002                     1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:38:55
00544      *ENDJUNK                                  OC  G          *ENDJUNK                                                        
            D4T2    343  ENDJUNK..OC.                       1 LINE     24    1 PAGE UM   MTA                 JULY 28, 1977  02:38:57
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.
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/17), COPY:GLOBALSETS (1026/3), COPY:LLMPSEQU (087),
           *GDINFODSECT (594), AND *SENSEDSECT (3025).
           ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (ON UNIT 0), AND FOS.MACLIB (545/18).
0          Referenced by comments of: 545/5 
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/17), *GDINFODSECT (594), AND *CNFGINFODSECT (654).
           ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (ON UNIT 0), AND FOS.MACLIB (545/18).
0          Referenced by comments of: 545/5 
00545/005  *FAKEOS                   UPDATES         UU  G          MTA:FOS.UPDATES                                                 
            D4T2    348  FAKEOS.UPDATES.UU.005              1 LINE     87   42 PAGE UM   MTA                 JULY 28, 1977  02:40:34
0          BATCH JOB TO UPDATE AND ASSEMBLE PREFIX (545/4) AND MAIN PROGRAM (545/3).
           THE UPDATES ARE IN THIS FILE ALSO.  PUTS OBJECT IN FOS.OBJ1 AND ASSEMBLY
           ERRORS IN FOS.ERRS.
00545/006  *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
0          CONTENTS OF FIRST HALF-PAGE OF OS.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00545/007  *FAKEOS                   BDAM SIMULATOR  SA             MTA:FOS.BDAM                                                    
            D4T2    350  FAKEOS.BDAM_SIMULATOR.SA.007       1 LINE     73   65 PAGE UM   MTA                 JULY 28, 1977  02:40:58
0          SOURCE FOR OS BDAM SIMULATOR.
           COPIES FAKEOS.GBLS (545/17).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/18).
00545/008  *FAKEOS                   BDAM SIMULATOR  OE             ETC:BDAM                                                        
            D4T2    351  FAKEOS.BDAM_SIMULATOR.OE.008       1 SEQ   14248    4 PAGE UM   MTA                 JULY 28, 1977  02:41:05
00545/009  *FAKEOS                   DDNAME SCANNER  SA             MTA:FOS.DDEF                                                    
            D4T2    352  FAKEOS.DDNAME_SCANNER.SA.009       1 LINE     80   20 PAGE UM   MTA                 JULY 28, 1977  02:41:08
0          SOURCE FOR DDNAME SCANNER.
           COPIES FAKEOS.GBLS (545/17).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/18).
00545/010  *FAKEOS                   DDNAME SCANNER  OC           # (PART OF 545/34)                                                
            D3.2T1  455  FAKEOS.VOSDDEF.OE.18               1 SEQ    2586    1 PAGE UM   MTA                 MAR. 21, 1975  01:50:37
00545/011  *FAKEOS                   EXCP SIMULATOR  SA             MTA:FOS.EXCP                                                    
            D4T2    353  FAKEOS.EXCP_SIMULATOR.SA.011       1 LINE     72    8 PAGE UM   MTA                 JULY 28, 1977  02:41:10
0          SOURCE FOR NON-OLTEP EXCP SIMULATOR.
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/18).
00545/012  *FAKEOS                   EXCP SIMULATOR  OE             ETC:FAKEOS.EXCP                                                 
            D4T2    354  FAKEOS.EXCP_SIMULATOR.OE.012       1 SEQ    2632    1 PAGE UM   MTA                 JULY 28, 1977  02:41:13
00545/013  *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
0          SOURCE FOR OLTEP EXCP SIMULATOR.
           COPIES FAKEOS.GBLS (545/17).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/18).
00545/014  *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
0          SOURCE FOR OS SVC 59 SIMULATOR.
           COPIES FAKEOS.GLBS (545/17) AND *CNFGINFODSECT (654).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/18).
00545/015  *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
0          OBJECT FROM 545/13 AND 545/14.  MUST BE CONCATENATED WITH *FAKEOS (545/34) WHEN RUNNING OLTEP.
00545/016  *FAKEOS                   IERRCO00        SA             MTA:FOS.IERRCO00(1,999)                                         
            D4T2    358  FAKEOS.IERRCO00.SA.016             1 LINE     72   13 PAGE UM   MTA                 JULY 28, 1977  02:41:22
0          SOURCE FOR THE FAKEOS SORT INTERFACE SUBROUTINE.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00545/017  *FAKEOS                   FAKEOS.GBLS     SA             MTA:FAKEOS.GBLS                                                 
            D4T2    359  FAKEOS.FAKEOS.GBLS.SA.017          1 LINE     72    1 PAGE UM   MTA                 JULY 28, 1977  02:41:28
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/7, 545/9, 545/13, 545/14, 545/29 
00545/018  *FAKEOS                   FOS.MACLIB      SM             MTA:FOS.MACLIB                                                  
            D4T2    360  FAKEOS.FOS.MACLIB.SM.018           1 LINE     72   26 PAGE UM   MTA                 JULY 28, 1977  02:41:30
0          FAKEOS MACRO LIBRARY.
0          Referenced by comments of: 545/3, 545/4, 545/7, 545/9, 545/11, 545/13, 545/14, 545/29 
00545/019  *FAKEOS                   IERRCO00 TEST   SA  G  IERT    MTA:FOS.IERR.TEST(1,999)                                        
            D4T2    361  FAKEOS.IERRCO00_TEST.SA.019        1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  02:41:35
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/020  *FAKEOS                   IERRCO00 TEST   OC  G          MTA:FOS.IERR.TEST(1000)                                         
            D4T2    362  FAKEOS.IERRCO00_TEST.OC.020        1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:41:37
00545/021  *FAKEOS                   BSAM TEST       SA             MTA:FOS.TESTBSAM(1,999)                                         
            D4T2    363  FAKEOS.BSAM_TEST.SA.021            1 LINE     62    1 PAGE UM   MTA                 JULY 28, 1977  02:41:40
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/022  *FAKEOS                   BSAM TEST       OC             MTA:FOS.TESTBSAM(1000)                                          
            D4T2    364  FAKEOS.BSAM_TEST.OC.022            1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:41:42
00545/023  *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
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/024  *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/025  *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
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).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00545/026  *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/027  *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
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/028  *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/029  *FAKEOS                   BDAM DUMP       SA             MTA:FOS.BDAMDUMP(1000)                                          
            D4T2    371  FAKEOS.BDAM_DUMP.SA.029            1 LINE     65    5 PAGE UM   MTA                 JULY 28, 1977  02:41:58
0          SOURCE FOR PROGRAM TO DUMP BDAM FAKEOS FILES.
           COPIES FAKEOS.GBLS (545/17).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/18).
00545/030  *FAKEOS                   BDAM DUMP       OC             MTA:FOS.BDAMDUMP(1,999)                                         
            D4T2    372  FAKEOS.BDAM_DUMP.OC.030            1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  02:42:00
00545/031  *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
0          SOURCE FOR PROGRAM TO PRINT FAKEOS TRACE FILE.  ASSEMBLE USING *SYSMAC.
00545/032  *FAKEOS                   *FAKEOSTRACE    OE             *FAKEOSTRACE                                                    
            D4T2    374  FAKEOS.*FAKEOSTRACE.OE.032         1 LINE   2764    2 PAGE UM   MTA                 JULY 28, 1977  02:42:05
00545/033  *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
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, 538/3 
00545/034  *FAKEOS                   *FAKEOSCREBLDL  OE             *FAKEOSCREBLDL                                                  
            D4T2    376  FAKEOS.*FAKEOSCREBLDL.OE.034       1 SEQ    1620    1 PAGE UM   MTA                 JULY 28, 1977  02:42:10
0          Referenced by comments of: 545/15 
00545/035  *FAKEOS                   *FAKEOS         OE  G          *FAKEOS                                                         
            D4T2    377  FAKEOS.*FAKEOS.OE.035              1 SEQ   32767   15 PAGE UM   MTA                 JULY 28, 1977  02:42:12
0          CURRENT OBJECT FOR FAKEOS.
00545/036  *FAKEOS                   MESSAGE FILE    M              ETC:FAKEOS.MSG                                                  
            D4T2    378  FAKEOS.MESSAGE_FILE.M.036          1 LINE    121    3 PAGE UM   MTA                 JULY 28, 1977  02:42:15
0          ERROR MESSAGE FILE FOR FAKEOS.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00545/037  *FAKEOS                   OS DATA MANAGE  OL             ETC:FOS.IGG                                                     
            D4T2    379  FAKEOS.OS_DATA_MANAGE.OL.037       1 LINE   3692    6 PAGE UM   MTA                 JULY 28, 1977  02:42:17
0          LIBRARY OF OS DATA MANAGEMENT MODULES FROM REL 21.8 AND IERRCO00.
           >>>>>> NOTE: OBJECT HAS REP CARDS.
00546/001  *VALIDATEFILE                             SA  G  VALD    RSTR:VALIDATEFILE(1001)                                         
            D4T2    380  VALIDATEFILE..SA.001               1 LINE     80   28 PAGE UM   HELFFRICH           JULY 28, 1977  02:42:19
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
           THE EDITOR MACROS (648/11) AND COPY:FILE.MACROS (482/36).
            
           NOTE:  USES THE 370 CLCL AND MVCL INSTRUCTIONS.  FOR A 360/67 VERSION, ASSEMBLE
                  WITH PAR=IS=67 TO REPLACE THESE INSTRUCTIONS.
00546/002  *VALIDATEFILE             370 OBJECT      OE  G          *VALIDATEFILE                                                   
            D4T2    381  VALIDATEFILE.370_OBJECT.OE.002     1 LINE   4096    6 PAGE UM   HELFFRICH           JULY 28, 1977  02:42:22
00546/003  *VALIDATEFILE             360 OBJECT      OE  G          WSG:VALIDATE.360                                                
            D4T2    382  VALIDATEFILE.360_OBJECT.OE.003     1 LINE     80   10 PAGE UM   HELFFRICH           JULY 28, 1977  02:42:24
00547      *FOREVER                                  D              *FOREVER                                                        
            D4T2    383  FOREVER..D.                        1 LINE     51    3 PAGE UM   MTA                 JULY 28, 1977  02:42:26
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  FS      MTS:FS.S                                                        
            D4T2    384  FS..SA.001                         1 LINE     80  166 PAGE UBC  MTA                 AUG. 14, 1977  21:50:32
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/12),
           *GFINFODSECT (593), AND *GDINFODSECT (594).
0          Referenced by comments of: 461/12, 549/1 
00548/002  *FS                       SNIFF SUBR      SA  G  SNIF    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
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                                                             
            D4T2    386  FS..OE.003                         1 SEQ   32187   18 PAGE UBC  MTA                 AUG. 14, 1977  21:51:14
00549/001  *FSCON                                    SA  G  FSCN    MTS:FSCON.S(1,1449)                                             
            D4T2    387  FSCON..SA.001                      1 LINE     80   33 PAGE UM   MTA                 JULY 28, 1977  02:43:20
0          PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          NO LONGER REQUIRES THE FSZ SUBROUTINE.
00549/002  *FSCON                                    OE  G          *FSCON                                                          
            D4T2    388  FSCON..OE.002                      1 SEQ    8116    3 PAGE UM   MTA                 JULY 28, 1977  02:43:23
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  FTN     S0579 SAVE 'JWS-SAVE' FSNAME=FTN.S                              
            D4T2    389  FTN..SA.001                        1 LINE     80   83 PAGE UM   HANSEN              FEB. 20, 1976  11:49:05
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.  IT NOW USES SCARDS, SPRINT, AND SPUNCH FOR I/O
           AND DEFAULTS THEM BASED ON WHETHER THE USER IS CONVERSATIONAL OR BATCH.
           THIS DEFAULTING, THE SUBJECT OF SOME DEBATE, CAN BE DISABLED BY AN 
           ASSEMBLY PARAMETER (&CBDIFF).  THERE ARE 4 REFERENCES TO FILE NAMES
           IN THIS VERSION AT LINES 882, 883, 884, AND 988.  AS DISTRIBUTED,
           THEY ARE *FORTRANH, *FORTRANG, *FTNGTEST, AND W008:OVERDRIVE RESPECTIVELY.
0          Referenced by comments of: 298/1, 699/1 
00551/002  *FTN                                      OC  G          SEG2:FTN                                                        
            D4T2    390  FTN..OC.002                        1 LINE     80   10 PAGE UM   HANSEN              JULY 28, 1977  02:45:42
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
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
0          OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN 552/1 AND 552/2.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
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
00552/005  *GASP                     MEMO 246        WF             S0622 D3MISC FSNAME=M246GASP(1)                              71 
            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/001   NETWORK CLS                              SA  G          S1073 UNSP FSNAME=NET.S                                         
            D4T2    398  NETWORK_CLS..SA.001                1 LINE     72   22 PAGE UM   OGDEN               JULY 18, 1977  15:53:02
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).
00553/002   NETWORK CLS              COPY SUBR       SA  G          W070:NETCOPY.S                                                  
            D4T2    399  NETWORK_CLS.COPY_SUBR.SA.002       1 LINE    113   38 PAGE UM   FRONCZAK            JULY 28, 1977  02:47:52
0          SUBROUTINES TO IMPLEMENT THE .COPY NETWORK COMMAND.
           ASSEMBLE USING COPY:MTS.MACROS (344).
0          Referenced by comments of: 553/1 
00553/003   NETWORK CLS                              OC  G          *CLSNET                                                         
            D4T2    400  NETWORK_CLS..OC.003                1 LINE     80   13 PAGE UM   OGDEN               JULY 28, 1977  02:48:06
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   FRONCZAK            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              .COPY WRITEUP   PT             W070:NETCOPYWR.P                                                
            D4T2    402  NETWORK_CLS..COPY_WRITEUP.PT.005   1 LINE    107    9 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:11
0          WRITEUP DESCRIBING THE .COPY NETWORK COMMAND (NOT DESCRIBED IN VOLUME 4 YET).
           COPY TO A TN PRINTER @MCC.
00553/006   NETWORK CLS              NET TEST PGM    SA  G  TNET    S1073 UNSP 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) AND WITH SIZE=20.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00553/007   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
00554/001   TABLMOD                  JOB PROGRAM     SA  G  TBJP    FILE:TABLMOD                                                    
            D4T2    405  TABLMOD.JOB_PROGRAM.SA.001         1 LINE     80   28 PAGE UM   PIRKOLA             JULY 28, 1977  02:48:49
0          UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE SHARED OPEN 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 # OPEN FILES,#MATRIX COMPUTATIONS,#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 DUMP COMMAND.
            
             LOCATE   PRINTS THE HALF-WORD OFFSET INTO THE IN-CORE TABLE FOR THE ENTRY ASSOCIATED WITH A 
                      PARTICULAR FILE ("LOCATE FILE FNAME").
            
             CLEAN    TAKES THE SPECIFIED JOB ("CLEAN JOB N") OFF ALL OPEN OR LOCKED AND WAITING LISTS.
            
             CLEANF   SAME AS "CLEAN" EXCEPT FOR ONE FILE ONLY ("CLEANF JOB N FILE FNAME").
            
             DEQ      TAKES THE SPECIFIED JOB ("DEQ JOB N") OFF ALL WAITING LISTS.
            
             DEQF     SAME AS "DEQ" EXCEPT FOR ONE FILE ONLY ("DEQF JOB N FILE FNAME").
            
           THE TABLMOD PROGRAM TERMINATES WHEN AN END-OF-FILE IS ENTERED.
            
           COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:FILE.MACROS
           (482/36).  SEE COMP 682/9 FOR A WRITEUP.
0          Referenced by comments of: 400/8, 554/3, 682/9 
00554/002   TABLMOD                  TABLMOD JOB     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00554/003   TABLMOD                  MTS PROGRAM     SA  G        # (SAME AS COMP 554/1)                                            
                                                                                    UM   PIRKOLA                                    
0          MTS PROGRAM TO ALLOW SYSTEM PROGRAMMERS TO INTERROGATE AND ALTER SYSTEM-WIDE SHARED FILE TABLE.
           TAKES SAME COMMANDS AS TABLMOD JOB (554/1)
           AS WELL AS A "DUMP" COMMAND TO DUMP THE WHOLE SHARED FILE TABLE. IT CALLS SDUMP TO ACCOMPLISH THIS.
           COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:FILE.MACROS (482/36).
           ASSEMBLE THIS STARTING AT LINE 0 TO INCLUDE THE CODE NECESSARY FOR THE MTS PROGRAM.
           CONTAINS A "$CONTINUE WITH W045:TABLMOD(2)" LINE.
00554/004   TABLMOD                  MTS PROGRAM     OC  G          FILE:TABLMODMP.O                                                
            D4T2    406  TABLMOD.MTS_PROGRAM.OC.004         1 LINE     80    4 PAGE UM   PIRKOLA             JULY 28, 1977  02:48:51
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00555/001   MESSAGE MANUAL           PGM             SS  G          W070:MESSAGEPGM(4)                                              
            D4T2    407  MESSAGE_MANUAL.PGM.SS.001          1 LINE     70   11 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:53
0          SPITBOL PROGRAM TO PRODUCE MESSAGE MANUAL FROM DATA IN 555/4.  RUN AS FOLLOWS:
            
            $RUN *SPITBOL SCARDS=MESSAGEPGM(5) 5=MESSAGEDATA 4=*MSOURCE* 6=*MSINK* 7=MSGMANPRT SPRINT=*PRINT* PAR=SIZE=MAX
            
           *PRINT* SHOULD BE SPECIFIED AS A TN PRINTER.  THE PRINTOUT CONSISTS OF USER
           MESSAGES (ALPHABETICAL) AND OPERATOR MESSAGES (ALPHABETICAL).  INSTRUCTIONS
           ON PROGRAM USAGE MAY BE OBTAINED VIA &HELP.
00555/002   MESSAGE MANUAL           SPITBLK         SA  G          W070:MSGPGMBLK.S                                                
            D4T2    408  MESSAGE_MANUAL.SPITBLK.SA.002      1 LINE     79    3 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:56
0          ROUTINE TO INTERFACE SPITBOL TO THE BLOKLETR SUBR (572).
00555/003   MESSAGE MANUAL           SPITBLK         OC  G          W070:MSGPGMBLK.O                                                
            D4T2    409  MESSAGE_MANUAL.SPITBLK.OC.003      1 LINE     80    1 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:58
00555/004   MESSAGE MANUAL           DATA            D              W070:MESSAGEDATA                                                
            D4T2    410  MESSAGE_MANUAL.DATA.D.004          1 LINE    107   52 PAGE UM   FRONCZAK            JULY 28, 1977  02:49:01
0          A DATA FILE DESCRIBING THE VARIOUS SYSTEM MESSAGES.  THE FORMAT OF THE FILE
           IS AS FOLLOWS:
            
             1. LOCATION OF MESSAGES
                  A) MTS "FMSG" MESSAGES ARE FOUND STARTING AT THE LINE NUMBER WHICH IS
                     THE FMSG NUMBER.
                  B) MTS "CMSG" MESSAGES START AT LINE 2000.
                  C) OTHER MESSAGES START AT LINE 3000.
            
             2. FORMAT OF LINES
                  A GROUP OF CONSECTIVE LINES IN THE FILE HAS INFORMATION ABOUT A GIVEN
                  MESSAGE.  THE FIRST LINE SPECIFIES THE MESSAGE TEXT, WHILE SUCCEEDING
                  LINES IN THE GROUP INDENTIFY THE DESTINATION, SOURCE, AND MEANING.
                  EACH LINE IS IDENTIFIED BY ITS LEADING CHARACTERS, WHICH MUST BE UPPERCASE;
                  THE TEXT OF MESSAGES MAYBE OF MIXED CASE.  THE FOLLOWING LINE FORMATS ARE
                  SPECIFIED (ALL COMPONENT NAMES MUST BE GIVEN IN UPPERCASE):
            
                  A) MESSAGE LINE
                     BEGINS WITH "## "; MESSAGE, STARTING IN COLUMN 4, USUALLY IN UPPERCASE
                     WITH GENERIC PARTS IN LOWERCASE.
            
                  B) TEXT ELIMINATION LINE
                     BEGINS WITH " ELIM " FOLLOWED BY THE EXACT TEXT TO BE ELIMINATED
                     FROM THE MESSAGE LINE FOR SORTING PURPOSES ONLY, DELIMITED BY A CHARACTER
                     WHICH MUST NOT APPEAR IN THE ELIMINATION TEXT.  FOR EXAMPLE,
                     ELIM 'STRING'
            
                  C) DESTINATION OF MESSAGE
                     BEGINS WITH " DEST OPER" IF OPERATOR MESSAGE; NO DESTINATION LINE IF
                     NORMAL MESSAGE.
            
                  D) LOCATION OF MESSAGE TEXT
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0                    BEGINS WITH " TXTLOC "; TEXT LOCATION NAME STARTING IN COLUMN 8, SUCH AS
                     FSMG 21.  FOR EXAMPLE, TXTLOC PERMIT,509,SDM51,PRMT0445.
            
                  E) WHO ISSUED MESSAGE (MAY BE SEVERAL OF THESE IN A GROUP)
                     BEGINS WITH " SOURCE "; INFORMATION STARTING IN COLUMN 9:  COMPONENT
                     NAME, COMPONENT NUMBER, LABEL, SEQUENCE ID.  FOR EXAMPLE,
                     SOURCE PERMIT,509,SDM51,PRMT0445.
            
                  F) EXPLANATIONS OF MESSAGE (AS MANY LINES AS NEEDED)
                     BEGINS WITH 3 BLANKS; TEXT STARTING IN COLUMN 4.  ALL
                     LINES ARE USER-LEVEL EXPLANATION LINES UNTIL "#S " APPEARS
                     IN COLUMNS 1-3, IN WHICH CASE, THAT LINE AND SUBSEQUENT
                     LINES DEFINE THE SYSTEM-LEVEL EXPLANATION.
            
           THIS FILE CURRENTLY CONTAINS COMPLETE COVERAGE OF MTS ITSELF AND MOST CLS'S.
00555/005   MESSAGE MANUAL           OUTPUT          P              W070:MSGMANPRT                                                  
            D4T2    411  MESSAGE_MANUAL.OUTPUT.P.005        1 LINE     98  191 PAGE UM   FRONCZAK            JULY 28, 1977  02:49:29
0          COPY THIS OUTPUT TO A TN PRINTER FOR A COPY OF THE MESSAGE MANUAL.
00556/001  *REDUCE2                  MTS MASTER      S   G          WATF:RDC2SOU                                                    
            D4T2    412  REDUCE2.MTS_MASTER.S.001           1 LINE     80  156 PAGE UM   MTA                 JULY 28, 1977  02:49:43
0          REDUCE 2 IS A LISP 1.5 PROGRAM DESIGNED FOR GENERAL ALGEBRAIC COMPUTATIONS.
            
           THIS IS THE OS/360 VERSION OF REDUCE2 MODIFIED TO RUN IN MTS.
           THE LISP COMPILER IS EXPECTED TO BE IN THE FILE "COMPILE" UNDER THE USER ID COMPILING REDUCE2.
0          Referenced by comments of: 210/1, 556/3 
00556/002  *REDUCE2                  OS SOURCE       S   G          WATF:RDC2UG125                                                  
            D4T2    413  REDUCE2.OS_SOURCE.S.002            1 LINE     80  158 PAGE UM   MTA                 JULY 28, 1977  02:50:01
0          OS/360 SOURCE FOR REDUCE2 (VERSION NOV 30, 1973).
0          Referenced by comments of: 556/3 
00556/003  *REDUCE2                  UPDATE          UU  G          WATF:RDC2UPD                                                    
            D4T2    414  REDUCE2.UPDATE.UU.003              1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  02:50:11
0          UPDATE DECK TO CONVERT OS/360 SOURCE (556/2) TO MTS VERSION (556/1).
00556/004  *REDUCE2                  CHKPOINT        O   G          ETC:RDC2.CKPT.N                                                 
            D4T2    415  REDUCE2.CHKPOINT.O.004             1 LINE     80   60 PAGE UM   MTA                 JULY 28, 1977  02:50:13
0          FILE IN LISP OBJECT FORMAT CONTAINING CHECKPOINT OF REDUCE2.  THIS FILE IS REFERENCED BY *REDUCE2.
00556/005  *REDUCE2                  *REDUCE2        C              *REDUCE2                                                        
            D4T2    416  REDUCE2.*REDUCE2.C.005             1 LINE     66    1 PAGE UM   MTA                 JULY 28, 1977  02:50:17
0          FILE TO WHICH USERS $SOURCE TO INVOKE REDUCE2.  IT RUNS THE REDUCE VERSION OF LISP AND THEN
           LOADS THE REDUCE2 CHECKPOINT.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00556/006  *REDUCE2                  UPDCOMP         C              WATF:RDC2JOB                                                    
            D4T2    417  REDUCE2.UPDCOMP.C.006              1 LINE     34    1 PAGE UM   MTA                 JULY 28, 1977  02:50:19
0          COMMANDS TO UPDATE AND COMPILE REDUCE2.
            
           THIS COMMAND FILE PRODUCES A CHECKPOINT FOR A "TEST" VERSION OF REDUCE
           IN THE FILE "RDC2.NEW" UNDER THE ID RUNNING IT. TO PRODUCE A PRODUCTION
           VERSION OF REDUCE (FOR ETC:RDC2.CKPT OR EQUIVALENT) DO THE FOLLOWING:
            
              EMPTY ETC:RDC2.CKPT
              RUN ETC:RDC2.LISP PAR=R=90P
              RESTORE ($$$RDC2.NEW$)
              REMCMP ()
              CONDENSE (2400 11000)
              CHKPOINT ($$$ETC:RDC2.CKPT$)
            
           THIS REMOVES THE LISP COMPILER AND REDUCES THE MEMORY REQUIRED BY REDUCE.
00556/007  *REDUCE2                  EXAMPLE         S              WATF:RDC2TEST                                                   
            D4T2    418  REDUCE2.EXAMPLE.S.007              1 LINE     72    3 PAGE UM   MTA                 JULY 28, 1977  02:50:22
0          EXAMPLE OF REDUCE2 INPUT. THIS IS THE INPUT THAT PRODUCES *REDUCE2EXAMP.
00556/008  *REDUCE2                  EXAMPLE OUTPUT  P              *REDUCE2EXAMP                                                   
            D4T2    419  REDUCE2.EXAMPLE_OUTPUT.P.008       1 LINE    132    7 PAGE UM   MTA                 JULY 28, 1977  02:50:24
0          EXAMPLE OF THE OUTPUT FROM *REDUCE2.  PRODUCED BY FEEDING 556/7 TO *REDUCE2.
00556/009  *REDUCE2                  LISP OS/MAS     SA  G          WATF:LISP.PR066                                                 
            D4T2    420  REDUCE2.LISP_OS/MAS.SA.009         1 LINE     80  179 PAGE UM   MTA                 JULY 28, 1977  02:50:26
0          SOURCE FOR THE LISP/360 INTERPRETER  (OS/360 VERSION) AS DISTRIBUTED WITH REDUCE2.
           THE LISP 1.5 LANGUAGE IS DESCRIBED IN "LISP 1.5 PROGRAMMER'S MANUAL" BY J. MC CARTHY,
           ET AL, MIT PRESS, 1966.
0          Referenced by comments of: 556/10 
00556/010  *REDUCE2                  LISP UPDATE     UU  G          WATF:LISPUPD                                                    
            D4T2    421  REDUCE2.LISP_UPDATE.UU.010         1 LINE     72   23 PAGE UM   MTA                 JULY 28, 1977  02:50:38
0          UPDATE TO GO FROM OS/360 SOURCE (556/9) TO MTS VERSION.
00556/011  *REDUCE2                  LISP OBJECT     OE  G          ETC:RDC2.LISP.N                                                 
            D4T2    422  REDUCE2.LISP_OBJECT.OE.011         1 LINE  32767   26 PAGE UM   MTA                 JULY 28, 1977  02:50:42
00556/012  *REDUCE2                  LISP COMPILER   S   G          S0923 'REDUCE' FMT=FB(720,80)                                3  
            D4T2    423  REDUCE2.LISP_COMPILER.S.012        1 SEQ      80   41 PAGE UM   MTA                 JULY 28, 1977  02:51:08
0          LISP/360 COMPILER AND ASSEMBLY PROGRAM.  FEED THIS FILE TO LISP AND CHECKPOINT THE RESULT.
00556/013  *REDUCE2                  LISP COMPILER   UU  G          WATF:COMPUPDAR055                                               
            D4T2    424  REDUCE2.LISP_COMPILER.UU.013       1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  02:51:11
0          UPDATE TO BRING COMPILER UP TO MARCH 5, 1975 OS VERSION.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00556/014  *REDUCE2                  LISP COMPILER   UU  G          WATF:COMPUPD                                                    
            D4T2    425  REDUCE2.LISP_COMPILER.UU.014       1 LINE     85    1 PAGE UM   MTA                 JULY 28, 1977  02:51:11
0          UPDATE TO CHANGE OS COMPILER INTO MTS VERSION. APPLY AFTER 556/13.
00556/015  *REDUCE2                  LISP COMPILER   O   G          WATF:COMPILE                                                    
            D4T2    426  REDUCE2.LISP_COMPILER.O.015        1 SEQ      80   19 PAGE UM   MTA                 JULY 28, 1977  02:51:14
0          CHECKPOINTED LISP/360 COMPILER AND ASSEMBLY PROGRAM.  LISP OBJECT FORMAT.
00556/016  *REDUCE2                  LISP COMPILER   C   G          WATF:GENCOMPILE                                                 
            D4T2    427  REDUCE2.LISP_COMPILER.C.016        1 LINE     60    1 PAGE UM   MTA                 JULY 28, 1977  02:51:16
0          COMMANDS TO GENERATE THE LISP COMPILER.
00556/017  *REDUCE2                  LISP DEBUG      S   O          WATF:LISPBREAK                                                  
            D4T2    428  REDUCE2.LISP_DEBUG.S.017           1 LINE    105    5 PAGE UM   MTA                 JULY 28, 1977  02:51:19
0          THIS PROGRAM (WRITTEN IN LISP) DEFINES TWO FUNCTIONS:  BREAK AND UNBREAK.
            
           BREAK TAKES A LIST OF FUNCTION NAMES AND SETS A BREAKPOINT AT THE ENTRY AND EXIT
           TO EACH OF THEM.  UNBREAK TAKES A LIST OF FUNCTION NAMES AND RESETS THE BREAKPOINT
           AT EACH.  ALL FUNCTIONS MUST BE PREVIOUSLY DEFINED.  BOTH BREAK AND UNBREAK ARE
           DEFINED AS FEXPR'S SO THAT THEIR ARGUMENTS ARE NOT EVALUATED.  WHEN A FUNCTION
           WHICH HAS A BREAKPOINT SET IS CALLED, THE MESSAGE ">>> ENTERING NAME TYPE ARGS"
           IS TYPED, WHERE "NAME" IS THE NAME OF THE FUNCTION, "TYPE" IS SUBR, FSUBR, EXPR,
           OR FEXPR, AND "ARGS" ARE THE NAMES OF THE ARGUMENTS.  WHEN THE FUNCTION EXITS,
           THE MESSAGE ">>> EXITING NAME" IS TYPED.  BOTH MESSAGES ARE FOLLOWED BY THE
           MESSAGE "LISTENING" AND LINES ARE READ AND PASSED TO EVAL UNTIL "T" IS ENTERED.
           THE ATOM "VALUE" WILL BE BOUND TO THE RESULT OF THE FUNCTION ON EXIT, AND THE
           ARGUMENTS WILL BE BOUND BOTH TIMES.  CONDITIONAL BREAKPOINTS MAY BE SET BY MAKING
           ONE OF THE ARGUMENTS OF BREAK A LIST.  CAR OF THE LIST IS THE NAME OF THE FUNCTION
           AND CADR OF THE LIST IS A CONDITION WHICH MUST BE TRUE FOR THE BREAKPOINT TO OCCUR.
           THE CONDITION IS TESTED WHEN THE FUNCTION IS CALLED.
            
           EXAMPLE:  BREAK (FN (FN2 (EQ ARG1 1)))   WILL ALWAYS BREAK AT FUNCTION FN AND
                                                    BREAK AT FN2 IF ARG1 IS 1 (ASSUMING ARG1
                                                    IS THE FIRST ARGUMENT OF FN2).
00557/001   FLOATEST                                 SA  O  FLOT    MTS:FLOATEST                                                    
            D4T2    429  FLOATEST..SA.001                   1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  02:51:21
0          PROGRAM TO TEST THAT FLOATING-POINT REGISTERS AND PROGRAM MASK ARE PRESERVED ACROSS ABNORMAL PROGRAM EXITS.
           DESIGNED TO BE RUN BOTH BY $RUN COMMAND AND UNDER CONTROL OF SDS ($DEBUG OR $SET DEBUG=ON AND $RUN).
00557/002   FLOATEST                                 OC  O          MTS:FLOATEST.O                                                  
            D4T2    430  FLOATEST..OC.002                   1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:51:23
00558/001   VIRTUAL MACHINE          MAIN PGM        SA  G  VMNS    MTA:VMN.S                                                       
            D4T2    431  VIRTUAL_MACHINE.MAIN_PGM.SA.001    1 LINE     80  133 PAGE UM   MTA                 JULY 28, 1977  02:51:25
0          PROGRAM TO PROVIDE A SYSTEM/360 OR SYSTEM/370 VIRTUAL MACHINE.
           USES ASSEMBLY PARAMETERS TO SELECT VIRTUAL 370, 360/67, OR
           STANDARD 360.  ANY OPTION WILL RUN ON EITHER A 360/67 OR 370 REAL MACHINE.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
0          COPIES S2301 (558/4), *CNFGINFODSECT (654), V370.S (558/2), AND OC.S (558/3).
           AN ADDITIONAL ASSEMBLY PARAMETER IS PROVIDED TO PRODUCE A STUDENT VIRTUAL MACHINE.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 472/1 
00558/002   VIRTUAL MACHINE          V370 SUPPORT    SA  G  V370    MTA:V370.S                                                      
            D4T2    432  VIRTUAL_MACHINE.V370_SUPP.SA.002   1 LINE     80   17 PAGE UM   MTA                 JULY 28, 1977  02:51:34
0          COPY SECTION CONTAINING THE 370 INSTRUCTION SIMULATION CODE.
0          Referenced by comments of: 558/1 
00558/003   VIRTUAL MACHINE          3066 SUPPORT    SA  G  3066    MTA:OC.S                                                        
            D4T2    433  VIRTUAL_MACHINE.3066_SUPP.SA.003   1 LINE     80   10 PAGE UM   MTA                 JULY 28, 1977  02:51:36
0          COPY SECTION CONTAINING THE 3066 SIMULATION CODE.
0          Referenced by comments of: 558/1 
00558/004   VIRTUAL MACHINE          2301 SUPPORT    SA  G  2301    MTA:S2301                                                       
            D4T2    434  VIRTUAL_MACHINE.2301_SUPP.SA.004   1 LINE     80   11 PAGE UM   MTA                 JULY 28, 1977  02:51:39
0          COPY SECTION CONTAINING VIRTUAL 2301 DRUM SUPPORT.  THE DRUM
           IS SIMULATED USING VIRTUAL MEMORY.
0          Referenced by comments of: 558/1 
00558/005   VIRTUAL MACHINE          DEVICE LIST     SA  G  370D    MTA:V370DEV.UM(1,999)                                           
            D4T2    435  VIRTUAL_MACHINE.DEVICE_LI.SA.005   1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  02:51:42
0          DEVICE LIST FOR UM 470 I/O CONFIGURATION.  COPIES V370DEV.MAC (558/6).
00558/006   VIRTUAL MACHINE          DEVLIST MACROS  SM  O          MTA:V370DEV.MAC                                                 
            D4T2    436  VIRTUAL_MACHINE.DEVLIST_M.SM.006   1 LINE     69    3 PAGE UM   MTA                 JULY 28, 1977  02:51:44
0          MACROS, AND SOME CALLS TO THEM, TO MAKE IT EASIER TO ASSEMBLE A DEVICE LIST FOR THE
           VIRTUAL MACHINE.  DOCUMENTATION IS INCLUDED IN THE COMMENTS.
0          Referenced by comments of: 558/5 
00558/007   VIRTUAL MACHINE          370 OBJECT      OC  G          MTA:V370                                                        
            D4T2    437  VIRTUAL_MACHINE.370_OBJEC.OC.007   1 LINE  11076   15 PAGE UM   MTA                 JULY 28, 1977  02:51:47
0          OBJECT FOR UM VIRTUAL 370, I.E. 558/1 WITH Ā&DUPLEX, Ā&M67, Ā&ST, AND &S370.
00558/008   VIRTUAL MACHINE          67 OBJECT       OC  G          MTA:V67                                                         
            D4T2    438  VIRTUAL_MACHINE.67_OBJECT.OC.008   1 LINE  11964   11 PAGE UM   MTA                 JULY 28, 1977  02:51:49
0          OBJECT FOR UM VIRTUAL 360/67, I.E. 558/1 WITH &DUPLEX, &M67, Ā&ST, AND Ā&S370.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00558/009   VIRTUAL MACHINE          WRITEUP         P              MTA:V67WRUP                                                     
            D4T2    439  VIRTUAL_MACHINE.WRITEUP.P.009      1 LINE     75   12 PAGE UM   MTA                 JULY 28, 1977  02:51:52
0          WRITEUP TO BE COPIED TO A TN PRINTER.
           NOTE:  WRITEUP IS NOT UP TO DATE.
00559/001   PISTLE                   *S2L            C   G          *S2L                                                            
            D4T2    440  PISTLE.*S2L.C.001                  1 LINE     73    1 PAGE UM   SHERRY              JULY 28, 1977  02:51:54
0          COMMAND FILE TO RUN PISTLE (POST-IPL SYSTEM LOADER) FOR BOTH A 360 AND 370.  INVOKED
           BY INIT:INITCMD (097/2) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED
           IN SEG2:S2FILES(1,999) (FOR A 370) OR SEG2:S2FILES(1000,1999) (FOR A 360).
00559/002   PISTLE                                   SA  G  PIST    W009:PISTLE.S                                                   
            D4T2    441  PISTLE..SA.002                     1 LINE     80   27 PAGE UM   SHERRY              JULY 28, 1977  02:51:57
0          PROGRAM TO LOAD THINGS INTO UNUSED AREA AT THE END OF SHARED VM.  READS A LIST
           OF FILE NAMES (NORMALLY SEG2:S2FILES) FROM SCARDS WHICH CONTAIN THE OBJECT DECKS
           TO BE LOADED.  UNLESS THE IPL OPTION IS GIVEN AFTER A FILE NAME, THE FILE MUST
           BEGIN WITH A LOADER "COM" CARD ON WHICH ENTRY POINT(S) TO THE MODULES IN THAT
           FILE ARE GIVEN.  THESE NAMES WILL BE ADDED TO LCSYMBOL WHEN PISTLE FINISHES.  IF
           PAR=NOTEST IS NOT GIVEN, PISTLE LOADS INTO PRIVATE VM AND DOES NOT CHANGE LCSYMBOL.
           IF PAR=NOTEST IS GIVEN AND SPRINT IS NOT ASSIGNED, PISTLE WILL DEFAULT THE SPRINT
           OUTPUT TO SEG2:S2MAP(*L+1).  PISTLE ALLOWS PARAMETERS TO BE GIVEN AFTER THE FILE
           NAME ON INPUT LINES FROM SCARDS.  ALLOWABLE PARAMETERS ARE:
            
            IPL          USE LOADER TABLES GENERATED BY RAMROD.
            IPLCS        USE LOADER TABLES GENERATED BY RAMROD, BUT ALSO DO
                         LCSYMBOL INSERTIONS (FOR SYMBOLS GIVEN ON THE COM CARD).
            NOMAP        SUPPRESS PRINTING OF MAP FOR THE LOADING OF THIS COMPONENT.
            NN           SPECIFY STORAGE INDEX NUMBER TO BE USED FOR LOADING THIS COMPONENT.
            
           THESE PARAMETERS ARE FULLY DESCRIBED IN THE PISTLE WRITEUP (559/5), WHICH ALSO
           DOCUMENTS ALL CHANGES MADE SINCE THE LAST DISTRIBUTION.  COPIES *CNFGINFODSECT.
00559/003   PISTLE                                   OC  G          SEG2:S2L                                                        
            D4T2    442  PISTLE..OC.003                     1 SEQ    5567    3 PAGE UM   SHERRY              JULY 28, 1977  02:51:59
00559/004   PISTLE                   SEG2:S2FILES    D   G          MTS:TST.S2FILES                                                 
            D4T2    443  PISTLE.SEG2:S2FILES.D.004          1 LINE     23    1 PAGE UM   DWB                 JULY 28, 1977  02:52:01
0          A LIST OF FILES FROM WHICH PISTLE WILL LOAD PROGRAMS AT IPL.  LINES (1,999) HAVE THE
           FILE NAMES FOR A 370/470 SYSTEM, LINES (1000,1999) HAVE THE FILE NAMES FOR A 360 SYSTEM.
0          Referenced by comments of: 387/13 
00559/005   PISTLE                   WRITEUP         WF             W009:PISTLE.W                                                   
            D4T2    444  PISTLE.WRITEUP.WF.005              1 LINE    147    3 PAGE UM   SHERRY              JULY 28, 1977  02:52:03
0          Referenced by comments of: 559/2 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00559/006   PISTLE                   SETTIME         SF  G          WSG:SETTIME                                                     
            D4T2    445  PISTLE.SETTIME.SF.006              1 LINE     54    1 PAGE UM   ENGLE               AUG. 14, 1977  21:52:29
0          PROGRAM RUN BY *S2L TO CALL THE TIME SUBROUTINE (WITH PROTECT OFF) TO CAUSE
           IT TO INITIALIZE ITSELF FOR 360 OR 370 OPERATION.
00559/007   PISTLE                   SETTIME         OC  G          SEG2:SETTIME                                                    
            D4T2    446  PISTLE.SETTIME.OC.007              1 LINE    146    1 PAGE UM   ENGLE               AUG. 14, 1977  21:52:30
00559/008   PISTLE                   PRINTMAP        SA  G          SEG2:PRINTMAP(1000)                                             
            D4T2    447  PISTLE.PRINTMAP.SA.008             1 LINE     67    1 PAGE UM   SHERRY              AUG. 14, 1977  21:52:31
0          PROGRAM TO SEE IF THE MAP PRODUCED BY PISTLE HAS CHANGED SINCE THE LAST
           SYSTEM RELOAD AND PRINT A MESSAGE TO THE OPERATOR IF IT HAS ADVISING THAT
           A NEW COPY OF THE MAP SHOULD BE PRINTED.
00559/009   PISTLE                   PRINTMAP        OC  G          SEG2:PRINTMAP(1,999)                                            
            D4T2    448  PISTLE.PRINTMAP.OC.009             1 LINE     80    1 PAGE UM   SHERRY              AUG. 14, 1977  21:52:31
00560      *TYPEIT                                   C              *TYPEIT                                                         
            D4T2    449  TYPEIT..C.                         1 LINE     69    2 PAGE UM   LIFT                JULY 28, 1977  02:52:06
0          A FILE WHICH CAN BE $SOURCED TO WHICH AIDS THE UM SECRETARIAL STAFF IN THE PREPARATION OF MATERIAL
           PRODUCED IN *FORMAT (308).  WE HAVE ATTEMPTED TO DISTRIBUTE ALL *FORMAT MACHINE-READABLE DOCUMENTATION
           IN THE FORM OF DIRECT INPUT TO *FORMAT AND NOT IN THE FORM USED WITH *TYPEIT.
00561/001  *UNEDIT                                   SA  G  UNED    WATF:UNEDIT(1,999)                                              
            D4T2    450  UNEDIT..SA.001                     1 LINE     80   14 PAGE UM   MTA                 JULY 28, 1977  02:52:08
0          PROGRAM TO COMPARE THE CURRENT VERSION OF A LINE FILE WITH A PREVIOUS VERSION AND PRODUCE THE APPROPRIATE
           MTS EDITOR COMMANDS FOR TRANSFORMING THE OLD VERSION TO THE NEW, I.E. THIS PROGRAM PRODUCES AN "UPDATE"
           DECK WHICH IS IN EDITOR FORMAT RATHER THAN *UPDATE FORMAT.
           CALL SCANPAR SUBROUTINE (267/3).
0          Referenced by comments of: 267/3 
00561/002  *UNEDIT                                   OE  G          *UNEDIT                                                         
            D4T2    451  UNEDIT..OE.002                     1 SEQ    2536    2 PAGE UM   MTA                 JULY 28, 1977  02:52:10
00562/001  *UNLINKER                                 SA  G  UNLK    W062:UNLINKER.S                                                 
            D4T2    452  UNLINKER..SA.001                   1 LINE     80   39 PAGE UM   TIFFANY             JULY 28, 1977  02:52:12
0          PROGRAM TO CHANGE OS/VS LOAD MODULES INTO MTS OBJECT DECKS.
0          Referenced by comments of: 291/1, 340/1 
00562/002  *UNLINKER                 BLKRTN SUBR     SA  G  BLKR    W062:BLK.S                                                      
            D4T2    453  UNLINKER.BLKRTN_SUBR.SA.002        1 LINE     80   32 PAGE UM   TIFFANY             JULY 28, 1977  02:52:15
0          SUBROUTINE TO READ OS/VS IEBCOPY OR IEHMOVE TAPES.
0          Referenced by comments of: 291/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00562/003  *UNLINKER                                 OE  G          NEW:UNLINKER                                                    
            D4T2    454  UNLINKER..OE.003                   1 LINE   8150   10 PAGE UM   TIFFANY             JULY 28, 1977  02:52:20
00563/001   CHAR MANIP SUBRS         BTD             SA     BTD     S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.BTD.SA.1(1)             316
            D4T2    455  CHAR_MANIP_SUBRS.BTD.SA.001        1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.19
0          THESE ARE THE UBC CHARACTER MANIPULATION SUBROUTINES.
00563/002   CHAR MANIP SUBRS         LCOMC/COMC      SA     COMC    W114:LCOMC                                                      
            D4T2    456  CHAR_MANIP_SUBRS.LCOMC/CO.SA.002   1 LINE     80    3 PAGE UBC  GOODRICH            JULY 28, 1977  02:53:01
00563/003   CHAR MANIP SUBRS         DTB             SA     DTB     S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.DTB.SA.3(1)             318
            D4T2    457  CHAR_MANIP_SUBRS.DTB.SA.003        1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.29
00563/004   CHAR MANIP SUBRS         FINDC           SA     FINC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDC.SA.4(1)           319
            D4T2    458  CHAR_MANIP_SUBRS.FINDC.SA.004      1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.35
00563/005   CHAR MANIP SUBRS         FINDST          SA     FINS    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDST.SA.5(1)          320
            D4T2    459  CHAR_MANIP_SUBRS.FINDST.SA.005     1 LINE     80    4 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.40
00563/006   CHAR MANIP SUBRS         IGC             SA     IGC     S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.IGC.SA.6(1)             321
            D4T2    460  CHAR_MANIP_SUBRS.IGC.SA.006        1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.45
00563/007   CHAR MANIP SUBRS         MOVEC           SA     MOVC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.MOVEC.SA.7(1)           322
            D4T2    461  CHAR_MANIP_SUBRS.MOVEC.SA.007      1 LINE     80    1 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.51
00563/008   CHAR MANIP SUBRS         SETC            SA     SETC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.SETC.SA.8(1)            323
            D4T2    462  CHAR_MANIP_SUBRS.SETC.SA.008       1 LINE     80    1 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.58
00563/009   CHAR MANIP SUBRS         TRNC            SA     TRNC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNC.SA.9(1)            324
            D4T2    463  CHAR_MANIP_SUBRS.TRNC.SA.009       1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:12.02
00563/010   CHAR MANIP SUBRS         TRNST           SA     TRNS    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNST.SA.10(1)          325
            D4T2    464  CHAR_MANIP_SUBRS.TRNST.SA.010      1 LINE     80    4 PAGE UBC  GOODRICH            AUG. 01, 1973  23:12.07
00563/011   CHAR MANIP SUBRS         EQUC            SA             S0780 'D3.1T1' FSNAME=CHAR_MANIP_SUBRS.EQUC.SA.11(1)         420
            D4T2    465  CHAR_MANIP_SUBRS.EQUC.SA.011       1 LINE     80    1 PAGE UBC  GOODRICH            MAR. 06, 1974  22:01.57
00563/012   CHAR MANIP SUBRS         OBJECT          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   GOODRICH                                   
00564/001   SYMBOL XREF PROGRAM                      SA  G  SSXR    MTA:SSXREF(1,999)                                               
            D4T2    466  SYMBOL_XREF_PROGRAM..SA.001        1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:53:57
0          PROGRAM READS ASSEMBLY SOURCE PROGRAMS FROM SCARDS AND WRITES EACH LINE WHICH CONTAINS A SEQUENCE OR
           SET SYMBOL ON SPUNCH WITH THE SYMBOL PREFIXED TO THE BEGINNING OF THE LINE (FOR SORTING).
           ASSEMBLE USING *SYSMAC.
00564/002   SYMBOL XREF PROGRAM                      OC  G          MTA:SSXREF(1000)                                                
            D4T2    467  SYMBOL_XREF_PROGRAM..OC.002        1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  02:53:58
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00565/001   STOR PROTECT DIAGNOSTIC                  SA  G  PROT    S0723 'D3T4' FSNAME=STOR_PROTECT_DIAGNOSTIC..SA.1(1)         329
            D4T2    468  STOR_PROTECT_DIAGNOSTIC..SA.001    1 LINE     80    5 PAGE UM   MTA                 AUG. 01, 1973  23:12.29
0          HARDWARE STORAGE PROTECT DIAGNOSTIC TO TEST ALL OF CORE ABOVE X'1000'.  PSW RESTART WILL RERUN
           THE TEST.  ASSUMES A 1052 TYPEWRITER AT ADDRESS 009.  IBM DOESN'T SEEM TO PROVIDE A DIAGNOSTIC
           TO PERFORM THE FUNCTIONS PROVIDED BY THIS PROGRAM.  THE FOLLOWING ERRORS ARE REPORTED BY NUMBER
           ALONG WITH THE FAILING ADDRESS:
            
             1.  INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 10.
             2.  KEY NOT EQUAL TO 14 AFTER TEST 1.
             3.  NO INTERRUPT ON STORE WITH PSW KEY 2 AND STORAGE KEY 10.
             4.  KEY NOT EQUAL TO 16 AFTER TEST 3.
             5.  STORAGE CHANGED AFTER TEST 3 OR INTERRUPT LOOKING.
             6.  NO INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 18.
             7.  KEY NOT EQUAL TO 1C AFTER TEST 6.
             8.  INTERRUPT ON LOAD WITH PSW KEY 1 AND STORAGE KEY 18.
             9.  KEY NOT EQUAL TO 1C AFTER TEST 8.
             10. INTERRUPT ON STORE WITH PSW KEY 1 AND STORAGE KEY 18.
             11. STORAGE NOT CHANGED CORRECTLY AFTER TEST 10 OR INTERRUPT LOOKING.
             12. KEY NOT EQUAL TO 1E AFTER TEST 10.
00565/002   STOR PROTECT DIAGNOSTIC                  OC  G          S0723 'D3T4' FSNAME=STOR_PROTECT_DIAGNOSTIC..OC.2(1)         330
            D4T2    469  STOR_PROTECT_DIAGNOSTIC..OC.002    1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:12.34
0          NEEDS AN ABSOLUTE LOADER.  IPL ON A REAL OR VIRTUAL MACHINE.
00566/001  *PIL                      MACLIB          SM  G          S0543 MTSPIL 'MTSPIL2' POSN=MACLIB                           1  
            D4T2    470  PIL.MACLIB.SM.001                  1 SEQ      80   14 PAGE UM   TIFFANY             JULY 28, 1977  02:54:18
0          *PIL IS LATEST VERSION OF THE PITTSBURGH INTERPRETIVE LANGUAGE.
            
           NOTE:  MACLIB IS THE ONLY MACRO LIBRARY USED IN ASSEMBLING *PIL.
00566/002  *PIL                      DSECT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DSECT                            2  
            D4T2    471  PIL.DSECT.SA.002                   1 SEQ      80    4 PAGE UM   TIFFANY             JULY 28, 1977  02:54:19
0          COMPS 566/2 THROUGH 566/10 ARE COPY SECTIONS.
00566/003  *PIL                      EQUS            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EQUS                             3  
            D4T2    472  PIL.EQUS.SA.003                    1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:21
00566/004  *PIL                      EVOUTPUT        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EVOUTPUT                         4  
            D4T2    473  PIL.EVOUTPUT.SA.004                1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:23
00566/005  *PIL                      FORMDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORMDS                           5  
            D4T2    474  PIL.FORMDS.SA.005                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:25
00566/006  *PIL                      KEYCODES        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=KEYCODES                         6  
            D4T2    475  PIL.KEYCODES.SA.006                1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:27
00566/007  *PIL                      PARTDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PARTDS                           7  
            D4T2    476  PIL.PARTDS.SA.007                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:29
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00566/008  *PIL                      SCRDS           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SCRDS                            8  
            D4T2    477  PIL.SCRDS.SA.008                   1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:31
00566/009  *PIL                      STACKDS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STACKDS                          9  
            D4T2    478  PIL.STACKDS.SA.009                 1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:33
00566/010  *PIL                      STEPDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STEPDS                           10 
            D4T2    479  PIL.STEPDS.SA.010                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:35
00566/011  *PIL                      PILL            SA  G          S0622 D3MISC FSNAME=PIL.PILL                                    
            D4T2    480  PIL.PILL.SA.011                    1 LINE     80    5 PAGE UM   TIFFANY             MAY  21, 1976  11:24:40
0          COMPS 566/11 THROUGH 566/48 ARE THE ASMG SOURCE FOR *PIL.
00566/012  *PIL                      READIT          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=READIT.D4                        49 
            D4T2    481  PIL.READIT.SA.012                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:57:02
00566/013  *PIL                      TYPEIT          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPEIT                           13 
            D4T2    482  PIL.TYPEIT.SA.013                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:57:14
00566/014  *PIL                      PAGEMSG         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PAGEMSG                          14 
            D4T2    483  PIL.PAGEMSG.SA.014                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:15
00566/015  *PIL                      CANIT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=CANIT                            15 
            D4T2    484  PIL.CANIT.SA.015                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:57:17
00566/016  *PIL                      PIL2            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PIL2.D4                          50 
            D4T2    485  PIL.PIL2.SA.016                    1 SEQ      80   11 PAGE UM   TIFFANY             JULY 28, 1977  02:57:34
00566/017  *PIL                      DSBRK           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DSBRK                            17 
            D4T2    486  PIL.DSBRK.SA.017                   1 SEQ      80    8 PAGE UM   TIFFANY             JULY 28, 1977  02:57:48
00566/018  *PIL                      BKDOWN          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=BKDOWN                           18 
            D4T2    487  PIL.BKDOWN.SA.018                  1 SEQ      80   21 PAGE UM   TIFFANY             JULY 28, 1977  02:57:49
00566/019  *PIL                      FORMPROC        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORMPROC                         19 
            D4T2    488  PIL.FORMPROC.SA.019                1 SEQ      80   44 PAGE UM   TIFFANY             JULY 28, 1977  02:57:53
00566/020  *PIL                      PILSQRT         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILSQRT                          20 
            D4T2    489  PIL.PILSQRT.SA.020                 1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:57:54
00566/021  *PIL                      PILATAN         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILATAN                          21 
            D4T2    490  PIL.PILATAN.SA.021                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:56
00566/022  *PIL                      PILSINE         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILSINE                          22 
            D4T2    491  PIL.PILSINE.SA.022                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:58
00566/023  *PIL                      PILLOGE         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILLOGE                          23 
            D4T2    492  PIL.PILLOGE.SA.023                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:00
00566/024  *PIL                      PILETX          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILETX                           24 
            D4T2    493  PIL.PILETX.SA.024                  1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:03
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00566/025  *PIL                      LOOKPS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=LOOKPS                           25 
            D4T2    494  PIL.LOOKPS.SA.025                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:58:05
00566/026  *PIL                      WANT16          SA  G          S0622 D3MISC FSNAME=PIL.WANT16                                  
            D4T2    495  PIL.WANT16.SA.026                  1 LINE     80    4 PAGE UM   TIFFANY             MAY  21, 1976  11:26:01
00566/027  *PIL                      MOVPOL          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=MOVPOL                           27 
            D4T2    496  PIL.MOVPOL.SA.027                  1 SEQ      80    4 PAGE UM   TIFFANY             JULY 28, 1977  02:58:09
00566/028  *PIL                      FORTROL         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORTROL                          28 
            D4T2    497  PIL.FORTROL.SA.028                 1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:58:11
00566/029  *PIL                      RETHEAD         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=RETHEAD                          29 
            D4T2    498  PIL.RETHEAD.SA.029                 1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  02:58:13
00566/030  *PIL                      TALPL           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TALPL                            30 
            D4T2    499  PIL.TALPL.SA.030                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:58:15
00566/031  *PIL                      CONVERT         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=CONVERT                          31 
            D4T2    500  PIL.CONVERT.SA.031                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:17
00566/032  *PIL                      STEPMESS        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STEPMESS                         32 
            D4T2    501  PIL.STEPMESS.SA.032                1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:58:19
00566/033  *PIL                      FUNCS           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FUNCS.D4                         51 
            D4T2    502  PIL.FUNCS.SA.033                   1 SEQ      80   30 PAGE UM   TIFFANY             JULY 28, 1977  02:58:32
00566/034  *PIL                      LOPL            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=LOPL                             34 
            D4T2    503  PIL.LOPL.SA.034                    1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:58:43
00566/035  *PIL                      DELVALS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DELVALS.D4                       54 
            D4T2    504  PIL.DELVALS.SA.035                 1 SEQ      80   25 PAGE UM   TIFFANY             JULY 28, 1977  02:58:56
00566/036  *PIL                      XFORMX          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=XFORMX                           36 
            D4T2    505  PIL.XFORMX.SA.036                  1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:59:09
00566/037  *PIL                      EXTRANS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EXTRANS                          37 
            D4T2    506  PIL.EXTRANS.SA.037                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:59:09
00566/038  *PIL                      TYPEPS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPEPS.D4                        52 
            D4T2    507  PIL.TYPEPS.SA.038                  1 SEQ      80   15 PAGE UM   TIFFANY             JULY 28, 1977  02:59:20
00566/039  *PIL                      XPRES           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=XPRES                            39 
            D4T2    508  PIL.XPRES.SA.039                   1 SEQ      80   19 PAGE UM   TIFFANY             JULY 28, 1977  02:59:31
00566/040  *PIL                      MINDIR          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=MINDIR                           40 
            D4T2    509  PIL.MINDIR.SA.040                  1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  02:59:32
00566/041  *PIL                      HEADINS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=HEADINS                          41 
            D4T2    510  PIL.HEADINS.SA.041                 1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:59:34
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00566/042  *PIL                      STROP           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STROP                            42 
            D4T2    511  PIL.STROP.SA.042                   1 SEQ      80   15 PAGE UM   TIFFANY             JULY 28, 1977  02:59:36
00566/043  *PIL                      SETUP           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SETUP                            43 
            D4T2    512  PIL.SETUP.SA.043                   1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:59:38
00566/044  *PIL                      SPLIT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SPLIT                            44 
            D4T2    513  PIL.SPLIT.SA.044                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:59:40
00566/045  *PIL                      FORBREAK        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORBREAK.D4                      55 
            D4T2    514  PIL.FORBREAK.SA.045                1 SEQ      80   10 PAGE UM   TIFFANY             JULY 28, 1977  02:59:50
00566/046  *PIL                      EVAL            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EVAL.D4                          53 
            D4T2    515  PIL.EVAL.SA.046                    1 SEQ      80   28 PAGE UM   TIFFANY             JULY 28, 1977  02:59:55
00566/047  *PIL                      TYPARRY         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPARRY                          47 
            D4T2    516  PIL.TYPARRY.SA.047                 1 SEQ      80   12 PAGE UM   TIFFANY             JULY 28, 1977  03:00:03
00566/048  *PIL                      PROCESS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PROCESS                          48 
            D4T2    517  PIL.PROCESS.SA.048                 1 SEQ      80   51 PAGE UM   TIFFANY             JULY 28, 1977  03:00:07
00566/049  *PIL                      *PIL            OC  G          *PIL                                                            
            D4T2    518  PIL.*PIL.OC.049                    1 LINE     24    1 PAGE UM   TIFFANY             JULY 28, 1977  03:00:10
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM PIL (566/50).
00566/050  *PIL                      OBJECT          OE  G          SEG2:PIL                                                        
            D4T2    519  PIL.OBJECT.OE.050                  1 LINE    256   20 PAGE UM   TIFFANY             JULY 28, 1977  03:00:11
0          PIL IS RE-ENTRANT AND IS LOADED IN TO SHARED VM AT IPL BY PISTLE.
           NOTE:  THE REP CARDS IN THIS FILE MAKE THE OBJECT AGREE WITH THE SOURCE AS DISTRIBUTED.
0          Referenced by comments of: 566/49 
00566/051  *PIL                      PLM             WT  G          W062:PILMASTER                                                  
            D4T2    520  PIL.PLM.WT.051                     1 LINE    256   37 PAGE UM   TIFFANY             JULY 28, 1977  03:00:13
0          TEXT/360 MASTER FILE FOR WRITEUP DESCRIBING THE INTERNAL STRUCTURE OF PIL/2
           FOR PROSPECTIVE DEVELOPERS.
00567/001  *1052RTN                                  SA  O  TFTS    MTA:1052RTN                                                     
            D4T2    521  1052RTN..SA.001                    1 LINE     80   40 PAGE UM   MTA                 JULY 28, 1977  03:00:16
0          MTS DEVICE SUPPORT ROUTINES FOR 1052 OPERATOR'S CONSOLE.  ALLOWS USE OF 1052
           CONSOLE OR 2150 AS AN MTS TERMINAL.  AWRITE AND HALTIO ENTRIES ADDED BUT NOT
           TESTED.  ASSEMBLE USING COPY:MTS.MACROS (344).
00567/002  *1052RTN                                  OC  O          *1052RTN                                                        
            D4T2    522  1052RTN..OC.002                    1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  03:00:21
00568      *TIMETALLY                                             # (OBSOLETED BY SDS)                                              
            D3.2T1  492  TIMETALLY..SA.01                   1 LINE     80   45 PAGE UM                       MAR. 21, 1975  01:53:09
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00569       PCE SNIFFER                                           # (SEE COMP 387)                                                  
                                                                                    UM                                              
00570/001  *MNETRTN                                  SA  G  MNET    WSG:MNET                                                        
            D4T2    523  MNETRTN..SA.001                    1 LINE     80   81 PAGE UM   WSG                 JULY 28, 1977  03:00:23
0          MTS DEVICE SUPPORT ROUTINES FOR THE MERIT COMPUTER NETWORK INTERACTIVE SERVICE.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), AND COPY:GLOBALSETS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344).
00570/002  *MNETRTN                                  OC  G          *MNETRTN                                                        
            D4T2    524  MNETRTN..OC.002                    1 LINE     80    5 PAGE UM   WSG                 JULY 28, 1977  03:00:34
00570/003  *MNETRTN                  ASCII XLATE     SA  G  MASC    S0221 FSAVE FSNAME=MNET.TABLES                                  
            D4T2    525  MNETRTN.ASCII_XLATE.SA.003         1 LINE     80    4 PAGE UM   WSG                 FEB. 05, 1976  00:43:33
0          MERIT ASCII/EBCDIC TRANSLATE TABLES MASCEBC AND EBCMASC WHICH ARE USED BOTH
           BY THE MERIT DSR AND HASP (387).
0          Referenced by comments of: 387/13 
00570/004  *MNETRTN                  ASCII XLATE     OC  G        # (PART OF 387/13)                                                
                                                                                    UM   WSG                                        
00571/001   APL LIBRARY WS           ADVANCEDE       D              APL:001ADVANCEDE                                                
            D4T2    526  APL_LIBRARY_WS.ADVANCEDE.D.001     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:00:56
0          THE APL LIBRARY WORKSPACES MUST BE RESTORED AS FILES UNDER USER ID "APL." USING AS FILE NAMES
           THE 3 DIGIT (WITH LEADING ZEROS) LIBRARY FILE NUMBER FOLLOWED BY THE WORKSPACE NAME,
           I.E., USE THE SAME NAMES AS WERE USED TO GENERATE THE DISTRIBUTION TAPE.
00571/002   APL LIBRARY WS           APLCOURSE       D              APL:001APLCOURSE                                                
            D4T2    527  APL_LIBRARY_WS.APLCOURSE.D.002     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:00:59
00571/003   APL LIBRARY WS           CLASS           D              APL:001CLASS                                                    
            D4T2    528  APL_LIBRARY_WS.CLASS.D.003         1 LINE    255    7 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:01
00571/004   APL LIBRARY WS           NEWS            D              APL:001NEWS                                                     
            D4T2    529  APL_LIBRARY_WS.NEWS.D.004          1 SEQ   27240    8 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:04
00571/005   APL LIBRARY WS           PLOTFORMA       D              APL:001PLOTFORMA                                                
            D4T2    530  APL_LIBRARY_WS.PLOTFORMA.D.005     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:06
00571/006   APL LIBRARY WS           TYPEDRILL       D              APL:001TYPEDRILL                                                
            D4T2    531  APL_LIBRARY_WS.TYPEDRILL.D.006     1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:08
00571/007   APL LIBRARY WS           WSFNS           D              APL:001WSFNS                                                    
            D4T2    532  APL_LIBRARY_WS.WSFNS.D.007         1 LINE    255    3 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:11
00571/008   APL LIBRARY WS           EIGENVALUE      D              APL:001EIGENVALUE                                               
            D4T2    533  APL_LIBRARY_WS.EIGENVALUE.D.008    1 SEQ   12980    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:13
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00571/009   APL LIBRARY WS           CATALOG         D              APL:002CATALOG                                                  
            D4T2    534  APL_LIBRARY_WS.CATALOG.D.009       1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:16
00571/010   APL LIBRARY WS           STP1            D              APL:002STP1                                                     
            D4T2    535  APL_LIBRARY_WS.STP1.D.010          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:18
00571/011   APL LIBRARY WS           STP2            D              APL:002STP2                                                     
            D4T2    536  APL_LIBRARY_WS.STP2.D.011          1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:21
00571/012   APL LIBRARY WS           STP3            D              APL:002STP3                                                     
            D4T2    537  APL_LIBRARY_WS.STP3.D.012          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:23
00571/013   APL LIBRARY WS           STP4            D              APL:002STP4                                                     
            D4T2    538  APL_LIBRARY_WS.STP4.D.013          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:25
00571/014   APL LIBRARY WS           STP5            D              APL:002STP5                                                     
            D4T2    539  APL_LIBRARY_WS.STP5.D.014          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:28
00571/015   APL LIBRARY WS           STP6            D              APL:002STP6                                                     
            D4T2    540  APL_LIBRARY_WS.STP6.D.015          1 LINE    255    5 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:30
00571/016   APL LIBRARY WS           STP7            D              APL:002STP7                                                     
            D4T2    541  APL_LIBRARY_WS.STP7.D.016          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:32
00571/017   APL LIBRARY WS           STP8            D              APL:002STP8                                                     
            D4T2    542  APL_LIBRARY_WS.STP8.D.017          1 LINE    255    5 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:34
00571/018   APL LIBRARY WS           COMPLEX         D              APL:003COMPLEX                                                  
            D4T2    543  APL_LIBRARY_WS.COMPLEX.D.018       1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:37
00571/019   APL LIBRARY WS           INDEX           D              APL:003INDEX                                                    
            D4T2    544  APL_LIBRARY_WS.INDEX.D.019         1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:39
00571/020   APL LIBRARY WS           UTIL            D              APL:003UTIL                                                     
            D4T2    545  APL_LIBRARY_WS.UTIL.D.020          1 LINE    255    3 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:42
00571/021   APL LIBRARY WS           ALGFORM         D              APL:005ALGFORM                                                  
            D4T2    546  APL_LIBRARY_WS.ALGFORM.D.021       1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:44
00571/022   APL LIBRARY WS           COGO            D              APL:005COGO                                                     
            D4T2    547  APL_LIBRARY_WS.COGO.D.022          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:46
00571/023   APL LIBRARY WS           COMPCENT        D              APL:005COMPCENT                                                 
            D4T2    548  APL_LIBRARY_WS.COMPCENT.D.023      1 LINE    255    3 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:49
00571/024   APL LIBRARY WS           CW              D              APL:005CW                                                       
            D4T2    549  APL_LIBRARY_WS.CW.D.024            1 LINE    255    7 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:51
00571/025   APL LIBRARY WS           EDIT            D              APL:005EDIT                                                     
            D4T2    550  APL_LIBRARY_WS.EDIT.D.025          1 LINE    255    7 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:54
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00571/026   APL LIBRARY WS           MATRIXALG       D              APL:005MATRIXALG                                                
            D4T2    551  APL_LIBRARY_WS.MATRIXALG.D.026     1 LINE    255    8 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:56
00571/027   APL LIBRARY WS           SNOBOL          D              APL:005SNOBOL                                                   
            D4T2    552  APL_LIBRARY_WS.SNOBOL.D.027        1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:58
00571/028   APL LIBRARY WS           SRADEMO         D              APL:005SRADEMO                                                  
            D4T2    553  APL_LIBRARY_WS.SRADEMO.D.028       1 LINE    255    9 PAGE UM   HELFFRICH           JULY 28, 1977  03:02:01
00571/029   APL LIBRARY WS           KINGDOM         D              APL:006KINGDOM                                                  
            D4T2    554  APL_LIBRARY_WS.KINGDOM.D.029       1 SEQ   17208    5 PAGE UM   HELFFRICH           JULY 28, 1977  03:02:03
0          XM6 APL REWORK OF ALBERTA'S SV APL 'KINGDOM' SIMULATION GAME.
00571/030   APL LIBRARY WS           TESTS           D              APL:999TESTS                                                    
            D4T2    555  APL_LIBRARY_WS.TESTS.D.030         1 SEQ    3080    2 PAGE UM   HELFFRICH           JULY 28, 1977  03:02:06
0          WORKSPACE INTENDED FOR PROVIDING A TEST FACILITY FOR THE TRIAL OF NEW APL DEVICES.
00572/001   BLOKLETR SUBR                            SA  G  BKLT    DWB:BLOKLETR.S                                                  
            D4T2    556  BLOKLETR_SUBR..SA.001              1 LINE     80    8 PAGE UM   DWB                 JULY 28, 1977  03:02:08
0          SUBROUTINE CALLLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS.
0          Referenced by comments of: 555/2 
00572/002   BLOKLETR SUBR                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00573/001   MTS VOLUME 5             MASTER          WT             S0451 MTSV5 'MTS MANUALS' POSN=NEWM3.V5                         
            D4T2    557  MTS_VOLUME_5.MASTER.WT.001         1 SEQ     132  257 PAGE UM   MANUAL              JULY 28, 1977  03:03:39
0          TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" OF THE UM MTS MANUALS
           (JUNE 1976).
            
           EDITOR:  RICHARD A. SALISBURY
00573/002   MTS VOLUME 5             PRINT           PT             S0451 MTSV5 'MTS MANUALS' POSN=PRINT3.V5                        
            D4T2    558  MTS_VOLUME_5.PRINT.PT.002          1 SEQ     132  345 PAGE UM   MANUAL              JULY 28, 1977  03:04:02
0          TEXT/360 PRINT FILE.
00573/003   MTS VOLUME 5             LOADER MAP      P              S0451 MTSV5 'MTS MANUALS' POSN=V5LOADERMAP.2                    
            D4T2    559  MTS_VOLUME_5.LOADER_MAP.P.003      1 SEQ     128    2 PAGE UM   MANUAL              JULY 28, 1977  03:04:08
0          PRINTED OUTPUT FOR THE EXAMPLE LOADER MAP IN VOLUME 5.
00573/004   MTS VOLUME 5             INDEX SOURCE    D              S0451 MTSV5 'MTS MANUALS' POSN=V5INDEXSOU.2                     
            D4T2    560  MTS_VOLUME_5.INDEX_SOURCE.D.004    1 SEQ     118    5 PAGE UM   MANUAL              JULY 28, 1977  03:04:10
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 5.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00574/001   MTS VOLUME 10            MASTER          WT  G          S0546 MTSV10 'MTS MANUALS' POSN=NEWM2.V10                       
            D4T2    561  MTS_VOLUME_10.MASTER.WT.001        1 SEQ     132  174 PAGE UM   MANUAL              JULY 28, 1977  03:05:05
0          TEXT/360 MASTER FOR VOLUME 10 "BASIC IN MTS" OF THE UM MTS MANUALS (SEPTEMBER 1974).
            
           EDITOR:  EDWARD J. FRONCZAK
00574/002   MTS VOLUME 10            OUTPUT          P   G          S0546 MTSV10 'MTS MANUALS' POSN=VOL10SEPT74                     
            D4T2    562  MTS_VOLUME_10.OUTPUT.P.002         1 SEQ     132  327 PAGE UM   MANUAL              JULY 28, 1977  03:05:27
0          THIS FILE SHOULD BE COPIED DIRECTLY TO A PRINTER @MCC.  IT IS NOT A TEXT/360
           PRINT FILE; IT IS THE OUTPUT FROM *PRINT WITH AN INDEX INSERTED.
00575/001   MTS VOLUME 4             MASTER          WT  G          S0616 MTSV4 'MTS MANUALS' POSN=NEWM4.V4                         
            D4T2    563  MTS_VOLUME_4.MASTER.WT.001         1 SEQ     132  215 PAGE UM   MANUAL              JULY 28, 1977  03:06:55
0          TEXT/360 MASTER FOR VOLUME 4 "TERMINALS AND TAPES" OF THE UM MTS MANUALS
           (AUGUST 1974, UPDATED OCT 1976 AND JAN 1977).
            
           EDITOR:  RICHARD A. SALISBURY
00575/002   MTS VOLUME 4             PRINT           PT  G          S0616 MTSV4 'MTS MANUALS' POSN=PRINT4.V4                        
            D4T2    564  MTS_VOLUME_4.PRINT.PT.002          1 SEQ     132  338 PAGE UM   MANUAL              JULY 28, 1977  03:07:15
0          TEXT/360 PRINT FILE.
00575/003   MTS VOLUME 4             KEYBOARD PLOT   SF             W032:KBDPLOTSOU                                                 
            D4T2    565  MTS_VOLUME_4.KEYBOARD_PLO.SF.003   1 LINE     80   11 PAGE UM   MANUAL    EMERY     JULY 28, 1977  03:07:22
0          FORTRAN PROGRAM TO PRODUCE THE CALCOMP KEYBOARD PLOTS USED IN THE MEMOREX 1270
           (IBM 2703) USERS' GUIDE IN VOLUME 4.  REQUIRES THE CALCOMP ROUTINES PALPHA, PSYM,
           AND PSMLEN.  USES EBCDDEFN (038/9) AND GOLFPTTC (038/10) (OR GOLFCORR (038/11))
           AS INPUT DURING EXECUTION.  ALSO USES KBDPALPHA (575/4).  OBJECT NOT DISTRIBUTED.
0          Referenced by comments of: 575/4 
00575/004   MTS VOLUME 4             KBDPALPHA       D              W032:KBDPALPHA                                                  
            D4T2    566  MTS_VOLUME_4.KBDPALPHA.D.004       1 LINE   1053    1 PAGE UM   MANUAL    EMERY     JULY 28, 1977  03:07:24
0          DATA FILE CONTAINING CHARACTER DEFINITIONS FOR THE MTS VOLUME 4 KEYBOARD
           PLOTS.  FILE CONSISTS OF THREE LINES OF BINARY DATA AND IS REFERENCED VIA
           CALL PALPHA('W032:KBDPALPHA',1,&N) IN THE KEYBOARD PLOT PROGRAM (575/3).
0          Referenced by comments of: 575/3 
00576/001   CVTOMR                                   SA  G  COMR    DWB:CVTOMR.D3(1,999)                                            
            D4T2    567  CVTOMR..SA.001                     1 LINE     80   15 PAGE UM   DWB                 JULY 28, 1977  03:07:26
0          SUBROUTINE CALLED BY BOTH HASP (ONLY IF FIRST CARD FOLLOWING A DECK (S8) CARD IS AN OMR CARD) AND
           MTS (FOR ALL OTHER CONVERSION) TO CONVERT OMR CARDS TO EBCDIC.
           NOTE:  THIS ROUTINE CURRENTLY HANDLES THE WATERLOO OMR CARD FORMAT (2-4-6 MARK IN COLUMN 1),
           AND THE UM MTS-AND-FORTRAN CARD (1-5-7 MARK IN COLUMN 1).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00576/002   CVTOMR                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
0          Referenced by comments of: 86/2 
00577/001   MACHINE CHECK RECOVERY   67 CEAIR        SA  G  EAIR    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CEAIR.S(1)                      
            D4T2    568  MACHINE_CHECK_RECOVERY.67.SA.001   1 LINE     80   19 PAGE UM   MTA                 FEB. 13, 1975  23:51:55
0          THE MTS 360/67 MACHINE CHECK ERROR RECOVERY.  MODIFIED (AND DEBUGGED) FROM TSS/360 BY UBC AND UM.
            
           CEAIR IS THE RECOVERY NUCLEUS.  COPIES COPY:CHAERC (577/30), COPY:LLMPSEQU (087), COPY:PSA (162),
           AND COPY:CHADMR (577/29).
00577/002   MACHINE CHECK RECOVERY   67 CEAIR        OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00577/003   MACHINE CHECK RECOVERY   67 CMASA        SA  G  MASA    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASA.S(1)                      
            D4T2    569  MACHINE_CHECK_RECOVERY.67.SA.003   1 LINE     80   15 PAGE UM   MTA                 FEB. 13, 1975  23:52:02
0          BOOTSTRAP.  COPIES COPY:CHAERC (577/30), COPY:CHASYS.2 (577/35), COPY:LLMPSEQU (087),
           COPY:PSA (162), AND COPY:GLOBALS (1026/4).
00577/004   MACHINE CHECK RECOVERY   67 CMASA        OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00577/005   MACHINE CHECK RECOVERY   67 CEABE        SA  G  EABE    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CEABE.S(1)                      
            D4T2    570  MACHINE_CHECK_RECOVERY.67.SA.005   1 LINE     80   21 PAGE UM   MTA                 FEB. 13, 1975  23:51:48
0          EXTERNAL MACHINE CHECK HANDLER.  COPIES COPY:CHACHL(11,27) (577/27), COPY:CHADMR
           (577/29), COPY:CHAERE (577/31), COPY:LLMPSEQU (087), COPY:CHAPSA(1,51) (577/34),
           COPY:PSA (162), AND COPY:GLOBALS (1026/4).
00577/006   MACHINE CHECK RECOVERY   67 CEABE        OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00577/007   MACHINE CHECK RECOVERY   67 CMASB        SA  G  MASB    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASB.S(1)                      
            D4T2    571  MACHINE_CHECK_RECOVERY.67.SA.007   1 LINE     80   16 PAGE UM   MTA                 FEB. 13, 1975  23:52:06
0          ERROR RECORDING.  COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:CHAOER (577/33),
           AND COPY:GLOBALS (1026/4).
00577/008   MACHINE CHECK RECOVERY   67 CMASB        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/009   MACHINE CHECK RECOVERY   67 CMASC        SA  G  MASC    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASC.S(1)                      
            D4T2    572  MACHINE_CHECK_RECOVERY.67.SA.009   1 LINE     80   13 PAGE UM   MTA                 FEB. 13, 1975  23:52:10
0          IMMEDIATE PRINT.  COPIES COPY:CHAERC (577/30).
00577/010   MACHINE CHECK RECOVERY   67 CMASC        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00577/011   MACHINE CHECK RECOVERY   67 CMASD        SA  G  MASD    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASD.S(1)                      
            D4T2    573  MACHINE_CHECK_RECOVERY.67.SA.011   1 LINE     80   29 PAGE UM   MTA                 FEB. 13, 1975  23:52:13
0          CHECKER (CHECKS PARITY ETC.).  COPIES COPY:CHAPSA (577/34) AND COPY:CHACST (577/28).
00577/012   MACHINE CHECK RECOVERY   67 CMASD        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/013   MACHINE CHECK RECOVERY   67 CMASE        SA  G  MASE    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASE.S(1)                      
            D4T2    574  MACHINE_CHECK_RECOVERY.67.SA.013   1 LINE     80   31 PAGE UM   MTA                 FEB. 13, 1975  23:52:17
0          POINTER (FIND FAILING INSTRUCTION).
00577/014   MACHINE CHECK RECOVERY   67 CMASE        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/015   MACHINE CHECK RECOVERY   67 CMASF        SA  G  MASF    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASF.S(1)                      
            D4T2    575  MACHINE_CHECK_RECOVERY.67.SA.015   1 LINE     80   24 PAGE UM   MTA                 FEB. 13, 1975  23:52:22
0          RESTORE AND VALIDATE.
00577/016   MACHINE CHECK RECOVERY   67 CMASF        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/017   MACHINE CHECK RECOVERY   67 CMASG        SA  G  MASG    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASG.S(1)                      
            D4T2    576  MACHINE_CHECK_RECOVERY.67.SA.017   1 LINE     80   27 PAGE UM   MTA                 FEB. 13, 1975  23:52:26
0          INSTRUCTION RETRY.  COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:PSA (162).
00577/018   MACHINE CHECK RECOVERY   67 CMASG        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/019   MACHINE CHECK RECOVERY   67 CMASH        SA  G  MASH    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASH.S(1)                      
            D4T2    577  MACHINE_CHECK_RECOVERY.67.SA.019   1 LINE     80   36 PAGE UM   MTA                 FEB. 13, 1975  23:52:30
0          FIRST DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/020   MACHINE CHECK RECOVERY   67 CMASH        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/021   MACHINE CHECK RECOVERY   67 CMASI        SA  G  MASI    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASI.S(1)                      
            D4T2    578  MACHINE_CHECK_RECOVERY.67.SA.021   1 LINE     80   31 PAGE UM   MTA                 FEB. 13, 1975  23:52:36
0          SECOND DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/022   MACHINE CHECK RECOVERY   67 CMASI        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/023   MACHINE CHECK RECOVERY   67 CMASJ        SA  G  MASJ    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CMASJ.S(1)                      
            D4T2    579  MACHINE_CHECK_RECOVERY.67.SA.023   1 LINE     80   17 PAGE UM   MTA                 FEB. 13, 1975  23:52:41
0          THIRD DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00577/024   MACHINE CHECK RECOVERY   67 CMASJ        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/025   MACHINE CHECK RECOVERY   67 CGCMA        SA  G  GCMA    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CGCMA.S(1)                      
            D4T2    580  MACHINE_CHECK_RECOVERY.67.SA.025   1 LINE     80   23 PAGE UM   MTA                 FEB. 13, 1975  23:51:58
0          RECONFIGURATION.  COPIES COPY:PCBDSECT (470), COPY:CHADMR (577/29), COPY:PSA (162),
           COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/4).
00577/026   MACHINE CHECK RECOVERY   67 CGCMA        OC  G        # (PART OF 577/52)                                                
                                                                                    UM   MTA                                        
00577/027   MACHINE CHECK RECOVERY   67 CHACHL       SA  G  CHL     S0938 FSAVE2 LBLTYPE=VLO FSNAME=COPY:CHACHL(1)                  
            D4T2    581  MACHINE_CHECK_RECOVERY.67.SA.027   1 LINE     80    2 PAGE UM   MTA                 FEB. 13, 1975  23:52:48
0          COPY SECTION FOR TSS FLAVOR CHANNEL TABLE.
0          Referenced by comments of: 577/5 
00577/028   MACHINE CHECK RECOVERY   67 CHACST       SA  G  CST     S0938 FSAVE2 LBLTYPE=VLO FSNAME=COPY:CHACST(1)                  
            D4T2    582  MACHINE_CHECK_RECOVERY.67.SA.028   1 LINE     80    2 PAGE UM   MTA                 FEB. 13, 1975  23:52:51
0          COPY SECTION FOR CPU STATUS TABLE.
0          Referenced by comments of: 97/10, 121/2, 577/11, 577/19, 577/21, 577/23, 611/1, 654/1 
00577/029   MACHINE CHECK RECOVERY   67 CHADMR       SA  G  DMR     S0938 FSAVE2 LBLTYPE=VLO FSNAME=COPY:CHADMR(1)                  
            D4T2    583  MACHINE_CHECK_RECOVERY.67.SA.029   1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:52:53
0          COPY SECTION FOR DAMAGE REPORT.
0          Referenced by comments of: 577/1, 577/5, 577/25 
00577/030   MACHINE CHECK RECOVERY   67 CHAERC       SA  G  ERC     COPY:CHAERC                                                     
            D4T2    584  MACHINE_CHECK_RECOVERY.67.SA.030   1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  03:09:07
0          COPY SECTION FOR ERROR RECOVERY CONTROL TABLE (X'C00' IN PSA).
0          Referenced by comments of: 46/2, 46/4, 577/1, 577/3, 577/9, 589/1 
00577/031   MACHINE CHECK RECOVERY   67 CHAERE       SA  G  ERE     S0938 FSAVE2 LBLTYPE=VLO FSNAME=COPY:CHAERE(1)                  
            D4T2    585  MACHINE_CHECK_RECOVERY.67.SA.031   1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:52:58
0          COPY SECTION FOR EXTERNAL MACHINE CHECK ERROR RECORD FORMAT.
0          Referenced by comments of: 577/5, 577/37 
00577/032   MACHINE CHECK RECOVERY   67 CHAIER       SA  G  IER     S0938 FSAVE2 LBLTYPE=VLO FSNAME=COPY:CHAIER(1)                  
            D4T2    586  MACHINE_CHECK_RECOVERY.67.SA.032   1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:53:01
0          COPY SECTION FOR INBOARD I/O ERROR RECORD FORMAT.
0          Referenced by comments of: 577/37, 589/1 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00577/033   MACHINE CHECK RECOVERY   67 CHAOER       SA  G  OER     S0938 FSAVE2 LBLTYPE=VLO FSNAME=COPY:CHAOER(1)                  
            D4T2    587  MACHINE_CHECK_RECOVERY.67.SA.033   1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:53:03
0          COPY SECTION FOR OUTBOARD I/O ERROR RECORD FORMAT.
0          Referenced by comments of: 577/7, 577/37 
00577/034   MACHINE CHECK RECOVERY   67 CHAPSA       SA  G  PSA     S0938 FSAVE2 LBLTYPE=VLO FSNAME=COPY:CHAPSA(1)                  
            D4T2    588  MACHINE_CHECK_RECOVERY.67.SA.034   1 LINE     80    4 PAGE UM   MTA                 FEB. 13, 1975  23:53:06
0          COPY SECTION FOR TSS FLAVOR PSA.
0          Referenced by comments of: 577/5, 577/11, 577/19, 577/21, 577/23, 588/1 
00577/035   MACHINE CHECK RECOVERY   67 CHASYS.2     SA  G  SYS2    COPY:CHASYS.2                                                   
            D4T2    589  MACHINE_CHECK_RECOVERY.67.SA.035   1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  03:09:19
0          COPY SECTION FOR THE 'SYSTEM TABLE'.
0          Referenced by comments of: 46/2, 46/4, 577/3 
00577/036   MACHINE CHECK RECOVERY   67 CHASDT       SA  G  SDT     S0938 FSAVE2 LBLTYPE=VLO FSNAME=COPY:CHASDT(1)                  
            D4T2    590  MACHINE_CHECK_RECOVERY.67.SA.036   1 LINE     80    3 PAGE UM   MTA                 FEB. 13, 1975  23:53:08
0          COPY SECTION FOR STATISTICAL DATA TABLE.  NOT USED BY MTS.
0          Referenced by comments of: 577/37 
00577/037   MACHINE CHECK RECOVERY   67 CZASE        SA  G  ZASE    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CZASE.S(1)                      
            D4T2    591  MACHINE_CHECK_RECOVERY.67.SA.037   1 LINE     80  137 PAGE UM   MTA                 FEB. 13, 1975  23:53:17
0          VMEREP.  COPIES COPY:CHAOER (577/33), COPY:CHASDT (577/36), COPY:CHAERE (577/31), AND COPY:CHAIER (577/32).
           ASSEMBLE USING MTA:MACLIB (577/39) AND *SYSMAC.
            
           CZASE WILL ACCEPT INPUT FROM THE FILE IT WRITES.  ENTER "FILE" WHEN
           IT ASKS FOR A DRUM AND IT WILL READ FROM A SEQUENTIAL FILE ON UNIT 1.  THIS ALLOWS USE OF ALL THE
           SELECTIVE PRINT COMMANDS IN MTS.
00577/038   MACHINE CHECK RECOVERY   67 CZASE        OC  G          S0938 FSAVE2 LBLTYPE=VLO FSNAME=CZASE(1)                        
            D4T2    592  MACHINE_CHECK_RECOVERY.67.OC.038   1 LINE    176   21 PAGE UM   MTA                 FEB. 13, 1975  23:53:13
0          CONTAINS SEVERAL PROGRAMS IN ADDITION TO CZASE.
0          Referenced by comments of: 577/49 
00577/039   MACHINE CHECK RECOVERY   67 MACROS       SM  G  MAC     S0938 FSAVE2 LBLTYPE=VLO FSNAME=MACLIB(1)                       
            D4T2    593  MACHINE_CHECK_RECOVERY.67.SM.039   1 LINE     80    4 PAGE UM   MTA                 FEB. 13, 1975  23:53:34
0          MACROS, MOST OF WHICH ARE NOT USED.
0          Referenced by comments of: 577/37 
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00577/040   MACHINE CHECK RECOVERY   67 DRMINIT      SA  G  DRMI    S0938 FSAVE2 LBLTYPE=VLO FSNAME=DRMINIT.S(1)                    
            D4T2    594  MACHINE_CHECK_RECOVERY.67.SA.040   1 LINE     80    6 PAGE UM   MTA                 FEB. 13, 1975  23:53:32
0          WRITE MACHINE CHECK MODULES ON DRUMS.  ASSEMBLE USING *SYSMAC.
00577/041   MACHINE CHECK RECOVERY   67 DRMINIT      OC  G          S0938 FSAVE2 LBLTYPE=VLO FSNAME=DRMINIT.O(1)                    
            D4T2    595  MACHINE_CHECK_RECOVERY.67.OC.041   1 LINE     80    3 PAGE UM   MTA                 FEB. 13, 1975  23:53:29
00577/042   MACHINE CHECK RECOVERY   67 LOGPRINT     SA  G  LOGP    S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.LOGPRI.SA.42(1)      469
            D4T2    596  MACHINE_CHECK_RECOVERY.67.SA.042   1 LINE     80    3 PAGE UBC  MTA                 SEP. 27, 1971  11:03:35
0          PROGRAM TO PRINT CZASE OUTPUT.  ASSEMBLE USING *SYSMAC?
00577/043   MACHINE CHECK RECOVERY   67 LOGPRINT     OC  G          S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.LOGPRI.O.43(1)       470
            D4T2    597  MACHINE_CHECK_RECOVERY.67.OC.043   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:51.53
00577/044   MACHINE CHECK RECOVERY   67 SHORTPRINT   SA  G  SHRT    S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.SHORTP.SA.44(1)      471
            D4T2    598  MACHINE_CHECK_RECOVERY.67.SA.044   1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  23:51.59
0          ONE LINE SUMMARY (POOR) FROM CZASE OUTPUT.  ASSEMBLE USING *SYSMAC.
00577/045   MACHINE CHECK RECOVERY   67 SHORTPRINT   OC  G          S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.SHORTP.O.45(1)       472
            D4T2    599  MACHINE_CHECK_RECOVERY.67.OC.045   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:52.05
00577/046   MACHINE CHECK RECOVERY   67 WRITEUP      P              S0938 FSAVE2 LBLTYPE=VLO FSNAME=MCHDESCR(1)                     
            D4T2    600  MACHINE_CHECK_RECOVERY.67.P.046    1 LINE     67    4 PAGE UM   MTA                 FEB. 13, 1975  23:53:39
0          WRITE-UP FOR MACHINE CHECK STUFF.
00577/047   MACHINE CHECK RECOVERY   67 MCHDEFS      SA  G  MCHD    S0938 FSAVE2 LBLTYPE=VLO FSNAME=MCHDEFS(1)                      
            D4T2    601  MACHINE_CHECK_RECOVERY.67.SA.047   1 LINE     80    2 PAGE UM   MTA                 FEB. 13, 1975  23:53:37
0          LOW-CORE SYMBOL TABLE (LIKE LCSYMBOL) FOR SYMBOLS REFERENCED BY DRMINIT.
           NOTE:  SOURCE IS IN MCHDEFS(1,999).
00577/048   MACHINE CHECK RECOVERY   67 MCHDEFS      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00577/049   MACHINE CHECK RECOVERY   67 CZASY1       SA  G  ZASY    S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.CZASY1.SA.49(1)      475
            D4T2    602  MACHINE_CHECK_RECOVERY.67.SA.049   1 LINE     80    2 PAGE UBC  MTA                 SEP. 27, 1971  11:03:07
0          SUBROUTINE TO EXECUTE DRUM I/O FOR CZASE.  OBJECT IS PART OF INIT:CZASE (577/38).
00577/050   MACHINE CHECK RECOVERY   67 COMMANDS     C              S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.COMMAN.C.50(1)       476
            D4T2    603  MACHINE_CHECK_RECOVERY.67.C.050    1 LINE      9    1 PAGE UM   MTA                 AUG. 01, 1973  23:52.34
0          COMMANDS TO CZASE.
00577/051   MACHINE CHECK RECOVERY   67 MCFILES      D              S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.MCFILE.D.51(1)       477
            D4T2    604  MACHINE_CHECK_RECOVERY.67.D.051    1 LINE      5    1 PAGE UM   MTA                 AUG. 01, 1973  23:52.36
0          LIST OF FILES FOR DRMINIT.
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00577/052   MACHINE CHECK RECOVERY   67 OBJECT       OC  G          S0938 FSAVE2 LBLTYPE=VLO FSNAME=MCHOBJ(1)                       
            D4T2    605  MACHINE_CHECK_RECOVERY.67.OC.052   1 LINE     80   16 PAGE UM   MTA                 FEB. 13, 1975  23:53:45
0          OBJECT FOR MOST OF THE 360/67 MACHINE CHECK RECOVERY.
00577/053   MACHINE CHECK RECOVERY   370 MCHCCH      SA  G  MCHC    MTA:MCHCCH.S                                                    
            D4T2    606  MACHINE_CHECK_RECOVERY.37.SA.053   1 LINE     80   24 PAGE UM   MTA                 JULY 28, 1977  03:12:24
0          370 MODEL-INDEPENDENT MACHINE AND CHANNEL CHECK HANDLER.
           ASSEMBLE USING COPY:SETPARM (653), *SYSMAC, AND MCHMAC (577/57).
           COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470),
           COPY:CMDAREADSECT (531/12), COPY:GLOBALS (1026/4), AND
           COPY:BJPDSCT (650/3).
0          Referenced by comments of: 577/58, 589/3, 655/2 
00577/054   MACHINE CHECK RECOVERY   370 MCHCCH      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00577/055   MACHINE CHECK RECOVERY   370 LOGGER      SA  G          S0964 'D3.2T1' FSNAME=MACHINE_CHECK_RECOVERY.370.SA.55(1)    525
            D4T2    607  MACHINE_CHECK_RECOVERY.37.SA.055   1 LINE     80    4 PAGE UBC            MTA       MAR. 21, 1975  01:55:46
0          THIS IS A PROGRAM THAT PRODUCES ON SPUNCH A STANDALONE PROGRAM TO BE WRITTEN
           TO A TAPE AND IPL'D AFTER A HARD MACHINE CHECK. THE STANDALONE PROGRAM COPIES
           THE 370 MACHINE CHECK RECORD (I.E. PSA PLUS EXTENDED LOGOUT AREA) TO THE
           SECOND FILE OF THE TAPE FROM WHICH IT WAS IPL'D. THE RECORD ON TAPE HAS THE
           SAME FORMAT AS NORMAL MTS MACHINE CHECK LOGOUTS.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:PSA (162).
           THIS PROGRAM HAS NEVER BEEN USED AT UM.
00577/056   MACHINE CHECK RECOVERY   370 LOGGER      OC  G          S0964 'D3.2T1' FSNAME=MACHINE_CHECK_RECOVERY.370.OC.56(1)    526
            D4T2    608  MACHINE_CHECK_RECOVERY.37.OC.056   1 LINE     80    3 PAGE UBC            MTA       MAR. 21, 1975  01:55:49
00577/057   MACHINE CHECK RECOVERY   MACROS          SM  G          MTA:MCHMAC                                                      
            D4T2    609  MACHINE_CHECK_RECOVERY.MA.SM.057   1 LINE     72   28 PAGE UM   MTA                 JULY 28, 1977  03:18:31
0          MACROS FOR ASSEMBLING EREP AND MACHINE CHECK RECOVERY.
0          Referenced by comments of: 531/4, 577/53, 577/58, 589/3, 589/5, 589/6, 589/7, 589/9, 655/2 
00577/058   MACHINE CHECK RECOVERY   MCHSUBR         SA  G  MSUB    MTA:MCHSUBR(1,999)                                              
            D4T2    610  MACHINE_CHECK_RECOVERY.MC.SA.058   1 LINE     80    7 PAGE UM   MTA                 JULY 28, 1977  03:18:34
0          MCHCCH (577/53) HAS A WXTRN FOR MCHSUBR AND IF IT IS PRESENT, MCHCCH CALLS IT TO
           DO MODEL DEPENDENT RECOVERY FOR A MACHINE CHECK.  THIS VERSION OF MCHSUBR (THE
           ONLY ONE SO FAR) IS FOR THE AMDAHL 470 AND IS A NOP ON ANY OTHER MACHINE.  IT CAN
           BE DELETED FROM THE SYSTEM IF NOT NEEDED.  COPIES COPY:GLOBALS (1026/4), COPY:LLMPSEQU
           (087), AND COPY:PSA (162).  ASSEMBLE USING MCHMAC (577/57) AND COPY:SETPARM (653).
00577/059   MACHINE CHECK RECOVERY   MCHSUBR         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00577/060   MACHINE CHECK RECOVERY   GETLOGS         SA  G  GLOG    MTA:GETLOGS(1000)                                               
            D4T2    611  MACHINE_CHECK_RECOVERY.GE.SA.060   1 LINE     80    7 PAGE UM   MTA                 JULY 28, 1977  03:18:36
0          PROGRAM TO RETREIVE LOGS FROM THE CPS DISK ON AN AMDAHL 470 AND WRITE THEM (FORMATTED)
           ON SPRINT.  WHEN RUN, IT PRINTS (ON SERCOM) THE KEY FOR ALL LOGS ON THE DISK AND
           ASKS WHICH ONE YOU WANT (ON GUSER).  RUN WITH PROT=OFF.
0          Referenced by comments of: 589/9 
00577/061   MACHINE CHECK RECOVERY   GETLOGS         OC  G          MTA:GETLOGS(1,999)                                              
            D4T2    612  MACHINE_CHECK_RECOVERY.GE.OC.061   1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  03:18:39
00578/001   RSF                      D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=RSF                         
            D4T2    613  RSF.D4_MASTER.SA.001               1 SEQ      80   82 PAGE UM   DWB                 JULY 28, 1977  03:19:14
0          REALLY SHARED FILES (RSF) PORTION OF MTS.
           COPIES *GFINFODSECT (593), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4),
           AND COPY:RATEVEC (651/2).  ASSEMBLE USING COPY:MTS.MACROS (344),
           COPY:FILE.MACROS (482/36), AND *SYSMAC.
0          Referenced by comments of: 344/1, 578/2 
00578/002   RSF                      UPDATE          UU  G          MTS:RSFUPD                                                      
            D4T2    614  RSF.UPDATE.UU.002                  1 LINE     72   20 PAGE UM   DWB                 JULY 28, 1977  03:19:15
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (578/1).
00578/003   RSF                      370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00578/004   RSF                      360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00578/005   RSF                      370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=RSF.LIST                  
            D4T2    615  RSF.370_LISTING.L.005              1 SEQ     133  194 PAGE UM   DWB                 JULY 28, 1977  03:20:28
00578/006   RSF                      360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=RSF.LIST              
            D4T2    616  RSF.360_LISTING.L.006              1 SEQ     133  194 PAGE UM   DWB                 JULY 28, 1977  03:21:54
00579/001   SYSDEFS                                  SA  G  SYSD    MTS:SYSDEFS(1,999)                                              
            D4T2    617  SYSDEFS..SA.001                    1 LINE     80    7 PAGE UM   MTA                 JULY 28, 1977  03:21:57
0          THIS IS A LOW-CORE SYMBOL TABLE FOR THE DEFINITION OF SYMBOLS USED FOR SYSTEMS WORK, I.E. NOT REQUIRED
           BY USER PROGRAMS.  TO REFERENCE THIS SYMBOL TABLE, THE FOLLOWING 3 LOADER CARDS ARE REQUIRED AT THE
           END OF AN OBJECT DECK:
            
            RIP  SYSDEFS
            LCS            LCSYMBOL
            LCS            SYSDEFS
            
           COPIES COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:SETPARM (653).
1                                                                                               FRI AUG 02/96   16:11:27   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
+         ______________ _____________________
00579/002   SYSDEFS                  370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00579/003   SYSDEFS                  360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00579/004   SYSDEFS                  RSTR:SYSDEFS    OC  G          RSTR:SYSDEFS                                                    
            D4T2    618  SYSDEFS.RSTR:SYSDEFS.OC.004        1 LINE     24    1 PAGE UM   HELFFRICH           JULY 28, 1977  03:21:59
0          CONTAINS THE 3 LOADER CARDS:
                 RIP  SYSDEFS 
                 LCS            LCSYMBOL
                 LCS            SYSDEFS 
0          Referenced by comments of: 716/9 
00580/001  *INDEX                                    SP  O  INDX    S0027 DISTRB FSNAME=INDEX                                       
            D4T2    619  INDEX..SP.001                      1 LINE     80   14 PAGE UM   ENGLE               SEP. 14, 1977  17:39:41
0          PROGRAM TO PRODUCE MANUAL INDICES.
           WILL PRODUCE INDEX AS TEXT/360 INPUT, FORMAT INPUT, OR REGULAR PRINTED OUTPUT.
0          Referenced by comments of: 573/4 
00580/002  *INDEX                                    OC  O          *INDEX                                                          
            D4T2    620  INDEX..OC.002                      1 LINE  26194   10 PAGE UM   ENGLE               SEP. 16, 1977  11:16:23
0          END WITH A "$CONTINUE WITH *PL1LIB" CARD.
00581       INDEXGT                                  SA  G        # (OBSOLETE)                                                      
            D3T5      5  INDEXGT..SA.1                      1 LINE     80    3 PAGE UM                       AUG. 02, 1973  00:15.05
00582       LIBRARY INDEX PROGRAM                    C            # (OBSOLETE)                                                      
            D3T5      7  LIBRARY_INDEX_PROGRAM..C.1         1 LINE    138    1 PAGE UM                       AUG. 02, 1973  00:15.08
00583/001   KWIC/360                 PHASE A         SP             S0979 DWBSV1 'DWBSAVE' FSNAME=KWIC/360(1)                   19  
            D4T2    621  KWIC/360.PHASE_A.SP.001            1 LINE     80   30 PAGE UM   DWB                 JUNE 04, 1975  22:19:07
0          MODIFIED VERSION OF IBM PROGRAM 360D-06.7.014.  PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION.
            
           SOURCE FOR PHASES A THROUGH D AND THE SCAN2 AND TRANS SUBROUTINES.
00583/002   KWIC/360                 PHASE A         OC             DWB:KWICA                                                       
            D4T2    622  KWIC/360.PHASE_A.OC.002            1 SEQ      80    7 PAGE UM   DWB                 JULY 28, 1977  03:22:37
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/003   KWIC/360                 PHASE B         SP           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SOURCE FOR PHASE B.
1                                                                                               FRI AUG 02/96   16:11:27   Page  236
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
+         ______________ _____________________
00583/004   KWIC/360                 PHASE B         OC             DWB:KWICB                                                       
            D4T2    623  KWIC/360.PHASE_B.OC.004            1 SEQ      80    3 PAGE UM   DWB                 JULY 28, 1977  03:22:39
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/005   KWIC/360                 PHASE C         SP           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SOURCE FOR PHASE C.
00583/006   KWIC/360                 PHASE C         OC             DWB:KWICC                                                       
            D4T2    624  KWIC/360.PHASE_C.OC.006            1 SEQ      80    4 PAGE UM   DWB                 JULY 28, 1977  03:22:42
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/007   KWIC/360                 PHASE D         SP           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SOURCE FOR PHASE D.
00583/008   KWIC/360                 PHASE D         OC             DWB:KWICD                                                       
            D4T2    625  KWIC/360.PHASE_D.OC.008            1 SEQ      80    4 PAGE UM   DWB                 JULY 28, 1977  03:22:44
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/009   KWIC/360                 SCAN2 SUBR      SA           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SUBROUTINE CALLED BY PHASE A.  OBJECT IS IN 583/2.
00583/010   KWIC/360                 TRANS SUBR      SA           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SUBROUTINE CALLED BY BOTH PHASE A AND PHASE B.  OBJECT IS IN 583/2 AND 583/4.
00583/011   KWIC/360                 TEST DATA       D            # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          INPUT FOR TEST RUN IS AS FOLLOWS:
            
              LINES 1068-1083 ARE PRIMARY STOPWORDS
              LINES 1084-1085 ARE SECONDARY STOPWORDS
              LINES 1086-LAST ARE INPUT CARDS
00584/001   QUIC                     PHASE 1         SP             S0979 DWBSV1 'DWBSAVE' FSNAME=QUIC.S(1)                     69  
            D4T2    626  QUIC.PHASE_1.SP.001                1 LINE     81   35 PAGE UM   DWB                 MAY  13, 1976  20:59:32
0          THIS IS THE IBM PROGRAM 360D-06.7.022.  IT IS USED AS FOLLOWS:
           RUN PHASE 1 (QUIC1), THEN *SORT, THEN PHASE 2 (QUIC2).
           PAPER DOCUMENTATION WAS ENCLOSED WITH DISTRIBUTION D3.0 AND IS
           AVAILABLE UPON REQUEST FROM DON BOETTNER AT UM.
            
           THE SOURCE FOR PHASE 1 IS IN LINES 252 THROUGH 1249.
1                                                                                               FRI AUG 02/96   16:11:27   Page  237
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
+         ______________ _____________________
00584/002   QUIC                     PHASE 1         OC             DWB:QUIC1                                                       
            D4T2    627  QUIC.PHASE_1.OC.002                1 LINE     80   21 PAGE UM   DWB                 JULY 28, 1977  03:23:21
00584/003   QUIC                     PHASE 2         SP           # (PART OF 584/1)                                                 
                                                                                    UM   DWB                                        
0          THE SOURCE FOR PHASE 2 IS IN LINES 1347 THROUGH 1496.
00584/004   QUIC                     PHASE 2         OC             DWB:QUIC2                                                       
            D4T2    628  QUIC.PHASE_2.OC.004                1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  03:23:22
00584/005   QUIC                     TEST DATA       D            # (PART OF 584/1)                                                 
                                                                                    UM   DWB                                        
0          TEST DATA IS IN LINES 1269 THROUGH 1320.
00585/001   CALC CLS                                 SA  G  CALC    W070:CALC.S                                                     
            D4T2    629  CALC_CLS..SA.001                   1 LINE     80   55 PAGE UM   FRONCZAK            JULY 28, 1977  03:23:24
0          THIS IS THE SOURCE FOR THE MTS $CALC COMMAND.  THE CALC COMMAND IS IMPLEMENTED AS A COMMAND LANGUAGE
           SUB-SYSTEM (CLS).  ASSEMBLE USING COPY:MTS.MACROS (344).
00585/002   CALC CLS                                 OC  G          *CLSCALC                                                        
            D4T2    630  CALC_CLS..OC.002                   1 LINE     80    8 PAGE UM   FRONCZAK            JULY 28, 1977  03:23:29
0          NORMALLY LOADED BY PISTLE AT IPL.
00586/001   COST SUBR                                SA  G  COST    S0027 DISTRB FSNAME=COST                                        
            D4T2    631  COST_SUBR..SA.001                  1 LINE     80    8 PAGE UM   ENGLE               JAN. 25, 1977  15:31:03
0          SUBROUTINE TO COMPUTE CURRENT COST OF RUN.  (E.G. CALLED BY MTS FOR $DISPLAY $).
           COPIES ACCFORMAT (104/1), AND GRDEF (104/57).
00586/002   COST SUBR                                OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   ENGLE                                      
00587/001   RESEQUENCING PGM                         SA  G  RSEQ    MTS:RSEQ(1,999)                                                 
            D4T2    632  RESEQUENCING_PGM..SA.001           1 LINE     80    4 PAGE UBC  HOGG      DWB       JULY 28, 1977  03:31:57
0          TO USE THIS PROGRAM:
            
                $RUN RSEQ SCARDS=INPUT SPUNCH=OUTPUT SERCOM=ERRORS PAR=SEQNAME
            
           WHERE SEQNAME IS A 1 TO 8 CHARACTER SEQUENCE FIELD INITIALIZER.  IF OMITTED, THE SEQUENCE DEFAULTS TO
           00000001, 00000002, ETC.  IF THE LAST CHARACTER OF SEQNAME IS 1, THE SEQUENCING TAKES PLACE AT THAT COLUMN.
           FOR EXAMPLE, IF PAR=BARF IS GIVEN, THE SEQUENCE IS BARF0001, BARF0002, ETC.  IF PAR=BARF01
           IS GIVEN, THE SEQUENCE IS BARF0100, BARF0200, ETC.  SEQUENCING INTRUDES INTO THE ALPHABETIC FIELD IF
           NECESSARY.  FOR EXAMPLE, THE SEQUENCE ID FOLLOWING BARF9999 IS BARG0000.
           WRITES ON SPUNCH @I TO PRESERVE INPUT LINE NUMBERS.
00587/002   RESEQUENCING PGM                         OC  G          MTS:RSEQ(1000)                                                  
            D4T2    633  RESEQUENCING_PGM..OC.002           1 LINE     80    2 PAGE UBC  HOGG      DWB       JULY 28, 1977  03:31:59
1                                                                                               FRI AUG 02/96   16:11:27   Page  238
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
+         ______________ _____________________
00588/001   INTERCOM                                 SA  G  EAIC    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CEAIC.S(1)                   2  
            D4T2    634  INTERCOM..SA.001                   1 LINE     80   13 PAGE UM   MTA                 FEB. 13, 1975  23:51:52
0          INTER-CPU COMMUNICATION PROGRAM USED ON 360/67 BY SUPERVISOR AND MACHINE CHECK ERROR
           RECOVERY.  MODIFIED FROM TSS/360.  COPIES COPY:CHAPSA(1,50) (577/34), COPY:PSA (162),
           COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/4).
00588/002   INTERCOM                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00589/001   CHANNEL CHECK RECOVERY   360/67          SA  G  EAI7    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CEAI7.S(1)                   35 
            D4T2    635  CHANNEL_CHECK_RECOVERY.36.SA.001   1 LINE     80    8 PAGE UM   MTA                 FEB. 13, 1975  23:53:49
0          360/67 I/O INBOARD ERROR RECORDING.  MODIFIED FROM TSS/360.  COPIES COPY:LLMPSEQU
           (087), COPY:PSA (162), COPY:CHAIER (577/32), COPY:CHAERC (577/30), AND COPY:GLOBALS
           (1026/4).
00589/002   CHANNEL CHECK RECOVERY   360/67          OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
0          NOT USED ON 370.
00589/003   CHANNEL CHECK RECOVERY   370 CCHSUBR     SA  G  CSUB    MTA:CCHSUBR(1,999)                                              
            D4T2    636  CHANNEL_CHECK_RECOVERY.37.SA.003   1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  03:32:09
0          MCHCCH (577/53) HAS A WXTRN FOR CCHSUBR AND IF IT IS PRESENT, MCHCCH CALLS IT TO
           DO MODEL DEPENDENT RECOVERY FOR A CHANNEL CHECK.  THIS VERSION OF CCHSUBR IS
           SIMPLY AN INTERFACE WHICH LOOKS AT THE MODEL NUMBER AND CHANNEL TYPE AND CALLS
           ONE OF IGFC60 (589/5), IGFC70 (589/6), IGFC80 (589/7), OR A#VCCH47 (589/9).
           THESE ARE REFERENCED WITH WXTRNS AND MAY BE DELETED FROM THE SYSTEM IF NOT
           NEEDED.  ASSEMBLE USING MCHMAC (577/57).
00589/004   CHANNEL CHECK RECOVERY   370 CCHSUBR     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00589/005   CHANNEL CHECK RECOVERY   IGFC60          SA             S0938 FSAVE2 LBLTYPE=VLO FSNAME=VS2CCH(1)                    128
            D4T2    637  CHANNEL_CHECK_RECOVERY.IG.SA.005   1 LINE     80   26 PAGE UM   MTA                 NOV. 08, 1975  00:31:31
0          VS2 SUBROUTINE TO CONVERT A 2860 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/57).
0          Referenced by comments of: 589/3, 655/2 
00589/006   CHANNEL CHECK RECOVERY   IGFC70          SA           # (PART OF 589/1)                                                 
                                                                                    UM   MTA                                        
0          VS2 SUBROUTINE TO CONVERT A 2870 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/57).
0          Referenced by comments of: 589/3, 655/2 
1                                                                                               FRI AUG 02/96   16:11:27   Page  239
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
+         ______________ _____________________
00589/007   CHANNEL CHECK RECOVERY   IGFC80          SA           # (PART OF 589/1)                                                 
                                                                                    UM   MTA                                        
0          VS2 SUBROUTINE TO CONVERT A 2880 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/57).
0          Referenced by comments of: 589/3, 655/2 
00589/008   CHANNEL CHECK RECOVERY   VS2CCH          OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
0          OBJECT FOR 589/5, 589/6, AND 589/7.
00589/009   CHANNEL CHECK RECOVERY   A#VCCH47        SA  G  C470    MTA:470CCH(1,999)                                               
            D4T2    638  CHANNEL_CHECK_RECOVERY.A#.SA.009   1 LINE     80   10 PAGE UM   MTA                 JULY 28, 1977  03:32:31
0          SUBROUTINE CALLED BY CCHSUBR (577/60) FOR CHANNEL CHECK RECOVERY IF RUNNING ON AN
           AMDAHL 470.  THIS PROGRAM PRODUCES A LIMITED CHANNEL LOGOUT FROM A FULL LOG.
           ASSEMBLE USING MCHMAC (577/57).
0          Referenced by comments of: 589/3, 655/2 
00589/010   CHANNEL CHECK RECOVERY   A#VCCH47        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00590/001  *SPITBOL                  MAIN UPDATE     UU  G          W086:SPIT.M.U                                                   
            D4T2    639  SPITBOL.MAIN_UPDATE.UU.001         1 LINE     72   13 PAGE UM   SWARTZ              SEP. 16, 1977  11:20:23
0          BY CONTRACT, THE SOURCE AND OBJECT FOR SPITBOL CANNOT BE DISTRIBUTED.  CONTACT ROBERT DE WAR AT THE
           ILLINOIS INSTITUTE OF TECHNOLOGY, CHICAGO, IL, USA.
            
           UPDATE DECK TO BRING THE SPITBOL COMPILER AND LIBRARY FROM VERSION 2.2.0 TO 2.2.6.
00590/002  *SPITBOL                  XFACE UPDATE    UU  G          W086:SPIT.I.U                                                   
            D4T2    640  SPITBOL.XFACE_UPDATE.UU.002        1 LINE     72   39 PAGE UM   SWARTZ              SEP. 16, 1977  11:20:29
0          UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6.
00590/003  *SPITBOL                  ZAP CONVERT     SS  G          W086:ZAPCNV                                                     
            D4T2    641  SPITBOL.ZAP_CONVERT.SS.003         1 LINE     72    1 PAGE UM   SWARTZ              JULY 28, 1977  03:34:16
0          SNOBOL PROGRAM TO CONVERT SPITBOL SUPERZAP DECKS INTO MTS COM AND REP LOADER CARDS.
00590/004  *SPITBOL                  *SPITBOL        OC  G          *SPITBOL                                                        
            D4T2    642  SPITBOL.*SPITBOL.OC.004            1 SEQ      24    1 PAGE UM   SWARTZ              JULY 28, 1977  03:34:18
0          LOADER CARDS TO FORCE REFERENCE TO THE SHARED VM SPITBOL.
00590/005  *SPITBOL                  ETC:SPITDEFLIB  OC  G          S0997 'SPITBOL FS' FSNAME=W086:LIBRARY                          
            D4T2    643  SPITBOL.ETC:SPITDEFLIB.OC.005      1 LINE     24    1 PAGE UM   SWARTZ              JULY 20, 1977  03:40:47
0          LOADER CARDS USED AS A DEFAULT LIBRARY FOR THE SPITBOL LOAD FUNCTION TO
           FORCE REFERENCE TO EFL AND LCSYMBOLS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  240
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
+         ______________ _____________________
00590/006  *SPITBOL                  *SPITERR        M              *SPITERR                                                        
            D4T2    644  SPITBOL.*SPITERR.M.006             1 LINE    175    4 PAGE UM   SWARTZ              JULY 28, 1977  03:38:31
0          SPITBOL ERROR MESSAGES.
00590/007  *SPITBOL                  *SPITDEBUG      SS  O          *SPITDEBUG                                                      
            D4T2    645  SPITBOL.*SPITDEBUG.SS.007          1 LINE    159    3 PAGE UM   SWARTZ              JULY 28, 1977  03:38:33
0          ALLOWS CONTINUING, DISPLAYING, MODIFYING, ETC. OF DATA AFTER AN ERROR IN SPITBOL.
           USED BY INCLUDING "-COPY *SPITDEBUG" IN THE SPITBOL SOURCE PROGRAM.  USES SUBROUTINES
           IN UNSP:SPITLIB.  USE THE "HELP" COMMAND TO EXPLAIN FUNCTIONS.
00590/008  *SPITBOL                  UNSP CMD        SA  G  SCMD    S1073 UNSP FSNAME=SCMD.S                                        
            D4T2    646  SPITBOL.UNSP_CMD.SA.008            1 LINE     80    3 PAGE UM   OGDEN               DEC. 23, 1975  19:33:48
0          THIS FOLLOWING SUBCOMPONENTS ARE THE SOURCE FOR THE "UNSUPPORTED" SPITBOL
           FUNCTION LIBRARY.  WRITEUP FOR THESE FUNCTIONS ARE IN UNSP:WRITEUPS (685/2).
           THESE FUNCTIONS SHOULD NOT BE CONFUSED WITH THOSE IN *SPITLIB.
00590/009  *SPITBOL                  UNSP CREATE     SA  G  SCRE    S1073 UNSP FSNAME=SCREATE.S                                     
            D4T2    647  SPITBOL.UNSP_CREATE.SA.009         1 LINE     80    4 PAGE UM   OGDEN               SEP. 02, 1976  12:34:35
00590/010  *SPITBOL                  UNSP CREPLY     SA  G  SCRP    S1073 UNSP FSNAME=SCREPLY.S                                     
            D4T2    648  SPITBOL.UNSP_CREPLY.SA.010         1 LINE     80    2 PAGE UM   OGDEN               MAR. 08, 1977  11:45:58
00590/011  *SPITBOL                  UNSP GDINFO     SA  G  SGDI    S1073 UNSP FSNAME=SGDINFO.S                                     
            D4T2    649  SPITBOL.UNSP_GDINFO.SA.011         1 LINE     80    4 PAGE UM   OGDEN               SEP. 02, 1976  12:34:40
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/012  *SPITBOL                  UNSP GETFD      SA  G  SGET    S1073 UNSP FSNAME=SGETFD.S                                      
            D4T2    650  SPITBOL.UNSP_GETFD.SA.012          1 LINE     80    3 PAGE UM   OGDEN               SEP. 02, 1976  12:34:44
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/013  *SPITBOL                  UNSP GUINFO     SA  G  SGUI    S1073 UNSP FSNAME=SGUINFO.S                                     
            D4T2    651  SPITBOL.UNSP_GUINFO.SA.013         1 LINE     80    4 PAGE UM   OGDEN               SEP. 02, 1976  12:34:51
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/014  *SPITBOL                  UNSP MTSCMD     SA  G  SMTS    S1073 UNSP FSNAME=SMTSCMD.S                                     
            D4T2    652  SPITBOL.UNSP_MTSCMD.SA.014         1 LINE     80    3 PAGE UM   OGDEN               DEC. 23, 1975  19:34:03
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/015  *SPITBOL                  UNSP READ       SA  G  SREA    S1073 UNSP FSNAME=SREAD.S                                       
            D4T2    653  SPITBOL.UNSP_READ.SA.015           1 LINE     80    4 PAGE UM   OGDEN               SEP. 02, 1976  12:35:05
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/016  *SPITBOL                  UNSP SETPFX     SA  G  SSET    S1073 UNSP FSNAME=SSETPFX.S                                     
            D4T2    654  SPITBOL.UNSP_SETPFX.SA.016         1 LINE     80    3 PAGE UM   OGDEN               JAN. 13, 1976  11:29:00
0          ASSEMBLE USING UNSP:MACLIB (685/5).
1                                                                                               FRI AUG 02/96   16:11:27   Page  241
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
+         ______________ _____________________
00590/017  *SPITBOL                  UNSP SNS        SA  G  SSNS    S1073 UNSP FSNAME=SNS.S                                         
            D4T2    655  SPITBOL.UNSP_SNS.SA.017            1 LINE     80    3 PAGE UM   OGDEN               SEP. 02, 1976  12:34:54
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/018  *SPITBOL                  UNSP WRITE      SA  G  SWRI    S1073 UNSP FSNAME=SWRITE.S                                      
            D4T2    656  SPITBOL.UNSP_WRITE.SA.018          1 LINE     80    4 PAGE UM   OGDEN               SEP. 02, 1976  12:35:12
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/019  *SPITBOL                  UNSP SNOOP      SA  G  SSNO    S1073 UNSP FSNAME=SSNOOP.S                                      
            D4T2    657  SPITBOL.UNSP_SNOOP.SA.019          1 LINE     80    3 PAGE UM   OGDEN               JULY 12, 1976  13:42:24
00590/020  *SPITBOL                  UNSP SPITATTN   SA  G  SATN    S1073 UNSP FSNAME=SPITATTN.S                                    
            D4T2    658  SPITBOL.UNSP_SPITATTN.SA.020       1 LINE     80    5 PAGE UM   OGDEN               NOV. 30, 1976  14:22:13
00590/021  *SPITBOL                  UNSP SGETRC     SA  G  SGRC    S1073 UNSP FSNAME=SGETRC.S                                      
            D4T2    659  SPITBOL.UNSP_SGETRC.SA.021         1 LINE     80    1 PAGE UM   OGDEN               SEP. 02, 1976  12:34:47
00590/022  *SPITBOL                  UNSP SPUTRC     SA  G  SPRC    S1073 UNSP FSNAME=SPUTRC.S                                      
            D4T2    660  SPITBOL.UNSP_SPUTRC.SA.022         1 LINE     80    1 PAGE UM   OGDEN               SEP. 02, 1976  12:35:01
00590/023  *SPITBOL                  UNSP STI        SA  G  STIA    S1073 UNSP FSNAME=STI.S                                         
            D4T2    661  SPITBOL.UNSP_STI.SA.023            1 LINE     80    2 PAGE UM   OGDEN               SEP. 02, 1976  12:35:09
0          "STR" IS AN ALTERNATE ENTRY.  ASSEMBLE USING UNSP:MACLIB (685/5).
00590/024  *SPITBOL                  UNSP ITR        SA  G  ITRA    S1073 UNSP FSNAME=ITR.S                                         
            D4T2    662  SPITBOL.UNSP_ITR.SA.024            1 LINE     80    1 PAGE UM   OGDEN               SEP. 02, 1976  12:35:20
0          "RTI" IS AN ALTERNATE ENTRY.
00590/025  *SPITBOL                  UNSP ITS        SA  G  ITSA    S1073 UNSP FSNAME=ITS.S                                         
            D4T2    663  SPITBOL.UNSP_ITS.SA.025            1 LINE     80    1 PAGE UM   OGDEN               SEP. 02, 1976  12:35:16
0          "RTS" IS AN ALTERNATE ENTRY.
00590/026  *SPITBOL                  UNSP LIBRARY    OL  G          UNSP:SPITLIB                                                    
            D4T2    664  SPITBOL.UNSP_LIBRARY.OL.026        1 LINE  32767   17 PAGE UM   OGDEN               JULY 28, 1977  03:46:27
00591/001   CFDUB SUBR                               SA  G  CFDB    MTS:CFDUB(1,999)                                                
            D4T2    665  CFDUB_SUBR..SA.001                 1 LINE     80    2 PAGE UM   MTA                 JULY 28, 1977  03:46:29
0          SUBROUTINE TO COMPARE TWO FDUBS TO SEE IF THEY ARE ASSIGNED TO THE SAME THING.  TO USE,
           CALL CFDUB(F1,F2) WHERE F1 AND F2 ARE CHKFDUB THINGS.  RC=0 MEANS THAT THEY'RE THE SAME, RC=4 MEANS THEY'RE
           DIFFERENT, RC=8 MEANS THAT AT LEAST ONE IS INVALID.  FOR EXAMPLE, CALL CFDUB('SPUNCH  ','SPRINT  ',&1,&2).
00591/002   CFDUB SUBR                               OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00592       OPERATORS MANUAL                         WF             W035:OPRML                                                      
            D4T2    666  OPERATORS_MANUAL..WF.              1 LINE    180   87 PAGE UM   DWB                 SEP. 16, 1977  11:23:09
0          MTS OPERATOR'S MANUAL.
1                                                                                               FRI AUG 02/96   16:11:27   Page  242
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: 387/26, 502/1, 610/1, 642/1, 642/3, 642/9, 642/14, 655/1 
00593      *GFINFODSECT                              SA  G          *GFINFODSECT                                                    
            D4T2    667  GFINFODSECT..SA.                   1 LINE     80    4 PAGE UM   PIRKOLA             JULY 28, 1977  03:47:11
0          COPY SECTION FOR DSECTS DEFINING INFORMATION REGIONS USED IN CONJUNCTION WITH THE
           GFINFO SUBROUTINE (PART OF 578/1).
0          Referenced by comments of: 465/1, 529/1, 548/1, 548/2, 578/1, 630/1, 1019/2 
00594      *GDINFODSECT                              SA  G          *GDINFODSECT                                                    
            D4T2    668  GDINFODSECT..SA.                   1 LINE     80    2 PAGE UM   DWB                 JULY 28, 1977  03:47:13
0          COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE.
0          Referenced by comments of: 57/1, 513/1, 529/1, 531/4, 531/8, 540/9, 545/3, 545/4, 548/1, 553/1, 648/3, 680/1,
                 709/1, 1021/5, 3024/1 
00595/001   APL - GMRL               INSTALLATION    P              S0625 GMAPL 'APL SOURCE' FSNAME=DESCRIPTION                  1  
            D4T2    669  APL_-_GMRL.INSTALLATION.P.001      1 LINE     73    1 PAGE UM   TIFFANY             JULY 16, 1973  01:42.51
0          THIS IS THE GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE (APL), NOT TO BE CONFUSED WITH COMPONENT 465 (*APL).
           APL (PRONOUNCED "APPLE") IS A SUPERSET OF PL/I, WHICH HAS EXTENSIONS IN THE AREA OF DATA STRUCTURE PROCESSING.  IT IS
           INTENDED PRIMARILY FOR LARGE SCALE STRUCTURAL DESIGN APPLICATIONS, PARTICULARLY THOSE INVOLVING INTERACTIVE GRAPHICS.
            
           COMPONENT 595/1 EXPLAINS THE CONTENTS OF COMPONENTS 595/2 THROUGH 595/92 AND TELLS HOW TO GENERATE THE SEVERAL
           COMPONENTS WHICH MAKE UP APL.
00595/002   APL - GMRL               *APLGM          OE  G          *APLGM                                                          
            D4T2    670  APL_-_GMRL.*APLGM.OE.002           1 SEQ    1812    1 PAGE UM   TIFFANY             JULY 28, 1977  03:48:35
0          COMPONENTS 595/2 THROUGH 595/5 ARE THE FOUR APL OBJECT FILES AS DESCRIBED IN CCMEMO 236 (SEE 595/93).
00595/003   APL - GMRL               *APLTRAN        OE  G          *APLTRAN                                                        
            D4T2    671  APL_-_GMRL.*APLTRAN.OE.003         1 SEQ   32767   47 PAGE UM   TIFFANY             JULY 28, 1977  03:48:38
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/004   APL - GMRL               *APLLIB         OL  G          *APLLIB                                                         
            D4T2    672  APL_-_GMRL.*APLLIB.OL.004          1 SEQ    4222   21 PAGE UM   TIFFANY             JULY 28, 1977  03:48:40
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/005   APL - GMRL               *APLEDCL        OE  G          *APLEDCL                                                        
            D4T2    673  APL_-_GMRL.*APLEDCL.OE.005         1 SEQ   10704    7 PAGE UM   TIFFANY             JULY 28, 1977  03:48:45
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/006   APL - GMRL               APLLL0          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLLL0                       6  
            D4T2    674  APL_-_GMRL.APLLL0.SA.006           1 LINE     68    4 PAGE UM   TIFFANY             JULY 16, 1973  01:43.54
0          THE SOURCE FOR *APLGM.  ASSEMBLE USING *SYSMAC.
1                                                                                               FRI AUG 02/96   16:11:27   Page  243
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
+         ______________ _____________________
00595/007   APL - GMRL               XAPL            SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XAPL                         7  
            D4T2    675  APL_-_GMRL.XAPL.SP.007             1 LINE     72    6 PAGE UM   TIFFANY             JULY 16, 1973  01:45.18
0          COMPONENTS 595/7 THROUGH 595/48 ARE THE SOURCE FOR *APLTRAN.
00595/008   APL - GMRL               MINITERM        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MINITERM                     8  
            D4T2    676  APL_-_GMRL.MINITERM.SP.008         1 LINE     73    4 PAGE UM   TIFFANY             JULY 16, 1973  01:45.20
00595/009   APL - GMRL               MAPLGET         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGET                      9  
            D4T2    677  APL_-_GMRL.MAPLGET.SP.009          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:45.23
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/010   APL - GMRL               MCARDGET        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCARDGET                     10 
            D4T2    678  APL_-_GMRL.MCARDGET.SP.010         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.26
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/011   APL - GMRL               MCHMOVE         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHMOVE                      11 
            D4T2    679  APL_-_GMRL.MCHMOVE.SP.011          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.30
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/012   APL - GMRL               MCHSCAN         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHSCAN                      12 
            D4T2    680  APL_-_GMRL.MCHSCAN.SP.012          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.33
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/013   APL - GMRL               MAPLGOOF        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGOOF                     13 
            D4T2    681  APL_-_GMRL.MAPLGOOF.SP.013         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.36
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/014   APL - GMRL               MAPLPUT         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLPUT                      14 
            D4T2    682  APL_-_GMRL.MAPLPUT.SP.014          1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.39
00595/015   APL - GMRL               MCARDPUT        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCARDPUT                     15 
            D4T2    683  APL_-_GMRL.MCARDPUT.SP.015         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.42
00595/016   APL - GMRL               MAPLNAME        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLNAME                     16 
            D4T2    684  APL_-_GMRL.MAPLNAME.SP.016         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.46
1                                                                                               FRI AUG 02/96   16:11:27   Page  244
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
+         ______________ _____________________
00595/017   APL - GMRL               MCHNAM1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM1                      17 
            D4T2    685  APL_-_GMRL.MCHNAM1.SP.017          1 LINE     71    2 PAGE UM   TIFFANY             JULY 16, 1973  01:45.49
00595/018   APL - GMRL               MCHNAM2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM2                      18 
            D4T2    686  APL_-_GMRL.MCHNAM2.SP.018          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.52
00595/019   APL - GMRL               MCHNAM3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM3                      19 
            D4T2    687  APL_-_GMRL.MCHNAM3.SP.019          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.55
00595/020   APL - GMRL               MBEGPRC         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MBEGPRC                      20 
            D4T2    688  APL_-_GMRL.MBEGPRC.SP.020          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.59
00595/021   APL - GMRL               MDIAGNS         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MDIAGNS                      21 
            D4T2    689  APL_-_GMRL.MDIAGNS.SP.021          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.02
00595/022   APL - GMRL               MENTDCL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MENTDCL                      22 
            D4T2    690  APL_-_GMRL.MENTDCL.SP.022          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.05
00595/023   APL - GMRL               MSCOPE01        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE01                     23 
            D4T2    691  APL_-_GMRL.MSCOPE01.SP.023         1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.08
00595/024   APL - GMRL               MSCOPE02        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE02                     24 
            D4T2    692  APL_-_GMRL.MSCOPE02.SP.024         1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.11
00595/025   APL - GMRL               MSCOPE03        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE03                     25 
            D4T2    693  APL_-_GMRL.MSCOPE03.SP.025         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.15
00595/026   APL - GMRL               MSCOPE04        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE04                     26 
            D4T2    694  APL_-_GMRL.MSCOPE04.SP.026         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.18
00595/027   APL - GMRL               MSCOPE05        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE05                     27 
            D4T2    695  APL_-_GMRL.MSCOPE05.SP.027         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.21
00595/028   APL - GMRL               MSCOPE06        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE06                     28 
            D4T2    696  APL_-_GMRL.MSCOPE06.SP.028         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.25
00595/029   APL - GMRL               MSUBDCL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSUBDCL                      29 
            D4T2    697  APL_-_GMRL.MSUBDCL.SP.029          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.28
00595/030   APL - GMRL               MXCREATE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXCREATE                     30 
            D4T2    698  APL_-_GMRL.MXCREATE.SP.030         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.31
00595/031   APL - GMRL               MXDCL           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL                        31 
            D4T2    699  APL_-_GMRL.MXDCL.SP.031            1 LINE     72    8 PAGE UM   TIFFANY             JULY 16, 1973  01:46.35
00595/032   APL - GMRL               MXDCL1          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL1                       32 
            D4T2    700  APL_-_GMRL.MXDCL1.SP.032           1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.38
00595/033   APL - GMRL               MXDCL2          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL2                       33 
            D4T2    701  APL_-_GMRL.MXDCL2.SP.033           1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.41
1                                                                                               FRI AUG 02/96   16:11:27   Page  245
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
+         ______________ _____________________
00595/034   APL - GMRL               MXDELETE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDELETE                     34 
            D4T2    702  APL_-_GMRL.MXDELETE.SP.034         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.44
00595/035   APL - GMRL               MXEND           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXEND                        35 
            D4T2    703  APL_-_GMRL.MXEND.SP.035            1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.47
00595/036   APL - GMRL               MXFIND          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND                       36 
            D4T2    704  APL_-_GMRL.MXFIND.SP.036           1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.51
00595/037   APL - GMRL               MXFIND1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND1                      37 
            D4T2    705  APL_-_GMRL.MXFIND1.SP.037          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.54
00595/038   APL - GMRL               MXINSERT        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXINSERT                     38 
            D4T2    706  APL_-_GMRL.MXINSERT.SP.038         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.57
00595/039   APL - GMRL               MXLET           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXLET                        39 
            D4T2    707  APL_-_GMRL.MXLET.SP.039            1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.00
00595/040   APL - GMRL               MXON            SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXON                         40 
            D4T2    708  APL_-_GMRL.MXON.SP.040             1 LINE     71    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.03
00595/041   APL - GMRL               MXPLI           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXPLI                        41 
            D4T2    709  APL_-_GMRL.MXPLI.SP.041            1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:47.06
00595/042   APL - GMRL               MXQUEST         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXQUEST                      42 
            D4T2    710  APL_-_GMRL.MXQUEST.SP.042          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:47.09
00595/043   APL - GMRL               MXREMOVE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXREMOVE                     43 
            D4T2    711  APL_-_GMRL.MXREMOVE.SP.043         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.12
00595/044   APL - GMRL               MX4EACH         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MX4EACH                      44 
            D4T2    712  APL_-_GMRL.MX4EACH.SP.044          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.15
00595/045   APL - GMRL               MAPLGO          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGO                       45 
            D4T2    713  APL_-_GMRL.MAPLGO.SP.045           1 LINE     68    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.18
00595/046   APL - GMRL               XPLEMES         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEMES(1)                   46 
            D4T2    714  APL_-_GMRL.XPLEMES.SP.046          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.22
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB.
00595/047   APL - GMRL               MXXLOCSET       SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXXLOCSET                    47 
            D4T2    715  APL_-_GMRL.MXXLOCSET.SA.047        1 LINE     67    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.25
0          ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88).
00595/048   APL - GMRL               XPLFORM         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFORM(1)                   48 
            D4T2    716  APL_-_GMRL.XPLFORM.SA.048          1 LINE     71    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.28
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB.  ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88).
1                                                                                               FRI AUG 02/96   16:11:27   Page  246
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
+         ______________ _____________________
00595/049   APL - GMRL               XPLCONA         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCONA                      49 
            D4T2    717  APL_-_GMRL.XPLCONA.SP.049          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.31
0          COMPONENTS 595/49 THROUGH 595/86 PLUS 595/46 AND 595/48 ARE THE SOURCE FOR *APLLIB.
00595/050   APL - GMRL               XPLCON          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCON                       50 
            D4T2    718  APL_-_GMRL.XPLCON.SP.050           1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:47.34
00595/051   APL - GMRL               XPLCRT1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT1                      51 
            D4T2    719  APL_-_GMRL.XPLCRT1.SP.051          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.38
00595/052   APL - GMRL               XPLCRT2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT2                      52 
            D4T2    720  APL_-_GMRL.XPLCRT2.SP.052          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.41
00595/053   APL - GMRL               XPLDEL1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL1                      53 
            D4T2    721  APL_-_GMRL.XPLDEL1.SP.053          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.44
00595/054   APL - GMRL               XPLDEL2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL2                      54 
            D4T2    722  APL_-_GMRL.XPLDEL2.SP.054          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.47
00595/055   APL - GMRL               XPLDEL3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL3                      55 
            D4T2    723  APL_-_GMRL.XPLDEL3.SP.055          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.51
00595/056   APL - GMRL               XPLESET         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLESET                      56 
            D4T2    724  APL_-_GMRL.XPLESET.SP.056          1 LINE     63    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.54
00595/057   APL - GMRL               XPLEVAR         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEVAR                      58 
            D4T2    725  APL_-_GMRL.XPLEVAR.SP.057          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.00
00595/058   APL - GMRL               XPLFND1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND1                      59 
            D4T2    726  APL_-_GMRL.XPLFND1.SP.058          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.03
00595/059   APL - GMRL               XPLFND2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND2                      60 
            D4T2    727  APL_-_GMRL.XPLFND2.SP.059          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.07
00595/060   APL - GMRL               XPLFND3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND3                      61 
            D4T2    728  APL_-_GMRL.XPLFND3.SP.060          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.10
00595/061   APL - GMRL               XPLGO           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLGO                        62 
            D4T2    729  APL_-_GMRL.XPLGO.SP.061            1 LINE     68    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.13
00595/062   APL - GMRL               XPLGARB         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLGARB                      63 
            D4T2    730  APL_-_GMRL.XPLGARB.SP.062          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.16
00595/063   APL - GMRL               XPLNUMB         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNUMB                      64 
            D4T2    731  APL_-_GMRL.XPLNUMB.SP.063          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.19
00595/064   APL - GMRL               XPLINDX         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLINDX                      65 
            D4T2    732  APL_-_GMRL.XPLINDX.SP.064          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.23
00595/065   APL - GMRL               XPLNOBL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNOBL                      66 
            D4T2    733  APL_-_GMRL.XPLNOBL.SP.065          1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.26
1                                                                                               FRI AUG 02/96   16:11:27   Page  247
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
+         ______________ _____________________
00595/066   APL - GMRL               XPLNSRT         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNSRT                      67 
            D4T2    734  APL_-_GMRL.XPLNSRT.SP.066          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:48.29
00595/067   APL - GMRL               XPLOWNI         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWNI(3)                   99 
            D4T2    735  APL_-_GMRL.XPLOWNI.SP.067          1 LINE     72    1 PAGE UM   TIFFANY             MAY  05, 1975  17:39:10
00595/068   APL - GMRL               XPLOWRS         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWRS                      69 
            D4T2    736  APL_-_GMRL.XPLOWRS.SP.068          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.35
00595/069   APL - GMRL               XPLREL0         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL0                      70 
            D4T2    737  APL_-_GMRL.XPLREL0.SP.069          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.38
00595/070   APL - GMRL               XPLREL1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL1                      71 
            D4T2    738  APL_-_GMRL.XPLREL1.SP.070          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.42
00595/071   APL - GMRL               XPLSNAM         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLSNAM                      72 
            D4T2    739  APL_-_GMRL.XPLSNAM.SP.071          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.45
00595/072   APL - GMRL               XPLRMV1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV1                      73 
            D4T2    740  APL_-_GMRL.XPLRMV1.SP.072          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:48.48
00595/073   APL - GMRL               XPLRMV2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV2                      74 
            D4T2    741  APL_-_GMRL.XPLRMV2.SP.073          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.51
00595/074   APL - GMRL               XPLTYPE         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLTYPE                      75 
            D4T2    742  APL_-_GMRL.XPLTYPE.SA.074          1 LINE     59    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.55
0          COMPONENTS 595/74 THROUGH 595/86 SHOULD BE ASSEMBLED WITH *SYSMAC AND PL1MACLIB (595/88).
00595/075   APL - GMRL               XPLUDAT         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLUDAT                      76 
            D4T2    743  APL_-_GMRL.XPLUDAT.SA.075          1 LINE     72    7 PAGE UM   TIFFANY             JULY 16, 1973  01:48.58
00595/076   APL - GMRL               XPLADDR         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLADDR                      77 
            D4T2    744  APL_-_GMRL.XPLADDR.SA.076          1 LINE     40    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.01
00595/077   APL - GMRL               XPLALOC         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLALOC(2)                   95 
            D4T2    745  APL_-_GMRL.XPLALOC.SA.077          1 LINE     72    3 PAGE UM   TIFFANY             SEP. 27, 1974  12:40.15
00595/078   APL - GMRL               XPLDREC         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDREC                      79 
            D4T2    746  APL_-_GMRL.XPLDREC.SA.078          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:49.07
00595/079   APL - GMRL               XPLEV           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEV                        80 
            D4T2    747  APL_-_GMRL.XPLEV.SA.079            1 LINE     56    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.11
00595/080   APL - GMRL               XPLFREE         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFREE                      81 
            D4T2    748  APL_-_GMRL.XPLFREE.SA.080          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.14
00595/081   APL - GMRL               XPLOC           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOC                        83 
            D4T2    749  APL_-_GMRL.XPLOC.SA.081            1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:49.20
00595/082   APL - GMRL               XIRMIN          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XIRMIN                       84 
            D4T2    750  APL_-_GMRL.XIRMIN.SA.082           1 LINE     72    9 PAGE UM   TIFFANY             JULY 16, 1973  01:49.23
1                                                                                               FRI AUG 02/96   16:11:27   Page  248
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
+         ______________ _____________________
00595/083   APL - GMRL               XIRMOUT         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XIRMOUT                      85 
            D4T2    751  APL_-_GMRL.XIRMOUT.SA.083          1 LINE     72    9 PAGE UM   TIFFANY             JULY 16, 1973  01:49.26
00595/084   APL - GMRL               RRIN            SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=RRIN                         86 
            D4T2    752  APL_-_GMRL.RRIN.SA.084             1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:49.29
00595/085   APL - GMRL               RROUT           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=RROUT                        87 
            D4T2    753  APL_-_GMRL.RROUT.SA.085            1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:49.32
00595/086   APL - GMRL               SYSVM           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=SYSVM(3)                     105
            D4T2    754  APL_-_GMRL.SYSVM.SA.086            1 LINE     69    8 PAGE UM   TIFFANY             OCT. 13, 1976  18:05:24
00595/087   APL - GMRL               CHGSCR          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=CHGSCR                       89 
            D4T2    755  APL_-_GMRL.CHGSCR.SA.087           1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.38
0          COPY SECTION USED BY SEVERAL MODULES IN *APLLIB.
00595/088   APL - GMRL               PL1MACLIB       SM  G          S0625 GMAPL 'APL SOURCE' FSNAME=PL1MACLIB                    90 
            D4T2    756  APL_-_GMRL.PL1MACLIB.SM.088        1 LINE     80   15 PAGE UM   TIFFANY             JULY 16, 1973  01:49.58
0          MACRO LIBRARY REQUIRED BY ASSEMBLY LANGUAGE MODULES IN *APLTRAN AND *APLLIB.
0          Referenced by comments of: 595/47, 595/48, 595/74 
00595/089   APL - GMRL               BLDTRAN         C              S0625 GMAPL 'APL SOURCE' FSNAME=BLDTRAN                      91 
            D4T2    757  APL_-_GMRL.BLDTRAN.C.089           1 LINE     82    1 PAGE UM   TIFFANY             JULY 16, 1973  01:50.08
0          A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLTRAN.
           HAS MANY  "$CONTINUE WITH" LINES.
00595/090   APL - GMRL               BLDLIB          C              S0625 GMAPL 'APL SOURCE' FSNAME=BLDLIB                       92 
            D4T2    758  APL_-_GMRL.BLDLIB.C.090            1 LINE     74    1 PAGE UM   TIFFANY             JULY 16, 1973  01:50.17
0          A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLLIB.
           HAS MANY "$CONTINUE WITH" LINES.
00595/091   APL - GMRL               APLTRAN.SEP     OE  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLTRAN.SEP                  93 
            D4T2    759  APL_-_GMRL.APLTRAN.SEP.OE.091      1 SEQ   11606   54 PAGE UM   TIFFANY             JULY 16, 1973  01:51.03
0          OBJECT MODULES FOR *APLTRAN, LINK-EDITTED, BUT NOT COMBINED, SO THAT INDIVIDUAL MODULES CAN BE REPLACED.
00595/092   APL - GMRL               APLEDCL.S       SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLEDCL.S(2)                 98 
            D4T2    760  APL_-_GMRL.APLEDCL.S.SP.092        1 LINE     72    4 PAGE UM   TIFFANY             MAY  05, 1975  17:39:07
0          THE SOURCE FOR *APLEDCL CONSISTS OF THIS COMPONENT, PLUS MAPLGET (595/9), MCARDGET (595/10), MCHSCAN (595/12),
           MCHMOVE (595/11), AND MAPLGOOF (595/13).
00595/093   APL - GMRL               MEMO 236        WF             S0724 'D3T5' FSNAME=APL_-_GMRL.USER'S_GUIDE.WF.93(1)         135
            D4T2    761  APL_-_GMRL.MEMO_236.WF.093         1 LINE    114    8 PAGE UM   TIFFANY             JULY 17, 1973  17:39.33
0          THIS IS COMPUTING CENTER MEMO 236 -- "GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE"
           ONLY PART OF CCMEMO 236 IS INCLUDED HERE SINCE THE BULK OF IT IS SIMPLY REPRODUCED FROM
           THE GENERAL MOTORS APL USER'S MANUAL (PUBLICATION GMR-1219 OF THE GENERAL MOTORS RESEARCH LAB).
1                                                                                               FRI AUG 02/96   16:11:27   Page  249
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
+         ______________ _____________________
00596       ZAP                                      SA           # (OBSOLETED BY 1019)                                             
            D3.1T1  455  ZAP..SA.1                          1 LINE     80   13 PAGE UM                       MAR. 06, 1974  22:30.58
00597       CHKVTOC                                               # (SEE COMP 682)                                                  
                                                                                    UM                                              
00598/001   DASDI                                    SA  G  DASD    FILE:DASDI.S                                                    
            D4T2    762  DASDI..SA.001                      1 LINE     80   16 PAGE UM   HELFFRICH           JULY 28, 1977  03:53:31
0          PROGRAM TO VAM2-FORMAT DASDI 3330 OR 7330 DISKS.  INPUT DESCRIBED IN SOURCE COMMENTS.
           COPIES COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:FILE.MACROS (482/36), COPY:SETPARM
           (653), AND *SYSMAC.  SEE COMP 682/5 FOR A WRITEUP.
0          Referenced by comments of: 682/5 
00598/002   DASDI                    370 OBJECT      OC  G          FILE:DASDI                                                      
            D4T2    763  DASDI.370_OBJECT.OC.002            1 LINE     80    5 PAGE UM   HELFFRICH           JULY 28, 1977  03:53:33
00598/003   DASDI                    360 OBJECT      OC  G          FILE:DASDI.360                                                  
            D4T2    764  DASDI.360_OBJECT.OC.003            1 LINE     80    5 PAGE UM   HELFFRICH           JULY 28, 1977  03:53:36
00599/001   CHONID                                   SA  G  CHON    FILE:CHONID(1,999)                                              
            D4T2    765  CHONID..SA.001                     1 LINE     80    4 PAGE UM   PIRKOLA             JULY 28, 1977  03:53:38
0          PROGRAM (NOT FOR GENERAL USE) TO CHANGE THE OWNERID (IN THE CATALOG) OF A PUBLIC FILE.
           USED BY SYSTEM PROGRAMMERS TO ASSIGN APPROPRIATE OWNERS TO PUBLIC FILES.
           IT TAKES INPUT IN THE FORM "*FILENAME USERID" AND STOPS WHEN AN END-OF-FILE IS ENTERED.
           ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/36).  SEE COMP 682/6 FOR A WRITEUP.
0          Referenced by comments of: 682/6 
00599/002   CHONID                                   OC  G          FILE:CHONID(1000)                                               
            D4T2    766  CHONID..OC.002                     1 LINE     80    1 PAGE UM   PIRKOLA             JULY 28, 1977  03:53:40
00600/001   SDS CLS                  CLSSOU          SA  G          W059:SDSCLSSOU                                                  
            D4T2    767  SDS_CLS.CLSSOU.SA.001              1 LINE     75  163 PAGE UM   SALISBURY           SEP. 16, 1977  11:33:28
0          SDS, THE SYMBOLIC DEBUGGING SYSTEM.
            
           600/1 AND 600/2 ARE THE SOURCE FOR THE CLS INTERFACE TO SDS.  600/1 COPIES
           *CNFGINFODSECT (654), COPY:GLOBALS (1026/4), AND SDSPSECT (600/13).  ASSEMBLE
           USING *SYSMAC, SDSMACROS (600/12), AND COPY:MTS.MACROS (344).
00600/002   SDS CLS                  UTSDSSOU        SA  G          W059:SDSUTILSOU                                                 
            D4T2    768  SDS_CLS.UTSDSSOU.SA.002            1 LINE     72   20 PAGE UM   SALISBURY           SEP. 16, 1977  11:34:14
0          COPIES SDSCONSTANT (600/15).
00600/003   SDS CLS                  CLS             OC  G          W059:SDSCLS                                                     
            D4T2    769  SDS_CLS.CLS.OC.003                 1 LINE     80   55 PAGE UM   SALISBURY           SEP. 16, 1977  11:34:17
0          OBJECT FOR 600/1 AND 600/2.
1                                                                                               FRI AUG 02/96   16:11:27   Page  250
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
+         ______________ _____________________
00600/004   SDS CLS                  CLI             SA  G          W059:SDSCLISOU                                                  
            D4T2    770  SDS_CLS.CLI.SA.004                 1 LINE     72   89 PAGE UM   SALISBURY           SEP. 16, 1977  11:34:29
0          THE SDS COMMAND LANGUAGE INTERPRETER.  COPIES SDSBT (600/14), SDSCONSTANT (600/15),
           SDSPSECT (600/13), AND COPY:GLOBALS (1026/4).  ASSEMBLE USING
           SDSMACROS (600/12), COPY:MTS.MACROS (344), AND *SYSMAC.
00600/005   SDS CLS                  CLI             OC  G          W059:SDSCLI                                                     
            D4T2    771  SDS_CLS.CLI.OC.005                 1 LINE     80   33 PAGE UM   SALISBURY           SEP. 16, 1977  11:34:48
00600/006   SDS CLS                  IOC             SA  G          W059:SDSIOCSOU                                                  
            D4T2    772  SDS_CLS.IOC.SA.006                 1 LINE     80   18 PAGE UM   SALISBURY           SEP. 16, 1977  11:34:55
0          THE SDS I/O CONTROL MODULE.  COPIES SDSPSECT (600/13), SDSCONSTANT
           (600/15), COPY:GLOBALS (1026/4), AND SDSBT (600/14).  ASSEMBLE USING
           SDSMACROS (600/12), COPY:MTS.MACROS (344), AND *SYSMAC.
00600/007   SDS CLS                  IOC             OC  G          W059:SDSIOC                                                     
            D4T2    773  SDS_CLS.IOC.OC.007                 1 LINE     80   13 PAGE UM   SALISBURY           SEP. 16, 1977  11:35:01
00600/008   SDS CLS                  SIMULATOR       SA  G          W059:SDSSIMLSOU                                                 
            D4T2    774  SDS_CLS.SIMULATOR.SA.008           1 LINE     70   30 PAGE UM   SALISBURY           SEP. 16, 1977  11:35:05
0          THE SDS INSTRUCTION SIMULATOR.  COPIES SDSPSECT (600/13) AND
           *CNFGINFODSECT (654).  ASSEMBLE USING SDSMACROS (600/12) AND
           COPY:MTS.MACROS (344).
00600/009   SDS CLS                  SIMULATOR       OC  G          W059:SDSSIML                                                    
            D4T2    775  SDS_CLS.SIMULATOR.OC.009           1 LINE     80   17 PAGE UM   SALISBURY           SEP. 16, 1977  11:35:19
00600/010   SDS CLS                  EDITOR          SA  G          W059:SDSEDTRSOU                                                 
            D4T2    776  SDS_CLS.EDITOR.SA.010              1 LINE     72   37 PAGE UM   SALISBURY           SEP. 16, 1977  11:35:26
0          THE SDS EDITOR.  COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13),
           AND COPY:GLOBALS (1026/4).  ASSEMBLE USING SDSMACROS (600/12), COPY:MTS.MACROS
           (344), AND *SYSMAC.
00600/011   SDS CLS                  EDITOR          OC  G          W059:SDSEDTR                                                    
            D4T2    777  SDS_CLS.EDITOR.OC.011              1 LINE     80   17 PAGE UM   SALISBURY           SEP. 16, 1977  11:35:35
00600/012   SDS CLS                  SDSMACROS       SM  G  SDSM    W059:SDSMACROS                                                  
            D4T2    778  SDS_CLS.SDSMACROS.SM.012           1 LINE     80   14 PAGE UM   SALISBURY           SEP. 16, 1977  11:35:40
0          SDS MACRO LIBRARY.
0          Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 
00600/013   SDS CLS                  SDSPSECT        SA  G          W059:SDSPSECT                                                   
            D4T2    779  SDS_CLS.SDSPSECT.SA.013            1 LINE     72   38 PAGE UM   SALISBURY           SEP. 16, 1977  11:35:45
0          COPY SECTION FOR SDS DSECTS.
0          Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 
1                                                                                               FRI AUG 02/96   16:11:27   Page  251
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
+         ______________ _____________________
00600/014   SDS CLS                  SDSBT           SA  G          W059:SDSBT                                                      
            D4T2    780  SDS_CLS.SDSBT.SA.014               1 LINE     70    3 PAGE UM   SALISBURY           SEP. 16, 1977  11:35:56
0          COPY SECTION FOR BRANCH TABLES.
0          Referenced by comments of: 600/4, 600/6, 600/10 
00600/015   SDS CLS                  SDSCONSTANT     SA  G          W059:SDSCONSTANT                                                
            D4T2    781  SDS_CLS.SDSCONSTANT.SA.015         1 LINE     68    1 PAGE UM   SALISBURY           SEP. 16, 1977  11:36:01
0          COPY SECTION FOR CONSTANTS.
0          Referenced by comments of: 600/2, 600/4, 600/6, 600/10 
00600/016   SDS CLS                  OBJECT          OE  G          *CLSSDS                                                         
            D4T2    782  SDS_CLS.OBJECT.OE.016              1 LINE    255   88 PAGE UM   SALISBURY           SEP. 16, 1977  11:36:02
0          THE SDS OBJECT IS LOADED INTO SHARED VM BY PISTLE AT IPL.
00600/017   SDS CLS                  TEST PROGRAM    C              W044:ASMSDSTEST                                                 
            D4T2    783  SDS_CLS.TEST_PROGRAM.C.017         1 LINE     80    1 PAGE UM   SALISBURY           JULY 28, 1977  03:54:48
0          SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAM (600/18).
00600/018   SDS CLS                  TEST PGM 1      SA             W044:SDSTESTSOU                                                 
            D4T2    784  SDS_CLS.TEST_PGM_1.SA.018          1 LINE     63    6 PAGE UM   SALISBURY           JULY 28, 1977  03:54:50
0          Referenced by comments of: 600/17 
00600/019   SDS CLS                  TEST PGM 1      OC             W044:SDSTEST                                                    
            D4T2    785  SDS_CLS.TEST_PGM_1.OC.019          1 LINE     80    8 PAGE UM   SALISBURY           JULY 28, 1977  03:54:52
00600/020   SDS CLS                  TEST PGM 2      SP             W044:PL1TESTSOU                                                 
            D4T2    786  SDS_CLS.TEST_PGM_2.SP.020          1 LINE     92    5 PAGE UM   SALISBURY           JULY 28, 1977  03:54:55
00600/021   SDS CLS                  TEST PGM 2      OC             W044:PL1TEST                                                    
            D4T2    787  SDS_CLS.TEST_PGM_2.OC.021          1 LINE     80   13 PAGE UM   SALISBURY           JULY 28, 1977  03:54:57
00601       SLT INSTRUCTION DIAGRAM                  P              S0724 'D3T5' FSNAME=SLT_INSTRUCTION_DIAGRAM..P.(1)           163
            D4T2    788  SLT_INSTRUCTION_DIAGRAM..P.        1 LINE     75    1 PAGE UM   ?                   AUG. 02, 1973  00:33.08
0          PRINTER DIAGRAM SHOWING OPERATION OF SYSTEM/360 SLT (SEARCH LIST) INSTRUCTION.
00602       NOT-RESEQUENCER                          SS             DWB:NONRESEQ                                                    
            D4T2    789  NOT-RESEQUENCER..SS.               1 LINE     63    2 PAGE UM   DWB                 JULY 28, 1977  03:55:16
0          PROGRAM TO PUT SEQUENCE ID ON MTS (OR ANYTHING ELSE) FOR A NEW MASTER WITHOUT CHANGING THE ID'S ON EXISTING
           CARDS.  UNLIKE EARLIER VERSIONS, THE SEQUENCE ID DOES NOT HAVE TO BE ALL NUMERIC.
            
           USAGE:  RUN UPDATE DECK AGAINST MASTER TO PRODUCE UPDATED SOURCE.  THEN RUN THIS PROGRAM FEEDING
                   THE UPDATE DECK IN ON UNIT 3 AND THE UPDATED SOURCE ON UNIT 4.
           OUTPUT:  ON UNIT 8, THE NEW SOURCE TAPE WITH NEW ID'S INSERTED, AND
                    ON UNIT 7 (SPUNCH IF *SPITBOL), THE NEW UPDATE DECK WITH THE NEW ID'S ON THE CARDS TO BE INSERTED.
            
1                                                                                               FRI AUG 02/96   16:11:27   Page  252
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          IF THIS PROGRAM CAN'T FIT THE CARDS TO BE INSERTED BETWEEN TWO EXISTING ID'S, IT WILL PRINT AN ERROR COMMENT
           ON UNIT 6 ALONG WITH THE PREVIOUS CARD, THE FOLLOWING CARD, AND THE NUMBER OF CARDS TO BE INSERTED.  IT THEN
           GOES AHEAD, BUT USES "********" FOR THE ID ON THE CARDS FOR THAT INSERTION.
            
           ONE GENERALLY RUNS THIS PROGRAM TWICE-- FIRST TO FIND ALL THE PLACES THAT DON'T FIT, AND THEN FUDGES
           THE UPDATE DECK SLIGHTLY SO AS TO MAKE THEM FIT, THEN THE FINAL RUN.
00603/001   UC3330                                   SA  G  UC33    MTA:UC3330(1,999)                                               
            D4T2    790  UC3330..SA.001                     1 LINE     80   22 PAGE UM   MTA                 JULY 28, 1977  03:55:18
0          UNIT CHECK ROUTINES FOR ITEL 7330 OR IBM 3330 DISKS ON EITHER A 2860 OR 2880 CHANNEL, IBM 2305 FHF, AND IBM 2301 DRUM.
           DOES NOT SUPPORT OTHER DASD DEVICES SUCH AS 2314 AND 2311.
           LOGS UNIT CHECK MESSAGES IN SUCH A WAY THAT THE COMMAND STAT PICK-UP PROGRAM (531/4) WILL WRITE THEM INTO A FILE.
           COPIES COPY:CMDAREADSECT (531/12).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 621/4, 655/2 
00603/002   UC3330                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00603/003   UC3330                   TEST PGM        SA  G  TSUC    S0219 FSAVE FSNAME=TESTUC                                       
            D4T2    791  UC3330.TEST_PGM.SA.003             1 LINE     80    7 PAGE UM   MTA                 OCT. 02, 1974  00:05.36
0          TEST PROGRAM TO 3330 UNIT CHECK ROUTINES.  TO USE, ASSEMBLE 603/1 WITH &TEST SETB 1.
00603/004   UC3330                   TEST PGM        OC  G        # (PART OF 603/3)                                                 
                                                                                    UM   MTA                                        
00604       PRNTCNTS                                              # (SEE COMP 540)                                                  
                                                                                    UM                                              
00605/001   TWAIT SUBR                               SA  G  TWAT    MTA:TIMESUBRS(1,199)                                            
            D4T2    792  TWAIT_SUBR..SA.001                 1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  04:02:04
0          USER CALLABLE SUBROUTINE TO WAIT FOR A SPECIFIED REAL TIME INTERVAL AND THEN RETURN.
0          Referenced by comments of: 606/1 
00605/002   TWAIT SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00606/001   TICALL SUBR                              SA  G  TICL    MTA:TIMESUBRS(200,299)                                          
            D4T2    793  TICALL_SUBR..SA.001                1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  04:02:05
0          SUBROUTINE TO PROVIDE AN INTERFACE TO THE MTS TIMER INTERRUPT SUBROUTINES (605) FROM FORTRAN PROGRAMS.
00606/002   TICALL SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00607/001   STIMER SUBR                              SA  G  STIM    MTA:TIMESUBRS(300)                                              
            D4T2    794  STIMER_SUBR..SA.001                1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  04:02:07
0          SUBROUTINE TO PROVIDE MTS SUPPORT FOR THE OS/360 STIMER AND TTIMER MACROS WHICH
           ARE AVAILABLE IN *SYSMAC.  SEE 545/27 IN FAKEOS FOR A TEST PROGRAM.
1                                                                                               FRI AUG 02/96   16:11:27   Page  253
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
+         ______________ _____________________
00607/002   STIMER SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00608/001  *MVC                                      SA  G  MVC     W032:MVCSOU4.0                                                  
            D4T2    795  MVC..SA.001                        1 LINE     80   38 PAGE UM   EMERY               JULY 28, 1977  04:02:09
0          RECORD REFORMATTING PROGRAM.
00608/002  *MVC                                      OC  G          *MVC                                                            
            D4T2    796  MVC..OC.002                        1 LINE     80    4 PAGE UM   EMERY               JULY 28, 1977  04:02:12
00609/001   7330 CCW SCANNER                         SA  G  CPSC    S0938 FSAVE2 LBLTYPE=VLO FSNAME=CPSCN.S(1)                      
            D4T2    797  7330_CCW_SCANNER..SA.001           1 LINE     80    5 PAGE UM   MTA                 FEB. 14, 1975  00:29:06
0          360/67 PROGRAM TO SCAN ITEL 7330 DISK CHANNEL PROGRAMS TO FIND RESTART ADDRESS FOR SOFTWARE COMMAND RETRY.
           CALLED ONLY IF THE SUPERVISOR (045) IS ASSEMBLED WITH &CRTY SET TO 1.
           COPIES COPY:CPSCNPAR (609/3).  ASSEMBLE USING *SYSMAC.
00609/002   7330 CCW SCANNER                         OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
0          360/67 ONLY -- I.E. NOT REQUIRED IF HARDWARE COMMAND RETRY IS AVAILABLE.
00609/003   7330 CCW SCANNER         COPY:CPSCNPAR   SA  G  CPSP    COPY:CPSCNPAR                                                   
            D4T2    798  7330_CCW_SCANNER.COPY:CPS.SA.003   1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  04:02:27
0          COPY SECTION FOR ITEL 7330 CCW SCANNER PARAMETER AND SCRATCH AREAS.
0          Referenced by comments of: 45/2, 45/4, 609/1 
00610/001   FILE SAVE TAPE COPY                      SA             RSTR:FSTAPECOPY(1001)                                           
            D4T2    799  FILE_SAVE_TAPE_COPY..SA.001        1 LINE     72   15 PAGE UM   HELFFRICH           AUG. 14, 1977  21:58:27
0          PROGRAM TO MAKE COPIES OF FILESAVE TAPES (AS PRODUCED BY 067 OR 716).  WILL
           OPTIONALLY MAKING OF LISTING OF THE FILES ON THE TAPE (WITH OR WITHOUT COPYING).
           DOES NOT REQUIRE THAT OUTPUT TAPE BE PHYSICALLY LONGER THAN INPUT TAPE.  SEE
           THE OPERATORS MANUAL (592) FOR USAGE DIRECTIONS.  ASSEMBLE WITH PAR=SIZE=32
           USING THE EDITOR MACROS (648/11) AND *SYSMAC.
00610/002   FILE SAVE TAPE COPY                      OC             RSTR:FSTAPECOPY(1,999)                                          
            D4T2    800  FILE_SAVE_TAPE_COPY..OC.002        1 LINE     80   17 PAGE UM   HELFFRICH           AUG. 14, 1977  21:58:37
00610/003   FILE SAVE TAPE COPY      *FSC            C              *FSC                                                            
            D4T2    801  FILE_SAVE_TAPE_COPY.*FSC.C.003     1 LINE     67    1 PAGE UM   HELFFRICH           JULY 28, 1977  20:58:15
0          COMMAND FILE TO START THE FILESAVE TAPE COPY PROGRAM.  INVOKED BY ENTERING
           "MTS *FSC" ON THE OPERATOR'S CONSOLE.
00611/001   LOCKSTAT                                 SA  G  LKST    S0724 'D3T5' FSNAME=LOCKSTAT..SA.1(1)                        179
            D4T2    802  LOCKSTAT..SA.001                   1 LINE     80    6 PAGE UM   MTA                 AUG. 02, 1973  00:36.13
0          PROGRAM TO PRINT LOCK BYTE COUNTS AND TIMES FROM THE SUPERVISOR (045).  THE SUPERVISOR MUST BE REASSEMBLED WITH
           &NOLOKC SET TO 0.  COPIES COPY:PSA (162) AND COPY:CHACST (577/28).  ASSEMBLE USING *SYSMAC.
           NOTE:  THIS PROGRAM HAS EQUS FOR THE LOCATION OF THE LOCK BYTE COUNTS IN THE PSA.
1                                                                                               FRI AUG 02/96   16:11:27   Page  254
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
+         ______________ _____________________
00611/002   LOCKSTAT                                 OC  G          S0724 'D3T5' FSNAME=LOCKSTAT..OC.2(1)                        180
            D4T2    803  LOCKSTAT..OC.002                   1 LINE     80    3 PAGE UM   MTA                 AUG. 02, 1973  00:36.15
00612/001   LETGO SUBR                               SA  G  LETG    S0221 FSAVE FSNAME=LETGO                                        
            D4T2    804  LETGO_SUBR..SA.001                 1 LINE     80    4 PAGE UM   WSG                 APR. 03, 1975  14:25:36
0          FORTRAN CALLABLE SUBROUTINE TO UNLOCK AND RELOCK FILES AT SPECIFIED INTERVALS OF REAL TIME.
           SOURCE IN LINES (1,999).
00612/002   LETGO SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
00613/001   LONGREAD                                 SA  S  LNGR    S0724 'D3T5' FSNAME=LONGREAD..SA.1(1)                        182
            D4T2    805  LONGREAD..SA.001                   1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:36.19
0          PROGRAM TO DEBLOCK MAGNETIC TAPE BLOCKS WHICH ARE UP TO 65534 BYTES LONG USING MTS MAG TAPE DSR.  NOT FOR GENERAL
           USE SINCE IT REQUIRES THAT THE SIZE PARAMETER IN THE TAPERTN DSECT BE PATCHED.  SEE COMMENTS IN LISTING.
00613/002   LONGREAD                                 OC  S          S0724 'D3T5' FSNAME=LONGREAD..OC.2(1)                        183
            D4T2    806  LONGREAD..OC.002                   1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:36.21
00614       START JOB                                             # (OBSOLETED BY $SY COMMAND)                                      
            D3T5    184  START_JOB..SA.1                    1 LINE     80    1 PAGE UM                       AUG. 02, 1973  00:36.23
00615/001   PLOT SYSTEM              MACROS          SM  G          W030:CCMACROS                                                   
            D4T2    807  PLOT_SYSTEM.MACROS.SM.001          1 LINE     80    3 PAGE UM   LIFT                JULY 28, 1977  21:01:47
0          THE UM MTS CALCOMP PLOT ROUTINES.
            
           SEVERAL OF THE SOURCE SUB-COMPONENTS OF THE PLOT SYSTEM CONSIST OF MORE THAN ONE ASSEMBLY, SO ASSEMBLE WITH PAR=B.
            
           615/1 CONTAINS PLOT SYSTEM MACRO LIBRARY USED TO ASSEMBLE SOME OF THE ROUTINES.
0          Referenced by comments of: 615/2, 615/4 
00615/002   PLOT SYSTEM              PSYMB           SA  B          W030:PSYMB                                                      
            D4T2    808  PLOT_SYSTEM.PSYMB.SA.002           1 LINE     80   15 PAGE UM   LIFT                JULY 28, 1977  21:01:49
0          SUBROUTINES IN *PLOTSYS.  ALSO USED IN *CPCORE.  ASSEMBLE USING PLOT MACROS (615/1) AND *SYSMAC.
00615/003   PLOT SYSTEM              PLTBGN          SA  G  PBGN    W030:PLTBGN                                                     
            D4T2    809  PLOT_SYSTEM.PLTBGN.SA.003          1 LINE     80   29 PAGE UM   LIFT                JULY 28, 1977  21:01:51
0          SUBROUTINE IN *PLOTSYS.  ASSEMBLE USING *SYSMAC.
00615/004   PLOT SYSTEM              ASM             SA  G  CASM    W030:CCASM                                                      
            D4T2    810  PLOT_SYSTEM.ASM.SA.004             1 LINE     80   39 PAGE UM   LIFT                JULY 28, 1977  21:01:58
0          SUBROUTINES IN *PLOTSYS.  ASSEMBLE USING PLOT MACROS (615/1) AND *SYSMAC.
00615/005   PLOT SYSTEM              FORT            SF  G  CFOR    W030:CCFORT                                                     
            D4T2    811  PLOT_SYSTEM.FORT.SF.005            1 LINE     80   32 PAGE UM   LIFT                JULY 28, 1977  21:02:00
0          SUBROUTINES IN *PLOTSYS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  255
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
+         ______________ _____________________
00615/006   PLOT SYSTEM              PSYM            SA  G  PSYM    W030:PSYM                                                       
            D4T2    812  PLOT_SYSTEM.PSYM.SA.006            1 LINE     80   26 PAGE UM   LIFT                JULY 28, 1977  21:02:03
0          A NEW VARIETY OF PSYMB (BUT CALLED PSYM) WHICH USES 256 CHARACTER ALPHABETS,
           ALLOWS SLANTING OF LETTERS, AND CHANGING PROPORTIONS AND SPACING.  SEE THE
           INSTALLATION INSTRUCTIONS (615/24) FOR AN EXPLANATION OF THE &WHAT ASSEMBLY
           PARAMETER.  COPIES CBDSECT (615/8).
0          Referenced by comments of: 615/7, 615/8, 615/27 
00615/007   PLOT SYSTEM              PALPHA          SA  G  PSAL    W030:PALPHA                                                     
            D4T2    813  PLOT_SYSTEM.PALPHA.SA.007          1 LINE     80   19 PAGE UM   LIFT                JULY 28, 1977  21:02:08
0          THIS ROUTINE IS USED WITH PSYM (615/6).  THE STANDARD ALPHABET ACTUALLY RESIDES
           HERE.  HOWEVER, PALPHA CAN OBTAIN ALTERNATE ALPHABETS FROM ETC:PLOTALPHA (615/9)
           OR FROM A USER FILE.  COPIES CBDSECT (615/8). 
0          Referenced by comments of: 615/8, 615/9, 615/27 
00615/008   PLOT SYSTEM              CBDSECT         SA  G  CBDS    W030:CBDSECT                                                    
            D4T2    814  PLOT_SYSTEM.CBDSECT.SA.008         1 LINE     80    2 PAGE UM   LIFT                JULY 28, 1977  21:02:10
0          DSECT COPIED BY PSYM (615/6) AND PALPHA (615/7) WHICH DESCRIBES THE STRUCTURE
           OF CHARACTER SETS (ALPHABETS).
0          Referenced by comments of: 615/6, 615/7 
00615/009   PLOT SYSTEM              ETC:PLOTALPHA   D              ETC:PLOTALPHA                                                   
            D4T2    815  PLOT_SYSTEM.ETC:PLOTALPHA.D.009    1 LINE  22530   56 PAGE UM   LIFT                JULY 28, 1977  21:02:13
0          A DATA FILE FOR STANDARD SYSTEM CHARACTER SETS (ALPHABETS).  THE FORMAT OF THE
           FILE IS DESCRIBED IN THE SOURCE FOR PALPHA (615/7); THE FORMAT OF THE CHARACTER
           SETS IS DESCRIBED IN THE PSYM WRITEUP (615/26).
0          Referenced by comments of: 615/7 
00615/010   PLOT SYSTEM              *PLOTSYS        OL  G          W030:NEW*PLOTSYS                                                
            D4T2    816  PLOT_SYSTEM.*PLOTSYS.OL.010        1 SEQ    5716   34 PAGE UM   LIFT                JULY 28, 1977  21:02:16
0          OBJECT LIBRARY GENERATED FROM 615/2 + 615/3 + 615/4 + 615/5 + 615/6 + 615/7.
00615/011   PLOT SYSTEM              PLOTTER         SA  G  PLTR    W030:PLOTTER                                                    
            D4T2    817  PLOT_SYSTEM.PLOTTER.SA.011         1 LINE     80   37 PAGE UM   LIFT                JULY 28, 1977  21:02:19
0          PLOTTER AND ZIGZAG ROUTINES USED TO READ AND TRANSLATE PDF'S FOR *CCQUEUE (615/13)
           AND SYS:CCP (615/15).  SEE THE INSTALLATION INSTRUCTIONS (615/24) FOR AN EXPLANATION OF
           THE &WHAT ASSEMBLY PARAMETER WHICH CONTROLS THE PRODUCTION OF THE TWO VERSIONS (*CCQUEUE AND *CCP).
00615/012   PLOT SYSTEM              CCQBUF          SA  G  QBUF    W030:CCQBUF                                                     
            D4T2    818  PLOT_SYSTEM.CCQBUF.SA.012          1 LINE     80    1 PAGE UM   LIFT                JULY 28, 1977  21:02:22
0          COPY SECTION FOR THE FORMAT OF QUEUE RECORDS IN *CCPFILE.  USED BY *CCQUEUE AND *CCP.
0          Referenced by comments of: 615/13, 615/15 
1                                                                                               FRI AUG 02/96   16:11:27   Page  256
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
+         ______________ _____________________
00615/013   PLOT SYSTEM              *CCQUEUE        SA  G  CCQ     W030:CCQ                                                        
            D4T2    819  PLOT_SYSTEM.*CCQUEUE.SA.013        1 LINE     80   39 PAGE UM   LIFT                JULY 28, 1977  21:02:24
0          MAIN PROGRAM FOR *CCQUEUE, AND SUBROUTINES CCQCNCL AND PLOTCOST.
           COPIES COPY:RATEVEC (651/2), COPY:GLOBALS (1026/4), COPY:LLMPSEQU (087), AND
           CCQBUF (615/12).  ASSEMBLE USING *SYSMAC AND COPY:MTS.MACROS (344).
0          Referenced by comments of: 615/11 
00615/014   PLOT SYSTEM              *CCQUEUE        OE  G          W030:NEW*CCQUEUE                                                
            D4T2    820  PLOT_SYSTEM.*CCQUEUE.OE.014        1 LINE   6030    7 PAGE UM   LIFT                JULY 28, 1977  21:02:30
0          PROGRAM TO QUEUE USERS PLOTS FOR POST-PROCESSING BY *CCP.  ADDS A LINE TO *CCPFILE
           (NOT DISTRIBUTED) INDICATING THE PLOT TO BE PROCESSED.  OBJECT FROM 615/13 +
           615/11 + 615/6 + 615/7.
00615/015   PLOT SYSTEM              SYS:CCP         SA  G  CCP     W030:CCP                                                        
            D4T2    821  PLOT_SYSTEM.SYS:CCP.SA.015         1 LINE     80   31 PAGE UM   LIFT                JULY 28, 1977  21:02:33
0          MAIN PROGRAM FOR *CCP PLUS SUBROUTINE TAPECON.  COPIES CCQBUF (615/12) AND
           COPY:GLOBALS (1026/4).
0          Referenced by comments of: 615/11 
00615/016   PLOT SYSTEM              SYS:CCP         OE  G          W030:NEW*CCP                                                    
            D4T2    822  PLOT_SYSTEM.SYS:CCP.OE.016         1 LINE   4992    7 PAGE UM   LIFT                JULY 28, 1977  21:02:39
0          POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/17) USED BY THE SYSTEM OPERATOR
           TO GENERATE PLOT TAPES.  CONSISTS OF OBJECT FROM 615/15 + 615/11 + 615/6 + 615/7.
0          Referenced by comments of: 615/17 
00615/017   PLOT SYSTEM              *CCP            C              *CCP                                                            
            D4T2    823  PLOT_SYSTEM.*CCP.C.017             1 LINE     10    1 PAGE UM   LIFT                JULY 28, 1977  21:02:41
0          COMMAND FILE INVOKED BY ENTERING "MTS *CCP" ON OPERATOR'S CONSOLE.  USED BY THE
           SYSTEM OPERATOR TO GENERATE THE PLOT TAPES.  RUNS THE SYS:CCP PROGRAM (615/16).
0          Referenced by comments of: 615/16 
00615/018   PLOT SYSTEM              PLOTCON         SA  G  PLT     W030:PLOTCON                                                    
            D4T2    824  PLOT_SYSTEM.PLOTCON.SA.018         1 LINE     80   25 PAGE UM   LIFT                JULY 28, 1977  21:02:43
0          PROGRAM USED BY THE OPERATOR TO PLOT THE QUEUED PLOTS ON THE UM ONLINE
           936 PLOTTER.  DOES NOT TRANSLATE PDF'S  -- JUST COPIES PLOTS FROM THE
           PLOT TAPE (VIA A FILE) TO THE PLOTTER.  SEE THE WRITEUP IN THE OPERATOR'S
           MANUAL.
00615/019   PLOT SYSTEM              PLOTCON         OE  G          SYS:PLT                                                         
            D4T2    825  PLOT_SYSTEM.PLOTCON.OE.019         1 LINE   2970    3 PAGE UM   LIFT                JULY 28, 1977  21:02:46
1                                                                                               FRI AUG 02/96   16:11:27   Page  257
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
+         ______________ _____________________
00615/020   PLOT SYSTEM              CCPOST          SA  G          S0686 PDSBAK POSN=CC.CCPOST                                  5  
            D4T2    826  PLOT_SYSTEM.CCPOST.SA.020          1 SEQ      80    6 PAGE UM   LIFT                JULY 28, 1977  21:02:58
0          SOURCE FOR *CCPOST FOR THE 780/763 PLOTTER.
00615/021   PLOT SYSTEM              CPCORE          SA  G          S0686 PDSBAK POSN=CC.CPCORE                                  6  
            D4T2    827  PLOT_SYSTEM.CPCORE.SA.021          1 SEQ      80   36 PAGE UM   LIFT                JULY 28, 1977  21:03:00
0          THE REST OF THE SOURCE FOR *CCPOST.
00615/022   PLOT SYSTEM              PSYMCHK         SF  G          S0686 PDSBAK POSN=CC.PSYMCHK                                    
            D4T2    828  PLOT_SYSTEM.PSYMCHK.SF.022         1 SEQ      80    2 PAGE UM   LIFT                JULY 28, 1977  21:03:03
0          SYMBOL STRING CHECK FOR PSYM LINE PROCESSING AND GENERATION.
00615/023   PLOT SYSTEM              *CCPOST         OE  G          *CCPOST                                                         
            D4T2    829  PLOT_SYSTEM.*CCPOST.OE.023         1 SEQ    4666    4 PAGE UM   LIFT                JULY 28, 1977  21:03:06
0          PROGRAM TO ALLOW USERS TO POST-PROCESS THEIR OWN PLOTS.  *CCPOST
           WRITES A CALCOMP 780/763 PLOTTER TAPE, NOT A FILE.
           OBJECT CONSISTS OF OBJECT FROM 615/20 + 615/21 + 615/2 + 615/22.
00615/024   PLOT SYSTEM              INSTALLATION    P              W030:PLOTINFO                                                   
            D4T2    830  PLOT_SYSTEM.INSTALLATION.P.024     1 LINE     71    3 PAGE UM   LIFT                JULY 28, 1977  21:03:06
0          INSTRUCTIONS FOR PUTTING THE PLOT SYSTEM TOGETHER.
0          Referenced by comments of: 615/6, 615/11 
00615/025   PLOT SYSTEM              MEMO 300        WF             S0622 D3MISC FSNAME=M300PLOTSYS(1)                           89 
            D4T2    831  PLOT_SYSTEM.MEMO_300.WF.025        1 LINE     73    1 PAGE UM   LIFT                JAN. 24, 1977  20:45:30
0          THIS IS COMPUTING CENTER MEMO 300 -- "ADDITION TO *PLOTSYS: PENCHG SUBROUTINE"
00615/026   PLOT SYSTEM              PSYM WRITEUP    WT             W098:PSYM                                                       
            D4T2    832  PLOT_SYSTEM.PSYM_WRITEUP.WT.026    1 LINE    140    5 PAGE UM   LIFT                JULY 28, 1977  21:04:32
0          WRITEUP FOR PSYM SUBROUTINE.  EVENTUALLY, THIS WILL APPEAR IN VOLUME 11.
           PLOTTED FIGURES AS GENERATED BY 615/27 MUST BE ADDED.
0          Referenced by comments of: 615/9, 615/27 
00615/027   PLOT SYSTEM              PSYM FIGURES    SG  G          W030:PLOTFIGS                                                   
            D4T2    833  PLOT_SYSTEM.PSYM_FIGURES.SG.027    1 LINE    147    7 PAGE UM   LIFT                JULY 28, 1977  21:04:32
0          GOM PROGRAM TO GENERATE A PDF FOR THE FIGURES FOR THE PSYM WRITEUP (615/26).
           CALLS PSYM (615/6) AND PALPHA (615/7).
00615/028   PLOT SYSTEM              *PDSTOMNET      SA  G          S0981 W114 'W114SAVE' FSNAME=PDSTOMNET.S                        
            D4T2    834  PLOT_SYSTEM.*PDSTOMNET.SA.028      1 LINE     76    8 PAGE UM   GOODRICH            JUNE 12, 1977  21:56:34
0          THIS IS A UTILITY TO CONVERT A PLOT DESCRIPTION SYSTEM (PDS) PLOT FILE TO A
           PLOT FILE IN MERIT NETWORK STANDARD FORM.
1                                                                                               FRI AUG 02/96   16:11:27   Page  258
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
+         ______________ _____________________
00615/029   PLOT SYSTEM              *PDSTOMNET      OC  G          *PDSTOMNET                                                      
            D4T2    835  PLOT_SYSTEM.*PDSTOMNET.OC.029      1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  21:06:44
0          ENDS WITH "$CONTINUE WITH *PLOTSYS"
00615/030   PLOT SYSTEM              *MNETTOPDS      SA  G          S0981 W114 'W114SAVE' FSNAME=MNETTOPDS.S                        
            D4T2    836  PLOT_SYSTEM.*MNETTOPDS.SA.030      1 LINE     89    5 PAGE UM   GOODRICH            FEB. 15, 1976  18:12:38
0          THIS IS A UTILITY TO CONVERT A MERIT NETWORK STANDARD PLOT FILE TO A PLOT DESCRIPTION (PDS)
           PLOT FILE.
00615/031   PLOT SYSTEM              *MNETTOPDS      OC  G          *MNETTOPDS                                                      
            D4T2    837  PLOT_SYSTEM.*MNETTOPDS.OC.031      1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  21:07:02
0          ENDS WITH "$CONTINUE WITH *PLOTSYS"
00616/001   TERM USAGE STATISTICS    DCSTAT          SA  G  DCST    WSG:DCSTAT(1,999)                                               
            D4T2    838  TERM_USAGE_STATISTICS.DCS.SA.001   1 LINE     80   17 PAGE UM   WSG                 JULY 28, 1977  21:07:02
0          PROGRAM TO COMPUTE SYSTEM USAGE BY VARIOUS TERMINAL TYPES, CLASSES, AND SPEEDS.  IT READS
           *STATISTICS DATA AND PRINTS THE TOTAL USAGE (ELAPSED TIME, CPU TIME, CPU VMI, AND WAIT VMI)
           FOR EACH TERMINAL TYPE AND SUMMARY LINES FOR CLASSES OF TERMINALS.  THE DISTRIBUTED VERSION
           IS SET UP FOR THE UM TERMINAL I/O CONFIGURATION (3 DATA CONCENTRATORS, MEMOREX 1270 (2703),
           MERIT, 3270, ETC.).  THE FILE CONTAINING THE STATISTICS DATA MAY BE SPECIFIED IN THE PAR=
           FIELD OR A TAPE MAY BE SPECIFIED BY GIVING "PAR=TAPE-VOL" WHERE VOL IS THE VOLUME NAME OF
           THE TAPE TO BE MOUNTED ("PAR=TAPE" MEANS THE TAPE IS UNLABELED).  IF NO PAR= IS GIVEN,
           THE DATA IS READ FROM *STATISTICS.  COPIES COPY:STATDSECT (620).
00616/002   TERM USAGE STATISTICS    DCSTAT          OC  G          W108:DCSTAT                                                     
            D4T2    839  TERM_USAGE_STATISTICS.DCS.OC.002   1 LINE     80    4 PAGE UM   WSG                 JULY 28, 1977  21:07:05
00617/001   USAGE STATISTICS                         SA  G  STAT    WSG:STAT(1,999)                                                 
            D4T2    840  USAGE_STATISTICS..SA.001           1 LINE     80   10 PAGE UM   WSG                 JULY 28, 1977  21:07:07
0          PROGRAM TO PRINT SYSTEM USAGE FOR SPECIFIED USER ID'S, ANSWERBACKS, AND MASTER SOURCE DEVICE NAMES.
           FOR EACH RECORD FOUND, THE USER ID, PROJECT NUMBER, SIGNON AND OFF TIMES, DATE, ANSWERBACK, ELAPSED
           TIME, AND MERIT CONNECT TIME ARE PRINTED ON SPRINT AND THE TOTAL ELAPSED TIME FOR ALL JOBS FOUND IS
           PRINTED ON SERCOM.  INPUT COMMANDS ARE READ FROM GUSER IN RESPONSE TO THE PROMPT "READY:" ON SERCOM.
           THE FOLLOWING COMMANDS ARE ACCEPTED:
            
               DATE MM-DD MM-DD    SPECIFY DATE RANGE FOR SUBSEQUENT SEARCHES.
               TIME HH:MM HH:MM    SPECIFY TIME RANGE FOR SUBSEQUENT SEARCHES.
               U USERID            SCAN FOR ALL RUNS FOR THIS USERID.
               D NAME              SCAN FOR ALL RUNS FROM THIS MSOURCE DEVICE.
               A ANSWERBACK        SCAN FOR ALL RUNS WITH THIS ANSWERBACK CODE.
               N                   SCAN FOR ALL RUNS USING MERIT OUTBOUND CONNECTIONS.
            
           NOTE:  THE CHARACTER "#" IS USED AS A FILL CHARACTER FOR THE MATCHING DONE BY THE U, D, AND A
           COMMANDS.  FOR EXAMPLE "D LA##" WILL FIND ALL JOBS ON ANY "LA" (1270) LINE.  THE FILE FROM WHICH
           THE INPUT STATISTICS DATA IS READ MAY BE SPECIFIED IN THE PAR FIELD OR A TAPE MAY BE SPECIFIED
           BY GIVING "PAR=TAPE-VOL" WHERE VOL IS THE VOLUME NAME OF THE TAPE TO BE MOUNTED ("PAR=TAPE" MEANS
           THE TAPE IS UNLABELED).  IF NO PAR IS GIVEN, THE DATA IS READ FROM *STATISTICS.
           COPIES COPY:STATDSECT (620).
1                                                                                               FRI AUG 02/96   16:11:27   Page  259
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
+         ______________ _____________________
00617/002   USAGE STATISTICS                         OC  G          W108:STAT                                                       
            D4T2    841  USAGE_STATISTICS..OC.002           1 LINE     80    3 PAGE UM   WSG                 JULY 28, 1977  21:07:10
00618/001   BUFSTAT                                  SA  G  BUFS    WSG:BUFSTAT(1,999)                                              
            D4T2    842  BUFSTAT..SA.001                    1 LINE     80    4 PAGE UM   WSG                 JULY 28, 1977  21:07:12
0          PROGRAM TO PRINT WHICH JOBS ARE USING WHICH LOW-CORE TERMINAL BUFFERS, HOW MANY ARE NOT
           BEING USED, AND APPROXIMATELY HOW MANY MORE ARE REQUIRED WHEN THEY ARE ALL IN USE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 9/1 
00618/002   BUFSTAT                                  OC  G          WSG:BUFSTAT(1000)                                               
            D4T2    843  BUFSTAT..OC.002                    1 LINE     80    1 PAGE UM   WSG                 JULY 28, 1977  21:07:15
00619/001  *ASMT                     *ASMTSYSMAC     SM  O  SYSM    NEW:ASMTSYSMAC                                                  
            D4T2    844  ASMT.*ASMTSYSMAC.SM.001            1 LINE     80  116 PAGE UM   OGDEN               SEP. 16, 1977  11:37:42
0          THE IBM TSS/360 ASSEMBLER MODIFIED TO RUN IN MTS.
            
           *ASMTSYSMAC IS THE ASMT VERSION OF *SYSMAC; IT IS FUNCTIONALLY EQUIVALENT
           TO *SYSMAC EXCEPT FOR THE MSG AND KEYWORD MACROS, WHICH DO NOT WORK CORRECTLY,
           BUT DO PRODUCE MNOTES INDICATING THAT THEY DON'T WORK (YET).
00619/002  *ASMT                     MACROS          SM  G  MAC     S0653 'ASMT' FSNAME=ASMTMACROS                                  
            D4T2    845  ASMT.MACROS.SM.002                 1 LINE     80   75 PAGE UM   OGDEN               JUNE 17, 1976  22:40:31
0          MACRO LIBRARY USED TO ASSEMBLE COMPS 619/3 THROUGH 619/23.  CONTAINS DSECTS, PSECTS, AND OTHER TID BITS.
0          Referenced by comments of: 619/3 
00619/003  *ASMT                     PHASE 1.1       SA  S  A1      S0653 'ASMT' FSNAME=CEVA1.S                                     
            D4T2    846  ASMT.PHASE_1.1.SA.003              1 LINE     80   45 PAGE UM   OGDEN               MAR. 02, 1976  00:11:50
0          COMPS 619/3 THROUGH 619/23 SHOULD ALL BE ASSEMBLED USING THE ASMTMACROS MACRO LIBRARY (619/2) AND *SYSMAC.
00619/004  *ASMT                     PHASE 1.2       SA  S  A2      S0653 'ASMT' FSNAME=CEVA2.S                                     
            D4T2    847  ASMT.PHASE_1.2.SA.004              1 LINE     80   52 PAGE UM   OGDEN               JAN. 15, 1975  21:41:40
00619/005  *ASMT                     PHASE 1.3       SA  S  A3      S0653 'ASMT' FSNAME=CEVA3.S                                     
            D4T2    848  ASMT.PHASE_1.3.SA.005              1 LINE     80   50 PAGE UM   OGDEN               JAN. 15, 1975  21:41:45
00619/006  *ASMT                     PHASE 1.4       SA  S  A4      S0653 'ASMT' FSNAME=CEVA4.S                                     
            D4T2    849  ASMT.PHASE_1.4.SA.006              1 LINE     80   42 PAGE UM   OGDEN               JAN. 15, 1975  21:41:50
00619/007  *ASMT                     PHASE 1.5       SA  S  A5      S0653 'ASMT' FSNAME=CEVA5.S                                     
            D4T2    850  ASMT.PHASE_1.5.SA.007              1 LINE     80   51 PAGE UM   OGDEN               JAN. 15, 1975  21:41:53
00619/008  *ASMT                     PHASE 1.6       SA  S  A6      S0653 'ASMT' FSNAME=CEVA6.S                                     
            D4T2    851  ASMT.PHASE_1.6.SA.008              1 LINE     80   48 PAGE UM   OGDEN               JAN. 15, 1975  21:41:59
1                                                                                               FRI AUG 02/96   16:11:27   Page  260
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
+         ______________ _____________________
00619/009  *ASMT                     PHASE 1.7       SA  S  A7      S0653 'ASMT' FSNAME=CEVA7.S                                     
            D4T2    852  ASMT.PHASE_1.7.SA.009              1 LINE     80   41 PAGE UM   OGDEN               JAN. 15, 1975  21:42:03
00619/010  *ASMT                     PHASE 1.8       SA  S  A8      S0653 'ASMT' FSNAME=CEVA8.S                                     
            D4T2    853  ASMT.PHASE_1.8.SA.010              1 LINE     80   19 PAGE UM   OGDEN               JAN. 15, 1975  21:42:07
00619/011  *ASMT                     PHASE 1.9       SA  S  A9      S0653 'ASMT' FSNAME=CEVA9.S                                     
            D4T2    854  ASMT.PHASE_1.9.SA.011              1 LINE     80   10 PAGE UM   OGDEN               JAN. 15, 1975  21:42:09
00619/012  *ASMT                     PHASE 2.1       SA  S  B1      S0653 'ASMT' FSNAME=CEVB1.S                                     
            D4T2    855  ASMT.PHASE_2.1.SA.012              1 LINE     80   30 PAGE UM   OGDEN               JAN. 15, 1975  21:42:11
00619/013  *ASMT                     PHASE 2.2       SA  S  C1      S0653 'ASMT' FSNAME=CEVC1.S                                     
            D4T2    856  ASMT.PHASE_2.2.SA.013              1 LINE     80   42 PAGE UM   OGDEN               JAN. 15, 1975  21:42:14
00619/014  *ASMT                     PHASE 2.3       SA  S  D1      S0653 'ASMT' FSNAME=CEVD1.S                                     
            D4T2    857  ASMT.PHASE_2.3.SA.014              1 LINE     80   20 PAGE UM   OGDEN               FEB. 11, 1975  01:57:51
00619/015  *ASMT                     PHAS1 3.1       SA  S  E1      S0653 'ASMT' FSNAME=CEVE1.S                                     
            D4T2    858  ASMT.PHAS1_3.1.SA.015              1 LINE     80   65 PAGE UM   OGDEN               MAR. 10, 1976  17:14:58
00619/016  *ASMT                     PHASE 3.2       SA  S  E2      S0653 'ASMT' FSNAME=CEVE2.S                                     
            D4T2    859  ASMT.PHASE_3.2.SA.016              1 LINE     80   65 PAGE UM   OGDEN               FEB. 13, 1976  03:55:40
0          CHANGED TO PRINT LOCATION COUNTER ON MACRO CALLS.  REMOVE BAS.
00619/017  *ASMT                     PHASE 4         SA  S  F1      S0653 'ASMT' FSNAME=CEVF1.S                                     
            D4T2    860  ASMT.PHASE_4.SA.017                1 LINE     80   59 PAGE UM   OGDEN               JAN. 15, 1975  21:42:34
00619/018  *ASMT                     ASMTGO          SA  G  GO      S0653 'ASMT' FSNAME=ASMTGO.S                                    
            D4T2    861  ASMT.ASMTGO.SA.018                 1 LINE     80    4 PAGE UM   OGDEN               JAN. 15, 1975  21:41:15
00619/019  *ASMT                     ASMTDEFS        SA     DEFS    S0653 'ASMT' FSNAME=ASMTDEFS.S                                  
            D4T2    862  ASMT.ASMTDEFS.SA.019               1 LINE     80    4 PAGE UM   OGDEN               JAN. 15, 1975  21:41:12
0          ASMT LOW-CORE SYMBOL TABLE.
00619/020  *ASMT                     CEVAR           SA  S  AR      S0653 'ASMT' FSNAME=CEVAR.S                                     
            D4T2    863  ASMT.CEVAR.SA.020                  1 LINE     80    8 PAGE UM   OGDEN               JAN. 15, 1975  21:41:34
0          ASMT PSECTS.  ASSEMBLE WITH PAR=BATCH.
00619/021  *ASMT                     LPC             SA  O  LPC     S0653 'ASMT' FSNAME=ASMTLPC.S                                   
            D4T2    864  ASMT.LPC.SA.021                    1 LINE     80   20 PAGE UM   OGDEN               JUNE 01, 1975  23:30:22
0          ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT).
            
           CHANGED TO USE 'GDDEFLT' BIT IN GDINFO, REMOVE BAS, BUGS FIXED.
00619/022  *ASMT                     OBJ PRODUCER    SA  O  DECK    S0653 'ASMT' FSNAME=DECK.S                                      
            D4T2    865  ASMT.OBJ_PRODUCER.SA.022           1 LINE     80   28 PAGE UM   OGDEN               FEB. 13, 1976  03:55:47
0          PROGRAM TO CONVERT TSS OBJECT TO MTS FORMAT OBJECT DECK.
1                                                                                               FRI AUG 02/96   16:11:27   Page  261
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
+         ______________ _____________________
00619/023  *ASMT                     CEVML           SA  O  ML      S0653 'ASMT' FSNAME=CEVML.S                                     
            D4T2    866  ASMT.CEVML.SA.023                  1 LINE     80    6 PAGE UM   OGDEN               JAN. 15, 1975  21:42:41
0          MACRO AND COPY LIBRARY RETRIEVAL.
00619/024  *ASMT                     SHARED OBJECT   OE  O          SEG2:ASMTDEFS                                                   
            D4T2    867  ASMT.SHARED_OBJECT.OE.024          1 LINE    255   92 PAGE UM   OGDEN               JULY 28, 1977  21:13:41
0          SHARED (RE-ENTRANT) PART OF ASSEMBLER.  LOADED INTO SHARED VM BY PISTLE.
00619/025  *ASMT                     *ASMT           OE  O          *ASMT                                                           
            D4T2    868  ASMT.*ASMT.OE.025                  1 SEQ    4096    9 PAGE UM   OGDEN               JULY 28, 1977  21:13:47
0          NON-SHARED OBJECT.
00619/026  *ASMT                     DOCUMENTATION   WF             S0653 'ASMT' FSNAME=ASMTDOC                                     
            D4T2    869  ASMT.DOCUMENTATION.WF.026          1 LINE    153    5 PAGE UM   OGDEN               JAN. 15, 1975  21:41:13
0          *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION.  FILE HAS A "$CONTINUE WITH *DUMMY*" LINE.
           NOTE:  THIS FILE HAS COMMANDS AT NEGATIVE LINE NUMBERS.
00619/027  *ASMT                     FRAME           SA  G  FRAM    S0653 'ASMT' FSNAME=FRAME.S                                     
            D4T2    870  ASMT.FRAME.SA.027                  1 LINE     80    4 PAGE UM   OGDEN               APR. 22, 1977  15:08:31
0          SUBROUTINE TO INTERCEPT SCARDS CALLS AND EXPAND "*FRAME" BOXES.  ALSO USABLE
           WITH *ASMG.
00619/028  *ASMT                     FRAME           OE  G          S0653 'ASMT' FSNAME=FRAME.O                                     
            D4T2    871  ASMT.FRAME.OE.028                  1 SEQ     862    1 PAGE UM   OGDEN               APR. 22, 1977  15:08:32
00620       STAT DSECT                               SA  G  STAD    COPY:STATDSECT                                                  
            D4T2    872  STAT_DSECT..SA.                    1 LINE     80    3 PAGE UM   DWB                 AUG. 14, 1977  22:00:00
0          THIS IS "COPY:STATDSECT" WHICH IS A COPY SECTION FOR THE *STATISTICS RECORD FORMAT DSECT.
0          Referenced by comments of: 71/1, 355/1, 616/1, 617/1 
00621/001   DIRECT ACCESS ERROR LOG  *DLG            C              *DLG                                                            
            D4T2    873  DIRECT_ACCESS_ERROR_LOG.*.C.001    1 LINE     36    1 PAGE UM   MTA                 JULY 28, 1977  21:15:04
0          COMMAND FILE, INVOKED AT UM AS PART OF *LAS (154), WHICH RUNS THE READ3330LOG PROGRAM
           (621/2) TO READ THE 3330 AND 2305 BUFFERED ERROR LOGS HOURLY.  THIS FILE COULD ALSO
           BE SETUP TO RUN THE CONSOLE WATCH PROGRAM (621/6) IF 2314 DISKS ARE BEING USED.
           NOTE:  THE FILE ETC:3330LOCK IS LOCKED BY *DLG (WITH QUIT) TO KEEP TWO COPIES OF
                  *DLG FROM RUNNING SIMULTANEOUSLY.
00621/002   DIRECT ACCESS ERROR LOG  READ3330LOG     SA  G  RD33    MTA:READ3330LOG(1,999)                                          
            D4T2    874  DIRECT_ACCESS_ERROR_LOG.R.SA.002   1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  21:15:06
0          WHEN FIRST RUN AND EVERY HOUR THEREAFTER, THIS PROGRAM READS THE BUFFERED HARDWARE
           ERROR LOG FROM EVERY PUBLIC 3330 VOLUME AND 2305 AND LOGS THE RESULTS IN THE FORM
           OF UC ERROR MESSAGES.  COPIES COPY:CMDAREADSECT (531/12), COPY:GLOBALS (1026/4),
           AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:FILE.MACROS (482/36).
1                                                                                               FRI AUG 02/96   16:11:27   Page  262
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: 621/1, 621/4, 621/6 
00621/003   DIRECT ACCESS ERROR LOG  READ3330LOG     OC  G          MTA:READ3330LOG(1000)                                           
            D4T2    875  DIRECT_ACCESS_ERROR_LOG.R.OC.003   1 LINE     80    2 PAGE UM   MTA                 JULY 28, 1977  21:15:08
00621/004   DIRECT ACCESS ERROR LOG  PRINT UC 3330   SA  G  PRUC    MTA:PRINTUC3330(1,999)                                          
            D4T2    876  DIRECT_ACCESS_ERROR_LOG.P.SA.004   1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  21:15:11
0          PROGRAM TO READ UNIT CHECK LOG RECORDS, AS SAVED BY READ3330LOG (621/2), UC3330 (603),
           OR ANY OTHER UNIT CHECK ROUTINE.  READS FROM SCARDS, PRINTS ON SPRINT.  IT IGNORES
           ALL RECORDS THAT ARE NOT OF TYPE 4.  "PAR=ERRORS" MEANS TO PRINT ONLY THOSE RECORDS
           WHICH ARE REALLY ERRORS.  CALLS READBFR ROUTINE (709) AND PRUC3330 (621/10).
           COPIES COPY:CMDAREADSECT (531/12).
00621/005   DIRECT ACCESS ERROR LOG  PRINT UC 3330   OC  G          MTA:PRINTUC3330(1000)                                           
            D4T2    877  DIRECT_ACCESS_ERROR_LOG.P.OC.005   1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  21:15:13
00621/006   DIRECT ACCESS ERROR LOG  CONSOLE WATCH   SA  O  LOGD    S0724 'D3T5' FSNAME=DISK_ERROR_LOG.CONSOLE_WAT.SA.6(1)       242
            D4T2    878  DIRECT_ACCESS_ERROR_LOG.C.SA.006   1 LINE     80    2 PAGE UM   MTA                 AUG. 02, 1973  00:53.48
0          PROGRAM TO KEEP WATCHING OUTPUT PRINTED ON OPERATORS CONSOLE LOOKING FOR 2314
           DISK UNIT CHECK MESSAGES AND WRITES THEM IN A FILE.  READ3330LOG (621/2) IS A
           REPLACEMENT FOR THIS PROGRAM WHEN 3330 AND 2305 HARDWARE IS BEING USED.
0          Referenced by comments of: 621/1 
00621/007   DIRECT ACCESS ERROR LOG  CONSOLE WATCH   OC  O          S0724 'D3T5' FSNAME=DISK_ERROR_LOG.CONSOLE_WAT.OC.7(1)       243
            D4T2    879  DIRECT_ACCESS_ERROR_LOG.C.OC.007   1 LINE     80    1 PAGE UM   MTA                 AUG. 02, 1973  00:53.50
00621/008   DIRECT ACCESS ERROR LOG  SORT AND PRINT  SA  G  PRUC    MTA:PRINTUC                                                     
            D4T2    880  DIRECT_ACCESS_ERROR_LOG.S.SA.008   1 LINE     80   21 PAGE UM   MTA                 JULY 28, 1977  21:16:31
0          PROGRAM TO SORT AND SUMMARIZE UNIT CHECK AND BUFFERED LOG DATA FOR 3330 AND 2305.
           ACCEPTS PAR=STC (FOR STC DRIVES, SEE BELOW), 2305 (TO PRINT 2305 ERRORS ONLY), OR
           BOTH (FOR BOTH 2305 AND 3330 ERRORS).  IF NEITHER 2305 NOR BOTH IS GIVEN, IT PROMTS.
           COPIES COPY:CMDAREADSECT (531/12).  CALLS PRUC3330 (621/10) AND JVCT (674).
           HAS ASSEMBLY PARAMETER (&UM) WHICH REMAPS STC DRIVE IDS ACCORDING THE MESS STC
           MADE OF THEM AT UM.
00621/009   DIRECT ACCESS ERROR LOG  SORT AND PRINT  OC  G          MTA:PUC                                                         
            D4T2    881  DIRECT_ACCESS_ERROR_LOG.S.OC.009   1 LINE     80    6 PAGE UM   MTA                 JULY 28, 1977  21:16:40
0          HAS A "$CONTINUE WITH MTA:PRUC3330(1000)+W030:UBCDATEX RETURN" RECORD.
           THE REFERENCE TO W030:UBCDATEX IS FOR THE OBJECT FOR JVCT (674).
00621/010   DIRECT ACCESS ERROR LOG  PRUC3330        SA  G  PRUC    MTA:PRUC3330(1,999)                                             
            D4T2    882  DIRECT_ACCESS_ERROR_LOG.P.SA.010   1 LINE     80    7 PAGE UM   MTA                 JULY 28, 1977  21:16:43
0          SUBROUTINE CALLED BY 621/4 AND 621/8.  COPIES COPY:CMDAREADSECT (531/12).
0          Referenced by comments of: 621/4, 621/8 
1                                                                                               FRI AUG 02/96   16:11:27   Page  263
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
+         ______________ _____________________
00621/011   DIRECT ACCESS ERROR LOG  PRUC3330        OC  G          MTA:PRUC3330(1000)                                              
            D4T2    883  DIRECT_ACCESS_ERROR_LOG.P.OC.011   1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  21:16:45
00622       FCBDSECT                                 SA           # (OBSOLETED BY 344)                                              
            D3.2T2    7  FCBDSECT..SA.                      1 LINE     80    4 PAGE UM                       MAR. 21, 1975  02:15:34
00623       FDUBDSECT                                SA           # (OBSOLETED BY 344)                                              
            D3.2T2    8  FDUBDSECT..SA.                     1 LINE     80    3 PAGE UM                       MAR. 21, 1975  02:15:37
00624       WOPTRDSECT                               SA           # (OBSOLETED BY 344)                                              
            D3.2T2    9  WOPTRDSECT..SA.                    1 LINE     80    1 PAGE UM                       MAR. 21, 1975  02:15:39
00625/001  *TAPEFIXER                                SA  O          S0221 FSAVE FSNAME=TAPEFIXER                                    
            D4T2    884  TAPEFIXER..SA.001                  1 LINE    255   15 PAGE UM   LIFT                APR. 03, 1975  14:27:59
0          PROGRAM TO RECOVER DATA FROM A 9-TRACK LABLELED TAPE WHICH HAS BEEN PARTIALLY
           DESTROYED OR CONTAINS UNREADABLE BLOCKS.
           SOURCE IN LINES (1,999).
00625/002  *TAPEFIXER                                OE  O          *TAPEFIXER                                                      
            D4T2    885  TAPEFIXER..OE.002                  1 LINE    255    4 PAGE UM   LIFT                JULY 28, 1977  21:16:51
00626/001   ATNTRP SUBR                              SA  G  ATRP    S0579 SAVE 'JWS-SAVE' FSNAME=ATNTRP.S                           
            D4T2    886  ATNTRP_SUBR..SA.001                1 LINE     80    1 PAGE UM   DWB                 JULY 26, 1974  09:21.43
0          SUBROUTINE TO ALLOW FORTRAN USERS TO CALL ATTNTRP.
           MISSED IN DIST 3.0.
00626/002   ATNTRP SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00627/001   GDINF SUBR                               SA  G  GDIN    S0579 SAVE 'JWS-SAVE' FSNAME=GDINF.S                            
            D4T2    887  GDINF_SUBR..SA.001                 1 LINE     80    1 PAGE UM   DWB                 MAR. 04, 1976  10:29:29
0          SUBROUTINE TO ALLOW FORTRAN USERS TO CALL GDINFO.
           MISSED IN DIST 3.0.
00627/002   GDINF SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00628/001   UC3284                                   SA  G          MTS:UC3284(1,999)                                               
            D4T2    888  UC3284..SA.001                     1 LINE     72    3 PAGE UM   MTA                 JULY 28, 1977  21:20:35
0          UNIT CHECK ROUTINES FOR IBM 3284 PRINTER.
00628/002   UC3284                                   OC  G          MTS:UC3284(1000)                                                
            D4T2    889  UC3284..OC.002                     1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  21:20:37
00629/001  *3270RTN                                  SA  G  3270    S1073 UNSP FSNAME=3270.S                                        
            D4T2    890  3270RTN..SA.001                    1 LINE     80  138 PAGE UBC  SAYLE     OGDEN     JULY 26, 1977  13:55:05
0          UBC DSR FOR IBM 3277-1 AND 3277-2 DISPLAY TERMINALS.  CONDITIONAL ASSEMBLY
           OPTIONS WILL PRODUCE THE 3066 DSR (662) AS WELL.  ASSEMBLE WITH PAR=SIZE=20
           AND USING COPY:MTS.MACROS (344).
1                                                                                               FRI AUG 02/96   16:11:27   Page  264
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: 662/1 
00629/002  *3270RTN                  ACTIVITY SUBR   SA  G          S1073 UNSP FSNAME=ACTIVITY.S                                    
            D4T2    891  3270RTN.ACTIVITY_SUBR.SA.002       1 LINE     80   11 PAGE UBC            OGDEN     JULY 17, 1977  13:20:53
0          GENERATES %ACTIVITY DISPLAY.  CALLED BY 629/1 AND THE 3066 DSR (662/1).  COPIES
           COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:FILE.MACROS (482/36) AND *SYSMAC.
0          Referenced by comments of: 413/1, 629/6, 647/1, 662/1 
00629/003  *3270RTN                                  OC  G          *3270RTN                                                        
            D4T2    892  3270RTN..OC.003                    1 LINE     80    9 PAGE UBC  SAYLE     OGDEN     JULY 28, 1977  21:24:16
0          OBJECT FOR 629/1 AND 629/2.
00629/004  *3270RTN                  GRAB3270        SA  G          S1073 UNSP FSNAME=GRAB3270                                      
            D4T2    893  3270RTN.GRAB3270.SA.004            1 LINE     80    1 PAGE UBC            OGDEN     OCT. 30, 1976  13:13:21
0          THIS IS THE SHARED TABLE FOR USE WITH THE %GRAB AND %FLIP COMMANDS IN THE 3270 DSR.
           IT IS ALSO USED BY THE 3066 DSR (662).
00629/005  *3270RTN                  GRAB3270        OC  G          SEG2:GRAB3270                                                   
            D4T2    894  3270RTN.GRAB3270.OC.005            1 LINE     80    1 PAGE UBC            OGDEN     JULY 28, 1977  21:25:08
0          THIS OBJECT SHOULD BE LOADED BY PISTLE PRIOR TO LOADING THE 3270 DSR.
00629/006  *3270RTN                  TEST ACTIVITY   SF  G  TACT    S1073 UNSP FSNAME=TACTIVITY.S                                   
            D4T2    895  3270RTN.TEST_ACTIVITY.SF.006       1 LINE     80    3 PAGE UM   OGDEN               MAR. 18, 1977  10:58:56
0          A MAIN PROGRAM WHICH CALLS THE ACTIVITY SUBROUTINE (629/2) AND PRINTS THE
           RESULTS ON SPRINT.  FOR TESTING PURPOSES ONLY.
00629/007  *3270RTN                  TEST ACTIVITY   OC  G          S1073 UNSP FSNAME=TA                                            
            D4T2    896  3270RTN.TEST_ACTIVITY.OC.007       1 LINE    372    1 PAGE UM   OGDEN               MAR. 18, 1977  10:58:58
00630/001   TRUNCATE                                 SA  G  TRUN    S1073 UNSP FSNAME=TRUNCATE.S                                    
            D4T2    897  TRUNCATE..SA.001                   1 LINE     80    7 PAGE UM   OGDEN               MAR. 27, 1976  12:24:30
0          SCANS FILES ON USERS ACCOUNT AND TRUNCATES THOSE THAT NEED IT.  AT UM, THIS PROGRAM
           IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.  COPIES
           *GFINFODSECT (593).
00630/002   TRUNCATE                                 OE  G          UNSP:TRUNCATE                                                   
            D4T2    898  TRUNCATE..OE.002                   1 SEQ    2693    3 PAGE UM   OGDEN               JULY 28, 1977  21:26:04
00631/001   ACCOUNTING CLS           CLSTV           SA  G  CLST    S0027 DISTRB FSNAME=CLSTV                                       
            D4T2    899  ACCOUNTING_CLS.CLSTV.SA.001        1 LINE     80    3 PAGE UM   ENGLE               DEC. 07, 1976  17:26:08
0          PROGRAM TO PRODUCE CLSTRANSVEC WHICH IS A COPY SECTION FOR ACCCLS. 
           COPIES GRDEF (104/57).  ASSEMBLE USING COPY:MTS.MACROS (344).
1                                                                                               FRI AUG 02/96   16:11:27   Page  265
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
+         ______________ _____________________
00631/002   ACCOUNTING CLS           CLSTV           OC  G  CLST    S0027 DISTRB FSNAME=CLST                                        
            D4T2    900  ACCOUNTING_CLS.CLSTV.OC.002        1 LINE     80    3 PAGE UM   ENGLE               MAY  20, 1976  16:46:03
0          Referenced by comments of: 631/3 
00631/003   ACCOUNTING CLS           CLSTRANSVEC     SA  G          S0027 DISTRB FSNAME=CLSTRANSVEC                                 
            D4T2    901  ACCOUNTING_CLS.CLSTRANSVE.SA.003   1 LINE     19    1 PAGE UM   ENGLE               MAY  20, 1976  16:46:09
0          COPY SECTION FOR ACCCLS PRODUCED BY RUNNING CLSTV (631/2).
0          Referenced by comments of: 631/4 
00631/004   ACCOUNTING CLS           ACCCLS          SA  G  ACLS    S0027 DISTRB FSNAME=ACCCLS                                      
            D4T2    902  ACCOUNTING_CLS.ACCCLS.SA.004       1 LINE     80    7 PAGE UM   ENGLE               MAY  20, 1976  16:46:12
0          INTERFACE BETWEEN ACCOUNTING CLS CALL AND ACCMXMAT.
           COPIES GRDEF (104/57) AND CLSTRANSVEC (631/3).
00631/005   ACCOUNTING CLS           ACCCLS          OC  G  ACLS    S0027 DISTRB FSNAME=ACLS                                        
            D4T2    903  ACCOUNTING_CLS.ACCCLS.OC.005       1 LINE     80    3 PAGE UM   ENGLE               MAY  20, 1976  16:46:16
0          Referenced by comments of: 631/12 
00631/006   ACCOUNTING CLS           ACCMXMAT        SA  G  AMXM    S0027 DISTRB FSNAME=ACCMXMAT                                    
            D4T2    904  ACCOUNTING_CLS.ACCMXMAT.SA.006     1 LINE     80   53 PAGE UM   ENGLE               MAY  20, 1976  16:48:06
0          ACCOUNTING MAXIMUM MAINTENANCE (MAIN PROGRAM FOR ACCOUNTING CLS). 
           COPIES ACCFORMAT (104/1), ACCPROJFMT (104/2), AND COPY:RATEVEC (651/2).
           THIS PROGRAM HAS A GBLB SYMBOL &PW WHICH, IF SET TO 1, WILL CAUSE THE INSTRUCTIONS FOR THE PASSWORD COMMAND TO BE
           ASSEMBLED.  NO GUARANTEES ON WHETHER THIS WORKS.
00631/007   ACCOUNTING CLS           ACCMXMAT        OC  G          S0027 DISTRB FSNAME=AMXM                                        
            D4T2    905  ACCOUNTING_CLS.ACCMXMAT.OC.007     1 LINE     80   10 PAGE UM   ENGLE               MAY  20, 1976  16:57:13
0          Referenced by comments of: 631/12 
00631/008   ACCOUNTING CLS           ACUSPRNT        SA  G  AUPR    S0027 DISTRB FSNAME=ACUSPRNT                                    
            D4T2    906  ACCOUNTING_CLS.ACUSPRNT.SA.008     1 LINE     80    8 PAGE UM   ENGLE               DEC. 15, 1975  14:45:51
0          PRINT SUBROUTINE FOR ACCOUNTING CLS.
           COPIES ACCFORMAT (104/1).
           THIS PROGRAM USES A SETC SYMBOL &DC TO CONTROL ASSEMBLY OF DATA CELL INSTRUCTIONS.
           IF IT IS SET TO '0', THE DATA CELL INSTRUCTIONS WILL NOT BE ASSEMBLED.  SEE THE SOURCE
           FOR THE VALUE TO BE USED FOR DATA CELL.
0          Referenced by comments of: 104/56 
00631/009   ACCOUNTING CLS           ACUSPRNT        OC  G          S0027 DISTRB FSNAME=AUPR                                        
            D4T2    907  ACCOUNTING_CLS.ACUSPRNT.OC.009     1 LINE     80    3 PAGE UM   ENGLE               DEC. 15, 1975  14:46:14
0          Referenced by comments of: 631/12 
1                                                                                               FRI AUG 02/96   16:11:27   Page  266
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
+         ______________ _____________________
00631/010   ACCOUNTING CLS           FASTIOCK        SA  G          S0967 'D3.2T2' FSNAME=ACCOUNTING_CLS.FASTIOCK.SA.10(1)        19
            D4T2    908  ACCOUNTING_CLS.FASTIOCK.SA.010     1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:48.35
0          SUBROUTINE TO DETERMINE IF AN I/O UNIT IS "FAST."  USED IN ACCOUNTING CLS.  COPIES GRDEF (104/57).
00631/011   ACCOUNTING CLS           FASTIOCK        OC  G          S0967 'D3.2T2' FSNAME=ACCOUNTING_CLS.FASTIOCK.OC.11(1)        20
            D4T2    909  ACCOUNTING_CLS.FASTIOCK.OC.011     1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:48.53
0          Referenced by comments of: 104/1, 631/12 
00631/012   ACCOUNTING CLS           *CLSACC         OE  G          WSG:CLSACC                                                      
            D4T2    910  ACCOUNTING_CLS.*CLSACC.OE.012      1 SEQ   11201    7 PAGE UM   ENGLE               SEP. 16, 1977  11:39:53
0          ACCOUNTING CLS OBJECT. ALLOWS PROJECT DIRECTORS AND INSTRUCTORS TO DISTRIBUTE
           MONEY, DISK SPACE, AND TERMINAL AND PLOT TIME TO THEIR USER ID'S AND TO CHANGE
           EXPIRATION DATES. IT CONSISTS OF ACCCLS (631/5) + ACCMXMAT (631/7)
            + GETFILE (104/89) + DIRECTRY (104/45) + ACCIO (104/18) + FILENAME
           (104/43) +ACUSPRNT (631/9) + FASTIOCK (631/11) + IOLOKCK (104/97) + TIMETRP (104/81) + *LCS.
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  U/N,R PKEY=*ACC
00632/001   REBATE                   REBATE          SP  G          S0811 REBATE 'REBATES' FSNAME=REBATE                            
            D4T2    911  REBATE.REBATE.SP.001               1 LINE     77   26 PAGE UM   LIFT                JAN. 03, 1977  22:59:27
0          PROGRAM TO REBATE CHARGES FOR MTS JOBS.  RUN WITH PROT=OFF.
           PROGRAM IS CONSTRUCTED BY COMBINING REBATE (632/2) AND ACCLIB (104/31).
00632/002   REBATE                   REBATE          OC  G          S0811 REBATE 'REBATES' FSNAME=REBATE.O                          
            D4T2    912  REBATE.REBATE.OC.002               1 LINE     80   28 PAGE UM   LIFT                JAN. 03, 1977  22:59:53
0          Referenced by comments of: 632/1 
00632/003   REBATE                   RBATACC         SA  G  RBTA    S0027 DISTRB FSNAME=RBATACC                                     
            D4T2    913  REBATE.RBATACC.SA.003              1 LINE     80    6 PAGE UM   ENGLE               DEC. 05, 1975  14:31:44
0          SUBROUTINE CALLED BY REBATE TO COMPUTE COST OF REBATE AND TO UPDATE USERS 
           ACCOUNTING RECORD. USED IN ACCLIB (104/31).
           COPIES GRDEF (104/57), COPY:RATEVEC (651/2), AND ACCFORMAT (104/1).
00632/004   REBATE                   RBATACC         OC  G          S0027 DISTRB FSNAME=RBTA                                        
            D4T2    914  REBATE.RBATACC.OC.004              1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  14:43:37
0          Referenced by comments of: 104/1 
00632/005   REBATE                   STAREAD         SA  G          S0811 REBATE 'REBATES' FSNAME=STAREAD                           
            D4T2    915  REBATE.STAREAD.SA.005              1 LINE     77    3 PAGE UM   LIFT                JAN. 03, 1977  23:10:14
0          SUBROUTINE CALLED BY REBATE TO READ A RECORD FROM *STATISTICS.
           USED IN ACCLIB (104/31).
00632/006   REBATE                   STAREAD         OC  G          S0811 REBATE 'REBATES' FSNAME=STAREAD.O                         
            D4T2    916  REBATE.STAREAD.OC.006              1 LINE     80    2 PAGE UM   LIFT                JAN. 03, 1977  23:10:46
0          Referenced by comments of: 104/1 
1                                                                                               FRI AUG 02/96   16:11:27   Page  267
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
+         ______________ _____________________
00632/007   REBATE                   WRITEUP         WF  G          S0811 REBATE 'REBATES' FSNAME=REBATEWRUP                        
            D4T2    917  REBATE.WRITEUP.WF.007              1 LINE     80    6 PAGE UM   LIFT                JAN. 03, 1977  22:34:23
0          WRITEUP DESCRIBING HOW TO RUN THE REBATE PROGRAM.
00632/008   REBATE                   REQUEST FORM    C              W012:REBATE                                                     
            D4T2    918  REBATE.REQUEST_FORM.C.008          1 LINE    112    2 PAGE UM   LIFT                JULY 28, 1977  21:33:19
0          COMMANDS AND FORMAT INPUT FOR REBATE REQUEST FORM.  IT IS ASSUMED THAT THIS IS
           THE CONTENTS OF A FILE NAMED "REBATE" AND THAT THE LINE NUMBERS ARE RETAINED.
00633/001  *PL1SCAN                  IBM SOURCE      SA  G          S0696 OSSRC6 POSN=PL552                                         
            D4T2    919  PL1SCAN.IBM_SOURCE.SA.001          1 SEQ      80  220 PAGE UM   TIFFANY             JULY 28, 1977  21:37:24
0          IBM OS/360 (RELEASE 21.7) SOURCE FOR PL/I SYNTAX SCANNING PROGRAM.
00633/002  *PL1SCAN                  MTS UPDATE      UU  G          W062:PL1SCAN.UP                                                 
            D4T2    920  PL1SCAN.MTS_UPDATE.UU.002          1 LINE     80    4 PAGE UM   TIFFANY             JULY 28, 1977  21:37:30
0          *IEBUPDAT DECK FOR MTS CHANGES.  ASSEMBLE OUTPUT OF UPDATE USING IKM (633/3).
           COPIES IKMBASE (633/4).
00633/003  *PL1SCAN                  IKM             SM  G          W062:IKM                                                        
            D4T2    921  PL1SCAN.IKM.SM.003                 1 LINE     80   20 PAGE UM   TIFFANY             JULY 28, 1977  21:37:30
0          Referenced by comments of: 633/2 
00633/004  *PL1SCAN                  IKMBASE         SA  G          W062:IKMBASE                                                    
            D4T2    922  PL1SCAN.IKMBASE.SA.004             1 LINE     80   11 PAGE UM   TIFFANY             JULY 28, 1977  21:37:33
0          A SECTION COPIED BY THE IKM002 MODULE.
0          Referenced by comments of: 633/2 
00633/005  *PL1SCAN                  INTERFACE       SA  G          W062:PL1SCAN.S                                                  
            D4T2    923  PL1SCAN.INTERFACE.SA.005           1 LINE     72   14 PAGE UM   TIFFANY             JULY 28, 1977  21:37:35
0          MTS INTERFACE MODULE.  ASSEMBLE USING MACROLIB (633/6).
00633/006  *PL1SCAN                  MACROLIB        SM  G          W062:MACROLIB                                                   
            D4T2    924  PL1SCAN.MACROLIB.SM.006            1 LINE     38    1 PAGE UM   TIFFANY             JULY 28, 1977  21:37:37
0          Referenced by comments of: 633/5 
00633/007  *PL1SCAN                                  OE  G          *PL1SCAN                                                        
            D4T2    925  PL1SCAN..OE.007                    1 SEQ    4032    9 PAGE UM   TIFFANY             JULY 28, 1977  21:37:39
0          THIS OBJECT COULD BE LOADED INTO SHARED VM BY PISTLE IF DESIRED.
00634/001   OPERATOR JOB                             SA  G  OPER    S1073 UNSP FSNAME=OP.S                                          
            D4T2    926  OPERATOR_JOB..SA.001               1 LINE     80   55 PAGE UM   OGDEN               APR. 02, 1977  22:47:11
0          JOB PROGRAM TO SUPPORT IBM 3270 AS OPERATOR'S CONSOLE.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND
1                                                                                               FRI AUG 02/96   16:11:27   Page  268
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          *CNFGINFODSECT (654).  ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 413/1, 634/3 
00634/002   OPERATOR JOB                             OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00634/003   OPERATOR JOB             CONSIO          SA  G  CONS    S1073 UNSP FSNAME=CONSIO                                        
            D4T2    927  OPERATOR_JOB.CONSIO.SA.003         1 LINE     80   14 PAGE UM   OGDEN               OCT. 30, 1976  13:12:15
0          SUBROUTINE TO DO STAND-ALONE I/O TO A 3270, 1052, OR 3066.  ALSO PROVIDES INTERFACE TO OPERATOR
           JOB (634/1) IF USED.  IF OPERATOR JOB IS NOT USED, CONSIO MAY BE ASSEMBLED WITH &OPERJOB=0
           TO REDUCE ITS SIZE.  COPIES COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:SETPARM (653).
00634/004   OPERATOR JOB             CONSIO 370 OBJ  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00634/005   OPERATOR JOB             CONSIO 360 OBJ  OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   OGDEN                                      
00634/006   OPERATOR JOB             WRITEUP         WF  G          S1073 UNSP FSNAME=OP.F                                          
            D4T2    928  OPERATOR_JOB.WRITEUP.WF.006        1 LINE    143    6 PAGE UM   OGDEN               MAY  16, 1977  16:13:15
0          OPERATOR'S GUIDE TO USING THE IBM 3270 OPERATOR'S CONSOLE.
00635/001   FSUB                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=FSUB                        
            D4T2    929  FSUB.D4_MASTER.SA.001              1 SEQ      80   79 PAGE UM   DWB                 JULY 28, 1977  21:39:25
0          COMPOSED OF FDGET, HOPENIT, GIVEBACK, FILE LOCKING AND UNLOCKING, ETC. SECTIONS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1, 635/2 
00635/002   FSUB                     UPDATE          UU  G          MTS:FSUBUPD                                                     
            D4T2    930  FSUB.UPDATE.UU.002                 1 LINE     72   18 PAGE UM   DWB                 JULY 28, 1977  21:39:26
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (635/1).
00635/003   FSUB                     370 MASTER      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00635/004   FSUB                     360 MASTER      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00635/005   FSUB                     370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=FSUB.LIST                 
            D4T2    931  FSUB.370_LISTING.L.005             1 SEQ     133  179 PAGE UM   DWB                 JULY 28, 1977  21:40:17
00635/006   FSUB                     360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=FSUB.LIST             
            D4T2    932  FSUB.360_LISTING.L.006             1 SEQ     133  179 PAGE UM   DWB                 JULY 28, 1977  21:41:07
1                                                                                               FRI AUG 02/96   16:11:27   Page  269
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
+         ______________ _____________________
00636/001   CMDS                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=CMDS                        
            D4T2    933  CMDS.D4_MASTER.SA.001              1 SEQ      80  147 PAGE UM   DWB                 SEP. 16, 1977  11:41:58
0          MTS COMMAND PROCESSORS.  COPIES COPY:LLMPSEQU (087) COPY:GLOBALS (1026/4),
           *CNFGINFODSECT (654), AND COPY:RATEVEC (651/2).  ASSEMBLE USING COPY:MTS.MACROS
           (344) AND *SYSMAC.
0          Referenced by comments of: 344/1, 636/2 
00636/002   CMDS                     UPDATE          UU  G          MTS:CMDSUPD                                                     
            D4T2    934  CMDS.UPDATE.UU.002                 1 LINE     72   37 PAGE UM   DWB                 SEP. 16, 1977  11:42:11
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (636/1).
           UPDATE DECK USES %POSN *IN* MTS.
00636/003   CMDS                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00636/004   CMDS                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00636/005   CMDS                     370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=CMDS.LIST                 
            D4T2    935  CMDS.370_LISTING.L.005             1 SEQ     133  356 PAGE UM   DWB                 SEP. 16, 1977  11:43:37
00636/006   CMDS                     360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=CMDS.LIST             
            D4T2    936  CMDS.360_LISTING.L.006             1 SEQ     133  356 PAGE UM   DWB                 SEP. 16, 1977  11:45:31
00637/001   DSRS                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=DSRS                        
            D4T2    937  DSRS.D4_MASTER.SA.001              1 SEQ      80   54 PAGE UM   DWB                 JULY 28, 1977  21:42:26
0          MTS INTERNAL DSR'S AND HASP INTERFACE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1, 637/2 
00637/002   DSRS                     UPDATE          UU  G          MTS:DSRSUPD                                                     
            D4T2    938  DSRS.UPDATE.UU.002                 1 LINE     72   11 PAGE UM   DWB                 JULY 28, 1977  21:42:27
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (637/1).
           UPDATE DECK USES %POSN *IN* MTS.
00637/003   DSRS                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00637/004   DSRS                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00637/005   DSRS                     370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=DSRS.LIST                 
            D4T2    939  DSRS.370_LISTING.L.005             1 SEQ     133  126 PAGE UM   DWB                 JULY 28, 1977  21:42:36
1                                                                                               FRI AUG 02/96   16:11:27   Page  270
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
+         ______________ _____________________
00637/006   DSRS                     360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=DSRS.LIST             
            D4T2    940  DSRS.360_LISTING.L.006             1 SEQ     133  123 PAGE UM   DWB                 JULY 28, 1977  21:42:46
00638/001   USUB                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=USUB                        
            D4T2    941  USUB.D4_MASTER.SA.001              1 SEQ      80   33 PAGE UM   DWB                 JULY 28, 1977  21:43:20
0          MTS USER SUBROUTINES.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1, 638/2 
00638/002   USUB                     UPDATE          UU  G          MTS:USUBUPD                                                     
            D4T2    942  USUB.UPDATE.UU.002                 1 LINE     72    8 PAGE UM   DWB                 JULY 28, 1977  21:43:20
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (638/1).
           UPDATE DECK USES %POSN *IN* MTS.
00638/003   USUB                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00638/004   USUB                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00638/005   USUB                     370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=USUB.LIST                 
            D4T2    943  USUB.370_LISTING.L.005             1 SEQ     133   87 PAGE UM   DWB                 JULY 28, 1977  21:44:25
00638/006   USUB                     360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=USUB.LIST             
            D4T2    944  USUB.360_LISTING.L.006             1 SEQ     133   87 PAGE UM   DWB                 JULY 28, 1977  21:45:41
00639/001   DSRI                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=DSRI                        
            D4T2    945  DSRI.D4_MASTER.SA.001              1 SEQ      80   32 PAGE UM   DWB                 JULY 28, 1977  21:45:46
0          MTS DSR INTERFACE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1, 639/2 
00639/002   DSRI                     UPDATE          UU  G          MTS:DSRIUPD                                                     
            D4T2    946  DSRI.UPDATE.UU.002                 1 LINE     72   11 PAGE UM   DWB                 JULY 28, 1977  21:45:49
0          UPDATE TO D3 MASTER TO PRODUCE D4 SOURCE (639/1).
           UPDATE DECK USES %POSN *IN* MTS.
00639/003   DSRI                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00639/004   DSRI                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
1                                                                                               FRI AUG 02/96   16:11:27   Page  271
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
+         ______________ _____________________
00639/005   DSRI                     370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=DSRI.LIST                 
            D4T2    947  DSRI.370_LISTING.L.005             1 SEQ     133   85 PAGE UM   DWB                 JULY 28, 1977  21:45:57
00639/006   DSRI                     360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=DSRI.LIST             
            D4T2    948  DSRI.360_LISTING.L.006             1 SEQ     133   84 PAGE UM   DWB                 JULY 28, 1977  21:46:08
00639/007   DSRI                     TESTIO          SA  G  TSIO    MTS:TESTIO(1,999)                                               
            D4T2    949  DSRI.TESTIO.SA.007                 1 LINE     80    8 PAGE UM   MTA                 JULY 28, 1977  21:46:11
0          TEST PROGRAM FOR DSR INTERFACE.
0          Referenced by comments of: 639/9, 639/10, 639/11, 639/12 
00639/008   DSRI                     TESTIO          OC  G          MTS:TESTIO(1000)                                                
            D4T2    950  DSRI.TESTIO.OC.008                 1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  21:46:12
00639/009   DSRI                     TESTIO DATA     D              MTS:TESTIODATA                                                  
            D4T2    951  DSRI.TESTIO_DATA.D.009             1 LINE     44    1 PAGE UM   MTA                 JULY 28, 1977  21:46:14
0          COMMANDS TO TESTIO PROGRAM (639/7), READ ON SCARDS.
00639/010   DSRI                     TESTIO FILE 1   D              MTS:TESTIOFILE                                                  
            D4T2    952  DSRI.TESTIO_FILE_1.D.010           1 LINE      5    1 PAGE UM   MTA                 JULY 28, 1977  21:46:16
0          TESTIO (639/7) TEST FILE NUMBER 1.
00639/011   DSRI                     TESTIO FILE 2   D              MTS:TESTIOFILE2                                                 
            D4T2    953  DSRI.TESTIO_FILE_2.D.011           1 LINE      5    1 PAGE UM   MTA                 JULY 28, 1977  21:46:18
0          TESTIO (639/7) TEST FILE NUMBER 2.
00639/012   DSRI                     TESTIO BASE     D              MTS:TESTIOBASE                                                  
            D4T2    954  DSRI.TESTIO_BASE.D.012             1 LINE    132    3 PAGE UM   MTA                 JULY 28, 1977  21:46:20
0          EXPECTED SPRINT OUTPUT WHEN TESTIO (639/7) IS RUN USING TESTIO DATA (639/7) AS INPUT.
00640       MTS.TV                                   SA           # (OBSOLETED BY 344)                                              
            D3.2T2   41  MTS.TV..SA.                        1 LINE     56    1 PAGE UM                       MAR. 21, 1975  02:20:51
00642/001   MERIT UTILITIES          *MNS            C              *MNS                                                            
            D4T2    955  MERIT_UTILITIES.*MNS.C.001         1 LINE      9    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:23
0          COMMAND FILE USED BY THE OPERATORS TO START THE MERIT TERMINAL SERVICE AFTER
           IPL.  INVOKED BY ENTERING "MTS *MNS" ON THE OPERATOR'S CONSOLE.  DESCRIBED
           IN THE OPERATOR'S MANUAL (592).
0          Referenced by comments of: 642/2 
00642/002   MERIT UTILITIES          MNS             C              STRT:MNS                                                        
            D4T2    956  MERIT_UTILITIES.MNS.C.002          1 LINE     60    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:25
0          COMMAND FILE SOURCED TO BY *MNS (642/1).
1                                                                                               FRI AUG 02/96   16:11:27   Page  272
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
+         ______________ _____________________
00642/003   MERIT UTILITIES          *MND            C              *MND                                                            
            D4T2    957  MERIT_UTILITIES.*MND.C.003         1 LINE      9    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:27
0          COMMAND FILE USED BY THE OPERATORS TO PREVENT USAGE OF THE MERIT NETWORK
           WHEN IT IS DOWN.  INVOKED BY ENTERING "MTS *MND" ON THE OPERATOR'S CONSOLE.
           DESCRIBED IN THE OPERATOR'S MANUAL (592).
0          Referenced by comments of: 642/4 
00642/004   MERIT UTILITIES          MND             C              STRT:MND                                                        
            D4T2    958  MERIT_UTILITIES.MND.C.004          1 LINE     22    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:30
0          COMMAND FILE SOURCED TO BY *MND (642/3) WHICH CHANGES MNET:AUTH (642/5) TO
           PREVENT NETWORK ACCESS.
00642/005   MERIT UTILITIES          AUTHORIZATION   D              MNET:AUTH                                                       
            D4T2    959  MERIT_UTILITIES.AUTHORIZA.D.005    1 LINE     44    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:32
0          DATA FILE USED TO CONTROL WHICH USERS CAN USE THE NETWORK AND AT WHAT TIMES.
0          Referenced by comments of: 642/4 
00642/006   MERIT UTILITIES          SETDATE         SF  G  SETD    MNET:SETDATE(1000)                                              
            D4T2    960  MERIT_UTILITIES.SETDATE.SF.006     1 LINE     80    5 PAGE UM   OGDEN               JULY 28, 1977  21:46:34
0          MTS PROGRAM TO SET THE TIME AND DATE IN THE MERIT PDP-11.  CALLS THE PAR SUBROUTINE
           FROM UNSP:LIBRARY (685/4).
0          Referenced by comments of: 642/8 
00642/007   MERIT UTILITIES          SETDATE         OE  G          MNET:SETDATE(1,999)                                             
            D4T2    961  MERIT_UTILITIES.SETDATE.OE.007     1 LINE   4610    4 PAGE UM   OGDEN               JULY 28, 1977  21:46:37
00642/008   MERIT UTILITIES          SETDATE         WF             S1073 UNSP FSNAME=SETDATE.F                                     
            D4T2    962  MERIT_UTILITIES.SETDATE.WF.008     1 LINE     79    1 PAGE UM   OGDEN               MAY  16, 1977  23:44:13
0          A DESCRIPTION OF THE SETDATE PROGRAM (642/6).
00642/009   MERIT UTILITIES          *MLD            C              *MLD                                                            
            D4T2    963  MERIT_UTILITIES.*MLD.C.009         1 LINE     16    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:42
0          COMMAND FILE USED BY THE OPERATORS TO RELOAD THE MERIT PDP-11.  INVOKED BY
           ENTERING "MTS *MLD" ON THE OPERATOR'S CONSOLE.  DESCRIBED IN THE OPERATOR'S
           MANUAL (592).
0          Referenced by comments of: 642/10 
00642/010   MERIT UTILITIES          RELOAD          C              MNET:RELOAD                                                     
            D4T2    964  MERIT_UTILITIES.RELOAD.C.010       1 LINE     83    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:44
0          COMMAND FILE SOURCED TO BY *MLD (642/9) TO RUN 11LOAD (642/11).
1                                                                                               FRI AUG 02/96   16:11:27   Page  273
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
+         ______________ _____________________
00642/011   MERIT UTILITIES          11LOAD          SA  G  LOAD    MNET:11LOAD(1000)                                               
            D4T2    965  MERIT_UTILITIES.11LOAD.SA.011      1 LINE     80   19 PAGE UM   OGDEN               JULY 28, 1977  21:46:47
0          Referenced by comments of: 642/10, 642/13, 715/41 
00642/012   MERIT UTILITIES          11LOAD          OE  G          MNET:11LOAD(1,999)                                              
            D4T2    966  MERIT_UTILITIES.11LOAD.OE.012      1 LINE   5344    3 PAGE UM   OGDEN               JULY 28, 1977  21:46:49
00642/013   MERIT UTILITIES          11LOAD          WF             S1073 UNSP FSNAME=11LOAD.F                                      
            D4T2    967  MERIT_UTILITIES.11LOAD.WF.013      1 LINE    176    3 PAGE UM   OGDEN               MAR. 25, 1977  11:52:19
0          THIS IS MERIT MEMO ND-77-288, A DESCRIPTION OF 11LOAD (642/11).
00642/014   MERIT UTILITIES          *MUP            C              *MUP                                                            
            D4T2    968  MERIT_UTILITIES.*MUP.C.014         1 LINE     37    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:57
0          COMMAND FILE USED BY THE OPERATORS TO DETERMINE IF THE MERIT PDP-11 IS UP
           BY RUNNING MUP (642/15).  INVOKED BY ENTERING "MTS *MUP" ON THE OPERATOR'S
           CONSOLE.  DESCRIBED IN THE OPERATOR'S MANUAL (592).
00642/015   MERIT UTILITIES          MUP             SA  G  MUP     MNET:MUP(1000)                                                  
            D4T2    969  MERIT_UTILITIES.MUP.SA.015         1 LINE     80    5 PAGE UM   OGDEN               JULY 28, 1977  21:46:59
0          PROGRAM TO DETERMINE IF THE MERIT PDP-11 IS UP.
0          Referenced by comments of: 642/14, 642/17 
00642/016   MERIT UTILITIES          MUP             OC  G          MNET:MUP(1,999)                                                 
            D4T2    970  MERIT_UTILITIES.MUP.OC.016         1 LINE     80    1 PAGE UM   OGDEN               JULY 28, 1977  21:47:01
00642/017   MERIT UTILITIES          MUP             WF             S1073 UNSP FSNAME=MUP.F                                         
            D4T2    971  MERIT_UTILITIES.MUP.WF.017         1 LINE     83    2 PAGE UM   OGDEN               MAR. 03, 1977  12:41:56
0          A DESCRIPTION OF THE MUP PROGRAM (642/15).
00642/018   MERIT UTILITIES          TNTH            SA  O  TNTH    S1073 UNSP FSNAME=TNTH.S                                        
            D4T2    972  MERIT_UTILITIES.TNTH.SA.018        1 LINE     80   24 PAGE UM   OGDEN               APR. 07, 1977  21:50:14
0          TEST PROGRAM AND BATCHDSR SUBROUTINE TO RECEIVE NETWORK BATCH JOBS. ASSEMBLE
           WITH PAR=B.
00642/019   MERIT UTILITIES          TNTH            OC  O          MNET:TNTH                                                       
            D4T2    973  MERIT_UTILITIES.TNTH.OC.019        1 LINE     80    4 PAGE UM   OGDEN               JULY 28, 1977  21:47:11
00642/020   MERIT UTILITIES          THTN            SA  G  THTN    S1073 UNSP FSNAME=THTN.S                                        
            D4T2    974  MERIT_UTILITIES.THTN.SA.020        1 LINE     80    7 PAGE UM   OGDEN               MAR. 03, 1977  12:42:11
0          TEST PROGRAM TO TRANSMIT NETWORK BATCH JOBS.  CALLS MSG ROUTINE (1023).
00642/021   MERIT UTILITIES          THTN            OC  G          MNET:THTN                                                       
            D4T2    975  MERIT_UTILITIES.THTN.OC.021        1 LINE     80    3 PAGE UM   OGDEN               JULY 28, 1977  21:47:17
1                                                                                               FRI AUG 02/96   16:11:27   Page  274
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
+         ______________ _____________________
00643/001   PAGLOAD                                  SA  G  PGLD    MTA:PAGLOAD(1000)                                               
            D4T2    976  PAGLOAD..SA.001                    1 LINE     80    8 PAGE UM   MTA                 JULY 28, 1977  21:47:20
0          A VARIABLE PAGING LOAD GENERATOR.  ALSO CHECKS FOR CORRECT PAGES.  THIS IS A REPLACEMENT FOR
           PAGEIT (196).  A DESCRIPTION OF THE PARAMETERS IS IN THE SOURCE.
           ASSEMBLE USING *SYSMAC.
00643/002   PAGLOAD                                  OC  G          MTA:PAGLOAD(1,999)                                              
            D4T2    977  PAGLOAD..OC.002                    1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  21:47:22
0          >>>>>> NOTE:  OBJECT HAS A REP CARD.
00644/001   DISK SPACE                               SA  G          FILE:DS                                                         
            D4T2    978  DISK_SPACE..SA.001                 1 LINE     72    3 PAGE UBC  HOGG      MTA       JULY 28, 1977  21:47:24
0          PROGRAM TO PRINT AVAILABLE DISK SPACE.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00644/002   DISK SPACE                               OC  G          FILE:DS.O                                                       
            D4T2    979  DISK_SPACE..OC.002                 1 LINE     80    2 PAGE UBC  HOGG      MTA       JULY 28, 1977  21:47:26
0          Referenced by comments of: 644/3 
00644/003   DISK SPACE                               C              *DSO                                                            
            D4T2    980  DISK_SPACE..C.003                  1 LINE     34    1 PAGE UBC  HOGG      MTA       JULY 28, 1977  21:47:28
0          COMMAND FILE INVOKED BY ENTERING "MTS *DSO" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "OPER" AND
           RUNS FILE:DS.O (644/2) WITH OUTPUT TO A TEMPORARY FILE, THE END OF WHICH (SHOWING THE TOTALS) IS THEN COPIED
           TO THE OPERATOR'S CONSOLE.
00645       UBCDSECTS                                SA           # (OBSOLETED BY 344)                                              
            D3.2T2   48  UBCDSECTS..SA.                     1 LINE     71    1 PAGE UBC                      MAR. 21, 1975  02:21:05
00646/001   SYSTEM DOCUMENTATION     LECTURE 1       WF             MTS:LECTURE1                                                    
            D4T2    981  SYSTEM_DOCUMENTATION.LECT.WF.001   1 LINE    134    8 PAGE UM   DWB                 JULY 28, 1977  21:47:30
0          FORMAT SOURCE FOR LECTURE 1 OF THE MTS SYSTEMS LECTURES AS UPDATED TO RELECT D4 MTS
           (AT LEAST AS VIEWED BY DON).
00646/002   SYSTEM DOCUMENTATION     VOL 99 PGM      SG  G          DWB:VOLUME99.S                                                  
            D4T2    982  SYSTEM_DOCUMENTATION.VOL.SG.002    1 LINE     97    9 PAGE UM   DWB                 JULY 28, 1977  21:47:33
0          A PROGRAM TO IMPLEMENT THE FINDING AND EXTRACTION OF SYSTEM INTERNAL DOCUMENTATION
           BASED ON THE CLASSIFICATION SCHEME (PREVIOUSLY PUBLISHED IN THE MTS NEWSLETTER,
           NO. 37, PP. 113-119).  WHEN RUN WITHOUT ANY PARAMETER, IT WILL ASK FOUR QUESTIONS
           VIA SERCOM/GUSER.  OUTPUT FROM THE PROGRAM IS WRITTEN ON SPRINT.  IT MAY ALSO BE
           RUN WITH A PAR= GIVING THE ANSWERS TO THE QUESTIONS SEPARATED BY COMMAS WITH MISSING
           ITEMS ASSUMED TO BE "ALL".  IN EITHER PROMPT OR PAR= MODE, ADDITIONAL INFORMATION MAY
           BE SUPPLIED TO BYPASS THE REMAINING QUESTIONS.  THE QUESTIONS ARE:
            (1) "PRINT CLASSIFICATION, DOCUMENTS, OR BOTH"
                RESPONSE:  "C" (FOR CLASSIFICATION ONLY), "D" (FOR DOCUMENTS ONLY), OR
                           "B" (FOR BOTH); OR TO CONTROL PRINTING MORE PRECISELY,
                           "C=(C|X)(U)(D)(V)" WHERE (PARENS REPRESENTING OPTIONS)
                              C MEANS PRINT CLASSIFICATION INFO,
1                                                                                               FRI AUG 02/96   16:11:27   Page  275
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                             X IS SAME AS C BUT PRINTS ONLY IF THERE IS DOCUMENT INFO,
                              U MEANS PRINT USAGE INFO,
                              D MEANS PRINT DOCUMENT INFO,
                              V MEANS PRINT VERSION INFO; OR
                           "(D|C)=<ANSWER TO QUESTION2>", OR
                           "(D|C)=<ANSWER TO QUESTION2> <ANSWER TO QUESTION 3>", OR
                           "(D|C)=<ANSWER TO QUESTION4>"
            (2) "GIVE CLASSIFICATION NUMBER"
                RESPONSE:  "ALL" (OR A NULL LINE), OR
                           N OR N1-N2, WHERE N IS A CLASSIFICATION NUMBER NNN.(N(N))
            (3) "ENTER USAGE NUMBER"
                RESPONSE:  "ALL" (OR A NULL LINE),
                           /N, WHERE N IS A USAGE NUMBER, OR
                           ? (TO GET A DESCRIPTION OF USAGE NUMBERS)
            (4) "ENTER OTHER INFO"
                RESPONSE:  ONE OR MORE OF THE FOLLOWING:
                           "ALL" (OR A NULL LINE),
                           MM-DD-YY (TO GET ENTRIES SINCE THE SPECIFIED DATE),
                           D=NNNN (TO GET A SPECIFIC DOCUMENT), OR
                           V=(NNN|LAST) (TO GET A SPECIFIC VERSION OR THE MOST RECENT)
                THE DEFAULT FOR THE VERSION IS "ALL" IF CLASSIFICATION INFORMATION IS BEING
                OBTAINED, "LAST" IF DOCUMENTS ARE BEING EXTRACTED.
00646/003   SYSTEM DOCUMENTATION     VOL 99 PGM      OC  G          SYS:VOLUME99                                                    
            D4T2    983  SYSTEM_DOCUMENTATION.VOL.OC.003    1 LINE     80   13 PAGE UM   DWB                 JULY 28, 1977  21:47:38
0          HAS EMBEDDED FILE NAMES FOR "SYS:INTCLASS" AND "SYS:INTDOCDATA".  THIS VERSION
           WILL RUN ON EITHER A 360 OR A 370; A 370 ONLY VERSION (USING MVCL AND CLCL) MAY
           BE OBTAINED BY RECOMPILING ON A 370.
00646/004   SYSTEM DOCUMENTATION     VOL 99 CLASS    D              SYS:INTCLASS                                                    
            D4T2    984  SYSTEM_DOCUMENTATION.VOL.D.004     1 LINE    101    4 PAGE UM   DWB                 JULY 28, 1977  21:47:40
0          DATA FILE CONTAINING THE CLASSIFICATION INFORMATION AND INFORMATION ABOUT THE
           DOCUMENTS.  LINES NUMBERS IN THIS FILE ARE IMPORTANT; HAS NEGATIVE LINE NUMBERS.
00646/005   SYSTEM DOCUMENTATION     VOL 99 DOC      D              SYS:INTDOCDATA                                                  
            D4T2    985  SYSTEM_DOCUMENTATION.VOL.D.005     1 LINE    190  216 PAGE UM   DWB                 JULY 28, 1977  21:47:43
0          THE "STANDARD FILE" FOR CONTAINING DOCUMENTATION; POINTED TO BY 646/4.
           DOCUMENTATION MAY ALSO BE IN OTHER FILES.
            
           NOTE:  THIS FILE IS CURRENTLY VERY INCOMPLETE SINCE DOCUMENTS HAVE ONLY RECENTLY
                  BEEN ENTERED INTO THE FILE.
00646/006   SYSTEM DOCUMENTATION     PROTECTION      WF             W045:PROTECTPAPR                                                
            D4T2    986  SYSTEM_DOCUMENTATION.PROT.WF.006   1 LINE    183   14 PAGE UM   PIRKOLA             JULY 28, 1977  21:48:18
0          DOCUMENTATION ON MTS PROTECTION OF INFORMATION IN FILES AND VM.  THIS IS A
           PAPER PRESENTED AT THE IEEE SYMPOSIUM ON COMPUTER SECURITY AND INTEGRITY, AT
           THE (U.S.) NATIONAL BUREAU OF STANDARDS, MAY 1977, BY GARY PIRKOLA AND JOHN
           SANGUINETTI.
1                                                                                               FRI AUG 02/96   16:11:27   Page  276
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
+         ______________ _____________________
00647/001   TASKSTAT SUBR                            SA  G  TKST    S1073 UNSP FSNAME=TASKSTAT.S                                    
            D4T2    987  TASKSTAT_SUBR..SA.001              1 LINE     80    7 PAGE UM   OGDEN               JULY 17, 1977  13:21:34
0          RE-ENTRANT SUBROUTINE TO RETURN STATE OF AN ACTIVE TASK AS FOLLOWS:
                CALL TASKSTAT,(JOBTABLE,CODE,INFO,PSW,DESC)
             JOBTABLE CONTAINS A POINTER TO GUESS WHAT.
             CODE WILL CONTAIN A FULLWORD INTEGER DESCRIBING THE STATE OF THE TASK:
                   0 = READY                  5 = SVC LOCK WAIT          10 = DORMANT (I.E. NO CPU Q)
                   1 = PAGE WAIT              6 = GTUNIT WAIT            11 = JOBSTA WAIT
                   2 = DISK I/O WAIT          7 = FILE WAIT              12 = CMDSTAT WAIT
                   3 = OTHER I/O WAIT         8 = UNKNOWN WAYT           13 = OPER WAIT
                   4 = TIME WAIT              9 = IDLE                   14 = INACTIVE JOB TABLE
             INFO WILL CONTAIN A FULLWORD VALUE DEPENDING ON CODE.
                FOR CODES 0 AND 1:  INFO = 0 -> NEUTRAL, 1 -> PRIV, 2 -> NON-PRIV
                FOR CODES 2, 3, 6:  INFO = DEVICE LIST POINTER
                FOR CODE 5:         INFO = LOCK NUMBER
                FOR CODE 8:         INFO = WAYT FLAG
                FOR OTHER CODES:    INFO = 0
             PSW WILL CONTAIN THE RIGHT HALF OF THE PSW IF THERE IS ONE, OTHERWISE ZERO.
             DESC WILL CONTAIN A 12-BYTE READY-TO-PRINT DESCRIPTION OF THE CURRENT STATE.
            
           CALLED BY TASKS JOB (019), SSRTN (413/1), LOADCLAS (540/7), AND THE 3270 DSR %ACTIVITY
           COMMAND (629/2).  THE %ACTIVITY COMMAND CALLS AN ALTERNATE ENTRY POINT NAMED PREVSTAT,
           WHICH REQUIRES AN ADDITIONAL PARAMETER (SA) WHICH IS A SAVE AREA CONTAINING THE TASK'S
           GR0, GR1, AND GR2 FOR THE NEXT LOWER LOCAL CPU QUEUE LEVEL AND USES THE FOURTH
           PARAMETER (PSW) AS AN INPUT RATER THAN AN OUTPUT ARGUMENT.  COPIES COPY:LLMPSEQU
           (087), *CNFGINFODSECT (654), COPY:GLOBALS (1026/4), AND COPY:JOBSTA (413/13).  ASSEMBLE
           USING COPY:SETPARM (653).
0          Referenced by comments of: 400/6, 413/1, 540/7 
00647/002   TASKSTAT SUBR                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00648/001   EDITOR                   MAIN PGM        SA  G  ED      S0809 VBDIST FSNAME=ED.MAIN.S                                   
            D4T2    988  EDITOR.MAIN_PGM.SA.001             1 LINE     80  255 PAGE UM   GOODRICH            JULY 09, 1977  14:04:42
0          THE MTS CONTEXT EDITOR.  ASSEMBLE WITH PAR=SIZE=32 USING COPY:MTS.MACROS (344)
           AND THE 648/11 MACRO LIBRARY.  THE EDITOR SUGGEST COMMAND ALLOWS USERS TO ENTER
           SUGGESTIONS WHICH ARE LOGGED IN THE FILE ETC:EDSUGGEST, IF IT EXISTS.  THIS FILE
           SHOULD BE PERMITTED WE TO ALL.
            
           NOTE:  SINCE MOST OF THE EDITOR COMPONENTS USE THE 370 CLCL AND MVCL INSTRUCTIONS,
                  IT WILL BE NECESSARY TO REASSEMBLE WITH PAR=IS=67 TO PRODUCE A 360 VERSION.
                  AS WELL AS OTHER REQUIRED MACROS, THE 648/11 MACRO LIBRARY HAS MACROS FOR
                  360 SIMULATION OF MVCL AND CLCL.
00648/002   EDITOR                   EST SUBR        SA  G  EDES    S0809 VBDIST FSNAME=EST.S                                       
            D4T2    989  EDITOR.EST_SUBR.SA.002             1 LINE     80    6 PAGE UM   GOODRICH            JUNE 30, 1977  12:31:56
0          SUBROUTINE TO CALCULATE INSERTION LINE NUMBER SPACING.
0          Referenced by comments of: 721/1 
1                                                                                               FRI AUG 02/96   16:11:27   Page  277
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
+         ______________ _____________________
00648/003   EDITOR                   I/O SUPPORT     SA  G  EDIO    S0809 VBDIST FSNAME=ED.IO.S                                     
            D4T2    990  EDITOR.I/O_SUPPORT.SA.003          1 LINE     80   72 PAGE UM   GOODRICH            JUNE 30, 1977  12:29:43
0          ASSEMBLE WITH PAR=SIZE=32 AND USING COPY:MTS.MACROS (344) AND THE 648/11
           MACRO LIBRARY.  COPIES *GDINFODSECT (594).
0          Referenced by comments of: 648/4 
00648/004   EDITOR                   VIRTUAL FILES   SA  G  EDVF    S0809 VBDIST FSNAME=ED.VF.S                                     
            D4T2    991  EDITOR.VIRTUAL_FILES.SA.004        1 LINE     80   17 PAGE UM   GOODRICH            JUNE 30, 1977  12:31:46
0          A SET OF ROUTINES WHICH ARE USED LIKE LINE FILES, BUT USE VM FOR STORAGE.  THE
           CALLING SEQUENCES ARE SIMILAR TO THOSE USED WITHIN THE EDITOR TO ACCESS THE I/O
           SUPPORT (648/3).  ASSEMBLE USING THE 648/11 MACRO FILE.
00648/005   EDITOR                   CLS INTERFACE   SA  G  EDCL    S0809 VBDIST FSNAME=ED.CLS.S                                    
            D4T2    992  EDITOR.CLS_INTERFACE.SA.005        1 LINE     80    5 PAGE UM   GOODRICH            JUNE 30, 1977  12:29:41
0          CLS INTERFACE TO THE EDITOR.  ASSEMBLE USING COPY:MTS.MACROS (344) AND THE 648/11
           MACRO LIBRARY.
00648/006   EDITOR                   370 OBJECT      OE  G          *CLSED                                                          
            D4T2    993  EDITOR.370_OBJECT.OE.006           1 LINE  32767   43 PAGE UM   GOODRICH            JULY 28, 1977  21:51:21
00648/007   EDITOR                   360 OBJECT      OE  G          WSG:ED.360                                                      
            D4T2    994  EDITOR.360_OBJECT.OE.007           1 LINE  32767   45 PAGE UM   GOODRICH            JULY 28, 1977  21:51:24
0          OBJECT FOR 360/67 VERSION OF EDITOR CLS SUITABLE FOR LOADING BY PISTLE.
00648/008   EDITOR                   ETC:EDEXPLAIN   M   O          WSG:EDEXPLAIN                                                   
            D4T2    995  EDITOR.ETC:EDEXPLAIN.M.008         1 LINE     69   29 PAGE UM   GOODRICH            JULY 28, 1977  21:51:28
0          TEXT USED BY THE EXPLAIN COMMAND.
00648/009   EDITOR                   *ED             SA  G          S0809 VBDIST FSNAME=ED.CALLER.S                                 
            D4T2    996  EDITOR.*ED.SA.009                  1 LINE     71    2 PAGE UM   GOODRICH            JUNE 30, 1977  12:29:35
0          PROGRAM INTERFACE TO EDITOR.  ASSEMBLE USING COPY:MTS.MACROS (344) AND THE MACRO
           LIBRARY (648/11).
00648/010   EDITOR                   *ED             OE  G          S0809 VBDIST FSNAME=ED.CALLER.O                                 
            D4T2    997  EDITOR.*ED.OE.010                  1 LINE    755    1 PAGE UM   GOODRICH            JULY 09, 1977  14:04:39
00648/011   EDITOR                   MACROS          SM  G  EMAC    S0809 VBDIST FSNAME=W078:MAC                                    
            D4T2    998  EDITOR.MACROS.SM.011               1 LINE     80   51 PAGE UM   GOODRICH            JULY 09, 1977  14:06:24
0          Referenced by comments of: 67/1, 67/6, 92/2, 92/3, 498/72, 546/1, 610/1, 648/9, 671/3, 671/5, 671/7, 677/1, 685/5,
                 712/1, 712/2, 712/3, 716/2, 716/4, 716/6, 716/8, 716/11, 721/1 
00649/001   SNOBOLTIDY                               SA  G  STID    S1073 UNSP FSNAME=SNOBOLTIDY.S                                  
            D4T2    999  SNOBOLTIDY..SA.001                 1 LINE     80    9 PAGE UM   OGDEN               SEP. 30, 1975  11:00:41
0          A SNOBOL4 SOURCE TIDYING PROGRAM WHICH ESTABLISHES A CORRESPONDENCE BETWEEN
           MTS LINE NUMBERS AND THE INTERNAL STATEMENT NUMBERS USED BY THE COMPILERS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  278
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          AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.  ASSEMBLE USING *SYSMAC.
00649/002   SNOBOLTIDY                               OE  G          UNSP:SNOBOLTIDY                                                 
            D4T2   1000  SNOBOLTIDY..OE.002                 1 SEQ    1382    2 PAGE UM   OGDEN               JULY 28, 1977  21:52:17
00650/001   BJPMOD                                   SA  G  BJPM    S1073 UNSP FSNAME=BJPMOD                                        
            D4T2   1001  BJPMOD..SA.001                     1 LINE     80    5 PAGE UM   OGDEN               OCT. 30, 1976  13:12:07
0          SUBROUTINE CALLED BY SSRTN (413/1) TO DYNAMICALLY ADJUST THE SUPERVISOR PAGING
           PARAMETERS BASED ON THE SYSTEM LOAD.
           COPIES COPY:GLOBALS (1026/4), COPY:JOBSTA (413/13), AND COPY:BJPDSCT (650/3).
0          Referenced by comments of: 45/2, 413/1, 540/9 
00650/002   BJPMOD                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00650/003   BJPMOD                   BJP DSECT       SA  G  BJPD    COPY:BJPDSCT                                                    
            D4T2   1002  BJPMOD.BJP_DSECT.SA.003            1 LINE     80    1 PAGE UM   OGDEN               JULY 28, 1977  21:53:18
0          DSECT FOR SUPERVISOR'S BIG JOB PARAMETER VECTOR.
0          Referenced by comments of: 413/1, 540/9, 577/53, 650/1 
00650/004   BJPMOD                   WRITEUP         WF             S1073 UNSP FSNAME=BJPMOD.F                                      
            D4T2   1003  BJPMOD.WRITEUP.WF.004              1 LINE     69    3 PAGE UM   OGDEN               MAY  05, 1977  01:03:40
0          NOTES ON BJPMOD AND CPU SCHEDULING.
00651/001   RATES                    RATEFILEFMT     SA  G  RTFL    S0027 DISTRB FSNAME=RATEFILEFMT                                 
            D4T2   1004  RATES.RATEFILEFMT.SA.001           1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  14:24:36
0          DESCRIBES MTS RATE LINES IN *RATEFILE.
0          Referenced by comments of: 651/3 
00651/002   RATES                    COPY:RATEVEC    SA  G          COPY:RATEVEC                                                    
            D4T2   1005  RATES.COPY:RATEVEC.SA.002          1 LINE     80    2 PAGE UM   ENGLE               JULY 28, 1977  21:53:38
0          DSECT COPIED UNDER THE NAME "COPY:RATEVEC" TO DESCRIBE "RATEVEC" IN SHARED
           VM AND THE INFORMATION RETURNED BY GETRATES (651/8).
0          Referenced by comments of: 42/1, 71/1, 104/13, 104/52, 578/1, 615/13, 631/6, 632/3, 636/1, 651/8, 651/10, 651/12,
                 708/1 
00651/003   RATES                    RATEGEN         SA  G  RGEN    S0027 DISTRB FSNAME=RATEGEN                                     
            D4T2   1006  RATES.RATEGEN.SA.003               1 LINE     80   10 PAGE UM   ENGLE               MAY  17, 1976  14:32:01
0          PROGRAM TO GENERATE *RATEFILE.  EACH LINE IN *RATEFILE IS PRODUCED BY A MACRO
           EXPANSION.  CONSEQUENTLY, MACRO CALLS MUST BE CHANGED OR ADDED AND THE PROGRAM
           REASSEMBLED FOR EACH CHANGE IN THE RATES.
           COPIES RATEFILEFMT (651/1).
1                                                                                               FRI AUG 02/96   16:11:27   Page  279
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: 651/7 
00651/004   RATES                    RATEGEN         OC  G          S0027 DISTRB FSNAME=RGEN                                        
            D4T2   1007  RATES.RATEGEN.OC.004               1 LINE     80    9 PAGE UM   ENGLE               MAY  17, 1976  14:33:01
00651/005   RATES                    RATEPRNT        SA  G          S0967 'D3.2T2' FSNAME=RATES.RATEPRNT.SA.05(1)                 56
            D4T2   1008  RATES.RATEPRNT.SA.005              1 LINE     80    4 PAGE UM   ENGLE               MAY  03, 1974  14:42.03
0          PROGRAM TO PRINT THE CONTENTS OF *RATEFILE.  RATE LINES ARE PRINTED AS IF THEY FORMED
           A COLUMN MAJOR MATRIX CONTAINING 3 ROWS.
00651/006   RATES                    RATEPRNT        OC  G          S0967 'D3.2T2' FSNAME=RATES.RATEPRNT.OC.06(1)                 57
            D4T2   1009  RATES.RATEPRNT.OC.006              1 LINE     80    1 PAGE UM   ENGLE               MAY  03, 1974  14:42.23
00651/007   RATES                    *RATEFILE       D   G          MTS:TST.RATEFILE                                                
            D4T2   1010  RATES.*RATEFILE.D.007              1 LINE    222    1 PAGE UM   ENGLE               JULY 28, 1977  21:54:03
0          FILE USED BY MTS AND BILLING FOR CHARGE RATES.  DOES NOT AGREE WITH DISTRIBUTED
           VERSION OF RATEGEN (651/3)-- HAS EXTRA CHEAP RATES (FREE).
00651/008   RATES                    GETRATES        SA  G  GETR    MTS:GETRATES(1,999)                                             
            D4T2   1011  RATES.GETRATES.SA.008              1 LINE     80    6 PAGE UM   MTA                 JULY 28, 1977  21:54:04
0          SUBROUTINE TO RETURN RATES GIVEN A RATE NUMBER.
           THIS IS THE ONLY PROGRAM OUTSIDE OF THE ACCOUNTING AND BILLING PROGRAMS
           WHICH ACCESSES *RATEFILE.  COPIES COPY:RATEVEC (651/2).
0          Referenced by comments of: 71/1, 651/2 
00651/009   RATES                    GETRATES        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00651/010   RATES                    RATENBR         SA  G  RNBR    MTS:RATENBR                                                     
            D4T2   1012  RATES.RATENBR.SA.010               1 LINE     80   14 PAGE UM   MTA                 JULY 28, 1977  21:54:06
0          SUBROUTINE TO COMPUTE THE APPROPRIATE RATE NUMBER FOR THE CURRENT JOB.
           COPIES COPY:GLOBALS (1026/4), COPY:LLMPSEQU(100) (087), COPY:RATEVEC (651/2),
           AND *CNFGINFODSECT (654).  ASSEMBLE USING COPY:MTS.MACROS (344).
00651/011   RATES                    RATENBR         OC  G        # RESIDENT SYSTEM (SEE 468/1)                                     
                                                                                    UM   MTA                                        
00651/012   RATES                    RATEVEC         SA  G  RVEC    MTS:RATEVEC(1,999)                                              
            D4T2   1013  RATES.RATEVEC.SA.012               1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  21:54:08
0          INITIAL VALUES FOR RATE VECTOR.  COPIES COPY:RATEVEC (651/2).
00651/013   RATES                    RATEVEC         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00651/014   RATES                    DOCUMENTATION   WF             S0938 FSAVE2 LBLTYPE=VLO FSNAME=VBLRATEDOC(1)                   
            D4T2   1014  RATES.DOCUMENTATION.WF.014         1 LINE    126    5 PAGE UM   MTA                 SEP. 23, 1975  00:16:54
0          A WRITEUP DESCRIBING THE MTS VARIABLE RATES IMPLEMENTATION.
1                                                                                               FRI AUG 02/96   16:11:27   Page  280
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
+         ______________ _____________________
00652/001   MTS VOLUME 12            MASTER          WT  G          S0909 MTSV12 'MTS MANUALS' POSN=NEWM1.V12                       
            D4T2   1015  MTS_VOLUME_12.MASTER.WT.001        1 SEQ     132  108 PAGE UM   MANUAL              JULY 28, 1977  21:55:28
0          TEXT/360 MASTER FOR VOLUME 12 "PIL/2 IN MTS" OF THE UM MTS MANUALS (DECEMBER 1974).
            
           EDITOR:  RICHARD A. SALISBURY
00652/002   MTS VOLUME 12            PRINT           PT  G          S0909 MTSV12 'MTS MANUALS' POSN=PRINT1.V12                      
            D4T2   1016  MTS_VOLUME_12.PRINT.PT.002         1 SEQ     132  248 PAGE UM   MANUAL              JULY 28, 1977  21:55:38
0          TEXT/360 PRINT FILE.
00653       SETPARM                                  SM  G          COPY:SETPARM                                                    
            D4T2   1017  SETPARM..SM.                       1 LINE     71    1 PAGE UM   MTA                 JULY 28, 1977  21:55:44
0          MACRO LIBRARY CONTAINING ONLY THE SETPARM MACRO WHICH GENERATES
           SETB STATEMENTS FOR THE COPY:GLOBALDEFS (1026/1) SYMBOLS BASED ON THE
           SYSPARM FIELD GIVEN TO *ASMG.
           FOR EXAMPLE, IF A PROGRAM HAS A SETPARM MACRO (AFTER COPYING COPY:GLOBALS)
           AND IS ASSEMBLED WITH PAR=SYSPARM=00011001010 THEN ADDITIONAL SETB
           STATEMENTS WILL BE GENERATED AS FOLLOWS:
               &S370    SETB  0
               &OC3066  SETB  0
               &CRTY    SETB  0
               &SIMPLEX SETB  1
               &OPERJOB SETB  1
               &PROT    SETB  0
               &AMD470  SETB  0
               &BLKMPX  SETB  1
               &IO370   SETB  0
               &NOSLT   SETB  1
               &OMR     SETC  'NO'
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 79/1, 399/1, 400/1, 400/6, 400/7, 540/5, 577/53, 577/58,
                 579/1, 598/1, 634/1, 634/3, 647/1, 1021/1, 1021/3 
00654      *CNFGINFODSECT                            SA  G          *CNFGINFODSECT                                                  
            D4T2   1018  CNFGINFODSECT..SA.                 1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  21:55:44
0          DSECT FOR TABLE DESCRIBING SYSTEM CONFIGURATION (E.G. CPU TYPE AND FEATURES).
           THIS TABLE IS NOT RELATED TO CHACST (577/28).
0          Referenced by comments of: 4/1, 4/4, 46/3, 46/4, 97/10, 104/44, 135/1, 303/1, 303/4, 360/1, 413/1, 465/1, 482/3,
                 482/7, 507/2, 540/9, 545/4, 545/14, 558/1, 600/1, 600/8, 634/1, 636/1, 647/1, 651/10 
00655/001   EREP/370                 COMMANDS        C              MTA:EREPCMD                                                     
            D4T2   1019  EREP/370.COMMANDS.C.001            1 LINE    112    1 PAGE UM   MTA                 JULY 28, 1977  21:55:46
0          IBM VS2 EREP PROGRAM (IFCEREP0) TO PRINT CPU AND CHANNEL LOGOUTS AND
           3330 AND 2305 DIRECT ACCESS ERRORS.
            
           TO USE EREP IN MTS, ENTER THE FOLLOWING COMMANDS:
            
             $SINK <OUTPUT>
1                                                                                               FRI AUG 02/96   16:11:27   Page  281
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            $SOURCE EREPCMD
             <STARTING DATE>
             <ENDING DATE>
             <EREP PARAMETERS>
            
           WHERE <OUTPUT> IS THE OUTPUT FDNAME, E.G. *PRINT*,
                 EREPCMD IS THE FILE CONTAINING 655/1 MODIFIED FOR LOCAL FILE NAMES, AND
                 <EREP PARAMETERS> ARE ANY OF THE PARAMETERS FOR THE IBM EREP PROGRAM
                                   AS SHOWN IN THE IBM DOCUMENTATION (FORM GC28-0677).
            
           USAGE OF THIS PROGRAM IS DESCRIBED IN THE OPERATOR'S MANUAL (592).
00655/002   EREP/370                 CNVTEREP        SA  O          MTA:CNVTEREP(1,999)                                             
            D4T2   1020  EREP/370.CNVTEREP.SA.002           1 LINE     72    5 PAGE UM   MTA                 JULY 28, 1977  21:55:48
0          PROGRAM TO CONVERT LOG RECORDS GENERATED BY MCHCCH (577/53) AND UC3330 (603) TO
           A FORMAT ACCEPTABLE TO THE IBM EREP PROGRAM WHICH IS RUN UNDER *FAKEOS IN MTS.
           CALLS JVCT (674) AND MAY CALL IGFC60 (589/5), IGFC70 (589/6), IGFC80 (589/7),
           IGFCIC (NOT DISTRIBUTED), OR A#VCCH47 (589/9) IF VERY OLD DATA IS PROCESSED.
           COPIES COPY:CMDAREADSECT (531/12).  ASSEMBLE USING MCHMAC (577/57).
00655/003   EREP/370                 CNVTEREP        OC  O          MTA:CNVTEREP(1000)                                              
            D4T2   1021  EREP/370.CNVTEREP.OC.003           1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  21:55:51
00655/004   EREP/370                 470 RMS SOURCE  SA  G          S0938 FSAVE2 LBLTYPE=VLO FSNAME=RMS470(2)                    183
            D4T2   1022  EREP/370.470_RMS_SOURCE.SA.004     1 LINE     80  704 PAGE AMD            MTA       NOV. 13, 1976  00:47:56
0          SOURCE FOR AMDAHL "RMS UPGRADE" FOR VS2 REL 3.7.  THIS CORRESPONDS TO EREP470LIB
           (655/9) EXCEPT FOR IFCSI470 (655/5), IFCEI470 (655/6), IFCS0470 (655/7), AND
           IFCE0470 (655/8) WHICH HAVE BEEN SUBSEQUENTLY UPDATED.  ASSEMBLE USING *OSMAC.
           THIS COMPONENT CONTAINS INFORMATION FROM FIVE MVS LIBRARIES:  SYS.AGENLIB, SYS.AOSCD,
           SYS.AOSCE, SYS.AOSC5, AND SYS.ASAMPLIB.  IT CONTAINS 19 SOURCE MODULES OR MACROS.
           EACH LIBRARY IS PRECEDED BY A LINE WITH "*SYS1." IN COL 1-6.  EACH MEMBER IS
           PRECEDED BY A "./ ADD" LINE.  THE EIGHT EREP MODULES (FOUR OF WHICH HAVE BEEN
           REPLACED) ARE IN SYS1.AOSCD.  IGNORE ALL THE REST.
00655/005   EREP/370                 IFCSI470        SA  G          MTA:EREPIFCSI470                                                
            D4T2   1023  EREP/370.IFCSI470.SA.005           1 LINE     72   12 PAGE AMD            MTA       JULY 28, 1977  21:56:44
0          SOURCE FOR IFCSI470 WITH A FIX FROM THE AMDAHL FISCHE APPLIED.
0          Referenced by comments of: 655/4, 655/9 
00655/006   EREP/370                 IFCEI470        SA  G          MTA:EREPIFCEI470                                                
            D4T2   1024  EREP/370.IFCEI470.SA.006           1 LINE     72   17 PAGE AMD            MTA       JULY 28, 1977  21:56:46
0          SOURCE FOR IFCEI470 WITH A FIX FROM THE AMDAHL FISCHE APPLIED.
0          Referenced by comments of: 655/4, 655/9 
00655/007   EREP/370                 IFCS0470        SA  G          MTA:EREPIFCS0470                                                
            D4T2   1025  EREP/370.IFCS0470.SA.007           1 LINE     80   32 PAGE AMD            MTA       JULY 28, 1977  21:56:49
0          MACHINE CHECK SUMMARY MODULE FOR 470, UPDATED AS INDICATED ON AMDAHL FISCHE Z#0048.
1                                                                                               FRI AUG 02/96   16:11:27   Page  282
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: 655/4, 655/9 
00655/008   EREP/370                 IFCE0470        SA  G          MTA:EREPIFCE0470                                                
            D4T2   1026  EREP/370.IFCE0470.SA.008           1 LINE     80   33 PAGE AMD            MTA       JULY 28, 1977  21:56:52
0          MACHINE CHECK EDIT MODULE FOR 470 ERRORS, UPDATED AS INDICATED ON AMDAHL FISCHE Z#0048.
0          Referenced by comments of: 655/4, 655/9 
00655/009   EREP/370                 470 LIBRARY     OL  G          ETC:EREP470LIB                                                  
            D4T2   1027  EREP/370.470_LIBRARY.OL.009        1 LINE   7926   39 PAGE AMD            MTA       JULY 28, 1977  21:56:55
0          LIBRARY OF IBM EREP MODULES REPLACED BY THE AMDAHL "RMS UPGRADE" TAPE, PLUS A
           FEW PATCHES WHICH HAVE SUBSEQUENTLY BEEN SENT OUT BY AMDAHL.  THE UPDATED VERSIONS
           OF IFCSI470 (655/5), IFCEI470 (655/6), IFCS0470 (655/7), AND IFCE0470 (655/8) ARE
           ALSO INCLUDED.
0          Referenced by comments of: 655/4 
00655/010   EREP/370                 ALIASES         SS  O          MTA:EREP.ALIPGM                                                 
            D4T2   1028  EREP/370.ALIASES.SS.010            1 LINE     65    1 PAGE UM   MTA                 JULY 28, 1977  21:57:00
0          SPITBOL PROGRAM WHICH READS THE OS/VS LINKEDIT INPUT FOR EREP (655/11) ON UNIT 0,
           THE BLDL OUTPUT PRODUCED BY *UNLINKER (655/12) ON UNIT 2, AND PRODUCES UMLOAD
           ALI RECORDS ON UNIT 1 AND ADDITIONAL BLDL RECORDS ON UNIT 3.  UNITS 2 AND 3 ARE
           THEN FED TO CREBLDL AND UNIT 1 OUTPUT IS PUT AT THE FRONT OF EREPLIB (655/14).
0          Referenced by comments of: 655/12 
00655/011   EREP/370                 LINKEDIT INPUT  D              S0938 FSAVE2 LBLTYPE=VLO FSNAME=EREP.LKED(1)                 192
            D4T2   1029  EREP/370.LINKEDIT_INPUT.D.011      1 LINE     49    4 PAGE UM   MTA                 DEC. 19, 1976  20:47:11
0          OS/VS LINKEDIT CONTROL CARDS FOR EREP FOR ALL POSSIBLE OPTIONS, I.E. UNION OF ALL
           POSSIBLE OUTPUT FROM EREP.SGMAC (655/16).  CORRESPONDS TO VS2 REL 3.7.
0          Referenced by comments of: 655/10 
00655/012   EREP/370                 BLDL IN         D   O          MTA:EREPBLDLIN                                                  
            D4T2   1030  EREP/370.BLDL_IN.D.012             1 LINE     64    5 PAGE UM   MTA                 JULY 28, 1977  21:57:07
0          INPUT TO CREBLDL FOR EREP.  LINES (1,999) ARE OUTPUT FROM *UNLINKER.
           LINES (1000,*L) ARE OUTPUT FROM ALIASES (655/10).
0          Referenced by comments of: 655/10 
00655/013   EREP/370                 BLDL OUT        D              ETC:EREPBLDL                                                    
            D4T2   1031  EREP/370.BLDL_OUT.D.013            1 SEQ     254    4 PAGE UM   MTA                 JULY 28, 1977  21:57:10
0          OUTPUT FROM CREBLDL FOR EREP.
00655/014   EREP/370                 LIBRARY         OL  O          ETC:EREPLIB                                                     
            D4T2   1032  EREP/370.LIBRARY.OL.014            1 LINE   6144  183 PAGE UM   MTA                 JULY 28, 1977  21:57:12
0          LIBRARY CONTAINING ALL OF EREP (VS2 REL 3.7) FOR ALL MODELS OF 370.
1                                                                                               FRI AUG 02/96   16:11:27   Page  283
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          PATCHED TO FIX IBM BUG IN 3330 SUMMARY OUTPUT.
0          Referenced by comments of: 655/10 
00655/015   EREP/370                 OBJECT          OE  O          S0938 FSAVE2 LBLTYPE=VLO FSNAME=EREPOBJ(3)                   190
            D4T2   1033  EREP/370.OBJECT.OE.015             1 LINE   6144  188 PAGE UM   MTA                 DEC. 19, 1976  20:36:47
0          EREP OBJECT MUCH AS IT CAME FROM VS2 (REL 3.7).  CHANGED TO ADD "MTS" TO THE TABLE
           OF SYSTEM NAMES IN EACH MODULE.  THE FOLLOWING MODULES ARE NOT REFERENCED IN THE
           SYSGEN MACRO (655/16) AND SHOULD BE DELETED BEFORE MAKING THIS INTO A LIBRARY
           SINCE THEY CAUSE DUPLICATE SYMBOLS:
            
             IFCE3330   (LINE 709)
             IFCS3340   (LINE 807, ENTRY POINT IFCSAXXC)
             IFCE3800   (LINE 932, ENTRY POINT IFCEXXXF)
             IFCS3800   (LINE 939, ENTRY POINT IFCSXXXF)
             IFCEXXXF   (LINE 1070)
             IFCSXXXF   (LINE 1077, ALIAS IFCST00C)
            
           ALSO DELETE THE BLDL LINES FROM EREPBLDLIN.
            
           THE FOLLOWING MODULES ARE REFERENCED IN THE SYSGEN MACRO BUT ARE NOT INCLUDED:
           IFCE0135, IFCS0135, AND IFCEI135.
            
           SEVERAL OTHER MODULES HAVE A MEMBER NAME DIFFERENCT FROM THE ENTRY POINT NAME
           BUT, IN ALL CASES, THE ENTRY POINT NAME IS GIVEN AS AN ALIAS OR MEMBER NAME IN
           THE SYSGEN MACRO SO EVERYTHING WORKS.
            
           >>>>> NOTE:  HAS MANY REP CARDS.
00655/016   EREP/370                 SYSGEN MACRO    SA  G          S0938 FSAVE2 LBLTYPE=VLO FSNAME=EREP.SGMAC(1)                191
            D4T2   1034  EREP/370.SYSGEN_MACRO.SA.016       1 LINE     80   13 PAGE UM   MTA                 DEC. 19, 1976  20:46:48
0          VS2 REL 3.7 EREP SYSGEN MACRO SGIFB400.  IT IS NOT INTENDED THAT THIS MACRO BE
           ASSEMBLED AS IS; IT IS INCLUDED ONLY TO INDICATE WHAT PART OF EREP SUPPORTS WHAT
           DEVICE OR FEATURE.  655/11 IS THE RESULT OF ASSEMBLING AN EDITED VERSION OF THIS.
0          Referenced by comments of: 655/11, 655/15 
00656/001   GT40 GRAPHICS SYSTEM     SYST            S   O          S0933 IGDIST FSNAME=GT40.SYST.S                                 
            D4T2   1035  GT40_GRAPHICS_SYSTEM.SYST.S.001    1 LINE     85   33 PAGE UM   GOODRICH            AUG. 12, 1976  15:57:09
0          GRAPHICS OPERATING SYSTEM FOR DEC GT40 DISPLAY.  COPIES W081:GT40.EQU.C (656/2).
00656/002   GT40 GRAPHICS SYSTEM     EQUS            S   G          S0981 W114 'W114SAVE' FSNAME=GT40.EQU.C                         
            D4T2   1036  GT40_GRAPHICS_SYSTEM.EQUS.S.002    1 LINE     72    1 PAGE UM   GOODRICH            APR. 03, 1975  17:27:56
0          Referenced by comments of: 656/1 
00656/003   GT40 GRAPHICS SYSTEM     SYST            O   O          S0933 IGDIST FSNAME=GT40.SYST                                   
            D4T2   1037  GT40_GRAPHICS_SYSTEM.SYST.O.003    1 LINE     55    3 PAGE UM   GOODRICH            MAY  16, 1977  17:49:15
0          HAS A "$CONTINUE WITH SBWB:LOADER RETURN" CARD TO PICK UP THE OBJECT FOR 656/4.
1                                                                                               FRI AUG 02/96   16:11:27   Page  284
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
+         ______________ _____________________
00656/004   GT40 GRAPHICS SYSTEM     LOADER          S   G          S0933 IGDIST FSNAME=GT40.LOAD.S                                 
            D4T2   1038  GT40_GRAPHICS_SYSTEM.LOAD.S.004    1 LINE     82    3 PAGE UM   GOODRICH            AUG. 12, 1976  15:57:22
0          PROGRAM TO LOAD A DEC GT40 DISPLAY VIA TELEPHONE LINE.
00656/005   GT40 GRAPHICS SYSTEM     LOADER          O   G          S0933 IGDIST FSNAME=GT40.LOAD                                   
            D4T2   1039  GT40_GRAPHICS_SYSTEM.LOAD.O.005    1 LINE     76    1 PAGE UM   GOODRICH            MAY  16, 1977  17:49:13
00657/001  *ASCEBCD                                  SA  G  ASCE    S0221 FSAVE FSNAME=ASCEBCD                                      
            D4T2   1040  ASCEBCD..SA.001                    1 LINE     80    4 PAGE UM   WSG                 MAR. 15, 1976  15:27:42
0          PROGRAM TO TRANSLATE ARBITRARY LENGTH RECORDS FROM ASCII TO EBCDIC USING
           EITHER THE MTS OR IBM ASCEBC TRANSLATE TABLE.  SOURCE IN LINES (1,999).
00657/002  *ASCEBCD                                  OC  G          *ASCEBCD                                                        
            D4T2   1041  ASCEBCD..OC.002                    1 LINE     80    1 PAGE UM   WSG                 JULY 28, 1977  21:59:14
00658/001  *EBCDASC                                  SA  G  EBAS    S0221 FSAVE FSNAME=EBCDASC                                      
            D4T2   1042  EBCDASC..SA.001                    1 LINE     80    5 PAGE UM   WSG                 JAN. 13, 1977  12:55:34
0          PROGRAM TO TRANSLATE ARBITRARY LENGTH RECORDS FROM EBCDIC TO ASCII USING
           EITHER THE MTS OR IBM ASCII TRANSLATE TABLE.
           SOURCE IN LINES (1,999).
00658/002  *EBCDASC                                  OC  G          *EBCDASC                                                        
            D4T2   1043  EBCDASC..OC.002                    1 LINE     80    1 PAGE UM   WSG                 JULY 28, 1977  21:59:32
00659/001   GOM                      COMPILER FTN    SF  G          DWB:GOM.S                                                       
            D4T2   1044  GOM.COMPILER_FTN.SF.001            1 LINE     90   84 PAGE UM   DWB                 AUG. 14, 1977  22:11:57
0          COMPILER FOR "GOOD OLD MAD" -- A LANGUAGE SIMILAR TO THE 7090 MAD LANGUAGE.
           THE COMPILER MAY BE RUN ON EITHER A 360 OR 370/470.  THE OBJECT CODE PRODUCED IS
           MACHINE INDEPENDENT EXCEPT FOR SUBSTRING NOTATION ON CHARACTER ARRAYS.  FOR MOVES OR
           COMPARES WHOSE LENGTH IS UNKNOWN AT COMPILE TIME OR WHOSE LENGTH IS GREATER THAN 256,
           MVCL OR CLCL INSTRUCTIONS WILL BE GENERATED IF THE COMPILER IS BEING RUN ON A 370/470
           (IT USES THE CNFGINFO TABLE TO DETERMINE THIS) UNLESS PAR=360 HAS BEEN SPECIFIED.
           FOR THE 360 CASE, THE COMPILER PRODUCES AN INTERNAL SUBROUTINE TO SIMULATE MVCL AND
           CLCL IF NECESSARY.
            
           THIS FILE HAS 70 FORTRAN MODULES.  SOURCE BEGINS AT LINES 1000, 2000, ... 70000.
           "$CONTINUE WITH" FILES: GOM.COMMON (659/8), GOM.COMMOND (659/10), GOM.CONTAB (659/11),
           GOM.MATRIX (659/12), AND GOM.SYMTAB (659/13).  NOTE:  COMPILING THESE WILL PRODUCE
           THREE WARNING MESSAGES FROM THE COMPILATION OF THE STMTYP MODULE (31000,31999).
0          Referenced by comments of: 659/5, 659/20 
00659/002   GOM                      COMPILER FTN    OC  G          DWB:GOM.O                                                       
            D4T2   1045  GOM.COMPILER_FTN.OC.002            1 LINE  20516  125 PAGE UM   DWB                 AUG. 14, 1977  22:13:03
0          OBJECT CORRESPONDING TO 659/1, PLUS THE OBJECT FOR THE MODULE WHOSE SOURCE
           IS IN LINES (1000,1999) OF 659/3 SINCE THIS IS THE ONLY GOM MODULE WHICH IS
           REQUIRED.  THIS ALLOWS CHECKOUT TO BE DONE USING 659/2 + 659/6.
1                                                                                               FRI AUG 02/96   16:11:27   Page  285
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
+         ______________ _____________________
00659/003   GOM                      COMPILER GOM    SG  G          DWB:GOM.SG                                                      
            D4T2   1046  GOM.COMPILER_GOM.SG.003            1 LINE     85    4 PAGE UM   DWB                 JULY 28, 1977  22:01:20
0          GOM PIECES OF THE COMPILER, I.E. PORTIONS OF THE COMPILER WRITTEN IN ITSELF.
           REFERENCES CNFGINFO IN LCSYMBOL.  AS OF THIS TIME, IT HAPPENS THAT NONE OF
           THE PIECES GENERATES MVCL'S, SO THEY WILL WORK ON EITHER A 360 OR 370.  THIS
           MAY CHANGE IN LATER VERSIONS, HOWEVER, IN WHICH CASE RECOMPILATION WITH
           PAR=360 WILL BE NECESSARY.
00659/004   GOM                      COMPILER GOM    OC  G          DWB:GOM.OG                                                      
            D4T2   1047  GOM.COMPILER_GOM.OC.004            1 LINE   1888    6 PAGE UM   DWB                 JULY 28, 1977  22:01:22
0          OBJECT CORRESPONDING TO 659/3, EXCEPT FOR THE MODULE WHOSE SOURCE IS IN LINES
           (1000,1999) OF 659/3 WHICH HAS ITS OBJECT IN 659/2.
00659/005   GOM                      SEQUENCES       SA  G  SEQS    DWB:GOM.SEQS                                                    
            D4T2   1048  GOM.SEQUENCES.SA.005               1 LINE     80   89 PAGE UM   DWB                 JULY 28, 1977  22:01:24
0          THIS IS NOT EXECUTABLE. THE FORTRAN SOURCE PIECES (659/1) TREAT THIS AS A
           COMMON SECTION THAT IS AN ARRAY OF HALFWORDS.
00659/006   GOM                      SEQUENCES       OC  G          DWB:GOM.SEQS.O                                                  
            D4T2   1049  GOM.SEQUENCES.OC.006               1 LINE     80   27 PAGE UM   DWB                 JULY 28, 1977  22:01:41
0          OBJECT CORRESPONDING TO 659/5.
00659/007   GOM                      OBJECT          OE  G          NEW:GOM                                                         
            D4T2   1050  GOM.OBJECT.OE.007                  1 LINE  32767   74 PAGE UM   DWB                 AUG. 14, 1977  22:13:36
0          RESULT OF RUNNING *LINKEDIT WITH THE FOLLOWING COMMANDS:
             INCLUDE GOM.O
             INCLUDE GOM.SEQS.O
             UPDATE GOM.OG
             COMBINE@BC
             PURGE
             $EMPTY NEW:GOM
             PUNCH NEW:GOM
            
           NOTE:  THE UPDATE COMMAND IN THE ABOVE SEQUENCE WILL CAUSE *LINKEDIT TO EMIT A
                  WARNING MESSAGE TO THE EFFECT THAT THERE ARE STRUCTURAL DIFFERENCES IN THE
                  MODULES DEFINING MTRXPR.  THIS IS OK.
            
           AN ALMOST ALL-FORTRAN VERSION CAN BE PRODUCED BY THE FOLLOWING *LINKEDIT COMMANDS:
             INCLUDE GOM.O
             INCLUDE GOM.SEQS.O
             COMBINE@BC
             PURGE
             $EMPTY NEW:GOM
             PUNCH NEW:GOM
00659/008   GOM                      COMMON DECLAR   SF  G          DWB:GOM.COMMON                                                  
            D4T2   1051  GOM.COMMON_DECLAR.SF.008           1 LINE     71    1 PAGE UM   DWB                 JULY 28, 1977  22:01:48
0          "$CONTINUE WITH"ED BY ALL FORTRAN MODULES. CONTAINS COMMON DEFINITIONS AND
1                                                                                               FRI AUG 02/96   16:11:27   Page  286
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          COMMON DECLARATIONS.
0          Referenced by comments of: 659/1, 659/14 
00659/009   GOM                      COMMON DECLAR   SG  G          DWB:GOM.COMMONG                                                 
            D4T2   1052  GOM.COMMON_DECLAR.SG.009           1 LINE     83    2 PAGE UM   DWB                 JULY 28, 1977  22:01:50
0          GOM "COPY SECTION" EQUIVALENT TO 659/8.  "$CONTINUE WITH"ED BY ALL GOM MODULES.
0          Referenced by comments of: 659/14 
00659/010   GOM                      DEPEND DECLAR   SF  G          DWB:GOM.COMMOND                                                 
            D4T2   1053  GOM.DEPEND_DECLAR.SF.010           1 LINE     71    1 PAGE UM   DWB                 JULY 28, 1977  22:01:52
0          "$CONTINUE WITH"ED BY ALL MODULES WHICH ARE CHARACTER OR MACHINE DEPENDENT.
           CONTAINS COMMON SECTIONS AND DEFINITIONS.
0          Referenced by comments of: 659/1 
00659/011   GOM                      CON TAB DECLAR  SF  G          DWB:GOM.CONTAB                                                  
            D4T2   1054  GOM.CON_TAB_DECLAR.SF.011          1 LINE     71    1 PAGE UM   DWB                 JULY 28, 1977  22:01:54
0          "$CONTINUE WITH"ED BY THOSE MODULES DEALING WITH THE CONSTANT TABLE.
           CONTAINS ALL DEFINITIONS FOR CONSTANT TABLE.
0          Referenced by comments of: 659/1 
00659/012   GOM                      TRIPLES TABLE   SF  G          DWB:GOM.MATRIX                                                  
            D4T2   1055  GOM.TRIPLES_TABLE.SF.012           1 LINE     38    1 PAGE UM   DWB                 JULY 28, 1977  22:01:56
0          "$CONTINUE WITH"ED BY THOSE MODULES DEALING WITH THE TRIPLE TABLE.
           CONTAINS ALL DEFINITIONS FOR TRIPLE TABLE.
0          Referenced by comments of: 659/1 
00659/013   GOM                      SYM TAB DECLAR  SF  G          DWB:GOM.SYMTAB                                                  
            D4T2   1056  GOM.SYM_TAB_DECLAR.SF.013          1 LINE     69    1 PAGE UM   DWB                 JULY 28, 1977  22:01:59
0          "$CONTINUE WITH"ED BY ALL MODULES HANDLING THE SYMBOL TABLE.
           CONTAINS ALL DEFINITIONS FOR SYMBOL TABLE.
0          Referenced by comments of: 659/1 
00659/014   GOM                      COPY SECT CVT   SS  G          DWB:GOM.CONVERT                                                 
            D4T2   1057  GOM.COPY_SECT_CVT.SS.014           1 LINE     70    1 PAGE UM   DWB                 JULY 28, 1977  22:02:01
0          SNOBOL PROGRAM TO CONVERT THE FORTRAN COPY SECTIONS (E.G. GOM.COMMON (659/8))
           INTO THE EQUIVALENT GOM COPY SECTIONS (E.G. GOM.COMMONG (659/9)).
00659/015   GOM                      DOCUMENTATION   WF             DWB:GOM.LANGWRUP                                                
            D4T2   1058  GOM.DOCUMENTATION.WF.015           1 LINE    111    3 PAGE UM   DWB                 JULY 28, 1977  22:02:03
0          WRITEUP DESCRIBING DIFFERENCES BETWEEN THE GOM LANGUAGE AND THAT OF THE OLD
           7090 MAD ON WHICH IT IS BASED, AND HOW TO RUN THE COMPILER.
1                                                                                               FRI AUG 02/96   16:11:27   Page  287
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          SEE ALSO GOMNEWS (659/16) FOR RECENT ADDITIONS.
00659/016   GOM                      NEWS FILE       P              DWB:GOMNEWS                                                     
            D4T2   1059  GOM.NEWS_FILE.P.016                1 LINE     78   11 PAGE UM   DWB                 JULY 28, 1977  22:02:06
0          CONTAINS DESCRIPTIONS OF RECENT ADDITIONS TO THE LANGUAGE.
0          Referenced by comments of: 659/15 
00659/017   GOM                      USER'S MANUAL   WF             DWB:GOMMANUAL                                                   
            D4T2   1060  GOM.USER'S_MANUAL.WF.017           1 LINE    147   41 PAGE UM   DWB                 JULY 28, 1977  22:02:08
0          A USER'S MANUAL FOR GOM CONSISTING MOSTLY OF THE OLD 7090 MAD MANUAL CHAPTER
           II, WITH DELETIONS, ADDITIONS, AND REVISIONS FOR GOM.
00659/018   GOM                      DOCUMENTATION   WF             DWB:GOM.PROGWRUP                                                
            D4T2   1061  GOM.DOCUMENTATION.WF.018           1 LINE    108    4 PAGE UM   DWB                 JULY 28, 1977  22:02:22
0          WRITEUP DESCRIBING THE STRUCTURE OF AN OBJECT MODULE PRODUCED BY GOM.
00659/019   GOM                      DOCUMENTATION   WF             DWB:GOM.LISTWRUP                                                
            D4T2   1062  GOM.DOCUMENTATION.WF.019           1 LINE    111    6 PAGE UM   DWB                 JULY 28, 1977  22:02:24
0          WRITEUP DESCRIBING THE INTERNALS OF THE COMPILER AND HOW TO READ THE
           COMPILER LISTINGS.
0          Referenced by comments of: 659/20 
00659/020   GOM                      DOCUMENTATION   SS  G          DWB:GOM.PEEL                                                    
            D4T2   1063  GOM.DOCUMENTATION.SS.020           1 LINE     69    1 PAGE UM   DWB                 JULY 28, 1977  22:02:27
0          SNOBOL PROGRAM TO READ THROUGH THE FORTRAN SOURCE (659/1) AND PRODUCE THE LIST
           OF MODULES AND WHAT THEY COPY THAT IS TO BE ATTACHED TO THE END OF THE
           GOM.LISTWRUP WRITEUP (659/19).
00659/021   GOM                      READ DATA SUBR  SA  G  RDAT    DWB:GOM.RDATA(1,999)                                            
            D4T2   1064  GOM.READ_DATA_SUBR.SA.021          1 LINE     80   17 PAGE UM   DWB                 JULY 28, 1977  22:02:29
0          SUBROUTINE CALLED BY "READ DATA" AND "READ AND PRINT DATA" STATEMENTS.
0          Referenced by comments of: 659/29 
00659/022   GOM                      READ DATA SUBR  OC  G          DWB:GOM.RDATA(1000)                                             
            D4T2   1065  GOM.READ_DATA_SUBR.OC.022          1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  22:02:32
0          Referenced by comments of: 659/25 
00659/023   GOM                      PRINT RES SUBR  SA  G  PRSL    DWB:GOM.PRSLT(1,999)                                            
            D4T2   1066  GOM.PRINT_RES_SUBR.SA.023          1 LINE     80   13 PAGE UM   DWB                 JULY 28, 1977  22:02:34
0          SUBROUTINE CALLED BY "PRINT RESULTS", "PRINT BCD RESULTS", AND "PRINT HEX
           RESULTS" STATEMENTS.
0          Referenced by comments of: 659/28 
1                                                                                               FRI AUG 02/96   16:11:27   Page  288
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
+         ______________ _____________________
00659/024   GOM                      PRINT RES SUBR  OC  G          DWB:GOM.PRSLT(1000)                                             
            D4T2   1067  GOM.PRINT_RES_SUBR.OC.024          1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  22:02:37
0          Referenced by comments of: 659/25 
00659/025   GOM                      RUN-TIME LIBR   OL  G          NEW:GOMLIB                                                      
            D4T2   1068  GOM.RUN-TIME_LIBR.OL.025           1 SEQ      84    5 PAGE UM   DWB                 JULY 28, 1977  22:02:39
0          CONTAINS GOM.RDATA (659/22) AND GOM.PRSLT (659/24) SUBROUTINES.
00659/026   GOM                      TEST PROGRAMS   C   G          DWB:GOM.EXAMP                                                   
            D4T2   1069  GOM.TEST_PROGRAMS.C.026            1 LINE     43    1 PAGE UM   DWB                 JULY 28, 1977  22:02:41
0          COMMANDS FOR A BATCH JOB WHICH COMPILES AND EXECUTES THREE TEST PROGRAMS
           (659/27).
0          Referenced by comments of: 659/27 
00659/027   GOM                      TEST PROGRAMS   SG  G          DWB:TESTMAD                                                     
            D4T2   1070  GOM.TEST_PROGRAMS.SG.027           1 LINE     81    5 PAGE UM   DWB                 JULY 28, 1977  22:02:44
0          A MOTLEY ASSORTMENT OF OLD-MAD PROGRAMS, SOME OF WHICH HAVE BEEN MODIFIED
           FOR GOM AND ARE USED BY GOM.EXAMP (659/26).
0          Referenced by comments of: 659/26 
00659/028   GOM                      TEST PROGRAMS   SA  G  TPRS    DWB:GOM.PRSLT.T(1,999)                                          
            D4T2   1071  GOM.TEST_PROGRAMS.SA.028           1 LINE     80    2 PAGE UM   DWB                 JULY 28, 1977  22:02:46
0          TEST PROGRAM FOR PRINT RESULTS SUBROUTINE (659/23).
00659/029   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.RDATA.T                                                 
            D4T2   1072  GOM.TEST_PROGRAMS.SG.029           1 LINE     37    1 PAGE UM   DWB                 JULY 28, 1977  22:02:48
0          TEST PROGRAM FOR READ DATA SUBROUTINE (659/21).
00659/030   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST.SDS                                                
            D4T2   1073  GOM.TEST_PROGRAMS.SG.030           1 LINE     32    1 PAGE UM   DWB                 JULY 28, 1977  22:02:50
0          RUN GOM WITH PAR=TEST ON THIS SOURCE TO CHECK SYM CARD GENERATION.
           CURRENT PECULARITIES OF GOM SYM CARDS ARE:
            (1) THEY ARE PL3 CARDS,
            (2) SINCE SDS NEVER HEARD OF STARTING ARRAYS AT SUBSCRIPT 0 INSTEAD OF 1,
                ARRAY REFERENCES ARE OFF BY ONE.
           THESE WILL BE FIXED SOMETIME WHEN A GOM CARD IS DEFINED AND SDS SUPPORTS IT.
00659/031   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.SIMPLE                                                  
            D4T2   1074  GOM.TEST_PROGRAMS.SG.031           1 LINE     42    1 PAGE UM   DWB                 JULY 28, 1977  22:02:53
0          THIS COMPONENT AND THOSE WHICH FOLLOW ARE MISCELLANEOUS TEST INPUT FOR THE COMPILER.
           THEY ARE (OBVIOUSLY) NOT TO BE EXECUTED AFTER COMPILATION.
1                                                                                               FRI AUG 02/96   16:11:27   Page  289
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
+         ______________ _____________________
00659/032   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST.FN                                                 
            D4T2   1075  GOM.TEST_PROGRAMS.SG.032           1 LINE     50    1 PAGE UM   DWB                 JULY 28, 1977  22:02:55
0          FIFTEEN TEST PROGRAMS (STARTING AT LINES 1, 1000, 2000, ...) TO TEST EXTERNAL AND
           INTERNAL FUNCTIONS.
00659/033   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST                                                    
            D4T2   1076  GOM.TEST_PROGRAMS.SG.033           1 LINE     53    1 PAGE UM   DWB                 JULY 28, 1977  22:02:57
00659/034   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST2                                                   
            D4T2   1077  GOM.TEST_PROGRAMS.SG.034           1 LINE     41    1 PAGE UM   DWB                 JULY 28, 1977  22:03:00
00659/035   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST3                                                   
            D4T2   1078  GOM.TEST_PROGRAMS.SG.035           1 LINE     33    1 PAGE UM   DWB                 JULY 28, 1977  22:03:02
00659/036   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST4                                                   
            D4T2   1079  GOM.TEST_PROGRAMS.SG.036           1 LINE     45    1 PAGE UM   DWB                 JULY 28, 1977  22:03:04
0          AN EARLY VERSION OF A PROGRAM WHICH IS USEFUL FOR TESTING ARRAYS OF STATEMENT LABEL
           CONSTANTS.  SEE ALSO THE INTERACTIVE VERSION OF IG (498/77) FOR THE LATEST VERSION --
           THE LARGEST GOM PROGRAM CURRENTLY.
00659/037   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST5                                                   
            D4T2   1080  GOM.TEST_PROGRAMS.SG.037           1 LINE     34    1 PAGE UM   DWB                 JULY 28, 1977  22:03:07
0          TEST PROGRAM WHICH TESTS VECTOR VALUES AND SHIFTS.
00659/038   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST6                                                   
            D4T2   1081  GOM.TEST_PROGRAMS.SG.038           1 LINE     30    1 PAGE UM   DWB                 JULY 28, 1977  22:03:09
0          TEST PROGRAM WHICH TESTS ARRAY ACCESSING.
00659/039   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST7                                                   
            D4T2   1082  GOM.TEST_PROGRAMS.SG.039           1 LINE     41    1 PAGE UM   DWB                 JULY 28, 1977  22:03:11
0          EIGHT TEST SECTIONS (AT LINES 1, 100, 200, ...) TO TEST PROGRAM COMMON.
00659/040   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST8                                                   
            D4T2   1083  GOM.TEST_PROGRAMS.SG.040           1 LINE     30    1 PAGE UM   DWB                 JULY 28, 1977  22:03:13
0          TEST PROGRAM WHICH TESTS EXPONENTIATION.
00659/041   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST9                                                   
            D4T2   1084  GOM.TEST_PROGRAMS.SG.041           1 LINE     51    1 PAGE UM   DWB                 JULY 28, 1977  22:03:16
0          TEST PROGRAM WHICH TESTS THE .LOC. AND .IND. OPERATORS.
00659/042   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST10                                                  
            D4T2   1085  GOM.TEST_PROGRAMS.SG.042           1 LINE     24    1 PAGE UM   DWB                 JULY 28, 1977  22:03:18
0          TEST PROGRAM WHICH TESTS SHORT INTEGER AND BYTE INTEGER DATA TYPES.
1                                                                                               FRI AUG 02/96   16:11:27   Page  290
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
+         ______________ _____________________
00659/043   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST11                                                  
            D4T2   1086  GOM.TEST_PROGRAMS.SG.043           1 LINE     44    1 PAGE UM   DWB                 JULY 28, 1977  22:03:20
0          TEST PROGRAM WHICH TESTS CHARACTER SUBSTRING OPERATION.
00659/044   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST12                                                  
            D4T2   1087  GOM.TEST_PROGRAMS.SG.044           1 LINE     24    1 PAGE UM   DWB                 JULY 28, 1977  22:03:23
0          TEST PROGRAM WHICH TESTS THE "@" CONSTANT QUALIFIER.
00659/045   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST13                                                  
            D4T2   1088  GOM.TEST_PROGRAMS.SG.045           1 LINE     40    1 PAGE UM   DWB                 JULY 28, 1977  22:03:25
0          TEST PROGRAM WHICH TESTS THE ADDRESSING OF NEW DATA TYPES WHEN THEY ARE IN
           PROGRAM COMMON.  (SAME AS 659/42 EXCEPT ALL VARIABLES ARE IN PROGRAM COMMON.)
00659/046   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST14                                                  
            D4T2   1089  GOM.TEST_PROGRAMS.SG.046           1 LINE     46    1 PAGE UM   DWB                 JULY 28, 1977  22:03:27
0          TEST PROGRAM WHICH TESTS THE LONG INTEGER DATA TYPE AND THE .AS. OPERATOR.
00659/047   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST15                                                  
            D4T2   1090  GOM.TEST_PROGRAMS.SG.047           1 LINE     62    1 PAGE UM   DWB                 JULY 28, 1977  22:03:30
0          EXTERNAL FUNCTION TO DO HEX OUTPUT IN 6 STATEMENTS.  IT ILLUSTRATES THE .RS.
           AND .A. OPERATORS, THE @X CONSTANT MODIFIER, AND SUBSCRIPTION OF A CONSTANT.
00659/048   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST16                                                  
            D4T2   1091  GOM.TEST_PROGRAMS.SG.048           1 LINE     46    1 PAGE UM   DWB                 JULY 28, 1977  22:03:32
0          TEST PROGRAM WHICH TESTS "PRINT RESULTS" FOR THE SHORT INTEGER, BYTE INTEGER,
           CHARACTER, AND LONG INTEGER DATA TYPES.
00659/049   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST17                                                  
            D4T2   1092  GOM.TEST_PROGRAMS.SG.049           1 LINE     45    1 PAGE UM   DWB                 JULY 28, 1977  22:03:34
0          TEST PROGRAM WHICH TESTS "READ DATA" FOR VARIED DATA TYPES.
00659/050   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST18                                                  
            D4T2   1093  GOM.TEST_PROGRAMS.SG.050           1 LINE     52    1 PAGE UM   DWB                 JULY 28, 1977  22:03:36
0          SMALL TEST PROGRAM WHICH CHECKS IF LOOP-END TERMINATION IS CORRECT.
00659/051   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST19                                                  
            D4T2   1094  GOM.TEST_PROGRAMS.SG.051           1 LINE     53    1 PAGE UM   DWB                 JULY 28, 1977  22:03:39
0          TEST PROGRAM WHICH CHECKS THE R-TYPE CALLING SEQUENCE GENERATION.
00659/052   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST20                                                  
            D4T2   1095  GOM.TEST_PROGRAMS.SG.052           1 LINE     51    1 PAGE UM   DWB                 JULY 28, 1977  22:03:41
0          TEST PROGRAM WHICH TESTS DYNAMIC RECORDS, AND ALLOCATE, RELEASE, USING POINTER,
           AND THE .SIZE. OPERATOR.
1                                                                                               FRI AUG 02/96   16:11:27   Page  291
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
+         ______________ _____________________
00659/053   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST21                                                  
            D4T2   1096  GOM.TEST_PROGRAMS.SG.053           1 LINE     56    1 PAGE UM   DWB                 JULY 28, 1977  22:03:43
0          TEST PROGRAM WHICH TESTS RETURN CODE EXTRACTION AND TESTING FOR FORMATTED I/O STATEMENTS.
00659/054   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST22                                                  
            D4T2   1097  GOM.TEST_PROGRAMS.SG.054           1 LINE     41    1 PAGE UM   DWB                 JULY 28, 1977  22:03:46
0          TEST PROGRAM WHICH TESTS ALTERNATE STRING DELIMITERS.
00659/055   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST23                                                  
            D4T2   1098  GOM.TEST_PROGRAMS.SG.055           1 LINE     33    1 PAGE UM   DWB                 JULY 28, 1977  22:03:48
0          TEST PROGRAM WHICH TESTS THE "CONSTANT" STATEMENT.
00659/056   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST24                                                  
            D4T2   1099  GOM.TEST_PROGRAMS.SG.056           1 LINE     35    1 PAGE UM   DWB                 JULY 28, 1977  22:03:50
0          TEST PROGRAM WHICH TESTS PART 1 ERROR COMMENTS.  (ALMOST EVERY STATEMENT SHOULD
           GET AN ERROR COMMENT FROM THE FIRST PHASE OF THE COMPILER.)
00659/057   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST25                                                  
            D4T2   1100  GOM.TEST_PROGRAMS.SG.057           1 LINE     20    1 PAGE UM   DWB                 JULY 28, 1977  22:03:53
0          TEST PROGRAM WHICH CHECKS STATEMENT LABEL CONSTANTS (SCALAR AND ARRAYS) AND STATEMENT
           LABEL VARIABLES (SCALARS AND ARRAYS).
00659/058   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST26                                                  
            D4T2   1101  GOM.TEST_PROGRAMS.SG.058           1 LINE     57    1 PAGE UM   DWB                 JULY 28, 1977  22:03:55
0          TEST PROGRAM TO SEE IF ILLEGAL UNARY "/" OPERATOR IS CAUGHT.
00659/059   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST27                                                  
            D4T2   1102  GOM.TEST_PROGRAMS.SG.059           1 LINE     26    1 PAGE UM   DWB                 JULY 28, 1977  22:03:57
0          PROGRAM TO TEST THAT CONSTANTS ARE ALLOCATED CORRECTLY IN THE CASE THAT THE
           FIRST OCCURRENCE OF THE CONSTANT "1"  APPEARS AS THE FIRST CONSTANT FOLLOWING
           A VECTOR VALUES STATEMENT WHICH IS INITIALIZING AN ARRAY WHICH HAS ALREADY BEEN
           PARTIALLY INITIALIZED BY A PREVIOUS VECTOR VALUES STATEMENT. WOW!
00659/060   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST28                                                  
            D4T2   1103  GOM.TEST_PROGRAMS.SG.060           1 LINE     70    1 PAGE UM   DWB                 JULY 28, 1977  22:03:59
0          PROGRAM TO TEST THAT TEMPORARIES ARE PROPERLY USED WHEN IT RUNS OUT OF REGISTERS.
00659/061   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST29                                                  
            D4T2   1104  GOM.TEST_PROGRAMS.SG.061           1 LINE     34    1 PAGE UM   DWB                 JULY 28, 1977  22:04:02
0          PROGRAM TO TEST PARSING OF HEX CONSTANTS AND PROPER INSERTION OF SAME AND CHARACTER
           CONSTANTS IN VECTOR VALUES STATEMENTS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  292
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
+         ______________ _____________________
00659/062   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST30                                                  
            D4T2   1105  GOM.TEST_PROGRAMS.SG.062           1 LINE     67    1 PAGE UM   DWB                 JULY 28, 1977  22:04:04
0          PROGRAM TO TEST THE INITIALIZATION OF ARRAYS WITH NAMES OF INTERNAL AND EXTERNAL
           FUNCTIONS, STATEMENT LABELS, AND MIXTURES OF SAME TOGETHER WITH INTEGERS.
00659/063   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST31                                                  
            D4T2   1106  GOM.TEST_PROGRAMS.SG.063           1 LINE     62    1 PAGE UM   DWB                 JULY 28, 1977  22:04:06
0          PROGRAM TO TEST TO SEE THAT TEMPORARIES USED BY AN INTERNAL FUNCTION ARE NOT THE
           SAME TEMPORARIES USED TO SAVE COMPUTED PARAMETERS ON THE CALL TO THAT FUNCTION.
00659/064   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST32                                                  
            D4T2   1107  GOM.TEST_PROGRAMS.SG.064           1 LINE     58    1 PAGE UM   DWB                 JULY 28, 1977  22:04:09
0          TEST OF FUNCTION CALLS WITH AND WITHOUT (A) ARGUMENT LISTS, (B) RETURN CODE
           EXTRACTION, AND (C) WHETHER IN EXPRESSION OR STAND-ALONE.
00659/065   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST33                                                  
            D4T2   1108  GOM.TEST_PROGRAMS.SG.065           1 LINE     66    1 PAGE UM   DWB                 JULY 28, 1977  22:04:11
0          TEST FOR FOUR MISCELLANEOUS PROBLEMS.
00659/066   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST34                                                  
            D4T2   1109  GOM.TEST_PROGRAMS.SG.066           1 LINE    140    1 PAGE UM   DWB                 JULY 28, 1977  22:04:13
0          TEST FOR LONG INPUT LINES IN THE SOURCE (FOR WRAPAROUND ON THE LISTING).
00659/067   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST35                                                  
            D4T2   1110  GOM.TEST_PROGRAMS.SG.067           1 LINE     74    1 PAGE UM   DWB                 JULY 28, 1977  22:04:16
0          TEST FOR PROPER CODE IN THE CASE THAT A USING IS IN EFFECT, AND THE POINTER
           IS A DUMMY VARIABLE, IS IN COMMON, OR IS IN ANOTHER DYNAMIC RECORD WHOSE
           POINTER MAY BE IN YET ANOTHER DYNAMIC RECORD (OR IN COMMON, OR A DUMMY
           VARIABLE)...
00660/001   MCS-11                   SUPERVISOR      S   G          W051:MCS11                                                      
            D4T2   1111  MCS-11.SUPERVISOR.S.001            1 LINE     84   40 PAGE UM   GOODRICH            JULY 28, 1977  22:04:18
0          THIS IS THE SUPERVISOR FOR THE MICHIGAN COMMUNICATIONS SYSTEMS (MCS) FOR
           THE UM PDP-11 DATA CONCENTRATOR FRONT END.
           THE MCS COMPONENTS SHOULD BE ASSEMBLED AND LINK-EDITED WITH *11ASR (515)
           AND *LINK11 (516).
           THE SUPERVISOR COPIES MCS11COM (660/6).
0          Referenced by comments of: 660/2, 660/3 
00660/002   MCS-11                   DEVICES         S   G          W051:MCS11.DEV                                                  
            D4T2   1112  MCS-11.DEVICES.S.002               1 LINE     85  111 PAGE UM   GOODRICH            JULY 28, 1977  22:04:24
0          THIS IS THE DEVICES CSECT OF MCS.  IT CONTAINS DSR'S FOR ALL DEVICES IN
           THE SYSTEM.  IT SHOULD BE ASSEMBLED AFTER THE SUPERVISOR (660/1).
           COPIES MCS11COM (660/6), W051:MCS11JOB(1000,1000) (660/11),
           W051:SUPEREXTRN (660/7), W051:TASKSEXTRN (660/8), AND W051:CC.EBCDIC (660/9).
1                                                                                               FRI AUG 02/96   16:11:27   Page  293
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: 660/3 
00660/003   MCS-11                   TASKS           S   G          W051:MCS11.TSK                                                  
            D4T2   1113  MCS-11.TASKS.S.003                 1 LINE    158   69 PAGE UM   GOODRICH            JULY 28, 1977  22:04:35
0          THIS IS THE TASKS CSECT FOR MCS.  IT CONTAINS THE TASKS FOR THE SYSTEM.
           IT SHOULD BE ASSEMBLED AFTER THE SUPERVISOR (660/1) AND DEVICES (660/2).
           COPIES MCS11COM (660/6), W051:MCS11JOB(1000,1000) (660/11),
           W051:SUPEREXTRN (660/7), W051:TASKSEXTRN (660/8), AND W051:CC.EBCDIC (660/9).
00660/004   MCS-11                   TABLES          S   G          S0914 W051 FSNAME=MCS11.TAB                                     
            D4T2   1114  MCS-11.TABLES.S.004                1 LINE     91   48 PAGE UM   GOODRICH            MAY  15, 1975  11:09:11
0          THIS IS THE TABLES CSECT FOR MCS. IT CONTAINS THE TRANSLATE TABLES FOR THE
           DSR'S IN THE SYSTEM.
00660/005   MCS-11                   STORAGE         S   G          S0914 W051 FSNAME=MCS11.STO                                     
            D4T2   1115  MCS-11.STORAGE.S.005               1 LINE     74    1 PAGE UM   GOODRICH            MAY  15, 1975  11:08:57
0          THIS IS THE STORAGE CSECT FOR MCS. IT CONTAINS STORAGE DEFINITIONS FOR THE SYSTEM.
00660/006   MCS-11                   COMMON          S   G          W051:MCS11COM                                                   
            D4T2   1116  MCS-11.COMMON.S.006                1 LINE     83   21 PAGE UM   GOODRICH            JULY 28, 1977  22:48:43
0          THIS IS THE COPY SECTION FOR MANY COMPONENTS OF MCS.
0          Referenced by comments of: 660/1, 660/2, 660/3 
00660/007   MCS-11                   SUPEREXTRN      S   G          W051:SUPEREXTRN                                                 
            D4T2   1117  MCS-11.SUPEREXTRN.S.007            1 LINE     84    3 PAGE UM   GOODRICH            JULY 28, 1977  22:48:45
0          THIS IS COPIED BY SEVERAL CSECTS TO GET EXTERNAL SYMBOLS FOR THE SUPERVISOR.
0          Referenced by comments of: 660/2, 660/3 
00660/008   MCS-11                   TASKSEXTRN      S   G          W051:TASKSEXTRN                                                 
            D4T2   1118  MCS-11.TASKSEXTRN.S.008            1 LINE     82    1 PAGE UM   GOODRICH            JULY 28, 1977  22:48:47
0          THIS IS COPIED BY SOME CSECTS TO GET EXTERNAL SYMBOLS FOR TASKS.
0          Referenced by comments of: 660/2, 660/3 
00660/009   MCS-11                   CC.EBCDIC       S   G          W051:CC.EBCDIC                                                  
            D4T2   1119  MCS-11.CC.EBCDIC.S.009             1 LINE     62    1 PAGE UM   GOODRICH            JULY 28, 1977  22:48:50
0          THIS IS COPIED BY SOME CSECTS TO GET EQU'S FOR EBCDIC CONTROL CHARACTERS.
0          Referenced by comments of: 660/2, 660/3 
00660/010   MCS-11                   DEVICESEXTRN    S   G          W051:DEVICESEXTRN                                               
            D4T2   1120  MCS-11.DEVICESEXTRN.S.010          1 LINE     82    1 PAGE UM   GOODRICH            JULY 28, 1977  22:48:52
0          THIS IS COPIED BY CSECTS TO GET EXTERNAL SYMBOLS FOR DEVICES.
1                                                                                               FRI AUG 02/96   16:11:27   Page  294
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
+         ______________ _____________________
00660/011   MCS-11                   JOB             C              W051:MCS11JOB                                                   
            D4T2   1121  MCS-11.JOB.C.011                   1 LINE     73    1 PAGE UM   GOODRICH            JULY 28, 1977  22:48:54
0          MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS.  ALSO AT LINE 1000 AND 1001, THERE
           ARE TWO EQUS FOR LENGTHS.  WHEN ASSEMBLING COMPONENTS IN ORDER OF POSITION IN
           MEMORY, THIS ALLOWS LISTING ADDRESSES TO MATCH MEMORY ADDRESSES (I.E. NO
           RELOCATION NEEDED).
0          Referenced by comments of: 660/2, 660/3 
00661/001   RAMP                     RAMPINT         S   G          S0806 DIST4 FSNAME=RAMPINT                                      
            D4T2   1122  RAMP.RAMPINT.S.001                 1 LINE     88   76 PAGE UM   LUBBERS             JUNE 02, 1976  20:33:19
0          THIS IS THE REAL-TIME PAR OF RAMP, THE OPERATING SYSTEM FOR THE UM PDP-8 AND
           PDP-8E DATA CONCENTRATOR FRONT ENDS.  IT SHOULD BE ASSEMBLED USING *8ASR (234)
           WITH PAR='NRAMP EQU 1' FOR THE PDP-8E VERSION AND PAR='NRAMP EQU 0' FOR THE PDP-8.
           COPIES W105:RAMPEQU (661/9) AND W105:RAMPCOMA (661/10).
0          Referenced by comments of: 661/2, 661/3, 661/4, 661/5, 661/6, 661/7, 661/8 
00661/002   RAMP                     RAMP470         S   G          S0806 DIST4 FSNAME=RAMP470                                      
            D4T2   1123  RAMP.RAMP470.S.002                 1 LINE     91   18 PAGE UM   LUBBERS             JUNE 02, 1976  20:33:33
0          THIS IS THE IBM OR AMDAHL CHANNEL INTERFACE SUB-SYSTEM OF RAMP (REAL-TIME).
           IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1).
           COPIES W105:RAMPEQU (661/9) AND W105:RAMPCOMA (661/10).
00661/003   RAMP                     RAMP103         S   G          S0806 DIST4 FSNAME=RAMP103                                      
            D4T2   1124  RAMP.RAMP103.S.003                 1 LINE     89   34 PAGE UM   LUBBERS             JUNE 02, 1976  20:33:43
0          THIS IS THE 103 DATA-SET (110-, 135-, 150-, AND 300-BAUD ASYNCHRONOUS) SUB-SYSTEM.
           IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1).
           COPIES W105:RAMPEQU (661/9) AND W105:RAMPCOMA (661/10).
00661/004   RAMP                     RAMP201         S   G          S0806 DIST4 FSNAME=RAMP201                                      
            D4T2   1125  RAMP.RAMP201.S.004                 1 LINE     97   17 PAGE UM   LUBBERS             JUNE 02, 1976  20:33:54
0          THIS IS THE 201 DATA-SET (2000-BAUD SYNCHRONOUS) SUB-SYSTEM OF RAMP (REAL-TIME).
           IT IS PRESENT ONLY IN THE PDP-8 DATA CONCENTRATOR.
           IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1).
           COPIES W105:RAMPEQU (661/9) AND W105:RAMPCOMA (661/10).
00661/005   RAMP                     RAMPTSK         S   G          S0806 DIST4 FSNAME=RAMPTSK                                      
            D4T2   1126  RAMP.RAMPTSK.S.005                 1 LINE     92   89 PAGE UM   LUBBERS             JUNE 02, 1976  20:34:04
0          THIS IS THE TASK-TIME PART OF RAMP.
           IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1).
           COPIES W105:RAMPEQU (661/9), W105:RAMPCOMA (661/10), AND W105:RAMPVERS (661/12).
0          Referenced by comments of: 661/12 
1                                                                                               FRI AUG 02/96   16:11:27   Page  295
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
+         ______________ _____________________
00661/006   RAMP                     RAMPTAB         S   G          S0806 DIST4 FSNAME=RAMPTAB                                      
            D4T2   1127  RAMP.RAMPTAB.S.006                 1 LINE     91   58 PAGE UM   LUBBERS             JUNE 02, 1976  20:34:40
0          THIS ASSEMBLY CONTAINS THE TRANSLATE TABLES USED BY RAMP.
           IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1).
           COPIES W105:RAMPEQU (661/9).2).
00661/007   RAMP                     RAMPSTO         S   G          S0806 DIST4 FSNAME=RAMPSTO                                      
            D4T2   1128  RAMP.RAMPSTO.S.007                 1 LINE     87    4 PAGE UM   LUBBERS             JUNE 02, 1976  20:35:12
0          THIS IS THE DEFINITION OF WORKING-STORAGE USED BY RAMP.
           IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1).
           COPIES W105:RAMPEQU (661/9).2).
00661/008   RAMP                     RAMPSCN         S   G          S0806 DIST4 FSNAME=RAMPSCN                                      
            D4T2   1129  RAMP.RAMPSCN.S.008                 1 LINE     81    2 PAGE UM   LUBBERS             JUNE 02, 1976  20:35:33
0          THIS ASSEMBLY DEFINES THE AREA OF CORE USED AS BUFFERS BY THE SCAN-CONTROL
           HARDWARE ON THE PDP-8 DATA CONCENTRATOR.
           IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1).
           COPIES W105:RAMPEQU (661/9).2).
00661/009   RAMP                     RAMPEQU         S   G          S0806 DIST4 FSNAME=RAMPEQU                                      
            D4T2   1130  RAMP.RAMPEQU.S.009                 1 LINE     90   11 PAGE UM   LUBBERS             JUNE 02, 1976  20:35:42
0          THIS IS THE RAMP COPY SECTION REQUIRED BY ALL COMPONENTS.
0          Referenced by comments of: 661/1, 661/2, 661/3, 661/4, 661/5, 661/6, 661/7, 661/8 
00661/010   RAMP                     RAMPCOMA        S   G          S0806 DIST4 FSNAME=RAMPCOMA                                     
            D4T2   1131  RAMP.RAMPCOMA.S.010                1 LINE     84    3 PAGE UM   LUBBERS             JUNE 02, 1976  20:35:50
0          THIS IS THE PAGE-ZERO DSECT FOR THE REAL-TIME PART OF RAMP.
0          Referenced by comments of: 661/1, 661/2, 661/3, 661/4, 661/5 
00661/011   RAMP                     RAMPCOMB        S   G          S0806 DIST4 FSNAME=RAMPCOMB                                     
            D4T2   1132  RAMP.RAMPCOMB.S.011                1 LINE     84    3 PAGE UM   LUBBERS             JUNE 02, 1976  20:35:56
0          THIS IS THE PAGE-ZERO DSECT FOR THE TASK-TIME PART OF RAMP.
00661/012   RAMP                     RAMPVERS        S   G          S0806 DIST4 FSNAME=RAMPVERS                                     
            D4T2   1133  RAMP.RAMPVERS.S.012                1 LINE     19    1 PAGE UM   LUBBERS             JUNE 02, 1976  20:36:04
0          THIS FILE IS COPIED BY RAMPTSK (661/5).  IT CONTAINS DC STATEMENTS TO
           DEFINE THE VERSION NUMBER OF RAMP.
0          Referenced by comments of: 661/5 
00661/013   RAMP                     RAMPJOB         C              S0806 DIST4 FSNAME=RAMPJOB                                      
            D4T2   1134  RAMP.RAMPJOB.C.013                 1 LINE     76    1 PAGE UM   LUBBERS             JUNE 02, 1976  20:36:15
0          THIS FILE CONTAINS MTS COMMANDS TO ASSEMBLE AND LINK-EDIT A VERSION OF RAMP
           FOR THE PDP-8 DATA CONCENTRATOR.  LINES 21-24 OF THIS FILE SHOULD BE DELETED
1                                                                                               FRI AUG 02/96   16:11:27   Page  296
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          AT A NON-UM INSTALLATION.
00661/014   RAMP                     NRAMPJOB        C              S0806 DIST4 FSNAME=NRAMPJOB                                     
            D4T2   1135  RAMP.NRAMPJOB.C.014                1 LINE     77    1 PAGE UM   LUBBERS             JUNE 02, 1976  20:36:23
0          THIS FILE CONTAINS MTS COMMANDS TO ASSEMBLE AND LINK-EDIT A VERSION OF RAMP
           FOR THE PDP-8E DATA CONCENTRATOR.  LINES 21-24 OF THIS FILE SHOULD BE DELETED
           AT A NON-UM INSTALLATION.
00662/001  *3066RTN                  MAIN            SA  G        # (SEE COMP 629/1)                                                
                                                                                    UM   OGDEN                                      
0          DSR TO USE IBM 3066 (OR EQUIVALENT) AS A 3270-LIKE MTS TERMINAL.  THIS DSR IS
           THE SAME AS THE 3270 DSR (629) WITH CONDITIONAL ASSEMBLY FOR THE 3066.
            
           THIS IS THE MAIN PROGRAM FOR THE 3066 DSR.  IT CALLS IO3066 (662/2) AND THE
           ACTIVITY SUBROUTINE (629/2).  ASSEMBLE WITH PAR=SIZE=20.
0          Referenced by comments of: 629/1, 629/2, 629/4 
00662/002  *3066RTN                  IO3066          SA  G  SCON    S1073 UNSP FSNAME=IO3066                                        
            D4T2   1136  3066RTN.IO3066.SA.002              1 LINE     80   11 PAGE UM   OGDEN               OCT. 30, 1976  13:13:27
0          SUBROUTINE TO SIMULATE A 3270 ON A 3066 BY INTERPRETING A 3270 CHANNEL PROGRAM.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 662/1 
00662/003  *3066RTN                  OBJECT          OC  G          *3066RTN                                                        
            D4T2   1137  3066RTN.OBJECT.OC.003              1 LINE     80   10 PAGE UM   OGDEN               JULY 28, 1977  22:54:35
0          OBJECT FROM 662/1, 662/2, 629/2, AND 629/4.
00663/001  *SIDEDATE                                 SX  O          S0579 SAVE 'JWS-SAVE' FSNAME=SIDEDATE.S                         
            D4T2   1138  SIDEDATE..SX.001                   1 LINE     80   10 PAGE UM   SHERRY              AUG. 27, 1976  20:51:39
0          PROGRAM TO COMPARE TWO *UPDATE FILES WHICH UPDATE THE SAME BASE.
           IT PRINTS A RECORD OF THEIR DIFFERENCES AND MERGES THE TWO TO PRODUCE A SINGLE
           *UPDATE FILE.  IT IS WRITTEN IN EXTENDED XPL AND MUST BE COMPILED USING *EXPL.
00663/002  *SIDEDATE                                 OC  O          *SIDEDATE                                                       
            D4T2   1139  SIDEDATE..OC.002                   1 LINE    240    8 PAGE UM   SHERRY              JULY 28, 1977  22:57:04
0          HAS A "$CONTINUE WITH *EXPLIB" LINE.
00663/003  *SIDEDATE                 WRITEUP         WF             S0579 SAVE 'JWS-SAVE' FSNAME=SIDEDATE.W                         
            D4T2   1140  SIDEDATE.WRITEUP.WF.003            1 LINE     82    2 PAGE UM   SHERRY              FEB. 20, 1976  11:49:50
0          WRITEUP DESCRIBING *SIDEDATE.
00664/001   PASCAL                   COMPILER        S   S          S0911 PASCAL FSNAME=PAS.S                                       
            D4T2   1141  PASCAL.COMPILER.S.001              1 LINE     80   84 PAGE UM   HELFFRICH           MAY  18, 1977  10:58:58
0          OS/360 VERSION OF PASCAL COMPILER (FROM GRENOBLE) CONVERTED TO MTS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  297
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 IS THE PASCAL SOURCE FOR THE CURRENT COMPILER.
00664/002   PASCAL                   PGNT ROUTINE    SA  G  PASM    S0911 PASCAL FSNAME=PAS.MONITOR                             30  
            D4T2   1142  PASCAL.PGNT_ROUTINE.SA.002         1 LINE     80    4 PAGE UM   HELFFRICH           MAY  13, 1977  20:33:57
0          AUX ROUTINE TO LOG USAGE STATISTICS (FUTURE OF UM PASCAL IS UNCERTAIN) AND
           PROGRAM INTERRUPTS IN THE FILE ETC:PASCALINFO.  DUE TO OS/360 ORIGIN OF
           COMPILER, IT IS FRAUGHT WITH PAGE ZERO REFERENCES WHICH THE ROUTINE IGNORES,
           BUT LOGS.
00664/003   PASCAL                   OBJECT          OE  S          NEW:PASCAL                                                      
            D4T2   1143  PASCAL.OBJECT.OE.003               1 LINE  32767   35 PAGE UM   HELFFRICH           JULY 28, 1977  22:58:35
0          COMPILER REQUIRES FILES NAMED ETC:PASCALINFO (FOR RECORDING USAGE AND INTERRUPT
           STATISTICS) AND ETC:PASCALERRS (664/8).  THIS FILE CONTAINS THE OBJECT FROM
           664/1 AND 664/2.
00664/004   PASCAL                   XREF            S   G          S0911 PASCAL FSNAME=PAS.XREF.S                              33  
            D4T2   1144  PASCAL.XREF.S.004                  1 LINE     72    5 PAGE UM   HELFFRICH           MAY  13, 1977  20:45:01
0          PASCAL SOURCE FOR A CROSS-REFERENCE PROGRAM.
           SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS.
00664/005   PASCAL                   XREF            OC  G          W170:PAS.XREF                                                   
            D4T2   1145  PASCAL.XREF.OC.005                 1 LINE     80    5 PAGE UM   HELFFRICH           JULY 28, 1977  22:58:43
00664/006   PASCAL                   USAGE UTIL      SA  G          W170:PAS.USESNIFF(-1000,0)                                      
            D4T2   1146  PASCAL.USAGE_UTIL.SA.006           1 LINE     72    4 PAGE UM   HELFFRICH           JULY 28, 1977  22:58:43
0          SOURCE FOR A PROGRAM TO MAKE THE USAGE RECORDS WRITTEN BY 665/2 LEGIBLE.
           SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS.
           NOTE:  THE SOURCE BEGINS AT LINE -1000.
00664/007   PASCAL                   USAGE UTIL      OC  G          W170:PAS.USESNIFF(1)                                            
            D4T2   1147  PASCAL.USAGE_UTIL.OC.007           1 LINE     80    1 PAGE UM   HELFFRICH           JULY 28, 1977  22:58:45
00664/008   PASCAL                   ERROR MESSAGES  M              ETC:PASCALERRS                                                  
            D4T2   1148  PASCAL.ERROR_MESSAGES.M.008        1 LINE     79    3 PAGE UM   HELFFRICH           JULY 28, 1977  22:58:48
0          ERROR MESSAGES REFERENCED BY THE COMPILER FROM THE FILE ETC:PASCALERRS.
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
0          Referenced by comments of: 664/3 
00664/009   PASCAL                   USER MANUAL     WF             W170:PAS.MANUAL                                                 
            D4T2   1149  PASCAL.USER_MANUAL.WF.009          1 LINE    109   10 PAGE UM   HELFFRICH           JULY 28, 1977  22:58:50
0          PASCAL/MTS USER'S MANUAL CONTAINING "HOW TO USE" INFORMATION PLUS SOME INTERNAL
           IMPLEMENTATION NOTES.
00665/001   MTS VOLUME 14            MASTER          WT             S0951 MTSV14 'MTS MANUALS' POSN=NEWM2.V14                       
            D4T2   1150  MTS_VOLUME_14.MASTER.WT.001        1 SEQ     132  128 PAGE UM   MANUAL              JULY 28, 1977  22:59:20
0          TEXT/360 MASTER FOR VOLUME 14 "360/370 ASSEMBLER LANGUAGES IN MTS" OF THE UM MTS
1                                                                                               FRI AUG 02/96   16:11:27   Page  298
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          MANUALS (JUNE 1976, UPDATE JULY 1977).
            
           EDITOR:  RICHARD A. SALISBURY
0          Referenced by comments of: 66/93 
00665/002   MTS VOLUME 14            PRINT           PT             S0951 MTSV14 'MTS MANUALS' POSN=PRINT2.V14                      
            D4T2   1151  MTS_VOLUME_14.PRINT.PT.002         1 SEQ     132  257 PAGE UM   MANUAL              JULY 28, 1977  22:59:35
0          TEXT/360 PRINT FILE.
00666/001   AMS SUBR                                 SF  G  AMS     S0559 TAXIR FSNAME=AMS.CC6/S                                    
            D4T2   1152  AMS_SUBR..SF.001                   1 LINE     80    7 PAGE UM   BRILL               JULY 07, 1977  11:07:29
0          DYNAMIC ARRAY MANAGEMENT FOR FORTRAN PROGRAMS.  COMPILE WITH FTN-G OR H.
           SEE MTS VOLUMES 3 OR 6 FOR DESCRIPTION.
00666/002   AMS SUBR                                 OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   BRILL                                      
00667/001   OVERDRIVE                                S   O          W008:OD.S(12)                                                   
            D4T2   1153  OVERDRIVE..S.001                   1 LINE     87   31 PAGE UM   SWARTZ              JULY 28, 1977  22:59:54
0          A FORTRAN PREPROCESSOR DESCRIBED IN THE 667/3 WHICH IS WRITTEN IN SNOSTORM (SEE COMP 678).
           USES THE SPITBOL LOAD FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB.
0          Referenced by comments of: 551/1 
00667/002   OVERDRIVE                                OC  O          W008:OVERDRIVE                                                  
            D4T2   1154  OVERDRIVE..OC.002                  1 LINE     80   54 PAGE UM   SWARTZ              JULY 28, 1977  23:00:00
0          HAS A "$CONTINUE WITH *SPITLIB" CARD.
00667/003   OVERDRIVE                WRITEUP         PF             W008:OVER.DOC                                                   
            D4T2   1155  OVERDRIVE.WRITEUP.PF.003           1 LINE    130   23 PAGE UM   SWARTZ              JULY 28, 1977  23:00:04
0          A PRELIMINARY DESCRIPTION OF THE OVERDRIVE PREPROCESSOR LANGUAGE.  IT DOES NOT
           COMPLETELY DESCRIBE SOME OF THE MORE RECENT FEATURES.
00668/001  *TAXIR                    FLECS SOURCE    SF  G  TAX     S0559 TAXIR FSNAME=TAXIR.CC6/S                                  
            D4T2   1156  TAXIR.FLECS_SOURCE.SF.001          1 LINE     80  185 PAGE UM   BRILL               JULY 07, 1977  11:02:46
0          SOURCE FOR THE FLECS PORTION OF THE TAXIR INFORMATION RETRIEVAL SYSTEM.
           IT SHOULD BE PROCESSED BY THE FLECS PRE-PROCESSOR (673) AND THEN COMPILED
           USING FTN-H WITH PAR=XL (TO GET *LIBRARY FUNCTIONS LAND, LOR, LXOR, LCOMPL,
           SHFTR, AND SHFTL COMPILED INLINE).
00668/002  *TAXIR                    ASM SOURCE      SA  G  TAX     S0559 TAXIR FSNAME=TAXASSM.CC6/S                                
            D4T2   1157  TAXIR.ASM_SOURCE.SA.002            1 LINE     80   14 PAGE UM   BRILL               JULY 07, 1977  11:03:23
0          SOURCE FOR THE ASSEMBLY LANGUAGE PORTION OF TAXIR.
1                                                                                               FRI AUG 02/96   16:11:27   Page  299
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
+         ______________ _____________________
00668/003  *TAXIR                    *TAXIR          OE  G          NEW:TAXIR                                                       
            D4T2   1158  TAXIR.*TAXIR.OE.003                1 SEQ   32767   42 PAGE UM   BRILL               JULY 28, 1977  23:00:16
0          LINKEDITED OBJECT MODULE FOR *TAXIR.
00668/004  *TAXIR                    ETC:TAXERRORS   M              ETC:TAXERRORS                                                   
            D4T2   1159  TAXIR.ETC:TAXERRORS.M.004          1 LINE     72    3 PAGE UM   BRILL               JULY 28, 1977  23:00:18
0          THIS FILE IS READ @I BY TAXIR FOR ERROR MESSAGES SO LINE NUMBERS ARE IMPORTANT.
           THE FIRST LINE NUMBER IS ZERO.  THE FILE SHOULD BE PERMITTED READ TO ALL.
00668/005  *TAXIR                    USAGE STATS     D            # ETC:TAXMONITOR                                                  
                                                                                    UM   BRILL                                      
0          THIS IS A SEQUENTIAL FILE USED BY TAXIR TO RECORD USAGE STATISTICS.  ITS
           CONTENTS ARE NOT DISTRIBUTED SINCE AN EMPTY SEQUENTIAL FILE IS ALL THAT
           IS INITIALLY REQUIRED.  TAXIR MAY BE USED TO ANALYZE THE ACCUMULATED USAGE
           STATISTICS.  THE FILE SHOULD BE PERMITTED WRITE-EXTEND (WE) TO ALL.
00668/006  *TAXIR                    PRIMER          WF             S0559 TAXIR FSNAME=TAXIRPRIMER.2/F                              
            D4T2   1160  TAXIR.PRIMER.WF.006                1 LINE    209   59 PAGE UM   BRILL               JULY 07, 1977  11:04:45
0          THIS IS THE TAXIR PRIMER, MTS VERSION, 2ND EDITION, NOV 1975.  IT IS
           MISSING ART WORK AND SPECIAL CHARACTERS ADDED BY HAND BEFORE PUBLICATION.
0          Referenced by comments of: 668/7 
00668/007  *TAXIR                    MEMO 355        WF             W098:M355                                                       
            D4T2   1161  TAXIR.MEMO_355.WF.007              1 LINE    144   12 PAGE UM   BRILL               JULY 28, 1977  23:00:23
0          THIS IS COMPUTING CENTER MEMO 355 -- "NEW VERSION OF TAXIR" WHICH IS A SUPPLEMENT
           TO THE TAXIR PRIMER (668/6) DESCRIBING NEW FEATURES AND HOW TO USE THE DATA
           CONVERSION PROGRAM (668/10).
00668/008  *TAXIR                    DATA BANK       D              S0559 TAXIR FSNAME=TAXMODULES.CC6                               
            D4T2   1162  TAXIR.DATA_BANK.D.008              1 LINE   1216    3 PAGE UM   BRILL               JULY 07, 1977  11:06:04
0          THIS IS A TAXIR DATA BANK FOR TAXIR MODULE RELATIONSHIPS.  EACH ITEM IS A
           CALLER-CALLED PAIR AND INCLUDES THE TYPE OF THE CALLED MODULE, WHICH MAY BE
           FLX (WRITTEN IN FLECS), FOR (WRITTEN IN FORTRAN), ASM (WRITTEN IN ASSEMBLER),
           COM (A COMMON BLOCK), OR EXT (AN EXTERNAL ROUTINE, E.G., MTS SUBROUTINE,
           *LIBRARY SUBROUTINE, ETC.).  THIS IS NOT AN ESSENTIAL COMPONENT, BUT IS USEFUL
           FOR DEBUGGING TAXIR.
0          Referenced by comments of: 668/9 
00668/009  *TAXIR                    DATA BANK PGM   D              S0559 TAXIR FSNAME=TAXMODQ.CC6                                  
            D4T2   1163  TAXIR.DATA_BANK_PGM.D.009          1 LINE     42    1 PAGE UM   BRILL               JULY 07, 1977  11:06:25
0          THIS IS A FILE OF TAXIR STATEMENTS FOR GENERATING TWO REPORTS FROM THE DATA
           BANK (668/8):  "TAXIR MODULES AND THE MODULES THEY CALL" AND "TAXIR MODULES AND
           THEIR CALLERS".
1                                                                                               FRI AUG 02/96   16:11:27   Page  300
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
+         ______________ _____________________
00668/010  *TAXIR                    DATA CONV PGM   S   G  TCON    S0559 TAXIR FSNAME=TAXCON5TO6/S                                 
            D4T2   1164  TAXIR.DATA_CONV_PGM.S.010          1 LINE     80   20 PAGE UM   BRILL               JULY 07, 1977  11:06:47
0          THIS IS THE FLECS AND ASMG SOURCE FOR THE DATA CONVERSION PROGRAM WHICH CONVERTS
           DATA BANKS BUILT BY TAXIR.CC5 (OR EARLIER VERSIONS) TO THE INTERNAL FORMAT
           USED BY TAXIR.CC6.  THIS COMPONENT IS OF INTEREST ONLY TO INSTALLATIONS RUNNING
           OLDER VERSIONS OF TAXIR AND WHICH HAVE OLD DATA BANKS TO CONVERT.
0          Referenced by comments of: 668/7 
00668/011  *TAXIR                    DATA CONV PGM   OE  G          S0559 TAXIR FSNAME=TAXCON5TO6                                   
            D4T2   1165  TAXIR.DATA_CONV_PGM.OE.011         1 LINE  14676    6 PAGE UM   BRILL               JULY 07, 1977  11:07:11
00669/001   MTS VOLUME 9             MASTER          WT             S1051 MTSV9 'MTS MANUALS' POSN=NEWM1.V9                         
            D4T2   1166  MTS_VOLUME_9.MASTER.WT.001         1 SEQ     132  137 PAGE UM   MANUAL              JULY 28, 1977  23:01:11
0          TEXT/360 MASTER FOR VOLUME 9 "SNOBOL 4 IN MTS" OF THE UM MTS MANUALS
           (SEPTEMBER 1975).
            
           EDITOR:  RICHARD A. SALISBURY
00669/002   MTS VOLUME 9             PRINT           PT             S1051 MTSV9 'MTS MANUALS' POSN=PRINT1.V9                        
            D4T2   1167  MTS_VOLUME_9.PRINT.PT.002          1 SEQ     132  163 PAGE UM   MANUAL              JULY 28, 1977  23:01:22
0          TEXT/360 PRINT FILE.
00670/001   PL1LINK                                  SA  G  LINK    W062:PL1LLXU(1000)                                              
            D4T2   1168  PL1LINK..SA.001                    1 LINE     80    6 PAGE UM   TIFFANY             JULY 28, 1977  23:01:26
0          AN EXPERIMENTAL PROGRAM TO ALLOW DYNAMIC LINKING TO PL1 SUBROUTINES.
00670/002   PL1LINK                                  OC  G          W062:PL1LINK                                                    
            D4T2   1169  PL1LINK..OC.002                    1 LINE     80    3 PAGE UM   TIFFANY             JULY 28, 1977  23:01:27
00671/001   FILE RESTORE - FAST      REGULAR         SA  G  FRST    FILE:FASTRSTR.S                                                 
            D4T2   1170  FILE_RESTORE_-_FAST.REGUL.SA.001   1 LINE     80   20 PAGE UM   PIRKOLA             SEP. 16, 1977  12:28:36
0          THE FAST FILE RESTORE PROGRAMS ARE USED TO RESTORE THE ENTIRE FILE SYSTEM (FROM
           FILE SAVE TAPES), AS QUICKLY AS POSSIBLE, ON A PAGE AT A TIME BASIS, WHEN NEW
           DISKS ARE BEING INSTALLED OR AFTER A MAJOR DISASTER.  THEY CANNOT BE USED TO
           CONVERT FILE FORMATS.  SEE THE COMMENTS IN THE SOURCE FOR DETAILS ON USAGE.
            
           671/1 WORKS WITH FILESAVE TAPES WHEN THE ONLINE FILESAVE (716) IS NOT BEING USED,
           I.E. IT DOES NOT USE ANY DIRECTORY.  ASSEMBLE USING COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 104/94, 682/26, 682/28, 682/30, 682/36, 682/38 
00671/002   FILE RESTORE - FAST      REGULAR         OC  G          FILE:FASTRSTR.O                                                 
            D4T2   1171  FILE_RESTORE_-_FAST.REGUL.OC.002   1 LINE   4020    4 PAGE UM   PIRKOLA             SEP. 16, 1977  12:28:40
0          THIS FILE SHOULD BE LOADED WITH PISTLE IF MORE THAN ONE STREAM IS TO BE RUN CONCURRENTLY.
1                                                                                               FRI AUG 02/96   16:11:27   Page  301
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
+         ______________ _____________________
00671/003   FILE RESTORE - FAST      AMALGAMATE      SA  G          RSTR:AMALGAMATE(1001)                                           
            D4T2   1172  FILE_RESTORE_-_FAST.AMALG.SA.003   1 LINE     72    4 PAGE UM   HELFFRICH           SEP. 16, 1977  12:28:41
0          671/3, 671/5, AND 671/7 WORK WITH FILESAVE TAPES WHEN THE ONLINE FILESAVE (716)
           IS BEING USED AND THE FILESAVE DIRECTORY "FILEDIR.MAS" IS AVAILABLE TO AID IN
           THE RESTORATION.
            
           671/3 IS A PROGRAM TO TAKE A LIST OF FILES AND USE "FILEDIR.MAS" TO APPEND TAPE
           LOCATION INFORMATION FOR USE BY FASTRESTORE (671/5).  ASSEMBLE USING THE EDITOR
           MACROS (648/11).
0          Referenced by comments of: 671/5 
00671/004   FILE RESTORE - FAST      AMALGAMATE      OC  G          RSTR:AMALGAMATE(1,999)                                          
            D4T2   1173  FILE_RESTORE_-_FAST.AMALG.OC.004   1 LINE     80    3 PAGE UM   HELFFRICH           SEP. 16, 1977  12:28:42
0          HAS A "$CONTINUE WITH MTS:UBCDATEX+RSTR:CHKFILE RETURN" LINE.
00671/005   FILE RESTORE - FAST      FASTRESTORE     SA  G  FRES    RSTR:FASTRESTORE(1001)                                          
            D4T2   1174  FILE_RESTORE_-_FAST.FASTR.SA.005   1 LINE     80   15 PAGE UM   HELFFRICH           SEP. 16, 1977  12:28:43
0          PROGRAM TO CALL THE FASTRSTR SUBROUTINE (671/7).  TAKES A LIST OF FILES AND
           AN INDICATION OF WHAT IS TO BE DONE WITH EACH (AS PRODUCED BY AMALGAMATE (671/3)),
           MOUNTS AND SCANS TAPES, AND CALLS FASTRSTR TO DO THE RESTORING.  ASSEMBLE
           USING THE EDITOR MACROS (648/11).
0          Referenced by comments of: 671/3 
00671/006   FILE RESTORE - FAST      FASTRESTORE     OC  G          RSTR:FASTRESTORE(1,999)                                         
            D4T2   1175  FILE_RESTORE_-_FAST.FASTR.OC.006   1 LINE     80    5 PAGE UM   HELFFRICH           SEP. 16, 1977  12:28:47
00671/007   FILE RESTORE - FAST      FASTRSTR SUBR   SA  O  FRST    RSTR:FASTRSTR(1001)                                             
            D4T2   1176  FILE_RESTORE_-_FAST.FASTR.SA.007   1 LINE     80   22 PAGE UM   HELFFRICH           SEP. 16, 1977  12:28:51
0          SUBROUTINE CALLED BY 671/5 TO DO FAST RESTORING.  ASSEMBLE USING COPY:FILE.MACROS
           (648/37) AND THE EDITOR MACROS (648/11).
0          Referenced by comments of: 671/5 
00671/008   FILE RESTORE - FAST      FASTRSTR SUBR   OC  O          RSTR:FASTRSTR(1,999)                                            
            D4T2   1177  FILE_RESTORE_-_FAST.FASTR.OC.008   1 LINE     80    6 PAGE UM   HELFFRICH           SEP. 16, 1977  12:28:58
00672/001  *WATBOL                   INSTALLATION    WF             S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.D4.0.W                 
            D4T2   1178  WATBOL.INSTALLATION.WF.001         1 LINE     78    1 PAGE UM   SWARTZ              NOV. 04, 1976  22:59:17
0          UNIVERSITY OF WATERLOO WATBOL V2L0 COBOL.  THE SOURCE AND OBJECT CANNOT BE
           DISTRIBUTED DUE TO WATERLOO RESTRICTIONS.
            
           THIS SUB-COMPONENT DESCRIBES THE WATBOL INSTALLATION PROCEDURE FOR MTS.
00672/002  *WATBOL                   START.S         SA  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.START.S                
            D4T2   1179  WATBOL.START.S.SA.002              1 LINE     73    1 PAGE UM   SWARTZ              JULY 15, 1976  03:12:34
0          AN INSTALLATION-DEPENDENT PREFIX OF ASSEMBLER GBL'S TO BE PLACED AT THE HEAD
1                                                                                               FRI AUG 02/96   16:11:27   Page  302
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          OF MOST ALL OF THE ASSEMBLER SOURCE GENERATED BY THE FOLLOWING UPDATE DECKS.
00672/003  *WATBOL                   END.S           SA  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.END.S                  
            D4T2   1180  WATBOL.END.S.SA.003                1 LINE     12    1 PAGE UM   SWARTZ              JULY 15, 1976  03:14:13
0          AN ASSEMBLER END CARD TO SUFFIX ASSEMBLIES OF SOURCE GENERATED BY THE FOLLOWING
           UPDATE DECKS.
00672/004  *WATBOL                   ACCT.U          UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=ACCT.U                 1  
            D4T2   1181  WATBOL.ACCT.U.UU.004               1 LINE     83    8 PAGE UM   SWARTZ              FEB. 28, 1976  13:35:59
00672/005  *WATBOL                   DATFX.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DATFX.U                2  
            D4T2   1182  WATBOL.DATFX.U.UU.005              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:08
00672/006  *WATBOL                   DEBUG.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DEBUG.U                3  
            D4T2   1183  WATBOL.DEBUG.U.UU.006              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:20
00672/007  *WATBOL                   EOSTA.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=EOSTA.U                4  
            D4T2   1184  WATBOL.EOSTA.U.UU.007              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:36
00672/008  *WATBOL                   FD.U            UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=FD.U                   5  
            D4T2   1185  WATBOL.FD.U.UU.008                 1 LINE     78    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:48
00672/009  *WATBOL                   JOBJOB.U        UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=JOBJOB.U               6  
            D4T2   1186  WATBOL.JOBJOB.U.UU.009             1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:37:06
00672/010  *WATBOL                   LOADR.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=LOADR.U                7  
            D4T2   1187  WATBOL.LOADR.U.UU.010              1 LINE     72    6 PAGE UM   SWARTZ              FEB. 28, 1976  13:37:23
00672/011  *WATBOL                   MAIN.U          UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=MAIN.U                 8  
            D4T2   1188  WATBOL.MAIN.U.UU.011               1 LINE     81   17 PAGE UM   SWARTZ              FEB. 28, 1976  13:38:08
00672/012  *WATBOL                   OPEN.U          UU  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.OPEN.U                 
            D4T2   1189  WATBOL.OPEN.U.UU.012               1 LINE     72    1 PAGE UM   SWARTZ              NOV. 04, 1976  22:58:48
00672/013  *WATBOL                   RINIT.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=RINIT.U                10 
            D4T2   1190  WATBOL.RINIT.U.UU.013              1 LINE     72    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:56:43
00672/014  *WATBOL                   SD.U            UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SD.U                   11 
            D4T2   1191  WATBOL.SD.U.UU.014                 1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:42:42
00672/015  *WATBOL                   SERVICE.U       UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SERVICE.U              12 
            D4T2   1192  WATBOL.SERVICE.U.UU.015            1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:54:31
00672/016  *WATBOL                   SYSINT.U        UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SYSINT.U               13 
            D4T2   1193  WATBOL.SYSINT.U.UU.016             1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:54:51
00672/017  *WATBOL                   DIAC.U          UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DIAC.U                 14 
            D4T2   1194  WATBOL.DIAC.U.UU.017               1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:55:19
00672/018  *WATBOL                   FORMT.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=FORMT.U                15 
            D4T2   1195  WATBOL.FORMT.U.UU.018              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:55:51
1                                                                                               FRI AUG 02/96   16:11:27   Page  303
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
+         ______________ _____________________
00672/019  *WATBOL                   IOSUP.U         UU  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.IOSUP.U             29 
            D4T2   1196  WATBOL.IOSUP.U.UU.019              1 LINE     73   18 PAGE UM   SWARTZ              JULY 15, 1976  03:33:59
00672/020  *WATBOL                   RUN.U           UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=RUN.U                  17 
            D4T2   1197  WATBOL.RUN.U.UU.020                1 LINE     75    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:00
00672/021  *WATBOL                   SORTR.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SORTR.U                18 
            D4T2   1198  WATBOL.SORTR.U.UU.021              1 LINE     72    7 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:18
00672/022  *WATBOL                   TRAC.U          UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=TRAC.U                 19 
            D4T2   1199  WATBOL.TRAC.U.UU.022               1 LINE     72    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:33
00672/023  *WATBOL                   TIME.S          SA  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.TIME.S              21 
            D4T2   1200  WATBOL.TIME.S.SA.023               1 LINE     71    3 PAGE UM   SWARTZ              JULY 15, 1976  03:12:51
00672/024  *WATBOL                   MACROS          SM  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.MACROS              25 
            D4T2   1201  WATBOL.MACROS.SM.024               1 LINE     80   16 PAGE UM   SWARTZ              JULY 15, 1976  03:16:17
0          MACRO LIBRARY NEEDED TO ASSEMBLE SOURCE RESULTING FROM 672/4 THRU 672/23.
00672/025  *WATBOL                   OBJECT          OC  G        # S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.WATBOL                 
                                                                                    UM   SWARTZ                                     
0          UNLINK-EDITED OBJECT FOR WATBOL.  NOT DISTRIBUTED DUE TO WATERLOO RESTRICTIONS.
00672/026  *WATBOL                   OBJECT          OE  G        # *WATBOL                                                         
                                                                                    UM   SWARTZ                                     
0          NOT DISTRIBUTED DUE TO WATERLOO RESTRICTIONS.
00672/027  *WATBOL                   LIBRARY GEN     SA  G  WBLG    S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.LIBGEN.S            24 
            D4T2   1202  WATBOL.LIBRARY_GEN.SA.027          1 LINE     80   30 PAGE UM   SWARTZ              JULY 15, 1976  03:15:10
0          SOURCE FOR WATBOL LIBRARY GENERATION PROGRAM.  ASSEMBLE USING *SYSMAC.
00672/028  *WATBOL                   LIBRARY GEN     OC  G          *WATBOLLIBGEN                                                   
            D4T2   1203  WATBOL.LIBRARY_GEN.OC.028          1 SEQ      80    4 PAGE UM   SWARTZ              JULY 28, 1977  23:04:44
00672/029  *WATBOL                   MEMO 323        WF             S0622 D3MISC FSNAME=M323WATBOL(1)                            106
            D4T2   1204  WATBOL.MEMO_323.WF.029             1 LINE    124    5 PAGE UM   SWARTZ              JAN. 24, 1977  21:06:30
0          THIS IS COMPUTING CENTER MEMO 323 -- "WATBOL LIBRARY FACILITIES"
00672/030  *WATBOL                   LIBRARY         D   G          *WATBOLLIB                                                      
            D4T2   1205  WATBOL.LIBRARY.D.030               1 LINE     69    4 PAGE UM   SWARTZ              JULY 28, 1977  23:05:58
0          DEFAULT UM WATBOL LIBRARY.
00672/031  *WATBOL                   TEST PROGRAMS   S   G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.PROGS                  
            D4T2   1206  WATBOL.TEST_PROGRAMS.S.031         1 LINE     82   49 PAGE UM   SWARTZ              NOV. 10, 1976  20:22:05
0          TEST PROGRAM SERIES FOR WATBOL V2L0 COMPILER.  SEE 672/1 FOR INSTRUCTIONS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  304
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
+         ______________ _____________________
00673/001   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=C.FLX(1)                                   118
            D4T3      1  FLECS.OREGON_SOURCE.SF.001         1 LINE     80   38 PAGE UM   OGDEN               DEC. 16, 1974  20:57.44
0          UNIVERSITY OF OREGON'S FORTRAN PREPROCESSOR.  AT UM, THIS PROGRAM IS CONSIDERED
           TO BE IN THE CATEGORY OF "UNSUPPORTED" SOFTWARE.  A FLECS WRITEUP IS INCLUDED
           IN UNSP:WRITEUPS (685/2).  A HARDCOPY OF THIS WRITEUP AND OTHER DOCUMENTATION
           IS INCLUDED WITH D4.
            
           THIS COMPONENT AND THE NEXT 10 ARE THE ORIGINAL FLECS SOURCE FROM THE UNIVERSITY
           OF OREGON.  THEY ARE REFERRED TO AS FILES 1 THROUGH 11 IN THE MTS FLECS INSTALLATION
           GUIDE (673/36).
0          Referenced by comments of: 668/1 
00673/002   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=C.F4(1)                                    119
            D4T3      2  FLECS.OREGON_SOURCE.SF.002         1 LINE     80   42 PAGE UM   OGDEN               DEC. 16, 1974  20:59.11
0          FILE 2
00673/003   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=SC.FLX(1)                                  120
            D4T3      3  FLECS.OREGON_SOURCE.SF.003         1 LINE     80   16 PAGE UM   OGDEN               DEC. 16, 1974  20:59.41
0          FILE 3
00673/004   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=SC.F4(1)                                   121
            D4T3      4  FLECS.OREGON_SOURCE.SF.004         1 LINE     80    8 PAGE UM   OGDEN               DEC. 16, 1974  21:00.25
0          FILE 4
00673/005   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=M.FLX(1)                                   122
            D4T3      5  FLECS.OREGON_SOURCE.SF.005         1 LINE     80   22 PAGE UM   OGDEN               DEC. 16, 1974  21:01.13
0          FILE 5
00673/006   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=M.F4(1)                                    123
            D4T3      6  FLECS.OREGON_SOURCE.SF.006         1 LINE     80   24 PAGE UM   OGDEN               DEC. 16, 1974  21:02.06
0          FILE 6
00673/007   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=A.FLX(1)                                   124
            D4T3      7  FLECS.OREGON_SOURCE.SF.007         1 LINE     80   14 PAGE UM   OGDEN               DEC. 16, 1974  21:03.11
0          FILE 7
00673/008   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=A.F4(1)                                    125
            D4T3      8  FLECS.OREGON_SOURCE.SF.008         1 LINE     80   14 PAGE UM   OGDEN               DEC. 16, 1974  21:03.58
0          FILE 8
00673/009   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=L.FLX(1)                                   126
            D4T3      9  FLECS.OREGON_SOURCE.SF.009         1 LINE     80   13 PAGE UM   OGDEN               DEC. 16, 1974  21:04.46
0          FILE 9
1                                                                                               FRI AUG 02/96   16:11:27   Page  305
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
+         ______________ _____________________
00673/010   FLECS                    OREGON SOURCE   SF  O          S1073 UNSP FSNAME=L.F4(1)                                    127
            D4T3     10  FLECS.OREGON_SOURCE.SF.010         1 LINE     80   11 PAGE UM   OGDEN               DEC. 16, 1974  21:05.45
0          FILE 10
00673/011   FLECS                    OREGON SOURCE   SA  O          S1073 UNSP FSNAME=ASMFLX.S(1)                                128
            D4T3     11  FLECS.OREGON_SOURCE.SA.011         1 LINE     80   13 PAGE UM   OGDEN               DEC. 16, 1974  21:06.34
0          FILE 11
00673/012   FLECS                    STANDALONE XLT  S   O  FLE     S1073 UNSP FSNAME=F.FLX(1)                                   129
            D4T3     12  FLECS.STANDALONE_XLT.S.012         1 LINE     80   49 PAGE UM   OGDEN               AUG. 08, 1975  14:16:20
0          FILE 12 -- FLECS SOURCE FOR 3 PART MTS STANDALONE TRANSLATOR.
00673/013   FLECS                    STANDALONE XLT  S   O          S1073 UNSP FSNAME=S.FLX(1)                                   130
            D4T3     13  FLECS.STANDALONE_XLT.S.013         1 LINE     80   46 PAGE UM   OGDEN               AUG. 08, 1975  14:17:31
0          FILE 13 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR MTS STANDALONE TRANSLATOR.
00673/014   FLECS                    STANDALONE XLT  OC  O          S1073 UNSP FSNAME=O.FLX(1)                                   131
            D4T3     14  FLECS.STANDALONE_XLT.OC.014        1 LINE    240    9 PAGE UM   OGDEN               AUG. 08, 1975  14:18:07
0          FILE 14 -- OBJECT FOR MTS STANDALONE TRANSLATOR.
00673/015   FLECS                    STANDALONE XLT  S   O  FLE1    S1073 UNSP FSNAME=F.SC(1)                                    132
            D4T3     15  FLECS.STANDALONE_XLT.S.015         1 LINE     80    8 PAGE UM   OGDEN               AUG. 08, 1975  14:19:03
0          FILE 15 -- FLECS SOURCE FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
00673/016   FLECS                    STANDALONE XLT  S   O          S1073 UNSP FSNAME=S.SC(1)                                    133
            D4T3     16  FLECS.STANDALONE_XLT.S.016         1 LINE     80   11 PAGE UM   OGDEN               AUG. 08, 1975  14:20:41
0          FILE 16 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
00673/017   FLECS                    STANDALONE XLT  OC  O          S1073 UNSP FSNAME=O.SC(1)                                    134
            D4T3     17  FLECS.STANDALONE_XLT.OC.017        1 LINE    244    5 PAGE UM   OGDEN               AUG. 08, 1975  14:22:01
0          FILE 17 -- OBJECT FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
00673/018   FLECS                    STANDALONE XLT  OE  O          S1073 UNSP FSNAME=FLECS(1)                                   135
            D4T3     18  FLECS.STANDALONE_XLT.OE.018        1 SEQ   24628    9 PAGE UM   OGDEN               AUG. 08, 1975  14:22:37
0          FILE 18 -- LINKEDITED OBJECT FOR MTS STANDALONE TRANSLATOR.
00673/019   FLECS                    STANDALONE XLT  SF  O  FLE2    S1073 UNSP FSNAME=COM.FLX(1)                                 136
            D4T3     19  FLECS.STANDALONE_XLT.SF.019        1 LINE     80    2 PAGE UM   OGDEN               AUG. 08, 1975  14:23:26
0          FILE 19 -- COMMON SECTIONS USED BY STANDALONE TRANSLATOR.
00673/020   FLECS                    FLX WRITEUP     WF             S1073 UNSP FSNAME=F.FFIWR(1)                                 137
            D4T3     20  FLECS.FLX_WRITEUP.WF.020           1 LINE    244   15 PAGE UM   OGDEN               DEC. 15, 1975  08:54:56
0          FILE 20 -- FORMAT SOURCE FOR THE FLX MTS INTERFACE WRITEUP.
1                                                                                               FRI AUG 02/96   16:11:27   Page  306
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
+         ______________ _____________________
00673/021   FLECS                    NOTES           WF             S1073 UNSP FSNAME=FLECS.NOTES                                   
            D4T3     21  FLECS.NOTES.WF.021                 1 LINE     63    1 PAGE UM   OGDEN               MAY  22, 1977  17:34:48
0          NOTES DESCRIBING THE CHANGES BETWEEN THIS VERSION AND THE PREVIOUS REDISTRIBUTION.
00673/022   FLECS                    USER'S MANUAL   WF             S1073 UNSP FSNAME=FLECSUSERSMANUAL(1)                        139
            D4T3     22  FLECS.USER'S_MANUAL.WF.022         1 LINE    183   13 PAGE UM   OGDEN               DEC. 15, 1975  08:57:40
00673/023   FLECS                    FLX             SF  O  FLX     S1073 UNSP FSNAME=COM.FLX(3)                                 425
            D4T3     23  FLECS.FLX.SF.023                   1 LINE     80    3 PAGE UM   OGDEN               MAY  22, 1977  17:37:47
0          FILE 23 -- FORTRAN COMMON SECTIONS USED BY FLECS/FORTRAN INTERFACE.
0          Referenced by comments of: 673/27 
00673/024   FLECS                    FLX             S   O  FLX1    S1073 UNSP FSNAME=F.FLX(4)                                   426
            D4T3     24  FLECS.FLX.S.024                    1 LINE     80   50 PAGE UM   OGDEN               MAY  22, 1977  17:40:01
0          FILE 24 -- FLECS SOURCE FOR FLXT TRANSLATOR.
0          Referenced by comments of: 673/28 
00673/025   FLECS                    FLX             S   O  FLX2    S1073 UNSP FSNAME=F.SC(4)                                    427
            D4T3     25  FLECS.FLX.S.025                    1 LINE     80    8 PAGE UM   OGDEN               MAY  22, 1977  17:41:16
0          FILE 25 -- FLECS SOURCE FOR FFI/FLXT INTERFACE.
0          Referenced by comments of: 673/29 
00673/026   FLECS                    FLX             SA  O  FLX3    S1073 UNSP FSNAME=S.AU(2)                                    433
            D4T3     26  FLECS.FLX.SA.026                   1 LINE     80   26 PAGE UM   OGDEN               MAY  22, 1977  17:46:03
0          FILE 26 -- ASSEMBLY SOURCE FOR FLXT UTILITY ROUTINES.
00673/027   FLECS                    FLX             OC  O          S1073 UNSP FSNAME=O.FLX(3)                                   431
            D4T3     27  FLECS.FLX.OC.027                   1 LINE   9072    8 PAGE UM   OGDEN               MAY  22, 1977  17:44:12
0          FILE 27 -- OBJECT FOR F.FLX (673/23).
00673/028   FLECS                    FLX             OC  O          S1073 UNSP FSNAME=O.SC(3)                                    432
            D4T3     28  FLECS.FLX.OC.028                   1 LINE   1004    4 PAGE UM   OGDEN               MAY  22, 1977  17:45:02
0          FILE 28 -- OBJECT FOR F.SC (673/24).
00673/029   FLECS                    FLX             OC  O          S1073 UNSP FSNAME=O.AU(2)                                    429
            D4T3     29  FLECS.FLX.OC.029                   1 LINE     80    3 PAGE UM   OGDEN               MAY  22, 1977  17:43:04
0          FILE 29 -- OBJECT FOR S.AU (673/25).
00673/030   FLECS                    FLX             OE  O          UNSP:FLXT                                                       
            D4T3     30  FLECS.FLX.OE.030                   1 LINE  11124   11 PAGE UM   OGDEN               JULY 28, 1977  23:10:29
0          FILE 30 -- LINKEDITED OBJECT FOR FLXT, THE TRANSLATOR THAT RUNS UNDER FFI.
1                                                                                               FRI AUG 02/96   16:11:27   Page  307
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
+         ______________ _____________________
00673/031   FLECS                    FLX             SA  O  FLX2    S1073 UNSP FSNAME=FLXDEF(3)                                  428
            D4T3     31  FLECS.FLX.SA.031                   1 LINE     80    8 PAGE UM   OGDEN               MAY  22, 1977  17:41:57
0          FILE 31 -- MACROS AND COPY SECTIONS.
00673/032   FLECS                    FLX             SA  O  FFI     S1073 UNSP FSNAME=S.FFI(2)                                   434
            D4T3     32  FLECS.FLX.SA.032                   1 LINE     80   76 PAGE UM   OGDEN               MAY  22, 1977  17:46:42
0          FILE 32 -- ASSEMBLY SOURCE FOR FFI.
00673/033   FLECS                    FLX             OC  O          S1073 UNSP FSNAME=O.FFI(2)                                   430
            D4T3     33  FLECS.FLX.OC.033                   1 LINE     80    8 PAGE UM   OGDEN               MAY  22, 1977  17:43:27
00673/034   FLECS                    FLX             OE  O          UNSP:FLX                                                        
            D4T3     34  FLECS.FLX.OE.034                   1 LINE   1840    6 PAGE UM   OGDEN               JULY 28, 1977  23:10:38
0          FILE 34 -- LINKEDITED OBJECT FOR FFI.  LINKS TO FLXT AND *FORTRANG OR *FORTRANH.
00673/035   FLECS                    EXAMPLE 1       S   S  FEX1    S1073 UNSP FSNAME=DRKEXAMPLE                                    
            D4T3     35  FLECS.EXAMPLE_1.S.035              1 LINE     80   25 PAGE UM   OGDEN               DEC. 09, 1976  22:36:39
0          FILE 35 -- EXAMPLE FLECS PROGRAMS.
00673/036   FLECS                    EXAMPLE 2       S   S  FEX2    S1073 UNSP FSNAME=HBGANALYZEREXAMPLE                            
            D4T3     36  FLECS.EXAMPLE_2.S.036              1 LINE     80   14 PAGE UM   OGDEN               JAN. 21, 1976  15:16:56
0          FILE 36 -- EXAMPLE FLECS PROGRAM.
0          Referenced by comments of: 673/1 
00673/037   FLECS                    INSTALLATION    WF             S1073 UNSP FSNAME=FLECSINSTALLATIONGUIDE                        
            D4T3     37  FLECS.INSTALLATION.WF.037          1 LINE    145   12 PAGE UM   OGDEN               MAY  22, 1977  17:33:57
0          FILE 37 -- FORMAT SOURCE FOR THE MTS FLECS INSTALLATION GUIDE.
00674/001   JVCT SUBR                                SA  G          W030:UBCDATE                                                    
            D4T3     38  JVCT_SUBR..SA.001                  1 LINE     72   10 PAGE UBC  HOGG      LIFT      JULY 28, 1977  23:15:58
0          SUBROUTINE TO CONVERT FREE FORM TIME AND DATE FROM BCD TO MTS STANDARD
           INTERNAL TIME, I.E. MICROSECONDS SINCE 1 MARCH 1900.  SEE SOURCE FOR
           USAGE DESCRIPTION.
0          Referenced by comments of: 621/8, 621/9, 655/2, 707/3 
00674/002   JVCT SUBR                                OC  G          MTS:UBCDATEX                                                    
            D4T3     39  JVCT_SUBR..OC.002                  1 LINE     80    3 PAGE UBC  HOGG      LIFT      AUG. 14, 1977  22:38:03
00675/001   MTS VOLUME 6             MASTER          WT             S0273 MTSV6 'MTS MANUALS' POSN=NEWM2.V6                         
            D4T3     40  MTS_VOLUME_6.MASTER.WT.001         1 SEQ     132  250 PAGE UM   MANUAL              JULY 28, 1977  23:17:33
0          TEXT/360 MASTER FOR VOLUME 6 "FORTRAN IN MTS" OF THE UM MTS MANUALS (MARCH 1976,
           UPDATED JULY 1977).
            
           EDITOR:  RICHARD A. SALISBURY
1                                                                                               FRI AUG 02/96   16:11:27   Page  308
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
+         ______________ _____________________
00675/002   MTS VOLUME 6             PRINT           PT             S0273 MTSV6 'MTS MANUALS' POSN=PRINT2.V6                        
            D4T3     41  MTS_VOLUME_6.PRINT.PT.002          1 SEQ     132  442 PAGE UM   MANUAL              JULY 28, 1977  23:17:59
0          TEXT/360 PRINT FILE.
00676/001   MTS VOLUME 8             MASTER          WT             S0950 MTSV8 'MTS MANUALS' POSN=NEWM1.V8                         
            D4T3     42  MTS_VOLUME_8.MASTER.WT.001         1 SEQ     132  157 PAGE UM   MANUAL              JULY 28, 1977  23:18:29
0          TEXT/360 MASTER FOR VOLUME 8 "LISP AND SLIP IN MTS" OF THE UM MTS MANUALS
           (JUNE 1976).
            
           EDITOR:  RICHARD A. SALISBURY
00676/002   MTS VOLUME 8             PRINT           PT             S0950 MTSV8 'MTS MANUALS' POSN=PRINT1.V8                        
            D4T3     43  MTS_VOLUME_8.PRINT.PT.002          1 SEQ     132  159 PAGE UM   MANUAL              JULY 28, 1977  23:18:39
0          TEXT/360 PRINT FILE.
00677/001  *ENCRYPT                                  SA  G  ENCR    *ENCRYPT(1001)                                                  
            D4T3     44  ENCRYPT..SA.001                    1 LINE     80   17 PAGE UM   OGDEN               JULY 28, 1977  23:18:43
0          THIS PROGRAM TO SCRAMBLE AND UNSCRAMBLE FILES BASED ON A SECRET KEY IS INTENDED
           AS A REPLACEMENT FOR *SCRAMBLE (491).  ASSEMBLE USING THE EDITOR MACROS (648/11).
0          Referenced by comments of: 491/1 
00677/002  *ENCRYPT                                  OE  G          *ENCRYPT(1,999)                                                 
            D4T3     45  ENCRYPT..OE.002                    1 LINE   1924    4 PAGE UM   OGDEN               JULY 28, 1977  23:18:46
00678/001   SNOSTORM                                 SS  O          W008:SNOSTORM.S(5)                                              
            D4T3     46  SNOSTORM..SS.001                   1 LINE     70    6 PAGE UM   SWARTZ              JULY 28, 1977  23:18:48
0          SNOSTORM IS A FIRST ATTEMPT AT A PREPROCESSOR FOR THE SNOBOL4 LANGUAGE.
           IT AUGMENTS SNOBOL4 WITH THE STRUCTURES IF, DO, CASE, AND PROC.  CURRENTLY,
           IT IS BEING USED IN THE PRELIMINARY VERSION OF OVERDRIVE (SEE COMP 667) AND
           IN THE HASP DUMP ANALYZER (SEE COMP 387).
           USES THE SPITBOL LOAD FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB.
00678/002   SNOSTORM                                 OC  O          W008:SNOSTORM                                                   
            D4T3     47  SNOSTORM..OC.002                   1 LINE     80   16 PAGE UM   SWARTZ              JULY 28, 1977  23:18:50
0          HAS A "$CONTINUE WITH NEW.:SPITLIB" CARD.
00678/003   SNOSTORM                 WRITEUP         PF             W008:SNOSTORM.DOC                                               
            D4T3     48  SNOSTORM.WRITEUP.PF.003            1 LINE    119    8 PAGE UM   SWARTZ              JULY 28, 1977  23:18:52
0          PRELIMINARY VERSION OF SNOSTORM DOCUMENTATION.
00679/001   INTRO GUIDE: INTRO TO CC MAY/76          WF             S0622 D3MISC FSNAME=INTROTOCC.5/76.WF                           
            D4T3     49  INTRO_GUIDE:_INTRO_TO_CC..WF.001   1 LINE    238  102 PAGE UM   K YOUNG             JUNE 23, 1977  13:25:14
0          FORMAT SOURCE FOR "INTRODUCTION TO THE COMPUTING CENTER" (MAY 1976), THE FIRST
           IN A SERIES OF MTS INTRODUCTORY GUIDES.
1                                                                                               FRI AUG 02/96   16:11:27   Page  309
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
+         ______________ _____________________
00679/002   INTRO GUIDE: INTRO TO CC SEP/77          WF             W098:INTRO77                                                    
            D4T3     50  INTRO_GUIDE:_INTRO_TO_CC..WF.002   1 LINE    222  106 PAGE UM   K YOUNG             SEP. 18, 1977  22:05:51
0          FORMAT SOURCE FOR "INTRODUCTION TO THE COMPUTING CENTER" (SEPT 1977).
00680/001  *CKID                                     SA  G  CKID    MTS:CKID.S                                                      
            D4T3     51  CKID..SA.001                       1 LINE     80   15 PAGE UBC  HOGG      MTA       JULY 28, 1977  23:21:03
0          PROGRAM TO PROVIDE ADDITONAL SIGNON SECURITY FOR ACCOUNTS WHICH ARE SHARED BY
           SEVERAL USERS WITHOUT REQUIRING THAT THE PASSWORD FOR THE SHARED ACCOUNT BE
           CHANGED REGULARLY.  COPIES COPY:ACCFORMAT (725) AND *GDINFODSECT (594).
0          Referenced by comments of: 3003/84 
00680/002  *CKID                                     OE  G          *CKID                                                           
            D4T3     52  CKID..OE.002                       1 LINE   2256    3 PAGE UBC  HOGG      MTA       JULY 28, 1977  23:21:05
00681/001   AUDIO RESP SYS - VOTRAX  INSTALLATION    PT             W070:ARS.SYSWRP.P                                               
            D4T3     53  AUDIO_RESP_SYS_-_VOTRAX.I.PT.001   1 LINE    100    7 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:36
0          INSTRUCTIONS FOR THE INSTALLATION OF THE VOTRAX AUDIO RESPONSE SYSTEM
           WHICH USES THE VOTRAX VS-6 SPEECH SYNTHESIZER AND "TOUCH-TONE" TELEPHONE
           COMMUNICATION TO PROVIDE MTS INTERACTIVE FACILITIES IN CONJUNCTION WITH
           THE DATA CONCENTRATOR DEVICE SUPPORT ROUTINES PDP8RTN (116).  COPY TO A
           TN PRINTER @MCC.
00681/002   AUDIO RESP SYS - VOTRAX  VTRX            SA  G          W070:VOTRX.S(6)                                                 
            D4T3     54  AUDIO_RESP_SYS_-_VOTRAX.V.SA.002   1 LINE     81   36 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:37
0          SUBROUTINES VTRXINIT, VTRXIN, VTRXOUT, VTRXCTRL, AND VTRXCLOS WHICH ARE
           CALLED BY PDP8RTN (116) TO PROCESS VOTRAX I/O AND CONTROL COMMANDS.
           THESE ROUTINES CALL CVTPB (681/4) AND DICTINIT, DICTADD, AND DICTLOOK
           (681/6) AS WELL AS REFERENCING THE VOTRAX VOCABULARY (681/14).
00681/003   AUDIO RESP SYS - VOTRAX  VTRX            OC  G        # *PDP8RTN (SEE COMP 116)                                         
                                                                                    UM   FRONCZAK                                   
00681/004   AUDIO RESP SYS - VOTRAX  CVTPB           SA  G          W070:VOTRX.CVT.S(5)                                             
            D4T3     55  AUDIO_RESP_SYS_-_VOTRAX.C.SA.004   1 LINE     71    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:47
0          SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION ROUTINE.
0          Referenced by comments of: 681/2, 681/8 
00681/005   AUDIO RESP SYS - VOTRAX  CVTPB           OC  G        # *PDP8RTN (SEE COMP 116)                                         
                                                                                    UM   FRONCZAK                                   
00681/006   AUDIO RESP SYS - VOTRAX  DICT            SA  G          W070:VOTRX.DICT.S(4)                                            
            D4T3     56  AUDIO_RESP_SYS_-_VOTRAX.D.SA.006   1 LINE     81   10 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:48
0          MORPH DIRECTORY MANIPULATION ROUTINES.
0          Referenced by comments of: 681/2, 681/8 
1                                                                                               FRI AUG 02/96   16:11:27   Page  310
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
+         ______________ _____________________
00681/007   AUDIO RESP SYS - VOTRAX  DICT            OC  G        # *PDP8RTN (SEE COMP 116)                                         
                                                                                    UM   FRONCZAK                                   
00681/008   AUDIO RESP SYS - VOTRAX  RVGN            SA  G          W070:VOTRX.RVGN.S(6)                                            
            D4T3     57  AUDIO_RESP_SYS_-_VOTRAX.R.SA.008   1 LINE     67    9 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:53
0          PROGRAM TO READ A SYMBOLIC VOCABULARY FILE (E.G. *ARUVOC) AND GENERATE ASSEMBLER
           INPUT WHICH, WHEN ASSEMBLED, PRODUCES AN OBJECT DECK FOR THE TREE STRUCTURE VOCABULARY.
           THIS PROGRAM CALLS CVTPB (681/4), DICT (681/6), RVST (681/10) AND REQUIRES *PLOTSYS.
0          Referenced by comments of: 681/12, 681/13 
00681/009   AUDIO RESP SYS - VOTRAX  RVGN            OC  G          W070:VOTRX.RVGN.O                                               
            D4T3     58  AUDIO_RESP_SYS_-_VOTRAX.R.OC.009   1 LINE     80    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:54
00681/010   AUDIO RESP SYS - VOTRAX  RVST            SF  G          W070:VOTRX.RVST.S(6)                                            
            D4T3     59  AUDIO_RESP_SYS_-_VOTRAX.R.SF.010   1 LINE     71    4 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:55
0          SUBROUTINES TO COMPUTE, PRINT, AND PLOT VOCABULARY STATISTICS.
0          Referenced by comments of: 681/8 
00681/011   AUDIO RESP SYS - VOTRAX  RVST            OC  G          W070:VOTRX.RVST.O                                               
            D4T3     60  AUDIO_RESP_SYS_-_VOTRAX.R.OC.011   1 LINE    248    5 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:56
00681/012   AUDIO RESP SYS - VOTRAX  TREEDEF         SA  G          W070:VTREEDEF                                                   
            D4T3     61  AUDIO_RESP_SYS_-_VOTRAX.T.SA.012   1 LINE     65    2 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:57
0          THE OUTPUT (WHICH IS ASSEMBLER SOURCE) FROM RVGN (681/8) STARTS WITH A COPY
           PSEUDO-OP FOR "W070:VTREEDEF" WHICH COPIES THE INITIAL PART OF THE SOURCE.
00681/013   AUDIO RESP SYS - VOTRAX  VOCABULARY      D              *ARUVOC                                                         
            D4T3     62  AUDIO_RESP_SYS_-_VOTRAX.V.D.013    1 LINE     95   31 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:57
0          MORPH SYMBOLIC DIRECTORY FOR STANDARD VOTRAX VOCABULARY WHICH, WHEN RUN
           THROUGH RVGN (681/8), PRODUCES THE ASSEMBLER INPUT FOR THE VOCABULARY
           WHICH, WHEN ASSEMBLED, YIELDS THE SHARED VM VOCABULARY OBJECT (681/14).
00681/014   AUDIO RESP SYS - VOTRAX  VOCABULARY      OC  G        # *PDP8RTN (SEE COMP 116)                                         
                                                                                    UM   FRONCZAK                                   
0          STANDARD SYSTEM VOTRAX TREE STRUCTURE VOCABULARY.
0          Referenced by comments of: 681/2, 681/13 
00681/015   AUDIO RESP SYS - VOTRAX  VOCAB EDITOR    SF  G          W070:VOTRX.EVOC.S                                               
            D4T3     63  AUDIO_RESP_SYS_-_VOTRAX.V.SF.015   1 LINE     70    2 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:01
0          VOTRAX VOCABULARY LINE FILE EDITOR WITH AURAL VERIFICATION.  SEE THE SOURCE
           FOR USAGE DIRECTIONS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  311
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
+         ______________ _____________________
00681/016   AUDIO RESP SYS - VOTRAX  VOCAB EDITOR    OC  G          W070:VOTRX.EVOC                                                 
            D4T3     64  AUDIO_RESP_SYS_-_VOTRAX.V.OC.016   1 LINE    254    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:02
0          CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD.
00681/017   AUDIO RESP SYS - VOTRAX  TALK            SF  G          W070:VOTRX.TALK.S                                               
            D4T3     65  AUDIO_RESP_SYS_-_VOTRAX.T.SF.017   1 LINE     64    1 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:03
0          SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION PROGRAM WITH AURAL VERIFICATION.
           SEE THE SOURCE FOR USAGE DIRECTIONS.
00681/018   AUDIO RESP SYS - VOTRAX  TALK            OC  G          W070:VOTRX.TALK                                                 
            D4T3     66  AUDIO_RESP_SYS_-_VOTRAX.T.OC.018   1 SEQ     340    1 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:04
0          CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD.
00681/019   AUDIO RESP SYS - VOTRAX  DSR TEST        SA  G          W070:VOTRX.TEST.S(4)                                            
            D4T3     67  AUDIO_RESP_SYS_-_VOTRAX.D.SA.019   1 LINE     72    8 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:04
0          PROGRAM TO INDEPENDENTLY TEST THE VOTRAX ROUTINES WHICH ARE CALLED BY PDP8RTN (116).
           SEE THE SOURCE FOR USAGE DIRECTIONS.
00681/020   AUDIO RESP SYS - VOTRAX  DSR TEST        OC  G          W070:VOTRX.TEST.O                                               
            D4T3     68  AUDIO_RESP_SYS_-_VOTRAX.D.OC.020   1 LINE     80    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:06
00681/021   AUDIO RESP SYS - VOTRAX  TEXT INSERTION  D            # *ARUDEF (SEE COMP 084)                                          
                                                                                    UM   FRONCZAK                                   
0          TEXT DEFINITION FILE FOR TEXT INSERTION MODE.
00682/001   FILE SYSTEM RECOVERY     DOCUMENTATION   WF             FILE:UBC.DISK.W                                                 
            D4T3     69  FILE_SYSTEM_RECOVERY.DOCU.WF.001   1 LINE     92    7 PAGE UM   HELFFRICH           JULY 28, 1977  23:21:58
0          THIS COMPONENT CONTAINS A COLLECTION OF PROGRAMS WHICH CAN BE USED TO RECOVER
           FROM HARDWARE AND SOFTWARE DISK DISASTERS.
            
           COMP 682/1 IS A WRITEUP DESCRIBING THE USAGE OF THE SEVERAL PROGRAMS AND A DESCRIPTION
           OF THE DISK ORGANIZATION.  THE FORMAT INCLUDE FUNCTION IS USED TO REFERENCE THE
           VARIOUS PIECES OF THIS WRITEUP (682/2 THROUGH 682/17).
00682/002   FILE SYSTEM RECOVERY     CCATL DESC      WF             FILE:CCATL.W                                                    
            D4T3     70  FILE_SYSTEM_RECOVERY.CCAT.WF.002   1 LINE     93    2 PAGE UM   PIRKOLA             JULY 28, 1977  23:22:00
0          WRITEUP DESCRIBING THE CCATL PROGRAM (442).
00682/003   FILE SYSTEM RECOVERY     PM DESC         WF             FILE:PM.W                                                       
            D4T3     71  FILE_SYSTEM_RECOVERY.PM_D.WF.003   1 LINE     62    2 PAGE UBC  O'REILLY  PIRKOLA   JULY 28, 1977  23:22:03
0          WRITEUP DESCRIBING THE PACK MAP PROGRAM (1030).
00682/004   FILE SYSTEM RECOVERY     DSKMAN DESC     WF             FILE:DSKMAN.W                                                   
            D4T3     72  FILE_SYSTEM_RECOVERY.DSKM.WF.004   1 LINE     63    1 PAGE UM   HELFFRICH           JULY 28, 1977  23:22:05
0          WRITEUP DESCRIBING THE DSKMAN (*DSK) PROGRAM (073).
1                                                                                               FRI AUG 02/96   16:11:27   Page  312
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
+         ______________ _____________________
00682/005   FILE SYSTEM RECOVERY     DASDI DESC      WF             FILE:DASDI.W                                                    
            D4T3     73  FILE_SYSTEM_RECOVERY.DASD.WF.005   1 LINE     66    1 PAGE UM   HELFFRICH           JULY 28, 1977  23:22:08
0          WRITEUP DESCRIBING THE DASDI PROGRAM (598).
00682/006   FILE SYSTEM RECOVERY     CHONID DESC     WF             FILE:CHONID.W                                                   
            D4T3     74  FILE_SYSTEM_RECOVERY.CHON.WF.006   1 LINE     64    1 PAGE UM   PIRKOLA             JULY 28, 1977  23:22:10
0          WRITEUP DESCRIBING THE CHONID PROGRAM (599).
00682/007   FILE SYSTEM RECOVERY     FM DESC         WF             FILE:FM.W                                                       
            D4T3     75  FILE_SYSTEM_RECOVERY.FM_D.WF.007   1 LINE     68    1 PAGE UBC  HOGG      HELFFRICH JULY 28, 1977  23:22:13
0          WRITEUP DESCRIBING THE FILE MOVE PROGRAM (1020).
00682/008   FILE SYSTEM RECOVERY     CHKVTOC DESC    WF             FILE:CHKVTOC.W                                                  
            D4T3     76  FILE_SYSTEM_RECOVERY.CHKV.WF.008   1 LINE     73    1 PAGE UM   HELFFRICH           AUG. 14, 1977  22:41:35
0          WRITEUP DESCRIBING THE CHKVTOC PROGRAM (682/20).
00682/009   FILE SYSTEM RECOVERY     TABLMOD DESC    WF             FILE:TABLMOD.W                                                  
            D4T3     77  FILE_SYSTEM_RECOVERY.TABL.WF.009   1 LINE     76    1 PAGE UM   PIRKOLA             JULY 28, 1977  23:22:18
0          WRITEUP DESCRIBING THE TABLMOD PROGRAM (554).
00682/010   FILE SYSTEM RECOVERY     VNTD DESC       WF             FILE:VNTD.W                                                     
            D4T3     78  FILE_SYSTEM_RECOVERY.VNTD.WF.010   1 LINE     68    1 PAGE UM   PIRKOLA             AUG. 14, 1977  22:41:36
0          WRITEUP DESCRIBING THE VNTD PROGRAM (682/18).
00682/011   FILE SYSTEM RECOVERY     FSTEST DESC     WF             FILE:FSTEST.W                                                   
            D4T3     79  FILE_SYSTEM_RECOVERY.FSTE.WF.011   1 LINE    101    4 PAGE UM   HELFFRICH           AUG. 14, 1977  22:41:37
0          WRITEUP DESCRIBING THE FSTEST PROGRAM (482/34).
00682/012   FILE SYSTEM RECOVERY     VAMREC DESC     WF             FILE:VAMREC.WRUP                                                
            D4T3     80  FILE_SYSTEM_RECOVERY.VAMR.WF.012   1 LINE    148    5 PAGE SFU  BENET     HELFFRICH AUG. 14, 1977  22:41:38
0          WRITEUP DESCRIBING THE VAMREC PROGRAM (682/22).
00682/013   FILE SYSTEM RECOVERY     RECOVERING      WF             FILE:RECOVERING                                                 
            D4T3     81  FILE_SYSTEM_RECOVERY.RECO.WF.013   1 LINE    177    5 PAGE UM   HELFFRICH           AUG. 14, 1977  22:41:39
0          DESCRIPTION OF PROCEDURES SUGGESTED FOR RECOVERING FROM DISK DISASTERS.
00682/014   FILE SYSTEM RECOVERY     LINE FILE DESC  WF             FILE:DOC.DESC.LNE                                               
            D4T3     82  FILE_SYSTEM_RECOVERY.LINE.WF.014   1 LINE    136    4 PAGE UM   PIRKOLA             AUG. 14, 1977  22:41:40
0          DESCRIPTION OF MTS LINE FILE ORGANIZATION.
00682/015   FILE SYSTEM RECOVERY     SEQ FILE DESC   WF             FILE:DOC.DESC.SEQ                                               
            D4T3     83  FILE_SYSTEM_RECOVERY.SEQ.WF.015    1 LINE    130    4 PAGE UM   PIRKOLA             AUG. 14, 1977  22:41:41
0          DESCRIPTION OF MTS SEQ FILE ORGANIZATION.
1                                                                                               FRI AUG 02/96   16:11:27   Page  313
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
+         ______________ _____________________
00682/016   FILE SYSTEM RECOVERY     CAT DESC        WF             FILE:DOC.DESC.CAT                                               
            D4T3     84  FILE_SYSTEM_RECOVERY.CAT.WF.016    1 LINE    190    7 PAGE UM   PIRKOLA             AUG. 14, 1977  22:41:41
0          DESCRIPTION OF MTS FILE CATALOG ORGANIZATION.
00682/017   FILE SYSTEM RECOVERY     TAB DESC        WF             FILE:DOC.DESC.TAB                                               
            D4T3     85  FILE_SYSTEM_RECOVERY.TAB.WF.017    1 LINE    131    5 PAGE UM   PIRKOLA             AUG. 14, 1977  22:41:44
0          DESCRIPTION OF MTS SHARED FILE TABLE ORGANIZATION.
00682/018   FILE SYSTEM RECOVERY     VNTD            SA  G  VNTD    FILE:VNTD                                                       
            D4T3     86  FILE_SYSTEM_RECOVERY.VNTD.SA.018   1 LINE     80   35 PAGE UM   PIRKOLA             AUG. 14, 1977  22:41:45
0          PROGRAM TO VERIFY, TRACE, AND/OR DUMP THE FILE SYSTEM CATALOG.  IT WILL VERIFY, TRACE,
           AND/OR DUMP THE ENTIRE CATALOG, A PARTICULAR USER CATALOG, OR A PARTICULAR USER FILE.
           THIS PROGRAM ASSUMES 3330 TYPE DISKS AND PUBLIC VOLUME NUMBERS LESS THAN 256 IN ITS ERROR
           CHECKING.  SEE COMP 682/10 FOR A WRITEUP.  ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 682/10, 682/26 
00682/019   FILE SYSTEM RECOVERY     VNTD            OC  G          FILE:VNTD.O                                                     
            D4T3     87  FILE_SYSTEM_RECOVERY.VNTD.OC.019   1 LINE     80    8 PAGE UM   PIRKOLA             AUG. 14, 1977  22:41:48
00682/020   FILE SYSTEM RECOVERY     CHKVTOC         SA  G  CHKV    FILE:CHKVTOC(1001)                                              
            D4T3     88  FILE_SYSTEM_RECOVERY.CHKV.SA.020   1 LINE     80   18 PAGE UM   HELFFRICH           AUG. 14, 1977  22:41:49
0          PROGRAM TO CHECK CONSISTENCY OF PAGE ASSIGNMENT TABLE (PAT) WITH TYPE E'S AND TYPE F'S FOR
           A PARTICULAR VOLUME.  REQUIRES SYMBOLS IN SYSDEFS.  ASSEMBLE USING COPY:FILE.MACROS (482/36)
           AND *SYSMAC.  CALLS VTOCREAD SUBROUTINE (067/4).  SEE COMP 682/8 FOR A WRITEUP.
0          Referenced by comments of: 682/8 
00682/021   FILE SYSTEM RECOVERY     CHKVTOC         OC  G          FILE:CHKVTOC(1,999)                                             
            D4T3     89  FILE_SYSTEM_RECOVERY.CHKV.OC.021   1 LINE     80    5 PAGE UM   HELFFRICH           AUG. 14, 1977  22:41:59
0          CONTAINS A "$CONTINUE WITH RSTR:VTOCREAD RETURN" LINE.
00682/022   FILE SYSTEM RECOVERY     VAMREC          SA  G  VMRC    FILE:VAMREC.S                                                   
            D4T3     90  FILE_SYSTEM_RECOVERY.VAMR.SA.022   1 LINE     80   64 PAGE SFU  BENET     HELFFRICH JULY 28, 1977  23:22:33
0          THE VAMREC DISK UTILITY.  COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU(100) (087).
           SEE COMP 682/12 FOR A WRITEUP.
0          Referenced by comments of: 682/12 
00682/023   FILE SYSTEM RECOVERY     VAMREC          OC  G          FILE:VAMREC                                                     
            D4T3     91  FILE_SYSTEM_RECOVERY.VAMR.OC.023   1 LINE     80   11 PAGE SFU  BENET     HELFFRICH JULY 28, 1977  23:22:41
00682/024   FILE SYSTEM RECOVERY     FIXEH           SA  G  FXEH    FILE:FIXEH(1,999)                                               
            D4T3     92  FILE_SYSTEM_RECOVERY.FIXE.SA.024   1 LINE     80    5 PAGE UM   HELFFRICH           JULY 28, 1977  23:22:46
0          PROGRAM TO FIX EXTENT HEADERS IN THE CATALOG BY CLEARING THE IN-USE BITS FOR
           ALL SEGMENTS IN A RECORD OF THE CATALOG WHICH IS ALL ZERO.  IT WILL ALSO CHECK
           THAT THE RECORD HEADER OF ANY NON-ZERO RECORD (WITH A SEGMENT FLAGGED AS BEING
1                                                                                               FRI AUG 02/96   16:11:27   Page  314
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          IN-USE) IS CORRECT.  ASSEMBLE USING COPY:FILE.MACROS (482/36).
00682/025   FILE SYSTEM RECOVERY     FIXEH           OC  G          FILE:FIXEH(1000)                                                
            D4T3     93  FILE_SYSTEM_RECOVERY.FIXE.OC.025   1 LINE     80    2 PAGE UM   HELFFRICH           JULY 28, 1977  23:22:49
00682/026   FILE SYSTEM RECOVERY     FIXCAT          SA  G  FCAT    FILE:FIXCAT(1,999)                                              
            D4T3     94  FILE_SYSTEM_RECOVERY.FIXC.SA.026   1 LINE     80    8 PAGE UM   HELFFRICH           AUG. 14, 1977  22:42:10
0          PROGRAM TO RECHAIN CATALOG SEGMENTS BACK TOGETHER AND ADD OR REMOVE MASTER INDEX
           ENTRIES AS REQUIRED.  IT TAKES AS INPUT, THE OUTPUT FROM VNTD (682/18) AND PRODUCES
           AS OUTPUT A LIST OF USERIDS WHOSE CATALOGS WERE AFFECTED.  THIS OUTPUT IS THEN USED
           FOR INPUT TO ACATSUB (104/94) AND FASTRSTR (671).  ASSEMBLE USING COPY:FILE.MACROS
           (482/36).
00682/027   FILE SYSTEM RECOVERY     FIXCAT          OC  G          FILE:FIXCAT(1000)                                               
            D4T3     95  FILE_SYSTEM_RECOVERY.FIXC.OC.027   1 LINE     80    3 PAGE UM   HELFFRICH           AUG. 14, 1977  22:42:11
00682/028   FILE SYSTEM RECOVERY     FIXSD           SA  G  FXSD    FILE:FIXSD(1,999)                                               
            D4T3     96  FILE_SYSTEM_RECOVERY.FIXS.SA.028   1 LINE     80    6 PAGE UM   HELFFRICH           JULY 28, 1977  23:22:56
0          PROGRAM TO FIX SHARING DESCRIPTORS BY ZEROING ANY SD WHICH IS NOT POINTED TO BY
           A FD OR SD.  IT ALSO WILL ZERO THE PREVIOUS POINTER IN THE FD OR SD FOR ANY LOST SD.
           IT TAKES AS INPUT THE OUTPUT FROM VNTD (703/2) AND PROVIDES AS OUTPUT A LIST OF
           FILES WHICH LOST SHARING INFORMATION.  THIS OUTPUT IS THEN USED FOR INPUT TO
           FASTRSTR (671).  ASSEMBLE USING COPY:FILE.MACROS (482/36).
00682/029   FILE SYSTEM RECOVERY     FIXSD           OC  G          FILE:FIXSD(1000)                                                
            D4T3     97  FILE_SYSTEM_RECOVERY.FIXS.OC.029   1 LINE     80    3 PAGE UM   HELFFRICH           JULY 28, 1977  23:22:59
00682/030   FILE SYSTEM RECOVERY     WHATSLEFT       SA  G  WHAT    FILE:WHATSLEFT(1,999)                                           
            D4T3     98  FILE_SYSTEM_RECOVERY.WHAT.SA.030   1 LINE     80    2 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:01
0          PROGRAM TO GENERATE A LIST OF FILES WHICH DID NOT GET DATA OR CATALOG RESTORED
           BY FASTRSTR (671).  SEE THE SOURCE FOR DETAILS ON USAGE. 
00682/031   FILE SYSTEM RECOVERY     WHATSLEFT       OC  G          FILE:WHATSLEFT(1000)                                            
            D4T3     99  FILE_SYSTEM_RECOVERY.WHAT.OC.031   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:04
00682/032   FILE SYSTEM RECOVERY     RECATALOG       SA  G  RCAT    FILE:RECATALOG(1,999)                                           
            D4T3    100  FILE_SYSTEM_RECOVERY.RECA.SA.032   1 LINE     80    4 PAGE UM   HELFFRICH           AUG. 14, 1977  22:42:13
0          SUBROUTINE TO RECATALOG A FILE FROM SCRATCH.  IT TAKES AS INPUT, A FILENAME AND
           DSCB ADDRESS.  IT ALSO DETERMINES THE FILE TYPE AND SETS IT ACCORDINGLY.
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
00682/033   FILE SYSTEM RECOVERY     RECATALOG       OC  G          FILE:RECATALOG(1000)                                            
            D4T3    101  FILE_SYSTEM_RECOVERY.RECA.OC.033   1 LINE     80    1 PAGE UM   HELFFRICH           AUG. 14, 1977  22:42:14
00682/034   FILE SYSTEM RECOVERY     CALLDR          SA  G  CLDR    FILE:CALLDR(1,999)                                              
            D4T3    102  FILE_SYSTEM_RECOVERY.CALL.SA.034   1 LINE     80    3 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:12
0          PROGRAM WHICH CALLS DESTRYR TO DESTROY FILES.  SEE THE SOURCE FOR USAGE DETAILS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  315
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
+         ______________ _____________________
00682/035   FILE SYSTEM RECOVERY     CALLDR          OC  G          FILE:CALLDR(1000)                                               
            D4T3    103  FILE_SYSTEM_RECOVERY.CALL.OC.035   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:14
00682/036   FILE SYSTEM RECOVERY     *FILES          SA  G  STAR    FILE:STARFILES(1,999)                                           
            D4T3    104  FILE_SYSTEM_RECOVERY.*FIL.SA.036   1 LINE     80    7 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:17
0          PROGRAM TO PRINT WHICH USERS FILES HAVE BEEN AFFECTED AND HOW BY A DISK CRASH.
           IT TAKES AS INPUT DATA IN FILE:FILELIST (SEE THE SOURCE FOR DETAILS ON THE FORMAT
           OF THIS FILE).  THE OUTPUT FROM FASTRSTR (671) IS BASICALLY WHAT IS USED TO
           GENERATE THIS DATA FILE WITH THE HELP OF COMBLIST (703/23).
0          Referenced by comments of: 682/38 
00682/037   FILE SYSTEM RECOVERY     *FILES          OC  G          FILE:STARFILES(1000)                                            
            D4T3    105  FILE_SYSTEM_RECOVERY.*FIL.OC.037   1 LINE     80    3 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:19
00682/038   FILE SYSTEM RECOVERY     COMBLIST        SA  G  CLST    FILE:COMBLIST(1,999)                                            
            D4T3    106  FILE_SYSTEM_RECOVERY.COMB.SA.038   1 LINE     80    2 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:22
0          PROGRAM TO TAKE THE TWO SORTED LISTS OF OUTPUT FROM FASTRSTR (671), I.E. THE
           LIST OF FILES WITH DATA RESTORES AND THE LIST OF FILES WITH CATALOG RESTORES,
           AND PRODUCE A THIRD LIST WHICH IS INPUT TO STARFILES (682/36).
00682/039   FILE SYSTEM RECOVERY     COMBLIST        OC  G          FILE:COMBLIST(1000)                                             
            D4T3    107  FILE_SYSTEM_RECOVERY.COMB.OC.039   1 LINE     80    2 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:24
00682/040   FILE SYSTEM RECOVERY     FILE UPDATE     OC  G          FILE:FILEUPD                                                    
            D4T3    108  FILE_SYSTEM_RECOVERY.FILE.OC.040   1 LINE     80    3 PAGE UM   MTA                 AUG. 14, 1977  22:42:17
0          OBJECT FOR ACCRDWRT (104/25), ACCUPDAT (104/19), AND A DUMMY PRINT ROUTINE,
           PLUS $CONTINUE WITHS FOR ACATALOG (104/92), ACATSUB (104/94), VTOCREAD (067/4),
           TEST DSACC (482/31), AND ACCLIB (104/31), WHICH WHEN RUN WITH UNIT ZERO ASSIGNED
           TO *DUMMY* AND UNIT ONE ASSIGNED TO AN EMPTY FILE WILL UPDATE THE FILE SPACE
           FIELDS IN THE ACCOUNTING RECORDS FOR ALL USERS (QUICKLY).
00683/001   MTS VOLUME 15            MASTER          WT             S1062 MTSV15 'MTS MANUALS' POSN=NEWM1.V15                       
            D4T3    109  MTS_VOLUME_15.MASTER.WT.001        1 SEQ     132  272 PAGE UM   MANUAL              JULY 28, 1977  23:23:52
0          TEXT/360 MASTER FOR VOLUME 15 "FORMAT AND TEXT360" OF THE UM MTS MANUALS
           (APRIL 1977).
            
           EDITOR:  RICHARD A. SALISBURY
00683/002   MTS VOLUME 15            PRINT           PT             S1062 MTSV15 'MTS MANUALS' POSN=PRINT1.V15                      
            D4T3    110  MTS_VOLUME_15.PRINT.PT.002         1 SEQ     132  275 PAGE UM   MANUAL              JULY 28, 1977  23:24:07
0          TEXT/360 PRINT FILE.
00684/001   OXFORD                                   SA  G  OXON    MTS:OXFORD.S                                                    
            D4T3    111  OXFORD..SA.001                     1 LINE     80   24 PAGE UBC  HOGG      DWB       JULY 28, 1977  23:24:13
0          IF THIS DECK IS PRESENT IN THE RESIDENT SYSTEM, MTS WILL PRODUCE "FRED WORDS"
           (FOUR LETTER ENGLISH WORDS) IN THE INTERSTICES OF THE EDGELINE FOR BATCH AND
           *PRINT* OUTPUT DESIGNED TO AID SEPARATION OF PRINTED OUTPUT.  MTS HAS A
1                                                                                               FRI AUG 02/96   16:11:27   Page  316
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          WXTRN FOR OXFORD AND TESTS IT FOR ZERO TO SKIP THE CALL IF NOT PRESENT.
00684/002   OXFORD                                   OC  G          MTS:OXFORD                                                      
            D4T3    112  OXFORD..OC.002                     1 LINE     80    3 PAGE UBC  HOGG      DWB       JULY 28, 1977  23:24:15
00685/001   UNSUPPORTED SOFTWARE     WRITEUPS        WF             S1073 UNSP FSNAME=W.F                                           
            D4T3    113  UNSUPPORTED_SOFTWARE.WRIT.WF.001   1 LINE    135   33 PAGE UM   OGDEN               JULY 17, 1977  14:38:25
0          FORMAT SOURCE TO PRODUCE BRIEF (AS IN VOLUMES 2 AND 3) WRITEUPS FOR THE UNSUPPORTED
           SOFTWARE.  THE OUTPUT FROM FORMAT MUST HAVE THE TABLE OF CONTENTS MOVED TO THE
           BEGINNING OF THE FILE IN ORDER TO COMPLETELY AGREE WITH THE FILE UNSP:WRITEUPS (685/2).
           NOTE:  NOT ALL OF THE ITEMS DESCRIBED IN THESE WRITEUPS ARE INCLUDED IN THE DISTRIBUTION.
00685/002   UNSUPPORTED SOFTWARE     WRITEUPS        PF             UNSP:WRITEUPS                                                   
            D4T3    114  UNSUPPORTED_SOFTWARE.WRIT.PF.002   1 LINE     70   55 PAGE UM   OGDEN               JULY 28, 1977  23:27:12
0          THIS FILE CONTAINS BRIEF WRITEUPS (AS IN VOLUMES 2 AND 3) FOR THE SEVERAL "UNSUPPORTED"
           SOFTWARE COMPONENTS.
0          Referenced by comments of: 590/8, 673/1, 685/1, 685/5 
00685/003   UNSUPPORTED SOFTWARE     CATALOG         P              UNSP:CATALOG                                                    
            D4T3    115  UNSUPPORTED_SOFTWARE.CATA.P.003    1 LINE     80    3 PAGE UM   OGDEN               JULY 28, 1977  23:27:17
0          LIST OF UNSP FILES AVAILABLE AT UM.  NOTE:  NOT ALL OF THE ITEMS IN THIS LIST ARE
           INCLUDED IN THE DISTRIBUTION.
00685/004   UNSUPPORTED SOFTWARE     SUBR LIBRARY    OL  O          UNSP:LIBRARY                                                    
            D4T3    116  UNSUPPORTED_SOFTWARE.SUBR.OL.004   1 LINE   1382    3 PAGE UM   OGDEN               JULY 28, 1977  23:27:19
0          SUBROUTINE LIBRARY -- ROUTINES INCLUDED SEPARATELY.
0          Referenced by comments of: 642/6 
00685/005   UNSUPPORTED SOFTWARE     MACRO LIBRARY   SM  G  UMAC    UNSP:MACLIB                                                     
            D4T3    117  UNSUPPORTED_SOFTWARE.MACR.SM.005   1 LINE     80    8 PAGE UM   OGDEN               JULY 28, 1977  23:27:22
0          MACRO LIBRARY CONTAINING CLCL, MVCL, MAX, MIN, AND SEXIT MACROS AMONG OTHERS.
           MANY OF THESE ARE COPIES OF THE EDITOR MACROS (648/11).  THESE MACROS ARE
           DESCRIBED IN UNSP:WRITEUPS (685/2).
0          Referenced by comments of: 590/11, 590/12, 590/13, 590/14, 590/15, 590/16, 590/17, 590/18, 590/23 
00686/001   MICRO CROSS-ASSEMBLER    GENCODE         SA  G          S1073 UNSP FSNAME=W051:ASM.GENCODE                              
            D4T3    118  MICRO_CROSS-ASSEMBLER.GEN.SA.001   1 LINE     72   55 PAGE UM   OGDEN               JUNE 22, 1977  18:25:57
0          M6800ASR IS A CROSS-ASSEMBLER FOR THE MOTOROLA M6800 MICROPROCESSOR.
           MCS650XASR IS A CROSS-ASSEMBLER FOR THE MOS TECHNOLOGY MCS6500 FAMILY
           OF MICROCOMPUTERS.  I8080ASR IS A CROSS-ASSEMBLER FOR THE INTEL 8080
           MICROPROCESSOR.  THESE WERE ORIGINALLY WRITTEN BY CLARK LUBBERS AT UM,
           WHERE THEY ARE CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  SHORT WRITEUPS
           ARE GIVEN IN 685/2.
            
           THIS SUBCOMPONENT IS GENERAL SYSTEM-INDEPENDENT CODE.
1                                                                                               FRI AUG 02/96   16:11:27   Page  317
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
+         ______________ _____________________
00686/002   MICRO CROSS-ASSEMBLER    KWIC            SA  G          S1073 UNSP FSNAME=W051:ASM.KWIC                                 
            D4T3    119  MICRO_CROSS-ASSEMBLER.KWI.SA.002   1 LINE     80   14 PAGE UM   OGDEN               JUNE 25, 1976  15:38:07
0          SYSTEM-INDEPENDENT KEYWORD SCANNER ROUTINE.
00686/003   MICRO CROSS-ASSEMBLER    SYMTAB          SA  G          S1073 UNSP FSNAME=W051:ASM.SYM                                  
            D4T3    120  MICRO_CROSS-ASSEMBLER.SYM.SA.003   1 LINE     80   13 PAGE UM   OGDEN               JULY 12, 1976  13:42:11
0          SYSTEM-INDEPENDENT SYMBOL TABLE ROUTINES.
00686/004   MICRO CROSS-ASSEMBLER    SYSCODE         SA  G          S1073 UNSP FSNAME=W051:ASM.SYSCODE                              
            D4T3    121  MICRO_CROSS-ASSEMBLER.SYS.SA.004   1 LINE     72   13 PAGE UM   OGDEN               JUNE 22, 1977  18:28:02
0          MTS-DEPENDENT, ASSEMBLER-INDEPENDENT CODE.
00686/005   MICRO CROSS-ASSEMBLER    M6800I          SA  G          S1073 UNSP FSNAME=W051:ASM.M6800I                               
            D4T3    122  MICRO_CROSS-ASSEMBLER.M68.SA.005   1 LINE     72   42 PAGE UM   OGDEN               JUNE 22, 1977  18:27:13
0          M6800 SYSTEM-INDEPENDENT CODE.
00686/006   MICRO CROSS-ASSEMBLER    M6800MTS        SA  G          S1073 UNSP FSNAME=W051:ASM.M6800MTS                             
            D4T3    123  MICRO_CROSS-ASSEMBLER.M68.SA.006   1 LINE     72    5 PAGE UM   OGDEN               JUNE 22, 1977  18:27:43
0          M6800 MTS-DEPENDENT CODE.
00686/007   MICRO CROSS-ASSEMBLER    M650XI          SA  G          S1073 UNSP FSNAME=W051:ASM.M650XI                               
            D4T3    124  MICRO_CROSS-ASSEMBLER.M65.SA.007   1 LINE     72   43 PAGE UM   OGDEN               JUNE 22, 1977  18:35:55
0          MCS650X SYSTEM-INDEPENDENT CODE.
00686/008   MICRO CROSS-ASSEMBLER    M650XMTS        SA  G          S1073 UNSP FSNAME=W051:ASM.M650XMTS                             
            D4T3    125  MICRO_CROSS-ASSEMBLER.M65.SA.008   1 LINE     72    5 PAGE UM   OGDEN               JUNE 22, 1977  18:35:41
0          MCS650X MTS-DEPENDENT CODE.
00686/009   MICRO CROSS-ASSEMBLER    I8080I          SA  G          S1073 UNSP FSNAME=RDC:ASM.I8080I                                
            D4T3    126  MICRO_CROSS-ASSEMBLER.I80.SA.009   1 LINE     72   43 PAGE UM   OGDEN               JUNE 22, 1977  18:36:22
0          I8080 SYSTEM-INDEPENDENT CODE.
00686/010   MICRO CROSS-ASSEMBLER    I8080MTS        SA  G          S1073 UNSP FSNAME=RDC:ASM.I8080MTS                              
            D4T3    127  MICRO_CROSS-ASSEMBLER.I80.SA.010   1 LINE     72    5 PAGE UM   OGDEN               JUNE 22, 1977  18:36:36
0          I8080 MTS-DEPENDENT CODE.
00686/011   MICRO CROSS-ASSEMBLER    MESSAGES        M              ETC:M6800ASRERR                                                 
            D4T3    128  MICRO_CROSS-ASSEMBLER.MES.M.011    1 LINE     65    1 PAGE UM   OGDEN               JULY 28, 1977  23:29:50
0          ERROR MESSAGES.
00686/012   MICRO CROSS-ASSEMBLER    COPY SECTION    SA  G          S1073 UNSP FSNAME=W051:ASM.DSECT                                
            D4T3    129  MICRO_CROSS-ASSEMBLER.COP.SA.012   1 LINE     78    9 PAGE UM   OGDEN               JUNE 22, 1977  18:29:59
1                                                                                               FRI AUG 02/96   16:11:27   Page  318
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
+         ______________ _____________________
00686/013   MICRO CROSS-ASSEMBLER    MACRO LIB       SM  G          S1073 UNSP FSNAME=W051:ASM.MACRO                                
            D4T3    130  MICRO_CROSS-ASSEMBLER.MAC.SM.013   1 LINE     68    3 PAGE UM   OGDEN               JUNE 22, 1977  18:30:23
00686/014   MICRO CROSS-ASSEMBLER    M6800ASR        OE  G          UNSP:M6800ASR                                                   
            D4T3    131  MICRO_CROSS-ASSEMBLER.M68.OE.014   1 LINE  31360   10 PAGE UM   OGDEN               JULY 28, 1977  23:29:57
0          OBJECT FOR MOTOROLA M6800 MICROPROCESSOR CROSS-ASSEMBLER.
00686/015   MICRO CROSS-ASSEMBLER    MCS650ASR       OE  G          UNSP:MCS650XASR                                                 
            D4T3    132  MICRO_CROSS-ASSEMBLER.MCS.OE.015   1 LINE  31000   10 PAGE UM   OGDEN               JULY 28, 1977  23:30:00
0          OBJECT FOR MCS TECHNOLOGY 6500 SERIES MICROCOMPUTERS CROSS-ASSEMBLER.
00686/016   MICRO CROSS-ASSEMBLER    I8080ASR        OE  G          UNSP:I8080ASR                                                   
            D4T3    133  MICRO_CROSS-ASSEMBLER.I80.OE.016   1 LINE  31200   10 PAGE UM   OGDEN               JULY 28, 1977  23:30:03
0          OBJECT FOR INTEL 8080 MICROCOMPUTER CROSS-ASSEMBLER.
00686/017   MICRO CROSS-ASSEMBLER    MANUAL          WF             S1073 UNSP FSNAME=RDC:MPASRMAN                                  
            D4T3    134  MICRO_CROSS-ASSEMBLER.MAN.WF.017   1 LINE     77   13 PAGE UM   OGDEN               JUNE 22, 1977  18:31:51
0          MANUAL FOR USAGE OF MICRO PROCESSOR CROSS-ASSEMBLERS.
00687/001   PAR SUBR                                 SA  O  PAR     S1073 UNSP FSNAME=PAR.S                                         
            D4T3    135  PAR_SUBR..SA.001                   1 LINE     80    3 PAGE UBC            OGDEN     OCT. 28, 1975  23:41:45
0          SUBROUTINE TO GIVE FORTRAN USERS ACCESS TO THE $RUN PAR STRING.
           AT UM, THIS SUBROUTINE IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
           SEE THE WRITEUP IN 685/2.
00687/002   PAR SUBR                                 OC  O        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UBC            OGDEN                            
00688/001   TRAP SUBR                                SA  O  TRAP    S1073 UNSP FSNAME=TRAP.S                                        
            D4T3    136  TRAP_SUBR..SA.001                  1 LINE     80    6 PAGE UM   OGDEN               OCT. 28, 1975  23:42:21
0          EXPANDED VERSION OF UBC'S TRAP ROUTINE WHICH ALLOWS FORTRAN USERS TO FIELD
           PROGRAM INTERRUPTS.  AT UM, THIS SUBROUTINE IS CLASSIFIED AS "UNSUPPORTED"
           SOFTWARE.  SEE THE WRITEUP IN 685/2.
0          Referenced by comments of: 689/1 
00688/002   TRAP SUBR                                OC  O        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UM   OGDEN                                      
00689/001   ATRAP SUBR                               SA  O  ATRA    S1073 UNSP FSNAME=ATRAP.S                                       
            D4T3    137  ATRAP_SUBR..SA.001                 1 LINE     80    5 PAGE UM   OGDEN               MAR. 23, 1976  12:19:34
0          SIMILAR TO THE TRAP SUBROUTINE (688), BUT ALLOWS FORTRAN USERS TO FIELD
           ATTENTION INTERRUPTS.  AT UM, THIS SUBROUTINE IS CLASSIFIED AS "UNSUPPORTED"
           SOFTWARE.  SEE THE WRITEUP IN 685/2.
1                                                                                               FRI AUG 02/96   16:11:27   Page  319
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
+         ______________ _____________________
00689/002   ATRAP SUBR                               OC  O        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UM   OGDEN                                      
00690/001   DISASM                                   SA  S  DASM    S1073 UNSP FSNAME=DISASM.S                                      
            D4T3    138  DISASM..SA.001                     1 LINE     80  147 PAGE UM   OGDEN               APR. 15, 1976  01:14:16
0          A DISASSEMBLER FROM THE IBM/SHARE CONTRIBUTED PROGRAM LIBRARY (360D-05.3.001)
           VIA UQV.  MODIFIED BY UM.  AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED"
           SOFTWARE.  NO USER WRITEUP IS AVAILABLE.  ASSEMBLE USING *SYSMAC.
00690/002   DISASM                                   OE  S          UNSP:DISASM                                                     
            D4T3    139  DISASM..OE.002                     1 LINE   3364   16 PAGE UM   OGDEN               JULY 28, 1977  23:31:11
00690/003   DISASM                   NOTES           P              S1073 UNSP FSNAME=DISASM.NOTES                                  
            D4T3    140  DISASM.NOTES.P.003                 1 LINE     61    1 PAGE UM   OGDEN               JULY 09, 1976  12:03:21
0          COMMENTS, NOTES, AND BUGS.
00691/001   PFILES                                   SF  O  PFIL    S1073 UNSP FSNAME=PFILES.S                                      
            D4T3    141  PFILES..SF.001                     1 LINE     80    5 PAGE UM   OGDEN               MAY  18, 1977  23:00:16
0          PROGRAM TO PRODUCE A COLUMNAR LISTING OF A USERS FILES FLAGGING THOSE WHICH
           HAVE NOT BEEN REFERENCED IN THE LAST 30 DAYS.  AT UM, THIS PROGRAM IS
           CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00691/002   PFILES                                   OE  O          UNSP:PFILES                                                     
            D4T3    142  PFILES..OE.002                     1 LINE   1428    4 PAGE UM   OGDEN               JULY 28, 1977  23:31:57
00692/001   SPELER SUBR                              SA  O  SPEL    S1073 UNSP FSNAME=SPELER.S                                      
            D4T3    143  SPELER_SUBR..SA.001                1 LINE     80    5 PAGE UBC            OGDEN     OCT. 28, 1975  23:42:33
0          SUBROUTINE TO TEST TWO STRINGS AND DETERMINE IF THE SECOND IS A LIKELY MISSPELLING
           OF THE FIRST; SEE CACM, VOL 13, NO 2, FEB 1970.  AT UM, THIS SUBROUTINE IS CLASSIFIED
           AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00692/002   SPELER SUBR                              OC  O        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UBC            OGDEN                            
00693/001   TAPEDRIVES                               SA  O  TDRI    S1073 UNSP FSNAME=TAPEDRIVES.S                                  
            D4T3    144  TAPEDRIVES..SA.001                 1 LINE     80    3 PAGE UBC            OGDEN     OCT. 28, 1975  23:42:11
0          A MUCH REWORKED VERSION OF THE UBC *TAPEDRIVES PROGRAM.  AT UM, THIS PROGRAM
           IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
           COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU (087).  ASSEMBLE USING *SYSMAC.
00693/002   TAPEDRIVES                               OE  O          UNSP:TAPEDRIVES                                                 
            D4T3    145  TAPEDRIVES..OE.002                 1 SEQ    1382    1 PAGE UBC            OGDEN     JULY 28, 1977  23:32:33
00694/001   DOC                                      SF  O  DOC     S1073 UNSP FSNAME=DOC.S                                         
            D4T3    146  DOC..SF.001                        1 LINE     80    5 PAGE UM             OGDEN     OCT. 03, 1975  16:46:13
0          A PROGRAM TO HELP PRODUCE PROGRAM AND SUBROUTINE DOCUMENTATION.  AT UM, THIS
           PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
1                                                                                               FRI AUG 02/96   16:11:27   Page  320
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
+         ______________ _____________________
00694/002   DOC                                      OE  O          UNSP:DOC                                                        
            D4T3    147  DOC..OE.002                        1 SEQ    2002    2 PAGE UM             OGDEN     JULY 28, 1977  23:32:39
00694/003   DOC                      DOCCOM          D              UNSP:DOCCOM                                                     
            D4T3    148  DOC.DOCCOM.D.003                   1 LINE     35    1 PAGE UM             OGDEN     JULY 28, 1977  23:32:41
0          A DATA FILE REFERENCED BY 694/1.
00694/004   DOC                      DOCCOM2         D              UNSP:DOCCOM2                                                    
            D4T3    149  DOC.DOCCOM2.D.004                  1 LINE     31    1 PAGE UM             OGDEN     JULY 28, 1977  23:32:43
0          A DATA FILE WHICH CAN BE USED WITH 694/1.
00694/005   DOC                      DOCCOM3         D              UNSP:DOCCOM3                                                    
            D4T3    150  DOC.DOCCOM3.D.005                  1 LINE     31    1 PAGE UM             OGDEN     JULY 28, 1977  23:32:50
0          A DATA FILE WHICH CAN BE USED WITH 694/1.
00695/001   SNOOP                    SUBR            SF  G  SNOO    S1073 UNSP FSNAME=SNOOP.S                                       
            D4T3    151  SNOOP.SUBR.SF.001                  1 LINE     80    3 PAGE UM   OGDEN               JAN. 13, 1976  11:28:21
0          THIS SUBROUTINE IS CALLED (EITHER DIRECTLY OR VIA CSNOOP) BY MOST OF THE UM
           "UNSUPPORTED" SOFTWARE COMPONENTS TO RECORD PROGRAM USAGE STATISTICS.
           A WRITEUP IS INCLUDED IN 685/2.
00695/002   SNOOP                    SUBR            OC  G        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UM   OGDEN                                      
00695/003   SNOOP                    CSNOOP          SA  O  CSNO    S1073 UNSP FSNAME=CSNOOP.S                                      
            D4T3    152  SNOOP.CSNOOP.SA.003                1 LINE     80    1 PAGE UM   OGDEN               JUNE 21, 1976  13:03:43
0          A "MAIN" PROGRAM WHICH CALLS THE SNOOP SUBROUTINE AND THEN CALLS THE REAL
           MAIN PROGRAM.
00695/004   SNOOP                    CSNOOP          OC  O          UNSP:CSNOOP.O                                                   
            D4T3    153  SNOOP.CSNOOP.OC.004                1 LINE     80    1 PAGE UM   OGDEN               JULY 28, 1977  23:33:59
00696/001   CDCEBCD                                  SA  O  CDCE    S1073 UNSP FSNAME=CDCEBCD.S                                     
            D4T3    154  CDCEBCD..SA.001                    1 LINE     80    5 PAGE UM   OGDEN               JULY 14, 1977  21:18:49
0          PROGRAM TO DEBLOCK CDC 6000 SERIES 7-TRACK SCOPE CODED TAPES AND CONVERT THE
           DATA FROM CDC "CONSOLE DISPLAY CODE" INTO EBCDIC.  AT UM, THIS PROGRAM IS
           CLASSIFIED AS "UNSUPPORTED "SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00696/002   CDCEBCD                                  OC  O          UNSP:CDCEBCD                                                    
            D4T3    155  CDCEBCD..OC.002                    1 LINE     80    3 PAGE UM   OGDEN               JULY 28, 1977  23:36:29
00697/001   SIGFILE                                  SF  G  SIGF    S1073 UNSP FSNAME=SIGFILE.S                                     
            D4T3    156  SIGFILE..SF.001                    1 LINE     80    4 PAGE UM   OGDEN               JULY 14, 1977  21:18:46
0          A PROGRAM, SOMEWHAT LIKE UBC'S PROFILE PROGRAM, WHICH IS DESIGNED TO BE RUN
           FROM SIGFILES.  AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
           A WRITEUP IS INCLUDED IN 685/2.
1                                                                                               FRI AUG 02/96   16:11:27   Page  321
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
+         ______________ _____________________
00697/002   SIGFILE                                  OE  G          UNSP:SIGFILE                                                    
            D4T3    157  SIGFILE..OE.002                    1 SEQ    4632    2 PAGE UM   OGDEN               JULY 28, 1977  23:36:33
00698/001   LIST                                     SF  O  LIST    S1073 UNSP FSNAME=LIST.S                                        
            D4T3    158  LIST..SF.001                       1 LINE     80    3 PAGE UM   OGDEN               JULY 02, 1977  12:29:01
0          PROGRAM TO ALLOW LONG LINES TO BE PRINTED ON *PRINT* -- NOT TO BE CONFUSED WITH
           THE UBC LIST PROGRAM.  AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED"
           SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00698/002   LIST                                     OE  O          UNSP:LIST                                                       
            D4T3    159  LIST..OE.002                       1 SEQ     788    1 PAGE UM   OGDEN               JULY 28, 1977  23:36:42
00699/001   FTNREP                                   SA  O  FTNR    S1073 UNSP FSNAME=FTNREP.S                                      
            D4T3    160  FTNREP..SA.001                     1 LINE     80    4 PAGE UM   OGDEN               DEC. 01, 1976  22:00:25
0          A PROGRAM WHICH COMPILES FORTRAN SOURCE BY LINKING TO *FTN (551) AND THEN
           EDITS THE OBJECT INTO EXISTING OBJECT FILES BY LINKING TO OBJREP (700).
           AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 700/1 
00699/002   FTNREP                                   OE  O          UNSP:FTNREP                                                     
            D4T3    161  FTNREP..OE.002                     1 LINE   1382    3 PAGE UM   OGDEN               JULY 28, 1977  23:37:30
00700/001   OBJREP                                   SA  O  OBJR    S1073 UNSP FSNAME=OBJREP.S                                      
            D4T3    162  OBJREP..SA.001                     1 LINE     80   16 PAGE UM   OGDEN               OCT. 03, 1975  16:46:40
0          AN OBJECT FILE EDITOR/UPDATER WHICH IS LINKED TO BY FTNREP (699) OR CAN BE RUN
           DIRECTLY.  AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP
           IS INCLUDED IN 685/2. 
0          Referenced by comments of: 699/1 
00700/002   OBJREP                                   OE  O          UNSP:OBJREP                                                     
            D4T3    163  OBJREP..OE.002                     1 SEQ    4358    4 PAGE UM   OGDEN               JULY 28, 1977  23:37:55
00701/001   ECMD                                     SF  O  ECMD    S1073 UNSP FSNAME=ECMD.S                                        
            D4T3    164  ECMD..SF.001                       1 LINE     80   17 PAGE UM   OGDEN               JULY 02, 1977  12:23:42
0          A SIMPLE COMMAND EXPANDER WHICH ALLOWS ALL MTS COMMANDS TO MAKE USE OF THE
           NOTATION ACCEPTED BY $FILESTATUS.  CALLS THE FSTARTNS SUBROUTINE (701/2).
           AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.
00701/002   ECMD                     FSTARTNS SUBR   SA  O  FSTA    S1073 UNSP FSNAME=FSTARTN.S                                     
            D4T3    165  ECMD.FSTARTNS_SUBR.SA.002          1 LINE     80   18 PAGE UM   OGDEN               JULY 10, 1976  17:44:16
0          ROUTINES TAKEN FROM $FILESTATUS TO SCAN FILE CATALOG FOR PARTIAL FILENAMES.
0          Referenced by comments of: 701/1 
1                                                                                               FRI AUG 02/96   16:11:27   Page  322
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
+         ______________ _____________________
00701/003   ECMD                                     OE  O          UNSP:ECMD                                                       
            D4T3    166  ECMD..OE.003                       1 LINE  12684    7 PAGE UM   OGDEN               JULY 28, 1977  23:40:39
00702/001   MCCTOCC                                  SA  G  MCCT    S1073 UNSP FSNAME=MCCTOCC.S                                     
            D4T3    167  MCCTOCC..SA.001                    1 LINE     80    3 PAGE UM   OGDEN               SEP. 30, 1975  11:00:22
0          PROGRAM TO CONVERT MACHINE CARRIAGE CONTROL TO LOGICAL CARRIAGE CONTROL.
           AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.
00702/002   MCCTOCC                                  OE  G          UNSP:MCCTOCC                                                    
            D4T3    168  MCCTOCC..OE.002                    1 SEQ    1382    2 PAGE UM   OGDEN               JULY 28, 1977  23:40:58
00703/001   DIGLIB                   PERSYS          SF  G  PERS    S1073 UNSP FSNAME=PERSYS.S                                      
            D4T3    169  DIGLIB.PERSYS.SF.001               1 LINE     80   16 PAGE UM   OGDEN               AUG. 30, 1976  15:52:15
0          DIGLIB IS A LIBRARY OF DEVICE INDEPENDENT GRAPHICS (DIG) SUBROUTINES.  AT UM,THESE
           ROUTINES ARE CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  BRIEF WRITEUPS ARE INCLUDED
           IN 685/2.
            
           THE PERSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING
           A TWO-DIMENSIONAL VIEW OF A THREE-DIMENSIONAL SURFACE.
0          Referenced by comments of: 104/94 
00703/002   DIGLIB                   PERSYS WRITEUP  WF  G          S1073 UNSP FSNAME=PERSYS.F                                      
            D4T3    170  DIGLIB.PERSYS_WRITEUP.WF.002       1 LINE    195   15 PAGE UM   OGDEN               AUG. 30, 1976  15:52:33
0          CONTAINS A "$CONTINUE WITH PERSYS.S(---)" RECORD.
0          Referenced by comments of: 682/28 
00703/003   DIGLIB                   CONSYS          SF  G  CONS    S1073 UNSP FSNAME=CONSYS.S                                      
            D4T3    171  DIGLIB.CONSYS.SF.003               1 LINE     80   18 PAGE UM   OGDEN               AUG. 30, 1976  15:51:52
0          THE CONSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING
           A CONTOUR MAP.
00703/004   DIGLIB                   CONSYS WRITEUP  WF  G          S1073 UNSP FSNAME=CONSYS.F                                      
            D4T3    172  DIGLIB.CONSYS_WRITEUP.WF.004       1 LINE    221   17 PAGE UM   OGDEN               AUG. 30, 1976  23:21:01
0          CONTAINS A "$CONTINUE WITH CONSYS.S(---)" RECORD.
00703/005   DIGLIB                   OBJECT LIB      OL  G          UNSP:DIGLIB                                                     
            D4T3    173  DIGLIB.OBJECT_LIB.OL.005           1 LINE   5024    7 PAGE UM   OGDEN               JULY 28, 1977  23:41:57
00704/001   11PAL                    SIMULATOR       SA     SIMU    S1073 UNSP FSNAME=11SIMULATOR.S                                 
            D4T3    174  11PAL.SIMULATOR.SA.001             1 LINE     80   35 PAGE UNE            OGDEN     MAY  17, 1977  21:55:21
0          A PDP-11 ASSEMBLER AND SIMULATOR WHICH ORIGINALLY CAME FROM THE POLYTECHNIC
           INSTITUTE OF BROOKLYN (NEW YORK) -- ADAPTED FOR MTS BY UNE.  AT UM, THIS PROGRAM
           IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
1                                                                                               FRI AUG 02/96   16:11:27   Page  323
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
+         ______________ _____________________
00704/002   11PAL                    ASSEMBLER       SA     ASSE    S1073 UNSP FSNAME=11ASSEMBLER.S                                 
            D4T3    175  11PAL.ASSEMBLER.SA.002             1 LINE     80   63 PAGE UNE            OGDEN     MAY  17, 1977  21:55:33
00704/003   11PAL                    MONITOR         SA     MONI    S1073 UNSP FSNAME=11MONITOR.S                                   
            D4T3    176  11PAL.MONITOR.SA.003               1 LINE     80   14 PAGE UNE            OGDEN     OCT. 22, 1976  12:34:15
00704/004   11PAL                    OBJECT          OE             UNSP:11PAL                                                      
            D4T3    177  11PAL.OBJECT.OE.004                1 LINE  14130    9 PAGE UNE            OGDEN     JULY 28, 1977  23:42:43
00704/005   11PAL                    WRITEUP         WF             S1073 UNSP FSNAME=11PAL.F                                       
            D4T3    178  11PAL.WRITEUP.WF.005               1 LINE     95   15 PAGE UNE            OGDEN     OCT. 22, 1976  12:33:13
0          IN ADDITION TO THIS WRITEUP, THERE IS ALSO A BRIEF DESCRIPTION INCLUDED IN 685/2.
00705/001   REPORT GENERATOR         DESCRIP         SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.DESCRIP.SA.01            181
            D4T3    179  REPORT_GENERATOR.DESCRIP.SA.001    1 LINE     81   14 PAGE UBC  COCKLE    OGDEN     JAN. 26, 1976  09:11:58
0          AT UM, RG IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
            
           PHASE 1 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS:
             1 - DATA INITIALIZATION , PARAMETER SCANNING
             2 - PROCESS ITEM , ENTRY , AND FIELD COMMANDS
00705/002   REPORT GENERATOR         COMPILE         SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.COMPILE.SA.02            182
            D4T3    180  REPORT_GENERATOR.COMPILE.SA.002    1 LINE     79   12 PAGE UBC  COCKLE    OGDEN     JAN. 26, 1976  09:12:08
0          PHASE 2 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS:
             1 - PROCESS EXTRACT , ORDER , TABLE , CALL , TITLE , PRINT COMMANDS
             2 - GENERATE APPROPRIATE BLOCKS OF DATA DEFINING THE REQUIRED OPERATION.
00705/003   REPORT GENERATOR         ACTION          SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.ACTION.SA.03             183
            D4T3    181  REPORT_GENERATOR.ACTION.SA.003     1 LINE     78   16 PAGE UBC  COCKLE    OGDEN     NOV. 24, 1975  09:26:28
0          PHASE 3 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS:
             READS THE DATA FILE AND TRANSFERS THE EXTRACTED DATA RECORDS TO THE
               TEMPORARY SEQUENTIAL FILE -TEMPNAME.
00705/004   REPORT GENERATOR         PRINT           SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.PRINT.SA.04              184
            D4T3    182  REPORT_GENERATOR.PRINT.SA.004      1 LINE     74   10 PAGE UBC  COCKLE    OGDEN     SEP. 23, 1975  13:32:06
0          PHASE 4 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS:
             PRINT PRINTS THE REQUIRED REPORTS. PRINT , TITLE , CALL , TABLE ALL
               ARE HANDLED HERE.
00705/005   REPORT GENERATOR         SUBS            SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.SUBS.SA.05               185
            D4T3    183  REPORT_GENERATOR.SUBS.SA.005       1 LINE     72    4 PAGE UBC  COCKLE    OGDEN     SEP. 23, 1975  13:32:09
0          EXTERNAL SUBROUTINES TO HANDLE OVERFLOW AND CAPITALIZATION FOR PRINT.
           MADE EXTERNAL BECAUSE OF BASE REGISTER PROBLEMS AND USE OF REGISTERS.
00705/006   REPORT GENERATOR         SUBROUTINES     SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.SUBROUTIN.SA.06          186
            D4T3    184  REPORT_GENERATOR.SUBROUTI.SA.006   1 LINE     72   16 PAGE UBC  STEVENS   OGDEN     SEP. 23, 1975  13:32:17
0          SUBROUTINES USED BY RG - ALL CALLED BY " BALR LINK,LINK "
1                                                                                               FRI AUG 02/96   16:11:27   Page  324
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            SCAN    -  GET ANOTHER FIELD
             SSCAN   -   "     "      "   ( SPECIAL FIELD)
             GNUMBER -  GET A NUMERIC FIELD
             GFIELD  -  GET A FIELD
             FNAME   -  INSURE FIELD IS A LEGAL FIELD
             NUM     -  CONVERT A FIELD TO NUMERIC
00705/007   REPORT GENERATOR         DATA            SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.DATA.SA.07               187
            D4T3    185  REPORT_GENERATOR.DATA.SA.007       1 LINE     63    1 PAGE UBC  STEVENS   OGDEN     SEP. 23, 1975  13:32:12
0          GENERATES THE PSECT AS A CSECT TO DEFINE ALL REQUIRED CONSTANTS.
           COPIES " RG.A.COPYSEC " AS DO ALL OTHER SOURCE ROUTINES.
00705/008   REPORT GENERATOR         MACLIB          SM  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.MACLIB.SM.08             188
            D4T3    186  REPORT_GENERATOR.MACLIB.SM.008     1 LINE     72    6 PAGE UBC  COCKLE    OGDEN     SEP. 23, 1975  13:32:47
0          MACRO LIBRARY USED BY ALL SOURCE ROUTINES.
00705/009   REPORT GENERATOR         INTERNAL DOC    WF             S0899 UBC50 FSNAME=REPORT_GENERATOR.INTERNAL_.WF.09          189
            D4T3    187  REPORT_GENERATOR.INTERNAL.WF.009   1 LINE     79    5 PAGE UBC  COCKLE    OGDEN     SEP. 23, 1975  13:32:57
00705/010   REPORT GENERATOR         OBJECT          OC  O          UNSP:RG                                                         
            D4T3    188  REPORT_GENERATOR.OBJECT.OC.010     1 LINE   6405   25 PAGE UBC  COCKLE    OGDEN     JULY 28, 1977  23:46:20
00705/011   REPORT GENERATOR         OUTPUT          SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.OUTPUT.SA.11             191
            D4T3    189  REPORT_GENERATOR.OUTPUT.SA.011     1 LINE     72    4 PAGE UBC  COCKLE    OGDEN     SEP. 23, 1975  13:32:15
0          ROUTINE TO OUTPUT ERROR COMMENTS (MARK) AND OUTPUT FORMATTING
           TO SPRINT AND ECHOING OF INPUT LINES IF REQUESTED.
00705/012   REPORT GENERATOR         COPYSEC         SA  O          S0899 UBC50 FSNAME=REPORT_GENERATOR.COPYSEC.SA.12            192
            D4T3    190  REPORT_GENERATOR.COPYSEC.SA.012    1 LINE     72    9 PAGE UBC  COCKLE    OGDEN     NOV. 24, 1975  09:26:54
0          COPY SECTION COPIED BY ALL SOURCE PROGRAMS. ALL BUT "RGDATA.S" ASSEMBLE
           IT AS A DSECT.
00705/013   REPORT GENERATOR         TEST PROGRAMS   C              S0899 UBC50 FSNAME=REPORT_GENERATOR.TEST_PROG.C.13           193
            D4T3    191  REPORT_GENERATOR.TEST_PRO.C.013    1 LINE    255   12 PAGE UBC  COCKLE    OGDEN     SEP. 23, 1975  13:32:50
0          A SOURCE FILE TO TEST RG WITH A SERIES OF TEST PROGRAMS.
00705/014   REPORT GENERATOR         UM EXAMPLE      C              UNSP:RG.EXAMPLE                                                 
            D4T3    192  REPORT_GENERATOR.UM_EXAMP.C.014    1 LINE    128    3 PAGE UBC  COCKLE    OGDEN     JULY 28, 1977  23:46:30
0          A FILE THAT CAN BE $SOURCED TO TO PRODUCE A SAMPLE RG RUN.
00706/001   SIMSCRIPT                SIM25 INSTALL   WF             S1073 UNSP FSNAME=S25INSTALL.F                                  
            D4T3    193  SIMSCRIPT.SIM25_INSTALL.WF.001     1 LINE     73    3 PAGE UM   OGDEN               JULY 06, 1977  20:28:43
0          INSTALLATION INSTRUCTIONS FOR THE CACI INC. SIMSCRIPT II.5 (RELEASE 8G) COMPILER
           AS MODIFIED FOR USE IN MTS.  DUE TO RESTRICTIONS, THIS COMPILER CANNOT BE
           DISTRIBUTED, BUT SHOULD BE AVAILABLE "FREE" TO UNIVERSITIES ONCE AN AGREEMENT
           WITH CACI INC. IS SIGNED.  THIS COMILER IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE
           AT UM.  A WRITEUP IS INCLUDED IN 685/2.
1                                                                                               FRI AUG 02/96   16:11:27   Page  325
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
+         ______________ _____________________
00706/002   SIMSCRIPT                SIM25 SPCOMP    SA  G          S1073 UNSP FSNAME=S25SPCOMP.S                                   
            D4T3    194  SIMSCRIPT.SIM25_SPCOMP.SA.002      1 LINE     80   11 PAGE UM   OGDEN               JULY 06, 1977  20:29:05
0          MTS REPLACEMENTS FOR THE STANDARD CACI COMPILER ROUTINES ROPN AND RSET$R.
           ASSEMBLE WITH PAR=BATCH.
00706/003   SIMSCRIPT                SIM25 SPCOMP    OC  G          S1073 UNSP FSNAME=S25SPCOMP                                     
            D4T3    195  SIMSCRIPT.SIM25_SPCOMP.OC.003      1 LINE     80    4 PAGE UM   OGDEN               JULY 06, 1977  20:29:18
00706/004   SIMSCRIPT                SIM25 SPLIB     SA  G          S1073 UNSP FSNAME=S25SPLIB.S                                    
            D4T3    196  SIMSCRIPT.SIM25_SPLIB.SA.004       1 LINE     80   40 PAGE UM   OGDEN               JULY 06, 1977  20:29:32
0          MTS REPLACEMENTS FOR THE STANDARD CACI RUN-TIME LIBRARY AND COMPILER ROUTINES
           RCRE, RDATE, RPUT, RRDR, RRWD, RSTP, LKAH, LERR, AND THE RUN-TIME LIBRARY
           ROUTINES ROPN AND RSET$R.  ASSEMBLE WITH PAR=BATCH.
00706/005   SIMSCRIPT                SIM25 SPLIB     OC  G          S1073 UNSP FSNAME=S25SPLIB                                      
            D4T3    197  SIMSCRIPT.SIM25_SPLIB.OC.005       1 LINE     80    9 PAGE UM   OGDEN               JULY 06, 1977  20:29:45
00706/006   SIMSCRIPT                SIM25 INTERFAC  SA  G  S25I    S1073 UNSP FSNAME=S25INTER.S                                    
            D4T3    198  SIMSCRIPT.SIM25_INTERFAC.SA.006    1 LINE     80   10 PAGE UM   OGDEN               JULY 06, 1977  20:29:57
0          THE MTS TO OS INTERFACE ROUTINES THAT ARE ADDED TO THE STANDARD CACI RUN-TIME
           LIBRARY AND COMPILER ROUTINES.  ASSEMBLE WITH PAR=BATCH.
00706/007   SIMSCRIPT                SIM25 INTERFAC  OC  G          S1073 UNSP FSNAME=S25INTER                                      
            D4T3    199  SIMSCRIPT.SIM25_INTERFAC.OC.007    1 LINE     80    6 PAGE UM   OGDEN               JULY 06, 1977  20:30:12
00706/008   SIMSCRIPT                SIM25 MAC       SM  G          S1073 UNSP FSNAME=S25MAC                                        
            D4T3    200  SIMSCRIPT.SIM25_MAC.SM.008         1 LINE     80   12 PAGE UM   OGDEN               JULY 06, 1977  20:30:52
00706/009   SIMSCRIPT                SIM25 CACI COM  OC  G        # S1073 UNSP FSNAME=S25CACICOMP                                   
                                                                                    UM   OGDEN                                      
0          OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G COMPILER AS
           DISTRIBUTED BY CACI.
00706/010   SIMSCRIPT                SIM25 COMP      OE  G        # UNSP:SIM25                                                      
                                                                                    UM   OGDEN                                      
0          LINKEDITED OBJECT FOR THE MTS VERSION OF THE RELEASE 8G COMPILER.
00706/011   SIMSCRIPT                SIM25 MAP       P   G        # S1073 UNSP FSNAME=S25MAP                                        
                                                                                    UM   OGDEN                                      
0          MAP OUTPUT FROM *LINKEDIT FOR 706/10.
00706/012   SIMSCRIPT                SIM25 CACI LIB  OC  G        # S1073 UNSP FSNAME=S25CACILIB                                    
                                                                                    UM   OGDEN                                      
0          OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G RUN-TIME LIBRARY
           AS DISTRIBUTED BY CACI.
1                                                                                               FRI AUG 02/96   16:11:27   Page  326
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
+         ______________ _____________________
00706/013   SIMSCRIPT                SIM25 LIB       OL  G        # UNSP:SIM25LIB                                                   
                                                                                    UM   OGDEN                                      
0          MTS VERSION OF THE RELEASE 8G RUN-TIME LIBRARY.
00706/014   SIMSCRIPT                SIM25 ERRMSGS   M              UNSP:SIM25ERR                                                   
            D4T3    201  SIMSCRIPT.SIM25_ERRMSGS.M.014      1 LINE     79    4 PAGE UM   OGDEN               JULY 28, 1977  23:47:31
0          ERROR MESSAGE FILE FOR RELEASE 8G.
00707/001   RSCAN                                    SA  O  RSCN    W030:RSCAN                                                      
            D4T3    202  RSCAN..SA.001                      1 LINE     80   25 PAGE UM   LIFT                JULY 28, 1977  23:47:31
0          PROGRAM TO PRINT *STATISTICS RECORDS AND MTS COMMANDS FOR JOBS BASED ON
           USER ID, JOB NUMBER, OR MTS COMMAND NAME FOR A SET OF TIME/DATE RANGES.
0          Referenced by comments of: 71/1, 707/3 
00707/002   RSCAN                    LISTCMD SUBR    SA  G  LCMD    W030:LISTCMD                                                    
            D4T3    203  RSCAN.LISTCMD_SUBR.SA.002          1 LINE     80    4 PAGE UM   LIFT                JULY 28, 1977  23:47:35
0          SUBROUTINE TO LIST CMDSTAT TYPE 1 (MTS COMMAND) RECORDS.
           COPIES COPY:CMDAREADSECT (531/12).
0          Referenced by comments of: 707/3 
00707/003   RSCAN                                    OC  O          W030:RSCANX                                                     
            D4T3    204  RSCAN..OC.003                      1 LINE     80   10 PAGE UM   LIFT                JULY 28, 1977  23:47:37
0          OBJECT FROM RSCAN (707/1), LISTCMD (707/2), LISTSTAT (071), AND JVCT (674).
           RUN WITH PROT=OFF.
00707/004   RSCAN                    WRITEUP         WF             S0811 REBATE 'REBATES' FSNAME=RSCAN.WF                          
            D4T3    205  RSCAN.WRITEUP.WF.004               1 LINE     94    3 PAGE UM   LIFT                JAN. 13, 1977  16:33:14
0          PRELIMINARY WRITEUP DESCRIBING THE USE OF RSCAN.
00708/001   CHARGE SUBR                              SA  G  CHRG    S0027 DISTRB FSNAME=CHARGE                                      
            D4T3    206  CHARGE_SUBR..SA.001                1 LINE     80    7 PAGE UM   ENGLE               JAN. 25, 1977  15:31:23
0          SUBROUTINE TO COMPUTE THE CHARGE FOR SPECIFIED QUANTITIES OF RESOURCES USING THE
           CURRENT RATES.  CHARGERN IS A PRIVATE ENTRY POINT WHICH ALLOWS A SPECIFIC RATE
           NUMBER TO BE SPECIFIED.  COPIES GRDEF (104/57) AND COPY:RATEVEC (651/2).
00708/002   CHARGE SUBR                              OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   ENGLE                                      
00708/003   CHARGE SUBR              MEMO 350        WF             S0622 D3MISC FSNAME=M350CHARGE(1)                            141
            D4T3    207  CHARGE_SUBR.MEMO_350.WF.003        1 LINE     90    3 PAGE UM   ENGLE               FEB. 25, 1977  20:26:44
0          THIS IS COMPUTING CENTER MEMO 350 -- "CHARGE"
1                                                                                               FRI AUG 02/96   16:11:27   Page  327
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
+         ______________ _____________________
00709/001   READBFR SUBR                             SA  G  RBFR    MTA:READBFR(1,999)                                              
            D4T3    208  READBFR_SUBR..SA.001               1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  23:52:05
0          SUBROUTINE TO PROVIDE "LOCATE MODE" INPUT WHEN INPUT RECORD LENGTH IS UNKNOWN.
           USES GDINFO AND @NOTIFY TO ALLOCATE INPUT BUFFER.  CALLED BY SELECTCMD (531/23).
           COPIES *GDINFODSECT (594).
0          Referenced by comments of: 531/23, 621/4 
00709/002   READBFR SUBR                             OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00710/001   SQUASH                                   SA  G  SQSH    W062:SQUASH.S                                                   
            D4T3    209  SQUASH..SA.001                     1 LINE     80    6 PAGE UM   TIFFANY             JULY 28, 1977  23:52:07
0          THIS PROGRAM IS SIMILAR TO, BUT MORE POWERFUL THAN, THE NOW OBSOLETE *SQUASH
           PROGRAM WHICH SQUASHED OBJECT DECKS FOR MORE EFFICIENT LOADING.  THIS NEW
           VERSION CALLS THE OPTIMIZE SUBROUTINE (710/2).  PARAMETERS ARE ORL, GAPSIZE,
           AND FILL.
00710/002   SQUASH                   OPTIMIZE SUBR   SA  G  OPT     LBT:OPTIMIZE                                                    
            D4T3    210  SQUASH.OPTIMIZE_SUBR.SA.002        1 LINE     80   24 PAGE UM   TIFFANY             JULY 28, 1977  23:52:09
0          A RE-ENTRANT ROUTINE TO OPTIMIZE OBJECT MODULES EXACTLY LIKE THE NEW *GENLIB (389).
0          Referenced by comments of: 710/1, 710/4, 721/1 
00710/003   SQUASH                   OBJECT          OE  G          W062:SQUASH                                                     
            D4T3    211  SQUASH.OBJECT.OE.003               1 LINE   4026    4 PAGE UM   TIFFANY             JULY 28, 1977  23:52:11
0          OBJECT FROM 710/1 AND 710/2.
00710/004   SQUASH                   SPUNCH ET AL    SA  G          W062:SPUNCH.S                                                   
            D4T3    212  SQUASH.SPUNCH_ET_AL.SA.004         1 LINE     68    3 PAGE UM   TIFFANY             JULY 28, 1977  23:52:14
0          THIS IS A SUBROUTINE NAMED SPUNCH (OR WRITE OR WRITE# -- AS CONTROLLED BY
           AN ASSEMBLY PARAMETER) WHICH TAKES THE SAME CALLING SEQUENCE AS ITS MTS
           COUNTERPART BUT, BY CALLING THE OPTIMIZE SUBROUTINE (710/2), OPTIMIZES
           THE OUTPUT MODULE BEING (PRESUMABLY) WRITTEN BY THE CALLER OF SPUNCH.
00710/005   SQUASH                   SPUNCH ET AL    OE  G          W062:SPUNCH                                                     
            D4T3    213  SQUASH.SPUNCH_ET_AL.OE.005         1 LINE   4026    4 PAGE UM   TIFFANY             JULY 28, 1977  23:52:16
0          OBJECT FROM 710/4 AND 710/2.
00711/001   COMP CNTR PUBLICATIONS   MEMO 361 REV    WF             WSG:M361REV                                                     
            D4T3    214  COMP_CNTR_PUBLICATIONS.ME.WF.001   1 LINE    162    6 PAGE UM   WSG                 SEP. 18, 1977  22:13:24
0          THIS IS A SPECIAL REVISION OF COMPUTING CENTER MEMO 361 -- "COMPUTING CENTER PUBLICATIONS"
           (ORIGINALLY DATED JULY 1977), BUT REVISED TO INCLUDE ALL PUBLICATIONS AS OF THE DATE OF
           D4.0 MTS (AUGUST 1977).
1                                                                                               FRI AUG 02/96   16:11:27   Page  328
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
+         ______________ _____________________
00711/002   COMP CNTR PUBLICATIONS   MEMO 360        WF             W098:M360MEMOLIST                                               
            D4T3    215  COMP_CNTR_PUBLICATIONS.ME.WF.002   1 LINE    194    6 PAGE UM   K YOUNG             JULY 28, 1977  23:52:21
0          THIS IS COMPUTING CENTER MEMO 360 -- "LIST AND SUBJECT INDEX OF CCMEMOS" (JULY 1977).
           DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6).
00711/003   COMP CNTR PUBLICATIONS   INDEX FUNC      SA  O  INDX    W030:INDEX                                                      
            D4T3    216  COMP_CNTR_PUBLICATIONS.IN.SA.003   1 LINE     80   13 PAGE UM   LIFT                AUG. 14, 1977  22:43:51
0          *FORMAT INDEX AND INDEXOUT FUNCTIONS USED IN UM PUBLICATIONS.  THESE ARE CALLED
           BY THE IND AND INDOUT FUNCTIONS (711/4) TO CONSTRUCT AN INDEX.  THE CALLING
           SEQUENCE IS DESCRIBED IN THE SOURCE.
0          Referenced by comments of: 711/4 
00711/004   COMP CNTR PUBLICATIONS   IND FUNC        SG  O          S0791 FMTJNK 'FORMAT' FSNAME=IND                                
            D4T3    217  COMP_CNTR_PUBLICATIONS.IN.SG.004   1 LINE     78    2 PAGE UM   LIFT                MAY  31, 1977  12:48:48
0          *FORMAT IND AND INDOUT "USER-DEFINED FUNCTIONS" USED IN UM PUBLICATIONS TO
           CONSTRUCT AN INDEX.  THESE DIFFER FROM THE *FORMAT INDEX FUNCTION IN THAT PAGE
           NUMBERS ARE EXPLICITLY GIVEN AND TREATED AS CHARACTER STRINGS, AND ENTRIES ARE
           ALPHABETIZED WITHOUT REGARD TO UPPER OR LOWER CASE.  THESE FUNCTIONS CALL INDEX
           AND INDEXOUT (711/3).
0          Referenced by comments of: 711/3 
00711/005   COMP CNTR PUBLICATIONS   NRIGHT FUNC     SF  G  RIGT    S0791 FMTJNK 'FORMAT' FSNAME=NRIGHT                             
            D4T3    218  COMP_CNTR_PUBLICATIONS.NR.SF.005   1 LINE     80    1 PAGE UM   LIFT                MAY  16, 1977  12:33:05
0          *FORMAT NRIGHT "USER-DEFINED FUNCTION" USED IN UM PUBLICATIONS TO GO TO A RIGHT
           HAND PAGE, LEAVING A BLANK PAGE IF NECESSARY.
00711/006   COMP CNTR PUBLICATIONS   FUNC LIB        OL  O          W095:FORMFUN                                                    
            D4T3    219  COMP_CNTR_PUBLICATIONS.FU.OL.006   1 LINE   1762    3 PAGE UM   LIFT                AUG. 14, 1977  22:43:55
0          OBJECT LIBRARY OF *FORMAT "USER-DEFINED FUNCTIONS" 711/3, 711/4, AND 711/5.
0          Referenced by comments of: 711/2, 714/1 
00712/001  *RESTORE                  MAIN PGM        SA  G  OLRS    RSTR:RESTORE(1001)                                              
            D4T3    220  RESTORE.MAIN_PGM.SA.001            1 LINE     80   21 PAGE UM   HELFFRICH           JULY 28, 1977  23:53:09
0          USER RUNNABLE PROGRAM TO RESTORE FILES SAVED BY THE SYSTEM ONLINE FILE SAVE
           PROGRAM (716).  CALLS AUTOREST (712/2), RSTFMT2 (092/3), AND RENAMEIT2
           (712/3).  ASSEMBLE USING THE EDITOR MACROS (648/11) AND THE RESTORE MACROS
           (712/5).  NOTE: THE DIRECTORY FILES (RSTR:FILEDIR.MAS AND RSTR:FILEDIR.NEW)
           ACCESSED BY THIS PROGRAM MUST BE PERMITTED READ TO PKEY=*RESTORE (AS WELL AS
           UNLIM TO USER RSTR).
0          Referenced by comments of: 67/1, 92/3, 712/2, 716/2 
1                                                                                               FRI AUG 02/96   16:11:27   Page  329
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
+         ______________ _____________________
00712/002  *RESTORE                  AUTOREST SUBR   SA  G  ARES    RSTR:AUTOREST(1001)                                             
            D4T3    221  RESTORE.AUTOREST_SUBR.SA.002       1 LINE     80   11 PAGE UM   HELFFRICH           JULY 28, 1977  23:53:15
0          SUBROUTINE WHICH TAKES A LIST OF FILES FROM THE MAIN PROGRAM (712/1) AND MOUNTS
           AND SCANS TAPES CALLING RSTFMT2 (092/3) TO RESTORE FILES.  ASSEMBLE USING THE
           EDITOR MACROS (648/11).
0          Referenced by comments of: 712/1 
00712/003  *RESTORE                  RENAMEIT2 SUBR  SA  G  REN2    RSTR:RENAMEIT2(1001)                                            
            D4T3    222  RESTORE.RENAMEIT2_SUBR.SA.003      1 LINE     80    3 PAGE UM   HELFFRICH           JULY 28, 1977  23:53:17
0          SUBSTITUTE ROUTINES FOR RENAMEIT, DESTRYR, ICUNLK, AND ICCLOSE.  ASSEMBLE USING
           THE EDITOR MACROS (648/11).
0          Referenced by comments of: 712/1 
00712/004  *RESTORE                  OBJECT          OE  G          *RESTORE                                                        
            D4T3    223  RESTORE.OBJECT.OE.004              1 LINE    710   28 PAGE UM   HELFFRICH           SEP. 18, 1977  22:13:31
0          OBJECT FOR 712/1, 712/2, 712/3, AND RSTFMT2 (092/3).  NOTE: THE PKEY FOR THIS
           FILE MUST BE *RESTORE.
0          Referenced by comments of: 712/7 
00712/005  *RESTORE                  MACROS          SM  G          W078:PAT                                                        
            D4T3    224  RESTORE.MACROS.SM.005              1 LINE     71   11 PAGE UM   HELFFRICH           JULY 28, 1977  23:53:22
0          Referenced by comments of: 712/1 
00712/006  *RESTORE                  *RES            C              *RES                                                            
            D4T3    225  RESTORE.*RES.C.006                 1 LINE     64    1 PAGE UM   HELFFRICH           JULY 28, 1977  23:53:27
0          COMMAND FILE TO RUN THE OPERATOR'S VERSION OF *RESTORE (712/7).  INVOKED BY
           ENTERING "MTS *RES" ON THE OPERATOR'S CONSOLE.
00712/007  *RESTORE                  OPER*RESTORE    OC  G          RSTR:OPER*RESTORE                                               
            D4T3    226  RESTORE.OPER*RESTORE.OC.007        1 LINE     80   17 PAGE UM   HELFFRICH           SEP. 18, 1977  22:13:36
0          VERSION ON *RESTORE WHICH ALLOWS OPERATORS TO RESTORE FILES TO DIFFERENT USERIDS
           USING THE NEWNAME= PARAMETER.  SAME OBJECT AS *RESTORE (712/4) EXCEPT CALLS THE
           REAL RENAMEIT SYSTEM SUBROUTINE.
0          Referenced by comments of: 712/6 
00713/001   UPTIME                   *LRL            C              *LRL                                                            
            D4T3    227  UPTIME.*LRL.C.001                  1 LINE      8    1 PAGE UM   MTA                 JULY 28, 1977  23:53:31
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: 713/2 
1                                                                                               FRI AUG 02/96   16:11:27   Page  330
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
+         ______________ _____________________
00713/002   UPTIME                   LRL             C              SYS:LRL                                                         
            D4T3    228  UPTIME.LRL.C.002                   1 LINE     38    1 PAGE UM   MTA                 JULY 28, 1977  23:53:34
0          COMMAND FILE SOURCED TO BY *LRL (713/1) TO GET THE REASON FOR THE LAST
           RELOAD AND RUN THE UPTIME PROGRAM (713/3).
00713/003   UPTIME                   UPTIME PGM      SA  G  UPTM    MTA:UPTIME(1000)                                                
            D4T3    229  UPTIME.UPTIME_PGM.SA.003           1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  23:53:36
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: 713/2 
00713/004   UPTIME                   UPTIME PGM      OC  G          MTA:UPTIME(1,999)                                               
            D4T3    230  UPTIME.UPTIME_PGM.OC.004           1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  23:53:38
00714/001   INTRO GUIDE: FORMAT                      WF             S0622 D3MISC FSNAME=INTROGUIDE.FMT.WF                       150 
            D4T3    231  INTRO_GUIDE:_FORMAT..WF.001        1 LINE    158   34 PAGE UM   SWEET               JUNE 22, 1977  13:47:51
0          FORMAT SOURCE FOR "INTRODUCTION TO FORMAT" (JUNE 1977), THE SECOND IN A SERIES
           OF MTS INTRODUCTORY GUIDES.  REQUIRES FORMAT MACROS (714/2) AND DYNAMICALLY
           LOADS THE NRIGHT FUNCTION FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6).
00714/002   INTRO GUIDE: FORMAT      MACROS          WF             W098:MACLIB                                                     
            D4T3    232  INTRO_GUIDE:_FORMAT.MACRO.WF.002   1 LINE    110    6 PAGE UM   SWEET               JULY 28, 1977  23:53:47
0          FORMAT MACROS REQUIRED BY 714/1.
0          Referenced by comments of: 714/1 
00714/003   INTRO GUIDE: FORMAT                      PF             S0622 D3MISC FSNAME=INTROGUIDE.FMT.PF                       151 
            D4T3    233  INTRO_GUIDE:_FORMAT..PF.003        1 LINE    133   78 PAGE UM   SWEET               JUNE 22, 1977  13:49:54
0          FORMAT PRINT FILE.
00715/001   MERIT CC SUPPORT         360 EQUS        S   G          C1294 MERIT6 FSNAME=360EQUS                                     
            D4T3    234  MERIT_CC_SUPPORT.360_EQUS.S.001    1 LINE     83    2 PAGE UM   MERIT               MAR. 28, 1977  16:17:58
0          THIS COMPONENT IS THE SOURCE FOR THE MERIT COMPUTER NETWORK PDP-11 COMMUNICATIONS
           COMPUTER (CC) SUPPORT AND RELATED UTILITY PROGRAMS AND COMMAND FILES.  INCLUDED IS
           THE NECESSARY PDP-11 CODE FOR THE CDC 6500 SUPPORT AS WELL AS FOR MTS (IBM/AMDAHL).
            
           715/1 IS THE *11ASR SOURCE FOR EQUS WHICH DEFINE THE HARDWARE REGISTERS, CSW, CCW,
           AND SENSE DATA FOR THE IBM/AMDAHL CHANNEL INTERFACE.
00715/002   MERIT CC SUPPORT         MCS11COM        S   G          C1294 MERIT6 FSNAME=MCS11COM                                    
            D4T3    235  MERIT_CC_SUPPORT.MCS11COM.S.002    1 LINE    100    8 PAGE UM   MERIT               MAR. 28, 1977  16:17:17
0          *11ASR SOURCE FOR THE COPY SECTION FOR THE MERIT DIRECT TERMINAL SUPPORT (HERMES).
1                                                                                               FRI AUG 02/96   16:11:27   Page  331
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
+         ______________ _____________________
00715/003   MERIT CC SUPPORT         LA EQUS         S   G          C1294 MERIT6 FSNAME=LAEQUS                                      
            D4T3    236  MERIT_CC_SUPPORT.LA_EQUS.S.003     1 LINE     83    3 PAGE UM   MERIT               MAR. 28, 1977  16:16:43
0          *11ASR SOURCE FOR EQUS WHICH DEFINE THE HARDWARE REGISTERS FOR THE ASYNCHRONOUS
           LINE ADAPTER (LA32).
00715/004   MERIT CC SUPPORT         NIMBLK DSECT    S   G          C1294 MERIT6 FSNAME=NIMBLK                                      
            D4T3    237  MERIT_CC_SUPPORT.NIMBLK_D.S.004    1 LINE     82    1 PAGE UM   MERIT               MAR. 28, 1977  16:16:30
0          *11ASR SOURCE FOR THE DSECT FOR THE TERMINAL ACCESS SOCKET (HERMES).
00715/005   MERIT CC SUPPORT         CLI COPY SECT   S   G          C1294 MERIT6 FSNAME=CLISTUFF                                    
            D4T3    238  MERIT_CC_SUPPORT.CLI_COPY.S.005    1 LINE     71    1 PAGE UM   MERIT               MAR. 28, 1977  16:16:09
0          *11ASR SOURCE FOR THE DSECT AND EQUS USED BY THE COMMAND LANGUAGE INTERPRETER (CLI).
00715/006   MERIT CC SUPPORT         FORMAT EQUS     S   O          C1294 MERIT6 FSNAME=FORMATEQUS                                  
            D4T3    239  MERIT_CC_SUPPORT.FORMAT_E.S.006    1 LINE     79    2 PAGE UM   MERIT               MAR. 28, 1977  16:15:42
0          *11ASR SOURCE FOR THE EQUS FOR THE OUTPUT FORMATTING ROUTINE (FMTXT).
00715/007   MERIT CC SUPPORT         IVECTOR DSECT   S   G          C1294 MERIT6 FSNAME=IVECTOR                                     
            D4T3    240  MERIT_CC_SUPPORT.IVECTOR.S.007     1 LINE     99    1 PAGE UM   MERIT               MAR. 28, 1977  16:15:30
0          *11ASR SOURCE FOR THE HOST-TO-NETWORK INTERFACE TRANSFER VECTOR.
00715/008   MERIT CC SUPPORT         CCB DSECT       S   G          C1294 MERIT6 FSNAME=CCB                                         
            D4T3    241  MERIT_CC_SUPPORT.CCB_DSEC.S.008    1 LINE     83    1 PAGE UM   MERIT               MAR. 28, 1977  16:15:15
0          *11ASR SOURCE FOR THE CLOCK CONTROL BLOCK (CCB).
00715/009   MERIT CC SUPPORT         RQCB DSECT      S   G          C1294 MERIT6 FSNAME=RQCB                                        
            D4T3    242  MERIT_CC_SUPPORT.RQCB_DSE.S.009    1 LINE     77    1 PAGE UM   MERIT               MAR. 28, 1977  16:15:04
0          *11ASR SOURCE FOR THE RECORD QUEUE CONTROL BLOCK (RQCB).
00715/010   MERIT CC SUPPORT         OPEN BCB DSECT  S   G          C1294 MERIT6 FSNAME=OPENBCB                                     
            D4T3    243  MERIT_CC_SUPPORT.OPEN_BCB.S.010    1 LINE     87    1 PAGE UM   MERIT               MAR. 28, 1977  16:14:50
0          *11ASR SOURCE FOR THE OPEN BUFFER CONTROL BLOCK.
00715/011   MERIT CC SUPPORT         BCB DSECT       S   G          C1294 MERIT6 FSNAME=BCB                                         
            D4T3    244  MERIT_CC_SUPPORT.BCB_DSEC.S.011    1 LINE     83    1 PAGE UM   MERIT               MAR. 28, 1977  16:14:31
0          *11ASR SOURCE FOR THE BUFFER CONTROL BLOCK (BCB).
00715/012   MERIT CC SUPPORT         SCB DSECT       S   G          C1294 MERIT6 FSNAME=SCB                                         
            D4T3    245  MERIT_CC_SUPPORT.SCB_DSEC.S.012    1 LINE     89    2 PAGE UM   MERIT               MAR. 28, 1977  16:14:07
0          *11ASR SOURCE FOR THE SOCKET CONTROL BLOCK (SCB).
1                                                                                               FRI AUG 02/96   16:11:27   Page  332
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
+         ______________ _____________________
00715/013   MERIT CC SUPPORT         TCB DSECT       S   G          C1294 MERIT6 FSNAME=TCB                                         
            D4T3    246  MERIT_CC_SUPPORT.TCB_DSEC.S.013    1 LINE     83    1 PAGE UM   MERIT               MAR. 28, 1977  16:13:51
0          *11ASR SOURCE FOR THE TASK CONTROL BLOCK (TCB).
00715/014   MERIT CC SUPPORT         GLOBAL EQUS     S   G          C1294 MERIT6 FSNAME=EQUS                                        
            D4T3    247  MERIT_CC_SUPPORT.GLOBAL_E.S.014    1 LINE    100    3 PAGE UM   MERIT               MAR. 28, 1977  16:13:40
0          *11ASR SOURCE FOR THE GLOBAL EQUS.
00715/015   MERIT CC SUPPORT         MACROS          S   G          C1294 MERIT6 FSNAME=MACROS                                      
            D4T3    248  MERIT_CC_SUPPORT.MACROS.S.015      1 LINE     65    1 PAGE UM   MERIT               MAR. 28, 1977  16:13:18
0          *11ASR SOURCE FOR THE MACROS.
00715/016   MERIT CC SUPPORT         SWITCHES EQUS   S   G          C1294 MERIT6 FSNAME=SWITCHES                                    
            D4T3    249  MERIT_CC_SUPPORT.SWITCHES.S.016    1 LINE     90    3 PAGE UM   MERIT               MAR. 28, 1977  16:13:02
0          *11ASR SOURCE FOR THE MERIT RECORD SWITCH BIT DEFINITIONS.  THIS IS USED ONLY
           FOR DOCUMENTATION; IT IS NOT COPIED.
00715/017   MERIT CC SUPPORT         CDC EQUS        S   G          C1294 MERIT6 FSNAME=CDCEQUS                                     
            D4T3    250  MERIT_CC_SUPPORT.CDC_EQUS.S.017    1 LINE     74    3 PAGE UM   MERIT               MAR. 28, 1977  16:18:27
0          *11ASR SOURCE FOR THE EQUS FOR THE CDC 6500 HARDWARE INTERFACE.
00715/018   MERIT CC SUPPORT         VECTORS         S   G          C1294 MERIT6 FSNAME=VECTORS.S                                   
            D4T3    251  MERIT_CC_SUPPORT.VECTORS.S.018     1 LINE     91    9 PAGE UM   MERIT               MAR. 28, 1977  16:18:46
0          *11ASR SOURCE FOR THE LOW-CORE SYSTEM VECTORS AND PARAMETERS FOR THE MERIT
           PDP-11 OPERATING SYSTEM (MINOS).
00715/019   MERIT CC SUPPORT         SYSTEM          S   G          C1294 MERIT6 FSNAME=SYSTEM.S                                    
            D4T3    252  MERIT_CC_SUPPORT.SYSTEM.S.019      1 LINE    104   56 PAGE UM   MERIT               MAR. 28, 1977  16:18:59
0          *11ASR SOURCE FOR THE BASIC MINOS SUBROUTINES.
00715/020   MERIT CC SUPPORT         TAPE            S   G          C1294 MERIT6 FSNAME=TAPE.S                                      
            D4T3    253  MERIT_CC_SUPPORT.TAPE.S.020        1 LINE     92    4 PAGE UM   MERIT               MAR. 28, 1977  16:19:41
0          *11ASR SOURCE FOR THE PAPER TAPE AND COMMUNICATIONS COMPUTER (CC) "HOST" SUPPORT.
00715/021   MERIT CC SUPPORT         TIMER           S   O          C1294 MERIT6 FSNAME=TIMER.S                                     
            D4T3    254  MERIT_CC_SUPPORT.TIMER.S.021       1 LINE     88    9 PAGE UM   MERIT               MAR. 28, 1977  16:19:54
0          *11ASR SOURCE FOR THE MINOS INTERVAL TIMER SUPPORT ROUTINES.
00715/022   MERIT CC SUPPORT         PARSER          S   G          C1294 MERIT6 FSNAME=PARSE.S                                     
            D4T3    255  MERIT_CC_SUPPORT.PARSER.S.022      1 LINE     90   16 PAGE UM   MERIT               MAR. 28, 1977  16:20:09
0          *11ASR SOURCE FOR THE MINOS CLI PARSER.
1                                                                                               FRI AUG 02/96   16:11:27   Page  333
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
+         ______________ _____________________
00715/023   MERIT CC SUPPORT         COMMANDS        S   G          C1294 MERIT6 FSNAME=CMNDS.S                                     
            D4T3    256  MERIT_CC_SUPPORT.COMMANDS.S.023    1 LINE    136   27 PAGE UM   MERIT               MAR. 28, 1977  16:21:23
0          *11ASR SOURCE FOR THE MINOS COMMAND DEFINITIONS AND EXECUTION ROUTINES.
00715/024   MERIT CC SUPPORT         TELECOMM        S   G          C1294 MERIT6 FSNAME=TELECOMM.S                                  
            D4T3    257  MERIT_CC_SUPPORT.TELECOMM.S.024    1 LINE    102   39 PAGE UM   MERIT               MAR. 28, 1977  16:22:53
0          *11ASR SOURCE FOR THE MERIT SYNCHRONOUS TELECOMMUNICATIONS AND ROUTING.
00715/025   MERIT CC SUPPORT         NIM             S   G          C1294 MERIT6 FSNAME=NIM.S                                       
            D4T3    258  MERIT_CC_SUPPORT.NIM.S.025         1 LINE    125   26 PAGE UM   MERIT               MAR. 28, 1977  16:23:28
0          *11ASR SOURCE FOR THE TASK TIME ROUTINES FOR TERMINAL SUPPORT (NIM=NETWORK
           INTERFACE MODULE).
00715/026   MERIT CC SUPPORT         NIBBLE          S   G          C1294 MERIT6 FSNAME=NIBBLE.S                                    
            D4T3    259  MERIT_CC_SUPPORT.NIBBLE.S.026      1 LINE     77    9 PAGE UM   MERIT               MAR. 28, 1977  16:23:52
0          *11ASR SOURCE FOR THE NIBBLE BUFFER MANAGEMENT FOR TERMINAL SUPPORT.
00715/027   MERIT CC SUPPORT         SSDST           S   G          C1294 MERIT6 FSNAME=SSDST.S                                     
            D4T3    260  MERIT_CC_SUPPORT.SSDST.S.027       1 LINE    103    6 PAGE UM   MERIT               MAR. 28, 1977  16:24:52
0          *11ASR SOURCE FOR THE START/STOP (ASYNCHRONOUS) DEVICE SUPPORT TASK (RING
           SNIFFER AND HANG-UP DETECTOR).
00715/028   MERIT CC SUPPORT         DEVICES         S   G          C1294 MERIT6 FSNAME=DEVICES.S                                   
            D4T3    261  MERIT_CC_SUPPORT.DEVICES.S.028     1 LINE     86   55 PAGE UM   MERIT               MAR. 28, 1977  16:25:08
0          *11ASR SOURCE FOR THE INTERRUPT ROUTINES FOR THE TERMINAL SUPPORT.
00715/029   MERIT CC SUPPORT         GETOUT          S   G          C1294 MERIT6 FSNAME=GETOUT.S                                    
            D4T3    262  MERIT_CC_SUPPORT.GETOUT.S.029      1 LINE     82    6 PAGE UM   MERIT               MAR. 28, 1977  16:26:15
0          *11ASR SOURCE FOR THE LOWER LEVEL TERMINAL SUPPORT ROUTINES.
00715/030   MERIT CC SUPPORT         SSTABLE         S   G          C1294 MERIT6 FSNAME=SSTABLE.S                                   
            D4T3    263  MERIT_CC_SUPPORT.SSTABLE.S.030     1 LINE     91   21 PAGE UM   MERIT               MAR. 28, 1977  16:26:56
0          *11ASR SOURCE FOR THE TRANSLATE TABLE FOR 2741 SUPPORT.
00715/031   MERIT CC SUPPORT         VERSNO          S   G          C1294 MERIT6 FSNAME=VERSNO.S                                    
            D4T3    264  MERIT_CC_SUPPORT.VERSNO.S.031      1 LINE     55    1 PAGE UM   MERIT               MAR. 28, 1977  16:27:45
0          *11ASR SOURCE FOR THE CODE TO GENERATE THE SYSTEM VERSION NUMBER.
00715/032   MERIT CC SUPPORT         SSTRACE         S   O          C1294 MERIT6 FSNAME=SSTRACE.S                                   
            D4T3    265  MERIT_CC_SUPPORT.SSTRACE.S.032     1 LINE     88    1 PAGE UM   MERIT               MAR. 28, 1977  16:31:42
0          *11ASR SOURCE FOR THE INTERRUPT TRACING/DEBUGGING FACILITY FOR TERMINAL
           SUPPORT.
1                                                                                               FRI AUG 02/96   16:11:27   Page  334
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
+         ______________ _____________________
00715/033   MERIT CC SUPPORT         MTS RARE        S   B          C1294 MERIT6 FSNAME=MTSRARE.S                                   
            D4T3    266  MERIT_CC_SUPPORT.MTS_RARE.S.033    1 LINE     83   18 PAGE UM   MERIT               MAR. 28, 1977  16:32:14
0          *11ASR SOURCE FOR THE MTS-DEPENDENT HOST INTERFACE SUPPORT.
00715/034   MERIT CC SUPPORT         CDC RARE        S   G          C1294 MERIT6 FSNAME=CDCRARE.S                                   
            D4T3    267  MERIT_CC_SUPPORT.CDC_RARE.S.034    1 LINE    115   14 PAGE UM   MERIT               MAR. 28, 1977  16:33:17
0          *11ASR SOURCE FOR THE CDC-DEPENDENT HOST INTERFACE SUPPORT.
00715/035   MERIT CC SUPPORT         END             S   G          C1294 MERIT6 FSNAME=END.S                                       
            D4T3    268  MERIT_CC_SUPPORT.END.S.035         1 LINE     84    1 PAGE UM   MERIT               APR. 05, 1976  13:55:11
0          *11ASR SOURCE WHICH DEFINES ALLOCATABLE STORAGE WITHIN THE PDP-11.
00715/036   MERIT CC SUPPORT         LINK            C              C1294 MERIT6 FSNAME=LINK                                        
            D4T3    269  MERIT_CC_SUPPORT.LINK.C.036        1 LINE     66    1 PAGE UM   MERIT               MAR. 28, 1977  16:37:39
0          MTS AND *LINK11 COMMANDS TO BUILD A MINOS SYSTEM.
00715/037   MERIT CC SUPPORT         MTS LOADDUMP    S   G          C1294 MERIT6 FSNAME=LODMP.S                                     
            D4T3    270  MERIT_CC_SUPPORT.MTS_LOAD.S.037    1 LINE     61    3 PAGE UM   MERIT               MAR. 28, 1977  16:35:27
0          *11ASR SOURCE FOR THE STAND-ALONE PROGRAM TO DUMP AND LOAD THE PDP-11 FROM MTS
           VIA THE IBM/AMDAHL CHANNEL INTERFACE.
00715/038   MERIT CC SUPPORT         CDC LOADDUMP    S   G          C1294 MERIT6 FSNAME=CDCLODMP.S                                  
            D4T3    271  MERIT_CC_SUPPORT.CDC_LOAD.S.038    1 LINE     68    1 PAGE UM   MERIT               MAR. 28, 1977  16:36:15
0          *11ASR SOURCE FOR THE STAND-ALONE PROGRAM TO DUMP AND LOAD THE PDP-11 VIA THE
           CDC CHANNEL INTERFACE.
00715/039   MERIT CC SUPPORT         EVANS           SP  G  EVNP    C1294 MERIT6 FSNAME=EVANS.S                                     
            D4T3    272  MERIT_CC_SUPPORT.EVANS.SP.039      1 LINE     80   30 PAGE UM   MERIT               APR. 04, 1977  11:13:13
0          MTS PDP-11 DUMP ANALYSIS PROGRAM (NAMED AFTER SIR ARTHUR JOHN EVANS, 1851-1941,
           ENGLISH ARCHAEOLOGIST WHO EXCAVATED THE PALACE OF MINOS).
0          Referenced by comments of: 715/40, 715/41 
00715/040   MERIT CC SUPPORT         DMPRD           SA  G  DMPR    C1294 MERIT6 FSNAME=DMPRD.S                                     
            D4T3    273  MERIT_CC_SUPPORT.DMPRD.SA.040      1 LINE     80    3 PAGE UM   MERIT               APR. 04, 1977  11:14:04
0          SUBROUTINE CALLED BY EVANS (715/39) TO READ A PDP-11 CORE IMAGE FROM AN FDNAME
           AND BUILD AN INTERNAL DATA STRUCTURE.
00715/041   MERIT CC SUPPORT         CRUNCH          C              C1294 MERIT6 FSNAME=CRUNCH                                      
            D4T3    274  MERIT_CC_SUPPORT.CRUNCH.C.041      1 LINE     85    1 PAGE UM   MERIT               MAR. 28, 1977  16:38:05
0          MTS AND EVANS (715/39) COMMANDS TO CRUNCH A DUMP TAKEN USING 11LOAD (642/11).
1                                                                                               FRI AUG 02/96   16:11:27   Page  335
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
+         ______________ _____________________
00716/001   FILE SAVE - ONLINE       *SAV            C              *SAV                                                            
            D4T3    275  FILE_SAVE_-_ONLINE.*SAV.C.001      1 LINE     55    1 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:19
0          COMMAND FILE TO START THE ONLINE FILESAVE AND MERGE OPERATIONS.  INVOKED BY
           ENTERING "MTS *SAV" ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 502/9, 671/1, 671/3, 712/1 
00716/002   FILE SAVE - ONLINE       SAVE PGM        SA  G  OLFS    RSTR:DSF(1001)                                                  
            D4T3    276  FILE_SAVE_-_ONLINE.SAVE_P.SA.002   1 LINE     80   19 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:19
0          SOURCE FOR THE ONLINE FILESAVE PROGRAM WHICH CREATES FILES OF THE FORM
           "FILEDIRNN" (WHERE NN=01,02,...) WHICH GET MERGED AND DESTROYED BY THE
           MERGE PROGRAM (716/6) INTO THE FILES "FILEDIR.MAS" AND "FILEDIR.NEW" USED
           BY *RESTORE (712).  CALLS SAVEFILE (067/2), FILEDSCB (502/9), AND DIRTAPEOUT
           (716/4).  ASSEMBLE USING COPY:FILE.MACROS (482/36) AND THE EDITOR MACROS
           (648/11).  NOTE: THE DIRECTORY FILES (FILEDIR.MAS AND FILEDIR.NEW) MUST BE
           PERMITTED READ TO PKEY=*RESTORE (AS WELL AS UNLIM TO USER RSTR).
0          Referenced by comments of: 716/4 
00716/003   FILE SAVE - ONLINE       SAVE PGM        OC  G          RSTR:OLFSOBJ                                                    
            D4T3    277  FILE_SAVE_-_ONLINE.SAVE_P.OC.003   1 LINE   6564   13 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:25
00716/004   FILE SAVE - ONLINE       DIRTAPEOUT      SA  G  TPDO    RSTR:DIRTAPEOUT(1001)                                           
            D4T3    278  FILE_SAVE_-_ONLINE.DIRTAP.SA.004   1 LINE     80   22 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:27
0          SUBROUTINE CALLED BY THE SAVE PROGRAM (716/2) LIKE TAPEOUT (067/3) TO WRITE
           A FILESAVE TAPE BUT, IN ADDITION, IT ALSO MAINTAINS A TAPE DIRECTORY FILE
           NAMED "TAPEDIR".  THE TAPES HAVE RACK NUMBERS OF THE FORM FSNNNN, WHERE
              NNNN=0001-0999 FOR DAILY (CHANGE ONLY) SAVES
                  =1000-1999 FOR WEEKLY (FULL) SAVES
                  =2000-     FOR DEADFILE SAVES
            
           IF THE REGULAR FILESAVE (067) IS RUN WITH PAR=DIR, THEN DIRTAPEOUT MUST BE
           USED INSTEAD OF TAPEOUT.  HAS ASSEMBLY EQU'S FOR SETTING THE SAVE CYCLE
           PERIOD -- CURRENTLY 28 DAYS.  ASSEMBLE USING THE EDITOR MACROS (648/11).
0          Referenced by comments of: 716/2 
00716/005   FILE SAVE - ONLINE       DIRTAPEOUT      OC  G          RSTR:DIRTAPEOUT(1,999)                                          
            D4T3    279  FILE_SAVE_-_ONLINE.DIRTAP.OC.005   1 LINE   6564    6 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:31
00716/006   FILE SAVE - ONLINE       MERGE PGM       SA  G  MERG    RSTR:MERGE(1001)                                                
            D4T3    280  FILE_SAVE_-_ONLINE.MERGE.SA.006    1 LINE     80   16 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:33
0          PROGRAM TO MERGE FILEDIRNN FILES WITH THE CURRENT FILEDIR.MAS MAKING NOTE OF
           FILES WHICH NO LONGER EXIST AND REMOVING ENTRIES WHICH ARE NO LONGER AVAILABLE
           (ACCORDING TO TAPEDIR) BECAUSE THE TAPE HAS BEEN REUSED.  IT ALSO DESTROYS
           FILEDIRNN FILES.  FILEDIR.NEW IS USED SO THAT THE MERGE PROCESS IS "CRASH-
           PROOF" -- IT MAY BE STOPPED AND RESTARTED.  CALLS NON-RESIDENT COPIES (IN CASE
           PISTLE HAS NOT BEEN RUN) OF THE TIME (360) AND JULGRG (522) SUBROUTINES FROM
           THE FILE RSTR:TIMECFE (716/10) AND THE CHKFILE SUBROUTINE (716/8).  ASSEMBLE
           USING COPY:FILE.MACROS (482/36) AND THE EDITOR MACROS (648/11).
1                                                                                               FRI AUG 02/96   16:11:27   Page  336
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: 716/2, 716/8 
00716/007   FILE SAVE - ONLINE       MERGE PGM       OC  G          RSTR:MERGE(1,999)                                               
            D4T3    281  FILE_SAVE_-_ONLINE.MERGE.OC.007    1 LINE     80    6 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:35
0          CONTAINS A "$CONTINUE WITH RSTR:TIMECFE+RSTR:CHKFILE" RECORD.
00716/008   FILE SAVE - ONLINE       CHKFILE SUBR    SA  G  CKF2    RSTR:CHKFILE(1001)                                              
            D4T3    282  FILE_SAVE_-_ONLINE.CHKFIL.SA.008   1 LINE     80    6 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:37
0          ALTERNATE VERSION OF SYSTEM CHKFILE ROUTINE FOR USE BY MERGE (716/6).  ASSEMBLE
           USING COPY:FILE.MACROS (482/36) AND THE EDITOR MACROS (648/11).
0          Referenced by comments of: 716/6 
00716/009   FILE SAVE - ONLINE       CHKFILE SUBR    OC  G          RSTR:CHKFILE(1,999)                                             
            D4T3    283  FILE_SAVE_-_ONLINE.CHKFIL.OC.009   1 LINE     80    3 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:38
0          CONTAINS A "$CONTINUE WITH RSTR:SYSDEFS" (579/4) RECORD.
00716/010   FILE SAVE - ONLINE       RSTR:TIMECFE    OC  G          RSTR:TIMECFE                                                    
            D4T3    284  FILE_SAVE_-_ONLINE.RSTR:T.OC.010   1 LINE     80    3 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:39
0          COPY OF THE OBJECT FILES FOR THE TIME (360) AND JULGRG (522) SUBROUTINES.
0          Referenced by comments of: 716/6 
00716/011   FILE SAVE - ONLINE       TAPEDIRLIST     SA  G  TPDL    RSTR:TAPEDIRLIST(1001)                                          
            D4T3    285  FILE_SAVE_-_ONLINE.TAPEDI.SA.011   1 LINE     80    4 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:39
0          PROGRAM TO LIST THE "TAPEDIR" FILE IN READABLE FORM.  ASSEMBLE USING THE EDITOR
           MACROS (648/11).
00716/012   FILE SAVE - ONLINE       TAPEDIRLIST     OC  G          RSTR:TAPEDIRLIST(1,999)                                         
            D4T3    286  FILE_SAVE_-_ONLINE.TAPEDI.OC.012   1 LINE     80    2 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:40
00716/013   FILE SAVE - ONLINE       TAPERECOVER     SA  G          RSTR:TAPERECOVER(1001)                                          
            D4T3    287  FILE_SAVE_-_ONLINE.TAPERE.SA.013   1 LINE     72    3 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:41
0          PROGRAM TO REGENERATE LOST PORTIONS OF THE MASTER FILE AND TAPE DIRECTORY FILES
           IF A DISK DISASTER (OR SOMETHING ELSE) DESTROYS THEM.  ASSEMBLE USING THE FILESAVE
           MACRO LIBRARY (716/17).
00716/014   FILE SAVE - ONLINE       TAPERECOVER     OC  G          RSTR:TAPERECOVER(1,999)                                         
            D4T3    288  FILE_SAVE_-_ONLINE.TAPERE.OC.014   1 LINE     80    3 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:42
00716/015   FILE SAVE - ONLINE       *FSM            C              *FSM                                                            
            D4T3    289  FILE_SAVE_-_ONLINE.*FSM.C.015      1 LINE     27    1 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:43
0          COMMAND FILE TO START THE ONLINE FILESAVE MERGE OPERATION ONLY.  INVOKED BY
           ENTERING "MTS *FSM" ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 97/2 
1                                                                                               FRI AUG 02/96   16:11:27   Page  337
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
+         ______________ _____________________
00716/016   FILE SAVE - ONLINE       WRITEUP         WF             RSTR:OLFS.W                                                     
            D4T3    290  FILE_SAVE_-_ONLINE.WRITEU.WF.016   1 LINE    102    5 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:43
0          INFORMAL DOCUMENTATION FOR THE ONLINE FILE SAVE.
00716/017   FILE SAVE - ONLINE       MACROS          SM  G          RSTR:FS.MACROS                                                  
            D4T3    291  FILE_SAVE_-_ONLINE.MACROS.SM.017   1 LINE     71    1 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:44
0          FILESAVE MACRO LIBRARY.
0          Referenced by comments of: 716/13 
00717/001   MTS VOLUME 7             MASTER          WT             S0562 MTSV7 'MTS MANUALS' POSN=NEWM1.V7                         
            D4T3    292  MTS_VOLUME_7.MASTER.WT.001         1 SEQ     132  156 PAGE UM   MANUAL              JULY 28, 1977  23:57:35
0          TEXT/360 MASTER FOR VOLUME 7 "PL/I IN MTS" OF THE UM MTS MANUALS (JULY 1977).
            
           EDITOR:  RICHARD A. SALISBURY
00717/002   MTS VOLUME 7             PRINT           PT             S0562 MTSV7 'MTS MANUALS' POSN=PRINT1.V7                        
            D4T3    293  MTS_VOLUME_7.PRINT.PT.002          1 SEQ     132  294 PAGE UM   MANUAL              JULY 28, 1977  23:57:52
0          TEXT/360 PRINT FILE.
00718/001   TURNAROUND                               SA  O  TURN    MTA:TURNAROUND(1,999)                                           
            D4T3    294  TURNAROUND..SA.001                 1 LINE     80   13 PAGE UM   MTA                 JULY 28, 1977  23:57:58
0          PROGRAM TO PRINT HISTOGRAMS OF BATCH TURNAROUND TIMES FROM CMDSTAT DATA.
           CONTAINS THE HASP TABLES WHICH ARE USED TO COMPUTE JOB PRIORITIES FROM TIME
           ESTIMATES AND PAGES PRINTED.  THESE TABLES MAY NEED TO BE CHANGED SO AS TO
           AGREE WITH THE HASP TABLES USED AT EACH INSTALLATION.  THE PROGRAM ALSO GIVES
           SPECIAL TREATMENT TO HASP REMOTE 18 (NUBS AT UM).  COPIES COPY:CMDAREADSECT
           (531/12).
00718/002   TURNAROUND                               OC  O          MTA:TURNAROUND(1000)                                            
            D4T3    295  TURNAROUND..OC.002                 1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  23:57:59
0          HAS A "$CONTINUE WITH MTA:READBFR(1000)+*ANALYSIS(-600,-401) RETURN" CARD WHICH
           REFERS TO COMPS 709 AND 140/7.
00719/001   IEBUPDTE SIMULATOR                       SA  G  UPDT    WATF:IEBUPDTE(1,999)                                            
            D4T3    296  IEBUPDTE_SIMULATOR..SA.001         1 LINE     80   16 PAGE UM   MTA                 JULY 28, 1977  23:58:01
0          PROGRAM TO APPLY UPDATES INTENDED FOR THE OS IEBUPDTE PROGRAM.  UNIT 0 MUST BE
           ASSIGNED TO A LABELED INPUT TAPE, UNIT 1 TO A LABELED OUTPUT TAPE, BOTH OF WHICH
           MUST BE FORMAT FB WITH A LRECL OF 80.  THE PROGRAM USES THE INPUT TAPE DSNAMES
           AS MODULE NAMES.  CONTROL CARDS ARE READ FROM SCARDS; A RECORD OF WHAT WAS UPDATED
           IN PRODUCED ON SPRINT.  ON ANY ERROR, THE PROGRAM PRINTS THE INPUT, OLD MASTER
           POSITION, AND NEW MASTER POSITION ON SERCOM AND THEN CALLS MTS.  IF RESTARTED,
           IT ATTEMPTS TO IGNORE THE ERROR AND CONTINUE PROCESSING.
            
           FOR INPUT (FROM SCARDS), IF COLUMNS 1 AND 2 ARE NOT "./" THEN THE INPUT RECORD
           IS A DATA CARDS AND IS ADDED TO THE TAPE ON UNIT 1 IN SEQUENCE USING COLUMNS
           73-80.  IF COLUMNS 1 AND 2 ARE "./" THEN THE INPUT RECORD IS A CONTROL CARD
1                                                                                               FRI AUG 02/96   16:11:27   Page  338
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          AS FOLLOWS:
            
           ./ ADD NAME=X
              ADDS A NEW MODULE AFTER THE CURRENT ONE ON UNIT 1.
           ./ CHANGE NAME=X
              UPDATES X FROM UNIT 0 TO UNIT 1 COPYING ALL MODULES BEFORE IT.
           ./ REPL NAME=X
              REPLACE X.  POSITION UNIT 0 AFTER IT, COPYING ALL MODULES BEFORE IT.
           ./ DELETE SEQ1=S1 SEQ2=S2
              S1 AND S2 MUST BE ALL NUMERIC.  THE SEQ2 PARAMETER IS OPTIONAL.
           ./ ENDUP
00719/002   IEBUPDTE SIMULATOR                       OC  G          WATF:IEBUPDTE(1000)                                             
            D4T3    297  IEBUPDTE_SIMULATOR..OC.002         1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  23:58:03
00720/001   LKEDCONV                                 SA  O  LKCV    MTA:LKEDCONV(1)                                                 
            D4T3    298  LKEDCONV..SA.001                   1 LINE     80   60 PAGE SFU  BENET     MTA       JULY 28, 1977  23:58:06
0          A LARGE PROGRAM TO AID IN CONVERTING OS/VS OBJECT LIBRARIES (EITHER FROM *UNLINKER
           OR AS OS LINK EDITOR INPUT) FOR USE IN MTS.  COMMENTS IN THE SOURCE DESCRIBE HOW
           TO USE IT.
00720/002   LKEDCONV                                 OC  O          MTA:LKEDCONV(*F,0)                                              
            D4T3    299  LKEDCONV..OC.002                   1 LINE     80   12 PAGE SFU  BENET     MTA       JULY 28, 1977  23:58:18
00721/001  *OBJUTIL                                  SA  G  OBJU    W067:OBJUTIL.S(4)                                               
            D4T3    300  OBJUTIL..SA.001                    1 LINE     80  154 PAGE UM   SHERRY              JULY 28, 1977  23:58:23
0          OBJECT FILE EDITOR PROGRAM (AS ORIGINALLY PROPOSED BY KEN DEJONG).  THIS
           PRELIMINARY VERSION ONLY SUPPORTS LINE FILES, BUT DOES OPTIMIZE OBJECT MODULES
           ACCORDING TO ORL, GAPSIZE, AND FILL OPTIONS.  CALLS THE OPTIMIZE SUBROUTINE
           (710/2) AND THE EDITOR EST SUBROUTINE (648/2).  ESSENTIALLY THE SAME COMMAND
           LANGUAGE AS *LINKEDIT AND *GENLIB, INCLUDING SUPPORT FOR THE DISPLAY, MODIFY,
           AND SCAN COMMANDS WHICH ARE NOT DOCUMENTED IN MEMO 359 (721/8), BUT ARE
           DESCRIBED IN 721/9.  REQUIRES THE D4.0 SUBROUTINES CNTLNR AND GETLST.  THIS
           PROGRAM IS RE-ENTRANT AND MAY BE LOADED INTO SHARED VM.  COPIES *GDINFODSECT.
           ASSEMBLE WITH PAR=SIZE=32 USING THE OBJUTIL MACROS(721/3), THE EDITOR MACROS
           (648/11), AND *SYSMAC.
00721/002  *OBJUTIL                  IOCVT SUBR      SA  G  IOC     W067:OBJU.IOCVT.S                                               
            D4T3    301  OBJUTIL.IOCVT_SUBR.SA.002          1 LINE     80   26 PAGE UM   SHERRY              JULY 28, 1977  23:58:39
0          I/O CONVERSION ROUTINES FOR THE DISPLAY, MODIFY, AND SCAN COMMANDS.
00721/003  *OBJUTIL                  MACROS          SM  G          W067:MAC                                                        
            D4T3    302  OBJUTIL.MACROS.SM.003              1 LINE     73    8 PAGE UM   SHERRY              JULY 28, 1977  23:58:41
00721/004  *OBJUTIL                  370 OBJECT      OE  G          SEG2:OBJUTIL                                                    
            D4T3    303  OBJUTIL.370_OBJECT.OE.004          1 LINE  32767   12 PAGE UM   SHERRY              JULY 28, 1977  23:58:44
0          370/470 OBJECT FOR OBJUTIL, IOCVT, EST, AND OPTIMIZE.  LOADED INTO SHARED VM
           BY PISTLE.
1                                                                                               FRI AUG 02/96   16:11:27   Page  339
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
+         ______________ _____________________
00721/005  *OBJUTIL                  360 OBJECT      OE  G          W067:OBJUTIL360                                                 
            D4T3    304  OBJUTIL.360_OBJECT.OE.005          1 LINE  32767   12 PAGE UM   SHERRY              JULY 28, 1977  23:58:46
0          OBJECT EQUIVALENT TO 721/4, BUT WITH 721/1 ASSEMBLED FOR A 360, I.E., WITH &S370
           SET TO 0.
00721/006  *OBJUTIL                  *OBJUTIL        OC  G          *OBJUTIL                                                        
            D4T3    305  OBJUTIL.*OBJUTIL.OC.006            1 LINE     24    1 PAGE UM   SHERRY              JULY 28, 1977  23:58:48
0          CONTAINS THE APPROPRIATE LOADER CARDS TO FORCE A REFERENCE TO THE SHARED VM
           OBJUTIL.
00721/007  *OBJUTIL                  EXPLAIN FILE    M              ETC:OBJUTILEXP                                                  
            D4T3    306  OBJUTIL.EXPLAIN_FILE.M.007         1 LINE     67   17 PAGE UM   SHERRY              JULY 28, 1977  23:58:51
0          EXPLAIN COMMAND MESSAGES.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00721/008  *OBJUTIL                  MEMO 359        WT             W098:M359                                                       
            D4T3    307  OBJUTIL.MEMO_359.WT.008            1 LINE    104   12 PAGE UM   SHERRY              JULY 28, 1977  23:58:53
0          THIS IS COMPUTING CENTER MEMO 359 -- "THE OBJECT FILE EDITOR".
           NOTE:  THIS MEMO DOES NOT DOCUMENT THE THE DISPLAY, MODIFY, OR SCAN COMMANDS.
0          Referenced by comments of: 721/1 
00721/009  *OBJUTIL                  WRITEUP         WT             W067:OBJUTIL.W                                                  
            D4T3    308  OBJUTIL.WRITEUP.WT.009             1 LINE    104   14 PAGE UM   SHERRY              JULY 28, 1977  23:58:55
0          TEMPORARY VOLUME 2 TYPE WRITEUP FOR *OBJUTIL.
00722/001   BLOCKHEADER                              SA  O          W009:BLKHDR.S                                                   
            D4T3    309  BLOCKHEADER..SA.001                1 LINE     69    4 PAGE UM   SHERRY              JULY 28, 1977  23:59:05
0          PROGRAM TO PRODUCE BLOCKLETTER HEADERS FOR PRINTED LISTINGS.  REFERENCED BY MTSASM
           (042/5).  WRITES ON SPRINT (DEFAULTING TO *PRINT*).  ACCEPTS THE FOLLOWING
           PARAMETERS IN THE PAR FIELD:  HEADER=STRING, CENTER=STRING, FOOTER=STRING,
           MCC|LCC (MACHINE OR LOGICAL CARRIAGE CONTROL), AND EJECT (WHICH PRODUCES A
           PAGE EJECT AFTER THE LAST HEADING.  STRING MUST BE < 10 CHARACTERS AND IF
           IT IS "<V>" THEN THE VERSION CODE CORRESPONDING TO TODAY'S DATE IS PRODUCED.
0          Referenced by comments of: 42/5 
00722/002   BLOCKHEADER                              OE  O          W009:BLKHDR                                                     
            D4T3    310  BLOCKHEADER..OE.002                1 LINE    820    1 PAGE UM   SHERRY              JULY 28, 1977  23:59:07
00723/001   FNAMETRT                                 SA  G          MTS:FNAMETRT(1,999)                                             
            D4T3    311  FNAMETRT..SA.001                   1 LINE     72    1 PAGE UM   DWB                 JULY 28, 1977  23:59:09
0          TRANSLATE TABLE USED BY FNAME TO DECIDE WHAT CHARACTERS ARE LEGAL IN FILE NAMES.
00723/002   FNAMETRT                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
1                                                                                               FRI AUG 02/96   16:11:27   Page  340
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
+         ______________ _____________________
00724/001   DISKCOPY                                 SA  O          FILE:DISKCOPY.S                                                 
            D4T3    312  DISKCOPY..SA.001                   1 LINE     72    9 PAGE UM   HELFFRICH           JULY 28, 1977  23:59:11
0          PROGRAM TO DO PACK-TO-PACK DISK COPY.  SEE THE SOURCE FOR USAGE DESCRIPTION.
00724/002   DISKCOPY                                 OC  O          FILE:DISKCOPY                                                   
            D4T3    313  DISKCOPY..OC.002                   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 28, 1977  23:59:21
00725       ACCFORMAT                                SA  G  ACCF    COPY:ACCFORMAT                                                  
            D4T3    314  ACCFORMAT..SA.                     1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  23:59:23
0          COPY SECTION DESCRIBING THE FORMAT OF THE MTS ACCOUNTING RECORD. THIS FILE IS
           COPIED BY ANY PROGRAM USING THE THEDSECT MACRO IN MTS.MACROS (344).
0          Referenced by comments of: 680/1 
00726/001   CNFGSOU                                  SA  G  CNFS    WSG:CNFGSOU(1,999)                                              
            D4T3    315  CNFGSOU..SA.001                    1 LINE     80    3 PAGE UM   WSG                 JULY 28, 1977  23:59:24
0          THIS PROGRAM DETERMINES WHETHER THE 370 STANDARD FEATURES ARE AVAILABLE
           ON THIS MACHINE AND THEN ISSUES A $SOURCE COMMAND TO A LINE NUMBER RANGE
           IN THE FILE WHOSE NAME IS GIVEN IN THE PAR FIELD.  THE LINE NUMBER RANGES ARE:
            
               1000-1999   370 STANDARD FEATURES AVAILABLE
               2000-2999   370 STANDARD FEATURES NOT AVAILABLE
00726/002   CNFGSOU                                  OC  G          INIT:CNFGSOU                                                    
            D4T3    316  CNFGSOU..OC.002                    1 LINE     80    1 PAGE UM   WSG                 JULY 28, 1977  23:59:26
01000/001   INTERACTIVE FORTRAN      INSTALL.PROC    WF             S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INSTAL.WF.01(1)        1
            D4T3    317  INTERACTIVE_FORTRAN.INSTA.WF.001   1 LINE     80    2 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:51:30
0          *************************************************************************
           *                                                                       *
           *     Description of the procedure for installing INTERACTIVE FORTRAN   *
           *                                                                       *
           *     This version of IF interfaces with the real MTS editor            *
           *                                                                       *
           *************************************************************************
01000/002   INTERACTIVE FORTRAN      *IF             SA  G          WSG:IF.SA                                                       
            D4T3    318  INTERACTIVE_FORTRAN.*IF.SA.002     1 LINE     72    9 PAGE UBC  O'REILLY  BRILL     JULY 29, 1977  00:00:41
0          ASSEMBLER source code for routine which calls IF.
           This is the routine which should reside in the public file "*IF".
           May require local mods - read the comments in this module carefully.
           UM VERSION SET UP FOR ETC:IFELMQQSV, ETC:IFEXPLAIN, AND NO STATISTICS OR DUMP FILES.
01000/003   INTERACTIVE FORTRAN      *IF             OE  G          WSG:IF.OC                                                       
            D4T3    319  INTERACTIVE_FORTRAN.*IF.OE.003     1 LINE     80    3 PAGE UBC  O'REILLY  BRILL     JULY 29, 1977  00:00:43
0          Corresponding object deck for IF calling routine;
           Note that this contains a LCS card and a LDT card.
1                                                                                               FRI AUG 02/96   16:11:27   Page  341
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
+         ______________ _____________________
01000/004   INTERACTIVE FORTRAN      MACLIB          SM  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.MACLIB.SM.04(1)        4
            D4T3    320  INTERACTIVE_FORTRAN.MACLI.SM.004   1 LINE     79   57 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:51:34
0          MACRO library containing MACROs & COPY sections used by all
           IF modules; command streams for assembling any component may
           be found in the negative line number area of each source file.
           All COPY sections (except the INTERPRETER DSECTs) have been
           included in this MACRO library.
01000/005   INTERACTIVE FORTRAN      ETC:IFELMQQSV   M              WSG:IFELMQQSV                                                   
            D4T3    321  INTERACTIVE_FORTRAN.ETC:I.M.005    1 LINE    108   45 PAGE UBC  O'REILLY  BRILL     JULY 29, 1977  00:00:49
0          IF error message file - must be implemented @I.
           The negative linenumber region of this file contains
           a series of messages which are printed when a DUMP
           occurs -- these messages should be changed to suit
           the installation.
           The error message file is formatted as follows:
               TERSE messages   :  lines 1-4999
               NORMAL messages  :  lines 5000-9999
               LONG messages    :  lines 10000-14999
               VERBOSE messages :  lines 15000-19999
           If you change a message, be sure to change all 4 verbosities.
           See the comments in the *IF sub-component for more information.
           Any occurrences of the string "TONY BUCKLAND" in this file
           should be changed to that of the local contact person.
01000/006   INTERACTIVE FORTRAN      DUMPS           D            # S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.DUMPS.M.06(1)          6
                                                                                    UBC  O'REILLY  BRILL                            
0          File which collects DUMP information (program interrupts in IF).
           See the comments in the *IF sub-component for more information.
           Note this must be a SEQuential file; the other auxiliary files
           are LINE files. DUMPs are actually only program interrupts in 
           IF, and usually occur as the result of a user program clobbering
           IF control information. You may see several pieces of information
           appended to the first line of the dump:
              "EXT" - means that an EXTERNAL ROUTINE was called
                      at least once... which adds weight to the
                      hypothesis that the DUMP was caused by a bug
                      in an EXTERNAL ROUTINE, rather than by a bug in IF 
              "ARG" - means that the "/SET ARGCHK=ON" feature was enabled
                      and was used at least once... which also adds weight
                      to the hypothesis that the DUMP was not caused by a 
                      bug in IF 
           DUMPs are logged to this file by the MDEBUG component.
            
           UM VERSION DOES NOT USE THIS FILE.
01000/007   INTERACTIVE FORTRAN      ETC:IFEXPLAIN   M              WSG:IFEXPLAIN                                                   
            D4T3    322  INTERACTIVE_FORTRAN.ETC:I.M.007    1 LINE     75   23 PAGE UBC  O'REILLY  BRILL     JULY 29, 1977  00:00:53
0          IF command explain file; see the comments in the *IF sub-component
           for further information. This file is generated by using the FMT
1                                                                                               FRI AUG 02/96   16:11:27   Page  342
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          source for the IF manual as a database.
           Note that the description of /SET ALIGN=ON,OFF has been added to
           the explanation of the /SET command (do a /EXPLAIN /SET)
01000/008   INTERACTIVE FORTRAN      STATISTICS      D            # S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.STATIS.M.08(1)         8
                                                                                    UBC  O'REILLY  BRILL                            
0          Use statistics collection file; note that line 0 of this file may
           contain a message to be displayed upon invocation of IF (this 
           facility existed before the LOADER supported "MSG" cards).
           If line 0 does contain an invocation message, the file should
           be permitted RWEXP OTHERS;  if line 0 does not contain an
           invocation message, the file should be permitted WEXP OTHERS
           (otherwise some joker could plant his own invocation message).
            
           UM VERSION DOES NOT USE THIS FILE.
01000/009   INTERACTIVE FORTRAN      WRITEUP         WF             S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.WRITEU.WF.10(1)       10
            D4T3    323  INTERACTIVE_FORTRAN.WRITE.WF.009   1 LINE     93   56 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:51:53
0          This is the FMT source for the IF writeup.
01000/010   INTERACTIVE FORTRAN      SEG2:IF         OL  G          WSG:IF.SEG2                                                     
            D4T3    324  INTERACTIVE_FORTRAN.SEG2:.OL.010   1 LINE  32767   65 PAGE UBC  O'REILLY  BRILL     SEP. 18, 1977  22:15:31
0          SHARED VM PORTION OF IF WHICH CAN BE LOADED INTO SHARED VM BY PISTLE.
           ALL OF THE OBJECT MODULES COMPRISING THE RE-ENTRANT PROCESSOR
           ARE IN THIS FILE. THEY ARE SQUASHED  BUT NOT COMBINED OR PURGED
           SO THAT INDIVIDUAL CSECTS ARE STILL ACCESSIBLE & REPLACEABLE.
           A SHARED VM VERSION OF IF IS CREATED BY COMBINING & PURGING
           THE OBJECT DECKS IN THIS FILE USING THE LINKAGE EDITOR.
01000/011   INTERACTIVE FORTRAN      DIRECT          SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.DIRECT.SA.13(1)       13
            D4T3    325  INTERACTIVE_FORTRAN.DIREC.SA.011   1 LINE     72   34 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:23
0          Main command processor;
           Appears in |MAP as DIR.
01000/012   INTERACTIVE FORTRAN      EL              SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.EL.SA.14(1)           14
            D4T3    326  INTERACTIVE_FORTRAN.EL.SA.012      1 LINE     72   18 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:27
0          Error message printer;
           Appears in |MAP as EL.
01000/013   INTERACTIVE FORTRAN      GSC             SA  G          WSG:IF.GSC.SA                                                   
            D4T3    327  INTERACTIVE_FORTRAN.GSC.SA.013     1 LINE     72   36 PAGE UBC  O'REILLY  BRILL     SEP. 18, 1977  22:15:37
01000/014   INTERACTIVE FORTRAN      IFRD            SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.IFRD.SA.16(1)         16
            D4T3    328  INTERACTIVE_FORTRAN.IFRD.SA.014    1 LINE     72   18 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:35
0          Free format input routine;
           Appears in |MAP as IFRDCODE.
1                                                                                               FRI AUG 02/96   16:11:27   Page  343
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
+         ______________ _____________________
01000/015   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.17(1)          17
            D4T3    329  INTERACTIVE_FORTRAN.INT.SA.015     1 LINE     68    1 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:39
0          A file containing $CONTINUE WITH's for assembling the INTERPRETER.
           The INTERPRETER appears in |MAP as INTE.
01000/016   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.18(1)          18
            D4T3    330  INTERACTIVE_FORTRAN.INT.SA.016     1 LINE     72   19 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:40
01000/017   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.19(1)          19
            D4T3    331  INTERACTIVE_FORTRAN.INT.SA.017     1 LINE     72   20 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:42
01000/018   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.20(1)          20
            D4T3    332  INTERACTIVE_FORTRAN.INT.SA.018     1 LINE     72   16 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:44
01000/019   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.21(1)          21
            D4T3    333  INTERACTIVE_FORTRAN.INT.SA.019     1 LINE     70   15 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:46
01000/020   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.22(1)          22
            D4T3    334  INTERACTIVE_FORTRAN.INT.SA.020     1 LINE     72   20 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:48
01000/021   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.23(1)          23
            D4T3    335  INTERACTIVE_FORTRAN.INT.SA.021     1 LINE     72   18 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:50
01000/022   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.24(1)          24
            D4T3    336  INTERACTIVE_FORTRAN.INT.SA.022     1 LINE     72   18 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:53
01000/023   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.25(1)          25
            D4T3    337  INTERACTIVE_FORTRAN.INT.SA.023     1 LINE     72   17 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:55
01000/024   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.26(1)          26
            D4T3    338  INTERACTIVE_FORTRAN.INT.SA.024     1 LINE     72   14 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:57
01000/025   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.27(1)          27
            D4T3    339  INTERACTIVE_FORTRAN.INT.SA.025     1 LINE     72    8 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:52:59
01000/026   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.28(1)          28
            D4T3    340  INTERACTIVE_FORTRAN.INT.SA.026     1 LINE     72   16 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:00
01000/027   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.29(1)          29
            D4T3    341  INTERACTIVE_FORTRAN.INT.SA.027     1 LINE     72   15 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:02
01000/028   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.30(1)          30
            D4T3    342  INTERACTIVE_FORTRAN.INT.SA.028     1 LINE     72   15 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:04
01000/029   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.31(1)          31
            D4T3    343  INTERACTIVE_FORTRAN.INT.SA.029     1 LINE     72   16 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:06
01000/030   INTERACTIVE FORTRAN      INT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.INT.SA.32(1)          32
            D4T3    344  INTERACTIVE_FORTRAN.INT.SA.030     1 LINE     72    7 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:08
0          The INTERPRETERS DSECTS. 
           These DSECTS are also copied by  MON  and OUT.
1                                                                                               FRI AUG 02/96   16:11:27   Page  344
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
+         ______________ _____________________
01000/031   INTERACTIVE FORTRAN      IS              SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.IS.SA.33(1)           33
            D4T3    345  INTERACTIVE_FORTRAN.IS.SA.031      1 LINE     80   40 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:09
0          Semantic checking routine;
           Appears in |MAP as SIMLATOR.
01000/032   INTERACTIVE FORTRAN      LEX             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.LEX.SA.34(1)          34
            D4T3    346  INTERACTIVE_FORTRAN.LEX.SA.032     1 LINE     73   27 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:13
0          Lexical scanner;
           Appears in |MAP as LEX.
01000/033   INTERACTIVE FORTRAN      LIN             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.LIN.SA.35(1)          35
            D4T3    347  INTERACTIVE_FORTRAN.LIN.SA.033     1 LINE     73   25 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:18
0          Lexical scanner input routine;
           Appears in |MAP as LIN.
01000/034   INTERACTIVE FORTRAN      MDEBUG          SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.MDEBUG.SA.36(1)       36
            D4T3    348  INTERACTIVE_FORTRAN.MDEBU.SA.034   1 LINE     73   30 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:21
0          Built-in SDS-like debugging facility; documentation is a separate component.
           Has BREAKPOINTs, ATPOINTs, and an instruction simulator much like SDS.
           Appears in |MAP as MDG.
01000/035   INTERACTIVE FORTRAN      MON             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.MON.SA.37(1)          37
            D4T3    349  INTERACTIVE_FORTRAN.MON.SA.035     1 LINE     72   14 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:24
01000/036   INTERACTIVE FORTRAN      OUT             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.OUT.SA.38(1)          38
            D4T3    350  INTERACTIVE_FORTRAN.OUT.SA.036     1 LINE     72   27 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:26
0          Another command processor;
           Appears in |MAP as SUBOUT.
           NOTE: this module copies the INTERPRETER DSECTS
01000/037   INTERACTIVE FORTRAN      PARSE           SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.PARSE.SA.39(1)        39
            D4T3    351  INTERACTIVE_FORTRAN.PARSE.SA.037   1 LINE     73   48 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:30
0          The parser (quite a mess - but works surprisingly well);
           Appears in |MAP as PARSER.
01000/038   INTERACTIVE FORTRAN      SCOM            SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.SCOM.SA.40(1)         40
            D4T3    352  INTERACTIVE_FORTRAN.SCOM.SA.038    1 LINE     72   22 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:37
0          COMMON routine;
           Appears in |MAP as SCOM#.
01000/039   INTERACTIVE FORTRAN      SEQV            SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.SEQV.SA.41(1)         41
            D4T3    353  INTERACTIVE_FORTRAN.SEQV.SA.039    1 LINE     72   17 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:39
0          EQUIVALENCE routine;
           Appears in |MAP as SEQV#.
1                                                                                               FRI AUG 02/96   16:11:27   Page  345
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
+         ______________ _____________________
01000/040   INTERACTIVE FORTRAN      SIM             SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.SIM.SA.42(1)          42
            D4T3    354  INTERACTIVE_FORTRAN.SIM.SA.040     1 LINE     75   18 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:41
0          Compilation monitor;
           Appears in |MAP as SIM.
01000/041   INTERACTIVE FORTRAN      SLABEL          SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.SLABEL.SA.43(1)       43
            D4T3    355  INTERACTIVE_FORTRAN.SLABE.SA.041   1 LINE     72   10 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:44
01000/042   INTERACTIVE FORTRAN      SPACE           SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.SPACE.SA.44(1)        44
            D4T3    356  INTERACTIVE_FORTRAN.SPACE.SA.042   1 LINE     73   19 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:45
0          Virtual memory management;
           Appears in |MAP as CORE.
01000/043   INTERACTIVE FORTRAN      SYMBOL          SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.SYMBOL.SA.45(1)       45
            D4T3    357  INTERACTIVE_FORTRAN.SYMBO.SA.043   1 LINE     72   30 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:49
0          Symbol table routines;
           Appears in |MAP as SYMBOL.
01000/044   INTERACTIVE FORTRAN      TPUT            SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.TPUT.SA.46(1)         46
            D4T3    358  INTERACTIVE_FORTRAN.TPUT.SA.044    1 LINE     87   22 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:52
0          Interface to operating system; 99% of system dependency
           is gated through this module (in fact IF runs under TSS).
           Appears in |MAP as TPUT.
01000/045   INTERACTIVE FORTRAN      XLOADER         SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.XLOADE.SA.47(1)       47
            D4T3    359  INTERACTIVE_FORTRAN.XLOAD.SA.045   1 LINE     92   93 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:53:55
0          IF'S external loader; interface to UMLOAD;
           Appears in |MAP as XLD.
01000/046   INTERACTIVE FORTRAN      FUNCTIONS       SA  G          S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.FUNCTI.SA.48(1)       48
            D4T3    360  INTERACTIVE_FORTRAN.FUNCT.SA.046   1 LINE     71    6 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:54:03
0          Code for ELEMENTARY FUNCTIONs not found in EFL; these are typically
           the "IN-LINE" FORTRAN functions. This also serves as the error
           monitor for the regular EFL. IF uses the standard system EFL 
           library, and standard system FORTRAN I/O support.
01000/047   INTERACTIVE FORTRAN      MDEBUG          WF             S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.MDEBUG.WF.49(1)       49
            D4T3    361  INTERACTIVE_FORTRAN.MDEBU.WF.047   1 LINE     89    7 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:54:04
0          WRITEUP DESCRIBING USE OF IF'S INTERNAL SDS FACILITIES.
01000/048   INTERACTIVE FORTRAN      CALLINGIF       WF             S0553 UBCTAP FSNAME=INTERACTIVE_FORTRAN.CALLIN.WF.50(1)       50
            D4T3    362  INTERACTIVE_FORTRAN.CALLI.WF.048   1 LINE     87    4 PAGE UBC  O'REILLY  BRILL     JUNE 15, 1977  12:54:05
0          FMT source for writeup describing how to call resident IF as a subroutine.
1                                                                                               FRI AUG 02/96   16:11:27   Page  346
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
+         ______________ _____________________
01000/049   INTERACTIVE FORTRAN      EDITOR          SA  G          WSG:IF.EDIT                                                     
            D4T3    363  INTERACTIVE_FORTRAN.EDITO.SA.049   1 LINE     77   48 PAGE UBC  O'REILLY  BRILL     SEP. 18, 1977  22:16:16
0          This is the interface to the new MTS editor. It uses some of the
           same MACROs that the editor uses (IF, THEN, ELSE, & friends), and 
           the MSG macros.
01002/001   FIX                      IBCOM#          SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.IBCOM.S                         
            D4T3    364  FIX.IBCOM#.SA.001                  1 LINE     72   17 PAGE UBC  STEVENS   BODWIN    OCT. 08, 1976  16:05:29
0          THIS VERSION OF FIX IS TAKEN FROM UBC DIST 1.0 OF FIX.  SEVERAL
           CHANGES, MOSTLY MINOR, HAVE BEEN MADE AT UM AND ARE REFLECTED
           IN THIS DISTRIBUTION.  TO INSTALL FIX, ALL SOURCE FILES SHOULD
           BE RESTORED AND THE FILE FIX.GLOBAL SHOULD BE INSPECTED AND
           ALTERED SO THAT THE SET SYMBOLS REFLECT THE INSTALLATION'S LOCAL
           REQUIREMENTS.  THEN REASSEMBLE, ADD A COM CARD LIKE THE ONE FOUND 
           IN THE DISTRIBUTED OBJECT AND INSTALL WITH PISTLE.
            
           -COMP 1002/1 CONTAINS THE INITIAL TRANSFER VECTOR, AND CODE
           TO  CONTROL UNFORMATTED IO.
           -PROGRAMS WHICH STORE INFORMATION IN THE AREA AFTER THE 
            INITIAL TRANFER VECTOR (EG: SNOBOL) WILL NOT WORK WITH 
            A SEGMENT 2 VERSION OF FIX. THEY WILL EITHER HAVE TO BE 
            MODIFIED, OR WILL HAVE TO RUN WITH A NON-RESIDENT VERSION 
            OF FIX. SPACE HAS BEEN LEFT IN THE TRANSFER FOR THE 
            LATTER PURPOSE. 
           -TWO EXTRA WORDS HAVE BEEN ADDED TO THE TRANSFER VECTOR:
             (1) ENTRY FOR IF (INTERACTIVE FORTRAN)
             (2) ENTRY FOR STOP FROM FIODEBUG
            
           ********************************************************
           *  THIS IS VERSION 1.0 OF FORTRAN I/O (FIX)            *
           *  ALL ROUTINES HAVE BEEN RE-NUMBERED AND TIDIED       *
           *    THEY WILL NOT BE CHANGED UNTIL VERSION 2.0        *
           *  PLEASE SEND CHANGES TO SOURCE CODE TO UBC AND WE    *
           *    WILL ATTEMPT TO INCORPORATE THEM EITHER BY USING  *
           *    THE CODE OR ADDING VIA CONDITIONAL ASSEMBLY       *
           ********************************************************
            
           -FORTRANH EXTENDED CODE ADDED BY CONDITIONAL ASSEMBLY TO HANDLE
             LIST DIRECTED I/O, PARTIAL SHORT LIST ARRAYS, AND AUTODOUBLE.
             SOME OF THE CODE INSERTED HAS NOT BEEN FULLY TESTED AS WE
             DO NOT YET HAVE FTNX. THE TEST FILES SENT BY WSU ALL TESTED OK.
           -THIS SHOULD BE THE FIRST ROUTINE IN THE OBJECT FILE. USED
            DURING PGNT PROCESSING TO DETERMINE IF IT OCCURRED INSIDE FIX.
            
           UM VERSION HAS SEVERAL THINGS FIXED.  ALL COPY SECTIONS HAVE HAD
           THE UBC NAME PREFIXED WITH "FIX." -- E.G. FIODSCT => FIX.FIODSCT.
01002/002   FIX                      UNIT.CONTROL    SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.UCR.S                           
            D4T3    365  FIX.UNIT.CONTROL.SA.002            1 LINE     72   19 PAGE UBC  STEVENS   BODWIN    FEB. 08, 1977  15:02:23
0          -THIS IS THE SOURCE CODE FOR THE FIX VERSION OF IBM'S FIOCS# 
           -KNOWN AS THE "UNIT CONTROL ROUTINES" (UCR) 
1                                                                                               FRI AUG 02/96   16:11:27   Page  347
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          -CONTAINS ENTRY POINTS FOR READ, WRITE, GETBUF, SETLNR
            REWIND, BACKSPACE, ENDFILE, DEFINE FILE 
           -ENTRY CONVENTION HAS BEEN CHANGED FROM A TRANSFER VECTOR 
            TO DIRECT CALLS 
           -INDEXED READ/WRITE AND FIND CALL "SETLNR" WHICH JUST SETS
            THE INDEXED BIT AND STORES THE LINE NUMBER.
           -"ENDFILE=NEVER" SWITCH CHECKED AT "$END" PROCESSING AND
            $END RECORD IS RETURNED AS DATA IF ON.
            
           UM VERSION -- SEVERAL CHANGES FROM UBC DIST 1.0.
01002/003   FIX                      INITIALIZER     SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.INIT.S                          
            D4T3    366  FIX.INITIALIZER.SA.003             1 LINE     72    5 PAGE UBC  STEVENS   BODWIN    OCT. 08, 1976  16:05:45
0          -SOURCE CODE FOR FIXINIT, THE FIX PSECTS INITIALIZER 
           -FOUR MAIN FUNCTIONS: 
                1: ACQUIRE AND INITIALIZE GLOBAL FIX PSECT, 
                   ACQUIRED VIA MTS SUBROUTINES GPSECT,QPSECT 
                2: RE-INITIALIZE GLOBAL FIX PSECT 
                3: INITIALIZE A UNIT DSECT 
                4: FIXEND - TERMINATE (RESTORES FPRS NOW)
           -FIXINIT ALSO COLLECTS STATISTICS ON FIX USAGE AND LOGS 
            THEM TO THE FILE "STATFILE". A SPECIAL CALL TO GUINFO 
            RETRIEVES THE NAME OF THE LOAD MODULE INVOLVED IN THE 
            USAGE OF FIX. THIS FEATURE IS DEPENDENT ON THE &DEBUG FLAG.
01002/004   FIX                      MISCELLANEOUS   SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.MISC.S                          
            D4T3    367  FIX.MISCELLANEOUS.SA.004           1 LINE     72   11 PAGE UBC  STEVENS   BODWIN    JULY 20, 1976  10:24:02
0          -A BUNCH OF MISCELLEOUS SMALL SUBROUTINES 
           -SOURCE CODE FOR SETDSR,GETIHC,PUTIHC,SETBLK,SETSTA 
            (WHICH ARE ALL ESSENTIALLY DUMMY ROUTINES NOW) 
           -ALSO CONTAINS SOURCE CODE FOR SETDSN WHICH CALLS 
            SETLIO TO ASSIGN THE UNIT 
           -ALSO CONTAINS SOURCE CODE FOR IPDCODI 
            IPDCODI DECODES THE INITIAL PARAMETER LISTS PASSED BY FORTRAN 
           -SLITE/SLITET/DVCHK/OVFLOW ROUTINES. THESE ROUTINES HAVE BEEN
            MADE AVAILABLE BUT DON'T REALLY WORK AS PGNT TRAPS DON'T SET
            ANY FLAGS FOR THESE ROUTINES TO FIND.
           -GRAB/FOSP/FASP. GETSPACE/FREESPACE ROUTINES FOR FIX. FASP IS
            USED WHEN ALL SPACE IS TO BE RELEASED.
01002/005   FIX                      DEBUG.PACKAGE   SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.DEBUG.S                         
            D4T3    368  FIX.DEBUG.PACKAGE.SA.005           1 LINE     72   10 PAGE UBC  STEVENS   BODWIN    JULY 20, 1976  10:20:25
0          -SOURCE CODE FOR THE FORTRAN DEBUG PACKAGE 
           -COMPLETE DEBUG PACKAGE HAS NOW BEEN IMPLEMENTED 
           -MORE OR LESS THE SAME AS THE ORIGINAL DEBUG PACKAGE 
            EXCEPT THAT WHEN I/O MUST BE SAVED, SPACE IS ACQUIRED
            FOR EACH OUTPUT LINE INSTEAD OF IN CHUNKS OF 256.
           -DIPLAY FEATURE USES A SEPARATE ENTRY POINT INTO NAMELIST
            TO DO THE REQUIRED I/O.
           -NEW FEATURE ADDED: WHEN SUBTRACE IS ON, THEN THE NAME OF THE 
            ROUTINE IS PRINTED ON ENTRY AND EXIT 
1                                                                                               FRI AUG 02/96   16:11:27   Page  348
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          -UNDEFINED VARIABLES (X'81') NOW PRINT "U"'S.
01002/006   FIX                      ERROR.MONITOR   SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.ERRMON.S                        
            D4T3    369  FIX.ERROR.MONITOR.SA.006           1 LINE     73   87 PAGE UBC  BUCKLAND  BODWIN    OCT. 08, 1976  16:04:53
0          -SOURCE CODE FOR THE ERROR MONITOR 
           -CURRENTLY HANDLES ALL IO ERRORS, IHC ERRORS WHICH CALL 
            IBCOM#, AND PROGRAM INTERRUPTS (TAKING ADVANTAGE OF THE 
            INITIAL CALL TO IBCOM# TO SET THE PROGRAM INTERRUPT TRAP). 
           -IN THE FUTURE, MAY BE EXTENDED TO HANDLE ELEMENTARY 
            FUNCTION ERRORS. 
           -GIVES TRACEBACKS AFTER IO ERRORS AND PROGRAM INTERRUPTS 
            BUT DOES NOT USE TRACER 
           -HOOKS ARE THERE FOR HANDLING ELEMENTARY FUNCTION ERRORS 
           -ENTRY POINT FTNCMD - USER CALLABLE SUBROUTINE.
            CC COMMANDS @@@UNIT AND @@@PSECT USE PRDSCT (1006/1) TO
            DUMP THE UNIT DSECT AND THE MAIN PSECT RESPECTIVELY.
           -NOW ACCEPTS NEW PAR LIST - STRING TERMINATED BY ';'.
           -SHOULD BE THE LAST OBJECT MODULE IN THE LOAD FILE - THIS
            FACT IS USED TO DETERMINE IF A PGNT OCCURRED IN FIX.
            
           UM VERSION ADDED NOTES:
            THE TWO COMMANDS @@@UNIT AND @@@PSECT DO NOT WORK BECAUSE WE
            HAVE NOT BEEN ABLE TO GET PRDSCT (1006/1) TO WORK PROPERLY.
01002/007   FIX                      NAMELIST        SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.NAMEL.S                         
            D4T3    370  FIX.NAMELIST.SA.007                1 LINE     72   26 PAGE UBC  COCKLE    BODWIN    JULY 20, 1976  10:24:49
0          -SOURCE CODE FOR THE NAMELIST ROUTINE 
           -ESSENTIALLY COMPATIBLE WITH IBM'S NAMELIST, EXCEPT WILL 
            PRODUCE BETTER ERROR CHECKS 
           -TWO BASIC INPUT FORMATS ARE SUPPORTED: 
                1: IBM FORMAT, ASSUMED IF "&" IS FOUND IN COLUMN 
                   TWO OF FIRST CARD 
                2: FREE FORMAT, OTHERWISE WITH BLANKS,COMMAS 
                   SERVING AS DELIMITERS 
           -ERROR RECOVERY HAS BEEN ADDED. CONVERSATIONAL USER MAY
            NOW MODIFY ILLEGAL INPUT.
01002/008   FIX                      VARIABLE.FMT    SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.VDCODE.S                        
            D4T3    371  FIX.VARIABLE.FMT.SA.008            1 LINE     72   16 PAGE UBC  COCKLE    BODWIN    JULY 20, 1976  10:25:17
0          -SOURCE CODE FOR ROUTINE WHICH DECODES VARIABLE FORMATS 
           -SAVES THE FORMAT AND CHECKS FOR EQUALITY IF CALLED AGAIN 
            IN AN ATTEMPT TO SAVE DECODING EFFORT 
           -STRINGENT ERROR CHECKS 
           -LIST DIRECTED I/O IMPLEMENTED BY CHECKING FOR '*' IN THE
            FIRST CHARACTER OF A VARIABLE FORMAT.
01002/009   FIX                      FORMATTED.IO    SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.FORMAT.S                        
            D4T3    372  FIX.FORMATTED.IO.SA.009            1 LINE     72   31 PAGE UBC  COCKLE    BODWIN    JULY 20, 1976  10:22:13
0          -SOURCE CODE FOR ROUTINE WHICH CONTROLS FORMATTED IO 
           -NO KNOWN BUGS 
1                                                                                               FRI AUG 02/96   16:11:27   Page  349
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          -ERROR RECOVERY IMPLEMENTED
01002/010   FIX                      LLXU            SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.LLXUF.S                         
            D4T3    373  FIX.LLXU.SA.010                    1 LINE     72   12 PAGE UBC  STEVENS   BODWIN    MAY  11, 1977  09:36:46
0          -DYNAMIC LOADING INTERFACE ROUTINES WRITTEN BY UM (FROM LATEST
            REDISTRIBUTION TAPE)
           -SLIGHTLY MODIFIED BY UBC TO REQUIRE ALL UNITS TO BE
            RE-OPENED ON RETURN FROM LINKED ROUTINE.
01002/011   FIX                      DEFAULTS        SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.DEFAULT.S                       
            D4T3    374  FIX.DEFAULTS.SA.011                1 LINE     49    1 PAGE UBC  BUCKLAND  BODWIN    JULY 20, 1976  10:20:56
0          THIS IS A TABLE OF DEFAULTS WHICH CONTROLS WHICH UNITS
           ARE TO BE DEFAULTED IF NOT SPECIFIED ON THE RUN COMMAND.
           CURRENTLY, IT IS SET UP TO DEFAULT:
              5  -  *SOURCE*
              6  -  *SINK*
            
           THE UM VERSION ALSO DEFAULTS THE FORTRAN II I/O STATEMENTS:
              READ FMT  - SCARDS 
              PRINT FMT - SPRINT
              PUNCH FMT - SPUNCH
01002/012   FIX                      LIST DIRECTED   SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.LSTDIO.S                        
            D4T3    375  FIX.LIST_DIRECTED.SA.012           1 LINE     72   21 PAGE UBC  COCKLE    BODWIN    JULY 20, 1976  10:23:47
0          -ROUTINE TO IMPLEMENT THE FORTRAN-H EXTENDED FEATURE
            LIST DIRECTED I/O. THIS ROUTINE IS CALLED BY IBCOM#
            WHEN REQUIRED (LDFIO# ENTRY) OR BY THE FORMATTING
            ROUTINES IF A VARIABLE FORMAT ('*') IS DETECTED.
01002/013   FIX                      LCS.SOURCE      SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.LCS.S                           
            D4T3    376  FIX.LCS.SOURCE.SA.013              1 LINE     68    1 PAGE UBC  STEVENS   BODWIN    OCT. 08, 1976  16:06:19
0          -SOURCE FOR THE LOW CORE SYMBOL DICTIONARY FOR FIX. 
            DESCRIBES ALL CURRENT REQUIRED USER ENTRY POINTS. 
           -ROOM FOR 12 EXTRA ENTRY POINTS AT THE END OF THE TABLE 
            
           UM VERSION INCLUDES IBCOM## AND FIOEND, BOTH FOR SDS.  USE THE LINK EDITOR
           TO CHANGE FIXLCS TO <FIX>.
01002/014   FIX                      ERROR.TABLE     SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.ERRTABLE                        
            D4T3    377  FIX.ERROR.TABLE.SA.014             1 LINE     70    3 PAGE UBC  BUCKLAND  BODWIN    JULY 20, 1976  10:26:04
0          -COPY SECTION FOR ERRMON.S, THE ERROR MONITOR 
           -N-TH LINE CORRESPONDS TO IO ERROR NUMBER N 
           -EACH LINE IS A MACRO STATEMENT WHICH GENERATES AN INTERNAL TABLE 
            IN THE ERROR MONITOR 
            
           SHOULD BE RESTORED TO FILE "FIX.ERRTABLE" FOR ASSEMBLING FIX.
1                                                                                               FRI AUG 02/96   16:11:27   Page  350
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
+         ______________ _____________________
01002/015   FIX                      DUMP            SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.DUMP.S                          
            D4T3    378  FIX.DUMP.SA.015                    1 LINE     72    7 PAGE UBC  O'REILLY  BODWIN    JULY 20, 1976  10:29:11
0          SOURCE TO IMPLEMENT FORTRAN DUMP/PDUMP.
           RESIDES IN THE GENERAL LIBRARY AS IT IS NOT USED VERY MUCH.
01002/016   FIX                      FIX.PSECT       SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.FIODSCT                         
            D4T3    379  FIX.FIX.PSECT.SA.016               1 LINE     72   10 PAGE UBC            BODWIN    JULY 20, 1976  10:26:22
0          -ASSEMBLER CODE FOR THE GLOBAL FIX PSECT 
           -ALL FIX MODULES COPY FIX.FIODSCT
           -THE PSECT IS ACQUIRED BY GPSECT 
            
           RESTORE TO FILE FIX.FIODSCT.
01002/017   FIX                      GLOBAL          SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.GLOBAL                          
            D4T3    380  FIX.GLOBAL.SA.017                  1 LINE     72    4 PAGE UBC            BODWIN    MAY  11, 1977  09:47:40
0          -COPY SECTION USED FOR CONDITIONAL ASSEMBLY SYMBOLS.
           -EACH INSTALLATION HAS ITS OWN SECTION WHICH DEFINES
             THE REQUIREMENTS AT THAT INSTALLATION. AS FAR AS WE
             KNOW, THESE HAVE BEEN DEFINED AS REQUIRED. PLEASE
             NOTIFY UBC OF ANY CHANGES SO THAT THE INSTALLER NEED
             ONLY CHANGE THE SHARE CODE BEFORE RE-ASSEMBLING.
            
           SHOULD BE RESTORED TO THE FILE FIX.GLOBAL FOR ASSEMBLING FIX.
01002/018   FIX                      ERREQU          SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.ERREQU                          
            D4T3    381  FIX.ERREQU.SA.018                  1 LINE     72    2 PAGE UBC  STEVENS   BODWIN    JULY 20, 1976  10:25:56
0          -COPY SECTION CONTAINING ALL ERROR EQUATES.
            
           SHOULD BE RESTORED TO THE FILE FIX.ERREQU FOR ASSEMBLING FIX.
01002/019   FIX                      UNIT.PSECT      SA  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.UNITDSCT                        
            D4T3    382  FIX.UNIT.PSECT.SA.019              1 LINE     72    3 PAGE UBC  STEVENS   BODWIN    FEB. 08, 1977  15:02:12
0          -SEPARATE FILE CONTAINING THE SOURCE CODE TO DEFINE THE DSECT FOR 
            THE UNITS.
           -INCLUDED BY "COPY FIX.UNITDSCT"
            
           RESTORE TO FILE FIX.UNITDSCT.
01002/020   FIX                      MACRO LIB       SM  G          S0850 FIXUM 'FIX-UM' FSNAME=FIX.MACLIB                          
            D4T3    383  FIX.MACRO_LIB.SM.020               1 LINE     77   11 PAGE UBC  STEVENS   BODWIN    JULY 20, 1976  10:27:13
0          -MACRO LIBRARY USED BY ALL FIX MODULES
01002/021   FIX                      SHARED OBJECT   OC  G          SEG2:FIX                                                        
            D4T3    384  FIX.SHARED_OBJECT.OC.021           1 LINE  31993   46 PAGE UBC            BODWIN    JULY 29, 1977  00:07:52
0          THIS IS THE UM SHARED OBJECT, THE ONLY ONE USED.  IT IS NOT LINKEDITTED.
1                                                                                               FRI AUG 02/96   16:11:27   Page  351
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
+         ______________ _____________________
01002/022   FIX                      ERROR.MESSAGES  M              ETC:FIX.MESSAGES                                                
            D4T3    385  FIX.ERROR.MESSAGES.M.022           1 LINE    190    5 PAGE UBC            BODWIN    JULY 29, 1977  00:07:58
0          -THE MESSAGE FILE FOR ALL IO ERRORS 
           -LINE N HAS THE MESSAGE FOR ERROR NUMBER N 
           -CURRENTLY MESSAGES CANNOT BE MULTI-LINE 
           -LINE N+5000 HAS THE DEFAULT MESSAGE FOR THAT ERROR 
           -MUST BE PERMITTED FOR READING BY EVERYBODY 
           -IMPLEMENT THIS FILE @I 
01002/023   FIX                      EXPLAIN.MSGS    M              ETC:FIX.EXPLAIN                                                 
            D4T3    386  FIX.EXPLAIN.MSGS.M.023             1 LINE     70    5 PAGE UBC  BUCKLAND  BODWIN    JULY 29, 1977  00:08:00
0          -FILE ACCESSED BY THE ERROR MONITOR, ERRMON.S, IN 
            RESPONSE TO THE "EXPLAIN COMMAND". 
           -MUST BE IMPLEMENTED @I, AND MUST BE PERMITTED FOR 
            EVERYONE TO READ 
01002/024   FIX                      INTERNAL.DOC    WF             S0899 UBC50 FSNAME=FIX.INTERNAL.DOC.WF.40                    168
            D4T3    387  FIX.INTERNAL.DOC.WF.024            1 LINE     77   28 PAGE UBC  COCKLE    BODWIN    JUNE 14, 1976  14:22:47
0          -COMPREHENSIVE INTERNAL DOCUMENTATION FOR THE FIX PROJECT 
           -THE WRITEUP DOES NOT REFLECT THE FINAL STATUS OF THE PROJECT.
01002/025   FIX                      MEMO 339        WF             S0622 D3MISC FSNAME=M339FTNIO(1)                             124
            D4T3    388  FIX.MEMO_339.WF.025                1 LINE    103    3 PAGE UM   BODWIN              JAN. 24, 1977  21:28:38
0          THIS IS COMPUTING CENTER MEMO 339 -- "CHANGES TO FORTRAN I/O"
01005/001   FREAD SUBR               FREAD#          SA  G          S0579 SAVE 'JWS-SAVE' FSNAME=FREAD#.S                           
            D4T3    389  FREAD_SUBR.FREAD#.SA.001           1 LINE     77   52 PAGE UBC  STEVENS   BODWIN    JUNE 15, 1977  09:37:11
0          THIS IS THE REENTRANT PART OF FREAD, THE FREE FORMAT INPUT FACILITY.  COPIES
           THE FREAD.COPY COPY SECTION (1005/5).
0          Referenced by comments of: 1005/3 
01005/002   FREAD SUBR               FREAD#          OC  G          SEG2:FREAD                                                      
            D4T3    390  FREAD_SUBR.FREAD#.OC.002           1 LINE     80   11 PAGE UBC  STEVENS   BODWIN    JULY 29, 1977  00:10:49
0          THIS OBJECT IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE.
01005/003   FREAD SUBR               FREAD           SA  G          S0579 SAVE 'JWS-SAVE' FSNAME=FREAD.S                            
            D4T3    391  FREAD_SUBR.FREAD.SA.003            1 LINE     77    3 PAGE UBC  STEVENS   BODWIN    MAY  12, 1977  16:17:34
0          THIS IS THE NON-REENTRANT PART OF FREAD WHICH INTERFACES TO THE REENTRANT PART
           (1005/1).  COPIES THE FREAD.COPY COPY SECTION (1005/5).
01005/004   FREAD SUBR               FREAD           OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UBC  STEVENS   BODWIN                           
1                                                                                               FRI AUG 02/96   16:11:27   Page  352
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
+         ______________ _____________________
01005/005   FREAD SUBR               FREAD.COPY      SA  G          S0579 SAVE 'JWS-SAVE' FSNAME=FREAD.COPY                         
            D4T3    392  FREAD_SUBR.FREAD.COPY.SA.005       1 LINE     72    4 PAGE UBC  STEVENS   BODWIN    JUNE 13, 1977  11:51:56
0          COPY SECTION USED BY 1005/1 AND 1005/3.
0          Referenced by comments of: 1005/1, 1005/3 
01006/001   PRDSCT                                   SA  B          S0850 FIXUM 'FIX-UM' FSNAME=FIX.PRDSCT.S                        
            D4T3    393  PRDSCT..SA.001                     1 LINE     77   20 PAGE UBC  STEVENS   BODWIN    MAY  05, 1977  13:56:37
0          ROUTINE TO PRINT A FORMATTED DUMP OF A DSECT.  AS DISTRIBUTED, THIS ROUTINE
           DOES NOT WORK.  ASSEMBLE USING THE STEVENS MACRO LIBRARY (1016).
0          Referenced by comments of: 1002/6 
01006/002   PRDSCT                                   OC  B          S0850 FIXUM 'FIX-UM' FSNAME=FIX.PRDSCT                          
            D4T3    394  PRDSCT..OC.002                     1 LINE     80    6 PAGE UBC  STEVENS   BODWIN    MAY  05, 1977  13:56:59
01012/001   UNITS                    JOB PROGRAM     SA  G  UNIT    MTA:UNITS.S(1,1999)                                             
            D4T3    395  UNITS.JOB_PROGRAM.SA.001           1 LINE     80   32 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:11:30
0          JOB PROGRAM INTERFACE FOR THE UNITS JOB AND A SUBROUTINE CALLED BY IT AND ALSO BY
           THE MTS UNITS PROGRAM (1012/3).  COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU (087).
0          Referenced by comments of: 490/1, 1012/3 
01012/002   UNITS                    JOB PROGRAM     OC  G          SEG2:UNITS                                                      
            D4T3    396  UNITS.JOB_PROGRAM.OC.002           1 LINE     80    6 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:11:35
0          THIS FILE IS LOADED AFTER IPL BY PISTLE.
01012/003   UNITS                    MTS PROGRAM     SA  G  UNIM    MTA:UNITS.S(2000)                                               
            D4T3    397  UNITS.MTS_PROGRAM.SA.003           1 LINE     80    3 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:11:37
0          MTS PROGRAM TO FORMAT PARAMETERS AND CALL THE UNITS SUBROUTINE (1012/1).
0          Referenced by comments of: 1012/1 
01012/004   UNITS                    MTS PROGRAM     OE  G          MTA:UNITS.O                                                     
            D4T3    398  UNITS.MTS_PROGRAM.OE.004           1 LINE    286    1 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:11:39
0          MUST BE RUN WITH PROT=OFF.
01016       STEVENS MACRO LIB                        SM             DWB:JESMACLIB                                                   
            D4T3    399  STEVENS_MACRO_LIB..SM.             1 LINE     73    6 PAGE UBC  STEVENS   DWB       JULY 29, 1977  00:11:42
0          MACROS NEEDED BY *APC (496).
0          Referenced by comments of: 496/1, 1006/1 
01019/001   RAMROD                   SERVICE MODULE  SA  G  RAMS    MTS:RAMROD.SR.S(1)                                              
            D4T3    400  RAMROD.SERVICE_MODULE.SA.001       1 LINE     80   96 PAGE UBC            MTA       JULY 29, 1977  00:11:44
0          SERVICE ROUTINES FOR RAMROD.  ASSEMBLE USING RAMROD MACROS (1019/3).
1                                                                                               FRI AUG 02/96   16:11:27   Page  353
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: 1019/4 
01019/002   RAMROD                   INTER           SA  G  RAMC    MTS:RAMROD.CS.S(1)                                              
            D4T3    401  RAMROD.INTER.SA.002                1 LINE     80  163 PAGE UBC  BERRYMAN  MTA       SEP. 18, 1977  22:16:59
0          SOURCE FOR THE RAMROD COMMAND LANGUAGE INTERPRETER.  REQUIRES THE MSG ROUTINES
           (1023).  REQUIRES THE EXISTENCE OF A FILE (PRESENTLY NAMED MTS:RAMRODLOG BY
           DEFAULT, BUT SETABLE) WHICH IS PERMITTED WRITE-EXTEND (AT LEAST) FOR ITS
           TRANSACTION LOG.  IT ALSO REQUIRES AN EXPLAIN FILE (1019/5).  ALL FILENAMES OF
           THIS SORT ARE ASSEMBLY PARAMETERS.  COPIES *GFINFODSECT (593).  ASSEMBLE USING
           RAMROD.MACROS (1019/3).
0          Referenced by comments of: 1019/4 
01019/003   RAMROD                   MACROS          SM  G          MTS:RAMROD.MACS                                                 
            D4T3    402  RAMROD.MACROS.SM.003               1 LINE     72    4 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:12:55
0          THESE MACROS AND COPY SECTIONS ARE USED FOR BOTH THE COMMAND LANGUAGE INTERPRETER
           AND THE SERVICE MODULE.
0          Referenced by comments of: 1019/1, 1019/2, 1019/6 
01019/004   RAMROD                   OBJECT          OC  G          MTS:RAMROD                                                      
            D4T3    403  RAMROD.OBJECT.OC.004               1 LINE   3869   51 PAGE UBC            MTA       SEP. 18, 1977  22:18:07
0          CONTAINS THE OBJECT FOR THE COMMAND LANGUAGE INTERPRETER (1019/2) AND THE
           SERVICE MODULE (1019/1).
01019/005   RAMROD                   EXPLAIN         M              MTS:RAMRODEXP                                                   
            D4T3    404  RAMROD.EXPLAIN.M.005               1 LINE     79    3 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:13:03
0          EXPLAIN FILE FOR RAMROD.  AS DISTRIBUTED, RAMROD EXPECTS THIS FILE TO BE
           NAMED MTS:RAMRODEXP.  NOTE:  LINE NUMBERS IN THIS FILE ARE IMPORTANT AND
           THE FILE STARTS AT LINE 0.
0          Referenced by comments of: 1019/2 
01019/006   RAMROD                   DUMP            SA  G          MTS:RRDMP.S                                                     
            D4T3    405  RAMROD.DUMP.SA.006                 1 LINE     72    8 PAGE UBC            MTA       JULY 29, 1977  00:13:05
0          RAMROD FILE DIRECTORY DUMP PROGRAM.  ASSEMBLE USING RAMROD MACROS (1019/3).
01019/007   RAMROD                   DUMP            OC  G          MTS:RRDMP                                                       
            D4T3    406  RAMROD.DUMP.OC.007                 1 LINE     80    7 PAGE UBC            MTA       JULY 29, 1977  00:13:08
01019/008   RAMROD                   INTRO           WF             S0031 UBC46 FSNAME=RAMROD.DOCUMENT.WF.13(1)                  52 
            D4T3    407  RAMROD.INTRO.WF.008                1 LINE     79    4 PAGE UBC  HOGG      MTA       MAR. 22, 1976  14:33:16
0          INTRODUCTION TO RAMROD AND IPL READER (1021).  RELEVANT MAINLY TO INSTALLATIONS
           CONVERTING FROM PRE-IPLREADER VERSIONS OF RAMROD.
1                                                                                               FRI AUG 02/96   16:11:27   Page  354
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
+         ______________ _____________________
01019/009   RAMROD                   WRITEUP         WF             MTS:RAMROD.W                                                    
            D4T3    408  RAMROD.WRITEUP.WF.009              1 LINE    115   11 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:13:52
0          WRITEUP DESCRIBING THE RAMROD UTILITY.
01020/001   FILE MOVE                                SA  G          FILE:FM.S                                                       
            D4T3    409  FILE_MOVE..SA.001                  1 LINE     72   10 PAGE UBC  HOGG      HELFFRICH JULY 29, 1977  00:13:55
0          PROGRAM TO MOVE FILES FROM A PRODUCTION FILE SYSTEM TO A TEST PACK.  SEE
           THE DESCRIPTION OF THIS PROGRAM IN 682/7.  ASSEMBLE USING COPY:FILE.MACROS
           (482/36).
0          Referenced by comments of: 682/7 
01020/002   FILE MOVE                                OC  G          FILE:FM                                                         
            D4T3    410  FILE_MOVE..OC.002                  1 LINE     80    5 PAGE UBC  HOGG      HELFFRICH JULY 29, 1977  00:13:58
01021/001   IPL READER               IPLBOOT         SA  G  IPLB    MTS:IPLBOOT.S(1)                                                
            D4T3    411  IPL_READER.IPLBOOT.SA.001          1 LINE     80   25 PAGE UBC  O'REILLY  MTA       SEP. 18, 1977  22:18:17
0          SEE COMP 1019/8 FOR AN INTRODUCTORY WRITEUP ON RAMROD AND THE IPL READER.
            
           THIS IS A BOOTSTRAP PROGRAM FOR THE IPLREADER.  COPIES COPY:GLOBALS (1026/4),
           COPY:LLMPSEQU (087), AND COPY:PSA (162).  ASSEMBLE USING COPY:SETPARM (653) AND
           COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 4/4, 1019/8, 1021/5 
01021/002   IPL READER               IPLBOOT         OC  G          MTS:IPLBOOT.O                                                   
            D4T3    412  IPL_READER.IPLBOOT.OC.002          1 LINE     80    3 PAGE UBC  O'REILLY  MTA       SEP. 18, 1977  22:18:21
01021/003   IPL READER               IPLREAD         SA  G  IPLR    MTS:IPLREAD.S(1)                                                
            D4T3    413  IPL_READER.IPLREAD.SA.003          1 LINE     80  118 PAGE UBC  O'REILLY  MTA       SEP. 18, 1977  22:18:21
0          MAIN PART OF IPL READER.  COPIES COPY:GLOBALS (1026/4), COPY:LLMPSEQU (087), AND
           COPY:PSA (162).  ASSEMBLE USING COPY:SETPARM (653) AND COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 1021/5 
01021/004   IPL READER               IPLREAD         OC  G          MTS:IPLREAD.O                                                   
            D4T3    414  IPL_READER.IPLREAD.OC.004          1 LINE     80    9 PAGE UBC  O'REILLY  MTA       SEP. 18, 1977  22:18:34
01021/005   IPL READER               IPLINIT         SA  G  IPLI    MTS:IPLINIT.S(1)                                                
            D4T3    415  IPL_READER.IPLINIT.SA.005          1 LINE     80   21 PAGE UBC  O'REILLY  MTA       SEP. 18, 1977  22:18:36
0          PROGRAM TO WRITE IPLBOOT (1021/1), IPLREAD (1021/3), AND UMLOAD (001/1) ON
           A DISK IN SELF LOADING FORM.  COPIES *GDINFODSECT (594).  ASSEMBLE USING
           COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 1021/7 
1                                                                                               FRI AUG 02/96   16:11:27   Page  355
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
+         ______________ _____________________
01021/006   IPL READER               IPLINIT         OC  G          MTS:IPLINIT.O                                                   
            D4T3    416  IPL_READER.IPLINIT.OC.006          1 LINE     80    3 PAGE UBC  O'REILLY  MTA       SEP. 18, 1977  22:18:40
01021/007   IPL READER               IPLGTUM         SA  G          MTS:IPLGTUM.S                                                   
            D4T3    417  IPL_READER.IPLGTUM.SA.007          1 LINE     72    3 PAGE UBC  O'REILLY  MTA       JULY 29, 1977  00:14:25
0          SUBROUTINE TO LOAD UMLOAD (001/1) FOR IPLINIT (1021/5).
01021/008   IPL READER               IPLGTUM         OC  G          MTS:IPLGTUM.O                                                   
            D4T3    418  IPL_READER.IPLGTUM.OC.008          1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JULY 29, 1977  00:14:28
01021/009   IPL READER               WRITEUP         WF             MTS:IPLREAD.W                                                   
            D4T3    419  IPL_READER.WRITEUP.WF.009          1 LINE     71    6 PAGE UBC  O'REILLY  MTA       JULY 29, 1977  00:14:30
0          DESCRIPTION OF IPL READER.
01023/001   MSG ROUTINE                              SA             MTS:MSG.S                                                       
            D4T3    420  MSG_ROUTINE..SA.001                1 LINE     71   19 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:14:33
0          SOURCE FOR MSG ROUTINE.  THIS IS A REENTRANT GENERAL-PURPOSE
           MESSAGE ROUTINE WITH A VARIETY OF FEATURES.  DOCUMENTATION IS
           INCLUDED IN MTS VOLUME 14 AND IN THE SOURCE.  THE ROUTINE IS
           MAINLY DESIGNED TO BE USED WITH MACROS (IN *SYSMAC) AND IS
           DESIGNED TO BE RESIDENT.  CONSEQUENTLY, IT REFERENCES CMDSUB
           RATHER THAN CMD AND ZWRITEE RATHER THAN WRITE ETC.  FOR NON-RESIDENT
           USE, ALL THAT MUST BE DONE IS TO CHANGE THESE REFERENCES TO THEIR
           EXTERNAL COUNTERPARTS.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 400/1, 553/6, 642/20, 1019/2 
01023/002   MSG ROUTINE                              OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UBC  BERRYMAN  MTA                              
01024       UBC MACROS                               SM             MTS:UBCMACLIB                                                   
            D4T3    421  UBC_MACROS..SM.                    1 LINE     73   10 PAGE UBC            DWB       JULY 29, 1977  00:14:36
0          UBC COMPUTING CENTRE STAFF MACRO LIBRARY.  USED TO ASSEMBLE *APC (496) AND
           *ASMTIDY (410).
0          Referenced by comments of: 410/1, 496/1 
01026/001   GLOBAL SYSTEM PARS       GLOBALDEFS      SA  G          COPY:GLOBALDEFS                                                 
            D4T3    422  GLOBAL_SYSTEM_PARS.GLOBAL.SA.001   1 LINE     80    1 PAGE UM   MTA                 JULY 29, 1977  00:14:38
0          CONTAINS GBLB DEFINITIONS FOR:
            
                  &S370       SYSTEM/370
                  &OC3066     3066 CONSOLE PRESENT
                  &CRTY       ITEL 7830 COMMAND RETRY
                  &SIMPLEX    SINGLE PROCESSOR
                  &OPERJOB    OPERATOR JOB BEING USED
                  &PROT       PROTECTION
                  &AMD470     AMDAHL 470
                  &BLKMPX     BLOCK MULTIPLEXOR CHANNEL
1                                                                                               FRI AUG 02/96   16:11:27   Page  356
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                 &IO370      370 I/O INSTRUCTIONS
                  &NOSLT      NO SEARCH LIST INSTRUCTION
                  &OMR        2501 OMR FEATURE
                  &LFILENM    LENGTH OF FILE NAMES
                  &NDC        NO DATA CELL
                  &SPELC      SPELLING CORRECTION
                  &SPELCP     SPELLING CORRECTION PROMPT
                  &BRCPRNT    BATCH RC PRINT
                  &TRCPRNT    TERM RC PRINT
                  &BEBM       DEFAULT BATCH EXEC BEGINS MSG
                  &BETM       DEFAULT BATCH EXEC TERM MSG
                  &TEBM       DEFAULT TERM EXEC BEGINS MSG
                  &TETM       DEFAULT TERM EXEC TERM MSG
0          Referenced by comments of: 4/1, 42/1, 45/4, 101/1, 116/1, 135/1, 400/1, 545/3, 570/1, 653/1, 3024/1 
01026/002   GLOBAL SYSTEM PARS       GLOBALSETS/360  SA  G          WSG:GSETS.360                                                   
            D4T3    423  GLOBAL_SYSTEM_PARS.GLOBAL.SA.002   1 LINE     80    1 PAGE UM   MTA                 JULY 29, 1977  00:14:40
0          DEFINES VALUES FOR THE SYMBOLS IN GLOBALDEFS AS APPROPRIATE FOR THE D4.0
           360/67 SYSTEM.
01026/003   GLOBAL SYSTEM PARS       GLOBALSETS/470  SA  G          COPY:GLOBALSETS                                                 
            D4T3    424  GLOBAL_SYSTEM_PARS.GLOBAL.SA.003   1 LINE     80    1 PAGE UM   MTA                 JULY 29, 1977  00:14:43
0          DEFINES VALUES FOR THE SYMBOLS IN GLOBALDEFS AS APPROPRIATE FOR THE UM
           AMDAHL 470 V/6 CONFIGURATION.
0          Referenced by comments of: 4/1, 42/1, 45/4, 101/1, 116/1, 135/1, 387/1, 387/2, 387/3, 387/4, 387/5, 387/12, 387/33,
                 400/1, 545/3, 570/1, 3024/1 
01026/004   GLOBAL SYSTEM PARS       GLOBALS         SA  G          COPY:GLOBALS                                                    
            D4T3    425  GLOBAL_SYSTEM_PARS.GLOBAL.SA.004   1 LINE     37    1 PAGE UM   MTA                 JULY 29, 1977  00:14:46
0          CONTAINS:  $CONTINUE WITH COPY:GLOBALDEFS RETURN
                      $CONTINUE WITH COPY:GLOBALSETS RETURN
0          Referenced by comments of: 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 24/1, 41/1, 44/1, 45/2, 46/2, 46/4, 79/1, 80/1, 87/1,
                 162/1, 198/1, 353/2, 354/1, 354/7, 388/1, 399/1, 400/3, 400/7, 413/1, 464/1, 482/5, 487/1, 507/2, 509/1,
                 513/1, 531/1, 531/4, 531/8, 539/1, 540/1, 540/3, 540/7, 540/9, 554/1, 554/3, 577/3, 577/5, 577/7, 577/17,
                 577/25, 577/53, 577/55, 577/58, 578/1, 579/1, 588/1, 589/1, 598/1, 600/1, 600/4, 600/6, 600/10, 615/13,
                 615/15, 618/1, 621/2, 634/1, 634/3, 635/1, 636/1, 637/1, 638/1, 639/1, 647/1, 650/1, 651/10, 682/22, 693/1,
                 1012/1, 1021/1, 1021/3, 4000/1 
01027/001   P11 JOB                                  SA  G          S0938 FSAVE2 LBLTYPE=VLO FSNAME=P11.S(1)                        
            D4T3    426  P11_JOB..SA.001                    1 LINE     61    1 PAGE UBC            MTA       FEB. 14, 1975  00:39:28
0          PROGRAM TO LOAD THE CHARACTER AND CARRIAGE CONTROL BUFFERS OF A 3211 PRINTER
           LIKE THE QN/PN/TN JOBS (025).  SINCE NO 3211 PRINTERS ARE INSTALLED AT UM,
           THIS JOB PROGRAM AND ITS CORRESPONDING JOB LIST ENTRY (1027/3) ARE NOT PART
           OF THE DISTRIBUTED RESIDENT SYSTEM.
1                                                                                               FRI AUG 02/96   16:11:27   Page  357
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
+         ______________ _____________________
01027/002   P11 JOB                                  OC  G          S0938 FSAVE2 LBLTYPE=VLO FSNAME=P11.O(1)                        
            D4T3    427  P11_JOB..OC.002                    1 LINE     80    1 PAGE UBC            MTA       MAR. 15, 1975  16:00:44
01027/003   P11 JOB                  JOB LIST ENTRY  SA  G  P11J    S0938 FSAVE2 LBLTYPE=VLO FSNAME=P11.JLE(1)                   101
            D4T3    428  P11_JOB.JOB_LIST_ENTRY.SA.003      1 LINE     80    1 PAGE UBC            MTA       SEP. 23, 1975  00:13:21
0          Referenced by comments of: 1027/1 
01028/001   STAND-ALONE DUMP         IPL MODULE      SA             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.IPL_MODUL.SA.01(1)        20
            D4T3    429  STAND-ALONE_DUMP.IPL_MODU.SA.001   1 LINE     72    5 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:44:58
0          ASSEMBLER SOURCE FOR STAND-ALONE DUMP PROGRAM.  THIS VERSION (JAN '77)
           REPLACES THE PREVIOUS VERSION, WHICH WAS FROM IBM.  THE SOURCE INCLUDES
           INSTRUCTIONS FOR GENERATING AN IPL-ABLE STAND-ALONE DUMP TAPE FROM THE
           OBJECT.  THE DUMPS PRODUCED BY THIS PROGRAM ARE FORMATTED DIFFERENTLY
           FROM THOSE PRODUCED BY THE IBM STAND-ALONE DUMP PROGRAM.  A VERSION OF
           THE STAND-ALONE DUMP PRINT PROGRAM THAT SUPPORTS THIS NEW FORMAT IS INCLUDED
           IN 1028/3 THROUGH 1028/9.
            
           NOTE:  THIS PROGRAM HAS NEVER BEEN USED AT UM.
01028/002   STAND-ALONE DUMP         IPL MODULE      OC             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.IPL_MODUL.OC.02(1)        21
            D4T3    430  STAND-ALONE_DUMP.IPL_MODU.OC.002   1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:00
0          OBJECT FOR THE STAND-ALONE DUMP PROGRAM.  THIS IS THE ASSEMBLER OUTPUT,
           UN-DIDDLED FOR IPL'ING FROM.  SEE 1028/1 FOR DIDDLING INSTRUCTIONS.
01028/003   STAND-ALONE DUMP         MAIN            SP             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.MAIN_PROG.SP.03(1)        22
            D4T3    431  STAND-ALONE_DUMP.MAIN.SP.003       1 LINE     88    4 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:01
0          PL/1 SOURCE FOR MAIN PROGRAM OF STAND-ALONE DUMP PRINTER.  COMPLETE PROGRAM
           CONSISTS OF THE MAIN PROGRAM, THE PL/1-TO-PRTRACE INTERFACE PSD.PT, A
           VERSION OF PRTRACE (337) OF YOUR CHOICE, AND THE TIME-CONVERTING SUBROUTINE
           PSD.CT.  A COMPLETE LINKEDITED LOAD MODULE IS IN 1028/9.
01028/004   STAND-ALONE DUMP         MAIN            OC             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.MAIN_PROG.OC.06(1)        25
            D4T3    432  STAND-ALONE_DUMP.MAIN.OC.004       1 LINE     80    9 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:06
01028/005   STAND-ALONE DUMP         PSD.PT          SA             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.PT.SA.04(1)           23
            D4T3    433  STAND-ALONE_DUMP.PSD.PT.SA.005     1 LINE     61    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:03
0          SOURCE FOR THE PL/1-TO-PRTRACE INTERFACE FOR THE STAND-ALONE DUMP PRINT PROGRAM.
01028/006   STAND-ALONE DUMP         PSD.PT          OC             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.PT.OC.07(1)           26
            D4T3    434  STAND-ALONE_DUMP.PSD.PT.OC.006     1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:09
01028/007   STAND-ALONE DUMP         PSD.CT          SA             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.CT.SA.05(1)           24
            D4T3    435  STAND-ALONE_DUMP.PSD.CT.SA.007     1 LINE     72    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:04
0          SOURCE FOR THE TIME-CONVERTING SUBROUTINE USED BY THE STAND-ALONE DUMP PRINTER.
1                                                                                               FRI AUG 02/96   16:11:27   Page  358
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
+         ______________ _____________________
01028/008   STAND-ALONE DUMP         PSD.CT          OC             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.CT.OC.08(1)           27
            D4T3    436  STAND-ALONE_DUMP.PSD.CT.OC.008     1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:12
01028/009   STAND-ALONE DUMP         COMPLETE PROG   OE             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.COMPLETE.OE.09(1)         28
            D4T3    437  STAND-ALONE_DUMP.COMPLETE.OE.009   1 SEQ   10118    8 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:13
0          LINKEDITED VERSION OF THE STAND-ALONE-DUMP PRINT PROGRAM INCLUDING ALL THE
           REQUIRED JUNK AND A $CONTINUE WITH *PL1LIB.
01030/001   PACK MAP                 MAIN PROGRAM    SA  G  PM      FILE:PM.S                                                       
            D4T3    438  PACK_MAP.MAIN_PROGRAM.SA.001       1 LINE     80   25 PAGE UBC  O'REILLY  PIRKOLA   JULY 29, 1977  00:16:48
0          PROGRAM TO PRINT COMPLETE MAP OF A PAGE-FORMATTED DISK PACK.  FOR INSTRUCTIONS
           ON USAGE, SEE COMMENTS AT BEGINNING OF THE SOURCE.  CALLS ISORT (1030/2) AND
           AND VTOCREAD (067/4).  ASSEMBLE USING COPY:FILE.MACROS (482/36).  SEE COMP 682/3
           FOR A WRITEUP.
            
           >>>> NOTE: THIS PROGRAM HAS NOT BEEN TESTED RECENTLY AND MAY NOT WORK FOR
                      3330-11'S.
0          Referenced by comments of: 682/3 
01030/002   PACK MAP                 ISORT SUBR      SA  G  ISRT    FILE:PMAP.ISORT.S                                               
            D4T3    439  PACK_MAP.ISORT_SUBR.SA.002         1 LINE     80   15 PAGE UBC  O'REILLY  PIRKOLA   JULY 29, 1977  00:16:52
0          IN CORE SORT ROUTINE USED BY PACKMAP.
0          Referenced by comments of: 1030/1 
01030/003   PACK MAP                                 OC  G          FILE:PM                                                         
            D4T3    440  PACK_MAP..OC.003                   1 LINE     80    6 PAGE UBC  O'REILLY  PIRKOLA   JULY 29, 1977  00:16:53
0          OBJECT FOR PACKMAP, CONTAINS ISORT OBJECT AND VTOCREAD OBJECT.
01032/001   BCPL                     INSTALL.NOTES   P              S0899 UBC50 FSNAME=BCPL.INSTALL.NOTES.P.01                   194
            D4T3    441  BCPL.INSTALL.NOTES.P.001           1 LINE     69    2 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:33
0          THIS WRITEUP DESCIBES HOW TO INSTALL THE BCPL PROGRAMMING LANGUAGE.
           IT SHOULD BE COPIED TO A PRINTER@CC.  BCPL IS NOT SUPPORTED BY THE
           UBC COMPUTING CENTRE, BUT BY VINCE MANIS OF THE UBC COMPUTING SCIENCE
           DEPARTMENT.  AT UM, BCPL IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
01032/002   BCPL                     BCPL.BLIB.S     S   S          S0899 UBC50 FSNAME=BCPL.BCPL.BLIB.S.S.02                     195
            D4T3    442  BCPL.BCPL.BLIB.S.S.002             1 LINE     73    4 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:12
01032/003   BCPL                     BCPL.CGEN.S     S   S          S0899 UBC50 FSNAME=BCPL.BCPL.CGEN.S.S.03                     196
            D4T3    443  BCPL.BCPL.CGEN.S.S.003             1 LINE     78   20 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:14
01032/004   BCPL                     BCPL.COMP.S     S   S          S0899 UBC50 FSNAME=BCPL.BCPL.COMP.S.S.04                     197
            D4T3    444  BCPL.BCPL.COMP.S.S.004             1 LINE     76   22 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:20
1                                                                                               FRI AUG 02/96   16:11:27   Page  359
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
+         ______________ _____________________
01032/005   BCPL                     BCPL.DSECT      S   S          S0899 UBC50 FSNAME=BCPL.BCPL.DSECT.S.05                      198
            D4T3    445  BCPL.BCPL.DSECT.S.005              1 LINE     69    2 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:26
01032/006   BCPL                     BCPL.GEN.HDR    S   S          S0899 UBC50 FSNAME=BCPL.BCPL.GEN.HDR.S.06                    199
            D4T3    446  BCPL.BCPL.GEN.HDR.S.006            1 LINE     69    3 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:28
01032/007   BCPL                     BCPL.INSTALL    W   S          S0899 UBC50 FSNAME=BCPL.BCPL.INSTALL.W.07                    200
            D4T3    447  BCPL.BCPL.INSTALL.W.007            1 LINE     79    2 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:29
01032/008   BCPL                     BCPL.MSTR.S     S   S          S0899 UBC50 FSNAME=BCPL.BCPL.MSTR.S.S.08                     201
            D4T3    448  BCPL.BCPL.MSTR.S.S.008             1 LINE     80    7 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:31
01032/009   BCPL                     BCPL.SYN.HDR    S   S          S0899 UBC50 FSNAME=BCPL.BCPL.SYN.HDR.S.09                    202
            D4T3    449  BCPL.BCPL.SYN.HDR.S.009            1 LINE     68    1 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:34
01032/010   BCPL                     BCPL.TRN.HDR    S   S          S0899 UBC50 FSNAME=BCPL.BCPL.TRN.HDR.S.10                    203
            D4T3    450  BCPL.BCPL.TRN.HDR.S.010            1 LINE     71    2 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:36
01032/011   BCPL                     C               OE  S          S0899 UBC50 FSNAME=BCPL.C.O.11                               204
            D4T3    451  BCPL.C.OE.011                      1 SEQ   32767   24 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:37
01032/012   BCPL                     HDR             S   S          S0899 UBC50 FSNAME=BCPL.HDR.S.12                             205
            D4T3    452  BCPL.HDR.S.012                     1 LINE     71    1 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:39
01032/013   BCPL                     IO.S            SA  S          S0899 UBC50 FSNAME=BCPL.IO.S.S.13                            206
            D4T3    453  BCPL.IO.S.SA.013                   1 LINE     72   16 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:40
01032/014   BCPL                     LIB             OE  S          S0899 UBC50 FSNAME=BCPL.LIB.O.14                             207
            D4T3    454  BCPL.LIB.OE.014                    1 SEQ   11616    4 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:46
01032/015   BCPL                     MACLIB          SM  S          S0899 UBC50 FSNAME=BCPL.MACLIB.SM.15                         208
            D4T3    455  BCPL.MACLIB.SM.015                 1 LINE     66    1 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:47
01032/016   BCPL                     MON.S           SA  S          S0899 UBC50 FSNAME=BCPL.MON.S.S.16                           209
            D4T3    456  BCPL.MON.S.SA.016                  1 LINE     70    6 PAGE UBC  MANIS     OGDEN     MAR. 25, 1976  09:36:49
01032/017   BCPL                     LANGUAGE.DESC   WF             S0899 UBC50 FSNAME=BCPL.LANGUAGE.DESC.WF.17                  210
            D4T3    457  BCPL.LANGUAGE.DESC.WF.017          1 LINE    164   29 PAGE UBC  MANIS     OGDEN     MAY  04, 1976  09:59:19
0          COMPREHENSIVE DOCUMENT DESCRIBING THE BCPL LANGUAGE.
01033/001   COURSEWRITER             COURSES         M   S          S0899 UBC50 FSNAME=COURSEWRITER.COURSES.M.01                 211
            D4T3    458  COURSEWRITER.COURSES.M.001         1 LINE     74    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:04
0          THE MTS IMPLEMENTATION OF THIS VERSION OF COURSEWRITER WAS NOT DONE
           BY THE UBC COMPUTING CENTRE, BUT BY BILL WEBB OF THE UBC DEPARTMENT
           OF ANIMAL RESOURCE ECOLOGY.  THE SUBCOMPONENT NAMED "INSTRUCTIONS"
           (1033/54) TELLS ABOUT HOW TO GENERATE A COURSEWRITER SYSTEM; AND THE
           SUBCOMPONENT NAMED "DIRECTORY" (1033/18) TELLS ABOUT SOME OF THE FILES.
           AT UM, COURSEWRITER IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
1                                                                                               FRI AUG 02/96   16:11:27   Page  360
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
+         ______________ _____________________
01033/002   COURSEWRITER             WEBB.Q          OC  S          S0899 UBC50 FSNAME=COURSEWRITER.WEBB.Q.O.02                  212
            D4T3    459  COURSEWRITER.WEBB.Q.OC.002         1 LINE     25    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:05
01033/003   COURSEWRITER             HELP            M   S          S0899 UBC50 FSNAME=COURSEWRITER.HELP.M.03                    213
            D4T3    460  COURSEWRITER.HELP.M.003            1 LINE     74    4 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:06
01033/004   COURSEWRITER             SYSLIB          OE  S          S0899 UBC50 FSNAME=COURSEWRITER.SYSLIB.OE.04                 214
            D4T3    461  COURSEWRITER.SYSLIB.OE.004         1 SEQ    2826    5 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:07
01033/005   COURSEWRITER             CAL             OE  S          S0899 UBC50 FSNAME=COURSEWRITER.CAL.OE.05                    215
            D4T3    462  COURSEWRITER.CAL.OE.005            1 SEQ    7660    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:10
01033/006   COURSEWRITER             AUTHOR          OE  S          S0899 UBC50 FSNAME=COURSEWRITER.AUTHOR.OE.06                 216
            D4T3    463  COURSEWRITER.AUTHOR.OE.006         1 SEQWL 32767   11 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:11
01033/007   COURSEWRITER             STUDENT         OE  S          S0899 UBC50 FSNAME=COURSEWRITER.STUDENT.OE.07                217
            D4T3    464  COURSEWRITER.STUDENT.OE.007        1 SEQWL 32094    9 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:14
01033/008   COURSEWRITER             LABELS          OE  S          S0899 UBC50 FSNAME=COURSEWRITER.LABELS.O.08                  218
            D4T3    465  COURSEWRITER.LABELS.OE.008         1 LINE    255    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:16
01033/009   COURSEWRITER             AUTHOR.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.AUTHOR.S.SA.09               219
            D4T3    466  COURSEWRITER.AUTHOR.S.SA.009       1 LINE     72   14 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:18
01033/010   COURSEWRITER             CAILCS.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.CAILCS.S.SA.10               220
            D4T3    467  COURSEWRITER.CAILCS.S.SA.010       1 LINE     72    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:21
01033/011   COURSEWRITER             CAL.S           SA  S          S0899 UBC50 FSNAME=COURSEWRITER.CAL.S.SA.11                  221
            D4T3    468  COURSEWRITER.CAL.S.SA.011          1 LINE     72    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:22
01033/012   COURSEWRITER             CALC.S          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.CALC.S.SA.12                 222
            D4T3    469  COURSEWRITER.CALC.S.SA.012         1 LINE     70    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:24
01033/013   COURSEWRITER             CAL.ASM         C   S          S0899 UBC50 FSNAME=COURSEWRITER.CAL.ASM.C.13                 223
            D4T3    470  COURSEWRITER.CAL.ASM.C.013         1 LINE     91    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:25
01033/014   COURSEWRITER             LINK.ASM        C   S          S0899 UBC50 FSNAME=COURSEWRITER.LINK.ASM.C.14                224
            D4T3    471  COURSEWRITER.LINK.ASM.C.014        1 LINE     93    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:26
01033/015   COURSEWRITER             WEBB.ASM        C   S          S0899 UBC50 FSNAME=COURSEWRITER.WEBB.ASM.C.15                225
            D4T3    472  COURSEWRITER.WEBB.ASM.C.015        1 LINE     82    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:27
01033/016   COURSEWRITER             SYSLIB.ASM      C   S          S0899 UBC50 FSNAME=COURSEWRITER.SYSLIB.ASM.C.16              226
            D4T3    473  COURSEWRITER.SYSLIB.ASM.C.016      1 LINE     82    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:28
01033/017   COURSEWRITER             MACLIB          SM  S          S0899 UBC50 FSNAME=COURSEWRITER.MACLIB.SM.17                 227
            D4T3    474  COURSEWRITER.MACLIB.SM.017         1 LINE     61    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:29
01033/018   COURSEWRITER             DIRECTORY       P   S          S0899 UBC50 FSNAME=COURSEWRITER.DIRECTORY.P.18               228
            D4T3    475  COURSEWRITER.DIRECTORY.P.018       1 LINE     81    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:30
0          Referenced by comments of: 1033/1 
1                                                                                               FRI AUG 02/96   16:11:27   Page  361
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
+         ______________ _____________________
01033/019   COURSEWRITER             CHAIN.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.CHAIN.S.SA.19                229
            D4T3    476  COURSEWRITER.CHAIN.S.SA.019        1 LINE     72    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:31
01033/020   COURSEWRITER             SYSGEN          C   S          S0899 UBC50 FSNAME=COURSEWRITER.SYSGEN.C.20                  230
            D4T3    477  COURSEWRITER.SYSGEN.C.020          1 LINE     60    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:33
01033/021   COURSEWRITER             CAL.BATCH       C   S          S0899 UBC50 FSNAME=COURSEWRITER.CAL.BATCH.C.21               231
            D4T3    478  COURSEWRITER.CAL.BATCH.C.021       1 LINE     75    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:35
01033/022   COURSEWRITER             CHKSAVE.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.CHKSAVE.S.SA.22              232
            D4T3    479  COURSEWRITER.CHKSAVE.S.SA.022      1 LINE     93    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:53
01033/023   COURSEWRITER             CMDN.S          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.CMDN.S.SA.23                 233
            D4T3    480  COURSEWRITER.CMDN.S.SA.023         1 LINE     47    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:54
01033/024   COURSEWRITER             CWRIT2          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.CWRIT2.SA.24                 234
            D4T3    481  COURSEWRITER.CWRIT2.SA.024         1 LINE     73    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:55
01033/025   COURSEWRITER             DEFLT.S         SF  S          S0899 UBC50 FSNAME=COURSEWRITER.DEFLT.S.SF.25                235
            D4T3    482  COURSEWRITER.DEFLT.S.SF.025        1 LINE     67    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:56
01033/026   COURSEWRITER             DEFVAR.S        SF  S          S0899 UBC50 FSNAME=COURSEWRITER.DEFVAR.S.SF.26               236
            D4T3    483  COURSEWRITER.DEFVAR.S.SF.026       1 LINE     63    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:57
01033/027   COURSEWRITER             DO.S            SA  S          S0899 UBC50 FSNAME=COURSEWRITER.DO.S.SA.27                   237
            D4T3    484  COURSEWRITER.DO.S.SA.027           1 LINE     67    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:58
01033/028   COURSEWRITER             DUMMIES.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.DUMMIES.S.SA.28              238
            D4T3    485  COURSEWRITER.DUMMIES.S.SA.028      1 LINE     67    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:38:59
01033/029   COURSEWRITER             DUMP.S          SF  S          S0899 UBC50 FSNAME=COURSEWRITER.DUMP.S.SF.29                 239
            D4T3    486  COURSEWRITER.DUMP.S.SF.029         1 LINE     61    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:00
01033/030   COURSEWRITER             ECB.DS          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.ECB.DS.SA.30                 240
            D4T3    487  COURSEWRITER.ECB.DS.SA.030         1 LINE     68    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:01
01033/031   COURSEWRITER             ENDSTUD.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.ENDSTUD.S.SA.31              241
            D4T3    488  COURSEWRITER.ENDSTUD.S.SA.031      1 LINE     20    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:02
01033/032   COURSEWRITER             EQCLC.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EQCLC.S.SA.32                242
            D4T3    489  COURSEWRITER.EQCLC.S.SA.032        1 SEQ      53    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:03
01033/033   COURSEWRITER             EVAL.S          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EVAL.S.SA.33                 243
            D4T3    490  COURSEWRITER.EVAL.S.SA.033         1 LINE     73    8 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:04
01033/034   COURSEWRITER             EVALDEF.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EVALDEF.S.SA.34              244
            D4T3    491  COURSEWRITER.EVALDEF.S.SA.034      1 LINE     62    4 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:06
01033/035   COURSEWRITER             EVALGET.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EVALGET.S.SA.35              245
            D4T3    492  COURSEWRITER.EVALGET.S.SA.035      1 LINE     57    4 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:07
1                                                                                               FRI AUG 02/96   16:11:27   Page  362
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
+         ______________ _____________________
01033/036   COURSEWRITER             EVALI.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EVALI.S.SA.36                246
            D4T3    493  COURSEWRITER.EVALI.S.SA.036        1 LINE     71    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:09
01033/037   COURSEWRITER             EVALOPS.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EVALOPS.S.SA.37              247
            D4T3    494  COURSEWRITER.EVALOPS.S.SA.037      1 LINE     68    8 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:10
01033/038   COURSEWRITER             EVALOPT.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EVALOPT.S.SA.38              248
            D4T3    495  COURSEWRITER.EVALOPT.S.SA.038      1 LINE     69    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:12
01033/039   COURSEWRITER             EVALRAND.S      SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EVALRAND.S.SA.39             249
            D4T3    496  COURSEWRITER.EVALRAND.S.SA.039     1 LINE     63    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:13
01033/040   COURSEWRITER             EVALSTOP.S      SA  S          S0899 UBC50 FSNAME=COURSEWRITER.EVALSTOP.S.SA.40             250
            D4T3    497  COURSEWRITER.EVALSTOP.S.SA.040     1 LINE     76    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:14
01033/041   COURSEWRITER             FAKGSP.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.FAKGSP.S.SA.41               251
            D4T3    498  COURSEWRITER.FAKGSP.S.SA.041       1 LINE     73    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:15
01033/042   COURSEWRITER             FDGET.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.FDGET.S.SA.42                252
            D4T3    499  COURSEWRITER.FDGET.S.SA.042        1 LINE     25    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:16
01033/043   COURSEWRITER             FN.DS           SA  S          S0899 UBC50 FSNAME=COURSEWRITER.FN.DS.SA.43                  253
            D4T3    500  COURSEWRITER.FN.DS.SA.043          1 LINE     72    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:22
01033/044   COURSEWRITER             GCONVERT.S      SA  S          S0899 UBC50 FSNAME=COURSEWRITER.GCONVERT.S.SA.44             254
            D4T3    501  COURSEWRITER.GCONVERT.S.SA.044     1 LINE     70    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:24
01033/045   COURSEWRITER             GETLABS.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.GETLABS.S.SA.45              255
            D4T3    502  COURSEWRITER.GETLABS.S.SA.045      1 LINE     67    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:25
01033/046   COURSEWRITER             GETSAVE.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.GETSAVE.S.SA.46              256
            D4T3    503  COURSEWRITER.GETSAVE.S.SA.046      1 LINE     64    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:27
01033/047   COURSEWRITER             GO.S            SA  S          S0899 UBC50 FSNAME=COURSEWRITER.GO.S.SA.47                   257
            D4T3    504  COURSEWRITER.GO.S.SA.047           1 LINE     67    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:28
01033/048   COURSEWRITER             HASH.S          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.HASH.S.SA.48                 258
            D4T3    505  COURSEWRITER.HASH.S.SA.048         1 LINE     91   10 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:30
01033/049   COURSEWRITER             HCONVERT.S      SA  S          S0899 UBC50 FSNAME=COURSEWRITER.HCONVERT.S.SA.49             259
            D4T3    506  COURSEWRITER.HCONVERT.S.SA.049     1 LINE     63    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:32
01033/050   COURSEWRITER             IHASHF.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.IHASHF.S.SA.50               260
            D4T3    507  COURSEWRITER.IHASHF.S.SA.050       1 SEQWL    67    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:34
01033/051   COURSEWRITER             INBITS.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.INBITS.S.SA.51               261
            D4T3    508  COURSEWRITER.INBITS.S.SA.051       1 LINE     72    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:35
01033/052   COURSEWRITER             INFREE.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.INFREE.S.SA.52               262
            D4T3    509  COURSEWRITER.INFREE.S.SA.052       1 SEQWL    17    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:37
1                                                                                               FRI AUG 02/96   16:11:27   Page  363
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
+         ______________ _____________________
01033/053   COURSEWRITER             INFREE#.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.INFREE#.S.SA.53              263
            D4T3    510  COURSEWRITER.INFREE#.S.SA.053      1 LINE     73   14 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:38
01033/054   COURSEWRITER             INSTRUCTIONS    P   S          S0899 UBC50 FSNAME=COURSEWRITER.INSTRUCTIONS.P.54            264
            D4T3    511  COURSEWRITER.INSTRUCTIONS.P.054    1 LINE     72    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:41
0          Referenced by comments of: 1033/1 
01033/055   COURSEWRITER             WEBB.MACLIB     SM  S          S0899 UBC50 FSNAME=COURSEWRITER.WEBB.MACLIB.SM.55            265
            D4T3    512  COURSEWRITER.WEBB.MACLIB.SM.055    1 LINE     79   23 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:42
01033/056   COURSEWRITER             IOT.S           SA  S          S0899 UBC50 FSNAME=COURSEWRITER.IOT.S.SA.56                  266
            D4T3    513  COURSEWRITER.IOT.S.SA.056          1 LINE     56    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:46
01033/057   COURSEWRITER             LCONVERT.S      SA  S          S0899 UBC50 FSNAME=COURSEWRITER.LCONVERT.S.SA.57             267
            D4T3    514  COURSEWRITER.LCONVERT.S.SA.057     1 LINE     66    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:47
01033/058   COURSEWRITER             LD.S            SA  S          S0899 UBC50 FSNAME=COURSEWRITER.LD.S.SA.58                   268
            D4T3    515  COURSEWRITER.LD.S.SA.058           1 LINE     72    4 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:49
01033/059   COURSEWRITER             LEN.S           SA  S          S0899 UBC50 FSNAME=COURSEWRITER.LEN.S.SA.59                  269
            D4T3    516  COURSEWRITER.LEN.S.SA.059          1 LINE     56    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:50
01033/060   COURSEWRITER             LINKF.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.LINKF.S.SA.60                270
            D4T3    517  COURSEWRITER.LINKF.S.SA.060        1 LINE     67    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:52
01033/061   COURSEWRITER             LKECB.DS        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.LKECB.DS.SA.61               271
            D4T3    518  COURSEWRITER.LKECB.DS.SA.061       1 LINE     68    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:53
01033/062   COURSEWRITER             LOADFN.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.LOADFN.S.SA.62               272
            D4T3    519  COURSEWRITER.LOADFN.S.SA.062       1 LINE     71    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:56
01033/063   COURSEWRITER             LOOKUP.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.LOOKUP.S.SA.63               273
            D4T3    520  COURSEWRITER.LOOKUP.S.SA.063       1 LINE     63    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:39:59
01033/064   COURSEWRITER             MAIL.S          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.MAIL.S.SA.64                 274
            D4T3    521  COURSEWRITER.MAIL.S.SA.064         1 LINE     10    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:02
01033/065   COURSEWRITER             MASKMV.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.MASKMV.S.SA.65               275
            D4T3    522  COURSEWRITER.MASKMV.S.SA.065       1 LINE     92    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:03
01033/066   COURSEWRITER             MASKMV#.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.MASKMV#.S.SA.66              276
            D4T3    523  COURSEWRITER.MASKMV#.S.SA.066      1 LINE     93    5 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:05
01033/067   COURSEWRITER             MASKSP.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.MASKSP.S.SA.67               277
            D4T3    524  COURSEWRITER.MASKSP.S.SA.067       1 LINE     67    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:07
01033/068   COURSEWRITER             MPTR.S          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.MPTR.S.SA.68                 278
            D4T3    525  COURSEWRITER.MPTR.S.SA.068         1 LINE     49    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:08
01033/069   COURSEWRITER             OPTEST.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.OPTEST.S.SA.69               279
            D4T3    526  COURSEWRITER.OPTEST.S.SA.069       1 LINE     72    9 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:10
1                                                                                               FRI AUG 02/96   16:11:27   Page  364
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
+         ______________ _____________________
01033/070   COURSEWRITER             PLIST.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.PLIST.S.SA.70                280
            D4T3    527  COURSEWRITER.PLIST.S.SA.070        1 LINE     58    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:13
01033/071   COURSEWRITER             PMSG.S          SA  S          S0899 UBC50 FSNAME=COURSEWRITER.PMSG.S.SA.71                 281
            D4T3    528  COURSEWRITER.PMSG.S.SA.071         1 LINE     72    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:14
01033/072   COURSEWRITER             PUTLABS.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.PUTLABS.S.SA.72              282
            D4T3    529  COURSEWRITER.PUTLABS.S.SA.072      1 LINE     58    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:15
01033/073   COURSEWRITER             PUTSAVE.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.PUTSAVE.S.SA.73              283
            D4T3    530  COURSEWRITER.PUTSAVE.S.SA.073      1 LINE     64    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:17
01033/074   COURSEWRITER             READPW.S        SF  S          S0899 UBC50 FSNAME=COURSEWRITER.READPW.S.SF.74               284
            D4T3    531  COURSEWRITER.READPW.S.SF.074       1 LINE     73    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:19
01033/075   COURSEWRITER             RELFD.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.RELFD.S.SA.75                285
            D4T3    532  COURSEWRITER.RELFD.S.SA.075        1 LINE     64    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:21
01033/076   COURSEWRITER             RESET.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.RESET.S.SA.76                286
            D4T3    533  COURSEWRITER.RESET.S.SA.076        1 LINE     72    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:22
01033/077   COURSEWRITER             RPERM.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.RPERM.S.SA.77                287
            D4T3    534  COURSEWRITER.RPERM.S.SA.077        1 SEQWL    65    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:23
01033/078   COURSEWRITER             SAVE.DS         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.SAVE.DS.SA.78                288
            D4T3    535  COURSEWRITER.SAVE.DS.SA.078        1 LINE     72    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:25
01033/079   COURSEWRITER             SETPW.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.SETPW.S.SA.79                289
            D4T3    536  COURSEWRITER.SETPW.S.SA.079        1 LINE     60    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:27
01033/080   COURSEWRITER             STUDENT.DS      SA  S          S0899 UBC50 FSNAME=COURSEWRITER.STUDENT.DS.SA.80             290
            D4T3    537  COURSEWRITER.STUDENT.DS.SA.080     1 LINE     72    3 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:28
01033/081   COURSEWRITER             STUDENT.S       SA  S          S0899 UBC50 FSNAME=COURSEWRITER.STUDENT.S.SA.81              291
            D4T3    538  COURSEWRITER.STUDENT.S.SA.081      1 LINE    113   24 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:30
01033/082   COURSEWRITER             TYPER.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.TYPER.S.SA.82                292
            D4T3    539  COURSEWRITER.TYPER.S.SA.082        1 LINE     71    5 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:34
01033/083   COURSEWRITER             VLOOK.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.VLOOK.S.SA.83                293
            D4T3    540  COURSEWRITER.VLOOK.S.SA.083        1 LINE     58    2 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:36
01033/084   COURSEWRITER             XCTLF.S         SA  S          S0899 UBC50 FSNAME=COURSEWRITER.XCTLF.S.SA.84                294
            D4T3    541  COURSEWRITER.XCTLF.S.SA.084        1 LINE     72    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:38
01033/085   COURSEWRITER             WEBB.O          OC  S          S0899 UBC50 FSNAME=COURSEWRITER.WEBB.O.O.85                  295
            D4T3    542  COURSEWRITER.WEBB.O.OC.085         1 SEQ      80    8 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:41
01033/086   COURSEWRITER             WBLIB           OL  S          S0899 UBC50 FSNAME=COURSEWRITER.WBLIB.OL.86                  296
            D4T3    543  COURSEWRITER.WBLIB.OL.086          1 SEQ     252    9 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:43
1                                                                                               FRI AUG 02/96   16:11:27   Page  365
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
+         ______________ _____________________
01033/087   COURSEWRITER             LKLIB           OL  S          S0899 UBC50 FSNAME=COURSEWRITER.LKLIB.OL.87                  297
            D4T3    544  COURSEWRITER.LKLIB.OL.087          1 SEQ     528    8 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:45
01033/088   COURSEWRITER             MAIL.O          OC  S          S0899 UBC50 FSNAME=COURSEWRITER.MAIL.O.O.88                  298
            D4T3    545  COURSEWRITER.MAIL.O.OC.088         1 LINE     80    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:47
01033/089   COURSEWRITER             CAL.O           OC  S          S0899 UBC50 FSNAME=COURSEWRITER.CAL.O.O.89                   299
            D4T3    546  COURSEWRITER.CAL.O.OC.089          1 SEQ      80    7 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:49
01033/090   COURSEWRITER             LABELS.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.LABELS.S.SA.90               300
            D4T3    547  COURSEWRITER.LABELS.S.SA.090       1 LINE     73    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:51
01033/091   COURSEWRITER             SYSLIB.O        OE  S          S0899 UBC50 FSNAME=COURSEWRITER.SYSLIB.O.O.91                301
            D4T3    548  COURSEWRITER.SYSLIB.O.OE.091       1 SEQ    1514   17 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:40:52
01033/092   COURSEWRITER             JOAN:ANOVA      D   S          S0899 UBC50 FSNAME=COURSEWRITER.JOAN:ANOVA.D.92              302
            D4T3    549  COURSEWRITER.JOAN:ANOVA.D.092      1 LINE     75   92 PAGE UBC  OSTERLIN  OGDEN     JUNE 18, 1976  14:36:52
0          A DEMONSTRATION COURSE ABOUT ANALYSIS OF VARIANCE.
01033/093   COURSEWRITER             CAI:STOCK       D   S          S0899 UBC50 FSNAME=COURSEWRITER.CAI:STOCK.D.93               303
            D4T3    550  COURSEWRITER.CAI:STOCK.D.093       1 LINE    100    4 PAGE UBC  OSTERLIN  OGDEN     JUNE 18, 1976  14:37:38
0          A DEMONSTRATION COURSE ABOUT BUYING AND SELLING STOCKS.
01033/094   COURSEWRITER             FDINFO.S        SA  S          S0899 UBC50 FSNAME=COURSEWRITER.FDINFO.S.SA.94               304
            D4T3    551  COURSEWRITER.FDINFO.S.SA.094       1 LINE     57    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:41:22
01033/095   COURSEWRITER             F3270.S         SF  S          S0899 UBC50 FSNAME=COURSEWRITER.F3270.S.SA.95                305
            D4T3    552  COURSEWRITER.F3270.S.SF.095        1 LINE     39    1 PAGE UBC  OSTERLIN  OGDEN     JUNE 04, 1976  10:41:24
01036/001   CONTEXT-DIRECTED UPDATE                  SS  G          MTS:UBCUPDATE.S                                                 
            D4T3    553  CONTEXT-DIRECTED_UPDATE..SS.001    1 LINE    105   16 PAGE UBC  BALLARD   SHERRY    JULY 29, 1977  00:21:37
0          SPITBOL SOURCE FOR THE UBC, CONTEXT-DIRECTED, MULTILEVEL UPDATE PROGRAM.
01036/002   CONTEXT-DIRECTED UPDATE                  OC  G          MTS:UBCUPDATE                                                   
            D4T3    554  CONTEXT-DIRECTED_UPDATE..OC.002    1 LINE     80   14 PAGE UBC  BALLARD   SHERRY    JULY 29, 1977  00:21:40
0          HAS A "$CONTINUE WITH NEW.:SPITLIB" CARD.
01036/003   CONTEXT-DIRECTED UPDATE  WRITEUP         PF             MTS:UBCUPDATE.W                                                 
            D4T3    555  CONTEXT-DIRECTED_UPDATE.W.PF.003   1 LINE    133   10 PAGE UBC  BALLARD   SHERRY    JULY 29, 1977  00:21:43
0          WRITEUP DESCRIBING CONTEXT-DIRECTED UPDATE PROGRAM.  COPY TO A TN PRINTER.
03000/001  *LIBUTIL                  NOECMD                       # (OBSOLETE)                                                      
                                                                                    UQV  JACKSON   DWB                              
0          USE OF THIS SUBROUTINE SHOULD ELIMINATED IN FAVO(U)R OF THE MTS SUBROUTINE CMDNOE.  -- DWB 6/76
1                                                                                               FRI AUG 02/96   16:11:27   Page  366
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
+         ______________ _____________________
03003/001  *SPIRES                   DIST NOTES      WF             S0184 SPIRES FSNAME=D4.DISTNOTES                                
            D4T3    556  SPIRES.DIST_NOTES.WF.001           1 LINE    139   18 PAGE UM   STERKEN             JULY 01, 1977  22:18:37
0          SPIRES (THE STANFORD PUBLIC INFORMATION RETRIEVAL SYSTEM) IS A PROPRIETARY
           INFORMATION RETRIEVAL SYSTEM FROM STANFORD UNIVERSITY, STANFORD, CALIFORNIA.
           THE MTS DISTRIBUTION CONSISTS ONLY OF UPDATES TO THE STANFORD SOURCE (WHICH
           MUST BE OBTAINED DIRECTLY FROM STANFORD) WHICH MODIFY SPIRES TO RUN IN MTS.
            
           3003/1 AND THE GENSYS $SOURCE FILES, CONTAIN ALL THE NECESARY INSTRUCTIONS
           FOR INSTALLING SPIRES IN MTS.
03003/002  *SPIRES                   D4.GENSYS.1     C              S0184 SPIRES FSNAME=D4.GENSYS.1                                 
            D4T3    557  SPIRES.D4.GENSYS.1.C.002           1 LINE     69    4 PAGE UM   STERKEN             JUNE 25, 1977  11:02:34
0          MTS COMMANDS FOR INITIALIZING DBMS, READING IN FILES FROM THE DISTRIBUTION
           TAPE, AND EXPANDING THE *UPDATE AND *UNEDIT DECKS FOR THE D4 VERSION.
03003/003  *SPIRES                   D3.GENSYS.1     C              S0184 SPIRES FSNAME=D3.GENSYS.1                                 
            D4T3    558  SPIRES.D3.GENSYS.1.C.003           1 LINE     69    4 PAGE UM   STERKEN             JUNE 25, 1977  11:02:36
0          MTS COMMANDS FOR INITIALIZING DBMS, READING IN FILES FROM THE DISTRIBUTION
           TAPE, AND EXPANDING THE *UPDATE AND *UNEDIT DECKS FOR THE D3 VERSION.
03003/004  *SPIRES                   D4.GENSYS.2     C              S0184 SPIRES FSNAME=D4.GENSYS.2                                 
            D4T3    559  SPIRES.D4.GENSYS.2.C.004           1 LINE     83    2 PAGE UM   STERKEN             JUNE 25, 1977  11:02:39
0          MTS COMMANDS TO COMPILE AND ASSEMBLE THE PL360 AND ASMG MODULES FOR D4 VERSION.
03003/005  *SPIRES                   D3.GENSYS.2     C              S0184 SPIRES FSNAME=D3.GENSYS.2                                 
            D4T3    560  SPIRES.D3.GENSYS.2.C.005           1 LINE     83    2 PAGE UM   STERKEN             JUNE 25, 1977  11:02:41
0          MTS COMMANDS TO COMPILE AND ASSEMBLE THE PL360 AND ASMG MODULES FOR D3 VERSION.
03003/006  *SPIRES                   D4.GENSYS.3     C              S0184 SPIRES FSNAME=D4.GENSYS.3                                 
            D4T3    561  SPIRES.D4.GENSYS.3.C.006           1 LINE     81    1 PAGE UM   STERKEN             JUNE 25, 1977  11:02:43
0          MTS COMMANDS TO LINKEDIT THE SPIRES PROCESSORS FOR THE D4 VERSION.
03003/007  *SPIRES                   D3.GENSYS.3     C              S0184 SPIRES FSNAME=D3.GENSYS.3                                 
            D4T3    562  SPIRES.D3.GENSYS.3.C.007           1 LINE     81    1 PAGE UM   STERKEN             JUNE 25, 1977  11:02:45
0          MTS COMMANDS TO LINKEDIT THE SPIRES PROCESSORS FOR THE D3 VERSION.
03003/008  *SPIRES                   D4.GENSYS.4     C              S0184 SPIRES FSNAME=D4.GENSYS.4                                 
            D4T3    563  SPIRES.D4.GENSYS.4.C.008           1 LINE     66    1 PAGE UM   STERKEN             JUNE 25, 1977  11:02:47
0          MTS COMMANDS TO GENERATE THE NON-SHARED D4 VERSION OF SPIRES.
03003/009  *SPIRES                   D3.GENSYS.4     C              S0184 SPIRES FSNAME=D3.GENSYS.4                                 
            D4T3    564  SPIRES.D3.GENSYS.4.C.009           1 LINE     66    1 PAGE UM   STERKEN             JUNE 25, 1977  11:02:49
0          MTS COMMANDS TO GENERATE THE NON-SHARED D3 VERSION OF SPIRES.
1                                                                                               FRI AUG 02/96   16:11:27   Page  367
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
+         ______________ _____________________
03003/010  *SPIRES                   D4.GENSYS.5     C              S0184 SPIRES FSNAME=D4.GENSYS.5                                 
            D4T3    565  SPIRES.D4.GENSYS.5.C.010           1 LINE     68    1 PAGE UM   STERKEN             JUNE 25, 1977  11:02:51
0          MTS COMMANDS TO GENERATE THE SHARED D4 VERSION OF SPIRES.
03003/011  *SPIRES                   D3.GENSYS.5     C              S0184 SPIRES FSNAME=D3.GENSYS.5                                 
            D4T3    566  SPIRES.D3.GENSYS.5.C.011           1 LINE     68    1 PAGE UM   STERKEN             JUNE 25, 1977  11:02:53
0          MTS COMMANDS TO GENERATE THE SHARED D3 VERSION OF SPIRES.
03003/012  *SPIRES                   *FS TAPE GEN    C              S0184 SPIRES FSNAME=D4.GENDIST                                  
            D4T3    567  SPIRES.*FS_TAPE_GEN.C.012          1 LINE     87    7 PAGE UM   STERKEN             JULY 01, 1977  22:32:47
0          MTS COMMANDS TO GENERATE THE SPIRES *FS TAPE.  THIS FILE IS INCLUDED ONLY FOR
           INFORMATIONAL PURPOSES.
03003/013  *SPIRES                   DPCRT           UU  G          S0184 SPIRES FSNAME=DPCRT.UU                                    
            D4T3    568  SPIRES.DPCRT.UU.013                1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:02:59
0          *UPDATE DECK FOR DPCRT.
03003/014  *SPIRES                   DSDSECTS        UU  G          S0184 SPIRES FSNAME=DSDSECTS.UU                                 
            D4T3    569  SPIRES.DSDSECTS.UU.014             1 LINE     19    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:01
0          *UPDATE DECK FOR DSDSECTS.
03003/015  *SPIRES                   DSERVICE        UU  G          S0184 SPIRES FSNAME=DSERVICE.UU                                 
            D4T3    570  SPIRES.DSERVICE.UU.015             1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:03
0          *UPDATE DECK FOR DSERVICE.
03003/016  *SPIRES                   FDINTFCE        UU  G          S0184 SPIRES FSNAME=FDINTFCE.UU                                 
            D4T3    571  SPIRES.FDINTFCE.UU.016             1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:05
0          *UPDATE DECK FOR FDINTFCE.
03003/017  *SPIRES                   FILESERV        UU  G          S0184 SPIRES FSNAME=FILESERV.UU                                 
            D4T3    572  SPIRES.FILESERV.UU.017             1 LINE     80    4 PAGE UM   STERKEN             JUNE 25, 1977  11:03:07
0          *UPDATE DECK FOR FILESERV.
03003/018  *SPIRES                   FORMATS         UU  G          S0184 SPIRES FSNAME=FORMATS.UU                                  
            D4T3    573  SPIRES.FORMATS.UU.018              1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:09
0          *UPDATE DECK FOR FORMATS.
03003/019  *SPIRES                   INPROC          UU  G          S0184 SPIRES FSNAME=INPROC.UU                                   
            D4T3    574  SPIRES.INPROC.UU.019               1 LINE     80    2 PAGE UM   STERKEN             JUNE 25, 1977  11:03:11
0          *UPDATE DECK FOR INPROC.
1                                                                                               FRI AUG 02/96   16:11:27   Page  368
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
+         ______________ _____________________
03003/020  *SPIRES                   MSGDATA         UU  G          S0184 SPIRES FSNAME=MSGDATA.UU                                  
            D4T3    575  SPIRES.MSGDATA.UU.020              1 LINE     80    4 PAGE UM   STERKEN             JUNE 25, 1977  11:03:13
0          *UPDATE DECK FOR MSGDATA.
03003/021  *SPIRES                   MSGDOC          UU  G          S0184 SPIRES FSNAME=MSGDOC.UU                                   
            D4T3    576  SPIRES.MSGDOC.UU.021               1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:15
0          *UPDATE DECK FOR MSGDOC.
03003/022  *SPIRES                   MSG             UU  G          S0184 SPIRES FSNAME=MSG.UU                                      
            D4T3    577  SPIRES.MSG.UU.022                  1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:17
0          *UPDATE DECK FOR MSG.
03003/023  *SPIRES                   OUTPROC         UU  G          S0184 SPIRES FSNAME=OUTPROC.UU                                  
            D4T3    578  SPIRES.OUTPROC.UU.023              1 LINE     19    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:19
0          *UPDATE DECK FOR OUTPROC.
03003/024  *SPIRES                   PARDSECT        UU  G          S0184 SPIRES FSNAME=PARDSECT.UU                                 
            D4T3    579  SPIRES.PARDSECT.UU.024             1 LINE     19    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:21
0          *UPDATE DECK FOR PARDSECT.
03003/025  *SPIRES                   PARSEM          UU  G          S0184 SPIRES FSNAME=PARSEM.UU                                   
            D4T3    580  SPIRES.PARSEM.UU.025               1 LINE     80    2 PAGE UM   STERKEN             JUNE 25, 1977  11:03:22
0          *UPDATE DECK FOR PARSEM.
03003/026  *SPIRES                   PARSER          UU  G          S0184 SPIRES FSNAME=PARSER.UU                                   
            D4T3    581  SPIRES.PARSER.UU.026               1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:24
0          *UPDATE DECK FOR PARSER.
03003/027  *SPIRES                   PARTIAL         UU  G          S0184 SPIRES FSNAME=PARTIAL.UU                                  
            D4T3    582  SPIRES.PARTIAL.UU.027              1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:26
0          *UPDATE DECK FOR PARTIAL.
03003/028  *SPIRES                   PROCS           UU  G          S0184 SPIRES FSNAME=PROCS.UU                                    
            D4T3    583  SPIRES.PROCS.UU.028                1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:28
0          *UPDATE DECK FOR PROCS.
03003/029  *SPIRES                   R11DBILD        UU  G          S0184 SPIRES FSNAME=R11DBILD.UU                                 
            D4T3    584  SPIRES.R11DBILD.UU.029             1 LINE     19    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:30
0          *UPDATE DECK FOR R11DBILD.
03003/030  *SPIRES                   R11DSECT        UU  G          S0184 SPIRES FSNAME=R11DSECT.UU                                 
            D4T3    585  SPIRES.R11DSECT.UU.030             1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:32
0          *UPDATE DECK FOR R11DSECT.
1                                                                                               FRI AUG 02/96   16:11:27   Page  369
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
+         ______________ _____________________
03003/031  *SPIRES                   R12DSECT        UU  G          S0184 SPIRES FSNAME=R12DSECT.UU                                 
            D4T3    586  SPIRES.R12DSECT.UU.031             1 LINE     80    2 PAGE UM   STERKEN             JUNE 25, 1977  11:03:34
0          *UPDATE DECK FOR R12DSECT.
03003/032  *SPIRES                   SEARCH          UU  G          S0184 SPIRES FSNAME=SEARCH.UU                                   
            D4T3    587  SPIRES.SEARCH.UU.032               1 LINE     80    3 PAGE UM   STERKEN             JUNE 25, 1977  11:03:36
0          *UPDATE DECK FOR SEARCH.
03003/033  *SPIRES                   SPIBILD         UU  G          S0184 SPIRES FSNAME=SPIBILD.UU                                  
            D4T3    588  SPIRES.SPIBILD.UU.033              1 LINE     80   17 PAGE UM   STERKEN             JUNE 25, 1977  11:03:38
0          *UPDATE DECK FOR SPIBILD.
03003/034  *SPIRES                   SPICOMP         UU  G          S0184 SPIRES FSNAME=SPICOMP.UU                                  
            D4T3    589  SPIRES.SPICOMP.UU.034              1 LINE     80    6 PAGE UM   STERKEN             JUNE 25, 1977  11:03:42
0          *UPDATE DECK FOR SPICOMP.
03003/035  *SPIRES                   SPIRES          UU  G          S0184 SPIRES FSNAME=SPIRES.UU                                   
            D4T3    590  SPIRES.SPIRES.UU.035               1 LINE     80   13 PAGE UM   STERKEN             JUNE 25, 1977  11:03:44
0          *UPDATE DECK FOR SPIRES.
03003/036  *SPIRES                   UTILSERV        UU  G          S0184 SPIRES FSNAME=UTILSERV.UU                                 
            D4T3    591  SPIRES.UTILSERV.UU.036             1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:47
0          *UPDATE DECK FOR UTILSERV.
03003/037  *SPIRES                   ANALPARSER      UU  G          S0184 SPIRES FSNAME=ANALPARSER.UU                               
            D4T3    592  SPIRES.ANALPARSER.UU.037           1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:50
0          *UPDATE DECK FOR ANALPARSER.
03003/038  *SPIRES                   ANALSEMANT      UU  G          S0184 SPIRES FSNAME=ANALSEMANT.UU                               
            D4T3    593  SPIRES.ANALSEMANT.UU.038           1 LINE     80    6 PAGE UM   STERKEN             JUNE 25, 1977  11:03:52
0          *UPDATE DECK FOR ANALSEMANT.
03003/039  *SPIRES                   SPIRES BNF      UE  G          S0184 SPIRES FSNAME=SPIRES.BN.UE                                
            D4T3    594  SPIRES.SPIRES_BNF.UE.039           1 LINE     96    3 PAGE UM   STERKEN             JUNE 25, 1977  11:03:54
0          *UNEDIT DECK FOR THE SPIRES BNF.
03003/040  *SPIRES                   SPICOMP BNF     UE  G          S0184 SPIRES FSNAME=SPICOMP.BN.UE                               
            D4T3    595  SPIRES.SPICOMP_BNF.UE.040          1 LINE     64    1 PAGE UM   STERKEN             JUNE 25, 1977  11:03:56
0          *UNEDIT DECK FOR THE SPICOMP BNF.
03003/041  *SPIRES                   SPIBILD BNF     UE  G          S0184 SPIRES FSNAME=SPIBILD.BN.UE                               
            D4T3    596  SPIRES.SPIBILD_BNF.UE.041          1 LINE     66    3 PAGE UM   STERKEN             JUNE 25, 1977  11:03:58
0          *UNEDIT DECK FOR THE SPIBILD BNF.
1                                                                                               FRI AUG 02/96   16:11:27   Page  370
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
+         ______________ _____________________
03003/042  *SPIRES                   FASTBILD BNF    UE  G          S0184 SPIRES FSNAME=FAST.BN.UE                                  
            D4T3    597  SPIRES.FASTBILD_BNF.UE.042         1 LINE     82    3 PAGE UM   STERKEN             JUNE 25, 1977  11:04:00
0          *UNEDIT DECK FOR THE FASTBILD BNF.
03003/043  *SPIRES                   ANALYZER BNF    UE  G          S0184 SPIRES FSNAME=ANAL.BN.UE                                  
            D4T3    598  SPIRES.ANALYZER_BNF.UE.043         1 LINE     65    1 PAGE UM   STERKEN             JUNE 25, 1977  11:04:02
0          *UNEDIT DECK FOR THE ANALYZER BNF.
03003/044  *SPIRES                   ANALYZER        OC  O          S0184 SPIRES FSNAME=ANALYZER                                    
            D4T3    599  SPIRES.ANALYZER.OC.044             1 LINE     34    1 PAGE UM   STERKEN             JUNE 25, 1977  11:04:04
0          THIS FILE $CONTINUE WITHS THE PIECES OF THE SPIRES BNF ANALYZER:
           ANALPARSER.O, ANALSEMANT.O, ANALINTF.O, ANALDRIVER.O, AND ANAL.BN.O.
            
           TO USE IT:    $RUN ANALYZER SCARDS=<BNF SOURCE> SPUNCH=<BNF OBJECT> SPRINT=<LISTING>
                         ANALYZE
                         STOP
            
           THIS STAND-ALONE VERSION OF THE BNF ANALYZER NEEDS A LITTLE WORK IF IT IS TO
           BE USED MORE GENERALLY.
03003/045  *SPIRES                   ANALDRIVER.S    SA  O          S0184 SPIRES FSNAME=ANALDRIVER.S                                
            D4T3    600  SPIRES.ANALDRIVER.S.SA.045         1 LINE     71    1 PAGE UM   STERKEN             JUNE 25, 1977  11:04:06
0          DRIVER ROUTINES TO START UP THE BNF ANALYZER.  THE PROCEDURE IS SIMILAR TO THAT
           USED IN MTSINTF TO START UP THE OTHER SPIRES PROCESSORS.
03003/046  *SPIRES                   ANALINTF.S      S3  O          S0184 SPIRES FSNAME=ANALINTF.S                                  
            D4T3    601  SPIRES.ANALINTF.S.S3.046           1 LINE     72    3 PAGE UM   STERKEN             JUNE 25, 1977  11:04:08
0          A SET OF MTS-INTERFACE ROUTINES TO PROVIDE SYSTEM SERVICES FOR THE STAND-ALONE
           BNF ANALYZER.  THEIR FUNCTION IS SIMILAR TO THAT OF MTSINTF IN THE OTHER SPIRES
           PROCESSORS.
03003/047  *SPIRES                   ANAL.BN.O       OC  O          S0184 SPIRES FSNAME=ANAL.BN.O                                   
            D4T3    602  SPIRES.ANAL.BN.O.OC.047            1 LINE     80    1 PAGE UM   STERKEN             JUNE 25, 1977  11:04:10
0          COMPILED BNF OBJECT -- PARSER TABLES FOR THE SPIRES BNF ANALYZER.
03003/048  *SPIRES                   FAST.BN.O       OC  G          S0184 SPIRES FSNAME=FAST.BN.O                                   
            D4T3    603  SPIRES.FAST.BN.O.OC.048            1 LINE     80    2 PAGE UM   STERKEN             JUNE 25, 1977  11:04:12
0          COMPILED BNF OBJECT -- PARSER TABLES FOR FASTBILD.
03003/049  *SPIRES                   SPIBILD.BN.O    OC  G          S0184 SPIRES FSNAME=SPIBILD.BN.O                                
            D4T3    604  SPIRES.SPIBILD.BN.O.OC.049         1 LINE     80    2 PAGE UM   STERKEN             JUNE 25, 1977  11:04:14
0          COMPILED BNF OBJECT -- PARSER TABLES FOR SPIBILD.
1                                                                                               FRI AUG 02/96   16:11:27   Page  371
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
+         ______________ _____________________
03003/050  *SPIRES                   SPICOMP.BN.O    OC  G          S0184 SPIRES FSNAME=SPICOMP.BN.O                                
            D4T3    605  SPIRES.SPICOMP.BN.O.OC.050         1 LINE     80    4 PAGE UM   STERKEN             JUNE 25, 1977  11:04:16
0          COMPILED BNF OBJECT -- PARSER TABLES FOR SPICOMP.
03003/051  *SPIRES                   SPIRES.BN.O     OC  G          S0184 SPIRES FSNAME=SPIRES.BN.O                                 
            D4T3    606  SPIRES.SPIRES.BN.O.OC.051          1 LINE     80    6 PAGE UM   STERKEN             JUNE 25, 1977  11:04:18
0          COMPILED BNF OBJECT -- PARSER TABLES FOR SPIRES.
03003/052  *SPIRES                   AVEC.S          SA  G          S0184 SPIRES FSNAME=AVEC.S                                      
            D4T3    607  SPIRES.AVEC.S.SA.052               1 LINE     25    1 PAGE UM   STERKEN             JUNE 25, 1977  11:04:21
0          SHORT MODULE USED IN LINKING THE SPIRES MODULES TOGETHER.
03003/053  *SPIRES                   MTSINTF.S       SA  G          S0184 SPIRES FSNAME=MTSINTF.S                                   
            D4T3    608  SPIRES.MTSINTF.S.SA.053            1 LINE     83   91 PAGE UM   STERKEN             JUNE 25, 1977  11:04:23
0          MTS INTERFACE ROUTINES FOR SPIRES.
03003/054  *SPIRES                   MTSPRODS.S      S3  G          S0184 SPIRES FSNAME=MTSPRODS.S                                  
            D4T3    609  SPIRES.MTSPRODS.S.S3.054           1 LINE     70    4 PAGE UM   STERKEN             JUNE 25, 1977  11:05:21
0          GENERAL PURPOSE SEMANTIC MODULE USED IN IMPLEMENTING VARIOUS MTS-SPECIFIC FEATURES.
03003/055  *SPIRES                   SPIRLCS.S       SA  G          S0184 SPIRES FSNAME=SPIRLCS.S                                   
            D4T3    610  SPIRES.SPIRLCS.S.SA.055            1 LINE     62    1 PAGE UM   STERKEN             JUNE 25, 1977  11:05:23
0          "SPIRLCS" LOWCORE SYMBOL TABLE USED BY THE SHARED VM VERSION OF SPIRES.
03003/056  *SPIRES                   ACTIONS.BI      D              S0184 SPIRES FSNAME=ACTIONS.BI                                  
            D4T3    611  SPIRES.ACTIONS.BI.D.056            1 LINE     73   20 PAGE UM   STERKEN             JUNE 25, 1977  11:05:25
0          SOURCE INPUT RECORDS FOR THE ACTIONS SUBFILE.
03003/057  *SPIRES                   EXPLAIN.BI      D              S0184 SPIRES FSNAME=EXPLAIN.BI                                  
            D4T3    612  SPIRES.EXPLAIN.BI.D.057            1 LINE     82   71 PAGE UM   STERKEN             JUNE 25, 1977  11:05:29
0          SOURCE INPUT RECORDS FOR THE EXPLAIN SUBFILE.
03003/058  *SPIRES                   FILEDEF.BI      D              S0184 SPIRES FSNAME=FILEDEF.BI                                  
            D4T3    613  SPIRES.FILEDEF.BI.D.058            1 LINE     73   21 PAGE UM   STERKEN             JUNE 25, 1977  11:05:37
0          SOURCE INPUT RECORDS FOR THE FILEDEF SUBFILE.
03003/059  *SPIRES                   FORMATS.BI      D              S0184 SPIRES FSNAME=FORMATS.BI                                  
            D4T3    614  SPIRES.FORMATS.BI.D.059            1 LINE     73   17 PAGE UM   STERKEN             JUNE 25, 1977  11:05:42
0          SOURCE INPUT RECORDS FOR THE FORMATS SUBFILE.
03003/060  *SPIRES                   MESSAGES.BI     D              S0184 SPIRES FSNAME=MESSAGES.BI                                 
            D4T3    615  SPIRES.MESSAGES.BI.D.060           1 LINE     73   31 PAGE UM   STERKEN             JUNE 25, 1977  11:05:46
0          SOURCE INPUT RECORDS FOR THE MESSAGES SUBFILE.
1                                                                                               FRI AUG 02/96   16:11:27   Page  372
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
+         ______________ _____________________
03003/061  *SPIRES                   PROTOCOL.BI     D              S0184 SPIRES FSNAME=PROTOCOL.BI                                 
            D4T3    616  SPIRES.PROTOCOL.BI.D.061           1 LINE     72    9 PAGE UM   STERKEN             JUNE 25, 1977  11:05:50
0          SOURCE INPUT RECORDS FOR THE PROTOCOL SUBFILE -- NOT YET FULLY CONVERTED TO MTS.
03003/062  *SPIRES                   TUTORIAL.BI     D              S0184 SPIRES FSNAME=TUTORIAL.BI                                 
            D4T3    617  SPIRES.TUTORIAL.BI.D.062           1 LINE     73    9 PAGE UM   STERKEN             JUNE 25, 1977  11:05:53
0          SOURCE INPUT RECORDS FOR THE TUTORIALS SUBFILE -- AN IMPROVED MTS VERSION IS
           BEING WRITTEN AT UQV.
03003/063  *SPIRES                   VGROUPS.BI      D              S0184 SPIRES FSNAME=VGROUPS.BI                                  
            D4T3    618  SPIRES.VGROUPS.BI.D.063            1 LINE     30    1 PAGE UM   STERKEN             JUNE 25, 1977  11:05:55
0          SOURCE INPUT RECORDS FOR THE FORSTAT SUBFILE.
03003/064  *SPIRES                   DOC.FASTBILD    P              S0184 SPIRES FSNAME=DOC.FASTBILD                                
            D4T3    619  SPIRES.DOC.FASTBILD.P.064          1 LINE     85    2 PAGE UM   STERKEN             JUNE 25, 1977  11:05:58
0          PRELIMINARY DOCUMENTATION FOR THE FASTBILD PROCESSOR.
03003/065  *SPIRES                   FMT.FILEDEF     WF             S0184 SPIRES FSNAME=FMT.FILEDEF                                 
            D4T3    620  SPIRES.FMT.FILEDEF.WF.065          1 LINE    145  193 PAGE UM   STERKEN             JULY 01, 1977  22:19:30
0          FORMAT SOURCE FOR THE MTS VERSION OF THE SPIRES FILE DEFINITION MANUAL.  USES
           THE FORMAT INDEXING FEATURES.
03003/066  *SPIRES                   DOC.FILEDEF     PF             S0184 SPIRES FSNAME=DOC.FILEDEF                                 
            D4T3    621  SPIRES.DOC.FILEDEF.PF.066          1 LINE    106  215 PAGE UM   STERKEN             JULY 01, 1977  22:19:05
0          FORMAT OUTPUT FOR 3003/65.
03003/067  *SPIRES                   DOC.FORMATS     P              S0184 SPIRES FSNAME=DOC.FORMATS                                 
            D4T3    622  SPIRES.DOC.FORMATS.P.067           1 LINE     80   73 PAGE UM   STERKEN             JUNE 25, 1977  11:06:26
0          THIS IS THE CURRENT VERSION OF THE STANFORD SPIRES FORMATS MANUAL WHICH IS
           MUCH IN NEED OF REVISION.  IT IS CURRENTLY BEING REWRITTEN AT STANFORD AND
           THEN WILL BE CONVERTED FOR MTS. 
03003/068  *SPIRES                   DOC.GLOBAL      P              S0184 SPIRES FSNAME=DOC.GLOBAL                                  
            D4T3    623  SPIRES.DOC.GLOBAL.P.068            1 LINE     80    7 PAGE UM   STERKEN             JUNE 25, 1977  11:06:34
0          AN INTERNAL (NOT FOR PUBLIC RELEASE) DESCRIPTION OF THE "GLOBAL FOR" COMMANDS.
03003/069  *SPIRES                   DOC.INTRO       P              S0184 SPIRES FSNAME=DOC.INTRO                                   
            D4T3    624  SPIRES.DOC.INTRO.P.069             1 LINE     80   19 PAGE UM   STERKEN             JUNE 25, 1977  11:06:36
0          INTRODUCTORY NOTES USED FOR A SPIRES CLASS AT STANFORD -- NOT OF TOO MUCH VALUE
           FOR MTS-SPIRES USERS.
03003/070  *SPIRES                   DOC.PARTIAL     P              S0184 SPIRES FSNAME=DOC.PARTIAL                                 
            D4T3    625  SPIRES.DOC.PARTIAL.P.070           1 LINE     69    5 PAGE UM   STERKEN             JUNE 25, 1977  11:06:40
0          AN OLD STANFORD INTERNAL MEMO DESCRIBING THE PARTIAL RECORD PROCESSING COMMANDS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  373
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 NOT COMPLETE AND CONTAINS VERY FEW EXAMPLES.  UQV IS WORKING ON A BETTER
           VERSION.
03003/071  *SPIRES                   DOC.PROTEXER    P              S0184 SPIRES FSNAME=DOC.PROTEXER                                
            D4T3    626  SPIRES.DOC.PROTEXER.P.071          1 LINE     80   16 PAGE UM   STERKEN             JUNE 25, 1977  11:06:42
0          EXERCISES USED IN A STANFORD CLASS ON THE SPIRES PROTOCOLS LANGUAGE.  NOT CONVERTED
           TO MTS.
03003/072  *SPIRES                   DOC.PROTOCOL    P              S0184 SPIRES FSNAME=DOC.PROTOCOL                                
            D4T3    627  SPIRES.DOC.PROTOCOL.P.072          1 LINE     80   41 PAGE UM   STERKEN             JUNE 25, 1977  11:06:45
0          STANFORD VERSION OF THE SPIRES PROTOCOLS MANUAL.  UM IS IN THE PROCESS OF CONVERTING
           IT FOR MTS USAGE.
03003/073  *SPIRES                   MEMO 337        WF             W098:M337                                                       
            D4T3    628  SPIRES.MEMO_337.WF.073             1 LINE    147   89 PAGE UM   STERKEN             JULY 29, 1977  00:27:24
0          THIS IS COMPUTING CENTER MEMO 337 -- "SPIRES SEARCHING AND UPDATING".
           IT USES FORMAT INDEXING FEATURES.
03003/074  *SPIRES                   MEMO 337        PF             S0184 SPIRES FSNAME=DOC.USER                                    
            D4T3    629  SPIRES.MEMO_337.PF.074             1 LINE     86  121 PAGE UM   STERKEN             JUNE 25, 1977  11:06:52
0          FORMAT OUTPUT FOR 3003/73.
03003/075  *SPIRES                   UT.ADDUPDATE    SS  G          S0184 SPIRES FSNAME=UT.ADDUPDATE                                
            D4T3    630  SPIRES.UT.ADDUPDATE.SS.075         1 LINE     99    5 PAGE UM   STERKEN             JUNE 25, 1977  11:07:17
0          SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) TO GENERATE A SOURCE DECK FOR *UPDATE
           AND *UNEDIT RUNS.  OBJECT AT POSITIVE LINE NUMBERS.
03003/076  *SPIRES                   UT.COMPARE      SS  G          S0184 SPIRES FSNAME=UT.COMPARE                                  
            D4T3    631  SPIRES.UT.COMPARE.SS.076           1 LINE    110   11 PAGE UM   STERKEN             JUNE 25, 1977  11:07:19
0          SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) TO GENERATE A SOURCE DECK FOR USE IN
           COMPARING SPIRES MODULES ON DIFFERENT DISTRIBUTION TAPES.  OBJECT AT POSITIVE
           LINE NUMBERS.
03003/077  *SPIRES                   UT.DOWNDATE     SA  G          S0184 SPIRES FSNAME=UT.DOWNDATE                                 
            D4T3    632  SPIRES.UT.DOWNDATE.SA.077          1 LINE     80    9 PAGE UM   STERKEN             JUNE 25, 1977  11:07:23
0          A SLIGHTLY MODIFIED VERSION OF *DOWNDATE (267) WHICH KEEPS THE SEQUENCE ID FIELD
           (WHERE STANFORD PUTS THE LINE NUMBERS IN THEIR DISTRIBUTIONS) IN THE *UPDATE
           DECKS IT PRODUCES.  SOURCE AT NEGATIVE LINE NUMBERS; OBJECT AT POSITIVE.
03003/078  *SPIRES                   UT.FORMAT       SS  G          S0184 SPIRES FSNAME=UT.FORMAT                                   
            D4T3    633  SPIRES.UT.FORMAT.SS.078            1 LINE     89    7 PAGE UM   STERKEN             JUNE 25, 1977  11:07:26
0          SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) USED ON PL360 MODULES FROM STANFORD.
           IN "UNPACK" MODE IT GENERATES A NEW VERSION OF THE MODULE WITH THE SEQUENCE ID
           BEING ASSUMED TO BE A LINE NUMBER.  "PACK" MODE DOES THE INVERSE OPERATION.
           OBJECT AT POSITIVE LINE NUMBERS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  374
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
+         ______________ _____________________
03003/079  *SPIRES                   UT.IFTEST       SS  G          S0184 SPIRES FSNAME=UT.IFTEST                                   
            D4T3    634  SPIRES.UT.IFTEST.SS.079            1 LINE     88    7 PAGE UM   STERKEN             JUNE 25, 1977  11:07:29
0          SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) FOR SCANNING PL360 MODULES AND PRINTING
           OUT SELECTED $IF-TEST CODE SECTIONS.  OBJECT AT POSITIVE LINE NUMBERS.
03003/080  *SPIRES                   *OVR            C              S0184 SPIRES FSNAME=*OVR                                        
            D4T3    635  SPIRES.*OVR.C.080                  1 LINE     66    1 PAGE UM   STERKEN             JUNE 25, 1977  11:07:37
0          COMMAND FILE INVOKED BY *LAS (154) TO START THE SPIRES "OVERNIGHT" PROCESSOR.
03003/081  *SPIRES                   OVERSOURCE      C              S0184 SPIRES FSNAME=OVERSOURCE                                  
            D4T3    636  SPIRES.OVERSOURCE.C.081            1 LINE     87    1 PAGE UM   STERKEN             JUNE 25, 1977  11:07:43
0          COMMANDS FOR THE SPIRES "OVERNIGHT" PROCESSOR.
03003/082  *SPIRES                   OVERWAIT        SG  G          S0184 SPIRES FSNAME=OVERWAIT                                    
            D4T3    637  SPIRES.OVERWAIT.SG.082             1 LINE     80    3 PAGE UM   STERKEN             JUNE 25, 1977  11:08:21
0          GOM PROGRAM (AT NEGATIVE LINES) USED BY OVERSOURCE TO WAIT A BIT (CURRENTLY
           15 SECONDS) AND THEN CHECK TO SEE IF ANY CHANGES HAVE BEEN MADE TO THE FILEDEF
           OR FORMATS SUBFILES.  OBJECT AT POSITIVE LINE NUMBERS.
03003/083  *SPIRES                   ONCEADAY        C              S0184 SPIRES FSNAME=ONCEADAY                                    
            D4T3    638  SPIRES.ONCEADAY.C.083              1 LINE     87    1 PAGE UM   STERKEN             JUNE 25, 1977  11:08:27
0          COMMAND FILE USED PERIODICALLY TO CHECK THE STATUS OF *SPIRES.
03003/084  *SPIRES                   SIGFILE-CKID    C              S0184 SPIRES FSNAME=SIGFILE-CKID                                
            D4T3    639  SPIRES.SIGFILE-CKID.C.084          1 LINE     50    1 PAGE UM   STERKEN             JUNE 25, 1977  11:08:32
0          SIGFILE CURRENTLY BEING USED FOR USER ID DBMS.  MAKES USE OF *CKID (680).
03003/085  *SPIRES                   FILEDEF/A       D              S0184 SPIRES FSNAME=FILEDEF/A                                   
            D4T3    640  SPIRES.FILEDEF/A.D.085             1 LINE   2048   20 PAGE UM   STERKEN             JUNE 25, 1977  11:10:14
0          PART OF THE FILEDEF SPIRES-FILE (D4 VERSION).
03003/086  *SPIRES                   FILEDEF/Q       D              S0184 SPIRES FSNAME=FILEDEF/Q                                   
            D4T3    641  SPIRES.FILEDEF/Q.D.086             1 LINE   2048    3 PAGE UM   STERKEN             JUNE 25, 1977  11:10:17
0          PART OF THE FILEDEF SPIRES-FILE (D4 VERSION).
03003/087  *SPIRES                   FILEDEF%R       D              S0184 SPIRES FSNAME=FILEDEF%R                                   
            D4T3    642  SPIRES.FILEDEF%R.D.087             1 SEQ    2048   11 PAGE UM   STERKEN             JUNE 25, 1977  11:10:36
0          PART OF THE FILEDEF SPIRES-FILE (D3 VERSION).
03003/088  *SPIRES                   FILEDEF%S       D              S0184 SPIRES FSNAME=FILEDEF%S                                   
            D4T3    643  SPIRES.FILEDEF%S.D.088             1 SEQ    2048    5 PAGE UM   STERKEN             JUNE 25, 1977  11:10:38
0          PART OF THE FILEDEF SPIRES-FILE (D3 VERSION).
1                                                                                               FRI AUG 02/96   16:11:27   Page  375
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
+         ______________ _____________________
03003/089  *SPIRES                   FILEDEF%1       D              S0184 SPIRES FSNAME=FILEDEF%1                                   
            D4T3    644  SPIRES.FILEDEF%1.D.089             1 SEQ    2048    5 PAGE UM   STERKEN             JUNE 25, 1977  11:10:40
0          PART OF THE FILEDEF SPIRES-FILE (D3 VERSION).
03003/090  *SPIRES                   FILEDEF%Q       D              S0184 SPIRES FSNAME=FILEDEF%Q                                   
            D4T3    645  SPIRES.FILEDEF%Q.D.090             1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:10:42
0          PART OF THE FILEDEF SPIRES-FILE (D3 VERSION).
03003/091  *SPIRES                   DATA/A          D              S0184 SPIRES FSNAME=DATA/A                                      
            D4T3    646  SPIRES.DATA/A.D.091                1 LINE   2048    5 PAGE UM   STERKEN             JUNE 25, 1977  11:11:50
0          PART OF THE DATA SPIRES-FILE (D4 VERSION).
03003/092  *SPIRES                   DATA/Q          D              S0184 SPIRES FSNAME=DATA/Q                                      
            D4T3    647  SPIRES.DATA/Q.D.092                1 LINE   2048    3 PAGE UM   STERKEN             JUNE 25, 1977  11:11:52
0          PART OF THE DATA SPIRES-FILE (D4 VERSION).
03003/093  *SPIRES                   DATA%R          D              S0184 SPIRES FSNAME=DATA%R                                      
            D4T3    648  SPIRES.DATA%R.D.093                1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:12:00
0          PART OF THE DATA SPIRES-FILE (D3 VERSION).
03003/094  *SPIRES                   DATA%S          D              S0184 SPIRES FSNAME=DATA%S                                      
            D4T3    649  SPIRES.DATA%S.D.094                1 SEQ    2048    3 PAGE UM   STERKEN             JUNE 25, 1977  11:12:02
0          PART OF THE DATA SPIRES-FILE (D3 VERSION).
03003/095  *SPIRES                   DATA%Q          D              S0184 SPIRES FSNAME=DATA%Q                                      
            D4T3    650  SPIRES.DATA%Q.D.095                1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:12:04
0          PART OF THE DATA SPIRES-FILE (D3 VERSION).
03003/096  *SPIRES                   MAIL/A          D              S0184 SPIRES FSNAME=MAIL/A                                      
            D4T3    651  SPIRES.MAIL/A.D.096                1 LINE   2048   88 PAGE UM   STERKEN             JUNE 25, 1977  11:14:04
0          PART OF THE MAIL SPIRES-FILE (D4 VERSION).
03003/097  *SPIRES                   MAIL/Q          D              S0184 SPIRES FSNAME=MAIL/Q                                      
            D4T3    652  SPIRES.MAIL/Q.D.097                1 LINE   2048    3 PAGE UM   STERKEN             JUNE 25, 1977  11:14:11
0          PART OF THE MAIL SPIRES-FILE (D4 VERSION).
03003/098  *SPIRES                   MAIL%R          D              S0184 SPIRES FSNAME=MAIL%R                                      
            D4T3    653  SPIRES.MAIL%R.D.098                1 SEQ    2048   56 PAGE UM   STERKEN             JUNE 25, 1977  11:15:03
0          PART OF THE MAIL SPIRES-FILE (D3 VERSION).
03003/099  *SPIRES                   MAIL%S          D              S0184 SPIRES FSNAME=MAIL%S                                      
            D4T3    654  SPIRES.MAIL%S.D.099                1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:15:05
0          PART OF THE MAIL SPIRES-FILE (D3 VERSION).
1                                                                                               FRI AUG 02/96   16:11:27   Page  376
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
+         ______________ _____________________
03003/100  *SPIRES                   MAIL%1          D              S0184 SPIRES FSNAME=MAIL%1                                      
            D4T3    655  SPIRES.MAIL%1.D.100                1 SEQ    2048   30 PAGE UM   STERKEN             JUNE 25, 1977  11:15:07
0          PART OF THE MAIL SPIRES-FILE (D3 VERSION).
03003/101  *SPIRES                   MAIL%2          D              S0184 SPIRES FSNAME=MAIL%2                                      
            D4T3    656  SPIRES.MAIL%2.D.101                1 SEQ    2048    1 PAGE UM   STERKEN             JUNE 25, 1977  11:15:10
0          PART OF THE MAIL SPIRES-FILE (D3 VERSION).
03003/102  *SPIRES                   MAIL%Q          D              S0184 SPIRES FSNAME=MAIL%Q                                      
            D4T3    657  SPIRES.MAIL%Q.D.102                1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:15:12
0          PART OF THE MAIL SPIRES-FILE (D3 VERSION).
03003/103  *SPIRES                   FORMATS/A       D              S0184 SPIRES FSNAME=FORMATS/A                                   
            D4T3    658  SPIRES.FORMATS/A.D.103             1 LINE   2048   20 PAGE UM   STERKEN             JUNE 25, 1977  11:18:56
0          PART OF THE FORMATS SPIRES-FILE (D4 VERSION).
03003/104  *SPIRES                   FORMATS/Q       D              S0184 SPIRES FSNAME=FORMATS/Q                                   
            D4T3    659  SPIRES.FORMATS/Q.D.104             1 LINE   2048    3 PAGE UM   STERKEN             JUNE 25, 1977  11:18:59
0          PART OF THE FORMATS SPIRES-FILE (D4 VERSION).
03003/105  *SPIRES                   FORMATS%R       D              S0184 SPIRES FSNAME=FORMATS%R                                   
            D4T3    660  SPIRES.FORMATS%R.D.105             1 SEQ    2048   14 PAGE UM   STERKEN             JUNE 25, 1977  11:19:17
0          PART OF THE FORMATS SPIRES-FILE (D3 VERSION).
03003/106  *SPIRES                   FORMATS%S       D              S0184 SPIRES FSNAME=FORMATS%S                                   
            D4T3    661  SPIRES.FORMATS%S.D.106             1 SEQ    2048    3 PAGE UM   STERKEN             JUNE 25, 1977  11:19:19
0          PART OF THE FORMATS SPIRES-FILE (D3 VERSION).
03003/107  *SPIRES                   FORMATS%1       D              S0184 SPIRES FSNAME=FORMATS%1                                   
            D4T3    662  SPIRES.FORMATS%1.D.107             1 SEQ    2048    4 PAGE UM   STERKEN             JUNE 25, 1977  11:19:21
0          PART OF THE FORMATS SPIRES-FILE (D3 VERSION).
03003/108  *SPIRES                   FORMATS%Q       D              S0184 SPIRES FSNAME=FORMATS%Q                                   
            D4T3    663  SPIRES.FORMATS%Q.D.108             1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:19:22
0          PART OF THE FORMATS SPIRES-FILE (D3 VERSION).
03003/109  *SPIRES                   MSG/A           D              S0184 SPIRES FSNAME=MSG/A                                       
            D4T3    664  SPIRES.MSG/A.D.109                 1 LINE   2048   26 PAGE UM   STERKEN             JUNE 25, 1977  11:21:08
0          PART OF THE MSG SPIRES-FILE (D4 VERSION).
03003/110  *SPIRES                   MSG/Q           D              S0184 SPIRES FSNAME=MSG/Q                                       
            D4T3    665  SPIRES.MSG/Q.D.110                 1 LINE   2048    3 PAGE UM   STERKEN             JUNE 25, 1977  11:21:12
0          PART OF THE MSG SPIRES-FILE (D4 VERSION).
1                                                                                               FRI AUG 02/96   16:11:27   Page  377
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
+         ______________ _____________________
03003/111  *SPIRES                   MSG%R           D              S0184 SPIRES FSNAME=MSG%R                                       
            D4T3    666  SPIRES.MSG%R.D.111                 1 SEQ    2048    8 PAGE UM   STERKEN             JUNE 25, 1977  11:21:35
0          PART OF THE MSG SPIRES-FILE (D3 VERSION).
03003/112  *SPIRES                   MSG%S           D              S0184 SPIRES FSNAME=MSG%S                                       
            D4T3    667  SPIRES.MSG%S.D.112                 1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:21:37
0          PART OF THE MSG SPIRES-FILE (D3 VERSION).
03003/113  *SPIRES                   MSG%1           D              S0184 SPIRES FSNAME=MSG%1                                       
            D4T3    668  SPIRES.MSG%1.D.113                 1 SEQ    2048   17 PAGE UM   STERKEN             JUNE 25, 1977  11:21:39
0          PART OF THE MSG SPIRES-FILE (D3 VERSION).
03003/114  *SPIRES                   MSG%Q           D              S0184 SPIRES FSNAME=MSG%Q                                       
            D4T3    669  SPIRES.MSG%Q.D.114                 1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:21:41
0          PART OF THE MSG SPIRES-FILE (D3 VERSION).
03003/115  *SPIRES                   REST.FD         D              S0184 SPIRES FSNAME=REST.FD                                     
            D4T3    670  SPIRES.REST.FD.D.115               1 LINE     72    3 PAGE UM   STERKEN             JUNE 25, 1977  11:22:50
0          FILE DEFININTION FOR UM'S RESTAURANTS SUBFILE (FOR TESTING).
03003/116  *SPIRES                   REST.FMT        D              S0184 SPIRES FSNAME=REST.FMT                                    
            D4T3    671  SPIRES.REST.FMT.D.116              1 LINE     56    1 PAGE UM   STERKEN             JUNE 25, 1977  11:22:52
0          OUTPUT FORMAT FOR USE WITH UM'S RESTAURANTS SUBFILE (FOR TESTING).
03003/117  *SPIRES                   REST.BI         D              S0184 SPIRES FSNAME=REST.BI                                     
            D4T3    672  SPIRES.REST.BI.D.117               1 LINE     72    4 PAGE UM   STERKEN             JUNE 25, 1977  11:22:54
0          SAMPLE INPUT RECORDS FOR THE UM RESTAURANTS SUBFILE (FOR TESTING).
03003/118  *SPIRES                   PEOPLE.FD       D              S0184 SPIRES FSNAME=PEOPLE.FD                                   
            D4T3    673  SPIRES.PEOPLE.FD.D.118             1 LINE     72    3 PAGE UM   STERKEN             JUNE 25, 1977  11:22:56
0          FILE DEFINITION FOR UM'S PEOPLE SUBFILE (FOR TESTING).
03003/119  *SPIRES                   PEOPLE.BI       D              S0184 SPIRES FSNAME=PEOPLE.BI                                   
            D4T3    674  SPIRES.PEOPLE.BI.D.119             1 LINE     73    3 PAGE UM   STERKEN             JUNE 25, 1977  11:22:57
0          SAMPLE INPUT RECORDS FOR THE UM PEOPLE SUBFILE (FOR TESTING).
03003/120  *SPIRES                   SPIRES/STATS    D              S0184 SPIRES FSNAME=SPIRES/STATS                                
            D4T3    675  SPIRES.SPIRES/STATS.D.120          1 LINE     65    1 PAGE UM   STERKEN             JUNE 25, 1977  11:23:46
0          SYSTEM FILE USED BY *OVS AND THE MTS-SPIRES TRACING FACILITY.
03003/121  *SPIRES                   D4.COMZ         D              S0184 SPIRES FSNAME=D4.COMZ                                     
            D4T3    676  SPIRES.D4.COMZ.D.121               1 LINE    256    1 PAGE UM   STERKEN             JULY 01, 1977  22:33:18
0          SYSTEM FILE FOR STORING MESSAGE-OF-THE-DAY AND THE CURRENT MASTER ACCOUNTS
1                                                                                               FRI AUG 02/96   16:11:27   Page  378
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          (D4 VERSION).
03003/122  *SPIRES                   D3.COMZ         D              S0184 SPIRES FSNAME=D3.COMZ                                     
            D4T3    677  SPIRES.D3.COMZ.D.122               1 SEQ     256    1 PAGE UM   STERKEN             JUNE 25, 1977  11:23:51
0          SYSTEM FILE FOR STORING MESSAGE-OF-THE-DAY AND THE CURRENT MASTER ACCOUNTS
           (D3 VERSION).
03003/123  *SPIRES                   D4.SYSLOG       D              S0184 SPIRES FSNAME=D4.SYSLOG                                   
            D4T3    678  SPIRES.D4.SYSLOG.D.123             1 LINE   2048    3 PAGE UM   STERKEN             JUNE 25, 1977  11:23:53
0          FILE USED BY SPIRES FOR TRACING (D4 VERSION).
03003/124  *SPIRES                   D3.SYSLOG       D              S0184 SPIRES FSNAME=D3.SYSLOG                                   
            D4T3    679  SPIRES.D3.SYSLOG.D.124             1 SEQ    2048    2 PAGE UM   STERKEN             JUNE 25, 1977  11:23:58
0          FILE USED BY SPIRES FOR TRACING (D3 VERSION).
03003/125  *SPIRES                   TESTLOAD        OC  G          S0184 SPIRES FSNAME=TESTLOAD                                    
            D4T3    680  SPIRES.TESTLOAD.OC.125             1 LINE     76    1 PAGE UM   STERKEN             JUNE 25, 1977  11:24:00
0          FILE USED IN LOADING NON-LONKEDITED TEST VERSIONS OF SPIRES.
03006      *PL1SYN                                                # (NOT DISTRIBUTED)                                               
                                                                                    UQV  JACKSON                                    
03007       APLUTIL                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV  WEBSTER                                    
03011/001  *FLOWCHART                IBM SOURCE      SA  O          S0689 UQVD06 FSNAME=FLOWCHARTS.IBM_SOURCE.SA.1               208
            D4T3    681  FLOWCHART.IBM_SOURCE.SA.001        1 SEQ      80  387 PAGE UQV  WARD      DWB       OCT. 10, 1974  12:28.56
0          THIS IS THE SOURCE FOR THE IBM FLOWCHARTING PROGRAM.  IT DOES NOT FLOWCHART ANYTHING
           AUTOMATICALLY; YOU HAVE TO TELL IT (VIA ITS INPUT LANGUAGE) WHAT KIND OF BOXES TO
           DRAW AND HOW THEY ARE TO BE CONNECTED.  SEE THE BRIEF DESCRIPTION IN MTS VOLUME 2.
           FOR MORE COMPLETE INFORMATION, SEE IBM FORM GH20-0293.
0          Referenced by comments of: 3011/2 
03011/002  *FLOWCHART                MTS UPDATE      UU  O          S0689 UQVD06 FSNAME=FLOWCHARTS.UPDATES.UU.2                  209
            D4T3    682  FLOWCHART.MTS_UPDATE.UU.002        1 LINE     72   40 PAGE UQV  WARD      DWB       FEB. 18, 1976  13:49:28
0          *UPDATE DECK TO PRODUCE MTS VERSION OF FLOWCHART FROM ORIGINAL IBM SOURCE (3011/1).
03011/003  *FLOWCHART                MTS OBJECT      OE  O          *FLOWCHART                                                      
            D4T3    683  FLOWCHART.MTS_OBJECT.OE.003        1 SEQ   25588   17 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:33
03011/004  *FLOWCHART                TEST 1          D              DWB:FLOWCHART.T1                                                
            D4T3    684  FLOWCHART.TEST_1.D.004             1 LINE     72    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:36
0          THIS COMPONENT AND THE NEXT 5 ARE *FLOWCHART TEST PROGRAMS.
1                                                                                               FRI AUG 02/96   16:11:27   Page  379
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
+         ______________ _____________________
03011/005  *FLOWCHART                TEST 2          D              DWB:FLOWCHART.T2                                                
            D4T3    685  FLOWCHART.TEST_2.D.005             1 LINE     62    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:38
03011/006  *FLOWCHART                TEST 3          D              DWB:FLOWCHART.T3                                                
            D4T3    686  FLOWCHART.TEST_3.D.006             1 LINE     75    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:40
03011/007  *FLOWCHART                TEST 4          D              DWB:FLOWCHART.T4                                                
            D4T3    687  FLOWCHART.TEST_4.D.007             1 LINE     68    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:42
03011/008  *FLOWCHART                TEST 5          D              DWB:FLOWCHART.T5                                                
            D4T3    688  FLOWCHART.TEST_5.D.008             1 LINE     62    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:45
03011/009  *FLOWCHART                TEST 6          D              DWB:FLOWCHART.T6                                                
            D4T3    689  FLOWCHART.TEST_6.D.009             1 LINE     72    4 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:47
03013/001   ALGOL68C                 COMPILER        OE  O          S0151 UQV16 FSNAME=ALGOL68C.COMPILER.OE.001                   60
            D4T3    690  ALGOL68C.COMPILER.OE.001           1 SEQ   32767   45 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:56:32
0           THIS VERSION OF ALGOL68C WAS RECEIVED AT UM FROM UQV IN OCT/76 AND IS
           VERSION 242 OF THE ALGOL68C COMPILER, WHICH WAS OBTAINED FROM CAMBRIDGE, ENGLAND.
           IT HAS NOT BEEN MODIFIED, EXCEPT FOR BEING LINK-EDITED.
           THE COMPILER TRANSLATES FROM ALGOL68C TO Z-CODE - THE ASSEMBLY LANGUAGE FOR THE MYTHICAL MACHINE, Z.
           THIS VERSION USES THE UPPER CASE/LOWER CASE TRANSLATE TABLE (E.G.  INT I;).
           THIS COMPONENT NEEDS COMPONENTS 3013/2, 3013/7, AND 3013/27 TO RUN.
             TO TRANSLATE FROM Z-CODE TO /360-CODE, USE COMPONENT 3013/4.
             AT UM, ALGOL68C IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
03013/002   ALGOL68C                 COMPILER        OE  O          S0151 UQV16 FSNAME=ALGOL68C.COMPILER.OS.002                   61
            D4T3    691  ALGOL68C.COMPILER.OE.002           1 LINE    255    1 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:56:36
0          THIS IS THE FILE THAT YOU $RUN TO JUST COMPILE.
           USAGE: $RUN AL68:COMPILER SCARDS=INPUT SPRINT=LISTING 1=ZCODE-OUTPUT -
                  !AD!2=XREFTABLES!BD! !AD!7=ENVIRON-OUTPUT!BD! !AD! PAR=!AD!PRELUDE=FDNAME!BDAD!;XREF!BD! !BD!
           IT CONTAINS A MODIFIED INITIALIZATION (3013/13) AND $CONTINUES WITH COMPONENTS 3013/1, 3013/7, AND 3013/29.
03013/003   ALGOL68C                 TRANSLATOR      OE  O          S0151 UQV16 FSNAME=ALGOL68C.TRANSLATOR.OE.003                 62
            D4T3    692  ALGOL68C.TRANSLATOR.OE.003         1 SEQ   32767   11 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:56:43
0             THIS IS VERSION 116 OF THE Z-CODE TO /360-CODE TRANSLATOR.
           IT IS MUCH IMPROVED OVER THE PREVIOUSLY DISTRIBUTED TRANSLATOR.
           IT PRODUCES RE-ENTRANT CODE.  SINCE THE RUN-TIME LIBRARY ROUTINES ARE ALSO RE-ENTRANT,
           THIS MEANS THAT ALL ALGOL68C PROGRAMS, INCLUDING THE COMPILER, TRANSLATOR, AND CROSS-REFERENCER, ARE RE-ENTRANT.
           THIS PROGRAM HAS BEEN MODIFIED TO CHANGE THE FILE IDFS USED.
03013/004   ALGOL68C                 TRANSLATOR      OE  O          S0151 UQV16 FSNAME=ALGOL68C.TRANSLATOR.OS.004                 63
            D4T3    693  ALGOL68C.TRANSLATOR.OE.004         1 LINE    255    2 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:56:50
0          THIS IS THE FILE THAT YOU $RUN TO JUST TRANSLATE.
           USAGE: $RUN AL68:TRANSLAT SCARDS=ZCODE-INPUT SPRINT=LISTING SPUNCH=OBJECT-OUTPUT 
           IT CONTAINS A MODIFIED INITIALIZATION (3013/13) AND $CONTINUES WITH COMPONENTS 3013/3, 3013/7, AND 3013/29.
1                                                                                               FRI AUG 02/96   16:11:27   Page  380
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
+         ______________ _____________________
03013/005   ALGOL68C                 CROSSREF        OE  S          S0151 UQV16 FSNAME=ALGOL68C.CROSSREF.OE.005                   64
            D4T3    694  ALGOL68C.CROSSREF.OE.005           1 SEQ    7690    3 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:56:57
0            A PROGRAM TO PRODUCE A CROSS-REFERENCE LISTING FOR AN ALGOL68C PROGRAM.
           THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE COMPILER.
           USAGE: $RUN AL68:XREF SCARDS=XREFTABLES SPRINT=LISTING
           THE FILE $CONTINUES WITH COMPONENT 3013/31.
03013/006   ALGOL68C                 COMPILER        O   O          S0151 UQV16 FSNAME=ALGOL68C.COMPILER.OS.006                   65
            D4T3    695  ALGOL68C.COMPILER.O.006            1 LINE    255    3 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:57:04
0            THIS IS A MONITOR WHICH:
           1) APPEARS AS THE COMPILER TO THE USER.
           USAGE: $RUN AL68:A68C SCARDS=INPUT SPRINT=LISTING SPUNCH=OUTPUT  7=ENVIRONMENT OUTPUT¬
             PARAMETERS:  LIST/NOLIST  NEWS/NONEWS  XREF/NOXREF
             DEFAULTS:  LIST, NEWS, NOXREF
           2) INVOKES THE COMPILER, TRANSLATOR, AND, OPTIONALLY, THE CROSS-REFERENCER.
           3) TRANSLATES SQUARE BRACKETS PRINTED BY THE COMPILER INTO EBCDIC
           4) OPTIONALLY LISTS THE SOURCE PROGRAM
           5) OPTIONALLY COPIES AL68:NEWS
             THE PROGRAM WRITES A MESSAGE TO AL68:USECNTR EACH TIME IT IS RUN.
           THE FILE $CONTINUES WITH COMPONENTS 3013/2, 3013/4, AND 3013/5.
03013/007   ALGOL68C                 RUN-TIME LIB    OL  O          S0151 UQV16 FSNAME=ALGOL68C.RUN-TIME_LIB.OL.007               66
            D4T3    696  ALGOL68C.RUN-TIME_LIB.OL.007       1 SEQ    2048   16 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:57:11
0          THE RUN-TIME LIBRARY.  THIS FILE IS NEEDED BY EVERY ALGOL68C OBJECT PROGRAM.
           THE SOURCE FILES ARE COMPONENTS 3013/8 AND 3013/9.
03013/008   ALGOL68C                 RUN-TIME LIB    SA  O          S0151 UQV16 FSNAME=ALGOL68C.RUN-TIME_LIB.SA.008               67
            D4T3    697  ALGOL68C.RUN-TIME_LIB.SA.008       1 LINE     71   35 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:57:18
0          THE SOURCE FOR ALGOL68C SUBROUTINES WRITTEN IN ASSEMBLER, BUT CALLABLE FROM ALGOL68C PROGRAMS.
           PROCEDURE NUMBER NN STARTS AT LINE NN*1000.
           THIS FILE NEEDS COMPONENTS  3013/10, 3013/11, AND 3013/12 TO BE ASSEMBLED; IT DOES NOT NEED *SYSMAC.
           THERE IS NO END LINE IN THIS FILE.
03013/009   ALGOL68C                 RUN-TIME LIB    SA  O          S0151 UQV16 FSNAME=ALGOL68C.RUN-TIME_LIB.SA.009               68
            D4T3    698  ALGOL68C.RUN-TIME_LIB.SA.009       1 LINE     72   25 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:57:25
0          THE SOURCE FOR ALGOL68C SUBROUTINES WRITTEN IN ASSEMBLER, BUT NOT CALLABLE FROM ALGOL68C PROGRAMS.
           EACH PROCEDURE STARTS ON LINE N*1000, WHERE -3 <= N <= 12.  THERE IS A DIRECTORY AT LINE 1.
           THESE ROUTINES ARE CALLED BY THE ROUTINES IN COMPONENT 3013/8.
           THIS FILE NEEDS COMPONENTS  3013/10, 3013/11, AND 3013/12 TO BE ASSEMBLED; IT DOES NOT NEED *SYSMAC.
           IT ALSO NEEDS ALL THE LINES IN THE NEGATIVE NUMBERS IN COMPONENT 3013/8.
           THERE IS NO END LINE IN THIS FILE.
03013/010   ALGOL68C                 RUN-TIME LIB    SM  O          S0151 UQV16 FSNAME=ALGOL68C.RUN-TIME_LIB.SM.010               69
            D4T3    699  ALGOL68C.RUN-TIME_LIB.SM.010       1 LINE     72   12 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:57:33
0          MTS-INDEPENDENT MACROS ESPECIALLY FOR ALGOL68C.
1                                                                                               FRI AUG 02/96   16:11:27   Page  381
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
+         ______________ _____________________
03013/011   ALGOL68C                 RUN-TIME LIB    SM  O          S0151 UQV16 FSNAME=ALGOL68C.RUN-TIME_LIB.SM.011               70
            D4T3    700  ALGOL68C.RUN-TIME_LIB.SM.011       1 LINE     71    5 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:57:40
0          MTS-DEPENDENT MACROS ESPECIALLY FOR ALGOL68C.
03013/012   ALGOL68C                 GENERAL MACROS  SM  O          S0151 UQV16 FSNAME=ALGOL68C.GENERAL_MACROS.SM.012             71
            D4T3    701  ALGOL68C.GENERAL_MACROS.SM.012     1 LINE     72    7 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:57:48
0          GENERAL-PURPOSE MACROS USED BY COMPONENTS 3013/8 AND 3013/9.
03013/013   ALGOL68C                 RUN-TIME LIB    OE  O          S0151 UQV16 FSNAME=ALGOL68C.RUN-TIME_LIB.OS.013               72
            D4T3    702  ALGOL68C.RUN-TIME_LIB.OE.013       1 LINE    255    1 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:57:55
0          THE INITIALIZATION SECTION FOR EVERY ALGOL68C OBJECT PROGRAM.
           IT PROCESSES PARAMETERS BEFORE THE FIRST ";" IN THE PAR= STRING, AND PASSES THE REST TO THE USER.
0          Referenced by comments of: 3013/2, 3013/4 
03013/014   ALGOL68C                 COMPILER INIT   D              S0151 UQV16 FSNAME=ALGOL68C.COMPILER_INIT.D.014               73
            D4T3    703  ALGOL68C.COMPILER_INIT.D.014       1 LINE     96    1 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:58:03
0          THE COMPILER INITIALIZATION FILE.  IT CONTAINS ALL THE KEYWORDS RECOGNIZED BY THE COMPILER.
           THIS COMPENENT (AND STD ENV1, SAMPLE PROGS, AND STD ENV2) USES BOTH UPPER AND LOWER CASE.
           COMPONENT 3013/28 NEEDS COMPILER INIT AND STD ENV1 WITH ALL KEYWORDS AND IDENTIFIERS CHANGED
           TO MATCH ITS STROPPING CONVENTION.
03013/015   ALGOL68C                 STD ENV1        D              S0151 UQV16 FSNAME=ALGOL68C.STD_ENV1.D.015                    74
            D4T3    704  ALGOL68C.STD_ENV1.D.015            1 LINE     73    3 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:58:10
0          AN ENVIRONMENT FILE DESCRIBING THE BARE Z MACHINE AND SOME OF THE ROUTINES PROVIDED IN COMPONENT 3013/7.
           THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION.
03013/016   ALGOL68C                 STD ENV1        D              S0151 UQV16 FSNAME=ALGOL68C.STD_ENV1.D.016                    75
            D4T3    705  ALGOL68C.STD_ENV1.D.016            1 LINE     46    2 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:58:17
0          AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE.
           IT POINTS AT COMPONENT 3013/15.
           THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION.
03013/017   ALGOL68C                 STD ENV1        D              S0151 UQV16 FSNAME=ALGOL68C.STD_ENV1.D.017                    76
            D4T3    706  ALGOL68C.STD_ENV1.D.017            1 LINE     46    2 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:58:24
0          AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE.
           IT POINTS AT COMPONENT 3013/16.
           THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION.
03013/018   ALGOL68C                 STD ENV1        D              S0151 UQV16 FSNAME=ALGOL68C.STD_ENV1.D.018                    77
            D4T3    707  ALGOL68C.STD_ENV1.D.018            1 LINE     46    2 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  08:58:31
0          AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE.
           IT POINTS AT COMPONENT 3013/17.
           THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION.
1                                                                                               FRI AUG 02/96   16:11:27   Page  382
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
+         ______________ _____________________
03013/019   ALGOL68C                 URM             PF  B          S0151 UQV16 FSNAME=ALGOL68C.URM.PF.019                        78
            D4T3    708  ALGOL68C.URM.PF.019                1 LINE     83   69 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:12:20
0          THIS IS THE REFERENCE MANUAL RECEIVED FROM CAMBRIDGE.  IT IS DATED JUNE 1975.
           IT DESCRIBES ALGOL68C AS IT WAS CONCEIVED, NOT AS IT REALLY IS.
           MANY OF THE DISCREPANCIES BETWEEN THIS MANUAL AND REALITY ARE NOTED BY THE COMPILER AS "NOT YET IMPLEMENTED."
           THIS MANUAL DESCRIBES THE TRANSPUT AS PROVIDED BY SUB-COMPONENT STD ENV1.
           THE MANUAL IS 8.2" WIDE, EXCLUDING THE RIGHT MARGIN.
03013/020   ALGOL68C                 SAMPLE PROGS    S6  S          S0151 UQV16 FSNAME=ALGOL68C.SAMPLE_PROGS.S6.020               79
            D4T3    709  ALGOL68C.SAMPLE_PROGS.S6.020       1 LINE     94    7 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:12:27
0          THIS IS A PSEUDO-LIBRARY OF ALGOL68C PROGRAMS.
           THEY ARE MOSTLY TESTS OF THE COMPILER.
03013/021   ALGOL68C                 STD ENV2        S6  S          S0151 UQV16 FSNAME=ALGOL68C.STD_ENV2.S6.021                   80
            D4T3    710  ALGOL68C.STD_ENV2.S6.021           1 LINE    108    8 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:12:33
0          A MORE COMPREHENSIVE STANDARD ENVIRONMENT THAN STD ENV1.  IT INCLUDES ALL THE
           ROUTINES IN COMPONENT 3013/7, AND (IN TWO PARTS) MOST OF THE UNFORMATTED TRANSPUT DESCRIBED IN THE REVISED REPORT.
           MAJOR ADDITIONS TO STD ENV1 INCLUDE 'READREAL', 'READSTRING', 'READBITS', AND THE OPERATORS FOR COMPL.
           STD ENV2 IS NOT YET DEBUGGED!!
             THIS PARTICULAR COMPONENT IS A MOST GLOBAL PROGAM SEGMENT.
03013/022   ALGOL68C                 STD ENV2        S6  S          S0151 UQV16 FSNAME=ALGOL68C.STD_ENV2.S6.022                   81
            D4T3    711  ALGOL68C.STD_ENV2.S6.022           1 LINE     76    4 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:12:40
0          PART II OF A MORE COMPREHENSIVE STANDARD ENVIRONMENT.
           THIS PROGRAM IS CONCEPTUALLY A PART OF COMPONENT 3013/21; I.E. IT IS A SECOND-LEVEL PROGRAM SEGMENT.
03013/023   ALGOL68C                 STD ENV2        D              S0151 UQV16 FSNAME=ALGOL68C.STD_ENV2.D.023                    82
            D4T3    712  ALGOL68C.STD_ENV2.D.023            1 LINE     45    3 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:12:47
0          THE ENVIRONMENT FILE OUTPUT OF COMPONENT 3013/21; IT POINTS AT COMPONENT 3013/27.
03013/024   ALGOL68C                 STD ENV2        D              S0151 UQV16 FSNAME=ALGOL68C.STD_ENV2.D.024                    83
            D4T3    713  ALGOL68C.STD_ENV2.D.024            1 LINE     37    3 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:12:54
0          THE ENVIRONMENT FILE OUTPUT OF COMPONENT 3013/22; IT POINTS AT COMPONENT 3013/23.
03013/025   ALGOL68C                 STD ENV2        OC  S          S0151 UQV16 FSNAME=ALGOL68C.STD_ENV2.OC.025                   84
            D4T3    714  ALGOL68C.STD_ENV2.OC.025           1 SEQ   11568    4 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:13:01
0          THE OBJECT FILE OUTPUT OF COMPONENT 3013/21.
03013/026   ALGOL68C                 STD ENV2        OC  S          S0151 UQV16 FSNAME=ALGOL68C.STD_ENV2.OC.026                   85
            D4T3    715  ALGOL68C.STD_ENV2.OC.026           1 LINE     73    5 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:13:08
0          THE OBJECT FILE OUTPUT OF COMPONENT 3013/22.
03013/027   ALGOL68C                 STD ENV2        D              S0151 UQV16 FSNAME=ALGOL68C.STD_ENV2.D.027                    86
            D4T3    716  ALGOL68C.STD_ENV2.D.027            1 LINE     95    4 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:13:15
0          THIS IS COMPONENT 3013/15 MODIFIED TO INCLUDE THE NAMES OF ALL THE ROUTINES IN
1                                                                                               FRI AUG 02/96   16:11:27   Page  383
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          3013/7 WHICH CAME FROM 3013/8 (I.E. ARE CALLABLE FROM ALGOL68C).
03013/028   ALGOL68C                 COMPILER        OE  O          S0151 UQV16 FSNAME=ALGOL68C.COMPILER.OE.028                   87
            D4T3    717  ALGOL68C.COMPILER.OE.028           1 SEQ   32767   45 PAGE UQV  MAILLOUX  OGDEN     MAR. 20, 1976  08:46:50
0          THIS IS THE SAME AS COMPONENT 3013/1, BUT IT HAS A DIFFERENT TRANSLATE TABLE
           (STROPPING CONVENTION).  IT USES A SINGLE CASE WITH KEYWORDS PREFIXED BY AN
           APOSTROPHE; E.G.   'BEGIN 'INT I; READ(I); PRINT(I); 'SKIP  'END
03013/029   ALGOL68C                 RUN-TIME LIB    OL  O          S0151 UQV16 FSNAME=ALGOL68C.RUN-TIME_LIB.OL.029               88
            D4T3    718  ALGOL68C.RUN-TIME_LIB.OL.029       1 SEQ     255    2 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:16:30
0          SOME SUBROUTINES USED BY COMPONENT 3013/7 WHICH USE S-TYPE LINKAGE.
           THE ROUTINES INCLUDE:
           DTSTAMP: RETURNS A 16-CHARACTER DATE AND TIME-OF-DAY STRING IN THE FORMAT "YY-MM-DD @ HH:MM"
           ERRMSG:  LIKE SERCOM, BUT ALSO WRITES ON *SINK* AND *MSINK* IF DIFFERENT
           ZDREAL:  CONVERTS (ZONED DECIMAL(18),INTEGER) TO REAL(8)
           REALZD:  CONVERTS REAL(8) TO (ZONED DECIMAL(18),INTEGER)
03013/030   ALGOL68C                 STD ENV1        OE  O          S0151 UQV16 FSNAME=ALGOL68C.STD_ENV1.OE.030                   89
            D4T3    719  ALGOL68C.STD_ENV1.OE.030           1 SEQ    3402    2 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:16:32
0          THE OBJECT FILE SUPPORTING FEATURES DESCRIBED IN COMPONENTS 3013/16, 3013/17, AND 3013/18.
           IT CONTAINS ROUTINES AVAILABLE TO ALGOL68C PROGRAMS.
           IT USE SOME ROUTINES FROM COMPONENT 3013/7.
03013/031   ALGOL68C                 STD ENV1        OC  G          S0151 UQV16 FSNAME=ALGOL68C.STD_ENV1.OC.031                   90
            D4T3    720  ALGOL68C.STD_ENV1.OC.031           1 LINE     34    1 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:16:39
0          THIS IS JUST AN ABBREVIATION FOR "AL68:USER+AL68:ZLIB+AL68:LIBRARY."
           I.E.  COMPONENTS 3013/30, 3013/7, 3013/29.
03013/032   ALGOL68C                 COMPILER        D              S0151 UQV16 FSNAME=ALGOL68C.COMPILER.D.032                    91
            D4T3    721  ALGOL68C.COMPILER.D.032            1 LINE    120    1 PAGE UQV  MAILLOUX  OGDEN     OCT. 11, 1976  09:16:46
0          THE NEWS FILE USED BY COMPONENT 3013/6.  THE OLD NEWS IS IN THE NEGATIVE LINE RANGE.
03023/001  *ASSIST                   SUNDRIES        SA  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE1                    
            D4T3    722  ASSIST.SUNDRIES.SA.001             1 LINE     80   97 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:01
0          BASE SOURCE FOR ASSIST GLOBALS, MACROS, DSECTS, ETC.
03023/002  *ASSIST                   SUNDRIES        UU  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.S1.U                   
            D4T3    723  ASSIST.SUNDRIES.UU.002             1 LINE     72    9 PAGE UQV            BODWIN    JUNE 22, 1977  22:06:37
0          UPDATE TO BE APPLIED TO 3023/1 TO YIELD A PREFIX OF ASSEMBLER STATEMENTS WHICH
           MUST PRECEDE ASSEMBLIES OF CERTAIN ASSIST COMPONENTS.
03023/003  *ASSIST                   SERVICE MODULE  SA  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE2                    
            D4T3    724  ASSIST.SERVICE_MODULE.SA.003       1 LINE     80  143 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:17
0          BASE SOURCE FOR ASSIST SERVICE MODULE (I.E., I/O, MAIN PROGRAM, INTERRUPTS, ETC.).
1                                                                                               FRI AUG 02/96   16:11:27   Page  384
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
+         ______________ _____________________
03023/004  *ASSIST                   SERVICE MODULE  UU  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.S2.U                   
            D4T3    725  ASSIST.SERVICE_MODULE.UU.004       1 LINE     72   29 PAGE UQV            BODWIN    JUNE 22, 1977  22:06:42
0          UPDATE TO BE APPLIED TO 3023/3 TO YIELD SERVICE MODULE SOURCE.  MUST BE ASSEMBLED
           WITH RESULT OF 3023/2.
03023/005  *ASSIST                   ASSEMBLER       SA  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE3                    
            D4T3    726  ASSIST.ASSEMBLER.SA.005            1 LINE     80  185 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:35
0          BASE SOURCE FOR ASSEMBLER OF THE ASSIST PACKAGE.
03023/006  *ASSIST                   ASSEMBLER       UU  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.S3.U                   
            D4T3    727  ASSIST.ASSEMBLER.UU.006            1 LINE     72    7 PAGE UQV            BODWIN    JUNE 22, 1977  22:06:53
0          UPDATE TO BE APPLIED TO 3023/5 TO YIELD ASSEMBLER SOURCE.  MUST BE ASSEMBLED
           WITH RESULT OF 3023/2.
03023/007  *ASSIST                   MACRO PHASE     SA  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE5                    
            D4T3    728  ASSIST.MACRO_PHASE.SA.007          1 LINE     80  139 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:59
0          BASE SOURCE FOR MACRO PROCESSOR OF ASSIST PACKAGE.
03023/008  *ASSIST                   MACRO PHASE     UU  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.S4.U                   
            D4T3    729  ASSIST.MACRO_PHASE.UU.008          1 LINE     72    1 PAGE UQV            BODWIN    JUNE 22, 1977  22:06:58
0          UPDATE TO BE APPLIED TO 3023/7 TO YIELD MACRO PROCESSOR SOURCE.  MUST BE ASSEMBLED
           WITH RESULT OF 3023/2.
0          Referenced by comments of: 3023/12 
03023/009  *ASSIST                   SIMULATOR       SA  G  SIM     S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.SIM.S                  
            D4T3    730  ASSIST.SIMULATOR.SA.009            1 LINE     80   74 PAGE UQV            BODWIN    JUNE 22, 1977  16:12:35
03023/010  *ASSIST                   FIOCS           SA  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=FIOCS.S                    
            D4T3    731  ASSIST.FIOCS.SA.010                1 LINE     80   10 PAGE UQV            BODWIN    JUNE 10, 1977  13:18:17
03023/011  *ASSIST                   ADCON/IBCOM     OE  B          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ADCON/IBCOM                
            D4T3    732  ASSIST.ADCON/IBCOM.OE.011          1 SEQ    4308    3 PAGE UQV            BODWIN    JUNE 10, 1977  13:11:00
0          MODULE TO DO FORTRAN  STYLE I/O FROM ASSIST.
           THE "GOODNESS" RATING OF THIS COMPONENT IS LOW SINCE NO SOURCE HAS BEEN MADE
           AVAILABLE BY UBC.
03023/012  *ASSIST                   *ASSIST         OE  G          *ASSIST                                                         
            D4T3    733  ASSIST.*ASSIST.OE.012              1 SEQ   28232   18 PAGE UQV            BODWIN    JULY 29, 1977  00:39:28
0          CURRENT, LINKEDITTED ASSIST OBJECT COMPRISED OF OBJECT FROM 3023/4, 3023/6,
           3023/8, 3023/9, 3023/10, AND 3023/11.  THE SYSTEM MACRO LIBRARY FEATURE (3023/8)
           REFERENCES THE FILE *ASSISTMAC (3023/13).
03023/013  *ASSIST                   *ASSISTMAC      SM             *ASSISTMAC                                                      
            D4T3    734  ASSIST.*ASSISTMAC.SM.013           1 LINE     72    5 PAGE UQV            BODWIN    JULY 29, 1977  00:39:31
0          ASSIST "SYSTEM" MACRO LIBRARY, REFERENCED BY 3023/12.
1                                                                                               FRI AUG 02/96   16:11:27   Page  385
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: 3023/12 
03023/014  *ASSIST                   TEST PROGRAMS   SA             S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.PROGS                  
            D4T3    735  ASSIST.TEST_PROGRAMS.SA.014        1 LINE     73    9 PAGE UQV            BODWIN    JUNE 10, 1977  13:20:14
0          TEST PROGRAMS TO EXERCISE ALL FEATURES OF ASSIST.
03024/001   BENCHMARK                DSR             SA  G  BDSR    MTS:BNCH.DSR                                                    
            D4T3    736  BENCHMARK.DSR.SA.001               1 LINE     80   55 PAGE UQV            MTA       JULY 29, 1977  00:39:42
0          BENCHMARK DSR.  ALLOWS SIMULATION OF MANY TERMINAL USERS ENTERING INPUT AS SPECIFIED
           IN *SCRIPTN AT A SPECIFIED TYPING RATE WITH SPECIFIED "THINK" TIMES AND WITH OUTPUT
           (THROWN AWAY) AT A SPECIFIED RATE.  COPIES COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS
           (1026/3), COPY:LLMPSEQU(100) (087), COPY:CDCADSECT (3024/20), AND *GDINFODSECT (594).
           ASSEMBLE USING COPY:FILE.MACROS (482/36).
0          Referenced by comments of: 3024/18, 3024/27 
03024/002   BENCHMARK                DSR             OC  G          *BNCHRTN                                                        
            D4T3    737  BENCHMARK.DSR.OC.002               1 LINE     80    7 PAGE UQV            MTA       JULY 29, 1977  00:39:49
03024/003   BENCHMARK                MONITOR         SA  G  BMON    MTS:BNCH.MONITOR(1000)                                          
            D4T3    738  BENCHMARK.MONITOR.SA.003           1 LINE     80   19 PAGE UQV            MTA       JULY 29, 1977  00:39:51
0          PROGRAM TO CONTROL BENCHMARK RUNS.  COPIES COPY:CDCADSECT (3024/20) AND COPY:JOBSTA (413/13).
0          Referenced by comments of: 3024/18, 3024/22, 3024/26 
03024/004   BENCHMARK                MONITOR         OC  G          MTS:BNCH.MONITOR(1,999)                                         
            D4T3    739  BENCHMARK.MONITOR.OC.004           1 LINE   1668    7 PAGE UQV            MTA       JULY 29, 1977  00:39:53
03024/005   BENCHMARK                ANALYSIS        SF  O          MTS:BNCH.ANALYSI                                                
            D4T3    740  BENCHMARK.ANALYSIS.SF.005          1 LINE     68    3 PAGE UQV            MTA       JULY 29, 1977  00:39:56
0          PROGRAM TO PRINT THE DATA COLLECTED BY 3024/1.
03024/006   BENCHMARK                ANALYSIS        OC  O          MTS:BNCH.ANAL.O                                                 
            D4T3    741  BENCHMARK.ANALYSIS.OC.006          1 SEQ    1668    2 PAGE UQV            MTA       JULY 29, 1977  00:39:58
03024/007   BENCHMARK                SCRIPT POINTER  D              *SCRIPTPTRFILE                                                  
            D4T3    742  BENCHMARK.SCRIPT_POINTER.D.007     1 LINE     24    1 PAGE UQV            MTA       JULY 29, 1977  00:40:00
0          DATA FILE USED BY MTS TO MAP THE PSEUDO-DEVICE NAMES *SN* INTO SCRIPT FILE NAMES.
03024/008   BENCHMARK                SCRIPT 1        C              *SCRIPT1                                                        
            D4T3    743  BENCHMARK.SCRIPT_1.C.008           1 LINE     90    3 PAGE UQV            MTA       JULY 29, 1977  00:40:03
0          SCRIPT WHICH USES EDITOR FAST INSERT MODE.
03024/009   BENCHMARK                SCRIPT 2        C              *SCRIPT2                                                        
            D4T3    744  BENCHMARK.SCRIPT_2.C.009           1 LINE     39    1 PAGE UQV            MTA       JULY 29, 1977  00:40:05
0          SCRIPT WHICH USES THE EDITOR.
1                                                                                               FRI AUG 02/96   16:11:27   Page  386
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
+         ______________ _____________________
03024/010   BENCHMARK                SCRIPT 3        C              *SCRIPT3                                                        
            D4T3    745  BENCHMARK.SCRIPT_3.C.010           1 LINE     56    1 PAGE UQV            MTA       JULY 29, 1977  00:40:07
0          SCRIPT WHICH ENTERS, COMPILES, AND RUNS THE ETEST (COMPUTE E TO 2500 DECIMAL
           PLACES) PROGRAM.
03024/011   BENCHMARK                SCRIPT 4        C              *SCRIPT4                                                        
            D4T3    746  BENCHMARK.SCRIPT_4.C.011           1 LINE     58    1 PAGE UQV            MTA       JULY 29, 1977  00:40:10
0          INTERACTIVE FORTRAN (IF) SCRIPT.
03024/012   BENCHMARK                SCRIPT 5        C              *SCRIPT5                                                        
            D4T3    747  BENCHMARK.SCRIPT_5.C.012           1 LINE     81    1 PAGE UQV            MTA       JULY 29, 1977  00:40:12
0          ASSEMBLER SCRIPT.
03024/013   BENCHMARK                SCRIPT 5 DATA   SA             MTS:WSG.TAPE                                                    
            D4T3    748  BENCHMARK.SCRIPT_5_DATA.SA.013     1 LINE     72   47 PAGE UQV            MTA       JULY 29, 1977  00:40:14
0          ASSEMBLY SOURCE FOR PROGRAM ASSEMBLED BY SCRIPT 5.
03024/014   BENCHMARK                SCRIPT 6        C              *SCRIPT6                                                        
            D4T3    749  BENCHMARK.SCRIPT_6.C.014           1 LINE     39    1 PAGE UQV            MTA       JULY 29, 1977  00:40:18
0          FAST FOURIER TRANSFORM SCRIPT.
03024/015   BENCHMARK                SCRIPT 6 PGM    SF  G          S0221 FSAVE FSNAME=FFT.SF                                       
            D4T3    750  BENCHMARK.SCRIPT_6_PGM.SF.015      1 LINE     71    6 PAGE UQV            MTA       AUG. 28, 1975  17:00:57
0          DOUBLE PRECISION FFT PROGRAM IN FTN H WHICH IS RUN BY SCRIPT 6.
0          Referenced by comments of: 3024/17 
03024/016   BENCHMARK                SCRIPT 6 PGM    OE  G          MTS:FFT.HD                                                      
            D4T3    751  BENCHMARK.SCRIPT_6_PGM.OE.016      1 SEQ    1440    2 PAGE UQV            MTA       JULY 29, 1977  00:42:31
03024/017   BENCHMARK                SCRIPT 6 DATA   D              MTS:FFT.DATA                                                    
            D4T3    752  BENCHMARK.SCRIPT_6_DATA.D.017      1 LINE     11    1 PAGE UQV            MTA       JULY 29, 1977  00:42:31
0          DATA FOR SCRIPT 6 FFT PROGRAM (3024/15).
03024/018   BENCHMARK                COMM AREA       SA  G  BSG2    MTS:BNCH.SEG2(1,999)                                            
            D4T3    753  BENCHMARK.COMM_AREA.SA.018         1 LINE     80    1 PAGE UQV            MTA       JULY 29, 1977  00:42:35
0          COMMUNICATIONS AREA USED BY BNCH.DSR (3024/1) AND BNCH.MONITOR (3024/3).  MUST BE
           LOADED INTO SHARED VM PRIOR TO RUNNING BNCH.MONITOR.
03024/019   BENCHMARK                COMM AREA       OC  G          MTS:BNCH.SEG2(1000)                                             
            D4T3    754  BENCHMARK.COMM_AREA.OC.019         1 LINE     80    5 PAGE UQV            MTA       JULY 29, 1977  00:42:36
03024/020   BENCHMARK                CDCADSECT       SA  G          COPY:CDCADSECT                                                  
            D4T3    755  BENCHMARK.CDCADSECT.SA.020         1 LINE     60    1 PAGE UQV            MTA       JULY 29, 1977  00:42:39
0          COPY SECTION DESCRIBING THE FORMAT OF AN ENTRY IN THE COMMUNICATIONS AREA.
1                                                                                               FRI AUG 02/96   16:11:27   Page  387
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: 3024/1, 3024/3 
03024/021   BENCHMARK                120 TERMINALS   C              MTS:BNCH.SCR.120                                                
            D4T3    756  BENCHMARK.120_TERMINALS.C.021      1 LINE     81    1 PAGE UQV            MTA       JULY 29, 1977  00:42:41
0          COMMAND FILE TO RUN A 120 TERMINAL BENCHMARK.
0          Referenced by comments of: 3024/22 
03024/022   BENCHMARK                START COMMANDS  D              MTS:BNCHCMDS                                                    
            D4T3    757  BENCHMARK.START_COMMANDS.D.022     1 LINE      9    1 PAGE UQV            MTA       JULY 29, 1977  00:42:44
0          BNCH.MONITOR (3024/3) START COMMANDS USED BY BNCH.SCR.120 (3024/21).
03024/023   BENCHMARK                TEST SCRIPTS    C              MTS:BNCH.TEST                                                   
            D4T3    758  BENCHMARK.TEST_SCRIPTS.C.023       1 LINE     44    1 PAGE UQV            MTA       JULY 29, 1977  00:42:46
0          COMMAND FILE TO PRODUCE A PRINTED COPY OF THE EXECUTION OF ONE OF THE SCRIPTS
           TO CHECK THAT IT WORKS CORRECTLY.
03024/024   BENCHMARK                BATCH SUBMIT    SF  O          S0689 UQVD06 FSNAME=BENCHMARK.SUBMIT.SF.5(1)                    
            D4T3    759  BENCHMARK.BATCH_SUBMIT.SF.024      1 LINE     72    3 PAGE UQV            MTA       FEB. 16, 1976  11:36:46
0          PROGRAM TO SUBMIT BATCH JOBS FOR A BENCHMARK RUN.  READS A DRIVER FILE (SEE 3024/25
           FOR AN EXAMPLE).  SEE THE SOURCE CODE FOR COMMENTS EXPLAINING THE FORMAT.
0          Referenced by comments of: 3024/25 
03024/025   BENCHMARK                BATCH DRIVER    D   O          S0689 UQVD06 FSNAME=BENCHMARK.DRIV_FILE.D.6(1)                  
            D4T3    760  BENCHMARK.BATCH_DRIVER.D.025       1 LINE     61    2 PAGE UQV            MTA       FEB. 16, 1976  11:36:48
0          SAMPLE DRIVER FILE FOR BATCH SUBMIT PROGRAM (3024/24).
03024/026   BENCHMARK                MON WRITEUP     WF             MTS:BNCH.WRITEUP                                                
            D4T3    761  BENCHMARK.MON_WRITEUP.WF.026       1 LINE    129    4 PAGE UQV            MTA       JULY 29, 1977  00:43:42
0          WRITEUP DESCRIBING BNCH.MONITOR (3024/3).
03024/027   BENCHMARK                DSR WRITEUP     WF             MTS:BNCHDSR.W                                                   
            D4T3    762  BENCHMARK.DSR_WRITEUP.WF.027       1 LINE     83    5 PAGE UQV            MTA       JULY 29, 1977  00:43:42
0          WRITEUP DESCRIBING THE BENCHMARK DSR (3024/1).
03025      *SENSEDSECT                               SA  G          *SENSEDSECT                                                     
            D4T3    763  SENSEDSECT..SA.                    1 LINE     80    7 PAGE SFU  BENET     DWB       JULY 29, 1977  00:43:45
0          UQV DSECT FOR MAG TAPE SNS DATA -- NOW EXTENDED (GROSSLY) BY UM TO ADD SNS DATA FOR *...*
           AND TERMINAL DSR'S.
0          Referenced by comments of: 135/1, 314/1, 489/1, 513/1, 545/3, 553/1 
1                                                                                               FRI AUG 02/96   16:11:27   Page  388
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
+         ______________ _____________________
03030       VAMREC                                                # (SEE COMP 682)                                                  
                                                                                    UQV                                             
0          Referenced by comments of: 82/1 
04000/001   GATE                     D4 MASTER       SA  G  GATE    S0917 MTSSD4 'MTS MASTER D4.0' POSN=GATE                        
            D4T3    764  GATE.D4_MASTER.SA.001              1 SEQ      80   17 PAGE WSU  JACOBS    DWB       JULY 29, 1977  00:44:13
0          GATE IS A NEW COMPONENT WHICH REPLACES LCSYMBOL (043).  THIS COMPONENT IS AN
           INTERFACE FROM USER PROGRAMS TO MTS-PROVIDED SUBROUTINES.  IT DEFINES LCSYMBOL
           AND FURNISHES THE ENTRY POINTS FOR ALL USER-CALLABLE SYSTEM SUBROUTINES WHICH
           MUST RUN IN SYSTEM MODE -- I.E. THOSE WHICH REQUIRE ACCESS TO THE MTS SYSTEM
           SEGMENT (CURRENTLY SEGMENT 5) OR ISSUE PRIVILEGED SVCS.  THIS COMPONENT ALSO
           PROVIDES THE RETURN POINT FOR THESE SUBROUTINES.  AT THE ENTRY (PORT), AN SVC
           SYSTEM IS ISSUED TO SWITCH TO SYSTEM MODE; AT THE RETURN, AN SVC TRAX IS USED
           TO RETURN TO THE ORIGINAL CALLER IN USER MODE.  COPIES COPY:LLMPSEQU (087)
           AND COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1 
04000/002   GATE                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    WSU  JACOBS    DWB                              
04000/003   GATE                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    WSU  JACOBS    DWB                              
04000/004   GATE                     370 LISTING     L              S0874 MTSS6L 'MTS LISTINGS D4.0' POSN=GATE.LIST                 
            D4T3    765  GATE.370_LISTING.L.004             1 SEQ     133  203 PAGE WSU  JACOBS    DWB       JULY 29, 1977  00:45:09
04000/005   GATE                     360 LISTING     L              S0552 MTS67L 'MTS 360 LISTINGS D4.0' POSN=GATE.LIST             
            D4T3    766  GATE.360_LISTING.L.005             1 SEQ     133  203 PAGE WSU  JACOBS    DWB       JULY 29, 1977  00:46:06