1                                                                                               MON AUG 05/96   18:37:45   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/001A  UMLOAD                   D5.0 MASTER     SA  G          W009:UMLOAD.S                                                   
            5.0T1     1  UMLOAD.D5.0_MASTER.SA.001          1 LINE     80   88 PAGE UM   SHERRY              JULY 03, 1981  11:55:32
            5.0T1     1  W009:UMLOAD.S        
0          The MTS relocatable loader.
            
           *******************************************************************
           D5.0 version:
            
           New master generated for this version by applying the update decks
           in (001/2) to the D4.3 version. These updates include the RPI one to
           implement the OPT card option BTCRPL=ON and the UBC one to change 
           UMLOAD's error messages to mixed case.
           *******************************************************************
0          Referenced by comments of: 1/2, 1021/7, 1021/10 
00001/002A  UMLOAD                   UPDATE          UC  G          W009:UMLOAD.U                                                   
            5.0T1     2  UMLOAD.UPDATE.UC.002               1 LINE     72    4 PAGE UM   SHERRY              JULY 03, 1981  11:55:42
            5.0T1     2  W009:UMLOAD.U        
0          UPDATE DECK TO PRODUCE CURRENT UMLOAD SOURCE (001/1) FROM D4.3 UMLOAD.
0          Referenced by comments of: 1/1 
00001/003   UMLOAD                   OBJECT          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   SHERRY                                     
0          Object part of Resident System (468)
00001/004   UMLOAD                   LOADINFO DSECT  SA  G          *LOADINFODSECT                                                  
            5.0T1     3  UMLOAD.LOADINFO_DSECT.SA.004       1 LINE     67    1 PAGE UM   SHERRY              JULY 03, 1981  11:55:43
            5.0T1     3  *LOADINFODSECT       
0          COPY SECTION FOR INFORMATION RETURNED BY LOADINFO SUBR, PART OF (354/1).
0          Referenced by comments of: 495/1, 506/3, 545/3, 721/1, 738/1, 804/1, 1023/1 
00001/005A  UMLOAD                   INFO CLS        SA  O          W009:CLSINFO.S                                                  
            5.0T1     4  UMLOAD.INFO_CLS.SA.005             1 LINE     85   30 PAGE UM   SHERRY              JULY 03, 1981  11:55:44
            5.0T1     4  W009:CLSINFO.S       
0          A CLS-CODED PROGRAM (I.E. USE VIA THE MTS #CLS COMMAND) TO ALLOW THE USER
           TO EXAMINE LOADER TABLES (INCLUDING THE RESIDENT IPL LOADER PSECT) AND LOW
           CORE SYMBOL TALES (LCSYMBOL, SYSDEFS, <FIX>, ETC.).  ASSEMBLE USING
           COPY:MTS.MACROS (344/3) AND THE *OBJUTIL MISCELLANEOUS MACROS (721/15).
           COPIES *CNFGINFODSECT (654). REQUIRES THE MSG ROUTINES (1023/1).
00001/006A  UMLOAD                   INFO CLS        OE  O          W009:I                                                          
            5.0T1     5  UMLOAD.INFO_CLS.OE.006             1 LINE  12100   11 PAGE UM   SHERRY              AUG. 28, 1981  02:05:50
            5.0T1     5  W009:I               
1                                                                                               MON AUG 05/96   18:37:45   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/007A  UMLOAD                   INFO CLS        M              W009:CLSINFO.X                                                  
            5.0T1     6  UMLOAD.INFO_CLS.M.007              1 LINE     74    3 PAGE UM   SHERRY              JULY 03, 1981  11:56:07
            5.0T1     6  W009:CLSINFO.X       
0          MESSAGE FILE USED BY THE INFO CLS.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00001/008A  UMLOAD                   INFO CLS        WF             W009:CLSINFO.W                                                  
            5.0T1     7  UMLOAD.INFO_CLS.WF.008             1 LINE     91    4 PAGE UM   SHERRY              JULY 03, 1981  11:56:08
            5.0T1     7  W009:CLSINFO.W       
0          WRITEUP DESCRIBING THE INFO CLS PROGRAM.
00001/009   UMLOAD                   CLSDRV          SA  O          W009:CLSDRV.S                                                   
            5.0T1     8  UMLOAD.CLSDRV.SA.009               1 LINE    109    1 PAGE UM   SHERRY              JULY 03, 1981  11:56:09
            5.0T1     8  W009:CLSDRV.S        
0          THIS IS AN INTERFACE PROGRAM WHICH PERMITS THE INFO CLS TO BE RUN AS A NORMAL
           PROGRAM. ASSEMBLE WITH COPY:MTS.MACROS (344/3) AND THE *OBJUTIL MACROS (721/14).
00001/010   UMLOAD                   CLSDRV          OC  O          W009:CLSDRV.O                                                   
            5.0T1     9  UMLOAD.CLSDRV.OC.010               1 LINE    604    1 PAGE UM   SHERRY              JULY 03, 1981  11:56:09
            5.0T1     9  W009:CLSDRV.O        
00003/001A  JOBLIST                                  SA  G          DMGR:JOBLIST                                                    
            5.0T1    10  JOBLIST..SA.001                    1 LINE     71    5 PAGE UM   HELFFRICH           AUG. 05, 1981  01:57:33
            5.0T1    10                       
0          MANY ASSEMBLIES WHICH TOGETHER FORM THE LIST OF AVAILABLE JOBS IN UMMPS.
           ASSEMBLE WITH PAR=B.
            
           *************************************************************************
           D5.0 version:
            
           Added entries for T11 (819), Intertask (1081) and the Disk Manager (769).
           *************************************************************************
0          Referenced by comments of: 534/1 
00003/002A  JOBLIST                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00004/001A  TABLES                                   SA  G          WSG:TABLES                                                      
            5.0T1    11  TABLES..SA.001                     1 LINE    109   13 PAGE UM   WSG                 AUG. 21, 1981  04:29:35
            5.0T1    11  WSG.:TABLES          
0          Tables that define the hardware configuration for the UM amdahl 470, the
           number of low-core terminal I/O buffers, the list of public disk volume names
           and corresponding disk drives, etc. This deck is distributed as an example of
           an I/O configuration; obviously, each installation will supply TABLES for its
           local configuration or use DECKGEN (004/4). This deck contains several macro
           definitions useful for defining the tables. Copies COPY:LLMPSEQU (087),
           COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), and *CNFGINFODSECT(2)
1                                                                                               MON AUG 05/96   18:37:45   Page    3
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          (654). Assemble using COPY:FILE.MACROS (482/45) and COPY:SETPARM (653).
           Assemble using *ASMH with PAR=REL2 to suppress halfword relocatable Y-CON
           warning messages.  Contains commands to assemble starting at line 0.
0          Referenced by comments of: 482/47 
00004/002A  TABLES                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   WSG                                        
0          Object part of Resident System (468)
00004/003A  TABLES                   WRITEUP         WF             WSG:TABLES.WF                                                   
            5.0T1    12  TABLES.WRITEUP.WF.003              1 LINE    189   12 PAGE UM   WSG                 AUG. 21, 1981  04:31:04
            5.0T1    12                       
00004/004A  TABLES                   DECKGEN         SA  O          MTS:DCKPCHR(1000)                                               
            5.0T1    13  TABLES.DECKGEN.SA.004              1 LINE     72   45 PAGE UBC            HELFFRICH AUG. 28, 1981  02:07:55
            5.0T1    13                       
0          STAND-ALONE PROGRAM TO GENERATE AN ASSEMBLER OBJECT DECK FOR THE SYSTEM TABLES
           CSECT BASED ON INPUT ENTERED FROM THE OPERATOR'S CONSOLE.  IT WILL ALSO WRITE
           THE GENERATED OBJECT DECK ONTO A TAPE, FOR SUBSEQUENT USE WITH THE IPLREADER
           PROGRAM (1021), WHICH CAN REPLACE THE TABLES CSECT IN A SYSTEM WITH THE ONE
           FROM THE TAPE.  USES THE IPLREADER ROUTINES FOR CONSOLE I/O, WHICH MEANS THAT
           A 3270 MAY BE USED.  COPIES *CNFGINFODSECT (654).  ASSEMBLE WITH *ASMH USING
           COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), AND *SYSMAC.
0          Referenced by comments of: 4/1, 9/1 
00004/005A  TABLES                   DECKGEN         OC  O          MTS:DCKPCHR(1,999)                                              
            5.0T1    14  TABLES.DECKGEN.OC.005              1 LINE     80    9 PAGE UBC            HELFFRICH AUG. 28, 1981  02:08:25
            5.0T1    14  MTS.:DCKPCHR         
0          THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE.
00004/006A  TABLES                   *IPL.DECKGEN    D              MTS:IPL.DECKGEN                                                 
            5.0T1    15  TABLES.?IPL.DECKGEN.D.006          1 SEQ    4100   30 PAGE UBC            HELFFRICH AUG. 28, 1981  02:08:34
            5.0T1    15  *IPL.DECKGEN         
0          OBJECT FOR DECKGEN SUITABLE FOR LOADING BY THE IPL READER.
00004/007A  TABLES                   DECKGEN DESCR   WF             MTS:DCKPCHR.W                                                   
            5.0T1    16  TABLES.DECKGEN_DESCR.WF.007        1 LINE    126    9 PAGE UBC            HELFFRICH JULY 03, 1981  11:57:39
            5.0T1    16  MTS.:DCKPCHR.W       
0          WRITEUP DESCRIBING HOW TO USE THE DECKGEN PROGRAM TO GENERATE A TABLES OBJECT DECK.  A COPY IS INCLUDED WITH
           THE PAPER DOCUMENTATION.
00005/001A  JBRP                     D5.0 SOURCE     SA  G          S0699 D3TAPE POSN=JBRP.D5                                       
            5.0T4   268  JBRP.D5.0_SOURCE.SA.001            1 LINE     80    7 PAGE UM   MTA                 AUG. 09, 1981  22:30:26
            5.0T10  172                       
0          JOB REQUEST PROCESSOR (TASK INITIALIZATION).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          ASSEMBLE USING COPY:SETPARM (653).
00005/002A  JBRP                     UPDATE          UC  G          MTA:JBRP.U                                                      
            5.0T4   269  JBRP.UPDATE.UC.002                 1 LINE     76    1 PAGE UM   MTA                 AUG. 09, 1981  22:30:27
            5.0T10  173                       
0          UPDATE TO PRODUCE CURRENT SOURCE FROM D4.3 SOURCE.
00005/003A  JBRP                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          *********************************************************************************
           D5.0 CHANGES (ALREADY DISTRIBUTED ON D4.3A):
            
           Changed for device table vector addition to job table format. 
           Install if and only if D4.3A or D5.0 UMMPS is installed.
           *********************************************************************************
           Object part of Resident System (468)
00006/001   FNDJTL                                   SA  G          S0563 D4T1 VLO FSNAME=FNDJTL..SA.001(1)                       17
            5.0T1    17  FNDJTL..SA.001                     1 LINE     80    2 PAGE UM   MTA                 JULY 27, 1977  21:23:58
            5.0T1    17                       
0          FIND JOB TABLE.
00006/002   FNDJTL                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00007/001A  FBJTJL                   D5.0 SOURCE     SA  G          S0699 D3TAPE POSN=FBJTJL.D5                                     
            5.0T4   270  FBJTJL.D5.0_SOURCE.SA.001          1 LINE     80    4 PAGE UM   MTA                 AUG. 09, 1981  22:31:05
            5.0T10  174                       
0          FREE BUFFERS AND JOB TABLE, CALLED BY EXIT (010).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
00007/002A  FBJTJL                   UPDATE          UC  G          MTA:FBJTJL.U                                                    
            5.0T4   271  FBJTJL.UPDATE.UC.002               1 LINE     68    1 PAGE UM   MTA                 AUG. 09, 1981  22:31:06
            5.0T10  175                       
0          UPDATE TO PRODUCE THE CURRENT SOURCE USING THE D4.3 SOURCE AS BASE.
00007/003   FBJTJL                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00008/001A  FIDCQ                                    SA  G          MTA:FIDCQ                                                       
            5.0T1    18  FIDCQ..SA.001                      1 LINE     72    1 PAGE UM   MTA                 JULY 03, 1981  11:58:50
            5.0T1    18                       
0          FREE I/O DEVICES AND CPU QUEUE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
            
           ***********************************************************************************
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A):
            
           CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT.
           INSTALL IF AND ONLY IF D4.3A or D5.0 UMMPS IS INSTALLED.
           ***********************************************************************************
0          Referenced by comments of: 45/2 
00008/002A  FIDCQ                                    OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00009/001A  BUFALLOC                                 SA  G          S0683 OGDEN FSNAME=BUFALLOC.S                                   
            5.0T1    19  BUFALLOC..SA.001                   1 LINE     68    4 PAGE UM   OGDEN               MAR. 28, 1981  00:29:46
            5.0T1    19                       
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. COPIES COPY:GLOBALS (1026/3),
           COPY:LLMPSEQU (087), AND *CNFGINFODSECT (654).
            
           THE BUFSTAT PROGRAM (009/3) PRINTS WHICH JOB IS USING WHICH BUFFER(S).
            
           ****************************************************************************
           D5.0 CHANGES:
            
           TERMINAL BUFFERS MOVED OUT OF TABLES AND INTO SHARED VM. BUFALLOC NOW
           DYNAMICALLY ALLOCATES TERMINAL BUFFERS AS NEEDED AND REQUIRES A GR13 SAVE
           AREA. IT NO LONGER SETS THE BUFALLOC SVC LOCK, BUT IT DOES UPDATE ENDSEG2 AND
           SO MUST SET THE UMLOAD/ENDSEG2 LOCK. IT IS IMPORTANT THAT ALL PROGRAMS THAT
           UPDATE ENDSEG2 OR USE SHARED VM PAST ENDSEG2 SET THIS LOCK. PRINTDUMP
           (400) AND BUFSTAT (009/3) HAVE BEEN CHANGED TO SUPPORT THE NEW FORMAT.
           DECKGEN (004/4) NO LONGER INCLUDES TERMINAL BUFFERS IN THE TABLES IT
           GENERATES. EXIT (010), HASP (387), TSFO (038) AND THE MERIT DSR (570) WERE
           CHANGED TO SUPPLY A GR13 SAVE AREA.
           ****************************************************************************
0          Referenced by comments of: 9/3 
00009/002   BUFALLOC                                 OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00009/003A  BUFALLOC                 BUFSTAT         SA  G          MTS:BUFSTAT(1000)                                               
            5.0T1    20  BUFALLOC.BUFSTAT.SA.003            1 LINE     72    3 PAGE UM   OGDEN               JULY 03, 1981  12:03:11
            5.0T1    20  MTS.:BUFSTAT         
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.
           RUN WITH PROT=OFF. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
            
           ************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: 
            
             THIS VERSION IMPLEMENTS THE DEVICE LIST VECTOR AND SHOULD
             BE USED IF AND ONLY IF THE D4.3A OR D5.0 VERSION OF UMMPS
             IS INSTALLED.
            
           NEW D5.0 CHANGES:
            
           UPDATED TO WORK WITH THE NEW VERSION OF BUFALLOC (009).
           ************************************************************
0          Referenced by comments of: 9/1, 618/1 
00009/004A  BUFALLOC                 BUFSTAT         OC  G          MTS:BUFSTAT(1,999)                                              
            5.0T1    21  BUFALLOC.BUFSTAT.OC.004            1 LINE     80    3 PAGE UM   OGDEN               JULY 03, 1981  12:03:12
            5.0T1    21                       
0          Contains a $CONTINUE WITH COPY:SYSDEFS (579/3) record.
00010/001A  EXIT                                     SA  G          MTA:EXIT(1,999)                                                 
            5.0T1    22  EXIT..SA.001                       1 LINE     72    3 PAGE UM   MTA                 JULY 03, 1981  12:03:12
            5.0T1    22  MTA.:EXIT            
0          KILLS CALLING TASK.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653) AND COPY:DM.MACROS (769/19).
            
           **********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONTAINS DISK MANAGER CHANGES.
           **********************************************************************************
0          Referenced by comments of: 7/1, 9/1 
00010/002A  EXIT                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00011/001   CARDUC                                   SA  G          S0563 D4T1 VLO FSNAME=CARDUC..SA.001(1)                       22
            5.0T1    23  CARDUC..SA.001                     1 LINE     80    9 PAGE UM   MTA                 JULY 30, 1973  03:30.59
            5.0T1    23                       
0          2501 AND 2540 READER UNIT CHECK ROUTINES.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00011/002   CARDUC                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00012/001   TAPEUC                                                # (OBSOLETE)                                                      
            D4T1     23  TAPEUC..SA.001                     1 LINE     80   18 PAGE SFU                      JULY 27, 1977  21:25:13
            D4T1     23                       
0          Magnetic tape unit check routines, obsoleted by (787/15).
0          Referenced by comments of: 787/1 
00013/001A  PTRUC                    5.0 SOURCE      SA  G          S0699 D3TAPE POSN=PTRUC.D5                                      
            5.0T4   272  PTRUC.5.0_SOURCE.SA.001            1 LINE     80   14 PAGE UM   MTA                 AUG. 09, 1981  22:31:11
            5.0T10  176                       
0          1403, 1443, 3211, AND 3203 PRINTER UNIT CHECK ROUTINES.
00013/002C  PTRUC                    UPDATE          UC  G          MTA:PTRUC.U                                                     
            5.0T4   273  PTRUC.UPDATE.UC.002                1 LINE     82   11 PAGE UM   MTA                 AUG. 09, 1981  22:31:12
            5.0T10  177                       
0          Update to bring the D4.0 PTRUC to D5.0 version.  Adds 3211 and 3203 support.
00013/003   PTRUC                                    OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00014/001   PUNUC                                    SA  G          S1143 D4.1T1 VLO FSNAME=PUNUC..SA.001(1)                       8
            5.0T1    24  PUNUC..SA.001                      1 LINE     80    6 PAGE UM   DWB                 MAY  13, 1978  16:52:09
            5.0T1    24                       
0          2540 AND 1442 PUNCH UNIT CHECK ROUTINES.
00014/002   PUNUC                                    OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   DWB                                        
0          Object part of Resident System (468)
00016/001   CCTB                                     SA  G          S0683 OGDEN FSNAME=CCTB.S                                       
            5.0T1    25  CCTB..SA.001                       1 LINE     80    3 PAGE UM   OGDEN               SEP. 25, 1979  03:33:30
            5.0T1    25                       
0          USED BY MTS TO TRANSLATE LOGICAL CARRIAGE CONTROL TO PRINTER COMMANDS.
           RECENTLY CHANGED TO DEFINE "8" AS BOTTOM OF LOGICAL PAGE.  SEE THE
           DSR UPDATE (637/2) FOR DETAILS. 
00016/002   CCTB                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00017/001   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          S0563 D4T1 VLO FSNAME=STOP/BLAST/GOOSE_JOBS..SA.001(1)        27
            5.0T1    26  STOP/BLAST/GOOSE_JOBS..SA.001      1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:01.54
            5.0T1    26                       
0          THE STOP, BLAST, AND GOOSE UMMPS JOB PROGRAMS.  UNCHANGED SINCE DIST 1.0.
00018/002   STOP/BLAST/GOOSE JOBS                    OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00019/001A  TASKS JOB                                SA  G          WSG:TASKS                                                       
            5.0T1    27  TASKS_JOB..SA.001                  1 LINE     80    9 PAGE UM   WSG                 JULY 03, 1981  12:04:22
            5.0T1    27                       
0          The job program version of *TASKS (145); contains the TSKFMT subroutine called by
           *TASKS (145) and SSRTN (413/1).  Copies COPY:LLMPSEQU (087) and COPY:GLOBALS (1026/3).
           Assemble using COPY:SETPART (653).  Source in lines 1,999.
            
           ************************************************************
           D5.0 version, same as D4.3A:
            
           Changed for the device list vector addition to job table format.
           Install if and only if D5.0 or D4.3A UMMPS is installed.
           ************************************************************
0          Referenced by comments of: 45/2, 145/1, 413/1, 647/1 
00019/002A  TASKS JOB                                OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   WSG                                        
0          Object part of Resident System (468)
00020/001   JOBDUMP                                  SA  G          S0563 D4T1 VLO FSNAME=JOBDUMP..SA.001(1)                      29
            5.0T1    28  JOBDUMP..SA.001                    1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:03.31
            5.0T1    28                       
0          UMMPS "JOBDUMP" JOB.  USES SVC XJOBDUMP TO DUMP THE SPECIFIED JOB.
           UNCHANGED SINCE DIST 1.0.
00020/002   JOBDUMP                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00021/001A  BROADCST                                 SA  G          MTS:BROADCST(1000)                                              
            5.0T1    29  BROADCST..SA.001                   1 LINE     72    8 PAGE UM   OGDEN               JULY 03, 1981  12:04:24
            5.0T1    29  MTS.:BROADCST        
0          JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR
           TO ALL USERS.  HAS A SETA SYMBOL (&DC) WHICH CONTROLS CONDITIONAL ASSEMBLY
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          OF CODE WHICH SENDS BROADCAST MESSAGES TO THE UM DATA CONCENTRATORS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).  ASSEMBLE USING 
           COPY:MISC.MACROS (728).
            
           ***********************************************************************************
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A):
            
           CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT.
           IF THIS VERSION IS ASSEMBLED WITH &DC=1, INSTALL IF AND ONLY
           IF THE D4.3A OR D5.0 UMMPS IS INSTALLED.
           ***********************************************************************************
0          Referenced by comments of: 45/2 
00021/002A  BROADCST                                 OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00021/003A  BROADCST                 PGM             OC  G          MTS:BROADCST(1,499)                                             
            5.0T1    30  BROADCST.PGM.OC.003                1 LINE     25    1 PAGE UM   OGDEN               JULY 03, 1981  12:04:33
            5.0T1    30                       
0          A PROGRAM THAT CAN BE $RUN TO DO WHAT THE BROADCST JOB PROGRAM DOES.
00023/001A  TPMOVE JOBS                              SA  O          TAPE:TPMOVE(1000)                                               
            5.0T1    31  TPMOVE_JOBS..SA.001                1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  12:04:35
            5.0T1    31                       
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.
            
           *****************************************************************************
           D5.0 changes:
            
           Changed to use the new tape unit check routines (787/15). Assemble with
           COPY:UC.MACROS (787/1).
           *****************************************************************************
0          Referenced by comments of: 787/16 
00023/002A  TPMOVE JOBS                              OC  O        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00024/001   ONLINE/OFFLINE                           SA  G          MTS:ON/OFFLINE(1,999)                                           
            5.0T1    32  ONLINE/OFFLINE..SA.001             1 LINE     80    8 PAGE UM   MTA                 JULY 03, 1981  12:04:36
            5.0T1    32  MTS.:ON/OFFLINE      
0          JOB TO ONLINE OR OFFLINE A DEVICE, CONTROL UNIT, CHANNEL, OR CHANNEL-CONTROL UNIT PATH.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           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        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00025/001A  QN/PN/TN JOBS                            SA  G          MTS.:PNQNTN(1,900)                                              
            5.0T1    33  QN/PN/TN_JOBS..SA.001              1 LINE     67    3 PAGE UM   MTA                 AUG. 05, 1981  01:57:53
            5.0T1    33                       
0          THREE ASSEMBLIES THAT LOAD THE 1403 UCS BUFFER FOR QN, PN, OR TN CHARACTER SETS.
           THE QN JOB CONTAINS A SUBROUTINE USED BY ALL THE REST OF THEM.
           FOR EXAMPLE, ENTERING "PN PTR1 ECHO" ON THE OPERATOR'S CONSOLE WILL LOAD THE UCS BUFFER FOR PTR1 WITH THE PN
           CHARACTER SET AND ECHO THE CHARACTERS TO THE PRINTER FOR VERIFICATION.
           UNCHANGED SINCE DIST 2.0.
00025/002   QN/PN/TN JOBS                            OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00026/001   CPCC JOB                                 SA           # (OBSOLETE)                                                      
            D3T1     25  CPCC_JOB..SA.1                     1 SEQ      80    7 PAGE UM                       JULY 30, 1973  23:04.05
00031/001   GTZ                                                   # (OBSOLETE)                                                      
            D2.1    036                                                             UM                                              
00038/001A  TSFO                                     SA  G  TSF     W032:TSFOSOU5.0                                                 
            5.0T1    34  TSFO..SA.001                       1 LINE     80  244 PAGE UM   COWAN     EMERY     JULY 03, 1981  12:04:39
            5.0T1    34                       
0          SOURCE FOR TSFO (TWENTY-SEVEN-FORTY-ONE), THE MTS DEVICE SUPPORT ROUTINES FOR THE IBM
           2703 (DEVICE TYPES TTY AND 2741) OR THE MEMOREX 1270 WITH AUTO-SPEED (DEVICE TYPE MRXA).
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 9/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00038/002A  TSFO                     *2741RTN        OC  G          *2741RTN                                                        
            5.0T1    35  TSFO.*2741RTN.OC.002               1 LINE     80   17 PAGE UM   COWAN     EMERY     JULY 03, 1981  12:04:55
            5.0T1    35  *2741RTN             
0          THIS IS THE TSFO OBJECT FILE WHICH IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL.
           THE "COM" CARD AT THE BEGINNING TELLS PISTLE TO DEFINE THE FOLLOWING SYMBOLS IN LCSYMBOL:
              TSFO       ENTRY POINT FOR DEVICE TYPE 2741
              TEL2       ENTRY POINT FOR DEVICE TYPE TTY
              MRXA       ENTRY POINT FOR DEVICE TYPE MRXA
00038/003   TSFO                     *TTYRTN         OC  G          *TTYRTN                                                         
            5.0T1    36  TSFO.*TTYRTN.OC.003                1 LINE     30    1 PAGE UM   COWAN     EMERY     JULY 03, 1981  12:04:57
            5.0T1    36  *TTYRTN              
0          THIS FILE CONSISTS OF:       $CONTINUE WITH *2741RTN RETURN
                                         LDT            TEL2
            
           IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL TEL2 IS UNDEFINED IN LCSYMBOL.
           NORMALLY TEL2 IS DEFINED BY PISTLE AT IPL.
00038/004   TSFO                     *MRXARTN        OC  G          *MRXARTN                                                        
            5.0T1    37  TSFO.*MRXARTN.OC.004               1 LINE     30    1 PAGE UM   COWAN     EMERY     JULY 03, 1981  12:04:58
            5.0T1    37  *MRXARTN             
0          THIS FILE CONSISTS OF:       $CONTINUE WITH *2741RTN RETURN
                                         LDT            MRXA
            
           IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL MRXA IS UNDEFINED IN LCSYMBOL.
           NORMALLY MRXA IS DEFINED BY PISTLE AT IPL.
00038/005   TSFO                     TRTBLGEN        SA             S0563 D4T1 VLO FSNAME=TSFO.TRTBLGEN.SA.005(1)                 38
            5.0T1    38  TSFO.TRTBLGEN.SA.005               1 LINE     80   11 PAGE UM   COWAN     EMERY     JULY 27, 1977  21:28:26
            5.0T1    38                       
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.
            
0          Referenced by comments of: 38/7, 38/8, 38/9, 38/10, 38/11 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00038/006   TSFO                     TRTBLGEN        OC             S0563 D4T1 VLO FSNAME=TSFO.TRTBLGEN.OC.006(1)                 39
            5.0T1    39  TSFO.TRTBLGEN.OC.006               1 LINE     80    3 PAGE UM   COWAN     EMERY     JULY 27, 1977  21:28:28
            5.0T1    39                       
00038/007   TSFO                     KBD2741PTTC     D              S0563 D4T1 VLO FSNAME=TSFO.KBD2741PTTC.D.007(1)               40
            5.0T1    40  TSFO.KBD2741PTTC.D.007             1 LINE     41    1 PAGE UM   COWAN     EMERY     JULY 27, 1977  21:28:30
            5.0T1    40                       
0          SEE (038/5).  THIS IS THE 2741 PTTC KEYBOARD DEFINITION.
0          Referenced by comments of: 38/5 
00038/008   TSFO                     KBD2741CORR     D              S0563 D4T1 VLO FSNAME=TSFO.KBD2741CORR.D.008(1)               41
            5.0T1    41  TSFO.KBD2741CORR.D.008             1 LINE     41    1 PAGE UM   COWAN     EMERY     JULY 27, 1977  21:28:33
            5.0T1    41                       
0          SEE (038/5).  THIS IS THE 2741 CORRESPONDENCE KEYBOARD DEFINITION.
0          Referenced by comments of: 38/5 
00038/009   TSFO                     EBCDDEFN        D              S0563 D4T1 VLO FSNAME=TSFO.EBCDDEFN.D.009(1)                  42
            5.0T1    42  TSFO.EBCDDEFN.D.009                1 LINE     32    3 PAGE UM   COWAN     EMERY     JULY 27, 1977  21:28:35
            5.0T1    42                       
0          SEE (038/5). THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT.
0          Referenced by comments of: 38/5 
00038/010   TSFO                     GOLFPTTC        D              S0563 D4T1 VLO FSNAME=TSFO.GOLFPTTC.D.010(1)                  43
            5.0T1    43  TSFO.GOLFPTTC.D.010                1 LINE     72    3 PAGE UM   COWAN     EMERY     JULY 27, 1977  21:28:37
            5.0T1    43                       
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: 38/5 
00038/011   TSFO                     GOLFCORR        D              S0563 D4T1 VLO FSNAME=TSFO.GOLFCORR.D.011(1)                  44
            5.0T1    44  TSFO.GOLFCORR.D.011                1 LINE     72    8 PAGE UM   COWAN     EMERY     JULY 27, 1977  21:28:39
            5.0T1    44                       
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: 38/5 
00039/001   CASECONV                                 SA             S1430 4.3T1 VLO FSNAME=CASECONV..SA.001(1)                    22
            5.0T1    45  CASECONV..SA.001                   1 LINE     80    1 PAGE UM   MTS       OGDEN     APR. 05, 1980  13:40:36
            5.0T1    45                       
0          TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE.
           ALL OTHER CHARACTERS ARE UNCHANGED.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00039/002   CASECONV                                 OC           # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       OGDEN                            
0          Object part of Resident System (468)
00040/001A  KEYWRD SCANNER                           SA  G          W164:KWIC(MIN,-1)                                               
            5.0T1    46  KEYWRD_SCANNER..SA.001             1 LINE     73   58 PAGE UM   STERKEN             JULY 03, 1981  12:05:25
            5.0T1    46                       
0          BASE SOURCE FOR KEYWORD SCANNER.  COPIES COPY:GLOBALS (1026/3).
0          Referenced by comments of: 40/5, 712/1, 798/31, 798/65, 798/79 
00040/002A  KEYWRD SCANNER           UPDATE          UC  G          W164:KWIC-4.2UPDS                                               
            5.0T1    47  KEYWRD_SCANNER.UPDATE.UC.002       1 LINE     85   31 PAGE UM   STERKEN             JULY 03, 1981  12:05:37
            5.0T1    47                       
0          ********************************************************************************
           D5.0 version:
            
           Update deck to yield the D5.0 source from the D4.2 base source.
           ********************************************************************************
00040/003A  KEYWRD SCANNER           OBJECT          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   STERKEN                                    
0          Object part of Resident System (468)
00040/004A  KEYWRD SCANNER           CHANGES         WF             W164:FMT.KWSCAN                                                 
            5.0T1    48  KEYWRD_SCANNER.CHANGES.WF.004      1 LINE     81    4 PAGE UM   STERKEN             JULY 03, 1981  12:05:40
            5.0T1    48                       
0          ********************************************************************************
           D5.0 version:
            
           Log of all KWSCAN changes since Distribution 4.3.
           ********************************************************************************
00040/005A  KEYWRD SCANNER           SPELLING CORR   SA  G          W164:KWIC.SPELL(1000)                                           
            5.0T1    49  KEYWRD_SCANNER.SPELLING_C.SA.005   1 LINE     70    3 PAGE UM   STERKEN             JULY 03, 1981  12:05:41
            5.0T1    49                       
0          SPELLING CORRECTION SUBROUTINE USED BY MTS AND THE KEYWORD SCANNER (40/1).
           ALSO USER-CALLABLE.
00040/006A  KEYWRD SCANNER           SPELLING CORR   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   STERKEN                                    
0          Object part of Resident System (468)
00041/001   GETSPACE/FREESPAC                        SA           # (OBSOLETE)                                                      
            D4T1     51  GETSPACE/FREESPAC.D4_MAST.SA.001   1 SEQ      80   28 PAGE UM                       JULY 27, 1977  21:31:43
0          Obsoleted by (732).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00042/001A  MTS                      D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=MTS                         
            5.0T4   274  MTS.D5.0_MASTER.SA.001             1 LINE     80  175 PAGE UM   MTS       HELFFRICH AUG. 21, 1981  06:03:51
            5.0T10  178                       
0          MASTER SOURCE FOR MTS. COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALDEFS
           (1026/1), COPY:GLOBALSETS (1026/2), AND COPY:JOBSTA (413/9). ASSEMBLE USING
           COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND *SYSMAC.
0          Referenced by comments of: 42/2, 45/2, 344/1 
00042/002A  MTS                      UPDATE          UC  G          MTS:MTSUPD                                                      
            5.0T4   275  MTS.UPDATE.UC.002                  1 LINE     77   65 PAGE UM   MTS       HELFFRICH AUG. 21, 1981  06:03:54
            5.0T10  179                       
0          UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=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) 
              FSUB (635) 
              CMDS (636) 
              USUB (638) 
              DSRS (637) 
              DSRI (639) 
              INFO (198)
              PLIM (464) 
              LLXU (354) 
              TIMT (539) 
              RSF  (578) 
              GATE (4000) 
              RNBR (651/11) 
              CMDSTAT (531)
              DYS  (513)
            
           IN ADDITION, PRINTDUMP SSCN (400/5) IS REASSEMBLED WHENEVER MTS IS
           REASSEMBLED. THE OBJECT SHOULD BE PLACED IN PRINTDUMP.
            
           *****************************************************************************
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A):
            
           CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT. INSTALL IF AND
           ONLY IF D4.3A OR D5.0 UMMPS IS INSTALLED.
           *****************************************************************************
0          Referenced by comments of: 344/1 
00042/003A  MTS                                      OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00042/004A  MTS                      ASM JOB         C              MTS:MTSASM                                                      
            5.0T4   276  MTS.ASM_JOB.C.004                  1 LINE    120    5 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  22:32:28
            5.0T10  180                       
0          USING THE D5.0 SOURCE AS BASE:
            
           AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES
           AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES OF MTS
00042/005A  MTS                                      L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=MTS.LIST                   
            5.0T4   277  MTS..L.005                         1 LINE    133  619 PAGE UM   MTS       HELFFRICH AUG. 21, 1981  06:05:44
            5.0T10  181                       
00042/006   MTS                      FILETYPE WORDS  WF             S0938 FSAVE2 VLO FSNAME=ADDNEWFILE(1)                           
            5.0T4   278  MTS.FILETYPE_WORDS.WF.006          1 LINE    134    3 PAGE UM   MTA                 MAY  28, 1975  22:49:52
            5.0T10  182                       
0          WRITEUP DESCRIBING HOW TO ADD A NEW TYPE OF FILE TO MTS.
00042/007A  MTS                      TSATBL WORDS    WF             MTS:TSATBL.W                                                    
            5.0T4   279  MTS.TSATBL_WORDS.WF.007            1 LINE    113    2 PAGE UM   MTA                 AUG. 21, 1981  06:06:29
            5.0T10  183                       
0          WRITEUP DESCRIBING HOW TO USE THE TSATBL MACRO (IN COPY:MTS.MACROS).
00042/008A  MTS                      CHANGES         WF             MTS:MTSCHANGES                                                  
            5.0T4   280  MTS.CHANGES.WF.008                 1 LINE    129   27 PAGE UM   MTS                 AUG. 09, 1981  22:38:01
            5.0T10  184                       
0          LIST OF CHANGES TO MTS SINCE D4.2.
00043/001   LCSYMBOL                                 SA           # (PART OF GATE)                                                  
                                                                                    UM                                              
0          Part of GATE (4000).
0          Referenced by comments of: 4000/1 
00044/001A  PDP                                      SA  G          W034:PDP.S                                                      
            5.0T1    50  PDP..SA.001                        1 LINE     72   43 PAGE UM   JWS                 JULY 03, 1981  12:08:02
            5.0T1    50  MTS.:PDP.S           
0          THE PAGING DRUM PROCESSOR. ASSEMBLY PARAMETERS ALLOW VERSION TO BE ASSEMBLED
           FOR EITHER 2305 FIXED HEAD FILE AND 3330 MIGRATION DISK, OR 2301 DRUM AND
           3330 MIGRATION DISK AND/OR 3805 FIXED BLOCK PAGING DEVICE. DISTRIBUTED OBJECT
           IS FOR 2305/3330/3805 COMBINATION NORMALLY USED ON UM SYSTEM. COPIES
           COPY:PCBDSECT (470), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3).
            
           ***********************************************************************************
           D5.0 CHANGES, SOME ALREADY DISTRIBUTED ON D4.3A:
            
           CONTAINS DISK MANAGER CHANGES AND 3805 SUPPORT.
           ***********************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 540/3, 769/1 
00044/002A  PDP                      2305/3330 OBJ   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   JWS                                        
0          VERSION ASSEMBLED FOR USE WITH AN IBM 2305 MOD 1 OR MOD 2 FHF, 3805 FBA 
           DEVICE, AND IBM 3330 (OR EQUIVALENT) PAGING DISK.
           Object part of Resident System (468)
00045/001A  SUPERVISOR               D5.0 MASTER     SA  G          S0699 D3TAPE POSN=UMMPS.D5                                      
            5.0T4   281  SUPERVISOR.D5.0_MASTER.SA.001      1 LINE     80  356 PAGE UM   MTA                 SEP. 04, 1981  02:51:26
            5.0T10  185                       
0          MASTER SOURCE FOR D5.0 SUPERVISOR.  COPIES COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT
           (470), AND COPY:CMDAREADSECT (531/19).  ASSEMBLE WITH COPY:SETPARM
           (653), COPY:MISC.MACROS (728), COPY:UMMPS.MACROS (045/14), AND
           COPY:DM.MACROS (769/19).
0          Referenced by comments of: 45/2, 540/3, 611/1, 769/1, 769/3, 769/11, 769/21, 799/1, 806/1, 1070/1, 1070/2, 1081/1 
00045/002A  SUPERVISOR               UPDATE          UC  G          MTA:UMMPS.U                                                     
            5.0T4   282  SUPERVISOR.UPDATE.UC.002           1 LINE    117  159 PAGE UM   MTA                 SEP. 04, 1981  02:51:33
            5.0T10  186  MTA:UMMPS.U          
0          UPDATE TO D4.0 UMMPS TO PRODUCE D5.0 UMMPS (45/1).
            
           ***********************************************************************************
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A):
            
           1. CHANGED TO ALLOW MORE THAN 11 DEVICES/JOB THROUGH THE ADDITION
              OF A DEVICE TABLE POINTER VECTOR WHICH IS DYNAMICALLY ALLOCATED
              IN SUPERVISOR STORAGE AND POINTED TO BY THE JOB TABLE.
              THIS WAS AN INCOMPATIBLE CHANGE.  IF THE D4.3A OR D5.0 SUPERVISOR
              IS INSTALLED, THE FOLLOWING D4.3A (AND D5.0) COMPONENTS, WHICH
              REFER TO THE JOB TABLE, SHOULD ALSO BE INSTALLED:
            
                        BROADCST  (021)
                        CONFIG    (046) 
                        FESNIFF   (731) 
                        FIDCQ     (008) 
                        MOUNT     (101) 
                        MTS       (042) 
                        PRINTDUMP (400)
                        SSRTN     (413)
                        TASKS     (019)
                        TASKSTAT  (647)
            
           2. CONTAINS DISK MANAGER CHANGES.
           3. MUCH MORE!
           ***********************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00045/003A  SUPERVISOR                               OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00045/004A  SUPERVISOR                               L              S0707 UMMPSL POSN=UMMPS.LISTING.370                             
            5.0T4   283  SUPERVISOR..L.004                  1 LINE    133  837 PAGE UM   MTA                 SEP. 04, 1981  02:53:11
            5.0T10  187                       
00045/005A  SUPERVISOR               SVC WRITEUP     WT             S0683 OGDEN FSNAME=SVCDESCR                                     
            5.0T4   284  SUPERVISOR.SVC_WRITEUP.WT.005      1 LINE    122   41 PAGE UM   OGDEN               AUG. 05, 1981  01:30:38
            5.0T10  188                       
0          TEXT/360 INPUT FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS.
00045/006A  SUPERVISOR               SVC WRITEUP     PT             MTS:SVC.W                                                       
            5.0T4   285  SUPERVISOR.SVC_WRITEUP.PT.006      1 LINE     83   80 PAGE UM   OGDEN               AUG. 21, 1981  06:39:45
            5.0T10  189  MTS.:SVC.W           
0          COPY THIS TO A TN PRINTER @CC (NOT @MCC).
00045/007A  SUPERVISOR               TEST SVC STIO   SA  G          MTA:TESTSTIO(1,999)                                             
            5.0T1    51  SUPERVISOR.TEST_SVC_STIO.SA.007    1 LINE     67    3 PAGE UM   MTA                 JULY 03, 1981  12:08:19
            5.0T1    51                       
0          TEST PROGRAM FOR SVC STIO TO BE USED IN THE VIRTUAL MACHINE.
00045/008A  SUPERVISOR               TEST SVC STIO   OC  G          MTA:TESTSTIO(1000)                                              
            5.0T1    52  SUPERVISOR.TEST_SVC_STIO.OC.008    1 LINE     80    2 PAGE UM   MTA                 JULY 03, 1981  12:08:20
            5.0T1    52                       
00045/009   SUPERVISOR               TEST PROT SVC   SA  O          S0563 D4T1 VLO FSNAME=SUPERVISOR.TEST_PROT_SVC.SA.013(1)      73
            5.0T1    53  SUPERVISOR.TEST_PROT_SVC.SA.009    1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  21:46:22
            5.0T1    53                       
0          PROGRAM TO TEST THE SVCS RELATED TO PROTECTION.  INTENDED TO BE USED WHILE
           RUNNING MTS IN THE VIRTUAL MACHINE.  HALTS IF AN ERROR OCCURS.
00045/010   SUPERVISOR               TEST PROT SVC   OC  O          S0563 D4T1 VLO FSNAME=SUPERVISOR.TEST_PROT_SVC.OC.014(1)      74
            5.0T1    54  SUPERVISOR.TEST_PROT_SVC.OC.010    1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:46:25
            5.0T1    54                       
00045/011   SUPERVISOR               TEST SETSTK     SA  G          S1143 D4.1T1 VLO FSNAME=SUPERVISOR.TEST_SETSTK.SA.013(1)      21
            5.0T1    55  SUPERVISOR.TEST_SETSTK.SA.011      1 LINE     59    1 PAGE UM   MTA                 MAY  13, 1978  17:01:22
            5.0T1    55                       
0          PROGRAM TO TEST THE CHANGES TO THE SETSTK SVC.
00045/012   SUPERVISOR               TEST SETSTK     OC  G          S1143 D4.1T1 VLO FSNAME=SUPERVISOR.TEST_SETSTK.OC.014(1)      22
            5.0T1    56  SUPERVISOR.TEST_SETSTK.OC.012      1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  17:01:23
            5.0T1    56                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00045/013   SUPERVISOR               DOCUMENTATION   WF             S1319 D4.2T1 VLO FSNAME=SUPERVISOR.DOCUMENTATION.WF.013(1)    14
            5.0T1    57  SUPERVISOR.DOCUMENTATION.WF.013    1 LINE     94    6 PAGE UM   MTA                 MAR. 26, 1979  02:15:12
            5.0T1    57                       
0          SUMMARY OF SECTIONS OF UMMPS AND WHAT THEY DO.  PREPARED FOR A LECTURE TO A
           GRADUATE PROGRAMMING CLASS.
            
           ************************************************************************************
           D5.0 version:
            
           This is out-of-date.
           ************************************************************************************
00045/014A  SUPERVISOR               MACROS          SM  G          COPY:UMMPS.MACROS                                               
            5.0T4   286  SUPERVISOR.MACROS.SM.014           1 LINE     73    8 PAGE UM   MTA                 AUG. 09, 1981  22:48:12
            5.0T10  190  COPY:UMMPS.MACROS    
0           
           ***********************************************************************************
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A):
            
           CONTAINS DISK MANAGER CHANGES AND OTHER STUFF.
           ***********************************************************************************
0          Referenced by comments of: 45/1, 1070/3, 1081/1 
00045/015A  SUPERVISOR               SCHEDULING DES  WX             W163:CPUSCHED                                                   
            5.0T4   287  SUPERVISOR.SCHEDULING_DES.WX.015   1 LINE     89    6 PAGE UM   OGDEN               AUG. 21, 1981  06:41:53
            5.0T10  191                       
0          Description of CPU Scheduling, the Big Job Mechanism, and
           the BJPMOD subroutine (650). 
0          Referenced by comments of: 650/4 
00046/001A  CONFIG                   D5.0 MASTER     SA  G          S0699 D3TAPE POSN=CONFIG.D5                                     
            5.0T4   288  CONFIG.D5.0_MASTER.SA.001          1 LINE     80   35 PAGE UM   MTA                 AUG. 09, 1981  22:48:50
            5.0T10  192                       
0          D5.0 MASTER SOURCE FOR CONFIGURATION PROGRAM.  COPIES COPY:GLOBALS (1026/3),
           COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CMDAREADSECT
           (531/19), AND *CNFGINFODSECT (654).  ASSEMBLE USING COPY:MISC.MACROS (728),
           AND COPY:SETPARM (653).
0          Referenced by comments of: 45/2, 1070/1, 1070/2 
00046/002A  CONFIG                   UPDATE          UC  G          MTA:CONFIG.U                                                    
            5.0T4   289  CONFIG.UPDATE.UC.002               1 LINE     76   18 PAGE UM   MTA                 AUG. 09, 1981  22:48:50
            5.0T10  193  MTA.:CONFIG.U        
0          UPDATE TO D4.0 CONFIG TO PRODUCE CURRENT CONFIG.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           1) CONTAINS DISK MANAGER CHANGES.
           2) JOB TABLE LENGTH CHANGED.
            
           INSTALL IF AND ONLY IF D4.3A (OR D5.0) UMMPS IS INSTALLED.
            
           MANY OTHER CHANGES WERE MADE, AS WELL.
           ***********************************************************************************
00046/003A  CONFIG                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00046/004A  CONFIG                                   L              S0707 UMMPSL POSN=CNFG.LISTING.370                              
            5.0T4   290  CONFIG..L.004                      1 LINE    133  172 PAGE UM   MTA                 AUG. 09, 1981  22:49:01
            5.0T10  194                       
00047/001  *CATALOG                                  SA  G        # (OBSOLETE)                                                      
            D3T1     56  CATALOG..SA.1                      1 LINE     80    8 PAGE UM                       JULY 30, 1973  23:26.21
0          Obsoleted by FILESTATUS (529).
00049/001   SDUMP SUBR                               SA             S1319 D4.2T1 VLO FSNAME=SDUMP_SUBR..SA.001(1)                 17
            5.0T1    58  SDUMP_SUBR..SA.001                 1 LINE     80   18 PAGE UM   MTS       HELFFRICH MAR. 26, 1979  02:16:17
            5.0T1    58                       
0          MTS SUBROUTINE TO DUMP STORAGE AREAS.  ALSO USED BY $DISPLAY COMMAND.
           COPIES *CNFGINFODSECT (654).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 463/1 
00049/002   SDUMP SUBR                               OC           # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00050/001A  STATISTICS SAVE          *STA            C              *STA                                                            
            5.0T1    59  STATISTICS_SAVE.?STA.C.001         1 LINE     36    1 PAGE UM   SALISBURY           AUG. 05, 1981  01:58:16
            5.0T1    59  *STA                 
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO RUN THE STATISTICS SAVE PROGRAM.  INVOKED BY ENTERING "MTS *STA"
           ON THE OPERATOR'S CONSOLE.  THE SAVE PROGRAM DUMPS THE MTS JOB STATISTICS FILE (*STATISTICS) TO TAPE.  MTS
           WARNS THE OPERATOR WHEN *STATISTICS HAS REACHED 7500 RECORDS BY PRINTING "*** *STATISTICS IS FULL ***"
           ON THE CONSOLE.  WHEN THIS HAPPENS, THE OPERATOR SHOULD IMMEDIATELY ENTER "MTS *STA" TO BEGIN THE SAVE
           PROGRAM BEFORE THE FILE IS REALLY FULL (JOBS WILL BEGIN TO "SNARK" IF THIS HAPPENS).
0          Referenced by comments of: 256/2 
00050/002A  STATISTICS SAVE          *STI            C              *STI                                                            
            5.0T1    60  STATISTICS_SAVE.?STI.C.002         1 LINE     59    1 PAGE UM   SALISBURY           AUG. 05, 1981  01:58:17
            5.0T1    60  *STI                 
0          COMMAND FILE WHICH IS RUN AUTOMATICALLY AT SYSTEM INITIALIZATION BY INIT:INITCMD 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          (97/2).  THIS CAUSES THE STATISTICS SAVE PROGRAM (50/3) TO CHECK FOR A SYSTEM 
           CRASH DURING THE LAST STATISTICS SAVE.  IF THERE WAS A CRASH, THE DIRECTORY 
           (50/6) IS REPAIRED AND *STATISTICS (50/5) IS RESAVED.
0          Referenced by comments of: 97/2 
00050/003A  STATISTICS SAVE          SAVE PGM        SG  G          W044:NEWSTA.S                                                   
            5.0T1    61  STATISTICS_SAVE.SAVE_PGM.SG.003    1 LINE    114    8 PAGE UM   SALISBURY           JULY 03, 1981  12:19:15
            5.0T1    61                       
0          PROGRAM TO SAVE *STATISTICS (50/5) ON TAPE.  THE USE OF THIS PROGRAM IS 
           DESCRIBED IN THE MTS OPERATORS MANUAL (592).  IN GENERAL, THIS PROGRAM
           SAVES *STATISTICS ON BOTH A MONTHLY AND A DAILY TAPE AND ENTERS THE
           SIGNON/SIGNOFF TIME RANGES INTO THE FILE SYS:DIRECTORY (50/6).
0          Referenced by comments of: 50/2, 50/6 
00050/004A  STATISTICS SAVE          SAVE PGM        OC  G          SYS:NEWSTA                                                      
            5.0T1    62  STATISTICS_SAVE.SAVE_PGM.OC.004    1 LINE     80   10 PAGE UM   SALISBURY           AUG. 05, 1981  01:58:20
            5.0T1    62  SYS.:NEWSTA          
0          Contains a $CONTINUE WITH SYS:DIRLIB (742/5).
00050/005   STATISTICS SAVE          *STATISTICS     D            # MTS:TST.STAT                                                    
                                                                                    UM   SALISBURY                                  
                         *STATISTICS          
0          DATA FILE USED TO ACCUMULATE MTS SIGNOFF STATISTICS TO BE USED FOR BILLING
           AND JOB STATISTICS.  MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (PKEY=*SYS.STAT, PKEY=SYS.:STA, MTS.&PKEY=*SYS.STAT, ACC.&PKEY=ACC.:ACCMAINT),
           R (PKEY=INIT:INITCHK, ACC.)
0          Referenced by comments of: 50/2, 50/3, 97/2 
00050/006   STATISTICS SAVE          DIRECTORY       D            # MTS:TST.DIR                                                     
                                                                                    UM   SALISBURY                                  
                         SYS.:DIRECTORY       
0          DIRECTORY OF STATISTICS FILES (*STATISTICS) THAT HAVE BEEN SAVED ON DAILY
           AND MONTHLY STATISTICS TAPES BY SYS:NEWSTA (50/3).  THIS DIRECTORY MAY BE 
           INTERROGATED BY THE TAPE DIRECTORY PROGRAM (742).
0          Referenced by comments of: 50/2, 50/3, 617/1 
00050/007C  STATISTICS SAVE          WORK FILE       D   G        # SYS.:STATISTICS                                                 
                                                                                    UM   SALISBURY                                  
                         SYS.:STATISTICS@E    
00051/001  *WATFOR                                                # (OBSOLETE)                                                      
            D2T2    011                                                             UM                                              
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00052/001  *COINFLIP                                 SA             S0563 D4T1 VLO FSNAME=COINFLIP..SA.001(1)                     85
            5.0T1    63  COINFLIP..SA.001                   1 SEQ      80    3 PAGE UM   STERKEN             JULY 30, 1973  23:27.01
            5.0T1    63                       
0          DEMONSTRATION PROGRAM.
00052/002  *COINFLIP                                 OE             *COINFLIP                                                       
            5.0T1    64  COINFLIP..OE.002                   1 LINE    255    1 PAGE UM   STERKEN             JULY 03, 1981  12:19:24
            5.0T1    64  *COINFLIP            
00053/001A  DISKDUMP                                 SA  G          FILE:DISKDUMP(1000)                                             
            5.0T1    65  DISKDUMP..SA.001                   1 LINE     72    6 PAGE UM   HELFFRICH           AUG. 05, 1981  01:58:25
            5.0T1    65                       
0          PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS.  DOESN'T CALL MTS FILE ROUTINES.
            
           ********************************************************************************
           D5.0 CHANGES:
            
           UPDATED FOR 3350 SUPPORT.
           ********************************************************************************
00053/002A  DISKDUMP                                 OC  G          FILE:DISKDUMP(1,900)                                            
            5.0T1    66  DISKDUMP..OC.002                   1 LINE     80    3 PAGE UM   HELFFRICH           AUG. 05, 1981  01:58:28
            5.0T1    66  FILE:DISKDUMP        
00054/001  *TPS                                      S            # (OBSOLETE)                                                      
            D2T1    145                                                             UM                                              
00054/002  *TPS                      LL PTR UC       S            # (OBSOLETE)                                                      
            D2T1    146                                                             UM                                              
00055/001  *BCDEBCD                                  SA  G          S0563 D4T1 VLO FSNAME=BCDEBCD..SA.001(1)                      89
            5.0T1    67  BCDEBCD..SA.001                    1 SEQ      80    2 PAGE UM   ENGLE               JULY 30, 1973  23:27.43
            5.0T1    67                       
0          TRANSLATE SCIENTIFIC 026 CODE TO EBCD.
00055/002  *BCDEBCD                                  OC  G          *BCDEBCD                                                        
            5.0T1    68  BCDEBCD..OC.002                    1 LINE     80    1 PAGE UM   ENGLE               JULY 03, 1981  12:19:29
            5.0T1    68  *BCDEBCD             
00056/001  *2250RTN                                  SA           # (OBSOLETE)                                                      
            D4T1     91  2250RTN..SA.                       1 SEQ      80   26 PAGE UM                       JULY 30, 1973  23:28.54
00057/001  *TABEDIT                                  SA  O          S0563 D4T1 VLO FSNAME=TABEDIT..SA.001(1)                      92
            5.0T1    69  TABEDIT..SA.001                    1 LINE     80    5 PAGE UM   PIRKOLA             JULY 27, 1977  21:50:27
            5.0T1    69                       
0          PROGRAM TO REFORMAT RECORDS USING A SPECIFIED TAB CHARACTER AND TAB STOPS.
           COPIES *GDINFODSECT (594).  ASSEMBLE USING *SYSMAC.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00057/002  *TABEDIT                                  OC  O          *TABEDIT                                                        
            5.0T1    70  TABEDIT..OC.002                    1 LINE     80    2 PAGE UM   PIRKOLA             JULY 03, 1981  12:19:31
            5.0T1    70  *TABEDIT             
00058/001  *T7D                                      S            # (OBSOLETE)                                                      
            D2T1    142                                                             UM                                              
00059/001  *TCP                                      S            # (OBSOLETE)                                                      
            D2T1    141                                                             UM                                              
00060/001   JBRP <MTS>                               S            # (OBSOLETE)                                                      
            D2T1    144                                                             UM                                              
00061/001  *T9D                                      S            # (OBSOLETE)                                                      
            D2T1    143                                                             UM                                              
00063/001  *PTSKRTN                                  SA           # (OBSOLETE)                                                      
            D4T1     94  PTSKRTN..SA.                       1 SEQ      80   14 PAGE UM                       JULY 30, 1973  23:30.18
00064/001A *OBJSCAN                                  SA  G  SCAN    W062:OBJSCAN.S(1)                                               
            5.0T1    71  OBJSCAN..SA.001                    1 LINE     80   21 PAGE UM   TIFFANY             JULY 03, 1981  12:19:31
            5.0T1    71                       
0          SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER
           RANGES FOR EACH MODULE ENCOUNTERED.  COPIES *GDINFODSECT (594).
            
           ***************************************************************************
           D5.0 CHANGES:
            
           A NEW PARAMETER HAS BEEN ADDED:  PRINT_CONTROLS=ON|OFF
           ***************************************************************************
00064/002A *OBJSCAN                                  OE  G          *OBJSCAN                                                        
            5.0T1    72  OBJSCAN..OE.002                    1 SEQ    5162    4 PAGE UM   TIFFANY             JULY 03, 1981  12:19:35
            5.0T1    72  *OBJSCAN             
00065/001  *ASMERR                                   S            # (OBSOLETE)                                                      
            D2T1    323                                                             UM                                              
00066/001  *ASMG                     ASMGASM         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGASM                        1  
            5.0T1    73  ASMG.ASMGASM.SA.001                1 SEQ      80   20 PAGE UM   MTA                 JULY 03, 1981  12:20:47
            5.0T1    73                       
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.
            
           *****************************************************************************
           D5.0 version:
            
           Unless we hear any major complaints, this will be the final distribution of
           Assembler G.
           *****************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 66/1, 66/71, 66/72, 210/1, 1038/8 
00066/002  *ASMG                     ASMGBUFF        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGBUFF                       2  
            5.0T1    74  ASMG.ASMGBUFF.SA.002               1 SEQ      80   51 PAGE UM   MTA                 JULY 03, 1981  12:20:50
            5.0T1    74                       
00066/003  *ASMG                     ASMGFD          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFD                         3  
            5.0T1    75  ASMG.ASMGFD.SA.003                 1 SEQ      80   21 PAGE UM   MTA                 JULY 03, 1981  12:20:52
            5.0T1    75                       
00066/004  *ASMG                     ASMGFEX         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFEX                        4  
            5.0T1    76  ASMG.ASMGFEX.SA.004                1 SEQ      80   19 PAGE UM   MTA                 JULY 03, 1981  12:20:53
            5.0T1    76                       
00066/005  *ASMG                     ASMGFI          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFI                         5  
            5.0T1    77  ASMG.ASMGFI.SA.005                 1 SEQ      80   13 PAGE UM   MTA                 JULY 03, 1981  12:20:55
            5.0T1    77                       
00066/006  *ASMG                     ASMGFPP         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFPP                        6  
            5.0T1    78  ASMG.ASMGFPP.SA.006                1 SEQ      80   33 PAGE UM   MTA                 JULY 03, 1981  12:20:57
            5.0T1    78                       
00066/007  *ASMG                     ASMGF1          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF1                         7  
            5.0T1    79  ASMG.ASMGF1.SA.007                 1 SEQ      80   46 PAGE UM   MTA                 JULY 03, 1981  12:21:00
            5.0T1    79                       
00066/008  *ASMG                     ASMGF2          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2                         8  
            5.0T1    80  ASMG.ASMGF2.SA.008                 1 SEQ      80   89 PAGE UM   MTA                 JULY 03, 1981  12:21:04
            5.0T1    80                       
00066/009  *ASMG                     ASMGF2A         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2A                        9  
            5.0T1    81  ASMG.ASMGF2A.SA.009                1 SEQ      80   60 PAGE UM   MTA                 JULY 03, 1981  12:21:09
            5.0T1    81                       
00066/010  *ASMG                     ASMGF3          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF3                         10 
            5.0T1    82  ASMG.ASMGF3.SA.010                 1 SEQ      80   62 PAGE UM   MTA                 JULY 03, 1981  12:21:13
            5.0T1    82                       
00066/011  *ASMG                     ASMGF7C         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7C                        11 
            5.0T1    83  ASMG.ASMGF7C.SA.011                1 SEQ      80   26 PAGE UM   MTA                 JULY 03, 1981  12:21:15
            5.0T1    83                       
00066/012  *ASMG                     ASMGF7D         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7D                        12 
            5.0T1    84  ASMG.ASMGF7D.SA.012                1 SEQ      80   25 PAGE UM   MTA                 JULY 03, 1981  12:21:17
            5.0T1    84                       
00066/013  *ASMG                     ASMGF7E         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7E                        13 
            5.0T1    85  ASMG.ASMGF7E.SA.013                1 SEQ      80   26 PAGE UM   MTA                 JULY 03, 1981  12:21:19
            5.0T1    85                       
1                                                                                               MON AUG 05/96   18:37:45   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/014  *ASMG                     ASMGF7G         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7G                        14 
            5.0T1    86  ASMG.ASMGF7G.SA.014                1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  12:21:21
            5.0T1    86                       
00066/015  *ASMG                     ASMGF7I         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7I                        15 
            5.0T1    87  ASMG.ASMGF7I.SA.015                1 SEQ      80   15 PAGE UM   MTA                 JULY 03, 1981  12:21:22
            5.0T1    87                       
00066/016  *ASMG                     ASMGF7L         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7L                        16 
            5.0T1    88  ASMG.ASMGF7L.SA.016                1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  12:21:23
            5.0T1    88                       
00066/017  *ASMG                     ASMGF7N         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7N                        17 
            5.0T1    89  ASMG.ASMGF7N.SA.017                1 SEQ      80   13 PAGE UM   MTA                 JULY 03, 1981  12:21:25
            5.0T1    89                       
00066/018  *ASMG                     ASMGF7S         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7S                        18 
            5.0T1    90  ASMG.ASMGF7S.SA.018                1 SEQ      80    8 PAGE UM   MTA                 JULY 03, 1981  12:21:26
            5.0T1    90                       
00066/019  *ASMG                     ASMGF7V         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7V                        19 
            5.0T1    91  ASMG.ASMGF7V.SA.019                1 SEQ      80   21 PAGE UM   MTA                 JULY 03, 1981  12:21:28
            5.0T1    91                       
00066/020  *ASMG                     ASMGF7X         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7X                        20 
            5.0T1    92  ASMG.ASMGF7X.SA.020                1 SEQ      80   36 PAGE UM   MTA                 JULY 03, 1981  12:21:30
            5.0T1    92                       
00066/021  *ASMG                     ASMGF8A         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8A                        21 
            5.0T1    93  ASMG.ASMGF8A.SA.021                1 SEQ      80   27 PAGE UM   MTA                 JULY 03, 1981  12:21:32
            5.0T1    93                       
00066/022  *ASMG                     ASMGF8C         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8C                        22 
            5.0T1    94  ASMG.ASMGF8C.SA.022                1 SEQ      80    6 PAGE UM   MTA                 JULY 03, 1981  12:21:34
            5.0T1    94                       
00066/023  *ASMG                     ASMGF8D         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8D                        23 
            5.0T1    95  ASMG.ASMGF8D.SA.023                1 SEQ      80   23 PAGE UM   MTA                 JULY 03, 1981  12:21:36
            5.0T1    95                       
00066/024  *ASMG                     ASMGF8I         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8I                        24 
            5.0T1    96  ASMG.ASMGF8I.SA.024                1 SEQ      80   15 PAGE UM   MTA                 JULY 03, 1981  12:21:38
            5.0T1    96                       
00066/025  *ASMG                     ASMGF8L         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8L                        25 
            5.0T1    97  ASMG.ASMGF8L.SA.025                1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  12:21:39
            5.0T1    97                       
00066/026  *ASMG                     ASMGF8M         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8M                        26 
            5.0T1    98  ASMG.ASMGF8M.SA.026                1 SEQ      80   27 PAGE UM   MTA                 JULY 03, 1981  12:21:41
            5.0T1    98                       
1                                                                                               MON AUG 05/96   18:37:45   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/027  *ASMG                     ASMGF8N         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8N                        27 
            5.0T1    99  ASMG.ASMGF8N.SA.027                1 SEQ      80   13 PAGE UM   MTA                 JULY 03, 1981  12:21:42
            5.0T1    99                       
00066/028  *ASMG                     ASMGF8P         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8P                        28 
            5.0T1   100  ASMG.ASMGF8P.SA.028                1 SEQ      80   22 PAGE UM   MTA                 JULY 03, 1981  12:21:44
            5.0T1   100                       
00066/029  *ASMG                     ASMGF8S         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8S                        29 
            5.0T1   101  ASMG.ASMGF8S.SA.029                1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  12:21:45
            5.0T1   101                       
00066/030  *ASMG                     ASMGF8V         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8V                        30 
            5.0T1   102  ASMG.ASMGF8V.SA.030                1 SEQ      80   21 PAGE UM   MTA                 JULY 03, 1981  12:21:47
            5.0T1   102                       
00066/031  *ASMG                     ASMGIS00        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS00                       31 
            5.0T1   103  ASMG.ASMGIS00.SA.031               1 SEQ      80   11 PAGE UM   MTA                 JULY 03, 1981  12:21:49
            5.0T1   103                       
00066/032  *ASMG                     ASMGIS09        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS09                       33 
            5.0T1   104  ASMG.ASMGIS09.SA.032               1 SEQ      80    9 PAGE UM   MTA                 JULY 03, 1981  12:21:51
            5.0T1   104                       
00066/033  *ASMG                     ASMGIS20        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS20                       35 
            5.0T1   105  ASMG.ASMGIS20.SA.033               1 SEQ      80    6 PAGE UM   MTA                 JULY 03, 1981  12:21:52
            5.0T1   105                       
00066/034  *ASMG                     ASMGIS44        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS44                       36 
            5.0T1   106  ASMG.ASMGIS44.SA.034               1 SEQ      80    9 PAGE UM   MTA                 JULY 03, 1981  12:21:54
            5.0T1   106                       
00066/035  *ASMG                     ASMGIS60        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS60                       37 
            5.0T1   107  ASMG.ASMGIS60.SA.035               1 SEQ      80   10 PAGE UM   MTA                 JULY 03, 1981  12:21:55
            5.0T1   107                       
00066/036  *ASMG                     ASMGIS67        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS67                       38 
            5.0T1   108  ASMG.ASMGIS67.SA.036               1 SEQ      80   11 PAGE UM   MTA                 JULY 03, 1981  12:21:56
            5.0T1   108                       
00066/037  *ASMG                     ASMGIS70        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS70                       39 
            5.0T1   109  ASMG.ASMGIS70.SA.037               1 SEQ      80   12 PAGE UM   MTA                 JULY 03, 1981  12:21:58
            5.0T1   109                       
00066/038  *ASMG                     ASMGIS71        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS71                       40 
            5.0T1   110  ASMG.ASMGIS71.SA.038               1 SEQ      80   12 PAGE UM   MTA                 JULY 03, 1981  12:21:59
            5.0T1   110                       
00066/039  *ASMG                     ASMGRTA         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGRTA                        41 
            5.0T1   111  ASMG.ASMGRTA.SA.039                1 SEQ      80    5 PAGE UM   MTA                 JULY 03, 1981  12:22:01
            5.0T1   111                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00066/040  *ASMG                     ASMGUP          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGUP                         42 
            5.0T1   112  ASMG.ASMGUP.SA.040                 1 SEQ      80   20 PAGE UM   MTA                 JULY 03, 1981  12:22:02
            5.0T1   112                       
00066/041  *ASMG                     APARM           SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=APARM                          43 
            5.0T1   113  ASMG.APARM.SA.041                  1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  12:22:03
            5.0T1   113                       
00066/042  *ASMG                     ASMGSET         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGSET                        44 
            5.0T1   114  ASMG.ASMGSET.SA.042                1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  12:22:04
            5.0T1   114                       
00066/043  *ASMG                     COMMENCE        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=COMMENCE                       45 
            5.0T1   115  ASMG.COMMENCE.SM.043               1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:05
            5.0T1   115                       
00066/044  *ASMG                     COMMON          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=COMMON                         46 
            5.0T1   116  ASMG.COMMON.SM.044                 1 SEQ      80   18 PAGE UM   MTA                 JULY 03, 1981  12:22:07
            5.0T1   116                       
00066/045  *ASMG                     DCBOUT          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=DCBOUT                         47 
            5.0T1   117  ASMG.DCBOUT.SM.045                 1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:08
            5.0T1   117                       
00066/046  *ASMG                     DEFCHAR         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=DEFCHAR                        48 
            5.0T1   118  ASMG.DEFCHAR.SM.046                1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  12:22:09
            5.0T1   118                       
00066/047  *ASMG                     ELZERO          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=ELZERO                         49 
            5.0T1   119  ASMG.ELZERO.SM.047                 1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:10
            5.0T1   119                       
00066/048  *ASMG                     EMSG            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=EMSG                           50 
            5.0T1   120  ASMG.EMSG.SM.048                   1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:11
            5.0T1   120                       
00066/049  *ASMG                     ENTRYOUT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=ENTRYOUT                       51 
            5.0T1   121  ASMG.ENTRYOUT.SM.049               1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:12
            5.0T1   121                       
00066/050  *ASMG                     EPTR            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=EPTR                           52 
            5.0T1   122  ASMG.EPTR.SM.050                   1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:12
            5.0T1   122                       
00066/051  *ASMG                     FDIMEN          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=FDIMEN                         53 
            5.0T1   123  ASMG.FDIMEN.SM.051                 1 SEQ      80    9 PAGE UM   MTA                 JULY 03, 1981  12:22:14
            5.0T1   123                       
00066/052  *ASMG                     FINISH          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=FINISH                         54 
            5.0T1   124  ASMG.FINISH.SM.052                 1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:15
            5.0T1   124                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00066/053  *ASMG                     GETT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=GETT                           55 
            5.0T1   125  ASMG.GETT.SM.053                   1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:16
            5.0T1   125                       
00066/054  *ASMG                     INST            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=INST                           56 
            5.0T1   126  ASMG.INST.SM.054                   1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  12:22:17
            5.0T1   126                       
00066/055  *ASMG                     INSTSET         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=INSTSET                        57 
            5.0T1   127  ASMG.INSTSET.SM.055                1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  12:22:18
            5.0T1   127                       
00066/056  *ASMG                     LIST1EQU        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=LIST1EQU                       58 
            5.0T1   128  ASMG.LIST1EQU.SM.056               1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  12:22:20
            5.0T1   128                       
00066/057  *ASMG                     MESSAGE         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=MESSAGE                        59 
            5.0T1   129  ASMG.MESSAGE.SM.057                1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:20
            5.0T1   129                       
00066/058  *ASMG                     PRINTOUT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PRINTOUT                       60 
            5.0T1   130  ASMG.PRINTOUT.SM.058               1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:21
            5.0T1   130                       
00066/059  *ASMG                     PRNT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PRNT                           61 
            5.0T1   131  ASMG.PRNT.SM.059                   1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:22
            5.0T1   131                       
00066/060  *ASMG                     PUTT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PUTT                           62 
            5.0T1   132  ASMG.PUTT.SM.060                   1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:23
            5.0T1   132                       
00066/061  *ASMG                     RD              SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=RD                             63 
            5.0T1   133  ASMG.RD.SM.061                     1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:24
            5.0T1   133                       
00066/062  *ASMG                     SETR            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SETR                           64 
            5.0T1   134  ASMG.SETR.SM.062                   1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:25
            5.0T1   134                       
00066/063  *ASMG                     SNAPDATA        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SNAPDATA                       65 
            5.0T1   135  ASMG.SNAPDATA.SM.063               1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:26
            5.0T1   135                       
00066/064  *ASMG                     SNAPOUT         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SNAPOUT                        66 
            5.0T1   136  ASMG.SNAPOUT.SM.064                1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  12:22:27
            5.0T1   136                       
00066/065  *ASMG                     TIMEOUT         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=TIMEOUT                        67 
            5.0T1   137  ASMG.TIMEOUT.SM.065                1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:28
            5.0T1   137                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00066/066  *ASMG                     TRANSLAT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=TRANSLAT                       68 
            5.0T1   138  ASMG.TRANSLAT.SM.066               1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:29
            5.0T1   138                       
00066/067  *ASMG                     UPEMSG          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=UPEMSG                         69 
            5.0T1   139  ASMG.UPEMSG.SM.067                 1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  12:22:30
            5.0T1   139                       
0          Referenced by comments of: 66/1, 66/71, 66/72 
00066/068  *ASMG                     ASMGMOD         SA  G          S0003 FSWATF FSNAME=ASMGMOD                                     
            5.0T1   140  ASMG.ASMGMOD.SA.068                1 LINE     80    1 PAGE UM   MTA                 SEP. 22, 1978  00:38:16
            5.0T1   140                       
0          SOURCE FOR THE MODULE LIST INDICATING FROM WHICH FILE TO LOAD EACH PART OF ASMG.
0          Referenced by comments of: 66/69 
00066/069  *ASMG                     ASMGMOD         OC  G        # (PART OF ASMGMOD)                                               
            D4T1    165  ASMG.ASMGMOD.OC.069                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:37
0          Part of ASMGMOD (66/68).
00066/070  *ASMG                     GTIMEST         OC  G          S0563 D4T1 VLO FSNAME=ASMG.GTIMEST.OC.070(1)                 166
            5.0T1   141  ASMG.GTIMEST.OC.070                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:39
            5.0T1   141                       
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          S0003 FSWATF FSNAME=ASMGUPD                                     
            5.0T1   142  ASMG.ASMGUPD.UU.071                1 LINE     83   40 PAGE UM   MTA                 SEP. 22, 1978  00:33:53
            5.0T1   142                       
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              S0003 FSWATF FSNAME=ASMGJOB                                     
            5.0T1   143  ASMG.ASMGJOB.C.072                 1 LINE    124    1 PAGE UM   MTA                 SEP. 22, 1978  00:39:08
            5.0T1   143                       
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) 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
                THE LISTINGS ARE NOT PRINTED. A SEPARATE JOB IS REQUIRED. 
0          Referenced by comments of: 66/1, 66/74 
00066/073  *ASMG                     ASMGJOB2        C              S0003 FSWATF FSNAME=ASMGJOB2                                    
            5.0T1   144  ASMG.ASMGJOB2.C.073                1 LINE    112    1 PAGE UM   MTA                 SEP. 22, 1978  00:39:29
            5.0T1   144                       
0          COMMAND FILE TO ASSEMBLE SELECTED PARTS OF ASMG.
00066/074  *ASMG                     ASMGLINK        C              S0003 FSWATF FSNAME=ASMGLINK                                    
            5.0T1   145  ASMG.ASMGLINK.C.074                1 LINE    112    1 PAGE UM   MTA                 SEP. 22, 1978  00:40:31
            5.0T1   145                       
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              S0003 FSWATF FSNAME=ASMGCOPY                                    
            5.0T1   146  ASMG.ASMGCOPY.C.075                1 LINE     26    2 PAGE UM   MTA                 SEP. 22, 1978  00:41:07
            5.0T1   146                       
0          COMMAND FILE TO MOVE THE OUTPUT OF ASMGLINK (066/74) INTO THE PUBLIC FILES.
00066/076  *ASMG                     *ASMG           OE  G          *ASMG                                                           
            5.0T1   147  ASMG.*ASMG.OE.076                  1 SEQ    8849    3 PAGE UM   MTA                 JULY 03, 1981  12:29:17
            5.0T1   147  *ASMG                
0          THE OBJECT FOR ASMG IS STORED IN 18 SEQUENTIAL, PUBLIC FILES IN MTS (066/76) THROUGH
           (066/92).  THE FILES AND THEIR CONTENTS BY MODULE NAME ARE:
            
                    FILE           ENTRY POINT    CONTENTS
                    ----           -----------    --------
                    *ASMG          ASMGASM        ASMGASM,ASMGBUFF,ASMGMOD
                    *ASMBLR        ASMGASM        (EXACTLY THE SAME CONTENTS AS *ASMG)
                    ETC:ASMGFPP    ASMGFPP        ASMGFPP,ASMGFD,ASMGFEX
                    ETC:ASMGF1     ASMGF1         ASMGF1
                    ETC:ASMGF2     ASMGF2         ASMGF2,ASMGF2A
                    ETC:ASMGF3     ASMGF3         ASMGF3
                    ETC:ASMGF7     ASMGF7         ASMGF7C,ASMGF7G,,ASMGF7L,ASMGF7S,ASMGFI,
                                                  ASMGF7D,ASMGF7E,ASMGF7I,ASMGF7N,ASMGF7V,ASMGF7X
                    ETC:ASMGF8     ASMGF8         ASMGF8A,ASMGF8C,ASMGF8L,ASMGF8N,ASMGF8P,
                                                  ASMGF8S,ASMGF8V,ASMGF8D,ASMGF8I,ASMGF8M
                    ETC:ASMGIS00                  ASMGIS00
                    ETC:ASMGIS09                  ASMGIS09
                    ETC:ASMGIS20                  ASMGIS20
                    ETC:ASMGIS44                  ASMGIS44
                    ETC:ASMGIS60                  ASMGIS60
                    ETC:ASMGIS67                  ASMGIS67
                    ETC:ASMGIS70                  ASMGIS70
                    ETC:ASMGIS71                  ASMGIS71
                    ETC:ASMGRTA    ASMGRTA        ASMGRTA
                    ETC:ASMGUP     ASMGUP         ASMGUP
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 66/76 
00066/077  *ASMG                     ASMGFPP         OE  G          ETC:ASMGFPP                                                     
            5.0T1   148  ASMG.ASMGFPP.OE.077                1 SEQ   12064    5 PAGE UM   MTA                 JULY 03, 1981  12:29:18
            5.0T1   148  ETC.:ASMGFPP         
00066/078A *ASMG                     ASMGF1          OE  G          ETC:ASMGF1                                                      
            5.0T1   149  ASMG.ASMGF1.OE.078                 1 SEQ    9088    3 PAGE UM   MTA                 JULY 03, 1981  12:29:19
            5.0T1   149  ETC.:ASMGF1          
0          Contains a patch to change the default macro library to *ASMGSYSMAC (066/95).
00066/079  *ASMG                     ASMGF2          OE  G          ETC:ASMGF2                                                      
            5.0T1   150  ASMG.ASMGF2.OE.079                 1 SEQ   20784    6 PAGE UM   MTA                 JULY 03, 1981  12:29:20
            5.0T1   150  ETC.:ASMGF2          
00066/080  *ASMG                     ASMGF3          OE  G          ETC:ASMGF3                                                      
            5.0T1   151  ASMG.ASMGF3.OE.080                 1 SEQ    8286    3 PAGE UM   MTA                 JULY 03, 1981  12:29:22
            5.0T1   151  ETC.:ASMGF3          
00066/081  *ASMG                     ASMGF7          OE  G          ETC:ASMGF7                                                      
            5.0T1   152  ASMG.ASMGF7.OE.081                 1 SEQ   12904    6 PAGE UM   MTA                 JULY 03, 1981  12:29:23
            5.0T1   152  ETC.:ASMGF7          
00066/082  *ASMG                     ASMGF8          OE  G          ETC:ASMGF8                                                      
            5.0T1   153  ASMG.ASMGF8.OE.082                 1 SEQ    9552    6 PAGE UM   MTA                 JULY 03, 1981  12:29:24
            5.0T1   153  ETC.:ASMGF8          
00066/083  *ASMG                     ASMGIS00        OE  G          ETC:ASMGIS00                                                    
            5.0T1   154  ASMG.ASMGIS00.OE.083               1 SEQ    2220    1 PAGE UM   MTA                 JULY 03, 1981  12:29:25
            5.0T1   154  ETC.:ASMGIS00        
00066/084  *ASMG                     ASMGIS09        OE  G          ETC:ASMGIS09                                                    
            5.0T1   155  ASMG.ASMGIS09.OE.084               1 SEQ    1834    1 PAGE UM   MTA                 JULY 03, 1981  12:29:26
            5.0T1   155  ETC.:ASMGIS09        
00066/085  *ASMG                     ASMGIS20        OE  G          ETC:ASMGIS20                                                    
            5.0T1   156  ASMG.ASMGIS20.OE.085               1 SEQ    1199    1 PAGE UM   MTA                 JULY 03, 1981  12:29:27
            5.0T1   156  ETC.:ASMGIS20        
00066/086  *ASMG                     ASMGIS44        OE  G          ETC:ASMGIS44                                                    
            5.0T1   157  ASMG.ASMGIS44.OE.086               1 SEQ    1866    1 PAGE UM   MTA                 JULY 03, 1981  12:29:27
            5.0T1   157  ETC.:ASMGIS44        
00066/087  *ASMG                     ASMGIS60        OE  G          ETC:ASMGIS60                                                    
            5.0T1   158  ASMG.ASMGIS60.OE.087               1 SEQ    2074    1 PAGE UM   MTA                 JULY 03, 1981  12:29:28
            5.0T1   158  ETC.:ASMGIS60        
00066/088  *ASMG                     ASMGIS67        OE  G          ETC:ASMGIS67                                                    
            5.0T1   159  ASMG.ASMGIS67.OE.088               1 SEQ    2160    1 PAGE UM   MTA                 JULY 03, 1981  12:29:29
            5.0T1   159  ETC.:ASMGIS67        
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00066/089  *ASMG                     ASMGIS70        OE  G          ETC:ASMGIS70                                                    
            5.0T1   160  ASMG.ASMGIS70.OE.089               1 SEQ    2372    1 PAGE UM   MTA                 JULY 03, 1981  12:29:30
            5.0T1   160  ETC.:ASMGIS70        
00066/090  *ASMG                     ASMGIS71        OE  G          ETC:ASMGIS71                                                    
            5.0T1   161  ASMG.ASMGIS71.OE.090               1 SEQ    2380    1 PAGE UM   MTA                 JULY 03, 1981  12:29:30
            5.0T1   161  ETC.:ASMGIS71        
00066/091  *ASMG                     ASMGRTA         OE  G          ETC:ASMGRTA                                                     
            5.0T1   162  ASMG.ASMGRTA.OE.091                1 SEQ    1280    1 PAGE UM   MTA                 JULY 03, 1981  12:29:31
            5.0T1   162  ETC.:ASMGRTA         
00066/092  *ASMG                     ASMGUP          OE  G          ETC:ASMGUP                                                      
            5.0T1   163  ASMG.ASMGUP.OE.092                 1 SEQ    3538    1 PAGE UM   MTA                 JULY 03, 1981  12:29:32
            5.0T1   163  ETC.:ASMGUP          
0          Referenced by comments of: 66/76 
00066/093  *ASMG                     USER'S GUIDE    P              S0881 ASMG27 POSN=ASMG.GUIDE.USERS                           3  
            5.0T1   164  ASMG.USER'S_GUIDE.P.093            1 SEQ      80   41 PAGE UM   MTA                 JULY 03, 1981  12:30:00
            5.0T1   164                       
0          WATERLOO USER'S GUIDE FOR OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
           SEE MTS VOLUME 14 (665) FOR MTS ASMG USER'S GUIDE.
00066/094  *ASMG                     IMPLEMENTATION  P              S0881 ASMG27 POSN=ASMG.GUIDE.IMPL                            4  
            5.0T1   165  ASMG.IMPLEMENTATION.P.094          1 SEQ      78   27 PAGE UM   MTA                 JULY 03, 1981  12:30:03
            5.0T1   165                       
0          IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
00066/095  *ASMG                     *ASMGSYSMAC     SM  G          *ASMGSYSMAC                                                     
            5.0T1   166  ASMG.*ASMGSYSMAC.SM.095            1 LINE     80   81 PAGE UM   MTA                 JULY 03, 1981  12:30:04
            5.0T1   166  *ASMGSYSMAC          
0          *ASMGSYSMAC IS THE ASMG VERSION OF *SYSMAC.
0          Referenced by comments of: 66/78, 225/1 
00067/001A  FILE SAVE                MAIN            SA  G  FSAV    RSTR:FILESAVE(1000)                                             
            5.0T1   167  FILE_SAVE.MAIN.SA.001              1 LINE     80   34 PAGE UM   HELFFRICH           AUG. 05, 1981  02:00:54
            5.0T1   167  RSTR:FILESAVE        
0          THIS COMPONENT IS A COMBINATION OF WHAT WERE PREVIOUSLY TWO COMPONENTS, 
           FILE SAVE (067) AND FILE SAVE - ONLINE (716).
            
           (067/1) IS THE MTS FILESAVE, I.E., DISK BACKUP, PROGRAM.  THIS PROGRAM IS RUN ONCE
           PER WEEK AT UM TO PRODUCE A BACKUP OF ALL DISK FILES IN CASE OF HARDWARE
           OR SOFTWARE PROBLEMS.  ON OTHER DAYS, A PARTIAL FILESAVE IS PRODUCED USING
           THE ONLINE FILE SAVE PROGRAM (067/19) OF THOSE FILES WHICH HAVE CHANGED SINCE
           THE PREVIOUS FILE SAVE WAS RUN.  THE TAPES GENERATED BY THE FULL SAVE ARE COPIED,
           SEE (610) AND SAVED FOR SEVERAL MONTHS.  SIX WEEK INTERVALS OF THESE FULL TAPES
           ARE SAVED FOR SEVERAL YEARS.  WE HAVE FOUND THAT THIS PROCEDURE, WHICH INCLUDES
           STORING THE FULL TAPES IN ANOTHER BUILDING, SEEMS TO PROVIDE A REASONABLE BACKUP.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           THIS IS THE SOURCE FOR THE FILESAVE MAIN PROGRAM WHICH ACCEPTS THE FOLLOWING
           PARAMETERS SEPARATED BY BLANKS:
            
                ALL -- MEANS ALL FILES WILL BE SAVED
                CHG -- MEANS ONLY CHANGED FILES WILL BE SAVED
                DIR -- MEANS THAT *RESTORE (712) DIRECTORY ENTRIES ARE TO BE GENERATED
            
           ASSEMBLE USING COPY:FILE.MACROS (482/45) AND THE FILESAVE MACROS (067/31).
            
           ********************************************************************************
           D5.0 CHANGES:
            
           ALREADY DISTRIBUTED ON D4.3A:
            
           1. USES NEW SAVEFILE SUBROUTINE (067/2).
           2. WRITES ON SPRINT RATHER THAN FDNAME READ FROM UNIT 0.
           3. PRODUCES ERROR MESSAGES ON SERCOM AS WELL AS SPRINT.
           4. FORMAT OF SOME MESSAGES HAS BEEN CHANGED.
           5. NUMBER OF FILES PER STREAM WHICH CAN BE SAVED WAS DECREASED TO
              35000 DUE TO EXHAUSTION OF VM AT PREVIOUS 40000 VALUE.
           6. VTOCREAD ERROR RETURN WILL CAUSE THE PROPER VOLUME TO BE
              REPORTED IN ERROR.
            
           NEW FOR D5.0:
            
           UDPATED FOR USE WITH THE DISK MANAGER (769).
           ********************************************************************************
0          Referenced by comments of: 67/1, 67/4, 92/1, 610/1, 712/1, 716/1 
00067/002A  FILE SAVE                SAVEFILE        SA  G  SFIL    RSTR:SAVEFILE(1000)                                             
            5.0T1   168  FILE_SAVE.SAVEFILE.SA.002          1 LINE     80   11 PAGE UM   HELFFRICH           AUG. 05, 1981  02:00:59
            5.0T1   168  RSTR:SAVEFILE        
0          ASSEMBLE USING COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728) AND *SYSMAC.
            
           ********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           THIS VERSION TAKES A TYPE E DSCB ADDRESS AND CALLS THE RESIDENT BUILDPM ROUTINE TO
           BUILD THE PAGE MAP BUFFER FOR THE FILE.
           ********************************************************************************
0          Referenced by comments of: 67/1, 67/4, 67/19, 67/20, 67/40, 502/8 
00067/003A  FILE SAVE                VTOCRD          SA  G  VTOC    RSTR:VTOCREAD(1000)                                             
            5.0T1   169  FILE_SAVE.VTOCRD.SA.003            1 LINE     80   14 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:02
            5.0T1   169  RSTR:VTOCREAD        
0          SUBROUTINE TO READ ENTIRE VTOC OF DISK VOLUME.  ASSEMBLE USING *SYSMAC AND
           COPY:FILE.MACROS (482/45).
            
           ***************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          D5.0 changes:
            
           Revised calling sequence for the Disk Manager (769).
           ***************************************************************************
0          Referenced by comments of: 67/4, 67/40, 104/116, 682/20, 682/36, 682/44, 682/45, 1021/9, 1030/1, 1030/3 
00067/004A  FILE SAVE                OBJECT          OC  G          RSTR:FILESAVEOBJ                                                
            5.0T1   170  FILE_SAVE.OBJECT.OC.004            1 LINE   7428   14 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:04
            5.0T1   170  RSTR:FILESAVEOBJ     
0          OBJECT FROM (067/1), (067/2), (067/3), AND (067/21).
00067/005A  FILE SAVE                RESTART         SA  G          RSTR:LFS.RESTART(1000)                                          
            5.0T1   171  FILE_SAVE.RESTART.SA.005           1 LINE     72    3 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:06
            5.0T1   171  RSTR:LFS.RESTART     
0          PROGRAM USED BY WEEKLY SAVE (067/10) TO CAUSE THE WEEKLY TAPES TO BE RE-USED 
           AFTER THEIR CYCLE PERIOD HAS EXPIRED. THIS PERIOD IS CURRENTLY 6 WEEKS.  THIS
           HAS TO BE DONE BECAUSE IF FILESAVE CRASHES WITH PART OF A SET OF TAPES WRITTEN,
           IT WOULD NOT REUSE THE PARTIALLY WRITTEN TAPES OF THE SET WHEN RESTARTED.
           THIS PROGRAM IS A KLUDGE. ASSEMBLE WITH THE FILE SAVE MACROS (067/31).
            
           **********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           IF RUN WITH PAR=NNNN, THE PROGRAM WILL MARK THE TAPES IN THE SERIES
           NNNN, E.G. 1200, TO BE USED FOR FILESAVE.  THIS IS TO ALLOW A FULL FILE SAVE
           TO BE RUN AT A NON-STANDARD TIME AND STILL USE THE PROPER SET OF TAPES.
           THIS PROGRAM WILL ALSO WARN OF AN ATTEMPT TO RUN THE WEEKLY FILE SAVE BEFORE THE 
           STANDARD TIME.
           **********************************************************************************
0          Referenced by comments of: 67/7, 67/8, 67/21, 67/23 
00067/006A  FILE SAVE                RESTART         OC  G          RSTR:LFS.RESTART(1,999)                                         
            5.0T1   172  FILE_SAVE.RESTART.OC.006           1 LINE     80    3 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:06
            5.0T1   172                       
00067/007A  FILE SAVE                SPECIAL START   C              *SVS                                                            
            5.0T1   173  FILE_SAVE.SPECIAL_START.C.007      1 LINE     25    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:08
            5.0T1   173  RSTR:*SVS            
0          OPERATOR FILE WHICH USES FEATURES OF LFS.RESTART (067/5) TO RUN A SPECIAL
           FULL FILE SAVE AT A NON-STANDARD TIME OF THE WEEK.  CONTAINS $SOURCE
           RSTR:SVSTART (067/8).
0          Referenced by comments of: 67/8, 67/21, 67/23 
00067/008A  FILE SAVE                SVSTART         C              RSTR:SVSTART                                                    
            5.0T1   174  FILE_SAVE.SVSTART.C.008            1 LINE     68    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:09
            5.0T1   174  RSTR:SVSTART         
0          COMMAND AND DATA FILE WHICH IS $SOURCED TO BY *SVW (067/10) AND *SVS (067/7).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          THIS FILE STARTS UP THE SEVERAL -- CURRENTLY 7 -- STREAMS WHICH ARE USED FOR THE
           FULL FILE SAVE.  IT USES LFS.RESTART (067/5) TO CAUSE THE WEEKLY TAPES TO BE
           REUSED AFTER THEIR CYCLE PERIOD HAS EXPIRED.
0          Referenced by comments of: 67/7, 67/10 
00067/009A  FILE SAVE                FSS             C              MTS:TST.FSS                                                     
            5.0T1   175  FILE_SAVE.FSS.C.009                1 LINE     98    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:10
            5.0T1   175  RSTR:FSS             
0          COMMAND AND DATA FILE $SOURCED TO BY THE VARIOUS STREAMS: *SV1, *SV2, *SV3,
           *SV4, *SV5, *SV6, AND *SV7. THIS FILE CONTAINS THE DISK VOLUME SERIAL NUMBERS
           OF THE VOLUMES TO BE SAVED BY EACH STREAM. IN ADDITION, THE LETTER "C" MAY
           FOLLOW EACH VOLUME SERIAL NUMBER TO INDICATE WHETHER THE LABEL FOR EACH TAPE
           IS TO BE CHECKED. THIS FILE WILL HAVE TO BE CHANGED BY EACH INSTALLATION TO
           REFLECT THE NUMBER OF DISK PACKS IN USE AND THEIR VOLUME SERIAL NUMBERS. THE
           FILE "FSLOG" IS USED TO LOG THE FILESAVE START/STOP TIMES.
00067/010A  FILE SAVE                WEEKLY START    C              *SVW                                                            
            5.0T1   176  FILE_SAVE.WEEKLY_START.C.010       1 LINE     23    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:11
            5.0T1   176  RSTR:*SVW            
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE WEEKLY FULL FILESAVE
           PROCESS. ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN. THIS FILE WILL
           $SOURCE TO RSTR:SVSTART (067/8) WHICH WILL START UP 6 MORE STREAMS -- *SV2,
           *SV3, *SV4, *SV5, *SV6, AND *SV7 -- AUTOMATICALLY SO THAT THE FULL SAVE IS
           DONE IN 7 STREAMS. EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS
           USED, DEPENDING ON THE NUMBER OF DISK DRIVES AND CONTROLS, AND TAPE DRIVES
           AND CONTROLS WHICH ARE AVAILABLE. INVOKED BY ENTERING "MTS *SVW" ON THE
           OPERATORS CONSOLE.
0          Referenced by comments of: 67/5, 67/8 
00067/011   FILE SAVE                WKLY STREAM #1  C              *SV1                                                            
            5.0T1   177  FILE_SAVE.WKLY_STREAM_#1.C.011     1 LINE     19    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:11
            5.0T1   177  RSTR:*SV1            
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                                                            
            5.0T1   178  FILE_SAVE.WKLY_STREAM_#2.C.012     1 LINE     19    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:12
            5.0T1   178  RSTR:*SV2            
0          COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #2.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #2.
00067/013   FILE SAVE                WKLY STREAM #3  C              *SV3                                                            
            5.0T1   179  FILE_SAVE.WKLY_STREAM_#3.C.013     1 LINE     19    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:13
            5.0T1   179  RSTR:*SV3            
0          COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #3.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #3.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00067/014   FILE SAVE                WKLY STREAM #4  C              *SV4                                                            
            5.0T1   180  FILE_SAVE.WKLY_STREAM_#4.C.014     1 LINE     19    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:14
            5.0T1   180  RSTR:*SV4            
0          COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #4.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #4.
00067/015   FILE SAVE                WKLY STREAM #5  C              *SV5                                                            
            5.0T1   181  FILE_SAVE.WKLY_STREAM_#5.C.015     1 LINE     19    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:15
            5.0T1   181  RSTR:*SV5            
0          COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #5.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #5.
00067/016   FILE SAVE                WKLY STREAM #6  C              *SV6                                                            
            5.0T1   182  FILE_SAVE.WKLY_STREAM_#6.C.016     1 LINE     19    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:15
            5.0T1   182  RSTR:*SV6            
0          COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #6.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #6.
00067/017C  FILE SAVE                WKLY STREAM #7  C              *SV7                                                            
            5.0T1   183  FILE_SAVE.WKLY_STREAM_#7.C.017     1 LINE     19    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:16
            5.0T1   183  RSTR:*SV7            
0          COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #7.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #7.
00067/018A  FILE SAVE                *SAV            C              *SAV                                                            
            5.0T1   184  FILE_SAVE.?SAV.C.018               1 LINE     89    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:17
            5.0T1   184  RSTR:*SAV            
0          COMMAND FILE TO START THE ONLINE FILESAVE AND MERGE OPERATIONS.  INVOKED BY
           ENTERING "MTS *SAV" ON THE OPERATOR'S CONSOLE.
            
           This file also contains commands to purge the journal log file.  It may
           need to be changed according to local installation preference.
0          Referenced by comments of: 67/42 
00067/019A  FILE SAVE                SAVE PGM        SA  G  OLFS    RSTR:DSF(1000)                                                  
            5.0T1   185  FILE_SAVE.SAVE_PGM.SA.019          1 LINE     80   22 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:18
            5.0T1   185  RSTR:DSF             
0             SOURCE FOR THE ONLINE FILESAVE.  THIS PROGRAM SAVES THE CHANGED FILES IN
           THE SYSTEM AND CREATES FILES WITH NAMES OF THE FORM "FILEDIRNN", WHERE NN=01,02,...,
           WHICH CONSTITUTE THE INPUT TO THE MERGE PROGRAM (067/23).  THE MERGE PROGRAM
           ULTIMATELY MAKES THE SAVE TIMES FOR THE FILES SAVED BY THE ONLINE FILE
           SAVE AVAILABLE TO *RESTORE (712). 
            
           CALLS SAVEFILE (067/2) AND TAPEOUT (067/21).  ASSEMBLE USING COPY:FILE.MACROS
           (482/45) AND THE FILESAVE MACROS (067/31).  NOTE: THE DIRECTORY FILES
           RSTR:FILEDIR.MAS, RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR MUST BE PERMITTED
           READ TO PKEY=*RESTORE, UNLIM TO RSTR, AND RW TO PKEY=DEADUCATDES.
1                                                                                               MON AUG 05/96   18:37:45   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           
           *******************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           THE DAILY SAVE PROGRAM TIMESTAMPS ITS OUTPUT AND SENDS IT TO ANY OF
           THREE LOCATIONS:  THE OPERATOR, A JOURNAL LOG FILE, OR A PERMANENT LOG
           FILE.  EITHER OF THE LOG FILES MAY BE PURGED BASED ON THE MESSAGE TIME
           STAMP.
            
           TO HELP GUARD AGAINST CORRUPTED FDS IN THE CATALOG, THE SAVE PROGRAM
           ATTEMPTS TO LOCK THE "SPECIAL FILES" IT RECOGNIZES.  IF THE ATTEMPT FAILS,
           THE FILE IS SAVED ANYWAY.
            
           WHEN A PGNT OCCURS IN THE SAVE PROGRAM, AN SVC READ IS DONE FROM THE
           CONSOLE TO ALLOW THE OPERATORS TO DUMP THE JOB.  PREVIOUSLY, AN 
           UNSOLICITED JOB DUMP WAS ISSUED.
           *******************************************************************************
0          Referenced by comments of: 67/1, 67/20, 67/21, 67/40, 671/1 
00067/020A  FILE SAVE                SAVE PGM        OC  G          RSTR:OLFSOBJ                                                    
            5.0T1   186  FILE_SAVE.SAVE_PGM.OC.020          1 LINE     80   17 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:23
            5.0T1   186  RSTR:OLFSOBJ         
0          CONTAINS OBJECT OF (67/2), (067/19), AND (067/21).
00067/021A  FILE SAVE                TAPEOUT         SA  G  TPDO    RSTR:TAPEOUT(1000)                                              
            5.0T1   187  FILE_SAVE.TAPEOUT.SA.021           1 LINE     80   25 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:25
            5.0T1   187  RSTR:TAPEOUT         
0          SUBROUTINE CALLED BY THE SAVE PROGRAM (067/19) TO WRITE A FILESAVE TAPE 
           WHICH  MAINTAINS A TAPE DIRECTORY FILE NAMED "TAPEDIR".  IT WILL ALSO
           CREATE AND PERMIT A TAPE DIRECTORY IF ONE DOES NOT EXIST.  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 -- NOT CURRENTLY USED AT UM
            
           HAS ASSEMBLY EQU'S FOR SETTING THE SAVE CYCLE PERIOD -- CURRENTLY 42 DAYS.
           ASSEMBLE USING THE FILE SAVE MACROS (067/31).
            
           ********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CHANGED TO IMPLEMENT NEW TAPE DIRECTORY FORMAT REQUIRED BY SPECIAL FULL FILE
           SAVES, SEE (067/5) AND (067/7).  ALSO FIXES MISCELLANEOUS BUGS RELATING TO TAPES
           WITH READ AND WRITE ERROR HISTORIES.
           ********************************************************************************
0          Referenced by comments of: 67/4, 67/19, 67/20, 67/23, 502/8 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00067/022A  FILE SAVE                TAPEOUT         OC  G          RSTR:TAPEOUT(1,999)                                             
            5.0T1   188  FILE_SAVE.TAPEOUT.OC.022           1 LINE     80    9 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:44
            5.0T1   188                       
00067/023A  FILE SAVE                MERGE PGM       SA  G  MERG    RSTR:MERGE(1000)                                                
            5.0T1   189  FILE_SAVE.MERGE_PGM.SA.023         1 LINE     80   17 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:52
            5.0T1   189  RSTR:MERGE           
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 AND THE CHKFILE SUBROUTINE (682/39). PROGRAM WILL CREATE AND
           PERMIT THE APPROPRIATE FILESAVE DIRECTORY FILES -- RSTR:FILEDIR.MAS AND
           RSTR:FILEDIR.NEW -- IF THEY DON'T ALREADY EXIST. COPIES *CNFGINFODSECT (654)
           AND *GFINFODSECT (593). ASSEMBLE USING THE FILESAVE MACROS (067/31).
            
            
           *****************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           1) CHANGED TO RECOGNIZE NEW TAPE DIRECTORY FORMAT, SEE (067/5), (067/7), AND
           (067/21). 2) CHANGED TO DELETE DUPLICATE FILE ENTRIES. 3) CHANGED TO CREATE
           DIRECTORY OF EQUAL SIZE TO ANY OTHER DIRECTORY WHICH MAY EXIST.
           *****************************************************************************
0          Referenced by comments of: 67/19, 682/39 
00067/024A  FILE SAVE                MERGE PGM       OC  G          RSTR:MERGE(1,999)                                               
            5.0T1   190  FILE_SAVE.MERGE_PGM.OC.024         1 LINE     80    5 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:55
            5.0T1   190                       
0          CONTAINS TWO "ALI" RECORDS AND "$CONTINUE WITH
           SEG2:CFE+SEG2:TIME+FILE:CHKFILE+COPY:SYSDEFS+*LIBRARY".
00067/025A  FILE SAVE                TAPEDIRLIST     SA  G  TPDL    RSTR:TAPEDIRLIST(1000)                                          
            5.0T1   191  FILE_SAVE.TAPEDIRLIST.SA.025       1 LINE     80    4 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:57
            5.0T1   191  RSTR:TAPEDIRLIST     
0          PROGRAM TO LIST THE "TAPEDIR" FILE IN READABLE FORM.  ASSEMBLE USING THE FILESAVE
           MACROS (067/31).
00067/026A  FILE SAVE                TAPEDIRLIST     OC  G          RSTR:TAPEDIRLIST(1,999)                                         
            5.0T1   192  FILE_SAVE.TAPEDIRLIST.OC.026       1 LINE     80    2 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:58
            5.0T1   192                       
00067/027A  FILE SAVE                REGENERATE      SA  G          RSTR:REGENERATE(1000)                                           
            5.0T1   193  FILE_SAVE.REGENERATE.SA.027        1 LINE     72    4 PAGE UM   HELFFRICH           AUG. 05, 1981  02:01:59
            5.0T1   193  RSTR:REGENERATE      
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
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          MACRO LIBRARY (067/31).
            
           ****************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CHANGED TO UNLOCK THE DIRECTORY FILES IT IS BUILDING PERIODICALLY SO AS TO
           ALLOW MULTIPLE STREAMS TO BE RUN SIMULTANEOUSLY.
           ****************************************************************************
00067/028A  FILE SAVE                REGENERATE      OC  G          RSTR:REGENERATE(1,998)                                          
            5.0T1   194  FILE_SAVE.REGENERATE.OC.028        1 LINE     80    3 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:00
            5.0T1   194                       
0          CONTAINS A "$CONTINUE WITH *ENDJUNK" CARD.
00067/029A  FILE SAVE                *FSM            C              *FSM                                                            
            5.0T1   195  FILE_SAVE.?FSM.C.029               1 LINE     28    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:00
            5.0T1   195  RSTR:*FSM            
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 
00067/030   FILE SAVE                WRITEUP         WF             RSTR:OLFS.W                                                     
            5.0T1   196  FILE_SAVE.WRITEUP.WF.030           1 LINE    102    5 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:01
            5.0T1   196  RSTR:OLFS.W          
0          INFORMAL DOCUMENTATION FOR THE ONLINE FILE SAVE.
00067/031A  FILE SAVE                MACROS          SM  G          RSTR:FS.MACROS                                                  
            5.0T1   197  FILE_SAVE.MACROS.SM.031            1 LINE     72    3 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:02
            5.0T1   197  RSTR:FS.MACROS       
0          FILESAVE MACRO LIBRARY.
0          Referenced by comments of: 67/1, 67/5, 67/19, 67/21, 67/23, 67/25, 67/27, 67/42, 610/1, 671/1, 671/3, 682/37,
                 712/1, 712/2 
00067/032   FILE SAVE                RECOVER         SA  G          RSTR:RECOVER(1001)                                              
            5.0T1   198  FILE_SAVE.RECOVER.SA.032           1 LINE     72    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:03
            5.0T1   198  RSTR:RECOVER         
0          SMALL PROGRAM TO COPY AND RE-LABEL A SET OF WEEKLY FILESAVE TAPES ERRONEOUSLY
           WRITTEN BY FILESAVE.
00067/033   FILE SAVE                RECOVER         OC  G          RSTR:RECOVER(1,999)                                             
            5.0T1   199  FILE_SAVE.RECOVER.OC.033           1 LINE     80    2 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:04
            5.0T1   199                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00067/034   FILE SAVE                FILEDIR.MAS     D            # RSTR:FILEDIR.MAS                                                
                                                                                    UM   HELFFRICH                                  
                         RSTR:FILEDIR.MAS@E   
0          ONLINE FILESAVE FILE DIRECTORY FILE.
00067/035   FILE SAVE                FILEDIR.NEW     D            # RSTR:FILEDIR.NEW                                                
                                                                                    UM   HELFFRICH                                  
                         RSTR:FILEDIR.NEW@E   
0          ONLINE FILESAVE FILE DIRECTORY FILE.
00067/036   FILE SAVE                TAPEDIR         D            # RSTR:TAPEDIR                                                    
                                                                                    UM   HELFFRICH                                  
                         RSTR:TAPEDIR@E       
0          ONLINE FILESAVE TAPE DIRECTORY FILE.
00067/037   FILE SAVE                FSLOG           D            # RSTR:FSLOG                                                      
                                                                                    UM   HELFFRICH                                  
                         RSTR:FSLOG@E         
0          FILESAVE PERMANENT LOG FILE.
00067/038A  FILE SAVE                FSJOURNAL       D            # RSTR:FSJOURNAL                                                  
                                                                                    UM   HELFFRICH                                  
                         RSTR:FSJOURNAL@E     
0          FILESAVE JOURNAL LOG FILE.
00067/039   FILE SAVE                RECOVERING      WF             RSTR:RECOVERING                                                 
            5.0T1   200  FILE_SAVE.RECOVERING.WF.039        1 LINE    106    3 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:45
            5.0T1   200  RSTR:RECOVERING      
0          WRITEUP DESCRIBING HOW TO REGENERATE THE FILE SAVE DIRECTORIES IF THEY ARE
           DAMAGED AS A RESULT OF A DISK DISASTER.
00067/040   FILE SAVE                TESTER          SA  O          RSTR:FSTEST(1000)                                               
            5.0T1   201  FILE_SAVE.TESTER.SA.040            1 LINE     46    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:46
            5.0T1   201                       
0          SERIES OF OBJECT MODULES TO BE CONCATENATED TO ONLINE FILESAVE (067/19) TO
           DEBUG IT.  $CONTINUES WITH SAVEFILE (067/2) + VTOCREAD (067/3) + COPY:SYSDEFS (579/3).
00067/041   FILE SAVE                TESTER          OC  O          RSTR:FSTEST(1,999)                                              
            5.0T1   202  FILE_SAVE.TESTER.OC.041            1 LINE     80    1 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:47
            5.0T1   202  RSTR:FSTEST          
00067/042   FILE SAVE                TAPE PREVIEW    SA  O          RSTR:TAPEPREVIEW(1000)                                          
            5.0T1   203  FILE_SAVE.TAPE_PREVIEW.SA.042      1 LINE     72    5 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:47
            5.0T1   203                       
0          PROGRAM INVOKED BY *SAV (067/18) TO PRINT OUT THE NEXT "N" ONLINE FILESAVE
           TAPES TO BE USED.  TAKES THE NUMBER "N" IN THE PARAMETER FIELD, WHERE "N"
1                                                                                               MON AUG 05/96   18:37:45   Page   40
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          IS THE NUMBER OF TAPES TO PRINT OUT.  ASSEMBLE USING THE FILE SAVE MACROS
           (067/31).
00067/043   FILE SAVE                TAPE PREVIEW    OC  O          RSTR:TAPEPREVIEW(1,999)                                         
            5.0T1   204  FILE_SAVE.TAPE_PREVIEW.OC.043      1 LINE     80    3 PAGE UM   HELFFRICH           AUG. 05, 1981  02:02:50
            5.0T1   204  RSTR:TAPEPREVIEW     
00069/001  *DRAW                                     SA           # (OBSOLETE)                                                      
            D4T1    210  DRAW..SA.                          1 SEQ      80   13 PAGE UM                       JULY 30, 1973  23:38.23
00071/001   LISTSTAT                                 SA  G          W030:LISTSTAT(1,999)                                            
            5.0T1   205  LISTSTAT..SA.001                   1 LINE     73    8 PAGE UM   LIFT                JULY 03, 1981  12:35:11
            5.0T1   205                       
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/9) 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.
           ASSEMBLE USING COPY:MTS.MACROS (344/3). COPIES COPY:RATEVEC (651/3).
           SOURCE IN LINES 1,999.
0          Referenced by comments of: 355/1, 707/3, 753/4 
00071/002   LISTSTAT                                 OC  G          W035:LISTSTAT                                                   
            5.0T1   206  LISTSTAT..OC.002                   1 SEQ      80    3 PAGE UM   LIFT                JULY 03, 1981  12:35:13
            5.0T1   206                       
00072/001  *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                                                            
            5.0T1   207  DSK..C.001                         1 LINE     32    1 PAGE UM   HELFFRICH           JULY 03, 1981  12:35:13
            5.0T1   207  FILE:*DSK            
0          COMMAND FILE TO RUN SYS:DSK (073/5).  INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE.
0          Referenced by comments of: 644/1, 682/4 
00073/002  *DSK                      *DSO            C              *DSO                                                            
            5.0T1   208  DSK.*DSO.C.002                     1 LINE     21    1 PAGE UBC  HOGG      HELFFRICH JULY 03, 1981  12:35:14
            5.0T1   208  *DSO                 
0          COMMAND FILE INVOKED BY ENTERING "MTS *DSO" FROM OPERATOR'S CONSOLE WHICH
           SIGNS ON UNDER USER ID "SYS" AND RUNS SYS:DSK (073/5) WITH OUTPUT TO A
           TEMPORARY FILE, THE END OF WHICH (SHOWING THE TOTAL DISK SPACE USED AND
           AVAILABLE) IS THEN COPIED TO THE OPERATOR'S CONSOLE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00073/003A *DSK                      BASE SOURCE     SA  G          FILE:DSKMAN(-10000,-1)                                          
            5.0T1   209  DSK.BASE_SOURCE.SA.003             1 LINE     80    6 PAGE UM   HELFFRICH           JULY 03, 1981  12:35:15
            5.0T1   209  FILE:DSKMAN          
0          THIS PROGRAM IS A FRONT-END TO THE VOLREL SUBROUTINE, IN (482/4).  IT ALLOWS
           THE OPERATORS TO MANIPULATE INFORMATION IN THE SYSTEM'S DSKTAB ENTRIES, WHICH
           AFFECT THE AVAILABILITY AND CERTAIN ATTRIBUTES OF THE MTS PUBLIC VOLUMES.
           VOLUMES CAN BE ADDED TO, REMOVED FROM, OR TEMPORARILY "FORGOTTEN" BY THE
           SYSTEM.  ADDITIONALLY, THEY CAN ALSO BE DESIGNATED TO HAVE THE FOLLOWING
           CHARACTERISTICS:  NO CATALOG PERMITTED; NO FILES CREATED ON THEM UNLESS
           EXPLICITLY REQUESTED; OR NO FILES CREATED ON THEM UNLESS SPACE IS UNAVAILABLE 
           ELSEWHERE.  THE PROGRAM WILL ALSO DISPLAY INFORMATION IN THE DSKTAB ENTRIES 
           WHICH ARE OF OPERATOR INTEREST, E.G., THE NUMBER OF FREE PAGES ON EACH DISK. 
           ASSEMBLE USING COPY:FILE.MACROS (482/45).  SEE (682/4) FOR A WRITEUP.
0          Referenced by comments of: 73/4 
00073/004A *DSK                      UPDATE          UC  G          FILE:DSKMAN(1000)                                               
            5.0T1   210  DSK.UPDATE.UC.004                  1 LINE     68    3 PAGE UM   HELFFRICH           JULY 03, 1981  12:35:16
            5.0T1   210                       
0          UPDATE DECK TO BE APPLIED TO (073/3) TO YIELD CURRENT SOURCE.
00073/005A *DSK                      DSKMAN          OC  G          SYS:DSK                                                         
            5.0T1   211  DSK.DSKMAN.OC.005                  1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  12:35:18
            5.0T1   211  SYS.:DSK             
0          Referenced by comments of: 73/1, 73/2 
00074/001  *2250EDIT                                 SA           # (OBSOLETE)                                                      
            D4T1    216  2250EDIT..SA.                      1 SEQ      80   29 PAGE UM                       JULY 30, 1973  23:39.56
00076/001   RESERVE DISK             *RSV            C              *RSV                                                            
            5.0T1   212  RESERVE_DISK.*RSV.C.001            1 LINE     45    1 PAGE UM   MTA                 JULY 03, 1981  12:35:19
            5.0T1   212  *RSV                 
0          COMMAND FILE TO RUN THE DISK RESERVE PROGRAM (076/3).  INVOKED BY ENTERING "MTS *RSV"
           ON OPERATOR'S CONSOLE.
00076/002   RESERVE DISK             RESERVE PGM     SA  G          S0563 D4T1 VLO FSNAME=RESERVE_DISK.RESERVE_PGM.SA.002(1)     218
            5.0T1   213  RESERVE_DISK.RESERVE_PGM.SA.002    1 LINE     80    1 PAGE UM   MTA                 JULY 30, 1973  23:40.00
            5.0T1   213                       
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                                                         
            5.0T1   214  RESERVE_DISK.RESERVE_PGM.OC.003    1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  12:35:24
            5.0T1   214  SYS.:RSV             
0          Referenced by comments of: 76/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00077/001   STATBUFF                                 SA  G          S0563 D4T1 VLO FSNAME=STATBUFF..SA.001(1)                    220
            5.0T1   215  STATBUFF..SA.001                   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:56:41
            5.0T1   215                       
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        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00078/001   STAT SUBROUTINE                          SA  G          S0563 D4T1 VLO FSNAME=STAT_SUBROUTINE..SA.001(1)             221
            5.0T1   216  STAT_SUBROUTINE..SA.001            1 LINE     80    4 PAGE UM   HELFFRICH           JULY 27, 1977  21:56:44
            5.0T1   216                       
0          SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O.
00078/002   STAT SUBROUTINE                          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00079/001A  STAT JOB                                 SA  G  STAT    W170:STAT.JOB(1000)                                             
            5.0T1   217  STAT_JOB..SA.001                   1 LINE     80   21 PAGE UM   HELFFRICH           JULY 03, 1981  12:35:26
            5.0T1   217  W170:STAT.JOB        
0          THE "STAT" JOB WILL SAVE STATISTICS ABOUT HARDWARE INTERRUPTS, MTS I/O OPERATIONS,
           AND INTERNAL SUPERVISOR FUNCTIONS (SUCH AS THE EXECUTION OF SIO) ON TAPE.  CAN PRODUCE
           LARGE AMOUNTS OF DATA QUICKLY.  *ANALYSIS (140) CAN HELP ANALYZE THE DATA.  COPIES
           COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:SETPARM (653),
           COPY:MISC.MACROS (728), COPY:UC.MACROS (787/1), AND COPY:CC.MACROS (1054/3).
            
           *********************************************************************************
           D5.0 CHANGES:
            
           CHANGED TO CALL NEW TAPE UNIT CHECK ROUTINES (787/15).
           *********************************************************************************
0          Referenced by comments of: 77/1, 79/3, 140/1, 787/16 
00079/002A  STAT JOB                                 OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00079/003A  STAT JOB                 STATSW          SA  G          W170:STAT.PROG(1000)                                            
            5.0T1   218  STAT_JOB.STATSW.SA.003             1 LINE     72    5 PAGE UM   HELFFRICH           JULY 03, 1981  12:35:38
            5.0T1   218  W170:STAT.PROG       
0          THE STATSW JOB PROGRAM (WHICH IS ALSO A MTS-CALLABLE ROUTINE) PARSES AN INPUT
           LINE FROM OPER (OR SCARDS, IF MTS CALLED) AND CALLS THE STATSSUB SUBROUTINE IN
           THE STAT JOB ASSEMBLY (079/1) TO DO THE DIRTY WORK RELATING TO DATA COLLECTION
           RECORDING SWITCHING.  SEE THE COMMENTS IN THE SOURCE LISTING.
1                                                                                               MON AUG 05/96   18:37:45   Page   43
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 79/5 
00079/004A  STAT JOB                 STATSW JOB      OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00079/005   STAT JOB                 MTS STATSW      OC  G          MTS:STATSW                                                      
            5.0T1   219  STAT_JOB.MTS_STATSW.OC.005         1 LINE     24    1 PAGE UM   HELFFRICH           JULY 03, 1981  12:35:40
            5.0T1   219  MTS.:STATSW          
0          CONTAINS RIP AND LCS CARDS TO FORCE REFERENCE TO THE MTS ENTRY POINT TO
           STATSW (079/3) TO ENABLE THE STATSW JOB TO BE RUN AS AN MTS PROGRAM.
00079/006   STAT JOB                 MEMO 393        WF             S1143 D4.1T1 VLO FSNAME=STAT_JOB.WRITEUP.WF.007(1)            36
            5.0T1   220  STAT_JOB.MEMO_393.WF.006           1 LINE     97    2 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:09
            5.0T1   220                       
0          THIS IS COMPUTING CENTER MEMO 393 -- "DATA-COLLECTION FACILITY".
           REQUIRES HAND-INSERTED CHARACTERS.
0          Referenced by comments of: 140/2, 140/7 
00080/001A  INIT JOB                                 SA  G          MTA:INITJOB(1,999)                                              
            5.0T1   221  INIT_JOB..SA.001                   1 LINE     70    1 PAGE UM   MTA                 JULY 03, 1981  12:35:44
            5.0T1   221  MTA.:INITJOB         
0          AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST).
           IF &OPERJOB (IN COPY:GLOBALS) IS SET, THE INIT JOB WILL START THE OPERATOR JOB
           AND WAIT UP TO 20 SECONDS FOR IT TO START. THEN IT STARTS THE DISK MANAGER (769). 
           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 (097/1).  INSTALLATIONS NOT USING THE OPERATOR JOB WILL WANT TO 
           CHANGE THE VALUE OF &OPERJOB AND REASSEMBLE THE INIT JOB TO REMOVE THE 20 SECOND 
           DELAY.  COPIES COPY:GLOBALS (1026/3).
00080/002   INIT JOB                                 OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00082/001   DMOD                                     SA           # (OBSOLETE)                                                      
            D4T1    224  DMOD..SA.001                       1 LINE     80    7 PAGE UM                       JULY 27, 1977  21:56:50
00083/001  *EBCDBCD                                  SA  G          S1430 4.3T1 VLO FSNAME=EBCDBCD..SA.001(1)                     63
            5.0T1   222  EBCDBCD..SA.001                    1 LINE     80    3 PAGE UM   WSG                 JAN. 11, 1980  17:33:39
            5.0T1   222                       
0          PROGRAM TO TRANSLATE ARBITRARY LENGTH 029 KEYPUNCH RECORDS TO 026.
           SOURCE IN LINES 1,999.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00083/002  *EBCDBCD                                  OC  G          *EBCDBCD                                                        
            5.0T1   223  EBCDBCD..OC.002                    1 LINE     80    1 PAGE UM   WSG                 JULY 03, 1981  12:36:03
            5.0T1   223  *EBCDBCD             
00084/001   AUDIO RESP UNIT - 7772   ARURTN          SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.SA.001(1)    228
            5.0T1   224  AUDIO_RESP_UNIT_-_7772.AR.SA.001   1 LINE     80   56 PAGE UM   WSG                 JULY 28, 1976  00:35:37
            5.0T1   224                       
0          DEVICE SUPPORT ROUTINES FOR THE IBM 7772 AUDIO RESPONSE UNIT.  NO LONGER IN USE AT UM.
           REFERENCES *ARUDEF (084/4) AND *SPEAK (084/3).
           USES BAS AND BASR INSTRUCTIONS LIKE CRAZY.  ASSEMBLE WITH PAR=IS=67.
0          Referenced by comments of: 84/3, 84/4 
00084/002   AUDIO RESP UNIT - 7772   *ARURTN         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.OC.002(1)    229
            5.0T1   225  AUDIO_RESP_UNIT_-_7772.*A.OC.002   1 LINE     80    4 PAGE UM   WSG                 JULY 28, 1976  00:35:45
            5.0T1   225                       
0          OBJECT SUITABLE FOR LOADING INTO SHARED VM.
00084/003   AUDIO RESP UNIT - 7772   *SPEAK          D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*S.D.003(1)     230
            5.0T1   226  AUDIO_RESP_UNIT_-_7772.*S.D.003    1 LINE    255   60 PAGE UM   WSG                 JULY 30, 1973  23:42.25
            5.0T1   226                       
0          VOCABULARY FILE FOR *ARURTN (084/1).
0          Referenced by comments of: 84/1 
00084/004   AUDIO RESP UNIT - 7772   *ARUDEF         D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.004(1)     231
            5.0T1   227  AUDIO_RESP_UNIT_-_7772.*A.D.004    1 LINE     10    1 PAGE UM   WSG                 JULY 30, 1973  23:42.34
            5.0T1   227                       
0          PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1)
0          Referenced by comments of: 84/1 
00084/005   AUDIO RESP UNIT - 7772   DCVD SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.005(1)    232
            5.0T1   228  AUDIO_RESP_UNIT_-_7772.DC.SA.005   1 LINE     80    5 PAGE UM   WSG                 FEB. 13, 1976  17:36:01
            5.0T1   228                       
0          SUBROUTINE TO CONVERT DIGITALLY CODED VOICE FROM THE FORMAT EXPECTED BY THE 7772 TO A MORE REASONABLE FORMAT.
0          Referenced by comments of: 84/12, 84/15, 84/17 
00084/006   AUDIO RESP UNIT - 7772   DCVD SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.006(1)    233
            5.0T1   229  AUDIO_RESP_UNIT_-_7772.DC.OC.006   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:06
            5.0T1   229                       
0          PUT THIS IN *LIBRARY.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00084/007   AUDIO RESP UNIT - 7772   DCVC SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.007(1)    234
            5.0T1   230  AUDIO_RESP_UNIT_-_7772.DC.SA.007   1 LINE     80    4 PAGE UM   WSG                 FEB. 13, 1976  17:36:17
            5.0T1   230                       
0          SUBROUTINE TO CONVERT DIGITALLY CODED VOICE TO THE FORMAT EXPECTED BY THE 7772.
0          Referenced by comments of: 84/12, 84/15, 84/17 
00084/008   AUDIO RESP UNIT - 7772   DCVC SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.008(1)    235
            5.0T1   231  AUDIO_RESP_UNIT_-_7772.DC.OC.008   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:26
            5.0T1   231                       
0          PUT THIS IN *LIBRARY.
00084/009   AUDIO RESP UNIT - 7772   DCVG SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.009(1)    236
            5.0T1   232  AUDIO_RESP_UNIT_-_7772.DC.SA.009   1 LINE     80    3 PAGE UM   WSG                 FEB. 13, 1976  17:36:52
            5.0T1   232                       
0          SUBROUTINE TO RETRIEVE THE DIGITALLY CODED VOICE USED BY THE 7772.
0          Referenced by comments of: 84/12, 84/15, 84/17 
00084/010   AUDIO RESP UNIT - 7772   DCVG SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.010(1)    237
            5.0T1   233  AUDIO_RESP_UNIT_-_7772.DC.OC.010   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:55
            5.0T1   233                       
0          PUT THIS IN *LIBRARY.
00084/011   AUDIO RESP UNIT - 7772   *ARUVOC         D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.011(1)     238
            5.0T1   234  AUDIO_RESP_UNIT_-_7772.*A.D.011    1 LINE    102   11 PAGE UM   WSG                 JULY 30, 1973  23:42.36
            5.0T1   234                       
0          LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING.
00084/012   AUDIO RESP UNIT - 7772   CREVOC          SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.012(1)    239
            5.0T1   235  AUDIO_RESP_UNIT_-_7772.CR.SA.012   1 LINE     80   19 PAGE UM   WSG                 FEB. 13, 1976  17:38:37
            5.0T1   235                       
0          PROGRAM TO CREATE AN ARU VOCABULARY FILE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9)
           AS WELL AS THE MSG SUBR (084/13).
0          Referenced by comments of: 84/13, 84/14 
00084/013   AUDIO RESP UNIT - 7772   CREVOC MSG SUB  SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.013(1)    240
            5.0T1   236  AUDIO_RESP_UNIT_-_7772.CR.SA.013   1 LINE     80    5 PAGE UM   WSG                 FEB. 25, 1976  12:52:33
            5.0T1   236                       
0          MSG SUBR CALLED BY CREVOC (084/12). 
0          Referenced by comments of: 84/12, 84/14 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00084/014   AUDIO RESP UNIT - 7772   *CREVOC         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.OC.014(1)    241
            5.0T1   237  AUDIO_RESP_UNIT_-_7772.*C.OC.014   1 LINE     80    3 PAGE UM   WSG                 FEB. 25, 1976  12:51:48
            5.0T1   237                       
0          OBJECT FOR CREVOC (084/12) AND THE MSG SUBR (084/13).
           ALSO CONTAINS ERROR MESSAGES STARTING AT LINE 800.
           LINE NUMBERS ARE IMPORTANT IN THIS FILE.
00084/015   AUDIO RESP UNIT - 7772   VLIST           SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.SA.015(1)    242
            5.0T1   238  AUDIO_RESP_UNIT_-_7772.VL.SA.015   1 LINE     80    4 PAGE UM   WSG                 FEB. 13, 1976  17:39:10
            5.0T1   238                       
0          PROGRAM TO EITHER SPEAK OR PRINT AN AUDIO RESPONSE UNIT VOCABULARY FILE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
00084/016   AUDIO RESP UNIT - 7772   *VLIST          OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.OC.016(1)    243
            5.0T1   239  AUDIO_RESP_UNIT_-_7772.*V.OC.016   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:39:14
            5.0T1   239                       
00084/017   AUDIO RESP UNIT - 7772   DCVDEC          SF  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.SF.017(1)    244
            5.0T1   240  AUDIO_RESP_UNIT_-_7772.DC.SF.017   1 LINE     67    1 PAGE UM   WSG                 FEB. 13, 1976  17:39:56
            5.0T1   240                       
0          PROGRAM TO FORM AND LIST THE INFO WHICH WOULD BE TRANSMITTED TO THE ARU FOR A TEXT LINE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
00084/018   AUDIO RESP UNIT - 7772   *DCVDEC         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.OC.018(1)    245
            5.0T1   241  AUDIO_RESP_UNIT_-_7772.*D.OC.018   1 LINE    454    1 PAGE UM   WSG                 FEB. 13, 1976  17:40:05
            5.0T1   241                       
00084/019   AUDIO RESP UNIT - 7772   *FSK            D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*F.D.019(1)     246
            5.0T1   242  AUDIO_RESP_UNIT_-_7772.*F.D.019    1 LINE     31    1 PAGE UM   WSG                 JULY 30, 1973  23:43.01
            5.0T1   242                       
0          AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO 11-BIT (FRAME SIZE) ASCII CODE.
00084/020   AUDIO RESP UNIT - 7772   *IM             D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*I.D.020(1)     247
            5.0T1   243  AUDIO_RESP_UNIT_-_7772.*I.D.020    1 LINE     87    1 PAGE UM   WSG                 JULY 30, 1973  23:43.03
            5.0T1   243                       
0          AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO INTERNATIONAL MORSE CODE.
00084/021   AUDIO RESP UNIT - 7772   *NOTES          D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*N.D.021(1)     248
            5.0T1   244  AUDIO_RESP_UNIT_-_7772.*N.D.021    1 LINE     91    2 PAGE UM   WSG                 JULY 30, 1973  23:43.05
            5.0T1   244                       
0          AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES.
00086/001  *2501RTN                                  SA  G          S0563 D4T1 VLO FSNAME=2501RTN..SA.001(1)                     249
            5.0T1   245  2501RTN..SA.001                    1 LINE     80   16 PAGE UM   DWB                 JULY 27, 1977  21:58:36
            5.0T1   245                       
0          MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2501 CARD READER.  CALLS BINEBCD (243).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 243/1 
00086/002  *2501RTN                                  OC  G          *2501RTN                                                        
            5.0T1   246  2501RTN..OC.002                    1 LINE     80    2 PAGE UM   DWB                 JULY 03, 1981  12:36:20
            5.0T1   246  *2501RTN             
0          OBJECT FOR 2501 ROUTINES.
00087/001A  LLMPSEQU                                 SA  G          COPY:LLMPSEQU                                                   
            5.0T4   291  LLMPSEQU..SA.001                   1 LINE     80   14 PAGE UM   MTA                 AUG. 09, 1981  22:49:04
            5.0T10  195  COPY:LLMPSEQU        
0          COPY SECTION FOR DEFINITIONS OF JOB TABLE, DEVICE LIST, DEVICE TABLE, ETC. WHICH
           IS COPIED BY MANY PROGRAMS.  ITS NAME COMES STRAIGHT FROM ANCIENT HISTORY (LINCOLN
           LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES).
           THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING
           AT LINE 100.
           NOTE:  PROGRAMS COPYING THIS FILE MUST FIRST COPY COPY:GLOBALS (1026/3).
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONTAINS DISK MANAGER CHANGES AND MUCH ELSE.
           ***********************************************************************************
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 9/1, 9/3, 10/1, 19/1, 21/1, 24/1, 42/1, 44/1, 45/1, 46/1, 79/1,
                 101/1, 104/87, 116/1, 135/1, 198/1, 353/2, 354/1, 354/5, 387/1, 387/2, 387/7, 387/26, 388/1, 400/1, 400/5,
                 400/16, 413/1, 464/1, 482/4, 482/7, 500/50, 507/2, 509/1, 513/1, 531/1, 531/7, 531/14, 539/1, 540/1, 540/3,
                 540/6, 540/8, 540/12, 540/18, 540/27, 545/3, 545/16, 554/1, 554/3, 570/1, 577/1, 577/3, 577/6, 578/1, 615/15,
                 621/2, 629/4, 634/1, 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/11, 682/22, 693/1, 731/3,
                 732/1, 770/1, 777/1, 798/67, 806/1, 818/1, 1012/1, 1021/1, 1021/4, 1079/10, 1081/1, 3024/1, 4000/1 
00090/001  *HEXLIST                                  SA           # (OBSOLETE)                                                      
            D3T1    202  HEXLIST..SA.1                      1 LINE     80    6 PAGE UM                       JULY 30, 1973  23:43.29
00091/001  *DOUBLE                                   SA           # (OBSOLETE)                                                      
            D3T1    204  DOUBLE..SA.1                       1 LINE     80   16 PAGE UM                       JULY 27, 1973  22:03.05
00092/001A  FILE RESTORE             RSTFMT0         SA  G          RSTR:RSTFMT0(1000)                                              
            5.0T1   247  FILE_RESTORE.RSTFMT0.SA.001        1 LINE     71   28 PAGE UM   HELFFRICH           JULY 03, 1981  12:36:21
            5.0T1   247  RSTR:RSTFMT0         
0          MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502).
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 92/2, 92/3, 92/4 
00092/002A  FILE RESTORE             RSTFMT1         SA  G          RSTR:RSTFMT1(1000)                                              
            5.0T1   248  FILE_RESTORE.RSTFMT1.SA.002        1 LINE     71   17 PAGE UM   HELFFRICH           JULY 03, 1981  12:36:28
            5.0T1   248  RSTR:RSTFMT1         
0          SUBROUTINE CALLED BY (092/1).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 92/4 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00092/003A  FILE RESTORE             RSTFMT2         SA  G          RSTR:RSTFMT2(1000)                                              
            5.0T1   249  FILE_RESTORE.RSTFMT2.SA.003        1 LINE     72   23 PAGE UM   HELFFRICH           JULY 03, 1981  12:36:32
            5.0T1   249  RSTR:RSTFMT2         
0          SUBROUTINE CALLED BY (092/1) AND *RESTORE (712).  ASSEMBLE USING *SYSMAC AND 
           COPY:FILE.MACROS (482/45).
            
0          Referenced by comments of: 92/4, 712/1, 712/2, 712/3 
00092/004A  FILE RESTORE                             OC  G          RSTR:RST                                                        
            5.0T1   250  FILE_RESTORE..OC.004               1 LINE   2256   25 PAGE UM   HELFFRICH           JULY 03, 1981  12:36:44
            5.0T1   250  RSTR:RST             
0          OBJECT FROM (092/1), (092/2), AND (092/3).  ALSO CONTAINS OBJECT FOR OLD
           TAPE UNIT CHECK ROUTINES, THE SOURCE FOR WHICH IS NOT DISTRIBUTED SINCE THEY
           ARE OBSOLETE.
00092/005A  FILE RESTORE             *RST            C              *RST                                                            
            5.0T1   251  FILE_RESTORE.*RST.C.005            1 LINE     66    1 PAGE UM   HELFFRICH           JULY 03, 1981  12:36:47
            5.0T1   251  RSTR:*RST            
0          COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST).  INVOKED BY ENTERING "MTS *RST"
           ON OPERATOR'S CONSOLE.
00094/001  *TIME                                     SA  G          S0563 D4T1 VLO FSNAME=TIME..SA.001(1)                        257
            5.0T1   252  TIME..SA.001                       1 LINE     80    2 PAGE UM   TIFFANY             JULY 27, 1977  21:59:07
            5.0T1   252                       
0          PROGRAM TO PRINT TIME AND DATE.
00094/002  *TIME                                     OC  G          *TIME                                                           
            5.0T1   253  TIME..OC.002                       1 SEQ     247    1 PAGE UM   TIFFANY             JULY 03, 1981  12:36:49
            5.0T1   253  *TIME                
00096/001  *SYMBOLS                                  SA  G          S1319 D4.2T1 VLO FSNAME=SYMBOLS..SA.001(1)                    39
            5.0T1   254  SYMBOLS..SA.001                    1 LINE     80   13 PAGE UM   SHERRY              MAR. 26, 1979  02:20:51
            5.0T1   254                       
0          PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL.
00096/002  *SYMBOLS                                  OC  G          *SYMBOLS                                                        
            5.0T1   255  SYMBOLS..OC.002                    1 LINE   1628    3 PAGE UM   SHERRY              JULY 03, 1981  12:36:53
            5.0T1   255  *SYMBOLS             
00097/001   INIT                     *INIT           C              *INIT                                                           
            5.0T1   256  INIT.*INIT.C.001                   1 LINE     47    1 PAGE UM   ENGLE               JULY 03, 1981  12:36:54
            5.0T1   256  INIT:*INIT           
0          THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL.  NO
           OPERATOR ACTION IS REQUIRED.  THIS COMMAND FILE SIGNS ON UNDER THE ID INIT
           AND SOURCES TO INIT:INITCMD.
            
           *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          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".
0          Referenced by comments of: 80/1 
00097/002A  INIT                     INIT:INITCMD    C              INIT:INITCMD                                                    
            5.0T4   292  INIT.INIT:INITCMD.C.002            1 LINE     77    1 PAGE UM   MTA                 AUG. 09, 1981  22:49:09
            5.0T10  196  INIT:INITCMD         
0          THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RELOAD.
           THE FOLLOWING FUNCTIONS ARE PERFORMED:
            
             1.  INIT:REASON (097/20) IS CREATED AND EMPTIED.
             2.  THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF
                 IN *STATISTICS (050/5) TO VERIFY, AT LEAST PARTIALLY, THAT THEY ARE CORRECT.
             3.  THE PROGRAM INITLOG (097/10) IS RUN TO OBTAIN THE REASON FOR RELOADING FROM THE
                 OPERATOR AND WRITE IT AT THE END OF THE FILE INIT:LOG (097/19) AND INTO INIT:REASON.
             4.  FMT2305 IS RUN TO FORMAT THE 2305 FIXED HEAD FILE(S).  IT READS A LIST
                 OF FHF NAMES FROM THIS FILE.  AS DISTRIBUTED, THE LIST CONSISTS OF FF00, FF08,
                 FF10 AND FF18.
             5.  THE PDP IS STARTED.
             6.  INIT:REASON IS COPIED TO THE END OF INIT:RELOADLOG (097/21).
             7.  RAMROD IS RUN TO WRITE THE COMMENTS FOR THE CURRENT SYSTEM TO INIT:REASON(2000),
                 WHICH IS THEN COPIED TO OPER.
             8.  THE POST-IPL LOADER, MTS *S2L (559/1), IS STARTED.
             9.  MTS *CLN (531/5) IS STARTED TO BEGIN THE CMDSTAT DATA COLLECTION.
             10. MTS *FSM (067/29) IS STARTED TO CLEAN UP THE ONLINE FILE SAVE DIRECTORIES.
             11. MTS *STI (050/2) IS STARTED TO CHECK FOR A SYSTEM CRASH DURING THE LAST STATISTICS SAVE.
             12. THE SYSTEM STATUS MASTER JOB, JOBS MAS, IS STARTED.
             13. THE CLEAN PROGRAM (097/6) IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN
                 THE SYSTEM LAST WENT DOWN.
             14. THE INIT PROGRAM (097/3) IS RUN.  IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES)
                 OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE 5 LISTS (IN THE FILES INIT1,
                 INIT2, ETC.) OF THE USER IDS WHICH WERE SIGNED-ON WHEN THE SYSTEM LAST WENT DOWN.
                 WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS AVAILABLE" ON
                 THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS.  WHEN FINISHED, THE TOTAL
                 NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE.  NO BATCH JOBS SHOULD BE ALLOWED
                 TO RUN (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE
                 IT IS POSSIBLE THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH
                 ARE STILL BEING FIXED.  IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING
                 FILE IS AVAILABLE" MESSAGE PRINTS AND AFTER THE "POST-IPL SYSTEM LOADED OK"
                 MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE ABLE TO SIGNON UNTIL THEIR
                 USER IDS HAVE BEEN FIXED.  THESE USERS WILL GET A MESSAGE WHICH INDICATES THAT
                 THEIR IDS ARE TEMPORARILY UNAVAILABLE.
0          Referenced by comments of: 50/2, 97/12, 531/5, 531/6, 559/1 
00097/003A  INIT                     INIT:INIT       OE  G          INIT:INIT                                                       
            5.0T1   257  INIT.INIT:INIT.OE.003              1 LINE   1298    4 PAGE UM   ENGLE               JULY 03, 1981  12:36:54
            5.0T1   257  INIT:INIT            
0          PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN. THIS
           FILE MUST BE GIVEN THE PROGRAM KEY INIT.  THIS PROGRAM REFERENCES INIT1, INIT2,
           ETC. TO GET THE USER IDS TO BE FIXED.  THESE LISTS ARE BUILT BY THE PROGRAM
1                                                                                               MON AUG 05/96   18:37:45   Page   50
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          AT INIT(1000).
0          Referenced by comments of: 97/2, 104/84 
00097/004   INIT                     INITCHK         SA  G          S0563 D4T1 VLO FSNAME=INIT.INIT:INITCHK.SA.004(1)            266
            5.0T1   258  INIT.INITCHK.SA.004                1 LINE     80    4 PAGE UM   ENGLE               DEC. 08, 1975  10:08:45
            5.0T1   258                       
0          PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "REASONABLE" TIME AND DATE.
           COPIES GRDEF (104/72).
0          Referenced by comments of: 104/80 
00097/005A  INIT                     INIT:INITCHK    OC  G          INIT:INITCHK                                                    
            5.0T1   259  INIT.INIT:INITCHK.OC.005           1 LINE   1224    2 PAGE UM   ENGLE               AUG. 05, 1981  02:03:34
            5.0T1   259  INIT:INITCHK         
0          Referenced by comments of: 104/80 
00097/006A  INIT                     CLEAN           SA  G          FILE:SFDESTRY                                                   
            5.0T1   260  INIT.CLEAN.SA.006                  1 LINE     70    2 PAGE UM   HELFFRICH           JULY 03, 1981  12:36:57
            5.0T1   260  FILE:SFDESTRY        
0          PROGRAM TO DESTROY SCRATCH FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 97/2 
00097/007A  INIT                     CLEAN           OC  G          INIT:CLEAN                                                      
            5.0T1   261  INIT.CLEAN.OC.007                  1 LINE     80    1 PAGE UM   HELFFRICH           JULY 03, 1981  12:36:57
            5.0T1   261  INIT:CLEAN           
00097/008   INIT                     DINIT           SA  O          S0563 D4T1 VLO FSNAME=INIT.INIT:DINIT.SA.008(1)              270
            5.0T1   262  INIT.DINIT.SA.008                  1 LINE     80    7 PAGE UM   DWB                 AUG. 01, 1973  00:54.09
            5.0T1   262                       
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.
00097/009   INIT                     DINIT           OC             INIT:DINIT                                                      
            5.0T1   263  INIT.DINIT.OC.009                  1 LINE     80    4 PAGE UM   DWB                 JULY 03, 1981  12:36:59
            5.0T1   263  INIT:DINIT           
00097/010   INIT                     INITLOG         SA  G          MTA:INITLOG(1,999)                                              
            5.0T1   264  INIT.INITLOG.SA.010                1 LINE     72    1 PAGE UM   MTA                 JULY 03, 1981  12:36:59
            5.0T1   264                       
0          PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD.
           COPIES *CNFGINFODSECT (654).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 97/2 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00097/011   INIT                     INITLOG         OC  G          INIT:INITLOG                                                    
            5.0T1   265  INIT.INITLOG.OC.011                1 LINE    525    1 PAGE UM   MTA                 JULY 03, 1981  12:37:01
            5.0T1   265  INIT:INITLOG         
0          NOTE:  THIS OBJECT FILE CONTAINS AN NCA CARD FOR CNFIGTBL, SINCE THERE IS
                  NO CNFIGTBL ON A 370.
00097/012   INIT                     FMT2305         SA  G          MTA:FMT2305.S                                                   
            5.0T1   266  INIT.FMT2305.SA.012                1 LINE     68    4 PAGE UBC  MTA                 JULY 03, 1981  12:37:01
            5.0T1   266  MTA.:FMT2305.S       
0          MTS PROGRAM TO INITIALIZE (I.E. FORMAT) A 2305 OR ITS UNDERSTUDY.
           THIS PROGRAM IS RUN FROM INIT:INITCMD (097/2) AT STARTUP TO FORMAT A 2305
           BEFORE STARTING THE PDP.
00097/013   INIT                     FMT2305         OC  G          INIT:FMT2305                                                    
            5.0T1   267  INIT.FMT2305.OC.013                1 SEQ      80    2 PAGE UBC  MTA                 JULY 03, 1981  12:37:02
            5.0T1   267  INIT:FMT2305         
00097/014   INIT                     INIT:INIT1      D            # INIT:INIT1                                                      
                                                                                    UM   ENGLE                                      
                         INIT:INIT1@E         
0          LIST OF USER IDS IN *ACCOUNTING1 WHICH NEED TO BE FIXED AFTER IPL.
00097/015   INIT                     INIT:INIT2      D            # INIT:INIT2                                                      
                                                                                    UM   ENGLE                                      
                         INIT:INIT2@E         
0          LIST OF USER IDS IN *ACCOUNTING2 WHICH NEED TO BE FIXED AFTER IPL.
00097/016   INIT                     INIT:INIT3      D            # INIT:INIT3                                                      
                                                                                    UM   ENGLE                                      
                         INIT:INIT3@E         
0          LIST OF USER IDS IN *ACCOUNTING3 WHICH NEED TO BE FIXED AFTER IPL.
00097/017   INIT                     INIT:INIT4      D            # INIT:INIT4                                                      
                                                                                    UM   ENGLE                                      
                         INIT:INIT4@E         
0          LIST OF USER IDS IN *ACCOUNTING4 WHICH NEED TO BE FIXED AFTER IPL.
00097/018   INIT                     INIT:INIT5      D            # INIT:INIT5                                                      
                                                                                    UM   ENGLE                                      
                         INIT:INIT5@E         
0          LIST OF USER IDS IN *ACCOUNTING5 WHICH NEED TO BE FIXED AFTER IPL.
00097/019   INIT                     INIT:LOG        D            # INIT:LOG                                                        
                                                                                    UM   MTA                                        
                         INIT:LOG@E           
0          LOG OF SYSTEM RELOADS.  CONTAINS THE TIME AND DATE OF EACH RELOAD, THE NAME
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          OF THE SYSTEM IPLED FROM, THE REASON FOR THE RELOAD (AS ENTERED BY THE OPERATOR),
           THE LIST OF SCRATCH FILES DESTROYED, AND THE LIST OF USER IDS FIXED.
0          Referenced by comments of: 97/2 
00097/020   INIT                     INIT:REASON     D            # INIT:REASON                                                     
                                                                                    UM   MTA                                        
                         INIT:REASON@E        
0          FILE TO CONTAIN REASON FOR RELOADING AND CURRENT SYSTEM NAME AND COMMENTS
           AFTER EACH RELOAD.
0          Referenced by comments of: 97/2 
00097/021   INIT                     INIT:RELOADLOG  D            # INIT:RELOADLOG                                                  
                                                                                    UM   MTA                                        
                         INIT:RELOADLOG@E     
0          LOG OF SYSTEM RELOADS.  SAME AS INIT:LOG EXCEPT DOES NOT CONTAIN THE LISTS
           OF SCRATCH FILES OR USER IDS.
0          Referenced by comments of: 97/2 
00098/001  *SQUASH                                   SA           # (OBSOLETE)                                                      
            D2T1    278                                                             UM                                              
0          Obsoleted by *LINKEDIT (297) and *OBJUTIL (721).
00099/001  *IHC                                      M            # (OBSOLETE)                                                      
            D3T1    225  IHC..M.                            1 LINE     68    1 PAGE UM                       JULY 30, 1973  23:46.44
00100/001  *FILEDUMP                                 SA  G          S0563 D4T1 VLO FSNAME=FILEDUMP..SA.001(1)                    276
            5.0T1   268  FILEDUMP..SA.001                   1 LINE     80    8 PAGE UM   PIRKOLA             JULY 27, 1977  22:03:25
            5.0T1   268                       
0          USE *TAPEDUMP INSTEAD.
00100/002  *FILEDUMP                                 OC  G          *FILEDUMP                                                       
            5.0T1   269  FILEDUMP..OC.002                   1 LINE     80    3 PAGE UM   PIRKOLA             JULY 03, 1981  12:37:04
            5.0T1   269  *FILEDUMP            
00101/001A  MOUNT COMMAND                            SA  G          TAPE:MOUNT.S                                                    
            5.0T1   270  MOUNT_COMMAND..SA.001              1 LINE    133   63 PAGE UM   SHERRY              JULY 03, 1981  12:37:05
            5.0T1   270                       
0          THIS IS NEW MOUNT CLS/SUBROUTINE WHICH IS BASED ON THE UBC REWRITE OF THE UM
           VERSION, BY KEN BOWLER. THE COMMENTS ON THE SOURCE FILE DOCUMENT THE
           DIFFERENCES BETWEEN THE TWO VERSIONS. THIS VERSION OF MOUNT REQUIRES SEVERAL
           CHANGES TO MTS, VIZ.,
            
              1) THE INTERNAL TABLES ADDRESSES RSVNMTBA AND FYTPTBLA IN MTS MUST
                 BE MADE AVAILABLE TO MOUNT THROUGH LCSYMBOL
              2) MSGCC IS REQUIRED
              3) THE CLS TRANSFER VECTOR ROUTINE PKEY IS REQUIRED TO PUSH, SET, AND
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0                POP PROGRAM KEYS
              4) A PORT IN THE GATE FOR THE MOUNT SUBROUTINE IS REQUIRED
              5) HALTIO ENTRY IS NEEDED FOR THE OPERATOR DSR.
            
           THIS VERSION OF THE MOUNT SUBROUTINE SUPPORTS THE EXTENDED CALLING SEQUENCE
           DESCRIBED IN (101/4).
            
           SUPPORTS MAGNETIC TAPES, 2671 PAPER TAPE READER, PAPER TAPE PUNCHES ON THE UM
           DATA CONCENTRATOR, 7772 AUDIO RESPONSE UNIT, FLOPPY DISKS, AND THE MERIT THE
           MAXIMUM NUMBER OF DEVICES OF EACH TYPE (IF ZERO, THE CODE AND TABLES TO
           SUPPORT THAT TYPE ARE DELETED). ANOTHER ASSEMBLY PARAMETER SPECIFIES THE RACK
           NUMBER FOR SCRATCH TAPES (DISTRIBUTED AS 'POOL'). OTHER PARAMETERS SPECIFY
           THE DEFAULT DENSITY FOR SCRATCH TAPES (DISTRIBUTED AS 8EN FOR 7-TRACK AND
           1600 FOR 9-TRACK). ANOTHER PARAMETER SPECIFIES WHETHER THE TAPE ID IS
           REQUIRED (AS DISTRIBUTED, IT IS). ANOTHER PARAMETER SPECIFIES THE SUPERVISOR
           LOCK NUMBER, IF ANY, TO BE USED FOR INTERLOCKING THE OPERATOR COMMUNICATION,
           I.E. TO PREVENT MULTIPLE MOUNT REQUESTS FROM BEING PRESENTED TO THE OPERATOR
           SIMULTANEOUSLY. THIS IS 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 OR IF NTM
           IS ON (BATCH JOBS ARE RERUN). INTERFACES WITH THE TAPESHARE CHECK SUBROUTINE
           (1067/5).
            
           COPIES COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:JOBSTA
           (413/9), COPY:LLMPSEQU (087), *GDINFODSECT (594), *CNFGINFODSECT (654),
           *SENSEDSECT (3025), AND COPY:MNTQINFDSECT (806/3). ASSEMBLE USING
           COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND *SYSMAC WITH
           PAR=PEXIT=*PEXIT.
            
           ***********************************************************************************
           D5.0 VERSION:
            
           SUPPORTS TAPE QUEUEING USING THE TAPE QUEUE ROUTINES (806). IT ALSO PROVIDES
           A WAY TO ISSUE A SPECIAL MESSAGE VIA MSGRACK# (101/3) WHENEVER CERTAIN RACK
           NUMBERS ARE MOUNTED.
           ***********************************************************************************
0          Referenced by comments of: 45/2, 101/2, 101/4, 271/1, 447/1, 712/2, 806/1, 806/3, 1067/5 
00101/002A  MOUNT COMMAND                            OC  G          *CLSMOUNT                                                       
            5.0T1   271  MOUNT_COMMAND..OC.002              1 LINE  24847   26 PAGE UM   SHERRY              JULY 03, 1981  12:37:18
            5.0T1   271  *CLSMOUNT            
0          OBJECT FOR THE MOUNT COMMAND CLS (101/1), THE MNTSTAT SUBROUTINE (447/1),
           THE MSGRACK# MESSAGE (101/3) AND THE TAPESHARE CHECK SUBROUTINE (1067/5).
           THIS FILE IS LOADED INTO SHARED VM AFTER IPL BY PISTLE.
            
           ***************************************************************************
           D5.0 VERSION:
            
           NOTE:  *CLSMOUNT NO LONGER NEEDS TO BE LOADED WITH THE IPLCS OPTION, SINCE
           THE "MOUNT" SUBROUTINE IS NOW DEFINED AS AN ENTRY POINT IN USUB (638).
1                                                                                               MON AUG 05/96   18:37:45   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          ***************************************************************************
0          Referenced by comments of: 270/2, 447/2, 1067/6 
00101/003C  MOUNT COMMAND            MSG RACK #      SA  G          TAPE:MSGRACK#.S                                                 
            5.0T1   272  MOUNT_COMMAND.MSG_RACK_#.SA.003    1 LINE     66    1 PAGE UM   SHERRY              JULY 03, 1981  12:37:22
            5.0T1   272                       
0          This subcomponent is just a MSG routine (1023) message that is printed by the
           MOUNT CLS whenever certain rack numbers are mounted.  The TAPESHARE routine
           CHECK (1067/5) gives a special return code to mount whenever certain rack
           numbers are referenced (they have a special field in their directory entries).
           This mechanism can be disabled by removing the object for MSGRACK# from *CLSMOUNT.
0          Referenced by comments of: 101/1, 101/2 
00101/004A  MOUNT COMMAND            SUBRTN DOC      WX             TAPE:MOUNT.W                                                    
            5.0T1   273  MOUNT_COMMAND.SUBRTN_DOC.WX.004    1 LINE     82    5 PAGE UM   SHERRY              JULY 03, 1981  12:37:23
            5.0T1   273                       
0          TEXTFORM SOURCE FOR VOLUME 3 TYPE WRITEUP DESCRIBING THE MOUNT SUBROUTINE,
           PART OF (101/1).
0          Referenced by comments of: 101/1 
00101/005C  MOUNT COMMAND            *MOUNTSUB       OC  G          *MOUNTSUB                                                       
            5.0T1   274  MOUNT_COMMAND.*MOUNTSUB.OC.005     1 LINE     25    1 PAGE UM   MTS       OGDEN     JULY 03, 1981  12:37:24
            5.0T1   274  *MOUNTSUB            
0          This file contains an ENT card for the symbol "MOUNTSUB" followed by a 
           "$CONTINUE WITH *CLSMOUNT" card.  It is used as the file name in the
           LOADT table in MTS, and is loaded from if the MOUNTSUB subroutine is not
           defined in LCSYMBOL.
00101/006   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/001  *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          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCFORMAT.SA.001(1)        49
            5.0T1   275  ACCOUNTING.ACCFORMAT.SA.001        1 SEQ      80    2 PAGE UM   ENGLE               JAN. 09, 1979  15:58:55
            5.0T1   275                       
0          COMPONENT (104) CONTAINS THE SOURCE AND OBJECT FOR THE MTS ACCOUNTING
           ROUTINES. THE FOLLOWING PROGRAMS CAN BE CONSTRUCTED BY COMBINING THE OBJECT
           FILES AS INDICATED BELOW:
                     *ACCRESTORE              ASTR+AFLU+AIO+GTFL+ACAT+FLRT+CSIG+SYSDEFS
                     *STATUS                  STAT
                     ACC:ACCDISPLAY           ADSP+ACCLIB
                     ACC:ACCERRORSCAN         ACNS+ACCLIB
                     ACC:ACCFILCHARGE         ADSP+AFLC+ACCLIB
                     ACC:ACCHEXDISP           ADSP+AXPR+ACCLIB
                     ACC:ACCLISTING           ALST+ACCLIB
1                                                                                               MON AUG 05/96   18:37:45   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                    ACC:ACCMAINT             AMAT+ACCLIB
                     ACC:ACCPASWD             APSW+GTFL+AIO+FLNM
                     ACC:ACCRETRIEVE          ARTV+ATRD
                     ACC:ACCSAVE              ASAV+ACCLIB
                     ACC:DIRDISPLAY           DDSP+ACCLIB
                     ACC:DIRLIST              DLST+ACCLIB
                     ACC:GETFILECHG           FLUP+AIO+FLRT+TTRP+GTFL+SYSDEFS
                     ACC:PROJECTDISP          APDS+ACCLIB
                     ACC:PROJECTIDS           APID+ACCLIB
                     ACC:PROJECTLIST          APLS+ACCLIB
                     ACC:PROJECTMAINT         APMT+ACCLIB
                     ACC:STAPROJECT           AMXM(&STAPRJ=1)+AUPR+ACCLIB
                     ACCUPDAT                 ARDW+PRINT+AIO+TTRP+GTFL+OLDPRINT+
                                              ACCPRINT+ACCUPDAT
                     INIT:INIT(1,999)         AINT
                     INIT:INIT(1000)          AINS+GTFL+FLNM+AFLU+ACAT+AIO+FLRT+CSIG+
                                              SYSDEFS
                     ACC:ACCLIB               ACAT+AERR+AFIN+AFKF+AFLA+AFIO+AFLU+AIO+
                                              ALPR+ALST+APLS+APPR+APRT+CSIG+DIR+DPRT+
                                              FIOC+FLNM+FLRT+FLSH+GPID+GTFL+IOLC+LCNT+
                                              LOG+RBTA+STRD+TMCL+TTRP+SYSDEFS
                                              (SEE ACCOUNTING CLS FOR FIOC (631/13) AND
                                              REBATE FOR RBTA (632/4) AND STRD (632/6)).
            
           ACCFORMAT (104/1) IS THE COPY SECTION THAT DESCRIBES THE ACCOUNTING FILE
           RECORD FORMAT. IT IS COPIED UNDER THE NAME "ACCFORMAT" BY COMPONENTS OF THE
           ACCOUNTING SYSTEM.
            
           *** NOTE: ACCOUNTING PROGRAMS HAVE A GBLB SYMBOL (&DC) TO ELIMINATE THE
                     ASSEMBLY OF INSTRUCTIONS FOR THE DATA CELL. IF THE VALUE OF &DC IS
                     0, THE INSTRUCTIONS WILL NOT BE ASSEMBLED. IF THE VALUE IS 1, THE
                     INSTRUCTIONS WILL BE ASSEMBLED. ALL DISTRIBUTION PROGRAMS HAVE THE
                     VALUE SET TO 0, AND THE RESULTS OF SETTING &DC TO 1 ARE NOT
                     GUARANTEED.
0          Referenced by comments of: 104/1, 104/4, 104/6, 104/12, 104/15, 104/21, 104/27, 104/32, 104/51, 104/54, 104/66,
                 104/68, 104/81, 104/84, 104/90, 104/92, 104/96, 104/102, 502/1, 586/1, 631/8, 631/11, 632/3 
00104/002   ACCOUNTING               ACCPROJFMT      SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPROJFMT.SA.002(1)       50
            5.0T1   276  ACCOUNTING.ACCPROJFMT.SA.002       1 LINE     80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:25:29
            5.0T1   276                       
0          COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT.
0          Referenced by comments of: 104/21, 104/36, 104/43, 104/54, 104/141, 500/36, 500/40, 631/8 
00104/003   ACCOUNTING               ACCPROJFMT      UC  G        # S0027 DISTRB FSNAME=ACCPROJFMT                                  
            D4.2T1   51  ACCOUNTING.ACCPROJFMT.UC.003       1 LINE     67    1 PAGE UM   ENGLE               JAN. 25, 1979  16:25:32
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/004   ACCOUNTING               ACCERROR        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCERROR.SA.004(1)         52
            5.0T1   277  ACCOUNTING.ACCERROR.SA.004         1 LINE     80    8 PAGE UM   ENGLE               JAN. 10, 1979  16:30:18
            5.0T1   277                       
0          CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN (104/57).
           COPIES ACCFORMAT (104/1).
00104/005   ACCOUNTING               ACCERROR        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCERROR.OC.005(1)         53
            5.0T1   278  ACCOUNTING.ACCERROR.OC.005         1 LINE     80    2 PAGE UM   ENGLE               JAN. 11, 1979  11:04:50
            5.0T1   278                       
00104/006   ACCOUNTING               ACCPRINT        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPRINT.SA.006(1)         54
            5.0T1   279  ACCOUNTING.ACCPRINT.SA.006         1 LINE     80   10 PAGE UM   ENGLE               JAN. 09, 1979  15:31:15
            5.0T1   279                       
0          FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS.
           COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/133 
00104/007   ACCOUNTING               ACCPRINT        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPRINT.OC.007(1)         55
            5.0T1   280  ACCOUNTING.ACCPRINT.OC.007         1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  15:31:21
            5.0T1   280                       
00104/008   ACCOUNTING               ACCLIST         SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCLIST.SA.007(1)           286
            5.0T1   281  ACCOUNTING.ACCLIST.SA.008          1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  16:22.45
            5.0T1   281                       
0          READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD.
00104/009   ACCOUNTING               ACCLIST         OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCLIST.OC.008(1)           287
            5.0T1   282  ACCOUNTING.ACCLIST.OC.009          1 LINE     80    1 DISK UM   ENGLE               OCT. 03, 1972  15:12.04
            5.0T1   282                       
00104/010   ACCOUNTING               ACCLIST         OC  G        # ACC:ACCLISTING                                                  
                                                                                    UM   ENGLE                                      
                         ACC:ACCLISTING       
00104/011   ACCOUNTING               ACCLIST         OC  G        # MTS:TST.ACCLIST                                                 
                                                                                    UM   ENGLE                                      
                         ACC:ACCLIST          
0          PROGRAM TO PRINT EVERY FIELD OF EACH ACCOUNTING RECORD.  ACCLIST+ACCPRINT.
00104/012A  ACCOUNTING               ACCINITL        SA  G  AINT    S0027 DISTRB FSNAME=ACCINITL                                    
            5.0T1   283  ACCOUNTING.ACCINITL.SA.012         1 LINE     80    6 PAGE UM   ENGLE               AUG. 13, 1980  10:36:53
            5.0T1   283                       
0          RESTORES LOCK BITS AND FILE SPACE FIELDS FOR ALL RECORDS WITH CURRENT NUMBER OF SIGNONS > 0.
           COPIES ACCFORMAT (104/1).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/013A  ACCOUNTING               ACCINITL        UC  G          S0027 DISTRB FSNAME=ACCINITLUPD                                 
            5.0T1   284  ACCOUNTING.ACCINITL.UC.013         1 LINE     72    3 PAGE UM   ENGLE               AUG. 13, 1980  10:37:01
            5.0T1   284                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/014A  ACCOUNTING               ACCINITL        OC  G          S0027 DISTRB FSNAME=AINT                                        
            5.0T1   285  ACCOUNTING.ACCINITL.OC.014         1 LINE     80    2 PAGE UM   ENGLE               AUG. 13, 1980  10:37:08
            5.0T1   285                       
00104/015A  ACCOUNTING               STATUS          SA  G  STAT    S0027 DISTRB FSNAME=STATUS                                      
            5.0T1   286  ACCOUNTING.STATUS.SA.015           1 LINE     80   26 PAGE UM   ENGLE               MAY  01, 1981  12:57:31
            5.0T1   286                       
0          MAIN PROGRAM FOR *STATUS.  COPIES ACCFORMAT (104/1).  THIS PROGRAM HAS
           A GLOBAL SYMBOL &CLS.  IF &CLS IS 0, THE OBJECT FOR *STATUS IS PRODUCED.
           IF &CLS IS 1, A SUBROUTINE TO BE CALLED BY THE ACCOUNTING CLS IS PRODUCED.
           THIS LATTER ASSEMBLY USES COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 129/1, 129/2 
00104/016A  ACCOUNTING               STATUS          UC  G          S0027 DISTRB FSNAME=STATUSUPD                                   
            5.0T1   287  ACCOUNTING.STATUS.UC.016           1 LINE     71    1 PAGE UM   ENGLE               FEB. 12, 1981  16:45:55
            5.0T1   287                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/017A  ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STAT                                        
            5.0T1   288  ACCOUNTING.STATUS.OC.017           1 LINE     80    6 PAGE UM   ENGLE               FEB. 12, 1981  16:46:00
            5.0T1   288                       
0          OBJECT FOR *STATUS.
00104/018A  ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STATCLS                                     
            5.0T1   289  ACCOUNTING.STATUS.OC.018           1 LINE     80    6 PAGE UM   ENGLE               FEB. 12, 1981  16:46:04
            5.0T1   289                       
0          OBJECT FOR ACCOUNTING CLS SUBROUTINE.
0          Referenced by comments of: 631/15, 631/23 
00104/019   ACCOUNTING               FILERATE        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.FILERATE.SA.013(1)          292
            5.0T1   290  ACCOUNTING.FILERATE.SA.019         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:10:41
            5.0T1   290                       
0          SUBROUTINE TO RETURN A CURRENT RATE NUMBER AND THE FILE RATES FOR A SIGNON ID.
           COPIES GRDEF (104/72) AND COPY:RATEVEC (651/3).
0          Referenced by comments of: 484/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/020   ACCOUNTING               FILERATE        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.FILERATE.OC.014(1)          293
            5.0T1   291  ACCOUNTING.FILERATE.OC.020         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:11:04
            5.0T1   291                       
00104/021A  ACCOUNTING               ACCMAINT        SA  G  AMAT    S0027 DISTRB FSNAME=ACCMAINT                                    
            5.0T1   292  ACCOUNTING.ACCMAINT.SA.021         1 LINE     80   58 PAGE UM   ENGLE               SEP. 18, 1980  13:01:16
            5.0T1   292                       
0          MAIN PROGRAM FOR ACCMAINT.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
           THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG)
           INTO WHICH A LOG IS WRITTEN.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           REQUIRES MSG MACROS IN *SYSMAC.
           ***********************************************************************************
0          Referenced by comments of: 104/133 
00104/022A  ACCOUNTING               ACCMAINT        UC  G          S0027 DISTRB FSNAME=ACCMAINTUPD                                 
            5.0T1   293  ACCOUNTING.ACCMAINT.UC.022         1 LINE     72    1 PAGE UM   ENGLE               SEP. 18, 1980  13:01:23
            5.0T1   293                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/023A  ACCOUNTING               ACCMAINT        OC  G          S0027 DISTRB FSNAME=AMAT                                        
            5.0T1   294  ACCOUNTING.ACCMAINT.OC.023         1 LINE     80   10 PAGE UM   ENGLE               SEP. 18, 1980  13:01:25
            5.0T1   294                       
00104/024A  ACCOUNTING               ACCMAINT        OE  G        # DIST:ACC.ACCMAINT                                               
                                                                                    UM   ENGLE                                      
                         ACC:ACCMAINT         
00104/025   ACCOUNTING               ACCIO           SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCIO.SA.017(1)             296
            5.0T1   295  ACCOUNTING.ACCIO.SA.025            1 LINE     80   15 PAGE UM   ENGLE               JUNE 04, 1976  14:22:22
            5.0T1   295                       
0          GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S).
0          Referenced by comments of: 104/42, 104/131, 484/1 
00104/026   ACCOUNTING               ACCIO           OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCIO.OC.018(1)             297
            5.0T1   296  ACCOUNTING.ACCIO.OC.026            1 LINE     80    3 PAGE UM   ENGLE               JUNE 04, 1976  14:22:35
            5.0T1   296                       
0          THERE ARE REP CARDS IN THIS FILE TO CHANGE FILE NAMES TO PUBLIC FILES.
0          Referenced by comments of: 631/15, 631/23 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/027   ACCOUNTING               ACCGFUPD        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCGFUPD.SA.019(1)          298
            5.0T1   297  ACCOUNTING.ACCGFUPD.SA.027         1 LINE     72    1 PAGE UM   ENGLE               MAR. 21, 1975  01:02:18
            5.0T1   297                       
0          PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS. RUN WITH ACCRDWRT
           (104/34). COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/34 
00104/028   ACCOUNTING               ACCGFUPD        OC  G          W013:ACCGFUPD(1,98)                                          299
            5.0T1   298  ACCOUNTING.ACCGFUPD.OC.028         1 LINE     80    1 PAGE UM   ENGLE               JULY 03, 1981  12:41:21
            5.0T1   298                       
0          Referenced by comments of: 682/36 
00104/029   ACCOUNTING               ACCDSPLA        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCDSPLA.SA.021(1)          300
            5.0T1   299  ACCOUNTING.ACCDSPLA.SA.029         1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  12:08.13
            5.0T1   299                       
0          PROGRAM TO READ A SPECIFIC RECORD OF THE ACCOUNTING FILE AND CALL ACCPRINT FOR IT.
00104/030   ACCOUNTING               ACCDSPLA        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCDSPLA.OC.022(1)          301
            5.0T1   300  ACCOUNTING.ACCDSPLA.OC.030         1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  12:08.26
            5.0T1   300                       
00104/031   ACCOUNTING               ACCDSPLA        OC  G        # ACC:ACCDISPLAY                                                  
                                                                                    UM   ENGLE                                      
                         ACC:ACCDISPLAY       
00104/032   ACCOUNTING               ACCSTRUP        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCSTRUP.SA.023(1)          302
            5.0T1   301  ACCOUNTING.ACCSTRUP.SA.032         1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  13:43.30
            5.0T1   301                       
0          MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 484/1 
00104/033   ACCOUNTING               ACCSTRUP        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCSTRUP.OC.024(1)          303
            5.0T1   302  ACCOUNTING.ACCSTRUP.OC.033         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:19:52
            5.0T1   302                       
00104/034   ACCOUNTING               ACCRDWRT        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCRDWRT.SA.025(1)          304
            5.0T1   303  ACCOUNTING.ACCRDWRT.SA.034         1 LINE     80    6 PAGE UM   ENGLE               OCT. 05, 1972  12:20.15
            5.0T1   303                       
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/27) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE
           COMMENTS AT THE FRONT OF THIS SUBCOMPONENT GIVE MORE INFORMATION.
0          Referenced by comments of: 104/27, 104/68 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/035   ACCOUNTING               ACCRDWRT        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCRDWRT.OC.026(1)          305
            5.0T1   304  ACCOUNTING.ACCRDWRT.OC.035         1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  12:20.35
            5.0T1   304                       
0          Referenced by comments of: 682/36 
00104/036   ACCOUNTING               PCONVERT        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.PCONVERT.SA.027(1)          306
            5.0T1   305  ACCOUNTING.PCONVERT.SA.036         1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:33.24
            5.0T1   305                       
0          PRJPRINT SUBROUTINE TO CONVERT A DISTRIBUTION 3.0 PROJECT FILE TO DISTRIBUTIONS 3.1, 3.2, 4.0,
           4.1, 4.2, 4.3, OR 5.0 (WHICH ARE ALL THE SAME) BY ADDING NETWORK FIELDS AND FLAG.
           TO USE, RUN PRJLIST (104/45) + PCONVERT + ACCLIB (104/42).  NEW PROJECT FILE IS PRODUCED ON SPUNCH.
           COPIES ACCPROJFMT (104/2).
00104/037   ACCOUNTING               PCONVERT        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.PCONVERT.OC.028(1)          307
            5.0T1   306  ACCOUNTING.PCONVERT.OC.037         1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:33.42
            5.0T1   306                       
00104/038A  ACCOUNTING               ACCPRJMT        SA  G  APMT    S0027 DISTRB FSNAME=ACCPRJMT                                    
            5.0T1   307  ACCOUNTING.ACCPRJMT.SA.038         1 LINE     80   29 PAGE UM   ENGLE               FEB. 04, 1981  13:35:59
            5.0T1   307                       
0          MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT.  RUN WITH PROT=OFF.
           THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO
           WHICH A LOG IS WRITTEN.
0          Referenced by comments of: 104/133 
00104/039A  ACCOUNTING               ACCPRJMT        UC  G          S0027 DISTRB FSNAME=ACCPRJMTUPD                                 
            5.0T1   308  ACCOUNTING.ACCPRJMT.UC.039         1 LINE     48    1 PAGE UM   ENGLE               FEB. 04, 1981  13:36:13
            5.0T1   308                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/040A  ACCOUNTING               ACCPRJMT        OC  G          S0027 DISTRB FSNAME=APMT                                        
            5.0T1   309  ACCOUNTING.ACCPRJMT.OC.040         1 LINE     80    5 PAGE UM   ENGLE               FEB. 04, 1981  13:36:17
            5.0T1   309                       
00104/041A  ACCOUNTING               ACCPRJMT        OE  G        # DIST:ACC.PRJMAINT                                               
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTMAINT     
00104/042A  ACCOUNTING               ACCLIB          OL  G          S0027 DISTRB FSNAME=ACCLIB                                      
            5.0T1   310  ACCOUNTING.ACCLIB.OL.042           1 LINE    792   24 PAGE UM   ENGLE               FEB. 12, 1981  16:17:43
            5.0T1   310  ACC:ACCLIB           
0          THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/25) TO PUBLIC FILES.
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  R PKEY=FILEINFO.
0          Referenced by comments of: 104/36, 632/3, 632/6, 682/36 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/043   ACCOUNTING               ACPRJPRT        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACPRJPRT.SA.040(1)         63
            5.0T1   311  ACCOUNTING.ACPRJPRT.SA.043         1 LINE     80    9 PAGE UM   ENGLE               JAN. 25, 1979  16:30:30
            5.0T1   311                       
0          SUBROUTINE TO PRINT A RECORD FROM *PROJECT.
           COPIES ACCPROJFMT (104/2).
0          Referenced by comments of: 104/133 
00104/044   ACCOUNTING               ACPRJPRT        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACPRJPRT.OC.041(1)         64
            5.0T1   312  ACCOUNTING.ACPRJPRT.OC.044         1 LINE     80    4 PAGE UM   ENGLE               JAN. 25, 1979  16:30:35
            5.0T1   312                       
00104/045   ACCOUNTING               PRJLIST         SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.PRJLIST.SA.034(1)           313
            5.0T1   313  ACCOUNTING.PRJLIST.SA.045          1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  15:13.34
            5.0T1   313                       
0          PROGRAM TO READ EACH RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT.
0          Referenced by comments of: 104/36, 500/40 
00104/046   ACCOUNTING               PRJLIST         OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.PRJLIST.OC.035(1)           314
            5.0T1   314  ACCOUNTING.PRJLIST.OC.046          1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:13.55
            5.0T1   314                       
00104/047   ACCOUNTING               PRJLIST         OC  G        # ACC:PROJECTLIST                                                 
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTLIST      
00104/048   ACCOUNTING               PRJDSPLA        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.PRJDSPLA.SA.036(1)          315
            5.0T1   315  ACCOUNTING.PRJDSPLA.SA.048         1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  15:17.03
            5.0T1   315                       
0          PROGRAM TO READ A SPECIFIC RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT.
00104/049   ACCOUNTING               PRJDSPLA        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.PRJDSPLA.OC.037(1)          316
            5.0T1   316  ACCOUNTING.PRJDSPLA.OC.049         1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:17.49
            5.0T1   316                       
00104/050   ACCOUNTING               PRJDSPLA        OC  G        # ACC:PROJECTDISP                                                 
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTDISP      
00104/051   ACCOUNTING               ACCPASWD        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPASWD.SA.048(1)         65
            5.0T1   317  ACCOUNTING.ACCPASWD.SA.051         1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  15:29:57
            5.0T1   317                       
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/159, 104/160, 104/167 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/052   ACCOUNTING               ACCPASWD        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPASWD.OC.049(1)         66
            5.0T1   318  ACCOUNTING.ACCPASWD.OC.052         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1979  15:30:04
            5.0T1   318                       
00104/053   ACCOUNTING               ACCPASWD        OE  G        # WPSW:PROGRAM1                                                   
                                                                                    UM   ENGLE                                      
                         ACC:ACCPASWD         
00104/054A  ACCOUNTING               ACONSIST        SA  G  ACNS    S0027 DISTRB FSNAME=ACONSIST                                    
            5.0T1   319  ACCOUNTING.ACONSIST.SA.054         1 LINE     80   13 PAGE UM   ENGLE               AUG. 13, 1980  10:39:10
            5.0T1   319                       
0          MAIN PROGRAM FOR ACCERRORSCAN.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
0          Referenced by comments of: 104/133 
00104/055A  ACCOUNTING               ACONSIST        UC  G          S0027 DISTRB FSNAME=ACONSISTUPD                                 
            5.0T1   320  ACCOUNTING.ACONSIST.UC.055         1 LINE     54    1 PAGE UM   ENGLE               AUG. 13, 1980  10:39:17
            5.0T1   320                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/056A  ACCOUNTING               ACONSIST        OC  G          S0027 DISTRB FSNAME=ACNS                                        
            5.0T1   321  ACCOUNTING.ACONSIST.OC.056         1 LINE     80    4 PAGE UM   ENGLE               AUG. 13, 1980  10:39:22
            5.0T1   321                       
00104/057A  ACCOUNTING               ACONSIST        OC  G        # ACC:ACCERRORSCAN                                                
                                                                                    UM   ENGLE                                      
                         ACC:ACCERRORSCAN     
0          Referenced by comments of: 104/4 
00104/058   ACCOUNTING               FILENAME        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.FILENAME.SA.054(1)         69
            5.0T1   322  ACCOUNTING.FILENAME.SA.058         1 LINE     80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:39:44
            5.0T1   322                       
0          CONTAINS THE NAMES OF THE FILES *ACCOUNTING, *PWSTAT, *PROJECT, *PROJDIRECTORY, AND *STATISTICS.
0          Referenced by comments of: 104/149 
00104/059   ACCOUNTING               FILENAME        UC  G        # S0027 DISTRB FSNAME=FILENAMEUPD                                 
            D4.2T1   70  ACCOUNTING.FILENAME.UC.055         1 LINE     39    1 PAGE UM   ENGLE               JAN. 25, 1979  16:39:54
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/060   ACCOUNTING               FILENAME        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.FILENAME.OC.056(1)         71
            5.0T1   323  ACCOUNTING.FILENAME.OC.060         1 SEQ      80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:40:00
            5.0T1   323                       
0          Referenced by comments of: 631/15, 631/23 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/061   ACCOUNTING               DIRECTRY        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.DIRECTRY.SA.057(1)         72
            5.0T1   324  ACCOUNTING.DIRECTRY.SA.061         1 LINE     80   17 PAGE UM   ENGLE               JAN. 10, 1979  15:27:14
            5.0T1   324                       
0          I/O SUBROUTINES FOR THE DIRECTORY FILE.  COPIES *CNFGINFODSECT (654).
00104/062   ACCOUNTING               DIRECTRY        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.DIRECTRY.OC.058(1)         73
            5.0T1   325  ACCOUNTING.DIRECTRY.OC.062         1 LINE     80    4 PAGE UM   ENGLE               JAN. 10, 1979  15:27:27
            5.0T1   325                       
0          Referenced by comments of: 631/15, 631/23 
00104/063   ACCOUNTING               DIRLIST         SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRLIST.SA.046(1)           325
            5.0T1   326  ACCOUNTING.DIRLIST.SA.063          1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  11:36.26
            5.0T1   326                       
0          MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY.
00104/064   ACCOUNTING               DIRLIST         OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRLIST.OC.047(1)           326
            5.0T1   327  ACCOUNTING.DIRLIST.OC.064          1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  11:36.55
            5.0T1   327                       
00104/065   ACCOUNTING               DIRLIST         OC  G        # ACC:DIRLIST                                                     
                                                                                    UM   ENGLE                                      
                         ACC:DIRLIST          
00104/066   ACCOUNTING               FILUPDAT        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.FILUPDAT.SA.062(1)         74
            5.0T1   328  ACCOUNTING.FILUPDAT.SA.066         1 LINE     80    7 PAGE UM   ENGLE               MAR. 07, 1979  12:02:47
            5.0T1   328                       
0          PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE
           CURRENT MONTH (IF NO PAR= IS GIVEN) OR EXPIRATION TIME.  IF PAR=MM/DD/YY IS
           GIVEN, UPDATE IS TO 24:00:00 OF MM/DD/YY OR EXPIRATION TIME.  IF PAR=
           MM/DD/YY HH:MM:SS IS GIVEN, UPDATE IS TO SPECIFIED TIME OR EXPIRATION TIME.
           PROGRAM UPDATES THE ACCOUNTING RECORD AND WRITES A STATISTICS RECORD FOR BILLING.
           RUN WITH PROT=OFF.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/159, 104/160 
00104/067   ACCOUNTING               FILUPDAT        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.FILUPDAT.OC.063(1)         75
            5.0T1   329  ACCOUNTING.FILUPDAT.OC.067         1 LINE     80    3 PAGE UM   ENGLE               MAR. 07, 1979  12:02:58
            5.0T1   329                       
00104/068   ACCOUNTING               ACONVERT        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACONVERT.SA.050(1)          329
            5.0T1   330  ACCOUNTING.ACONVERT.SA.068         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:41:10
            5.0T1   330                       
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/34).  COPIES ACCFORMAT (104/1).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/069   ACCOUNTING               ACONVERT        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACONVERT.OC.051(1)          330
            5.0T1   331  ACCOUNTING.ACONVERT.OC.069         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:41:16
            5.0T1   331                       
00104/070A  ACCOUNTING               STAPROJECT      OC  G          S0027 DISTRB FSNAME=STAPROJECT                                  
            5.0T1   332  ACCOUNTING.STAPROJECT.OC.070       1 LINE     80    7 PAGE UM   ENGLE               FEB. 12, 1981  16:44:10
            5.0T1   332                       
0          PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT.
           PRODUCED BY ASSEMBLING NEW ACCMXMAT (631/17) WITH &STAPRJ SET TO ONE.  RUN WITH PROT=OFF.
0          Referenced by comments of: 104/71, 631/8 
00104/071A  ACCOUNTING               STAPROJECT      OE  G        # ACC:STAPROJECT                                                  
                                                                                    UM   ENGLE                                      
                         ACC:STAPROJECT       
0          LINKEDITED VERSION OF (104/70) + AUPR (631/22) + "$CONTINUE WITH ACC:ACCLIB".
00104/072   ACCOUNTING               GRDEF           SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.GRDEF.SA.057(1)             336
            5.0T1   333  ACCOUNTING.GRDEF.SA.072            1 SEQ      80    1 PAGE UM   ENGLE               JAN. 10, 1973  17:16.39
            5.0T1   333                       
0          COPY SECTION.
0          Referenced by comments of: 97/4, 104/19, 104/81, 104/84, 104/87, 104/96, 104/100, 104/107, 104/120, 104/141, 360/1,
                 500/46, 586/1, 631/1, 631/5, 631/13, 632/3, 708/1 
00104/073   ACCOUNTING               WKDAY           SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.WKDAY.SA.058(1)             337
            5.0T1   334  ACCOUNTING.WKDAY.SA.073            1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1973  12:14.08
            5.0T1   334                       
0          SUBROUTINE TO PRODUCE THE DAY OF THE WEEK FOR A GIVEN DATE.  USED IN INITCHK (104/80).
00104/074   ACCOUNTING               WKDAY           OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.WKDAY.OC.059(1)             338
            5.0T1   335  ACCOUNTING.WKDAY.OC.074            1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  12:14.29
            5.0T1   335                       
00104/075   ACCOUNTING               DIRDSPLA        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRDSPLA.SA.060(1)          339
            5.0T1   336  ACCOUNTING.DIRDSPLA.SA.075         1 LINE     80    3 PAGE UM   ENGLE               JAN. 12, 1973  13:57.36
            5.0T1   336                       
0          PROGRAM TO READ A SPECIFIC RECORD FROM *PRJDIRECTORY AND CALL DIRPRINT FOR IT.
00104/076   ACCOUNTING               DIRDSPLA        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRDSPLA.OC.061(1)          340
            5.0T1   337  ACCOUNTING.DIRDSPLA.OC.076         1 LINE     80    1 DISK UM   ENGLE               JAN. 12, 1973  13:57.46
            5.0T1   337                       
00104/077   ACCOUNTING               DIRDSPLA        OC  G        # ACC:DIRDISPLAY                                                  
                                                                                    UM   ENGLE                                      
                         ACC:DIRDISPLAY       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/078   ACCOUNTING               DIRPRINT        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRPRINT.SA.062(1)          341
            5.0T1   338  ACCOUNTING.DIRPRINT.SA.078         1 LINE     80    6 PAGE UM   ENGLE               DEC. 06, 1974  12:00.11
            5.0T1   338                       
0          SUBROUTINE TO FORMAT A DIRECTORY ENTRY FOR PRINTING.  USED IN ACC:ACCLIB.
00104/079   ACCOUNTING               DIRPRINT        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRPRINT.OC.063(1)          342
            5.0T1   339  ACCOUNTING.DIRPRINT.OC.079         1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  12:00.34
            5.0T1   339                       
00104/080   ACCOUNTING               INITCHK                      # (PART OF INIT)                                                  
                                                                                    UM   ENGLE                                      
0          DISTRIBUTED AS (97/4) AND (97/5)
0          Referenced by comments of: 104/73 
00104/081A  ACCOUNTING               ACCFLUPD        SA  G  AFLU    S0027 DISTRB FSNAME=ACCFLUPD                                    
            5.0T1   340  ACCOUNTING.ACCFLUPD.SA.081         1 LINE     80    7 PAGE UM   ENGLE               SEP. 09, 1980  16:28:50
            5.0T1   340                       
0          SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD.
           COPIES ACCFORMAT (104/1) AND GRDEF (104/72).
0          Referenced by comments of: 484/1 
00104/082A  ACCOUNTING               ACCFLUPD        UC  G          S0027 DISTRB FSNAME=ACCFLUPDUPD                                 
            5.0T1   341  ACCOUNTING.ACCFLUPD.UC.082         1 LINE     68    1 PAGE UM   ENGLE               SEP. 09, 1980  16:28:56
            5.0T1   341                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/083A  ACCOUNTING               ACCFLUPD        OC  G          S0027 DISTRB FSNAME=AFLU                                        
            5.0T1   342  ACCOUNTING.ACCFLUPD.OC.083         1 LINE     80    2 PAGE UM   ENGLE               SEP. 09, 1980  16:29:00
            5.0T1   342                       
00104/084A  ACCOUNTING               ACCINSCN        SA  G  AINS    S0027 DISTRB FSNAME=ACCINSCN                                    
            5.0T1   343  ACCOUNTING.ACCINSCN.SA.084         1 LINE     80    8 PAGE UM   ENGLE               AUG. 13, 1980  11:02:54
            5.0T1   343                       
0          USED IN INIT:INIT (097/3).  COPIES ACCFORMAT (104/1) AND GRDEF (104/72).
00104/085A  ACCOUNTING               ACCINSCN        UC  G          S0027 DISTRB FSNAME=ACCINSCNUPD                                 
            5.0T1   344  ACCOUNTING.ACCINSCN.UC.085         1 LINE     69    3 PAGE UM   ENGLE               AUG. 13, 1980  11:03:22
            5.0T1   344                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/086A  ACCOUNTING               ACCINSCN        OC  G          S0027 DISTRB FSNAME=AINS                                        
            5.0T1   345  ACCOUNTING.ACCINSCN.OC.086         1 LINE     80    3 PAGE UM   ENGLE               AUG. 13, 1980  11:03:29
            5.0T1   345                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/087   ACCOUNTING               CURSIG          SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.CURSIG.SA.069(1)            347
            5.0T1   346  ACCOUNTING.CURSIG.SA.087           1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1973  17:55.52
            5.0T1   346                       
0          SUBROUTINE TO DETERMINE NUMBER OF CURRENT SIGNONS.  COPIES GRDEF (104/72) 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.
0          Referenced by comments of: 484/1 
00104/088   ACCOUNTING               CURSIG          OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.CURSIG.OC.070(1)            348
            5.0T1   347  ACCOUNTING.CURSIG.OC.088           1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:56.03
            5.0T1   347                       
00104/089   ACCOUNTING               DEDFLFIX                     # (PART OF DEADFILES)                                             
                                                                                    UM   ENGLE                                      
0          Distributed as (502/10) and (502/11)
00104/090   ACCOUNTING               ACCLSTPR        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCLSTPR.SA.084(1)         77
            5.0T1   348  ACCOUNTING.ACCLSTPR.SA.090         1 LINE     80    9 PAGE UM   ENGLE               JAN. 09, 1979  15:32:09
            5.0T1   348                       
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/133 
00104/091   ACCOUNTING               ACCLSTPR        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCLSTPR.OC.085(1)         78
            5.0T1   349  ACCOUNTING.ACCLSTPR.OC.091         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1979  15:32:23
            5.0T1   349                       
00104/092A  ACCOUNTING               ACCFLCHG        SA  G  AFLC    S0027 DISTRB FSNAME=ACCFLCHG                                    
            5.0T1   350  ACCOUNTING.ACCFLCHG.SA.092         1 LINE     80    4 PAGE UM   ENGLE               SEP. 02, 1980  16:59:14
            5.0T1   350                       
0          SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD.
           CALLED BY ACCDSPLA.  COPIES ACCFORMAT (104/1).
00104/093A  ACCOUNTING               ACCFLCHG        UC  G          S0027 DISTRB FSNAME=ACCFLCHGUPD                                 
            5.0T1   351  ACCOUNTING.ACCFLCHG.UC.093         1 LINE     72    1 PAGE UM   ENGLE               SEP. 02, 1980  16:59:17
            5.0T1   351                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/094A  ACCOUNTING               ACCFLCHG        OC  G          S0027 DISTRB FSNAME=AFLC                                        
            5.0T1   352  ACCOUNTING.ACCFLCHG.OC.094         1 LINE     80    1 PAGE UM   ENGLE               AUG. 13, 1980  11:05:30
            5.0T1   352                       
00104/095A  ACCOUNTING               ACCFLCHG        OE  G        # ACC:ACCFILCHARGE                                                
                                                                                    UM   ENGLE                                      
                         ACC:ACCFILCHARGE     
0          ACCDSPLA+ACCFLCHG
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/096   ACCOUNTING               APSWDISP        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.APSWDISP.SA.076(1)          353
            5.0T1   353  ACCOUNTING.APSWDISP.SA.096         1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1973  18:07.38
            5.0T1   353                       
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/72).
00104/097   ACCOUNTING               APSWDISP        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.APSWDISP.OC.077(1)          354
            5.0T1   354  ACCOUNTING.APSWDISP.OC.097         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  12:20:25
            5.0T1   354                       
00104/098   ACCOUNTING               ACCHEXPR        SA  O          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCHEXPR.SA.078(1)          355
            5.0T1   355  ACCOUNTING.ACCHEXPR.SA.098         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1973  10:55.07
            5.0T1   355                       
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN HEX.  CALLED BY ACCDSPLA.
00104/099   ACCOUNTING               ACCHEXPR        OC  O          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCHEXPR.OC.079(1)          356
            5.0T1   356  ACCOUNTING.ACCHEXPR.OC.099         1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  10:55.43
            5.0T1   356                       
00104/100   ACCOUNTING               TIMETRP         SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.TIMETRP.SA.080(1)           357
            5.0T1   357  ACCOUNTING.TIMETRP.SA.100          1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:04.25
            5.0T1   357                       
0          SUBROUTINE TO SET UP REAL TIME INTERRUPTS AND SET A FLAG AT THE INTERRUPT.  COPIES GRDEF (104/72).
00104/101   ACCOUNTING               TIMETRP         OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.TIMETRP.OC.081(1)           358
            5.0T1   358  ACCOUNTING.TIMETRP.OC.101          1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:04.41
            5.0T1   358                       
0          Referenced by comments of: 631/15, 631/23 
00104/102   ACCOUNTING               ACCSGATR        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCSGATR.SA.082(1)          359
            5.0T1   359  ACCOUNTING.ACCSGATR.SA.102         1 LINE     80    5 PAGE UM   ENGLE               JAN. 08, 1974  14:50.39
            5.0T1   359                       
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/159, 104/160, 104/167 
00104/103   ACCOUNTING               ACCSGATR        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCSGATR.OC.083(1)          360
            5.0T1   360  ACCOUNTING.ACCSGATR.OC.103         1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  14:53.32
            5.0T1   360                       
00104/104A  ACCOUNTING               ACCSAVE         SA  G  ASAV    S0027 DISTRB FSNAME=ACCSAVE                                     
            5.0T1   361  ACCOUNTING.ACCSAVE.SA.104          1 LINE     80    8 PAGE UM   ENGLE               FEB. 16, 1981  14:20:43
            5.0T1   361                       
0          MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE.
0          Referenced by comments of: 104/135 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/105A  ACCOUNTING               ACCSAVE         OC  G          S0027 DISTRB FSNAME=ASAV                                        
            5.0T1   362  ACCOUNTING.ACCSAVE.OC.105          1 LINE     80    3 PAGE UM   ENGLE               FEB. 16, 1981  14:21:18
            5.0T1   362                       
00104/106   ACCOUNTING               ACCSAVE         OE  G        # ACC:ACCSAVE                                                     
                                                                                    UM   ENGLE                                      
                         ACC:ACCSAVE          
00104/107   ACCOUNTING               ACCTAPRD        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCTAPRD.SA.086(1)          363
            5.0T1   363  ACCOUNTING.ACCTAPRD.SA.107         1 LINE     80    4 PAGE UM   ENGLE               DEC. 05, 1975  12:24:14
            5.0T1   363                       
0          VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES.
           COPIES GRDEF (104/72).
00104/108   ACCOUNTING               ACCTAPRD        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCTAPRD.OC.087(1)          364
            5.0T1   364  ACCOUNTING.ACCTAPRD.OC.108         1 LINE     80    2 PAGE UM   ENGLE               DEC. 05, 1975  12:24:24
            5.0T1   364                       
00104/109A  ACCOUNTING               GETFILE         SA  G  GTFL    S0027 DISTRB FSNAME=GETFILE                                     
            5.0T1   365  ACCOUNTING.GETFILE.SA.109          1 LINE     80    4 PAGE UM   ENGLE               OCT. 07, 1980  16:58:00
            5.0T1   365                       
0          SUBROUTINE TO GET A FDUB, ETC.
00104/110C  ACCOUNTING               GETFILE         UC  G          S0027 DISTRB FSNAME=GETFILEUPD                                  
            5.0T1   366  ACCOUNTING.GETFILE.UC.110          1 LINE     71    1 PAGE UM   ENGLE               OCT. 07, 1980  16:58:03
            5.0T1   366                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/111A  ACCOUNTING               GETFILE         OC  G          S0027 DISTRB FSNAME=GTFL                                        
            5.0T1   367  ACCOUNTING.GETFILE.OC.111          1 LINE     80    2 PAGE UM   ENGLE               OCT. 07, 1980  16:58:05
            5.0T1   367                       
0          Referenced by comments of: 484/1, 631/15, 631/23 
00104/112A  ACCOUNTING               ACATALOG        SA  G  ACAT    FILE:ACATALOG(1000)                                             
            5.0T1   368  ACCOUNTING.ACATALOG.SA.112         1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  12:44:21
            5.0T1   368                       
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/45).
00104/113A  ACCOUNTING               ACATALOG        OC  G          FILE:ACATALOG(1,998)                                            
            5.0T1   369  ACCOUNTING.ACATALOG.OC.113         1 LINE     80    2 PAGE UM   HELFFRICH           JULY 03, 1981  12:44:22
            5.0T1   369  FILE:ACATALOG        
0          Referenced by comments of: 484/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/114   ACCOUNTING               ACATALOG        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACATALOG.SA.092(1)          369
            5.0T1   370  ACCOUNTING.ACATALOG.SA.114         1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  22:18:36
            5.0T1   370                       
0          THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION,
           BUT CALLS THE ACATSUB SUBROUTINE (104/116) 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/116 
00104/115   ACCOUNTING               ACATALOG        OC  G          FILE:ACATALOG.FAST                                              
            5.0T1   371  ACCOUNTING.ACATALOG.OC.115         1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  12:44:23
            5.0T1   371  FILE:ACATALOG.FAST   
0          Referenced by comments of: 682/36 
00104/116A  ACCOUNTING               ACATALOG.FAST   SA  G          FILE:REALACATSUB(1,999)                                         
            5.0T1   372  ACCOUNTING.ACATALOG.FAST.SA.116    1 LINE     71    7 PAGE UM   MTA                 JULY 03, 1981  12:44:24
            5.0T1   372  FILE:REALACATSUB     
0          SUBROUTINE CALLED BY SUPER ACATALOG (104/114).  IT BUILDS A
           TABLE OF THE AMOUNT OF SPACE USED BY EACH USERID WHICH HAS
           FILES.  THIS VERSION IS DIFFERENT FROM THE PROGRAM USED IN DISK
           DISASTER RECOVERY, SEE COMP (682/44) TO VERIFY CATALOG/DSCB
           CONSISTENCY.  CALLS VTOCREAD (067/3).  ASSEMBLE USING 
           COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 104/114, 682/36 
00104/117A  ACCOUNTING               ACATALOG.FAST   OC  G          FILE:REALACATSUB(1000)                                          
            5.0T1   373  ACCOUNTING.ACATALOG.FAST.OC.117    1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  12:44:25
            5.0T1   373                       
00104/118A  ACCOUNTING               WRITEUP         WF             S0027 DISTRB FSNAME=ACCWRITEUP                                  
            5.0T1   374  ACCOUNTING.WRITEUP.WF.118          1 LINE     80    8 PAGE UM   ENGLE               FEB. 13, 1981  17:41:44
            5.0T1   374                       
0          A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS.
00104/119A  ACCOUNTING               WRITEUP         UC             S0027 DISTRB FSNAME=ACCWRITEUPUP                                
            5.0T1   375  ACCOUNTING.WRITEUP.UC.119          1 LINE     66    1 PAGE UM   ENGLE               FEB. 13, 1981  17:42:26
            5.0T1   375                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/120   ACCOUNTING               IOLOKCK         SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.IOLOKCK.SA.097(1)           374
            5.0T1   376  ACCOUNTING.IOLOKCK.SA.120          1 LINE     80    5 PAGE UM   ENGLE               DEC. 05, 1975  12:27:08
            5.0T1   376                       
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.
1                                                                                               MON AUG 05/96   18:37:45   Page   70
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          COPIES GRDEF (104/72).
00104/121   ACCOUNTING               IOLOKCK         OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.IOLOKCK.OC.098(1)           375
            5.0T1   377  ACCOUNTING.IOLOKCK.OC.121          1 LINE     80    2 PAGE UM   ENGLE               DEC. 05, 1975  12:27:18
            5.0T1   377                       
0          Referenced by comments of: 631/15, 631/23 
00104/122   ACCOUNTING               FLINFCL         SG  G          S1143 D4.1T1 VLO FSNAME=ACCOUNTING.FLINFCL.SG.113(1)          52
            5.0T1   378  ACCOUNTING.FLINFCL.SG.122          1 LINE     59    1 PAGE UM   ENGLE               FEB. 27, 1978  13:45:51
            5.0T1   378                       
0          PROGRAM TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE
           BROKEN DOWN BY THE FIRST LETTER OF THE PROJECT NUMBER FOR ACTIVE (UNEXPIRED)
           SIGNON ID'S AND SUMMARIZED FOR ALL DEAD (EXPIRED) ID'S.  IF PAR=DEAD IS GIVEN,
           THE REVERSE IS DONE, I.E., THE USAGE INFORMATION IS BROKEN DOWN BY THE FIRST
           LETTER OF THE PROJECT NUMBER FOR DEAD ID'S AND SUMMARIZED FOR ALL ACTIVE ID'S.
           THE PARAMETER MM/DD/YY (OR DATE=MM/DD/YY) MAY ALSO BE GIVEN TO SPECIFY A
           DATE; FILES BELONGING TO ID'S EXPIRING AT OR BEFORE MIDNIGHT OF THAT DATE ARE
           CONSIDERED DEAD.  IF NO DATE IS SPECIFIED, THEN THE PREVIOUS MIDNIGHT IS
           USED AS THE TIME.  IN ADDITION, IF PAR=STAFF IS GIVEN, ADDITIONAL INFORMATION
           FOR EACH SIGNON ID BELONGING TO A PROJECT BEGINNING WITH THE LETTER W IS PRINTED.
           THIS SECTION LOADS THE MAIN FUNCTION (104/124) FROM ACC:ACCLIB+NEW:GOMLIB.
00104/123A  ACCOUNTING               FLINFCL         OC  G          S0027 DISTRB FSNAME=FICL                                        
            5.0T1   379  ACCOUNTING.FLINFCL.OC.123          1 LINE     80    1 PAGE UM   ENGLE               FEB. 24, 1981  15:43:56
            5.0T1   379  ACC:FILEINFO         
0          THIS FILE HAS THE PROGRAM KEY ACC.:FILEINFO.
            
           ***************************************************************************
           D5.0 VERSION:
            
           Contains a REP line to cause loading only from ACC:ACCLIB instead
           of from ACC:ACCLIB+NEW:GOMLIB.
           ***************************************************************************
00104/124   ACCOUNTING               ACCFLINF        SG  G          S1430 4.3T1 VLO FSNAME=ACCOUNTING.ACCFLINF.SG.118(1)          84
            5.0T1   380  ACCOUNTING.ACCFLINF.SG.124         1 LINE    100    3 PAGE UM   ENGLE               FEB. 20, 1980  10:33:58
            5.0T1   380                       
0          MAIN FUNCTION TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE.
0          Referenced by comments of: 104/122, 104/127, 104/129, 104/131 
00104/125   ACCOUNTING               ACCFLINF        UC  G        # S0027 DISTRB FSNAME=ACCFLINFUPD                                 
            4.3T1    85  ACCOUNTING.ACCFLINF.UC.119         1 LINE     81    1 PAGE UM   ENGLE               FEB. 20, 1980  10:34:06
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/126   ACCOUNTING               ACCFLINF        OC  G          S1430 4.3T1 VLO FSNAME=ACCOUNTING.ACCFLINF.OC.120(1)          86
            5.0T1   381  ACCOUNTING.ACCFLINF.OC.126         1 LINE     80    7 PAGE UM   ENGLE               FEB. 20, 1980  10:34:12
            5.0T1   381                       
00104/127   ACCOUNTING               ACCFLKWF        SG  G          S1143 D4.1T1 VLO FSNAME=ACCOUNTING.ACCFLKWF.SG.117(1)         56
            5.0T1   382  ACCOUNTING.ACCFLKWF.SG.127         1 LINE     70    1 PAGE UM   ENGLE               FEB. 27, 1978  14:01:40
            5.0T1   382                       
0          KWSCAN EXECUTE SUBROUTINE FOR ACCFLINF (104/124).
00104/128   ACCOUNTING               ACCFLKWF        OC  G          S1143 D4.1T1 VLO FSNAME=ACCOUNTING.ACCFLKWF.OC.118(1)         57
            5.0T1   383  ACCOUNTING.ACCFLKWF.OC.128         1 LINE     80    1 PAGE UM   ENGLE               FEB. 27, 1978  14:02:24
            5.0T1   383                       
00104/129   ACCOUNTING               ACCFLATN        SG  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCFLATN.SG.120(1)         85
            5.0T1   384  ACCOUNTING.ACCFLATN.SG.129         1 LINE     55    1 PAGE UM   ENGLE               JAN. 09, 1979  15:35:45
            5.0T1   384                       
0          GOM ATTENTION INTERRUPT EXIT FOR ACCFLINF (104/124).
00104/130   ACCOUNTING               ACCFLATN        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCFLATN.OC.121(1)         86
            5.0T1   385  ACCOUNTING.ACCFLATN.OC.130         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  15:38:12
            5.0T1   385                       
00104/131   ACCOUNTING               ACCFLAIO        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCFLAIO.SA.105(1)          382
            5.0T1   386  ACCOUNTING.ACCFLAIO.SA.131         1 LINE     80    1 PAGE UM   ENGLE               MAR. 02, 1977  11:42:53
            5.0T1   386                       
0          SUBROUTINES ACCSCN AND ACCCLS WHICH ARE INTERFACES BETWEEN ACCFLINF (104/124)
           AND ACCSCAN AND ACCCLOSE (104/25).
00104/132   ACCOUNTING               ACCFLAIO        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCFLAIO.OC.106(1)          383
            5.0T1   387  ACCOUNTING.ACCFLAIO.OC.132         1 LINE     80    1 PAGE UM   ENGLE               MAR. 02, 1977  11:42:57
            5.0T1   387                       
00104/133   ACCOUNTING               LINCOUNT        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.LINCOUNT.SA.124(1)         87
            5.0T1   388  ACCOUNTING.LINCOUNT.SA.133         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:00:46
            5.0T1   388                       
0          DEFINITION OF THE VARIABLE LINCOUNT.  REFERENCED BY ACCPRINT (104/6),
           ACCLSTPR (104/90), ACPRJPRT (104/43), ACCMAINT (104/21), ACCPRJMT
           (104/38), AND ACONSIST (104/54).
00104/134   ACCOUNTING               LINCOUNT        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.LINCOUNT.OC.125(1)         88
            5.0T1   389  ACCOUNTING.LINCOUNT.OC.134         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:01:15
            5.0T1   389                       
00104/135A  ACCOUNTING               ACCRETRV        SG  G          S0027 DISTRB FSNAME=ACCRETRV                                    
            5.0T1   390  ACCOUNTING.ACCRETRV.SG.135         1 LINE    128    6 PAGE UM   ENGLE               MAR. 04, 1981  11:21:21
            5.0T1   390                       
0          PROGRAM TO MOUNT A MONTHLY ACCSAVE TAPE (104/104) OR AN ANNUAL TAPE AND
           DISPLAY OR LIST ACCOUNTING OR PROJECT RECORDS.  ASSUMES THAT THE ANNUAL
           TAPES ARE IN RACK NUMBERS ACCNN WHERE NN STARTS WITH TPBASE AND IS INCREMENTED
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          BY 2.  ASSUMES THAT THE FIRST YEAR IS 19YY WHERE YY IS BASEYR. (TPBASE=29,
           BASEYR=78 IN DISTRIBUTED VERSION.)  ALSO ASSUMES THE EXISTENCE OF PROGRAMS
           IN ACC:ACCDISPLAY, ACC:PROJECTDISP, ACC:ACCLISTING, AND ACC:PROJECTLIST.
0          Referenced by comments of: 104/139 
00104/136C  ACCOUNTING               ACCRETRV        UC  G          S0027 DISTRB FSNAME=ACCRETRVUPD                                 
            5.0T1   391  ACCOUNTING.ACCRETRV.UC.136         1 LINE    128    4 PAGE UM   ENGLE               MAR. 04, 1981  11:21:36
            5.0T1   391                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/137A  ACCOUNTING               ACCRETRV        OC  G          S0027 DISTRB FSNAME=ARTV                                        
            5.0T1   392  ACCOUNTING.ACCRETRV.OC.137         1 LINE     80   12 PAGE UM   ENGLE               MAR. 04, 1981  11:22:13
            5.0T1   392                       
00104/138A  ACCOUNTING               ACCRETRV        OE  G        # ACC:ACCRETRIEVE                                                 
                                                                                    UM   ENGLE                                      
                         ACC.:ACCRETRIEVE     
0          ACCRETRV+ACCTAPRD
00104/139   ACCOUNTING               TIMECALL        SA  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.TIMECALL.SA.129(1)         91
            5.0T1   393  ACCOUNTING.TIMECALL.SA.139         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:05:36
            5.0T1   393                       
0          INTERFACE TO DYNAMICALLY LINK TO THE TIME SUBROUTINE. CALLED BY ACCRETRV
           (104/135).
00104/140   ACCOUNTING               TIMECALL        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.TIMECALL.OC.130(1)         92
            5.0T1   394  ACCOUNTING.TIMECALL.OC.140         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:06:23
            5.0T1   394                       
00104/141A  ACCOUNTING               GTPRJIDS        SA  G  GPID    S0027 DISTRB FSNAME=GTPRJIDS                                    
            5.0T1   395  ACCOUNTING.GTPRJIDS.SA.141         1 LINE     80   14 PAGE UM   ENGLE               FEB. 04, 1981  14:25:28
            5.0T1   395                       
0          SUBROUTINE TO OBTAIN THE SIGNON IDS BELONGING TO A PROJECT.  COPIES GRDEF
           (104/72), ACCPROJFMT (104/2) AND *CNFGINFODSECT (654).
00104/142C  ACCOUNTING               GTPRJIDS        UC  G          S0027 DISTRB FSNAME=GTPRJIDSUPD                                 
            5.0T1   396  ACCOUNTING.GTPRJIDS.UC.142         1 LINE     71    1 PAGE UM   ENGLE               FEB. 04, 1981  14:26:13
            5.0T1   396                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/143A  ACCOUNTING               GTPRJIDS        OC  G          SEG2:GPID                                                       
            5.0T1   397  ACCOUNTING.GTPRJIDS.OC.143         1 LINE   2752    2 PAGE UM   ENGLE               JULY 03, 1981  12:45:09
            5.0T1   397  SEG2:GPID            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/144   ACCOUNTING               ACCPRJID        SG  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPRJID.SG.133(1)         95
            5.0T1   398  ACCOUNTING.ACCPRJID.SG.144         1 LINE    112    1 PAGE UM   ENGLE               JAN. 09, 1979  13:08:32
            5.0T1   398                       
0          PROGRAM TO LIST THE SIGNON ID'S FOR A SPECIFIED PROJECT.
00104/145   ACCOUNTING               ACCPRJID        OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPRJID.OC.134(1)         96
            5.0T1   399  ACCOUNTING.ACCPRJID.OC.145         1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:08:55
            5.0T1   399                       
00104/146   ACCOUNTING               ACCPRJID        OE  G        # ACC:PROJECTIDS                                                  
                                                                                    UM   ENGLE                                      
                         ACC.:PROJECTIDS      
00104/147   ACCOUNTING               IDRANGE         SG  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.IDRANGE.SG.136(1)          97
            5.0T1   400  ACCOUNTING.IDRANGE.SG.147          1 LINE     84    3 PAGE UM   ENGLE               JAN. 09, 1979  14:35:56
            5.0T1   400                       
0          PROGRAM TO PRINT THE LAST ID IN A RANGE GIVEN THE FIRST ID AND NUMBER
           OF ID'S OR THE NUMBER OF ID'S GIVEN THE FIRST AND LAST ID'S WITH OPTION
           TO LIST ALL ID'S IN THE RANGE.  COLLATING SEQUENCE IS A-H, J-N, P-Z, 0-9.
00104/148   ACCOUNTING               IDRANGE         OC  G          S1319 D4.2T1 VLO FSNAME=ACCOUNTING.IDRANGE.OC.137(1)          98
            5.0T1   401  ACCOUNTING.IDRANGE.OC.148          1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  14:36:14
            5.0T1   401                       
00104/149A  ACCOUNTING               ACCKILL         SG  O          S0027 DISTRB FSNAME=ACCKILL                                     
            5.0T1   402  ACCOUNTING.ACCKILL.SG.149          1 LINE    110    3 PAGE UM   ENGLE               AUG. 13, 1980  11:27:11
            5.0T1   402                       
0          PROGRAM TO BE RUN BY THE OPERATORS TO CHANGE A PASSWORD TO AN UNKNOWN VALUE. 
           PROGRAM PROMPTS FOR OPERATOR'S NAME, NAME OF PERSON REQUESTING THE CHANGE,
           THE SIGNON ID, AND THE SIGNON ID A SECOND TIME FOR VERIFICATION.  INFORMATION
           ABOUT THE CHANGE IS WRITTEN IN PASWRDFL. SEE FILENAME (104/58).
00104/150A  ACCOUNTING               ACCKILL         UC  G          S0027 DISTRB FSNAME=ACCKILLUPD                                  
            5.0T1   403  ACCOUNTING.ACCKILL.UC.150          1 LINE     72    1 PAGE UM   ENGLE               AUG. 13, 1980  11:27:23
            5.0T1   403                       
0          UPDATES SOURCE FROM THE PREVIOUS REGULAR DISTRIBUTION TO THE CURRENT
           DISTRIBUTION.
00104/151A  ACCOUNTING               ACCKILL         OC  O          SYS.:ACCKILL                                                    
            5.0T1   404  ACCOUNTING.ACCKILL.OC.151          1 LINE   3488    5 PAGE UM   ENGLE               AUG. 05, 1981  02:05:26
            5.0T1   404  SYS:ACCKILL          
0          Referenced by comments of: 104/152, 104/153 
00104/152A  ACCOUNTING               ACCKILL         C              SYS:CPW                                                         
            5.0T1   405  ACCOUNTING.ACCKILL.C.152           1 LINE     51    1 PAGE UM   MTA                 AUG. 05, 1981  02:05:27
            5.0T1   405  SYS:CPW              
0          File $SOURCEd to by (104/153) to run ACCKILL (104/151).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 104/153 
00104/153A  ACCOUNTING               ACCKILL         C              *CPW                                                            
            5.0T1   406  ACCOUNTING.ACCKILL.C.153           1 LINE     11    1 PAGE UM   MTA                 AUG. 05, 1981  02:05:28
            5.0T1   406  *CPW                 
0          Operator file which $SOURCEs to (104/152) to $RUN (104/151).
0          Referenced by comments of: 104/152 
00104/154A  ACCOUNTING               AIOIF           SA  G  AIOI    S0027 DISTRB FSNAME=AIOIF                                       
            5.0T1   407  ACCOUNTING.AIOIF.SA.152            1 LINE     80    1 PAGE UM   ENGLE               AUG. 15, 1980  11:23:00
            5.0T1   407                       
0          THIS IS AN INTERFACE TO THE ACCOUNTING I/O SUBROUTINES FOR PROGRAMS WRITTEN
           IN LANGUAGES WHICH CANNOT ACCESS GENERAL REGISTERS 0 OR 13.
00104/155A  ACCOUNTING               AIOIF           OC  G          S0027 DISTRB FSNAME=AIOI                                        
            5.0T1   408  ACCOUNTING.AIOIF.OC.153            1 LINE     80    1 PAGE UM   ENGLE               AUG. 15, 1980  11:23:05
            5.0T1   408                       
00104/156   ACCOUNTING               LOG             SG  G          S1430 4.3T1 VLO FSNAME=ACCOUNTING.LOG.SG.144(1)               89
            5.0T1   409  ACCOUNTING.LOG.SG.154              1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  10:41:31
            5.0T1   409                       
0          SUBROUTINE TO WRITE AN AUDIT TRAIL IN A LOG FILE.
0          Referenced by comments of: 631/15, 631/23 
00104/157   ACCOUNTING               LOG             UC  G        # S0027 DISTRB FSNAME=LOGUPD                                      
            4.3T1    90  ACCOUNTING.LOG.UC.145              1 LINE     67    1 PAGE UM   ENGLE               FEB. 20, 1980  10:41:38
00104/158   ACCOUNTING               LOG             OC  G          S1430 4.3T1 VLO FSNAME=ACCOUNTING.LOG.OC.146(1)               91
            5.0T1   410  ACCOUNTING.LOG.OC.156              1 LINE     80    4 PAGE UM   ENGLE               FEB. 20, 1980  10:41:45
            5.0T1   410                       
00104/159   ACCOUNTING               *ACCOUNTING     D            # MTS:$ACCOUNTING                                                 
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING          
0          THIS FILE CONTAINS THE SUFFIXS FOR THE NAME OF THE AUXILIARY ACCOUNTING
           FILE CONTAINING THE ACCOUNTING RECORD FOR EACH USER ID.  THIS FILE MUST
           BE PERMITTED AS FOLLOWS: R/N,R (PKEY=*SYS.ACC,PKEY=*SYS.ACCOUNT,
           PKEY=INIT:INIT,PKEY=(ACCPASWD (104/51)),PKEY=(ACCSGATR (104/102)),
           PKEY=(FIX (502/10)),PKEY=*ACRESTORE,PKEY=(SCANFILES (502/1)),
           PKEY=(ACCKILL(104/149))),WE PKEY=INIT:INITCHK,RW ACC.,RWE 
           PKEY=(FILUPDAT (104/66)) 
            
           THE DISTRIBUTED SYSTEM HAS THE FOLLOWING USERIDS:  ACC., APL., BB00 ... BB99,
           BNCH, B001 ... B500, COPY, DIST, DWB., ETC., FILE, FIX., INIT, MAIL, MTA.,
           MTS., NEW., NPRV, RSTR, SEG2, STRT, SYS., TAPE, TMTS, UNSP, WSG., W009, AND
           W170.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/160   ACCOUNTING               *ACCOUNTING1    D            # MTS:$ACCOUNTING1                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING1         
0          THE AUXILIARY ACCOUNTING FILES (*ACCOUNTING1, *ACCOUNTING2, ETC.) CONTAIN THE
           ACTUAL ACCOUNTING RECORDS, ONE FOR EACH USER ID.  THE FILES MUST BE PERMITTED AS FOLLOWS:
           R/N,RWC (PKEY=*SYS.ACC,PKEY=*SYS.ACCOUNT,PKEY=INIT:INIT,PKEY=(FIX (502/10)),PKEY=*ACRESTORE,
           PKEY=(FILUPDAT (104/66)),PKEY=(SCANFILES (502/1)),PKEY=(ACCPASWD (104/51)),
           PKEY=(ACCSGATR (104/102)),PKEY=(ACCKILL(104/149))),R PKEY=ACC.:FILEINFO,RW ACC.
00104/161   ACCOUNTING               *ACCOUNTING2    D            # MTS:$ACCOUNTING2                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING2         
00104/162   ACCOUNTING               *ACCOUNTING3    D            # MTS:$ACCOUNTING3                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING3         
00104/163   ACCOUNTING               *ACCOUNTING4    D            # MTS:$ACCOUNTING4                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING4         
00104/164   ACCOUNTING               *ACCOUNTING5    D            # MTS:$ACCOUNTING5                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING5         
00104/165   ACCOUNTING               *PROJECT        D            # MTS:$PROJECT                                                    
                                                                                    UM   ENGLE                                      
                         *PROJECT             
0          THE PROJECT FILE CONTAINS A RECORD FOR EACH PROJECT.  THE FILE MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=(*SYS.ACCOUNT,PKEY=*SYS.MESSAGE)
           THIS FILE MUST ALSO BE PERMITTED READ TO THE USER ID WHICH RUNS THE BILLING PROGRAMS.
00104/166   ACCOUNTING               *PRJDIRECTORY   D            # MTS:$PRJDIRECTOR                                                
                                                                                    UM   ENGLE                                      
                         *PRJDIRECTORY        
0          THE PROJECT DIRECTORY FILE CONTAINS LISTS OF THE USER ID'S BELONGING TO EACH
           PROJECT.  THE FILE MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=(*SYS.ACCOUNT,PKEY=*SYS.MESSAGE)
00104/167   ACCOUNTING               *PWSTAT         D            # *PWSTAT                                                         
                                                                                    UM   ENGLE                                      
                         *PWSTAT@E            
0          LOG FILE USED TO RECORD THE TIME AND DATE OF PASSWORD SETTINGS BY THE
           ACCOUNTING PROGRAMS.  MUST BE PERMITTED AS FOLLOWS:
           P/N, (RWC,TRUNC) ACC.&PKEY=NEW.:LOGPURGE
           SOME INSTALLATIONS MAY CHOOSE TO PERMIT THIS FILE WE TO ALL SO THAT ANY USER
           WHO MANAGES TO RUN ACCPASWD (104/51) OR ACCSGATR (104/102) WILL LEAVE SOME
           EVIDENCE.  IN THEORY, THESE PROGAMS ARE NOT AVAILABLE TO USERS.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00104/168   ACCOUNTING               LOG FILE        D            # ACC.:ACCLOG                                                     
                                                                                    UM   ENGLE                                      
                         ACC.:ACCLOG@E        
0          THIS FILE WILL ACCUMULATE ACCOUNTING MAINTENANCE AND PROJECT MAINTENANCE
           DATA. IT SHOULD BE PURGED REGULARLY TO PREVENT IT BECOMING TOO LARGE.
           NEW:LOGPURGE (739) MAY BE USED FOR THIS PURPOSE.
00108/001A *PL360                    COMPILER        S3             DBMS:PL360COMP.S                                                
            5.0T1   411  PL360.COMPILER.S3.001              1 LINE     81   81 PAGE UM   STERKEN             JULY 03, 1981  12:45:36
            5.0T1   411                       
0          THIS VERSION OF PL360 IS BASED ON ONE RECEIVED FROM STANFORD IN LATE 1977 AND
           INSTALLED AT UM IN JANUARY, 1978. A SET OF UPDATES FROM STANFORD HAS BEEN
           APPLIED, AS HAVE SOME LOCAL CHANGES TO THE SYM RECORDS OUTPUT UNDER THE TEST
           OPTION. THE UNSP SNOOP SUBROUTINE, SEE (685/2), IS CALLED TO KEEP STATISTICS
           OF PL360 USAGE ON THE FILE ETC:PL360.SNOOP, WHICH SHOULD BE PERMITTED WRITEXP
           TO PKEY=*PL360.
            
           THE PL360 COMPILER CONSISTS OF TWO PARTS. PL360COMP IS WRITTEN IN PL360 AND
           CONTAINS ALL SYSTEM INDEPENDENT PORTIONS OF THE COMPILER. PL360INTF IS
           WRITTEN IN ASSEMBLY AND IS THE MTS INTERFACE TO PL360. THE ENTRY POINT IS IN
           PL360COMP.
            
           ONCE *PL360 IS BOOTSTRAPPED, THE OBJECT MODULES ARE OBTAINED AS FOLLOWS:
            
               $RUN *PL360 SCARDS=PL360COMP.S SPUNCH=PL360COMP.O SPRINT=*PRINT* 
                    PAR=SIZE=100
               $RUN *ASMH SCARDS=PL360INTF.S SPUNCH=PL360INTF.O SPRINT=*PRINT* 
            
           *PL360 IS THEN LINKEDITED AS FOLLOWS:
            
                $RUN *LINKEDIT
                INCLUDE UNSP:LIBRARY ONLY SNOOP
                RENAME WRITE WRITE#
                INCLUDE PL360COMP.O+PL360INTF.O
                COMBINE@NAME=PL360
                PUNCH ON *PL360 
                STOP
                $CONTROL *PL360 PKEY=*PL360
            
           *PL360 CREATES AND DESTROYS A TEMPORARY FILE (-PL360#01) IN WHICH IT KEEPS AN
           INTERMEDIATE VERSION OF THE OBJECT MODULES IT PRODUCES.
            
           THE MTS VERSION OF PL360 IS DESCRIBED FURTHER IN CCMEMO 75. THE BEST
           REFERENCE MANUAL FOR PL360 IS "INTRODUCTION TO PL360 PROGRAMMING" BY RICHARD
           L. GUERTIN (WADSWORTH PUBLISHING CO., BELMONT, CALIFORNIA).
00108/002A *PL360                    MTS INTERFACE   SA             DBMS:PL360INTF.S                                                
            5.0T1   412  PL360.MTS_INTERFACE.SA.002         1 LINE     80   14 PAGE UM   STERKEN             JULY 03, 1981  12:45:41
            5.0T1   412                       
0          SOURCE FOR MTS INTERFACE OF PL/360.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00108/003A *PL360                    *PL360          OE             *PL360                                                          
            5.0T1   413  PL360.*PL360.OE.003                1 SEQ   27756   11 PAGE UM   STERKEN             JULY 03, 1981  12:45:43
            5.0T1   413  *PL360               
00108/004A *PL360                    LIBRARY         SA             DBMS:PL360LIB.S                                                 
            5.0T1   414  PL360.LIBRARY.SA.004               1 LINE     80    3 PAGE UM   STERKEN             JULY 03, 1981  12:45:44
            5.0T1   414                       
0          *PL360LIB CONTAINS VARIOUS UTILITY SUBROUTINES (READ, WRITE, 
           PAGE, PUNCH, ETC.) WHICH CAN BE REFERENCED FROM PL360 PROGRAMS 
           AS PRE-DECLARED  PROCEDURES.  THE CALLING SEQUENCE IS NOT
           OS-STANDARD.  SEE "INTRODUCTION TO PL360 PROGRAMMING" OR CCMEMO
           75 FOR DETAILS.  THESE ROUTINES ARE NOT USED BY PL360COMP.
            
           PL360LIB.S CONTAINS THE ASSEMBLY SOURCE FOR *PL360LIB.
00108/005A *PL360                    *PL360LIB       OE             *PL360LIB                                                       
            5.0T1   415  PL360.*PL360LIB.OE.005             1 LINE    572    1 PAGE UM   STERKEN             JULY 03, 1981  12:45:45
            5.0T1   415  *PL360LIB            
00110/001   TNL                                      SA           # (ABANDONED)                                                     
            D3T1    335  TNL.*TNL.S.1                       1 SEQ      80   30 PAGE UM                       JULY 31, 1973  00:08.57
00111/001  *PTPRRTN                                  SA  G  PTPR    W116:PTPR.S                                                     
            5.0T1   416  PTPRRTN..SA.001                    1 LINE     80   24 PAGE UM   H YOUNG             JULY 03, 1981  12:45:46
            5.0T1   416                       
0          DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER.  ASKS THE 
           OPERATOR FOR THE CAUSE OF ANY EQUIPMENT CHECKS AND THEN TRANSMITS THAT
           INFORMATION TO THE USER.  MAXIMUM LENGTH OF THE OPERATOR'S RESPONSE IS
           GOVERNED BY THE LENGTH OF THE PAD WHICH IS FOUND IN THE PSECT (LENGTH IS
           COMPUTED BY &LENRESP).  MINIMUM LENGTH OF THE OPERATOR'S RESPONSE IS SET
           BY &MINRESP AND IS CURRENTLY SET TO 10 CHARACTERS.  COPIES COPY:MTS.MACROS.
00111/002  *PTPRRTN                                  OC  G          *PTPRRTN                                                        
            5.0T1   417  PTPRRTN..OC.002                    1 LINE     80    3 PAGE UM   H YOUNG             JULY 03, 1981  12:45:48
            5.0T1   417  *PTPRRTN             
00116/001A *PDP8RTN                                  SA  G          WSG:PDP8                                                        
            5.0T1   418  PDP8RTN..SA.001                    1 LINE     73   50 PAGE UM   WSG                 AUG. 05, 1981  02:05:41
            5.0T1   418  WSG.:PDP8            
0          MTS DEVICE SUPPORT ROUTINES FOR THE UM FRONT END MACHINES (DATA
           CONCENTRATORS). INCLUDES SUPPORT FOR "VOTRAX" AUDIO RESPONSE UNITS BY CALLING
           SPECIAL SUBROUTINES TO PERFORM I/O CONVERSION. SEE COMPONENT (681). THIS DSR
           IS ALSO USED FOR DEVICE TYPE FDSK AT UM, WHERE FLOPPY DISKS ARE ATTACHED
           THROUGH A FRONT END PROCESSOR. COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS
           (1026/1), COPY:GLOBALSETS (1026/2), AND *CNFGINFODSECT (654). ASSEMBLE USING
           COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 681/1, 681/2, 681/15 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00116/002A *PDP8RTN                                  OC  G          *PDP8RTN                                                        
            5.0T1   419  PDP8RTN..OC.002                    1 LINE   8976   29 PAGE UM   WSG                 AUG. 05, 1981  02:05:50
            5.0T1   419  *PDP8RTN             
0          Referenced by comments of: 681/2, 681/3, 681/4, 681/10, 681/12, 681/14 
00116/003A *PDP8RTN                  *FDSKRTN        OC  G          *FDSKRTN                                                        
            5.0T1   420  PDP8RTN.*FDSKRTN.OC.003            1 LINE     23    1 PAGE UM   WSG                 JULY 03, 1981  12:46:00
            5.0T1   420  *FDSKRTN             
0          OBJECT FOR THE FLOPPY DISK DSR.  CONTAINS A "$CONTINUE WITH *PDP8RTN" LINE.
00116/004  *PDP8RTN                  MEMO 370        WF             S1143 D4.1T1 VLO FSNAME=PDP8RTN.MEMO_370.WF.005(1)            63
            5.0T1   421  PDP8RTN.MEMO_370.WF.004            1 LINE    119    4 PAGE UM   FLOWER              MAY  13, 1978  17:05:03
            5.0T1   421                       
0          THIS IS COMPUTING CENTER MEMO 370 -- "USE OF THE TEXAS INSTRUMENTS MODEL
           733 ASR TERMINAL WITH THE DATA CONCENTRATOR."
00116/005  *PDP8RTN                  MEMO 375        WF             S1319 D4.2T1 VLO FSNAME=PDP8RTN.MEMO_375.WF.006(1)           106
            5.0T1   422  PDP8RTN.MEMO_375.WF.005            1 LINE    104   10 PAGE UM   WOLFSON             SEP. 07, 1978  15:03:42
            5.0T1   422                       
0          THIS IS COMPUTING CENTER MEMO 375 -- "THE DECWRITER TERMINAL AND MTS."
00116/006  *PDP8RTN                  MEMO 413        WF             S1430 4.3T1 VLO FSNAME=PDP8RTN.MEMO_413.WF.005(1)             99
            5.0T1   423  PDP8RTN.MEMO_413.WF.006            1 LINE     68    3 PAGE UM   LUBBERS             FEB. 29, 1980  10:17:22
            5.0T1   423                       
0          THIS IS COMPUTING CENTER MEMO 413 -- "GUIDE FOR USING DECWRITER TERMINALS WITH
           VARIOUS TERMINAL CONTROLLERS."
00117/001  *GRAPHMAC                                 SM           # (OBSOLETE)                                                      
            D4T1    396  GRAPHMAC..SM.                      1 SEQ      80   63 PAGE UM                       JULY 31, 1973  00:14.26
00119/001   SYN360                                   SS             S0563 D4T1 VLO FSNAME=SYN360..SS.001(1)                      397
            5.0T1   424  SYN360..SS.001                     1 SEQ      80    5 PAGE UM   DWB                 JULY 31, 1973  00:15.37
            5.0T1   424                       
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.
0          Referenced by comments of: 119/2 
00119/002   SYN360                   TABLES DATA     D              S0563 D4T1 VLO FSNAME=SYN360.TABLES_DATA.D.002(1)            398
            5.0T1   425  SYN360.TABLES_DATA.D.002           1 SEQ      80    3 PAGE UM   DWB                 JULY 31, 1973  00:15.38
            5.0T1   425                       
0          INPUT TO (119/1).  ENDS WITH A "$CONTINUE WITH SYNTBL" CARD.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00120/001   REWIND SUBR                              SA  G          S1143 D4.1T1 VLO FSNAME=REWIND_SUBR..SA.001(1)                64
            5.0T1   426  REWIND_SUBR..SA.001                1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  17:05:05
            5.0T1   426                       
0          FORTRAN CALLABLE REWIND SUBROUTINE.  ASSEMBLE USING *SYSMAC.
00120/002   REWIND SUBR                              OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   MTA                                        
0           
           Object is in *LIBRARY (524/1).
00121/001  *USERS                                    SG  G          S1430 4.3T1 VLO FSNAME=USERS..SG.001(1)                      100
            5.0T1   427  USERS..SG.001                      1 LINE     75    1 PAGE UM   MTA                 APR. 05, 1980  14:06:21
            5.0T1   427                       
0          GOM PROGRAM TO ISSUE A "$SYSTEMSTATUS USERS" COMMAND (GRUDGINGLY).
           IT IS SUGGESTED THAT THIS PROGRAM NOT BE INSTALLED AT NEW INSTALLATIONS.
00121/002  *USERS                                    OC  G          *USERS                                                          
            5.0T1   428  USERS..OC.002                      1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  12:46:12
            5.0T1   428                       
00123/001  *PTASKS                                   SA           # (OBSOLETE)                                                      
            D4T1    405  PTASKS..SA.                        1 SEQ      80   17 PAGE UM                       JULY 31, 1973  00:15.58
00126/001   BLSTDEV                                  SA  G          S0563 D4T1 VLO FSNAME=BLSTDEV..SA.001(1)                     406
            5.0T1   429  BLSTDEV..SA.001                    1 LINE     80    3 PAGE UM   MTA                 JULY 30, 1973  03:31.46
            5.0T1   429                       
0          SUBROUTINE TO RESET A DEVICE FOR A NEW OPERATION. USED BY SEVERAL DSR'S.
00126/002   BLSTDEV                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00128/001  *PTPPRTN                                  SA  S          S0563 D4T1 VLO FSNAME=PTPPRTN..SA.(1)                        407
            5.0T1   430  PTPPRTN..SA.001                    1 SEQ      80   19 PAGE UM   WSG                 JULY 31, 1973  00:17.03
            5.0T1   430                       
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        # (PART OF ACCOUNTING)                                            
                                                                                    UM   ENGLE                                      
0          PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD.
           RUN WITH PROT=OFF.
            
           Distributed as part of ACCOUNTING (104/15).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00129/002A *STATUS                                   OE  G          *STATUS                                                         
            5.0T1   431  STATUS..OE.002                     1 LINE   6156    3 PAGE UM   ENGLE               JULY 03, 1981  12:46:15
            5.0T1   431  *STATUS              
0          CONSISTS OF:  STATUS (104/15) + *LCS (164).
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  U/N,R PKEY=*MTS.RUN
           THIS FILE MUST BE GIVEN THE PROGRAM KEY *STATUS.
00131/001   STRTPDP                                               # (OBSOLETE)                                                      
            D2T1    149                                                             UM                                              
0          Obsoleted by the $SYSTEMSTATUS command.
00132/001  *PERMIT                                   SA           # (OBSOLETE)                                                      
            D4T1    409  PERMIT..SA.001                     1 LINE     80    6 PAGE UM                       JULY 27, 1977  22:26:58
00133/001  *PLOT                                     SA             S1011 ETC 'MISC' FSNAME=PTRCONVPLOT                             
            5.0T1   432  PLOT..SA.001                       1 LINE     72    8 PAGE UM   LIFT                DEC. 07, 1978  15:44:47
            5.0T1   432                       
0          CONVERSATIONAL INTERFACE TO PRINTER PLOT SUBROUTINES (282).
00133/002  *PLOT                                     OC             *PLOT                                                           
            5.0T1   433  PLOT..OC.002                       1 LINE     80    3 PAGE UM   LIFT                JULY 03, 1981  12:46:48
            5.0T1   433  *PLOT                
00135/001A *TAPERTN                                  SA  G          TAPE:TAPE                                                       
            5.0T1   434  TAPERTN..SA.001                    1 LINE     80   84 PAGE UM   SHERRY              JULY 03, 1981  12:46:49
            5.0T1   434  TAPE:TAPE            
0          MTS device support routines for magnetic tapes.  NOTE:  The "NLC" control command
           (which only works if issued by a user ID which is authorized to $SET PROT=OFF or
           by user ID "SYS." with program key "*LABEL") overrides the normal checking for
           volume labels.  It is used by *LABEL (487) to label virgin tapes and FIND LABEL
           (729) to print unknown labels.  Copies COPY:LLMPSEQU (087), COPY:GLOBALDEFS
           (1026/1), COPY:GLOBALSETS (1026/2), *CNFGINFODSECT (654), and *SENSEDSECT (3025).
           Assemble using COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3),
           COPY:UC.MACROS (787/1), and COPY:SETPARM (653) with PAR=PEXIT=*PEXIT (775).
            
           *********************************************************************************
           D5.0 changes:
            
           1) Changed to use the new Tape Unit Check Routines (787/15).
           2) RELEASE entry changed to call tape queue routine MNTQREL (806/1)
              to release queued mount requests.
           3) Support for ANSI labeled tapes added.  A tape with an ANSI volume
              label will automatically be recognized and not mounted unless the
              proper VOLUME command is given.  See the article in the Computing
              Center Newsletter, Vol. 11, No. 6, for details.
           4) "CC" control command added to set control character in HDR2 
              labels for use on MVS systems.
            
           These changes require the D5.0 versions of the Tape Unit Check
           Routines (787/15), *SENSEDSECT (3025), Translate Tables (779), and 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Tape Queue (806).
           *********************************************************************************
0          Referenced by comments of: 314/1, 489/1, 787/16, 806/1, 3025/1 
00135/002C *TAPERTN                  UPDATE          UC  G          TAPE:TAPE.U                                                     
            5.0T1   435  TAPERTN.UPDATE.UC.002              1 LINE    150   29 PAGE UM   SHERRY              JULY 03, 1981  12:46:55
            5.0T1   435                       
0          ******************************************************************************** 
           D5.0 version:
            
           *CDUPDATE (Version 2.2) update decks to produce current version of TAPERTN
           from the D4.3 base source.
           ********************************************************************************
00135/003A *TAPERTN                                  OC  G          *TAPERTN                                                        
            5.0T1   436  TAPERTN..OC.003                    1 LINE  18568    6 PAGE UM   SHERRY              JULY 03, 1981  12:46:59
            5.0T1   436  *TAPERTN             
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE.
00136/001  *FIX                                      C   G          *FIX                                                            
            5.0T1   437  FIX..C.001                         1 LINE      7    1 PAGE UM   ENGLE               JULY 03, 1981  12:47:00
            5.0T1   437  *FIX                 
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/002A *FIX                      FIX:FIX         C   G          FIX:FIX                                                         
            5.0T1   438  FIX.FIX:FIX.C.002                  1 LINE     52    1 PAGE UM   ENGLE               JULY 03, 1981  12:47:01
            5.0T1   438  FIX.:FIX             
0          COMMAND FILE TO RUN *ACCRESTORE (484).
0          Referenced by comments of: 136/1 
00137/001  *UPDATE                   D5.0 MASTER     SA  G          W009:UPDATE.S                                                   
            5.0T1   439  UPDATE.D5.0_MASTER.SA.001          1 LINE     80   29 PAGE UM   SHERRY              JULY 03, 1981  12:47:03
            5.0T1   439  W009:UPDATE.S        
0          D5.0 MASTER SOURCE FOR THE MTS SOURCE UPDATE PROGRAM.  REQUIRES BLOCKED I/O ROUTINES (283).
0          Referenced by comments of: 746/1 
00137/002  *UPDATE                                   OE  G          *UPDATE                                                         
            5.0T1   440  UPDATE..OE.002                     1 LINE   7560    4 PAGE UM   SHERRY              JULY 03, 1981  12:47:05
            5.0T1   440  *UPDATE              
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00138/001  *TEXT360                  MONITOR         SA  G          S0563 D4T1 VLO FSNAME=TEXT360.MONITOR.SA.001(1)              420
            5.0T1   441  TEXT360.MONITOR.SA.001             1 LINE     80   18 PAGE UM   TIFFANY             JULY 27, 1977  22:49:43
            5.0T1   441                       
0          NEW VERSION 7 OF TEXT/360 TEXT PROCESSING PROGRAM.  THE SEPARATE PROGRAMS
           *FMAINT, *BLDLIN, *PLAOUT, AND *POSTPR ARE NO LONGER USED.  INSTEAD, *TEXT360
           CONTAINS ALL THESE PROGRAMS.  IN ADDITION, MOST PARTS OF TEXT/360 HAVE BEEN
           RE-WRITTEN BECOMING BOTH SMALLER AND FASTER.
0          Referenced by comments of: 138/8 
00138/002A *TEXT360                  FMAINT          SA  G          S0990 TXT370 'TEXT370' POSN=FM.CT130                            
            5.0T1   442  TEXT360.FMAINT.SA.002              1 SEQ      80   51 PAGE UM   TIFFANY             JULY 03, 1981  12:48:30
            5.0T1   442                       
0          TEXT/360 FILE MAINTENANCE.
            
           *****************************************************************************
           D5.0 changes:
            
           Characters added for the Xerox 9700.
           *****************************************************************************
00138/003  *TEXT360                  BLDLIN          SA  G          S0563 D4T1 VLO FSNAME=TEXT360.BLDLIN.SA.003(1)               422
            5.0T1   443  TEXT360.BLDLIN.SA.003              1 LINE     80   94 PAGE UM   TIFFANY             JULY 27, 1977  22:49:54
            5.0T1   443                       
0          TEXT/360 BUILD LINES.
00138/004  *TEXT360                  HYPHEN          SA  G          S1319 D4.2T1 VLO FSNAME=TEXT360.HYPHEN.SA.004(1)             113
            5.0T1   444  TEXT360.HYPHEN.SA.004              1 LINE     80   10 PAGE UM   TIFFANY             MAR. 26, 1979  02:31:56
            5.0T1   444                       
0          TEXT/360 SUBROUTINE TO HYPHENATE WORDS.
00138/005  *TEXT360                  PLAOUT          SA  G          S1319 D4.2T1 VLO FSNAME=TEXT360.PLAOUT.SA.005(1)             114
            5.0T1   445  TEXT360.PLAOUT.SA.005              1 LINE     80   70 PAGE UM   TIFFANY             MAR. 26, 1979  02:31:56
            5.0T1   445                       
0          TEXT/360 PAGE LAYOUT.
00138/006  *TEXT360                  PPR1            SP  O          S1319 D4.2T1 VLO FSNAME=TEXT360.PPR1.SP.006(1)               115
            5.0T1   446  TEXT360.PPR1.SP.006                1 LINE     80   28 PAGE UM   TIFFANY             MAR. 26, 1979  02:32:05
            5.0T1   446                       
0          TEXT/360 POST PROCESSOR.
00138/007  *TEXT360                  PPR2            SA  G          S0563 D4T1 VLO FSNAME=TEXT360.PPR2.SA.007(1)                 426
            5.0T1   447  TEXT360.PPR2.SA.007                1 LINE     80   11 PAGE UM   TIFFANY             JULY 27, 1977  22:50:26
            5.0T1   447                       
0          TEXT/360 SPELLING POSTPROCESSOR.
0          Referenced by comments of: 138/8 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00138/008A *TEXT360                  OBJECT          OE  G          *TEXT360                                                        
            5.0T1   448  TEXT360.OBJECT.OE.008              1 LINE  14896   28 PAGE UM   TIFFANY             JULY 03, 1981  12:48:41
            5.0T1   448  *TEXT360             
0          OBJECT FROM (138/1) THROUGH (138/7).  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/009  *TEXT360                  *PRESCAN        SA  O          S0563 D4T1 VLO FSNAME=TEXT360.*PRESCAN.SA.009(1)             428
            5.0T1   449  TEXT360.*PRESCAN.SA.009            1 LINE     80   40 PAGE UM   TIFFANY             JULY 27, 1977  22:50:30
            5.0T1   449                       
0          TEXT/360 PRESCAN PROGRAM.
00138/010  *TEXT360                  *PRESCAN        OE  O          *PRESCAN                                                        
            5.0T1   450  TEXT360.*PRESCAN.OE.010            1 LINE   8994    5 PAGE UM   TIFFANY             JULY 03, 1981  12:48:44
            5.0T1   450  *PRESCAN             
00138/011A *TEXT360                  *PRINT          SA  G          S0990 TXT370 'TEXT370' POSN=PRINT.EC120                         
            5.0T1   451  TEXT360.*PRINT.SA.011              1 SEQ      80   14 PAGE UM   TIFFANY             JULY 03, 1981  12:48:47
            5.0T1   451                       
0          TEXT/360 OUTPUT PRINTING PROGRAM.
            
           *****************************************************************************
           D5.0 changes:
            
           The output is no longer @MCC.  Can now produce Xerox 9700 output if PORTRAIT
           is specified.
           *****************************************************************************
00138/012A *TEXT360                  *PRINT          OC  G          *PRINT                                                          
            5.0T1   452  TEXT360.*PRINT.OC.012              1 LINE   2464    4 PAGE UM   TIFFANY             JULY 03, 1981  12:48:48
            5.0T1   452  *PRINT               
00138/013  *TEXT360                  *DICTUPD        SP  G          S0563 D4T1 VLO FSNAME=TEXT360.*DICTUPD.SP.013(1)             432
            5.0T1   453  TEXT360.*DICTUPD.SP.013            1 LINE     80    7 PAGE UM   TIFFANY             JULY 27, 1977  22:50:41
            5.0T1   453                       
0          PROGRAM TO MAINTAIN TEXT/360 SPELLING DICTIONARY.
00138/014  *TEXT360                  *DICTUPD        OE  O          *DICTUPD                                                        
            5.0T1   454  TEXT360.*DICTUPD.OE.014            1 LINE  10746    5 PAGE UM   TIFFANY             JULY 03, 1981  12:48:50
            5.0T1   454  *DICTUPD             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/015  *TEXT360                  *DICT           D              *DICT                                                           
            5.0T1   455  TEXT360.*DICT.D.015                1 SEQ    4096   22 PAGE UM   TIFFANY             JULY 03, 1981  12:48:51
            5.0T1   455  *DICT                
0          TEXT/360 SPELLING DICTIONARY CONTAINING ABOUT 12000 WORDS.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00138/016A *TEXT360                  *HYPHDICT       D              *HYPHDICT                                                       
            5.0T1   456  TEXT360.?HYPHDICT.D.016            1 LINE     64    6 PAGE UM   MANUAL              AUG. 05, 1981  02:06:26
            5.0T1   456  *HYPHDICT            
0          A HYPHENATION OVERRIDE DICTIONARY FOR WORDS THAT MTS TEXT PROCESSING LANGUAGES
           CANNOT HYPHENATE CORRECTLY.
00138/017  *TEXT360                  *T360MASTCONV   SP  G          S1430 4.3T1 VLO FSNAME=TEXT360.*T360MASTCONV.SP.017(1)       105
            5.0T1   457  TEXT360.*T360MASTCONV.SP.017       1 LINE     70    3 PAGE UM   TIFFANY             JULY 12, 1979  22:25:52
            5.0T1   457                       
0          PROGRAM TO CONVERT A TEXT/360 MASTER FILE INTO A TEXT/360 INPUT STREAM.
00138/018  *TEXT360                  *T360MASTCONV   SA  G          S1430 4.3T1 VLO FSNAME=TEXT360.*T360MASTCONV.SA.018(1)       106
            5.0T1   458  TEXT360.*T360MASTCONV.SA.018       1 LINE     72    1 PAGE UM   TIFFANY             JULY 12, 1979  22:25:54
            5.0T1   458                       
0          A SUBROUTINE TO REPLACE "NONPRINTABLE" CHARACTERS WITH SPECIAL CHARACTERS
           PRECEDED BY EITHER A "/" OR "//".
00138/019  *TEXT360                  *T360MASTCONV   OE  G          *T360MASTCONV                                                   
            5.0T1   459  TEXT360.*T360MASTCONV.OE.019       1 LINE   5598    5 PAGE UM   TIFFANY             JULY 03, 1981  12:48:55
            5.0T1   459  *T360MASTCONV        
0          EXTERNAL SYMBOL IHESAPC SHOULD BE RENAMED IHESAPE.  ENDS WITH A
           "$CONTINUE WITH *PL1LIB" RECORD.
00140/001  *ANALYSIS                                 SA  G          S0563 D4T1 VLO FSNAME=ANALYSIS..SA.001(1)                    438
            5.0T1   460  ANALYSIS..SA.001                   1 LINE     80   60 PAGE UM   MTA                 JULY 27, 1977  22:50:55
            5.0T1   460                       
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)                                                    
            5.0T1   461  ANALYSIS..OC.002                   1 LINE  11972    7 PAGE UM   MTA                 JULY 03, 1981  12:48:58
            5.0T1   461  *ANALYSIS            
0          THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000.  SEE CCMEMO 393 (079/6).
00140/003  *ANALYSIS                 PL/1 MAIN PGM   SP             S0563 D4T1 VLO FSNAME=ANALYSIS.PL/1_MAIN_PGM.SP.003(1)       440
            5.0T1   462  ANALYSIS.PL/1_MAIN_PGM.SP.003      1 LINE     80    1 PAGE UM   MTA                 JUNE 28, 1974  16:12.14
            5.0T1   462                       
0          PL/1 MAIN PROGRAM FOR USE WITH *ANALYSIS.
00140/004  *ANALYSIS                 PL/1 MAIN PGM   OC             *ANALYSIS(0,.999)                                               
            5.0T1   463  ANALYSIS.PL/1_MAIN_PGM.OC.004      1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  12:48:59
            5.0T1   463                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00140/005  *ANALYSIS                 EXAMPLE STP2    SA  G          S0938 FSAVE2 VLO FSNAME=KIPSSTP2(2)                          124
            5.0T1   464  ANALYSIS.EXAMPLE_STP2.SA.005       1 LINE     73   24 PAGE UM   MTA                 NOV. 08, 1975  00:29:03
            5.0T1   464                       
0          EXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS.  CALLS THE HISTOGRAM SUBROUTINE (140/7).
           COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC.
0          Referenced by comments of: 140/7 
00140/006  *ANALYSIS                 EXAMPLE STP2    OC  G          S0938 FSAVE2 VLO FSNAME=KIPSSTP2(3)                          177
            5.0T1   465  ANALYSIS.EXAMPLE_STP2.OC.006       1 LINE     80   29 PAGE UM   MTA                 OCT. 25, 1976  22:22:14
            5.0T1   465                       
00140/007  *ANALYSIS                 HISTOGRAM       SA  G          *ANALYSIS(-400,-1)                                              
            5.0T1   466  ANALYSIS.HISTOGRAM.SA.007          1 LINE     72    6 PAGE UM   MTA                 JULY 03, 1981  12:50:00
            5.0T1   466                       
0          SUBROUTINE TO PLOT HISTOGRAMS, VAGUELY RELATED TO *ANALYSIS AND BRIEFLY DESCRIBED IN CCMEMO 393 (079/6).
           CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/5). ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 140/5, 718/2, 799/1 
00140/008  *ANALYSIS                 HISTOGRAM       OC  G          *ANALYSIS(-600,-401)                                            
            5.0T1   467  ANALYSIS.HISTOGRAM.OC.008          1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  12:50:01
            5.0T1   467                       
00140/009  *ANALYSIS                 CALLSTP2        SA  G          MTA:CALLSTP2(1,999)                                             
            5.0T1   468  ANALYSIS.CALLSTP2.SA.009           1 LINE     70    3 PAGE UM   MTA                 JULY 03, 1981  12:50:02
            5.0T1   468  MTA.:CALLSTP2        
0          PROGRAM TO REPLACE *ANALYSIS FOR THE CASE WHERE ONLY STP2A, STP2D, AND/OR
           STP2E ARE SUPPLIED AND THE JOB AREA IS NOT NEEDED.  MUCH FASTER THAN *ANALYSIS
           FOR THIS CASE.
00140/010  *ANALYSIS                 CALLSTP2        OC  G          MTA:CALLSTP2(1000)                                              
            5.0T1   469  ANALYSIS.CALLSTP2.OC.010           1 LINE     80    2 PAGE UM   MTA                 JULY 03, 1981  12:50:03
            5.0T1   469                       
00141/001  *GPAKDRAW                                 S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00143/001   REWIND# SUBR                             SA           # (PART OF RSF)                                                   
                                                                                    UM                                              
0          Now part of RSF (578)
00144/001  *ASA                                      SA  O          S0563 D4T1 VLO FSNAME=ASA..SA.001(1)                         450
            5.0T1   470  ASA..SA.001                        1 LINE     80    4 PAGE UM   TIFFANY             JULY 27, 1977  23:16:57
            5.0T1   470                       
0          PRINTS OUTPUT WITH ASA STANDARD CARRIAGE CONTROL.
           ASSEMBLE WITH PAR=BATCH.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00144/002  *ASA                                      OC  O          *ASA                                                            
            5.0T1   471  ASA..OC.002                        1 LINE     80    1 PAGE UM   TIFFANY             JULY 03, 1981  12:50:05
            5.0T1   471  *ASA                 
00145/001A *TASKS                                    SA  G          S0792 WSGFS FSNAME=MTASKS.SA                                    
            5.0T1   472  TASKS..SA.001                      1 LINE     60    3 PAGE UM   WSG                 NOV. 17, 1980  15:53:50
            5.0T1   472                       
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/002A *TASKS                                    OC  G          *TASKS                                                          
            5.0T1   473  TASKS..OC.002                      1 LINE     80    1 PAGE UM   WSG                 JULY 03, 1981  12:51:49
            5.0T1   473  *TASKS               
00146/001  *OLDED                                    SA           # (OBSOLETE)                                                      
            D2T1    325                                                             UM                                              
00147/001  *FILESCAN                                 SA  G          S0563 D4T1 VLO FSNAME=FILESCAN..SA.001(1)                    454
            5.0T1   474  FILESCAN..SA.001                   1 LINE     80    9 PAGE UM   ENGLE               DEC. 05, 1975  16:09:05
            5.0T1   474                       
0          MTS FILE SCANNING PROGRAM.
00147/002  *FILESCAN                                 OE  G          *FILESCAN                                                       
            5.0T1   475  FILESCAN..OE.002                   1 LINE    255    2 PAGE UM   ENGLE               JULY 03, 1981  12:51:50
            5.0T1   475  *FILESCAN            
00148/001  *WATLIB                                                  *WATLIB                                                         
            5.0T1   476  WATLIB...001                       1 SEQ     384    4 PAGE UM   SHERRY              JULY 03, 1981  12:51:51
            5.0T1   476  *WATLIB              
0          THIS FILE HAS SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES AND ASSEMBLER SUBROUTINE OBJECT DECKS 
           WHICH *WATFIV ASSUMES AS THE DEFAULT LIBRARY WHEN ATTEMPTING TO RESOLVE UNDEFINED SYMBOLS IN
           WATFIV PROGRAMS.
0          Referenced by comments of: 148/2, 148/3 
00148/002  *WATLIB                   WATSUB SUBR     SA  G          S0563 D4T1 VLO FSNAME=WATLIB.WATSUB_SUBR.SA.002(1)           457
            5.0T1   477  WATLIB.WATSUB_SUBR.SA.002          1 LINE     66    3 PAGE UM   SHERRY              AUG. 14, 1977  19:11:25
            5.0T1   477                       
0          SOURCE FOR THE WATSUB SUBROUTINE.  OBJECT IS IN *WATLIB (148/1).
00148/003  *WATLIB                   TRACER SUBR     SA  G          S0563 D4T1 VLO FSNAME=WATLIB.TRACER_SUBR.SA.003(1)           458
            5.0T1   478  WATLIB.TRACER_SUBR.SA.003          1 LINE     57    1 PAGE UM   SHERRY              AUG. 14, 1977  19:11:26
            5.0T1   478                       
0          SOURCE FOR THE TRACER SUBROUTINE.  OBJECT IS IN *WATLIB (148/1).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00148/004  *WATLIB                   WATGENLIB       SA  G          S0563 D4T1 VLO FSNAME=WATLIB.*WATGENLIB.SA.004(1)            459
            5.0T1   479  WATLIB.WATGENLIB.SA.004            1 LINE     80   23 PAGE UM   SHERRY              JULY 27, 1977  23:22:29
            5.0T1   479                       
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                                                      
            5.0T1   480  WATLIB.*WATGENLIB.OE.005           1 SEQ    3151    2 PAGE UM   SHERRY              JULY 03, 1981  12:51:54
            5.0T1   480  *WATGENLIB           
00151/001  *CONVSNOBOL                               SS  G          *CONVSNOBOL                                                     
            5.0T1   481  CONVSNOBOL..SS.001                 1 LINE     69    1 PAGE UM   SWARTZ              JULY 03, 1981  12:51:55
            5.0T1   481  *CONVSNOBOL          
0          $SOURCE FILE WHICH RUNS A SNOBOL PROGRAM TO ENHANCE CONVERSATIONAL USE OF SNOBOL.
00153/001  *MADTOPL1                                 SS     MPL1    *MADTOPL1                                                       
            5.0T1   482  MADTOPL1..SS.001                   1 LINE     80   21 PAGE UM   ?                   JULY 03, 1981  12:51:56
            5.0T1   482  *MADTOPL1            
0          CONVERT MAD 7090 TO PL/I
00154/001  *LAS                                      C              *LAS                                                            
            5.0T1   483  LAS..C.001                         1 LINE      9    1 PAGE UM   WSG                 JULY 03, 1981  12:51:59
            5.0T1   483  STRT:*LAS            
0          COMMAND FILE FOR STARTING MTS TERMINAL LINES.  INVOKED BY ENTERING "MTS *LAS" ON THE
           OPERATORS CONSOLE.  SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:LAS (154/2).
0          Referenced by comments of: 621/1 
00154/002  *LAS                      LAS             C              MTS:TST.LAS                                                     
            5.0T1   484  LAS.LAS.C.002                      1 LINE     67    1 PAGE UM   WSG                 JULY 03, 1981  12:52:00
            5.0T1   484  STRT:LAS             
0          COMMAND FILE WHICH STARTS UP MTS TERMINAL LINES.  THIS FILE WILL HAVE TO BE
           MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION.
0          Referenced by comments of: 154/1 
00156/001   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        # (OBSOLETE)                                                      
            D4T1    465  IPL_BOOTSTRAP..SA.001              1 LINE     80    4 PAGE UM                       JULY 27, 1977  23:22:41
            D4T1    465                       
00160/001   FRONCOPY                                 S            # (OBSOLETE)                                                      
            D2T1    387                                                             UM                                              
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00162/001A  PSA DSECT                                SA  G          COPY:PSA                                                        
            5.0T4   293  PSA_DSECT..SA.001                  1 LINE     72    5 PAGE UM   MTA                 AUG. 09, 1981  22:49:10
            5.0T10  197  COPY:PSA             
0          DEFINITION OF PREFIXED STORAGE AREA (PSA).
           COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS.
           REQUIRES THAT COPY:GLOBALS (1026/3) BE COPIED FIRST.
            
           ***********************************************************************************
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A):
            
           CONTAINS DISK MANAGER CHANGES AND OTHERS.
           ***********************************************************************************
0          Referenced by comments of: 45/1, 46/1, 540/3, 577/1, 577/3, 577/6, 634/4, 1021/1, 1021/4, 1081/1 
00163/001   PL1 COMPILER             MACLIB          SM  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.MACLIB.SM.001(1)         109
            5.0T1   485  PL1_COMPILER.MACLIB.SM.001         1 LINE     80   27 PAGE UM   TIFFANY             APR. 05, 1980  14:08:31
            5.0T1   485                       
0          PL/I(F) VERSION 5.5 COMPILER (RELEASE 21.8).
            
           THIS VERSION OF THE PL/I(F) COMPILER DIFFERS FROM PREVIOUS VERSIONS IN THE
           FOLLOWING WAYS:
            
            1) COMPILATION IS FASTER AND CHEAPER.
            2) INPUT RECORDS OVER 100 BYTES ARE TRUNCATED WITH A WARNING.
            3) COMPILER OPTIONS ARE NO LONGER SET TO DEFAULT AT THE SECOND (AND SUBSEQUENT)
               COMPILATION. THEY WILL BE THE SAME AS AT THE FIRST COMPILATION UNLESS
               OVERRIDDEN BY THE %PROCESS RECORD.
            4) OPTION DIAG IS THE DEFAULT IF SERCOM IS DIFFERENT THAN SPRINT OR IF
               SPRINT IS NOT USED.
            5) IF SPRINT IS SET TO A TERMINAL BY DEFAULT, THEN OPTIONS NOOPLIST,
               NOSOURCE2, NOSOURCE, NOXREF, NOATR, NOEXTREF, AND NOLIST ARE ASSUMED.
            6) TWO NEW OPTIONS HAVE BEEN ADDED:
                A) THE MTS/OS OPTION PRODUCES OBJECT MODULES THAT ARE INTENDED FOR
                   MTS OR OS, RESPECTIVELY. THE DEFAULT IS MTS.
                B) NUM/NONUM CONTROLS THE PRINTING OF MTS LINE NUMBERS IN THE SOURCE
                   LISTING. THE DEFAULT IS NUM.
            7) THE WORK FILE -SYSUT4 IS NOW A VIRTUAL MEMORY FILE.
            
           THIS SUBCOMPONENT, MACLIB, IS A MACRO LIBRARY FOR THE SIMULATION OF OS/360
           STUFF IN MTS.
0          Referenced by comments of: 163/3, 163/5, 163/6, 163/7, 163/8, 163/9, 163/10, 163/11, 163/13, 233/1, 506/11 
00163/002   PL1 COMPILER             MACLIB          SM  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.MACLIB.SM.002(1)         110
            5.0T1   486  PL1_COMPILER.MACLIB.SM.002         1 LINE     73    8 PAGE UM   TIFFANY             APR. 05, 1980  14:08:33
            5.0T1   486                       
0          ANOTHER MACRO LIBRARY.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00163/003   PL1 COMPILER             REPLACE         SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.REPLACE.SA.003(1)        111
            5.0T1   487  PL1_COMPILER.REPLACE.SA.003        1 LINE     80    3 PAGE UM   TIFFANY             APR. 05, 1980  14:08:35
            5.0T1   487                       
0          ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE.
            
           ASSEMBLE USING THE (163/1) MACRO LIBRARY.
00163/004   PL1 COMPILER             CHKLIO          SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.CHKLIO.SA.004(1)         112
            5.0T1   488  PL1_COMPILER.CHKLIO.SA.004         1 LINE     80    3 PAGE UM   TIFFANY             APR. 05, 1980  14:09:00
            5.0T1   488                       
0          ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT.
00163/005   PL1 COMPILER             NONSENSE        SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.NONSENSE.SA.005(1)       113
            5.0T1   489  PL1_COMPILER.NONSENSE.SA.005       1 LINE     80    3 PAGE UM   TIFFANY             APR. 05, 1980  14:09:27
            5.0T1   489                       
0          ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE.
            
           ASSEMBLE USING THE (163/1) MACRO LIBRARY.
00163/006   PL1 COMPILER             FREEDDEF        SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.FREEDDEF.SA.006(1)       114
            5.0T1   490  PL1_COMPILER.FREEDDEF.SA.006       1 LINE     80    2 PAGE UM   TIFFANY             APR. 05, 1980  14:09:53
            5.0T1   490                       
0          ROUTINE TO FREE ALL DDEF'S.
            
           ASSEMBLE USING THE (163/1) MACRO LIBRARY.
00163/007   PL1 COMPILER             FINDTIOT        SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.FINDTIOT.SA.007(1)       115
            5.0T1   491  PL1_COMPILER.FINDTIOT.SA.007       1 LINE     80    2 PAGE UM   TIFFANY             APR. 05, 1980  14:10:19
            5.0T1   491                       
0          ROUTINE TO FIND A TIOT GIVEN A "DDNAME."
            
           ASSEMBLE USING THE (163/1) MACRO LIBRARY.
00163/008   PL1 COMPILER             DDEF            SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.DDEF.SA.008(1)           116
            5.0T1   492  PL1_COMPILER.DDEF.SA.008           1 LINE     80   10 PAGE UM   TIFFANY             APR. 05, 1980  14:10:46
            5.0T1   492                       
0          ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH.
            
           ASSEMBLE USING THE (163/1) MACRO LIBRARY.
00163/009   PL1 COMPILER             OPEN            SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.OPEN.SA.009(1)           117
            5.0T1   493  PL1_COMPILER.OPEN.SA.009           1 LINE     80   16 PAGE UM   TIFFANY             APR. 05, 1980  14:11:16
            5.0T1   493                       
0          SIMULATE OS/360 OPEN.  CURRENTLY ONLY BSAM AND QSAM ARE SUPPORTED. 
            
           ASSEMBLE USING THE (163/1) MACRO LIBRARY.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00163/010A  PL1 COMPILER             ROUT            SA  G  RUTE    W062:IOPACK(8000,8999)                                          
            5.0T1   494  PL1_COMPILER.ROUT.SA.010           1 LINE     80   32 PAGE UM   TIFFANY             JULY 03, 1981  12:52:08
            5.0T1   494                       
0          LIST OF VARIOUS ROUTINES.
           ASSEMBLE USING THE (163/1) MACRO LIBRARY.
            
           ************************************************************************
           D5.0 VERSION:
            
           MODIFIED TO FIX SEVERAL MACRO PROBLEMS IN *PL1.
           ************************************************************************
00163/011   PL1 COMPILER             CLOSE           SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.CLOSE.SA.011(1)          119
            5.0T1   495  PL1_COMPILER.CLOSE.SA.011          1 LINE     80    5 PAGE UM   TIFFANY             APR. 05, 1980  14:13:12
            5.0T1   495                       
0          SIMULATE OS/360 CLOSE.
            
           ASSEMBLE USING THE (163/1) MACRO LIBRARY.
00163/012   PL1 COMPILER             SETPFX          SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.SETPFX.SA.012(1)         120
            5.0T1   496  PL1_COMPILER.SETPFX.SA.012         1 LINE     80    7 PAGE UM   TIFFANY             APR. 05, 1980  14:13:46
            5.0T1   496                       
0          ALTERNATE ROUTINES: SETPFX, GETPFX WITH MULTICHARACTER PREFIX FEATURES.
0          Referenced by comments of: 233/1 
00163/013A  PL1 COMPILER             UPDATE          UC             W062:PL1.UP                                                     
            5.0T1   497  PL1_COMPILER.UPDATE.UC.013         1 LINE     73   40 PAGE UM   TIFFANY             JULY 03, 1981  12:52:57
            5.0T1   497                       
0          OLD *CDUPDATE INPUT TO PRODUCE CURRENT MTS PL/I COMPILER FROM OS/360 RELEASE 21.8 SOURCE.
            
           THE COMPILER MAY BE PRODUCED IN THE FOLLOWING WAY: 
            
              1) USE PL/1 MAINTENANCE HENPECKER (506/8) TO PICK UP THE SPECIFIC MODULE
                 SOURCES FROM IEBUPDT OS RELEASE 21.8 SOURCE.
              2) APPLY UPDATE (THIS SUBCOMPONENT).
              3) RUN *ASMH (737/30) WITH MACRO LIBRARY OSMACLIB (163/1).
            
           SEE (506/11) FOR INFORMATION REGARDING THE INSTALLATION AND
           MAINTENANCE OF VERSION 5.5 OF THE PL/I-F COMPILER.
            
           **********************************************************************************
           D5.0 CHANGES:
            
           (ALREADY DISTRIBUTED ON D4.3A): MODULE IEMCI UPDATED.
            
           (NEW CHANGES):  AB UPDATED TO FIX A MESSAGE FOR A BAD SORMGIM PARM.
           **********************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00163/014   PL1 COMPILER             ESDLIST         SA  G          S1430 4.3T1 VLO FSNAME=PL1_COMPILER.ESDLIST.SA.014(1)        122
            5.0T1   498  PL1_COMPILER.ESDLIST.SA.014        1 LINE     80    2 PAGE UM   TIFFANY             APR. 05, 1980  14:14:37
            5.0T1   498                       
0          TABLE OF SOMETHING OR OTHER USED BY PL/1 MAINTENANCE LLXU (506/7).
           SOURCE GENERATED BY PL/1 MAINTENANCE CRELCS (506/1).
00163/015A  PL1 COMPILER             IEMTM           SA  G          W062:IEMTM                                                      
            5.0T1   499  PL1_COMPILER.IEMTM.SA.015          1 LINE     72   23 PAGE UM   TIFFANY             JULY 03, 1981  12:53:20
            5.0T1   499                       
0          COMPILER PHASE "TM" WHICH PRODUCES THE SYMPL1 RECORDS IF THE "TEST" OPTION IS USED.
00163/016   PL1 COMPILER             *PL1            OE  G          *PL1                                                            
            5.0T1   500  PL1_COMPILER.*PL1.OE.016           1 LINE   5204    9 PAGE UM   TIFFANY             JULY 03, 1981  12:53:27
            5.0T1   500  *PL1                 
0          Referenced by comments of: 163/17 
00163/017A  PL1 COMPILER             PL1LINKLIB      OE  G          ETC:PL1LINKLIB                                                  
            5.0T1   501  PL1_COMPILER.PL1LINKLIB.OE.017     1 LINE  17779  238 PAGE UM   TIFFANY             JULY 03, 1981  12:53:28
            5.0T1   501  ETC:PL1LINKLIB       
0          A DIR-TYPE LIBRARY LINE FILE FROM WHICH *PL1 (163/16) LOADS PHASES DURING
           COMPILATION. 
00164/001  *LCS                                      OC  G          *LCS                                                            
            5.0T1   502  LCS..OC.001                        1 LINE     24    1 PAGE UM   MTA                 JULY 03, 1981  12:53:41
            5.0T1   502  *LCS                 
0          CONTAINS THE SINGLE LOADER CARD:
            LCS            LCSYMBOL
0          Referenced by comments of: 129/2, 303/4, 631/15, 631/23, 739/4, 740/4 
00170/001  *LISTVTOC                                 SA           # (OBSOLETE)                                                      
            D2T1    105                                                             UM                                              
00171/001  *BATCH                                    SA           # (OBSOLETED BY *BATCH*)                                          
            D2T1    327                                                             UM                                              
00172/001  *UMIST                    MACRO LIB       SM             S1430 4.3T1 VLO FSNAME=UMIST.MACRO_LIB.SM.001(1)             126
            5.0T1   503  UMIST.MACRO_LIB.SM.001             1 LINE     72    8 PAGE UM   SALISBURY           SEP. 07, 1979  09:14:41
            5.0T1   503                       
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 UMIST.SYMS (172/2) AND UMIST.PSECT (172/3)
           (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.
0          Referenced by comments of: 172/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00172/002  *UMIST                    /SYMBOLS        SA             S1430 4.3T1 VLO FSNAME=UMIST./SYMBOLS.SA.002(1)              127
            5.0T1   504  UMIST./SYMBOLS.SA.002              1 LINE     72    3 PAGE UM   SALISBURY           SEP. 07, 1979  09:16:28
            5.0T1   504                       
0          THIS IS THE UMIST.SYMS COPY SECTION
0          Referenced by comments of: 172/1, 172/4, 172/5, 172/7, 172/8, 172/9 
00172/003  *UMIST                    /PSECT          SA             S1430 4.3T1 VLO FSNAME=UMIST./PSECT.SA.003(1)                128
            5.0T1   505  UMIST./PSECT.SA.003                1 LINE     72    4 PAGE UM   SALISBURY           SEP. 07, 1979  09:16:38
            5.0T1   505                       
0          THIS IS THE UMIST.PSECT COPY SECTION.
0          Referenced by comments of: 172/1, 172/5, 172/7, 172/8, 172/9 
00172/004  *UMIST                    /ENTRY          SA             S1430 4.3T1 VLO FSNAME=UMIST./ENTRY.SA.004(1)                129
            5.0T1   506  UMIST./ENTRY.SA.004                1 LINE     71    5 PAGE UM   SALISBURY           SEP. 07, 1979  09:17:28
            5.0T1   506                       
0          "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH
           AS POSSIBLE. COPIES UMIST.SYMS (172/2).
0          Referenced by comments of: 172/11 
00172/005  *UMIST                    /TABLES         SA             S1430 4.3T1 VLO FSNAME=UMIST./TABLES.SA.005(1)               130
            5.0T1   507  UMIST./TABLES.SA.005               1 LINE     73    5 PAGE UM   SALISBURY           SEP. 07, 1979  09:17:51
            5.0T1   507                       
0          MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS.
           CALLED "/TABLES". COPIES UMIST.SYMS (172/2) AND UMIST.PSECT (172/3).
00172/006  *UMIST                    /MISC           SA             S1430 4.3T1 VLO FSNAME=UMIST./MISC.SA.006(1)                 131
            5.0T1   508  UMIST./MISC.SA.006                 1 LINE     72    1 PAGE UM   SALISBURY           SEP. 07, 1979  09:18:10
            5.0T1   508                       
0          "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK,
           INPUT BUFFER, AND FREE STORAGE.
00172/007  *UMIST                    /UTILITIES      SA             S1430 4.3T1 VLO FSNAME=UMIST./UTILITIES.SA.007(1)            132
            5.0T1   509  UMIST./UTILITIES.SA.007            1 LINE     77   24 PAGE UM   SALISBURY           SEP. 07, 1979  09:18:57
            5.0T1   509                       
0          "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH
           SUPPORT PRIMITIVE FUNCTIONS. THIS ASSEMBLY USES THE "SWPR" RPQ'ED
           INSTRUCTION. COPIES UMIST.SYMS (172/2) AND UMIST.PSECT (172/3).
00172/008  *UMIST                    /FCNS/1         SA             S1430 4.3T1 VLO FSNAME=UMIST./FCNS/1.SA.008(1)               133
            5.0T1   510  UMIST./FCNS/1.SA.008               1 LINE     71   27 PAGE UM   SALISBURY           SEP. 07, 1979  09:19:10
            5.0T1   510                       
0          "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS. COPIES UMIST.SYMS
           (172/2) AND UMIST.PSECT (172/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00172/009  *UMIST                    /FCNS/2         SA             S1430 4.3T1 VLO FSNAME=UMIST./FCNS/2.SA.009(1)               134
            5.0T1   511  UMIST./FCNS/2.SA.009               1 LINE     71   19 PAGE UM   SALISBURY           SEP. 07, 1979  09:19:24
            5.0T1   511                       
0          "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS. COPIES UMIST.SYMS (172/2) AND
           UMIST.PSECT (172/3).
0          Referenced by comments of: 172/1, 172/11 
00172/010  *UMIST                    TEST DECK       D              S1430 4.3T1 VLO FSNAME=UMIST.TEST_DECK.D.010(1)              135
            5.0T1   512  UMIST.TEST_DECK.D.010              1 LINE     80    3 PAGE UM   SALISBURY           SEP. 07, 1979  09:20:43
            5.0T1   512                       
0          "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF.
00172/011  *UMIST                    OBJECT          OE  G          *UMIST                                                          
            5.0T1   513  UMIST.OBJECT.OE.011                1 LINE  15736    8 PAGE UM   SALISBURY           JULY 03, 1981  12:53:50
            5.0T1   513  *UMIST               
0          LINKEDITED OBJECT OF (172/4) THROUGH (172/9). 
00175/001  *GPAKLIB                                  OL           # (OBSOLETE)                                                      
            D4T1    500  GPAKLIB..OL.                       1 SEQ    3888   40 DISK UM                       JAN. 22, 1973  18:22.11
00178/001  *PIL - OLD VERSION                        SA  S        # (OBSOLETE)                                                      
            D3T1    447  PIL..SA.1                          1 SEQ      80  215 PAGE UM                       JULY 31, 1973  00:38.27
0          Obsoleted by the new *PIL (566).
00179/001  *GPAKGRID                                 OC           # (OBSOLETE)                                                      
            D4T1    501  GPAKGRID..OC.                      1 LINE     80    7 DISK UM                       JAN. 22, 1973  22:06.14
00180/001   SCANDASD                                 SA           # (OBSOLETE)                                                      
            D2T1    117                                                             UM                                              
00182/001  *SNOBOL4                  MAIN            SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4.MAIN.SA.001(1)                 502
            5.0T1   514  SNOBOL4.MAIN.SA.001                1 SEQ      80  138 PAGE UM   SWARTZ              JULY 31, 1973  00:40.21
            5.0T1   514                       
0          BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4.
           COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13).
0          Referenced by comments of: 182/6 
00182/002  *SNOBOL4                  SUBR            SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4.SUBR.SA.002(1)                 503
            5.0T1   515  SNOBOL4.SUBR.SA.002                1 SEQ      80   46 PAGE UM   SWARTZ              JULY 31, 1973  00:41.01
            5.0T1   515                       
0          BELL LABS SOURCE FOR SUBROUTINES.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00182/003  *SNOBOL4                  MACROS          SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4.MACROS.SA.003(1)               504
            5.0T1   516  SNOBOL4.MACROS.SA.003              1 SEQ      80   41 PAGE UM   SWARTZ              JULY 31, 1973  00:44.08
            5.0T1   516                       
0          BELL LABS SOURCE FOR MACROS.
00182/004  *SNOBOL4                  GENERATE        C              S0563 D4T1 VLO FSNAME=SNOBOL4.GENERATE.C.004(1)              505
            5.0T1   517  SNOBOL4.GENERATE.C.004             1 LINE    128    1 PAGE UM   SWARTZ              MAY  06, 1975  19:57:08
            5.0T1   517                       
0          MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4.
00182/005  *SNOBOL4                  LINKEDIT        C              S0563 D4T1 VLO FSNAME=SNOBOL4.LINKEDIT.C.005(1)              506
            5.0T1   518  SNOBOL4.LINKEDIT.C.005             1 LINE     54    1 PAGE UM   SWARTZ              MAY  06, 1975  19:57:10
            5.0T1   518                       
0          MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4.
00182/006  *SNOBOL4                  UPDATE          UU  G          S0563 D4T1 VLO FSNAME=SNOBOL4.UPDATE.UU.006(1)               507
            5.0T1   519  SNOBOL4.UPDATE.UU.006              1 LINE     80   23 PAGE UM   SWARTZ              APR. 30, 1975  22:36:24
            5.0T1   519                       
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                                                        
            5.0T1   520  SNOBOL4.OBJECT.OE.007              1 SEQ   32767   27 PAGE UM   SWARTZ              JULY 03, 1981  12:54:07
            5.0T1   520  *SNOBOL4             
0          OBJECT FROM ASSEMBLY OF MAIN AND SUBR, WHICH HAS BEEN COMBINED AND PURGED
           BY *LINKEDIT.
00182/008  *SNOBOL4                  MACLEAN         SP  G          S0563 D4T1 VLO FSNAME=SNOBOL4.MACLEAN.SP.008(1)              509
            5.0T1   521  SNOBOL4.MACLEAN.SP.008             1 SEQ      80    1 PAGE UM   SWARTZ              JULY 31, 1973  00:47.21
            5.0T1   521                       
0          SOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSEMBLY.
0          Referenced by comments of: 334/11 
00182/009  *SNOBOL4                  MACLEAN         OC  G          S0563 D4T1 VLO FSNAME=SNOBOL4.MACLEAN.OC.009(1)              510
            5.0T1   522  SNOBOL4.MACLEAN.OC.009             1 SEQ      80    2 PAGE UM   SWARTZ              JULY 31, 1973  00:47.23
            5.0T1   522                       
0          RUN THIS PLUS *PL1LIB.
00182/010  *SNOBOL4                  TEST PGMS       SS  G          S0563 D4T1 VLO FSNAME=SNOBOL4.TEST_PGMS.SS.010(1)            511
            5.0T1   523  SNOBOL4.TEST_PGMS.SS.010           1 LINE     72    3 PAGE UM   SWARTZ              APR. 30, 1975  22:36:43
            5.0T1   523                       
0          PROGRAMS FOR TESTING SNOBOL4.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00182/011  *SNOBOL4                  MLINK           SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4.MLINK.SA.011(1)                512
            5.0T1   524  SNOBOL4.MLINK.SA.011               1 LINE     28    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:16
            5.0T1   524                       
0          COPY SECTION.
0          Referenced by comments of: 182/1, 334/1 
00182/012  *SNOBOL4                  PARMS           SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4.PARMS.SA.012(1)                513
            5.0T1   525  SNOBOL4.PARMS.SA.012               1 LINE     68    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:18
            5.0T1   525                       
0          COPY SECTION.
0          Referenced by comments of: 182/1, 334/1 
00182/013  *SNOBOL4                  MDATA           SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4.MDATA.SA.013(1)                514
            5.0T1   526  SNOBOL4.MDATA.SA.013               1 LINE     39    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:14
            5.0T1   526                       
0          COPY SECTION.
0          Referenced by comments of: 182/1, 334/1 
00191/001  *TRANSNOBOL                               SS  G          *TRANSNOBOL                                                     
            5.0T1   527  TRANSNOBOL..SS.001                 1 LINE     76    4 PAGE UM   SWARTZ              JULY 03, 1981  12:54:12
            5.0T1   527  *TRANSNOBOL          
0          CONVERT SNOBOL3 TO SNOBOL4. UNCHANGED SINCE DIST 1.
00193/001  *OSMAC                                    SM             *OSMAC                                                          
            5.0T1   528  OSMAC..SM.001                      1 LINE     72  159 PAGE UM   H YOUNG             JULY 03, 1981  12:54:13
            5.0T1   528  *OSMAC               
0          MACRO LIBRARY FOR OS/360 RELEASE 21.0
0          Referenced by comments of: 193/2, 234/19, 458/1, 458/79, 545/3, 545/4, 545/9, 545/11, 545/13, 545/15, 545/16,
                 545/24, 545/26, 545/28, 545/30, 545/32, 545/34, 545/36, 545/38 
00193/002  *OSMAC                    BUILD PROGRAM   SA     MACB    W116:BUILDMAC.S                                                 
            5.0T1   529  OSMAC.BUILD_PROGRAM.SA.002         1 SEQ      80   11 PAGE UM   H YOUNG             JULY 03, 1981  12:54:35
            5.0T1   529                       
0          THIS IS A PROGRAM TO BUILD *OSMAC (193/1).  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:
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0                   LA    1,72
                    STH   1,LEN
00193/003  *OSMAC                    BUILD PROGRAM   OC             W116:BUILDMAC                                                   
            5.0T1   530  OSMAC.BUILD_PROGRAM.OC.003         1 LINE     80    3 PAGE UM   H YOUNG             JULY 03, 1981  12:54:36
            5.0T1   530                       
00196/001   PAGEIT                                   SA           # (OBSOLETE)                                                      
            D3T2      4  PAGEIT..SA.1                       1 LINE     80    3 PAGE UM                       JULY 31, 1973  20:59.23
0          Obsoleted by PAGLOAD (643).
00197/001A *SMDS                                     M              *SMDS                                                           
            5.0T1   531  SMDS..M.001                        1 LINE    168    6 PAGE UM   MTS                 AUG. 05, 1981  02:08:09
            5.0T1   531  *SMDS                
0          MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET).  USED IN CONJUNCTION WITH FMSG MACRO IN MTS.
00198/001A  GUINFO/CUINFO SUBRS      D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=INFO                        
            5.0T4   294  GUINFO/CUINFO_SUBRS.D5.0.SA.001    1 LINE     80   19 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  22:49:16
            5.0T10  198                       
0          SUBROUTINES TO ALLOW USERS TO ACCESS (OR CHANGE) CERTAIN INFORMATION IN THE MTS DSECT.
           COPIES COPY:LLMPSEQU (087), COPY:JOBSTA (413/9), AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2 
00198/002A  GUINFO/CUINFO SUBRS      UPDATE          UC  G          MTS:INFOUPD                                                     
            5.0T4   295  GUINFO/CUINFO_SUBRS.UPDAT.UC.002   1 LINE     79   10 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  22:49:17
            5.0T10  199                       
0          UPDATE TO PRODUCE CURRENT SOURCE.
           UPDATE USES $CONTROL *IN* POSN=INFO.
00198/003A  GUINFO/CUINFO SUBRS                      OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00198/004A  GUINFO/CUINFO SUBRS                      L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=INFO.LIST                  
            5.0T4   296  GUINFO/CUINFO_SUBRS..L.004         1 LINE    133   58 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  22:49:29
            5.0T10  200                       
00200/001  *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          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.001(1)               524
            5.0T1   532  GPSS.OS_SOURCE.SA.001              1 SEQ      80   20 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:43
            5.0T1   532                       
0          THE MTS IMPLEMENTATION OF GPSS OFFERS SEVERAL FEATURES NOT PROVIDED BY THE IBM VERSION:
            
              1.  IMPROVED LISTING CONTROL WITH BATCH AND TERMINAL DEFAULTS.
1                                                                                               MON AUG 05/96   18:37:45   Page   97
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0             2.  LINE NUMBERS IN THE LISTING.
              3.  SENSIBLE CARRIAGE CONTROL (FAR FEWER PAGE SKIPS).
              4.  CAPABILITY OF DIRECTLY INTERFACING WITH SUBROUTINES THAT USE OS/I CALLING SEQUENCES.
              5.  SUBROUTINES TO ALLOW MANIPULATION OF GPSS DATA FROM FORTRAN PROGRAMS.
              6.  TIME ESTIMATES TO ALLOW ERROR OUTPUT TO BE PRINTED BEFORE MTS TERMINATES A JOB.
              7.  ATTENTION INTERRUPT CONTROL TO TELL THE USER WHERE HIS PROGRAM IS AND HOW MUCH HAS BEEN SPENT.
              8.  PADDING AND TRUNCATION OF JOBTAPES FOR DISK SPACE ECONOMY.
              9.  ERROR MESSAGE SUMMARY.
            
           THREE PRINCIPLE APPENDAGES ARE TACKED ONTO THE IBM MODULES TO MAKE THESE IMPROVEMENTS.  FIRST, A DRIVER PROGRAM
           IS PROVIDED TO SCAN THE PAR= FIELD AND SET-UP DEFAULTS; AND, AT THE CONCLUSION OF A RUN, TO PRINT AN ERROR
           SUMMARY WHERE APPROPRIATE.  SECOND, A SET OF INTERFACE SUBROUTINES PROVIDE A SIMULATED OS/360 ENVIRONMENT.
           ONE NOTABLE FEATURE OF THIS INTERFACE IS THAT SCRATCH FILE I/O IS IMPLEMENTED BY USE OF VIRTUAL MEMORY FILES.
           THIRD, A SET OF SMALL "HOOK" SUBROUTINES IS PROVIDED.  BECAUSE OF THE VOLATILITY OF THE RATHER POOR IBM
           CODE, SUCH FUNCTIONS AS IMPROVED LISTING CONTROL WERE IMPLEMENTED BY ASSEMBLING "HOOKS" INTO THE IBM CODE,
           EACH "HOOK" RESULTING IN A CALL TO A "HOOK" SUBROUTINE.  WHILE THE "HOOK" SUBROUTINES EXHIBIT WHAT WOULD
           APPEAR TO BE BAD PROGRAMMING PRACTICES (E.G. ABSOLUTE DISPLACEMENTS IN INSTRUCTIONS), THEY HAVE BEEN CODED
           IN SUCH A WAY AS TO BE INSENSITIVE TO REASSEMBLY OF THE IBM MODULES.
            
           COMPONENTS (201/1) THROUGH (201/11) ARE THE OS/360 SOURCE FOR GPSS VERSION 1 MODIFICATION LEVEL 3.
0          Referenced by comments of: 201/1 
00201/002  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.002(1)               525
            5.0T1   533  GPSS.OS_SOURCE.SA.002              1 SEQ      80   11 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:44
            5.0T1   533                       
00201/003  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.003(1)               526
            5.0T1   534  GPSS.OS_SOURCE.SA.003              1 SEQ      80    8 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:46
            5.0T1   534                       
00201/004  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.004(1)               527
            5.0T1   535  GPSS.OS_SOURCE.SA.004              1 SEQ      80   62 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:50
            5.0T1   535                       
00201/005  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.005(1)               528
            5.0T1   536  GPSS.OS_SOURCE.SA.005              1 SEQ      80  102 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:55
            5.0T1   536                       
00201/006  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.006(1)               529
            5.0T1   537  GPSS.OS_SOURCE.SA.006              1 SEQ      80   22 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:57
            5.0T1   537                       
00201/007  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.007(1)               530
            5.0T1   538  GPSS.OS_SOURCE.SA.007              1 SEQ      80   88 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:02
            5.0T1   538                       
00201/008  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.008(1)               531
            5.0T1   539  GPSS.OS_SOURCE.SA.008              1 SEQ      80  112 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:08
            5.0T1   539                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00201/009  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.009(1)               532
            5.0T1   540  GPSS.OS_SOURCE.SA.009              1 SEQ      80  152 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:16
            5.0T1   540                       
00201/010  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.010(1)               533
            5.0T1   541  GPSS.OS_SOURCE.SA.010              1 SEQ      80  109 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:23
            5.0T1   541                       
00201/011  *GPSS                     OS SOURCE       SA  G          S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.011(1)               534
            5.0T1   542  GPSS.OS_SOURCE.SA.011              1 SEQ      80   57 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:28
            5.0T1   542                       
0          Referenced by comments of: 201/1 
00201/012  *GPSS                     GPSSUPDATE      UU  G          S0563 D4T1 VLO FSNAME=GPSS.GPSSUPDATE.UU.012(1)              535
            5.0T1   543  GPSS.GPSSUPDATE.UU.012             1 LINE     80    7 PAGE UM   FLANIGAN            AUG. 13, 1974  15:30.13
            5.0T1   543                       
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          S0563 D4T1 VLO FSNAME=GPSS.GPSS.OS.O.OE.013(1)               536
            5.0T1   544  GPSS.GPSS.OS.O.OE.013              1 LINE    255   43 PAGE UM   FLANIGAN            AUG. 13, 1974  15:28.34
            5.0T1   544                       
0          OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES.
00201/014  *GPSS                     GPSSMAC         SM  G          S0563 D4T1 VLO FSNAME=GPSS.GPSSMAC.SM.014(1)                 537
            5.0T1   545  GPSS.GPSSMAC.SM.014                1 LINE     80    8 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.29
            5.0T1   545                       
0          MACRO LIBRARY NEEDED FOR ALL ASSEMBLIES.
00201/015  *GPSS                     GPSS.S          SA  G          S0563 D4T1 VLO FSNAME=GPSS.GPSS.S.SA.015(1)                  538
            5.0T1   546  GPSS.GPSS.S.SA.015                 1 LINE     80    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.33
            5.0T1   546                       
0          SOURCE FOR MTS DRIVER PROGRAM.
00201/016  *GPSS                     GPSSPKG.S       SA  G          S0563 D4T1 VLO FSNAME=GPSS.GPSSPKG.S.SA.016(1)               539
            5.0T1   547  GPSS.GPSSPKG.S.SA.016              1 LINE     80    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.38
            5.0T1   547                       
0          SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS.
00201/017  *GPSS                     HOOKSECT.S      SA  G          S0563 D4T1 VLO FSNAME=GPSS.HOOKSECT.S.SA.017(1)              540
            5.0T1   548  GPSS.HOOKSECT.S.SA.017             1 LINE     80   15 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.50
            5.0T1   548                       
0          SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00201/018  *GPSS                     JUNK.S          SA  G          S0563 D4T1 VLO FSNAME=GPSS.JUNK.S.SA.018(1)                  541
            5.0T1   549  GPSS.JUNK.S.SA.018                 1 LINE     80    3 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.42
            5.0T1   549                       
0          SOURCE FOR SEVERAL SUBROUTINES.
00201/019  *GPSS                     GPSS.MTS.O      OE  G          S0563 D4T1 VLO FSNAME=GPSS.GPSS.MTS.O.OE.019(1)              542
            5.0T1   550  GPSS.GPSS.MTS.O.OE.019             1 LINE    255    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:49.02
            5.0T1   550                       
0          OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S.
00201/020  *GPSS                     *GPSS           OE  G          *GPSS                                                        543
            5.0T1   551  GPSS.*GPSS.OE.020                  1 SEQ   32767   34 PAGE UM   FLANIGAN            JULY 03, 1981  12:55:10
            5.0T1   551  *GPSS                
0          LINKEDIT OF GPSS.OS.O AND GPSS.MTS.O WITH ENTRY POINT ESD ITEMS PURGED.
           NOTE:  GPSS CALL THE FOLLOWING LIBRARY SUBROUTINES:  COST, SETIME, AND TIMNTRP.
00201/021  *GPSS                     GPSSLIB         SA  G          S0563 D4T1 VLO FSNAME=GPSS.*GPSSLIB.SA.021(1)                544
            5.0T1   552  GPSS.GPSSLIB.SA.021                1 LINE     80    8 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.45
            5.0T1   552                       
0          SOURCE FOR SUBROUTINES WHICH ALLOW THE MANIPULATION OF GPSS DATA FROM FORTRAN SUBROUTINES.
00201/022  *GPSS                     *GPSSLIB        OC  G          *GPSSLIB                                                        
            5.0T1   553  GPSS.*GPSSLIB.OC.022               1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 03, 1981  12:55:13
            5.0T1   553  *GPSSLIB             
00201/023  *GPSS                     *GPSSERR        M   G          *GPSSERR                                                        
            5.0T1   554  GPSS.*GPSSERR.M.023                1 LINE     73    9 PAGE UM   FLANIGAN            JULY 03, 1981  12:55:13
            5.0T1   554  *GPSSERR             
0          ERROR MESSAGE FILE.
00201/024  *GPSS                     TESTPROG        S   G          S0563 D4T1 VLO FSNAME=GPSS.TESTPROG.S.024(1)                 547
            5.0T1   555  GPSS.TESTPROG.S.024                1 LINE     80    1 PAGE UM   FLANIGAN            APR. 06, 1974  14:49.23
            5.0T1   555                       
0          SOURCE FOR TEST PROGRAM.
00201/025  *GPSS                     TESTOUTPUT      D   G          S0563 D4T1 VLO FSNAME=GPSS.TESTOUTPUT.D.025(1)               548
            5.0T1   556  GPSS.TESTOUTPUT.D.025              1 LINE    129    3 PAGE UM   FLANIGAN            NOV. 02, 1974  13:57.22
            5.0T1   556                       
0          OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM.
00201/026  *GPSS                     NOTES           WF             S0563 D4T1 VLO FSNAME=GPSS.NOTES.WF.026(1)                   549
            5.0T1   557  GPSS.NOTES.WF.026                  1 LINE    107    1 PAGE UM   FLANIGAN            MAR. 06, 1974  03:34.46
            5.0T1   557                       
0          WRITEUP DESCRIBING GPSS/360.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00204/001   FORTRANG                 IEYFORT         SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYFORT.SA.001(1)             550
            5.0T1   558  FORTRANG.IEYFORT.SA.001            1 LINE     72   11 PAGE UM   HANSEN              JUNE 01, 1976  10:43:12
            5.0T1   558                       
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, 666/1 
00204/002   FORTRANG                 IEYFORT         OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYFORT.OC.002(1)             551
            5.0T1   559  FORTRANG.IEYFORT.OC.002            1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  10:43:23
            5.0T1   559                       
00204/003   FORTRANG                 IEYFORTD        SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYFORTD.SA.003(1)            552
            5.0T1   560  FORTRANG.IEYFORTD.SA.003           1 LINE     72   12 PAGE UM   HANSEN              JUNE 01, 1976  10:43:18
            5.0T1   560                       
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          S0563 D4T1 VLO FSNAME=FORTRANG.IEYFORTD.OC.004(1)            553
            5.0T1   561  FORTRANG.IEYFORTD.OC.004           1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  10:43:37
            5.0T1   561                       
00204/005   FORTRANG                 IEYALL          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYALL.SA.005(1)              554
            5.0T1   562  FORTRANG.IEYALL.SA.005             1 LINE     80   87 PAGE UM   HANSEN              OCT. 06, 1975  14:36:02
            5.0T1   562                       
0          FORTRAN G ALLOCATE MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS
           (204/23).
00204/006   FORTRANG                 IEYALL          OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYALL.OC.006(1)              555
            5.0T1   563  FORTRANG.IEYALL.OC.006             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:38
            5.0T1   563                       
00204/007   FORTRANG                 IEYEXT          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYEXT.SA.007(1)              556
            5.0T1   564  FORTRANG.IEYEXT.SA.007             1 LINE     80   60 PAGE UM   HANSEN              OCT. 06, 1975  14:36:23
            5.0T1   564                       
0          FORTRAN G EXIT MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS (204/23).
00204/008   FORTRANG                 IEYEXT          OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYEXT.OC.008(1)              557
            5.0T1   565  FORTRANG.IEYEXT.OC.008             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:43
            5.0T1   565                       
00204/009   FORTRANG                 IEYGEN          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYGEN.SA.009(1)              558
            5.0T1   566  FORTRANG.IEYGEN.SA.009             1 LINE     80  171 PAGE UM   HANSEN              OCT. 06, 1975  14:37:56
            5.0T1   566                       
0          FORTRAN G CODE GENERATION MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING
           IEYMACROS (204/23).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00204/010   FORTRANG                 IEYGEN          OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYGEN.OC.010(1)              559
            5.0T1   567  FORTRANG.IEYGEN.OC.010             1 LINE     80    8 PAGE UM   HANSEN              JUNE 01, 1976  11:26:47
            5.0T1   567                       
00204/011   FORTRANG                 IEYINT          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYINT.SA.011(1)              560
            5.0T1   568  FORTRANG.IEYINT.SA.011             1 LINE     80    3 PAGE UM   HANSEN              OCT. 06, 1975  14:38:23
            5.0T1   568                       
0          FORTRAN G POP INTERPRETER.  COPIES IEYDINT (204/24).  ASSEMBLE USING IEYMACROS
           (204/23).
00204/012   FORTRANG                 IEYINT          OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYINT.OC.012(1)              561
            5.0T1   569  FORTRANG.IEYINT.OC.012             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:51
            5.0T1   569                       
00204/013   FORTRANG                 IEYPAR          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYPAR.SA.013(1)              562
            5.0T1   570  FORTRANG.IEYPAR.SA.013             1 LINE     80  188 PAGE UM   HANSEN              NOV. 13, 1975  09:23:17
            5.0T1   570                       
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          S0563 D4T1 VLO FSNAME=FORTRANG.IEYPAR.OC.014(1)              563
            5.0T1   571  FORTRANG.IEYPAR.OC.014             1 LINE     80    9 PAGE UM   HANSEN              JUNE 01, 1976  11:26:55
            5.0T1   571                       
0          Contains REP cards which have been incorporated into the source.
00204/015   FORTRANG                 IEYROL          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYROL.SA.015(1)              564
            5.0T1   572  FORTRANG.IEYROL.SA.015             1 LINE     80   11 PAGE UM   HANSEN              OCT. 06, 1975  14:39:13
            5.0T1   572                       
0          FORTRAN G ROLL CONTROL MODULE FOR COMPILER WORKSPACE.  ASSEMBLE USING IEYMACROS
           (204/23).
00204/016   FORTRANG                 IEYROL          OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYROL.OC.016(1)              565
            5.0T1   573  FORTRANG.IEYROL.OC.016             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:27:00
            5.0T1   573                       
00204/017   FORTRANG                 IEYOPT          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYOPT.SA.017(1)              566
            5.0T1   574  FORTRANG.IEYOPT.SA.017             1 LINE     68    3 PAGE UM   HANSEN              OCT. 08, 1975  16:28:22
            5.0T1   574                       
0          THIS IS AN OPTION SCANNER CALLED BY IEYFORT TO PARSE THE PAR FIELD.
00204/018   FORTRANG                 IEYOPT          OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYOPT.OC.018(1)              567
            5.0T1   575  FORTRANG.IEYOPT.OC.018             1 LINE    255    1 PAGE UM   HANSEN              OCT. 08, 1975  16:31:46
            5.0T1   575                       
00204/019   FORTRANG                 IEYUNF          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYUNF.SA.019(1)              568
            5.0T1   576  FORTRANG.IEYUNF.SA.019             1 LINE     80   35 PAGE UM   HANSEN              OCT. 06, 1975  14:39:38
            5.0T1   576                       
0          FORTRAN G "UNIFY" MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS
1                                                                                               MON AUG 05/96   18:37:45   Page  102
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          (204/23).
00204/020   FORTRANG                 IEYUNF          OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYUNF.OC.020(1)              569
            5.0T1   577  FORTRANG.IEYUNF.OC.020             1 LINE     80    8 PAGE UM   HANSEN              JUNE 01, 1976  11:27:04
            5.0T1   577                       
00204/021   FORTRANG                 IEYSYM          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYSYM.SA.021(1)              570
            5.0T1   578  FORTRANG.IEYSYM.SA.021             1 LINE     72   15 PAGE UM   HANSEN              DEC. 15, 1975  12:43:24
            5.0T1   578                       
0          THIS IS THE SYM CARD PRODUCING MODULE.  IT IS CALLED BY IEYFORTD (204/3).
00204/022   FORTRANG                 IEYSYM          OC  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYSYM.OC.022(1)              571
            5.0T1   579  FORTRANG.IEYSYM.OC.022             1 LINE     80    4 PAGE UM   HANSEN              DEC. 15, 1975  12:43:35
            5.0T1   579                       
00204/023   FORTRANG                 IEYMACROS       SM  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYMACROS.SM.023(1)           572
            5.0T1   580  FORTRANG.IEYMACROS.SM.023          1 LINE     80   62 PAGE UM   HANSEN              OCT. 08, 1975  16:29:23
            5.0T1   580                       
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          S0563 D4T1 VLO FSNAME=FORTRANG.IEYDINT.SA.024(1)             573
            5.0T1   581  FORTRANG.IEYDINT.SA.024            1 LINE     80   34 PAGE UM   HANSEN              OCT. 08, 1975  16:30:07
            5.0T1   581                       
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          S0563 D4T1 VLO FSNAME=FORTRANG.IEYMID.SA.025(1)              574
            5.0T1   582  FORTRANG.IEYMID.SA.025             1 LINE     80    1 PAGE UM   HANSEN              OCT. 08, 1975  16:29:36
            5.0T1   582                       
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
00204/026   FORTRANG                 IEYPRF          SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYPRF.SA.026(1)              575
            5.0T1   583  FORTRANG.IEYPRF.SA.026             1 LINE     80    1 PAGE UM   HANSEN              OCT. 08, 1975  16:29:45
            5.0T1   583                       
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
00204/027   FORTRANG                 IEYPSCT         SA  G          S0563 D4T1 VLO FSNAME=FORTRANG.IEYPSCT.SA.027(1)             576
            5.0T1   584  FORTRANG.IEYPSCT.SA.027            1 LINE     80    5 PAGE UM   HANSEN              OCT. 08, 1975  16:30:00
            5.0T1   584                       
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 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00204/028   FORTRANG                 REG OBJECT      OE  G          *FORTRANG                                                       
            5.0T1   585  FORTRANG.REG_OBJECT.OE.028         1 SEQ   32766   16 PAGE UM   HANSEN              JULY 03, 1981  12:55:39
            5.0T1   585  *FORTRANG            
0          THE LINKEDITED OBJECT OF THE REGULAR (NON-TEST) FORTRAN G COMPILER.
           IT INCLUDES IEYFORT, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, AND IEYUNF.
00204/029   FORTRANG                 TEST OBJECT     OE  G          *FTNGTEST                                                       
            5.0T1   586  FORTRANG.TEST_OBJECT.OE.029        1 SEQ   32767   17 PAGE UM   HANSEN              JULY 03, 1981  12:55:40
            5.0T1   586  *FTNGTEST            
0          THE LINKEDITED OBJECT OF THE SYM CARD PRODUCING VERSION OF THE FORTRAN G COMPILER.
           IT INCLUDES IEYFORTD, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, IEYSYM, AND IEYUNF.
00210/001  *LISP                                     SA  G          C4541C GO FSNAME=LISPSOURCE.ASMG(2)                             
            5.0T1   587  LISP..SA.001                       1 LINE     71  105 PAGE UM   MTA                 DEC. 07, 1979  09:47:53
            5.0T1   587                       
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).
           ASSEMBLE USING *ASMG (066) RATHER THAN *ASMH (737). 
00210/002  *LISP                                     OE  G          *LISP                                                           
            5.0T1   588  LISP..OE.002                       1 SEQ      80   41 PAGE UM   MTA                 JULY 03, 1981  12:56:28
            5.0T1   588  *LISP                
00210/003  *LISP                     TRANSIT         SA  G          C4541C GO FSNAME=TRANSIT.ASMG                                   
            5.0T1   589  LISP.TRANSIT.SA.003                1 LINE     93    7 PAGE UM   MTA                 JAN. 06, 1979  12:43:54
            5.0T1   589                       
0          THIS COMPONENT CONTAINS THE "HYPOTHETICAL WORLDS" FUNCTIONS, RPLACA2, RPLACD2,
           SETA2, NEWWORLD, REALWORLD, GETWORLD.
00210/004  *LISP                     EDITOR          S   G          C4541C GO FSNAME=EDIT.LISP                                      
            5.0T1   590  LISP.EDITOR.S.004                  1 LINE    152    6 PAGE UM   MTA                 JAN. 06, 1979  12:43:25
            5.0T1   590                       
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          C4541C GO FSNAME=DEBUG.LISP                                     
            5.0T1   591  LISP.BREAK.S.005                   1 LINE    126    5 PAGE UM   MTA                 JAN. 06, 1979  12:42:46
            5.0T1   591                       
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          C4541C GO FSNAME=COMPILER.LISP                                  
            5.0T1   592  LISP.COMPILER.S.006                1 LINE    116   29 PAGE UM   MTA                 DEC. 07, 1979  09:48:26
            5.0T1   592                       
0          THIS IS THE LISP SOURCE FOR THE LISP COMPILER.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00210/007  *LISP                     *LISPLIB        O   G          *LISPLIB                                                        
            5.0T1   593  LISP.*LISPLIB.O.007                1 LINE  32517   74 PAGE UM   MTA                 JULY 03, 1981  12:57:00
            5.0T1   593  *LISPLIB             
0          THIS IS A SEQ FILE WHICH CONTAINS CHECKPOINTED VERSIONS OF LESS FREQUENTLY
           USED FUNCTIONS IN A FORMAT UNDERSTOOD ONLY BY THE LISP INTERPRETER.
           IT CURRENTLY CONTAINS THE SUBCOMPONENTS TRANSIT, EDITOR, BREAK, AND COMPILER.
00212/001  *FILESNIFF                                SA  G        # (OBSOLETE)                                                      
            D3T2     49  FILESNIFF..SA.1                    1 LINE     80    6 PAGE UM                       JULY 31, 1973  21:17.52
0          Obsoleted by the FILESTATUS command (529).
00217/001  *LIBTOFASTLIB                             S            # (OBSOLETE)                                                      
            D2T1    289                                                             UM                                              
00220/001  *GOMAD                                    S            # (OBSOLETE)                                                      
            D2T1    293                                                             UM                                              
00221/001  **TP                                      S            # (OBSOLETE)                                                      
            D2T1    140                                                             UM                                              
00223/001   SIOERR SUBR                              SA  G          S0563 D4T1 VLO FSNAME=SIOERR_SUBR..SA.001(1)                 586
            5.0T1   594  SIOERR_SUBR..SA.001                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  23:54:04
            5.0T1   594                       
0          FORTRAN INTERFACE TO SETIOERR.
00223/002   SIOERR SUBR                              OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   MTA                                        
0           
           Object part of *LIBRARY (524/1)
00225/001A *SYSMAC                                   SM  G          MTA:SYSMAC                                                      
            5.0T1   595  SYSMAC..SM.001                     1 LINE     73  152 PAGE UM   MTA                 AUG. 21, 1981  04:41:44
            5.0T1   595                       
0          MTS GENERAL SYSTEM MACRO LIBRARY FOR *ASMH.  THIS VERSION IS THE SAME AS
           *SYSMAC ON THE TEST PACK (225/2) EXCEPT THAT THE COMMENTS HAVE NOT BEEN
           REMOVED.  SEE ALSO *ASMGSYSMAC (066/95) FOR *ASMG MACRO LIBRARY AND
           *ASMTSYSMAC (619/1) FOR THE *ASMT MACRO LIBRARY.
00225/002A *SYSMAC                                   SM  G          *SYSMAC                                                         
            5.0T1   596  SYSMAC..SM.002                     1 LINE     73  112 PAGE UM   MTA                 AUG. 21, 1981  04:42:25
            5.0T1   596  *SYSMAC              
0          Referenced by comments of: 225/1 
00225/003A *SYSMAC                   TEST PGM 1      SA  G          MTA:TESTIOMAC                                                   
            5.0T1   597  SYSMAC.TEST_PGM_1.SA.003           1 LINE     72   11 PAGE UM   MTA                 JULY 03, 1981  12:57:56
            5.0T1   597  MTA.:TESTIOMAC       
0          TEST PROGRAM FOR MANY MACROS IN *SYSMAC.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00225/004  *SYSMAC                   TEST PGM 2      SA  G          MTA:TESTMINMAX                                                  
            5.0T1   598  SYSMAC.TEST_PGM_2.SA.004           1 LINE     45    3 PAGE UM   MTA                 JULY 03, 1981  12:58:00
            5.0T1   598  MTA:TESTMINMAX       
0          TESTS MIN AND MAX MACROS.
00229/001  *TIDY                                     SF           # (OBSOLETE)                                                      
            D4T1    589  TIDY..SF.001                       1 SEQ      80   60 PAGE UM                       JULY 31, 1973  21:20.10
0          Obsoleted by *FTNTIDY (727).
0          Referenced by comments of: 727/1 
00231/001  *GRAPHLIB                                 SA           # (OBSOLETE)                                                      
            D4T1    591  GRAPHLIB..SA.                      1 SEQ      80  211 PAGE UM                       JULY 31, 1973  21:21.10
00233/001   PL1 LIBRARY              MACLIB          SM  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.MACLIB.SM.001(1)          468
            5.0T1   599  PL1_LIBRARY.MACLIB.SM.001          1 LINE     80   66 PAGE UM   TIFFANY             JULY 27, 1977  23:22:48
            5.0T1   599                       
0          Subcomponents (233/1) through (233/12) are older versions of the I/O routines
           also distributed in the PL1 compiler, components (163/1) through (163/12).
           They are being distributed as a part of the PL1 library since they will not
           be added to the library, work upon which has been frozen due to the arrival
           of the PL1 Optimizing Compiler (813).
            
           MACLIB is a macro library for the simulation of OS/360 stuff in MTS.
0          Referenced by comments of: 233/1, 233/41 
00233/002   PL1 LIBRARY              SAMEQU          SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.SAMEQU.SA.002(1)          469
            5.0T1   600  PL1_LIBRARY.SAMEQU.SA.002          1 SEQ      80    4 PAGE UM   TIFFANY             JULY 27, 1977  23:23:35
            5.0T1   600                       
0          COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE
0          Referenced by comments of: 233/3, 233/4, 233/5, 233/6, 233/7, 233/8, 233/9, 233/10, 233/11, 233/32 
00233/003   PL1 LIBRARY              REPLACE         SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.REPLACE.SA.003(1)         470
            5.0T1   601  PL1_LIBRARY.REPLACE.SA.003         1 SEQ      80    3 PAGE UM   TIFFANY             JULY 27, 1977  23:23:36
            5.0T1   601                       
0          ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE.
           COPIES SAMEQU (233/2).
00233/004   PL1 LIBRARY              CKLIO           SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.CKLIO.SA.004(1)           471
            5.0T1   602  PL1_LIBRARY.CKLIO.SA.004           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:23:38
            5.0T1   602                       
0          ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT.  COPIES SAMEQU (233/2).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00233/005   PL1 LIBRARY              NONSENSE        SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.NONSENSE.SA.005(1)        472
            5.0T1   603  PL1_LIBRARY.NONSENSE.SA.005        1 SEQ      80    3 PAGE UM   TIFFANY             JULY 27, 1977  23:23:40
            5.0T1   603                       
0          ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE.  COPIES SAMEQU (233/2).
00233/006   PL1 LIBRARY              FREEDDEF        SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.FREEDDEF.SA.006(1)        473
            5.0T1   604  PL1_LIBRARY.FREEDDEF.SA.006        1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:23:43
            5.0T1   604                       
0          ROUTINE TO FREE ALL DDEF'S.  COPIES SAMEQU (233/2).
00233/007   PL1 LIBRARY              FINDTIOT        SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.FINDTIOT.SA.007(1)        474
            5.0T1   605  PL1_LIBRARY.FINDTIOT.SA.007        1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:23:45
            5.0T1   605                       
0          ROUTINE TO FIND A TIOT GIVEN A "DDNAME."  COPIES SAMEQU (233/2).
00233/008   PL1 LIBRARY              DDEF            SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.DDEF.SA.008(1)            475
            5.0T1   606  PL1_LIBRARY.DDEF.SA.008            1 SEQ      80    8 PAGE UM   TIFFANY             JULY 27, 1977  23:23:48
            5.0T1   606                       
0          ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH.  COPIES SAMEQU (233/2).
00233/009   PL1 LIBRARY              OPEN            SA  G          S1143 D4.1T1 VLO FSNAME=PL1_COMPILER.OPEN.SA.009(1)           73
            5.0T1   607  PL1_LIBRARY.OPEN.SA.009            1 SEQ      80   16 PAGE UM   TIFFANY             MAY  13, 1978  17:06:25
            5.0T1   607                       
0          SIMULATE OS/360 OPEN.  CURRENTLY ONLY BSAM AND QSAM ARE SUPPORTED.  COPIES
           SAMEQU (233/2).
00233/010   PL1 LIBRARY              ROUT            SA  G          S1143 D4.1T1 VLO FSNAME=PL1_COMPILER.ROUT.SA.010(1)           74
            5.0T1   608  PL1_LIBRARY.ROUT.SA.010            1 SEQ      80   26 PAGE UM   TIFFANY             MAY  13, 1978  17:06:27
            5.0T1   608                       
0          LIST OF VARIOUS ROUTINES.  COPIES SAMEQU (233/2).
00233/011   PL1 LIBRARY              CLOSE           SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.CLOSE.SA.011(1)           478
            5.0T1   609  PL1_LIBRARY.CLOSE.SA.011           1 SEQ      80    4 PAGE UM   TIFFANY             JULY 27, 1977  23:23:56
            5.0T1   609                       
0          SIMULATE OS/360 CLOSE.  COPIES SAMEQU (233/2).
00233/012   PL1 LIBRARY              QUIT            SA  G          S0563 D4T1 VLO FSNAME=PL1_COMPILER.QUIT.SA.012(1)            479
            5.0T1   610  PL1_LIBRARY.QUIT.SA.012            1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:23:57
            5.0T1   610                       
0          QUIT ONLY IN BATCH
0          Referenced by comments of: 233/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00233/013   PL1 LIBRARY              PL1MACLIB       SM  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.PL1MACLIB.SM.013(1)        592
            5.0T1   611  PL1_LIBRARY.PL1MACLIB.SM.013       1 LINE     80   13 PAGE UM   TIFFANY             JULY 27, 1977  23:56:02
            5.0T1   611                       
0          MACRO LIBRARY FOR PL/I LIBRARY ROUTINES.
0          Referenced by comments of: 233/41 
00233/014   PL1 LIBRARY              SNAP            SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.SNAP.SA.014(1)             593
            5.0T1   612  PL1_LIBRARY.SNAP.SA.014            1 SEQ      80    3 PAGE UM   TIFFANY             JULY 27, 1977  23:56:16
            5.0T1   612                       
0          SUBROUTINES TO DUMP.  USED BY IHEDUMP.
00233/015   PL1 LIBRARY              CNTL            SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.CNTL.SA.015(1)             594
            5.0T1   613  PL1_LIBRARY.CNTL.SA.015            1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  23:56:17
            5.0T1   613                       
0          SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND MTS 'CONTROL' SUBROUTINE.
00233/016   PL1 LIBRARY              RAND            SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.RAND.SA.016(1)             595
            5.0T1   614  PL1_LIBRARY.RAND.SA.016            1 LINE     80    2 PAGE UM   TIFFANY             JULY 28, 1977  00:03:58
            5.0T1   614                       
0          RANDOM NUMBER GENERATOR
00233/017   PL1 LIBRARY              USERID          SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.USERID.SA.017(1)           596
            5.0T1   615  PL1_LIBRARY.USERID.SA.017          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:00
            5.0T1   615                       
0          RUN TIME SUBR
00233/018   PL1 LIBRARY              BATCH           SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.BATCH.SA.018(1)            597
            5.0T1   616  PL1_LIBRARY.BATCH.SA.018           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:02
            5.0T1   616                       
0          RUN TIME SUBROUTINE TO CALL CANREPLY
00233/019   PL1 LIBRARY              ELAPSED         SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.ELAPSED.SA.019(1)          598
            5.0T1   617  PL1_LIBRARY.ELAPSED.SA.019         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:05
            5.0T1   617                       
0          RUN TIME SUBROUTINE
00233/020   PL1 LIBRARY              CPUTIME         SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.CPUTIME.SA.020(1)          599
            5.0T1   618  PL1_LIBRARY.CPUTIME.SA.020         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:07
            5.0T1   618                       
0          RUN TIME SUBROUTINE
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00233/021   PL1 LIBRARY              UN-QSAM         SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.UN-QSAM.SA.021(1)          600
            5.0T1   619  PL1_LIBRARY.UN-QSAM.SA.021         1 LINE     80   18 PAGE UM   TIFFANY             JULY 27, 1977  01:52:09
            5.0T1   619                       
0          I/O ROUTINES FOR NON-STANDARD PL/I FILES -- IHEITB
00233/022   PL1 LIBRARY              KEY             SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.KEY.SA.022(1)              601
            5.0T1   620  PL1_LIBRARY.KEY.SA.022             1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:12
            5.0T1   620                       
0          NEXTKEY AND LASTKEY
00233/023   PL1 LIBRARY              ATTACH          SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.ATTACH.SA.023(1)           602
            5.0T1   621  PL1_LIBRARY.ATTACH.SA.023          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:14
            5.0T1   621                       
0          PROGRAM TO CALL DDEF AT RUN TIME
00233/024   PL1 LIBRARY              DISPLAY         SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.DISPLAY.SA.024(1)          603
            5.0T1   622  PL1_LIBRARY.DISPLAY.SA.024         1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:16
            5.0T1   622                       
0          REPLACEMENT FOR AN IBM SUBROUTINE.  OUTPUT ON SERCOM, INPUT FROM GUSER.
00233/025   PL1 LIBRARY              IHEMAIN         SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHEMAIN.SA.025(1)          604
            5.0T1   623  PL1_LIBRARY.IHEMAIN.SA.025         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:19
            5.0T1   623                       
0          MAIN PROGRAM IF USER DOES NOT GIVE ONE
0          Referenced by comments of: 233/43 
00233/026   PL1 LIBRARY              IHEOST          SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHEOST.SA.026(1)           605
            5.0T1   624  PL1_LIBRARY.IHEOST.SA.026          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:21
            5.0T1   624                       
0          GIVES TIME AND DATE.
00233/027   PL1 LIBRARY              SIGNOFF         SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.SIGNOFF.SA.027(1)          606
            5.0T1   625  PL1_LIBRARY.SIGNOFF.SA.027         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:23
            5.0T1   625                       
0          RUN TIME SUBR
00233/028   PL1 LIBRARY              SYSERR          SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.SYSERR.SA.028(1)           607
            5.0T1   626  PL1_LIBRARY.SYSERR.SA.028          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:26
            5.0T1   626                       
0          SYSTEM AND ERROR
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00233/029   PL1 LIBRARY              IHELTT          SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHELTT.SA.029(1)           608
            5.0T1   627  PL1_LIBRARY.IHELTT.SA.029          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:28
            5.0T1   627                       
0          TRANSFER VECTOR TABLE IN *PL1LIB.
00233/030   PL1 LIBRARY              IHELTV          SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHELTV.SA.030(1)           609
            5.0T1   628  PL1_LIBRARY.IHELTV.SA.030          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:30
            5.0T1   628                       
0          TRANSFER VECTOR TABLE IN SHAREDPL1LIB.
00233/031   PL1 LIBRARY              IHESAP          SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHESAP.SA.031(1)           610
            5.0T1   629  PL1_LIBRARY.IHESAP.SA.031          1 LINE     80    8 PAGE UM   TIFFANY             JULY 27, 1977  01:52:32
            5.0T1   629                       
0          PL/I PROGRAM INITIALIZER.
0          Referenced by comments of: 233/43 
00233/032   PL1 LIBRARY              FINFO           SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.FINFO.SA.032(1)            611
            5.0T1   630  PL1_LIBRARY.FINFO.SA.032           1 SEQ      80    4 PAGE UM   TIFFANY             JULY 27, 1977  01:52:35
            5.0T1   630                       
0          ROUTINE TO GET INFORMATION FOR A PL/I FILE.  COPIES SAMEQU (233/2).
00233/033   PL1 LIBRARY              READ/WRITE      SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.READ/WRITE.SA.033(1)       612
            5.0T1   631  PL1_LIBRARY.READ/WRITE.SA.033      1 SEQ      80    5 PAGE UM   TIFFANY             JULY 27, 1977  01:52:38
            5.0T1   631                       
0          ROUTINES IHEREAD AND IHERITE.
00233/034   PL1 LIBRARY              NOTE/POINT      SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.NOTE/POINT.SA.034(1)       613
            5.0T1   632  PL1_LIBRARY.NOTE/POINT.SA.034      1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:40
            5.0T1   632                       
0          SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND THE MTS SUBROUTINES 'NOTE' AND 'POINT'.
00233/035   PL1 LIBRARY              PLCALL ET AL    SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.PLCALL_ET_AL.SA.035(1)     614
            5.0T1   633  PL1_LIBRARY.PLCALL_ET_AL.SA.035    1 LINE     80    6 PAGE UM   ENGLE               MAY  17, 1976  14:28:46
            5.0T1   633                       
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          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHEATTN.SA.036(1)          615
            5.0T1   634  PL1_LIBRARY.IHEATTN.SA.036         1 LINE     80    9 PAGE UM   TIFFANY             JULY 27, 1977  01:52:50
            5.0T1   634                       
0          ASSEMBLE USING *SYSMAC.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00233/037   PL1 LIBRARY              IHEZZZZZ        SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHEZZZZZ.SA.037(1)         616
            5.0T1   635  PL1_LIBRARY.IHEZZZZZ.SA.037        1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:52
            5.0T1   635                       
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          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.CALLPL1.SA.038(1)          617
            5.0T1   636  PL1_LIBRARY.CALLPL1.SA.038         1 LINE     72   10 PAGE UM   TIFFANY             JULY 27, 1977  01:52:55
            5.0T1   636                       
0          SUBROUTINES PL1SUB, PL1FCN, IPLFCN, PLDFCN, I2FCN, CPXFCN, CDFCN, LGLFCN,
           LG1FCN, PL1BEG, PL1END, AND IPL1RC WHICH CAN BE USED BY NON-PL1 PROGRAMS
           TO CALL PL1 PROCEDURES.
0          Referenced by comments of: 233/43 
00233/039   PL1 LIBRARY              MAXLEN          SA  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.MAXLEN.SA.040(1)           619
            5.0T1   637  PL1_LIBRARY.MAXLEN.SA.039          1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:54:07
            5.0T1   637                       
0          MAXLEN OBTAINS THE MAXIMUM LENGTH FOR A GIVEN PL/1 CHARACTER VARYING STRING.
00233/040   PL1 LIBRARY              IHEDBNA         SA  G          S1143 D4.1T1 VLO FSNAME=PL1_LIBRARY.IHEDBNA.SA.040(1)         83
            5.0T1   638  PL1_LIBRARY.IHEDBNA.SA.040         1 SEQ      80    4 PAGE UM   TIFFANY             MAY  13, 1978  17:07:38
            5.0T1   638                       
0          THIS REPLACES THE IBM VERSION OF IHEDBNA WHICH CAUSED ADDRESSABILITY
           INTERRUPTS, ESPECIALLY IN *LINKEDIT WHILE CONVERTING BIT STRINGS TO
           ARITHMETIC VALUES.
00233/041   PL1 LIBRARY              UPDATE          UI  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.UPDATE.UI.041(1)           620
            5.0T1   639  PL1_LIBRARY.UPDATE.UI.041          1 LINE     73    9 PAGE UM   TIFFANY             JULY 27, 1977  01:54:11
            5.0T1   639                       
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 (233/1), AND
           *SYSMAC.
00233/042   PL1 LIBRARY              ENDPL1LIB       OC  G          S0563 D4T1 VLO FSNAME=PL1_LIBRARY.ENDPL1LIB.OC.042(1)        621
            5.0T1   640  PL1_LIBRARY.ENDPL1LIB.OC.042       1 LINE     24    1 PAGE UM   TIFFANY             JULY 27, 1977  01:54:14
            5.0T1   640                       
0          CONTAINS 5 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD).
00233/043   PL1 LIBRARY              *PL1LIB         OL  G          *PL1LIB                                                         
            5.0T1   641  PL1_LIBRARY.*PL1LIB.OL.043         1 SEQ    2642    3 PAGE UM   TIFFANY             JULY 03, 1981  12:59:29
            5.0T1   641  *PL1LIB              
0          NON-REENTRANT PART OF RUN-TIME LIBRARY; THE REMAINDER IS IN SHAREDPL1LIB.
           NOTE:  IHEMAIN (233/25) MUST COME AFTER BOTH IHESAP (233/31) AND CALLPL1
                  (233/38) IN THE DIR RECORD FOR THIS LIBRARY.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00233/044   PL1 LIBRARY              SHAREDPL1LIB    OE  G          SEG2:SHAREDPL1LIB                                               
            5.0T1   642  PL1_LIBRARY.SHAREDPL1LIB.OE.044    1 LINE    256   58 PAGE UM   TIFFANY             JULY 03, 1981  12:59:30
            5.0T1   642  SEG2:SHAREDPL1LIB    
0          REENTRANT PART OF RUN-TIME LIBRARY; LOADED INTO SHARED VM AT IPL BY PISTLE.
           CONTAINS IHEPRD WHICH IS SET UP CORRECTLY BY CRELCSPR (506/2).
00233/045   PL1 LIBRARY              UNSP PREAD      SA  G  PREA    S1153 UNSP VLO FSNAME=PREAD.S                                   
            5.0T1   643  PL1_LIBRARY.UNSP_PREAD.SA.045      1 LINE     80    3 PAGE UM   UNSP                NOV. 09, 1975  19:29:47
            5.0T1   643                       
0          THE FOLLOWING PROCEDURES CONSTITUTE THE UM "UNSUPPORTED" PL/1 LIBRARY.
            
           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    S1153 UNSP VLO FSNAME=PWRITE.S                                  
            5.0T1   644  PL1_LIBRARY.UNSP_PWRITE.SA.046     1 LINE     80    3 PAGE UM   UNSP                NOV. 09, 1975  19:29:40
            5.0T1   644                       
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    S1153 UNSP VLO FSNAME=SETLEN.S                                  
            5.0T1   645  PL1_LIBRARY.UNSP_SETLEN.SA.047     1 LINE     80    1 PAGE UM   UNSP                NOV. 09, 1975  19:30:07
            5.0T1   645                       
0          SETLEN RESETS THE LENGTH OF A PL/1 CHARACTER VARYING STRING.
00233/048   PL1 LIBRARY              UNSP LIBRARY    OL  O          UNSP:PL1LIB                                                     
            5.0T1   646  PL1_LIBRARY.UNSP_LIBRARY.OL.048    1 LINE    105    1 PAGE UM   UNSP                JULY 03, 1981  13:00:51
            5.0T1   646  UNSP:PL1LIB          
00233/049A  PL1 LIBRARY              UNSP LIBRARY    WF             S1153 UNSP VLO FSNAME=PL1LIB.FMT                                
            5.0T1   647  PL1_LIBRARY.UNSP_LIBRARY.WF.049    1 LINE     81    4 PAGE UM   UNSP                SEP. 15, 1980  16:43:35
            5.0T1   647                       
00234/001   8ASR                     8ASRMAC         SM  G          S0563 D4T1 VLO FSNAME=8ASR.8ASRMAC.SM.001(1)                 628
            5.0T1   648  8ASR.8ASRMAC.SM.001                1 LINE     80   16 PAGE UM   LUBBERS             JUNE 02, 1976  20:37:42
            5.0T1   648                       
0          MACRO LIBRARY FOR DEC ASSEMBLERS.
0          Referenced by comments of: 234/4, 234/6 
00234/002   8ASR                     8ASREQU.C       SA  G          S0563 D4T1 VLO FSNAME=8ASR.8ASREQU.C.SA.002(1)               629
            5.0T1   649  8ASR.8ASREQU.C.SA.002              1 LINE     80    4 PAGE UM   LUBBERS             JULY 19, 1977  11:33:37
            5.0T1   649                       
0          COPY SECTION.
0          Referenced by comments of: 234/4, 234/6 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00234/003   8ASR                     8ASRST.C        SA  G          S0563 D4T1 VLO FSNAME=8ASR.8ASRST.C.SA.003(1)                630
            5.0T1   650  8ASR.8ASRST.C.SA.003               1 LINE     80    7 PAGE UM   LUBBERS             JULY 19, 1977  11:34:01
            5.0T1   650                       
0          COPY SECTION.
0          Referenced by comments of: 234/4, 234/6 
00234/004   8ASR                     MAIN PROGRAM    SA  G          S0563 D4T1 VLO FSNAME=8ASR.MAIN_PROGRAM.SA.004(1)            631
            5.0T1   651  8ASR.MAIN_PROGRAM.SA.004           1 LINE     99   33 PAGE UM   LUBBERS             JULY 19, 1977  11:34:21
            5.0T1   651                       
0          MAIN PROGRAM FOR *8ASR, *9ASR, AND *1ASR.
           COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1).
0          Referenced by comments of: 234/6 
00234/005   8ASR                     MAIN PROGRAM    OC  G          S0563 D4T1 VLO FSNAME=8ASR.MAIN_PROGRAM.OC.005(1)            632
            5.0T1   652  8ASR.MAIN_PROGRAM.OC.005           1 LINE     80   10 PAGE UM   LUBBERS             JULY 19, 1977  11:34:41
            5.0T1   652                       
0          Referenced by comments of: 234/10, 234/13, 234/18 
00234/006   8ASR                     SUBROUTINES     SA  G          S0563 D4T1 VLO FSNAME=8ASR.SUBROUTINES.SA.006(1)             633
            5.0T1   653  8ASR.SUBROUTINES.SA.006            1 LINE    105   10 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:06
            5.0T1   653                       
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          S0563 D4T1 VLO FSNAME=8ASR.SUBROUTINES.OC.007(1)             634
            5.0T1   654  8ASR.SUBROUTINES.OC.007            1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:13
            5.0T1   654                       
0          Referenced by comments of: 234/10, 234/13, 234/18 
00234/008   8ASR                     PDP-8 OP TBLS   SA  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-8_OP_TBLS.SA.008(1)           635
            5.0T1   655  8ASR.PDP-8_OP_TBLS.SA.008          1 LINE     99    4 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:53
            5.0T1   655                       
0          ASSEMBLY TO DEFINE PDP-8 OPERATION CODES FOR *8ASR.
00234/009   8ASR                     PDP-8 OP TBLS   OC  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-8_OP_TBLS.OC.009(1)           636
            5.0T1   656  8ASR.PDP-8_OP_TBLS.OC.009          1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:06
            5.0T1   656                       
0          Referenced by comments of: 234/10 
00234/010   8ASR                     *8ASR           OE  G          *8ASR                                                           
            5.0T1   657  8ASR.*8ASR.OE.010                  1 SEQ   11502    7 PAGE UM   LUBBERS             JULY 03, 1981  13:01:24
            5.0T1   657  *8ASR                
0          OBJECT CONSISTING OF (234/5) + (234/7) + (234/9).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00234/011   8ASR                     PDP-9 OP TBLS   SA  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-9_OP_TBLS.SA.011(1)           638
            5.0T1   658  8ASR.PDP-9_OP_TBLS.SA.011          1 LINE     99    4 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:18
            5.0T1   658                       
0          ASSEMBLY TO DEFINE PDP-9 OPERATION CODES FOR *9ASR.
00234/012   8ASR                     PDP-9 OP TBLS   OC  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-9_OP_TBLS.OC.012(1)           639
            5.0T1   659  8ASR.PDP-9_OP_TBLS.OC.012          1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:26
            5.0T1   659                       
0          Referenced by comments of: 234/13 
00234/013   8ASR                     *9ASR           OE  G          *9ASR                                                           
            5.0T1   660  8ASR.*9ASR.OE.013                  1 SEQ   11502    7 PAGE UM   LUBBERS             JULY 03, 1981  13:01:26
            5.0T1   660  *9ASR                
0          OBJECT CONSISTING OF (234/5) + (234/7) + (234/12).
00234/014   8ASR                     PDP-1 OP TBLS   SA  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-1_OP_TBLS.SA.014(1)           641
            5.0T1   661  8ASR.PDP-1_OP_TBLS.SA.014          1 LINE     99    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:35
            5.0T1   661                       
0          ASSEMBLY TO DEFINE PDP-1 OPERATION CODES FOR *1ASR.
00234/015   8ASR                     PDP-1 OP TBLS   OC  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-1_OP_TBLS.OC.015(1)           642
            5.0T1   662  8ASR.PDP-1_OP_TBLS.OC.015          1 LINE     80    6 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:43
            5.0T1   662                       
0          Referenced by comments of: 234/18 
00234/016   8ASR                     FRIDEN TR TBL   SA             S0563 D4T1 VLO FSNAME=8ASR.FRIDEN_TR_TBL.SA.016(1)           643
            5.0T1   663  8ASR.FRIDEN_TR_TBL.SA.016          1 LINE     99    3 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:57
            5.0T1   663                       
0          ASSEMBLY TO DEFINE TRANSLATE TABLE FOR FRIDEN TERMINAL USED IN CONNECTION WITH *1ASR.
00234/017   8ASR                     FRIDEN TR TBL   OC             S0563 D4T1 VLO FSNAME=8ASR.FRIDEN_TR_TBL.OC.017(1)           644
            5.0T1   664  8ASR.FRIDEN_TR_TBL.OC.017          1 LINE     80    3 PAGE UM   LUBBERS             JUNE 02, 1976  20:43:05
            5.0T1   664                       
0          Referenced by comments of: 234/18 
00234/018   8ASR                     *1ASR           OE  G          *1ASR                                                           
            5.0T1   665  8ASR.*1ASR.OE.018                  1 SEQ   11986    7 PAGE UM   LUBBERS             JULY 03, 1981  13:01:29
            5.0T1   665  *1ASR                
0          OBJECT CONSISTING OF (234/5) + (234/7) + (234/15) + (234/17).
00234/019   8ASR                     OS INTERFACE    SA             S0563 D4T1 VLO FSNAME=8ASR.OS_INTERFACE.SA.019(1)            646
            5.0T1   666  8ASR.OS_INTERFACE.SA.019           1 LINE     80    8 PAGE UM   LUBBERS             JUNE 29, 1973  21:38.49
            5.0T1   666                       
0          SUBROUTINES TO PROVIDE MTS ENVIRONMENT FOR 8ASR IN OS/360.  NOT COMPLETELY CHECKED OUT.
           OBJECT NOT DISTRIBUTED.  ASSEMBLE USING *OSMAC (193) OR USE OS/360.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00234/020   8ASR                     LINK EDITOR     SA  G          S0563 D4T1 VLO FSNAME=8ASR.LINK_EDITOR.SA.020(1)             647
            5.0T1   667  8ASR.LINK_EDITOR.SA.020            1 LINE     80   77 PAGE UM   LUBBERS             JAN. 07, 1974  16:41.59
            5.0T1   667                       
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          S0563 D4T1 VLO FSNAME=8ASR.LINK_EDITOR.OC.021(1)             648
            5.0T1   668  8ASR.LINK_EDITOR.OC.021            1 LINE     80    8 PAGE UM   LUBBERS             JAN. 07, 1974  16:42.37
            5.0T1   668                       
0          Referenced by comments of: 234/25 
00234/022   8ASR                     PDP8 SIMULATOR  SA  G          S0563 D4T1 VLO FSNAME=8ASR.PDP8_SIMULATOR.SA.022(1)          649
            5.0T1   669  8ASR.PDP8_SIMULATOR.SA.022         1 LINE     80   28 PAGE UM   LUBBERS             JUNE 29, 1973  21:42.44
            5.0T1   669                       
0          PDP-8 SIMULATOR SECTION OF *8LINK.  COPIES 8PANEL (234/24).
00234/023   8ASR                     PDP8 SIMULATOR  OC  G          S0563 D4T1 VLO FSNAME=8ASR.PDP8_SIMULATOR.OC.023(1)          650
            5.0T1   670  8ASR.PDP8_SIMULATOR.OC.023         1 LINE     80    2 DISK UM   LUBBERS             JUNE 29, 1973  21:47.24
            5.0T1   670                       
0          Referenced by comments of: 234/25 
00234/024   8ASR                     8PANEL          SA  G          S0563 D4T1 VLO FSNAME=8ASR.8PANEL.SA.024(1)                  651
            5.0T1   671  8ASR.8PANEL.SA.024                 1 LINE     80    3 PAGE UM   LUBBERS             JUNE 29, 1973  21:43.27
            5.0T1   671                       
0          COPY SECTION.
0          Referenced by comments of: 234/20, 234/22 
00234/025   8ASR                     *8LINK          OE  G          *8LINK                                                          
            5.0T1   672  8ASR.*8LINK.OE.025                 1 SEQ    7776   11 PAGE UM   LUBBERS             JULY 03, 1981  13:01:35
            5.0T1   672  *8LINK               
0          LINK EDIT OF (234/21) + (234/23).
00234/026   8ASR                     MEMO 329        WF             S0563 D4T1 VLO FSNAME=8ASR.MEMO_329.WF.026(1)                653
            5.0T1   673  8ASR.MEMO_329.WF.026               1 LINE    234   32 PAGE UM   LUBBERS             JAN. 24, 1977  21:23:27
            5.0T1   673                       
0          THIS IS COMPUTING CENTER MEMO 329 -- "*8ASR PDP-8 ASSEMBLER AND *8LINK LINK
           EDITOR AND LOADER"
00238/001  *2250PLOT                                 SA           # (OBSOLETE)                                                      
            D4T1    654  2250PLOT..SA.                      1 SEQ      80    4 PAGE UM                       JULY 31, 1973  21:29.07
00241/001  *TRACK                                    SA           # (OBSOLETE)                                                      
            D4T1    655  TRACK..SA.                         1 SEQ      80    8 PAGE UM                       JULY 31, 1973  21:29.51
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00243/001   BINEBCD                                  SA  G          S0563 D4T1 VLO FSNAME=BINEBCD..SA.001(1)                     656
            5.0T1   674  BINEBCD..SA.001                    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  02:04:19
            5.0T1   674                       
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        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00243/003   BINEBCD                                  SA  G          S0563 D4T1 VLO FSNAME=BINEBCD..SA.003(1)                     657
            5.0T1   675  BINEBCD..SA.003                    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  02:04:21
            5.0T1   675                       
0          SAME SUBROUTINE, BUT WITH ERROR CHECKING.  OBJECT NOT DISTRIBUTED.
00244/001  **CT                                                   # (OBSOLETE)                                                      
            D2T1    138                                                             UM                                              
00249/001  *COPY                                     SA           # (OBSOLETE)                                                      
            D4T1    658  COPY..SA.001                       1 LINE     80    4 PAGE UM                       JULY 27, 1977  02:04:23
00251/001  *IEBUPDAT                                 SP  O          S0563 D4T1 VLO FSNAME=IEBUPDAT..SP.001(1)                    660
            5.0T1   676  IEBUPDAT..SP.001                   1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  21:31.45
            5.0T1   676                       
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                                                       
            5.0T1   677  IEBUPDAT..OC.002                   1 LINE     80    5 PAGE UM   TIFFANY             JULY 03, 1981  13:01:39
            5.0T1   677  *IEBUPDAT            
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00253/001   LINE DIRECTORY SORT                      SA           # (OBSOLETE)                                                      
            D2T1    121                                                             UM                                              
0          Obsoleted by *VALIDATEFILE (546).
00254/001   BSLOAD                                   SA  G        # (OBSOLETE)                                                      
            D3.1T1  192  BSLOAD..SA.1                       1 LINE     80   26 PAGE UM                       MAR. 06, 1974  03:34.57
00256/001A  STATISTICS COMBINE       *CMB            C              *CMB                                                            
            5.0T1   678  STATISTICS_COMBINE.*CMB.C.001      1 LINE     31    1 PAGE UM   WSG                 JULY 03, 1981  13:01:40
            5.0T1   678  *CMB                 
0          COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2).
           INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00256/002   STATISTICS COMBINE       COMBINE PGM     SA  G          S1319 D4.2T1 VLO FSNAME=STATISTICS_COMBINE.COMBIN.SA.002(1)  129
            5.0T1   679  STATISTICS_COMBINE.COMBIN.SA.002   1 LINE     80    7 PAGE UM   WSG                 OCT. 02, 1978  11:48:07
            5.0T1   679                       
0          PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/1).
           PROGRAM WILL ASK FOR TAPE DRIVE WHERE OUTPUT TAPE IS MOUNTED, THEN ASK FOR INPUT TAPE
           DRIVE NAMES.  COMBINE PROCESS IS ENDED BY ENTERING "DONE" FOR AN INPUT DRIVE NAME.
           THIS PROGRAM PRODUCES TAPES WHICH ARE BLOCKED IN A RATHER NON-STANDARD MANNER.
           HOWEVER, MOST SYSTEM PROGRAMS WHICH READ *STATISTICS DATA, ARE CAPABLE OF
           DEBLOCKING THESE TAPES.  SOURCE IN LINES 1,999.
0          Referenced by comments of: 256/1 
00256/003   STATISTICS COMBINE       COMBINE PGM     OC  G          SYS:CMB                                                         
            5.0T1   680  STATISTICS_COMBINE.COMBIN.OC.003   1 LINE     80    2 PAGE UM   WSG                 JULY 03, 1981  13:01:45
            5.0T1   680  SYS.:CMB             
00257/001  *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                                                            
            5.0T1   681  RECEIPT_CARDS.*RCP.C.001           1 LINE     31    1 PAGE UM   DONNELLY            JULY 03, 1981  13:01:46
            5.0T1   681  *RCP                 
0          COMMAND FILE TO RUN BATCH RECEIPT (S-8) CARD GENERATOR PROGRAM (258/3).
           INVOKED BY ENTERING "MTS *RCP" FROM OPERATORS CONSOLE.
00258/002   RECEIPT CARDS            RECEIPT PGM     SA     RECP    W035:RCP                                                        
            5.0T1   682  RECEIPT_CARDS.RECEIPT_PGM.SA.002   1 LINE     80    5 PAGE UM   DONNELLY            JULY 03, 1981  13:01:46
            5.0T1   682                       
0          PROGRAM TO GENERATE MTS BATCH RECEIPT CARDS.
00258/003   RECEIPT CARDS            RECEIPT PGM     OC             SYS:RCP                                                         
            5.0T1   683  RECEIPT_CARDS.RECEIPT_PGM.OC.003   1 LINE     80    2 PAGE UM   DONNELLY            JULY 03, 1981  13:01:47
            5.0T1   683  SYS.:RCP             
0          Referenced by comments of: 258/1 
00259/001  *LIST                                     SA           # (OBSOLETE)                                                      
            D2T1    332                                                             UM                                              
00260/001   SSP                                                   # (NOT DISTRIBUTED)                                               
            D3T2    127                                                             UM                                              
00261/001   SLIP                     SLIP FTN        SF  G          S0563 D4T1 VLO FSNAME=SLIP.*SLIP_FTN.SF.001(1)               668
            5.0T1   684  SLIP.SLIP_FTN.SF.001               1 LINE     84   25 PAGE UM   MTA                 DEC. 21, 1975  20:30:52
            5.0T1   684                       
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.
            
1                                                                                               MON AUG 05/96   18:37:45   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          THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR *SLIP.
00261/002   SLIP                     SLIP PRIM       SA  G          S0563 D4T1 VLO FSNAME=SLIP.*SLIP_PRIM.SA.002(1)              669
            5.0T1   685  SLIP.SLIP_PRIM.SA.002              1 LINE     79    4 PAGE UM   MTA                 MAY  03, 1977  15:46:19
            5.0T1   685                       
0          THIS IS THE ASSEMBLY SOURCE FOR *SLIP PRIMITIVES. CONTAINS MTS COMMANDS AT
           THE FRONT OF THE FILE FOR ASSEMBLY.
00261/003   SLIP                     *SLIP           OL  G          *SLIP                                                           
            5.0T1   686  SLIP.*SLIP.OL.003                  1 SEQ    2040   37 PAGE UM   MTA                 JULY 03, 1981  13:01:50
            5.0T1   686  *SLIP                
00261/004   SLIP                     *SLIPDEC        SF  G  SDEC    *SLIPDEC                                                        
            5.0T1   687  SLIP.*SLIPDEC.SF.004               1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  13:01:52
            5.0T1   687  *SLIPDEC             
0          THIS IS A SET OF FORTRAN DECLARATIONS FOR ALL SLIP FUNCTIONS.  IT IS TO BE
           USED BY PROGRAMS WHICH CALL THE *SLIP PACKAGE.
00261/005   SLIP                     LSLIP FTN       SF  O          S1153 UNSP VLO FSNAME=LSLIP.S                                   
            5.0T1   688  SLIP.LSLIP_FTN.SF.005              1 LINE     84   30 PAGE UM   UNSP                JUNE 22, 1976  16:35:26
            5.0T1   688                       
0          THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR THE "LITTLE SLIP" PACKAGE.
0          Referenced by comments of: 261/7 
00261/006   SLIP                     LSLIP LIBRARY   OL  O          UNSP:LSLIPLIB                                                   
            5.0T1   689  SLIP.LSLIP_LIBRARY.OL.006          1 LINE    946   36 PAGE UM   UNSP                JULY 03, 1981  13:02:06
            5.0T1   689  UNSP:LSLIPLIB        
00261/007A  SLIP                     LSLIP LIBRARY   P              UNSP:LSLIPLIB.W                                                 
            5.0T1   690  SLIP.LSLIP_LIBRARY.P.007           1 LINE     69    1 PAGE UM   UNSP                JULY 03, 1981  13:02:09
            5.0T1   690                       
0          A WRITEUP FOR (261/5).
00265/001  *1                                        SM             *1                                                              
            5.0T1   691  1..SM.001                          1 LINE     80   31 PAGE UM   SALISBURY           JULY 03, 1981  13:02:10
            5.0T1   691  *1                   
0          MACRO LIBRARY FOR LIST PROCESSING IN ASSEMBLY LANGUAGE.  SIMILAR TO L6.
00267/001  *DOWNDATE                                 SA  O          S0563 D4T1 VLO FSNAME=DOWNDATE..SA.001(1)                    675
            5.0T1   692  DOWNDATE..SA.001                   1 LINE     80    9 PAGE UM   MTA                 JULY 27, 1977  02:09:53
            5.0T1   692                       
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 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00267/002  *DOWNDATE                                 OE  O          *DOWNDATE                                                       
            5.0T1   693  DOWNDATE..OE.002                   1 LINE   2626    2 PAGE UM   MTA                 JULY 03, 1981  13:02:15
            5.0T1   693  *DOWNDATE            
0          INCLUDES SCANPAR (267/3) OBJECT.
0          Referenced by comments of: 267/4 
00267/003  *DOWNDATE                 SCANPAR         SA             S0563 D4T1 VLO FSNAME=DOWNDATE.SCANPAR.SA.003(1)             677
            5.0T1   694  DOWNDATE.SCANPAR.SA.003            1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  02:09:57
            5.0T1   694                       
0          SUBROUTINE CALLED BY DOWNDATE (267/1) AND UNEDIT (561/1) TO SCAN PARAMETERS.
0          Referenced by comments of: 267/1, 267/2, 561/1 
00267/004  *DOWNDATE                 SCANPAR         OC           # (PART OF *DOWNDATE)                                             
            D4T1    678  DOWNDATE.SCANPAR.OC.004            1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:09:59
            D4T2    191                       
0          Part of *DOWNDATE (267/2).
00268/001   @TESTITP                                 S            # (OBSOLETE)                                                      
            D2T1    421                                                             UM                                              
00270/001A  DISMOUNT SUBR                            SA  G          TAPE:DISMOUNT.S                                                 
            5.0T1   695  DISMOUNT_SUBR..SA.001              1 LINE     70    3 PAGE UM   SHERRY              JULY 03, 1981  13:02:16
            5.0T1   695                       
0          This subroutine produces $RELEASE commands which are passed to CMDNOE for
           processing.
00270/002A  DISMOUNT SUBR                            OC  G          SEG2:DISMOUNT                                                   
            5.0T1   696  DISMOUNT_SUBR..OC.002              1 LINE    741    1 PAGE UM   SHERRY              JULY 03, 1981  13:02:17
            5.0T1   696  SEG2:DISMOUNT        
0           
           *****************************************************************************
           D5.0 version:
            
           The object for the DISMOUNT subroutine, which formerly resided in *CLSMOUNT
           (101/2), has been moved to the file SEG2:DISMOUNT because it cannot be loaded
           with the IPLCS option.
           *****************************************************************************
00271/001   MOUNT SUBR                                            # (OBSOLETE)                                                   680
            D4T1    680  MOUNT_SUBR..SA.001                 1 LINE     80    3 PAGE UM                       DEC. 01, 1976  12:50:44
0          Now part of the MOUNT command (101).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00273/001   FPC                                      SA  G          S0563 D4T1 VLO FSNAME=FPC..SA.001(1)                         681
            5.0T1   697  FPC..SA.001                        1 LINE     80    6 PAGE UM   WSG                 JULY 31, 1973  21:33.40
            5.0T1   697                       
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        # (PART OF *LIBRARY)                                              
                                                                                    UM   WSG                                        
0           
           Object part of *LIBRARY (524/1)
00274/001   GLINT                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    395                                                             UM                                              
00275/001   BITWISE LOGIC - IHCLOGIC                 SA  G          S0563 D4T1 VLO FSNAME=BITWISE_LOGIC_-_IHCLOGIC..SA.001(1)    682
            5.0T1   698  BITWISE_LOGIC_-_IHCLOGIC..SA.001   1 LINE     80    4 PAGE UM   TIFFANY             SEP. 15, 1977  18:53:12
            5.0T1   698                       
0          SUBROUTINES AND, LAND, OR, LOR, XOR, LXOR, COMPL, LCOMPL, SHFTL, AND SHFTR USED FOR LOGICAL 
           OPERATIONS IN FORTRAN.
00275/002   BITWISE LOGIC - IHCLOGIC                 OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   TIFFANY                                    
0          Object part of *LIBRARY (524/1)
00278/001   IOH                                      SA  G          S1143 D4.1T1 VLO FSNAME=IOH..SA.001(1)                        85
            5.0T1   699  IOH..SA.001                        1 LINE     80  153 PAGE UM   SWARTZ              MAY  13, 1978  17:07:43
            5.0T1   699                       
0          I/O CONVERSION PACKAGE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 387/23, 400/1 
00278/002   IOH                                      OC  G          S1143 D4.1T1 VLO FSNAME=IOH..OC.002(1)                        86
            5.0T1   700  IOH..OC.002                        1 LINE     80   21 PAGE UM   SWARTZ              MAY  13, 1978  17:08:15
            5.0T1   700                       
0          OBJECT IS ALSO IN *LIBRARY (524) -- MAY NOT BE EXACTLY THE SAME VERSION.
00278/003   IOH                      IOPKG           SA  G          S1143 D4.1T1 VLO FSNAME=IOH.IOPKG.SA.003(1)                   87
            5.0T1   701  IOH.IOPKG.SA.003                   1 LINE     68    5 PAGE UM   SWARTZ              MAY  13, 1978  17:08:19
            5.0T1   701                       
0          COPIES *GDINFODSECT (594).
00278/004   IOH                      IOPKG           OC  G          S1143 D4.1T1 VLO FSNAME=IOH.IOPKG.OC.004(1)                   88
            5.0T1   702  IOH.IOPKG.OC.004                   1 LINE     80    3 PAGE UM   SWARTZ              MAY  13, 1978  17:08:22
            5.0T1   702                       
0          OBJECT IS ALSO IN *LIBRARY (524).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00278/005   IOH                      TEST PGM        SA  G          S0563 D4T1 VLO FSNAME=IOH.TEST_PGM.SA.005(1)                 687
            5.0T1   703  IOH.TEST_PGM.SA.005                1 LINE     80   11 PAGE UM   SWARTZ              JULY 27, 1977  02:10:39
            5.0T1   703                       
0          PROGRAM TO TEST IOH.
00278/006   IOH                      TEST PGM        OC  G          S0563 D4T1 VLO FSNAME=IOH.TEST_PGM.OC.006(1)                 688
            5.0T1   704  IOH.TEST_PGM.OC.006                1 LINE     80   10 PAGE UM   SWARTZ              JULY 27, 1977  02:10:41
            5.0T1   704                       
00278/007   IOH                      IOHDBLIN        SA             S0563 D4T1 VLO FSNAME=IOH.IOHDBLIN.SA.007(1)                 689
            5.0T1   705  IOH.IOHDBLIN.SA.007                1 LINE     74    7 PAGE UM   SWARTZ              JULY 27, 1977  02:10:43
            5.0T1   705                       
00278/008   IOH                      IOHDBLIN        OE             ETC:IOHDBLIN                                                    
            5.0T1   706  IOH.IOHDBLIN.OE.008                1 SEQ    2530    1 PAGE UM   SWARTZ              JULY 03, 1981  13:02:28
            5.0T1   706  ETC.:IOHDBLIN        
00278/009   IOH                      IOHDBLOUT       SA             S0563 D4T1 VLO FSNAME=IOH.IOHDBLOUT.SA.009(1)                691
            5.0T1   707  IOH.IOHDBLOUT.SA.009               1 LINE     73    5 PAGE UM   SWARTZ              JULY 27, 1977  02:10:48
            5.0T1   707                       
00278/010   IOH                      IOHDBLOUT       OE             ETC:IOHDBLOUT                                                   
            5.0T1   708  IOH.IOHDBLOUT.OE.010               1 SEQ    1363    1 PAGE UM   SWARTZ              JULY 03, 1981  13:02:30
            5.0T1   708  ETC.:IOHDBLOUT       
00278/011   IOH                      IOHEVAL         SA             S1143 D4.1T1 VLO FSNAME=IOH.IOHEVAL.SA.011(1)                 89
            5.0T1   709  IOH.IOHEVAL.SA.011                 1 LINE     65    2 PAGE UM   SWARTZ              MAY  13, 1978  17:08:24
            5.0T1   709                       
00278/012   IOH                      IOHEVAL         OC             ETC:IOHEVAL                                                     
            5.0T1   710  IOH.IOHEVAL.OC.012                 1 SEQ      80    1 PAGE UM   SWARTZ              JULY 03, 1981  13:02:32
            5.0T1   710  ETC.:IOHEVAL         
00279/001   LINPG SUBR                                            # (NOT DISTRIBUTED)                                               
            D2T1    396                                                             UM                                              
00282/001   PRINTER PLOT SUBR                        SA  G          S1011 ETC 'MISC' FSNAME=PTRPLOT                                 
            5.0T1   711  PRINTER_PLOT_SUBR..SA.001          1 LINE     69   21 PAGE UM   LIFT                FEB. 23, 1979  11:28:04
            5.0T1   711                       
0          COPIES "PLOTDS" (282/2).  ASSEMBLE WITH PAR=BATCH.
0          Referenced by comments of: 133/1, 282/2 
00282/002   PRINTER PLOT SUBR        COPY SECTION    SA  G          S1011 ETC 'MISC' FSNAME=PTRPLOTD4DS                             
            5.0T1   712  PRINTER_PLOT_SUBR.COPY_SE.SA.002   1 LINE     69    3 PAGE UM   LIFT                APR. 06, 1977  18:45:48
            5.0T1   712                       
0          "PLOTDS" COPY SECTION COPIED BY (282/1).
0          Referenced by comments of: 282/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00282/003   PRINTER PLOT SUBR                        OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   LIFT                                       
0          Object part of *LIBRARY (524/1)
00283/001A  BLOCKED I/O - QSAM                       SA  G          W116:QSAM.S                                                  697
            5.0T1   713  BLOCKED_I/O_-_QSAM..SA.001         1 LINE     80   20 PAGE UM   H YOUNG             JULY 03, 1981  13:02:42
            5.0T1   713                       
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). COPIES *GDINFODSECT (594).
0          Referenced by comments of: 137/1 
00283/002A  BLOCKED I/O - QSAM                       OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   H YOUNG                                    
0          Object part of *LIBRARY (524/1)
00285/001   SKIP SUBR                                SA  G          S1143 D4.1T1 VLO FSNAME=SKIP_SUBR..SA.001(1)                  91
            5.0T1   714  SKIP_SUBR..SA.001                  1 LINE     80    5 PAGE UM   WSG                 MAY  02, 1978  23:41:03
            5.0T1   714                       
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        # (PART OF *LIBRARY)                                              
                                                                                    UM   WSG                                        
0          Object part of *LIBRARY (524/1)
00286/001   MATH SUBRS                                            # (NOT DISTRIBUTED)                                               
            D2T1    389                                                             UM                                              
00287/001   SPIE SUBR                                SA  G          S0563 D4T1 VLO FSNAME=SPIE_SUBR..SA.001(1)                   699
            5.0T1   715  SPIE_SUBR..SA.001                  1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  02:12:55
            5.0T1   715                       
0          SUBROUTINE TO INTERFACE OS/360 'SPIE' MACRO WITH MTS 'PGNTTRP' SUBROUTINE.
00287/002   SPIE SUBR                                OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   MTA                                        
0          Object part of *LIBRARY (524/1)
00291/001A *IEHMOVE                                  SA  G  SCAN    W062:IEHMOVE.S                                                  
            5.0T1   716  IEHMOVE..SA.001                    1 LINE     80   32 PAGE UM   TIFFANY             JULY 03, 1981  13:02:50
            5.0T1   716                       
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.
           ASSEMBLE WITH PEXIT=*PEXIT (775). COPIES *GDINFODSECT (594) and *SENSEDSECT
           (3025).
1                                                                                               MON AUG 05/96   18:37:45   Page  122
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
           *********************************************************************************
           D5.0 CHANGES:
            
           1) Supports VSS (1078) parameter to build VSS-type libraries.
           2) Bad blocks are quickly detected (e.g., FB-formatted blocks with
              VB-record format specified).
           *********************************************************************************
0          Referenced by comments of: 823/9, 824/3, 824/6 
00291/002A *IEHMOVE                                  OE  G          NEW:IEHMOVE                                                     
            5.0T1   717  IEHMOVE..OE.002                    1 LINE   7960   11 PAGE UM   TIFFANY             JULY 03, 1981  13:02:58
            5.0T1   717  *IEHMOVE             
00293/001  *MACGEN                                   SA  G          S0563 D4T1 VLO FSNAME=MACGEN..SA.001(1)                      702
            5.0T1   718  MACGEN..SA.001                     1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  02:13:02
            5.0T1   718                       
0          GENERATE THE DIRECTORY FOR A MACRO LIBRARY.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 648/16 
00293/002  *MACGEN                                   OE  G          *MACGEN                                                         
            5.0T1   719  MACGEN..OE.002                     1 SEQ     658    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:03:00
            5.0T1   719  *MACGEN              
00296/001   CHECKDASD                                SA           # (OBSOLETE)                                                      
            D2T1    119                                                             UM                                              
00297/001  *LINKEDIT                 LKEDCMD         SP  G          W052:LINK.CMD.S                                                 
            5.0T1   720  LINKEDIT.LKEDCMD.SP.001            1 LINE     99   33 PAGE UM   SHERRY              JULY 03, 1981  13:03:01
            5.0T2     1                       
0          MTS LINKAGE EDITOR MAIN PROGRAM - COMMAND PROCESSOR.
           CONTAINS  A "$CONTINUE WITH W052:LINK.COM" (297/6) RECORD.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
0          Referenced by comments of: 98/1, 297/15, 706/13, 813/15, 1000/11 
00297/002  *LINKEDIT                 INCLUDE         SP  G          S1430 4.3T1 VLO FSNAME=LINKEDIT.INCLUDE.SP.002(1)            151
            5.0T1   721  LINKEDIT.INCLUDE.SP.002            1 LINE    100   17 PAGE UM   SHERRY              APR. 05, 1980  14:21:51
            5.0T2     2                       
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/003  *LINKEDIT                 PUNCH           SP  G          S0563 D4T1 VLO FSNAME=LINKEDIT.PUNCH.SP.003(1)               706
            5.0T1   722  LINKEDIT.PUNCH.SP.003              1 LINE    100    7 PAGE UM   SHERRY              JULY 27, 1977  02:13:20
            5.0T2     3                       
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00297/004  *LINKEDIT                 COMBINE         SP  G          S0563 D4T1 VLO FSNAME=LINKEDIT.COMBINE.SP.004(1)             707
            5.0T1   723  LINKEDIT.COMBINE.SP.004            1 LINE    100   10 PAGE UM   SHERRY              JULY 27, 1977  02:13:22
            5.0T2     4                       
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/005  *LINKEDIT                 SUBR            SP  G          S0563 D4T1 VLO FSNAME=LINKEDIT.SUBR.SP.005(1)                708
            5.0T1   724  LINKEDIT.SUBR.SP.005               1 LINE     99    5 PAGE UM   SHERRY              JULY 27, 1977  02:13:25
            5.0T2     5                       
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/006  *LINKEDIT                 LINK.COM        SP  G          S1430 4.3T1 VLO FSNAME=LINKEDIT.LINK.COM.SP.006(1)           152
            5.0T1   725  LINKEDIT.LINK.COM.SP.006           1 LINE    100    6 PAGE UM   SHERRY              APR. 05, 1980  14:21:54
            5.0T2     6                       
0          COPY SECTION REQUIRED TO COMPILE THE INDIVIDUAL ROUTINES.
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
0          Referenced by comments of: 297/1, 297/2, 297/3, 297/4, 297/5, 297/8, 297/9, 297/10, 297/11, 297/12, 297/14, 297/15 
00297/007  *LINKEDIT                 ASMSUBR         SA  G          S0563 D4T1 VLO FSNAME=LINKEDIT.ASMSUBR.SA.007(1)             710
            5.0T1   726  LINKEDIT.ASMSUBR.SA.007            1 LINE     71    3 PAGE UM   SHERRY              JULY 27, 1977  02:13:29
            5.0T2     7                       
0          ASMG SUBROUTINES.
00297/008  *LINKEDIT                 DUMP            SP  G          S0563 D4T1 VLO FSNAME=LINKEDIT.DUMP.SP.008(1)                711
            5.0T1   727  LINKEDIT.DUMP.SP.008               1 LINE     92    4 PAGE UM   SHERRY              JULY 27, 1977  02:13:31
            5.0T2     8                       
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          S1430 4.3T1 VLO FSNAME=LINKEDIT.UTIL.SP.009(1)               153
            5.0T1   728  LINKEDIT.UTIL.SP.009               1 LINE     88    3 PAGE UM   SHERRY              APR. 05, 1980  14:21:56
            5.0T2     9                       
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          S0563 D4T1 VLO FSNAME=LINKEDIT.UNLK.SP.010(1)                713
            5.0T1   729  LINKEDIT.UNLK.SP.010               1 LINE    100    6 PAGE UM   SHERRY              JULY 27, 1977  02:13:36
            5.0T2    10                       
0          SUBROUTINE TO UNLINK MULTIPLE-CSECT MODULES.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00297/011  *LINKEDIT                 PURGE           SP  G          S0563 D4T1 VLO FSNAME=LINKEDIT.PURGE.SP.012(1)               715
            5.0T1   730  LINKEDIT.PURGE.SP.011              1 LINE     91    3 PAGE UM   SHERRY              JULY 27, 1977  02:13:40
            5.0T2    11                       
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/012  *LINKEDIT                 XMAL            SP  G          S0563 D4T1 VLO FSNAME=LINKEDIT.XMAL.SP.013(1)                716
            5.0T1   731  LINKEDIT.XMAL.SP.012               1 LINE     96    8 PAGE UM   SHERRY              JULY 27, 1977  02:13:42
            5.0T2    12                       
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/013  *LINKEDIT                 IOCVT           SA  G          W052:LINK.IOCVT.S                                               
            5.0T1   732  LINKEDIT.IOCVT.SA.013              1 LINE     72   18 PAGE UM   SHERRY              JULY 03, 1981  13:03:22
            5.0T2    13                       
0          ROUTINES TO DO I/O CONVERSIONS, TEXT MODIFICATION, AND SCANNING;
           USED BY DISPLAY, SCAN, AND MODIFY COMMANDS.
           ASSEMBLE USING *SYSMAC.
00297/014  *LINKEDIT                 IOSUB           SP  G          W052:LINK.IOSUB.S                                               
            5.0T1   733  LINKEDIT.IOSUB.SP.014              1 LINE     91    3 PAGE UM   SHERRY              JULY 03, 1981  13:03:26
            5.0T2    14                       
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/015  *LINKEDIT                 LINK.CMD.GEN    C              W052:LINK.CMD.G                                                 
            5.0T1   734  LINKEDIT.LINK.CMD.GEN.C.015        1 LINE    106    1 PAGE UM   SHERRY              JULY 03, 1981  13:03:27
            5.0T2    15                       
0          THIS IS AN MTS COMMAND SOURCE FILE TO RECOMPILE LINK.CMD.S (297/1).
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.  THIS FILE
           CONTAINS SOME $EDIT COMMANDS TO SET THE VERSION DATE IN W052:LINK.COM
           (297/6) BEFORE COMPILING.
00297/016  *LINKEDIT                 LINKLOAD        OC  G          S1430 4.3T1 VLO FSNAME=LINKEDIT.LINKLOAD.OC.017(1)           154
            5.0T1   735  LINKEDIT.LINKLOAD.OC.016           1 LINE  32767  121 PAGE UM   SHERRY              APR. 05, 1980  14:21:59
            5.0T2    16                       
0          UNLINKEDITED OBJECT FOR LINKAGE EDITOR.  THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT.
00297/017  *LINKEDIT                 LINKEDIT.G      C              S0563 D4T1 VLO FSNAME=LINKEDIT.LINKEDIT.G.C.018(1)           721
            5.0T1   736  LINKEDIT.LINKEDIT.G.C.017          1 LINE     34    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:54
            5.0T2    17                       
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
1                                                                                               MON AUG 05/96   18:37:45   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          $RUN *LINKEDIT COMMAND WON'T BE INTERCEPTED BY THE PL1 ENVIRONMENT.
0          Referenced by comments of: 297/17 
00297/018  *LINKEDIT                 OBJECT          OE  G          *LINKEDIT                                                       
            5.0T1   737  LINKEDIT.OBJECT.OE.018             1 SEQ   32767   71 PAGE UM   SHERRY              JULY 03, 1981  13:03:31
            5.0T2    18  *LINKEDIT            
0          THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT.
00298/001  *FORTRANH                 ASM SOU         SA  G          S1319 D4.2T1 VLO FSNAME=FORTRANH.ASM_SOU.SA.001(1)           140
            5.0T1   738  FORTRANH.ASM_SOU.SA.001            1 LINE     80  282 PAGE UM   HANSEN              FEB. 04, 1979  13:57:59
            5.0T2    19                       
0          SOURCE FOR ASSEMBLER MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND
           UNIVERSITY OF ROCHESTER VERSIONS.
            
           ASSEMBLE USING (298/7) MACRO LIBRARY.
0          Referenced by comments of: 298/5, 298/7, 551/1, 666/1, 668/1 
00298/002  *FORTRANH                 FORTRAN SOU     SF  G          S1319 D4.2T1 VLO FSNAME=FORTRANH.FORTRAN_SOU.SF.002(1)       141
            5.0T1   739  FORTRANH.FORTRAN_SOU.SF.002        1 LINE     80  129 PAGE UM   HANSEN              NOV. 14, 1978  17:50:31
            5.0T2    20                       
0          SOURCE FOR FORTRAN MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND UNIVERSITY
           OF ROCHESTER VERSIONS.
0          Referenced by comments of: 298/5 
00298/003  *FORTRANH                 ROCHESTER SOU   S   G          S1319 D4.2T1 VLO FSNAME=FORTRANH.ROCHESTER_SOU.S.003(1)      142
            5.0T1   740  FORTRANH.ROCHESTER_SOU.S.003       1 LINE     80   93 PAGE UM   HANSEN              DEC. 01, 1978  12:43:27
            5.0T2    21                       
0          SOURCE (ASSEMBLER AND FORTRAN) FOR THE MODULES FROM THE UNIVERSITY OF
           ROCHESTER.
0          Referenced by comments of: 298/5 
00298/004  *FORTRANH                 OS SOURCE       S   O          S1319 D4.2T1 VLO FSNAME=FORTRANH.OS_SOURCE.S.004(1)          143
            5.0T1   741  FORTRANH.OS_SOURCE.S.004           1 SEQ      80 1263 PAGE UM   HANSEN              MAR. 26, 1979  02:37:25
            5.0T2    22                       
0          SOURCE MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS (RELEASE 20.1).
           NO PTF'S ARE INCLUDED IN THIS FILE.
0          Referenced by comments of: 298/5 
00298/005  *FORTRANH                 OBJECT          OC  G          S1319 D4.2T1 VLO FSNAME=FORTRANH.OBJECT.OC.005(1)            144
            5.0T1   742  FORTRANH.OBJECT.OC.005             1 LINE  22909  139 PAGE UM   HANSEN              MAR. 02, 1979  12:04:06
            5.0T2    23                       
0          COMPLETE, UN-LINKEDITED FORTRAN H COMPILER, CONSISTING OF OBJECT FOR (298/1),
           (298/2), (298/3), AND (298/4).
1                                                                                               MON AUG 05/96   18:37:45   Page  126
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 298/6 
00298/006  *FORTRANH                 *FORTRANH       OE  G          *FORTRANH                                                       
            5.0T1   743  FORTRANH.*FORTRANH.OE.006          1 LINE  32767  102 PAGE UM   HANSEN              JULY 03, 1981  13:04:21
            5.0T2    24  *FORTRANH            
0          LINKEDITED VERSION OF (298/5).
00298/007  *FORTRANH                 MACLIB          SM  G          S1319 D4.2T1 VLO FSNAME=FORTRANH.MACLIB.SM.007(1)            146
            5.0T1   744  FORTRANH.MACLIB.SM.007             1 LINE     72    3 PAGE UM   HANSEN              NOV. 14, 1978  18:00:46
            5.0T2    25                       
0          MACRO LIBRARY USED BY (298/1).
0          Referenced by comments of: 298/1 
00299/001  *LOVOC                                    S            # (OBSOLETE)                                                      
            D2T2    205                                                             UM                                              
00300/001  *LODEF                                    S            # (OBSOLETE)                                                      
            D2T2    206                                                             UM                                              
00302/001  *SSPSOURCE                                SF  G        # (NOT DISTRIBUTED)                                               
            D3T2    167  SSPSOURCE..SF.1                    1 LINE     80    5 PAGE UM                       FEB. 17, 1972  13:31.13
00303/001A  SORT                     SORT PGM        SA  G  SORT    S0027 DISTRB FSNAME=SORT                                        
            5.0T1   745  SORT.SORT_PGM.SA.001               1 LINE     80   91 PAGE UM   ENGLE               AUG. 25, 1981  13:02:30
            5.0T2    26                       
0          GENERAL SORT PROGRAM.  COPIES *CNFGINFODSECT (654).
           ASSEMBLE AS FOLLOWS FOR THE TWO VERSIONS:
            
            
                  &SUB     SETB  0          FOR *SORT VERSION (303/4).
            
            
                  &SUB     SETB  1          FOR SORT SUBROUTINE VERSION (303/5).
            
            
           NOTE:  OTHER VALUES FOR MBYI AND MBYT MAY BE MORE APPROPRIATE FOR MACHINES OTHER
           THAN THE AMDAHL 470V/7 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).
0          Referenced by comments of: 584/1 
00303/002A  SORT                     SORT PGM        UC  G          S0027 DISTRB FSNAME=SORTUPDATE                                  
            5.0T1   746  SORT.SORT_PGM.UC.002               1 LINE     72    7 PAGE UM   ENGLE               AUG. 25, 1981  13:02:44
            5.0T2    27                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00303/003A  SORT                     *SORT           OC  G          S0027 DISTRB FSNAME=SRT                                         
            5.0T1   747  SORT.?SORT.OC.003                  1 LINE     80   11 PAGE UM   ENGLE               AUG. 25, 1981  13:02:37
            5.0T2    28                       
0          Referenced by comments of: 303/4 
00303/004A  SORT                     *SORT           OE  G          DIST:D5.0SORT                                                   
            5.0T1   748  SORT.?SORT.OE.004                  1 LINE   7652    5 PAGE UM   ENGLE               AUG. 28, 1981  02:25:41
            5.0T2    29  *SORT                
0          LINKEDITED COMBINATION OF (303/3) AND *LCS (164).
0          Referenced by comments of: 303/1, 449/1 
00303/005A  SORT                     SORT SUBR       OC  G          S0027 DISTRB FSNAME=SRT1                                        
            5.0T1   749  SORT.SORT_SUBR.OC.005              1 LINE     80   11 PAGE UM   ENGLE               AUG. 25, 1981  13:02:40
            5.0T2    30                       
0          Referenced by comments of: 303/1, 1030/1 
00303/006A  SORT                     SORT2/3/4 SUBR  SA  G  SRT2    S0027 DISTRB FSNAME=SORT2                                       
            5.0T1   750  SORT.SORT2/3/4_SUBR.SA.006         1 LINE     80   38 PAGE UM   ENGLE               APR. 17, 1981  17:56:51
            5.0T2    31                       
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/007A  SORT                     SORT2/3/4 SUBR  UC  G          S0027 DISTRB FSNAME=SORT2UPDATE                                 
            5.0T1   751  SORT.SORT2/3/4_SUBR.UC.007         1 LINE     72    3 PAGE UM   ENGLE               APR. 17, 1981  17:57:07
            5.0T2    32                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00303/008A  SORT                     SORT2/3/4 SUBR  OC  G          S0027 DISTRB FSNAME=SRT2                                        
            5.0T1   752  SORT.SORT2/3/4_SUBR.OC.008         1 LINE     80    5 PAGE UM   ENGLE               APR. 17, 1981  17:57:12
            5.0T2    33                       
00303/009A  SORT                     MESSAGE         SA  G  MSG     S0027 DISTRB FSNAME=MESSAGE                                     
            5.0T1   753  SORT.MESSAGE.SA.009                1 LINE     80    4 PAGE UM   ENGLE               MAR. 06, 1981  16:37:04
            5.0T2    34                       
0          MODULE TO PRINT SORT ERROR MESSAGES (303/12).
0          Referenced by comments of: 303/16 
00303/010C  SORT                     MESSAGE         UC  G          S0027 DISTRB FSNAME=MESSAGEUPDATE                               
            5.0T1   754  SORT.MESSAGE.UC.010                1 LINE     72    1 PAGE UM   ENGLE               MAR. 06, 1981  16:37:32
            5.0T2    35                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00303/011A  SORT                     MESSAGE         OE  G          S0027 DISTRB FSNAME=MSG                                         
            5.0T1   755  SORT.MESSAGE.OE.011                1 LINE     80    1 PAGE UM   ENGLE               MAR. 06, 1981  16:37:45
            5.0T2    36                       
00303/012A  SORT                     MESSAGES        M              S0027 DISTRB FSNAME=SORTMESSAGES                                
            5.0T1   756  SORT.MESSAGES.M.012                1 LINE     81    3 PAGE UM   ENGLE               MAR. 07, 1981  14:45:40
            5.0T2    37                       
0          SORT ERROR MESSAGES.
           NOTE:  LINE NUMBERS ARE IMPORTANT IN THIS FILE.
0          Referenced by comments of: 303/9, 303/16 
00303/013   SORT                     CHECK           SA  G          S0563 D4T1 VLO FSNAME=SORT.CHECK.SA.009(1)                   741
            5.0T1   757  SORT.CHECK.SA.013                  1 LINE     80    8 PAGE UM   ENGLE               JULY 08, 1976  14:36:37
            5.0T2    38                       
0          MODULE TO IMPLEMENT THE SORT "CHK" PARAMETER.
0          Referenced by comments of: 303/16 
00303/014   SORT                     CHECK           OE  G          S0563 D4T1 VLO FSNAME=SORT.CHECK.OE.010(1)                   742
            5.0T1   758  SORT.CHECK.OE.014                  1 LINE     80    2 PAGE UM   ENGLE               JULY 08, 1976  14:36:44
            5.0T2    39                       
00303/015A  SORT                     DOC             WT             S0027 DISTRB FSNAME=SORTWRITEUP                                 
            5.0T1   759  SORT.DOC.WT.015                    1 LINE    256   52 PAGE UM   ENGLE               AUG. 13, 1980  13:49:41
            5.0T2    40                       
0          TEXT/360 MASTER FOR MTS VOLUME 5 SORT WRITEUP.
00303/016A  SORT                     *SORTLM         OE  G          *SORTLM                                                         
            5.0T1   760  SORT.*SORTLM.OE.016                1 LINE   2753    4 PAGE UM   ENGLE               JULY 03, 1981  13:05:53
            5.0T2    41  *SORTLM              
0          FILE CONTAINING ERROR MESSAGE PROGRAM (303/9), MESSAGES (303/12), CHECK ROUTINE (303/13),
           AND TAPESORT (303/23). LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00303/017   SORT                     SRTTMTST        SA  G          S0563 D4T1 VLO FSNAME=SORT.SRTTMTST.SA.013(1)                745
            5.0T1   761  SORT.SRTTMTST.SA.017               1 LINE     80    4 PAGE UM   ENGLE               JAN. 24, 1977  16:01:14
            5.0T2    42                       
0          MAIN PROGRAM TO PRODUCE CPU AND VMI TIMING RESULTS WHEN LOADED WITH *SORT.
00303/018   SORT                     SRTTMTST        OC  G          S0563 D4T1 VLO FSNAME=SORT.SRTTMTST.OC.014(1)                746
            5.0T1   762  SORT.SRTTMTST.OC.018               1 LINE     80    1 PAGE UM   ENGLE               JAN. 24, 1977  16:02:11
            5.0T2    43                       
00303/019   SORT                     SORTPLOT        SF  G          S0563 D4T1 VLO FSNAME=SORT.SORTPLOT.SF.015(1)                747
            5.0T1   763  SORT.SORTPLOT.SF.019               1 LINE     80    7 PAGE UM   ENGLE               MAY  18, 1976  11:19:41
            5.0T2    44                       
0          PROGRAM TO GENERATE CALCOMP TIMING PLOTS FOR THE SORT WRITEUP.
           INTERNAL STATEMENT NUMBER 87 SHOULD BE SKIPPED TO ELIMINATE THE
1                                                                                               MON AUG 05/96   18:37:45   Page  129
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          PLOTTING OF DATA POINTS.
00303/020   SORT                     SORTPLOT        OC  G          S0563 D4T1 VLO FSNAME=SORT.SORTPLOT.OC.016(1)                748
            5.0T1   764  SORT.SORTPLOT.OC.020               1 LINE   3500    4 PAGE UM   ENGLE               MAY  18, 1976  11:23:17
            5.0T2    45                       
00303/021   SORT                     SORTPLOT        D   G          S1430 4.3T1 VLO FSNAME=SORT.SORTPLOT.D.020(1)                167
            5.0T1   765  SORT.SORTPLOT.D.021                1 LINE     28    3 PAGE UM   ENGLE               FEB. 20, 1980  12:55:36
            5.0T2    46                       
0          DATA FOR SORT TIMING PLOTS, MEASURED ON AMDAHL 470V/7.
00303/022   SORT                     SORTPLOT        D   G          S1430 4.3T1 VLO FSNAME=SORT.SORTPLOT.D.021(1)                168
            5.0T1   766  SORT.SORTPLOT.D.022                1 LINE   3670   35 PAGE UM   ENGLE               FEB. 20, 1980  12:55:45
            5.0T2    47                       
0          CALCOMP PLOT FILE FOR SORT TIMING PLOTS IN SORT WRITEUP.  CONTAINS PPEN RECORDS
           FOR MULTICOLOR PLOTTING.
00303/023   SORT                     TAPESORT        SA  G          S1430 4.3T1 VLO FSNAME=SORT.TAPESORT.SA.022(1)               169
            5.0T1   767  SORT.TAPESORT.SA.023               1 LINE     80   18 PAGE UM   ENGLE               OCT. 24, 1979  16:41:35
            5.0T2    48                       
0          MODULE TO IMPLEMENT THE TAPE MERGE OPTION IN SORT.
           CONTAINS A GBLC SYMBOL &MODE WITH VALUE '6250' WHICH SPECIFIES
           THE MODE (DENSITY) FOR THE POOL TAPES MOUNTED BY THIS PROGRAM.
0          Referenced by comments of: 303/16 
00303/024   SORT                     TAPESORT        UC  G        # S0027 DISTRB FSNAME=TAPESORTUPD                                 
            4.3T1   170  SORT.TAPESORT.UC.023               1 LINE     72    3 PAGE UM   ENGLE               OCT. 24, 1979  16:42:42
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00303/025   SORT                     TAPESORT        OC  G          S1430 4.3T1 VLO FSNAME=SORT.TAPESORT.OC.024(1)               171
            5.0T1   768  SORT.TAPESORT.OC.025               1 LINE     80    3 PAGE UM   ENGLE               OCT. 24, 1979  16:43:40
            5.0T2    49                       
00303/026   SORT                     SRT2TIME        SG  G          S0563 D4T1 VLO FSNAME=SORT.SRT2TIME.SG.021(1)                753
            5.0T1   769  SORT.SRT2TIME.SG.026               1 LINE     72    4 PAGE UM   ENGLE               SEP. 09, 1977  16:42:55
            5.0T2    50                       
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.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00303/027   SORT                     SRT2TIME        OC  G          S0563 D4T1 VLO FSNAME=SORT.SRT2TIME.OC.022(1)                754
            5.0T1   770  SORT.SRT2TIME.OC.027               1 LINE     80    8 PAGE UM   ENGLE               SEP. 09, 1977  16:44:10
            5.0T2    51                       
0          >>>>>>>> NOTE:  REP CARD IN THIS OBJECT CAUSES THE TIMES TO BE PRINTED AS
                    TIME/N RATHER THAN TIME/(N*LOG2(N)).
00303/028   SORT                     SORT4F          SA  G          S1430 4.3T1 VLO FSNAME=SORT.SORT4F.SA.027(1)                 172
            5.0T1   771  SORT.SORT4F.SA.028                 1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  13:49:43
            5.0T2    52                       
0          SORT4F IS A SUBROUTINE TO SORT AN ARRAY OF FORTRAN INDEXES BASED ON THE DATA
           TO WHICH THE INDEXES REFER.
00303/029   SORT                     SORT4F          OC  G          S1430 4.3T1 VLO FSNAME=SORT.SORT4F.OC.028(1)                 173
            5.0T1   772  SORT.SORT4F.OC.029                 1 LINE     80    1 PAGE UM   ENGLE               FEB. 20, 1980  13:49:51
            5.0T2    53                       
00304/001   TAPE DIAGNOSTIC          *TPD            C              *TPD                                                            
            5.0T1   773  TAPE_DIAGNOSTIC.*TPD.C.001         1 LINE     61    1 PAGE UM   WSG                 JULY 03, 1981  13:06:05
            5.0T2    54  *TPD                 
0          COMMAND FILE TO RUN THE SYSTEM TAPE DIAGNOSTIC PROGRAM (304/2).  INVOKED BY ENTERING
           "MTS *TPD" ON THE OPERATOR'S CONSOLE.
00304/002   TAPE DIAGNOSTIC                          SA  G          WSG:TAPEDIAG(1,999)                                             
            5.0T1   774  TAPE_DIAGNOSTIC..SA.002            1 LINE     66    4 PAGE UM   WSG                 JULY 03, 1981  13:06:06
            5.0T2    55  WSG.:TAPEDIAG        
0          SIMPLE TAPE DIAGNOSTIC PROGRAM.  READS AND WRITES RANDOM LENGTH, RANDOM DATA
           RECORDS.  WORKS ON BOTH 7- AND 9-TRACK.  WHEN IT ASKS FOR A TAPE DRIVE, PARAMETERS
           MAY BE GIVEN AFTER THE DRIVE NAME AS FOLLOWS:
             800   - FOR 9-TRACK, TEST 800 BPI.
             1600  - FOR 9-TRACK, TEST 1600 BPI.
             6250  - FOR 9-TRACK, TEST 6250 BPI.
             ALL   - TEST THE ENTIRE TAPE RATHER THAN THE DEFAULT 300 READ/WRITE ATTEMPTS.
           IF NONE OF THE FIRST THREE PARAMETERS IS GIVEN, ALL 9-TRACK DENSITIES WILL BE TESTED
           IN SUCCESSION (800, 1600, AND 6250).  IF ANY OF THESE DENSITIES IS NOT SUPPORTED BY
           THE DRIVE BEING TESTED, A WARNING MESSAGE WILL BE PRODUCED AND THAT DENSITY IS
           SKIPPED.  ALL THREE 7-TRACK DENSITIES ARE ALWAYS TESTED ON AN INTERLEAVED
           RECORD-BY-RECORD BASIS.
0          Referenced by comments of: 304/1 
00304/003   TAPE DIAGNOSTIC                          OC  G          WSG:TAPEDIAG(1000)                                              
            5.0T1   775  TAPE_DIAGNOSTIC..OC.003            1 LINE     80    3 PAGE UM   WSG                 JULY 03, 1981  13:06:07
            5.0T2    56                       
00305/001  *FTNTOPL1                 SLCPF4          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SLCPF4.SP.001(1)              758
            5.0T1   776  FTNTOPL1.SLCPF4.SP.001             1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  22:47.13
            5.0T2    57                       
0          IBM PROGRAM 360-CV-710: LCP FORTRAN-IV TO PL/I, VERSION 1 LEVEL 0. THE SOURCE
           DECKS, (305/1) THROUGH (305/20), SHOULD BE STORED IN FILES NAMED AS
1                                                                                               MON AUG 05/96   18:37:45   Page  131
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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.
0          Referenced by comments of: 305/1 
00305/002  *FTNTOPL1                 SCONVER         SA  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SCONVER.SA.002(1)             759
            5.0T1   777  FTNTOPL1.SCONVER.SA.002            1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.14
            5.0T2    58                       
00305/003  *FTNTOPL1                 SPUTTBS         SA  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SPUTTBS.SA.003(1)             760
            5.0T1   778  FTNTOPL1.SPUTTBS.SA.003            1 SEQ      80   24 PAGE UM   TIFFANY             JULY 31, 1973  22:47.18
            5.0T2    59                       
0          Referenced by comments of: 305/21 
00305/004  *FTNTOPL1                 SLTCOL          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SLTCOL.SP.004(1)              761
            5.0T1   779  FTNTOPL1.SLTCOL.SP.004             1 SEQ      80   12 PAGE UM   TIFFANY             JULY 31, 1973  22:47.22
            5.0T2    60                       
00305/005  *FTNTOPL1                 SIPPRS          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SIPPRS.SP.005(1)              762
            5.0T1   780  FTNTOPL1.SIPPRS.SP.005             1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.25
            5.0T2    61                       
00305/006  *FTNTOPL1                 SPH10           SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SPH10.SP.006(1)               763
            5.0T1   781  FTNTOPL1.SPH10.SP.006              1 SEQ      80   11 PAGE UM   TIFFANY             JULY 31, 1973  22:47.28
            5.0T2    62                       
00305/007  *FTNTOPL1                 SFNPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SFNPRO.SP.007(1)              764
            5.0T1   782  FTNTOPL1.SFNPRO.SP.007             1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.30
            5.0T2    63                       
00305/008  *FTNTOPL1                 SDMPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SDMPRO.SP.008(1)              765
            5.0T1   783  FTNTOPL1.SDMPRO.SP.008             1 SEQ      80   18 PAGE UM   TIFFANY             JULY 31, 1973  22:47.32
            5.0T2    64                       
00305/009  *FTNTOPL1                 SNLPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SNLPRO.SP.009(1)              766
            5.0T1   784  FTNTOPL1.SNLPRO.SP.009             1 SEQ      80    9 PAGE UM   TIFFANY             JULY 31, 1973  22:47.34
            5.0T2    65                       
00305/010  *FTNTOPL1                 SFTPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SFTPRO.SP.010(1)              767
            5.0T1   785  FTNTOPL1.SFTPRO.SP.010             1 SEQ      80   21 PAGE UM   TIFFANY             JULY 31, 1973  22:47.38
            5.0T2    66                       
00305/011  *FTNTOPL1                 SRTPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SRTPRO.SP.011(1)              768
            5.0T1   786  FTNTOPL1.SRTPRO.SP.011             1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.40
            5.0T2    67                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00305/012  *FTNTOPL1                 SIOPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SIOPRO.SP.012(1)              769
            5.0T1   787  FTNTOPL1.SIOPRO.SP.012             1 SEQ      80   25 PAGE UM   TIFFANY             JULY 31, 1973  22:47.43
            5.0T2    68                       
00305/013  *FTNTOPL1                 SARPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SARPRO.SP.013(1)              770
            5.0T1   788  FTNTOPL1.SARPRO.SP.013             1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.47
            5.0T2    69                       
00305/014  *FTNTOPL1                 SCAPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SCAPRO.SP.014(1)              771
            5.0T1   789  FTNTOPL1.SCAPRO.SP.014             1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.49
            5.0T2    70                       
00305/015  *FTNTOPL1                 SIFPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SIFPRO.SP.015(1)              772
            5.0T1   790  FTNTOPL1.SIFPRO.SP.015             1 SEQ      80    6 PAGE UM   TIFFANY             JULY 31, 1973  22:47.52
            5.0T2    71                       
00305/016  *FTNTOPL1                 SALPRO          SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SALPRO.SP.016(1)              773
            5.0T1   791  FTNTOPL1.SALPRO.SP.016             1 SEQ      80    7 PAGE UM   TIFFANY             JULY 31, 1973  22:47.54
            5.0T2    72                       
00305/017  *FTNTOPL1                 SPH20           SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SPH20.SP.017(1)               774
            5.0T1   792  FTNTOPL1.SPH20.SP.017              1 SEQ      80   16 PAGE UM   TIFFANY             JULY 31, 1973  22:47.58
            5.0T2    73                       
00305/018  *FTNTOPL1                 SPH30           SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SPH30.SP.018(1)               775
            5.0T1   793  FTNTOPL1.SPH30.SP.018              1 SEQ      80   41 PAGE UM   TIFFANY             JULY 31, 1973  22:48.03
            5.0T2    74                       
00305/019  *FTNTOPL1                 SLBLNK          SA  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SLBLNK.SA.019(1)              776
            5.0T1   794  FTNTOPL1.SLBLNK.SA.019             1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:48.07
            5.0T2    75                       
00305/020  *FTNTOPL1                 SUT1            SP  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.SUT1.SP.020(1)                777
            5.0T1   795  FTNTOPL1.SUT1.SP.020               1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  22:48.08
            5.0T2    76                       
0          Referenced by comments of: 305/1 
00305/021  *FTNTOPL1                 UPDATE          UU  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.UPDATE.UU.021(1)              778
            5.0T1   796  FTNTOPL1.UPDATE.UU.021             1 LINE     80    4 PAGE UM   TIFFANY             JULY 27, 1977  02:25:15
            5.0T2    77                       
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                                                       
            5.0T1   797  FTNTOPL1..OC.022                   1 SEQ   22330   46 PAGE UM   TIFFANY             JULY 03, 1981  13:06:28
            5.0T2    78  *FTNTOPL1            
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00306/001  *WIREWRAP                 WW.S.MAIN       SA  G  WWMN    S0767 'SAVETAPE' FSNAME=WW.S.MAIN                               
            5.0T1   798  WIREWRAP.WW.S.MAIN.SA.001          1 LINE     80   55 PAGE UM   CASHMAN             AUG. 21, 1975  11:54:24
            5.0T2    79                       
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, 306/5, 306/6, 306/7 
00306/002  *WIREWRAP                 WW.S.AUX        SA  G  WWAU    S0767 'SAVETAPE' FSNAME=WW.S.AUX                                
            5.0T1   799  WIREWRAP.WW.S.AUX.SA.002           1 LINE     80   42 PAGE UM   CASHMAN             AUG. 21, 1975  11:54:30
            5.0T2    80                       
0          Referenced by comments of: 306/1, 306/5, 306/6, 306/7 
00306/003  *WIREWRAP                 WW.S.MACR       SA  G  WWMC    S0767 'SAVETAPE' FSNAME=WW.S.MACR                               
            5.0T1   800  WIREWRAP.WW.S.MACR.SA.003          1 LINE     80   29 PAGE UM   CASHMAN             AUG. 21, 1975  11:54:38
            5.0T2    81                       
0          Referenced by comments of: 306/1, 306/5, 306/6, 306/7 
00306/004  *WIREWRAP                 *WIREWRAP       OE  G          *WIREWRAP                                                       
            5.0T1   801  WIREWRAP.*WIREWRAP.OE.004          1 SEQ   12724   15 PAGE UM   CASHMAN             JULY 03, 1981  13:12:00
            5.0T2    82  *WIREWRAP            
00306/005  *WIREWRAP                 WWCOPY          SA  G  WWCO    S0767 'SAVETAPE' FSNAME=WWCOPY                                  
            5.0T1   802  WIREWRAP.WWCOPY.SA.005             1 LINE     80    4 PAGE UM   CASHMAN             AUG. 21, 1975  11:55:07
            5.0T2    83                       
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                                  
            5.0T1   803  WIREWRAP.WWDATA.SA.006             1 LINE     80    8 PAGE UM   CASHMAN             AUG. 21, 1975  11:55:02
            5.0T2    84                       
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                                   
            5.0T1   804  WIREWRAP.WWMAC.SM.007              1 LINE     73    3 PAGE UM   CASHMAN             AUG. 21, 1975  11:54:50
            5.0T2    85                       
0          MACRO LIB USED BY (306/1), (306/2), AND (306/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 306/1 
00306/008  *WIREWRAP                 WWJOB           C   G          S0767 'SAVETAPE' FSNAME=WWJOB                                   
            5.0T1   805  WIREWRAP.WWJOB.C.008               1 LINE     92    1 PAGE UM   CASHMAN             AUG. 21, 1975  11:54:55
            5.0T2    86                       
0          Referenced by comments of: 306/1 
00306/009  *WIREWRAP                 *WWLIB          OL  G          *WWLIB                                                          
            5.0T1   806  WIREWRAP.*WWLIB.OL.009             1 LINE   2948   37 PAGE UM   CASHMAN             JULY 03, 1981  13:12:05
            5.0T2    87  *WWLIB               
0          NON-STANDARD LIBRARY FILE USED BY *WIREWRAP TO OBTAIN CHARACTERISTICS OF THE IC
           MOUNTING TECHNIQUE.  CONSISTS OF A DIRECTORY FOLLOWED BY THE LINK-EDITED OBJECT
           MODULES FOR BAY TYPES:  LAB, LAB16, IC, MSERIES, PG1, PG3, PG5, PG13, UG1, MIC,
           RSERIES, 8SERIES, CHIP, AND DOUGLAS.  THE *WIREWRAP USER'S GUIDE (306/33)
           DESCRIBES MOST OF THESE BAY TYPES.  8SERIES IS USED FOR CLASSIC PDP-8 MINCOMPUTERS.
           CHIP AND DOUGLAS ARE DESCRIBED IN THEIR RESPECTIVE FORTRAN SOURCE CODES.  THIS
           LIBRARY ALSO MAKES USE OF OBJECT FILES *WWSQGRD (306/11), *WWSTGRD1 (306/13),
           AND *WWSTGRD2 (306/15).
0          Referenced by comments of: 306/1, 306/16, 306/17, 306/18, 306/19, 306/20, 306/21, 306/22, 306/23, 306/24, 306/25,
                 306/26, 306/27, 306/28, 306/29 
00306/010  *WIREWRAP                 SQGRD           SA  G  SQGR    S0767 'SAVETAPE' FSNAME=SQGRD.S                                 
            5.0T1   807  WIREWRAP.SQGRD.SA.010              1 LINE     80    7 PAGE UM   CASHMAN             DEC. 13, 1973  12:57.39
            5.0T2    88                       
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/011  *WIREWRAP                 SQGRD           OE  G          *WWSQGRD                                                        
            5.0T1   808  WIREWRAP.SQGRD.OE.011              1 SEQ     606    1 PAGE UM   CASHMAN             JULY 03, 1981  13:12:32
            5.0T2    89  *WWSQGRD             
0          Referenced by comments of: 306/9 
00306/012  *WIREWRAP                 STGRD1          SA  G  STG1    S0767 'SAVETAPE' FSNAME=STGRD1.S                                
            5.0T1   809  WIREWRAP.STGRD1.SA.012             1 LINE     80    8 PAGE UM   CASHMAN             DEC. 13, 1973  12:57.57
            5.0T2    90                       
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/013  *WIREWRAP                 STGRD1          OE  G          *WWSTGRD1                                                       
            5.0T1   810  WIREWRAP.STGRD1.OE.013             1 SEQ     726    1 PAGE UM   CASHMAN             JULY 03, 1981  13:12:34
            5.0T2    91  *WWSTGRD1            
0          Referenced by comments of: 306/9 
00306/014  *WIREWRAP                 STGRD2          SA  G  STG2    S0767 'SAVETAPE' FSNAME=STGRD2.S                                
            5.0T1   811  WIREWRAP.STGRD2.SA.014             1 LINE     80    8 PAGE UM   CASHMAN             DEC. 13, 1973  12:58.13
            5.0T2    92                       
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00306/015  *WIREWRAP                 STGRD2          OE  G          *WWSTGRD2                                                       
            5.0T1   812  WIREWRAP.STGRD2.OE.015             1 SEQ    5718    2 PAGE UM   CASHMAN             JULY 03, 1981  13:12:36
            5.0T2    93  *WWSTGRD2            
0          Referenced by comments of: 306/9 
00306/016  *WIREWRAP                 LAB             SF  G  LAB     S0767 'SAVETAPE' FSNAME=LAB.S                                   
            5.0T1   813  WIREWRAP.LAB.SF.016                1 LINE     80    5 PAGE UM   CASHMAN             FEB. 20, 1976  14:55:25
            5.0T2    94                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'LAB'.  OBJECT MODULE IN *WWLIB (306/9).
00306/017  *WIREWRAP                 LAB16           SF  G          S0767 'SAVETAPE' FSNAME=LAB16.S                                 
            5.0T1   814  WIREWRAP.LAB16.SF.017              1 LINE     70    3 PAGE UM   CASHMAN             MAR. 13, 1978  15:48:56
            5.0T2    95                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'LAB16', WHICH IS THE SAME AS 'LAB' EXCEPT
           IT ALLOWS FOR 14- OR 16-PIN CHIPS.  OBJECT MODULE IN *WWLIB (306/9).
00306/018  *WIREWRAP                 MSERIES         SF  G  MSER    S0767 'SAVETAPE' FSNAME=MSERIES.S                               
            5.0T1   815  WIREWRAP.MSERIES.SF.018            1 LINE     80    5 PAGE UM   CASHMAN             DEC. 13, 1973  12:56.06
            5.0T2    96                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MSERIES'. OBJECT MODULE IN *WWLIB (306/9).
00306/019  *WIREWRAP                 RSERIES         SF  G  RSER    S0767 'SAVETAPE' FSNAME=RSERIES.S                               
            5.0T1   816  WIREWRAP.RSERIES.SF.019            1 LINE     80    5 PAGE UM   CASHMAN             DEC. 13, 1973  12:56.35
            5.0T2    97                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'RSERIES'.  OBJECT MODULE IN *WWLIB (306/9).
00306/020  *WIREWRAP                 IC              SF  G  IC      S0767 'SAVETAPE' FSNAME=IC.S                                    
            5.0T1   817  WIREWRAP.IC.SF.020                 1 LINE     80    5 PAGE UM   CASHMAN             DEC. 13, 1973  12:55.30
            5.0T2    98                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'IC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/021  *WIREWRAP                 MIC             SF  G  MIC     S0767 'SAVETAPE' FSNAME=MIC.S                                   
            5.0T1   818  WIREWRAP.MIC.SF.021                1 LINE     80    6 PAGE UM   CASHMAN             JAN. 16, 1974  13:12.44
            5.0T2    99                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MIC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/022  *WIREWRAP                 PG1             SF  G  PG1     S0767 'SAVETAPE' FSNAME=79.PG1SOU                               
            5.0T1   819  WIREWRAP.PG1.SF.022                1 LINE     80    6 PAGE UM   CASHMAN             DEC. 13, 1973  13:35.38
            5.0T2   100                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/023  *WIREWRAP                 PG3             SF  G  PG3     S0767 'SAVETAPE' FSNAME=79.PG3SOU                               
            5.0T1   820  WIREWRAP.PG3.SF.023                1 LINE     80    7 PAGE UM   CASHMAN             DEC. 13, 1973  13:36.09
            5.0T2   101                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG3'.  OBJECT MODULE IN *WWLIB (306/9).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00306/024  *WIREWRAP                 PG5             SF  G  PG5     S0767 'SAVETAPE' FSNAME=79.PG5SOU                               
            5.0T1   821  WIREWRAP.PG5.SF.024                1 LINE     80    6 PAGE UM   CASHMAN             DEC. 13, 1973  13:36.26
            5.0T2   102                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG5'.  OBJECT MODULE IN *WWLIB (306/9).
00306/025  *WIREWRAP                 PG13            SF  G  PG13    S0767 'SAVETAPE' FSNAME=79.PG13SOU                              
            5.0T1   822  WIREWRAP.PG13.SF.025               1 LINE     80    7 PAGE UM   CASHMAN             DEC. 13, 1973  13:35.53
            5.0T2   103                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG13'.  OBJECT MODULE IN *WWLIB (306/9).
00306/026  *WIREWRAP                 UG1             SA  G  UG1     S0767 'SAVETAPE' FSNAME=AUGATUG1.S                              
            5.0T1   823  WIREWRAP.UG1.SA.026                1 LINE     80   20 PAGE UM   CASHMAN             JAN. 16, 1974  13:13.19
            5.0T2   104                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'UG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/027  *WIREWRAP                 CHIP            SF  G          S0767 'SAVETAPE' FSNAME=CHIP.S                                  
            5.0T1   824  WIREWRAP.CHIP.SF.027               1 LINE     69    3 PAGE UM   CASHMAN             MAR. 01, 1978  10:29:04
            5.0T2   105                       
0          SUBROUTINE PACKAGE FOR BAY TYPE 'CHIP'.  USEFUL FOR "BREADBOARDING" APPLICATIONS;
           I.E. STICKING WIREWRAP SOCKETS INTO VECTOR BOARD.  COMPLETE DOCUMENTATION IS IN
           THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE.  OBJECT MODULE IN *WWLIB (306/9).
00306/028  *WIREWRAP                 DOUGLAS         SF  G          S0767 'SAVETAPE' FSNAME=DOUGLAS.S                               
            5.0T1   825  WIREWRAP.DOUGLAS.SF.028            1 LINE     69    4 PAGE UM   CASHMAN             FEB. 20, 1976  14:58:54
            5.0T2   106                       
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/029  *WIREWRAP                 8SERIES         SF  G          S0767 'SAVETAPE' FSNAME=8SERIES.S                               
            5.0T1   826  WIREWRAP.8SERIES.SF.029            1 LINE     73    3 PAGE UM   CASHMAN             DEC. 13, 1973  12:57.00
            5.0T2   107                       
0          SUBROUTINE PACKAGE FOR BAY TYPE '8SERIES' -- FOR DEC'S PDP-8 CLASSIC MINI-COMPUTER.
           OBJECT MODULE IN *WWLIB (306/9).
00306/030  *WIREWRAP                 *WWICMAC        D              *WWICMAC                                                        
            5.0T1   827  WIREWRAP.*WWICMAC.D.030            1 LINE     65    4 PAGE UM   CASHMAN             JULY 03, 1981  13:19:03
            5.0T2   108  *WWICMAC             
0          THIS FILE CONTAINS "WIREWRAP MACROS" FOR MOST OF THE IC'S USED FOR LOGIC DESIGN AT THE UM COMPUTING CENTER.
           THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES "PAR=TYPE=IC" FOR THE MOUNTING TECHNIQUE.
00306/031  *WIREWRAP                 *WWLABMAC       D              *WWLABMAC                                                       
            5.0T1   828  WIREWRAP.*WWLABMAC.D.031           1 LINE     55    3 PAGE UM   CASHMAN             JULY 03, 1981  13:19:04
            5.0T2   109  *WWLABMAC            
0          THIS FILE CONTAINS A "WIREWRAP MACRO" DICTIONARY FOR IC'S USED IN THE LOGIC LAB "SUITCASE" USED
           IN ECE DEPARTMENT CLASSES AT UM.  THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES
1                                                                                               MON AUG 05/96   18:37:45   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          "PAR=TYPE=LAB" FOR THE MOUNTING TECHNIQUE.
00306/032  *WIREWRAP                 TTLMAC          D   G          S0767 'SAVETAPE' FSNAME=TTLMAC                                  
            5.0T1   829  WIREWRAP.TTLMAC.D.032              1 LINE     91    4 PAGE UM   CASHMAN             JUNE 18, 1976  13:38:55
            5.0T2   110                       
0          ANOTHER "WIREWRAP MACRO" DICTIONARY.
00306/033  *WIREWRAP                 MEMO 267        WT             S0563 D4T1 VLO FSNAME=WIREWRAP.MEMO_267.WT.032(1)            811
            5.0T1   830  WIREWRAP.MEMO_267.WT.033           1 LINE     81   49 PAGE UM   CASHMAN             FEB. 03, 1977  16:58:19
            5.0T2   111                       
0          THIS IS COMPUTING CENTER MEMO 267 -- "*WIREWRAP USER'S GUIDE"
0          Referenced by comments of: 306/9 
00307/001  *OBJCONV                                  SA           # (OBSOLETE)                                                      
            D3T2    220  OBJCONV..SA.1                      1 SEQ      80    1 PAGE UM                       JULY 31, 1973  22:54.21
00308/001A *FMT                      MAIN            SA  O          S0791 FMTJNK 'FORMAT' FSNAME=MAIN                               
            5.0T1   831  FMT.MAIN.SA.001                    1 LINE     75   91 PAGE UBC  NIGHTINGA PICKELMAN AUG. 25, 1980  19:14:04
            5.0T2   112                       
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 IN (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/4) AND *SYSMAC.
0          Referenced by comments of: 308/5, 560/1, 769/17, 798/95, 798/96, 810/2, 1036/4, 1036/8, 1079/12, 1079/13 
00308/002A *FMT                      SUBROUTINES     SA  O          S0791 FMTJNK 'FORMAT' FSNAME=SUB0                               
            5.0T1   832  FMT.SUBROUTINES.SA.002             1 LINE     75   58 PAGE UBC  NIGHTINGA PICKELMAN AUG. 12, 1980  17:28:24
            5.0T2   113                       
0          SUBROUTINES WHICH DO NOT COPY FMT#DS. THE ROUTINE FMTOPTS SHOULD BE
           REASSEMBLED TO CHANGE THE NAME OF THE FUNCTION LIBRARY ETC:FMTLIB (308/16),
           IF NECESSARY. ASSEMBLE WITH PAR=B USING UBCMACLIB (308/4) AND *SYSMAC.
0          Referenced by comments of: 308/5 
00308/003A *FMT                      MORE SUBRS      SA  O          S0791 FMTJNK 'FORMAT' FSNAME=SUB1                               
            5.0T1   833  FMT.MORE_SUBRS.SA.003              1 LINE     77   29 PAGE UBC  NIGHTINGA PICKELMAN AUG. 12, 1980  17:28:37
            5.0T2   114                       
0          ADDITIONAL SUBROUTINES WHICH ARE ALSO USED BY THE FUNCTIONS (308/6) ET SEQ.
           ASSEMBLE WITH PAR=B USING UBCMACLIB (308/4) AND *SYSMAC.
0          Referenced by comments of: 308/5 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00308/004A *FMT                      UBCMACLIB       SM  G          S0791 FMTJNK 'FORMAT' FSNAME=MACLIB                             
            5.0T1   834  FMT.UBCMACLIB.SM.004               1 LINE     73   14 PAGE UBC  NIGHTINGA PICKELMAN AUG. 25, 1980  19:13:53
            5.0T2   115                       
0          Referenced by comments of: 308/1, 308/2, 308/3, 308/7, 308/9 
00308/005  *FMT                      OBJECT          OE  O          *FORMAT                                                         
            5.0T1   835  FMT.OBJECT.OE.005                  1 SEQ   32167   13 PAGE UBC  NIGHTINGA PICKELMAN JULY 03, 1981  13:22:26
            5.0T2   116  *FORMAT              
0          OBJECT FROM (308/1), (308/2), AND (308/3).
00308/006  *FMT                      HYPHEN          S3  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTHYPHEN                          
            5.0T1   836  FMT.HYPHEN.S3.006                  1 LINE     80    3 PAGE UBC  NIGHTINGA PICKELMAN JUNE 30, 1980  20:14:28
            5.0T2   117                       
0          THIS COMPONENT AND THOSE FOLLOWING ARE THE SOURCE FOR THE FMT DYNAMICALLY
           LOADED FUNCTION LIBRARY (ETC:FMTLIB).
            
           THIS IS THE HYPHEN FUNCTION AND ITS SUBROUTINES.  IT HAS $CONTINUE WITHS
           WHICH ARE SELF-REFERENCING.  AFTER COMPILATION, REFERENCES IN THE OBJECT 
           TO INFREE1 SHOULD BE CHANGED TO INFREE#.  THIS FUNCTION REFERENCES THE 
           DATA FILE ETC:FMTDICT (308/17).
0          Referenced by comments of: 308/3, 308/7, 308/16 
00308/007  *FMT                      GSPFRSP         SA  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTHYPHEN1                         
            5.0T1   837  FMT.GSPFRSP.SA.007                 1 LINE     71    3 PAGE UBC  NIGHTINGA PICKELMAN JUNE 30, 1980  20:14:34
            5.0T2   118                       
0          SUBROUTINE CALLED BY HYPHEN (308/6).  ASSEMBLE USING UBCMACLIB (308/4) AND *SYSMAC.
0          Referenced by comments of: 308/17 
00308/008  *FMT                      INDEX           SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTINDEX                           
            5.0T1   838  FMT.INDEX.SF.008                   1 LINE     80   10 PAGE UBC  NIGHTINGA PICKELMAN AUG. 01, 1979  20:25:37
            5.0T2   119                       
0          INDEX FUNCTION AND SEVERAL SUBROUTINES.
            
00308/009  *FMT                      ASMFNS          SA  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTASMFNS                          
            5.0T1   839  FMT.ASMFNS.SA.009                  1 LINE     68    5 PAGE UBC  NIGHTINGA PICKELMAN AUG. 14, 1978  11:37:32
            5.0T2   120                       
0          FUNCTIONS UCTRAN, IFDEF, IFNUL, BLOCK, CAPIT, DOUBLE, GETPAR, FMTCHAR,
           MOST, AND ALL.  ASSEMBLE WITH PAR=B USING UBCMACLIB (308/4) AND *SYSMAC.
00308/010  *FMT                      CONTENTS        SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTCONTENTS                        
            5.0T1   840  FMT.CONTENTS.SF.010                1 LINE     73    4 PAGE UBC  NIGHTINGA PICKELMAN AUG. 14, 1978  11:37:48
            5.0T2   121                       
0          AFTER COMPILATION, CHANGE THE NAME "CONTNS  " TO "CONTENTS" IN THE OBJECT.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00308/011  *FMT                      COUNT           SF  G          S0791 FMTJNK 'FORMAT' FSNAME=FMTCOUNT                           
            5.0T1   841  FMT.COUNT.SF.011                   1 LINE     72    3 PAGE UBC  NIGHTINGA PICKELMAN AUG. 14, 1978  11:38:03
            5.0T2   122                       
00308/012A *FMT                      DATE            S3  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTDATE                            
            5.0T1   842  FMT.DATE.S3.012                    1 LINE     71    4 PAGE UBC  NIGHTINGA PICKELMAN AUG. 12, 1980  17:19:33
            5.0T2   123                       
00308/013A *FMT                      FTNFNS          SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTFTNFNS                          
            5.0T1   843  FMT.FTNFNS.SF.013                  1 LINE     72    6 PAGE UBC  NIGHTINGA PICKELMAN MAR. 03, 1981  11:00:19
            5.0T2   124                       
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.
            
           ********************************************************************************
           D5.0 changes:
            
           Fixed a bug in the MYSORT subroutine.
           ********************************************************************************
00308/014  *FMT                      SORT            SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTSORT                            
            5.0T1   844  FMT.SORT.SF.014                    1 LINE     64    1 PAGE UBC  NIGHTINGA PICKELMAN AUG. 01, 1979  20:25:24
            5.0T2   125                       
0          AFTER COMPILATION, CHANGE THE NAME "FMTSRT " TO FMTSORT" IN THE OBJECT.
00308/015  *FMT                      PAGE            SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTPAGE                            
            5.0T1   845  FMT.PAGE.SF.015                    1 LINE     72    3 PAGE UBC  NIGHTINGA PICKELMAN AUG. 14, 1978  11:40:07
            5.0T2   126                       
0          PAGE FUNCTION AND FMTPAG SUBROUTINE.
0          Referenced by comments of: 308/16 
00308/016A *FMT                      FMTLIB          OL  O          ETC:FMTLIB                                                      
            5.0T1   846  FMT.FMTLIB.OL.016                  1 LINE   6322   26 PAGE UBC  NIGHTINGA PICKELMAN JULY 03, 1981  13:23:48
            5.0T2   127  ETC.:FMTLIB          
0          FUNCTION LIBRARY CONSISTING OF OBJECT FROM (308/6) THROUGH (308/15).
0          Referenced by comments of: 308/2 
00308/017  *FMT                      DICT            D              ETC:FMTDICT                                                     
            5.0T1   847  FMT.DICT.D.017                     1 LINE     80    3 PAGE UBC  NIGHTINGA PICKELMAN JULY 03, 1981  13:23:53
            5.0T2   128  ETC.:FMTDICT         
0          HYPHENATION DICTIONARY DATA FILE USED BY (308/7).
0          Referenced by comments of: 308/6 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00308/018A *FMT                      JONMACLIB       SM  O          COPY:JONMACLIBFMT                                               
            5.0T1   848  FMT.JONMACLIB.SM.018               1 LINE    110    8 PAGE UBC  NIGHTINGA PICKELMAN JULY 03, 1981  13:23:54
            5.0T2   129  COPY:JONMACLIBFMT    
0          UBC'S JON:MACLIB -- FMT MACROS USED IN UBC DOCUMENTATION. DOCUMENTATION FOR
           JON:MACLIB IS IN (308/21). THERE MAY BE SOME PROBLEM USING UM'S *FORMAT WITH
           THESE MACROS, BUT NOT NECESSARILY. AT UM, THIS FILE IS PERMITTED ONLY TO
           P=W?.
0          Referenced by comments of: 308/19, 774/7, 1036/4, 1036/8, 1038/12, 1042/57, 1042/83, 1058/15, 1077/4, 3018/174 
00308/019A *FMT                      JONMACLIB       SF  O          S0791 FMTJNK 'FORMAT' FSNAME=JONMACLIB.FTN                      
            5.0T1   849  FMT.JONMACLIB.SF.019               1 LINE     68    3 PAGE UBC  NIGHTINGA PICKELMAN AUG. 12, 1980  17:23:16
            5.0T2   130                       
0          FUNCTIONS DYNAMICALLY LOADED BY (308/18).
0          Referenced by comments of: 308/20 
00308/020A *FMT                      JONMACLIB       OL  O          COPY:JONFMT.FNLIB                                               
            5.0T1   850  FMT.JONMACLIB.OL.020               1 LINE   1120    4 PAGE UBC  NIGHTINGA PICKELMAN JULY 03, 1981  13:24:11
            5.0T2   131  COPY:JONFMT.FNLIB    
0          OBJECT OF (308/19).
00308/021C *FMT                      JONMACLIB       WF             COPY:JONMACLIB.F                                                
            5.0T1   851  FMT.JONMACLIB.WF.021               1 LINE    149    8 PAGE UBC  NIGHTINGA PICKELMAN JULY 03, 1981  13:24:11
            5.0T2   132                       
0          This is the UBC's writeup describing JONMACLIB.  Lines -99,-1 of the
           file contain CDUPDATE (1036) commands to make source compatible with UM's
           *FORMAT.
0          Referenced by comments of: 308/18 
00308/022A *FMT                      FMTAPA          WF             S1153 UNSP VLO FSNAME=FMTAPA.FMT                                
            5.0T1   852  FMT.FMTAPA.WF.022                  1 LINE     81    6 PAGE UM   NIGHTINGA           SEP. 15, 1980  16:42:59
            5.0T2   133                       
0          WRITEUP DESCRIBING A SET OF *FORMAT MACROS (308/24) WHICH PRODUCES HEADINGS
           IN AMERICAN PSYCHIATRIC ASSOCIATION FORMAT AND A FEW OTHER THINGS.
00308/023A *FMT                      FMTAPA          WF             UNSP:FMTAPA                                                     
            5.0T1   853  FMT.FMTAPA.WF.023                  1 LINE     51    1 PAGE UM   NIGHTINGA           JULY 03, 1981  13:24:37
            5.0T2   134                       
0          THIS FILE CONTAINS *FMT CONTROL COMMANDS.  IT IS TO BE "|INCLUD"ED BY
           *FMT FOR FILES WHICH USE FMTAPA (308/24).
00308/024A *FMT                      FMTAPA          WF             UNSP:FMTMACLIB                                                  
            5.0T1   854  FMT.FMTAPA.WF.024                  1 LINE     94    3 PAGE UM   NIGHTINGA           JULY 03, 1981  13:24:38
            5.0T2   135                       
0          THESE ARE THE FORMAT APA MACROS.
1                                                                                               MON AUG 05/96   18:37:45   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          Referenced by comments of: 308/22, 308/23, 308/25 
00308/025A *FMT                      FMTAPA          OE             UNSP:FMTLIB                                                     
            5.0T1   855  FMT.FMTAPA.OE.025                  1 LINE    520    1 PAGE UM   NIGHTINGA           JULY 03, 1981  13:24:39
            5.0T2   136                       
0          OBJECT (WE DO NOT HAVE THE SOURCE) OF FUNCTIONS USED BY FMTAPA
           (308/24).
00309/001  *STASS360                                 SA           # (OBSOLETE)                                                      
            D3T2    225  STASS360.MONITOR.SA.1              1 SEQ      80   11 PAGE UM                       JULY 31, 1973  22:55.58
0          Obsoleted by *ASSIST (3023).
00311/001  *VARRLIST                                 S            # (OBSOLETE)                                                      
            D2T1    333                                                             UM                                              
00313/001   1130 RJE SUPPORT PROGRAM                 S            # (OBSOLETE)                                                      
            D2T1    096                                                             UM                                              
00314/001A *LABELSNIFF                               SA  G          W062:LBLSNIFF.S                                                 
            5.0T1   856  LABELSNIFF..SA.001                 1 LINE     73   37 PAGE UM   TIFFANY             JULY 03, 1981  13:24:40
            5.0T2   137                       
0          Program to print information about what's on a tape.
            
           Copies *SENSEDSECT (3025) and *GDINFODSECT (594). Requires the (314/3) macro library and *SYSMAC.
           Assemble with PEXIT=*PEXIT (775).
            
           *****************************************************************************
           D5.0 version:
            
           This version of *LABELSNIFF, which requires the D5.0 version of the tape
           routines (135), allows the use of ANSI labeled tapes.
           *****************************************************************************
00314/002A *LABELSNIFF                               OE  G          *LABELSNIFF                                                     
            5.0T1   857  LABELSNIFF..OE.002                 1 LINE  15788   14 PAGE UM   TIFFANY             JULY 03, 1981  13:24:44
            5.0T2   138  *LABELSNIFF          
00314/003C *LABELSNIFF               MACLIB          SM  G          W062:LBLSNIFF.MAC                                               
            5.0T1   858  LABELSNIFF.MACLIB.SM.003           1 LINE     72    4 PAGE UM   TIFFANY             JULY 03, 1981  13:24:45
            5.0T2   139                       
0          Referenced by comments of: 314/1 
00315/001  *ANS                                      SA           # (OBSOLETE)                                                      
            D2T1    155                                                             UM                                              
00316/001   GENLIB                                   SA           # (OBSOLETE)                                                      
            D3T2    236  GENLIB..SA.                        1 SEQ      80    6 PAGE UNE                      JULY 31, 1973  22:59.46
0          Obsoleted by *OBJUTIL (721).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00318/001  *XPL                      SUBMONITOR      SA  G          S0563 D4T1 VLO FSNAME=XPL.SUBMONITOR.SA.001(1)               832
            5.0T1   859  XPL.SUBMONITOR.SA.001              1 SEQ      80   24 PAGE UM   SHERRY              JULY 27, 1977  02:39:23
            5.0T2   140                       
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          S0563 D4T1 VLO FSNAME=XPL.SUBMONITOR.OC.002(1)               833
            5.0T1   860  XPL.SUBMONITOR.OC.002              1 SEQ      80    2 PAGE UM   SHERRY              JULY 27, 1977  02:39:26
            5.0T2   141                       
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          S0563 D4T1 VLO FSNAME=XPL.TRACE.SA.003(1)                    834
            5.0T1   861  XPL.TRACE.SA.003                   1 SEQ      80   33 PAGE UM   SHERRY              JULY 27, 1977  02:39:35
            5.0T2   142                       
0          UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON).
00318/004  *XPL                      TRACE           OC  G          S0563 D4T1 VLO FSNAME=XPL.TRACE.OC.004(1)                    835
            5.0T1   862  XPL.TRACE.OC.004                   1 SEQ      80    2 PAGE UM   SHERRY              JULY 27, 1977  02:39:38
            5.0T2   143                       
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                                                           
            5.0T1   863  XPL.*XMON.OE.005                   1 SEQ    4384    2 PAGE UM   SHERRY              JULY 03, 1981  13:24:54
            5.0T2   144  *XMON                
00318/006  *XPL                      DEFAULTS        SA  G          S0563 D4T1 VLO FSNAME=XPL.DEFAULTS.SA.006(1)                 837
            5.0T1   864  XPL.DEFAULTS.SA.006                1 SEQ      80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:44
            5.0T2   145                       
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                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00318/007  *XPL                      *XPL            OC  G          *XPL                                                            
            5.0T1   865  XPL.*XPL.OC.007                    1 LINE     80    1 PAGE UM   SHERRY              JULY 03, 1981  13:24:55
            5.0T2   146  *XPL                 
0          OBJECT FOR THE FIRST DEFAULTS PROGRAM.  CONTAINS A "$CONTINUE WITH *XMON" LINE.
00318/008  *XPL                      *XPLGO          OC  G          *XPLGO                                                          
            5.0T1   866  XPL.*XPLGO.OC.008                  1 LINE     80    1 PAGE UM   SHERRY              JULY 03, 1981  13:24:56
            5.0T2   147  *XPLGO               
0          OBJECT FOR THE SECOND DEFAULTS PROGRAM.  CONTAINS A "$CONTINUE WITH *XMON" LINE.
00318/009  *XPL                      COMPILER        SX  G          *XCOM                                                           
            5.0T1   867  XPL.COMPILER.SX.009                1 LINE     80   54 PAGE UM   SHERRY              JULY 03, 1981  13:24:56
            5.0T2   148  *XCOM                
0          XPL SOURCE FOR THE XPL COMPILER (*XCOM).  THIS VERSION IS MODIFIED FROM AN EARLY STANFORD
           RELEASE; IT IS NOT THE SHARE RELEASE.  IT WAS USED QUITE HEAVILY AT UM AND IS RELATIVELY BUG-FREE.
           MOST XPL USERS NOW USE *EXPL (495) BECAUSE INDEPENDENTLY COMPILABLE PROCEDURES REDUCE
           THE COST OF COMPILER DEVELOPMENT.
           THE COMPILER SOURCE IS KEPT IN A PUBLIC FILE (*XCOM) SO THAT PARTS OF IT ARE AVAILABLE FOR
           EXTRACTION BY STUDENTS IN COMPILER WRITING COURSES.
00318/010  *XPL                      COMPILER        O   G          *XPLCOMPILER                                                    
            5.0T1   868  XPL.COMPILER.O.010                 1 SEQ     240   29 PAGE UM   SHERRY              JULY 03, 1981  13:25:00
            5.0T2   149  *XPLCOMPILER         
0          XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER).
00318/011  *XPL                      *XPLIBRARY      SX  G          *XPLIBRARY                                                      
            5.0T1   869  XPL.*XPLIBRARY.SX.011              1 SEQ      80    1 PAGE UM   SHERRY              JULY 03, 1981  13:25:02
            5.0T2   150  *XPLIBRARY           
0          SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL.
00318/012  *XPL                      *SKELETON       SX  G          *SKELETON                                                       
            5.0T1   870  XPL.*SKELETON.SX.012               1 LINE     80   10 PAGE UM   SHERRY              JULY 03, 1981  13:25:03
            5.0T2   151  *SKELETON            
0          THIS IS THE MINIMAL FRAMEWORK FOR A TABLE-DRIVEN COMPILER.  USER IS EXPECTED TO REPLACE THE
           SYNTAX TABLES WITH APPROPRIATE TABLES PRODUCED BY *ANALYZER AND COMPLETE THE COMPILER BY
           WRITING THE CODE SYNTHESIZER SECTION.
0          Referenced by comments of: 495/7 
00318/013  *XPL                      ANALYZER        SX  G          S0563 D4T1 VLO FSNAME=XPL.*ANALYZER.SX.013(1)                844
            5.0T1   871  XPL.ANALYZER.SX.013                1 SEQ      80   33 PAGE UM   SHERRY              JULY 27, 1977  02:40:20
            5.0T2   152                       
0          XPL PROGRAM TO ANALYZE A BNF DESCRIPTION OF A LANGUAGE AND PRODUCE TABLES FOR COMPILING IT.
0          Referenced by comments of: 495/6 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00318/014  *XPL                      *ANALYZER       O   G          *ANALYZER                                                       
            5.0T1   872  XPL.*ANALYZER.O.014                1 SEQ     240   24 PAGE UM   SHERRY              JULY 03, 1981  13:25:07
            5.0T2   153  *ANALYZER            
0          XPL FORMAT OBJECT FILE.
00318/015  *XPL                      XPLBNF          D   G          S0563 D4T1 VLO FSNAME=XPL.XPLBNF.D.015(1)                    846
            5.0T1   873  XPL.XPLBNF.D.015                   1 SEQ      80    3 PAGE UM   SHERRY              JULY 27, 1977  02:40:28
            5.0T2   154                       
0          BNF DESCRIPTION OF XPL SUITABLE FOR INPUT TO *ANALYZER.
00318/016  *XPL                      MEMO 230        WF             S0563 D4T1 VLO FSNAME=XPL.MEMO_230.WF.016(1)                 847
            5.0T1   874  XPL.MEMO_230.WF.016                1 LINE    127    4 PAGE UM   SHERRY              JAN. 25, 1977  18:03:50
            5.0T2   155                       
0          THIS IS COMPUTING CENTER MEMO 230 -- "XPL USER'S GUIDE"
00319/001  *FLIKPLT                                  OC           # (OBSOLETE)                                                      
            D3T2    251  FLIKPLT..OC.                       1 LINE     80   15 PAGE UM                       JULY 31, 1973  23:03.29
00321/001  *PIB                                      OC           # (OBSOLETE)                                                      
            D3T2    252  PIB..OC.                           1 LINE     80  122 PAGE UM                       JULY 31, 1973  23:03.31
00322/001A *2260RTN                                  SA  G          MTA:2260RTN                                                     
            5.0T4   297  2260RTN..SA.001                    1 LINE     72   32 PAGE UM   MTA                 AUG. 09, 1981  22:49:31
            5.0T10  201                       
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 2260 DISPLAY.
           SUPPORT FOR THE @MAXLEN MODIFIER HAS BEEN ADDED, BUT NOT TESTED DUE TO LACK OF
           HARDWARE AT UM.
            
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00322/002A *2260RTN                                  OC  G          *2260RTN                                                        
            5.0T4   298  2260RTN..OC.002                    1 LINE     80    4 PAGE UM   MTA                 AUG. 09, 1981  22:49:34
            5.0T10  202  *2260RTN             
00324/001   EDITOR - OLD                                          # (OBSOLETE)                                                      
            D3T2    255                                                             UM                       FEB. 02, 1973  21:38.36
00326/001A  STAT MONTHLY SUMMARY     MAIN PGM        SP  G          S0027 DISTRB FSNAME=SYSSTAT                                     
            5.0T1   875  STAT_MONTHLY_SUMMARY.MAIN.SP.001   1 LINE     99   17 PAGE UM   ENGLE               APR. 06, 1981  16:20:19
            5.0T2   156                       
0          READS STATISTICS (*STATISTICS) TAPES OR FILES AND PRINTS MANY PAGES OF INTERESTING (HOPEFULLY)
           INFORMATION ABOUT A MONTHS RUNNING OF THE SYSTEM.  IT ALSO READS CPU UTILIZATION AND HASP BATCH
           QUEUE STATISTICS FROM SSRTN (413/1), NORMALLY IN SYS:SSRTNSUMM, AND PRINTS THAT INFORMATION.
            
           THE FOLLOWING LOGICAL I/O UNITS ARE USED:
            
            0         INPUT OF SSRTN (413/1) SUMMARY DATA.
            SPRINT    OUTPUT. 
            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          THE FOLLOWING PL/I FILE NAMES ARE USED: 
            
            ERROR     LOG OF SKIPPED INPUT RECORDS, LIST OF WEEKDAY MINUTES DURING WHICH THE MOST
                      USERS WERE SIGNED ON, AND LIST OF WEEKEND MINUTES DURING WHICH THE MOST USERS
                      WERE SIGNED ON.  THE NUMBER OF MINUTES FOR EACH CATEGORY IS APPROXIMATELY 1%
                      OF THE TOTAL MINUTES FOR THE COMBINED CATEGORIES.
            SAVE      SAVE OR RESTORE INTERMEDIATE INFORMATION (SEE BELOW).
            SCARDS    USES GET LIST FOR 6 OR 7 ITEMS, FOLLOWED BY GET DATA FOR 2 VARIABLES:
            
                         1)   'MM'    MONTH TO ANALYZE, OR
                              '00'    LOOK AT ALL INPUT (REQUIRES 'FULL', Â'CPU', AND Â'MIXED')
            
                         2)   'YYYY'  YEAR
            
                         3)   'PART'  USE DATA FROM WHATEVER PART OF MONTH IS PRESENT, OR
                              'FULL'  EXPECT DATA FROM ENTIRE MONTH, OR
                              '9TO5'  FILTERS ALL DATA EXCEPT 9AM TO 5PM, OR
                              '5TOM'  FILTERS ALL DATA EXCEPT 5PM TO MIDNIGHT, OR
                              'COUR'  FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS BEGINNING
                                      WITH "1", "2", OR "3", OR
                              'UGRD'  FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS 1AWA, 1BF4,
                                      1AAA, 1AGA, 1APA, 1AVA, 1CXA, OR 1HGA.
            
                         4)   'REST'  RESTORE DATA (CHECKPOINT) FROM SAVE, OR
                              'SAVE'  SAVE (CHECKPOINT) DATA ON SAVE, OR
                              'USER'  SAVE NUM OF USERS VERSUS TIME DATA ONLY ON SAVE, OR
                              'CPU.'  SKIP EVERYTHING EXCEPT JOBS PROGRAM STATISTICS, OR
                              'NONE'  NONE OF ABOVE
            
                         5)   'CPU'   PROCESS JOBS STATISTICS DATA, SEE (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'
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0                          DONE
            
           THIS PROGRAM ALSO READS TWO FILES AUTOMATICALLY, *RATEFILE (651/8) AND
           BATCHID (326/7).
0          Referenced by comments of: 326/5, 326/6 
00326/002A  STAT MONTHLY SUMMARY     MAIN PGM        UC  G          S0027 DISTRB FSNAME=SYSSTATUPD                                  
            5.0T1   876  STAT_MONTHLY_SUMMARY.MAIN.UC.002   1 LINE     70    1 PAGE UM   ENGLE               APR. 06, 1981  16:20:39
            5.0T2   157                       
00326/003   STAT MONTHLY SUMMARY     PPAGES SUBR     SP  G          S1319 D4.2T1 VLO FSNAME=STAT_MONTHLY_SUMMARY.PPAG.SP.002(1)  168
            5.0T1   877  STAT_MONTHLY_SUMMARY.PPAG.SP.003   1 LINE     99    7 PAGE UM   ENGLE               JAN. 10, 1979  16:59:12
            5.0T2   158                       
0          SUBROUTINE CALLED BY MAIN PROGRAM.
0          Referenced by comments of: 326/6 
00326/004   STAT MONTHLY SUMMARY     CPUSE SUBR      SG  G          S1143 D4.1T1 VLO FSNAME=STAT_MONTHLY_SUMMARY.CPUS.SG.003(1)  104
            5.0T1   878  STAT_MONTHLY_SUMMARY.CPUS.SG.004   1 LINE    179    4 PAGE UM   ENGLE               DEC. 13, 1977  16:12:06
            5.0T2   159                       
0          SUBROUTINE WHICH READS SSRTN SUMMARY DATA, SEE (413/1), AND PRINTS THE RESULTS.  CALLED ONLY IF 'CPU'
           IS SPECIFIED FOR THE FIFTH PARAMETER OR 'CPU.' IS SPECIFIED FOR THE FOURTH PARAMETER.
0          Referenced by comments of: 326/6, 413/1 
00326/005   STAT MONTHLY SUMMARY     SETRATE         SP  G          S1319 D4.2T1 VLO FSNAME=STAT_MONTHLY_SUMMARY.SETR.SP.004(1)  169
            5.0T1   879  STAT_MONTHLY_SUMMARY.SETR.SP.005   1 LINE     80    6 PAGE UM   ENGLE               JAN. 10, 1979  17:03:02
            5.0T2   160                       
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.
0          Referenced by comments of: 326/6 
00326/006A  STAT MONTHLY SUMMARY     OBJECT          OE  G          S0027 DISTRB FSNAME=SYST                                        
            5.0T1   880  STAT_MONTHLY_SUMMARY.OBJE.OE.006   1 LINE  32767   81 PAGE UM   ENGLE               APR. 06, 1981  16:20:45
            5.0T2   161                       
0          OBJECT MODULES FOR (326/1), (326/3), (326/4), AND (326/5). CONTAINS A SYSDEFS
           RIP CARD AND A $CONTINUE WITH *PL1LIB CARD. RUN WITH PROT=OFF. TO RUN, ISSUE
           SOMETHING LIKE:
            
           $RUN SYST 0=SYS:SSRTNSUMM SPRINT=OUT PAR=ERROR=-ERROR
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00326/007   STAT MONTHLY SUMMARY     BATCHID         D              S1430 4.3T1 VLO FSNAME=STAT_MONTHLY_SUMMARY.BATC.D.007(1)    183
            5.0T1   881  STAT_MONTHLY_SUMMARY.BATC.D.007    1 LINE      4    1 PAGE UM   ENGLE               FEB. 20, 1980  14:02:26
            5.0T2   162                       
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.
0          Referenced by comments of: 326/1 
00328/001   ALLLINES                                 SA           # (OBSOLETE)                                                      
            D2T1    264                                                             UM                                              
00330/001   ABKGET                                   SP  O          S1430 4.3T1 VLO FSNAME=ABKGET..SP.001(1)                     184
            5.0T1   882  ABKGET..SP.001                     1 LINE     80    5 PAGE UM   DWB                 APR. 05, 1980  14:27:12
            5.0T2   163                       
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          S1430 4.3T1 VLO FSNAME=ABKGET..OC.002(1)                     185
            5.0T1   883  ABKGET..OC.002                     1 LINE     80    9 PAGE UM   DWB                 APR. 05, 1980  14:27:14
            5.0T2   164                       
00334/001  *SNOBOL4B                 MAIN            SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4B.MAIN.SA.001(1)                858
            5.0T1   884  SNOBOL4B.MAIN.SA.001               1 SEQ      80  107 PAGE UM   SWARTZ              JULY 31, 1973  23:13.39
            5.0T2   165                       
0          BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.0).
           THIS FILE IS ASSUMED TO BE FILE 1 ON THE INPUT TAPE FOR THE UPDATE.
           COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13).
0          Referenced by comments of: 334/8 
00334/002  *SNOBOL4B                 SUBR            SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4B.SUBR.SA.002(1)                859
            5.0T1   885  SNOBOL4B.SUBR.SA.002               1 SEQ      80   49 PAGE UM   SWARTZ              JULY 31, 1973  23:14.01
            5.0T2   166                       
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          S0563 D4T1 VLO FSNAME=SNOBOL4B.CLEANIO.SA.003(1)             860
            5.0T1   886  SNOBOL4B.CLEANIO.SA.003            1 SEQ      80    8 PAGE UM   SWARTZ              JULY 31, 1973  23:14.24
            5.0T2   167                       
0          BELL LABS SOURCE FOR CLEANIO.  THIS FILE IS ASSUMED TO BE FILE 5 ON THE INPUT
           TAPE FOR THE UPDATE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00334/004  *SNOBOL4B                 BASIC MACROS    SA  G          S0563 D4T1 VLO FSNAME=SNOBOL4B.BASIC_MACROS.SA.004(1)        861
            5.0T1   887  SNOBOL4B.BASIC_MACROS.SA.004       1 SEQ      80   41 PAGE UM   SWARTZ              JULY 31, 1973  23:14.15
            5.0T2   168                       
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          S0563 D4T1 VLO FSNAME=SNOBOL4B.NEW_MACROS.SA.005(1)          862
            5.0T1   888  SNOBOL4B.NEW_MACROS.SA.005         1 SEQ      80    5 PAGE UM   SWARTZ              JULY 31, 1973  23:14.21
            5.0T2   169                       
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              S0563 D4T1 VLO FSNAME=SNOBOL4B.GENERATE.C.006(1)             863
            5.0T1   889  SNOBOL4B.GENERATE.C.006            1 LINE    128    1 PAGE UM   SWARTZ              MAY  08, 1975  14:44:26
            5.0T2   170                       
0          MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4B.
00334/007  *SNOBOL4B                 LINKEDIT        C              S0563 D4T1 VLO FSNAME=SNOBOL4B.LINKEDIT.C.007(1)             864
            5.0T1   890  SNOBOL4B.LINKEDIT.C.007            1 LINE     56    1 PAGE UM   SWARTZ              MAY  08, 1975  14:44:28
            5.0T2   171                       
0          MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4B.
00334/008  *SNOBOL4B                 UPDATE          UU  G          S0563 D4T1 VLO FSNAME=SNOBOL4B.UPDATE.UU.008(1)              865
            5.0T1   891  SNOBOL4B.UPDATE.UU.008             1 LINE     80   22 PAGE UM   SWARTZ              MAY  08, 1975  14:44:18
            5.0T2   172                       
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                                                       
            5.0T1   892  SNOBOL4B.OBJECT.OE.009             1 SEQ   32767   41 PAGE UM   SWARTZ              JULY 03, 1981  13:35:44
            5.0T2   173  *SNOBOL4B            
0          OBJECT FROM ASSEMBLY OF MAIN, SUBR, AND CLEANIO PLUS FTN.O WHICH HAS BEEN COMBINED
           AND PURGED BY *LINKEDIT.
00334/010  *SNOBOL4B                 FTN.O           OE  G          S0563 D4T1 VLO FSNAME=SNOBOL4B.FTN.O.OE.010(1)               867
            5.0T1   893  SNOBOL4B.FTN.O.OE.010              1 LINE    255    5 PAGE UM   SWARTZ              MAY  08, 1975  14:44:42
            5.0T2   174                       
0          FORTRAN I/O ROUTINES FOR USE BY SNOBOL4B.
00334/011  *SNOBOL4B                 MACLEAN                      # (SEE *SNOBOL4)                                                  
                                                                                    UM   SWARTZ                                     
0          Same as MACLEAN under *SNOBOL4 (182/8).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00334/012  *SNOBOL4B                 TEST PGMS       SS  G          S0563 D4T1 VLO FSNAME=SNOBOL4B.TEST_PGMS.SS.012(1)           868
            5.0T1   894  SNOBOL4B.TEST_PGMS.SS.012          1 LINE     74    5 PAGE UM   SWARTZ              MAY  08, 1975  14:44:44
            5.0T2   175                       
0          PROGRAMS FOR TESTING SNOBOL4B.
00335/001  *DITTO                                    SA  G          S0791 FMTJNK 'FORMAT' FSNAME=DITTO                              
            5.0T1   895  DITTO..SA.001                      1 LINE     71    4 PAGE UM   LIFT                NOV. 28, 1977  21:13:32
            5.0T2   176                       
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                                                          
            5.0T1   896  DITTO..OE.002                      1 LINE   2070    2 PAGE UM   LIFT                JULY 03, 1981  13:36:10
            5.0T2   177  *DITTO               
00336/001  *SPL                                                   # (NOT DISTRIBUTED)                                               
            D3T2    277                                                             UM                       JULY 31, 1973  23:16.06
00337/001A  PRINTTRACE                               SA  G          MTA:PRINTTRACE(1,999)                                           
            5.0T4   299  PRINTTRACE..SA.001                 1 LINE     71    4 PAGE UM   MTA                 AUG. 09, 1981  22:49:35
            5.0T10  203  MTA.:PRINTTRACE      
0          SUBROUTINE TO PRINT TRACE TABLE ENTRIES FROM DUMP TAPE OR STAT JOB TAPE. TO GET TRACE TABLE ON STAT JOB
           TAPE TYPE "TRCTP" ON OPERATORS CONSOLE.
           ASSEMBLE USING *SYSMAC.
            
           *********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONTAINS DISK MANAGER CHANGES AND OTHERS.
           *********************************************************************************
0          Referenced by comments of: 400/1, 400/19, 1028/3 
00337/002A  PRINTTRACE                               OC  G          MTA:PRINTTRACE(1000,1999)                                       
            5.0T4   300  PRINTTRACE..OC.002                 1 LINE   3016    3 PAGE UM   MTA                 AUG. 09, 1981  22:49:37
            5.0T10  204                       
00338/001   RIPPLE                   PN/QN           SA  O          MTA:RIPPLE(1,999)                                               
            5.0T1   897  RIPPLE.PN/QN.SA.001                1 LINE     56    1 PAGE UM   MTA                 JULY 03, 1981  13:36:11
            5.0T2   178  MTA.:RIPPLE          
0          PROGRAM TO RIPPLE PRINT ON A PN OR QN PRINTER.  USEFUL FOR CLEANING A TRAIN OR CHECKING OUT A PRINTER.
           OLTEP (458) DOES A BETTER JOB.
0          Referenced by comments of: 338/4 
00338/002   RIPPLE                   PN/QN           OC  O          MTA:RIPPLE(1000)                                                
            5.0T1   898  RIPPLE.PN/QN.OC.002                1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  13:36:11
            5.0T2   179                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00338/003   RIPPLE                   *RIP            C              *RIP                                                            
            5.0T1   899  RIPPLE.*RIP.C.003                  1 LINE     36    1 PAGE UM   MTA                 JULY 03, 1981  13:36:12
            5.0T2   180  *RIP                 
0          COMMAND FILE TO RUN MTA:RIPPLE(1000).  INVOKED BY ENTERING "MTS *RIP , PTRX" ON THE OPERATOR'S CONSOLE,
           WHERE PTRX IS THE PRINTER TO BE RIPPLED.
0          Referenced by comments of: 338/6 
00338/004   RIPPLE                   TN              SA  O          MTA:TNRIP(1,999)                                                
            5.0T1   900  RIPPLE.TN.SA.004                   1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  13:36:13
            5.0T2   181  MTA.:TNRIP           
0          SAME AS (338/1) EXCEPT FOR TN PRINTERS.
00338/005   RIPPLE                   TN              OC  O          MTA:TNRIP(1000)                                                 
            5.0T1   901  RIPPLE.TN.OC.005                   1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  13:36:13
            5.0T2   182                       
00338/006   RIPPLE                   *TNR            C              *TNR                                                            
            5.0T1   902  RIPPLE.*TNR.C.006                  1 LINE     18    1 PAGE UM   MTA                 JULY 03, 1981  13:36:14
            5.0T2   183  *TNR                 
0          SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000).
00339/001   WRITE80                                  S            # (OBSOLETE)                                                      
            D2T1    165                                                             UM                                              
00340/001   READRESTP                                SA  O          MTA:READRESTP(1,999)                                            
            5.0T1   903  READRESTP..SA.001                  1 LINE     72    9 PAGE UM   MTA                 JULY 03, 1981  13:36:15
            5.0T2   184  MTA:READRESTP        
0          PROGRAM WHICH WILL READ A DUMP/RESTORE TAPE AND EXTRACT THINGS FROM AN OS, DOS,
           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.  "LIST NAMES" ON GUSER WILL GET A LIST OF DSNAMES IN
           THE VTOC.  COPIES *SENSEDSECT (3025).
0          Referenced by comments of: 340/2 
00340/002   READRESTP                SUBROUTINE      SA  O        # (PART OF MTA:READRESTP)                                         
                                                                                    UM   MTA                                        
0          SUBROUTINE CALLED BY (340/1).
00340/003   READRESTP                                OC  O          MTA:READRESTP(1000)                                             
            5.0T1   904  READRESTP..OC.003                  1 LINE     80    5 PAGE UM   MTA                 JULY 03, 1981  13:36:18
            5.0T2   185                       
00341/001   RDRSTP                                                # (OBSOLETE)                                                      
            D2T1    168                                                             UM                                              
0          Obsoleted by *UNLINKER (562).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00342/001   LIBPRINT                                 S            # (OBSOLETE)                                                      
            D2T1    171                                                             UM                                              
00343/001   MTS.CONTAB                               SA           # (OBSOLETE)                                                      
            D3.2T1  180  MTS.CONTAB..SA.                    1 LINE     80    4 PAGE UM                       MAR. 21, 1975  01:24:57
0          Now part of COPY:MTS.MACROS (344/3).
00344/001A  MTS.MACROS               D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=MTS_MACROS                  
            5.0T1   905  MTS.MACROS.D5.0_MASTER.SA.001      1 LINE     80  104 PAGE UM   MTS       HELFFRICH AUG. 05, 1981  02:18:08
            5.0T2   186                       
0          D5.0 MASTER SOURCE FOR THE MTS MACRO LIBRARY WHICH IS USED TO ASSEMBLE MTS (042)
           AND THE "MTS SUBROUTINES" AS LISTED UNDER THE COMMENTS FOR (042/2) IN
           ADDITION TO MANY OTHER PROGRAMS. COPIES COPY:RATEVEC (651/3).
0          Referenced by comments of: 344/2 
00344/002A  MTS.MACROS               UPDATE          UC  G          MTS:MTSMACROSUPD                                                
            5.0T1   906  MTS.MACROS.UPDATE.UC.002           1 LINE     96   50 PAGE UM   MTS       HELFFRICH AUG. 05, 1981  02:18:11
            5.0T2   187                       
0          MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE D5.0 (344/1) SOURCE
           FROM THE D4.1 SOURCE.
0          Referenced by comments of: 344/3 
00344/003A  MTS.MACROS               MACRO LIBRARY   SM  G          COPY:MTS.MACROS                                                 
            5.0T1   907  MTS.MACROS.MACRO_LIBRARY.SM.003    1 LINE     72   62 PAGE UM   MTS       HELFFRICH AUG. 05, 1981  02:18:22
            5.0T2   188  COPY:MTS.MACROS      
0          THIS IS "COPY:MTS.MACROS" WHICH IS PRODUCED BY *MACUTIL (738), USING
           AS INPUT THE OUTPUT FROM THE *CDUPDATE RUN OF (344/2) AGAINST THE
           APPROPRIATE BASE SOURCE.
0          Referenced by comments of: 1/5, 1/9, 38/1, 42/1, 71/1, 101/1, 104/15, 116/1, 135/1, 198/1, 322/1, 343/1, 345/1,
                 346/1, 347/1, 348/1, 354/1, 354/5, 355/1, 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 388/1, 388/2,
                 400/5, 413/5, 447/1, 464/1, 482/60, 500/50, 509/1, 513/1, 529/1, 531/1, 531/7, 531/14, 535/1, 535/3, 539/1,
                 553/1, 553/2, 553/5, 559/2, 567/1, 570/1, 578/1, 585/1, 600/1, 600/3, 600/5, 600/7, 600/9, 615/15, 616/1,
                 617/1, 620/1, 622/1, 623/1, 624/1, 629/1, 631/1, 635/1, 636/1, 637/1, 638/1, 639/1, 640/1, 645/1, 648/1,
                 651/11, 677/1, 680/1, 707/1, 725/1, 732/1, 753/1, 753/3, 761/1, 761/3, 770/1, 777/1, 798/31, 798/33, 798/65,
                 798/67, 798/73, 798/79, 798/81, 806/1, 809/3, 809/4, 809/6, 811/3, 1067/5, 1070/3, 3024/1, 4000/1 
00345/001   MTS.EQU                                  SA           # (OBSOLETE)                                                      
            D3.2T1  182  MTS.EQU..SA.                       1 LINE     80    4 PAGE UM                       MAR. 21, 1975  01:25:01
0          Now part of COPY:MTS.MACROS (344/3).
00346/001   MTS.DSECT                                SA           # (OBSOLETE)                                                      
            D3.2T1  183  MTS.DSECT..SA.                     1 LINE     80   20 PAGE UM                       MAR. 21, 1975  01:25:03
0          Now part of COPY:MTS.MACROS (344/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00347/001   MTS.EQU2                                 SA           # (OBSOLETE)                                                      
            D3.2T1  184  MTS.EQU2..SA.                      1 LINE     81    4 PAGE UM                       MAR. 21, 1975  01:25:08
0          Now part of COPY:MTS.MACROS (344/3).
00348/001   MTS.RHTABLE                              SA           # (OBSOLETE)                                                      
            D3.2T1  185  MTS.RHTABLE..SA.                   1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:25:10
0          Now part of COPY:MTS.MACROS (344/3).
00350/001   BLOCKLETTER                              SA           # (OBSOLETE)                                                      
            D2T1    252                                                             UM                                              
00353/001A  BABYSIT                  *BBS            C              *BBS                                                            
            5.0T1   908  BABYSIT.*BBS.C.001                 1 LINE     37    1 PAGE UM   WSG                 JULY 03, 1981  13:37:13
            5.0T2   189  *BBS                 
0          Command file invoked by entering "MTS *BBS" from operator's console which
           signs on under user id "SYS." and runs (353/3) with i/o on the operator's
           console.
00353/002A  BABYSIT                                  SA  O          WSG:BBSIT                                                       
            5.0T1   909  BABYSIT..SA.002                    1 LINE     66    2 PAGE UM   WSG                 JULY 03, 1981  13:37:14
            5.0T2   190                       
0          Program to watch for specified users to signon or signoff. Useful for
           catching a pirate. Run with PROT=OFF. Copies COPY:LLMPSEQU (087) and
           COPY:GLOBALS (1026/3).
00353/003A  BABYSIT                                  OC  O          SYS:BABYSIT                                                     
            5.0T1   910  BABYSIT..OC.003                    1 LINE     80    1 PAGE UM   WSG                 JULY 03, 1981  13:37:15
            5.0T2   191  SYS:BABYSIT          
0          Referenced by comments of: 353/1 
00354/001A  LLXU                     D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=LLXU                        
            5.0T4   301  LLXU.D5.0_MASTER.SA.001            1 LINE     80   59 PAGE UM   MTS       SHERRY    AUG. 09, 1981  22:49:39
            5.0T10  205                       
0          LOAD/LINK/XCTL/UNLOAD SUBROUTINES, THE INTERFACE BETWEEN MTS AND UMLOAD.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 1/4, 42/2 
00354/002A  LLXU                     UPDATE          UC  G          MTS:LLXUUPD                                                     
            5.0T4   302  LLXU.UPDATE.UC.002                 1 LINE     97   15 PAGE UM   MTS       SHERRY    AUG. 09, 1981  22:49:40
            5.0T10  206                       
0          UPDATE TO PRODUCE CURRENT SOURCE.
           UPDATE USES $CONTROL *IN* POSN=LLXU.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00354/003A  LLXU                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       SHERRY                           
0          Object part of Resident System (468)
00354/004A  LLXU                                     L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=LLXU.LIST                  
            5.0T4   303  LLXU..L.004                        1 LINE    133  151 PAGE UM   MTS       SHERRY    AUG. 09, 1981  22:49:46
            5.0T10  207                       
00354/005A  LLXU                     LLXUTEST        SA  G          W009:LLXUTEST.S                                                 
            5.0T1   911  LLXU.LLXUTEST.SA.005               1 LINE    157   47 PAGE UM   SHERRY              JULY 03, 1981  13:37:16
            5.0T2   192                       
0          PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD.  ASSEMBLE USING *SYSMAC, COPY:CC.MACROS (1054/3),
           COPY:MTS.MACROS (344/3), COPY:MISC.MACROS (728) AND THE *OBJUTIL MISCELLANEOUS
           MACROS (721/15).  COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU
           (087), AND *CNFGINFODSECT (654). CONTAINS REFERENCE TO W009:LLXUTEST.XTL 
           (354/9).  DOCUMENTATION ON THE USE OF THIS PROGRAM IS CONTAINED IN THE WRITEUP (354/11).
0          Referenced by comments of: 354/7, 354/9, 354/11 
00354/006A  LLXU                     LLXUTEST        OC  G          W009:LLXUTEST.O                                                 
            5.0T1   912  LLXU.LLXUTEST.OC.006               1 LINE   9964   17 PAGE UM   SHERRY              JULY 03, 1981  13:37:36
            5.0T2   193                       
00354/007A  LLXU                     FAKEGATE        SA  G          W009:FAKEGATE.S                                                 
            5.0T1   913  LLXU.FAKEGATE.SA.007               1 LINE     68    1 PAGE UM   SHERRY              JULY 03, 1981  13:37:39
            5.0T2   194                       
0          DUMMY VERSIONS OF ROUTINES IN GATE (4000) WHICH LLXU CALLS -- REQUIRED FOR
           LLXUTEST (354/5).
00354/008A  LLXU                     FAKEGATE        OC  G          W009:FAKEGATE.O                                                 
            5.0T1   914  LLXU.FAKEGATE.OC.008               1 LINE    204    1 PAGE UM   SHERRY              JULY 03, 1981  13:37:40
            5.0T2   195                       
00354/009A  LLXU                     TOXCTL          SA  G          W009:LLXUTEST.XTL(1000)                                         
            5.0T1   915  LLXU.TOXCTL.SA.009                 1 LINE     50    1 PAGE UM   SHERRY              JULY 03, 1981  13:37:41
            5.0T2   196                       
0          INTERFACE TO XCTL WHICH PERMITS XCTL TO BE TESTED BY LLXUTEST (354/5) WITHOUT
           UNLOADING THE TEST PROGRAM.
0          Referenced by comments of: 354/5 
00354/010A  LLXU                     TOXCTL          OC  G          W009:LLXUTEST.XTL(1,999)                                        
            5.0T1   916  LLXU.TOXCTL.OC.010                 1 LINE     80    1 PAGE UM   SHERRY              JULY 03, 1981  13:37:42
            5.0T2   197                       
00354/011A  LLXU                     TEST WRITEUP    WF             W009:LLXUTEST.W                                                 
            5.0T1   917  LLXU.TEST_WRITEUP.WF.011           1 LINE    119   14 PAGE UM   SHERRY              JULY 03, 1981  13:37:43
            5.0T2   198                       
0          WRITEUP DESCRIBING LLXUTEST (354/5).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 354/5 
00355/001   STATSCN                                  SA  G  STSC    WSG:STATSCN(1,999)                                              
            5.0T1   918  STATSCN..SA.001                    1 LINE     80    7 PAGE UM   WSG                 JULY 03, 1981  13:37:50
            5.0T2   199  WSG.:STATSCN         
0          PROGRAM TO READ THROUGH *STATISTICS DATA (FROM FILE OR TAPE) LOOKING FOR
           SPECIFIED USERID-DATE COMBINATIONS.  RECORDS FOR ANY OF THE SPECIFIED
           USERS ON THE SPECIFIED DATES ARE WRITTEN ON SPUNCH.  FOR EXAMPLE:
            
                         $RUN STATSCN(1000) SPUNCH=-F
                         WSG. 05-08-73
                         STRT 04-XX-73
                         2A?? 06-XX-XX
                         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, USER "STRT" ON ANY
           DAY IN APRIL 1973, OR ANY USER ID BEGINNING WITH "2A" ON ANY DAY IN JUNE
           OF ANY YEAR.  NOTE THAT XX'S MAY BE USED IN ANY FIELD(S) OF THE DATE.
           USER IDS MAY BE SPECIFIED AS "XXXX" (TO ACCEPT ANY USER ID) OR MAY CONTAIN
           A QUESTION MARK IN THE SECOND, THIRD, AND/OR FOURTH CHARACTER (TO ACCEPT
           ANY CHARACTER IN THE CORRESPONDING POSITION(S)). THE PROGRAM PROMPTS FOR
           INPUT (NOT SHOWN HERE).  THE LISTSTAT PROGRAM (071) CAN THEN BE USED TO 
           PRINT THE STATISTICS RECORDS.  ASSEMBLE USING COPY:MTS.MACROS (344/3).
00355/002   STATSCN                                  OC  G          WSG:STATSCN(1000)                                               
            5.0T1   919  STATSCN..OC.002                    1 LINE     80    3 PAGE UM   WSG                 JULY 03, 1981  13:37:52
            5.0T2   200                       
00357/001A  RCALL/ADROF SUBRS                        SA  G  RCAL    S0027 DISTRB FSNAME=RCALL                                       
            5.0T1   920  RCALL/ADROF_SUBRS..SA.001          1 LINE     80    4 PAGE UM   ENGLE               AUG. 13, 1980  13:34:26
            5.0T2   201                       
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').
00357/002A  RCALL/ADROF SUBRS                        UC  G          S0027 DISTRB FSNAME=RCALLUPD                                    
            5.0T1   921  RCALL/ADROF_SUBRS..UC.002          1 LINE     72    2 PAGE UM   ENGLE               AUG. 13, 1980  13:34:31
            5.0T2   202                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00357/003A  RCALL/ADROF SUBRS                        OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   ENGLE                                      
0          Object part of *LIBRARY (524/1)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00358/001A *TAPECOPY                                 SA  G          S0792 WSGFS FSNAME=TAPECOPY                                     
            5.0T1   922  TAPECOPY..SA.001                   1 LINE     72    9 PAGE UM   WSG                 JUNE 10, 1981  16:51:23
            5.0T2   203                       
0          Multiple file tape copy program.  Copies labeled or unlabeled tapes, 7- or 9-track.
00358/002A *TAPECOPY                                 OC  G          *TAPECOPY                                                       
            5.0T1   923  TAPECOPY..OC.002                   1 LINE   5127    3 PAGE UM   WSG                 JULY 03, 1981  13:38:17
            5.0T2   204  *TAPECOPY            
00360/001A  TIME SUBR                                SA  G  TIME    S0027 DISTRB FSNAME=TIME                                        
            5.0T1   924  TIME_SUBR..SA.001                  1 LINE     80   17 PAGE UM   ENGLE               FEB. 04, 1981  15:12:50
            5.0T2   205                       
0          SUBROUTINE TO DO THINGS WITH THE TIME (DATE/TIME, CPU, AND ELAPSED).
           COPIES GRDEF (104/72) AND *CNFGINFODSECT (654).
0          Referenced by comments of: 67/23, 534/6, 798/3 
00360/002C  TIME SUBR                                UC  G          S0027 DISTRB FSNAME=TIMEUPD                                     
            5.0T1   925  TIME_SUBR..UC.002                  1 LINE     71    1 PAGE UM   ENGLE               FEB. 04, 1981  15:13:04
            5.0T2   206                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00360/003A  TIME SUBR                                OC  G          SEG2:TIME                                                       
            5.0T1   926  TIME_SUBR..OC.003                  1 LINE     80    4 PAGE UM   ENGLE               JULY 03, 1981  13:38:36
            5.0T2   207  SEG2:TIME            
0          LOADED INTO SHARED VM BY PISTLE.
00387/001A  HASP                     MAIN            SA  G  HSP     S0996 HASP 'MODULAR HASP' FSNAME=HASP.MAIN                      
            5.0T1   927  HASP.MAIN.SA.001                   1 LINE     80  216 PAGE UM   HANSEN              APR. 23, 1981  13:09:58
            5.0T2   208                       
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 COPY:GLOBALSETS (1026/2), COPY:JOBSTA
           (413/9), AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
0          Referenced by comments of: 9/1, 243/1, 400/1, 570/3 
00387/002A  HASP                     EXEC            SA  G  EXEC    S0996 HASP 'MODULAR HASP' FSNAME=HASP.EXEC                      
            5.0T1   928  HASP.EXEC.SA.002                   1 LINE     80   56 PAGE UM   HANSEN              APR. 23, 1981  13:10:18
            5.0T2   209                       
0          COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9),  AND COPY:LLMPSEQU (087). 
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00387/003A  HASP                     RDR             SA  G  RDR     S0996 HASP 'MODULAR HASP' FSNAME=HASP.RDR                       
            5.0T1   929  HASP.RDR.SA.003                    1 LINE     80   77 PAGE UM   HANSEN              JULY 22, 1981  17:46:01
            5.0T2   210                       
0          COPIES COPY:GLOBALSETS (1026/2).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
00387/004A  HASP                     PPR             SA  G  PPR     S0996 HASP 'MODULAR HASP' FSNAME=HASP.PPR                       
            5.0T1   930  HASP.PPR.SA.004                    1 LINE     80   27 PAGE UM   HANSEN              APR. 23, 1981  13:10:38
            5.0T2   211                       
0          COPIES COPY:GLOBALSETS (1026/2).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
00387/005A  HASP                     DATA            SA  G  DATA    S0996 HASP 'MODULAR HASP' FSNAME=HASP.DATA                      
            5.0T1   931  HASP.DATA.SA.005                   1 LINE     80   10 PAGE UM   HANSEN              APR. 23, 1981  13:10:47
            5.0T2   212                       
0          COPIES COPY:GLOBALSETS (1026/2).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           HASP.MACROS (387/6).
00387/006A  HASP                     MACROS          SM  G  MACS    S0996 HASP 'MODULAR HASP' FSNAME=HASP.MACLIB                    
            5.0T1   932  HASP.MACROS.SM.006                 1 LINE     80  133 PAGE UM   HANSEN              APR. 23, 1981  13:10:51
            5.0T2   213                       
0          HASP MACRO LIBRARY.
0          Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 387/26, 387/29, 387/30, 387/31, 387/34,
                 387/35 
00387/007A  HASP                     OPER            SA  G  OPER    S0996 HASP 'MODULAR HASP' FSNAME=HASP.OPER                      
            5.0T1   933  HASP.OPER.SA.007                   1 LINE     80   98 PAGE UM   HANSEN              APR. 23, 1981  13:11:30
            5.0T2   214                       
0          COPIES COPY:GLOBALSETS (1026/2) AND COPY:LLMPSEQU (087).  ASSEMBLE USING
           COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6).
00387/008A  HASP                     MXMTR           SA  G  MXMT    S0996 HASP 'MODULAR HASP' FSNAME=HASP.MXMTR                     
            5.0T1   934  HASP.MXMTR.SA.008                  1 LINE     80   18 PAGE UM   HANSEN              APR. 23, 1981  13:11:11
            5.0T2   215                       
0          MERIT BATCH TRANSMITTER PROCESSOR.  ASSEMBLE USING COPY:MTS.MACROS (344/3)
           AND HASP.MACROS (387/6). COPIES COPY:GLOBALSETS (1026/2).
00387/009A  HASP                     SEG2:HASP       OC  G          S0996 HASP 'MODULAR HASP' FSNAME=HASP.D.SEG2                    
            5.0T1   935  HASP.SEG2:HASP.OC.009              1 LINE     80   40 PAGE UM   HANSEN              JULY 31, 1981  02:37:17
            5.0T2   216  SEG2:HASP            
0          THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL.  THIS FILE ALSO CONTAINS THE
           HASPLING (388) OBJECT. IF MERIT SUPPORT IS INCLUDED, THE MERIT ASCII/EBCDIC
           TRANSLATION TABLE (570/3) OBJECT MUST BE ADDED TO THIS FILE, A "COM MASCEBC
           EBCMASC" CARD MUST BE PLACED AT THE BEGINNING OF THIS FILE, AND THE 
           SEG2:S2FILES (559/4) ENTRIES FOR HASP MUST BE CHANGED TO USE THE IPLCS 
           OPTION (INSTEAD OF THE IPL OPTION).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 388/3, 570/4 
00387/010A  HASP                     LISTING         L              S1019 HASPLS POSN=HASP.LIST                                     
            5.0T1   936  HASP.LISTING.L.010                 1 LINE    132 1260 PAGE UM   HANSEN              AUG. 05, 1981  02:25:26
            5.0T2   217                       
00387/011   HASP                     HRTP1130        SA  G  1130    W092:HRTP1130.U                                                 
            5.0T1   937  HASP.HRTP1130.SA.011               1 LINE     80  176 PAGE UM   HANSEN              JULY 03, 1981  13:41:28
            5.0T2   218                       
0          REMOTE TERMINAL PROGRAM FOR 1130.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/012   HASP                     HRTPLOAD        SA  G  LOAD    W092:HRTPLOAD.U                                                 
            5.0T1   938  HASP.HRTPLOAD.SA.012               1 LINE     80   38 PAGE UM   HANSEN              JULY 03, 1981  13:41:45
            5.0T2   219                       
0          LOADER FOR REMOTE 1130 PROGRAM.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/013A  HASP                     HRTPB360        SA  G  B360    W092:HRTP360.ASM                                                
            5.0T1   939  HASP.HRTPB360.SA.013               1 LINE     80  104 PAGE UM   HANSEN              JULY 03, 1981  13:41:48
            5.0T2   220                       
0          REMOTE PROGRAM FOR 360'S (BOTH MODEL 20 AND OTHER).  THIS IS THE OS VERSION WITH BUGS FIXED.
           NOTE:  THIS REMOTE PROGRAM IS FROM HASP II VERSION 3.1, ALTHOUGH IT WORKS OK WITH MTS HASP (WHICH
                  WAS DERIVED PRINCIPALLY FROM HASP II VERSION 2.3). INCLUDES TN PRINTER SUPPORT.
00387/014   HASP                     HRTPSYS3        SA  G          S0563 D4T1 VLO FSNAME=HASP.HRTPSYS3.SA.018(1)                919
            5.0T1   940  HASP.HRTPSYS3.SA.014               1 LINE     80  102 PAGE UM   HANSEN              AUG. 02, 1973  02:31.26
            5.0T2   221                       
0          REMOTE PROGRAM FOR IBM SYSTEM/3.  HERE AGAIN, THIS VERSION IS FROM HASP II VERSION 3.1.
00387/015   HASP                     RTPBOOT         B   G          S0563 D4T1 VLO FSNAME=HASP.RTPBOOT.B.019(1)                  920
            5.0T1   941  HASP.RTPBOOT.B.015                 1 LINE    160    1 PAGE UM   HANSEN              AUG. 02, 1973  02:31.40
            5.0T2   222                       
0          BOOTSTRAP LOADER FOR 1130 REMOTE PROGRAM.  THESE ARE THE SIX BINARY CARDS THAT THE HASP
           MANUAL TELLS YOU TO HAND PUNCH.
           THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN AND PLACED AT THE BEGINNING OF THE 1130 REMOTE PROGRAM DECK.
           NO SOURCE AVAILABLE.
00387/016   HASP                     LETRRIP         SA  G          S0563 D4T1 VLO FSNAME=HASP.LETRRIP.SA.020(1)                 921
            5.0T1   942  HASP.LETRRIP.SA.016                1 LINE     80    2 PAGE UM   HANSEN              AUG. 02, 1973  02:31.42
            5.0T2   223                       
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.
0          Referenced by comments of: 387/17 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00387/017   HASP                     LETRRIP         OC  G          S0563 D4T1 VLO FSNAME=HASP.LETRRIP.OC.021(1)                 922
            5.0T1   943  HASP.LETRRIP.OC.017                1 LINE     80    6 PAGE UM   HANSEN              AUG. 02, 1973  02:31.44
            5.0T2   224                       
0          The object is in three parts:
            
             1. The OS/360 object for LETRRIP from HASP with REP cards to patch all
                OS SVC's into invalid op-codes which produce program interrupts which
                can be fielded;
             2. The object from (387/16); and
             3. The object for the ALGOL compiler (or library) MTS interface, (505/2)
                or (505/22).
00387/018   HASP                     *HSP            C              *HSP                                                            
            5.0T1   944  HASP.*HSP.C.018                    1 LINE      9    1 PAGE UM   WSG                 JULY 03, 1981  13:42:22
            5.0T2   225  STRT:*HSP            
0          COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:HSP (387/19).
           INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE.
00387/019   HASP                     HSP             C              MTS:TST.HSP                                                     
            5.0T1   945  HASP.HSP.C.019                     1 LINE     23    1 PAGE UM   WSG                 JULY 03, 1981  13:42:23
            5.0T2   226  STRT:HSP             
0          THIS FILE ISSUES BUNCHES OF HASP COMMANDS ($START ET AL.).  THE PARTICULAR
           COMMANDS WILL HAVE TO BE MODIFIED FOR THE I/O DEVICES IN USE AT EACH
           INSTALLATION.
            
           THE UM LOCAL VERSION (NOT THE DISTRIBUTED VERSION) STARTS *HLG (752).
0          Referenced by comments of: 387/18 
00387/020   HASP                     *DRN            C              *DRN                                                            
            5.0T1   946  HASP.*DRN.C.020                    1 LINE      9    1 PAGE UM   WSG                 JULY 03, 1981  13:42:23
            5.0T2   227  STRT:*DRN            
0          COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:DRN (387/21).
           INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE.
00387/021   HASP                     STRT:DRN        C              STRT:DRN                                                        
            5.0T1   947  HASP.STRT:DRN.C.021                1 LINE     16    1 PAGE UM   WSG                 JULY 03, 1981  13:42:24
            5.0T2   228  STRT:DRN             
0          THIS FILE ISSUES "$DRAIN SAXX" HASP COMMANDS USED TO DRAIN HASP PRIOR TO SHUTDOWN.
           THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE RJE LINES AVAILABLE (IF ANY)
           AT EACH INSTALLATION.
0          Referenced by comments of: 387/20 
00387/022   HASP                     OPER MANUAL     WF             W225:HSPM.FMT                                                   
            5.0T1   948  HASP.OPER_MANUAL.WF.022            1 LINE    225   29 PAGE UM   DONNELLY            JULY 03, 1981  13:42:25
            5.0T2   229                       
0          MTS HASP OPERATOR'S MANUAL.  NOTE:  SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00387/023   HASP                     PCE SNIFFER     SA     PCE     HASP:PCE(1,999)                                                 
            5.0T1   949  HASP.PCE_SNIFFER.SA.023            1 LINE     80    4 PAGE UM   HANSEN              JULY 03, 1981  13:42:34
            5.0T2   230  MTS.:PCE             
0          PCE SNIFFER UTILITY PROGRAM.
           EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE:
            
             F:N1   B:N2   T: N3P  N4U  N5B
            
           WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S,
                 N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION,
                 N3 IS THE NUMBER OF *PRINT* PCE'S,
                 N4 IS THE NUMBER OF *PUNCH* PCE'S,
                 AND N5 IS THE NUMBER OF *BATCH* PCE'S.
            
           IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS
           FROM THE PREVIOUS LINE PRINTED.
           IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE
           USER THEY THINK THEY ARE.  IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS
           FROM THE JCT ID, IT PRINTS:
            
             PCE: AAAAA   JCTID: IIII    JOB TABLE: PPPPPPPP   JOB N
            
           WHERE AAAAA IS THE HEX LOCN OF THE PCE,
                 IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL),
                 PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER),
                 AND N IS THE JOB NUMBER.
            
           USES IOH (278) FOR OUTPUT FORMATTING AND REQUIRES THE HASP COPY SECTIONS.
0          Referenced by comments of: 569/1 
00387/024   HASP                     PCE SNIFFER     OC             HASP:PCE(1000)                                                  
            5.0T1   950  HASP.PCE_SNIFFER.OC.024            1 LINE     80    1 PAGE UM   HANSEN              JULY 03, 1981  13:42:35
            5.0T2   231                       
0          Referenced by comments of: 569/1 
00387/025A  HASP                     WRITEUP         WF             S0996 HASP 'MODULAR HASP' FSNAME=HASP.WRUP                      
            5.0T1   951  HASP.WRITEUP.WF.025                1 LINE    116   18 PAGE UM   HANSEN              APR. 23, 1981  14:18:33
            5.0T2   232                       
0          A DISCUSSION OF THE D5.0 HASP COMPONENTS AND CHANGES WITH A DESCRIPTION OF HOW
           TO ASSEMBLE IT.
00387/026A  HASP                     DUMP/ANAL       SA             S0996 HASP 'MODULAR HASP' FSNAME=D/A.ASM                        
            5.0T1   952  HASP.DUMP/ANAL.SA.026              1 LINE     72   53 PAGE UM   HANSEN              APR. 23, 1981  14:05:07
            5.0T2   233                       
0          THIS PROGRAM PERMITS A SYSTEM PROGRAMMER TO LOOK AT MEMORY OR A DUMP TAPE VIA
           A TAPE OPTIONALLY ASSIGNED TO UNIT 1 AND PRINT IT IN AN EASILY READABLE FORM.
           FORMS PERMITTED ARE PRIMARILY HASP DSECT FORMATS, E.G. PCE AND DCT, AND
           JOBTABLE OR DUMP FORMATS. A HELP COMMAND PROVIDES COMPREHENSIVE DESCRIPTIONS
           AS OBTAINED FROM (387/28). COPIES COPY:GLOBALSETS (1026/2) AND COPY:LLMPSEQU
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          (087). REQUIRES ASSEMBLY WITH THE HASP MACROS (387/6). CONTAINS MTS COMMANDS
           AT THE BEGINNING OF THE FILE TO ASSEMBLE IT. IT ALSO CONTAINS A SPECIAL
           VERSION OF THE SYSADR SUBROUTINE (400/10) WHICH READS FROM THE DUMP TAPE. IT
           REQUIRES THE VMFIND SUBROUTINE (400/3).
0          Referenced by comments of: 387/28 
00387/027A  HASP                     DUMP/ANAL       OC             S0996 HASP 'MODULAR HASP' FSNAME=D/A.D                          
            5.0T1   953  HASP.DUMP/ANAL.OC.027              1 LINE  25000   22 PAGE UM   HANSEN              APR. 23, 1981  14:06:10
            5.0T2   234  HASP:D/A             
00387/028   HASP                     DUMP/ANAL HELP  M              S0996 HASP 'MODULAR HASP' FSNAME=D/A.HELP                       
            5.0T1   954  HASP.DUMP/ANAL_HELP.M.028          1 LINE     68    5 PAGE UM   HANSEN              APR. 23, 1981  14:06:26
            5.0T2   235                       
0          HELP MESSAGE FILE FOR USE BY DUMP/ANAL (387/26).  THIS FILE IS IN THE FORM OF AN
           ASSEMBLER MACRO LIBRARY.
0          Referenced by comments of: 387/26 
00387/029   HASP                     HASPTRACKS      SA  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.S                   
            5.0T1   955  HASP.HASPTRACKS.SA.029             1 LINE     68    4 PAGE UM   HANSEN              APR. 23, 1981  14:06:43
            5.0T2   236                       
0          PROGRAM TO CHECK FOR DUPLICATE OR MISSING TRACKS ON A HASP SPOOL PACK AND
           TO REPAIR (VERIFICATION REQUIRED) THE CYLINDER MAP IN MEMORY.  THE FILE
           BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM.  REQUIRES THE HASP MACRO
           LIBRARY (387/6) FOR ASSEMBLY.  COPIES COPY:GLOBALSETS (1026/2). CALLS THE
           SYSADR (400/10) SUBROUTINE.
0          Referenced by comments of: 387/30 
00387/030A  HASP                     HASPTRACKS      OC  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.D                   
            5.0T1   956  HASP.HASPTRACKS.OC.030             1 LINE    256    6 PAGE UM   HANSEN              MAY  05, 1981  12:44:36
            5.0T2   237                       
0          Object for HASPTRACKS (387/29) plus the object for SYSADR (400/10).
            
           *************************************************************************
           D5.0 version:
            
           Reassembled with new version of (387/6).
           *************************************************************************
00387/031   HASP                     QUESCAN         SA  O          S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.S                      
            5.0T1   957  HASP.QUESCAN.SA.031                1 LINE     71    5 PAGE UM   HANSEN              APR. 23, 1981  14:07:01
            5.0T2   238                       
0          PROGRAM TO SCAN THE HASP QUEUE, VERIFYING THAT ALL ENTRIES ARE PROPERLY LINKED,
           LOCATING UNATTACHED SEGMENTS, AND MAKING OTHER TESTS.  THE FILE BEGINS WITH
           MTS COMMANDS TO ASSEMBLE THE PROGRAM.  COPIES THE HASP COPY SECTIONS AND REQUIRES
           THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY.  CALLS THE SYSADR (400/10) SUBR.
           COPIES COPY:GLOBALSETS (1026/2).
1                                                                                               MON AUG 05/96   18:37:45   Page  161
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 387/32 
00387/032A  HASP                     QUESCAN         OC  O          S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.D                      
            5.0T1   958  HASP.QUESCAN.OC.032                1 LINE    256    6 PAGE UM   HANSEN              APR. 27, 1981  12:03:53
            5.0T2   239                       
0          OBJECT FOR QUESCAN (387/31) PLUS THE OBJECT FOR SYSADR (400/10).
00387/033   HASP                     HASPSTAT CMDS   C              *HPS                                                            
            5.0T1   959  HASP.HASPSTAT_CMDS.C.033           1 LINE     44    1 PAGE UM   HANSEN              AUG. 05, 1981  02:26:19
            5.0T2   240  *HPS                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE HASPSTAT PROGRAM (387/34) TO
           CHECK FOR POSSIBLE HASP PROBLEMS.
00387/034   HASP                     HASPSTAT        SA  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.S                     
            5.0T1   960  HASP.HASPSTAT.SA.034               1 LINE     68    3 PAGE UM   HANSEN              APR. 23, 1981  14:07:09
            5.0T2   241                       
0          PROGRAM TO LOOK AT HASP WHILE IT'S RUNNING AND CHECK FOR POSSIBLE PROBLEMS.
           IF FOUND, THEY ARE PRINTED ON SERCOM.  THE FILE BEGINS WITH MTS COMMANDS TO
           ASSEMBLE THE PROGRAM. COPIES COPY:GLOBALSETS (1026/2). REQUIRES THE HASP
           MACRO LIBRARY (387/6) FOR ASSEMBLY.  CALLS THE SYSADR (400/10) SUBR.
0          Referenced by comments of: 387/33, 387/35 
00387/035A  HASP                     HASPSTAT        OC  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.D                     
            5.0T1   961  HASP.HASPSTAT.OC.035               1 LINE    256    5 PAGE UM   HANSEN              MAY  05, 1981  12:41:35
            5.0T2   242  HASP:HASPSTAT        
0          Object for HASPSTAT (387/34) plus the object for SYSADR (400/10).
            
           *************************************************************************
           D5.0 version:
            
           Reassembled with new version of (387/6).
           *************************************************************************
00387/036C  HASP                     PMF PROJECT     D   G          S0996 HASP 'MODULAR HASP' FSNAME=HASP.D.PMF                     
            5.0T1   962  HASP.PMF_PROJECT.D.036             1 LINE    170    6 PAGE UM   HANSEN              MAY  05, 1981  12:44:47
            5.0T2   243                       
0          This is a PMF project file for handling HASP and friends.  It is
           used by the #PMF CLS (810).
00388/001A  HASPLING                 MAIN            SA  G          S0996 HASP 'MODULAR HASP' FSNAME=HASPLING                       
            5.0T1   963  HASPLING.MAIN.SA.001               1 LINE     82   15 PAGE UM   HANSEN              JULY 31, 1981  02:37:05
            5.0T2   244                       
0          COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING
           COPY:MTS.MACROS (344/3).
            
           *******************************************************************************
           D5.0 VERSION:
1                                                                                               MON AUG 05/96   18:37:45   Page  162
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
           Requires the Tape Unit Check Routines (787/15).
           *******************************************************************************
0          Referenced by comments of: 387/9, 787/16 
00388/002A  HASPLING                 MNET            SA  G          S0996 HASP 'MODULAR HASP' FSNAME=HSPLNG.MNET                    
            5.0T1   964  HASPLING.MNET.SA.002               1 LINE     82   11 PAGE UM   HANSEN              APR. 23, 1981  14:07:55
            5.0T2   245                       
0          ASSEMBLE USING COPY:MTS.MACROS (344/3).
00388/003A  HASPLING                 OBJECT          OC  G        # (PART OF SEG2:HASP)                                             
                                                                                    UM   HANSEN                                     
0          Part of SEG2:HASP (387/9).
00389/001  *GENLIB                                   SA  G          S0563 D4T1 VLO FSNAME=GENLIB..SA.001(1)                      938
            5.0T1   965  GENLIB..SA.001                     1 LINE     80  143 PAGE UM   TIFFANY             JULY 27, 1977  03:05:47
            5.0T2   246                       
0          THIS IS THE SOURCE FOR *GENLIB.
            
           NOTE:  *GENLIB IS STILL SUPPORTED BY UM, BUT *OBJUTIL (721) IS PREFERRED.
0          Referenced by comments of: 505/25 
00389/002  *GENLIB                                   OE  G          *GENLIB                                                         
            5.0T1   966  GENLIB..OE.002                     1 LINE  12279   14 PAGE UM   TIFFANY             JULY 03, 1981  13:43:28
            5.0T2   247  *GENLIB              
0          Contains a $CONTINUE WITH *LIBRARY (524/1) record.
00389/003  *GENLIB                   MESSAGES        M              ETC:GENLIBHELP                                                  
            5.0T1   967  GENLIB.MESSAGES.M.003              1 LINE     66   10 PAGE UM   TIFFANY             JULY 03, 1981  13:43:30
            5.0T2   248  ETC.:GENLIBHELP      
0          MESSAGE FILE REFERENCED FOR THE EXPLAIN COMMAND.
00390/001  *QUE                                      C              *QUE(1,999)                                                     
            5.0T1   968  QUE..C.001                         1 LINE     30    1 PAGE UM   WSG                 JULY 03, 1981  13:43:32
            5.0T2   249  *QUE                 
0          COMMAND FILE TO PRINT A LISTING (ON *PRINT*) OF THE HASP QUEUE.  INVOKED BY
           ENTERING "MTS *QUE" ON THE OPERATOR'S CONSOLE.
00390/002  *QUE                      PGM             SA  G          S0563 D4T1 VLO FSNAME=QUE.PGM.SA.002(1)                      942
            5.0T1   969  QUE.PGM.SA.002                     1 SEQ      80    2 PAGE UM   WSG                 AUG. 02, 1973  02:35.17
            5.0T2   250                       
0          PROGRAM TO PRINT OUT HASP QUEUE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00390/003  *QUE                      PGM             OC  G          *QUE(1000)                                                      
            5.0T1   970  QUE.PGM.OC.003                     1 LINE     80    1 PAGE UM   WSG                 JULY 03, 1981  13:43:34
            5.0T2   251                       
00391/001   FILE STATISTICS                          SP           # (OBSOLETE)                                                      
            D2T1    123                                                             UM                                              
00392/001  *FSAVE                                    SA           # (OBSOLETE)                                                      
            D2.2    116                                                             UM                                              
0          Obsoleted by *FS (548).
0          Referenced by comments of: 549/1 
00399/001A  DUMP                                     SA  G          S0699 D3TAPE POSN=DUMP.D5                                       
            5.0T4   304  DUMP..SA.001                       1 LINE     80   12 PAGE UM   MTA                 AUG. 09, 1981  22:49:53
            5.0T10  208                       
0          THIS IS THE UMMPS SYSTEM DUMP PROGRAM.  IT TAKES A DUMP OF ALL OF REAL MEMORY PLUS, OPTIONALLY,
           THE VM FOR A SPECIFIED JOB.  IT WRITES THE DUMP UNFORMATED ONTO A 9-TRACK LABELED TAPE FOR
           WHICH THE VOLUME LABEL MUST BE 'DUMPXX'.  THE PRINTDUMP PROGRAM (400) WILL PRINT SELECTED
           PARTS OF A DUMP TAPE.
           COPIES COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 399/2, 400/1 
00399/002A  DUMP                     UPDATE          UC  G          MTA:DUMP.U                                                      
            5.0T1   971  DUMP.UPDATE.UC.002                 1 LINE     65    1 PAGE UM   MTA                 JULY 03, 1981  13:43:35
            5.0T2   252                       
0          UPDATES D4.0 TO PRODUCE (399/1).
00399/003A  DUMP                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00400/001A  PRINTDUMP                D5.0 MAIN       SA  G          S0699 D3TAPE POSN=DMPLST.D5                                     
            5.0T4   305  PRINTDUMP.D5.0_MAIN.SA.001         1 LINE     80   89 PAGE UM   MTA                 AUG. 09, 1981  22:50:32
            5.0T10  209                       
0          PRINTS DUMP TAPES PRODUCED BY SYSTEM DUMP (399). A SEPARATE DUMP PROGRAM IS
           ALSO AVAILABLE FOR HASP, SEE (387). PRINTDUMP REQUIRES PRINTTRACE (337), IOH
           (278) FOR THE "TRACE" COMMAND ONLY, TASKSTAT (647), AND LOADCLAS (540/8).
           COPIES COPY:LLMPSEQU (087), COPY:PCBDSECT (470), COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/2), AND *CNFGINFODSECT (654). ASSEMBLE USING
           COPY:SETPARM (653) AND (400/18) AND COPY:MISC.MACROS (728).
            
           MOST SUBCOMPONENTS OF PRINTDUMP REQUIRE THE (400/18) MACROS.
0          Referenced by comments of: 9/1, 45/2, 399/1, 4003/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00400/002A  PRINTDUMP                MAIN UPDATE     UC  G          MTA:DMPLST.U(1)                                                 
            5.0T4   306  PRINTDUMP.MAIN_UPDATE.UC.002       1 LINE    102   60 PAGE UM   MTA                 AUG. 09, 1981  22:50:33
            5.0T10  210                       
0          UPDATE TO PRODUCE THE CURRENT SOURCE FOR THE MAIN PROGRAM FROM THE D4.0
           SOURCE.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           Changed for device table vector addition to job table format.  Install if
           and only if D4.3A or D5.0 UMMPS is installed.
           Many other changes were also made.
           ***********************************************************************************
00400/003A  PRINTDUMP                5.0 VMFIND SUB  SA  G          S0699 D3TAPE POSN=DMPLST.VMFIND.D5                              
            5.0T4   307  PRINTDUMP.5.0_VMFIND_SUB.SA.003    1 LINE     80    7 PAGE UM   MTA                 AUG. 09, 1981  22:50:44
            5.0T10  211                       
0          SUBROUTINE TO FIND A VM PAGE ON A DUMP TAPE.
0          Referenced by comments of: 387/26 
00400/004A  PRINTDUMP                VMFIND SUB UPD  UC  G          MTA:DMPLST.VMF.U(1)                                             
            5.0T4   308  PRINTDUMP.VMFIND_SUB_UPD.UC.004    1 LINE     51    1 PAGE UM   MTA                 AUG. 09, 1981  22:50:45
            5.0T10  212                       
00400/005A  PRINTDUMP                D5 SSCN SUBR    SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=SSCN                        
            5.0T4   309  PRINTDUMP.D5_SSCN_SUBR.SA.005      1 LINE     80   17 PAGE UM   MTS       MTA       AUG. 09, 1981  22:50:48
            5.0T10  213                       
0          D4.0 MASTER SOURCE FOR SUBROUTINE TO DUMP THE VM OF AN MTS TASK, FORMATTING IT
           APPROPRIATELY.  MUST BE REASSEMBLED WHENEVER THE MTS DSECT IS CHANGED.  COPIES
           COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING
           COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2, 400/8 
00400/006A  PRINTDUMP                SSCN SUBR UPD   UC  G          MTS:SSCNUPD                                                     
            5.0T4   310  PRINTDUMP.SSCN_SUBR_UPD.UC.006     1 LINE     79   10 PAGE UM   MTS       MTA       AUG. 09, 1981  22:50:49
            5.0T10  214                       
0          MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE.
           UPDATE USES $CONTROL *IN* POSN=SSCN.
00400/007A  PRINTDUMP                SSCN SUBR LIST  L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=SSCN.LIST                  
            5.0T4   311  PRINTDUMP.SSCN_SUBR_LIST.L.007     1 LINE    133   50 PAGE UM   MTS       MTA       AUG. 09, 1981  22:50:57
            5.0T10  215                       
00400/008A  PRINTDUMP                5.0 DUMP SUBR   SA  G          S0699 D3TAPE POSN=DMPLST.DUMP.D5                                
            5.0T4   312  PRINTDUMP.5.0_DUMP_SUBR.SA.008     1 LINE     80    4 PAGE UM   MTA                 AUG. 09, 1981  22:50:58
            5.0T10  216                       
0          SUBROUTINE TO FORMAT DUMP OUTPUT.  CALLED BY SSCN (400/5).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00400/009A  PRINTDUMP                DUMP SUBR       UC  G          MTA:DMPLST.DMP.U(1)                                             
            5.0T4   313  PRINTDUMP.DUMP_SUBR.UC.009         1 LINE     80    2 PAGE UM   MTA                 AUG. 09, 1981  22:50:59
            5.0T10  217                       
00400/010A  PRINTDUMP                5.0 SYSADR SUB  SA  G          S0699 D3TAPE POSN=DMPLST.SYSADR.D5                              
            5.0T4   314  PRINTDUMP.5.0_SYSADR_SUB.SA.010    1 LINE     80    3 PAGE UM   MTA                 AUG. 09, 1981  22:51:38
            5.0T10  218                       
0          SUBROUTINE TO RESOLVE A NAME FROM THE UMLOAD SYMBOL TABLE FOR THE RESIDENT SYSTEM
           ON A DUMP TAPE.
0          Referenced by comments of: 387/26, 387/29, 387/30, 387/31, 387/32, 387/34, 387/35 
00400/011A  PRINTDUMP                SYSADR UPDATE   UC  G          MTA:DMPLST.ADR.U(1)                                             
            5.0T4   315  PRINTDUMP.SYSADR_UPDATE.UC.011     1 LINE     69    1 PAGE UM   MTA                 AUG. 09, 1981  22:51:38
            5.0T10  219                       
0          UPDATE TO PRODUCE CURRENT SOURCE FROM THE PREVIOUS SOURCE.
00400/012   PRINTDUMP                5.0 ICTAB SUBR  SA  G          S0563 D4T1 VLO FSNAME=PRINTDUMP.ICTAB_SUBR.SA.008(1)         952
            5.0T4   316  PRINTDUMP.5.0_ICTAB_SUBR.SA.012    1 LINE     80   21 PAGE UM   MTA                 JULY 27, 1977  03:06:43
            5.0T10  220                       
0          SUBROUTINE WHICH IMPLEMENTS THE ICTAB COMMAND FOR PRINTDUMP.  THIS IS A MODIFIED
           VERSION OF TABLMOD (554).  ASSEMBLE USING COPY:FILE.MACROS (482/45).
00400/013   PRINTDUMP                5.0 ICSTAT SUB  SA  G          S0563 D4T1 VLO FSNAME=PRINTDUMP.ICSTAT_SUBR.SA.009(1)        953
            5.0T4   317  PRINTDUMP.5.0_ICSTAT_SUB.SA.013    1 LINE     80    6 PAGE UM   MTA                 JULY 27, 1977  03:06:45
            5.0T10  221                       
0          VERSION OF THE ICSTAT SUBROUTINE, PART OF (482/34), THAT WORKS FROM A DUMP TAPE.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
00400/014   PRINTDUMP                CMDREAD SUBR    SA  G          S1430 4.3T1 VLO FSNAME=PRINTDUMP.CMDREAD_SUBR.SA.016(1)      230
            5.0T4   318  PRINTDUMP.CMDREAD_SUBR.SA.014      1 LINE     72    7 PAGE UM   MTA                 APR. 05, 1980  14:40:26
            5.0T10  222                       
0          SUBROUTINE TO READ COMMANDS.  ASSEMBLE WITH COPY:CC.MACROS (1054/3).
           COPIES *GDINFODSECT (594).
00400/015   PRINTDUMP                IOSETUP SUBR    SA  G          S1430 4.3T1 VLO FSNAME=PRINTDUMP.IOSETUP_SUBR.SA.017(1)      231
            5.0T4   319  PRINTDUMP.IOSETUP_SUBR.SA.015      1 LINE     72    4 PAGE UM   MTA                 APR. 05, 1980  14:40:29
            5.0T10  223                       
0          SUBROUTINE TO FIND A DUMP TAPE.  COPIES *GDINFODSECT (594).
00400/016A  PRINTDUMP                ITDUMP SUBR     SA  G          S0699 D3TAPE POSN=DMPLST.ITD.D5                                 
            5.0T4   320  PRINTDUMP.ITDUMP_SUBR.SA.016       1 LINE     80   19 PAGE UM   MTA                 AUG. 09, 1981  23:04:03
            5.0T10  224                       
0          DUMPS UBC INTERTASK STUFF (1081).  ASSEMBLE WITH THE PRINTDUMP MACROS
           (400/18).  COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND
           COPY:IT.COPY_SECT (1081/5).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 1081/5 
00400/017A  PRINTDUMP                ITDUMP SUB UPD  UC  G          MTA:DMPLST.IT.U(1)                                              
            5.0T4   321  PRINTDUMP.ITDUMP_SUB_UPD.UC.017    1 LINE     70    3 PAGE UM   MTA                 AUG. 09, 1981  23:04:04
            5.0T10  225                       
00400/018A  PRINTDUMP                MACROS          SM  G          MTA:DMPLST.MACROS                                               
            5.0T4   322  PRINTDUMP.MACROS.SM.018            1 LINE     75    3 PAGE UM   MTA                 AUG. 09, 1981  23:04:05
            5.0T10  226  MTA:DMPLST.MACROS    
0          MACRO LIBRARY REQUIRED FOR ASSEMBLY BY MOST PARTS OF PRINTDUMP. 
0          Referenced by comments of: 400/1, 400/16, 729/2, 814/4, 1012/1 
00400/019A  PRINTDUMP                                OC  G          MTS:PRINTDUMP                                                   
            5.0T4   323  PRINTDUMP..OC.019                  1 LINE  14698   27 PAGE UM   MTA                 SEP. 04, 1981  02:55:56
            5.0T10  227  MTS.:PRINTDUMP       
0          THIS FILE CONTAINS THE OBJECT FOR ALL OF PRINTDUMP PLUS PRINTTRACE (337).
0          Referenced by comments of: 732/6, 814/2, 814/9, 814/11 
00410/001A *ASMTIDY                                  SA  G          LBT:ASMTIDY.S                                                   
            5.0T1   972  ASMTIDY..SA.001                    1 LINE     73   39 PAGE UM             TIFFANY   JULY 03, 1981  13:43:36
            5.0T2   253                       
0          PROGRAM TO CLEAN UP AND ENTER ASSEMBLY PROGRAMS INTO FILES.
           USES ASMTIDY MACLIB (410/3) AND *SYSMAC.  COPIES *GDINFODSECT (594).
            
           ******************************************************************************
           D4.3A VERSION:
            
           THIS IS A NEW VERSION OF *ASMTIDY.  THERE ARE SOME INCOMPATIBILITIES BETWEEN
           THIS VERSION AND THE OLD VERSION (LAST DISTRIBUTED ON D4.0).  INDEXED
           WRITES ON SPUNCH ARE NO LONGER USED; USERS ARE ADVISED NOT TO ASSIGN SCARDS
           AND SPUNCH TO THE SAME FILE.  THE ORIGINAL PARAMETER SEQ SHOULD BE CHANGED TO
           CARD FOR SEQ=ON AND FREE FOR SEQ=OFF.  ASMTIDY'S SEQ PARAMETER SPECIFIES THAT
           IT IS TO PRODUCE SEQUENCE IDS IN COLUMNS 73-80 OF SPUNCH OUTPUT.  ANOTHER
           PARAMETER, RE#, IS NO LONGER USED, AS THE OUTPUT CAN BE RENUMBERED BY
           SPECIFYING APPROPRIATE LINE NUMBERS AND INCREMENTS ON THE SPUNCH FILE.
            
           ASMTIDY CAN NOW PROCESS THE ICTL ASSEMBLER INSTRUCTION, TIDY CONTINUATIONS
           USING THE ALTERNATE FORMAT WHENEVER POSSIBLE, INDENT STRUCTURED PROGRAMMING
           MACROS, AND EDIT MACHINE INSTRUCTIONS (SUCH AS CHANGING NUMERICAL VALUES TO
           REGISTER EQUATES, OR REPLACING BC AND BCR INSTRUCTIONS WITH EXTENDED BRANCH
           INSTRUCTIONS).
            
           D5.0 Changes:
            
           1.  Two new parameters added:  TERSE/VERBOSE
           2.  Message "***TIDYING COMPLETE***" has been changed to "n ASSEMBLY
               SOURCES TIDIED" to tell the user how many assembly sources were
               tidied.
           3.  The default has been changed from NOBATCH to BATCH.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          ******************************************************************************
0          Referenced by comments of: 410/3 
00410/002A *ASMTIDY                                  OC  G          *ASMTIDY                                                        
            5.0T1   973  ASMTIDY..OC.002                    1 LINE  15540   20 PAGE UM             TIFFANY   JULY 03, 1981  13:43:42
            5.0T2   254  *ASMTIDY             
00410/003A *ASMTIDY                  MACLIB          SM  G          LBT:ASMTIDY.MAC                                                 
            5.0T1   974  ASMTIDY.MACLIB.SM.003              1 LINE     73    4 PAGE UM             TIFFANY   JULY 03, 1981  13:43:45
            5.0T2   255                       
0          Macro library used for assembling (410/1).
0          Referenced by comments of: 410/1 
00413/001A  SYSTEM STATUS            SSRTN           SA  G          WSG:SSRTN                                                       
            5.0T1   975  SYSTEM_STATUS.SSRTN.SA.001         1 LINE     72   46 PAGE UM   WSG                 JULY 03, 1981  13:43:46
            5.0T2   256  WSG.:SSRTN           
0          The System Status Routine, SSRTN, computes system load (CPU, paging, disk,
           channel, and drum space) during every 20 seconds of system operation. It is a
           subroutine called by the OPERATOR job (634), the JOBS job (413/3) and the MTS
           $SYSTEMSTATUS CLS (413/5). It also has a separate entry point, SSFMT, which
           only produces the formatted output vector as printed by the LOAD command.
           This entry is called by the OPERATOR job (to produce the top line on the
           console screen) and by the 3270 %ACTIVITY command (629/4). The MASTER command
           can only be activated by one task at a time. When issued, it causes that task
           to perform the load calculation every 20 seconds updating the information in
           the JOBSTA vector (413/7) for use by other tasks and also logging the data
           via CMDSTAT as record type 8. SSRTN calls BJPMOD (650), CHECKFE (731),
           TASKSTAT (647), TSKFMT (019), CMDSTATS (531), and PATHDEV (818). Copies
           COPY:BJPDSCT (650/3), COPY:JOBSTA (413/9), COPY:LLMPSEQU (087), COPY:GLOBALS
           (1026/3), *CNFGINFODSECT (654), and COPY:MNTQINFDSECT (806/3).
            
           Changed as follows since D4.0:
             1. SSFMT expanded to also return the header line for LOAD command.
             2. DISPLAY command changed to allow optional JOB=n parameter immediately
                before the display address if issued by OPERATOR job, JOBS job, or $SY
                with user id MTS. When JOB=n is given, the private VM for job n is
                displayed, rather than the current job.
             3. DISPLAY command changed to allow DISPLAY LOCK n for displaying which job,
                if any, currently has Supervisor lock n set.
             4. The length of the HASP $ROUTAB table entries has been parameterized since
                the UM HASP now supports RJE passwords (requiring 32-byte $ROUTAB
                entries instead of 16).
             5. The MASTER command now produces a summary record every 10 minutes (via a
                new CMDSTAT call -- type 19) which currently contains only 10 bytes of
                data, all halfwords: summary period length in seconds, average cpu
                utilization over summary period as percent * 100, average HASP exec queue
                length over summary period, max HASP exec queue length during period,
                and min HASP exec queue length during period. The SVEC command has
                been removed. The summary data is placed in the file SYS:SSRTNSUMM by
                *DWB (531/13) and may be printed by SUMMPRT (413/10) or summarized by
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0               the CPUSE subroutine (326/4) on a monthly basis.
             6. If the external symbol CHECKFE is defined, the new "check front end"
                subroutine (731) is called every several minutes to check on the status
                (up, down, offline, etc.) of front end processors. It will inform the
                operator of any abnormal conditions it notices. Symbols in JOBSTA
                (413/9) are used to control the checking of the front ends and to report
                their status. At UM, the symbols JSCAS, JSCBS, JSCCS, and JSMNS are used
                for the status of the three data concentrators and the Merit front end
                respectively.
             7. Allows for more than 999 real pages in various output formats.
             8. Changed to maintain a count of the number of free job tables as well as
                a count of the number of additional grabs which can be done
                by 3270 jobs.
             9. Messages now appear in upper/lower case.
            10. Minor changes for CHECKFE, including calling it every interval and
                adding JSCDS for the fourth data concentrator.
            11. Additional JOBSTA items added for use by BJPMOD.
            12. Changed for device table vector addition to job table format. Install if
                and only if D4.3A or D5.0 UMMPS is installed.
            13. A bug related to the mask used for finding the remote station routing in
                HASP queue entries has been fixed.
            14. Several changes were made to the LOAD command to make it work more
                reliably when a job number is given as a parameter.
            15. Use of DRUMTBL removed.
            16. LOAD and JOB commands now print the disk I/O activity for the job.
            17. DIS and MOD of non-user and non-system storage is now allowed even
                if a run-only program is loaded.
            18. MOD of user storage now allowed for non-privileged users.
0          Referenced by comments of: 19/1, 45/2, 326/1, 326/4, 413/3, 413/5, 413/7, 413/10, 540/10, 647/1, 650/1, 731/1,
                 806/1, 806/2, 806/3, 818/1 
00413/002A  SYSTEM STATUS            SSRTN           OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   WSG                                        
0          Object part of Resident System (468)
00413/003   SYSTEM STATUS            JOBS JOB        SA  G          S0563 D4T1 VLO FSNAME=SYSTEM_STATUS.JOBS_JOB.SA.003(1)       963
            5.0T1   976  SYSTEM_STATUS.JOBS_JOB.SA.003      1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  03:07:17
            5.0T2   257                       
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        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   WSG                                        
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00413/005A  SYSTEM STATUS            SYS STAT CLS    SA  G          WSG:SSTA.CLS(1,999)                                             
            5.0T1   977  SYSTEM_STATUS.SYS_STAT_CL.SA.005   1 LINE     71    8 PAGE UM   WSG                 JULY 03, 1981  13:43:54
            5.0T2   258                       
0          $SYSTEMSTATUS CLS for interfacing with SSRTN (413/1) from MTS command level.
           Assemble using COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 413/1, 806/1 
00413/006A  SYSTEM STATUS            SYS STAT CLS    OC  G          *CLSSSTA                                                        
            5.0T1   978  SYSTEM_STATUS.SYS_STAT_CL.OC.006   1 LINE   2076    1 PAGE UM   WSG                 JULY 03, 1981  13:43:57
            5.0T2   259  *CLSSSTA             
0          This file is normally loaded into shared VM at IPL by pistle.
00413/007   SYSTEM STATUS            JOBSTA VECTOR   SA  G          WSG:SSTA.VEC(1,999)                                             
            5.0T1   979  SYSTEM_STATUS.JOBSTA_VECT.SA.007   1 LINE     51    1 PAGE UM   WSG                 JULY 03, 1981  13:43:57
            5.0T2   260                       
0          System status information vector maintained by SSRTN (413/1).
           Copies COPY:JOBSTA (413/9).
0          Referenced by comments of: 413/1, 540/10 
00413/008A  SYSTEM STATUS            JOBSTA VECTOR   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   WSG                                        
0          This object deck should be kept in segment 0 to reduce the overhead of the SVC WAYT in SSRTN.
           Object part of Resident System (468)
00413/009A  SYSTEM STATUS            JOBSTA DSECT    SA  G          COPY:JOBSTA                                                     
            5.0T1   980  SYSTEM_STATUS.JOBSTA_DSEC.SA.009   1 LINE     71    3 PAGE UM   WSG                 AUG. 05, 1981  02:27:50
            5.0T2   261  COPY:JOBSTA          
0          This is the DSECT for the system status vector.
0          Referenced by comments of: 42/1, 101/1, 198/1, 387/1, 387/2, 413/1, 413/7, 540/10, 634/1, 647/1, 650/1, 731/1,
                 806/1, 3024/3, 4000/33 
00413/010   SYSTEM STATUS            SUMMPRT         SG  G          WSG:SUMMPRT(1,999)                                              
            5.0T1   981  SYSTEM_STATUS.SUMMPRT.SG.010       1 LINE    121    1 PAGE UM   WSG                 JULY 03, 1981  13:43:59
            5.0T2   262  WSG.:SUMMPRT         
0          GOM program to print summary data collected by SSRTN (413/1).
0          Referenced by comments of: 326/1, 413/1 
00413/011   SYSTEM STATUS            SUMMPRT         OC  G          WSG:SUMMPRT(1000)                                               
            5.0T1   982  SYSTEM_STATUS.SUMMPRT.OC.011       1 LINE     80    2 PAGE UM   WSG                 JULY 03, 1981  13:44:00
            5.0T2   263                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00413/012   SYSTEM STATUS            DOCUMENTATION   WF             WSG:SSRTN.DOC                                                   
            5.0T4   324  SYSTEM_STATUS.DOCUMENTATI.WF.012   1 LINE    106    3 PAGE UM   WSG                 AUG. 09, 1981  23:04:10
            5.0T10  228                       
0          Writeup describing the system load computation algorithm and job scheduling
           mechanism. (Note: this writeup is slightly out-of-date.)
00414/001  *TAPEDUMP                                 SA  G          S0792 WSGFS FSNAME=TAPEDUMP                                     
            5.0T1   983  TAPEDUMP..SA.001                   1 LINE     73   10 PAGE UM   WSG                 AUG. 29, 1980  17:33:28
            5.0T2   264                       
0          Program to dump 7- or 9-track tapes or files.
00414/002  *TAPEDUMP                                 OE  G          *TAPEDUMP                                                       
            5.0T1   984  TAPEDUMP..OE.002                   1 LINE   3883    3 PAGE UM   WSG                 JULY 03, 1981  13:44:05
            5.0T2   265  *TAPEDUMP            
00418/001  *HBT                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    183                                                             UM                                              
00421/001  *SCN                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    199                                                             UM                                              
00422/001   FORTRAN LIBRARY                          SA           # (OBSOLETE)                                                      
            D3T2    350  FORTRAN_LIBRARY.IBCOM#.SA.1        1 LINE     80   29 PAGE UM                       AUG. 02, 1973  02:49.57
0          Obsoleted by FIX (1002).
00436/001   GTDJMSR                                  SA             DWB:GRJTM(1,124)                                                
            5.0T1   985  GTDJMSR..SA.001                    1 LINE     77    3 PAGE UM   DWB                 JULY 03, 1981  13:44:05
            5.0T2   266  DWB.:GRJTM           
0          SUBROUTINE TO CONVERT GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900.
           SIMILAR TO GRGJULTM (518), BUT TAKES DIFFERENT ARGUMENTS.
00436/002   GTDJMSR                                  OC           # (PART OF *LIBRARY)                                              
                                                                                    UM   DWB                                        
0          Object part of *LIBRARY (524/1)
00436/003   GTDJMSR                  GTDJMS          SA             DWB:GTDJMS(1,999)                                               
            5.0T1   986  GTDJMSR.GTDJMS.SA.003              1 LINE     77    1 PAGE UM   DWB                 JULY 03, 1981  13:44:06
            5.0T2   267  DWB.:GTDJMS          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO GTDJMSR.  CONVERTS GREGORIAN
           TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900.
00436/004   GTDJMSR                  GTDJMS          OC           # (PART OF *LIBRARY)                                              
                                                                                    UM   DWB                                        
0          Object part of *LIBRARY (524/1)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00437/001   JMSGTDR/JTUGTDR                          SA             DWB:JMSGTDR(125,999)                                            
            5.0T1   987  JMSGTDR/JTUGTDR..SA.001            1 LINE     77    4 PAGE UM   DWB                 JULY 03, 1981  13:44:07
            5.0T2   268  DWB.:JMSGTDR         
0          SUBROUTINE TO CONVERT JULIAN MICRO-SECONDS TO GREGORIAN TIME AND DATE.
           SIMILAR TO JULGRGTM (522), BUT TAKES DIFFERENT ARGUMENTS.  HAS ALTERNATE
           ENTRY POINT (JTUGTDR) WHICH CONVERTS JULIAN TIMER-UNITS TO GREGORIAN TIME
           AND DATE.  THIS IS THE UBC-CORRECTED VERSION OF FEB/77 WITH A FEW ADDITIONAL
           UM CORRECTIONS ADDED.
00437/002   JMSGTDR/JTUGTDR                          OC           # (PART OF *LIBRARY)                                              
                                                                                    UM   DWB                                        
0          Object part of *LIBRARY (524/1)
00437/003   JMSGTDR/JTUGTDR          JMSGTD          SA             DWB:JMSGTD(1,999)                                               
            5.0T1   988  JMSGTDR/JTUGTDR.JMSGTD.SA.003      1 LINE     77    1 PAGE UM   DWB                 JULY 03, 1981  13:44:08
            5.0T2   269  DWB.:JMSGTD          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JMSGTDR.
00437/004   JMSGTDR/JTUGTDR          JMSGTD          OC           # (PART OF *LIBRARY)                                              
                                                                                    UM   DWB                                        
0          Object part of *LIBRARY (524/1)
00437/005   JMSGTDR/JTUGTDR          JTUGTD          SA             DWB:JTUGTD(1,999)                                               
            5.0T1   989  JMSGTDR/JTUGTDR.JTUGTD.SA.005      1 LINE     77    1 PAGE UM   DWB                 JULY 03, 1981  13:44:08
            5.0T2   270  DWB.:JTUGTD          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JTUGTDR.
00437/006   JMSGTDR/JTUGTDR          JTUGTD          OC           # (PART OF *LIBRARY)                                              
                                                                                    UM   DWB                                        
0          Object part of *LIBRARY (524/1)
00441/001  *FILEUSE                                  SA  G        # (OBSOLETE)                                                      
            D3T2    369  FILEUSE..SA.1                      1 LINE     80    5 PAGE UM                       AUG. 02, 1973  02:54.05
0          Obsoleted by the FILESTATUS command (529).
00442/001A  CCATL                                    SA  O  CCAT    FILE:CCATL(1000)                                                
            5.0T1   990  CCATL..SA.001                      1 LINE     80   18 PAGE UM   HELFFRICH           JULY 03, 1981  13:44:09
            5.0T2   271  FILE:CCATL           
0          THE GENERAL OPERATION OF THIS PROGRAM IS 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 IN FOUR SEPARATE EXTENTS (AND VOLUMES) OR SOMEWHERE
           IN BETWEEN DEPENDING ON HOW THE EXTENT SIZES AND CATALOG SIZES ARE SPECIFIED.
           (AT UM, PUT THE MICAT, SYSCAT, AND SFCAT ON THREE SEPARATE VOLUMES TO
           MINIMIZE CONTENTION.) ASSEMBLE USING COPY:FILE.MACROS (482/45). SEE COMP
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          (682/2) FOR A WRITEUP.
0          Referenced by comments of: 682/2 
00442/002A  CCATL                                    OC  O          FILE:CCATL(1,999)                                               
            5.0T1   991  CCATL..OC.002                      1 LINE     80    5 PAGE UM   HELFFRICH           JULY 03, 1981  13:44:13
            5.0T2   272                       
00443/001   FORMAT-TEXT360 CONVERTER                 SS  S          W073:FORMAT2T360                                                
            5.0T1   992  FORMAT-TEXT360_CONVERTER..SS.001   1 LINE     90    9 PAGE UM   SALISBURY           JULY 03, 1981  13:44:15
            5.0T2   273                       
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/001A  MTS VOLUME 2             MASTER          WT             S0485 MTSV2 'MTS MANUALS' POSN=NEWM13.V2                        
            5.0T1   993  MTS_VOLUME_2.MASTER.WT.001         1 SEQ     132  283 PAGE UM   MANUAL              JULY 03, 1981  13:45:49
            5.0T2   274                       
0          TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUALS,
           ISSUED DECEMBER 1978, UPDATED OCTOBER 1979, APRIL 1980, AND MAY 1981.
            
           EDITOR:  RICHARD A. SALISBURY
00444/002A  MTS VOLUME 2             PRINT           PT             S0485 MTSV2 'MTS MANUALS' POSN=PRINT13.V2                       
            5.0T1   994  MTS_VOLUME_2.PRINT.PT.002          1 SEQ     132  525 PAGE UM   MANUAL              JULY 03, 1981  13:46:02
            5.0T2   275                       
0          TEXT/360 PRINT FILE.
00444/003   MTS VOLUME 2             FLOWCHART       P              S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_2.FLOWCHART.P.003(1)      219
            5.0T1   995  MTS_VOLUME_2.FLOWCHART.P.003       1 SEQ     133    6 PAGE UM   MANUAL              MAR. 26, 1979  02:54:14
            5.0T2   276                       
0          *FLOWCHART EXAMPLE -- MUST BE PRINTED AT 8 LINES/INCH.
00444/004   MTS VOLUME 2             UPDATE 1        PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_2.UPDATE_1.PT.004(1)       242
            5.0T1   996  MTS_VOLUME_2.UPDATE_1.PT.004       1 LINE    152   99 PAGE UM   MANUAL              APR. 05, 1980  14:43:20
            5.0T2   277                       
0          THIS IS COMPUTING CENTER MEMO 410 -- "UPDATE 1 TO MTS VOLUME 2," OCTOBER
           1979.  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00444/005   MTS VOLUME 2             UPDATE 2        PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_2.UPDATE_2.PT.005(1)       243
            5.0T1   997  MTS_VOLUME_2.UPDATE_2.PT.005       1 LINE    105   41 PAGE UM   MANUAL              APR. 05, 1980  14:43:28
            5.0T2   278                       
0          THIS IS "UPDATE 2 TO MTS VOLUME 2,"  APRIL 1980.  $COPY TO A TN PRINTER
           USING THE @MCC MODIFIER.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00444/006C  MTS VOLUME 2             UPDATE 2        PT             W073:TNLV2.MAY81                                                
            5.0T1   998  MTS_VOLUME_2.UPDATE_2.PT.006       1 LINE     78   70 PAGE UM   MANUAL              JULY 03, 1981  13:47:06
            5.0T2   279                       
0          This is "Update 3 to MTS Volume 2," May 1981.
00447/001   MOUNT STATISTICS         MNTSTAT SUBR    SA  G          S0563 D4T1 VLO FSNAME=MOUNT_STATISTICS.MNTSTAT.SA.001(1)     986
            5.0T1   999  MOUNT_STATISTICS.MNTSTAT.SA.001    1 LINE     80    3 PAGE UM   WSG                 JAN. 14, 1977  15:13:26
            5.0T2   280                       
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) TO LOG STATISTICS
           RECORDS ABOUT EACH MOUNT REQUEST.  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 101/1, 101/2, 447/3, 447/8 
00447/002   MOUNT STATISTICS         MNTSTAT SUBR    OC  G        # (PART OF *CLSMOUNT)                                             
                                                                                    UM   WSG                                        
0          Part of *CLSMOUNT (101/2).
00447/003   MOUNT STATISTICS         SAVMS PGM       SA  G  SVMS    WSG:SAVMS(1,999)                                                
            5.0T1  1000  MOUNT_STATISTICS.SAVMS_PG.SA.003   1 LINE     80    7 PAGE UM   WSG                 JULY 03, 1981  13:47:19
            5.0T2   281  WSG.:SAVMS           
0          PROGRAM TO DUMP THE MOUNT STATISTICS FROM SYS:MOUNTSTAT TO TAPE.  THIS PROGRAM
           IS RUN MONTHLY AT UM.  IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A TAPE AND
           THEN DELETES ALL BUT THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH
           RACK NUMBER.  AT UM, THIS LEAVES ABOUT 100 PAGES WORTH OF MOUNT STATISTICS.
           THIS IS DONE SO THAT AN ONLINE FILE CONTAINING THE LAST REFERENCE (AND LAST
           POTENTIAL CHANGE) FOR EACH TAPE IS AVAILABLE FOR THE MSSCN PROGRAM (447/5).
           THE FILE SYS:MOUNTSTAT MUST BE A LINE FILE.  THE TAPE IS BLOCKED VB(16379,255).
           AT UM, WE COPY EACH MONTH'S TAPE ONTO THE END OF A LARGER TAPE, SAVING THE
           MOUNT STATISTICS INDEFINITELY.  IT IS ADVISABLE TO OCCASIONALLY OPTIMIZE
           SYS:MOUNTSTAT BY COPYING IT TO ANOTHER FILE AND BACK SINCE THE PROCESS OF 
           DELETING THE OLD RECORDS (BY SAVMS) CAUSES THE FILE TO BECOME UNOPTIMIZED.
           THIS PROGRAM WILL HANDLE A MIXTURE OF BOTH THE RECORDS PRODUCED BY MNTSTAT
           (447/1) VIA CMDSTAT AND THE OLDER RECORDS PRODUCED BY THE D3.0 TAPESTAT PROGRAM.
0          Referenced by comments of: 447/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00447/004   MOUNT STATISTICS         SAVMS PGM       OC  G          WSG:SAVMS(1000)                                                 
            5.0T1  1001  MOUNT_STATISTICS.SAVMS_PG.OC.004   1 LINE     80    2 PAGE UM   WSG                 JULY 03, 1981  13:47:20
            5.0T2   282                       
00447/005   MOUNT STATISTICS         MSSCN PGM       SA  G  MSSN    WSG:MSSCN(1,999)                                                
            5.0T1  1002  MOUNT_STATISTICS.MSSCN_PG.SA.005   1 LINE     80   13 PAGE UM   WSG                 JULY 03, 1981  13:47:21
            5.0T2   283  WSG.:MSSCN           
0          PROGRAM TO SCAN MOUNT STATISTICS RECORDS (FROM FILE OR TAPE) LOOKING FOR SPECIFIED
           RACK NUMBERS OR USERS FOR SPECIFIED DATE RANGES.  IT PRINTS THE RECORDS ON SPRINT
           SORTED BY RACK NUMBER AND DATE/TIME.  FOR EXAMPLE,
            
                          $RUN MSSCN(1000) SCARDS=SYS:MOUNTSTAT
                          R S0622 03-25-76 05-22-76
                          U WSG. 01-14-77
                          P ABCD
                          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, FOR ALL MOUNTS BY PROJECT ABCD, 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                                                       
            5.0T1  1003  MOUNT_STATISTICS.MSSCN_PG.OC.006   1 LINE     80    3 PAGE UM   WSG                 JULY 03, 1981  13:47:23
            5.0T2   284  SYS.:MSSCN           
00447/007   MOUNT STATISTICS         *MSS            C              *MSS                                                            
            5.0T1  1004  MOUNT_STATISTICS.*MSS.C.007        1 LINE     54    1 PAGE UM   WSG                 JULY 03, 1981  13:47:24
            5.0T2   285  *MSS                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN MSSCN (447/5).  INVOKED BY ENTERING
           "MTS *MSS" ON THE OPERATOR'S CONSOLE.
00447/008   MOUNT STATISTICS         MSDEL PGM       SA  G          WSG:MSDEL(1,999)                                                
            5.0T1  1005  MOUNT_STATISTICS.MSDEL_PG.SA.008   1 LINE     64    2 PAGE UM   WSG                 JULY 03, 1981  13:47:25
            5.0T2   286  WSG.:MSDEL           
0          PROGRAM USED TO DELETE UNWANTED RECORDS FROM THE MOUNT STATISTICS FILE
           SYS:MOUNTSTAT.  IT ASKS FOR RACK NUMBERS TO BE DELETED, WHICH MUST BE ENTERED
           ONE PER LINE, FOLLOWED BY AN END-OF-FILE.  IT MAKES ONE PASS THROUGH SYS:MOUNTSTAT,
           WHICH IS LOCKED FOR MODIFICATION, AND DELETES ANY RECORD WHICH HAS ONE OF THE
           SPECIFIED RACK NUMBERS.  AT UM, THIS PROGRAM IS RUN PERIODICALLY TO CLEAN OUT
           OLD SERIES OF RACK NUMBERS TO KEEP SYS:MOUNTSTAT AT A REASONABLE SIZE.  THIS
           PROGRAM WILL NEVER DELETE ANY RECORD WHICH HAS NOT BEEN PREVIOUSLY SAVED ON TAPE
           AND WILL HANDLE A FILE WHICH IS A MIXTURE OF RECORDS PRODUCED BY MNTSTAT (447/1)
           AND THE D3.0 TAPESTAT PROGRAM (NOW OBSOLETE).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 447/1 
00447/009   MOUNT STATISTICS         MSDEL PGM       OC  G          WSG:MSDEL(1000)                                                 
            5.0T1  1006  MOUNT_STATISTICS.MSDEL_PG.OC.009   1 LINE     80    2 PAGE UM   WSG                 JULY 03, 1981  13:47:26
            5.0T2   287                       
00447/010   MOUNT STATISTICS         SYS:MOUNTSTAT   D            # SYS:MOUNTSTAT                                                   
                                                                                    UM   WSG                                        
                         SYS:MOUNTSTAT@E      
00449/001  *DEB                                      S            # (OBSOLETE)                                                      
            D2T1    341                                                             UM                                              
0          Obsoleted by *SORT (303/4).
00451/001   CATALOG VERIFY - VNTD                                 # (PART OF FILE SYSTEM RECOVERY)                                  
                                                                                    UM                                              
0          Part of File System Recovery (682/18).
00453/001   DRUM INIT <STAND-ALONE>                  SA           # (OBSOLETE)                                                      
            D4T1    994                                                             UM                                              
0          STAND ALONE PROGRAM TO FORMAT DRUMS.
00455/001   DBS:MAC                                  SM           # (OBSOLETE)                                                      
            D3T3     17  DBS:MAC..SM.                       1 LINE     66    3 PAGE UM                       AUG. 01, 1973  18:21.38
00456/001  *CONFIG                                   SA           # (OBSOLETE)                                                      
            D2T1    318                                                             UM                                              
00457/001   TPSBUFFER                                SA           # (OBSOLETE)                                                      
            D2T1    147                                                             UM                                              
00458/001   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  1  
            5.0T1  1007  OLTEP.21.7_SOURCE.SA.001           1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  13:47:54
            5.0T3     1                       
0          (458/1) THROUGH (458/76) CONTAIN THE SOURCE FOR OS/360 RELEASE 21.7 OLTEP.
           THIS IS ASSEMBLED WITH *OSMAC (193) AND OLTEPMACLIB (458/77). OLTEP IS RUN UNDER
           FAKEOS. SEE (545).
0          Referenced by comments of: 338/1, 458/1 
00458/002   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  2  
            5.0T1  1008  OLTEP.21.7_SOURCE.SA.002           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:47:55
            5.0T3     2                       
00458/003   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  3  
            5.0T1  1009  OLTEP.21.7_SOURCE.SA.003           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:47:56
            5.0T3     3                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00458/004   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  4  
            5.0T1  1010  OLTEP.21.7_SOURCE.SA.004           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:47:57
            5.0T3     4                       
00458/005   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  5  
            5.0T1  1011  OLTEP.21.7_SOURCE.SA.005           1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  13:47:58
            5.0T3     5                       
00458/006   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  6  
            5.0T1  1012  OLTEP.21.7_SOURCE.SA.006           1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  13:47:59
            5.0T3     6                       
00458/007   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  7  
            5.0T1  1013  OLTEP.21.7_SOURCE.SA.007           1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  13:48:00
            5.0T3     7                       
00458/008   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  8  
            5.0T1  1014  OLTEP.21.7_SOURCE.SA.008           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:01
            5.0T3     8                       
00458/009   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  9  
            5.0T1  1015  OLTEP.21.7_SOURCE.SA.009           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:02
            5.0T3     9                       
00458/010   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  10 
            5.0T1  1016  OLTEP.21.7_SOURCE.SA.010           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:03
            5.0T3    10                       
00458/011   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  11 
            5.0T1  1017  OLTEP.21.7_SOURCE.SA.011           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:04
            5.0T3    11                       
00458/012   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  12 
            5.0T1  1018  OLTEP.21.7_SOURCE.SA.012           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:05
            5.0T3    12                       
00458/013   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  13 
            5.0T1  1019  OLTEP.21.7_SOURCE.SA.013           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:06
            5.0T3    13                       
00458/014   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  14 
            5.0T1  1020  OLTEP.21.7_SOURCE.SA.014           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:07
            5.0T3    14                       
00458/015   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  15 
            5.0T1  1021  OLTEP.21.7_SOURCE.SA.015           1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  13:48:08
            5.0T3    15                       
00458/016   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  16 
            5.0T1  1022  OLTEP.21.7_SOURCE.SA.016           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:09
            5.0T3    16                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00458/017   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  17 
            5.0T1  1023  OLTEP.21.7_SOURCE.SA.017           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:10
            5.0T3    17                       
00458/018   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  18 
            5.0T1  1024  OLTEP.21.7_SOURCE.SA.018           1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  13:48:11
            5.0T3    18                       
00458/019   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  19 
            5.0T1  1025  OLTEP.21.7_SOURCE.SA.019           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:12
            5.0T3    19                       
00458/020   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  20 
            5.0T1  1026  OLTEP.21.7_SOURCE.SA.020           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:14
            5.0T3    20                       
00458/021   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  21 
            5.0T1  1027  OLTEP.21.7_SOURCE.SA.021           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:15
            5.0T3    21                       
00458/022   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  22 
            5.0T1  1028  OLTEP.21.7_SOURCE.SA.022           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:16
            5.0T3    22                       
00458/023   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  23 
            5.0T1  1029  OLTEP.21.7_SOURCE.SA.023           1 SEQ      80    1 PAGE UM   MTA                 JULY 03, 1981  13:48:17
            5.0T3    23                       
00458/024   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  24 
            5.0T1  1030  OLTEP.21.7_SOURCE.SA.024           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:18
            5.0T3    24                       
00458/025   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  25 
            5.0T1  1031  OLTEP.21.7_SOURCE.SA.025           1 SEQ      80   11 PAGE UM   MTA                 JULY 03, 1981  13:48:19
            5.0T3    25                       
00458/026   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  26 
            5.0T1  1032  OLTEP.21.7_SOURCE.SA.026           1 SEQ      80   12 PAGE UM   MTA                 JULY 03, 1981  13:48:21
            5.0T3    26                       
00458/027   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  27 
            5.0T1  1033  OLTEP.21.7_SOURCE.SA.027           1 SEQ      80   35 PAGE UM   MTA                 JULY 03, 1981  13:48:23
            5.0T3    27                       
00458/028   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  28 
            5.0T1  1034  OLTEP.21.7_SOURCE.SA.028           1 SEQ      80   19 PAGE UM   MTA                 JULY 03, 1981  13:48:25
            5.0T3    28                       
00458/029   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  29 
            5.0T1  1035  OLTEP.21.7_SOURCE.SA.029           1 SEQ      80   24 PAGE UM   MTA                 JULY 03, 1981  13:48:27
            5.0T3    29                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00458/030   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  30 
            5.0T1  1036  OLTEP.21.7_SOURCE.SA.030           1 SEQ      80   12 PAGE UM   MTA                 JULY 03, 1981  13:48:29
            5.0T3    30                       
00458/031   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  31 
            5.0T1  1037  OLTEP.21.7_SOURCE.SA.031           1 SEQ      80   26 PAGE UM   MTA                 JULY 03, 1981  13:48:31
            5.0T3    31                       
00458/032   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  32 
            5.0T1  1038  OLTEP.21.7_SOURCE.SA.032           1 SEQ      80   11 PAGE UM   MTA                 JULY 03, 1981  13:48:33
            5.0T3    32                       
00458/033   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  33 
            5.0T1  1039  OLTEP.21.7_SOURCE.SA.033           1 SEQ      80   23 PAGE UM   MTA                 JULY 03, 1981  13:48:35
            5.0T3    33                       
00458/034   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  34 
            5.0T1  1040  OLTEP.21.7_SOURCE.SA.034           1 SEQ      80   21 PAGE UM   MTA                 JULY 03, 1981  13:48:37
            5.0T3    34                       
00458/035   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  35 
            5.0T1  1041  OLTEP.21.7_SOURCE.SA.035           1 SEQ      80    8 PAGE UM   MTA                 JULY 03, 1981  13:48:38
            5.0T3    35                       
00458/036   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  36 
            5.0T1  1042  OLTEP.21.7_SOURCE.SA.036           1 SEQ      80    7 PAGE UM   MTA                 JULY 03, 1981  13:48:39
            5.0T3    36                       
00458/037   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  37 
            5.0T1  1043  OLTEP.21.7_SOURCE.SA.037           1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  13:48:40
            5.0T3    37                       
00458/038   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  38 
            5.0T1  1044  OLTEP.21.7_SOURCE.SA.038           1 SEQ      80    9 PAGE UM   MTA                 JULY 03, 1981  13:48:42
            5.0T3    38                       
00458/039   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  39 
            5.0T1  1045  OLTEP.21.7_SOURCE.SA.039           1 SEQ      80   11 PAGE UM   MTA                 JULY 03, 1981  13:48:43
            5.0T3    39                       
00458/040   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  40 
            5.0T1  1046  OLTEP.21.7_SOURCE.SA.040           1 SEQ      80   16 PAGE UM   MTA                 JULY 03, 1981  13:48:45
            5.0T3    40                       
00458/041   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  41 
            5.0T1  1047  OLTEP.21.7_SOURCE.SA.041           1 SEQ      80    8 PAGE UM   MTA                 JULY 03, 1981  13:48:46
            5.0T3    41                       
00458/042   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  42 
            5.0T1  1048  OLTEP.21.7_SOURCE.SA.042           1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  13:48:47
            5.0T3    42                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00458/043   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  43 
            5.0T1  1049  OLTEP.21.7_SOURCE.SA.043           1 SEQ      80   37 PAGE UM   MTA                 JULY 03, 1981  13:48:49
            5.0T3    43                       
00458/044   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  44 
            5.0T1  1050  OLTEP.21.7_SOURCE.SA.044           1 SEQ      80   17 PAGE UM   MTA                 JULY 03, 1981  13:48:51
            5.0T3    44                       
00458/045   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  45 
            5.0T1  1051  OLTEP.21.7_SOURCE.SA.045           1 SEQ      80   15 PAGE UM   MTA                 JULY 03, 1981  13:48:53
            5.0T3    45                       
00458/046   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  46 
            5.0T1  1052  OLTEP.21.7_SOURCE.SA.046           1 SEQ      80   31 PAGE UM   MTA                 JULY 03, 1981  13:48:55
            5.0T3    46                       
00458/047   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  47 
            5.0T1  1053  OLTEP.21.7_SOURCE.SA.047           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:48:56
            5.0T3    47                       
00458/048   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  48 
            5.0T1  1054  OLTEP.21.7_SOURCE.SA.048           1 SEQ      80   12 PAGE UM   MTA                 JULY 03, 1981  13:48:58
            5.0T3    48                       
00458/049   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  49 
            5.0T1  1055  OLTEP.21.7_SOURCE.SA.049           1 SEQ      80   15 PAGE UM   MTA                 JULY 03, 1981  13:48:59
            5.0T3    49                       
00458/050   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  50 
            5.0T1  1056  OLTEP.21.7_SOURCE.SA.050           1 SEQ      80   10 PAGE UM   MTA                 JULY 03, 1981  13:49:01
            5.0T3    50                       
00458/051   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  51 
            5.0T1  1057  OLTEP.21.7_SOURCE.SA.051           1 SEQ      80    5 PAGE UM   MTA                 JULY 03, 1981  13:49:02
            5.0T3    51                       
00458/052   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  52 
            5.0T1  1058  OLTEP.21.7_SOURCE.SA.052           1 SEQ      80   24 PAGE UM   MTA                 JULY 03, 1981  13:49:04
            5.0T3    52                       
00458/053   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  53 
            5.0T1  1059  OLTEP.21.7_SOURCE.SA.053           1 SEQ      80   27 PAGE UM   MTA                 JULY 03, 1981  13:49:06
            5.0T3    53                       
00458/054   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  54 
            5.0T1  1060  OLTEP.21.7_SOURCE.SA.054           1 SEQ      80   24 PAGE UM   MTA                 JULY 03, 1981  13:49:08
            5.0T3    54                       
00458/055   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  55 
            5.0T1  1061  OLTEP.21.7_SOURCE.SA.055           1 SEQ      80   33 PAGE UM   MTA                 JULY 03, 1981  13:49:10
            5.0T3    55                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00458/056   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  56 
            5.0T1  1062  OLTEP.21.7_SOURCE.SA.056           1 SEQ      80   11 PAGE UM   MTA                 JULY 03, 1981  13:49:12
            5.0T3    56                       
00458/057   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  57 
            5.0T1  1063  OLTEP.21.7_SOURCE.SA.057           1 SEQ      80   39 PAGE UM   MTA                 JULY 03, 1981  13:49:15
            5.0T3    57                       
00458/058   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  58 
            5.0T1  1064  OLTEP.21.7_SOURCE.SA.058           1 SEQ      80   32 PAGE UM   MTA                 JULY 03, 1981  13:49:17
            5.0T3    58                       
00458/059   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  59 
            5.0T1  1065  OLTEP.21.7_SOURCE.SA.059           1 SEQ      80   21 PAGE UM   MTA                 JULY 03, 1981  13:49:19
            5.0T3    59                       
00458/060   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  60 
            5.0T1  1066  OLTEP.21.7_SOURCE.SA.060           1 SEQ      80   20 PAGE UM   MTA                 JULY 03, 1981  13:49:21
            5.0T3    60                       
00458/061   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  61 
            5.0T1  1067  OLTEP.21.7_SOURCE.SA.061           1 SEQ      80   18 PAGE UM   MTA                 JULY 03, 1981  13:49:23
            5.0T3    61                       
00458/062   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  62 
            5.0T1  1068  OLTEP.21.7_SOURCE.SA.062           1 SEQ      80    8 PAGE UM   MTA                 JULY 03, 1981  13:49:24
            5.0T3    62                       
00458/063   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  63 
            5.0T1  1069  OLTEP.21.7_SOURCE.SA.063           1 SEQ      80   10 PAGE UM   MTA                 JULY 03, 1981  13:49:26
            5.0T3    63                       
00458/064   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  64 
            5.0T1  1070  OLTEP.21.7_SOURCE.SA.064           1 SEQ      80   12 PAGE UM   MTA                 JULY 03, 1981  13:49:27
            5.0T3    64                       
00458/065   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  65 
            5.0T1  1071  OLTEP.21.7_SOURCE.SA.065           1 SEQ      80   38 PAGE UM   MTA                 JULY 03, 1981  13:49:30
            5.0T3    65                       
00458/066   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  66 
            5.0T1  1072  OLTEP.21.7_SOURCE.SA.066           1 SEQ      80    7 PAGE UM   MTA                 JULY 03, 1981  13:49:32
            5.0T3    66                       
00458/067   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  67 
            5.0T1  1073  OLTEP.21.7_SOURCE.SA.067           1 SEQ      80    3 PAGE UM   MTA                 JULY 03, 1981  13:49:33
            5.0T3    67                       
00458/068   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  68 
            5.0T1  1074  OLTEP.21.7_SOURCE.SA.068           1 SEQ      80   19 PAGE UM   MTA                 JULY 03, 1981  13:49:34
            5.0T3    68                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00458/069   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  69 
            5.0T1  1075  OLTEP.21.7_SOURCE.SA.069           1 SEQ      80   13 PAGE UM   MTA                 JULY 03, 1981  13:49:36
            5.0T3    69                       
00458/070   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  70 
            5.0T1  1076  OLTEP.21.7_SOURCE.SA.070           1 SEQ      80   15 PAGE UM   MTA                 JULY 03, 1981  13:49:37
            5.0T3    70                       
00458/071   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  71 
            5.0T1  1077  OLTEP.21.7_SOURCE.SA.071           1 SEQ      80   24 PAGE UM   MTA                 JULY 03, 1981  13:49:39
            5.0T3    71                       
00458/072   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  72 
            5.0T1  1078  OLTEP.21.7_SOURCE.SA.072           1 SEQ      80   11 PAGE UM   MTA                 JULY 03, 1981  13:49:41
            5.0T3    72                       
00458/073   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  73 
            5.0T1  1079  OLTEP.21.7_SOURCE.SA.073           1 SEQ      80    2 PAGE UM   MTA                 JULY 03, 1981  13:49:42
            5.0T3    73                       
00458/074   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  74 
            5.0T1  1080  OLTEP.21.7_SOURCE.SA.074           1 SEQ      80   21 PAGE UM   MTA                 JULY 03, 1981  13:49:44
            5.0T3    74                       
00458/075   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  75 
            5.0T1  1081  OLTEP.21.7_SOURCE.SA.075           1 SEQ      80   26 PAGE UM   MTA                 JULY 03, 1981  13:49:46
            5.0T3    75                       
00458/076   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  76 
            5.0T1  1082  OLTEP.21.7_SOURCE.SA.076           1 SEQ      80    9 PAGE UM   MTA                 JULY 03, 1981  13:49:48
            5.0T3    76                       
0          Referenced by comments of: 458/1 
00458/077   OLTEP                    OLTEPMACLIB     SM  G          S0938 FSAVE2 VLO FSNAME=OLTEPMACLIB(1)                          
            5.0T1  1083  OLTEP.OLTEPMACLIB.SM.077           1 LINE     72   56 PAGE UM   MTA                 SEP. 23, 1975  00:49:30
            5.0T3    77                       
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                                                       
            5.0T1  1084  OLTEP.OBJECT.OC.078                1 SEQ     920    2 PAGE UM   MTA                 JULY 03, 1981  13:50:10
            5.0T3    78  ETC.:OLTEP           
0          OBJECT FOR OLTEP MAIN PROGRAM AND IFDOLT59, WHICH IS INCLUDED TO GET THE RIGHT
           DEFINITION OF SOME MULTIPLY DEFINED SYMBOLS.
00458/079A  OLTEP                    OLTEPLIB        OL  G          ETC:OLTEPLIB                                                    
            5.0T1  1085  OLTEP.OLTEPLIB.OL.079              1 LINE   2572   64 PAGE UM   MTA                 JULY 03, 1981  13:50:11
            5.0T3    79  ETC.:OLTEPLIB        
0          OBJECT LIBRARY FOR THE REST OF OLTEP.  SOME MODULES WHICH ARE NOT USED IN MTS ARE INCLUDED.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          THE FOLLOWING PATCHES ARE INCLUDED BECAUSE THESE MODULES USE MACROS WHICH ARE NOT IN *OSMAC (193):
            
           TO IFDOLT20:   REP  000000  0141F00020,07FE
           TO IFDOLT22:   REP  000386  014700
            
           HAS OTHER PATCHES AS WELL.
0          Referenced by comments of: 458/80 
00458/080   OLTEP                    OLTEPBLDLIN     D   G          MTA:OLTEPBLDLIN                                                 
            5.0T1  1086  OLTEP.OLTEPBLDLIN.D.080            1 LINE     60    1 PAGE UM   MTA                 JULY 03, 1981  13:50:16
            5.0T3    80  MTA.:OLTEPBLDLIN     
0          INPUT TO CREBLDL (545/42) FOR OLTEP. CONTAINS ENTRIES FOR THINGS IN OLTEPLIB
           (458/79), BUT NOT OLTEPCDSLIB (458/86) OR OLTEPTSTLIB (458/82).
0          Referenced by comments of: 458/81 
00458/081A  OLTEP                    OLTEPBLDL       D   G          ETC:OLTEPBLDL                                                   
            5.0T1  1087  OLTEP.OLTEPBLDL.D.081              1 SEQ     242   11 PAGE UM   MTA                 JULY 03, 1981  13:50:17
            5.0T3    81  ETC.:OLTEPBLDL       
0          BLDL INFO FOR OLTEP. CREATED BY CREBLDL (545/42) USING (458/80), (458/83),
           AND (458/85) AS INPUT.
00458/082A  OLTEP                    OLTEPTSTLIB     OL  G          MTS.:TST.OLTEPTST                                               
            5.0T1  1088  OLTEP.OLTEPTSTLIB.OL.082           1 LINE  26386  249 PAGE UM   MTA                 JULY 03, 1981  13:50:18
            5.0T3    82  ETC.:OLTEPTSTLIB     
0          OBJECT LIBRARY FOR TEST SECTIONS AND CDS (CONFIGURATION DATA SET) MODULES.
           INCLUDES TESTS FOR: 2400, 2301, 2540, 2541, 2501, 1403, 2305, 2671, 2835,
           3270, AND 3274. ALSO INCLUDES SOSP FOR USE IN BUILDING CDS ENTRIES AND
           RETRIEVING TEST SECTIONS FROM THE OLTSEP TAPE. SOSP IS VERSION 8.0. TO ADD
           NEW TEST SECTIONS, SIMPLY PUT THEM IN THIS LIBRARY AND ADD A LINE FOR EACH TO
           OLTEPTSTBLDL (458/83) (AND RUN IT THROUGH CREBLDL). EACH TEST SECTION MUST
           HAVE AN ENTRY WITH THE SAME NAME AS THE SECTION (E.G. T2400A).
            
           ***************************************************************** 
                            Contains REP cards.
           *****************************************************************
0          Referenced by comments of: 458/80, 458/83 
00458/083A  OLTEP                    OLTEPTSTBLDL    D              MTA:OLTEPTSTBLDL                                                
            5.0T1  1089  OLTEP.OLTEPTSTBLDL.D.083           1 LINE     60    7 PAGE UM   MTA                 JULY 03, 1981  13:50:37
            5.0T3    83  MTA:OLTEPTSTBLDL     
0          INPUT TO CREBLDL (545/42) FOR (458/82).
0          Referenced by comments of: 458/81, 458/82 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00458/084A  OLTEP                    OLTEPCDS        D              MTA:OLTEPCDS                                                    
            5.0T1  1090  OLTEP.OLTEPCDS.D.084               1 LINE     81   10 PAGE UM   MTA                 JULY 03, 1981  13:50:39
            5.0T3    84  MTA.:OLTEPCDS        
0          Input to CDS create program (458/90) to produce a CDS for the UM
           hardware configuration.
0          Referenced by comments of: 458/86, 458/89 
00458/085A  OLTEP                    OLTEPCDSBLDL    D              MTA:OLTEPCDSBLDL                                                
            5.0T1  1091  OLTEP.OLTEPCDSBLDL.D.085           1 LINE     60   16 PAGE UM   MTA                 AUG. 05, 1981  02:30:37
            5.0T3    85  MTA.:OLTEPCDSBLDL    
0          Input to CREBLDL (545/42) for the UM configuration cds.  This
           file was created by OLTEPOBJCVT (458/88) reading the output of
           OLTEPCRECDS (458/90).
0          Referenced by comments of: 458/81 
00458/086A  OLTEP                    OLTEPCDSLIB     OL  G          ETC:OLTEPCDSLIB                                                 
            5.0T1  1092  OLTEP.OLTEPCDSLIB.OL.086           1 LINE  10404   31 PAGE UM   MTA                 JULY 03, 1981  13:50:44
            5.0T3    86  ETC.:OLTEPCDSLIB     
0          Library of CDS entries for the UM configuration produced by 
           OLTEPCRECDS (458/90) reading OLTEPCDS (458/84).
0          Referenced by comments of: 458/80 
00458/087A  OLTEP                    OLTEPOBJCVT     SA  O          MTA:OLTEPOBJCVT(1,999)                                          
            5.0T1  1093  OLTEP.OLTEPOBJCVT.SA.087           1 LINE     72    3 PAGE UM   MTA                 JULY 03, 1981  13:50:48
            5.0T3    87  MTA.:OLTEPOBJCVT     
0          PROGRAM TO CONVERT OLTSEP, OLTEP, OR CDS DECKS WITH OR WITHOUT OS LINKEDIT
           CONTROL CARDS TO MTS FORMAT AND PRODUCE INPUT TO CREBLDL FOR THEM.  THE INPUT
           IS READ FROM SCARDS; THE MTS OBJECT DECKS ARE WRITTEN ON SPUNCH; A PROTOTYPE
           BLDL RECORD IS READ FROM UNIT 0; AND BLDL OUTPUT RECORDS WITH CORRECT NAME
           AND LENGTH ARE WRITTEN ON UNIT 1.
00458/088A  OLTEP                    OLTEPOBJCVT     OC  O          MTA:OLTEPOBJCVT(1000)                                           
            5.0T1  1094  OLTEP.OLTEPOBJCVT.OC.088           1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  13:50:49
            5.0T3    88                       
0          Referenced by comments of: 458/85 
00458/089   OLTEP                    CDS CREATE PGM  SA  G          MTA:OLTEPCRECDS(1,999)                                          
            5.0T1  1095  OLTEP.CDS_CREATE_PGM.SA.089        1 LINE     72    4 PAGE UM   MTA                 JULY 03, 1981  13:50:51
            5.0T3    89  MTA:OLTEPCRECDS      
0          PROGRAM TO READ CDS DEFINITION CARDS, E.G. (458/84), AND PRODUCE DECKS
           FOR THE CDS MODULES ON SPUNCH.
           ASSEMBLE USING COPY:CC.MACROS (1054/3) AND *SYSMAC.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00458/090   OLTEP                    CDS CREATE PGM  OC  G          MTA:OLTEPCRECDS(1000)                                           
            5.0T1  1096  OLTEP.CDS_CREATE_PGM.OC.090        1 LINE     80    4 PAGE UM   MTA                 JULY 03, 1981  13:50:54
            5.0T3    90                       
0          Referenced by comments of: 458/84, 458/85, 458/86 
00458/091A  OLTEP                    OLTEPCMD        C              MTA:OLTEPCMD                                                    
            5.0T1  1097  OLTEP.OLTEPCMD.C.091               1 LINE    124    1 PAGE UM   MTA                 JULY 03, 1981  13:50:55
            5.0T3    91  MTA.:OLTEPCMD        
0          THE FOLLOWING PROCEDURES SHOULD BE USED FOR RELEASE 21.7 OLTEP.
           TO RUN OLTEP, ISSUE THE FOLLOWING COMMAND:
            
             $SOURCE OLTEPCMD
            
           WHERE OLTEPCMD IS (458/91) 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.
0          Referenced by comments of: 458/91 
00459/001  *ICSERIES                                 S            # (OBSOLETE)                                                      
            D2T2    155                                                             UM                                              
00460/001   WIREWRAP TEST                                         # (OBSOLETE)                                                      
            D2T2    156                                                             UM                                              
00461/001A  DISTRIBUTION             *DEDIT          SA  G          WSG:DEDIT                                                       
            5.0T4   650  DISTRIBUTION.?DEDIT.SA.001         1 LINE     72   67 PAGE UM   WSG                 SEP. 04, 1981  03:10:31
            5.0T11  224  WSG.:DEDIT           
0          Distribution driver file editor used to construct and edit driver files.
           Copies COPY:DRDSECT (461/4) and *CNFGINFODSECT (654). Assemble with
           PAR=PEXIT=*PEXIT.
           *****************************************************************************
            
           D5.0 version:
            
             Extensive changes have been made in *DEDIT. A new writeup is
           available in MTS Volume 2 and is also distributed separately as
           (461/3). It is ABSOLUTELY ESSENTIAL that the D5.0 driver file
           not be edited using any previous version of *DEDIT since the format
1                                                                                               MON AUG 05/96   18:37:45   Page  185
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          of the driver file has been changed. This new version of *DEDIT
           can be used with old driver files, but the program will recognize
           such an old file and convert it to the new format after asking for
           permission to do so.
            
           The following is a list of the major changes:
            
            1.  Components are now stored at the line number corresponding
                to the component number. Gaps in subcomponent number ranges
                are now impossible in theory.
            2.  The driver file and comment file are now tightly coupled, i.e.,
                the driver file contains the name of the comment file.
            3.  A comment cross reference directory is now maintained in the
                driver file. This allows *DEDIT to automatically update the
                comments of all subcomponents whose comments reference a
                component which is being renumbered. This makes it very easy
                to rearrange the order of subcomponents since the comments
                will automatically be adjusted to reflect the change. The
                listings produced by *DEDIT also now show the references. The
                DELETE command prevents referenced components from being 
                deleted until the references have been removed.
            4.  It is now essential that all comment references to other
                components be in the form " (compnum/subcompnum)" or
                " (compnum)" in order for *DEDIT to be able to identify them.
                *DEDIT currently produces a warning message whenever comments
                are edited which contain strings of the form " (junk)" where
                junk is not a valid component number. Also, *DEDIT requires
                that the cnum or cnum/scnum string be at least three characters
                long in order to be considered as a valid reference. Also the
                blank before the left paren is not required if the reference
                is at the beginning of a comment line.
            5.  The APPENDFILE command is now the MERGE command and differs in
                that subcomponents are now added as new subcomponents after the
                currently last subcomponent of each component. Also any 
                references within the comments of the subcomponents being
                merged are updated as necessary if any subcomponents have
                their subcomponent numbers changed by the merge. Lines from
                pre-D5.0 driver files can be merged without problem.
                It is essential that the driver lines being merged have their
                comment cross references in the form described in item 4 above
                so that the cross reference directory will be accurate and so
                that such references can be updated automatically if any
                subcomponent numbers are changed during the merge.
            6.  The parameter to the ASSIGN command has been changed slightly
                since there are now two output tape_name/file_number pairs,
                one (the old one) for 6250 distribution tapes, and a new
                pair for 1600 distribution tapes. In this way, it is no longer
                necessary to have different driver files for each density as
                has been the case in the past.
            7.  The COMMENT command now assumes EDIT as the default parameter.
            8.  The COMPONENT command is now very fast and assumes /1 as the
                subcomponent if none is given.
            9.  The DELETE command now allows more than one subcomponent to
                be deleted.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          10.  The FOR command now requires that at least one item be given.
                I.e., it no longer assumes ALL as the default.
           11.  The FULL and PARTIAL commands are gone.
           12.  The INSERT command now allows the point of insertion to be
                specified instead of assuming that the insertion is to be
                after the current component.
           13.  The LINE command is gone.
           14.  The LIST and PLIST commands can now be given with the @PARTIAL,
                @FULL, @COMMENTS, @NOCOMMENTS, @REFERENCES, and @NOREFERENCES
                modifiers to control the form of the output.
           15.  There is now a MOVE command which will move one or more
                subcomponents to a new place in the driver file. This command
                can be used to rearrange subcomponents easily.
           16.  The RENUMBER command is gone since renumbering is done
                whenever necessary (as a result of deleting, duplicating,
                inserting, moving or merging).
           17.  The SAVE command is gone.
           18.  A SET command has been added to allow the defaults for the
                modifiers noted above in item 14 to be changed, as in the
                MTS editor. In addition the CMDSCAN SET option can be used
                like the MTS $SET option of the same name. Its right hand
                side values are MTS, AMBIGUOUS, and UNAMBIGUOUS. The default
                is MTS which means it follows the MTS option.
           19.  The /C#, /CSUB#, and /CLNR commands are gone. The /OTAPE
                and /OFILE# commands have been changed to /OT62 and /OF62.
                The /OT16 and /OF16 commands have been added.
            
           *****************************************************************************
0          Referenced by comments of: 461/4, 461/14, 528/10 
00461/002A  DISTRIBUTION             *DEDIT          OE  G          NEW:DEDIT                                                       
            5.0T4   651  DISTRIBUTION.?DEDIT.OE.002         1 LINE  17650   10 PAGE UM   WSG                 SEP. 04, 1981  03:10:55
            5.0T11  225  *DEDIT               
00461/003C  DISTRIBUTION             *DEDIT          PT             WSG:DEDITWRITEUP                                                
            5.0T1  1098  DISTRIBUTION.*DEDIT.PT.003         1 LINE     76   13 PAGE UM   WSG                 JULY 03, 1981  13:50:56
            5.0T3    92                       
0          New MTS Volume 2 writeup for *DEDIT.
0          Referenced by comments of: 461/1 
00461/004A  DISTRIBUTION             DRIVER DSECT    SA  G          COPY:DRDSECT                                                    
            5.0T1  1099  DISTRIBUTION.DRIVER_DSECT.SA.004   1 LINE     72    1 PAGE UM   WSG                 JULY 03, 1981  13:50:57
            5.0T3    93  COPY:DRDSECT         
0          Copy section for the driver file DSECT used by *FS (548) and *DEDIT (461/1).
           It defines the structure of a distribution driver file record.
            
           *******************************************************************************
           D5.0 version:
           Four new fields have been added:
            1. DROTAP16 is the tape name of the 1600 bpi tape on which this
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0              component was last distributed. (Note that DROTAPE is the name
               of the 6250 bpi tape on which the component was last
               distributed.)
            2. DROFIL16 is the file number on the 1600 bpi tape on which this
               component was last distributed. (Note that DROFILE# is the file
               number on the 6250 bpi tape on which the component was last
               distributed.)
            3. DRCFREF is a hex char field for the offset into the comment cross
               reference directory for the list of subcomponents which are
               referenced by the comments of this component.
            4. DRCBREF is a hex char field for the offset into the comment cross
               reference directory for the list of subcomponents whose comments
               refer to this component.
           *******************************************************************************
0          Referenced by comments of: 461/1, 548/1 
00461/005A  DISTRIBUTION             DVEDIT          SQ  O        # CRT.:DVEDIT.SQ                                                  
            4.3AT1  125  DISTRIBUTION.DVEDIT.S+.026         1 LINE    220   14 PAGE UBC  HALL      EADIE     OCT. 12, 1980  15:43:31
            4.3AT1  125                       
0          Contains a $CONTINUE WITH PLUS:PARSER.OL+NEW:PLUS.OBJLIB cards which refers
           to (1076/6) and (1042/50).
            
           *********************************************************************************
           D5.0 comments:
            
           Not distributed, as it will not work with driver files having the new
           format.
           *********************************************************************************
00461/006A  DISTRIBUTION             DVEDIT          D   O        # CRT.:DVEDIT.SR                                                  
            4.3AT1  126  DISTRIBUTION.DVEDIT.D.027          1 LINE     64    1 PAGE UBC  HALL      EADIE     OCT. 12, 1980  15:43:36
            4.3AT1  126                       
0          THIS IS A TIDIED VERSION OF DVEDIT GRAMMAR.
           ONLY MINOR CHANGES HAVE BEEN MADE.
00461/007A  DISTRIBUTION             DVEDIT          OC  O        # W267:DVEDIT                                                     
            4.3AT1  127  DISTRIBUTION.DVEDIT.OC.028         1 LINE   3892   14 PAGE UBC  HALL      EADIE     OCT. 12, 1980  15:43:37
            4.3AT1  127                       
0          CONTAINS A $CONTINUE WITH NEW:PLUS.OBJLIB (1042/50) AND PLUS:PARSER.OL (1076/6).
00461/008A  DISTRIBUTION             DRIVERSCAN      SS  G          DIST:DRIVERSCN.SS                                               
            5.0T1  1100  DISTRIBUTION.DRIVERSCAN.SS.008     1 LINE     71    5 PAGE UBC  BERRYMAN  WSG       JULY 03, 1981  13:50:58
            5.0T3    94                       
0          Source for a Spitbol program that scans a distribution driver file and prints
           a list of component numbers that aren't in it. The program also performs a
           number of simple checks on component names, subcomponent names, component
           numbers, and subcomponent numbers. Unless it is run with PAR=NOCHECK, it also
           verifies that all of the files referenced exist and can be read. It uses the
           ACCESS function (461/10) to check for read access. The object for ACCESS is
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          loaded from the file DIST:SPITLIB.
0          Referenced by comments of: 461/10 
00461/009A  DISTRIBUTION             DRIVERSCAN      OC  G          DIST:DRIVERSCAN                                                 
            5.0T1  1101  DISTRIBUTION.DRIVERSCAN.OC.009     1 LINE   9464    5 PAGE UBC  BERRYMAN  WSG       JULY 03, 1981  13:51:00
            5.0T3    95  DIST:DRIVERSCAN      
0          Contains a $CONTINUE WITH *SPITLIB record.
00461/010C  DISTRIBUTION             DRVSCAN ACCESS  SA  G          DIST:DRIVERSCN.SA                                               
            5.0T1  1102  DISTRIBUTION.DRVSCAN_ACCE.SA.010   1 LINE     72    3 PAGE UBC  BERRYMAN  WSG       JULY 03, 1981  13:51:01
            5.0T3    96                       
0          Spitbol interface to CHKFILE. Used by DRIVERSCAN (461/8).
0          Referenced by comments of: 461/8 
00461/011C  DISTRIBUTION             DRVSCAN ACCESS  OC  G          DIST:SPITLIB                                                    
            5.0T1  1103  DISTRIBUTION.DRVSCAN_ACCE.OC.011   1 LINE     80    1 PAGE UBC  BERRYMAN  WSG       JULY 03, 1981  13:51:02
            5.0T3    97  DIST:SPITLIB         
00461/012   DISTRIBUTION             5-LINE          SA  G          S0563 D4T1 VLO FSNAME=DISTRIBUTION.5-LINE.SA.003(1)         1086
            5.0T1  1104  DISTRIBUTION.5-LINE.SA.012         1 LINE     80    8 PAGE UBC  HOGG                MAR. 01, 1973  19:33:27
            5.0T3    98                       
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/013   DISTRIBUTION             5-LINE          OC  G          MTS:FS5L                                                    1087
            5.0T1  1105  DISTRIBUTION.5-LINE.OC.013         1 LINE     80    3 PAGE UBC  HOGG                JULY 03, 1981  13:51:17
            5.0T3    99  MTS.:FS5L            
00461/014A  DISTRIBUTION             DRIVER          D              DIST:DRIVER                                                     
            5.0T4   660  DISTRIBUTION.DRIVER.D.014          1 LINE  32767  402 PAGE UM   SWEET               SEP. 04, 1981  03:14:32
            5.0T11  234  DIST:DRIVER          
0          THIS IS THE COMPLETE DRIVER FILE FOR UM D5.0.  ITEMS INCLUDED IN
           D5.0 MAY BE MARKED WITH REVISION LEVELS AS FOLLOWS:
            
           REVL=A    COMPONENTS WHICH HAVE CHANGED SINCE D4.3.  THESE MAY HAVE BEEN 
                     SENT ON D4.3A.
            
           REVL=C    NEW SUBCOMPONENTS WHICH HAVE BEEN ADDED TO THE 
                     PRODUCTION SYSTEM AT UM SINCE D4.3A.
            
           LINE NUMBERS IN THIS FILE ARE IMPORTANT. 
           *******************************************************************************
           D5.0 version:
            
           This is the driver file for both the 6250 and 1600 versions of D5.0.
           (The driver file now contains fields for both the 6250 and 1600 output
           tape names and output file names and numbers.  This version of the driver
           file should be used with the D5.0 version of *DEDIT (461/1).
           *******************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 461/15, 461/17, 461/18 
00461/015A  DISTRIBUTION             DRIVER COMMENT  D              DIST:COMM                                                       
            5.0T4   659  DISTRIBUTION.DRIVER_COMME.D.015    1 LINE    120  201 PAGE UM   SWEET               SEP. 04, 1981  06:28:39
            5.0T11  233  DIST:COMM            
0          THIS IS THE COMMENT FILE FOR THE D5.0 DRIVER FILE (461/14).  LINE NUMBERS IN
           THIS FILE ARE IMPORTANT.
00461/016A  DISTRIBUTION             DRIV INDEX GEN  C              DIST:DISTINDEX                                                  
            5.0T4   652  DISTRIBUTION.DRIV_INDEX_G.C.016    1 LINE    133    1 PAGE UM   SWEET               AUG. 21, 1981  06:51:21
            5.0T11  226  DIST:DISTINDEX       
0          COMMAND FILE TO PRODUCE A DRIVER FILE ALPHABETIZED INDEX.
00461/017A  DISTRIBUTION             6250 INDEX      P              DIST:INDEX6250                                                  
            5.0T4   657  DISTRIBUTION.6250_INDEX.P.017      1 LINE    133  204 PAGE UM   SWEET               SEP. 04, 1981  06:28:10
            5.0T11  231  DIST:INDEX6250       
0          6250 VERSION OF THE INDEX FOR THE UM DRIVER FILE (461/14). COPY TO A TN
           PRINTER.
00461/018A  DISTRIBUTION             1600 INDEX      P              DIST:INDEX1600                                                  
            5.0T4   658  DISTRIBUTION.1600_INDEX.P.018      1 LINE    133  204 PAGE UM   SWEET               SEP. 04, 1981  06:28:24
            5.0T11  232  DIST:INDEX1600       
0          1600 VERSION OF THE INDEX FOR THE UM DRIVER FILE (461/14). COPY TO A TN
           PRINTER.
00461/019A  DISTRIBUTION             GENERAL NOTES   WF             DIST:GENNOTES.WF                                                
            5.0T4   654  DISTRIBUTION.GENERAL_NOTE.WF.019   1 LINE    149   12 PAGE UM   WSG                 SEP. 04, 1981  03:13:34
            5.0T11  228  DIST:GENNOTES.WF     
0          GENERAL NOTES ON DISTRIBUTION 5.0.
00461/020A  DISTRIBUTION             NEW SYSTEMS     WF             DIST:NEWSYS.WF                                                  
            5.0T4   655  DISTRIBUTION.NEW_SYSTEMS.WF.020    1 LINE    146    9 PAGE UM   WSG                 SEP. 04, 1981  03:13:46
            5.0T11  229  DIST:NEWSYS.WF       
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 5.0 AT NEW INSTALLATIONS,
           I.E. INSTALLATIONS WHICH HAVE NOT PREVIOUSLY USED MTS.
00461/021A  DISTRIBUTION             OLD SYSTEMS     WF             DIST:OLDSYS.WF                                                  
            5.0T4   656  DISTRIBUTION.OLD_SYSTEMS.WF.021    1 LINE    118   15 PAGE UM   WSG                 SEP. 04, 1981  03:13:48
            5.0T11  230  DIST:OLDSYS.WF       
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 5.0 AT OLD INSTALLATIONS,
           I.E. INSTALLATIONS WHICH HAVE PREVIOUSLY USED MTS.
            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00461/022A  DISTRIBUTION             D5.0 MEMO LIST  WF             DIST:MEMOLIST                                                   
            5.0T1  1106  DISTRIBUTION.D5.0_MEMO_LI.WF.022   1 LINE    110    3 PAGE UM   SWEET               JULY 03, 1981  13:51:18
            5.0T3   100                       
0          WRITEUP SHOWING THE STATUS OF ALL COMPUTING CENTER MEMOS AT THE TIME OF D5.0.
           DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6).
00461/023A  DISTRIBUTION             MTS BIB         WF             DIST:MTS.BIB                                                    
            5.0T1  1107  DISTRIBUTION.MTS_BIB.WF.023        1 LINE     69    3 PAGE UM   SWEET               JULY 03, 1981  13:51:19
            5.0T3   101                       
0          BIBLIOGRAPHY OF PUBLISHED PAPERS ABOUT MTS AND RELATED TOPICS.
00461/024A  DISTRIBUTION             FM.GEN          SS  G          WSG:FM.GEN                                                      
            5.0T1  1108  DISTRIBUTION.FM.GEN.SS.024         1 LINE     93    9 PAGE UM   WSG                 AUG. 05, 1981  02:30:40
            5.0T3   102  WSG:FM.GEN           
0          MTS commands and a Spitbol program to generate input for FILE MOVE (1020)
           which can be used to build a test pack based on a driver file. The program
           will ask for the following:
            
              1.  The name of a file which contains a complete list of the files
                  currently on the test pack (possibly null),
              2.  The name of the driver file,
              3.  The driver file revision level to be used (enter a null line for
                  a full distribution), and
              4.  If you want the FILE MOVE input to contain LASTCHG= parameter which
                  will cause FILE MOVE to check to see if files being moved have
                  been changed since the date they were written on the distribution
                  tape.
            
           The program will read through the driver file and, for lines which have a
           non-blank disk name field (see *DEDIT) and the appropriate revision level, it
           will output (on SPUNCH) records which can be used as input to FILE MOVE. This
           input will contain three kinds of data:
            
              1.  Files to be destroyed on the test pack (ones no longer listed in the
                  disk name of any component),
              2.  Files to be moved to the test pack (ones with the appropriate revision
                  level), and
              3.  Files to be created on the test pack and which will be permitted the
                  same as the corresponding file on the regular system, but which will
                  be left empty (ones which have disk names ending with "@E").
            
           The program will print an error message (on unit 1) for any component (at the
           specified revision level) which has a bad save control field or which is
           located on tape (since FILE MOVE doesn't have the capability of getting files
           from tapes). It will also output (on unit 0) a new file list for the pack,
           i.e., a list of what files will be on the pack after FILE MOVE is run.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00461/025C  DISTRIBUTION             MTS501 FILES    D              DIST:MTS501.FILES                                               
            4.3T2   561  DISTRIBUTION.MTS431_FILES.D.022    1 LINE     17    7 PAGE UM   WSG                 MAY  22, 1980  01:48:35
            4.3T5    70  DIST:MTS501.FILES    
0          A list of all the files on the D5.0 dump/restore pack.
00461/026   DISTRIBUTION             MEMO 378        WF             S1143 D4.1T1 VLO FSNAME=DISTRIBUTION.MEMO_378.WF.018(1)      170
            5.0T1  1109  DISTRIBUTION.MEMO_378.WF.026       1 LINE     92   11 PAGE UM   PIRKOLA             MAY  13, 1978  17:22:07
            5.0T3   103                       
0          THIS IS COMPUTING CENTER MEMO 378 -- "SUPPORT CATEGORIES FOR COMPUTING
           CENTER SOFTWARE."
00461/027   DISTRIBUTION             CHG FORMS CMDS  C              MTS:CHANGEFORMS                                                 
            5.0T1  1110  DISTRIBUTION.CHG_FORMS_CM.C.027    1 LINE     66    1 PAGE UM   DWB                 JULY 03, 1981  13:51:49
            5.0T3   104  MTS.:CHANGEFORMS     
0          COMMAND FILE TO RUN THE DISTRIBUTION CHANGE FORM GENERATION PROGRAM (461/28)
           WHICH READS THE CHANGE FORM DATA FILE (461/29) TO PRODUCE CHANGE FORMS IN THE
           FILE -FORMS.
00461/028   DISTRIBUTION             CHG FORMS PGM   SS  G          MTS:CHGFORMPGM                                                  
            5.0T1  1111  DISTRIBUTION.CHG_FORMS_PG.SS.028   1 LINE     78    3 PAGE UM   DWB                 JULY 03, 1981  13:51:50
            5.0T3   105  MTS.:CHGFORMPGM      
0          SPITBOL PROGRAM TO PROCESS THE CHANGE FORM DATA FILE (461/29) AND PRODUCE CHANGE
           FORMS.
0          Referenced by comments of: 461/27, 461/29 
00461/029A  DISTRIBUTION             CHG FORMS DATA  D              MTS:CHGFORMDATA                                                 
            5.0T1  1112  DISTRIBUTION.CHG_FORMS_DA.D.029    1 LINE     94   93 PAGE UM   DWB                 JULY 03, 1981  13:51:52
            5.0T3   106  MTS.:CHGFORMDATA     
0          DATA FILE OF CHANGE FORMS RELEVANT TO THE D4 DISTRIBUTION. TO BE USED AS
           INPUT TO THE CHANGE FORM PROGRAM (461/28) TO PRODUCE THE ACTUAL PRINTED
           FORMS. THE CONSTRUCTION OF THIS DATA FILE IS DESCRIBED IN (461/30).
0          Referenced by comments of: 461/27, 461/28, 461/30 
00461/030   DISTRIBUTION             CHG FORMS DESC  WF             S1143 D4.1T1 VLO FSNAME=DISTRIBUTION.CHG_FORMS_DE.WF.017(1)  169
            5.0T1  1113  DISTRIBUTION.CHG_FORMS_DE.WF.030   1 LINE     68    3 PAGE UM   DWB                 MAY  13, 1978  17:22:07
            5.0T3   107                       
0          MEMO TO UM COMPUTING CENTER STAFF ABOUT HOW TO CONSTRUCT THE CHANGE FORMS
           DATA FILE (461/29).
0          Referenced by comments of: 461/29 
00462/001   CHECKSUM                                 SA           # (OBSOLETE)                                                      
            D3T3     36  CHECKSUM..SA.1                     1 SEQ      80    3 PAGE UM                       AUG. 01, 1973  18:30.28
0          Obsoleted by MTS protection mechanisms.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00463/001A  STDDMP SUBR                              SA  G          MTS:STDDMP(1000)                                                
            5.0T1  1114  STDDMP_SUBR..SA.001                1 LINE     72    5 PAGE UM   MTA                 JULY 03, 1981  13:52:00
            5.0T3   108  MTS:STDDMP           
0          PRODUCES STANDARD FORMAT DUMPS.  SEE ALSO SDUMP (049).
00463/002A  STDDMP SUBR                              OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00464/001A  PLIMIT                   D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=PLIM                        
            5.0T4   325  PLIMIT.D5.0_MASTER.SA.001          1 LINE     80    3 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:04:25
            5.0T10  229                       
0          CHECKS PAGE AND PUNCH LIMITS.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2 
00464/002A  PLIMIT                   UPDATE          UC  G          MTS:PLIMUPD                                                     
            5.0T4   326  PLIMIT.UPDATE.UC.002               1 LINE     80    2 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:04:26
            5.0T10  230  MTS:PLIMUPD          
0          UPDATE TO PRODUCE CURRENT SOURCE.  UPDATE USES $CONTROL *IN* POSN=PLIM.
00464/003A  PLIMIT                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00464/004A  PLIMIT                                   L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=PLIM.LIST                  
            5.0T4   327  PLIMIT..L.004                      1 LINE    133   18 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:04:50
            5.0T10  231                       
00465/001A *APL                      MTS INTERFACE   SA  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.MTS                       
            5.0T1  1115  APL.MTS_INTERFACE.SA.001           1 LINE    101   42 PAGE UM   HELFFRICH           FEB. 16, 1981  16:27:12
            5.0T3   109                       
0          THE APL-MTS INTERFACE.  ASSEMBLE USING THE APL MACRO LIBRARY (465/3).  CONTAINS
           THE OBJECT AT LINE 1 AND THE SOURCE AT LINE 1000.  COPIES APLDEFN, DIRSECT,
           ZSYMBOLS, AND PERTERM FROM THE APL MACRO LIBRARY (465/3), AND *GFINFODSECT (593).
            
           IMPLEMENTS THE ")TIME" COMMAND.
0          Referenced by comments of: 595/1 
00465/002  *APL                      TRTABS          SA  G  TRTA    S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TRTA.S                    
            5.0T1  1116  APL.TRTABS.SA.002                  1 LINE     80   43 PAGE UM   HELFFRICH           MAR. 04, 1977  19:14:31
            5.0T3   110                       
0          SOURCE FOR THE APL TRANSLATE TABLES TO CONVERT APL INTERNAL CHARACTERS TO EXTERNAL
           CHARACTERS.  INCLUDES TABLES FOR:  1052, 1050, 2741, CORRESPONDENCE 2741, TTY 38
           APL ASSIGNMENT #3, GSI300/DTC300/DTC302, APL2 DEVICES (DDI265), LA36, AND ASCII
1                                                                                               MON AUG 05/96   18:37:45   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          DEVICES.  ASSEMBLE USING THE APL MACRO LIBRARY (465/3).
00465/003A *APL                      MACRO LIBRARY   SM  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.MACROS                    
            5.0T1  1117  APL.MACRO_LIBRARY.SM.003           1 LINE     80   18 PAGE UM   HELFFRICH           FEB. 16, 1981  13:03:23
            5.0T3   111                       
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,
                 465/14, 465/15, 465/16 
00465/004  *APL                      ARTH UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.ARTH.U                    
            5.0T1  1118  APL.ARTH_UPDATE.UU.004             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:17:46
            5.0T3   112                       
0          UPDATE TO BE APPLIED TO ORIGINAL SOURCE TO YIELD CURRENT UM SOURCE FOR ARTH MODULE.
           THE SUCCEEDING SUBCOMPONENTS (465/5) THROUGH (465/15) ARE SIMILAR.  ARTH CHANGES:
           MACRO FIXUP AND RECOGNITION OF "REVERSAL ALONG FIRST DIMENSION" OPERATOR.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
0          Referenced by comments of: 465/5, 465/6, 465/7, 465/8, 465/9, 465/10, 465/11, 465/12, 465/13, 465/14, 465/15 
00465/005  *APL                      DEXP UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DEXP.U                    
            5.0T1  1119  APL.DEXP_UPDATE.UU.005             1 LINE     61    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:18:21
            5.0T3   113                       
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).
0          Referenced by comments of: 465/4 
00465/006  *APL                      DYIB UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DYIB.U                    
            5.0T1  1120  APL.DYIB_UPDATE.UU.006             1 LINE     65    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:18:55
            5.0T3   114                       
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                    
            5.0T1  1121  APL.IBAR_UPDATE.UU.007             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:19:29
            5.0T3   115                       
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/008A *APL                      OCTL UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.OCTL.U                    
            5.0T1  1122  APL.OCTL_UPDATE.UU.008             1 LINE     72    1 PAGE UM   HELFFRICH           FEB. 16, 1981  16:27:57
            5.0T3   116                       
0          SEE COMMENTS FOR (465/4). OCTL CHANGES: CHANGES FOR CATN. ASSEMBLE RESULT
           USING THE APL MACRO LIBRARY (465/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00465/009  *APL                      REDU UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.REDU.U                    
            5.0T1  1123  APL.REDU_UPDATE.UU.009             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:20:30
            5.0T3   117                       
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                    
            5.0T1  1124  APL.SLCT_UPDATE.UU.010             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:21:01
            5.0T3   118                       
0          SEE COMMENTS FOR (465/4). SLCT CHANGES: RECOGNITION OF EXPANSION AND
           COMPRESSION ALONG FIRST DIMENSION SYMBOLS. ASSEMBLE RESULT USING THE APL
           MACRO LIBRARY (465/3).
00465/011A *APL                      TPIN UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TPIN.U                    
            5.0T1  1125  APL.TPIN_UPDATE.UU.011             1 LINE     72   13 PAGE UM   HELFFRICH           FEB. 16, 1981  16:28:41
            5.0T3   119                       
0          SEE COMMENTS FOR (465/4). TPIN CHANGES: )SYMBOLS COMMAND IMPLEMENTED; BUG
           RELATING TO IGNORING OF INPUT AFTER ATTN INTERRUPT FIXED; CHANGES TO OBTAIN
           DATE DIFFERENTLY; )COPY AND )PCOPY ERROR REPORTING ADDED; )TIME COMMAND
           IMPLEMENTED. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/012  *APL                      VECT UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.VECT.U                    
            5.0T1  1126  APL.VECT_UPDATE.UU.012             1 LINE     65    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:22:13
            5.0T3   120                       
0          SEE COMMENTS FOR (465/4). VECT CHANGES: CALLS ERROR$ RATHER THAN ERROR.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/013C *APL                      AGOR UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.AGOR.U                    
            5.0T1  1127  APL.AGOR_UPDATE.UU.013             1 LINE     72    1 PAGE UM   HELFFRICH           FEB. 16, 1981  16:26:42
            5.0T3   121                       
0          SEE COMMENTS FOR (465/4). AGOR CHANGES: IMPLEMENTS ")TIME" COMMAND. ASSEMBLE
           RESULT USING THE APL MACRO LIBRARY (465/3).
00465/014C *APL                      DPY UPDATE      UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DPY.U                     
            5.0T1  1128  APL.DPY_UPDATE.UU.014              1 LINE     72    1 PAGE UM   HELFFRICH           AUG. 08, 1979  22:04:56
            5.0T3   122                       
0          SEE COMMENTS FOR (465/4). DPY CHANGES: LABELED STATEMENTS IN FUNCTION ARE
           DISPLAYED ONE COLUMN TO THE LEFT. ASSEMBLE USING THE APL MACRO LIBRARY
           (465/3).
00465/015C *APL                      ERR UPDATE      UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.ERR.U                     
            5.0T1  1129  APL.ERR_UPDATE.UU.015              1 LINE     72    1 PAGE UM   HELFFRICH           FEB. 16, 1981  16:27:02
            5.0T3   123                       
0          SEE COMMENTS FOR (465/4). ERR CHANGES: IMPLEMENTS ")TIME" COMMAND. ASSEMBLE
           RESULT USING THE APL MACRO LIBRARY (465/3).
0          Referenced by comments of: 465/4 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00465/016A *APL                      CATN            SA  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.CATN                      
            5.0T1  1130  APL.CATN.SA.016                    1 LINE     92   10 PAGE UM   HELFFRICH           FEB. 16, 1981  13:06:10
            5.0T3   124                       
0          REWRITE OF CATENATION PROCESSOR TO PROVIDE FULL CATENATION CAPABILITIES IN
           APL/MTS. COPIES OPSECT AND APLDEFN FROM THE APL MACRO LIBRARY (465/3).
            
           ***************************************************************************
           D5.0 VERSION:
            
           THIS VERSION FIXES A BUG CAUSING A 'SYSTEM ERROR' IF A USER HIT ATTN AT THE
           WRONG MOMENT.
           ***************************************************************************
00465/017A *APL                      OBJECT          OC  G          SEG2:S2APL                                                      
            5.0T1  1131  APL.OBJECT.OC.017                  1 LINE  11465   39 PAGE UM   HELFFRICH           JULY 03, 1981  13:54:39
            5.0T3   125  SEG2:S2APL           
0          APL OBJECT LOADED INTO SHARED VM BY PISTLE AT IPL.
0          Referenced by comments of: 465/18 
00465/018  *APL                      *APL            OC  G          *APL                                                            
            5.0T1  1132  APL.*APL.OC.018                    1 LINE     24    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:54:45
            5.0T3   126  *APL                 
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM APL (465/17).
00465/019  *APL                      MEMO 382        WF             S1319 D4.2T1 VLO FSNAME=APL.MEMO_382.WF.016(1)               244
            5.0T1  1133  APL.MEMO_382.WF.019                1 LINE    130   12 PAGE UM   HELFFRICH           SEP. 07, 1978  17:00:42
            5.0T3   127                       
0          THIS IS COMPUTING CENTER MEMO 382 -- "MTS APL USERS' GUIDE".
           NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY.
00466/001   ACTIVCNT/ASTATSUB                        SA  G          MTS:ACTIVCNT(1,99)                                              
            5.0T1  1134  ACTIVCNT/ASTATSUB..SA.001          1 LINE     80    1 PAGE UM   DWB                 JULY 03, 1981  13:54:52
            5.0T3   128  MTS.:ACTIVCNT        
0          ACTIVCNT CONTAINS THE NUMBER OF USERS SIGNED ON AND ASTATSUB IS USED
           TO COMMUNICATE BETWEEN MTS AND THE STAT JOB.
00466/002   ACTIVCNT/ASTATSUB                        OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   DWB                                        
0          Object part of Resident System (468)
00467/001   ENDSEG2                                  SA  G          MTS:ENDSEG2.S                                                   
            5.0T1  1135  ENDSEG2..SA.001                    1 LINE     65    1 PAGE UM   MTA                 JULY 03, 1981  13:54:53
            5.0T3   129                       
0          ASSEMBLY TO MARK THE END OF THE IPLED PART OF SHARED VM.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00467/002   ENDSEG2                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00468/001A  RESIDENT SYSTEM          D5.0 SYS        D              MTS:TST.IPL.D5.0                                                
            5.0T4   645  RESIDENT_SYSTEM.D5.0_SYS.D.001     1 SEQ    4100  210 PAGE UM   WSG                 SEP. 04, 1981  03:06:11
            5.0T11  219  *IPL.D5.0            
0          RAMROD IPL FILE FOR D5.0 SYSTEM (WITH DUMMY TABLES) ON DUMP/RESTORE PACK.
0          Referenced by comments of: 1/3, 3/2, 4/2, 5/3, 6/2, 7/3, 8/2, 9/2, 10/2, 11/2, 13/3, 14/2, 16/2, 18/2, 19/2, 20/2,
                 21/2, 23/2, 24/2, 25/2, 39/2, 40/3, 40/6, 42/3, 44/2, 45/3, 46/3, 49/2, 77/2, 78/2, 79/2, 79/4, 80/2, 126/2,
                 198/3, 243/2, 354/3, 399/3, 413/2, 413/4, 413/8, 463/2, 464/3, 466/2, 467/2, 482/3, 482/6, 482/9, 482/12,
                 482/15, 482/18, 482/21, 482/24, 482/27, 482/30, 482/33, 482/35, 482/38, 513/3, 531/3, 534/2, 539/3, 554/2,
                 572/2, 576/2, 577/2, 577/7, 578/3, 579/2, 579/5, 579/8, 586/2, 589/3, 589/7, 589/9, 591/2, 628/4, 634/3,
                 634/5, 635/3, 636/3, 637/4, 638/3, 639/3, 647/2, 650/2, 651/10, 651/13, 651/15, 708/2, 723/2, 731/2, 731/4,
                 732/2, 758/2, 759/2, 769/2, 769/4, 769/6, 769/8, 769/10, 769/12, 769/14, 769/16, 769/26, 777/2, 778/2, 787/4,
                 787/6, 787/14, 787/16, 803/2, 818/2, 819/2, 1012/3, 1023/2, 1027/2, 1058/9, 1070/2, 1081/3, 1081/10, 4000/3 
00468/002A  RESIDENT SYSTEM          D5.0 UM SYS     D              MTS:TST.IPL.0                                                   
            5.0T4   646  RESIDENT_SYSTEM.D5.0_UM_S.D.002    1 SEQ    4100  203 PAGE UM   WSG                 SEP. 04, 1981  03:06:16
            5.0T11  220  *IPL.0               
0          RAMROD IPL FILE FOR D5.0 SYSTEM WITH UM I/O CONFIGURATION, BUT ONLY MTS501.
           THIS IS THE "CURRENT" SYSTEM ON THE D5.0 DUMP/RESTORE PACK.
00468/003A  RESIDENT SYSTEM          UM RAMROD       D              MTS.:TST.ROD                                                    
            5.0T4   647  RESIDENT_SYSTEM.UM_RAMROD.D.003    1 SEQ   32767  489 PAGE UM   WSG                 SEP. 04, 1981  03:06:22
            5.0T11  221  MTS.:ROD             
0          CURRENT UM RAMROD FILE.
            
           THE FOLLOWING PROCEDURES ARE USED IN MAINTAINING THIS FILE.  WHENEVER A NEW
           SYSTEM IS INSTALLED (I.E. WRITTEN TO *IPL.0), THREE THINGS ARE DONE:
            
             1.   THE NAME OF THE SYSTEM INSTALLED IS CHANGED TO THE "MODEL NUMBER"
                  OF THE DATE IT IS INSTALLED, E.G. "AY108" FOR MAY 10, 1978.
            
             2.   THE SYSTEM INSTALLED IS MADE THE CURRENT SYSTEM.
            
             3.   THE OLDEST SYSTEM IS DELETED SO THAT THERE ARE ABOUT FIVE SYSTEMS--
                  THE CURRENT ONE AND THE FOUR PRECEDING.
            
           WHEN SOMEONE WISHES TO CHANGE A COMPONENT, BUT NOT INSTALL A NEW SYSTEM,
           A NEW SYSTEM CALLED "NEWSYS" IS CREATED FROM THE CURRENT SYSTEM (IF IT
           DOESN'T ALREADY EXIST) AND THE DESIRED CHANGES MADE AND NOTED USING THE
           "ANNOTATE" COMMAND.  THEN WHEN THE NEWSYS SYSTEM IS ACTUALLY TO BE INSTALLED
           AS THE RUNNING SYSTEM, THE PROCEDURE ABOVE IS FOLLOWED.
            
           A TEST SYSTEM CAN BE CREATED AT ANY TIME WITH ANY NAME, BUT WHEN THE NEW
           COMPONENTS ARE READY TO BE INSTALLED, THEY SHOULD BE PUT IN "NEWSYS" AND
           THE TEST SYSTEM DESTROYED.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00468/004A  RESIDENT SYSTEM          *IPL.1          D            # *IPL.1                                                          
                                                                                    UM   WSG                                        
                         *IPL.1               
0          UM FIRST BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER.
           NOTE:  THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE.
00468/005A  RESIDENT SYSTEM          *IPL.2          D            # *IPL.2                                                          
                                                                                    UM   WSG                                        
                         *IPL.2               
0          UM SECOND BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER.
           NOTE:  THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE.
00468/006A  RESIDENT SYSTEM          *IPL.3          D            # *IPL.3                                                          
                                                                                    UM   WSG                                        
                         *IPL.3               
0          UM THIRD BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER.
           NOTE:  THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE.
00468/007A  RESIDENT SYSTEM          WRITEUP         WF             DIST:RESSYS.WF                                                  
            5.0T4   328  RESIDENT_SYSTEM.WRITEUP.WF.007     1 LINE    154    5 PAGE UM   WSG                 AUG. 09, 1981  23:04:51
            5.0T10  232  DIST:RESSYS.WF       
0          A WRITEUP DESCRIBING THE STRUCTURE OF THE SYSTEM OBJECT DECKS.
00469/001   360/20 RJE SUPPORT PGM                   S            # (OBSOLETE)                                                      
            D2T1    094                                                             UM                                              
00470/001A  PCB DSECT                COPY:PCBDSECT   SA  G          COPY:PCBDSECT                                                   
            5.0T1  1136  PCB_DSECT.COPY:PCBDSECT.SA.001     1 LINE     72    3 PAGE UM   MTA                 JULY 03, 1981  13:54:54
            5.0T3   130  COPY:PCBDSECT        
0          DSECT FOR THE PAGE CONTROL BLOCK.  COPIED BY THE SUPERVISOR, PDP, AND CONFIG AMONG OTHERS.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONTAINS DISK MANAGER CHANGES.
           ***********************************************************************************
0          Referenced by comments of: 44/1, 45/1, 46/1, 400/1, 577/1 
00471/001   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          S0563 D4T1 VLO FSNAME=ST360.MAIN_PGM.SA.001(1)              1118
            5.0T1  1137  ST360.MAIN_PGM.SA.001              1 SEQ      80   41 PAGE UM   MTA                 AUG. 01, 1973  18:40.02
            5.0T3   131                       
0          THE STUDENT VIRTUAL MACHINE SIMULATOR.  THE SIMULATED MACHINE HAS THE FOLLOWING CHARACTERISTICS:
            
              1.  THE SYSTEM/360 UNIVERSAL INSTRUCTION SET
1                                                                                               MON AUG 05/96   18:37:45   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             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.
0          Referenced by comments of: 472/2, 4240/1 
00472/002  *ST360                    CCWTRANS SUBR   SA  G          S0563 D4T1 VLO FSNAME=ST360.CCWTRANS_SUBR.SA.002(1)         1119
            5.0T1  1138  ST360.CCWTRANS_SUBR.SA.002         1 SEQ      80   12 PAGE UM   MTA                 AUG. 01, 1973  18:49.51
            5.0T3   132                       
0          SUBROUTINE CALLED BY (472/1) TO TRANSLATE CCW LISTS. UNCHANGED SINCE DIST
           2.0.
00472/003  *ST360                    OBJECT          OE  G          *ST360                                                          
            5.0T1  1139  ST360.OBJECT.OE.003                1 SEQ    8720    5 PAGE UM   MTA                 JULY 03, 1981  13:55:01
            5.0T3   133  *ST360               
00473/001  *1130ASM                  CCD             SA             S0563 D4T1 VLO FSNAME=1130ASM.CCD.SA.001(1)                 1121
            5.0T1  1140  1130ASM.CCD.SA.001                 1 SEQ      80   48 PAGE UM   LUBBERS             AUG. 01, 1973  18:51.47
            5.0T3   134                       
0          IBM ASSEMBLER FOR THE IBM 1130 AND IBM 1800 COMPUTERS.  THIS VERSION HAS BEEN MODIFIED TO RUN IN MTS.
           THIS THING APPEARS TO CONSIST OF 4 ASSEMBLIES AND 1 COPY SECTION.  THE QUESTION IS WHICH IS WHICH.
           WE SUGGEST THAT THE FIRST MAY BE THE COPY SECTION, BUT WE'RE NOT SURE.
00473/002  *1130ASM                  M0              SA             S0563 D4T1 VLO FSNAME=1130ASM.M0.SA.002(1)                  1122
            5.0T1  1141  1130ASM.M0.SA.002                  1 SEQ      80    2 PAGE UM   LUBBERS             AUG. 01, 1973  18:51.57
            5.0T3   135                       
00473/003  *1130ASM                  M12             SA             S0563 D4T1 VLO FSNAME=1130ASM.M12.SA.003(1)                 1123
            5.0T1  1142  1130ASM.M12.SA.003                 1 SEQ      80   74 PAGE UM   LUBBERS             AUG. 01, 1973  18:52.43
            5.0T3   136                       
00473/004  *1130ASM                  M3              SA             S0563 D4T1 VLO FSNAME=1130ASM.M3.SA.004(1)                  1124
            5.0T1  1143  1130ASM.M3.SA.004                  1 SEQ      80   89 PAGE UM   LUBBERS             AUG. 01, 1973  18:53.47
            5.0T3   137                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00473/005  *1130ASM                  M4              SA             S0563 D4T1 VLO FSNAME=1130ASM.M4.SA.005(1)                  1125
            5.0T1  1144  1130ASM.M4.SA.005                  1 SEQ      80   25 PAGE UM   LUBBERS             AUG. 01, 1973  18:54.12
            5.0T3   138                       
00473/006  *1130ASM                  OBJECT          OC             *1130ASM                                                        
            5.0T1  1145  1130ASM.OBJECT.OC.006              1 SEQ      80   18 PAGE UM   LUBBERS             JULY 03, 1981  13:55:09
            5.0T3   139  *1130ASM             
00475/001   OS SIMULATION PACKAGE                    S            # (OBSOLETE)                                                      
            D2T1    284                                                             UM                                              
00476/001   DBS:MSG                                  S            # (OBSOLETE)                                                      
            D2T1    441                                                             UM                                              
00480/001   APF                                      SA           # (OBSOLETE)                                                      
            D2T1    329                                                             UM                                              
00481/001   FILE SAVE - OLD VERSION                  O            # (OBSOLETE)                                                      
            D2T1    001                                                             UM                                              
00482/001A  FILE SYSTEM              MOVE            SA  G          FILE:MOVE(-10000,-1)                                            
            5.0T1  1146  FILE_SYSTEM.MOVE.SA.001            1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:11
            5.0T3   140  FILE:MOVE            
0          SUBROUTINE TO MOVE CORE AROUND.  COPIES *CNFGINFODSECT (654).
0          Referenced by comments of: 787/1 
00482/002A  FILE SYSTEM              MOVE            UC  G          FILE:MOVE(1000)                                                 
            5.0T1  1147  FILE_SYSTEM.MOVE.UC.002            1 LINE     68    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:12
            5.0T3   141                       
00482/003A  FILE SYSTEM              MOVE            OC  G        # (PART OF RESIDENT SYSTEM)                                       
            4.3AT1  133  FILE_SYSTEM.MOVE.OC.003            1 LINE     80    1 PAGE UM   HELFFRICH           OCT. 12, 1980  15:44:10
0          Object part of Resident System (468)
0          Referenced by comments of: 482/49 
00482/004A  FILE SYSTEM              VOLGET          SA  G          FILE:VOLGET(-10000,-1)                                          
            5.0T1  1148  FILE_SYSTEM.VOLGET.SA.004          1 LINE     80   23 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:13
            5.0T3   142  FILE:VOLGET          
0          Subroutine to acquire disk drive before doing I/O. Assemble with
           COPY:FILE.MACROS (482/45) and COPY:DM.MACROS (769/19). Copies COPY:GLOBALS
           (1026/3) and COPY:LLMPSEQU (087).
0          Referenced by comments of: 73/3, 534/3 
00482/005A  FILE SYSTEM              VOLGET          UC  G          FILE:VOLGET(1000)                                               
            5.0T1  1149  FILE_SYSTEM.VOLGET.UC.005          1 LINE     72    8 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:20
            5.0T3   143                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00482/006A  FILE SYSTEM              VOLGET          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/007A  FILE SYSTEM              TRAK            SA  G          FILE:TRAK(-10000,-1)                                            
            5.0T1  1150  FILE_SYSTEM.TRAK.SA.007            1 LINE     80   25 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:24
            5.0T3   144  FILE:TRAK            
0          BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND WRITE THE DISK, OR TALK TO THE DISK 
           MANAGER (769) COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE WITH
           COPY:FILE.MACROS(482/45), COPY:SETPARM (653), AND COPY:DM.MACROS (769/19).
            
           NOTE:  THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S.
0          Referenced by comments of: 482/60 
00482/008A  FILE SYSTEM              TRAK            UC  G          FILE:TRAK(1000)                                                 
            5.0T1  1151  FILE_SYSTEM.TRAK.UC.008            1 LINE    100   11 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:31
            5.0T3   145                       
00482/009A  FILE SYSTEM              TRAK            OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/010A  FILE SYSTEM              READI           SA  G          FILE:READI(-10000,-1)                                           
            5.0T1  1152  FILE_SYSTEM.READI.SA.010           1 LINE     80    6 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:35
            5.0T3   146  FILE:READI           
0          SUBROUTINE TO READ FROM A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/011A  FILE SYSTEM              READI           UC  G          FILE:READI(1000)                                                
            5.0T1  1153  FILE_SYSTEM.READI.UC.011           1 LINE     76    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:36
            5.0T3   147                       
00482/012A  FILE SYSTEM              READI           OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/013A  FILE SYSTEM              WRITEI          SA  G          FILE:WRITEI(-10000,-1)                                          
            5.0T1  1154  FILE_SYSTEM.WRITEI.SA.013          1 LINE     79   34 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:37
            5.0T3   148  FILE:WRITEI          
0          SUBROUTINE TO WRITE LINE FILES. ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/014A  FILE SYSTEM              WRITEI          UC  G          FILE:WRITEI(1000)                                               
            5.0T1  1155  FILE_SYSTEM.WRITEI.UC.014          1 LINE     68    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:50
            5.0T3   149                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00482/015A  FILE SYSTEM              WRITEI          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/016A  FILE SYSTEM              READL           SA  G          FILE:READL(-10000,-1)                                           
            5.0T1  1156  FILE_SYSTEM.READL.SA.016           1 LINE     78   10 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:53
            5.0T3   150  FILE:READL           
0          BASE SOURCE FOR 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/45).
00482/017A  FILE SYSTEM              READL           UC  G          FILE:READL(1000)                                                
            5.0T1  1157  FILE_SYSTEM.READL.UC.017           1 LINE     72    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:55:56
            5.0T3   151                       
00482/018A  FILE SYSTEM              READL           OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/019A  FILE SYSTEM              OPEN            SA  G          FILE:OPEN(-10000,-1)                                            
            5.0T1  1158  FILE_SYSTEM.OPEN.SA.019            1 LINE     80   52 PAGE UM   HELFFRICH           AUG. 05, 1981  02:34:27
            5.0T3   152  FILE:OPEN            
0          SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/020A  FILE SYSTEM              OPEN            UC  G          FILE:OPEN(1000)                                                 
            5.0T1  1159  FILE_SYSTEM.OPEN.UC.020            1 LINE    106   13 PAGE UM   HELFFRICH           AUG. 05, 1981  02:34:36
            5.0T3   153                       
00482/021A  FILE SYSTEM              OPEN            OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/022A  FILE SYSTEM              GETDSK          SA  G          FILE:GETDSK(-10000,-1)                                          
            5.0T1  1160  FILE_SYSTEM.GETDSK.SA.022          1 LINE     80   22 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:12
            5.0T3   154  FILE:GETDSK          
0          SUBROUTINES TO ALLOCATE AND RELEASE DISK SPACE.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/023A  FILE SYSTEM              GETDSK          UC  G          FILE:GETDSK(1000)                                               
            5.0T1  1161  FILE_SYSTEM.GETDSK.UC.023          1 LINE     82    4 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:17
            5.0T3   155                       
00482/024A  FILE SYSTEM              GETDSK          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00482/025A  FILE SYSTEM              FLINE           SA  G          FILE:FLINE(-10000,-1)                                           
            5.0T1  1162  FILE_SYSTEM.FLINE.SA.025           1 LINE     80    6 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:19
            5.0T3   156  FILE:FLINE           
0          SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/026A  FILE SYSTEM              FLINE           UC  G          FILE:FLINE(1000)                                                
            5.0T1  1163  FILE_SYSTEM.FLINE.UC.026           1 LINE     70    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:20
            5.0T3   157                       
00482/027A  FILE SYSTEM              FLINE           OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/028A  FILE SYSTEM              CATALOG         SA  G          FILE:CATALOG(-10000,-1)                                         
            5.0T1  1164  FILE_SYSTEM.CATALOG.SA.028         1 LINE     80   65 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:21
            5.0T3   158  FILE:CATALOG         
0          SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/029A  FILE SYSTEM              CATALOG         UC  G          FILE:CATALOG(1000)                                              
            5.0T1  1165  FILE_SYSTEM.CATALOG.UC.029         1 LINE     99   34 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:39
            5.0T3   159                       
00482/030A  FILE SYSTEM              CATALOG         OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/031A  FILE SYSTEM              RWSEQ           SA  G          FILE:RWSEQ(-10000,-1)                                           
            5.0T1  1166  FILE_SYSTEM.RWSEQ.SA.031           1 LINE     72   15 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:52
            5.0T3   160  FILE:RWSEQ           
0          SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/032A  FILE SYSTEM              RWSEQ           UC  G          FILE:RWSEQ(1000)                                                
            5.0T1  1167  FILE_SYSTEM.RWSEQ.UC.032           1 LINE     68    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:54
            5.0T3   161                       
00482/033A  FILE SYSTEM              RWSEQ           OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/034   FILE SYSTEM              TABLRTN         SA  G          FILE:TABLRTN                                                    
            5.0T1  1168  FILE_SYSTEM.TABLRTN.SA.034         1 LINE     78   31 PAGE UM   HELFFRICH           JULY 03, 1981  13:56:55
            5.0T3   162  FILE:TABLRTN         
0          SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          ASSEMBLE STARTING AT LINE 1.
0          Referenced by comments of: 400/13, 482/49, 534/3 
00482/035   FILE SYSTEM              TABLRTN         OC  G          FILE:TABLRTN.O                                                  
            5.0T1  1169  FILE_SYSTEM.TABLRTN.OC.035         1 LINE     80   24 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:13
            5.0T3   163  FILE:TABLRTN.O       
0          OBJECT ALSO PART OF THE RESIDENT SYSTEM (468).
00482/036A  FILE SYSTEM              GETFINF         SA  G          FILE:GETFINF(-10000,-1)                                         
            5.0T1  1170  FILE_SYSTEM.GETFINF.SA.036         1 LINE     80    8 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:15
            5.0T3   164  FILE:GETFINF         
0          SUBROUTINE TO RETURN INFORMATION ABOUT A FILE.  CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF).
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/037A  FILE SYSTEM              GETFINF         UC  G          FILE:GETFINF(1000)                                              
            5.0T1  1171  FILE_SYSTEM.GETFINF.UC.037         1 LINE     68    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:17
            5.0T3   165                       
00482/038A  FILE SYSTEM              GETFINF         OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00482/039   FILE SYSTEM              TEST DSACC      SA  G          FILE:DSACC(1,999)                                               
            5.0T1  1172  FILE_SYSTEM.TEST_DSACC.SA.039      1 LINE     41    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:18
            5.0T3   166  FILE:DSACC           
0          SPECIAL NOP VERSION OF DSACC FOR USE IN TESTING FILE ROUTINES.
0          Referenced by comments of: 482/46, 682/36 
00482/040   FILE SYSTEM              TEST DSACC      OC  G          FILE:DSACC(1000)                                                
            5.0T1  1173  FILE_SYSTEM.TEST_DSACC.OC.040      1 LINE     80    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:18
            5.0T3   167                       
00482/041A  FILE SYSTEM              FSTEST          SA  G          FILE:FSTEST(1005)                                               
            5.0T1  1174  FILE_SYSTEM.FSTEST.SA.041          1 LINE     68   13 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:19
            5.0T3   168  FILE:FSTEST          
0          FILE SYSTEM TEST PROGRAM.  ASSEMBLE USING COPY:FILE.MACROS (482/45) AND *SYSMAC.
           USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES.
0          Referenced by comments of: 682/11 
00482/042A  FILE SYSTEM              FSTEST          OC  G          FILE:FSTEST(1,1004.999)                                         
            5.0T1  1175  FILE_SYSTEM.FSTEST.OC.042          1 LINE     80    6 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:23
            5.0T3   169                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00482/043A  FILE SYSTEM              FILE.MACROS     SM  G          FILE:MACROS(-10000,0)                                           
            5.0T1  1176  FILE_SYSTEM.FILE.MACROS.SM.043     1 LINE     80   10 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:26
            5.0T3   170  FILE:MACROS          
0          BASE SOURCE FOR THE FILE SYSTEM MACRO LIBRARY.
0          Referenced by comments of: 482/44 
00482/044A  FILE SYSTEM              FILE.MACROS     UC  G          FILE:MACROS(1000)                                               
            5.0T1  1177  FILE_SYSTEM.FILE.MACROS.UC.044     1 LINE     75    2 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:27
            5.0T3   171                       
0          UPDATE TO BE APPLIED TO (482/43) TO YIELD CURRENT MACRO SOURCE.
00482/045A  FILE SYSTEM              FILE.MACROS     SM  G          COPY:FILE.MACROS                                                
            5.0T1  1178  FILE_SYSTEM.FILE.MACROS.SM.045     1 LINE     72   10 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:28
            5.0T3   172  COPY:FILE.MACROS     
0          MACRO LIBRARY USED TO ASSEMBLE THE FILE SYSTEM AND RELATED ROUTINES.
0          Referenced by comments of: 4/1, 4/4, 67/1, 67/2, 67/3, 67/19, 73/3, 92/3, 97/6, 104/112, 104/116, 400/12, 400/13,
                 442/1, 482/4, 482/10, 482/13, 482/16, 482/19, 482/22, 482/25, 482/28, 482/31, 482/34, 482/36, 482/41, 482/49,
                 482/51, 482/60, 502/1, 502/8, 509/1, 539/1, 540/18, 546/1, 554/1, 554/3, 578/1, 598/1, 599/1, 621/2, 629/4,
                 671/3, 682/18, 682/20, 682/22, 682/24, 682/26, 682/28, 682/30, 682/39, 682/41, 682/44, 724/1, 769/1, 769/3,
                 769/5, 769/7, 769/9, 769/11, 769/13, 769/15, 769/20, 769/25, 790/2, 790/4, 790/5, 790/7, 1020/1, 1021/1,
                 1021/4, 1021/7, 1030/1, 1041/5, 1041/12, 1079/10, 3024/37 
00482/046   FILE SYSTEM              TEST FILERTNS   OC  G          FILE:FILERTNS                                                   
            5.0T1  1179  FILE_SYSTEM.TEST_FILERTNS.OC.046   1 LINE     38    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:30
            5.0T3   173  FILE:FILERTNS        
0          A SERIES OF $CONTINUE WITHS TO PICK UP THE VARIOUS FILE SYSTEM OBJECT DECKS,
           A TEST VERSION OF TABLES (482/47), AND A TEST VERSION OF DSACC (482/39).
0          Referenced by comments of: 482/47 
00482/047   FILE SYSTEM              TEST TABLES     SA  G          FILE:TABLES.TEST(1000)                                          
            5.0T1  1180  FILE_SYSTEM.TEST_TABLES.SA.047     1 LINE     56    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:31
            5.0T3   174                       
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, AND CATALOG ROOT ENTRIES.
           USED WITH THE TEST VERSION OF THE FILE ROUTINES (482/46).
0          Referenced by comments of: 482/46 
00482/048   FILE SYSTEM              TEST TABLES     OC  G          FILE:TABLES.TEST(1,998)                                         
            5.0T1  1181  FILE_SYSTEM.TEST_TABLES.OC.048     1 LINE     80    2 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:32
            5.0T3   175  FILE:TABLES.TEST     
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00482/049A  FILE SYSTEM              TABLRTN TEST    SA  G          FILE:TABLTST                                                    
            5.0T1  1182  FILE_SYSTEM.TABLRTN_TEST.SA.049    1 LINE     72   14 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:33
            5.0T3   176  FILE:TABLTST         
0          PROGRAM TO TEST THE SHARED FILE TABLE ROUTINES TABLRTN (482/34).
           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/45).
           THIS PROGRAM REQUIRES A COPY OF MOVE (482/3) IN ORDER TO LOAD PROPERLY.
00482/050   FILE SYSTEM              TABLRTN TEST    OC  G          FILE:TABLTST.O                                                  
            5.0T1  1183  FILE_SYSTEM.TABLRTN_TEST.OC.050    1 LINE     80    5 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:35
            5.0T3   177  FILE:TABLTST.O       
00482/051A  FILE SYSTEM              CATALOG SCAN    SA  G          FILE:CATSCAN(1000)                                              
            5.0T1  1184  FILE_SYSTEM.CATALOG_SCAN.SA.051    1 LINE     70    9 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:36
            5.0T3   178  FILE:CATSCAN         
0          A PROGRAM WHICH GOES THROUGH THE CATALOG BY USER ID AND GATHERS INFORMATION OF INTEREST,
           E.G., THE NUMBER OF FILES WITH SPECIFIC SHARING DESCRIPTORS, ETC.  IT TAKES A LONG TIME
           TO RUN.  ASSEMBLE USING COPY:FILE.MACROS (482/45).
00482/052A  FILE SYSTEM              CATALOG SCAN    OC  G          FILE:CATSCAN(1,999)                                             
            5.0T1  1185  FILE_SYSTEM.CATALOG_SCAN.OC.052    1 LINE     80    7 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:39
            5.0T3   179                       
00482/053   FILE SYSTEM              DOCUMENTATION   WF             S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOCUMENTATION.WF.052(1)   1165
            5.0T1  1186  FILE_SYSTEM.DOCUMENTATION.WF.053   1 LINE    190   63 PAGE UM   HELFFRICH           DEC. 10, 1976  17:23:53
            5.0T3   180                       
0          FORMAT INPUT FOR THE MTS FILE SYSTEM INTERNAL DOCUMENTATION. THE FORMAT
           OUTPUT SHOULD BE RUN THROUGH THE INDEX PROGRAM (482/54) TO PRODUCE AN INDEX
           FOR THE FRONT OF THIS WRITEUP. COMPONENT (482/55) CONTAINS COMMANDS TO DO
           THIS. SEE ALSO COMP (682/1) FOR ADDITIONAL DOCUMENTATION RELATED TO THE FILE
           SYSTEM.
0          Referenced by comments of: 482/55, 482/58 
00482/054   FILE SYSTEM              INDEX           SS  G          S0563 D4T1 VLO FSNAME=FILE_SYSTEM.INDEX.SS.053(1)           1166
            5.0T1  1187  FILE_SYSTEM.INDEX.SS.054           1 LINE     68    1 PAGE UM   HELFFRICH           DEC. 10, 1976  17:24:07
            5.0T3   181                       
0          SNOBOL PROGRAM TO PRODUCE A TABLE OF CONTENTS FOR THE FILE SYSTEM INTERNAL DOCUMENTATION.
0          Referenced by comments of: 482/53, 482/55 
00482/055   FILE SYSTEM              DOC CMDS        C              S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOC_CMDS.C.054(1)         1167
            5.0T1  1188  FILE_SYSTEM.DOC_CMDS.C.055         1 LINE     65    1 PAGE UM   HELFFRICH           DEC. 10, 1976  17:24:15
            5.0T3   182                       
0          A COMMAND FILE TO PRODUCE THE COMPLETE FILE SYSTEM INTERNAL DOCUMENTATION.
           IT REFERENCES THE FORMAT INPUT (482/53) AND THE INDEX PROGRAM (482/54).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 482/53 
00482/056   FILE SYSTEM              DSECTLIST1      SS  G          S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DSECTLIST1.SS.055(1)      1168
            5.0T1  1189  FILE_SYSTEM.DSECTLIST1.SS.056      1 LINE     53    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:53
            5.0T3   183                       
0          This SNOBOL program and DSECTLIST2 (482/57) are used to convert an assembly
           language DSECT into format input which includes symbol values for inclusion
           in a writeup.
0          Referenced by comments of: 482/57, 482/58 
00482/057   FILE SYSTEM              DSECTLIST2      SS  G          S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DSECTLIST2.SS.056(1)      1169
            5.0T1  1190  FILE_SYSTEM.DSECTLIST2.SS.057      1 LINE     63    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:55
            5.0T3   184                       
0          The SPUNCH output from (482/56) should be run through this program, the
           SPUNCH output from this program then being *FORMAT input.
0          Referenced by comments of: 482/56, 482/58 
00482/058   FILE SYSTEM              DSECTLIST CMDS  C              S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DSECTLIST_CMD.C.057(1)    1170
            5.0T1  1191  FILE_SYSTEM.DSECTLIST_CMD.C.058    1 LINE     71    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:57
            5.0T3   185                       
0          This command file will run the DSECTLIST programs (482/56) and (482/57) 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/53).
00482/059A  FILE SYSTEM              SCRATCH SIZES   C              FILE:SCRATCHSIZES(1)                                            
            5.0T1  1192  FILE_SYSTEM.SCRATCH_SIZES.C.059    1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:53
            5.0T3   186  FILE:SCRATCHSIZES    
0          A SOURCE FILE TO GENERATE A LIST OF HOW MUCH SCRATCH AREA SPACE EACH FILE
           ROUTINE SUBROUTINE NEEDS.  THE FILE CONTAINS THE NECESSARY COMMANDS TO INVOKE
           THE ASSEMBLER, THE ASSEMBLER MACROS WHICH DO THE DIRTY WORK, AND THE DATA UPON
           WHICH THE MACROS WORK. 
           THE COMMANDS ARE DEPENDENT UPON THE FILE NAME WHICH CONTAINS THEM.
00482/060   FILE SYSTEM              TRAKSTAT        SA  O          FILE:TRAKSTAT(1000)                                             
            5.0T1  1193  FILE_SYSTEM.TRAKSTAT.SA.060        1 LINE     72    7 PAGE UM   HELFFRICH           JULY 03, 1981  13:57:54
            5.0T3   187  FILE:TRAKSTAT        
0          PROGRAM TO DISPLAY HISTOGRAMS, PREFERABLY ON A 3270 DEVICE, OF CURRENT DISK
           ACTIVITY IN VARIOUS CATEGORIES:  LINE DIRECTORY, DATA, CATALOG, PAT, AND
           DSCB. TAKES THE FOLLOWING PAR FIELD PARAMETERS:
            
                      NOHIST         TO SUPPRESS HISTOGRAMS
                      NOCLEAR        TO SUPPRESS CLEARING OF CUMULATIVE I/O
                                     COUNTS
                      DT= NS|NM|NH¬  TO DEFINE SAMPLE INTERVAL
                      RESET= NO|YES¬ TO RESET SWITCH IN TRAK (482/7) WHICH
                                     TRIGGERS STATISTICS COLLECTION
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           DEFAULT PARAMETERS ARE DT=15S, RESET=YES.  COPIES COPY:FILE.MACROS (482/45)
           AND COPY:MTS.MACROS (344/3).
00482/061   FILE SYSTEM              TRAKSTAT        OC  O          FILE:TRAKSTAT(1,999)                                            
            5.0T1  1194  FILE_SYSTEM.TRAKSTAT.OC.061        1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  13:58:01
            5.0T3   188                       
0          Contains a $CONTINUE WITH COPY:SYSDEFS (579/3) record.
00482/062   FILE SYSTEM              TRAKSTATAREA    SA  O          FILE:TRAKSTATAREA(1000)                                         
            5.0T1  1195  FILE_SYSTEM.TRAKSTATAREA.SA.062    1 LINE     62    1 PAGE UM   HELFFRICH           JULY 03, 1981  13:58:04
            5.0T3   189  FILE:TRAKSTATAREA    
0          THIS REGION MUST BE PISTLED WITH THE "ALIGN" OPTION BEFORE FILE SYSTEM
           STATISTICS MAY BE GENERATED. THE FIRST WORD OF THIS REGION IS A COUNT
           RELATING TO HOW MANY PUBLIC VOLUMES THERE ARE FOR WHICH STATISTICS MAY BE
           ACCUMULATED.
00482/063   FILE SYSTEM              TRAKSTATAREA    OC  O          FILE:TRAKSTATAREA(1,999)                                        
            5.0T1  1196  FILE_SYSTEM.TRAKSTATAREA.OC.063    1 LINE     80    2 PAGE UM   HELFFRICH           JULY 03, 1981  13:58:05
            5.0T3   190                       
00483/001A *WATFIV                   UPDATE          UU  G          W159:WAT5.SGEN                                                  
            5.0T1  1197  WATFIV.UPDATE.UU.001               1 LINE     80   31 PAGE UM   SHERRY              JULY 03, 1981  13:58:06
            5.0T3   191                       
0          THE WATFIV UPDATE DECK (483/1) IS ORGANIZED (BY LINE NUMBER) AS FOLLOWS:
            
               LINE NUMBERS        FILE #    NAME
                2000,2999           *2*      ACCT
                9000,9999           *9*      ARITH
                11000,11999         *11*     CDEFN
                17000,17999         *17*     COMMR
                34000,34999         *34*     DODO
                42000,42999         *42*     ERROR
                44000,44999         *44*     ERRTEXTS
                46000,46999         *46*     EXTRN
                49000,49999         *49*     FORMAT
                50000,50999         *50*     FORMCONV
                51000,51999         *51*     FRIOSCAN
                53000,53999         *53*     FUNCTION
                55000,55999         *55*     IBCOM#
                58000,58999         *58*     INOUT
                60000,60999         *60*     LANDR
                61000,61999         *61*     MAIN
                66000,66999         *66*     NAMELIST
                68000,68999         *68*     OPTIONS
                71000,71999         *71*     SCAN
                75000,75999         *75*     SPEX
                76000,76999         *76*     STARTA
                77000,77999         *77*     STARTB
                78000,78999         *78*     STOP#
                79000,79999         *79*     SYS
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0               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.
            
           *********************************************************************************
           D5.0 version:
            
           Some minor bugs have been fixed.
           *********************************************************************************
0          Referenced by comments of: 483/1, 483/7 
00483/002A *WATFIV                   FIOCS           SA  G          W159:WAT5.FIOCS.S                                               
            5.0T1  1198  WATFIV.FIOCS.SA.002                1 LINE     80   15 PAGE UM   SHERRY              JULY 03, 1981  13:58:10
            5.0T3   192                       
0          ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/8 
00483/003  *WATFIV                   DIOCS           SA  G          S0563 D4T1 VLO FSNAME=WATFIV.DIOCS.SA.003(1)                1174
            5.0T1  1199  WATFIV.DIOCS.SA.003                1 LINE     80    3 PAGE UM   SHERRY              JULY 27, 1977  03:57:08
            5.0T3   193                       
0          ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/8 
00483/004A *WATFIV                   DEFAULT         SA  G          W159:WAT5.DFALT.S                                               
            5.0T1  1200  WATFIV.DEFAULT.SA.004              1 LINE     71    2 PAGE UM   SHERRY              JULY 03, 1981  13:58:14
            5.0T3   194                       
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER.
           ASSEMBLE USING *SYSMAC.
           NOTE:  THIS ROUTINE IS ALSO USED BY ALGOLW (528) AND PLC (485).
0          Referenced by comments of: 483/8 
00483/005  *WATFIV                   OBJECT          OE  G        # *WATFIV                                                         
                                                                                    UM   SHERRY                                     
0          NOTE:  BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED.
00483/006A *WATFIV                   TEST DECKS      SF  G          W159:WAT5.TEST                                                  
            5.0T1  1201  WATFIV.TEST_DECKS.SF.006           1 LINE     80    8 PAGE UM   SHERRY              JULY 03, 1981  13:58:16
            5.0T3   195                       
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                                                                                               MON AUG 05/96   18:37:45   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           
                1   A SEQUENTIAL FILE
                2   A LINE FILE
                3   ANOTHER LINE FILE
            
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00483/007A *WATFIV                   REASS           C              W159:WAT5.REASS                                                 
            5.0T1  1202  WATFIV.REASS.C.007                 1 LINE    116    6 PAGE UM   SHERRY              JULY 03, 1981  13:58:18
            5.0T3   196                       
0          THIS FILE CONTAINS ALL THE MTS COMMANDS NECESSARY TO GENERATE THE VARIOUS
           COMPONENTS OF WATFIV. THE MTS COMMANDS ARE ORGANIZED (BY LINE NUMBER)
           IDENTICALLY TO (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/008A *WATFIV                   $SOU            C              W159:WAT5.$SOU                                                  
            5.0T1  1203  WATFIV.$SOU.C.008                  1 LINE     55    1 PAGE UM   SHERRY              JULY 03, 1981  13:58:19
            5.0T3   197                       
0          THIS FILE CONTAINS ALL THE "$SOURCE WAT5.REASS(---)" (483/7) COMMANDS NECESSARY
           TO GENERATE THE MTS VERSION OF WATFIV.  THIS IS A FIVE STEP PROCEDURE:
            
           1. THE SOURCE CODE FOR WATFIV IS UNLOADED FROM THE WATERLOO DISTRIBUTION TAPE
              (WATFIV V1L4) ONTO ANOTHER TAPE; A MACRO LIBRARY IS UNLOADED; AND THE
              FUNCTION OBJECT DECK LIBRARY IS UNLOADED AND UPDATED.
           2. THE COPY SECTIONS ACCT, CDEFN, COMMR, ERRTEXTS, EXTRN, OPTIONS, STARTA,
              STARTB, AND SYS ARE GENERATED (A DISK FILE WITH THE SAME NAME IS PRODUCED
              FOR EACH COPY SECTION).
           3. THE WATFIV CSECTS ARE ASSEMBLED.
           4. THE LOCAL MTS ORIGINATED ROUTINES FIOCS (483/2), DIOCS (483/3), DFLT
              (483/4), TIME (483/9), AND MTSFUN (483/10) ARE ASSEMBLED.
           5. THE RESULTING OBJECT DECKS ARE LINKEDITED VIA THE PROCEDURE (483/11) AND
              THE OUTPUT IS PLACED IN A FILE NAMED WAT5, WHICH MAY BE COPIED TO THE
              PUBLIC FILE *WATFIV.
            
           THUS, WATFIV WILL BE GENERATED IF THIS FILE IS $SOURCED TO.
0          Referenced by comments of: 483/7 
00483/009  *WATFIV                   TIME            SA  O          S0563 D4T1 VLO FSNAME=WATFIV.TIME.SA.009(1)                 1179
            5.0T1  1204  WATFIV.TIME.SA.009                 1 LINE     80    7 PAGE UM   SHERRY              JULY 27, 1977  03:57:19
            5.0T3   198                       
0          VERSION OF THE MTS TIME SUBROUTINE RECODED TO CONFORM TO WATFIV CALLING CONVENTIONS.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          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          S0563 D4T1 VLO FSNAME=WATFIV.MTSFUN.SA.010(1)               1180
            5.0T1  1205  WATFIV.MTSFUN.SA.010               1 LINE     80    4 PAGE UM   SHERRY              JULY 27, 1977  03:57:21
            5.0T3   199                       
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/011A *WATFIV                   RELINK          C              W159:WAT5.RELINK                                                
            5.0T1  1206  WATFIV.RELINK.C.011                1 LINE     20    1 PAGE UM   SHERRY              JULY 03, 1981  13:58:21
            5.0T3   200                       
0          LINKEDITOR COMMANDS REQUIRED TO LINKEDIT WATFIV.  "INCLUDES" WAT5.O (483/12).
0          Referenced by comments of: 483/8, 483/12 
00483/012A *WATFIV                   WAT5.O          OC  G          W159:WAT5.O                                                     
            5.0T1  1207  WATFIV.WAT5.O.OC.012               1 LINE     80    1 PAGE UM   SHERRY              JULY 03, 1981  13:58:22
            5.0T3   201                       
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/001A *ACCRESTORE                               OE  G          *ACCRESTORE                                                     
            5.0T1  1208  ACCRESTORE..OE.001                 1 LINE   3584    3 PAGE UM   ENGLE               JULY 03, 1981  13:58:23
            5.0T3   202  *ACCRESTORE          
0          PROGRAM TO COMPUTE NUMBER OF CURRENT SIGNONS AND CURRENT DISK SPACE FOR A USERID
           AND THEN UPDATE THE ACCOUNTING RECORD.  FILE IS LINKEDIT OF ACCSTRUP (104/32),
           THE MAIN PROGRAM, PLUS CURSIG (104/87), ACATALOG (104/113), GETFILE (104/111),
           ACCIO (104/25), ACCFLUPD (104/81), FILERATE (104/19), 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, 502/11 
00485/001A *PLC                      INSTALLATION    WF             PL1:PLCINSTALL.W                                                
            5.0T1  1209  PLC.INSTALLATION.WF.001            1 LINE    132    6 PAGE UM   TIFFANY             JULY 03, 1981  13:58:23
            5.0T3   203                       
0          Due to copyright restrictions, the master source, macro library, and object for
           PL/C cannot be distributed. It must be obtained directly from Cornell
           University.
            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          (485/1) consists of instructions for installing PL/C release 7.6 in MTS.
0          Referenced by comments of: 483/4, 485/1, 485/21, 485/23 
00485/002C *PLC                      OSPLCGEN        C   G          S0548 PLCARC 'PLC ARCHIVE' FSNAME=OSPLCGEN                      
            5.0T1  1210  PLC.OSPLCGEN.C.002                 1 LINE     67    2 PAGE UM   TIFFANY             APR. 10, 1981  15:16:29
            5.0T3   204                       
0          MTS command file to generate OS PL/C in file OSPLC.
00485/003A *PLC                      MTSPLCGEN       C   G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MTSPLCGEN                    
            5.0T1  1211  PLC.MTSPLCGEN.C.003                1 LINE    110    3 PAGE UM   TIFFANY             APR. 10, 1981  15:16:47
            5.0T3   205                       
0          MTS command file to generate initial MTS PL/C in file MTSPLC.
00485/004C *PLC                      INITPLCGEN      C   O          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=INITPLCGEN                   
            5.0T1  1212  PLC.INITPLCGEN.C.004               1 LINE    110    2 PAGE UM   TIFFANY             APR. 10, 1981  15:16:59
            5.0T3   206                       
0          MTS command file to generate the copy section PLCLXRWT to be replaced in
           PLCMACLIB (485/36), and the object modules PLCMAIN, PLCRVT, and PLCRTT to
           be replaced in MTSPLC.
00485/005C *PLC                      MESGPLCGEN      C   G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MESGPLCGEN                   
            5.0T1  1213  PLC.MESGPLCGEN.C.005               1 LINE    106    1 PAGE UM   TIFFANY             APR. 10, 1981  15:17:10
            5.0T3   207                       
0          MTS command file to generate error messages with corrections.
00485/006C *PLC                      CLEANPLCGEN     C   G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CLEANPLCGEN                  
            5.0T1  1214  PLC.CLEANPLCGEN.C.006              1 LINE    106    3 PAGE UM   TIFFANY             APR. 10, 1981  15:17:19
            5.0T3   208                       
0          Final generation -- the result is an unpatched PLC object deck.
00485/007C *PLC                      CGDR.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CGDR.U                       
            5.0T1  1215  PLC.CGDR.U.UC.007                  1 LINE     71    3 PAGE UM   TIFFANY             APR. 10, 1981  15:24:47
            5.0T3   209                       
0          MTS update for the code-generation driver module.
00485/008C *PLC                      CGIG.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CGIG.U                       
            5.0T1  1216  PLC.CGIG.U.UC.008                  1 LINE     58    1 PAGE UM   TIFFANY             APR. 10, 1981  15:25:00
            5.0T3   210                       
0          MTS update for the code-generation interpretive coder.
00485/009C *PLC                      CGXG.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CGXG.U                       
            5.0T1  1217  PLC.CGXG.U.UC.009                  1 LINE     63    1 PAGE UM   TIFFANY             APR. 10, 1981  15:25:14
            5.0T3   211                       
0          MTS update for the expression code-generator.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00485/010A *PLC                      CONT.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.U                       
            5.0T1  1218  PLC.CONT.U.UC.010                  1 LINE    100    9 PAGE UM   TIFFANY             APR. 10, 1981  15:25:28
            5.0T3   212                       
0          MTS update for the collection of CSECTS which control the sequencing of the
           compiler phases and provide interfacing between PL/C and the low level routines.
00485/011C *PLC                      CVNM.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CVNM.U                       
            5.0T1  1219  PLC.CVNM.U.UC.011                  1 LINE     67    1 PAGE UM   TIFFANY             APR. 10, 1981  15:25:45
            5.0T3   213                       
0          MTS update for number conversion routine.
00485/012A *PLC                      DGIO.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DGIO.U                       
            5.0T1  1220  PLC.DGIO.U.UC.012                  1 LINE     95    1 PAGE UM   TIFFANY             APR. 10, 1981  15:25:55
            5.0T3   214                       
0          MTS update for the I/O-statement code generator.
00485/013A *PLC                      ERMW.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=ERMW.U                       
            5.0T1  1221  PLC.ERMW.U.UC.013                  1 LINE     92    3 PAGE UM   TIFFANY             APR. 10, 1981  15:26:15
            5.0T3   215                       
0          MTS update for the module which produces the error messages.
00485/014C *PLC                      EXEC.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXEC.U                       
            5.0T1  1222  PLC.EXEC.U.UC.014                  1 LINE     71    1 PAGE UM   TIFFANY             APR. 10, 1981  15:26:39
            5.0T3   216                       
0          MTS update for the module which contains run-time utility routines.
00485/015C *PLC                      EXIO.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXIO.U                       
            5.0T1  1223  PLC.EXIO.U.UC.015                  1 LINE     51    1 PAGE UM   TIFFANY             APR. 10, 1981  15:26:51
            5.0T3   217                       
0          MTS update for the module which contains common run-time I/O routines.
00485/016C *PLC                      EXON.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXON.U                       
            5.0T1  1224  PLC.EXON.U.UC.016                  1 LINE     44    1 PAGE UM   TIFFANY             APR. 10, 1981  15:27:00
            5.0T3   218                       
0          MTS update for the module containing the ON-unit manager.
00485/017A *PLC                      EXRI.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXRI.U                       
            5.0T1  1225  PLC.EXRI.U.UC.017                  1 LINE     99    1 PAGE UM   TIFFANY             MAY  15, 1981  11:32:25
            5.0T3   219                       
0          MTS update for the module which performs record I/O.
00485/018C *PLC                      EXUD.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXUD.U                       
            5.0T1  1226  PLC.EXUD.U.UC.018                  1 LINE     67    1 PAGE UM   TIFFANY             APR. 10, 1981  15:27:25
            5.0T3   220                       
0          MTS update for the module that processes undefined variables.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00485/019A *PLC                      GPCR.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=GPCR.U                       
            5.0T1  1227  PLC.GPCR.U.UC.019                  1 LINE     87    1 PAGE UM   TIFFANY             APR. 10, 1981  15:27:35
            5.0T3   221                       
0          MTS update for the module which performs conversions at run-time.
00485/020A *PLC                      IM.U            UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=IM.U                         
            5.0T1  1228  PLC.IM.U.UC.020                    1 LINE     98    5 PAGE UM   TIFFANY             APR. 10, 1981  15:27:47
            5.0T3   222                       
0          MTS update for the installation-dependent module.
00485/021C *PLC                      INIT.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=INIT.U                       
            5.0T1  1229  PLC.INIT.U.UC.021                  1 LINE     68    3 PAGE UM   TIFFANY             APR. 10, 1981  15:27:58
            5.0T3   223                       
0          See installation writeup (485/1) for details.
00485/022C *PLC                      LEXI.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=LEXI.U                       
            5.0T1  1230  PLC.LEXI.U.UC.022                  1 LINE     66    1 PAGE UM   TIFFANY             APR. 10, 1981  15:28:08
            5.0T3   224                       
0          Update applies to PLCMACLIB (485/36), which contains several copy sections
           for the Lexical Analyzer.  If you are changing PLCLEXI, PLCSYNA and PLCPICT
           must also be reassembled since they copy part of PLCLEXI.
00485/023C *PLC                      MESG.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MESG.U                       
            5.0T1  1231  PLC.MESG.U.UC.023                  1 LINE     59    1 PAGE UM   TIFFANY             APR. 10, 1981  15:28:22
            5.0T3   225                       
0          See installation writeup (485/1) for details.
00485/024A *PLC                      MIMO.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.U                       
            5.0T1  1232  PLC.MIMO.U.UC.024                  1 LINE     97    8 PAGE UM   TIFFANY             APR. 10, 1981  15:28:32
            5.0T3   226                       
0          MTS update for the module which gains initial control in PL/C (mini-monitor).
00485/025A *PLC                      OPTB.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTB.U                       
            5.0T1  1233  PLC.OPTB.U.UC.025                  1 LINE     72    1 PAGE UM   TIFFANY             APR. 10, 1981  15:28:43
            5.0T3   227                       
0          MTS update for the module which defines the default options for PL/C.
00485/026A *PLC                      OPTN.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTN.U                       
            5.0T1  1234  PLC.OPTN.U.UC.026                  1 LINE     99    4 PAGE UM   TIFFANY             APR. 10, 1981  15:28:52
            5.0T3   228                       
0          MTS update for the module which performs the compiler options scanning.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00485/027C *PLC                      PICT.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PICT.U                       
            5.0T1  1235  PLC.PICT.U.UC.027                  1 LINE     62    1 PAGE UM   TIFFANY             APR. 10, 1981  15:29:01
            5.0T3   229                       
0          MTS update for the module that processes pictures.
00485/028C *PLC                      RVRS.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=RVRS.U                       
            5.0T1  1236  PLC.RVRS.U.UC.028                  1 LINE     36    1 PAGE UM   TIFFANY             APR. 10, 1981  15:29:11
            5.0T3   230                       
0          MTS update for the reverse-translation generator.
00485/029C *PLC                      SYNA.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYNA.U                       
            5.0T1  1237  PLC.SYNA.U.UC.029                  1 LINE     68    3 PAGE UM   TIFFANY             APR. 11, 1981  16:19:06
            5.0T3   231                       
0          Update applies only to PLCMACLIB (485/36), which contains several copy
           sections for the Syntactic-Analysis Routine.
00485/030A *PLC                      SYSO.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.U                       
            5.0T1  1238  PLC.SYSO.U.UC.030                  1 LINE    100   18 PAGE UM   TIFFANY             APR. 10, 1981  15:29:47
            5.0T3   232                       
0          MTS update for the module which interfaces with the operating system.
00485/031C *PLC                      XREF.U          UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=XREF.U                       
            5.0T1  1239  PLC.XREF.U.UC.031                  1 LINE     69    1 PAGE UM   TIFFANY             APR. 10, 1981  15:30:06
            5.0T3   233                       
0          MTS update for the cross-reference generator.
00485/032A *PLC                      DEFAULT         SA  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.S                    
            5.0T1  1240  PLC.DEFAULT.SA.032                 1 LINE     71    3 PAGE UM   TIFFANY             APR. 19, 1978  17:48:53
            5.0T3   234                       
0          Subroutine to handle default page and time estimates in MTS -- not part of the
           Cornell source.
00485/033A *PLC                      DEFAULT         OC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.O                    
            5.0T1  1241  PLC.DEFAULT.OC.033                 1 LINE     80    1 PAGE UM   TIFFANY             APR. 19, 1978  17:48:00
            5.0T3   235                       
00485/034C *PLC                      PLCMSGS         SA  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCMSGS                      
            5.0T1  1242  PLC.PLCMSGS.SA.034                 1 LINE     72    4 PAGE UM   TIFFANY             APR. 10, 1981  15:30:20
            5.0T3   236                       
0          Source for a routine to print all PL/C error messages.  Use this for 
           verification of error messages. (Not a part of the Cornell source.)
           Copies *GDINFODSECT (594).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00485/035C *PLC                      PLCMSGS         OC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCMSGS.O                    
            5.0T1  1243  PLC.PLCMSGS.OC.035                 1 LINE     80    3 PAGE UM   TIFFANY             APR. 10, 1981  15:30:37
            5.0T3   237                       
0          Refers to PLCMSGA...PLCMSGF.
00485/036C *PLC                      PLCMACLIB       SM  G        # PL1:PLCMACLIB                                                   
                                                                                    UM   TIFFANY                                    
0          PL/C macro library.  Cannot be distributed due to copyright restriction.
0          Referenced by comments of: 485/4, 485/22, 485/29, 485/37 
00485/037C *PLC                      PLCMACLIB       UC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCMAC.UP                    
            5.0T1  1244  PLC.PLCMACLIB.UC.037               1 LINE     71    2 PAGE UM   TIFFANY             APR. 10, 1981  15:23:36
            5.0T3   238                       
0          Update for PLCMACLIB (485/36).
00485/038A *PLC                      OBJECT          OC  G        # SEG2:PLC                                                        
                                                                                    UM   TIFFANY                                    
0          PL/C segment 2 object.  Cannot be distributed due to copyright restrictions.
00485/039A *PLC                      *PLC            OC  G          *PLC                                                            
            5.0T1  1245  PLC.*PLC.OC.039                    1 SEQ      24    1 PAGE UM   TIFFANY             JULY 03, 1981  14:06:01
            5.0T3   239                       
0          These cards refer to the actual object loaded by PISTLE (559).
00486/001  *HBQ                                      SA           # (OBSOLETE)                                                      
            D4T1   1196  HBQ..SA.001                        1 LINE     80   18 PAGE UM                       FEB. 25, 1975  16:41:55
0          Obsoleted by the $SYSTEMSTATUS command.
00487/001A *LABEL                    MAIN PGM        SA  G          TAPE:LABEL(1,999)                                               
            5.0T1  1246  LABEL.MAIN_PGM.SA.001              1 LINE     68    5 PAGE UM   LIFT                JULY 03, 1981  14:06:02
            5.0T3   240                       
0          PROGRAM TO INITIALIZE LABELED OR UNLABELED MAGNETIC TAPES.  CALLS TPINIT
           SUBROUTINE (487/4). SOURCE IN LINES 1,999.
            
           *****************************************************************************
           D5.0 version:
            
           Accepts keyword "LBLTYPE=ANSI" as last parameter on input line to request 
           that the tape be ANSI labeled.
           *****************************************************************************
0          Referenced by comments of: 135/1, 487/3 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00487/002A *LABEL                    MAIN PGM        OE  G          *LABEL                                                          
            5.0T1  1247  LABEL.MAIN_PGM.OE.002              1 LINE   2068    1 PAGE UM   LIFT                JULY 03, 1981  14:06:03
            5.0T3   241  *LABEL               
00487/003A *LABEL                    *LBL            C              *LBL                                                            
            5.0T1  1248  LABEL.*LBL.C.003                   1 LINE     34    1 PAGE UM   LIFT                JULY 03, 1981  14:06:04
            5.0T3   242  *LBL                 
0          COMMAND FILE TO RUN *LABEL (487/1) FOR THE OPERATORS.  INVOKED BY ENTERING
           "MTS *LBL" ON THE OPERATOR'S CONSOLE.
00487/004A *LABEL                    TPINIT SUBR     SA  G          TAPE:TAPEINIT(1,999)                                            
            5.0T1  1249  LABEL.TPINIT_SUBR.SA.004           1 LINE     72    4 PAGE UM   LIFT                JULY 03, 1981  14:06:05
            5.0T3   243                       
0          SUBROUTINE, WITH ALTERNATE ENTRY TAPEINIT, WHICH INITIALIZES TAPES (LABELED OR
           UNLABELED).  SOURCE IN LINES 1,999.
            
           *****************************************************************************
           D5.0 version:
            
           A fifth parameter has been added to specify what kind of labels are
           generated. It is "LBLTYP", which may be "OS/VS", "VLO", or "ANSI".
           *****************************************************************************
0          Referenced by comments of: 487/1 
00487/005A *LABEL                    TPINIT SUBR     OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   LIFT                                       
0          Object part of *LIBRARY (524/1)
00488/001   CONTROL                                  SA           # (OBSOLETE)                                                      
            D2.3    035                                                             UM                                              
00489/001   TAPETEST                                 SA  G  TT      S1153 UNSP VLO FSNAME=TT.S                                      
            5.0T1  1250  TAPETEST..SA.001                   1 LINE     80   16 PAGE UM   UNSP                JUNE 24, 1980  14:38:28
            5.0T3   244                       
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).
00489/002   TAPETEST                                 OE  G          UNSP:TESTIO                                                     
            5.0T1  1251  TAPETEST..OE.002                   1 LINE   3148    3 PAGE UM   UNSP                JULY 03, 1981  14:06:11
            5.0T3   245  UNSP:TESTIO          
00489/003A  TAPETEST                                 P              UNSP:TESTIO.W                                                   
            5.0T1  1252  TAPETEST..P.003                    1 LINE     73    1 PAGE UM   UNSP                JULY 03, 1981  14:06:12
            5.0T3   246                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00490/001  *LAR                                      C              *LAR                                                            
            5.0T1  1253  LAR..C.001                         1 LINE     29    1 PAGE UM   MTA                 JULY 03, 1981  14:06:13
            5.0T3   247  STRT:*LAR            
0          COMMAND FILE TO RUN UNITS (1012) TO RESET ALL 2703 (AND SIMILAR) LINES.
           IT RESETS EVERYTHING WITH DEVICE TYPE MRXA, SDA, TTY, OR 2741.
           INVOKED BY ENTERING "MTS *LAR" ON THE OPERATOR'S CONSOLE.
           IT SHOULD ONLY BE USED WHEN A 2703 OR MEMOREX 1270 HAS DROPPED ITS
           LINES SINCE IT FAKES A UNIT CHECK ON EACH 2703 ADDRESS.
00491/001  *SCRAMBLE                                              # (OBSOLETE)                                                      
            D4T1   1204  SCRAMBLE..SF.001                   1 LINE     50    1 PAGE UM                       JUNE 06, 1976  22:11:25
            D4T3    303                       
0          Obsoleted by *ENCRYPT (677)
00492/001  *DCALC                                    SP  G          S0563 D4T1 VLO FSNAME=DCALC..SP.001(1)                      1207
            5.0T1  1254  DCALC..SP.001                      1 LINE     80   13 PAGE UM   MTA                 AUG. 03, 1973  21:27.08
            5.0T3   248                       
0          PL/I DESK CALCULATOR PROGRAM.
00492/002A *DCALC                                    OE  G          *DCALC                                                          
            5.0T1  1255  DCALC..OE.002                      1 SEQ   21678    9 PAGE UM   MTA                 JULY 03, 1981  14:06:17
            5.0T3   249  *DCALC               
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
            
           *******************************************************************************
           D5.0 version:
            
           MSG cards removed.
           *******************************************************************************
00493/001  *TALLY                    MAIN            SA  O          S0563 D4T1 VLO FSNAME=TALLY.370_MAIN.SA.001(1)              1209
            5.0T1  1256  TALLY.MAIN.SA.001                  1 LINE     80    9 PAGE UM   VALERIO             JULY 27, 1977  04:12:45
            5.0T3   250                       
0          TALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO COUNT THE NUMBER OF TIMES
           EACH MACHINE INSTRUCTION IS EXECUTED.
00493/002  *TALLY                    SIM SUBR        SA  O          S0563 D4T1 VLO FSNAME=TALLY.370_SIM_SUBR.SA.002(1)          1210
            5.0T1  1257  TALLY.SIM_SUBR.SA.002              1 LINE     80   36 PAGE UM   VALERIO             JULY 27, 1977  04:12:47
            5.0T3   251                       
00493/003  *TALLY                    OBJECT          OC  O          *TALLY                                                          
            5.0T1  1258  TALLY.OBJECT.OC.003                1 LINE    255    4 PAGE UM   VALERIO             JULY 03, 1981  14:06:20
            5.0T3   252  *TALLY               
00494/001  *CSMP                                     SA  G  CSMP    W020:CSMPDISTR(1,341)                                           
            5.0T1  1259  CSMP..SA.001                       1 LINE     80    8 PAGE UM   FLANIGAN            JULY 03, 1981  14:06:21
            5.0T3   253                       
0          CONTINUOUS SYSTEM MODELING PROGRAM (MODIFIED FROM IBM).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS.
00494/002  *CSMP                                     OE  G          *CSMP                                                           
            5.0T1  1260  CSMP..OE.002                       1 SEQ      80    2 PAGE UM   FLANIGAN            JULY 03, 1981  14:06:22
            5.0T3   254  *CSMP                
00494/003  *CSMP                     CSMPTRAN        SA  G  CPTR    W020:CSMPDISTR(500,720)                                         
            5.0T1  1261  CSMP.CSMPTRAN.SA.003               1 LINE     80    6 PAGE UM   FLANIGAN            JULY 03, 1981  14:06:24
            5.0T3   255                       
0          TRANSLATION CONTROL.  ASSEMBLE USING *SYSMAC AND PUT IN *CSMPTRAN. 
           ADD "$CONTINUE WITH *CSMPLIB" AT END.
00494/004  *CSMP                     *CSMPTRAN       OE  G          *CSMPTRAN                                                       
            5.0T1  1262  CSMP.*CSMPTRAN.OE.004              1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 03, 1981  14:06:25
            5.0T3   256  *CSMPTRAN            
0          ENDS WITH A "$CONTINUE WITH *CSMPLIB" CARD.
00494/005  *CSMP                     CSMPEXEC        SA  G  CPEX    W020:CSMPDISTR(1000,1107)                                       
            5.0T1  1263  CSMP.CSMPEXEC.SA.005               1 LINE     80    4 PAGE UM   FLANIGAN            JULY 03, 1981  14:06:25
            5.0T3   257                       
0          EXECUTION CONTROL
00494/006  *CSMP                     *CSMPEXEC       OE  G          *CSMPEXEC                                                       
            5.0T1  1264  CSMP.*CSMPEXEC.OE.006              1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 03, 1981  14:06:26
            5.0T3   258  *CSMPEXEC            
00494/007  *CSMP                     CSMPLIB IBM     S   G          S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80)           2  
            5.0T1  1265  CSMP.CSMPLIB_IBM.S.007             1 SEQ      80  155 PAGE UM   FLANIGAN            JULY 03, 1981  14:07:13
            5.0T3   259                       
0          ORIGINAL IBM SOURCE (FORTRAN AND ASM).
00494/008  *CSMP                     CSMPLIB UPD     UU  G          W020:CSMPDISTR(2000,2175)                                       
            5.0T1  1266  CSMP.CSMPLIB_UPD.UU.008            1 LINE     80    4 PAGE UM   FLANIGAN            JULY 03, 1981  14:07:15
            5.0T3   260                       
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 TAPE HAS BEEN MOUNTED AS *P*
              3.  AN EMPTY SEQUENTIAL FILE -A EXISTS
           THIS UPDATE PUTS THE UPDATED CSMP FORTRAN ROUTINES ON *P* WITH BLOCKING
           FACTOR 100, REWINDS IT, PUTS THE UPDATED CSMP ASSEMBLER ROUTINES IN -A, AND
           REWINDS AND UNLOADS *S*.
0          Referenced by comments of: 494/10 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00494/009  *CSMP                     CSMPLIB ASM     SA  G          W020:CSMPDISTR(1500,1531)                                       
            5.0T1  1267  CSMP.CSMPLIB_ASM.SA.009            1 LINE     70    1 PAGE UM   FLANIGAN            JULY 03, 1981  14:07:16
            5.0T3   261                       
0          TWO ASM ROUTINES USED DURING DYNAMIC LINKING.
0          Referenced by comments of: 494/10 
00494/010  *CSMP                     *CSMPLIB        OL  G          *CSMPLIB                                                        
            5.0T1  1268  CSMP.*CSMPLIB.OL.010               1 SEQ    6924   32 PAGE UM   FLANIGAN            JULY 03, 1981  14:07:17
            5.0T3   262  *CSMPLIB             
0          LIBRARY MADE FROM ASM AND FTN ROUTINES UPDATED BY (494/8) AND ASM ROUTINES
           FROM COMPONENT (494/9). (NOTE: FORTRANH HAS BEEN USED.)
00495/001A  EXPL                     SUBMONITOR      SA  G          W052:EXMON.S                                                    
            5.0T1  1269  EXPL.SUBMONITOR.SA.001             1 LINE     80   33 PAGE UM   SHERRY              JULY 03, 1981  14:07:19
            5.0T3   263                       
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.
           ALSO INCLUDED ARE THE RUNTIME LIBRARY ROUTINES INDEX, TIMEX, EXCALL, AND MAIN
           (WHICH IS A DUMMY ROUTINE TO PRINT AN ERROR MESSAGE IF NO MAIN PROCEDURE
           EXISTS).
            
           ASSEMBLE USING *SYSMAC WITH PAR=BATCH. COPIES *GDINFODSECT (594) AND
           *LOADINFODSECT (001/4).
            
           *****************************************************************************
           D5.0 VERSION:
            
           THIS VERSION OF EXPL IS DESCRIBED IN CCMEMO 416 (495/09) AND INCLUDES THE
           FOLLOWING CHANGES, PREVIOUSLY DISTRIBUTED WITH THE D4.3A VERSION:
            
           1) SEVERAL BUG FIXES 2) LOWER CASE INPUT ACCEPTED 3) NEW PRODUCTION ADDED TO
           ALLOW MAIN PROCEDURES TO ACCESS $RUN PAR STRING 4) SOME COMPILER LIMITS WERE
           INCREASED 5) BUILTIN FUNCTIONS DESCR AND CORE ADDED 6) ALL MTS LOGICAL I/O
           UNITS NOW ACCESSABLE THROUGH INPUT/OUTPUT FUNCTIONS 7) SEVERAL NEW MONITOR
           CALLS ADDED 8) LIBRARY ROUTINES INDEX, TIMEX, EXCALL, EXADDR AND EXRC
           INCLUDED.
           *****************************************************************************
0          Referenced by comments of: 318/9, 495/2 
00495/002A  EXPL                     *EXPLIB         OE  G          *EXPLIB                                                         
            5.0T1  1270  EXPL.*EXPLIB.OE.002                1 LINE   5914    6 PAGE UM   SHERRY              JULY 03, 1981  14:07:21
            5.0T3   264  *EXPLIB              
0          EXPL RUNTIME LIBRARY. THIS LIBRARY IS GENERATED BY *OBJUTIL (721) AND
           CONSISTS OF THE OBJECT MODULES PRODUCED BY ASSEMBLING (495/1).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 782/45, 782/60 
00495/003A  EXPL                     *EXCOM          SX  G          *EXCOM                                                          
            5.0T1  1271  EXPL.*EXCOM.SX.003                 1 LINE    100   70 PAGE UM   SHERRY              JULY 03, 1981  14:07:22
            5.0T3   265  *EXCOM               
0          EXPL SOURCE FOR THE EXTENDED XPL COMPILER.  THE RESULTING OBJECT MUST BE RUN
           CONCATENATED WITH *EXPLIB.
0          Referenced by comments of: 495/4 
00495/004A  EXPL                     EXPL OBJ        OE  G          S1482 4.3AT1 VLO FSNAME=EXPL.EXPL_OBJ.OC.006(1)              165
            5.0T1  1272  EXPL.EXPL_OBJ.OE.004               1 LINE  32767   41 PAGE UM   SHERRY              OCT. 12, 1980  15:46:22
            5.0T3   266                       
0          OBJECT PRODUCED BY COMPILING *ECXOM (495/3).
00495/005A  EXPL                     *EXPL           OE  G          *EXPL                                                           
            5.0T1  1273  EXPL.*EXPL.OE.005                  1 SEQ   32767   42 PAGE UM   SHERRY              JULY 03, 1981  14:08:29
            5.0T3   267  *EXPL                
0          IT IS MOST CONVENIENT TO LINKEDIT THE COMPILER AND SUBMONITOR TOGETHER TO MAKE *EXPL.  NOTE THAT THE
           ENTRY POINT MUST BE XPLSM.  WHEN LINKEDITING, THE XPLDFLTS CSECT WHICH SETS THE FREE STRING AREA SIZE
           (FSASIZE) TO 15 PAGES SHOULD BE USED.
            
           $SOURCE EXPL.LINK (495/08) TO GENERATE THE LINKEDITED VERSION OF EXPL.
00495/006A  EXPL                     *EXPLBNF        D   G          *EXPLBNF                                                        
            5.0T1  1274  EXPL.*EXPLBNF.D.006                1 LINE     73    3 PAGE UM   SHERRY              JULY 03, 1981  14:08:32
            5.0T3   268  *EXPLBNF             
0          SUITABLE INPUT TO *ANALYZER (318/13) TO PRODUCE THE NECESSARY DECLARATIONS FOR
           DRIVING THE PARSING ALGORITHM FOR *EXPL.
00495/007A  EXPL                     *EXSKELETON     SX  G          *EXSKELETON                                                     
            5.0T1  1275  EXPL.*EXSKELETON.SX.007            1 LINE     80   12 PAGE UM   SHERRY              JULY 03, 1981  14:08:32
            5.0T3   269  *EXSKELETON          
0          THIS IS A VERSION OF SKELETON (318/12), A PROTO-COMPILER FOR USE WITH *EXPL.
           IT CONSISTS OF SEVERAL INDEPENDENTLY COMPILABLE EXTERNAL PROCEDURES WHICH FORM
           THE FRAMEWORK FOR A TABLE-DRIVEN COMPILER.
00495/008A  EXPL                     LINK            C   G          S1482 4.3AT1 VLO FSNAME=EXPL.LINK.C.010(1)                   169
            5.0T1  1276  EXPL.LINK.C.008                    1 LINE     22    1 PAGE UM   SHERRY              OCT. 12, 1980  15:46:30
            5.0T3   270                       
0          SOURCE FILE WHICH LINKEDITS THE APPROPRIATE PIECES OF THE SUBMONITOR AND EXCOM
           INTO AN EXPL COMPILER.
0          Referenced by comments of: 495/5 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00495/009A  EXPL                     MEMO 416        WX             S1482 4.3AT1 VLO FSNAME=EXPL.MEMO_416.WX.011(1)              170
            5.0T1  1277  EXPL.MEMO_416.WX.009               1 LINE    199   14 PAGE UM   SHERRY              OCT. 12, 1980  15:46:30
            5.0T3   271                       
0          THIS IS COMPUTING CENTER MEMO 416 -- "EXPL - EXTENDED XPL." THIS MEMO
           OBSOLETES MEMOS 343 AND 390.
0          Referenced by comments of: 495/1 
00496/001  *APC                                      SA  G          S1430 4.3T1 VLO FSNAME=APC..SA.001(1)                        294
            5.0T1  1278  APC..SA.001                        1 LINE     90   67 PAGE UM   TIFFANY             APR. 05, 1980  15:16:35
            5.0T3   272                       
0          THIS IS THE ALL-PURPOSE COMPARE PROGRAM WHICH IS USED PRIMARILY TO TEST FOR
           EQUALITY BETWEEN RECORDS OF TWO FILES OR DEVICES.  COPIES *GDINFODSECT (594)
           AND *SENSEDSECT (3025).
0          Referenced by comments of: 629/12, 1016/1 
00496/002  *APC                                      OE  G          *APC                                                            
            5.0T1  1279  APC..OE.002                        1 LINE  21255   15 PAGE UM   TIFFANY             JULY 03, 1981  14:08:44
            5.0T3   273  *APC                 
00496/003  *APC                      EXPLAIN MSG     M              ETC:APCEXP                                                      
            5.0T1  1280  APC.EXPLAIN_MSG.M.003              1 LINE     66   10 PAGE UM   TIFFANY             JULY 03, 1981  14:08:46
            5.0T3   274  ETC.:APCEXP          
0          EXPLAIN MESSAGE FILE FOR *APC.
00497/001  *SNAP                                     SF  G          S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80)           1  
            5.0T1  1281  SNAP..SF.001                       1 SEQ      80  132 PAGE UM   FLANIGAN            JULY 03, 1981  14:08:57
            5.0T3   275                       
00497/002  *SNAP                                     UU  G          S0563 D4T1 VLO FSNAME=SNAP..UU.002(1)                       1241
            5.0T1  1282  SNAP..UU.002                       1 LINE     73    1 PAGE UM   FLANIGAN            JULY 30, 1973  20:45.57
            5.0T3   276                       
00497/003  *SNAP                                     OE  G          *SNAP                                                           
            5.0T1  1283  SNAP..OE.003                       1 SEQ    5212   27 PAGE UM   FLANIGAN            JULY 03, 1981  14:09:05
            5.0T3   277  *SNAP                
00498/001A *IG                       *IG             OL  G          *IG                                                             
            5.0T1  1284  IG.*IG.OL.001                      1 LINE   5372   31 PAGE UM   BURLING             JULY 03, 1981  14:09:06
            5.0T3   278  *IG                  
0          This is the coding conventions version of the Integrated Graphics, or IG,
           system. IG is a library of FORTRAN-callable subroutines for performing
           graphics operations on a large variety of devices. It consists of *IG and
           routines for device-dependent I/O support. Each source module for this
           component contains the MTS commands for assembling it. Each should be
           assembled using COPY:IG.COPY.M (498/16). Many modules use the Version Labeler
           (812).
            
            The following is a directory of the subcomponents of IG:
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
               Subcomponent #               Contents
             (498/2)   - (498/13)      Device-independent portion of IG
             (498/14)  - (498/15)      Dsects for use when debugging 
                         (498/16)      Macros and copy sections
             (498/17)  - (498/18)      Test programs
             (498/19)  - (498/21)      Statistics utilities
                         (498/22)      Source for PDP-9 op sys for use with IG
                         (498/23)      The character font library
             (498/24)  - (498/45)      Source for the character fonts
             (498/46)  - (498/47)      The new-IG-to-old-DDR adaptor routine
                         (498/48)      The skeleton new-style DDR
             (498/49)  - (498/115)     DDRs
             (498/116) - (498/123)     A new version, in PLUS, of Interactive IG
                         (498/124)     Implementation guide
                         (498/125)     EGP writeup
                         (498/126)     Usage statistics file
            
           This subcomponent is the object library IG users concatenate to their programs. 
            
           Contains the modules
            
                      #PWRIT      (498/12)
                      IAIG        (498/123)
            
           plus loader cards to reference the resident IG.
            
           NOTE:
            
           This assumes that SEG2:IG (498/02) has been installed in shared VM.
           If this is not the case, this module should be combined with all modules from
           SEG2:IG except LCS (498/10) and run through *OBJUTIL with PAR=LIB.
            
           This subcomponent requires the following other files:
              *SYSMAC
              COPY:CC.MACROS   (1054/3)
              *PEXIT           (775)
              ALWB:SIDELABEL   (747/3)
            
           **********************************************************************************
           D5.0 changes:
            
           The device-independent portion of IG has essentially been entirely recoded.
           It is now reentrant and uses the coding conventions. Some new picture
           attributes have been added (TPLANE, PFILL, PEDGE). Primitive picture
           attributes have been added (same attributes as basic attributes, but only in
           effect from when set until end of subpicture, and not inherited). Many new
           text fonts have been added. As a result, and to make things more consistent,
           none of the font tables are assembled as part of the DI module (498/04). The
           standard font (498/45) is loaded during initialization.
           **********************************************************************************
0          Referenced by comments of: 498/12, 812/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/002A *IG                       SEG2:IG         OL  G          SEG2:IG                                                         
            5.0T1  1285  IG.SEG2:IG.OL.002                  1 LINE  12344   52 PAGE UM   BURLING             JULY 03, 1981  14:09:09
            5.0T3   279  SEG2:IG              
0          This is the portion of IG that gets loaded into shared VM.  Contains the
           following IG modules:
            
                      LCS         (498/10)
                      DIUSERXF    (498/03)
                      DIRTNS      (498/04)
                      DSM         (498/05)
                      DUMP        (498/06)
                      EGP         (498/07)
                      #IGETDD     (498/08)
                      LOAD        (498/09)
                      PD          (498/11)
                      #SS         (498/13)
            
           and some loader control records (LCS, RIP, etc.) at the end.
0          Referenced by comments of: 498/1, 498/3, 498/4, 498/5, 498/6, 498/7, 498/8, 498/9, 498/11, 498/13 
00498/003A *IG                       DI USERXF       SA  G          GRAF:IG.DIUSER.S                                                
            5.0T1  1286  IG.DI_USERXF.SA.003                1 LINE    136   13 PAGE UM   BURLING             JULY 03, 1981  14:09:18
            5.0T3   280                       
0          This is the user-callable routines module for *IG's Device Interface to its
           device-dependent routines.
            
           Object is in SEG2:IG (498/02).
0          Referenced by comments of: 498/2 
00498/004A *IG                       DI RTNS         SA  G          GRAF:IG.DIRTNS.S                                                
            5.0T1  1287  IG.DI_RTNS.SA.004                  1 LINE    139   53 PAGE UM   BURLING             JULY 03, 1981  14:09:27
            5.0T3   281                       
0          This is the internal routines module for *IG's Device Interface to its
           device-dependent routines.
            
           Object is in SEG2:IG (498/02).
0          Referenced by comments of: 498/1, 498/2, 498/45 
00498/005A *IG                       DSM             SA  G          GRAF:IG.DSM.S                                                   
            5.0T1  1288  IG.DSM.SA.005                      1 LINE    133   42 PAGE UM   BURLING             JULY 03, 1981  14:10:08
            5.0T3   282                       
0          Source for Data Structure Modification csect (DSM).
            
           Object is in SEG2:IG (498/02).
0          Referenced by comments of: 498/2 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/006A *IG                       DUMP            SA  G          GRAF:IG.DUMP.S                                                  
            5.0T1  1289  IG.DUMP.SA.006                     1 LINE    134    9 PAGE UM   BURLING             JULY 03, 1981  14:11:07
            5.0T3   283                       
0          Source for IG Data Structure Dumping routine (IGDUMP).
            
           Object is in SEG2:IG (498/02).
0          Referenced by comments of: 498/2 
00498/007A *IG                       EGP             SA  G          GRAF:IG.EGP.S                                                   
            5.0T1  1290  IG.EGP.SA.007                      1 LINE    133   10 PAGE UM   BURLING             JULY 03, 1981  14:11:12
            5.0T3   284                       
0          Source for External Graphics Procedure csect (EGP).
            
           Object is in SEG2:IG (498/02).
0          Referenced by comments of: 498/2 
00498/008A *IG                       GETDD           SA  G          GRAF:IG.GETDD.S                                                 
            5.0T1  1291  IG.GETDD.SA.008                    1 LINE    135   21 PAGE UM   BURLING             JULY 03, 1981  14:11:14
            5.0T3   285                       
0          Source for Get Device Dependent Routine csect (#IGETDD).
            
           Object is in SEG2:IG (498/02).
            
           This module has conditional assembly parts for UNE.  To use, change the
           SETC symbol &INSTALL (in IGGBLS) to UNE
0          Referenced by comments of: 498/2 
00498/009A *IG                       LOAD            SA  G          GRAF:IG.LOAD.S                                                  
            5.0T1  1292  IG.LOAD.SA.009                     1 LINE    134   11 PAGE UM   BURLING             JULY 03, 1981  14:11:30
            5.0T3   286                       
0          Source for Object Loading facility (IGLOAD#).
            
           Object is in SEG2:IG (498/02).
0          Referenced by comments of: 498/2 
00498/010C *IG                       LCS             SA  G          GRAF:IG.LCS.S                                                   
            5.0T1  1293  IG.LCS.SA.010                      1 LINE     68    2 PAGE UM   BURLING             JULY 03, 1981  14:11:32
            5.0T3   287                       
0          Source for the module that defines the IG low core symbol table when IG
           is installed in shared VM.
0          Referenced by comments of: 498/1, 498/2 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/011A *IG                       PD              SA  G          GRAF:IG.PD.S                                                    
            5.0T1  1294  IG.PD.SA.011                       1 LINE    132   19 PAGE UM   BURLING             JULY 03, 1981  14:11:32
            5.0T3   288                       
0          Source for Picture Description csect (PD).
            
           Object is in SEG2:IG (498/02).
0          Referenced by comments of: 498/2 
00498/012A *IG                       PWRIT           SA  G          GRAF:IG.PWRIT.S                                                 
            5.0T1  1295  IG.PWRIT.SA.012                    1 LINE    113   10 PAGE UM   BURLING             JULY 03, 1981  14:11:45
            5.0T3   289                       
0          Source for the *PLOTSYS (615/9) interface which allows CalComp plotting programs to run with IG instead.
            
           Object is in *IG (498/01).
0          Referenced by comments of: 498/1 
00498/013C *IG                       SYSTEM SERVICE  SA  G          GRAF:IG.SS.S                                                    
            5.0T1  1296  IG.SYSTEM_SERVICE.SA.013           1 LINE    132   12 PAGE UM   BURLING             JULY 03, 1981  14:11:46
            5.0T3   290                       
0          Source code for the System Services csect (#SS).  Contains system-dependent
           code (GETSPACE, READ, WRITE, etc).
            
           This module has conditional assembly sections for UNE and Wayne State.
           The UNE code is untested by UM.  To use the conditional assembly, change
           the SETC symbol &INSTALL in IGGBLS (located in COPY:IG.COPY.M (498/16)) to
           either UNE or WSU.
            
           Object is in SEG2:IG (498/02).
0          Referenced by comments of: 498/1, 498/2 
00498/014C *IG                       DSECTS          SA  G          GRAF:IG.XFRM.S                                                  
            5.0T1  1297  IG.DSECTS.SA.014                   1 LINE     93    1 PAGE UM   BURLING             JULY 03, 1981  14:11:48
            5.0T3   291                       
0          This is a series of dsects defining many of the IG data structures.  Useful
           when debugging IG.
0          Referenced by comments of: 498/1 
00498/015C *IG                       DSECTS          OC  G          GRAF:IG.XFRM                                                    
            5.0T1  1298  IG.DSECTS.OC.015                   1 LINE     80    1 PAGE UM   BURLING             JULY 03, 1981  14:11:49
            5.0T3   292                       
0          A file that can be INCLUDED in SDS.  Contains definitions for the following
           dsects:
            
               XFRM   -- The transformation block
               BRANCH -- The branch block
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0              LEAF   -- The leaf block
               NODE   -- The node block
               BUD    -- The bud block
0          Referenced by comments of: 498/1 
00498/016A *IG                       IG MACROS       SM  G          COPY:IG.COPY.M                                                  
            5.0T1  1299  IG.IG_MACROS.SM.016                1 LINE     73   29 PAGE UM   BURLING             JULY 03, 1981  14:11:50
            5.0T3   293                       
0          Library of copy sections and macros used by the various components of IG.
0          Referenced by comments of: 498/1, 498/13 
00498/017A *IG                       TEST            SF  G          GRAF:IG.TEST.S                                                  
            5.0T1  1300  IG.TEST.SF.017                     1 LINE     85   22 PAGE UM   BURLING             JULY 03, 1981  14:11:55
            5.0T3   294                       
0          FORTRAN source for the program to test out new versions of IG.
0          Referenced by comments of: 498/1 
00498/018A *IG                       BRANCH MONITOR  SA  G          GRAF:BMON.S                                                     
            5.0T1  1301  IG.BRANCH_MONITOR.SA.018           1 LINE     80    5 PAGE UM   BURLING             JULY 03, 1981  14:12:06
            5.0T3   295                       
0          Source for a program which monitors all the branches in a specified routine.
0          Referenced by comments of: 498/1 
00498/019A *IG                       STATS SAVE      C              GRAF:IG.SHUFFLE                                                 
            5.0T1  1302  IG.STATS_SAVE.C.019                1 LINE     56    1 PAGE UM   BURLING             JULY 03, 1981  14:12:08
            5.0T3   296                       
0          Commands to save the contents of the statistics file (498/126) maintained by IG.
           The tape mount command in this file must be changed for each installation 
           before it is of use.
0          Referenced by comments of: 498/1 
00498/020  *IG                       STATS CALC      SF  G          S0563 D4T1 VLO FSNAME=IG.STATS_CALC.SF.019                  1261
            5.0T1  1303  IG.STATS_CALC.SF.020               1 LINE     67    2 PAGE UM   BURLING             JUNE 16, 1976  19:12:11
            5.0T3   297                       
0          FORTRAN source for a program which calculates and groups information on 
           IG usage from the statistics gathered by IG.
00498/021  *IG                       STATS SCAN      SA  G          S0563 D4T1 VLO FSNAME=IG.STATS_SCAN.SA.020                  1262
            5.0T1  1304  IG.STATS_SCAN.SA.021               1 LINE     87    3 PAGE UM   BURLING             JUNE 16, 1976  19:12:16
            5.0T3   298                       
0          Assembler source for a program to scan selectively for certain records in 
           the statistics file maintained by IG.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 498/1 
00498/022A *IG                       IGRI.339        S              S0596 BLAH 'IG ROUTINES' FSNAME=W114:IGRI.339.S                 
            5.0T1  1305  IG.IGRI.339.S.022                  1 LINE     79   13 PAGE UM   BURLING             DEC. 21, 1974  16:04.29
            5.0T3   299                       
0          Source for an operating system for the DEC 339 / PDP-9 which allows the 
           running of IG.
0          Referenced by comments of: 498/1 
00498/023A *IG                       FONTS           OE  G          ETC:IG.FONTS                                                    
            5.0T1  1306  IG.FONTS.OE.023                    1 LINE   8604   26 PAGE UM   BURLING             JULY 03, 1981  14:16:51
            5.0T3   300  ETC:IG.FONTS         
0          This file contains the object for the IG character fonts. Each font starts
           on a multiple of line 100. 
0          Referenced by comments of: 498/1 
00498/024A *IG                       ASCII7          SA  G          S0933 IGDIST FSNAME=IG.ASCII7                                   
            5.0T1  1307  IG.ASCII7.SA.024                   1 LINE     71    4 PAGE UM   BURLING             MAR. 02, 1981  10:54:05
            5.0T3   301                       
0          Source for the ASCII7 font used by IG.
0          Referenced by comments of: 498/1 
00498/025C *IG                       CYRILLIC2       SA  G          S0933 IGDIST FSNAME=IG.CYRILLIC2                                
            5.0T1  1308  IG.CYRILLIC2.SA.025                1 LINE     72    6 PAGE UM   BURLING             MAR. 02, 1981  10:54:14
            5.0T3   302                       
0          Source for the Cyrillic font used by IG.
00498/026C *IG                       GOTHIC.ENGLIS   SA  G          S0933 IGDIST FSNAME=IG.GOTHIC.EN                                
            5.0T1  1309  IG.GOTHIC.ENGLIS.SA.026            1 LINE     72    8 PAGE UM   BURLING             MAR. 02, 1981  10:54:25
            5.0T3   303                       
0          Source for the Gothic English font used by IG.
00498/027C *IG                       GOTHIC.FRAKTU   SA  G          S0933 IGDIST FSNAME=IG.GOTHIC.FR                                
            5.0T1  1310  IG.GOTHIC.FRAKTU.SA.027            1 LINE     72    9 PAGE UM   BURLING             MAR. 02, 1981  10:54:35
            5.0T3   304                       
0          Source for the Gothic Fraktur font used by IG.
00498/028C *IG                       GOTHIC.ITALIA   SA  G          S0933 IGDIST FSNAME=IG.GOTHIC.IT                                
            5.0T1  1311  IG.GOTHIC.ITALIA.SA.028            1 LINE     72    8 PAGE UM   BURLING             MAR. 02, 1981  10:54:43
            5.0T3   305                       
0          Source for the Gothic Italian font used by IG.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/029A *IG                       GREEK           SA  G          S0933 IGDIST FSNAME=IG.GREEK                                    
            5.0T1  1312  IG.GREEK.SA.029                    1 LINE     71    4 PAGE UM   BURLING             MAR. 02, 1981  10:54:50
            5.0T3   306                       
0          Source for the (obsolete) Greek font used by IG.  This font is obsolete
           because it uses a "funny" (i.e. different than *PLOTSYS) character
           mapping.  One of the other Greek fonts should be used instead.
00498/030C *IG                       GREEK.CARTOGR   SA  G          S0933 IGDIST FSNAME=IG.GREEK.CAR                                
            5.0T1  1313  IG.GREEK.CARTOGR.SA.030            1 LINE     70    3 PAGE UM   BURLING             MAR. 02, 1981  10:54:57
            5.0T3   307                       
0          Source for the Greek Cartographic font used by IG.
00498/031C *IG                       GREEK.1         SA  G          S0933 IGDIST FSNAME=IG.GREEK1                                   
            5.0T1  1314  IG.GREEK.1.SA.031                  1 LINE     72    5 PAGE UM   BURLING             MAR. 02, 1981  10:55:02
            5.0T3   308                       
0          Source for the Greek.1 font used by IG.
00498/032C *IG                       GREEK.2         SA  G          S0933 IGDIST FSNAME=IG.GREEK2                                   
            5.0T1  1315  IG.GREEK.2.SA.032                  1 LINE     72    6 PAGE UM   BURLING             MAR. 02, 1981  10:55:08
            5.0T3   309                       
0          Source for the Greek.2 font used by IG.
00498/033C *IG                       GREEK.2A        SA  G          S0933 IGDIST FSNAME=IG.GREEK2A                                  
            5.0T1  1316  IG.GREEK.2A.SA.033                 1 LINE     72    6 PAGE UM   BURLING             MAR. 02, 1981  10:55:13
            5.0T3   310                       
0          Source for the Greek.2a font used by IG.
00498/034C *IG                       ITALIC.2        SA  G          S0933 IGDIST FSNAME=IG.ITALIC2                                  
            5.0T1  1317  IG.ITALIC.2.SA.034                 1 LINE     72    6 PAGE UM   BURLING             MAR. 02, 1981  10:55:20
            5.0T3   311                       
0          Source for the Italic.2 font used by IG.
00498/035C *IG                       ITALIC.2A       SA  G          S0933 IGDIST FSNAME=IG.ITALIC2A                                 
            5.0T1  1318  IG.ITALIC.2A.SA.035                1 LINE     72    5 PAGE UM   BURLING             MAR. 02, 1981  10:55:25
            5.0T3   312                       
0          Source for the Italic.2a font used by IG.
00498/036C *IG                       ITALIC.3        SA  G          S0933 IGDIST FSNAME=IG.ITALIC3                                  
            5.0T1  1319  IG.ITALIC.3.SA.036                 1 LINE     72    8 PAGE UM   BURLING             MAR. 02, 1981  10:55:30
            5.0T3   313                       
0          Source for the Italic.3 font used by IG.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/037C *IG                       ROMAN.2         SA  G          S0933 IGDIST FSNAME=IG.ROMAN2                                   
            5.0T1  1320  IG.ROMAN.2.SA.037                  1 LINE     72    6 PAGE UM   BURLING             MAR. 02, 1981  10:55:37
            5.0T3   314                       
0          Source for the Roman.2 font used by IG.
00498/038C *IG                       ROMAN.2A        SA  G          S0933 IGDIST FSNAME=IG.ROMAN2A                                  
            5.0T1  1321  IG.ROMAN.2A.SA.038                 1 LINE     72    6 PAGE UM   BURLING             MAR. 02, 1981  10:55:42
            5.0T3   315                       
0          Source for the Roman.2a font used by IG.
00498/039C *IG                       ROMAN.3         SA  G          S0933 IGDIST FSNAME=IG.ROMAN3                                   
            5.0T1  1322  IG.ROMAN.3.SA.039                  1 LINE     72    8 PAGE UM   BURLING             MAR. 02, 1981  10:55:48
            5.0T3   316                       
0          Source for the Roman.3 font used by IG.
00498/040C *IG                       SANSERIF.CART   SA  G          S0933 IGDIST FSNAME=IG.SANSERIFC                                
            5.0T1  1323  IG.SANSERIF.CART.SA.040            1 LINE     70    3 PAGE UM   BURLING             MAR. 02, 1981  10:55:54
            5.0T3   317                       
0          Source for the Sanserif.cart font used by IG.
00498/041C *IG                       SANSERIF.1      SA  G          S0933 IGDIST FSNAME=IG.SANSERIF1                                
            5.0T1  1324  IG.SANSERIF.1.SA.041               1 LINE     72    5 PAGE UM   BURLING             MAR. 02, 1981  10:55:59
            5.0T3   318                       
0          Source for the Sanserif.1 font used by IG.
00498/042C *IG                       SANSERIF.2      SA  G          S0933 IGDIST FSNAME=IG.SANSERIF2                                
            5.0T1  1325  IG.SANSERIF.2.SA.042               1 LINE     72    6 PAGE UM   BURLING             MAR. 02, 1981  10:56:03
            5.0T3   319                       
0          Source for the Sanserif.2 font used by IG.
00498/043C *IG                       SCRIPT.1        SA  G          S0933 IGDIST FSNAME=IG.SCRIPT1                                  
            5.0T1  1326  IG.SCRIPT.1.SA.043                 1 LINE     72    5 PAGE UM   BURLING             MAR. 02, 1981  10:56:10
            5.0T3   320                       
0          Source for the Script.1 font used by IG.
00498/044C *IG                       SCRIPT.2        SA  G          S0933 IGDIST FSNAME=IG.SCRIPT2                                  
            5.0T1  1327  IG.SCRIPT.2.SA.044                 1 LINE     72    7 PAGE UM   BURLING             MAR. 02, 1981  10:56:15
            5.0T3   321                       
0          Source for the Script.2 font used by IG.
00498/045C *IG                       STANDARD        SA  G          S0933 IGDIST FSNAME=IG.STANDARD                                 
            5.0T1  1328  IG.STANDARD.SA.045                 1 LINE     71    3 PAGE UM   BURLING             MAR. 02, 1981  10:56:20
            5.0T3   322                       
0          Source for the Standard font used by IG.  This was formerly a part of
           the DI assembly (498/04).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 498/1 
00498/046A *IG                       OLD DDR ADAPT   SA  G          GRAF:IG.DDRXF.S                                                 
            5.0T1  1329  IG.OLD_DDR_ADAPT.SA.046            1 LINE    130   13 PAGE UM   BURLING             JULY 03, 1981  14:21:04
            5.0T3   323                       
0          This is an adaptor routine which provides the new coding convention DDR
           interface to *IG and at the same time provides the old DI interface to old-
           style device-dependent routines.  All that is needed to provide a new-style
           DDR from an old one is to place the object module for the old-style DDR after
           the object module for this subcomponent in a file.  This must be done for
           all existing DDRs to use the new version of *IG.  The new DDR external symbol
           is #IGDDR.
0          Referenced by comments of: 498/1 
00498/047C *IG                       OLD DDR ADAPT   OC  G          *IG.DDRXF                                                       
            5.0T1  1330  IG.OLD_DDR_ADAPT.OC.047            1 LINE   2740    4 PAGE UM   BURLING             JULY 03, 1981  14:21:15
            5.0T3   324  *IG.DDRXF            
0          Object for the new IG to old-style DDR adaptor routine.  This must be
           inserted in the front of each old-style DDR file.
0          Referenced by comments of: 498/1, 498/52, 498/56, 498/62, 498/64, 498/66, 498/68, 498/70, 498/72, 498/74, 498/76,
                 498/78, 498/80, 498/86, 498/90, 498/92, 498/94, 498/100, 498/104, 498/110, 498/113, 498/115 
00498/048C *IG                       SKELETON DDR    SA             GRAF:SKELETON.DDR                                               
            5.0T1  1331  IG.SKELETON_DDR.SA.048             1 LINE    132    9 PAGE UM   BURLING             JULY 03, 1981  14:21:16
            5.0T3   325                       
0          Source code for a skeleton DDR.  This may be filled in to produce new-style
           DDRs.
0          Referenced by comments of: 498/1 
00498/049  *IG                       *IG.AGT         SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.AGT.SA.029                     1271
            5.0T1  1332  IG.*IG.AGT.SA.049                  1 LINE     89    8 PAGE UM   BURLING             FEB. 26, 1977  20:24:08
            5.0T3   326                       
0          Source for the DDR for the Adage 10 refresh display.
0          Referenced by comments of: 498/1 
00498/050  *IG                       *IG.AGT         OC  G          S0563 D4T1 VLO FSNAME=IG.*IG.AGT.OC.030                     1272
            5.0T1  1333  IG.*IG.AGT.OC.050                  1 LINE     80    3 PAGE UM   BURLING             MAY  11, 1977  18:47:58
            5.0T3   327                       
0          Object for the Adage Graphics Terminal DDR.
00498/051  *IG                       *IG.AJ830       SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.AJ830.SA.031                   1273
            5.0T1  1334  IG.*IG.AJ830.SA.051                1 LINE     93   10 PAGE UM   BURLING             JULY 09, 1977  14:04:41
            5.0T3   328                       
0          Source for the DDR for the Anderson-Jacobson 830 terminal with diablo printer
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          and plot option.
00498/052A *IG                       *IG.AJ830       OC  G          *IG.AJ830                                                       
            5.0T1  1335  IG.*IG.AJ830.OC.052                1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:21:24
            5.0T3   329  *IG.AJ830            
0          Object for the Anderson-Jacobson 830 DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/053A *IG                       *IG.CCMP        SA  G          GRAF:IG.CCMP.S                                                  
            5.0T1  1336  IG.*IG.CCMP.SA.053                 1 LINE    129   13 PAGE UM   BURLING             JULY 03, 1981  14:21:25
            5.0T3   330                       
0          Source for the DDR for the CalComp plotter via *PLOTSYS.
            
           *************************************************************************
           D5.0 changes:
            
           *** This is a new-style DDR. ***
           *************************************************************************
00498/054A *IG                       *IG.CCMP        OC  G          *IG.CCMP                                                        
            5.0T1  1337  IG.*IG.CCMP.OC.054                 1 SEQ    2784    4 PAGE UM   BURLING             JULY 03, 1981  14:21:28
            5.0T3   331  *IG.CCMP             
0          Object for the CalComp plotter DDR.  Has a $CONTINUE WITH *PLOTSYS (615/9) card.
00498/055A *IG                       *IG.CK400       SA  G          S0933 IGDIST FSNAME=IG.CK400.S                                  
            5.0T1  1338  IG.*IG.CK400.SA.055                1 LINE     90   11 PAGE UM   BURLING             AUG. 06, 1979  12:36:50
            5.0T3   332                       
0          Source for the DDR for the Computek 400 storage tube display.
00498/056A *IG                       *IG.CK400       OC  G          *IG.CK400                                                       
            5.0T1  1339  IG.*IG.CK400.OC.056                1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:21:48
            5.0T3   333  *IG.CK400            
0          Object for the Computek 400 DDR.
            
           **************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           **************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/057C *IG                       *IG.CRT         SA  G          GRAF:IG.CRT.S                                                   
            5.0T1  1340  IG.*IG.CRT.SA.057                  1 LINE    128   17 PAGE UM   BURLING             JULY 03, 1981  14:21:49
            5.0T3   334                       
0          Source for the generic CRT DDR. Produces 21 line by 70 column printer-
           plots.
            
           *************************************************************************
           D5.0 version:
            
           *** This is a new-style DDR. ***
           *************************************************************************
00498/058C *IG                       *IG.CRT         OC  G          *IG.CRT                                                         
            5.0T1  1341  IG.*IG.CRT.OC.058                  1 LINE   4600    6 PAGE UM   BURLING             JULY 03, 1981  14:21:59
            5.0T3   335  *IG.CRT              
0          Object for the generic CRT DDR.
00498/059A *IG                       *IG.DEBUG       SA  G          GRAF:IG.DEBUG.S                                                 
            5.0T1  1342  IG.*IG.DEBUG.SA.059                1 LINE    130   15 PAGE UM   BURLING             JULY 03, 1981  14:22:00
            5.0T3   336                       
0          Source for the DDR for the debugging routines DDR.
            
           *************************************************************************
           D5.0 version:
            
           *** This is a new-style DDR. ***
            
           (This was formerly called IG.TTY.)
           *************************************************************************
00498/060A *IG                       *IG.DEBUG       OC  G          *IG.DEBUG                                                       
            5.0T1  1343  IG.*IG.DEBUG.OC.060                1 LINE   4708    5 PAGE UM   BURLING             JULY 03, 1981  14:22:02
            5.0T3   337  *IG.DEBUG            
0          Object for the Debugging DDR.
00498/061  *IG                       *IG.DTC300      SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.DTC300.SA.037                  1279
            5.0T1  1344  IG.*IG.DTC300.SA.061               1 LINE     95    9 PAGE UM   BURLING             JULY 09, 1977  14:04:56
            5.0T3   338                       
0          Source for the DDR for the Data Terminals Corporation 300 terminal with
           diablo printer and plot option.
00498/062A *IG                       *IG.DTC300      OC  G          *IG.DTC300                                                      
            5.0T1  1345  IG.*IG.DTC300.OC.062               1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:22:03
            5.0T3   339  *IG.DTC300           
0          Object for the Data Terminals Corporation 300 DDR.
            
           *************************************************************************
           D5.0 changes:
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/063  *IG                       *IG.DTC302      SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.DTC302.SA.039                  1281
            5.0T1  1346  IG.*IG.DTC302.SA.063               1 LINE     95    9 PAGE UM   BURLING             JULY 09, 1977  14:05:02
            5.0T3   340                       
0          Source for the DDR for the Data Terminals Corporation 302 terminal with
           diablo printer and plot option.
00498/064A *IG                       *IG.DTC302      OC  G          *IG.DTC302                                                      
            5.0T1  1347  IG.*IG.DTC302.OC.064               1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:22:05
            5.0T3   341  *IG.DTC302           
0          Object for the Data Terminals Corporation 302 DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/065  *IG                       *IG.GT40        SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.GT40.SA.041                    1283
            5.0T1  1348  IG.*IG.GT40.SA.065                 1 LINE     91   10 PAGE UM   BURLING             MAY  01, 1977  16:06:13
            5.0T3   342                       
0          Source for the DDR for the Digital Equipment Corporation GT40 refresh display.
00498/066A *IG                       *IG.GT40        OC  G          *IG.GT40                                                        
            5.0T1  1349  IG.*IG.GT40.OC.066                 1 LINE     80    4 PAGE UM   BURLING             JULY 03, 1981  14:22:07
            5.0T3   343  *IG.GT40             
0          Object for the Digital Equipment Corporation GT40 refresh display DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/067C *IG                       *IG.HIDP11      SA             GRAF:IG.HIDP11.S                                                
            5.0T1  1350  IG.*IG.HIDP11.SA.067               1 LINE    101   12 PAGE UM   BURLING             JULY 03, 1981  14:22:08
            5.0T3   344                       
0          Source code for the Houston Instruments DP-11 plotter DDR.
00498/068C *IG                       *IG.HIDP11      OC             *IG.HIDP11                                                      
            5.0T1  1351  IG.*IG.HIDP11.OC.068               1 LINE   3348    4 PAGE UM   BURLING             JULY 03, 1981  14:22:11
            5.0T3   345  *IG.HIDP11           
0          Object for the Houston Instruments DP-11 plotter DDR.
            
           *************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          D5.0 version:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/069C *IG                       *IG.HP2648A     SA  G          GRAF:IG.HP2648A.S                                               
            5.0T1  1352  IG.*IG.HP2648A.SA.069              1 LINE    102   11 PAGE UM   BURLING             JULY 03, 1981  14:22:12
            5.0T3   346                       
0          Source for the DDR for the Hewlitt-Packard 2648a video-graphics terminal.
            
           This code is a modified version of what was sent from UBC.
00498/070C *IG                       *IG.HP2648A     OC  G          *IG.HP2648A                                                     
            5.0T1  1353  IG.*IG.HP2648A.OC.070              1 LINE   2524    3 PAGE UM   BURLING             JULY 03, 1981  14:22:17
            5.0T3   347  *IG.HP2648A          
0          Object for the Hewlitt-Packard video-graphics terminal DDR.
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
00498/071  *IG                       *IG.HP7203      SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.HP7203.SA.043                  1285
            5.0T1  1354  IG.*IG.HP7203.SA.071               1 LINE     95    9 PAGE UM   BURLING             MAY  01, 1977  16:06:18
            5.0T3   348                       
0          Source for the DDR for the Hewlitt-Packard 7203a plotter with EIA interface.
00498/072A *IG                       *IG.HP7203      OC  G          *IG.HP7203                                                      
            5.0T1  1355  IG.*IG.HP7203.OC.072               1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:22:19
            5.0T3   349  *IG.HP7203           
0          Object for the Hewlitt-Packard 7203 plotter DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/073  *IG                       *IG.HP7221      SA  G          S1430 4.3T1 VLO FSNAME=IG.*IG.HP7221.SA.047                 296 
            5.0T1  1356  IG.*IG.HP7221.SA.073               1 LINE    102   17 PAGE UM   BURLING             AUG. 29, 1978  01:25:18
            5.0T3   350                       
0          Source for the DDR for the Hewlitt-Packard 7221a 4-pen plotter with EIA
           interface.
00498/074A *IG                       *IG.HP7221      OC  G          *IG.HP7221                                                      
            5.0T1  1357  IG.*IG.HP7221.OC.074               1 LINE     80    5 PAGE UM   BURLING             JULY 03, 1981  14:22:21
            5.0T3   351  *IG.HP7221           
0          Object for the Hewlitt-Packard 7221 plotter DDR.
            
           *************************************************************************
           D5.0 changes:
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/075A *IG                       *IG.HUGHES      SA  G          GRAF:IG.HUGHES.S                                                
            5.0T1  1358  IG.*IG.HUGHES.SA.075               1 LINE    101   19 PAGE UM   BURLING             JULY 03, 1981  14:22:21
            5.0T3   352                       
0          Source for the DDR for the Hughes graphics terminal.
00498/076A *IG                       *IG.HUGHES      OC  G          *IG.HUGHES                                                      
            5.0T1  1359  IG.*IG.HUGHES.OC.076               1 LINE   2900    4 PAGE UM   BURLING             JULY 03, 1981  14:22:23
            5.0T3   353  *IG.HUGHES           
0          Object for the Hughes Graphics terminal DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/077A *IG                       *IG.MX12000     SA  G          S0933 IGDIST FSNAME=IG.MX12000.S                                
            5.0T1  1360  IG.*IG.MX12000.SA.077              1 LINE     94   13 PAGE UM   BURLING             JAN. 04, 1979  18:39:08
            5.0T3   354                       
0          Source for the DDR for the Magnavox 12000 plasma terminal.
00498/078A *IG                       *IG.MX12000     OC  G          *IG.MX12000                                                     
            5.0T1  1361  IG.*IG.MX12000.OC.078              1 LINE     80    4 PAGE UM   BURLING             JULY 03, 1981  14:23:00
            5.0T3   355  *IG.MX12000          
0          Object for the Magnavox 12000 terminal DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/079  *IG                       *IG.PEP         SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.PEP.SA.047                     1289
            5.0T1  1362  IG.*IG.PEP.SA.079                  1 LINE     96   11 PAGE UM   BURLING             JULY 09, 1977  14:06:57
            5.0T3   356                       
0          Source for the DDR for the Princeton Electronic Products 801 lithicon display.
00498/080A *IG                       *IG.PEP         OC  G          *IG.PEP                                                         
            5.0T1  1363  IG.*IG.PEP.OC.080                  1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:23:02
            5.0T3   357  *IG.PEP              
0          Object for the Princeton Electronic Products 801 DDR.
            
           *************************************************************************
           D5.0 changes:
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/081C *IG                       *IG.PICK        SA  G          GRAF:IG.PICK.S                                                  
            5.0T1  1364  IG.*IG.PICK.SA.081                 1 LINE    129    8 PAGE UM   BURLING             JULY 03, 1981  14:23:03
            5.0T3   358                       
0          Source for the Pick Simulator DDR.
            
           *************************************************************************
           D5.0 version:
            
           *** This is a new-style DDR. ***
           *************************************************************************
00498/082C *IG                       *IG.PICK        OC  G          *IG.PICK                                                        
            5.0T1  1365  IG.*IG.PICK.OC.082                 1 LINE   1284    4 PAGE UM   BURLING             JULY 03, 1981  14:23:09
            5.0T3   359  *IG.PICK             
0          Object for the Pick Simulator DDR.
00498/083C *IG                       *IG.PRINTER     SA  G          GRAF:IG.PRINTER.S                                               
            5.0T1  1366  IG.*IG.PRINTER.SA.083              1 LINE    132   17 PAGE UM   BURLING             JULY 03, 1981  14:23:10
            5.0T3   360                       
0          Source for the generalized DDR for printer plots. (This is a complete rewrite
           of the old IG.PRNT routine.)  Copies *GDINFODSECT (594).
            
           This DDR adapts itself to the maximum output width of the device it's used on. 
            
           *************************************************************************
           D5.0 version:
            
           *** This is a new-style DDR. ***
           *************************************************************************
00498/084C *IG                       *IG.PRINTER     OC  G          *IG.PRINTER                                                     
            5.0T1  1367  IG.*IG.PRINTER.OC.084              1 LINE   4752    6 PAGE UM   BURLING             JULY 03, 1981  14:23:12
            5.0T3   361  *IG.PRINTER          
0          Object for the general printer-plot DDR.
00498/085  *IG                       *IG.QUMES5      SA  G          S1319 D4.2T1 VLO FSNAME=IG.*IG.QUMES5.SA.057                298 
            5.0T1  1368  IG.*IG.QUMES5.SA.085               1 LINE     92   10 PAGE UM   BURLING             JAN. 04, 1979  18:38:55
            5.0T3   362                       
0          Source for the DDR for the Qume Sprint5 terminal with diablo-style printer.
00498/086A *IG                       *IG.QUMES5      OC  G          *IG.QUMES5                                                      
            5.0T1  1369  IG.*IG.QUMES5.OC.086               1 LINE     80    4 PAGE UM   BURLING             JULY 03, 1981  14:23:22
            5.0T3   363  *IG.QUMES5           
0          Object for the Qumes5 DDR.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/087A *IG                       *IG.SAVE        SA  G          GRAF:IG.SAVE.S                                                  
            5.0T1  1370  IG.*IG.SAVE.SA.087                 1 LINE    129   14 PAGE UM   BURLING             JULY 03, 1981  14:23:23
            5.0T3   364                       
0          Source for the fake DDR which does saving of objects.
            
           *************************************************************************
           D5.0 changes:
            
           *** This is a new-style DDR ***
           *************************************************************************
00498/088A *IG                       *IG.SAVE        OC  G          *IG.SAVE                                                        
            5.0T1  1371  IG.*IG.SAVE.OC.088                 1 LINE   3038    5 PAGE UM   BURLING             JULY 03, 1981  14:23:25
            5.0T3   365  *IG.SAVE             
0          Object for the Object-Save fake DDR.
00498/089  *IG                       *IG.TD4000      SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.TD4000.SA.053                  1295
            5.0T1  1372  IG.*IG.TD4000.SA.089               1 LINE     92    9 PAGE UM   BURLING             JULY 09, 1977  14:07:12
            5.0T3   366                       
0          Source for the DDR for the Trend Data 4000 terminal with diablo printer and
           plot option.
00498/090A *IG                       *IG.TD4000      OC  G          *IG.TD4000                                                      
            5.0T1  1373  IG.*IG.TD4000.OC.090               1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:23:27
            5.0T3   367  *IG.TD4000           
0          Object for the Trend Data 4000 DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/091  *IG                       *IG.TX4002      SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.TX4002.SA.057                  1299
            5.0T1  1374  IG.*IG.TX4002.SA.091               1 LINE     96   10 PAGE UM   BURLING             JULY 09, 1977  14:07:23
            5.0T3   368                       
0          Source for the DDR for the Tektronix 4002 storage tube display.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/092A *IG                       *IG.TX4002      OC  G          *IG.TX4002                                                      
            5.0T1  1375  IG.*IG.TX4002.OC.092               1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:23:28
            5.0T3   369  *IG.TX4002           
0          Object for the Tektronix 4002 DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/093  *IG                       *IG.TX4006      SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.TX4006.SA.059                  1301
            5.0T1  1376  IG.*IG.TX4006.SA.093               1 LINE     95   11 PAGE UM   BURLING             JULY 09, 1977  14:07:28
            5.0T3   370                       
0          Source for the DDR for the Tektronix 4006 storage tube display.
00498/094A *IG                       *IG.TX4006      OC  G          *IG.TX4006                                                      
            5.0T1  1377  IG.*IG.TX4006.OC.094               1 LINE     80    4 PAGE UM   BURLING             JULY 03, 1981  14:23:30
            5.0T3   371  *IG.TX4006           
0          Object for the Tektronix 4006 DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/095A *IG                       *IG.TX4010      SA  G          GRAF:IG.TX4010.S                                                
            5.0T1  1378  IG.*IG.TX4010.SA.095               1 LINE    131   16 PAGE UM   BURLING             JULY 03, 1981  14:23:30
            5.0T3   372                       
0          Source for the DDR for the Tektronix 4010 storage tube display.
            
           *************************************************************************
           D5.0 changes:
            
           *** This is a new-style DDR. ***
           *************************************************************************
00498/096A *IG                       *IG.TX4010      OC  G          *IG.TX4010                                                      
            5.0T1  1379  IG.*IG.TX4010.OC.096               1 SEQ    3776    4 PAGE UM   BURLING             JULY 03, 1981  14:23:36
            5.0T3   373  *IG.TX4010           
0          Object for the Tektronix 4010 DDR.
00498/097  *IG                       *IG.TX4014      SA  G          S1143 D4.1T1 VLO FSNAME=IG.*IG.TX4014.SA.065                247 
            5.0T1  1380  IG.*IG.TX4014.SA.097               1 LINE    105   12 PAGE UM   BURLING             OCT. 11, 1977  19:01:55
            5.0T3   374                       
0          Source for the DDR for the Tektronix 4014 storage tube display.
            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          ************************************************************************
           D5.0 version:
            
           *** This is a new-style DDR. ***
           ************************************************************************
00498/098A *IG                       *IG.TX4014      OC  G          *IG.TX4014                                                      
            5.0T1  1381  IG.*IG.TX4014.OC.098               1 LINE   3902    5 PAGE UM   BURLING             JULY 03, 1981  14:23:57
            5.0T3   375  *IG.TX4014           
0          Object for the Tektronix 4014 DDR.
00498/099  *IG                       *IG.TX4025      SA  G          S1143 D4.1T1 VLO FSNAME=IG.*IG.TX4025.SA.067                249 
            5.0T1  1382  IG.*IG.TX4025.SA.099               1 LINE     95   11 PAGE UM   BURLING             APR. 08, 1978  16:57:48
            5.0T3   376                       
0          Source for the DDR for the Tektronix 4025 storage tube display.
00498/100A *IG                       *IG.TX4025      OC  G          *IG.TX4025                                                      
            5.0T1  1383  IG.*IG.TX4025.OC.100               1 LINE     80    4 PAGE UM   BURLING             JULY 03, 1981  14:23:58
            5.0T3   377  *IG.TX4025           
0          Object for the Tektronix 4025 DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/101C *IG                       *IG.TX4027      SA  G          GRAF:IG.TX4027.S                                                
            5.0T1  1384  IG.*IG.TX4027.SA.101               1 LINE    131   17 PAGE UM   BURLING             JULY 03, 1981  14:23:59
            5.0T3   378                       
0          Source for the DDR for the Tektronix 4027 raster display.
            
           *************************************************************************
           D5.0 version:
            
           *** This is a new-style DDR ***
           *************************************************************************
00498/102C *IG                       *IG.TX4027      OC  G          *IG.TX4027                                                      
            5.0T1  1385  IG.*IG.TX4027.OC.102               1 LINE   4140    5 PAGE UM   BURLING             JULY 03, 1981  14:24:02
            5.0T3   379  *IG.TX4027           
0          Object for the Tektronix 4027 DDR.
00498/103  *IG                       *IG.TX4662      SA  G          S1319 D4.2T1 VLO FSNAME=IG.*IG.TX4662.SA.075                300 
            5.0T1  1386  IG.*IG.TX4662.SA.103               1 LINE    102   12 PAGE UM   BURLING             JAN. 04, 1979  18:39:03
            5.0T3   380                       
0          Source for the DDR for the Tektronix 4662 digital plotter.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/104A *IG                       *IG.TX4662      OC  G          *IG.TX4662                                                      
            5.0T1  1387  IG.*IG.TX4662.OC.104               1 LINE     80    4 PAGE UM   BURLING             JULY 03, 1981  14:24:04
            5.0T3   381  *IG.TX4662           
0          Object for the Tektronix 4662 plotter DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/105C *IG                       *IG.TX4663      SA  O          GRAF:IG.TX4663.S                                                
            5.0T1  1388  IG.*IG.TX4663.SA.105               1 LINE    131   17 PAGE UM   BURLING             JULY 03, 1981  14:24:05
            5.0T3   382                       
0          Source for the Tektronix 4663 plotter DDR.
            
           *************************************************************************
           D5.0 version:
            
           *** This is a new-style DDR ***
           *************************************************************************
00498/106C *IG                       *IG.TX4663      OC  O          *IG.TX4663                                                      
            5.0T1  1389  IG.*IG.TX4663.OC.106               1 LINE   4372    6 PAGE UM   BURLING             JULY 03, 1981  14:24:11
            5.0T3   383  *IG.TX4663           
0          Object for the Tektronix 4663 plotter DDR.
00498/107  *IG                       *IG.VUCOM       SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.VUCOM.SA.067                   1309
            5.0T1  1390  IG.*IG.VUCOM.SA.107                1 LINE     93    6 PAGE UM   BURLING             FEB. 26, 1977  20:28:30
            5.0T3   384                       
0          Source for the DDR for the Vucom terminal.
00498/108A *IG                       *IG.VUCOM       OC  G          S0933 IGDIST FSNAME=IG.VUCOM.O                                  
            5.0T1  1391  IG.*IG.VUCOM.OC.108                1 LINE     80    3 PAGE UM   BURLING             JUNE 16, 1976  19:09:45
            5.0T3   385                       
0          Object for the Vucom terminal DDR.
            
00498/109  *IG                       *IG.XX1620      SA  G          S0563 D4T1 VLO FSNAME=IG.*IG.XX1620.SA.069                  1311
            5.0T1  1392  IG.*IG.XX1620.SA.109               1 LINE     95    9 PAGE UM   BURLING             JULY 09, 1977  21:46:28
            5.0T3   386                       
0          Source for the DDR for the Xerox 1620 terminal with diablo printer.
00498/110A *IG                       *IG.XX1620      OC  G          *IG.XX1620                                                      
            5.0T1  1393  IG.*IG.XX1620.OC.110               1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:24:23
            5.0T3   387  *IG.XX1620           
0          Object for the Xerox 1620 terminal DDR.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/111  *IG                       *IG.ZETA        SA  G          S0933 IGDIST FSNAME=IG.ZETA.S                                   
            5.0T1  1394  IG.*IG.ZETA.SA.111                 1 LINE    101   12 PAGE UM   BURLING             AUG. 06, 1979  12:38:34
            5.0T3   388                       
0          Source for the DDR for the Zeta plotter developed by NCSS.
            
           *************************************************************************
           D5.0 version:
            
           Needs some changes to run in MTS.  Object not distributed.
           *************************************************************************
00498/112A *IG                       *IG.3270        SA  G          GRAF:IG.3278.S                                                  
            5.0T1  1395  IG.*IG.3270.SA.112                 1 LINE     93    9 PAGE UM   BURLING             JULY 03, 1981  14:25:18
            5.0T3   389                       
0          Source for the DDR for the IBM 3278 terminals.
            
           This is a slightly modified version of the DDR received from UBC.
           Changes were to fix a bug in graphic input.
00498/113A *IG                       *IG.3270        OC  G          *IG.3270                                                        
            5.0T1  1396  IG.*IG.3270.OC.113                 1 LINE   2859    4 PAGE UM   BURLING             JULY 03, 1981  14:25:20
            5.0T3   390  *IG.3270             
0          Object for the IBM 3278 terminal DDR.
            
           *************************************************************************
           D5.0 changes:
            
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
00498/114  *IG                       *IG.339         SA  G          S1143 D4.1T1 VLO FSNAME=IG.*IG.339.SA.080                   256 
            5.0T1  1397  IG.*IG.339.SA.114                  1 LINE     96    6 PAGE UM   BURLING             APR. 08, 1978  16:58:02
            5.0T3   391                       
0          Source for the DDR for the Digital Equipment Corporation 339 refresh display.
00498/115A *IG                       *IG.339         OC  G          *IG.339                                                         
            5.0T1  1398  IG.*IG.339.OC.115                  1 LINE     80    3 PAGE UM   BURLING             JULY 03, 1981  14:25:22
            5.0T3   392  *IG.339              
0          Object for the Digital Equipment Corporation 339 DDR.
            
           *************************************************************************
           D5.0 changes:
1                                                                                               MON AUG 05/96   18:37:45   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           
           Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record.
           *************************************************************************
0          Referenced by comments of: 498/1 
00498/116A *IG                       INTERACTIVE IG  SQ  G          GRAF:IAIG.S                                                     
            5.0T1  1399  IG.INTERACTIVE_IG.SQ.116           1 LINE    128   14 PAGE UM   BURLING             JULY 03, 1981  14:25:23
            5.0T3   393                       
0          Source for an interactive version of IG requiring no programming on part of 
           user.  Written in PLUS (1042), using the UBC parser (1076).  May be used as
           a graphics monitor by calling the entry IAIG.
0          Referenced by comments of: 498/1, 498/120, 498/121 
00498/117A *IG                       INTERACTIVE IG  SA  G          GRAF:IAIG.ASM.S                                                 
            5.0T1  1400  IG.INTERACTIVE_IG.SA.117           1 LINE     91    3 PAGE UM   BURLING             JULY 03, 1981  14:25:27
            5.0T3   394                       
0          Source for the assembler interface to Interactive IG.  This is a slight
           modification of what is normally PLUSMAIN in (1042/50).
00498/118A *IG                       INTERACTIVE IG  SQ  G          GRAF:IG.PLUSLIB                                                 
            5.0T1  1401  IG.INTERACTIVE_IG.SQ.118           1 LINE     67   11 PAGE UM   BURLING             JULY 03, 1981  14:25:29
            5.0T3   395                       
0          Library containing PLUS declarations and dummy declarations for the IG
           routines. 
00498/119C *IG                       INTERACTIVE IG  D   G          GRAF:IAIG.GR                                                    
            5.0T1  1402  IG.INTERACTIVE_IG.D.119            1 LINE    108    5 PAGE UM   BURLING             JULY 03, 1981  14:25:33
            5.0T3   396                       
0          This the PLUS grammar for Interactive IG.
00498/120C *IG                       IAIG MISC FNS   SQ  G          GRAF:PLUSFNS.S                                                  
            5.0T1  1403  IG.IAIG_MISC_FNS.SQ.120            1 LINE    107    3 PAGE UM   BURLING             JULY 03, 1981  14:25:35
            5.0T3   397                       
0          Source for miscellaneous functions used by IAIG.S (498/116).  Mostly have
           to do with converting real numbers to and from strings.
0          Referenced by comments of: 498/123 
00498/121C *IG                       IAIG MISC FNS   SQ  G          GRAF:PLUSFNS.SQL                                                
            5.0T1  1404  IG.IAIG_MISC_FNS.SQ.121            1 LINE     61    2 PAGE UM   BURLING             JULY 03, 1981  14:25:36
            5.0T3   398                       
0          Library of PLUS declarations for the miscellaneous functions used by IAIG.S (498/116).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/122A *IG                       INTERACTIVE IG  M   G          GRAF:IAIG.HELP                                                  
            5.0T1  1405  IG.INTERACTIVE_IG.M.122            1 LINE     79    5 PAGE UM   BURLING             JULY 03, 1981  14:25:36
            5.0T3   399                       
0          This is the help file for Interactive IG.
            
           *************************************************************************
           D5.0 changes:
            
           This file is grossly incomplete.
           *************************************************************************
00498/123A *IG                       INTERACTIVE IG  OC  G          GRAF:IAIG.O                                                     
            5.0T1  1406  IG.INTERACTIVE_IG.OC.123           1 LINE   5372   27 PAGE UM   BURLING             JULY 03, 1981  14:25:38
            5.0T3   400                       
0          Object code for Interactive IG.  Contains all necessary parts of 
           NEW:PLUS.OBJLIB (1042/50), PLUS:PARSER.OL (1076/6), and GRAF:PLUSFNS.S (498/120).
            
           Contains a "$CONTINUE WITH GRAF:NEWIG" card, which should by changed to 
           "$CONTINUE WITH *IG" at other installations.
0          Referenced by comments of: 498/1 
00498/124  *IG                       IMPLEMENTATION  WF             S1319 D4.2T1 VLO FSNAME=IG.IMPLEMENTATION.WF.018            297 
            5.0T1  1407  IG.IMPLEMENTATION.WF.124           1 LINE    145   25 PAGE UM   BURLING             AUG. 29, 1978  01:29:16
            5.0T3   401                       
0          The Integrated Graphics internal guts and implementation guide.
            
           *************************************************************************
           D5.0 version:
            
           Currently obsolete.
           *************************************************************************
0          Referenced by comments of: 498/1 
00498/125C *IG                       EGP WRITEUP     WX             GRAF:IG.EGP.WX                                                  
            5.0T1  1408  IG.EGP_WRITEUP.WX.125              1 LINE     78    5 PAGE UM   BURLING             JULY 03, 1981  14:25:44
            5.0T3   402                       
0          A writeup for External Graphics Procedures.
            
           **************************************************************************
           D5.0 version:
            
           Note:  This is a first cut.  Comments and suggestions would be welcome.
           **************************************************************************
0          Referenced by comments of: 498/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00498/126A *IG                       ETC:IG.STAT     D            # ETC:IG.STAT                                                     
                                                                                    UM   BURLING                                    
                         ETC:IG.STAT@E        
0          File for accumulating usage statistics.
0          Referenced by comments of: 498/1, 498/19 
00500/001   BILLING                  BLSIGCK         SG  G          S1319 D4.2T1 VLO FSNAME=BILLING.BLSIGCK.SG.001(1)            302
            5.0T1  1409  BILLING.BLSIGCK.SG.001             1 LINE     94    3 PAGE UM   ENGLE               JAN. 09, 1979  13:10:41
            5.0T3   403                       
0          PROGRAM TO LIST ALL SIGNONS WHICH WERE MADE DURING THE BILLING PERIOD AND
           ARE STILL SIGNED ON OR WHICH STILL HAVE A STATISTICS RECORD IN THE 
           STATISTICS FILE.  IF SIGONSCN (500/50) DETECTS AN INCONSISTENCY, THIS
           PROGRAM ATTEMPTS TO CORRECT THE SITUATION BY REASSEMBLING THE SUBROUTINE
           ON THE ASSUMPTION THAT THE MTS DSECT HAS BEEN CHANGED.  PKEY=BILL:BLSIGCK.
           RUN WITH PROT=OFF.
0          Referenced by comments of: 500/50 
00500/002   BILLING                  BLSIGCK         OC  G          S1319 D4.2T1 VLO FSNAME=BILLING.BLSIGCK.OC.002(1)            303
            5.0T1  1410  BILLING.BLSIGCK.OC.002             1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:10:44
            5.0T3   404                       
00500/003A  BILLING                  BILLRFT         SP  G  BLRF    S0027 DISTRB FSNAME=BILLRFT                                     
            5.0T1  1411  BILLING.BILLRFT.SP.003             1 LINE     80   21 PAGE UM   ENGLE               FEB. 04, 1981  13:46:27
            5.0T3   405                       
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/28, 500/36, 500/42 
00500/004A  BILLING                  BILLRFT         UC  G          S0027 DISTRB FSNAME=BILLRFTUPD                                  
            5.0T1  1412  BILLING.BILLRFT.UC.004             1 LINE     68    1 PAGE UM   ENGLE               FEB. 04, 1981  13:46:58
            5.0T3   406                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00500/005A  BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=BLRF                                        
            5.0T1  1413  BILLING.BILLRFT.OC.005             1 LINE     80   21 PAGE UM   ENGLE               FEB. 04, 1981  13:47:05
            5.0T3   407                       
0          REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';).
00500/006A  BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=NETBLRF                                     
            5.0T1  1414  BILLING.BILLRFT.OC.006             1 LINE     80   18 PAGE UM   ENGLE               FEB. 04, 1981  13:47:39
            5.0T3   408                       
0          REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00500/007A  BILLING                  BILLING         SP  G  BILL    S0027 DISTRB FSNAME=BILLING                                     
            5.0T1  1415  BILLING.BILLING.SP.007             1 LINE     80   32 PAGE UM   ENGLE               FEB. 04, 1981  13:50:47
            5.0T3   409                       
0          PROGRAM TO DO MAIN PART OF BILLING AFTER SORT.
0          Referenced by comments of: 500/28, 500/30, 500/44 
00500/008A  BILLING                  BILLING         UC  G          S0027 DISTRB FSNAME=BILLINGUPD                                  
            5.0T1  1416  BILLING.BILLING.UC.008             1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1981  13:51:01
            5.0T3   410                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00500/009A  BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=BILL                                        
            5.0T1  1417  BILLING.BILLING.OC.009             1 LINE     80   27 PAGE UM   ENGLE               FEB. 04, 1981  13:51:05
            5.0T3   411                       
0          REGULAR BILLING (COMPILED WITH %NET='';).
00500/010   BILLING                  BILLING         OC  G          S1430 4.3T1 VLO FSNAME=BILLING.BILLING.OC.010(1)             305
            5.0T1  1418  BILLING.BILLING.OC.010             1 LINE     80   16 PAGE UM   ENGLE               FEB. 20, 1980  11:24:19
            5.0T3   412                       
0          NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/011   BILLING                  BILPRNT         SP  G          S1319 D4.2T1 VLO FSNAME=BILLING.BILPRNT.SP.009(1)            307
            5.0T1  1419  BILLING.BILPRNT.SP.011             1 LINE     80   13 PAGE UM   ENGLE               JAN. 10, 1979  14:41:29
            5.0T3   413                       
0          PROGRAM TO PRINT BILLING REPORTS.
0          Referenced by comments of: 500/29, 500/46 
00500/012   BILLING                  BILPRNT         OC  G          S1319 D4.2T1 VLO FSNAME=BILLING.BILPRNT.OC.010(1)            308
            5.0T1  1420  BILLING.BILPRNT.OC.012             1 LINE     80   15 PAGE UM   ENGLE               JAN. 10, 1979  14:42:54
            5.0T3   414                       
00500/013A  BILLING                  BILLUTIL        SG  G          S0027 DISTRB FSNAME=BILLUTIL                                    
            5.0T1  1421  BILLING.BILLUTIL.SG.013            1 LINE    131    2 PAGE UM   ENGLE               AUG. 13, 1980  13:26:02
            5.0T3   415                       
0          PROGRAM TO EXTRACT MONTHLY INFORMATION FROM THE FILE DIVISION (500/29) AND
           ENTER IT INTO THE UTILIZATION DATA BANK (500/31).
0          Referenced by comments of: 500/54 
00500/014A  BILLING                  BILLUTIL        UC  G          S0027 DISTRB FSNAME=BILLUTILUPD                                 
            5.0T1  1422  BILLING.BILLUTIL.UC.014            1 LINE    131    1 PAGE UM   ENGLE               AUG. 13, 1980  13:26:07
            5.0T3   416                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
0          Referenced by comments of: 500/31 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00500/015A  BILLING                  BILLUTIL        OC  G          S0027 DISTRB FSNAME=BLUT                                        
            5.0T1  1423  BILLING.BILLUTIL.OC.015            1 LINE     80    4 PAGE UM   ENGLE               AUG. 13, 1980  13:26:11
            5.0T3   417                       
00500/016A  BILLING                  BLPRVUTL        SG  G          S0027 DISTRB FSNAME=BLPRVUTL                                    
            5.0T1  1424  BILLING.BLPRVUTL.SG.016            1 LINE     71    1 PAGE UM   ENGLE               AUG. 13, 1980  13:28:51
            5.0T3   418                       
0          PROGRAM TO PRODUCE INPUT FOR TAXIR (668) SPECIFYING THE HEADING, MONTH, AND
           YEAR FOR A REPORT FOR THE PREVIOUS MONTH.
00500/017A  BILLING                  BLPRVUTL        UC  G          S0027 DISTRB FSNAME=BLPRVUTLUPD                                 
            5.0T1  1425  BILLING.BLPRVUTL.UC.017            1 LINE     70    1 PAGE UM   ENGLE               AUG. 13, 1980  13:28:57
            5.0T3   419                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00500/018A  BILLING                  BLPRVUTL        OC  G          S0027 DISTRB FSNAME=BPRU                                        
            5.0T1  1426  BILLING.BLPRVUTL.OC.018            1 LINE     80    1 PAGE UM   ENGLE               AUG. 13, 1980  13:29:05
            5.0T3   420                       
00500/019   BILLING                  UTILSORT        SG  G          S1430 4.3T1 VLO FSNAME=BILLING.UTILSORT.SG.019(1)            310
            5.0T1  1427  BILLING.UTILSORT.SG.019            1 LINE     71    1 PAGE UM   ENGLE               FEB. 20, 1980  11:30:16
            5.0T3   421                       
0          PROGRAM TO SORT TAXIR (668) OUTPUT FROM THE UTILIZATION DATA BANK (500/31).
           SEE CMPUTLSOURCE (500/27) FOR SOURCE COMMANDS UTILIZING THIS PROGRAM.
00500/020   BILLING                  UTILSORT        UC  G        # S0027 DISTRB FSNAME=UTILSORTUPD                                 
                                                                                    UM   ENGLE                                      
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00500/021   BILLING                  UTILSORT        OC  G          S1430 4.3T1 VLO FSNAME=BILLING.UTILSORT.OC.021(1)            311
            5.0T1  1428  BILLING.UTILSORT.OC.021            1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  11:30:19
            5.0T3   422                       
00500/022   BILLING                  STATEMNT        SG  G          S1430 4.3T1 VLO FSNAME=BILLING.STATEMNT.SG.022(1)            312
            5.0T1  1429  BILLING.STATEMNT.SG.022            1 LINE    149    6 PAGE UM   ENGLE               FEB. 20, 1980  11:31:55
            5.0T3   423                       
0          PROGRAM TO PRODUCE COMPARATIVE STATEMENTS SHOWING FIGURES FOR "CURRENT"
           MONTH AND YEAR-TO-DATE FOR BOTH THE "CURRENT" YEAR AND THE PREVIOUS YEAR.
           AN INDICATION OF THE VALUES FOR THE PAR= FIELD IS GIVEN AT THE BEGINNING
           OF THE PROGRAM.  SEE CMPUTLSOURCE (500/27) FOR SOURCE COMMANDS UTILIZING
           THIS PROGRAM.  FIRST LINE OF REPORT IS "THE UNIVERSITY OF MICHIGAN COMPUTING
           CENTER."
00500/023   BILLING                  STATEMNT        UC  G        # S0027 DISTRB FSNAME=STATEMNTUPD                                 
                                                                                    UM   ENGLE                                      
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00500/024   BILLING                  STATEMNT        OC  G          S1430 4.3T1 VLO FSNAME=BILLING.STATEMNT.OC.024(1)            313
            5.0T1  1430  BILLING.STATEMNT.OC.024            1 LINE     80   10 PAGE UM   ENGLE               FEB. 20, 1980  11:32:02
            5.0T3   424                       
00500/025A  BILLING                  BILLWRITEUP     WF  G          S0027 DISTRB FSNAME=BILLWRITEUP                                 
            5.0T1  1431  BILLING.BILLWRITEUP.WF.025         1 LINE    159    9 PAGE UM   ENGLE               FEB. 13, 1981  12:09:28
            5.0T3   425                       
0          WRITEUP FOR RUNNING BILLING.
0          Referenced by comments of: 632/2 
00500/026A  BILLING                  BILLSOURCE      C              S0027 DISTRB FSNAME=BILLSOURCE                                  
            5.0T1  1432  BILLING.BILLSOURCE.C.026           1 LINE    533    2 PAGE UM   ENGLE               FEB. 13, 1981  11:24:12
            5.0T3   426                       
0          COMMAND FILE FOR RUNNING BILLING.  LINE NUMBERS IN THIS FILE ARE IMPORTANT TO
           THE RESTART FILE (500/32).
0          Referenced by comments of: 500/32 
00500/027A  BILLING                  CMPUTLSOURCE    C              S0027 DISTRB FSNAME=CMPUTLSOURCE                                
            5.0T1  1433  BILLING.CMPUTLSOURCE.C.027         1 LINE    294    3 PAGE UM   ENGLE               FEB. 04, 1981  14:05:48
            5.0T3   427                       
0          COMMAND FILE FOR PRODUCING COMPARATIVE REPORTS UTILIZING THE INFORMATION IN 
           THE UTILIZATION DATA BANK (500/31).  THE THREE-CHARACTER ABBREVIATION FOR 
           THE CURRENT MONTH AND THE CURRENT AND PREVIOUS FISCAL YEARS MUST BE SET
           APPROPRIATELY, E.G., 
                          A@A /F 'JAN'FEB'
                          A@A /F '79-80'80-81'
                          A@A /F '78-79'79-80'
0          Referenced by comments of: 500/19, 500/22 
00500/028A  BILLING                  BILLTABLES      D              S0027 DISTRB FSNAME=BILLTABLES                                  
            5.0T1  1434  BILLING.BILLTABLES.D.028           1 LINE     76    4 PAGE UM   ENGLE               FEB. 13, 1981  11:39:57
            5.0T3   428                       
0          MACHINE READABLE TABLE OF INFORMATION USED BY BILLING.  READ DURING EXECUTION OF BILLRFT (500/3) AND 
           BILLING (500/7).
00500/029   BILLING                  DIVISION        D              BILL:DIVISION                                                   
            5.0T1  1435  BILLING.DIVISION.D.029             1 LINE    104   27 PAGE UM   ENGLE               JULY 03, 1981  14:26:59
            5.0T3   429                       
0          MACHINE READABLE TABLE OF UNIVERSITY UNITS ACCORDING TO UNIT CODE.  READ AND WRITTEN BY BILPRNT (500/11).
0          Referenced by comments of: 500/13, 500/54 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00500/030A  BILLING                  COVER           D              S0027 DISTRB FSNAME=COVER                                       
            5.0T1  1436  BILLING.COVER.D.030                1 LINE     66    1 PAGE UM   ENGLE               FEB. 13, 1981  11:25:12
            5.0T3   430                       
0          MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS.  READ BY BILLING (500/7).
00500/031   BILLING                  UTILIZATION     D   G          S1430 4.3T1 VLO FSNAME=BILLING.UTILIZATION..031(1)           317
            5.0T1  1437  BILLING.UTILIZATION.D.031          1 LINE    420    1 PAGE UM   ENGLE               FEB. 20, 1980  11:48:38
            5.0T3   431                       
0          SKELETON TAXIR (668) UTILIZATION DATA BANK (I.E., THE DATA BANK WITHOUT THE
           DATA).  CALENDAR YEAR RANGE IS 1979 THROUGH 1985.  FISCAL YEAR RANGE IS 79-80
           THROUGH 85-86.  THIS DATA BANK IS UPDATED USING BILLUTIL (500/14).
0          Referenced by comments of: 500/13, 500/19, 500/27 
00500/032A  BILLING                  RESTART         C              S0027 DISTRB FSNAME=RESTART                                     
            5.0T1  1438  BILLING.RESTART.C.032              1 LINE     51    1 PAGE UM   ENGLE               FEB. 13, 1981  11:26:50
            5.0T3   432                       
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/26). LINE NUMBERS IN THIS FILE ARE IMPORTANT.
0          Referenced by comments of: 500/26 
00500/033A  BILLING                  BILLLIB         OL  G          S0027 DISTRB FSNAME=BILLLIB                                     
            5.0T1  1439  BILLING.BILLLIB.OL.033             1 LINE    288    9 PAGE UM   ENGLE               FEB. 13, 1981  10:59:23
            5.0T3   433                       
0          LIBRARY FOR BILLING PROGRAMS.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00500/034   BILLING                  FLUSH           SP  G          S0564 D4T2 VLO FSNAME=BILLING.FLUSH.SP.016(1)                 16
            5.0T1  1440  BILLING.FLUSH.SP.034               1 LINE     80    1 PAGE UM   ENGLE               JUNE 07, 1973  10:28.44
            5.0T3   434                       
0          SUBROUTINE TO FORCE A LINE OF OUTPUT TO A PL/I STREAM FILE (PUT STATEMENTS) TO BE PRINTED NOW (DAMNIT),
           E.G., ON A TERMINAL FOR PROMPTING FOR INPUT.
00500/035   BILLING                  FLUSH           OC  G          S0564 D4T2 VLO FSNAME=BILLING.FLUSH.OC.017(1)                 17
            5.0T1  1441  BILLING.FLUSH.OC.035               1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1974  15:46.26
            5.0T3   435                       
00500/036   BILLING                  BLPRJFL         SA  G          S0564 D4T2 VLO FSNAME=BILLING.BLPRJFL.SA.018(1)               18
            5.0T1  1442  BILLING.BLPRJFL.SA.036             1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  13:12.59
            5.0T3   436                       
0          SUBROUTINE TO READ THE NEXT PROJECT RECORD FROM *PROJECT.  CALLED BY BILLRFT (500/3).
           COPIES ACCPROJFMT (104/2).
00500/037   BILLING                  BLPRJFL         OC  G          S0564 D4T2 VLO FSNAME=BILLING.BLPRJFL.OC.019(1)               19
            5.0T1  1443  BILLING.BLPRJFL.OC.037             1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:13.11
            5.0T3   437                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00500/038   BILLING                  PNLIST          SP  G          S1319 D4.2T1 VLO FSNAME=BILLING.PNLIST.SP.022(1)             313
            5.0T1  1444  BILLING.PNLIST.SP.038              1 LINE     80    5 PAGE UM   ENGLE               JAN. 10, 1979  16:34:56
            5.0T3   438                       
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/40 
00500/039   BILLING                  PNLIST          OC  G          S1319 D4.2T1 VLO FSNAME=BILLING.PNLIST.OC.023(1)             314
            5.0T1  1445  BILLING.PNLIST.OC.039              1 LINE     80    6 PAGE UM   ENGLE               FEB. 12, 1979  11:52:37
            5.0T3   439                       
00500/040   BILLING                  PNLSEXTR        SA  G          S0564 D4T2 VLO FSNAME=BILLING.PNLSEXTR.SA.022(1)              22
            5.0T1  1446  BILLING.PNLSEXTR.SA.040            1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  13:16.12
            5.0T3   440                       
0          SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/38).  CALLED BY PRJLIST (104/45) WHICH IS CALLED BY PNLIST.
           COPIES ACCPROJFMT (104/2).
00500/041   BILLING                  PNLSEXTR        OC  G          S0564 D4T2 VLO FSNAME=BILLING.PNLSEXTR.OC.023(1)              23
            5.0T1  1447  BILLING.PNLSEXTR.OC.041            1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:16.32
            5.0T3   441                       
00500/042   BILLING                  BLRECPR         SP  G          S0564 D4T2 VLO FSNAME=BILLING.BLRECPR.SP.024(1)               24
            5.0T1  1448  BILLING.BLRECPR.SP.042             1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  14:16.05
            5.0T3   442                       
0          PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/3).
00500/043   BILLING                  BLRECPR         OC  G          S0564 D4T2 VLO FSNAME=BILLING.BLRECPR.OC.025(1)               25
            5.0T1  1449  BILLING.BLRECPR.OC.043             1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  14:16.20
            5.0T3   443                       
00500/044   BILLING                  POSIFIL         SP  G          S0564 D4T2 VLO FSNAME=BILLING.POSIFIL.SP.026(1)               26
            5.0T1  1450  BILLING.POSIFIL.SP.044             1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  15:49.10
            5.0T3   444                       
0          SUBROUTINE CALLED BY BILLING (500/7) TO POSITION PL/1 FILES FOR RESTART.
00500/045   BILLING                  POSIFIL         OC  G          S0564 D4T2 VLO FSNAME=BILLING.POSIFIL.OC.027(1)               27
            5.0T1  1451  BILLING.POSIFIL.OC.045             1 LINE     80    2 PAGE UM   ENGLE               JAN. 08, 1974  15:49.29
            5.0T3   445                       
00500/046   BILLING                  BLDVSRTE        SA  G          S1319 D4.2T1 VLO FSNAME=BILLING.BLDVSRTE.SA.030(1)           315
            5.0T1  1452  BILLING.BLDVSRTE.SA.046            1 LINE     80    4 PAGE UM   ENGLE               JAN. 10, 1979  14:53:17
            5.0T3   446                       
0          SORT EXIT SUBROUTINES TO DO DIVISION SORT FOR BILPRNT (500/11).  COPIES GRDEF
           (104/72).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00500/047   BILLING                  BLDVSRTE        OC  G          S1319 D4.2T1 VLO FSNAME=BILLING.BLDVSRTE.OC.031(1)           316
            5.0T1  1453  BILLING.BLDVSRTE.OC.047            1 LINE     80    2 PAGE UM   ENGLE               FEB. 12, 1979  11:52:41
            5.0T3   447                       
00500/048   BILLING                  BILLMNT         SG  G          S0564 D4T2 VLO FSNAME=BILLING.BILLMNT.SG.030(1)               30
            5.0T1  1454  BILLING.BILLMNT.SG.048             1 LINE     73    1 PAGE UM   ENGLE               MAR. 01, 1977  17:10:37
            5.0T3   448                       
0          GOM PROGRAM TO MOUNT THE BILLING REPORT TAPE.
00500/049   BILLING                  BILLMNT         OC  G          S0564 D4T2 VLO FSNAME=BILLING.BILLMNT.OC.031(1)               31
            5.0T1  1455  BILLING.BILLMNT.OC.049             1 LINE     80    3 PAGE UM   ENGLE               MAR. 01, 1977  17:10:40
            5.0T3   449                       
00500/050   BILLING                  SIGONSCN        SA  G          S1319 D4.2T1 VLO FSNAME=BILLING.SIGONSCN.SA.034(1)           317
            5.0T1  1456  BILLING.SIGONSCN.SA.050            1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:13:20
            5.0T3   450                       
0          SUBROUTINE TO SCAN THE JOB TABLE FOR SIGNONS MADE DURING THE BILLING
           PERIOD.  CALLED BY BLSIGCK (500/1).  COPIES COPY:GLOBALS (1026/3)
           AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 500/1 
00500/051   BILLING                  SIGONSCN        OC  G          S1319 D4.2T1 VLO FSNAME=BILLING.SIGONSCN.OC.035(1)           318
            5.0T1  1457  BILLING.SIGONSCN.OC.051            1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  13:13:26
            5.0T3   451                       
00500/052   BILLING                  TAPMNT          SG  G          S1319 D4.2T1 VLO FSNAME=BILLING.TAPMNT.SG.036(1)             319
            5.0T1  1458  BILLING.TAPMNT.SG.052              1 LINE     72    3 PAGE UM   ENGLE               JAN. 09, 1979  13:48:40
            5.0T3   452                       
0          SUBROUTINE TO ACQUIRE SUCCESSIVE FILES FOR A SPECIFIED RANGE FROM TAPE
           DIRECTORY TAPES.
00500/053   BILLING                  TAPMNT          OC  G          S1319 D4.2T1 VLO FSNAME=BILLING.TAPMNT.OC.037(1)             320
            5.0T1  1459  BILLING.TAPMNT.OC.053              1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  13:50:32
            5.0T3   453                       
00500/054   BILLING                  DIVTOTXR        SG  G          S1430 4.3T1 VLO FSNAME=BILLING.DIVTOTXR.SG.054(1)            320
            5.0T1  1460  BILLING.DIVTOTXR.SG.054            1 LINE     99    3 PAGE UM   ENGLE               FEB. 20, 1980  11:51:13
            5.0T3   454                       
0          PROGRAM TO PRODUCE TAXIR INPUT DATA FROM THE MONTHLY INFORMATION IN THE 
           FILE DIVISION (500/29).  THIS CAN BE RUN SEPARATELY WITH OUTPUT ON SPUNCH
           OR CALLED AS A SUBROUTINE BY BILLUTIL (500/13).
00500/055   BILLING                  DIVTOTXR        UC  G        # S0027 DISTRB FSNAME=DIVTOTXRUPD                                 
                                                                                    UM   ENGLE                                      
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00500/056   BILLING                  DIVTOTXR        OC  G          S1430 4.3T1 VLO FSNAME=BILLING.DIVTOTXR.OC.056(1)            321
            5.0T1  1461  BILLING.DIVTOTXR.OC.056            1 LINE     80    4 PAGE UM   ENGLE               FEB. 20, 1980  11:51:16
            5.0T3   455                       
00501/001A  MTS VOLUME 3             MASTER          WT             S0486 MTSV3 'MTS MANUALS' POSN=NEWM16.V3                        
            5.0T1  1462  MTS_VOLUME_3.MASTER.WT.001         1 SEQ     132  366 PAGE UM   MANUAL              JULY 03, 1981  14:30:03
            5.0T3   456                       
0          TEXT/360 MASTER FOR VOLUME 3 "SYSTEM SUBROUTINE DESCRIPTIONS" OF THE UM MTS MANUALS,
           APRIL 1981.
            
           EDITOR:  RICHARD A. SALISBURY
00501/002A  MTS VOLUME 3             PRINT           PT             S0486 MTSV3 'MTS MANUALS' POSN=PRINT16.V3                       
            5.0T1  1463  MTS_VOLUME_3.PRINT.PT.002          1 SEQ     132  657 PAGE UM   MANUAL              JULY 03, 1981  14:30:19
            5.0T3   457                       
0          TEXT/360 PRINT FILE.
00502/001A  DEADFILES                SCANFILES       SA  G  SCFL    S0027 DISTRB FSNAME=SCANFILE                                    
            5.0T2     1  DEADFILES.SCANFILES.SA.001         1 LINE     80    9 PAGE UM   ENGLE               MAY  07, 1981  17:42:20
            5.0T3   458                       
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.
            
           SCANFILES COPIES ACCFORMAT (104/1) AND *GFINFODSECT (593). ASSEMBLE USING
           COPY:FILE.MACROS (482/45). RUN WITH PROT=OFF.
            
           *****************************************************************************
           D5.0 version:
            
           Corrects a possible error in not passing a large enough scratch area to
           GETCINF.
           *****************************************************************************
0          Referenced by comments of: 92/1, 104/159, 104/160, 484/1 
00502/002A  DEADFILES                SCANFILES       UC  G          S0027 DISTRB FSNAME=SCANFILEUPD                                 
            5.0T2     2  DEADFILES.SCANFILES.UC.002         1 LINE     72    1 PAGE UM   ENGLE               MAY  07, 1981  17:42:25
            5.0T3   459                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00502/003A  DEADFILES                SCANFILES       OE  G          RSTR:SCANFILES                                                  
            5.0T2     3  DEADFILES.SCANFILES.OE.003         1 LINE   3340    3 PAGE UM   ENGLE               JULY 03, 1981  14:46:39
            5.0T3   460  RSTR:SCANFILES       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00502/004A  DEADFILES                DESTROY         SA  G          RSTR:DEADFILEDES(1000)                                          
            5.0T2     4  DEADFILES.DESTROY.SA.004           1 LINE     71    1 PAGE UM   HELFFRICH           JULY 03, 1981  14:46:40
            5.0T3   461  RSTR:DEADFILEDES     
0          PROGRAM TO DESTROY A LIST OF FILES.  CALLS THE FILE ROUTINES' DESTROY 
           ENTRY POINT DIRECTLY TO CIRCUMVENT DENIAL OF DESTROY ACCESS.
            
           ASSEMBLE USING *SYSMAC.
            
           ********************************************************************************
           D5.0 CHANGES:
            
           CHANGED FOR DISK MANAGER (769).
           ********************************************************************************
00502/005A  DEADFILES                DESTROY         OC  G          RSTR:DEADFILEDES(1,998)                                         
            5.0T2     5  DEADFILES.DESTROY.OC.005           1 LINE     80    1 PAGE UM   HELFFRICH           JULY 03, 1981  14:46:41
            5.0T3   462                       
00502/006A  DEADFILES                CATDES          SA  G          RSTR:DEADUCATDES(1000)                                          
            5.0T2     6  DEADFILES.CATDES.SA.006            1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  14:46:41
            5.0T3   463  RSTR:DEADUCATDES     
0          PROGRAM TO DESTROY USER CATALOGS.  RUNNING THIS PROGRAM IS THE ONLY WAY
           THAT CATALOG SPACE IS EVER RECLAIMED AND IF THIS PROGRAM IS NOT RUN, THE
           CATALOG WILL ONLY GET BIGGER.  THIS PROGRAM ALSO DELETES FILE ENTRIES FOR
           EXPIRED USER IDS FROM THE FILESAVE MASTER FILE DIRECTORY SO THAT THE FILES
           MAY NOT BE RESTORED USING *RESTORE.
            
           ASSEMBLE USING *SYSMAC.
            
           ********************************************************************************
           D5.0 CHANGES:
            
           CHANGED FOR DISK MANAGER (769).
           ********************************************************************************
00502/007A  DEADFILES                CATDES          OC  G          RSTR:DEADUCATDES(1,998)                                         
            5.0T2     7  DEADFILES.CATDES.OC.007            1 LINE     80    3 PAGE UM   HELFFRICH           JULY 03, 1981  14:46:42
            5.0T3   464                       
0          THIS FILE SHOULD HAVE THE PROGRAM KEY RSTR:DEADUCATDES
00502/008A  DEADFILES                SAVEFILES       SA  G          RSTR:DEADSAVE(1000)                                             
            5.0T2     8  DEADFILES.SAVEFILES.SA.008         1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  14:46:43
            5.0T3   465                       
0          PROGRAM TO SAVE A SPECIFIC SET OF FILES - USUALLY THE LIST OF DEAD FILES, 
           BUT IT READS AN ARBITRARY LIST.
           ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/45).  CALLS THE FOLLOWING
           SUBROUTINES: SAVEFILE (067/2) AND TAPEOUT (067/21).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00502/009A  DEADFILES                SAVEFILES       OC  G          RSTR:DEADSAVE(1,998)                                            
            5.0T2     9  DEADFILES.SAVEFILES.OC.009         1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  14:46:44
            5.0T3   466  RSTR:DEADSAVE        
00502/010   DEADFILES                FIX             SA  G          S0564 D4T2 VLO FSNAME=DEADFILES.FIX.SA.011(1)                 44
            5.0T2    10  DEADFILES.FIX.SA.010               1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1973  17:58.20
            5.0T3   467                       
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/89, 104/159, 104/160 
00502/011   DEADFILES                FIX             OC  G          MTS:TST.FIX                                                     
            5.0T2    11  DEADFILES.FIX.OC.011               1 LINE     80    1 PAGE UM   ENGLE               JULY 03, 1981  14:46:45
            5.0T3   468  RSTR:FIX             
0          Contains a $CONTINUE WITH *ACCRESTORE (484/1) record.
0          Referenced by comments of: 104/89 
00504/001A  MTS VOLUME 1             MASTER          WT             S0488 MTSV1 'MTS MANUALS' POSN=NEWM9.V1                         
            5.0T2    12  MTS_VOLUME_1.MASTER.WT.001         1 SEQ     132  342 PAGE UM   MANUAL              JULY 03, 1981  14:48:26
            5.0T3   469                       
0          TEXT/360 MASTER FOR VOLUME 1, "MICHIGAN TERMINAL SYSTEM," OF THE UM MTS MANUALS,
           DECEMBER 1979, UPDATED NOV. 1980.
            
           EDITOR:  RICHARD A. SALISBURY
00504/002A  MTS VOLUME 1             PRINT           PT             S0488 MTSV1 'MTS MANUALS' POSN=PRINT9.V1                        
            5.0T2    13  MTS_VOLUME_1.PRINT.PT.002          1 SEQ     132  623 PAGE UM   MANUAL              JULY 03, 1981  14:48:41
            5.0T3   470                       
0          TEXT/360 PRINT FILE.
00504/003   MTS VOLUME 1             ERROR DUMP      P              S1430 4.3T1 VLO FSNAME=MTS_VOLUME_1.ERROR_DUMP.P.003(1)      336
            5.0T2    14  MTS_VOLUME_1.ERROR_DUMP.P.003      1 SEQ     133    3 PAGE UM   MANUAL              APR. 05, 1980  15:27:21
            5.0T3   471                       
0          PRINTED OUTPUT FOR EXAMPLE OF USING ERROR DUMPS AND LOAD MAPS.
00504/004   MTS VOLUME 1             DEBUG DUMP      P              S1430 4.3T1 VLO FSNAME=MTS_VOLUME_1.DEBUG_DUMP.P.004(1)      337
            5.0T2    15  MTS_VOLUME_1.DEBUG_DUMP.P.004      1 SEQ     105    3 PAGE UM   MANUAL              APR. 05, 1980  15:27:23
            5.0T3   472                       
0          PRINTED OUTPUT FOR EXAMPLE IN DEBUG MODE SECTION.
00504/005   MTS VOLUME 1             INDEX SOURCE    D              S1430 4.3T1 VLO FSNAME=MTS_VOLUME_1.INDEX_SOURCE.D.005(1)    338
            5.0T2    16  MTS_VOLUME_1.INDEX_SOURCE.D.005    1 SEQ     121    8 PAGE UM   MANUAL              APR. 05, 1980  15:27:26
            5.0T3   473                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00504/006   MTS VOLUME 1             VISUAL MODE     WT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_1.VISUAL_MODE.WT.006(1)    339
            5.0T2    17  MTS_VOLUME_1.VISUAL_MODE.WT.006    1 SEQ      88    4 PAGE UM   MANUAL              APR. 05, 1980  15:28:57
            5.0T3   474                       
0          TEXT360 SOURCE FOR VISUAL MODE DIAGRAMS IN "EDIT MODE" SECTION OF MTS 
           VOLUME 1.
00504/007C  MTS VOLUME 1             UPDATE 1        PT             W073:TNLV1.NOV80                                                
            5.0T2    18  MTS_VOLUME_1.UPDATE_1.PT.007       1 LINE     76  154 PAGE UM   MANUAL              JULY 03, 1981  14:49:08
            5.0T3   475                       
0          THIS IS "UPDATE 1 TO MTS VOLUME 1,"  NOV. 1980.
00505/001  *ALGOL                    DUMPRESTORE     C              S0504 'UBC -> UM #6' FMT=U(255)                              1  
            5.0T2    19  ALGOL.DUMPRESTORE.C.001            1 SEQ      44    2 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:11
            5.0T3   476                       
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 DISTRIBUTION 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  
            5.0T2    20  ALGOL.CINTSORC.SA.002              1 SEQ      80   30 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:16
            5.0T3   477                       
0          COMPILER/MTS INTERFACE MODULE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 387/17, 505/19 
00505/003  *ALGOL                    FSACONV         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         5  
            5.0T2    21  ALGOL.FSACONV.SA.003               1 SEQ      80    2 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:17
            5.0T3   478                       
0          COPY SECTION COPIED BY COMPILER.
0          Referenced by comments of: 505/14, 505/20 
00505/004  *ALGOL                    FSAREA          SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         6  
            5.0T2    22  ALGOL.FSAREA.SA.004                1 SEQ      80    3 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:17
            5.0T3   479                       
0          COPY SECTION COPIED BY COMPILER.
0          Referenced by comments of: 505/14, 505/20, 505/21 
00505/005  *ALGOL                    IEX50T          SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         7  
            5.0T2    23  ALGOL.IEX50T.SA.005                1 SEQ      80   95 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:22
            5.0T3   480                       
0          COPY SECTION COPIED BY COMPILER.
0          Referenced by comments of: 505/14 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00505/006  *ALGOL                    IEX60000        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         8  
            5.0T2    24  ALGOL.IEX60000.SA.006              1 SEQ      80   15 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:24
            5.0T3   481                       
0          COPY SECTION COPIED BY COMPILER.
0          Referenced by comments of: 505/15 
00505/007  *ALGOL                    OSALG00         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         14 
            5.0T2    25  ALGOL.OSALG00.SA.007               1 SEQ      80   10 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:36
            5.0T3   482                       
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). THIS SUBCOMPONENT
           COPIES WORKAREA (505/18).
0          Referenced by comments of: 505/7, 505/17, 505/19 
00505/008  *ALGOL                    OSALG01         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         15 
            5.0T2    26  ALGOL.OSALG01.SA.008               1 SEQ      80    4 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:37
            5.0T3   483                       
00505/009  *ALGOL                    OSALG10         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         16 
            5.0T2    27  ALGOL.OSALG10.SA.009               1 SEQ      80   22 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:38
            5.0T3   484                       
0          COPIES WORKAREA (505/18).
00505/010  *ALGOL                    OSALG11         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         17 
            5.0T2    28  ALGOL.OSALG11.SA.010               1 SEQ      80   88 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:42
            5.0T3   485                       
0          COPIES WORKAREA (505/18).
00505/011  *ALGOL                    OSALG20         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         18 
            5.0T2    29  ALGOL.OSALG20.SA.011               1 SEQ      80   16 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:45
            5.0T3   486                       
0          COPIES WORKAREA (505/18).
00505/012  *ALGOL                    OSALG30         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         19 
            5.0T2    30  ALGOL.OSALG30.SA.012               1 SEQ      80   62 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:48
            5.0T3   487                       
0          COPIES WORKAREA (505/18).
00505/013  *ALGOL                    OSALG40         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         20 
            5.0T2    31  ALGOL.OSALG40.SA.013               1 SEQ      80   17 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:50
            5.0T3   488                       
0          COPIES WORKAREA (505/18).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00505/014  *ALGOL                    OSALG50         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         21 
            5.0T2    32  ALGOL.OSALG50.SA.014               1 SEQ      80   96 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:55
            5.0T3   489                       
0          COPIES FSACONV (505/3), FSAREA (505/4), AND IEX50T (505/5).
00505/015  *ALGOL                    OSALG51         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         22 
            5.0T2    33  ALGOL.OSALG51.SA.015               1 SEQ      80   24 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:57
            5.0T3   490                       
0          COPIES IEX60000 (505/6) AND WORKAREA (505/18).
00505/016  *ALGOL                    OSALG51M        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         23 
            5.0T2    34  ALGOL.OSALG51M.SA.016              1 SEQ      80    9 PAGE UNE  SALISBURY           JULY 03, 1981  14:50:58
            5.0T3   491                       
0          Referenced by comments of: 505/7, 505/17, 505/19 
00505/017  *ALGOL                    OSMAC           SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         24 
            5.0T2    35  ALGOL.OSMAC.SA.017                 1 SEQ      80  103 PAGE UNE  SALISBURY           JULY 03, 1981  14:51:03
            5.0T3   492                       
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 
            5.0T2    36  ALGOL.WORKAREA.SA.018              1 SEQ      80    4 PAGE UNE  SALISBURY           JULY 03, 1981  14:51:05
            5.0T3   493                       
0          COPY SECTION COPIED BY COMPILER AND LIBRARY.
0          Referenced by comments of: 505/7, 505/9, 505/10, 505/11, 505/12, 505/13, 505/15 
00505/019  *ALGOL                    *ALGOL          OC  G          *ALGOL                                                          
            5.0T2    37  ALGOL.*ALGOL.OC.019                1 SEQ      80   31 PAGE UM   SALISBURY           JULY 03, 1981  14:51:05
            5.0T3   494  *ALGOL               
0          COMPLETE COMPILER OBJECT FILE. CONSISTS OF OBJECT OF COMPS (505/7) THROUGH
           (505/16), THE OS/360 SOURCE, PLUS THE COMPILER/MTS INTERFACE MODULE (505/2)
           AND AN " ENT           COMENTRY" LOADER CARD TO SPECIFY THE COMPILER ENTRY POINT.
00505/020  *ALGOL                    LIBSORC         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         11 
            5.0T2    38  ALGOL.LIBSORC.SA.020               1 SEQ      80  181 PAGE UNE  SALISBURY           JULY 03, 1981  14:51:38
            5.0T3   495                       
0          OS/360 LIBRARY SOURCE. ASSEMBLE USING OSMAC (505/17). COPIES FSACONV (505/3)
           AND FSAREA (505/4).
0          Referenced by comments of: 505/23 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00505/021  *ALGOL                    LIBSORC1        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         12 
            5.0T2    39  ALGOL.LIBSORC1.SA.021              1 SEQ      80   37 PAGE UNE  SALISBURY           JULY 03, 1981  14:51:42
            5.0T3   496                       
0          MORE OS/360 LIBRARY SOURCE. ASSEMBLE USING OSMAC (505/17). COPIES FSAREA
           (505/4).
0          Referenced by comments of: 505/23 
00505/022  *ALGOL                    LINTSORC        SA  G          S0564 D4T2 VLO FSNAME=ALGOL.LINTSORC.SA.022(1)                72
            5.0T2    40  ALGOL.LINTSORC.SA.022              1 LINE     80   28 PAGE UM   SALISBURY           AUG. 03, 1973  22:24.23
            5.0T3   497                       
0          LIBRARY/MTS INTERFACE MODULE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 387/17, 505/23 
00505/023  *ALGOL                    *ALGOLLIB       OL  G          *ALGOLLIB                                                       
            5.0T2    41  ALGOL.*ALGOLLIB.OL.023             1 SEQ    3963   11 PAGE UM   SALISBURY           JULY 03, 1981  14:51:58
            5.0T3   498  *ALGOLLIB            
0          COMPLETE LIBRARY OBJECT FILE. CONSISTS OF OBJECT OF COMPS (505/20) AND
           (505/21) ,THE OS/360 LIBRARY SOURCE, PLUS THE LIBRARY/MTS INTERFACE MODULE
           (505/22) AND AN " ENT            LIBENTRY" LOADER CARD TO SPECIFY THE LIBRARY
           ENTRY POINT.
00505/024  *ALGOL                    KDFSORC         S   G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         10 
            5.0T2    42  ALGOL.KDFSORC.S.024                1 SEQ      80   45 PAGE UNE  SALISBURY           JULY 03, 1981  14:52:10
            5.0T3   499                       
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                                                         
            5.0T2    43  ALGOL.*KDFLIB.OL.025               1 SEQ     348   56 PAGE UM   SALISBURY           JULY 03, 1981  14:52:11
            5.0T3   500  *KDFLIB              
0          KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB (389).  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          S0564 D4T2 VLO FSNAME=ALGOL.KDFLIBTEST.S.026(1)               76
            5.0T2    44  ALGOL.KDFLIBTEST.S.026             1 LINE     67    1 PAGE UM   SALISBURY           AUG. 03, 1973  22:25.28
            5.0T3   501                       
0          ALGOL PROGRAM TO TEST *KDFLIB.
00506/001   PL1 MAINTENANCE          CRELCS          SA  G          S1430 4.3T1 VLO FSNAME=PL1_MAINTENANCE.CRELCS.SA.001(1)      340
            5.0T2    45  PL1_MAINTENANCE.CRELCS.SA.001      1 SEQ      80    5 PAGE UM   TIFFANY             APR. 05, 1980  15:30:20
            5.0T3   502                       
0          CREATES LOW-CORE SYMBOL TABLES, ESPECIALLY PL1SYM, INTSUBS, AND INESD.
           REQUESTS ON GUSER THE NAME OF LCS TABLE, SUCH AS INESD.  THEN REQUESTS, ON
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          SCARDS, THE COMPLETE LIST OF LOW-CORE SYMBOLS.
0          Referenced by comments of: 163/14, 506/2, 506/5, 506/6 
00506/002   PL1 MAINTENANCE          CRELCSPR        SA  G          S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.CRELCSPR.SA.002(1)      78
            5.0T2    46  PL1_MAINTENANCE.CRELCSPR.SA.002    1 LINE     80    6 PAGE UM   TIFFANY             JULY 28, 1977  01:46:04
            5.0T3   503                       
0          SAME AS (506/1) EXCEPT FOR PSEUDO-REGISTERS. IHEPRD IS GENERATED.
0          Referenced by comments of: 233/44 
00506/003   PL1 MAINTENANCE          RUN             SA  G          S1143 D4.1T1 VLO FSNAME=PL1_MAINTENANCE.RUN.SA.003(1)        269
            5.0T2    47  PL1_MAINTENANCE.RUN.SA.003         1 SEQ      80   25 PAGE UM   TIFFANY             MAY  13, 1978  17:34:55
            5.0T3   504                       
0          PROGRAM USED TO SIMULATE THE LOADING PROCESS WITH THE PL/I LIBRARY IN USER VM,
           RATHER THAN SHARED VM (FOR CHECKOUT).  SIMILAR TO UBC'S *RUN PROGRAM (NOT
           DISTRIBUTED), BUT WITH EXTRA FEATURE (SPECIFIED BY "S2L=" KEYWORD) FOR LOADING
           LIBRARIES (SUCH AS FIX, SHAREDPL1LIB, ETC.) INTO SEGMENT 12 INSTEAD OF SHARED
           VM.  KEYWORDS "PGM=" (OR "PROGRAM=") HAVE ALSO BEEN ADDED.  SEE THE SOURCE FOR
           USAGE INSTRUCTIONS.  COPIES *LOADINFODSECT (001/4). ASSEMBLE WITH PAR=BATCH.
            
            
           *****************************************************************************
           D5.0 version:
            
           Should be assembled using the UBC Macros, which are no longer distributed by
           UM.  The version found on D4.0 tape D4T3, file 421 is the correct version to
           use. Contact Elizabeth Sweet, UM Computing Center, if you do not have the 
           correct version.
           *****************************************************************************
00506/004   PL1 MAINTENANCE          SYMBOLS         SA  G          S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.SYMBOLS.SA.005(1)       81
            5.0T2    48  PL1_MAINTENANCE.SYMBOLS.SA.004     1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  01:46:12
            5.0T3   505                       
0          PRINT PL1LIB SYMBOLS AND THEIR CURRENT ADDRESSES.
00506/005   PL1 MAINTENANCE          PL1SYMBOLS      D              S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.PL1SYMBOL.D.007(1)      83
            5.0T2    49  PL1_MAINTENANCE.PL1SYMBOL.D.005    1 LINE    117    2 PAGE UM   TIFFANY             JULY 28, 1977  01:46:16
            5.0T3   506                       
0          LIST OF PL/I SYMBOL NAMES.  USED BY CRELCS (506/1).
00506/006   PL1 MAINTENANCE          INTSUBS         D              S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.INTSUBS.D.008(1)        84
            5.0T2    50  PL1_MAINTENANCE.INTSUBS.D.006      1 SEQ      56    1 PAGE UM   TIFFANY             JULY 28, 1977  01:46:20
            5.0T3   507                       
0          LIST OF INTERNAL SUBROUTINES.  USED BY CRELCS (506/1).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00506/007   PL1 MAINTENANCE          LLXU            SA  G  LLXU    W062:LOAD.S                                                     
            5.0T2    51  PL1_MAINTENANCE.LLXU.SA.007        1 LINE     80   20 PAGE UM   TIFFANY             JULY 03, 1981  14:57:15
            5.0T3   508                       
0          SIMULATE OS LINK/LOAD/XCTL WITH GOODIES. THIS ROUTINE DOESN'T CALL UMLOAD, 
           LLXU, AND FRIENDS;  IT HAS A SIMPLE LOADER TO SPEED UP THE COMPILER. 
           COPIES *GDINFODSECT (594).
0          Referenced by comments of: 163/14 
00506/008A  PL1 MAINTENANCE          HENPECKER       SA  G          PL1:PECKER.S                                                    
            5.0T2    52  PL1_MAINTENANCE.HENPECKER.SA.008   1 LINE    126   10 PAGE UM   TIFFANY             JULY 03, 1981  14:57:17
            5.0T3   509                       
0          PROGRAM TO PICK UP THE SOURCE MODULES FROM IEHUPDTE INPUT TAPE SUCH AS
           THE PL/1 COMPILER. COPIES *GDINFODSECT (594) AND *CNFGINFODSECT (654).
           ASSEMBLE WITH PL1:SUBR.MAC (506/9) AND *SYSMAC.
            
           ***********************************************************************
           D5.0 VERSION:
            
           CAN GENERATE MACRO LIBRARY.
           ***********************************************************************
0          Referenced by comments of: 163/13, 813/7 
00506/009C  PL1 MAINTENANCE          MACRO LIB       SM  G          PL1:SUBR.MAC                                                    
            5.0T2    53  PL1_MAINTENANCE.HENPECKER.SM.009   1 LINE     72    3 PAGE UM   TIFFANY             JULY 03, 1981  14:57:21
            5.0T3   510                       
0          Macro library containing various subroutine macros.
0          Referenced by comments of: 506/8 
00506/010   PL1 MAINTENANCE          INSTALLATION    WF             S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.INSTALLAT.WF.013(1)     89
            5.0T2    54  PL1_MAINTENANCE.INSTALLAT.WF.010   1 LINE    140   18 PAGE UM   TIFFANY             JULY 28, 1977  01:46:32
            5.0T3   511                       
0          INSTRUCTIONS FOR INSTALLATION OF PL/I IN MTS AND DOCUMENTATION ON OS SIMULATION
           PACKAGE.
00506/011   PL1 MAINTENANCE          INSTALLATION    WF             W062:PL1INSTALL.W                                               
            5.0T2    55  PL1_MAINTENANCE.INSTALLAT.WF.011   1 LINE    134    5 PAGE UM   TIFFANY             JULY 03, 1981  14:57:23
            5.0T3   512                       
0          WRITEUP INDICATING HOW TO INSTALL AND MAINTAIN THE 
           PL/I-F COMPILER (163).
0          Referenced by comments of: 163/13 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00507/001   TIMELIMIT                *LIM            C              *LIM                                                            
            5.0T2    56  TIMELIMIT.*LIM.C.001               1 LINE     60    1 PAGE UM   WSG                 JULY 03, 1981  14:57:24
            5.0T4     1  *LIM                 
0          COMMAND FILE USED BY OPERATORS TO FIND OUT HOW MUCH CPU TIME IS REMAINING FOR AN
           EXECUTING BATCH JOB.  INVOKED BY ENTERING "MTS *LIM" ON OPERATOR'S CONSOLE.
00507/002   TIMELIMIT                TLIMIT PGM      SA  G          S0564 D4T2 VLO FSNAME=TIMELIMIT.TLIMIT_PGM.SA.002(1)          91
            5.0T2    57  TIMELIMIT.TLIMIT_PGM.SA.002        1 LINE     80    5 PAGE UM   WSG                 JAN. 13, 1977  16:30:08
            5.0T4     2                       
0          PROGRAM TO COMPUTE HOW MUCH TIME IS LEFT BEFORE A JOB EXCEEDS ITS GLOBAL TIME LIMIT.
           OPERATOR ENTERS EITHER AN UMMPS JOB NUMBER OR USER ID TO SPECIFY THE JOB(S) FOR
           WHICH THE REMAINING TIME IS TO BE CALCULATED.  END-OF-FILE TERMINATES PROGRAM.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654).
                1.04  SOURCE IN LINES 1,999.
00507/003   TIMELIMIT                TLIMIT PGM      OC  G          SYS:TLIMIT                                                      
            5.0T2    58  TIMELIMIT.TLIMIT_PGM.OC.003        1 LINE     80    1 PAGE UM   WSG                 JULY 03, 1981  14:57:25
            5.0T4     3  SYS.:TLIMIT          
00508/001  *BASIC                    STRT1           C              S0564 D4T2 VLO FSNAME=BASIC.STRT1.C.001(1)                    93
            5.0T2    59  BASIC.STRT1.C.001                  1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:22
            5.0T4     4                       
0          MTS COMMANDS TO RESTORE FILES NEEDED TO GENERATE BASIC, (508/2) THROUGH
           (508/18) AND (508/28) THROUGH (508/30), WHICH IT ASSUMES ARE ON AN *FS TAPE BY
           THEMSELVES.
00508/002  *BASIC                    STRT2           C              S1430 4.3T1 VLO FSNAME=BASIC.STRT2.C.002(1)                  344
            5.0T2    60  BASIC.STRT2.C.002                  1 LINE    128    1 PAGE UM   FRONCZAK            APR. 05, 1980  15:30:30
            5.0T4     5                       
0          MTS COMMANDS TO ASSEMBLE AND LINK-EDIT THE BASIC SOURCE, (508/19) THROUGH
           (508/27), WHICH IT ASSUMES ARE ON A REGULAR (NON-*FS) BLOCKED, LABELED TAPE.
0          Referenced by comments of: 508/1 
00508/003  *BASIC                    BIFDSECT        SA  G          S0564 D4T2 VLO FSNAME=BASIC.BIFDSECT.SA.003(1)                95
            5.0T2    61  BASIC.BIFDSECT.SA.003              1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:26
            5.0T4     6                       
0          THE DSECT USED BY "BUILT-IN" FUNCTIONS.
0          Referenced by comments of: 508/23 
00508/004A *BASIC                    CLIDSECT        SA  G          W070:CLIDSECT                                                   
            5.0T2    62  BASIC.CLIDSECT.SA.004              1 LINE     72    3 PAGE UM   FRONCZAK            JULY 03, 1981  14:57:28
            5.0T4     7                       
0          THE DSECT USED BY COMMAND AND CMNDINIT.
0          Referenced by comments of: 508/19, 508/22, 508/25, 508/26 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00508/005  *BASIC                    DS6A            SA  G          S0564 D4T2 VLO FSNAME=BASIC.DS6A.SA.005(1)                    97
            5.0T2    63  BASIC.DS6A.SA.005                  1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:30
            5.0T4     8                       
0          THE DSECT USED BY LOADER.
0          Referenced by comments of: 508/22 
00508/006  *BASIC                    DSECTCOMM       SA  G          S0564 D4T2 VLO FSNAME=BASIC.DSECTCOMM.SA.006(1)               98
            5.0T2    64  BASIC.DSECTCOMM.SA.006             1 LINE     70    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:33
            5.0T4     9                       
0          THE BASIC COMMON DSECT.
0          Referenced by comments of: 508/19, 508/20, 508/21, 508/22, 508/23, 508/24, 508/25, 508/26, 508/27 
00508/007  *BASIC                    DSECT9A         SA  G          S1319 D4.2T1 VLO FSNAME=BASIC.DSECT9A.SA.007(1)              337
            5.0T2    65  BASIC.DSECT9A.SA.007               1 LINE     69    2 PAGE UM   FRONCZAK            APR. 01, 1979  22:26:50
            5.0T4    10                       
0          THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH.
0          Referenced by comments of: 508/22 
00508/008  *BASIC                    FHDRDSECT       SA  G          S0564 D4T2 VLO FSNAME=BASIC.FHDRDSECT.SA.008(1)              100
            5.0T2    66  BASIC.FHDRDSECT.SA.008             1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:37
            5.0T4    11                       
0          THE "FILE HEADER" DSECT.
0          Referenced by comments of: 508/24, 508/26 
00508/009  *BASIC                    GLOBALSYM       SA  G          S0564 D4T2 VLO FSNAME=BASIC.GLOBALSYM.SA.009(1)              101
            5.0T2    67  BASIC.GLOBALSYM.SA.009             1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:39
            5.0T4    12                       
0          CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE
           INSTALLATION NAME.
0          Referenced by comments of: 508/19, 508/20, 508/22, 508/23, 508/25 
00508/010  *BASIC                    INTFACMAC       SM  G          S0564 D4T2 VLO FSNAME=BASIC.INTFACMAC.SM.010(1)              102
            5.0T2    68  BASIC.INTFACMAC.SM.010             1 LINE     58    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:41
            5.0T4    13                       
0          BASIC MACRO LIBRARY.
00508/011  *BASIC                    LDICDSCT        SA  G          S0564 D4T2 VLO FSNAME=BASIC.LDICDSCT.SA.011(1)               103
            5.0T2    69  BASIC.LDICDSCT.SA.011              1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:44
            5.0T4    14                       
0          THE "LOADING DIRECTORY" DSECT.
0          Referenced by comments of: 508/19, 508/21 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00508/012  *BASIC                    MAPDSECT        SA  G          S0564 D4T2 VLO FSNAME=BASIC.MAPDSECT.SA.012(1)               104
            5.0T2    70  BASIC.MAPDSECT.SA.012              1 LINE     68    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:46
            5.0T4    15                       
0          THE "MAP ENTRY DESCRIPTION" DSECT.
0          Referenced by comments of: 508/19, 508/21 
00508/013  *BASIC                    OPDEFEQUS       SA  G          S0564 D4T2 VLO FSNAME=BASIC.OPDEFEQUS.SA.013(1)              105
            5.0T2    71  BASIC.OPDEFEQUS.SA.013             1 LINE     70    2 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:48
            5.0T4    16                       
0          "EQUS" USED IN OPERATOR DEFINITIONS.
0          Referenced by comments of: 508/21 
00508/014  *BASIC                    OPDEFMACROS     SM  G          S0564 D4T2 VLO FSNAME=BASIC.OPDEFMACROS.SM.014(1)            106
            5.0T2    72  BASIC.OPDEFMACROS.SM.014           1 LINE     72    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:50
            5.0T4    17                       
0          MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS.
00508/015  *BASIC                    PDSECT          SA  G          S0564 D4T2 VLO FSNAME=BASIC.PDSECT.SA.015(1)                 107
            5.0T2    73  BASIC.PDSECT.SA.015                1 LINE     72    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:52
            5.0T4    18                       
0          THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----).
0          Referenced by comments of: 508/20 
00508/016  *BASIC                    SYMTABDEF       SA  G          S0564 D4T2 VLO FSNAME=BASIC.SYMTABDEF.SA.016(1)              108
            5.0T2    74  BASIC.SYMTABDEF.SA.016             1 LINE     33    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:55
            5.0T4    19                       
0          THE SYMBOL TABLE DSECT (UNDOCUMENTED).
00508/017  *BASIC                    SYMTABSECT      SA  G          S0564 D4T2 VLO FSNAME=BASIC.SYMTABSECT.SA.017(1)             109
            5.0T2    75  BASIC.SYMTABSECT.SA.017            1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:57
            5.0T4    20                       
0          THE SYMBOL TABLE DSECT (DOCUMENTED).
0          Referenced by comments of: 508/20, 508/21 
00508/018  *BASIC                    WSLAYOUT        SA  G          S0564 D4T2 VLO FSNAME=BASIC.WSLAYOUT.SA.018(1)               110
            5.0T2    76  BASIC.WSLAYOUT.SA.018              1 LINE     68    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:59
            5.0T4    21                       
0          THE "WORKING STORAGE LAYOUT" DSECT.
0          Referenced by comments of: 508/1, 508/19, 508/22 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00508/019A *BASIC                    CLI             SA  G          S0358 BSCSEF POSN=*BASIC.CLI                                    
            5.0T2    77  BASIC.CLI.SA.019                   1 SEQ      80  125 PAGE UM   FRONCZAK            JULY 03, 1981  14:58:50
            5.0T4    22                       
0          Copies (508/4), (508/6), (508/9), (508/11), (508/12), (508/18), and (508/28).
0          Referenced by comments of: 508/2 
00508/020A *BASIC                    LEX             SA  G          S0358 BSCSEF POSN=*BASIC.LEX                                    
            5.0T2    78  BASIC.LEX.SA.020                   1 SEQ      80  108 PAGE UM   FRONCZAK            JULY 03, 1981  14:58:56
            5.0T4    23                       
0          Copies (508/6), (508/9), (508/15), and (508/17).
00508/021A *BASIC                    CMP             SA  G          S0358 BSCSEF POSN=*BASIC.CMP                                    
            5.0T2    79  BASIC.CMP.SA.021                   1 SEQ      80  107 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:02
            5.0T4    24                       
0          Copies (508/6), (508/11), (508/12), (508/13), and (508/17).
00508/022A *BASIC                    CPS             SA  G          S0358 BSCSEF POSN=*BASIC.CPS                                    
            5.0T2    80  BASIC.CPS.SA.022                   1 SEQ      80   80 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:07
            5.0T4    25                       
0          Copies (508/4), (508/5), (508/6), (508/7), (508/9), and (508/18).
00508/023A *BASIC                    NUM             SA  G          S0358 BSCSEF POSN=*BASIC.NUM                                    
            5.0T2    81  BASIC.NUM.SA.023                   1 SEQ      80   62 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:11
            5.0T4    26                       
0          Copies (508/3), (508/6), and (508/9).
00508/024A *BASIC                    VFL             SA  G          S0358 BSCSEF POSN=*BASIC.VFL                                    
            5.0T2    82  BASIC.VFL.SA.024                   1 SEQ      80   41 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:14
            5.0T4    27                       
0          Copies (508/6) and (508/8).
00508/025A *BASIC                    BIO             SA  G          S0358 BSCSEF POSN=*BASIC.BIO                                    
            5.0T2    83  BASIC.BIO.SA.025                   1 SEQ      80   50 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:18
            5.0T4    28                       
0          Copies (508/4), (508/6), (508/9), and (508/28).
00508/026A *BASIC                    INF             SA  G          S0358 BSCSEF POSN=*BASIC.INF                                    
            5.0T2    84  BASIC.INF.SA.026                   1 SEQ      80   52 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:21
            5.0T4    29                       
0          Copies (508/4), (508/6), (508/8), and (508/29).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00508/027A *BASIC                    BSI             SA  G          S0358 BSCSEF POSN=*BASIC.BSI                                    
            5.0T2    85  BASIC.BSI.SA.027                   1 SEQ      80    5 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:23
            5.0T4    30                       
0          Copies (508/6).
0          Referenced by comments of: 508/2 
00508/028  *BASIC                    LIBSYM          SA  G          S0564 D4T2 VLO FSNAME=BASIC.LIBSYM.SA.028(1)                 120
            5.0T2    86  BASIC.LIBSYM.SA.028                1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:32
            5.0T4    31                       
0          PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER.
0          Referenced by comments of: 508/1, 508/19, 508/25 
00508/029  *BASIC                    SPECIALRATES    SA  G          S0564 D4T2 VLO FSNAME=BASIC.SPECIALRATES.SA.029(1)           121
            5.0T2    87  BASIC.SPECIALRATES.SA.029          1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:33
            5.0T4    32                       
0          THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR:  %PRINT BALANCE AND STATISTICS PRINTING.
0          Referenced by comments of: 508/26 
00508/030A *BASIC                    OBJECT          OC  G          SEG2:BASIC                                                      
            5.0T2    88  BASIC.OBJECT.OC.030                1 LINE  14824   33 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:30
            5.0T4    33  SEG2:BASIC           
0          OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY PISTLE.
0          Referenced by comments of: 508/1, 508/31 
00508/031  *BASIC                    *BASIC          OC  G          *BASIC                                                          
            5.0T2    89  BASIC.*BASIC.OC.031                1 SEQ      24    1 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:33
            5.0T4    34  *BASIC               
0          CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SHARED VM
           BASIC (508/30).
00508/032A *BASIC                    BASICHELPC      M              ETC:BASICHELPC                                                  
            5.0T2    90  BASIC.BASICHELPC.M.032             1 LINE     68    1 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:34
            5.0T4    35  ETC.:BASICHELPC      
0          BASIC HELP COMMAND FILE.
00508/033A *BASIC                    INSTALLATION    P              W070:BASICSYSGENP                                               
            5.0T2    91  BASIC.INSTALLATION.P.033           1 LINE    102   18 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:35
            5.0T4    36                       
0          NOTES ON THE INSTALLATION OF BASIC.  COPY TO A TN PRINTER.
            
           ****************************************************************************
           D5.0 version:
            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Updated for Distribution 5.0.
           ****************************************************************************
00508/034A *BASIC                    SIGNONM FILE    D              ETC:BASICSIGNONM                                                
            5.0T2    92  BASIC.SIGNONM_FILE.D.034           1 LINE     59    1 PAGE UM   FRONCZAK            JULY 03, 1981  14:59:37
            5.0T4    37  ETC:BASICSIGNONM     
0          FILE CONTAINING BASIC "SIGNON" MESSAGE.
00509/001A  PERMIT COMMAND           D5.0 MASTER     SA  G          MTS:PERMIT.S                                                    
            5.0T2    93  PERMIT_COMMAND..SA.001             1 LINE     80   27 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:38
            5.0T4    38                       
0          THIS IS THE SOURCE FOR THE MTS $PERMIT COMMAND AND THE PERMIT, SETKEY,
           SETFPRIV, 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,
           SETFPRIV, AND SETFSAVE.  CALLS MANY OF THE FILE ROUTINES DIRECTLY.  COPIES 
           COPY:GLOBALS (1026/3), *CNFGINFODSECT (654), AND COPY:LLMPSEQU(100) (087).
           ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:FILE.MACROS (482/45), 
           COPY:SETPARM (653) AND COPY:MISC.MACROS (728).
0          Referenced by comments of: 529/1 
00509/002A  PERMIT COMMAND           UPDATE          UC  G          MTS:PERMITUPD                                                   
            5.0T2    94  PERMIT_COMMAND..UC.002             1 LINE    171    4 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:40
            5.0T4    39                       
0          UPDATE TO PRODUCE CURRENT SOURCE, USING THE D4.3 SOURCE AS BASE.
00509/003A  PERMIT COMMAND           *CLSPERMIT      OC  G          *CLSPERMIT                                                      
            5.0T2    95  PERMIT_COMMAND..OC.003             1 LINE     80    9 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:41
            5.0T4    40  *CLSPERMIT           
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE, USING THE IPL OPTION.
           THE LOADER COM CARD DEFINES THE SYMBOLS PERCMD AND SETFPRIV IN LCSYMBOL.
           THE OTHER SUBROUTINES ARE NAMED IN THE GATE (4000) (LCSYMBOL) AND SO CAN NOT
           BE INCLUDED IN THE COM CARD.
00509/004A  PERMIT COMMAND           *PERSUB         OC  G          *PERSUB                                                         
            5.0T2    96  PERMIT_COMMAND.*PERSUB.OC.004      1 LINE     26    1 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:42
            5.0T4    41  *PERSUB              
0          This file contains an ENT card for the symbol "PERSUB" 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 PERSUB subroutine is not
           defined in LCSYMBOL.
00509/005A  PERMIT COMMAND           *SKEYSUB        OC  G          *SKEYSUB                                                        
            5.0T2    97  PERMIT_COMMAND.*SKEYSUB.OC.005     1 LINE     26    1 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:43
            5.0T4    42  *SKEYSUB             
0          This file contains an ENT card for the symbol "SKEYSUB" followed by a 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          "$CONTINUE WITH *CLSPERMIT" card.  It is used as the file name in the
           LOADT table in MTS, and is loaded from if the SKEYSUB subroutine is not
           defined in LCSYMBOL.
00509/006A  PERMIT COMMAND           *SFSAVSUB       OC  G          *SFSAVSUB                                                       
            5.0T2    98  PERMIT_COMMAND.*SFSAVSUB.OC.006    1 LINE     26    1 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:44
            5.0T4    43  *SFSAVSUB            
0          This file contains an ENT card for the symbol "SFSSUB" 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 SFSSUB subroutine is not
           defined in LCSYMBOL.
00509/007A  PERMIT COMMAND           *SPRIVSUB       OC  G          *SPRIVSUB                                                       
            5.0T2    99  PERMIT_COMMAND.*SPRIVSUB.OC.007    1 LINE     25    1 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:45
            5.0T4    44  *SPRIVSUB            
0          This file contains an ENT card for the symbol "SETFPSUB" 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 SETFPSUB subroutine is not
           defined in LCSYMBOL.
00509/008A  PERMIT COMMAND           SUBR TEST PGM   SF             MTS:TESTPERSUB(1,999)                                           
            5.0T2   100  PERMIT_COMMAND.SUBR_TEST.SF.008    1 LINE     72    3 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:46
            5.0T4    45                       
0          PROGRAM TO TEST THE PERMIT SUBROUTINE.
00509/009A  PERMIT COMMAND           SUBR TEST PGM   SF             MTS:TESTPERSUB2(1,999)                                          
            5.0T2   101  PERMIT_COMMAND.SUBR_TEST.SF.009    1 LINE     71    2 PAGE UM   MTS       OGDEN     JULY 03, 1981  14:59:47
            5.0T4    46                       
0          ANOTHER PROGRAM TO TEST THE PERMIT SUBROUTINE.
00510/001   MTS VOLUME 13                            WF             S0564 D4T2 VLO FSNAME=MTS_VOLUME_13..WF.001(1)               134
            5.0T2   102  MTS_VOLUME_13..WF.001              1 LINE    159   61 PAGE UM   MANUAL              AUG. 01, 1973  22:10.11
            5.0T4    47                       
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             S0564 D4T2 VLO FSNAME=MTS_VOLUME_13..PF.002(1)               135
            5.0T2   103  MTS_VOLUME_13..PF.002              1 LINE     80   81 PAGE UM   MANUAL              AUG. 01, 1973  22:11.01
            5.0T4    48                       
0          PRINT FILE FOR VOLUME 13.  COPY TO A TN PRINTER.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00511/001  *OBJLIST                                  SA  G          S1143 D4.1T1 VLO FSNAME=OBJLIST..SA.001(1)                   273
            5.0T2   104  OBJLIST..SA.001                    1 LINE     80   55 PAGE UM   TIFFANY             MAY  13, 1978  17:35:44
            5.0T4    49                       
0          PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT.  READS *ASMH (737) SYM
           RECORDS.
00511/002  *OBJLIST                                  OE  G          *OBJLIST                                                        
            5.0T2   105  OBJLIST..OE.002                    1 SEQ    7253    4 PAGE UM   TIFFANY             JULY 03, 1981  14:59:58
            5.0T4    50  *OBJLIST             
00512/001   MTS VOLUME 11            MASTER          WT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.MASTER.WT.001(1)        360
            5.0T2   106  MTS_VOLUME_11.MASTER.WT.001        1 SEQ     132   85 PAGE UM   MANUAL              APR. 05, 1980  15:34:11
            5.0T4    51                       
0          TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUALS,
           AUGUST 1978, UPDATED APRIL 1980.
            
           EDITOR:  GAIL H. LIFT
00512/002   MTS VOLUME 11            PRINT           PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.PRINT.PT.002(1)         361
            5.0T2   107  MTS_VOLUME_11.PRINT.PT.002         1 SEQ     132  174 PAGE UM   MANUAL              APR. 05, 1980  15:34:21
            5.0T4    52                       
0          TEXT/360 PRINT FILE.
00512/003   MTS VOLUME 11            FIGURES         SG  G          S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.FIGURES.SG.003(1)       362
            5.0T2   108  MTS_VOLUME_11.FIGURES.SG.003       1 LINE     55    1 PAGE UM   MANUAL              APR. 05, 1980  15:34:27
            5.0T4    53                       
0          GOM SOURCE FOR MAIN PROGRAM TO CALL SUBROUTINES WHICH GENERATE FIGURES
           FOR VOLUME 11.
00512/004   MTS VOLUME 11            FIGURES         SF  G          S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.FIGURES.SF.004(1)       363
            5.0T2   109  MTS_VOLUME_11.FIGURES.SF.004       1 LINE   1534   47 PAGE UM   MANUAL              APR. 05, 1980  15:34:28
            5.0T4    54                       
0          FORTRAN SOURCE FOR SUBROUTINES WHICH GENERATE FIGURES FOR VOLUME 11.
00512/005   MTS VOLUME 11            INDEX SOURCE    D              S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_11.INDEX_SOURC.D.005(1)   345
            5.0T2   110  MTS_VOLUME_11.INDEX_SOURC.D.005    1 SEQ      37    3 PAGE UM   MANUAL              APR. 01, 1979  22:30:35
            5.0T4    55                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 11.
00512/006   MTS VOLUME 11            UPDATE 1        PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.UPDATE_1.PT.006(1)      364
            5.0T2   111  MTS_VOLUME_11.UPDATE_1.PT.006      1 LINE    103   19 PAGE UM   MANUAL              APR. 05, 1980  15:34:35
            5.0T4    56                       
0          THIS IS "UPDATE 1 TO MTS VOLUME 11," APRIL 1980.  $COPY TO A TN PRINTER 
           USING THE @MCC MODIFIER.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00513/001A  DYSSUB                   D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=DYS                         
            5.0T4   329  DYSSUB.D5.0_MASTER.SA.001          1 LINE     80   21 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:04:54
            5.0T10  233                       
0          SUBROUTINE TO PROCESS SOME $DISPLAY PARAMETERS.
            
           COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), *GDINFODSECT (594),
           *SENSEDSECT (3025), AND *CNFGINFODSECT (654). ASSEMBLE USING
           COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2 
00513/002A  DYSSUB                   UPDATE          UC  G          MTS:DYSUPD                                                      
            5.0T4   330  DYSSUB.UPDATE.UC.002               1 LINE     78   12 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:04:55
            5.0T10  234                       
0          UPDATE TO PRODUCE CURRENT SOURCE.  UPDATE USES $CONTROL *IN* POSN=DYS.
00513/003A  DYSSUB                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
            4.2CT1  117  DYSSUB..OC.003                     1 LINE     80    3 PAGE UM   MTS       HELFFRICH NOV. 27, 1979  23:12:48
0          NEW VERSIONS CAN BE LOADED INTO SHARED VM USING PISTLE (559), EVEN THOUGH
           DYSSUB IS INITIALLY LOADED AS PART OF THE RESIDENT SYSTEM.
           Object part of Resident System (468)
00513/004A  DYSSUB                                   L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=DYS.LIST                   
            5.0T4   331  DYSSUB..L.004                      1 LINE    133   66 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:05:06
            5.0T10  235                       
00514/001  *PL1TIDY                                  SP  G          W062:NEATENED                                                   
            5.0T2   112  PL1TIDY..SP.001                    1 LINE     72   18 PAGE UM   TIFFANY             JULY 03, 1981  15:00:19
            5.0T4    57                       
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                                                        
            5.0T2   113  PL1TIDY..OE.002                    1 SEQ   25530    9 PAGE UM   TIFFANY             JULY 03, 1981  15:00:21
            5.0T4    58  *PL1TIDY             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00515/001  *11ASR                    INSTAL          C              W267:11ASR.INSTAL                                            367
            5.0T2   114  11ASR.INSTAL.C.001                 1 LINE    125    1 PAGE UM   EADIE               JULY 03, 1981  15:00:22
            5.0T4    59                       
0          MTS COMMANDS TO ASSEMBLE AND LINK EDIT ALL THE CSECTS FOR THE PDP-11 ASSEMBLER.
           ASSEMBLE USING *SYSMAC AND COPY:MISC.MACROS (728).
0          Referenced by comments of: 516/1, 660/1, 660/15, 755/1, 755/3 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00515/002  *11ASR                    MACLIB          SM  G          S1430 4.3T1 VLO FSNAME=11ASR.MACLIB.SM.002(1)                368
            5.0T2   115  11ASR.MACLIB.SM.002                1 LINE     64    4 PAGE UM   EADIE               APR. 05, 1980  15:34:51
            5.0T4    60                       
0          MACRO LIBRARY USED TO ASSEMBLE COMPS (515/3) THROUGH (515/7).
0          Referenced by comments of: 515/3 
00515/003  *11ASR                    KERNEL          SA  G          W267:11ASR.KERNEL                                            369
            5.0T2   116  11ASR.KERNEL.SA.003                1 LINE     86  105 PAGE UM   EADIE               JULY 03, 1981  15:00:26
            5.0T4    61                       
0          Copies SITECODE from the 11ASR macro library (515/2).
0          Referenced by comments of: 515/2, 515/11 
00515/004  *11ASR                    DCEVAL          SA  G          S1430 4.3T1 VLO FSNAME=11ASR.DCEVAL.SA.004(1)                370
            5.0T2   117  11ASR.DCEVAL.SA.004                1 LINE     80   18 PAGE UM   EADIE               APR. 05, 1980  15:35:07
            5.0T4    62                       
00515/005  *11ASR                    REPSCN          SA  G          S1430 4.3T1 VLO FSNAME=11ASR.REPSCN.SA.005(1)                371
            5.0T2   118  11ASR.REPSCN.SA.005                1 LINE     80    5 PAGE UM   EADIE               APR. 05, 1980  15:35:10
            5.0T4    63                       
00515/006  *11ASR                    MACPRO          SA  G          S1430 4.3T1 VLO FSNAME=11ASR.MACPRO.SA.006(1)                372
            5.0T2   119  11ASR.MACPRO.SA.006                1 LINE     70   38 PAGE UM   EADIE               APR. 05, 1980  15:35:12
            5.0T4    64                       
00515/007  *11ASR                    EXTF11          SA  G          S1430 4.3T1 VLO FSNAME=11ASR.EXTF11.SA.007(1)                373
            5.0T2   120  11ASR.EXTF11.SA.007                1 LINE     72    7 PAGE UM   EADIE               APR. 05, 1980  15:35:23
            5.0T4    65                       
0          Referenced by comments of: 515/2 
00515/008  *11ASR                    OPCODE          SA  G          S1430 4.3T1 VLO FSNAME=11ASR.OPCODE.SA.008(1)                374
            5.0T2   121  11ASR.OPCODE.SA.008                1 LINE     72   15 PAGE UM   EADIE               APR. 05, 1980  15:35:26
            5.0T4    66                       
00515/009  *11ASR                    MICROP          SA  G          S1430 4.3T1 VLO FSNAME=11ASR.MICROP.SA.009(1)                375
            5.0T2   122  11ASR.MICROP.SA.009                1 LINE     72    6 PAGE UM   EADIE               APR. 05, 1980  15:35:28
            5.0T4    67                       
00515/010  *11ASR                    OBJECT          OE  G          *11ASR                                                          
            5.0T2   123  11ASR.OBJECT.OE.010                1 SEQ   13512   39 PAGE UM   EADIE               JULY 03, 1981  15:00:43
            5.0T4    68  *11ASR               
00515/011  *11ASR                    11ASRERROR      M   G          ETC:11ASRERROR                                                  
            5.0T2   124  11ASR.11ASRERROR.M.011             1 LINE     70    4 PAGE UM   EADIE               JULY 03, 1981  15:00:44
            5.0T4    69  ETC.:11ASRERROR      
0          ERROR COMMENT FILE REFERENCED BY 11ASR KERNAL (515/3) ON LINE 7455.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00515/012  *11ASR                    MEMO 286        WT             S0564 D4T2 VLO FSNAME=11ASR.MEMO_286.WT.017(1)               162
            5.0T2   125  11ASR.MEMO_286.WT.012              1 LINE     80   49 PAGE UM   EADIE               JAN. 26, 1977  20:17:02
            5.0T4    70                       
0          THIS IS COMPUTING CENTER MEMO 286 -- "THE PDP-11 ASSEMBLER AND LINK EDITOR:
           A USER'S GUIDE TO *11ASR AND *LINK11"
0          Referenced by comments of: 516/3 
00516/001A *LINK11                                   SA  G          W267:LINK11.SA                                                  
            5.0T2   126  LINK11..SA.001                     1 LINE     96   46 PAGE UM   EADIE               JULY 03, 1981  15:00:55
            5.0T4    71                       
0          LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515).
0          Referenced by comments of: 660/1 
00516/002  *LINK11                                   OE  G          *LINK11                                                         
            5.0T2   127  LINK11..OE.002                     1 SEQ   13152    6 PAGE UM   EADIE               JULY 03, 1981  15:00:59
            5.0T4    72  *LINK11              
00516/003  *LINK11                   USER'S GUIDE    WT           # (PART OF *11ASR)                                                
                                                                                    UM   EADIE                                      
0          See Memo 286 (515/12)
00517/001   LOGICAL OPERATORS                        SA  G          S0564 D4T2 VLO FSNAME=LOGICAL_OPERATORS..SA.001(1)           165
            5.0T2   128  LOGICAL_OPERATORS..SA.001          1 LINE     70    4 PAGE UM   HARDING             JULY 28, 1977  01:59:54
            5.0T4    73                       
0          SUBROUTINES TO PROVIDE THE FOLLOWING SYSTEM/360 MACHINE OPERATIONS:  MVC, CLC, NC, OC, XC, TR, TRT, ED, AND EDMK.
00517/002   LOGICAL OPERATORS                        OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   HARDING                                    
0          Object part of *LIBRARY (524/1)
00518/001   GRGJUL SUBRS                             SA  G          S0564 D4T2 VLO FSNAME=GRGJUL_SUBRS..SA.001(1)                166
            5.0T2   129  GRGJUL_SUBRS..SA.001               1 LINE     80    5 PAGE UM   ENGLE               DEC. 05, 1975  16:10:51
            5.0T4    74                       
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 JULGRG SUBRS)                                          
                                                                                    UM   ENGLE                                      
0          Part of JULGRG subroutines object (522/2).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00519/001   GRJLDT/GRJLTM SUBRS      GRJLDT          SA  G          S1143 D4.1T1 VLO FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLD.SA.001(1)  277
            5.0T2   130  GRJLDT/GRJLTM_SUBRS.GRJLD.SA.001   1 LINE     80    1 PAGE UM   ENGLE               JAN. 20, 1978  13:32:33
            5.0T4    75                       
0          GREGORIAN-TO-JULIAN CONVERSION SUBROUTINES (TWO OF MANY -- TOO MANY).
00519/002   GRJLDT/GRJLTM SUBRS      GRJLDT          OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   ENGLE                                      
0          Object part of *LIBRARY (524/1)
00519/003   GRJLDT/GRJLTM SUBRS      GRJLTM          SA  G          S1143 D4.1T1 VLO FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLT.SA.003(1)  278
            5.0T2   131  GRJLDT/GRJLTM_SUBRS.GRJLT.SA.003   1 LINE     80    1 PAGE UM   ENGLE               JAN. 20, 1978  13:33:56
            5.0T4    76                       
00519/004   GRJLDT/GRJLTM SUBRS      GRJLTM          OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   ENGLE                                      
0          Object part of *LIBRARY (524/1)
00520/001   GROSDT                                   SA  G          S1143 D4.1T1 VLO FSNAME=GROSDT..SA.001(1)                    279
            5.0T2   132  GROSDT..SA.001                     1 LINE     80    2 PAGE UM   ENGLE               JAN. 20, 1978  13:36:51
            5.0T4    77                       
0          GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE.
00520/002   GROSDT                                   OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   ENGLE                                      
0          Object part of *LIBRARY (524/1)
00521/001   JLGRDT/JLGRTM            JLGRDT          SA  G          S0564 D4T2 VLO FSNAME=JLGRDT/JLGRTM.JLGRDT.SA.001(1)         170
            5.0T2   133  JLGRDT/JLGRTM.JLGRDT.SA.001        1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:55.50
            5.0T4    78                       
0          JULIAN-TO-GREGORIAN CONVERSION SUBROUTINES.
00521/002   JLGRDT/JLGRTM            JLGRDT          OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   ENGLE                                      
0          Object part of *LIBRARY (524/1)
00521/003   JLGRDT/JLGRTM            JLGRTM          SA  G          S0564 D4T2 VLO FSNAME=JLGRDT/JLGRTM.JLGRTM.SA.003(1)         171
            5.0T2   134  JLGRDT/JLGRTM.JLGRTM.SA.003        1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:57.15
            5.0T4    79                       
00521/004   JLGRDT/JLGRTM            JLGRTM          OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   ENGLE                                      
0          Object part of *LIBRARY (524/1)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00522/001   JULGRG SUBRS                             SA  G          S0564 D4T2 VLO FSNAME=JULGRG_SUBRS..SA.001(1)                172
            5.0T2   135  JULGRG_SUBRS..SA.001               1 LINE     80    5 PAGE UM   ENGLE               MAY  03, 1973  10:00.10
            5.0T4    80                       
0          JULIAN TO GREGORIAN DATE/TIME CONVERSION SUBROUTINES (JULGRGDT, JULGRGTM, AND JLGRSEC).
0          Referenced by comments of: 67/23, 437/1, 529/1 
00522/002   JULGRG SUBRS                             OC  G          SEG2:CFE                                                        
            5.0T2   136  JULGRG_SUBRS..OC.002               1 LINE     80    1 PAGE UM   ENGLE               JULY 03, 1981  15:01:05
            5.0T4    81  SEG2:CFE             
0          THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE"
           BY PISTLE AT IPL.
0          Referenced by comments of: 518/2 
00523/001   OSGRDT                                   SA  G          S1143 D4.1T1 VLO FSNAME=OSGRDT..SA.001(1)                    280
            5.0T2   137  OSGRDT..SA.001                     1 LINE     80    2 PAGE UM   ENGLE               JAN. 20, 1978  13:38:52
            5.0T4    82                       
0          OS/360 (YYDDD) TO GREGORIAN DATE CONVERSION SUBROUTINE.
00523/002   OSGRDT                                   OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   ENGLE                                      
0          Object part of *LIBRARY (524/1)
00524/001A *LIBRARY                                  OL             *LIBRARY                                                        
            5.0T2   138  LIBRARY..OL.001                    1 LINE  32767   83 PAGE UM   SALISBURY           JULY 03, 1981  15:01:06
            5.0T4    83  *LIBRARY             
0          OBJECT LIBRARY FOR SYSTEM NON-RESIDENT SUBROUTINES.  THE SOURCE FILES FOR THE PROGRAMS CONTAINED
           IN THIS LIBRARY ARE GIVEN ELSEWHERE IN THIS DISTRIBUTION UNDER THE SPECIFIC SUBROUTINE NAME.
           THIS LIBRARY IS AUTOMATICALLY SEARCHED WHEN PROGRAMS ARE LOADED IF THERE ARE UNRESOLVED SYMBOLS.
0          Referenced by comments of: 120/2, 223/2, 273/2, 275/2, 278/2, 278/4, 282/3, 283/2, 285/2, 287/2, 357/3, 389/2,
                 436/2, 436/4, 437/2, 437/4, 437/6, 487/5, 517/2, 519/2, 519/4, 520/2, 521/2, 521/4, 523/2, 528/60, 563/12,
                 606/2, 607/2, 612/2, 626/2, 627/2, 659/19, 659/28, 659/30, 659/32, 666/2, 687/2, 709/2, 744/1, 744/6, 773/1,
                 798/4, 800/2, 800/4, 801/2, 1005/4 
00524/002A *LIBRARY                  CREATELIB       C              LIB:CREATELIB                                                   
            5.0T2   139  LIBRARY.CREATELIB.C.002            1 LINE     55    1 PAGE UM   SALISBURY           JULY 03, 1981  15:01:10
            5.0T4    84                       
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 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00524/003  *LIBRARY                  ENTERLIB        C              LIB:ENTERLIB                                                    
            5.0T2   140  LIBRARY.ENTERLIB.C.003             1 LINE     37    1 PAGE UM   SALISBURY           JULY 03, 1981  15:01:11
            5.0T4    85                       
0          MTS COMMAND FILE TO ENTER THE NEW LIBRARY FILE CONSTRUCTED BY CREATELIB (524/2)
           INTO *LIBRARY.  WITH RSF, THIS CAN BE DONE DURING NORMAL SYSTEM OPERATION.
00524/004  *LIBRARY                                  WF             S0592 SFILES FSNAME=MOD.LIB                                     
            5.0T2   141  LIBRARY..WF.004                    1 LINE     68    3 PAGE UM   SALISBURY           DEC. 03, 1980  16:01:50
            5.0T4    86                       
00525/001   ELEM FUNC LIB            SQRT            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.SQRT.SA.001(1)           178
            5.0T2   142  ELEM_FUNC_LIB.SQRT.SA.001          1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:02.02
            5.0T4    87                       
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 BE ASSEMBLED USING EFL.MACLIB (525/47).
0          Referenced by comments of: 525/1, 525/47, 527/1, 528/53, 1000/32 
00525/002   ELEM FUNC LIB            EXP             SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EXP.SA.002(1)            179
            5.0T2   143  ELEM_FUNC_LIB.EXP.SA.002           1 LINE     71    3 PAGE UM   HARDING             SEP. 24, 1974  09:04.04
            5.0T4    88                       
00525/003   ELEM FUNC LIB            ALOG10/ALOG     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALOG10/ALOG.SA.003(1)    180
            5.0T2   144  ELEM_FUNC_LIB.ALOG10/ALOG.SA.003   1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.13
            5.0T4    89                       
00525/004   ELEM FUNC LIB            COS/SIN         SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COS/SIN.SA.004(1)        181
            5.0T2   145  ELEM_FUNC_LIB.COS/SIN.SA.004       1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.18
            5.0T4    90                       
00525/005   ELEM FUNC LIB            COTAN/TAN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COTAN/TAN.SA.005(1)      182
            5.0T2   146  ELEM_FUNC_LIB.COTAN/TAN.SA.005     1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.23
            5.0T4    91                       
00525/006   ELEM FUNC LIB            ARCOS/ARSIN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006(1)    183
            5.0T2   147  ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:02.28
            5.0T4    92                       
00525/007   ELEM FUNC LIB            ATAN2/ATAN      SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ATAN2/ATAN.SA.007(1)     184
            5.0T2   148  ELEM_FUNC_LIB.ATAN2/ATAN.SA.007    1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:02.33
            5.0T4    93                       
00525/008   ELEM FUNC LIB            COSH/SINH       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COSH/SINH.SA.008(1)      185
            5.0T2   149  ELEM_FUNC_LIB.COSH/SINH.SA.008     1 LINE     71    1 DISK UM   HARDING             JUNE 27, 1972  12:02.38
            5.0T4    94                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00525/009   ELEM FUNC LIB            TANH            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.TANH.SA.009(1)           186
            5.0T2   150  ELEM_FUNC_LIB.TANH.SA.009          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.42
            5.0T4    95                       
00525/010   ELEM FUNC LIB            ERFC/ERF        SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERFC/ERF.SA.010(1)       187
            5.0T2   151  ELEM_FUNC_LIB.ERFC/ERF.SA.010      1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.46
            5.0T4    96                       
00525/011   ELEM FUNC LIB            ALGAMA/GAMMA    SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011(1)    188
            5.0T2   152  ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:02.51
            5.0T4    97                       
00525/012   ELEM FUNC LIB            DSQRT           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DSQRT.SA.012(1)          189
            5.0T2   153  ELEM_FUNC_LIB.DSQRT.SA.012         1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.56
            5.0T4    98                       
00525/013   ELEM FUNC LIB            DEXP            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DEXP.SA.013(1)           190
            5.0T2   154  ELEM_FUNC_LIB.DEXP.SA.013          1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.00
            5.0T4    99                       
00525/014   ELEM FUNC LIB            DLOG10/DLOG     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLOG10/DLOG.SA.014(1)    191
            5.0T2   155  ELEM_FUNC_LIB.DLOG10/DLOG.SA.014   1 LINE     67    2 DISK UM   HARDING             JUNE 27, 1972  12:03.05
            5.0T4   100                       
00525/015   ELEM FUNC LIB            DCOS/DSIN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOS/DSIN.SA.015(1)      192
            5.0T2   156  ELEM_FUNC_LIB.DCOS/DSIN.SA.015     1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.11
            5.0T4   101                       
00525/016   ELEM FUNC LIB            DCOTAN/DTAN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016(1)    193
            5.0T2   157  ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016   1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:03.15
            5.0T4   102                       
00525/017   ELEM FUNC LIB            DARCOS/DARSIN   SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DARCOS/DARS.SA.017(1)    194
            5.0T2   158  ELEM_FUNC_LIB.DARCOS/DARS.SA.017   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.20
            5.0T4   103                       
00525/018   ELEM FUNC LIB            DATAN2/DATAN    SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DATAN2/DATA.SA.018(1)    195
            5.0T2   159  ELEM_FUNC_LIB.DATAN2/DATA.SA.018   1 LINE     70    2 DISK UM   HARDING             FEB. 16, 1973  09:37.48
            5.0T4   104                       
00525/019   ELEM FUNC LIB            DCOSH/DSINH     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOSH/DSINH.SA.019(1)    196
            5.0T2   160  ELEM_FUNC_LIB.DCOSH/DSINH.SA.019   1 LINE     68    2 DISK UM   HARDING             JUNE 27, 1972  12:03.32
            5.0T4   105                       
00525/020   ELEM FUNC LIB            DTANH           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DTANH.SA.020(1)          197
            5.0T2   161  ELEM_FUNC_LIB.DTANH.SA.020         1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:03.36
            5.0T4   106                       
00525/021   ELEM FUNC LIB            DERFC/DERF      SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DERFC/DERF.SA.021(1)     198
            5.0T2   162  ELEM_FUNC_LIB.DERFC/DERF.SA.021    1 LINE     72    2 DISK UM   HARDING             JUNE 27, 1972  12:03.39
            5.0T4   107                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00525/022   ELEM FUNC LIB            DLGAMA/DGAMMA   SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022(1)    199
            5.0T2   163  ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022   1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.42
            5.0T4   108                       
00525/023   ELEM FUNC LIB            CABS            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CABS.SA.023(1)           200
            5.0T2   164  ELEM_FUNC_LIB.CABS.SA.023          1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:03.46
            5.0T4   109                       
00525/024   ELEM FUNC LIB            CSQRT           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CSQRT.SA.024(1)          201
            5.0T2   165  ELEM_FUNC_LIB.CSQRT.SA.024         1 LINE     67    2 DISK UM   HARDING             JUNE 27, 1972  12:03.50
            5.0T4   110                       
00525/025   ELEM FUNC LIB            CEXP            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CEXP.SA.025(1)           202
            5.0T2   166  ELEM_FUNC_LIB.CEXP.SA.025          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:03.54
            5.0T4   111                       
00525/026   ELEM FUNC LIB            CLOG            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CLOG.SA.026(1)           203
            5.0T2   167  ELEM_FUNC_LIB.CLOG.SA.026          1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.57
            5.0T4   112                       
00525/027   ELEM FUNC LIB            CCOS/CSIN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CCOS/CSIN.SA.027(1)      204
            5.0T2   168  ELEM_FUNC_LIB.CCOS/CSIN.SA.027     1 LINE     69    2 PAGE UM   HARDING             JULY 27, 1973  12:18.03
            5.0T4   113                       
00525/028   ELEM FUNC LIB            CDABS           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDABS.SA.028(1)          205
            5.0T2   169  ELEM_FUNC_LIB.CDABS.SA.028         1 LINE     69    1 DISK UM   HARDING             JUNE 27, 1972  12:04.04
            5.0T4   114                       
00525/029   ELEM FUNC LIB            CDSQRT          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDSQRT.SA.029(1)         206
            5.0T2   170  ELEM_FUNC_LIB.CDSQRT.SA.029        1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:04.08
            5.0T4   115                       
00525/030   ELEM FUNC LIB            CDEXP           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDEXP.SA.030(1)          207
            5.0T2   171  ELEM_FUNC_LIB.CDEXP.SA.030         1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:04.12
            5.0T4   116                       
00525/031   ELEM FUNC LIB            CDLOG           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDLOG.SA.031(1)          208
            5.0T2   172  ELEM_FUNC_LIB.CDLOG.SA.031         1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:04.16
            5.0T4   117                       
00525/032   ELEM FUNC LIB            CDCOS/CDSIN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032(1)    209
            5.0T2   173  ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032   1 LINE     63    2 DISK UM   HARDING             JUNE 27, 1972  12:04.19
            5.0T4   118                       
00525/033   ELEM FUNC LIB            FIXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FIXPI#.SA.033(1)         210
            5.0T2   174  ELEM_FUNC_LIB.FIXPI#.SA.033        1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:04.23
            5.0T4   119                       
00525/034   ELEM FUNC LIB            FRXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPI#.SA.034(1)         211
            5.0T2   175  ELEM_FUNC_LIB.FRXPI#.SA.034        1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:04.25
            5.0T4   120                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00525/035   ELEM FUNC LIB            FDXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPI#.SA.035(1)         212
            5.0T2   176  ELEM_FUNC_LIB.FDXPI#.SA.035        1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:04.28
            5.0T4   121                       
00525/036   ELEM FUNC LIB            FCXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCXPI#.SA.036(1)         213
            5.0T2   177  ELEM_FUNC_LIB.FCXPI#.SA.036        1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.31
            5.0T4   122                       
00525/037   ELEM FUNC LIB            FCDXI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCDXI#.SA.037(1)         214
            5.0T2   178  ELEM_FUNC_LIB.FCDXI#.SA.037        1 LINE     71    1 DISK UM   HARDING             JUNE 27, 1972  12:04.34
            5.0T4   123                       
00525/038   ELEM FUNC LIB            FRXPR#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPR#.SA.038(1)         215
            5.0T2   179  ELEM_FUNC_LIB.FRXPR#.SA.038        1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:04.37
            5.0T4   124                       
00525/039   ELEM FUNC LIB            FDXPD#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPD#.SA.039(1)         216
            5.0T2   180  ELEM_FUNC_LIB.FDXPD#.SA.039        1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.43
            5.0T4   125                       
00525/040   ELEM FUNC LIB            CMPY#           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CMPY#.SA.040(1)          217
            5.0T2   181  ELEM_FUNC_LIB.CMPY#.SA.040         1 LINE     61    1 DISK UM   HARDING             JUNE 27, 1972  12:04.46
            5.0T4   126                       
00525/041   ELEM FUNC LIB            CDVD#           SA  G          S1430 4.3T1 VLO FSNAME=ELEM_FUNC_LIB.CDVD#.SA.041(1)         382
            5.0T2   182  ELEM_FUNC_LIB.CDVD#.SA.041         1 LINE     67    1 PAGE UM   HARDING             APR. 05, 1980  15:35:49
            5.0T4   127                       
00525/042   ELEM FUNC LIB            CDMPY#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDMPY#.SA.042(1)         219
            5.0T2   183  ELEM_FUNC_LIB.CDMPY#.SA.042        1 LINE     61    1 DISK UM   HARDING             JUNE 27, 1972  12:04.54
            5.0T4   128                       
00525/043   ELEM FUNC LIB            CDDVD#          SA  G          S1430 4.3T1 VLO FSNAME=ELEM_FUNC_LIB.CDDVD#.SA.043(1)        383
            5.0T2   184  ELEM_FUNC_LIB.CDDVD#.SA.043        1 LINE     67    1 PAGE UM   HARDING             APR. 05, 1980  15:35:51
            5.0T4   129                       
00525/044   ELEM FUNC LIB            DREAL           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DREAL.SA.044(1)          221
            5.0T2   185  ELEM_FUNC_LIB.DREAL.SA.044         1 LINE     58    1 DISK UM   HARDING             JUNE 27, 1972  12:05.00
            5.0T4   130                       
00525/045   ELEM FUNC LIB            DIMAG           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DIMAG.SA.045(1)          222
            5.0T2   186  ELEM_FUNC_LIB.DIMAG.SA.045         1 LINE     58    1 DISK UM   HARDING             JUNE 27, 1972  12:05.02
            5.0T4   131                       
00525/046   ELEM FUNC LIB            MINMAX          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.MINMAX.SA.046(1)         223
            5.0T2   187  ELEM_FUNC_LIB.MINMAX.SA.046        1 LINE     65    2 DISK UM   HARDING             JUNE 27, 1972  12:05.05
            5.0T4   132                       
0          Referenced by comments of: 525/1, 525/47 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00525/047   ELEM FUNC LIB            EFL.MACLIB      SM  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EFL.MACLIB.SM.047(1)     224
            5.0T2   188  ELEM_FUNC_LIB.EFL.MACLIB.SM.047    1 LINE     65    1 DISK UM   HARDING             JUNE 27, 1972  12:05.10
            5.0T4   133                       
0          EFL MACRO LIBRARY REQUIRED FOR ASSEMBLING COMPS (525/1) THROUGH (525/46).
0          Referenced by comments of: 525/1 
00525/048   ELEM FUNC LIB            ERRMON#         SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERRMON#.SA.048(1)        225
            5.0T2   189  ELEM_FUNC_LIB.ERRMON#.SA.048       1 LINE     70    9 PAGE UM   HARDING             JULY 28, 1977  02:09:29
            5.0T4   134                       
0          EFL ERROR MONITOR.
0          Referenced by comments of: 527/1 
00525/049   ELEM FUNC LIB            <EFL>           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.<EFL>.SA.049(1)          226
            5.0T2   190  ELEM_FUNC_LIB.<EFL>.SA.049         1 LINE     57    3 PAGE UM   HARDING             SEP. 24, 1974  09:03.35
            5.0T4   135                       
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                                                        
            5.0T2   191  ELEM_FUNC_LIB.OBJECT.OC.050        1 LINE     80   17 PAGE UM   HARDING             JULY 03, 1981  15:03:58
            5.0T4   136  SEG2:EFL             
0          OBJECT LOADED INTO SHARED VM AT IPL BY PISTLE.
           THE FOLLOWING SYMBOLS ARE ADDED TO LCSYMBOL BY PISTLE:
            
             TRACER, TRACER#, SIOC, SIOC#, SIOCP, AND <EFL>
            
           THE SYMBOL <EFL> DEFINES A SEPARATE SYMBOL TABLE WHICH CONTAINS THE ADDRESSES OF
           OF ALL THE EFL ENTRY POINTS.
0          Referenced by comments of: 526/4, 527/2 
00526/001   SIOC SUBR                                SA  G          S0564 D4T2 VLO FSNAME=SIOC_SUBR..SA.001(1)                   228
            5.0T2   192  SIOC_SUBR..SA.001                  1 LINE     80   42 PAGE UM   HARDING             JULY 28, 1977  02:09:37
            5.0T4   137                       
0          AN I/O CONVERSION PROGRAM TO PERFORM FLOATING POINT, INTEGER, LOGICAL, AND HEX CONVERSIONS.  THE CONVERSIONS
           AVAILABLE CORRESPOND TO THOSE USUALLY ASSOCIATED WITH THE D, E, F, G, I, L, AND Z FORTRAN FORMAT SPECIFICATIONS.
           THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, IS NORMALLY LOADED INTO SHARED VM.
00526/002   SIOC SUBR                                OC  G          SEG2:SIOC                                                       
            5.0T2   193  SIOC_SUBR..OC.002                  1 LINE     80    3 PAGE UM   HARDING             JULY 03, 1981  15:04:01
            5.0T4   138  SEG2:SIOC            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00526/003   SIOC SUBR                SIOCP           SA  G          S1430 4.3T1 VLO FSNAME=SIOC_SUBR.SIOCP.SA.003(1)             385
            5.0T2   194  SIOC_SUBR.SIOCP.SA.003             1 LINE     80    6 PAGE UM   HARDING             APR. 05, 1980  15:35:56
            5.0T4   139                       
0          SUBROUTINE TO TRANSLATE FORTRAN FORMAT-LIKE CHARACTER STRINGS INTO THE DATA
           BLOCK REQUIRED FOR CALLING SIOC.
00526/004   SIOC SUBR                SIOCP           OC  G        # (PART OF ELEM FUNC LIB OBJECT)                                  
                                                                                    UM   HARDING                                    
0          Part of SEG2:EFL (525/50).
00527/001   TRACER SUBR                              SA  G          S0564 D4T2 VLO FSNAME=TRACER_SUBR..SA.001(1)                 232
            5.0T2   195  TRACER_SUBR..SA.001                1 LINE     80   52 PAGE UM   HARDING             SEP. 24, 1974  09:04.21
            5.0T4   140                       
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 ELEM FUNC LIB OBJECT)                                  
                                                                                    UM   HARDING                                    
0          Part of SEG2:EFL (525/50).
00528/001A  ALGOLW                   ALGOLW          OC  G          *ALGOLW                                                         
            5.0T2   196  ALGOLW.ALGOLW.OC.001               1 LINE     24    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:04
            5.0T4   141  *ALGOLW              
0           
           ALW  *********************************************************  ALW
           ALW  *                                                       *  ALW
           ALW  *                  U N E   A L G O L  W                 *  ALW
           ALW  *                                                       *  ALW
           ALW  *********************************************************  ALW
            
            
           ALW  =========================================================  ALW
            
           Contact people:
            
               Alan Hunter
                  NUMAC Computing Service
                     Computing Laboratory
                     The University of Newcastle upon Tyne
                     NEWCASTLE   NE1 7RU
                     England
            
1                                                                                               MON AUG 05/96   18:37:45   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              Jim Bodwin 
                  Computing Center
                     The University of Michigan
                     1075 Beal Avenue
                     Ann Arbor
                     MICHIGAN  48109
                     U.S.A. 
            
           ALW  =========================================================  ALW
            
           Installation of the Algol W system from this distribution is 
           described in subcomponent (528/24).  This and all other writeups
           included with this component should be $COPied to a TN
           printer @MCC.  The ALGOLW user manual, MTS Volume 16, is 
           distributed as component (741).
            
           ALW  =========================================================  ALW
            
           All subcomponents should be restored to filenames formed from:
            
                             <subname>.<type>
            
           except (528/36), which should be restored to "MACLIB".
            
           ALW  =========================================================  ALW
            
           This subcomponent:
            
           This is the public file *ALGOLW.  It is now the only public file in
           the Algol W system,  but contains only the loader records required
           to link into the post IPL loaded system.   The compiler/monitor
           entry point name is AWDRIVER, in the post IPL Algol W system -
           subcomponent (528/2).  To install without re-assembly only
           (528/1) and (528/2) are required.
0          Referenced by comments of: 483/4, 528/1 
00528/002A  ALGOLW                   ALGOLW          OE  G          SEG2:ALGOLW                                                     
            5.0T2   197  ALGOLW.ALGOLW.OE.002               1 LINE     80  235 PAGE UNE  HUNTER    BODWIN    AUG. 06, 1981  03:49:43
            5.0T4   142  SEG2:ALGOLW          
0          Contains the re-entrant Algol W system, which may run in 
           either post-IPL loaded shared storage or in user segments.  It is
           built from the individual object decks by the set of MTS commands
           in subcomponent (528/40).
            
           To use in user segments this subcomponent should be restored and $RUN.
            
           A source file, subcomponent (528/39), may be used to transfer the
           contents of this file to the file SEG2:ALGOLW, which is normally the
           production Algol W system.
            
           The COM card defining LCSYMBOL entries is:
            COM ALGOLW01
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           This subcomponent contains the assembled object decks from the
           following source decks:
            
              DRIVER.SA   (528/14) -- Compiler system control routine
              SERVICES.SA (528/51) -- Compiler service routines
              LOADER.SA   (528/33) -- Loader for CLG / Monitor
              SCAN.S3     (528/49) -- Compiler phase A : scan
              PARSE.S3    (528/42) -- Compiler phase A : parse
              AWB.S3      (528/07) -- Compiler phase B : code generate 
              RENTALIB.SA (528/47) -- Run time initialisation and interrupt exits
              GETENV.SA   (528/20) -- ALGOL W environment getter
              IOPACK.SA   (528/27) -- I/O system entries
              SYSPACK.SA  (528/55) -- I/O system unit control
              FMTPACK.SA  (528/16) -- I/O system format routines
              BADGUYS.SA  (528/09) -- Run time error processor
              GOODGUYS.SA (528/23) -- Run time debug processor
              FUNRTNS.SA  (528/18) -- Function entries
              SHORTFNS.SA (528/53) -- Short real and complex analytic functions
              LONGFNS.SA  (528/35) -- Long real and complex analytic functions
              RECORDS.S3  (528/45) -- Record allocation
              WOLFPACK.SA (528/58) -- Keyword / expression scanner
              MTSSIM.SA   (528/38) -- MTS system interface module
              LCS.SA      (528/31) -- ALGOL W low core symbol table
              DEFAULT.SA  (791/01) -- MTS time and page limit defaults
            
           The file is terminated by the following loader cards:
            LCS            LCSYMBOL
            LDT
0          Referenced by comments of: 528/1, 528/12, 528/39, 528/40 
00528/003A  ALGOLW                   ASM             C   G          ALWB:ASM.C                                                     3
            5.0T2   198  ALGOLW.ASM.C.003                   1 LINE    114    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:20
            5.0T4   143                       
0          MTS skeleton command deck to assemble a mythical Algol W component
           "XYZ".  Copy it to a scratch file, say "-ASM", and edit/source:
            
               $EDIT -ASM :CHANGE@ALL /FILE ;XYZ;<name>;
               $SOURCE -ASM
            
           to assemble the subcomponent called <name>.
00528/004A  ALGOLW                   AWA             C   G          ALWB:AWA.C                                                     4
            5.0T2   199  ALGOLW.AWA.C.004                   1 LINE     84    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:21
            5.0T4   144                       
0          MTS commands to compile the compiler, Phase A. The scanner is in (528/49),
           and its object is in (528/48). The parser is in (528/42), and its object is
           in (528/41).
0          Referenced by comments of: 528/41, 528/48 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00528/005A  ALGOLW                   AWB             C   G          ALWB:AWB.C                                                     5
            5.0T2   200  ALGOLW.AWB.C.005                   1 LINE     70    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:22
            5.0T4   145                       
0          MTS commands to compiler the compiler, Phase B.
           The source is in (528/7), and the object is in (528/6).
0          Referenced by comments of: 528/6 
00528/006A  ALGOLW                   AWB             OC  G          ALWB:AWB.O3                                                     
            5.0T2   201  ALGOLW.AWB.OC.006                  1 LINE     80   52 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:22
            5.0T4   146                       
0          Compiler scan and parse phase object produced by (528/5) from (528/7).
0          Referenced by comments of: 528/5 
00528/007A  ALGOLW                   AWB             S3  G          ALWB:AWB.S3                                                     
            5.0T2   202  ALGOLW.AWB.S3.007                  1 LINE     72   81 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:26
            5.0T4   147                       
0          Source (PL360) for the Algol W compiler, phase B.
0          Referenced by comments of: 528/2, 528/5, 528/6 
00528/008A  ALGOLW                   BADGUYS         OC  G          ALWB:BADGUYS.OA                                                 
            5.0T2   203  ALGOLW.BADGUYS.OC.008              1 LINE     80   22 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:32
            5.0T4   148                       
0          Object deck assembled from subcomponent (528/9).
00528/009A  ALGOLW                   BADGUYS         SA  G          ALWB:BADGUYS.SA                                                 
            5.0T2   204  ALGOLW.BADGUYS.SA.009              1 LINE     72   51 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:34
            5.0T4   149                       
0          Assembler source for the Algol W run time error and exception
           processor.
            
           SD:    AWXERROR
           LD:    ** None **
0          Referenced by comments of: 528/2, 528/8, 528/59 
00528/010A  ALGOLW                   BUILD           C   G          ALWB:BUILD.C                                                  10
            5.0T2   205  ALGOLW.BUILD.C.010                 1 LINE     68    9 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:38
            5.0T4   150                       
0          Contains an MTS command deck to build the driver file for this
           distribution, from scratch, in a file called "_DRIVER".  It runs
           *DEDIT (461/1) - comments are stored in the driver file negative line range.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00528/011A  ALGOLW                   COMMON          S3  G          ALWB:COMMON.S3                                                  
            5.0T2   206  ALGOLW.COMMON.S3.011               1 LINE     72    4 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:39
            5.0T4   151                       
0          Compiler scan and parse phase : source for data segments and procedures
           common to both (528/49) and (528/42).
0          Referenced by comments of: 528/42, 528/49 
00528/012A  ALGOLW                   DECKGEN         C   G          ALWB:DECKGEN.C                                                12
            5.0T2   207  ALGOLW.DECKGEN.C.012               1 LINE    113    3 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:40
            5.0T4   152                       
0          A command deck to assemble/compile all of the object decks for the ALGOL W
           system, assuming nothing. If *ALL* of the assemblies and compilations are
           successful then (528/40) is invoked to regenerate (528/2).
0          Referenced by comments of: 528/40 
00528/013A  ALGOLW                   DRIVER          OC  G          ALWB:DRIVER.OA                                                  
            5.0T2   208  ALGOLW.DRIVER.OC.013               1 LINE     80   13 PAGE UNE  HUNTER    BODWIN    AUG. 06, 1981  03:50:19
            5.0T4   153                       
0          Object deck assembled from subcomponent (528/14).
00528/014A  ALGOLW                   DRIVER          SA  G          ALWB:DRIVER.SA                                                  
            5.0T2   209  ALGOLW.DRIVER.SA.014               1 LINE     72   38 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:42
            5.0T4   154                       
0          Assembler source for the Algol W compiler system driver routine.
           All scheduling of source programs through the compiler, and in
           CLG/Monitor mode, loading and execution of compiled programs, is 
           performed by this control section.  This includes processing of
           compiler parameters and those given on control cards.
            
           Copies GLOBALS (528/21).
            
           SD:    AWDRIVER      Compiler system (*ALW) entry point
           LD:    ** None **
0          Referenced by comments of: 528/2, 528/13, 528/21, 528/51 
00528/015A  ALGOLW                   FMTPACK         OC  G          ALWB:FMTPACK.OA                                                 
            5.0T2   210  ALGOLW.FMTPACK.OC.015              1 LINE     80   13 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:45
            5.0T4   155                       
0          Object deck assembled from subcomponent (528/16).
00528/016A  ALGOLW                   FMTPACK         SA  G          ALWB:FMTPACK.SA                                                 
            5.0T2   211  ALGOLW.FMTPACK.SA.016              1 LINE     72   50 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:47
            5.0T4   156                       
0          Assembler source for the Algol W I/O format conversion routines.
           Processes input and output data conversion.   These are stack
1                                                                                               MON AUG 05/96   18:37:45   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          linked "Q-routines".
            
           SD:    AWFMTPAK      Q-routine transfer vector
           LD:    ** None **
0          Referenced by comments of: 528/2, 528/15 
00528/017A  ALGOLW                   FUNRTNS         OC  G          ALWB:FUNRTNS.OA                                                 
            5.0T2   212  ALGOLW.FUNRTNS.OC.017              1 LINE     80    5 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:52
            5.0T4   157                       
0          Object deck assembled from subcomponent (528/18).
00528/018A  ALGOLW                   FUNRTNS         SA  G          ALWB:FUNRTNS.SA                                                 
            5.0T2   213  ALGOLW.FUNRTNS.SA.018              1 LINE     72   14 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:53
            5.0T4   158                       
0          Assembler source for the Algol W standard function entries control
           section.   Provides entries to implicit functions (powers, complex
           arithmetic, etc.) and the link through to standard functions of
           analysis provided by (528/53) and (528/35).
            
           SD:    AWFUNLIB
           LD:    AWCHKASR      Assertion check 
                  AWTIMEFN      Clock function - TIME
                  AWTRACER      Debug trace - TRACE
                  AWFMCALL      Formal call
                  AWFPARCV      Formal parameter conversion
                  AWREFCHK      Reference check
                  AWEXPNFN      Exponent function - EXPONENT
                  AWSANALF      Real analytic functions - (528/53)
                  AWLANALF      Long real analytic functions - (528/35)
                  AWSCANLF      Complex analytic functions - (528/53)
                  AWLCANLF      Long complex analytic functions - (528/35)
                  AWPOWERS      Powers evaluation
                  AWRICVFN      Real to integer conversion functions -
                                   ENTIER, ROUND, TRUNCATE
                  AWCARITH      Complex arithmetic
0          Referenced by comments of: 528/2, 528/17 
00528/019A  ALGOLW                   GETENV          OC  G          ALWB:GETENV.OA                                                  
            5.0T2   214  ALGOLW.GETENV.OC.019               1 LINE     80    6 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:55
            5.0T4   159                       
0          Object deck assembled from subcomponent (528/20).
00528/020A  ALGOLW                   GETENV          SA  G          ALWB:GETENV.SA                                                  
            5.0T2   215  ALGOLW.GETENV.SA.020               1 LINE     68   10 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:56
            5.0T4   160                       
0          Assembler source for the Algol W environment acquisition routines.
            
           SD:    AWGETENV    Non Algol W entry to Algol W
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          LD:    ALWBEG      Explicit initialization
                  ALWEND      Explicit shutdown
                  AWLINKST    Link function environment switch
0          Referenced by comments of: 528/2, 528/19 
00528/021A  ALGOLW                   GLOBALS         SA  G          ALWB:GLOBALS.SA                                                 
            5.0T2   216  ALGOLW.GLOBALS.SA.021              1 LINE     68    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:57
            5.0T4   161                       
0          This file defines three assembler variables: 
            
              &INSTALL     -- set to your installation code (e.g. 'UNE')
              &VERSION     -- set to the version identifier
                              (normally a five-character date)
              &LIBNAME     -- the current Algol W entry in LCSYMBOL
            
            
           This file is copied by (528/14) and (528/38).  Conditional assembly
           *MUST* be confined to the system interface module (528/38) *ONLY*.
           (528/14) assembles two of the variables into an 8-byte descriptor:
           CL5'&VERSION',CL3'&INSTALL'.  This appears on the END card of any
           object program generated.  It also generates the COM card for 
           PISTLE using &LIBNAME.
0          Referenced by comments of: 528/14, 528/31, 528/33, 528/38 
00528/022A  ALGOLW                   GOODGUYS        OC  G          ALWB:GOODGUYS.OA                                                
            5.0T2   217  ALGOLW.GOODGUYS.OC.022             1 LINE     80    4 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:58
            5.0T4   162                       
0          Object deck assembled from subcomponent (528/23).
00528/023A  ALGOLW                   GOODGUYS        SA  G          ALWB:GOODGUYS.SA                                                
            5.0T2   218  ALGOLW.GOODGUYS.SA.023             1 LINE     68    2 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:04:59
            5.0T4   163                       
0          Assembler source for the Algol W run time debug processor routines
           processor.  (Implementation held pending MTS community decisions.)
            
           SD:    AWXDEBUG
           LD:    not yet finalized
0          Referenced by comments of: 528/2, 528/22 
00528/024A  ALGOLW                   INSTALL         P   G          ALWB:INSTALL.P                                                21
            5.0T2   219  ALGOLW.INSTALL.P.024               1 LINE     76    3 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:00
            5.0T4   164                       
0          Print file from subcomponent (528/25). Copy to a TN printer.
0          Referenced by comments of: 528/1, 528/25 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00528/025A  ALGOLW                   INSTALL         WX  G          ALWB:INSTALL.WX                                               22
            5.0T2   220  ALGOLW.INSTALL.WX.025              1 LINE     74    3 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:01
            5.0T4   165                       
0          TEXTFORM source for:
            
              ==========================================================
              =   Algol W Installation Guide                           =
              =   by - Alan Hunter                                     =
              =   April 1970                                           =
              ==========================================================
            
           This short document describes how to install Algol W in the MTS
           operating system.  It is intended for the "keeper" of Algol W 
           at each particular installation.
           The print file is subcomponent (528/24).
0          Referenced by comments of: 528/24 
00528/026A  ALGOLW                   IOPACK          OC  G          ALWB:IOPACK.OA                                                  
            5.0T2   221  ALGOLW.IOPACK.OC.026               1 LINE     80    7 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:02
            5.0T4   166                       
0          Object deck assembled from subcomponent (528/27).
00528/027A  ALGOLW                   IOPACK          SA  G          ALWB:IOPACK.SA                                                  
            5.0T2   222  ALGOLW.IOPACK.SA.027               1 LINE     72   19 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:03
            5.0T4   167                       
0          Assembler source for the Algol W I/O system entries control section.
           Provides initial entries for all I/O entry standard procedures, and
           for string conversion functions.
            
           SD:    AWIOPACK
           LD:    AWRDEDIT      Basic input - READ, READON, READCARD
                  AWWREDIT      Basic output - WRITE, WRITEON, WRITECARD
                  AWGTEDIT      Unit input - GET, GETON
                  AWPTEDIT      Unit output - PUT, PUTON
                  AWGTCONV      Read internal string - GETSTRING
                  AWPTCONV      Write internal string - PUTSTRING
                  AWGETSTR      Unit string input - GETCARD, XGETCARD
                  AWPUTSTR      Unit string output - PUTCARD, XPUTCARD
                  AWDELETE      Unit indexed delete - XDELETE
                  AWIOSYSP      Control procedures - READER, WRITER, IOCONTROL,
                                   NEWLINE, RELEASE, PROTECT, REWIND, EMPTY,
                                   FLUSH, ATTNTRAP, OBEY, STOP
                  AWASSIGN      Unit allocation - ASSIGN
                  AWQUACON      Unit control - CONTROL, QUALIFY
                  AWSENSIO      Unit information - SENSE
                  AWSTRCVF      String conversion functions - INTBASE10, 
                                   INTBASE16, BASE10, LONGBASE10, BASE16,
                                   LONGBASE16, DATE
0          Referenced by comments of: 528/2, 528/26 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00528/028A  ALGOLW                   KXSCAN          P   G          ALWB:KXSCAN.P                                                 25
            5.0T2   223  ALGOLW.KXSCAN.P.028                1 LINE     88    6 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:05
            5.0T4   168                       
0          Print file from subcomponent (528/29). Copy to a TN printer.
0          Referenced by comments of: 528/29 
00528/029A  ALGOLW                   KXSCAN          WX  G          ALWB:KXSCAN.WX                                                26
            5.0T2   224  ALGOLW.KXSCAN.WX.029               1 LINE    102    3 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:07
            5.0T4   169                       
0          TEXTFORM source for:
            
              ==========================================================
              =   Newcastle University Computing Laboratory            =
              =   NUMAC Document S21                                   =
              =   KXSCAN - A Keyword and Expression Scanner            =
              =   by - Alan Hunter                                     =
              =   December 1979 (incomplete)                           =
              ==========================================================
            
           This document describes the KXSCAN subroutine used for all keyword
           and expression decoding within Algol W.   It is completely 
           independent of both Algol W and any operating system, and has 
           been used in the OS/MVT and OS/VS2 3.7 systems at NUMAC.
           The print file is subcomponent (528/28).
            
           Copyright:       The University of Newcastle upon Tyne
0          Referenced by comments of: 528/28 
00528/030A  ALGOLW                   LCS             OC  G          ALWB:LCS.OA                                                     
            5.0T2   225  ALGOLW.LCS.OC.030                  1 LINE     80    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:07
            5.0T4   170                       
0          Object deck assembled from subcomponent (528/31).
00528/031A  ALGOLW                   LCS             SA  G          ALWB:LCS.SA                                                     
            5.0T2   226  ALGOLW.LCS.SA.031                  1 LINE     68    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:08
            5.0T4   171                       
0          Assembler source for the ALGOL W system low core symbol table.
            
           SD:    &libname      from (528/21)  Low core symbol table
           LD:    ** None **
0          Referenced by comments of: 528/2, 528/30 
00528/032A  ALGOLW                   LOADER          OC  G          ALWB:LOADER.OA                                                  
            5.0T2   227  ALGOLW.LOADER.OC.032               1 LINE     80    5 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:09
            5.0T4   172                       
0          Object deck assembled from subcomponent (528/33).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00528/033A  ALGOLW                   LOADER          SA  S          ALWB:LOADER.SA                                                  
            5.0T2   228  ALGOLW.LOADER.SA.033               1 LINE     72   18 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:10
            5.0T4   173                       
0          Assembler source for the Algol W system loader.   Used by the 
           compiler driver to load programs compiled in CLG or Monitor mode.
            
           Copies ALWB:GLOBALS (528/21).
            
           SD:    AWLOADER      Algol W loader
           LD:    ** None **
            
0          Referenced by comments of: 528/2, 528/32 
00528/034A  ALGOLW                   LONGFNS         OC  S          ALWB:LONGFNS.OA                                                 
            5.0T2   229  ALGOLW.LONGFNS.OC.034              1 LINE     80    6 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:12
            5.0T4   174                       
0          Object deck assembled from subcomponent (528/35).
00528/035A  ALGOLW                   LONGFNS         SA  G          ALWB:LONGFNS.SA                                                 
            5.0T2   230  ALGOLW.LONGFNS.SA.035              1 LINE     72   23 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:13
            5.0T4   175                       
0          Assembler source for the Algol W short precision analytic functions.
           Code adapted from the University of Michigan Elementary Function 
           Library, which was in turn adapted from the Chicago routines.
            
           SD:    AWLRLFNS      Long real function transfer vector -
                                   LONGSQRT, LONGEXP, LONGLN, LONGLOG, LONGSIN,
                                   LONGCOS, LONGARCTAN, LONGCOT, LONGARCSIN,
                                   LONGARCCOS, LONGSINH, LONGCOSH, LONGTANH,
                                   LONGERF, LONGERFC, LONGGAMMA, LONGLNGAMMA
           LD:    AWLCXFNS      Long complex function transfer vector -
                                   LONGCXSIN, LONGCXCOS, LONGCXSQRT, LONGCXLN,
                                   LONGCXEXP 
0          Referenced by comments of: 528/2, 528/18, 528/34 
00528/036A  ALGOLW                   MACLIB          SM  G          ALWB:MACLIB.SM                                                31
            5.0T2   231  ALGOLW.MACLIB.SM.036               1 LINE     72   39 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:15
            5.0T4   176                       
0          Contains the Algol W system macro library.
0          Referenced by comments of: 528/1 
00528/037A  ALGOLW                   MTSSIM          OC  G          ALWB:MTSSIM.OA                                                  
            5.0T2   232  ALGOLW.MTSSIM.OC.037               1 LINE     80    5 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:19
            5.0T4   177                       
0          Object deck assembled from subcomponent (528/38).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00528/038A  ALGOLW                   MTSSIM          SA  G          ALWB:MTSSIM.SA                                                  
            5.0T2   233  ALGOLW.MTSSIM.SA.038               1 LINE     72   31 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:20
            5.0T4   178                       
0          Assembler source for the Algol W <--> MTS system interface
           module.   All communication between Algol W and the operating
           system is performed by calls to these entries.
            
           Copies ALWB:GLOBALS (528/21).
            
           SD:    AWMTSSIM
           LD:    AWSIMBGN      SIM initialisation 
                  AWSIMEND      SIM close down 
                  AWGTMAIN      Get main storage 
                  AWFRMAIN      Return main storage 
                  AWGTROOT      Get root dsect storage
                  AWFDROOT      Find root dsect storage
                  AWFRROOT      Free root dsect storage
                  AWERRRTN      Escape route for GETENV routines
                  AWXCLOCK      System clock 
                  AWRDRECD      Read in a record 
                  AWWRRECD      Write out a record 
                  AWWRDECK      Punch out a loader record
                  AWDSOPEN      Open a dataset 
                  AWDSCLOS      Close a dataset 
                  AWDSFREE      Free (release) a dataset 
                  AWDSRWND      Rewind a dataset 
                  AWDSUNIT      Assign a dataset to DDname 
                  AWDSCTRL      Control operation on dataset 
                  AWDSSENS      Return dataset information 
                  AWDSCLEA      Reset or empty a dataset 
                  AWCNRPLY      Query conversational
                  AWDDNAME      Get Device Definition names 
                  AWPREFIX      Set terminal prefix character 
                  AWATTNTR      Set attention interrupt exit 
                  AWPGNTTR      Set program interrupt exit 
                  AWTIMNTR      Set timer interrupt exit
                  AWSIMXIT      Escape route for compiler system
                  AWSYSCMD      Issue system command 
                  AWGETLCS      Return A(system LCS table) 
                  AWIDVLOG      Monitor ID verify and log 
                  AWEDITOR      Invoke system editor
                  AWLIBOBJ      Supply library file inclusion directive
                  AWEXLOAD      Load external object modules
                  AWCCLOOP      Supply information for page limit check 
                  AWDEFALT      Supply installation defaults
0          Referenced by comments of: 528/2, 528/21, 528/37 
00528/039A  ALGOLW                   NEWSYS          C   G          ALWB:NEWSYS.C                                                 37
            5.0T2   234  ALGOLW.NEWSYS.C.039                1 LINE     66    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:23
            5.0T4   179                       
0          This contains a set of MTS commands to change the current post-IPL
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          (production) Algol W system.  It should be sourced from the id
           "SEG2".  Be sure that you are aware of the consequences of using
           this, and that you have the permission of your local Senior
           Systems Programmer to change files on "SEG2".  The new system
           is built using *OBJUTIL (721) using the file SEG2:ALGOLW (528/2)
           as a basis.
0          Referenced by comments of: 528/2 
00528/040A  ALGOLW                   OBJBUILD        C   G          ALWB:OBJBUILD.C                                               38
            5.0T2   235  ALGOLW.OBJBUILD.C.040              1 LINE     66    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:24
            5.0T4   180                       
0          Contains an MTS command deck to set up (528/2) from the individual object
           decks. During the conversion, SYM loader cards are deleted. This file is
           copied by (528/12).
0          Referenced by comments of: 528/2, 528/12 
00528/041A  ALGOLW                   PARSE           OC  G          ALWB:PARSE.O3                                                   
            5.0T2   236  ALGOLW.PARSE.OC.041                1 LINE     80   43 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:25
            5.0T4   181                       
0          Compiler scan and parse phase object produced by (528/4) from (528/42).
0          Referenced by comments of: 528/4 
00528/042A  ALGOLW                   PARSE           S3  G          ALWB:PARSE.S3                                                   
            5.0T2   237  ALGOLW.PARSE.S3.042                1 LINE     72   73 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:28
            5.0T4   182                       
0          PL360 source for the Algol W compiler, phase A, recursive 
           descent parser. Has a $CONTINUE WITH COMMON.S3 (528/11) record.
0          Referenced by comments of: 528/2, 528/4, 528/11, 528/41 
00528/043A  ALGOLW                   RECORDS         C   G          ALWB:RECORDS.C                                                46
            5.0T2   238  ALGOLW.RECORDS.C.043               1 LINE     66    1 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:33
            5.0T4   183                       
0          Contains an MTS command deck to compile the record allocation library routine
           (528/45).
00528/044A  ALGOLW                   RECORDS         OC  G          ALWB:RECORDS.O3                                                 
            5.0T2   239  ALGOLW.RECORDS.OC.044              1 LINE     80    3 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:34
            5.0T4   184                       
0          Object deck compiled from subcomponent (528/45).
00528/045A  ALGOLW                   RECORDS         S3  G          ALWB:RECORDS.S3                                                 
            5.0T2   240  ALGOLW.RECORDS.S3.045              1 LINE     72    5 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:35
            5.0T4   185                       
0          PL360 source for the Algol W record allocation routine.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           
           SD:    AWRCALOC      Record allocator
           LD:    ** None **
0          Referenced by comments of: 528/2, 528/43, 528/44 
00528/046A  ALGOLW                   RENTALIB        OC  G          ALWB:RENTALIB.OA                                                
            5.0T2   241  ALGOLW.RENTALIB.OC.046             1 LINE     80    9 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:36
            5.0T4   186                       
0          Object deck assembled from subcomponent (528/47).
00528/047A  ALGOLW                   RENTALIB        SA  G          ALWB:RENTALIB.SA                                                
            5.0T2   242  ALGOLW.RENTALIB.SA.047             1 LINE     68   18 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:37
            5.0T4   187                       
0          Assembler source for the Algol W library root control section.
           Provides the initialization entry for the run time stytem, with
           dummy section initialization code, and also the interrupt exits.
            
           SD:    AWSYSTEM      Initial run time entry
           LD:    AWSYINIT      root dummy section initialisation
                  AWCLOSE       system close down
0          Referenced by comments of: 528/2, 528/46 
00528/048A  ALGOLW                   SCAN            OC  G          ALWB:SCAN.O3                                                    
            5.0T2   243  ALGOLW.SCAN.OC.048                 1 LINE     80   19 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:39
            5.0T4   188                       
0          Compiler scan and parse phase object produced by (528/4) from (528/49).
0          Referenced by comments of: 528/4 
00528/049A  ALGOLW                   SCAN            S3  G          ALWB:SCAN.S3                                                    
            5.0T2   244  ALGOLW.SCAN.S3.049                 1 LINE     72   27 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:41
            5.0T4   189                       
0          Source (PL360) for the Algol W compiler, phase A, scanner.
           Has a $CONTINUE WITH COMMON.S3 (528/11) record.
0          Referenced by comments of: 528/2, 528/4, 528/11, 528/48 
00528/050A  ALGOLW                   SERVICES        OC  G          ALWB:SERVICES.OA                                                
            5.0T2   245  ALGOLW.SERVICES.OC.050             1 LINE     80    8 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:43
            5.0T4   190                       
0          Object deck assembled from subcomponent (528/51).
00528/051A  ALGOLW                   SERVICES        SA  G          ALWB:SERVICES.SA                                                
            5.0T2   246  ALGOLW.SERVICES.SA.051             1 LINE     70   32 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:44
            5.0T4   191                       
0          Assembler source for the Algol W compiler service routines.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          These supply I/O and other facilities to the compiler phases. 
           Their addresses are contained in a transfer vector in (528/14).
            
           SD:    AWCSRTNS
           LD:    AWGETCRD      Source cards input 
                  AWPUTLNE      Listing/Diagnostics output 
                  AWVFLIST      Virtual file listing routines 
                  AWXRFRTN      Cross reference 
                  AWPUTCRD      Object card output 
                  AWGTSTOR      Nested storage allocation 
                  AWFRSTOR      Nested storage release 
                  AWGTTIME      Processor time clock 
                  AWPUTMSG      Messages, AWCSRTNS + AWDRIVER 
0          Referenced by comments of: 528/2, 528/50 
00528/052A  ALGOLW                   SHORTFNS        OC  G          ALWB:SHORTFNS.OA                                                
            5.0T2   247  ALGOLW.SHORTFNS.OC.052             1 LINE     80    6 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:47
            5.0T4   192                       
0          Object deck assembled from subcomponent (528/53).
00528/053A  ALGOLW                   SHORTFNS        SA  G          ALWB:SHORTFNS.SA                                                
            5.0T2   248  ALGOLW.SHORTFNS.SA.053             1 LINE     72   20 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:49
            5.0T4   193                       
0          Assembler source for the Algol W short precision analytic functions.
           Code adapted from the University of Michigan Elementary Function 
           Library (525), which was in turn adapted from the Chicago routines.
            
           SD:    AWSRLFNS      Short real function transfer vector -
                                   SQRT, EXP,LN, LOG, SIN, COS, ARCTAN, TAN,
                                   COT, ARCSIN, ARCCOS, SINH, COSH, TANH, ERF,
                                   ERFC, GAMMA, LNGAMMA
           LD:    AWSCXFNS      Short complex function transfer vector -
                                   CXSIN, CXCOS, CXSQRT, CXLN, CXEXP
0          Referenced by comments of: 528/2, 528/18, 528/52 
00528/054A  ALGOLW                   SYSPACK         OC  G          ALWB:SYSPACK.OA                                                 
            5.0T2   249  ALGOLW.SYSPACK.OC.054              1 LINE     80   14 PAGE UNE  HUNTER    BODWIN    AUG. 06, 1981  03:51:55
            5.0T4   194                       
0          Object deck assembled from subcomponent (528/55).
00528/055A  ALGOLW                   SYSPACK         SA  G          ALWB:SYSPACK.SA                                                 
            5.0T2   250  ALGOLW.SYSPACK.SA.055              1 LINE     72   33 PAGE UNE  HUNTER    BODWIN    AUG. 06, 1981  03:51:57
            5.0T4   195                       
0          Assembler source for the Algol W I/O system record and device 
           control routines.   These are stack linked "Q-routines".
            
           SD:    AWSYSPAK      Q-routine transfer vector
           LD:    AWFMSCAN      Format string decoder (O/S type I rtn)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 528/2, 528/54 
00528/056A  ALGOLW                   TESTPGMS        SW  G          ALWB:TESTPGMS.SW                                                
            5.0T2   251  ALGOLW.TESTPGMS.SW.056             1 LINE     81    7 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:57
            5.0T4   196                       
0          Contains a set of small Algol W programs to test *ALGOLW as a
           compiler (source to object deck).
           To use:   $RUN *ALGOLW SCARDS=TESTPGMS.SW
00528/057A  ALGOLW                   WOLFPACK        OC  G          ALWB:WOLFPACK.OA                                                
            5.0T2   252  ALGOLW.WOLFPACK.OC.057             1 LINE     80   11 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:05:58
            5.0T4   197                       
0          Object deck assembled from subcomponent (528/58).
00528/058A  ALGOLW                   WOLFPACK        SA  G          ALWB:WOLFPACK.SA                                                
            5.0T2   253  ALGOLW.WOLFPACK.SA.058             1 LINE     72   49 PAGE UNE  HUNTER    BODWIN    JULY 03, 1981  15:06:00
            5.0T4   198                       
0          Assembler source for the Algol W system independent subroutines.
           Provides a keyword/expression scanner and a block letter routine.
            
           SD:    AWINDRTN
           LD:    AWKXSCAN      Keyword and expression processing 
                  AWCVREAL      Convert real routine 
                  AWBLKLTR      Block letter generation 
                  AWSPACES      Stop on space table
                  AWSPACOM      Stop on space or comma table
                  AWNSPACE      Stop on not space table
                  AWNSPACM      Stop on not space or comma table
                  AWUCTOLC      Translate UC alpha to LC alpha table
                  AWATSIGN      Stop on an "@" table 
                  KXSCAN        Tourist synonym for AWKXSCAN
0          Referenced by comments of: 528/2, 528/57 
00528/059C  ALGOLW                   AWSNAP          SA  G          ALWB:SNAP.S                                                     
            5.0T2   254  ALGOLW.AWSNAP.SA.059               1 LINE     68    3 PAGE UM   BODWIN              JULY 03, 1981  15:06:08
            5.0T4   199                       
0          This subcomponent is not a part of ALGOLW, but an interface to the ALGOLW
           SNAPSHOT routine, which is part of BADGUYS (528/9). Documentation may be
           found in the source.
00528/060C  ALGOLW                   AWSNAP          OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   BODWIN                                     
0          Object part of *LIBRARY (524/1)
00528/061   ALGOLW                   *XALGOLW        OE  G        # (OBSOLETE)                                                      
            D4T2    238  ALGOLW.*XALGOLW.OE.006             1 SEQ    3402    2 PAGE UM   BODWIN              JULY 28, 1977  02:13:51
0          *XALGOLW IS NO LONGER SUPPORTED AT UM. 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00528/062   ALGOLW                   UNSP I/O        SA  G  ALIO    S1153 UNSP VLO FSNAME=ALGOLIO.S                                 
            5.0T2   255  ALGOLW.UNSP_I/O.SA.062             1 LINE     80    5 PAGE UM   UNSP                FEB. 23, 1979  04:51:31
            5.0T4   200                       
0          THE OBJECT OF THIS IS IN UNSP:LIBRARY (685/2). THIS MODULE IS USABLE, BUT 
           IT HAS BEEN OUTDATED BY NEW FEATURES OF *ALGOLW.
00529/001A  FILESTATUS COMMAND       D5.0 MASTER     SA             MTS:FSTA.S                                                      
            5.0T2   256  FILESTATUS_COMMAND..SA.001         1 LINE     79   46 PAGE UM   MTS       OGDEN     JULY 03, 1981  15:06:14
            5.0T4   201                       
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 EVEN THOUGH IT REALLY ISN'T A CLS. SEE THE
           COMMENTS FOR (509/1).
            
           COPIES *GFINFODSECT (593) AND *GDINFODSECT (594). ASSEMBLE WITH
           COPY:MTS.MACROS (344/3). REQUIRES SHARED VM SUBROUTINES JULGRGDT (522) AND
           GRGJULDT (518).
0          Referenced by comments of: 47/1, 212/1, 441/1 
00529/002C  FILESTATUS COMMAND       UPDATE          UC  G          MTS:FSTAUPD                                                     
            5.0T2   257  FILESTATUS_COMMAND..UC.002         1 LINE    114    4 PAGE UM   MTS       OGDEN     JULY 03, 1981  15:06:19
            5.0T4   202                       
0          USES D4.3 SOURCE AS BASE.
00529/003A  FILESTATUS COMMAND                       OC             *CLSFILESTATUS                                                  
            5.0T2   258  FILESTATUS_COMMAND..OC.003         1 LINE     80   17 PAGE UM   MTS       OGDEN     JULY 03, 1981  15:06:20
            5.0T4   203  *CLSFILESTATUS       
00530/001  *AMENDS                                   SA             S0564 D4T2 VLO FSNAME=AMENDS..SA.001(1)                      256
            5.0T2   259  AMENDS..SA.001                     1 LINE     80    6 PAGE UM   DWB                 JULY 28, 1977  02:17:36
            5.0T4   204                       
0          CHANGED TO PROMPT FOR OLD AND NEW COPIES IF UNITS 0 AND/OR 1 ARE NOT ASSIGNED.
00530/002  *AMENDS                                   OC             *AMENDS                                                         
            5.0T2   260  AMENDS..OC.002                     1 LINE     80    3 PAGE UM   DWB                 JULY 03, 1981  15:06:29
            5.0T4   205  *AMENDS              
00531/001A  COMMAND STATISTICS       CMDSTAT D5.0    SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=CMDSTAT                     
            5.0T4   332  COMMAND_STATISTICS.CMDSTA.SA.001   1 LINE     80    6 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:05:08
            5.0T10  236                       
0          GENERAL SYSTEM LOGGING FACILITY TO LOG ALL MTS COMMANDS, THE HASP LOG, THE
           OPERATOR'S CONSOLE LOG, UNIT AND MACHINE CHECK RECORDS, ETC.  COPIES
           COPY:CMDAREADSECT (531/19), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
            
           CURRENTLY THE FOLLOWING RECORD TYPES ARE ASSIGNED:
              TYPE 1 = MTS COMMANDS
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0                  2 = OVERFLOW
                   3 = RELOAD
                   4 = UNIT-CHECK DATA (OLD STYLE)
                   5 = END-OF-USER (HAS BEEN SIGNED-OFF)
                   6 = 3270 DSR STATISTICS
                   7 = HASP LOG
                   8 = SSRTN JOBSTA DATA
                   9 = TSFO DSR STATISTICS
                  10 = MACHINE-CHECK RECORDS
                  11 = OPERATOR CONSOLE LOG 
                  12 = EDITOR STATISTICS (UNUSED)
                  13 = LOADER STATISTICS
                  14 = PLOTTER USER STATISTICS
                  15 = SPIRES STATISTICS (UNUSED)
                  16 = MOUNT STATISTICS
                  17 = MERIT STATISTICS
                  18 = PLOTTER LOAD STATISTICS
                  19 = SSRTN SUMMARY DATA
                  20 = DISK MANAGER STATISTICS (TRAK TO START)
                  21 = HASP DEVICE STATISTICS (E.G., OMR CARDS)
                  22 = RESERVED FOR PW FAILURE STATISTICS (WORK
                           BEING DONE AT RPI)
                  23 = *STATISTICS RECORDS
                  24 = SYSTEM SOFTWARE ERROR RECORDS (UNUSED)
                  25 = UNIT CHECK
            
           RECORDS ARE LOGGED BY CALLING THE S-TYPE ENTRY TO CMDSTAT AS FOLLOWS:
                  CALL CMDSTATS,(LOC,LEN,TYPE)
           WHERE LOC IS THE LOCATION OF THE RECORD
                 LEN IS THE HALFWORD LENGTH OF THE RECORD
                 TYPE IS THE FULLWORD RECORD TYPE
           AND   RC=0 IS NORMAL
                 RC=4 MEAN ALL DROP AREAS ARE FULL; THE RECORD HAS NOT BEEN LOGGED.
0          Referenced by comments of: 42/2, 413/1, 447/1, 752/1 
00531/002A  COMMAND STATISTICS       CMDSTAT UPDATE  UC  G          MTS:CMDSTATUPD(1,99999)                                         
            5.0T4   333  COMMAND_STATISTICS.CMDSTA.UC.002   1 LINE     95    4 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:05:09
            5.0T10  237                       
0          UPDATE TO PRODUCE CURRENT SOURCE.
           UPDATE USES $CONTROL *IN* POSN=CMDSTAT. 
0          Referenced by comments of: 531/19 
00531/003A  COMMAND STATISTICS       CMDSTAT OBJECT  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
0          Referenced by comments of: 769/24 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00531/004A  COMMAND STATISTICS       CMDSTAT LIST    L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=CMDSTAT.LIST               
            5.0T4   334  COMMAND_STATISTICS.CMDSTA.L.004    1 LINE    133   39 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:05:12
            5.0T10  238                       
00531/005A  COMMAND STATISTICS       *CLN            C              *CLN                                                            
            5.0T2   261  COMMAND_STATISTICS.*CLN.C.005      1 LINE     81    1 PAGE UM   MTS       LIFT      JULY 03, 1981  15:06:30
            5.0T4   206  *CLN                 
0          COMMAND FILE TO DELETE VARIOUS OLD DATA LINES FROM INIT:UC3330LOG (621/12)
           AND INIT:MCFILE (577/10) BEFORE STARTING *CMD (531/6).  RUNS SYS:PURGE
           (739/5).  THIS FILE IS STARTED BY INIT:INITCMD (097/2).
0          Referenced by comments of: 97/2, 531/6, 739/5 
00531/006A  COMMAND STATISTICS       *CMD            C   G          *CMD                                                            
            5.0T2   262  COMMAND_STATISTICS.*CMD.C.006      1 LINE     81    1 PAGE UM   MTS       LIFT      JULY 03, 1981  15:06:31
            5.0T4   207  *CMD                 
0          WHEN THE SYSTEM IS IPLED, INIT:INITCMD (097/2) INVOKES *CLN (531/5), WHICH IN TURN INVOKES *CMD.  AFTER SIGNON,
           *CMD RUNS CMDPIKUP (531/7).  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: 531/5, 531/9, 621/12 
00531/007A  COMMAND STATISTICS       CMDPIKUP        SA  G  CMDP    SYS:CMDPIKUP(1000)                                              
            5.0T2   263  COMMAND_STATISTICS.CMDPIK.SA.007   1 LINE     80   20 PAGE UM   MTS       LIFT      JULY 03, 1981  15:06:31
            5.0T4   208  SYS:CMDPIKUP         
0          PROGRAM TO PICKUP LOG RECORDS FROM CMDSTAT AND SAVE THEM IN FILES;
           FILENAMES ARE SPECIFIED BY THE CMDDIR FILE (531/10). WHEN A FILE FILLS UP,
           CMDPIKUP USES THE SVC STRTJB TO START "MTS *DWB" (531/13) 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. UNIT CHECK RECORDS, TYPES
           4 AND 25, 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/40), AND THEN SETS THINGS UP SO A FILE-TO-TAPE TASK
           (531/13) 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). THIS PROGRAM ALSO CREATES AND FILLS FILES FOR USE BY *HLG (752/3).
            
           NOTE: THE FILE "CMDDIR" (531/10) IS REFERENCED DIRECTLY BY THIS PROGRAM.
           CMDPIKUP COPIES COPY:CMDAREADSECT (531/19), COPY:LLMPSEQU (087), COPY:GLOBALS
           (1026/3), *GFINFODSECT (593), AND *GDINFODSECT (594). ASSEMBLE USING
           COPY:MTS.MACROS (344/3) AND MTA:MCHMAC (577/5).
0          Referenced by comments of: 531/6, 531/40 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00531/008A  COMMAND STATISTICS       CMDPIKUP        OC  G          SYS:CMDPIKUP(1,999)                                             
            5.0T2   264  COMMAND_STATISTICS.CMDPIK.OC.008   1 LINE     80    7 PAGE UM   MTS       LIFT      JULY 03, 1981  15:06:35
            5.0T4   209                       
00531/009   COMMAND STATISTICS       CMDSTATLOCK     D            # SYS:CMDSTATLOCK                                                 
                                                                                    UM   MTS       LIFT                             
                         SYS:CMDSTATLOCK@E    
0          FILE USED BY *CMD (531/6) TO MAKE SURE ONLY ONE COPY AT A TIME IS RUNNING.
00531/010   COMMAND STATISTICS       SYS:CMDDIR      D              MTS:TST.CMDDIR                                                  
            5.0T2   265  COMMAND_STATISTICS.SYS:CM.D.010    1 LINE     70    1 PAGE UM   MTS       LIFT      JULY 03, 1981  15:06:39
            5.0T4   210  SYS.:CMDDIR          
0          THIS FILE SPECIFIES THE NAMES OF THE DATA FILES USED FOR DUMPING THE LOGGED RECORDS.
           IT ALSO SPECIFIES THE TAPE PARAMETERS USED FOR DUMPING EACH FILE TO TAPE WHEN FULL.
           *** WARNING ***  WHEN EDITTING THIS FILE WITH THE EDITOR, NEVER USE VISUAL MODE
                            OR THE REPLACE COMMAND SINCE THE LINES CONTAINING TAPE INFORMATION
                            HAVE HEX FIELDS WHICH WILL BE CLOBBERED.
0          Referenced by comments of: 531/7, 531/14 
00531/011   COMMAND STATISTICS       SYS:CMDSTAT1    D            # SYS:CMDSTAT1                                                    
                                                                                    UM   MTS       LIFT                             
                         SYS:CMDSTAT1@E       
00531/012   COMMAND STATISTICS       SYS:CMDSTAT2    D            # SYS:CMDSTAT2                                                    
                                                                                    UM   MTS       LIFT                             
                         SYS:CMDSTAT2@E       
00531/013A  COMMAND STATISTICS       *DWB            C   G          MTS:TST.DWB                                                     
            5.0T2   266  COMMAND_STATISTICS.*DWB.C.013      1 LINE    138    1 PAGE UM   MTS       LIFT      JULY 03, 1981  15:06:40
            5.0T4   211  *DWB                 
0          COMMAND FILE INVOKED BY CMDPIKUP TO RUN THE CMDTAPE PROGRAM (531/14) 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); ALL MERIT NETWORK USAGE STATISTICS RECORDS, TYPE 17, ON
           UNIT 17 WHICH IS ASSIGNED TO THE FILE MNET:STAT(*L+1); AND ALL HASP
           STATISTICS RECORDS, TYPE 21, ON UNIT 18, WHICH IS ASSIGNED TO THE FILE
           SYS:HASPCOUNTS(*L+1). THE FILE CMDERRORS IS REQUIRED FOR LOGGING. IT WOULD
           SEEM THAT DON COULD HAVE THOUGHT OF SOME NAME MORE ORIGINAL THAN HIS
           INITIALS. DON'S RESPONSE: "SINCE NO ONE WOULD NAME AN SVC AFTER ME, I WAS
           FORCED ... "
0          Referenced by comments of: 413/1, 531/7 
00531/014   COMMAND STATISTICS       CMDTAPE         SA  G          S1430 4.3T1 VLO FSNAME=COMMAND_STATISTICS.CMDTAP.SA.013(1)   451
            5.0T2   267  COMMAND_STATISTICS.CMDTAP.SA.014   1 LINE     72    8 PAGE UM   MTS       LIFT      APR. 05, 1980  18:06:28
            5.0T4   212                       
0          PROGRAM TO COPY CMDSTAT LOG FILES TO TAPE.  RUN BY *DWB.  NOTE:  THE
           FILES CMDDIR (531/10) AND CMDFDIR (531/16) ARE REFERENCED DIRECTLY BY
1                                                                                               MON AUG 05/96   18:37:45   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 PROGRAM. IT ALSO WRITES *PRINT* RECEIPT NUMBERS IN THE FILE
           SYS:HASPRECEIPTS (531/18) FOR THE PRINTED HASP LOG IT PRODUCES.
           COPIES COPY:CMDAREADSECT (531/19), *GDINFODSECT (594), COPY:LLMPSEQU (087),
           AND COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 531/13, 531/15, 531/16, 531/17, 531/18, 531/34 
00531/015   COMMAND STATISTICS       CMDTAPE         OC  G          SYS:CMDTAPE.O                                                   
            5.0T2   268  COMMAND_STATISTICS.CMDTAP.OC.015   1 LINE   1660    7 PAGE UM   MTS       LIFT      JULY 03, 1981  15:06:55
            5.0T4   213  SYS.:CMDTAPE.O       
0          OBJECT OF (531/14) AND (722/1).
00531/016   COMMAND STATISTICS       SYS:CMDFDIR     D            # SYS.:CMDFDIR                                                    
            D4T2    266  COMMAND_STATISTICS.SYS:CM.D.010    1 LINE      ?    1 PAGE UM   MTS       LIFT      JULY 28, 1977  02:18:13
                         SYS.:CMDFDIR@E       
0          DATA FILE, MAINTAINED BY THE CMDTAPE PROGRAM (531/14), 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/14 
00531/017   COMMAND STATISTICS       CMDERRORS       D            # SYS:CMDERRORS                                                   
                                                                                    UM   MTS       LIFT                             
                         SYS:CMDERRORS@E      
0          LOG FILE FOR CMDTAPE (531/14).
00531/018   COMMAND STATISTICS       HASP RECEIPTS   D            # SYS:HASPRECEIPTS                                                
                                                                                    UM   MTS       LIFT                             
                         SYS:HASPRECEIPTS@E   
0          LOG FILE, USED BY THE CMDTAPE PROGRAM (531/14), WHICH LOGS THE *PRINT*
           RECEIPT NUMBERS FOR THE PRINTED HASP LOGS PRODUCED BY IT.
0          Referenced by comments of: 531/14 
00531/019A  COMMAND STATISTICS       CMDAREADSECT    SA  G  CMDA    COPY:CMDAREADSECT                                               
            5.0T2   269  COMMAND_STATISTICS.CMDARE.SA.019   1 LINE     80    4 PAGE UM   MTS       LIFT      JULY 03, 1981  15:06:57
            5.0T4   214  COPY:CMDAREADSECT    
0          COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD. UPDATED USING THE
           (531/2) CDUPDATE DECK.
0          Referenced by comments of: 45/1, 46/1, 531/1, 531/7, 531/14, 531/34, 531/36, 540/10, 577/1, 621/2, 621/4, 621/8,
                 621/10, 655/4, 707/1, 707/2, 718/1, 753/1, 753/3, 787/3, 787/9, 787/11, 787/15, 787/17 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00531/020C  COMMAND STATISTICS       CMDAREADSECT    UC  G          MTS:CMDSTATUPD(100000)                                          
            5.0T2   270  COMMAND_STATISTICS.CMDARE.UC.020   1 LINE     72    4 PAGE UM   MTS       LIFT      AUG. 06, 1981  03:52:22
            5.0T4   215                       
00531/021   COMMAND STATISTICS       CHECKTIME       SA  G          S0564 D4T2 VLO FSNAME=COMMAND_STATISTICS.CHECKT.SA.014(1)    269
            5.0T2   271  COMMAND_STATISTICS.CHECKT.SA.020   1 LINE     80    5 PAGE UM   MTS       LIFT      JULY 28, 1977  02:20:53
            5.0T4   216                       
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/022   COMMAND STATISTICS       CHECKTIME       OC  G          S0564 D4T2 VLO FSNAME=COMMAND_STATISTICS.CHECKT.OC.015(1)    270
            5.0T2   272  COMMAND_STATISTICS.CHECKT.OC.021   1 LINE     80    3 PAGE UM   MTS       LIFT      JULY 28, 1977  02:20:56
            5.0T4   217                       
00531/023   COMMAND STATISTICS       CMDXTRACT       SF             S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.SF.022(1)  357
            5.0T2   273  COMMAND_STATISTICS.CMDXTR.SF.022   1 LINE     71    1 PAGE UM   MTS       LIFT      APR. 01, 1979  22:38:18
            5.0T4   218                       
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.
0          Referenced by comments of: 531/25, 531/27 
00531/024   COMMAND STATISTICS       CMDXTRACT       OC             S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.OC.023(1)  358
            5.0T2   274  COMMAND_STATISTICS.CMDXTR.OC.023   1 LINE    914    2 PAGE UM   MTS       LIFT      APR. 01, 1979  22:38:19
            5.0T4   219                       
00531/025   COMMAND STATISTICS       CMDXTRACT3      SF             S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.SF.024(1)  359
            5.0T2   275  COMMAND_STATISTICS.CMDXTR.SF.024   1 LINE     65    1 PAGE UM   MTS       LIFT      APR. 01, 1979  22:38:19
            5.0T4   220                       
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/23).
00531/026   COMMAND STATISTICS       CMDXTRACT3      OC             S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.OC.025(1)  360
            5.0T2   276  COMMAND_STATISTICS.CMDXTR.OC.025   1 LINE    778    2 PAGE UM   MTS       LIFT      APR. 01, 1979  22:38:20
            5.0T4   221                       
00531/027   COMMAND STATISTICS       CMDXTRACT4      SF             S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.SF.026(1)  361
            5.0T2   277  COMMAND_STATISTICS.CMDXTR.SF.026   1 LINE     71    2 PAGE UM   MTS       LIFT      APR. 01, 1979  22:38:21
            5.0T4   222                       
0          EXTRACTS TYPES 1 THROUGH 4 FOR A GIVEN TIME INTERVAL AND OPTIONALLY FOR A
           GIVEN USERID. RUN LIKE (531/23).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00531/028   COMMAND STATISTICS       CMDXTRACT4      OC             S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.OC.027(1)  362
            5.0T2   278  COMMAND_STATISTICS.CMDXTR.OC.027   1 LINE    954    2 PAGE UM   MTS       LIFT      APR. 01, 1979  22:38:21
            5.0T4   223                       
00531/029   COMMAND STATISTICS       PROCESSING      SF             S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.PROCES.SF.028(1)  363
            5.0T2   279  COMMAND_STATISTICS.PROCES.SF.028   1 LINE     75    9 PAGE UM   MTS       LIFT      APR. 01, 1979  22:38:22
            5.0T4   224                       
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) 
0          Referenced by comments of: 531/31 
00531/030   COMMAND STATISTICS       PROCESSING      OC             S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.PROCES.OC.029(1)  364
            5.0T2   280  COMMAND_STATISTICS.PROCES.OC.029   1 LINE  20186   11 PAGE UM   MTS       LIFT      APR. 01, 1979  22:38:23
            5.0T4   225                       
00531/031C  COMMAND STATISTICS       PROCESSING      SF             DWB:CMDPROC2(1,999)                                             
            5.0T2   281  COMMAND_STATISTICS.PROCES.SF.030   1 LINE    106    9 PAGE UM   MTS       LIFT      JULY 03, 1981  15:07:05
            5.0T4   226                       
0          THIS IS A MODIFIED VERSION OF (531/29), MODIFIED TO ACCUMULATE SET OPTIONS BY
           CLS AND TO ALLOW CHECKPOINTING AND RESTORING OF DATA WITH REMOVAL OF SOME
           OTHER STUFF.
0          Referenced by comments of: 531/38 
00531/032C  COMMAND STATISTICS       PROCESSING      OC             DWB:CMDPROC2(1000)                                              
            5.0T2   282  COMMAND_STATISTICS.PROCES.OC.031   1 LINE  20398   18 PAGE UM   MTS       LIFT      JULY 03, 1981  15:07:11
            5.0T4   227                       
00531/033   COMMAND STATISTICS       SCANCMD         SA           # (OBSOLETE)                                                      
            D3.2T1  435  COMMAND_STATISTICS.SCANCMD.SA.22   1 LINE     80    7 PAGE UM   MTS       LIFT      MAR. 21, 1975  01:49:37
00531/034A  COMMAND STATISTICS       SELECTCMD       SA  G  SELC    MTS:SELECTCMD(1,999)                                            
            5.0T2   283  COMMAND_STATISTICS.SELECT.SA.033   1 LINE     80    6 PAGE UM   MTS       LIFT      JULY 03, 1981  15:07:16
            5.0T4   228  MTS.:SELECTCMD       
0          PROGRAM TO RETRIEVE DATA FROM CMDSTAT TAPES USING DIRECTORY BUILT BY CMDTAPE (531/14).
           CALLS READBFR ROUTINE (709).  COPIES COPY:CMDAREADSECT (531/19).
0          Referenced by comments of: 709/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00531/035A  COMMAND STATISTICS       SELECTCMD       OC  G          MTS:SELECTCMD(1000)                                             
            5.0T2   284  COMMAND_STATISTICS.SELECT.OC.034   1 LINE   1450    3 PAGE UM   MTS       LIFT      JULY 03, 1981  15:07:17
            5.0T4   229                       
00531/036   COMMAND STATISTICS       CMDUTIL         SA  G          S1430 4.3T1 VLO FSNAME=COMMAND_STATISTICS.CMDUTI.SA.033(1)   454
            5.0T2   285  COMMAND_STATISTICS.CMDUTI.SA.035   1 LINE     80    9 PAGE UM   MTS       LIFT      APR. 05, 1980  18:06:37
            5.0T4   230                       
0          PROGRAM TO PRINT OR COPY (OR BOTH) COMMAND STATISTICS RECORDS BASED ON RECORD
           TYPES.  THIS PROGRAM REPLACES AND EXTENDS CMDAREAPRINT.  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/19).
00531/037   COMMAND STATISTICS       CMDUTIL         OC  G          S1430 4.3T1 VLO FSNAME=COMMAND_STATISTICS.CMDUTI.OC.034(1)   455
            5.0T2   286  COMMAND_STATISTICS.CMDUTI.OC.036   1 LINE     80    4 PAGE UM   MTS       LIFT      APR. 05, 1980  18:06:40
            5.0T4   231                       
00531/038C  COMMAND STATISTICS       CMDUTIL         P              S0683 OGDEN FSNAME=SYS:CMD1980PRINT                             
            5.0T2   287  COMMAND_STATISTICS.CMDUTI.P.037    1 LINE    139  348 PAGE UM   MTS       LIFT      APR. 03, 1981  16:12:20
            5.0T4   232                       
0          THIS IS THE OUTPUT OF (531/31) FOR ALL OF JANUARY 1980. (JAN. 1980 WAS
           8052208 RECORDS.)
00531/039C  COMMAND STATISTICS       CMDUTIL         D              S0683 OGDEN FSNAME=SYS:CMD1980CHKP                              
            5.0T2   288  COMMAND_STATISTICS.CMDUTI.D.038    1 LINE  32764  781 PAGE UM   MTS       LIFT      APR. 03, 1981  16:10:13
            5.0T4   233                       
0          THIS IS THE CHECKPOINT FILE FOR ALL OF JANUARY 1980.
00531/040   COMMAND STATISTICS       CARE & FEEDING  WF             DIST:CS.CF                                                      
            5.0T2   289  COMMAND_STATISTICS.CARE_&.WF.039   1 LINE    112    3 PAGE UM   MTS       LIFT      JULY 03, 1981  15:14:59
            5.0T4   234                       
0          WRITEUP DESCRIBING NORMAL BEHAVIOR OF COMMAND STATISTICS PICKUP AND WHAT TO
           DO WHEN ABNORMALITIES OCCUR.  THE CMDPIKUP PROGRAM (531/7) 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.
0          Referenced by comments of: 531/7 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00532/001A *PLOTSEE                                  SA  G          GRAF:PLOTSEE.S                                                  
            5.0T2   290  PLOTSEE..SA.001                    1 LINE     95   16 PAGE UM   BURLING             JULY 03, 1981  15:14:59
            5.0T4   235                       
0          PLOT PREVIEWING PROGRAM.  USER OF ANY *IG-SUPPORTED DISPLAY CAN VIEW PDS PLOT
           FILES PRODUCED VIA *PLOTSYS.  HAS "WINDOWING" FACILITY.  USES PLOT SYSTEM
           ROUTINE PSYM (615/5) ASSEMBLED WITH THE &WHAT SETC SYMBOL SET TO 'IG'.
00532/002A *PLOTSEE                                  OE  G          *PLOTSEE                                                        
            5.0T2   291  PLOTSEE..OE.002                    1 LINE   7512   10 PAGE UM   BURLING             JULY 03, 1981  15:15:10
            5.0T4   236  *PLOTSEE             
0          CONTAINS A "$CONTINUE WITH *IG" LINE.
00533/001  *FRISK                                    SA           # (OBSOLETE)                                                      
            D4T2    284  FRISK.MAIN.SA.001                  1 LINE     72   44 PAGE UBC                      JULY 18, 1977  15:53:27
0          Obsoleted by *FTNTIDY (727).
0          Referenced by comments of: 727/1 
00534/001   TMTS                     FAKE JOB-PGM    SA  G          MTS:TMTSFAKE(1,999)                                             
            5.0T2   292  TMTS.FAKE_JOB-PGM.SA.001           1 LINE     59    1 PAGE UM   MTA                 JULY 03, 1981  15:15:11
            5.0T4   237  MTS.:TMTSFAKE        
0          DUMMY JOB PROGRAM POINTED TO BY TMTS JOB LIST ENTRY, PART OF JOBLIST (003).
00534/002   TMTS                     FAKE JOB-PGM    OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00534/003A  TMTS                     LOADMTS         SA  G          TMTS:LOADMTS(2000)                                              
            5.0T2   293  TMTS.LOADMTS.SA.003                1 LINE     71    9 PAGE UM   JWS                 JULY 03, 1981  15:15:12
            5.0T4   238  TMTS:LOADMTS         
0          PROGRAM TO LOAD A TEST VERSION OF MTS AND FRIENDS INTO SHARED VM AND PLANT THE ENTRY POINT IN THE TMTS JOB LIST ENTRY.
            
           I/O UNIT USAGE:     GUSER - FOR USER INPUT
                               SERCOM - FOR PROMPTING
                               SPRINT - MAP, MESSAGES, AND EVERYTHING WRITTEN ON SERCOM
            
           TWO PARAMETERS MAY BE GIVEN:  PAR=TEST (THE DEFAULT) MEANS LOAD THE TEST SYSTEM INTO PRIVATE
                                         VM AND DON'T CHANGE THE ENTRY POINT IN THE TMTS JOB LIST,
                                         PAR=NOTEST MEANS LOAD THE TEST SYSTEM INTO SHARED VM AND
                                         CHANGE THE TMTS JOB LIST ENTRY POINT.
            
           THE PROGRAM FINDS THE FIRST UNUSED ADDRESS IN SHARED VM USING ENDSEG2 AND ASKS IF IT
           IS OK TO START LOADING THERE.  REPLY "OK" OR WITH A NEW ADDRESS IN SHARED VM.
            
           THE PROGRAM PROMPTS FOR THE NAME OF A FILE TO LOAD FROM, WHICH SHOULD CONTAIN THOSE
           PARTS OF THE SYSTEM TO BE TESTED, BUT MUST CONTAIN AT LEAST THE FOLLOWING:
            
             MTS, MTS SUBRS (GETSPACE/FREESPAC, GUINFO/CUINFO, PLIMIT, LLXU, TIMER, CMDS, RSF,
1                                                                                               MON AUG 05/96   18:37:45   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            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/4) NOR TABLRTN (482/34) SHOULD BE INCLUDED.
            
           COPIES *CNFGINFODSECT (654).
00534/004A  TMTS                     LOADMTS         OC  G          TMTS:LOADMTS(1,1999)                                            
            5.0T2   294  TMTS.LOADMTS.OC.004                1 LINE   3731    4 PAGE UM   MTA                 JULY 03, 1981  15:15:14
            5.0T4   239                       
00534/005A  TMTS                     TMTSLIB         OL  O          TMTS:TMTSLIB                                                    
            5.0T2   295  TMTS.TMTSLIB.OL.005                1 LINE  32767  103 PAGE UM   JWS                 JULY 03, 1981  15:15:15
            5.0T4   240  TMTS:TMTSLIB         
0          THIS IS A SPECIAL (AND NOT CURRENT) 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
0          Referenced by comments of: 534/6 
00534/006   TMTS                     POSTIPL         C   G          TMTS:POSTIPL                                                    
            5.0T2   296  TMTS.POSTIPL.C.006                 1 LINE     82    1 PAGE UM   JWS                 JULY 03, 1981  15:15:21
            5.0T4   241  TMTS:POSTIPL         
0          LINES 1 TO 9 OF THIS FILE CONTAIN COMMANDS TO RUN PISTLE TO LOAD SEG2:TIME
           (360) INTO SHARED VM AND DEFINE ITS 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. IT ALSO CONTAINS $CONTINUE WITH TMTS:TMTSLIB (534/5) AND
           $CONTINUE WITH COPY:SYSDEFS (579/3) RECORDS. THE PROCEDURE IS TO FIRST LOAD
           TMTS, START A TMTS TASK, SIGNON, AND $SOURCE TO THIS COMMAND FILE.
00535/001   CLS INTERFACE            CLS DRIVER PGM  SA  O  DRIV    W059:MTSSOU                                                     
            5.0T2   297  CLS_INTERFACE.CLS_DRIVER.SA.001    1 LINE     80   49 PAGE UM   VALERIO             JULY 03, 1981  15:15:21
            5.0T4   242                       
0          PROGRAM TO FAKE AN MTS/CLS INTERFACE FOR DEBUGGING A NEW CLS.  SINCE
           IT EXECUTES AS A NORMAL PROGRAM, SDS CAN BE USED IN THE DEBUGGING.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00535/002   CLS INTERFACE            CLS DRIVER PGM  OC  O          W059:MTS.O                                                      
            5.0T2   298  CLS_INTERFACE.CLS_DRIVER.OC.002    1 LINE     80    9 PAGE UM   VALERIO             JULY 03, 1981  15:15:25
            5.0T4   243                       
00535/003A  CLS INTERFACE            GOM T/V DSECT   SG  G          COPY:CLSTV.SG                                                   
            5.0T4   335  CLS_INTERFACE.GOM_T/V_DSE.SG.003   1 LINE     82    3 PAGE UM   MTS       OGDEN     AUG. 09, 1981  23:05:13
            5.0T10  239  COPY:CLSTV.SG        
0          THIS IS THE GOM EQUIVALENT OF THE CLSTV MACRO IN MTS.MACROS (344/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 659/80, 659/83 
00536/001  *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)                                               
            5.0T2   299  COBOLU.EXECUTOR.SA.001             1 LINE     80    4 PAGE UM   H YOUNG             JULY 03, 1981  15:15:27
            5.0T4   244                       
0          THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM.
           COPIES FAKEOS.GBLS (545/19).  ASSEMBLE USING *SYSMAC.
00538/002  *COBOLU                   EXECUTOR        OE  G          *COBOLU                                                         
            5.0T2   300  COBOLU.EXECUTOR.OE.002             1 LINE    746    1 PAGE UM   H YOUNG             JULY 03, 1981  15:15:28
            5.0T4   245  *COBOLU              
00538/003  *COBOLU                   BLDLIN          D              MTA:COBOL.BLDLIN                                                
            5.0T2   301  COBOLU.BLDLIN.D.003                1 LINE     44    1 PAGE UM   H YOUNG             JULY 03, 1981  15:15:29
            5.0T4   246                       
0          SCARDS INPUT TO CREBLDL (545/42) TO BUILD (538/4).
00538/004  *COBOLU                   BLDL            D              ETC:COBOL.BLDL                                                  
            5.0T2   302  COBOLU.BLDL.D.004                  1 SEQ     238    1 PAGE UM   H YOUNG             JULY 03, 1981  15:15:30
            5.0T4   247  ETC.:COBOL.BLDL      
0          Referenced by comments of: 538/3 
00538/005  *COBOLU                   IKFCBL00        OE  O          ETC:IKFCBL00                                                    
            5.0T2   303  COBOLU.IKFCBL00.OE.005             1 SEQ    1024    4 PAGE UM   H YOUNG             JULY 03, 1981  15:15:31
            5.0T4   248  ETC.:IKFCBL00        
0          COMPONENTS (538/5) THROUGH (538/16) ARE THE UNMODIFIED OS/360 OBJECT FOR THE
           ANSI COBOL COMPILER RELEASE 21.6, VERSION 2.
0          Referenced by comments of: 538/5 
00538/006  *COBOLU                   IKFCBL01        OE  O          ETC:IKFCBL01                                                    
            5.0T2   304  COBOLU.IKFCBL01.OE.006             1 SEQ    6144    5 PAGE UM   H YOUNG             JULY 03, 1981  15:15:31
            5.0T4   249  ETC.:IKFCBL01        
0          OBJECT HAS REP CARDS TO CHANGE DEFAULT PAR FIELD, AMONG OTHER THINGS.
00538/007  *COBOLU                   IKFCBL1B        OE  O          ETC:IKFCBL1B                                                    
            5.0T2   305  COBOLU.IKFCBL1B.OE.007             1 SEQ    1024    7 PAGE UM   H YOUNG             JULY 03, 1981  15:15:32
            5.0T4   250  ETC.:IKFCBL1B        
00538/008  *COBOLU                   IKFCBL10        OE  O          ETC:IKFCBL10                                                    
            5.0T2   306  COBOLU.IKFCBL10.OE.008             1 SEQ    1024   12 PAGE UM   H YOUNG             JULY 03, 1981  15:15:33
            5.0T4   251  ETC.:IKFCBL10        
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00538/009  *COBOLU                   IKFCBL20        OE  O          ETC:IKFCBL20                                                    
            5.0T2   307  COBOLU.IKFCBL20.OE.009             1 SEQ    1024   13 PAGE UM   H YOUNG             JULY 03, 1981  15:15:34
            5.0T4   252  ETC.:IKFCBL20        
00538/010  *COBOLU                   IKFCBL30        OE  O          ETC:IKFCBL30                                                    
            5.0T2   308  COBOLU.IKFCBL30.OE.010             1 SEQ    1024    4 PAGE UM   H YOUNG             JULY 03, 1981  15:15:35
            5.0T4   253  ETC.:IKFCBL30        
00538/011  *COBOLU                   IKFCBL40        OE  O          ETC:IKFCBL40                                                    
            5.0T2   309  COBOLU.IKFCBL40.OE.011             1 SEQ    1024   11 PAGE UM   H YOUNG             JULY 03, 1981  15:15:36
            5.0T4   254  ETC.:IKFCBL40        
00538/012  *COBOLU                   IKFCBL50        OE  O          ETC:IKFCBL50                                                    
            5.0T2   310  COBOLU.IKFCBL50.OE.012             1 SEQ    1024    9 PAGE UM   H YOUNG             JULY 03, 1981  15:15:37
            5.0T4   255  ETC.:IKFCBL50        
00538/013  *COBOLU                   IKFCBL51        OE  O          ETC:IKFCBL51                                                    
            5.0T2   311  COBOLU.IKFCBL51.OE.013             1 SEQ    1024   10 PAGE UM   H YOUNG             JULY 03, 1981  15:15:37
            5.0T4   256  ETC.:IKFCBL51        
00538/014  *COBOLU                   IKFCBL6A        OE  O          ETC:IKFCBL6A                                                    
            5.0T2   312  COBOLU.IKFCBL6A.OE.014             1 SEQ    1024    1 PAGE UM   H YOUNG             JULY 03, 1981  15:15:38
            5.0T4   257  ETC.:IKFCBL6A        
00538/015  *COBOLU                   IKFCBL60        OE  O          ETC:IKFCBL60                                                    
            5.0T2   313  COBOLU.IKFCBL60.OE.015             1 SEQ    1024    8 PAGE UM   H YOUNG             JULY 03, 1981  15:15:39
            5.0T4   258  ETC.:IKFCBL60        
00538/016  *COBOLU                   IKFCBL70        OE  O          ETC:IKFCBL70                                                    
            5.0T2   314  COBOLU.IKFCBL70.OE.016             1 SEQ    1024   13 PAGE UM   H YOUNG             JULY 03, 1981  15:15:40
            5.0T4   259  ETC.:IKFCBL70        
0          Referenced by comments of: 538/5 
00538/017A *COBOLU                   *COBLIB         OL  O          *COBLIB                                                         
            5.0T2   315  COBOLU.*COBLIB.OL.017              1 SEQ    1368    9 PAGE UM   H YOUNG             JULY 03, 1981  15:15:41
            5.0T4   260  *COBLIB              
0          OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY.
           NOTE:  *GENLIB COMPLAINS ABOUT THIS (MULTIPLY DEFINED SYMBOLS).  IGNORE IT.
00538/018  *COBOLU                   TEST PGM #1     SC             MTA:COBTEST                                                     
            5.0T2   316  COBOLU.TEST_PGM_#1.SC.018          1 LINE     67    1 PAGE UM   H YOUNG             JULY 03, 1981  15:15:42
            5.0T4   261                       
0          TEST PROGRAM.
00538/019  *COBOLU                   TEST PGM #2     SC             MTA:COBTEST2                                                    
            5.0T2   317  COBOLU.TEST_PGM_#2.SC.019          1 LINE     73    4 PAGE UM   H YOUNG             JULY 03, 1981  15:15:42
            5.0T4   262                       
0          ANOTHER TEST PROGRAM.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00538/020  *COBOLU                   TEST PGM #3     SC             MTA:COBTEST3                                                    
            5.0T2   318  COBOLU.TEST_PGM_#3.SC.020          1 LINE     59    1 PAGE UM   H YOUNG             JULY 03, 1981  15:15:43
            5.0T4   263                       
0          TESTS THE SORT VERB.
00539/001A  TIMNTRP                  D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=TIMT                        
            5.0T4   336  TIMNTRP.D5.0_MASTER.SA.001         1 LINE     80   26 PAGE UM   MTS       MTA       AUG. 09, 1981  23:05:30
            5.0T10  240                       
0          MTS TIMER INTERRUPT ROUTINES (USER CALLABLE):  SETIME, RSTIME, GETIME, AND TIMNTRP.
           ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND COPY:FILE.MACROS
           (482/45). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
0          Referenced by comments of: 42/2 
00539/002A  TIMNTRP                  UPDATE          UC  G          MTS:TIMTUPD                                                     
            5.0T4   337  TIMNTRP.UPDATE.UC.002              1 LINE     79    7 PAGE UM   MTS       MTA       AUG. 09, 1981  23:05:31
            5.0T10  241                       
0          UPDATE TO D4.0 TO PRODUCE D5.0 SOURCE.
           UPDATE USES $CONTROL *IN* POSN=TIMT.
00539/003A  TIMNTRP                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       MTA                              
0          Object part of Resident System (468)
00539/004A  TIMNTRP                                  L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=TIMT.LIST                  
            5.0T4   338  TIMNTRP..L.004                     1 LINE    133   71 PAGE UM   MTS       MTA       AUG. 09, 1981  23:05:57
            5.0T10  242                       
00539/005   TIMNTRP                  TEST PROGRAM    SA  O          S0564 D4T2 VLO FSNAME=TIMNTRP.TEST_PROGRAM.SA.007(1)         323
            5.0T2   319  TIMNTRP.TEST_PROGRAM.SA.005        1 LINE     80    6 PAGE UM   MTS       MTA       JULY 28, 1977  02:37:30
            5.0T4   264                       
0          DRIVER FOR TESTING TIMER ROUTINES.
00539/006   TIMNTRP                  TEST PROGRAM    OC  O          S0564 D4T2 VLO FSNAME=TIMNTRP.TEST_PROGRAM.OC.008(1)         324
            5.0T2   320  TIMNTRP.TEST_PROGRAM.OC.006        1 LINE     80    3 PAGE UM   MTS       MTA       JULY 28, 1977  02:37:32
            5.0T4   265                       
0          Referenced by comments of: 539/7 
00539/007C  TIMNTRP                  TEST PGM INPUT  D   O          S0938 FSAVE2 VLO FSNAME=TESTTI.INPUT                            
            5.0T2   321  TIMNTRP.TEST_PGM_INPUT.D.007       1 LINE     75    1 PAGE UM   MTS       MTA       MAY  06, 1981  02:53:31
            5.0T4   266                       
0          Input to (539/6) to test real time waits, intended to test SDS's (600)
           handling of timer interrupts.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00540/001A  SYSTEM WATCHERS          PDPBUG          SA  G          MTA:PDPBUG(1000)                                                
            5.0T4   339  SYSTEM_WATCHERS.PDPBUG.SA.001      1 LINE     68    4 PAGE UM   MTA                 AUG. 09, 1981  23:05:59
            5.0T10  243  MTA.:PDPBUG          
0          THIS COMPONENT CONSISTS OF PROGRAMS WHICH MONITOR THE ACTIVITY OF VARIOUS PARTS
           OF THE SYSTEM.
            
           PDPBUG IS A PROGRAM TO PRINT STATISTICS ABOUT SYSTEM PAGING.  COMMENTS IN THE SOURCE
           CODE DESCRIBE THE OUTPUT.  MUST BE RE-ASSEMBLED IF THE PDP IS RE-ASSEMBLED.
           THE ITEMS TO BE CHANGED ARE DOCUMENTED IN SOURCE COMMENTS.  COPIES COPY:LLMPSEQU(100)
           (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654).  ASSEMBLE WITH 
           COPY:SETPARM (653).
00540/002A  SYSTEM WATCHERS          PDPBUG          OC  G          MTA:PDPBUG(1,999)                                               
            5.0T4   340  SYSTEM_WATCHERS.PDPBUG.OC.002      1 LINE     80    3 PAGE UM   MTA                 AUG. 09, 1981  23:06:02
            5.0T10  244                       
00540/003A  SYSTEM WATCHERS          PRNTCNTS        SA  G          MTA:PRNTCNTS(1000)                                              
            5.0T4   341  SYSTEM_WATCHERS.PRNTCNTS.SA.003    1 LINE     74   12 PAGE UM   MTA                 AUG. 21, 1981  06:43:02
            5.0T10  245  MTA.:PRNTCNTS        
0          PROGRAM TO PRINT ALL SORTS OF COUNTS AND TIMES FROM THE PDP (044) AND SUPERVISOR (045).  IT MUST BE REASSEMBLED
           WHENEVER EITHER THE PDP OR UMMPS CHANGES BECAUSE OF THE MANY SYMBOLS OF THE FORM "DISPN EQU X" WHICH GIVE THE LOCATIONS
           OF THE COUNTS IN THE PDP AND SUPERVISOR.  ASSEMBLE USING *SYSMAC.
           COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162).
0          Referenced by comments of: 604/1 
00540/004A  SYSTEM WATCHERS          PRNTCNTS        OC  G          MTA:PRNTCNTS(1,999)                                             
            5.0T4   342  SYSTEM_WATCHERS.PRNTCNTS.OC.004    1 LINE     80    9 PAGE UM   MTA                 AUG. 21, 1981  06:43:16
            5.0T10  246                       
00540/005   SYSTEM WATCHERS          HOGS CMDS       C              *HGS                                                            
            5.0T4   343  SYSTEM_WATCHERS.HOGS_CMDS.C.005    1 LINE     40    1 PAGE UM   MTA                 AUG. 09, 1981  23:06:24
            5.0T10  247  *HGS                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE HOGS PROGRAM (540/6) TO FIND
           OUT WHICH JOBS ARE USING THE MOST CPU TIME, VM, AND DRUM READS.
00540/006A  SYSTEM WATCHERS          HOGS            SA  G          MTA:HOGS(1000)                                                  
            5.0T4   344  SYSTEM_WATCHERS.HOGS.SA.006        1 LINE     73    4 PAGE UM   MTA                 AUG. 09, 1981  23:06:24
            5.0T10  248  MTA.:HOGS            
0          PROGRAM TO FIND THE JOBS WHICH ARE USING THE MOST CPU TIME, VM, AND DRUM READS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:SETPARM
           (653).
0          Referenced by comments of: 540/5 
00540/007A  SYSTEM WATCHERS          HOGS            OC  G          MTA:HOGS(1,999)                                                 
            5.0T4   345  SYSTEM_WATCHERS.HOGS.OC.007        1 LINE     80    3 PAGE UM   MTA                 AUG. 09, 1981  23:06:26
            5.0T10  249                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00540/008A  SYSTEM WATCHERS          LOADCLAS        SA  G          MTS:LOADCLAS(1000)                                              
            5.0T4   346  SYSTEM_WATCHERS.LOADCLAS.SA.008    1 LINE     73    7 PAGE UM   MTA                 AUG. 09, 1981  23:06:27
            5.0T10  250                       
0          PROGRAM TO CALL TASKSTAT (647) FOR EVERY JOB IN THE SYSTEM EVERY 30 SECONDS AND
           SUMMARIZE THE RESULTS.  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).
           ASSEMBLE USING COPY:MISC.MACROS (728).
0          Referenced by comments of: 400/1, 647/1 
00540/009A  SYSTEM WATCHERS          LOADCLAS        OC  G          MTS:LOADCLAS(1,999)                                             
            5.0T4   347  SYSTEM_WATCHERS.LOADCLAS.OC.009    1 LINE     80    5 PAGE UM   MTA                 AUG. 09, 1981  23:06:31
            5.0T10  251  MTS:LOADCLAS         
00540/010A  SYSTEM WATCHERS          DBJP            SA  G          MTS:DBJP(1000)                                                  
            5.0T4   348  SYSTEM_WATCHERS.DBJP.SA.010        1 LINE     73    4 PAGE UM   OGDEN               AUG. 09, 1981  23:06:34
            5.0T10  252  MTS.:DBJP            
0          PROGRAM TO DISPLAY BIG JOB PARAMETERS (AND OTHER STUFF).  EVERY 20 SECONDS
           IT PRINTS STATISTICS RELATING TO THE SYSTEM LOAD.  IF SCARDS IS EXPLICITLY
           ASSIGNED, THEN TYPE 8 CMDSTAT RECORDS GENERATED BY SSRTN (413) ARE USED TO
           GENERATE THE STATISTICS.  OTHERWISE, THE INCORE JOBSTA VECTOR (413/7) IS
           USED AS THE SOURCE OF INFORMATION.  DBJP CAN ALSO BE USED TO TEST NEW
           VERSION OF BJPMOD (650) BY CONCATENATING DBJP TO THE NEW BJPMOD OBJECT
           (BJPMOD MUST PRECEDE DBJP).  COPIES COPY:GLOBALS (1026/3), COPY:JOBSTA
           (413/9), COPY:BJPDSCT (650/3), COPY:CMDAREADSECT (531/19), *GDINFODSECT
           (594), AND *CNFGINFODSECT (654).
00540/011A  SYSTEM WATCHERS          DBJP            OC  G          MTS:DBJP(1,999)                                                 
            5.0T4   349  SYSTEM_WATCHERS.DBJP.OC.011        1 LINE   1818    3 PAGE UM   OGDEN               AUG. 09, 1981  23:06:37
            5.0T10  253                       
00540/012A  SYSTEM WATCHERS          DPBJ            SA  G          MTS:DPBJ(1000)                                                  
            5.0T4   350  SYSTEM_WATCHERS.DPBJ.SA.012        1 LINE     73    3 PAGE UM   MTA                 AUG. 09, 1981  23:06:38
            5.0T10  254  MTS:DPBJ             
0          EVERY 20 SECONDS, THIS PROGRAM PRINTS THE NUMBER OF JOBS, IN EACH OF 4 CATEGORIES,
           THAT HAVE USED ANY CPU TIME IN THE PREVIOUS 20 SECONDS.  THE CATEGORIES ARE
           DETERMINED BY WHETHER THE JOB IS PAGING BOUND AND WHETHER IT IS OVER THE BIG
           JOB THRESHOLD, "BIGJTH".  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
00540/013A  SYSTEM WATCHERS          DPBJ            OC  G          MTS:DPBJ(1,999)                                                 
            5.0T4   351  SYSTEM_WATCHERS.DPBJ.OC.013        1 LINE   1268    2 PAGE UM   MTA                 AUG. 09, 1981  23:06:40
            5.0T10  255                       
00540/014A  SYSTEM WATCHERS          DRUMSTAT        SA  O          MTA:DRUMSTAT(1000)                                              
            5.0T4   352  SYSTEM_WATCHERS.DRUMSTAT.SA.014    1 LINE     72    3 PAGE UM   MTA                 AUG. 09, 1981  23:06:41
            5.0T10  256  MTA.:DRUMSTAT        
0          EVERY 30 SECONDS, THIS PROGRAM PRINTS DRUMIN, DRUMOUT, DISKIN, DISKOUT, LOOPS,
           NRP (NUMBER OF RELEASED PAGES), SKPREAD (NUMBER OF READS SKIPPED TO WAIT FOR MORE
           WORK), NCP (NUMBER OF CHANNEL PROGRAMS), NWPD (NUMBER OF WRITE PAGES DISCARDED,
           I.E. UNCHANGED), NGWP (NUMBER OF PAGES FROM GETWP), NOXACNT (NUMBER OF PAGES ON
           PIQ WITH NO EXTERNAL ADDRESS), PI/LOOP (PAGE INS PER LOOP), PI/CP, T/LOOP (TIME
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          PER LOOP), T/PI, T/CP, AND %SS (PERCENT SUPERVISOR STATE) FOR THE PDP.
00540/015A  SYSTEM WATCHERS          DRUMSTAT        OC  O          MTA:DRUMSTAT(1,999)                                             
            5.0T4   353  SYSTEM_WATCHERS.DRUMSTAT.OC.015    1 LINE     80    2 PAGE UM   MTA                 AUG. 09, 1981  23:06:42
            5.0T10  257                       
00540/016A  SYSTEM WATCHERS          GTUNIT CMDS     C              *GTU                                                            
            5.0T4   354  SYSTEM_WATCHERS.GTUNIT_CM.C.016    1 LINE     29    1 PAGE UM   OGDEN               AUG. 09, 1981  23:06:44
            5.0T10  258  *GTU                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE GTUNIT PROGRAM (540/17) AND
           (540/18) TO PRINT THE NUMBER OF GTUNIT WAITS FOR EACH PUBLIC DISK VOLUME
           EVERY 20 SECONDS.
00540/017   SYSTEM WATCHERS          GTUNIT MAIN     SG  G          S1143 D4.1T1 VLO FSNAME=SYSTEM_WATCHERS.GTUNIT_MA.SG.015(1)  305
            5.0T4   355  SYSTEM_WATCHERS.GTUNIT_MA.SG.017   1 LINE     44    1 PAGE UM   OGDEN               NOV. 10, 1977  20:40:15
            5.0T10  259                       
0          MAIN PROGRAM TO CALL THE GTUNIT SUBR (540/18) EVERY 20 SECONDS.  CALLS THE PAR
           (687/1) AND ATRAP (689/1) SUBROUTINES.
0          Referenced by comments of: 540/16, 540/19 
00540/018   SYSTEM WATCHERS          GTUNIT SUBR     SA  G          S1143 D4.1T1 VLO FSNAME=SYSTEM_WATCHERS.GTUNIT_SU.SA.016(1)  306
            5.0T4   356  SYSTEM_WATCHERS.GTUNIT_SU.SA.018   1 LINE     80    4 PAGE UM   OGDEN               FEB. 03, 1978  15:16:59
            5.0T10  260                       
0          SUBROUTINE TO COUNT THE NUMBER OF GTUNIT WAITS OUTSTANDING FOR EACH PUBLIC
           DISK VOLUME, AND PRINT THE NON-ZERO RESULTS ON SPRINT.  CALLS TASKSTAT (647).
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:FILE.MACROS
           (482/45).
0          Referenced by comments of: 540/16, 540/17, 540/19, 647/1 
00540/019A  SYSTEM WATCHERS          GTUNIT          OE  G          FILE:GTUNIT                                                     
            5.0T4   357  SYSTEM_WATCHERS.GTUNIT.OE.019      1 LINE    652    3 PAGE UM   OGDEN               AUG. 09, 1981  23:14:20
            5.0T10  261  FILE:GTUNIT          
0          OBJECT FOR (540/17) AND (540/18).
00540/020   SYSTEM WATCHERS          TTPRINT         SA  G          MTA:TTPRINT.S                                                   
            5.0T4   358  SYSTEM_WATCHERS.TTPRINT.SA.020     1 LINE     71    3 PAGE UM   MTA                 AUG. 09, 1981  23:14:22
            5.0T10  262  MTA.:TTPRINT.S       
0          PROGRAM TO PRINT THE SUPERVISOR TRACE TABLE AT THE TIME IT IS RUN, I.E., FROM
           MEMORY.
00540/021A  SYSTEM WATCHERS          TTPRINT         OE  G          MTA:TTPRINT                                                     
            5.0T4   359  SYSTEM_WATCHERS.TTPRINT.OE.021     1 LINE   3016    3 PAGE UM   MTA                 AUG. 09, 1981  23:14:23
            5.0T10  263  MTA.:TTPRINT         
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00540/022   SYSTEM WATCHERS          UPTIME CMDS     C              *LRL                                                            
            5.0T4   360  SYSTEM_WATCHERS.UPTIME_CM.C.022    1 LINE      8    1 PAGE UM   MTA                 AUG. 09, 1981  23:14:25
            5.0T10  264  *LRL                 
0          COMMAND FILE USED BY THE OPERATORS TO PRINT THE REASON FOR THE LAST SYSTEM
           RELOAD AND THE ELAPSED TIME SINCE THAT RELOAD.  INVOKED BY ENTERING "MTS *LRL"
           ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 540/23 
00540/023   SYSTEM WATCHERS          UPTIME CMDS     C              SYS:LRL                                                         
            5.0T4   361  SYSTEM_WATCHERS.UPTIME_CM.C.023    1 LINE     29    1 PAGE UM   MTA                 AUG. 09, 1981  23:14:26
            5.0T10  265  SYS.:LRL             
0          COMMAND FILE SOURCED TO BY *LRL (540/22) TO GET THE REASON FOR THE LAST
           RELOAD AND RUN THE UPTIME PROGRAM (540/24).
00540/024   SYSTEM WATCHERS          UPTIME PGM      SA  G          MTA:UPTIME(1000)                                                
            5.0T4   362  SYSTEM_WATCHERS.UPTIME_PG.SA.024   1 LINE     72    1 PAGE UM   MTA                 AUG. 09, 1981  23:14:27
            5.0T10  266  MTA.:UPTIME          
0          PROGRAM TO PRINT THE ELAPSED TIME SINCE THE LAST IPL.  NOTE:  THIS PROGRAM ONLY
           WORKS ON A 370 OR 470.
0          Referenced by comments of: 540/23, 713/1 
00540/025   SYSTEM WATCHERS          UPTIME PGM      OC  G          MTA:UPTIME(1,999)                                               
            5.0T4   363  SYSTEM_WATCHERS.UPTIME_PG.OC.025   1 LINE     80    1 PAGE UM   MTA                 AUG. 09, 1981  23:14:29
            5.0T10  267                       
0          Referenced by comments of: 713/1 
00540/026   SYSTEM WATCHERS          PWCT CMDS       C              *PWC                                                            
            5.0T4   364  SYSTEM_WATCHERS.PWCT_CMDS.C.026    1 LINE     58    1 PAGE UM   OGDEN               AUG. 09, 1981  23:14:30
            5.0T10  268  *PWC                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE PWCT PROGRAM (540/27) TO PRINT WAIT
           COUNTS FOR MTS JOBS.  INVOKED BY ENTERING "MTS *PWC" ON THE OPERATOR'S CONSOLE.
00540/027A  SYSTEM WATCHERS          PWCT PGM        SA  G          MTS:PWC(1000)                                                   
            5.0T4   365  SYSTEM_WATCHERS.PWCT_PGM.SA.027    1 LINE     73   13 PAGE UBC  HOGG      OGDEN     AUG. 09, 1981  23:14:31
            5.0T10  269  MTS.:PWC             
0          PROGRAM TO PRINT WAIT COUNTS, I.E., COUNTS OF HOW MANY MTS TASKS ARE WAITING FOR
           WHAT.  IT TAKES THREE OPTIONAL INTEGER NUMBERS IN THE PAR FIELD SEPARATED BY
           BLANKS:  NUMBER OF SECONDS BETWEEN SAMPLES, NUMBER OF LINES OF OUTPUT BETWEEN
           HEADINGS, AND THE TOTAL NUMBER OF LINES OF OUTPUT BEFORE QUITTING.  COPIES
           COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:CC.MACROS
           (1054/3).
0          Referenced by comments of: 540/26, 647/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00540/028A  SYSTEM WATCHERS          PWCT PGM        OC  G          MTS:PWC(1,999)                                                  
            5.0T4   366  SYSTEM_WATCHERS.PWCT_PGM.OC.028    1 LINE     80    6 PAGE UBC  HOGG      OGDEN     AUG. 09, 1981  23:14:37
            5.0T10  270                       
00541/001  *DECODE                                   SA  G          S0564 D4T2 VLO FSNAME=DECODE..SA.001(1)                      339
            5.0T2   322  DECODE..SA.001                     1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  22:56.50
            5.0T4   267                       
0          PROGRAM TO PROVIDE HASP-TYPE DECOMPRESSION/DEBLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE.
0          Referenced by comments of: 796/1, 796/4 
00541/002  *DECODE                                   OC  G          *DECODE                                                         
            5.0T2   323  DECODE..OC.002                     1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  15:19:09
            5.0T4   268  *DECODE              
00542/001  *DF                                                    # (NOT DISTRIBUTED)                                               
            D3T4    222                                                             UM                       AUG. 01, 1973  22:56.58
00543/001  *ENCODE                                   SA  G          S0564 D4T2 VLO FSNAME=ENCODE..SA.001(1)                      341
            5.0T2   324  ENCODE..SA.001                     1 LINE     80   10 PAGE UM   MTA                 AUG. 01, 1973  22:57.23
            5.0T4   269                       
0          PROGRAM TO PROVIDE HASP-TYPE COMPRESSION/BLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE.
0          Referenced by comments of: 796/1 
00543/002  *ENCODE                                   OC  G          *ENCODE                                                         
            5.0T2   325  ENCODE..OC.002                     1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  15:19:11
            5.0T4   270  *ENCODE              
00544/001  *ENDJUNK                                  OC  G          *ENDJUNK                                                        
            5.0T2   326  ENDJUNK..OC.001                    1 LINE     24    1 PAGE UM   MTA                 JULY 03, 1981  15:19:12
            5.0T4   271  *ENDJUNK             
0          CONTAINS THE TWO LOADER CARDS:
            LCS            LCSYMBOL
            LDT
00545/001  *FAKEOS                   INSTALLATION    WF             S0989 UQV15 FSNAME=FAKEOS.INSTALLATION(1)                    15 
            5.0T2   327  FAKEOS.INSTALLATION.WF.001         1 LINE    100    3 PAGE UM   MTA                 FEB. 17, 1976  20:04:00
            5.0T4   272                       
0          SOMEWHAT OUT-OF-DATE WRITEUP DESCRIBING THE ORGANIZATION AND INSTALLATION OF *FAKEOS.
0          Referenced by comments of: 458/1, 762/3, 793/1 
00545/002  *FAKEOS                   WRITEUP         WF             S0989 UQV15 FSNAME=FAKEOS.WRITEUP(1)                         14 
            5.0T2   328  FAKEOS.WRITEUP.WF.002              1 LINE    148   11 PAGE UM   MTA                 FEB. 17, 1976  20:03:19
            5.0T4   273                       
0          UQV USER-LEVEL WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS.
           UM USER-LEVEL DOCUMENTATION IS IN MTS VOLUME 2.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00545/003A *FAKEOS                   MAIN D5 MASTER  SA  G          S0699 D3TAPE POSN=FOS.MAIN.D5                                   
            5.0T4   367  FAKEOS.MAIN_D5_MASTER.SA.003       1 LINE     80  244 PAGE UM   MTA                 AUG. 09, 1981  23:15:15
            5.0T10  271                       
0          MASTER SOURCE FOR THE FAKEOS MAIN PROGRAM.
           COPIES COPY:GLOBALDEFS (1026/1), FAKEOS.GBLS (545/19), COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087),
           *LOADINFODSECT (001/4), *GDINFODSECT (594), AND *SENSEDSECT (3025).
           ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (193) (ON UNIT 0), AND FOS.MACLIB (545/21).
0          Referenced by comments of: 545/5 
00545/004A *FAKEOS                   PREFIX D5 MAST  SA  G          S0699 D3TAPE POSN=FOS.PREFIX.D5                                 
            5.0T4   368  FAKEOS.PREFIX_D5_MAST.SA.004       1 LINE     80   56 PAGE UM   MTA                 AUG. 09, 1981  23:15:56
            5.0T10  272                       
0          MASTER SOURCE FOR FAKEOS PREFIX.
           COPIES FAKEOS.GBLS (545/19), *GDINFODSECT (594), AND *CNFGINFODSECT (654).
           ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (193) (ON UNIT 0), AND FOS.MACLIB (545/21).
0          Referenced by comments of: 545/5 
00545/005  *FAKEOS                   UPDATE 1        UU  G          S1319 D4.2T1 VLO FSNAME=FAKEOS.UPDATES.UU.005               395 
            5.0T2   329  FAKEOS.UPDATE_1.UU.005             1 LINE    102   51 PAGE UM   MTA                 APR. 01, 1979  22:41:48
            5.0T4   274                       
0          UPDATES TO PRODUCE D4.2 FAKEOS FROM D4.0 VERSION. CONTAINS COMMANDS AND
           UPDATES TO ASSEMBLE (545/3) AND (545/4).
00545/006A *FAKEOS                   UPDATES         UC  G          MTA:FOS.UPDATES                                                 
            5.0T4   369  FAKEOS.UPDATES.UC.006              1 LINE     82    5 PAGE UM   MTA                 AUG. 09, 1981  23:15:57
            5.0T10  273                       
0          POST D4.2 UPDATES TO FAKEOS PREFIX, LINE 1, AND MAIN PROGRAM, LINE 10000.
00545/007  *FAKEOS                   ASSEMBLY CMDS   C              MTA:FOS.ASM                                                     
            5.0T2   330  FAKEOS.ASSEMBLY_CMDS.C.007         1 LINE     90    1 PAGE UM   MTA                 AUG. 06, 1981  03:53:26
            5.0T4   275                       
0          COMMANDS TO ASSEMBLE FAKEOS PREFIX, AT LINE 1, AND MAIN PROGRAM, AT LINE
           1000.
00545/008  *FAKEOS                   OS LOWCORE      SA             MTA:FOS.OSLC                                                    
            5.0T2   331  FAKEOS.OS_LOWCORE.SA.008           1 LINE     42    4 PAGE UM   MTA                 JULY 03, 1981  15:19:56
            5.0T4   276  MTA.:FOS.OSLC        
0          CONTENTS OF FIRST HALF-PAGE OF OS.
00545/009  *FAKEOS                   BDAM SIMULATOR  SA             S0938 FSAVE2 VLO FSNAME=FOS.BDAM                                
            5.0T2   332  FAKEOS.BDAM_SIMULATOR.SA.009       1 LINE     87   69 PAGE UM   MTA                 MAR. 07, 1980  23:48:27
            5.0T4   277                       
0          SOURCE FOR OS BDAM SIMULATOR.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00545/010  *FAKEOS                   BDAM SIMULATOR  OE             ETC:BDAM                                                        
            5.0T2   333  FAKEOS.BDAM_SIMULATOR.OE.010       1 SEQ   15140    4 PAGE UM   MTA                 JULY 03, 1981  15:21:13
            5.0T4   278  ETC.:BDAM            
00545/011  *FAKEOS                   DDNAME SCANNER  SA             S0938 FSAVE2 VLO FSNAME=FOS.DDEF                                
            5.0T2   334  FAKEOS.DDNAME_SCANNER.SA.011       1 LINE     80   20 PAGE UM   MTA                 MAY  25, 1978  15:00:44
            5.0T4   279                       
0          SOURCE FOR DDNAME SCANNER. COPIES FAKEOS.GBLS (545/19) and *GDINFODSECT
           (594). ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21).
00545/012  *FAKEOS                   DDNAME SCANNER  OC           # (PART OF *FAKEOS)                                               
            D3.2T1  455  FAKEOS.VOSDDEF.OE.18               1 SEQ    2586    1 PAGE UM   MTA                 MAR. 21, 1975  01:50:37
0          Part of *FAKEOS (545/44)
00545/013  *FAKEOS                   EXCP SIMULATOR  SA             MTA:FOS.EXCP                                                    
            5.0T2   335  FAKEOS.EXCP_SIMULATOR.SA.013       1 LINE     72    8 PAGE UM   MTA                 JULY 03, 1981  15:21:53
            5.0T4   280                       
0          SOURCE FOR NON-OLTEP EXCP SIMULATOR.
           ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21).
00545/014  *FAKEOS                   EXCP SIMULATOR  OE             ETC:FAKEOS.EXCP                                                 
            5.0T2   336  FAKEOS.EXCP_SIMULATOR.OE.014       1 SEQ    2492    1 PAGE UM   MTA                 JULY 03, 1981  15:21:54
            5.0T4   281  ETC.:FAKEOS.EXCP     
00545/015  *FAKEOS                   OLTEP EXCP SIM  SA             MTA:FOS.OLTSEXCP                                                
            5.0T2   337  FAKEOS.OLTEP_EXCP_SIM.SA.015       1 LINE     71    5 PAGE UM   MTA                 JULY 03, 1981  15:21:55
            5.0T4   282                       
0          SOURCE FOR OLTEP EXCP SIMULATOR.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21).
0          Referenced by comments of: 545/17 
00545/016  *FAKEOS                   OS SVC 59 SIML  SA             MTA:FOS.SVC59                                                   
            5.0T2   338  FAKEOS.OS_SVC_59_SIML.SA.016       1 LINE     71    6 PAGE UM   MTA                 JULY 03, 1981  15:21:56
            5.0T4   283                       
0          SOURCE FOR OS SVC 59 SIMULATOR.
           COPIES FAKEOS.GLBS (545/19), COPY:GLOBALS (1026/3), *CNFGINFODSECT (654),
           AND COPY:LLMPSEQU (087). ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21).
0          Referenced by comments of: 545/17 
00545/017  *FAKEOS                   FOS.OLTS        OE             ETC:FOS.OLTS                                                    
            5.0T2   339  FAKEOS.FOS.OLTS.OE.017             1 LINE   1694    4 PAGE UM   MTA                 JULY 03, 1981  15:21:57
            5.0T4   284  ETC.:FOS.OLTS        
0          OBJECT FROM (545/15) AND (545/16). CONTAINS A $CONTINUE WITH *FAKEOS RECORD.
           MUST BE CONCATENATED WITH *FAKEOS (545/44) WHEN RUNNING OLTEP.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00545/018  *FAKEOS                   IERRCO00        SA             MTA:FOS.IERRCO00                                                
            5.0T2   340  FAKEOS.IERRCO00.SA.018             1 LINE     72   16 PAGE UM   MTA                 JULY 03, 1981  15:21:58
            5.0T4   285                       
0          SOURCE FOR THE FAKEOS SORT INTERFACE SUBROUTINE.
00545/019  *FAKEOS                   FAKEOS.GBLS     SA             MTA:FAKEOS.GBLS                                                 
            5.0T2   341  FAKEOS.FAKEOS.GBLS.SA.019          1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  15:22:00
            5.0T4   286  MTA.:FAKEOS.GBLS     
0          GLOBAL PARAMETERS COPY SECTION.
           EACH INSTALLATION SHOULD RE-DEFINE &OWNER, &COBUID, &MPSID, &FAKEID,
           &FAKMAIN, &ICENAME, AND &ETCID.
0          Referenced by comments of: 538/1, 545/3, 545/4, 545/9, 545/11, 545/15, 545/16, 545/38, 737/3 
00545/020  *FAKEOS                   FOS.LPA         SA             MTA:FOS.LPA                                                     
            5.0T2   342  FAKEOS.FOS.LPA.SA.020              1 LINE     55    1 PAGE UM   MTA                 JULY 03, 1981  15:22:01
            5.0T4   287                       
0          SYMBOL TABLE FOR MODULES MOVED FROM FOS.IGG TO *FAKEOS.  OBJECT IN *FAKEOS (545/44).
00545/021  *FAKEOS                   FOS.MACLIB      SM             MTA:FOS.MACLIB                                                  
            5.0T2   343  FAKEOS.FOS.MACLIB.SM.021           1 LINE     80   26 PAGE UM   MTA                 JULY 03, 1981  15:22:02
            5.0T4   288  MTA.:FOS.MACLIB      
0          FAKEOS MACRO LIBRARY.
0          Referenced by comments of: 545/3, 545/4, 545/9, 545/11, 545/13, 545/15, 545/16, 545/38 
00545/022  *FAKEOS                   IERRCO00 TEST   SA  G          MTA:FOS.IERR.TEST(1,999)                                        
            5.0T2   344  FAKEOS.IERRCO00_TEST.SA.022        1 LINE     72    3 PAGE UM   MTA                 JULY 03, 1981  15:22:05
            5.0T4   289                       
0          TEST PROGRAM FOR IERRCO00.  RUNS WITHOUT FAKEOS.  ALL THE SORT TEST DATA IS
           INTERNAL TO IT.  SETS THE "DIAG" PARAMETER TO IERRCO00 SO A LOT OF SORT TRACE
           OUTPUT IS PRODUCED.  CHECKS THE RESULT OF THE SORT AND PRINTS ERROR COMMENTS
           IF BAD.
00545/023  *FAKEOS                   IERRCO00 TEST   OC  G          MTA:FOS.IERR.TEST(1000)                                         
            5.0T2   345  FAKEOS.IERRCO00_TEST.OC.023        1 LINE     80    4 PAGE UM   MTA                 JULY 03, 1981  15:22:07
            5.0T4   290                       
00545/024  *FAKEOS                   BSAM TEST       SA             MTA:FOS.TESTBSAM(1,999)                                         
            5.0T2   346  FAKEOS.BSAM_TEST.SA.024            1 LINE     65    1 PAGE UM   MTA                 JULY 03, 1981  15:22:07
            5.0T4   291                       
0          PROGRAM TO TEST BSAM BY COPYING FROM INPUT TO SYSPRINT USING BSAM WITH DOUBLE
           BUFFERING ON BOTH.  ASSEMBLE USING *OSMAC (193) (ON UNIT 2) AND *SYSMAC (ON UNIT 0).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00545/025  *FAKEOS                   BSAM TEST       OC             MTA:FOS.TESTBSAM(1000)                                          
            5.0T2   347  FAKEOS.BSAM_TEST.OC.025            1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  15:22:08
            5.0T4   292                       
00545/026A *FAKEOS                   QSAM TEST       SA             MTA:FOS.TESTQSAM(1,999)                                         
            5.0T2   348  FAKEOS.QSAM_TEST.SA.026            1 LINE     69    1 PAGE UM   MTA                 JULY 03, 1981  15:22:09
            5.0T4   293                       
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 (193) (ON UNIT 0) (SIC).
00545/027A *FAKEOS                   QSAM TEST       OC             MTA:FOS.TESTQSAM(1000)                                          
            5.0T2   349  FAKEOS.QSAM_TEST.OC.027            1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  15:22:10
            5.0T4   294                       
00545/028  *FAKEOS                   UPDATE TEST     SA             MTA:FOS.TSTUPDAT(1,999)                                         
            5.0T2   350  FAKEOS.UPDATE_TEST.SA.028          1 LINE     66    1 PAGE UM   MTA                 JULY 03, 1981  15:22:11
            5.0T4   295                       
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 (193)
           (ON UNIT 2).
00545/029  *FAKEOS                   UPDATE TEST     OC             MTA:FOS.TSTUPDAT(1000)                                          
            5.0T2   351  FAKEOS.UPDATE_TEST.OC.029          1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  15:22:12
            5.0T4   296                       
00545/030  *FAKEOS                   TIMER TEST      SA             MTA:FOS.TESTTIME(1,999)                                         
            5.0T2   352  FAKEOS.TIMER_TEST.SA.030           1 LINE     69    1 PAGE UM   MTA                 JULY 03, 1981  15:22:12
            5.0T4   297                       
0          PROGRAM WHICH TESTS STIMER AND TTIMER IN OS.  PRINTS MESSAGES TELLING WHAT IT'S
           DOING.  ASSEMBLE USING *SYSMAC (ON UNIT 0) AND *OSMAC (193) (ON UNIT 2).  IF ASSEMBLED
           WITH *SYSMAC ONLY, IT WILL TEST STIMER AND TTIMER IN MTS.
0          Referenced by comments of: 607/1 
00545/031  *FAKEOS                   TIMER TEST      OC             MTA:FOS.TESTTIME(1000)                                          
            5.0T2   353  FAKEOS.TIMER_TEST.OC.031           1 LINE     80    2 PAGE UM   MTA                 JULY 03, 1981  15:22:14
            5.0T4   298                       
00545/032  *FAKEOS                   WTO/WTOR TEST   SA  O          MTA:FOS.WTOTST(1,999)                                           
            5.0T2   354  FAKEOS.WTO/WTOR_TEST.SA.032        1 LINE     72    1 PAGE UM   MTA                 JULY 03, 1981  15:22:14
            5.0T4   299                       
0          TESTS WTO (WRITE TO OPERATOR) AND WTOR (WRITE TO OPERATOR WITH REPLY). 
           ASSEMBLE WITH *OSMAC (193) ON UNIT 0 AND *SYSMAC ON UNIT 2.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00545/033  *FAKEOS                   WTO/WTOR TEST   OC  O          MTA:FOS.WTOTST(1000)                                            
            5.0T2   355  FAKEOS.WTO/WTOR_TEST.OC.033        1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  15:22:15
            5.0T4   300                       
00545/034C *FAKEOS                   SNAP TEST       SA  O          MTA:FOS.TESTDUMP(1,999)                                         
            5.0T2   356  FAKEOS.SNAP_TEST.SA.034            1 LINE     72    1 PAGE UM   MTA                 JULY 03, 1981  15:22:16
            5.0T4   301                       
0          Test program for SNAP macros.  Contains several assemblies.  Assemble with
           PAR=BATCH.  Requires *OSMAC (193) on unit 0.
00545/035C *FAKEOS                   SNAP TEST       OC  O          MTA:FOS.TESTDUMP(1000)                                          
            5.0T2   357  FAKEOS.SNAP_TEST.OC.035            1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  15:22:17
            5.0T4   302                       
0          Needs to be made into a library to be used.
00545/036C *FAKEOS                   TSO TEST        SA  O          MTA:FOS.TESTTSO(1,999)                                          
            5.0T2   358  FAKEOS.TSO_TEST.SA.036             1 LINE     72    1 PAGE UM   MTA                 JULY 03, 1981  15:22:17
            5.0T4   303                       
0          Test TGET, TPUT, and STAX macros.  Note that the D5.0 FAKEOS doesn't
           support these, but VSS (1078) does.  Requires *OSMAC (193).
00545/037C *FAKEOS                   TSO TEST        OC  O          MTA:FOS.TESTTSO(1000)                                           
            5.0T2   359  FAKEOS.TSO_TEST.OC.037             1 LINE     80    2 PAGE UM   MTA                 JULY 03, 1981  15:22:19
            5.0T4   304                       
00545/038  *FAKEOS                   BDAM DUMP       SA             MTA:FOS.BDAMDUMP(1000)                                          
            5.0T2   360  FAKEOS.BDAM_DUMP.SA.038            1 LINE     72    5 PAGE UM   MTA                 JULY 03, 1981  15:22:19
            5.0T4   305  MTA.:FOS.BDAMDUMP    
0          SOURCE FOR PROGRAM TO DUMP BDAM FAKEOS FILES.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21).
00545/039  *FAKEOS                   BDAM DUMP       OC             MTA:FOS.BDAMDUMP(1,999)                                         
            5.0T2   361  FAKEOS.BDAM_DUMP.OC.039            1 LINE     80    4 PAGE UM   MTA                 JULY 03, 1981  15:22:21
            5.0T4   306                       
00545/040  *FAKEOS                   FAKEOSTRACE     SA             MTA:FOS.TRACE(1,999)                                            
            5.0T2   362  FAKEOS.FAKEOSTRACE.SA.040          1 LINE     66    3 PAGE UM   MTA                 JULY 03, 1981  15:22:23
            5.0T4   307                       
0          SOURCE FOR PROGRAM TO PRINT FAKEOS TRACE FILE.  ASSEMBLE USING *SYSMAC.
00545/041  *FAKEOS                   *FAKEOSTRACE    OE             *FAKEOSTRACE                                                    
            5.0T2   363  FAKEOS.*FAKEOSTRACE.OE.041         1 LINE   2764    2 PAGE UM   MTA                 JULY 03, 1981  15:22:24
            5.0T4   308  *FAKEOSTRACE         
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00545/042  *FAKEOS                   FAKEOSCREBLDL   SA             MTA:FOS.CREBLDL(1,999)                                          
            5.0T2   364  FAKEOS.FAKEOSCREBLDL.SA.042        1 LINE     68    3 PAGE UM   MTA                 JULY 03, 1981  15:22:24
            5.0T4   309                       
0          PROGRAM TO CREATE A DIRECTORY THAT FAKEOS WILL USE WHEN DOING A BLDL ON LINKLIB.
           TAKES INPUT DATA ON SCARDS, OUTPUT DIRECTORY WRITTEN ON UNIT 0.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 458/80, 458/81, 458/83, 458/85, 538/3, 737/5, 737/6, 762/7, 762/8 
00545/043  *FAKEOS                   *FAKEOSCREBLDL  OE             *FAKEOSCREBLDL                                                  
            5.0T2   365  FAKEOS.*FAKEOSCREBLDL.OE.043       1 SEQ    1620    1 PAGE UM   MTA                 JULY 03, 1981  15:22:26
            5.0T4   310  *FAKEOSCREBLDL       
00545/044A *FAKEOS                   *FAKEOS         OE  G          *FAKEOS                                                         
            5.0T4   370  FAKEOS.?FAKEOS.OE.044              1 LINE  32767   17 PAGE UM   MTA                 AUG. 09, 1981  23:15:58
            5.0T10  274  *FAKEOS              
0          CURRENT OBJECT FOR FAKEOS.
0          Referenced by comments of: 545/12, 545/17, 545/20 
00545/045  *FAKEOS                   MESSAGE FILE    M              ETC:FAKEOS.MSG                                                  
            5.0T2   366  FAKEOS.MESSAGE_FILE.M.045          1 LINE    120    4 PAGE UM   MTA                 JULY 03, 1981  15:22:26
            5.0T4   311  ETC.:FAKEOS.MSG      
0          ERROR MESSAGE FILE FOR FAKEOS.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00545/046  *FAKEOS                   OS DATA MANAGE  OL             ETC:FOS.IGG                                                     
            5.0T2   367  FAKEOS.OS_DATA_MANAGE.OL.046       1 LINE   3668    6 PAGE UM   MTA                 JULY 03, 1981  15:22:27
            5.0T4   312  ETC.:FOS.IGG         
0          LIBRARY OF OS DATA MANAGEMENT MODULES FROM REL 21.8 AND IERRCO00.
           >>>>>> NOTE: OBJECT HAS REP CARDS.
00546/001A *VALIDATEFILE                             SA  G          RSTR:VALIDATEFILE(1000)                                         
            5.0T2   368  VALIDATEFILE..SA.001               1 LINE     73   22 PAGE UM   HELFFRICH           JULY 03, 1981  15:22:28
            5.0T4   313  RSTR:VALIDATEFILE    
0          PROGRAM TO VALIDATE LINE FILES FOR CONSISTENCY.  CAN BE USED, BY USERS, AFTER A
           SYSTEM CRASH DURING WHICH A FILE WAS OPEN.  PROMPTS FOR INPUT.  ASSEMBLE USING
           COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 253/1 
00546/002A *VALIDATEFILE                             OE  G          *VALIDATEFILE                                                   
            5.0T2   369  VALIDATEFILE..OE.002               1 LINE   6261    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:22:34
            5.0T4   314  *VALIDATEFILE        
00547/001  *FOREVER                                  D              *FOREVER                                                        
            5.0T2   370  FOREVER..D.001                     1 LINE     51    3 PAGE UM   MTA                 JULY 03, 1981  15:22:35
            5.0T4   315  *FOREVER             
0          A FILE CONTAINING ABOUT 300 LINES OF JUNK, ENDING WITH "$CONTINUE WITH *FOREVER" SO THAT
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          IT APPEARS TO CONTAIN EVEN MORE.
00548/001A *FS                                       SA  G          MTS:FS.S                                                        
            5.0T4   648  FS..SA.001                         1 LINE     79   96 PAGE UBC  MTA                 SEP. 04, 1981  03:07:27
            5.0T11  222  MTS.:FS.S            
0          USER PROGRAM TO SAVE AND RESTORE FILES ON MAGNETIC TAPE, MAINTAINING
           A DIRECTORY AND PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION.
           THIS PROGRAM IS ALSO USED TO GENERATE MTS DISTRIBUTION TAPES.
           CALLS SNIFF SUBROUTINE (548/2).  COPIES COPY:DRDSECT (461/4),
           *GFINFODSECT (593), AND *GDINFODSECT (594).
            
           ***************************************************************************
           D5.0 version:
            
           The following changes have been made to *FS.
            
           For ordinary use of FS as well as PAR=DIST use:
            
             1. Informational messages go to SPRINT instead of SERCOM. 
             2. The directory won't be listed at termination in batch mode
                unless it has changed since the last time it was listed. 
             3. The LIST and DLIST commands will sort the directory in order
                of FS name if SORT=NAME is specified on the command. 
             4. When terminating FS asks (in terminal mode) whether it should
                dismount the tapes it used.  If the user says yes, then it
                dismounts ALL the tapes it used, if no (or batch) it rewinds
                all the tapes it used, not just the last one as before. 
             5. FS always truncates a file after restoring to it, not just if it
                created it.  It also sets the file size correctly before restoring
                to an existing file. 
             6. FS will save an empty file without asking permission first. 
            
           For PAR=DIST use of FS only:
            
             1. One does not need to specify the rack number when giving it
                premounted tapes.  It figures out if the PDN is in use by itself. 
             2. There is a TAPENAME command to change the tape name given during
                initialization without rerunning FS. 
             3. There is a RELEASE command to dismount a tape mounted as a result
                of a driver file request.  It will refuse to dismount a tape
                that has been used in any other way. 
             4. It adds UAM=NO to all mount requests if the user is allowed to do
                this. 
             5. When running under the id MTS (as is the normal case when
                preparing distribution tapes) the drive command will not update
                file reference counts. 
             6. It maintains and uses both the 1600 BPI and the 6250 BPI output
                tape file number and tape name fields in the driver file. 
             7. Files saved from tape are marked as line files, not sequential
                files. 
             8. Various tables are bigger to handle larger driver files. 
           ***************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 392/1, 461/4, 549/1, 550/1 
00548/002A *FS                       SNIFF SUBR      SA  G          MTS:FS.SNIFF(1,999)                                             
            5.0T4   371  FS.SNIFF_SUBR.SA.002               1 LINE     72    3 PAGE UBC  MTA                 AUG. 09, 1981  23:16:00
            5.0T10  275                       
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/003A *FS                                       OE  G          NEW:FS                                                          
            5.0T4   649  FS..OE.003                         1 LINE  32767   23 PAGE UBC  MTA                 SEP. 04, 1981  03:09:14
            5.0T11  223  *FS                  
00549/001  *FSCON                                    SA  G          S0564 D4T2 VLO FSNAME=FSCON..SA.001(1)                       387
            5.0T2   371  FSCON..SA.001                      1 LINE     80   33 PAGE UM   MTA                 JULY 28, 1977  02:43:20
            5.0T4   316                       
0          PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT.
           NO LONGER REQUIRES THE FSZ SUBROUTINE.
00549/002  *FSCON                                    OE  G          *FSCON                                                          
            5.0T2   372  FSCON..OE.002                      1 SEQ    8116    3 PAGE UM   MTA                 JULY 03, 1981  15:22:44
            5.0T4   317  *FSCON               
00550/001  *FSCOPY                                   SA           # (OBSOLETE)                                                      
            D3T4    270  FSCOPY..SA.1                       1 LINE     80   30 PAGE UBC                      AUG. 01, 1973  23:05.32
0          Obsoleted by *FS (548).
00551/001  *FTN                                      SA  G          S1319 D4.2T1 VLO FSNAME=FTN..SA.001(1)                       415
            5.0T2   373  FTN..SA.001                        1 LINE     85   51 PAGE UM   HANSEN              MAR. 02, 1979  12:24:24
            5.0T4   318                       
0          THIS VERSION OF *FTN INTERFACES TO THE FORTRAN G (204) AND FORTRAN H (298)
           COMPILERS AND ALSO TO OVERDRIVE (667), THE FORTRAN PREPROCESSOR.
           IT IS LOADED INTO SHARED VM AT IPL BY PISTLE WITH THE SINGLE SYMBOL FTN
           DEFINED IN LCSYMBOL.  THERE ARE 4 REFERENCES TO FILE NAMES IN THIS VERSION
           AT LINES 922 THROUGH 925.  AS DISTRIBUTED, THEY ARE *FORTRANH, *FORTRANG,
           *FTNGTEST, AND *OVERDRIVE RESPECTIVELY. COPIES *GDINFODSECT (594).
0          Referenced by comments of: 699/1 
00551/002  *FTN                      SHARED OBJECT   OC  G          SEG2:FTN                                                        
            5.0T2   374  FTN.SHARED_OBJECT.OC.002           1 LINE     80   11 PAGE UM   HANSEN              JULY 03, 1981  15:22:49
            5.0T4   319  SEG2:FTN             
0          LOADED INTO SHARED VM AT IPL BY PISTLE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00551/003  *FTN                                      OC  G          *FTN                                                            
            5.0T2   375  FTN..OC.003                        1 SEQ      24    1 PAGE UM   HANSEN              JULY 03, 1981  15:22:50
            5.0T4   320  *FTN                 
0          CONTAINS ONLY THE LOADER CARDS:
                 RIP  FTN 
                 LCS            LCSYMBOL
                 LDT            FTN 
0          Referenced by comments of: 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 
00552/001  *GASP                                     SF  G          S0564 D4T2 VLO FSNAME=GASP..SF.001(1)                        392
            5.0T2   376  GASP..SF.001                       1 LINE     80   30 PAGE UM   FLANIGAN            APR. 18, 1975  08:59:55
            5.0T4   321                       
0          FTN SOURCE FOR GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION.
           NOTE:  SOURCE CONTAINS MANY "$CONTINUE WITH *GASPCOM RETURN" LINES.
0          Referenced by comments of: 552/3 
00552/002  *GASP                                     SA  G          S0564 D4T2 VLO FSNAME=GASP..SA.002(1)                        393
            5.0T2   377  GASP..SA.002                       1 LINE     80    1 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:12
            5.0T4   322                       
0          ASMG SOURCE FOR GASP ERROR EXIT ROUTINE.
0          Referenced by comments of: 552/3 
00552/003  *GASP                                     OL  G          *GASP                                                           
            5.0T2   378  GASP..OL.003                       1 SEQ    6930   15 PAGE UM   FLANIGAN            JULY 03, 1981  15:22:54
            5.0T4   323  *GASP                
0          OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN (552/1) AND (552/2).
00552/004  *GASP                     *GASPCOM        SF  G  GPCM    *GASPCOM(0,7)                                                   
            5.0T2   379  GASP.*GASPCOM.SF.004               1 LINE     80    1 PAGE UM   FLANIGAN            JULY 03, 1981  15:22:55
            5.0T4   324  *GASPCOM             
00552/005  *GASP                     MEMO 246        WF             S0564 D4T2 VLO FSNAME=GASP.MEMO_246.WF.005(1)                396
            5.0T2   380  GASP.MEMO_246.WF.005               1 LINE    127   11 PAGE UM   FLANIGAN            JAN. 24, 1977  20:29:16
            5.0T4   325                       
0          THIS IS COMPUTING CENTER MEMO 246 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM"
00552/006  *GASP                     INTERNAL DESC   P   G          S0564 D4T2 VLO FSNAME=GASP.INTERNAL_DESC.P.006(1)            397
            5.0T2   381  GASP.INTERNAL_DESC.P.006           1 LINE     80   28 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:54
            5.0T4   326                       
0          DESCRIPTION OF THE INTERNALS OF GASP.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00553/001A  NETWORK CLS                              SA  G  NETC    W226:*NET.S                                                     
            5.0T2   382  NETWORK_CLS..SA.001                1 LINE     80   43 PAGE UM   PICKELMAN           JULY 03, 1981  15:22:57
            5.0T4   327                       
0          COMMAND LANGUAGE SUB-SYSTEM FOR MERIT COMPUTER NETWORK ($NET COMMAND).
           DESCRIBED IN "MERIT NETWORK USER'S GUIDE" IN MTS VOLUME 4.
           CALLS COPY SUBROUTINE (553/2) TO IMPLEMENT THE .COPY NETWORK COMMAND.
           COPIES *GDINFODSECT (594) AND *SENSEDSECT (3025).
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 553/3 
00553/002A  NETWORK CLS              COPY SUBR       SA  G          W226:*NETCOPY.S                                                 
            5.0T2   383  NETWORK_CLS.COPY_SUBR.SA.002       1 LINE     76   38 PAGE UM   PICKELMAN           JULY 03, 1981  15:23:01
            5.0T4   328                       
0          SUBROUTINES TO IMPLEMENT THE .COPY NETWORK COMMAND.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 553/1, 553/3 
00553/003A  NETWORK CLS                              OE  G          *CLSNET                                                         
            5.0T2   384  NETWORK_CLS..OE.003                1 LINE  18144    6 PAGE UM   PICKELMAN           JULY 03, 1981  15:23:04
            5.0T4   329  *CLSNET              
0          OBJECT FROM (553/1) AND (553/2), NORMALLY LOADED INTO SHARED VM BY PISTLE
           AFTER IPL.
00553/004A  NETWORK CLS              MNET:NETCOPY    OE  G          MNET:NETCOPY                                                    
            5.0T2   385  NETWORK_CLS.MNET:NETCOPY.OE.004    1 LINE  10160    4 PAGE UM   PICKELMAN           JULY 03, 1981  15:23:05
            5.0T4   330                       
0          CONTAINS LOADER CARDS (RIP, COM, LCS,) TO FORCE REFERENCE TO SHARED VM
           NETCOPY SUBROUTINE, IF NET CLS IS LOADED IN SHARED VM.  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/005A  NETWORK CLS              NET TEST PGM    SA  G  TNET    W226:*TNET.S                                                    
            5.0T2   386  NETWORK_CLS.NET_TEST_PGM.SA.005    1 LINE     80    3 PAGE UM   PICKELMAN           JULY 03, 1981  15:23:06
            5.0T4   331                       
0          PROGRAM TO CALL THE NET CLS -- ALLOWS TESTING WITH SDS.
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND WITH SIZE=20.
00553/006A  NETWORK CLS              NET TEST PGM    OC  G          W226:*TNET                                                      
            5.0T2   387  NETWORK_CLS.NET_TEST_PGM.OC.006    1 LINE     80    1 PAGE UM   PICKELMAN           JULY 03, 1981  15:23:07
            5.0T4   332                       
00554/001   TABLMOD                  JOB PROGRAM     SA  G  TBJP    FILE:TABLMOD                                                    
            5.0T2   388  TABLMOD.JOB_PROGRAM.SA.001         1 LINE     80   28 PAGE UM   HELFFRICH           JULY 03, 1981  15:23:08
            5.0T4   333  FILE:TABLMOD         
0          UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE SHARED FILE TABLE.
           INVOKED BY ENTERING "TABLMOD" ON THE OPERATOR'S CONSOLE.  THE FOLLOWING COMMANDS
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          ARE AVAILABLE:
            
             VERIFY   VERIFYS ENTRY AND ELEMENT ALLOCATIONS ARE CONSISTANT BY CHASING
                      THROUGH VARIOUS CHAINS IN SHARED FILE TABLE.  ALSO PRINTS THE NUMBER
                      OF OPEN FILES, MATRIX COMPUTATIONS, AND DEADLOCK DETECTIONS.
            
             TRACE    PRINTS OUT THE ENTIRE SHARED FILE TABLE.  EACH ENTRY CONSISTS OF
                      A FILE NAME, JOB NUMBER, OPEN STATUS ("OPEN" OR "NOTO"), LOCK
                      STATUS ("LOCKR", "LOCKM", OR "LOCKD"), AND WAIT STATUS ("WAITO",
                      "WAITR", "WAITM", OR "WAITD").
            
             LSTAT    PRINTS THE INFORMATION ASSOCIATED WITH A SINGLE FILE ("LSTAT FILE
                      FNAME") OR A SINGLE JOB ("LSTAT JOB N") IN THE SAME FORMAT AS THE
                      TRACE COMMAND.
            
             LOCATE   PRINTS THE HALF-WORD OFFSET INTO THE SHARED FILE 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/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING
           COPY:FILE.MACROS (482/45).  SEE COMP (682/9) FOR A WRITEUP.
0          Referenced by comments of: 400/12, 554/3, 682/9 
00554/002   TABLMOD                  TABLMOD JOB     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00554/003   TABLMOD                  MTS PROGRAM     SA  G        # (SAME AS JOB PROGRAM)                                           
                                                                                    UM   HELFFRICH                                  
0          MTS PROGRAM TO ALLOW SYSTEM PROGRAMMERS TO INTERROGATE AND ALTER THE SYSTEM-WIDE
           SHARED FILE TABLE.  TAKES THE SAME COMMANDS AS TABLMOD JOB (554/1) AS WELL AS A
           "DUMP" COMMAND TO DUMP THE WHOLE SHARED FILE TABLE.  IT CALLS SDUMP TO DO THIS.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING
           COPY:FILE.MACROS (482/45) STARTING AT LINE 0 TO INCLUDE THE CODE NECESSARY FOR
           THE MTS PROGRAM.  CONTAINS A "$CONTINUE WITH W045:TABLMOD(2)" LINE.
            
           SAME AS (554/1).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00554/004   TABLMOD                  MTS PROGRAM     OC  G          FILE:TABLMODMP.O                                                
            5.0T2   389  TABLMOD.MTS_PROGRAM.OC.004         1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:23:10
            5.0T4   334  FILE:TABLMODMP.O     
00555/001   MESSAGE MANUAL           PGM             SS  G          S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.PGM.SS.001(1)           407
            5.0T2   390  MESSAGE_MANUAL.PGM.SS.001          1 LINE     70   11 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:53
            5.0T4   335                       
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
           ALPHABETIZED USER MESSAGES AND ALPHABETIZED OPERATOR MESSAGES. INSTRUCTIONS
           ON PROGRAM USAGE MAY BE OBTAINED VIA &HELP.
00555/002   MESSAGE MANUAL           SPITBLK         SA  G          S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.SPITBLK.SA.002(1)       408
            5.0T2   391  MESSAGE_MANUAL.SPITBLK.SA.002      1 LINE     79    3 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:56
            5.0T4   336                       
0          ROUTINE TO INTERFACE SPITBOL TO THE BLOKLETR SUBR (572).
00555/003   MESSAGE MANUAL           SPITBLK         OC  G          S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.SPITBLK.OC.003(1)       409
            5.0T2   392  MESSAGE_MANUAL.SPITBLK.OC.003      1 LINE     80    1 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:58
            5.0T4   337                       
00555/004   MESSAGE MANUAL           DATA            D              S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.DATA.D.004(1)           410
            5.0T2   393  MESSAGE_MANUAL.DATA.D.004          1 LINE    107   52 PAGE UM   FRONCZAK            JULY 28, 1977  02:49:01
            5.0T4   338                       
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
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0                    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
                     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.
0          Referenced by comments of: 555/1 
00555/005   MESSAGE MANUAL           OUTPUT          P              S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.OUTPUT.P.005(1)         411
            5.0T2   394  MESSAGE_MANUAL.OUTPUT.P.005        1 LINE     98  191 PAGE UM   FRONCZAK            JULY 28, 1977  02:49:29
            5.0T4   339                       
0          COPY THIS OUTPUT TO A TN PRINTER FOR A COPY OF THE MESSAGE MANUAL.
00556/001A *REDUCE2                  MTS MASTER      S   G          WATF:RDC2SOU                                                    
            5.0T2   395  REDUCE2.MTS_MASTER.S.001           1 LINE     80  181 PAGE UM   MTA                 JULY 03, 1981  15:23:20
            5.0T4   340                       
0          REDUCE2 is a LISP 1.5 program designed for general algebraic computations.
            
           This is the OS/360 version of REDUCE2 modified to run in either OS or MTS.
           The flag MTS* (which is set as part of the generation of the LISP compiler or front end)
           is non-NIL when running in MTS and NIL when running in OS.
0          Referenced by comments of: 210/1, 556/3 
00556/002A *REDUCE2                  OS SOURCE       S   G          WATF:RDC2.PR159                                                 
            5.0T2   396  REDUCE2.OS_SOURCE.S.002            1 LINE     80  171 PAGE UM   MTA                 JULY 03, 1981  15:23:30
            5.0T4   341                       
0          OS/360 source for REDUCE2 (version of April 15, 1979).
0          Referenced by comments of: 556/3 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00556/003A *REDUCE2                  UPDATE          U   G          WATF:RDC2UPD                                                    
            5.0T2   397  REDUCE2.UPDATE.U.003               1 LINE     73   10 PAGE UM   MTA                 JULY 03, 1981  15:23:40
            5.0T4   342                       
0          Update deck to convert OS/360 source (556/2) to OS/MTS version (556/1).
            
           This is written in the language accepted by the Utah update program (556/21).
00556/004A *REDUCE2                  CHKPOINT        O   G          ETC:RDC2.CKPT                                                   
            5.0T2   398  REDUCE2.CHKPOINT.O.004             1 SEQ      80   68 PAGE UM   MTA                 JULY 03, 1981  15:23:46
            5.0T4   343  ETC.:RDC2.CKPT       
0          File in LISP checkpoint format containing object for REDUCE2.  This file is referenced by *REDUCE2.
00556/005A *REDUCE2                  CHKPOINT        O   G          WATF:RDC2.NEW                                                   
            5.0T2   399  REDUCE2.CHKPOINT.O.005             1 SEQ      80   84 PAGE UM   MTA                 JULY 03, 1981  15:23:49
            5.0T4   344                       
0          Checkpoint for REDUCE including the LISP compiler.  This version is needed if changes are to be made to 
           REDUCE without regenerating it from scratch (for example it is used to add the integration package).
00556/006A *REDUCE2                  *REDUCE2        C              *REDUCE2                                                        
            5.0T2   400  REDUCE2.*REDUCE2.C.006             1 LINE     54    1 PAGE UM   MTA                 JULY 03, 1981  15:23:52
            5.0T4   345  *REDUCE2             
0          File to which users $SOURCE to invoke REDUCE2.  It runs the REDUCE version of LISP and then
           loads the REDUCE2 checkpoint.
00556/007A *REDUCE2                  UPDCOMP         C              WATF:RDC2JOB                                                    
            5.0T2   401  REDUCE2.UPDCOMP.C.007              1 LINE     62    1 PAGE UM   MTA                 JULY 03, 1981  15:23:53
            5.0T4   346                       
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 and a checkpoint for the production version in
           the scratch file "-RDC2CKPT".  This should be copied into the appropriate ETC: file to install it.
00556/008A *REDUCE2                  EXAMPLE         S              WATF:RDC2TEST                                                   
            5.0T2   402  REDUCE2.EXAMPLE.S.008              1 LINE     72    3 PAGE UM   MTA                 JULY 03, 1981  15:23:53
            5.0T4   347                       
0          Example of REDUCE2 input. This is the input that produces *REDUCE2EXAMP.
0          Referenced by comments of: 556/9 
00556/009A *REDUCE2                  EXAMPLE OUTPUT  P              *REDUCE2EXAMP                                                   
            5.0T2   403  REDUCE2.EXAMPLE_OUTPUT.P.009       1 LINE    126    7 PAGE UM   MTA                 JULY 03, 1981  15:23:54
            5.0T4   348  *REDUCE2EXAMP        
0          Example of the output from *REDUCE2. Produced by feeding (556/8) to *REDUCE2.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00556/010A *REDUCE2                  LISP OS/MVS     SA  G          WATF:LISP.PR159                                                 
            5.0T2   404  REDUCE2.LISP_OS/MVS.SA.010         1 LINE     80  191 PAGE UM   MTA                 JULY 03, 1981  15:23:55
            5.0T4   349                       
0          Source for the LISP/360 interpreter  (OS/360 version) as distributed with REDUCE2.
0          Referenced by comments of: 556/11 
00556/011A *REDUCE2                  LISP UPDATE     U   G          WATF:LISPUPD                                                    
            5.0T2   405  REDUCE2.LISP_UPDATE.U.011          1 LINE     74   28 PAGE UM   MTA                 JULY 03, 1981  15:24:05
            5.0T4   350                       
0          Update to go from OS/360 source (556/10) to version that will run in either OS or MTS depending on the
           values of certain conditional assembly parameters.  These are as follows (all are SETB symbols):
            
                &MTS     1 to assemble an MTS version, 0 to assemble an OS/MVS version
                &HASHING 1 to assemble code to hash atoms onto the object list. 0 to do a linear search
                         of the object list for a new atom.  Normally one in MTS, can also be one for OS/MVS
                         version if GETMAIN is capable of getting space for the hash table.  If it can't,
                         LISP will not run if &HASHING is one.
                &MORSTOR 1 to get more storage when almost out. The symbol SBLKSIZ controls when to get more and
                         how much to get.  When only SBLKSIZ/32 cells are left after a garbage collection, LISP
                         will attempt to get up to SBLKSIZ/8 more cells (SBLKSIZ more bytes).  &MORSTOR is normally
                         on for the MTS version and SBLKSIZ defaults to 16 pages.  &MORSTOR can be on for the OS/MVS
                         version, but it probably won't do any good.  If more storage has been obtained, then 
                         SETSIZE, CONDENSE, and CHKPOINT can no longer be used. A checkpoint file to be RESTOREd
                         must fit in the original space and RESTORE discards all aditional space allocated.
            
           The other assembly parameters are the same as in the original version.
            
           The following are the changes  made to LISP converting it to MTS.
            
            1. The R= parameter on the RUN command controls the initial VM 
               allocation for LISP, not the amount to give back for data
               managment routines.  It will get more if needed, but if it does,
               CHKPOINT will no longer work.
            
            2. The OPEN function has been changed.  For exact details, contact MTA.
               In almost all cases in MTS, leaving the second parameter NIL will
               do what you want.
            
            3. VERBOS and PREVALQT both default off.
            
            4. *RAISE, $EOF$, and $EOL$ work as described in the Standard LISP
                report, except that $EOL$ is returned by READCH only if the 
                argument to READCH is '$EOL$ so REDUCE won't blow up.
            
            5. On input by READ, 'xxx is the same as (QUOTE xxx).  Since READ
               is used by the top level loop, this applies to input there.
            
            6. There are several additional functions:
                 INLNR():integer  returns the internal form of the line number
                                  of the last line read.
                 BATCH():boolean  returns T if called in a batch job, NIL 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0                                 otherwise
                 ATTN(U:any):NIL  disables LISPs attention interrupt trap if U 
                                  is NIL
                 MTS():NIL        calls MTS
                 SQRT(U:number):number returns the square root of U (as an integer
                                  if U is an integer with an exact square root) 
                 SETPCHAR(U:char):char sets the prefix character (for input only)
                                  to U and returns the old one.
            
           This update file is written in the language accepted by the update program distributed 
           with REDUCE (556/21).
00556/012A *REDUCE2                  LISP OBJECT     OE  G          ETC:RDC2.LISP                                                   
            5.0T2   406  REDUCE2.LISP_OBJECT.OE.012         1 LINE  32767   15 PAGE UM   MTA                 JULY 03, 1981  15:24:26
            5.0T4   351  ETC.:RDC2.LISP       
0          Object for MTS version of LISP.  Assembled with all of &MTS, &HASHING, and &MORSTOR on.
00556/013A *REDUCE2                  LISP ASSEMBLE   C   G          WATF:LISPASM                                                    
            5.0T2   407  REDUCE2.LISP_ASSEMBLE.C.013        1 LINE     66    1 PAGE UM   MTA                 JULY 03, 1981  15:24:28
            5.0T4   352                       
0          Commands to update and assemble LISP.  Leaves the new object in LISP360.O.
00556/014A *REDUCE2                  LISP COMPILER   S   G          WATF:COMPSOU                                                 3  
            5.0T2   408  REDUCE2.LISP_COMPILER.S.014        1 LINE     80   81 PAGE UM   MTA                 JULY 03, 1981  15:24:29
            5.0T4   353                       
0          LISP/360 compiler and front end.  This is the original version distributed with REDUCE.  It contains
           the LISP compiler and functions in standard LISP that are not in LISP360.
00556/015A *REDUCE2                  LISP COMPILER   U   G          WATF:COMPUPD                                                    
            5.0T2   409  REDUCE2.LISP_COMPILER.U.015        1 LINE     63    1 PAGE UM   MTA                 JULY 03, 1981  15:24:33
            5.0T4   354                       
0          Update to change os compiler into version for either MTS or OS/MVS.  Initializes the value of MTS*
           to NIL if running in OS/MVS version of LISP and to T if running in the MTS version of LISP.
00556/016A *REDUCE2                  LISP COMPILER   O   G          WATF:FEND                                                       
            5.0T2   410  REDUCE2.LISP_COMPILER.O.016        1 LINE     80   14 PAGE UM   MTA                 JULY 03, 1981  15:24:34
            5.0T4   355                       
0          Checkpointed LISP/360 front end, MTS version.  LISP object format.
00556/017A *REDUCE2                  LISP COMPILER   O   G          WATF:COMPILE                                                    
            5.0T2   411  REDUCE2.LISP_COMPILER.O.017        1 SEQ      80   29 PAGE UM   MTA                 JULY 03, 1981  15:24:35
            5.0T4   356                       
0          Checkpointed LISP compiler.  LISP object format.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00556/018A *REDUCE2                  LISP COMPILER   C   G          WATF:GENCOMPILE                                                 
            5.0T2   412  REDUCE2.LISP_COMPILER.C.018        1 LINE     68    1 PAGE UM   MTA                 JULY 03, 1981  15:24:37
            5.0T4   357                       
0          Commands to generate the LISP compiler in COMPILE and the front end in FEND.
00556/019A *REDUCE2                  LISP DEBUG      S   O          WATF:LISPBREAK(1)                                               
            5.0T2   413  REDUCE2.LISP_DEBUG.S.019           1 LINE     77    3 PAGE UM   MTA                 JULY 03, 1981  15:24:38
            5.0T4   358                       
0          This program (written in LISP) defines two functions:  BREAK and UNBREAK and makes them REDUCE commands.
            
           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 ">>> ENTERINT 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).
00556/020A *REDUCE2                  UPDATE PROGRAM  SF  G          WATF:UPDPGM(1,999)                                              
            5.0T2   414  REDUCE2.UPDATE_PROGRAM.SF.020      1 LINE     72    4 PAGE UM   MTA                 JULY 03, 1981  15:24:39
            5.0T4   359                       
0          FORTRAN source for the program that updates the various parts of REDUCE.  Same as the original version from Utah
           except that it now accepts a "./ C xxx" command and ignores it (for comments).  It also echos its input commands.
00556/021A *REDUCE2                  UPDATE PROGRAM  OE  G          WATF:UPDPGM(1000)                                               
            5.0T2   415  REDUCE2.UPDATE_PROGRAM.OE.021      1 LINE   1692    4 PAGE UM   MTA                 JULY 03, 1981  15:24:39
            5.0T4   360                       
0          Referenced by comments of: 556/3, 556/11 
00556/022C *REDUCE2                  PRINT PROGRAM   SF  O          WATF:RDC2.PRTPGM                                                
            5.0T2   416  REDUCE2.PRINT_PROGRAM.SF.022       1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  15:24:40
            5.0T4   361                       
0          FORTRAN program to print the REDUCE writeups from Utah.  Reads 5 and 
           writes 6.
0          Referenced by comments of: 556/23, 556/24, 556/25, 556/26 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00556/023C *REDUCE2                  INSTALL GUIDE   P              S1347 'REDUCE' FMT=FB(1600,80)                              11  
            5.0T2   417  REDUCE2.INSTALL_GUIDE.P.023        1 SEQ      80   11 PAGE UM   MTA                 JULY 03, 1981  15:25:18
            5.0T4   362                       
0          Utah's installation guide for REDUCE. Print using (556/22).
00556/024C *REDUCE2                  STANDARD LISP                  S1347 'REDUCE' FMT=FB(1600,80)                              8   
            5.0T2   418  REDUCE2.STANDARD_LISP..024         1 SEQ      80   25 PAGE UM   MTA                 JULY 03, 1981  15:25:23
            5.0T4   363                       
0          The "Standard LISP Report" defining a dialect of LISP to be used for
           implementing REDUCE.  Print using (556/22).
00556/025C *REDUCE2                  LISP/370 REPRT                 S1347 'REDUCE' FMT=FB(1600,80)                              9   
            5.0T2   419  REDUCE2.LISP/370_REPRT..025        1 SEQ      80   23 PAGE UM   MTA                 JULY 03, 1981  15:25:25
            5.0T4   364                       
0          Report describing how LISP/370 deviates from standard LISP.  Print using
           (556/22).
00556/026C *REDUCE2                  USER'S MANUAL                  S1347 'REDUCE' FMT=FB(1600,80)                              10  
            5.0T2   420  REDUCE2.USER'S_MANUAL..026         1 SEQ      80   33 PAGE UM   MTA                 JULY 03, 1981  15:25:28
            5.0T4   365                       
0          Obsolete and incomplete user's manual for REDUCE, but all Utah has produced
           so far.  Print using (556/22).
00556/027A *REDUCE2                  TUTORIAL 1      D   G          *RDC.LESSON1                                                    
            5.0T2   421  REDUCE2.TUTORIAL_1.D.027           1 LINE     71    5 PAGE UM   MTA                 JULY 03, 1981  15:25:29
            5.0T4   366  *RDC.LESSON1         
0          The first of the REDUCE tutorials written by David Stoutemyer at the University of Hawaii.  Minor changes
           have been made to it for MTS.
00556/028A *REDUCE2                  TUTORIAL 2      D   G          *RDC.LESSON2                                                    
            5.0T2   422  REDUCE2.TUTORIAL_2.D.028           1 LINE     70    3 PAGE UM   MTA                 JULY 03, 1981  15:25:30
            5.0T4   367  *RDC.LESSON2         
00556/029A *REDUCE2                  TUTORIAL 3      D   G          *RDC.LESSON3                                                    
            5.0T2   423  REDUCE2.TUTORIAL_3.D.029           1 LINE     71    5 PAGE UM   MTA                 JULY 03, 1981  15:25:32
            5.0T4   368  *RDC.LESSON3         
00556/030A *REDUCE2                  TUTORIAL 4      D   G          *RDC.LESSON4                                                    
            5.0T2   424  REDUCE2.TUTORIAL_4.D.030           1 LINE     71    8 PAGE UM   MTA                 JULY 03, 1981  15:25:33
            5.0T4   369  *RDC.LESSON4         
00556/031A *REDUCE2                  TUTORIAL 5      D   G          *RDC.LESSON5                                                    
            5.0T2   425  REDUCE2.TUTORIAL_5.D.031           1 LINE     71    7 PAGE UM   MTA                 JULY 03, 1981  15:25:34
            5.0T4   370  *RDC.LESSON5         
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00556/032A *REDUCE2                  INTEGRATION     S   O          WATF:INTSOU                                                     
            5.0T2   426  REDUCE2.INTEGRATION.S.032          1 LINE     80   77 PAGE UM   MTA                 JULY 03, 1981  15:25:36
            5.0T4   371                       
0          Original source for the Cambridge integration package distributed with REDUCE.
00556/033A *REDUCE2                  INTEGRATION     U   O          WATF:INTUPD                                                     
            5.0T2   427  REDUCE2.INTEGRATION.U.033          1 LINE     12    1 PAGE UM   MTA                 JULY 03, 1981  15:25:41
            5.0T4   372                       
0          Deletes one line that causes trouble in the 360 version of LISP.
00556/034A *REDUCE2                  INTEGRATION     C   O          WATF:GENINT                                                     
            5.0T2   428  REDUCE2.INTEGRATION.C.034          1 LINE     61    1 PAGE UM   MTA                 JULY 03, 1981  15:25:42
            5.0T4   373                       
0          Commands to generate the checkpoint file for the integration package in INT.CKPT.  Assumes that REDUCE has already
           been generated.
00556/035A *REDUCE2                  INTEGRATION     O   O          ETC:RDC2.INTCHK                                                 
            5.0T2   429  REDUCE2.INTEGRATION.O.035          1 LINE     80  100 PAGE UM   MTA                 JULY 03, 1981  15:25:42
            5.0T4   374                       
0          LISP checkpoint for REDUCE with the integration package.
00556/036A *REDUCE2                  INTEGRATION     C   O          UNSP:REDUCE2.INT                                                
            5.0T2   430  REDUCE2.INTEGRATION.C.036          1 LINE     55    1 PAGE UM   MTA                 JULY 03, 1981  15:25:48
            5.0T4   375                       
0          Commands to run REDUCE with the integration package.
00556/037A *REDUCE2                  MEMO 420        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M420                              
            5.0T2   431  REDUCE2.MEMO_420.WF.037            1 LINE     73    5 PAGE UM   MTA                 DEC. 04, 1980  09:52:53
            5.0T4   376                       
0          THIS IS COMPUTING CENTER MEMO 420 -- "CHANGES TO *REDUCE."
00557/001   FLOATEST                                 SA  O          S0564 D4T2 VLO FSNAME=FLOATEST..SA.001(1)                    429
            5.0T2   432  FLOATEST..SA.001                   1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  02:51:21
            5.0T4   377                       
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          S0564 D4T2 VLO FSNAME=FLOATEST..OC.002(1)                    430
            5.0T2   433  FLOATEST..OC.002                   1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:51:23
            5.0T4   378                       
00558/001A  VIRTUAL MACHINE          MAIN PGM        SA  G          MTA:VMN.S                                                       
            5.0T2   434  VIRTUAL_MACHINE.MAIN_PGM.SA.001    1 LINE     72   67 PAGE UM   MTA                 JULY 03, 1981  15:28:57
            5.0T4   379  MTA.:VMN.S           
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
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          RUN ON EITHER A 360/67 OR 370 REAL MACHINE. 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, 558/7 
00558/002   VIRTUAL MACHINE          V370 SUPPORT    SA  G          MTA:V370.S                                                      
            5.0T2   435  VIRTUAL_MACHINE.V370_SUPP.SA.002   1 LINE     72   10 PAGE UM   MTA                 JULY 03, 1981  15:29:03
            5.0T4   380  MTA.:V370.S          
0          COPY SECTION CONTAINING THE 370 INSTRUCTION SIMULATION CODE.
0          Referenced by comments of: 558/1 
00558/003   VIRTUAL MACHINE          3066 SUPPORT    SA  G          MTA:OC.S                                                        
            5.0T2   436  VIRTUAL_MACHINE.3066_SUPP.SA.003   1 LINE     68    6 PAGE UM   MTA                 JULY 03, 1981  15:29:05
            5.0T4   381  MTA.:OC.S            
0          COPY SECTION CONTAINING THE 3066 SIMULATION CODE.
0          Referenced by comments of: 558/1 
00558/004   VIRTUAL MACHINE          2301 SUPPORT    SA  G          MTA:S2301                                                       
            5.0T2   437  VIRTUAL_MACHINE.2301_SUPP.SA.004   1 LINE     70    6 PAGE UM   MTA                 JULY 03, 1981  15:29:06
            5.0T4   382  MTA.:S2301           
0          COPY SECTION CONTAINING VIRTUAL 2301 AND 2305 DRUM SUPPORT.  THE DRUM
           IS SIMULATED USING VIRTUAL MEMORY.
0          Referenced by comments of: 558/1 
00558/005A  VIRTUAL MACHINE          DEVICE LIST     SA  G          MTA:V370DEV.UM(1,999)                                           
            5.0T2   438  VIRTUAL_MACHINE.DEVICE_LI.SA.005   1 LINE     66    1 PAGE UM   MTA                 JULY 03, 1981  15:29:07
            5.0T4   383  MTA.:V370DEV.UM      
0          DEVICE LIST FOR UM 470 I/O CONFIGURATION.  COPIES V370DEV.MAC (558/6).
00558/006A  VIRTUAL MACHINE          DEVLIST MACROS  SM  O          MTA:V370DEV.MAC                                                 
            5.0T2   439  VIRTUAL_MACHINE.DEVLIST_M.SM.006   1 LINE     69    3 PAGE UM   MTA                 JULY 03, 1981  15:29:08
            5.0T4   384  MTA.:V370DEV.MAC     
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/007A  VIRTUAL MACHINE          370 OBJECT      OC  G          MTA:V370                                                        
            5.0T2   440  VIRTUAL_MACHINE.370_OBJEC.OC.007   1 LINE  10687   18 PAGE UM   MTA                 JULY 03, 1981  15:29:09
            5.0T4   385  MTA.:V370            
0          OBJECT FOR UM VIRTUAL 370, I.E. (558/1) WITH Â&DUPLEX, Â&M67, Â&ST, AND
           &S370.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00558/008   VIRTUAL MACHINE          WRITEUP         P              MTA:V67WRUP                                                     
            5.0T2   441  VIRTUAL_MACHINE.WRITEUP.P.008      1 LINE     75   12 PAGE UM   MTA                 JULY 03, 1981  15:29:11
            5.0T4   386  MTA.:V67WRUP         
0          WRITEUP TO BE COPIED TO A TN PRINTER.
           NOTE:  WRITEUP IS NOT UP TO DATE.
00559/001A  PISTLE                   *S2L            C   G          MTS:TST.S2L                                                     
            5.0T2   442  PISTLE.*S2L.C.001                  1 LINE    109    1 PAGE UM   SHERRY              JULY 03, 1981  15:29:12
            5.0T4   387  SEG2:*S2L            
0          COMMAND FILE TO RUN PISTLE, THE POST-IPL SYSTEM LOADER. INVOKED BY
           INIT:INITCMD (097/2) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS
           DESCRIBED IN SEG2:S2FILES. RUNS THE PRINTMAP PROGRAM (559/8) TO INFORM
           OPERATORS IF SYSTEM MAP CHANGED. AT UM, ALSO USES THE MESSAGE SYSTEM (798) TO
           SEND A MESSAGE TO THE NAMES CONTAINED IN THE FILE "SEG2:MONITORS", BEGINNING
           AT LINE 20, TO TELL THEM TO PRINT A NEW MAP.
0          Referenced by comments of: 97/2, 485/39, 513/3, 798/3, 798/4 
00559/002A  PISTLE                                   SA  G          W009:PISTLE.S                                                   
            5.0T2   443  PISTLE..SA.002                     1 LINE    106   17 PAGE UM   SHERRY              JULY 03, 1981  15:29:14
            5.0T4   388  W009:PISTLE.S        
0          ASSEMBLE WITH COPY:MTS.MACROS (344/3). COPIES *CNFGINFODSECT (654).
0          Referenced by comments of: 559/11, 4000/7 
00559/003A  PISTLE                                   OE  G          SEG2:S2L                                                        
            5.0T2   444  PISTLE..OE.003                     1 LINE   6816    4 PAGE UM   SHERRY              AUG. 06, 1981  03:55:34
            5.0T4   389  SEG2:S2L             
0          Referenced by comments of: 809/7 
00559/004A  PISTLE                   S2FILES         D              MTS:TST.S2FILES                                                 
            5.0T2   445  PISTLE.S2FILES.D.004               1 LINE     24    1 PAGE UM   WSG                 AUG. 06, 1981  03:55:35
            5.0T4   390  SEG2:S2FILES         
0          A LIST OF FILES FROM WHICH PISTLE WILL LOAD PROGRAMS AT IPL.
0          Referenced by comments of: 387/9, 809/7 
00559/005   PISTLE                   WRITEUP         WF             W009:PISTLE.W                                                   
            5.0T2   446  PISTLE.WRITEUP.WF.005              1 LINE    124    3 PAGE UM   SHERRY              JULY 03, 1981  15:29:20
            5.0T4   391  W009:PISTLE.W        
00559/006   PISTLE                   SETTIME         SF  G          S0564 D4T2 VLO FSNAME=PISTLE.SETTIME.SF.006(1)               445
            5.0T2   447  PISTLE.SETTIME.SF.006              1 LINE     54    1 PAGE UM   ENGLE               AUG. 14, 1977  21:52:29
            5.0T4   392                       
0          PROGRAM RUN BY *S2L TO CALL THE TIME SUBROUTINE (WITH PROTECT OFF) TO CAUSE
           IT TO INITIALIZE ITSELF.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00559/007   PISTLE                   SETTIME         OC  G          SEG2:SETTIME                                                    
            5.0T2   448  PISTLE.SETTIME.OC.007              1 LINE    146    1 PAGE UM   ENGLE               JULY 03, 1981  15:29:24
            5.0T4   393  SEG2:SETTIME         
00559/008A  PISTLE                   PRINTMAP        SA  G          SEG2:PRINTMAP(1000)                                             
            5.0T2   449  PISTLE.PRINTMAP.SA.008             1 LINE     69    3 PAGE UM   SHERRY              JULY 03, 1981  15:29:25
            5.0T4   394  SEG2:PRINTMAP        
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.
0          Referenced by comments of: 559/1 
00559/009A  PISTLE                   PRINTMAP        OC  G          SEG2:PRINTMAP(1,999)                                            
            5.0T2   450  PISTLE.PRINTMAP.OC.009             1 LINE     80    3 PAGE UM   SHERRY              JULY 03, 1981  15:29:26
            5.0T4   395                       
00559/010   PISTLE                   S2MAP           D            # SEG2:S2MAP                                                      
                                                                                    UM   SHERRY                                     
                         SEG2:S2MAP@E         
0          FILE WHERE PISTLE WRITES THE SYSTEM MAP.
0          Referenced by comments of: 809/7, 1070/5 
00559/011   PISTLE                   LOADSVM DOC     WF             S1430 4.3T1 VLO FSNAME=PISTLE.LOADSVM_DOC.WF.011(1)          506
            5.0T2   451  PISTLE.LOADSVM_DOC.WF.011          1 LINE     88    3 PAGE UM   SHERRY              APR. 05, 1980  18:13:21
            5.0T4   396                       
0          WRITEUP DESCRIBING THE PISTLE SUBROUTINE INTERFACE LOADSVM (559/2).
00560/001  *TYPEIT                                   C              *TYPEIT                                                         
            5.0T2   452  TYPEIT..C.001                      1 LINE     69    2 PAGE UM   LIFT                JULY 03, 1981  15:29:33
            5.0T4   397  *TYPEIT              
0          A $SOURCE FILE WHICH CAN BE USED TO AID 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          S0564 D4T2 VLO FSNAME=UNEDIT..SA.001(1)                      450
            5.0T2   453  UNEDIT..SA.001                     1 LINE     80   14 PAGE UM   MTA                 JULY 28, 1977  02:52:08
            5.0T4   398                       
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 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00561/002  *UNEDIT                                   OE  G          *UNEDIT                                                         
            5.0T2   454  UNEDIT..OE.002                     1 SEQ    2536    2 PAGE UM   MTA                 JULY 03, 1981  15:29:35
            5.0T4   399  *UNEDIT              
00562/001  *UNLINKER                                 SA  G  UNLK    W062:UNLINKER.S                                                 
            5.0T2   455  UNLINKER..SA.001                   1 LINE     80   39 PAGE UM   TIFFANY             JULY 03, 1981  15:29:36
            5.0T4   400                       
0          PROGRAM TO CHANGE OS/VS LOAD MODULES INTO MTS OBJECT DECKS.
0          Referenced by comments of: 291/1, 340/1, 341/1, 3031/1 
00562/002A *UNLINKER                 BLKRTN SUBR     SA  G  BLKR    W062:BLK.S                                                      
            5.0T2   456  UNLINKER.BLKRTN_SUBR.SA.002        1 LINE     80   34 PAGE UM   TIFFANY             JULY 03, 1981  15:29:38
            5.0T4   401                       
0          SUBROUTINE TO READ OS/VS IEBCOPY OR IEHMOVE TAPES.
            
           *****************************************************************************
           D5.0 changes:
            
           Modified since TTR may actually be in next track if record number exceeds
           maximum record number in a track.
           *****************************************************************************
0          Referenced by comments of: 291/1 
00562/003A *UNLINKER                                 OE  G          *UNLINKER                                                       
            5.0T2   457  UNLINKER..OE.003                   1 LINE   8154   10 PAGE UM   TIFFANY             JULY 03, 1981  15:29:40
            5.0T4   402  *UNLINKER            
00563/001   CHAR MANIP SUBRS         BTD             SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.BTD.SA.001(1)         455
            5.0T2   458  CHAR_MANIP_SUBRS.BTD.SA.001        1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:11.19
            5.0T4   403                       
0          THESE ARE THE UBC CHARACTER MANIPULATION SUBROUTINES.
00563/002   CHAR MANIP SUBRS         LCOMC/COMC      SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.LCOMC/CO.SA.002(1)    456
            5.0T2   459  CHAR_MANIP_SUBRS.LCOMC/CO.SA.002   1 LINE     80    3 PAGE UBC  BRILL               JULY 28, 1977  02:53:01
            5.0T4   404                       
00563/003   CHAR MANIP SUBRS         DTB             SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.DTB.SA.003(1)         457
            5.0T2   460  CHAR_MANIP_SUBRS.DTB.SA.003        1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:11.29
            5.0T4   405                       
00563/004   CHAR MANIP SUBRS         FINDC           SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.FINDC.SA.004(1)       458
            5.0T2   461  CHAR_MANIP_SUBRS.FINDC.SA.004      1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:11.35
            5.0T4   406                       
00563/005   CHAR MANIP SUBRS         FINDST          SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.FINDST.SA.005(1)      459
            5.0T2   462  CHAR_MANIP_SUBRS.FINDST.SA.005     1 LINE     80    4 PAGE UBC  BRILL               AUG. 01, 1973  23:11.40
            5.0T4   407                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00563/006   CHAR MANIP SUBRS         IGC             SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.IGC.SA.006(1)         460
            5.0T2   463  CHAR_MANIP_SUBRS.IGC.SA.006        1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:11.45
            5.0T4   408                       
00563/007   CHAR MANIP SUBRS         MOVEC           SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.MOVEC.SA.007(1)       461
            5.0T2   464  CHAR_MANIP_SUBRS.MOVEC.SA.007      1 LINE     80    1 PAGE UBC  BRILL               AUG. 01, 1973  23:11.51
            5.0T4   409                       
00563/008   CHAR MANIP SUBRS         SETC            SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.SETC.SA.008(1)        462
            5.0T2   465  CHAR_MANIP_SUBRS.SETC.SA.008       1 LINE     80    1 PAGE UBC  BRILL               AUG. 01, 1973  23:11.58
            5.0T4   410                       
00563/009   CHAR MANIP SUBRS         TRNC            SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.TRNC.SA.009(1)        463
            5.0T2   466  CHAR_MANIP_SUBRS.TRNC.SA.009       1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:12.02
            5.0T4   411                       
00563/010   CHAR MANIP SUBRS         TRNST           SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.TRNST.SA.010(1)       464
            5.0T2   467  CHAR_MANIP_SUBRS.TRNST.SA.010      1 LINE     80    4 PAGE UBC  BRILL               AUG. 01, 1973  23:12.07
            5.0T4   412                       
00563/011   CHAR MANIP SUBRS         EQUC            SA             S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.EQUC.SA.011(1)        465
            5.0T2   468  CHAR_MANIP_SUBRS.EQUC.SA.011       1 LINE     80    1 PAGE UBC  BRILL               MAR. 06, 1974  22:01.57
            5.0T4   413                       
00563/012   CHAR MANIP SUBRS         OBJECT          OC           # (PART OF *LIBRARY)                                              
                                                                                    UM   BRILL                                      
0          Object part of *LIBRARY (524/1)
00564/001   SYMBOL XREF PROGRAM                                   # (OBSOLETE)                                                   466
            D4T2    466  SYMBOL_XREF_PROGRAM..SA.001        1 LINE     80    3 PAGE UM                       JULY 28, 1977  02:53:57
            D4T5     78                       
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).
00565/001A  STOR PROTECT DIAGNOSTIC                  SA  G          MTS:TESTPROTECT(1,999)                                          
            5.0T2   469  STOR_PROTECT_DIAGNOSTIC..SA.001    1 LINE     70    3 PAGE UM   MTA                 JULY 03, 1981  15:29:48
            5.0T4   414                       
0          HARDWARE STORAGE PROTECT DIAGNOSTIC TO TEST ALL OF CORE ABOVE X'1000'.
           PSW RESTART WILL RERUN THE TEST, IF IT STOPS AFTER ONE LOOP (THE
           CURRENT VERSION LOOPS FOREVER).  ASSUMES A 1052 TYPEWRITER AT ADDRESS D40;
           THIS MAY BE CHANGED BY PATCHING IN A NEW CONSOLE ADDRESS AT LOCATION B02.
           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 AND THE ACTUAL KEY IF RELEVANT:
            
             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 14 OR 16 AFTER TEST 3. (SHOULD REALLY BE 14,
                 BUT SOME MACHINES SET IT TO 16.)
             5.  STORAGE CHANGED AFTER TEST 3 OR INTERRUPT LOOKING.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0            6.  NO INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 18.
             7.  KEY NOT EQUAL TO 1C OR 18 AFTER TEST 6. (SHOULD REALLY BE 18,
                 BUT MOST MACHINES SET IT TO 1C.)
             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.
             13. RESET REFERENCE BIT (RRB) INSTRUCTION DOESN'T GIVE CONDITION
                 CODE 3 AFTER TEST 12.
             14. KEY NOT EQUAL TO 1A AFTER TEST 13.
            
           THE PROGRAM WILL LOOP CONTINUOUSLY. NOTHING WILL BE PRINTED EXCEPT
           ERROR MESSAGES, EACH OF WHICH WILL BE ACCOMPANIED BY A CONSOLE ALARM.
            
00565/002A  STOR PROTECT DIAGNOSTIC                  OC  G          MTS:TESTPROTECT(1000)                                           
            5.0T2   470  STOR_PROTECT_DIAGNOSTIC..OC.002    1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  15:29:49
            5.0T4   415                       
0          NEEDS AN ABSOLUTE LOADER.  IPL ON A REAL OR VIRTUAL MACHINE.
00566/001  *PIL                      MACLIB          SM  G          S0564 D4T2 VLO FSNAME=PIL.MACLIB.SM.001(1)                   470
            5.0T2   471  PIL.MACLIB.SM.001                  1 SEQ      80   14 PAGE UM   TIFFANY             JULY 28, 1977  02:54:18
            5.0T4   416                       
0          *PIL IS LATEST VERSION OF THE PITTSBURGH INTERPRETIVE LANGUAGE.
            
           NOTE:  MACLIB IS THE ONLY MACRO LIBRARY USED IN ASSEMBLING *PIL.
0          Referenced by comments of: 178/1 
00566/002  *PIL                      DSECT           SA  G          S0564 D4T2 VLO FSNAME=PIL.DSECT.SA.002(1)                    471
            5.0T2   472  PIL.DSECT.SA.002                   1 SEQ      80    4 PAGE UM   TIFFANY             JULY 28, 1977  02:54:19
            5.0T4   417                       
0          COMPS (566/2) THROUGH (566/10) ARE COPY SECTIONS.
0          Referenced by comments of: 566/2 
00566/003  *PIL                      EQUS            SA  G          S0564 D4T2 VLO FSNAME=PIL.EQUS.SA.003(1)                     472
            5.0T2   473  PIL.EQUS.SA.003                    1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:21
            5.0T4   418                       
00566/004  *PIL                      EVOUTPUT        SA  G          S0564 D4T2 VLO FSNAME=PIL.EVOUTPUT.SA.004(1)                 473
            5.0T2   474  PIL.EVOUTPUT.SA.004                1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:23
            5.0T4   419                       
00566/005  *PIL                      FORMDS          SA  G          S0564 D4T2 VLO FSNAME=PIL.FORMDS.SA.005(1)                   474
            5.0T2   475  PIL.FORMDS.SA.005                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:25
            5.0T4   420                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00566/006  *PIL                      KEYCODES        SA  G          S0564 D4T2 VLO FSNAME=PIL.KEYCODES.SA.006(1)                 475
            5.0T2   476  PIL.KEYCODES.SA.006                1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:27
            5.0T4   421                       
00566/007  *PIL                      PARTDS          SA  G          S0564 D4T2 VLO FSNAME=PIL.PARTDS.SA.007(1)                   476
            5.0T2   477  PIL.PARTDS.SA.007                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:29
            5.0T4   422                       
00566/008  *PIL                      SCRDS           SA  G          S0564 D4T2 VLO FSNAME=PIL.SCRDS.SA.008(1)                    477
            5.0T2   478  PIL.SCRDS.SA.008                   1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:31
            5.0T4   423                       
00566/009  *PIL                      STACKDS         SA  G          S0564 D4T2 VLO FSNAME=PIL.STACKDS.SA.009(1)                  478
            5.0T2   479  PIL.STACKDS.SA.009                 1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:33
            5.0T4   424                       
00566/010  *PIL                      STEPDS          SA  G          S0564 D4T2 VLO FSNAME=PIL.STEPDS.SA.010(1)                   479
            5.0T2   480  PIL.STEPDS.SA.010                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:35
            5.0T4   425                       
0          Referenced by comments of: 566/2 
00566/011  *PIL                      PILL            SA  G          S1430 4.3T1 VLO FSNAME=PIL.PILL.SA.011(1)                    509
            5.0T2   481  PIL.PILL.SA.011                    1 SEQ      80    5 PAGE UM   TIFFANY             APR. 05, 1980  18:15:20
            5.0T4   426                       
0          COMPS (566/11) THROUGH (566/48) ARE THE ASM SOURCE FOR *PIL. REQUIRES
           *CNFGINFODSECT (654) FOR ASSEMBLY.
0          Referenced by comments of: 566/11 
00566/012  *PIL                      READIT          SA  G          S0564 D4T2 VLO FSNAME=PIL.READIT.SA.012(1)                   481
            5.0T2   482  PIL.READIT.SA.012                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:57:02
            5.0T4   427                       
00566/013  *PIL                      TYPEIT          SA  G          S0564 D4T2 VLO FSNAME=PIL.TYPEIT.SA.013(1)                   482
            5.0T2   483  PIL.TYPEIT.SA.013                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:57:14
            5.0T4   428                       
00566/014  *PIL                      PAGEMSG         SA  G          S0564 D4T2 VLO FSNAME=PIL.PAGEMSG.SA.014(1)                  483
            5.0T2   484  PIL.PAGEMSG.SA.014                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:15
            5.0T4   429                       
00566/015  *PIL                      CANIT           SA  G          S0564 D4T2 VLO FSNAME=PIL.CANIT.SA.015(1)                    484
            5.0T2   485  PIL.CANIT.SA.015                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:57:17
            5.0T4   430                       
00566/016  *PIL                      PIL2            SA  G          S0564 D4T2 VLO FSNAME=PIL.PIL2.SA.016(1)                     485
            5.0T2   486  PIL.PIL2.SA.016                    1 SEQ      80   11 PAGE UM   TIFFANY             JULY 28, 1977  02:57:34
            5.0T4   431                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00566/017  *PIL                      DSBRK           SA  G          S0564 D4T2 VLO FSNAME=PIL.DSBRK.SA.017(1)                    486
            5.0T2   487  PIL.DSBRK.SA.017                   1 SEQ      80    8 PAGE UM   TIFFANY             JULY 28, 1977  02:57:48
            5.0T4   432                       
00566/018  *PIL                      BKDOWN          SA  G          S0564 D4T2 VLO FSNAME=PIL.BKDOWN.SA.018(1)                   487
            5.0T2   488  PIL.BKDOWN.SA.018                  1 SEQ      80   21 PAGE UM   TIFFANY             JULY 28, 1977  02:57:49
            5.0T4   433                       
00566/019  *PIL                      FORMPROC        SA  G          S0564 D4T2 VLO FSNAME=PIL.FORMPROC.SA.019(1)                 488
            5.0T2   489  PIL.FORMPROC.SA.019                1 SEQ      80   44 PAGE UM   TIFFANY             JULY 28, 1977  02:57:53
            5.0T4   434                       
00566/020  *PIL                      PILSQRT         SA  G          S0564 D4T2 VLO FSNAME=PIL.PILSQRT.SA.020(1)                  489
            5.0T2   490  PIL.PILSQRT.SA.020                 1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:57:54
            5.0T4   435                       
00566/021  *PIL                      PILATAN         SA  G          S0564 D4T2 VLO FSNAME=PIL.PILATAN.SA.021(1)                  490
            5.0T2   491  PIL.PILATAN.SA.021                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:56
            5.0T4   436                       
00566/022  *PIL                      PILSINE         SA  G          S0564 D4T2 VLO FSNAME=PIL.PILSINE.SA.022(1)                  491
            5.0T2   492  PIL.PILSINE.SA.022                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:58
            5.0T4   437                       
00566/023  *PIL                      PILLOGE         SA  G          S0564 D4T2 VLO FSNAME=PIL.PILLOGE.SA.023(1)                  492
            5.0T2   493  PIL.PILLOGE.SA.023                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:00
            5.0T4   438                       
00566/024  *PIL                      PILETX          SA  G          S0564 D4T2 VLO FSNAME=PIL.PILETX.SA.024(1)                   493
            5.0T2   494  PIL.PILETX.SA.024                  1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:03
            5.0T4   439                       
00566/025  *PIL                      LOOKPS          SA  G          S0564 D4T2 VLO FSNAME=PIL.LOOKPS.SA.025(1)                   494
            5.0T2   495  PIL.LOOKPS.SA.025                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:58:05
            5.0T4   440                       
00566/026  *PIL                      WANT16          SA  G          S1430 4.3T1 VLO FSNAME=PIL.WANT16.SA.026(1)                  510
            5.0T2   496  PIL.WANT16.SA.026                  1 SEQ      80    4 PAGE UM   TIFFANY             APR. 05, 1980  18:15:21
            5.0T4   441                       
0          Copies *CNFGINFODSECT (654).
00566/027  *PIL                      MOVPOL          SA  G          S0564 D4T2 VLO FSNAME=PIL.MOVPOL.SA.027(1)                   496
            5.0T2   497  PIL.MOVPOL.SA.027                  1 SEQ      80    4 PAGE UM   TIFFANY             JULY 28, 1977  02:58:09
            5.0T4   442                       
00566/028  *PIL                      FORTROL         SA  G          S0564 D4T2 VLO FSNAME=PIL.FORTROL.SA.028(1)                  497
            5.0T2   498  PIL.FORTROL.SA.028                 1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:58:11
            5.0T4   443                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00566/029  *PIL                      RETHEAD         SA  G          S0564 D4T2 VLO FSNAME=PIL.RETHEAD.SA.029(1)                  498
            5.0T2   499  PIL.RETHEAD.SA.029                 1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  02:58:13
            5.0T4   444                       
00566/030  *PIL                      TALPL           SA  G          S0564 D4T2 VLO FSNAME=PIL.TALPL.SA.030(1)                    499
            5.0T2   500  PIL.TALPL.SA.030                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:58:15
            5.0T4   445                       
00566/031  *PIL                      CONVERT         SA  G          S0564 D4T2 VLO FSNAME=PIL.CONVERT.SA.031(1)                  500
            5.0T2   501  PIL.CONVERT.SA.031                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:17
            5.0T4   446                       
00566/032  *PIL                      STEPMESS        SA  G          S0564 D4T2 VLO FSNAME=PIL.STEPMESS.SA.032(1)                 501
            5.0T2   502  PIL.STEPMESS.SA.032                1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:58:19
            5.0T4   447                       
00566/033  *PIL                      FUNCS           SA  G          S0564 D4T2 VLO FSNAME=PIL.FUNCS.SA.033(1)                    502
            5.0T2   503  PIL.FUNCS.SA.033                   1 SEQ      80   30 PAGE UM   TIFFANY             JULY 28, 1977  02:58:32
            5.0T4   448                       
00566/034  *PIL                      LOPL            SA  G          S0564 D4T2 VLO FSNAME=PIL.LOPL.SA.034(1)                     503
            5.0T2   504  PIL.LOPL.SA.034                    1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:58:43
            5.0T4   449                       
00566/035  *PIL                      DELVALS         SA  G          S0564 D4T2 VLO FSNAME=PIL.DELVALS.SA.035(1)                  504
            5.0T2   505  PIL.DELVALS.SA.035                 1 SEQ      80   25 PAGE UM   TIFFANY             JULY 28, 1977  02:58:56
            5.0T4   450                       
00566/036  *PIL                      XFORMX          SA  G          S0564 D4T2 VLO FSNAME=PIL.XFORMX.SA.036(1)                   505
            5.0T2   506  PIL.XFORMX.SA.036                  1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:59:09
            5.0T4   451                       
00566/037  *PIL                      EXTRANS         SA  G          S0564 D4T2 VLO FSNAME=PIL.EXTRANS.SA.037(1)                  506
            5.0T2   507  PIL.EXTRANS.SA.037                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:59:09
            5.0T4   452                       
00566/038  *PIL                      TYPEPS          SA  G          S0564 D4T2 VLO FSNAME=PIL.TYPEPS.SA.038(1)                   507
            5.0T2   508  PIL.TYPEPS.SA.038                  1 SEQ      80   15 PAGE UM   TIFFANY             JULY 28, 1977  02:59:20
            5.0T4   453                       
00566/039  *PIL                      XPRES           SA  G          S0564 D4T2 VLO FSNAME=PIL.XPRES.SA.039(1)                    508
            5.0T2   509  PIL.XPRES.SA.039                   1 SEQ      80   19 PAGE UM   TIFFANY             JULY 28, 1977  02:59:31
            5.0T4   454                       
00566/040  *PIL                      MINDIR          SA  G          S0564 D4T2 VLO FSNAME=PIL.MINDIR.SA.040(1)                   509
            5.0T2   510  PIL.MINDIR.SA.040                  1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  02:59:32
            5.0T4   455                       
00566/041  *PIL                      HEADINS         SA  G          S0564 D4T2 VLO FSNAME=PIL.HEADINS.SA.041(1)                  510
            5.0T2   511  PIL.HEADINS.SA.041                 1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:59:34
            5.0T4   456                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00566/042  *PIL                      STROP           SA  G          S0564 D4T2 VLO FSNAME=PIL.STROP.SA.042(1)                    511
            5.0T2   512  PIL.STROP.SA.042                   1 SEQ      80   15 PAGE UM   TIFFANY             JULY 28, 1977  02:59:36
            5.0T4   457                       
00566/043  *PIL                      SETUP           SA  G          S0564 D4T2 VLO FSNAME=PIL.SETUP.SA.043(1)                    512
            5.0T2   513  PIL.SETUP.SA.043                   1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:59:38
            5.0T4   458                       
00566/044  *PIL                      SPLIT           SA  G          S0564 D4T2 VLO FSNAME=PIL.SPLIT.SA.044(1)                    513
            5.0T2   514  PIL.SPLIT.SA.044                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:59:40
            5.0T4   459                       
00566/045  *PIL                      FORBREAK        SA  G          S0564 D4T2 VLO FSNAME=PIL.FORBREAK.SA.045(1)                 514
            5.0T2   515  PIL.FORBREAK.SA.045                1 SEQ      80   10 PAGE UM   TIFFANY             JULY 28, 1977  02:59:50
            5.0T4   460                       
00566/046  *PIL                      EVAL            SA  G          S0564 D4T2 VLO FSNAME=PIL.EVAL.SA.046(1)                     515
            5.0T2   516  PIL.EVAL.SA.046                    1 SEQ      80   28 PAGE UM   TIFFANY             JULY 28, 1977  02:59:55
            5.0T4   461                       
00566/047  *PIL                      TYPARRY         SA  G          S0564 D4T2 VLO FSNAME=PIL.TYPARRY.SA.047(1)                  516
            5.0T2   517  PIL.TYPARRY.SA.047                 1 SEQ      80   12 PAGE UM   TIFFANY             JULY 28, 1977  03:00:03
            5.0T4   462                       
00566/048  *PIL                      PROCESS         SA  G          S0564 D4T2 VLO FSNAME=PIL.PROCESS.SA.048(1)                  517
            5.0T2   518  PIL.PROCESS.SA.048                 1 SEQ      80   51 PAGE UM   TIFFANY             JULY 28, 1977  03:00:07
            5.0T4   463                       
0          Referenced by comments of: 566/11 
00566/049  *PIL                      *PIL            OC  G          *PIL                                                            
            5.0T2   519  PIL.*PIL.OC.049                    1 LINE    928   21 PAGE UM   TIFFANY             JULY 03, 1981  15:30:24
            5.0T4   464  *PIL                 
00566/050  *PIL                      PLM             WT  G          S0564 D4T2 VLO FSNAME=PIL.PLM.WT.051(1)                      520
            5.0T2   520  PIL.PLM.WT.050                     1 LINE    256   37 PAGE UM   TIFFANY             JULY 28, 1977  03:00:13
            5.0T4   465                       
0          TEXT/360 MASTER FILE FOR WRITEUP DESCRIBING THE INTERNAL STRUCTURE OF PIL/2
           FOR PROSPECTIVE DEVELOPERS.
00567/001A *1052RTN                                  SA  O          MTA:1052RTN                                                     
            5.0T4   372  1052RTN..SA.001                    1 LINE     72   23 PAGE UM   MTA                 AUG. 09, 1981  23:16:01
            5.0T10  276                       
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/3).
00567/002A *1052RTN                                  OC  O          *1052RTN                                                        
            5.0T4   373  1052RTN..OC.002                    1 LINE     80    5 PAGE UM   MTA                 AUG. 09, 1981  23:16:05
            5.0T10  277  *1052RTN             
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00568/001  *TIMETALLY                                             # (OBSOLETE)                                                      
            D3.2T1  492  TIMETALLY..SA.01                   1 LINE     80   45 PAGE UM                       MAR. 21, 1975  01:53:09
0          Obsoleted by SDS (600).
00569/001   PCE SNIFFER                                           # (PART OF HASP)                                                  
                                                                                    UM                                              
0          Distributed as part of HASP (387/23) and (387/24).
00570/001A *MNETRTN                                  SA  G          W267:MNETRTN.S(1)                                               
            5.0T2   521  MNETRTN..SA.001                    1 LINE     78   50 PAGE UM   EADIE               AUG. 06, 1981  03:56:31
            5.0T4   466                       
0          MTS Device Support Routines for the Merit Computer Network interactive service.
              Assemble using *SYSMAC,
                             COPY:MTS.MACROS (344/3) and 
                             *PEXIT (775).
              COPY's         COPY:LLMPSEQU (087), 
                             COPY:GLOBALDEFS (1026/1) and 
                             COPY:GLOBALSETS (1026/2).
0          Referenced by comments of: 9/1 
00570/002A *MNETRTN                                  OC  G          *MNETRTN                                                        
            5.0T2   522  MNETRTN..OC.002                    1 LINE  11890   10 PAGE UM   EADIE               AUG. 06, 1981  03:56:40
            5.0T4   467  *MNETRTN             
00570/003  *MNETRTN                  ASCII XLATE     SA  G          S0564 D4T2 VLO FSNAME=MNETRTN.ASCII_XLATE.SA.003(1)          525
            5.0T2   523  MNETRTN.ASCII_XLATE.SA.003         1 LINE     80    4 PAGE UM   EADIE               FEB. 05, 1976  00:43:33
            5.0T4   468                       
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/9 
00570/004  *MNETRTN                  ASCII XLATE     OC  G        # (PART OF HASP)                                                  
                                                                                    UM   EADIE                                      
0          Part of SEG2:HASP (387/9).
00571/001   APL LIBRARY WS           ADVANCEDE       D              APL:001ADVANCEDE                                                
            5.0T2   524  APL_LIBRARY_WS.ADVANCEDE.D.001     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:38
            5.0T4   469  APL.:001ADVANCEDE    
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.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00571/002   APL LIBRARY WS           APLCOURSE       D              APL:001APLCOURSE                                                
            5.0T2   525  APL_LIBRARY_WS.APLCOURSE.D.002     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:39
            5.0T4   470  APL.:001APLCOURSE    
00571/003   APL LIBRARY WS           CLASS           D              APL:001CLASS                                                    
            5.0T2   526  APL_LIBRARY_WS.CLASS.D.003         1 LINE    255    7 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:40
            5.0T4   471  APL.:001CLASS        
00571/004A  APL LIBRARY WS           NEWS            D              APL:001NEWS                                                     
            5.0T2   527  APL_LIBRARY_WS.NEWS.D.004          1 SEQ   28872    8 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:41
            5.0T4   472  APL.:001NEWS         
0           
           ***************************************************************************
           D5.0 CHANGES:
            
           DOCUMENTS THE USAGE OF THE ")TIME" COMMAND.
           ***************************************************************************
00571/005   APL LIBRARY WS           PLOTFORMA       D              APL:001PLOTFORMA                                                
            5.0T2   528  APL_LIBRARY_WS.PLOTFORMA.D.005     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:42
            5.0T4   473  APL.:001PLOTFORMA    
00571/006   APL LIBRARY WS           TYPEDRILL       D              APL:001TYPEDRILL                                                
            5.0T2   529  APL_LIBRARY_WS.TYPEDRILL.D.006     1 LINE    255    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:43
            5.0T4   474  APL.:001TYPEDRILL    
00571/007   APL LIBRARY WS           WSFNS           D              APL:001WSFNS                                                    
            5.0T2   530  APL_LIBRARY_WS.WSFNS.D.007         1 LINE    255    3 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:44
            5.0T4   475  APL.:001WSFNS        
00571/008   APL LIBRARY WS           EIGENVALUE      D              APL:001EIGENVALUE                                               
            5.0T2   531  APL_LIBRARY_WS.EIGENVALUE.D.008    1 SEQ   12980    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:45
            5.0T4   476  APL.:001EIGENVALU    
00571/009   APL LIBRARY WS           BRFNS           D              APL:001BRFNS                                                    
            5.0T2   532  APL_LIBRARY_WS.BRFNS.D.009         1 SEQ    8044    3 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:45
            5.0T4   477  APL.:001BRFNS        
00571/010   APL LIBRARY WS           CATALOG         D              APL:002CATALOG                                                  
            5.0T2   533  APL_LIBRARY_WS.CATALOG.D.010       1 LINE    255    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:46
            5.0T4   478  APL.:002CATALOG      
00571/011   APL LIBRARY WS           STP1            D              APL:002STP1                                                     
            5.0T2   534  APL_LIBRARY_WS.STP1.D.011          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:47
            5.0T4   479  APL.:002STP1         
00571/012   APL LIBRARY WS           STP2            D              APL:002STP2                                                     
            5.0T2   535  APL_LIBRARY_WS.STP2.D.012          1 LINE    255    6 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:47
            5.0T4   480  APL.:002STP2         
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00571/013   APL LIBRARY WS           STP3            D              APL:002STP3                                                     
            5.0T2   536  APL_LIBRARY_WS.STP3.D.013          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:48
            5.0T4   481  APL.:002STP3         
00571/014   APL LIBRARY WS           STP4            D              APL:002STP4                                                     
            5.0T2   537  APL_LIBRARY_WS.STP4.D.014          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:49
            5.0T4   482  APL.:002STP4         
00571/015   APL LIBRARY WS           STP5            D              APL:002STP5                                                     
            5.0T2   538  APL_LIBRARY_WS.STP5.D.015          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:50
            5.0T4   483  APL.:002STP5         
00571/016   APL LIBRARY WS           STP6            D              APL:002STP6                                                     
            5.0T2   539  APL_LIBRARY_WS.STP6.D.016          1 LINE    255    5 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:51
            5.0T4   484  APL.:002STP6         
00571/017   APL LIBRARY WS           STP7            D              APL:002STP7                                                     
            5.0T2   540  APL_LIBRARY_WS.STP7.D.017          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:52
            5.0T4   485  APL.:002STP7         
00571/018   APL LIBRARY WS           STP8            D              APL:002STP8                                                     
            5.0T2   541  APL_LIBRARY_WS.STP8.D.018          1 LINE    255    5 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:53
            5.0T4   486  APL.:002STP8         
00571/019   APL LIBRARY WS           COMPLEX         D              APL:003COMPLEX                                                  
            5.0T2   542  APL_LIBRARY_WS.COMPLEX.D.019       1 LINE    255    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:53
            5.0T4   487  APL.:003COMPLEX      
00571/020   APL LIBRARY WS           INDEX           D              APL:003INDEX                                                    
            5.0T2   543  APL_LIBRARY_WS.INDEX.D.020         1 LINE    255    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:54
            5.0T4   488  APL.:003INDEX        
00571/021   APL LIBRARY WS           UTIL            D              APL:003UTIL                                                     
            5.0T2   544  APL_LIBRARY_WS.UTIL.D.021          1 LINE    255    3 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:54
            5.0T4   489  APL.:003UTIL         
00571/022   APL LIBRARY WS           ALGFORM         D              APL:005ALGFORM                                                  
            5.0T2   545  APL_LIBRARY_WS.ALGFORM.D.022       1 LINE    255    6 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:55
            5.0T4   490  APL.:005ALGFORM      
00571/023   APL LIBRARY WS           COGO            D              APL:005COGO                                                     
            5.0T2   546  APL_LIBRARY_WS.COGO.D.023          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:56
            5.0T4   491  APL.:005COGO         
00571/024   APL LIBRARY WS           COMPCENT        D              APL:005COMPCENT                                                 
            5.0T2   547  APL_LIBRARY_WS.COMPCENT.D.024      1 LINE    255    3 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:57
            5.0T4   492  APL.:005COMPCENT     
00571/025   APL LIBRARY WS           CW              D              APL:005CW                                                       
            5.0T2   548  APL_LIBRARY_WS.CW.D.025            1 LINE    255    7 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:58
            5.0T4   493  APL.:005CW           
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00571/026   APL LIBRARY WS           EDIT            D              APL:005EDIT                                                     
            5.0T2   549  APL_LIBRARY_WS.EDIT.D.026          1 LINE    255    7 PAGE UM   HELFFRICH           JULY 03, 1981  15:30:59
            5.0T4   494  APL.:005EDIT         
00571/027   APL LIBRARY WS           MATRIXALG       D              APL:005MATRIXALG                                                
            5.0T2   550  APL_LIBRARY_WS.MATRIXALG.D.027     1 LINE    255    8 PAGE UM   HELFFRICH           JULY 03, 1981  15:31:00
            5.0T4   495  APL.:005MATRIXALG    
00571/028A  APL LIBRARY WS           SNOBOL          D              APL:005SNOBOL                                                   
            5.0T2   551  APL_LIBRARY_WS.SNOBOL.D.028        1 SEQ   17176    5 PAGE UM   HELFFRICH           JULY 03, 1981  15:31:00
            5.0T4   496  APL.:005SNOBOL       
0          THIS SNOBOL INTERPRETER, WHICH DIDN'T WORK PREVIOUSLY, WAS FIXED BY A USER.
00571/029   APL LIBRARY WS           SRADEMO         D              APL:005SRADEMO                                                  
            5.0T2   552  APL_LIBRARY_WS.SRADEMO.D.029       1 LINE    255    9 PAGE UM   HELFFRICH           JULY 03, 1981  15:31:01
            5.0T4   497  APL.:005SRADEMO      
00571/030   APL LIBRARY WS           KINGDOM         D              APL:006KINGDOM                                                  
            5.0T2   553  APL_LIBRARY_WS.KINGDOM.D.030       1 SEQ   17208    5 PAGE UM   HELFFRICH           JULY 03, 1981  15:31:02
            5.0T4   498  APL.:006KINGDOM      
0          XM6 APL REWORK OF ALBERTA'S SV APL 'KINGDOM' SIMULATION GAME.
00571/031A  APL LIBRARY WS           TESTS           D              APL:999TESTS                                                    
            5.0T2   554  APL_LIBRARY_WS.TESTS.D.031         1 SEQ    3080    2 PAGE UM   HELFFRICH           JULY 03, 1981  15:31:03
            5.0T4   499  APL.:999TESTS        
0          WORKSPACE INTENDED FOR PROVIDING A TEST FACILITY FOR THE TRIAL OF NEW APL DEVICES.
00572/001   BLOKLETR SUBR                            SA  G  BKLT    W059:BLOKLETR.S                                                 
            5.0T2   555  BLOKLETR_SUBR..SA.001              1 LINE     80   11 PAGE UM   VALERIO             JULY 03, 1981  15:31:04
            5.0T4   500                       
0          SUBROUTINE CALLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS.
0          Referenced by comments of: 555/2 
00572/002   BLOKLETR SUBR                            OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   VALERIO                                    
0          Object part of Resident System (468)
00573/001   MTS VOLUME 5             MASTER          WT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_5.MASTER.WT.001(1)         519
            5.0T2   556  MTS_VOLUME_5.MASTER.WT.001         1 SEQ     132  248 PAGE UM   MANUAL              APR. 05, 1980  18:17:25
            5.0T5     1                       
0          TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" OF THE UM MTS MANUALS,
           APRIL 1980.
            
           EDITOR:  RICHARD A. SALISBURY
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00573/002   MTS VOLUME 5             PRINT           PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_5.PRINT.PT.002(1)          520
            5.0T2   557  MTS_VOLUME_5.PRINT.PT.002          1 SEQ     132  404 PAGE UM   MANUAL              APR. 05, 1980  18:17:37
            5.0T5     2                       
0          TEXT/360 PRINT FILE.
00573/003   MTS VOLUME 5             LOADER MAP      P              S1143 D4.1T1 VLO FSNAME=MTS_VOLUME_5.LOADER_MAP.P.003(1)     346
            5.0T2   558  MTS_VOLUME_5.LOADER_MAP.P.003      1 SEQ     128    2 PAGE UM   MANUAL              MAY  13, 1978  17:47:12
            5.0T5     3                       
0          PRINTED OUTPUT FOR THE EXAMPLE LOADER MAP IN VOLUME 5.
00573/004   MTS VOLUME 5             INDEX SOURCE    D              S1430 4.3T1 VLO FSNAME=MTS_VOLUME_5.INDEX_SOURCE.D.004(1)    521
            5.0T2   559  MTS_VOLUME_5.INDEX_SOURCE.D.004    1 SEQ     145    6 PAGE UM   MANUAL              APR. 05, 1980  18:17:44
            5.0T5     4                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 5.
00574/001A  MTS VOLUME 10            MASTER          WT             S0546 MTSV10 'MTS MANUALS' POSN=NEWM3.V10                       
            5.0T2   560  MTS_VOLUME_10.MASTER.WT.001        1 SEQ     150   98 PAGE UM   MANUAL              JULY 03, 1981  15:34:06
            5.0T5     5                       
0          TEXT/360 MASTER FOR VOLUME 10 "BASIC IN MTS" OF THE UM MTS MANUALS, DECEMBER 1980.
            
           EDITOR:  EDWARD J. FRONCZAK
00574/002A  MTS VOLUME 10            OUTPUT          P              S0546 MTSV10 'MTS MANUALS' POSN=VOL10DEC80                      
            5.0T2   561  MTS_VOLUME_10.OUTPUT.P.002         1 SEQ      70  227 PAGE UM   MANUAL              JULY 03, 1981  15:34:28
            5.0T5     6                       
0          THIS FILE SHOULD BE COPIED DIRECTLY TO A PRINTER.  IT IS NOT A TEXT/360
           PRINT FILE; IT IS THE OUTPUT FROM *PRINT WITH AN INDEX INSERTED.
00575/001A  MTS VOLUME 4             MASTER          WT             S0616 MTSV4 'MTS MANUALS'  POSN=NEWM5.V4                        
            5.0T2   562  MTS_VOLUME_4.MASTER.WT.001         1 SEQ     132  465 PAGE UM   MANUAL              JULY 03, 1981  15:36:20
            5.0T5     7                       
0          TEXT/360 MASTER FOR VOLUME 4 "TERMINALS AND TAPES" OF THE UM MTS MANUALS,
           DECEMBER 1980.
            
           EDITOR:  RICHARD A. SALISBURY
00575/002A  MTS VOLUME 4             PRINT           PT             S0616 MTSV4 'MTS MANUALS'  POSN=PRINT5.V4                       
            5.0T2   563  MTS_VOLUME_4.PRINT.PT.002          1 SEQ     132  536 PAGE UM   MANUAL              JULY 03, 1981  15:36:35
            5.0T5     8                       
0          TEXT/360 PRINT FILE.
00575/003A  MTS VOLUME 4             INDEX SOURCE    D              S0616 MTSV4 'MTS MANUALS'  POSN=V4INDEXSOU.5                    
            5.0T2   564  MTS_VOLUME_4.INDEX_SOURCE.D.003    1 SEQ     120   11 PAGE UM   MANUAL              JULY 03, 1981  15:37:15
            5.0T5     9                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 4.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00576/001   CVTOMR                                   SA  G          S0564 D4T2 VLO FSNAME=CVTOMR..SA.001(1)                      567
            5.0T2   565  CVTOMR..SA.001                     1 LINE     80   15 PAGE UM   DWB                 JULY 28, 1977  03:07:26
            5.0T5    10                       
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).
00576/002   CVTOMR                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   DWB                                        
0          Object part of Resident System (468)
00577/001A  MACHINE CHECK RECOVERY   370 MCHCCH      SA  G          MTA:MCHCCH.S                                                    
            5.0T2   566  MACHINE_CHECK_RECOVERY.37.SA.001   1 LINE     80   14 PAGE UM   MTA                 JULY 03, 1981  15:37:32
            5.0T5    11  MTA.:MCHCCH.S        
0          370 MODEL-INDEPENDENT MACHINE AND CHANNEL CHECK HANDLER.
           ASSEMBLE USING COPY:SETPARM (653), *SYSMAC, MCHMAC (577/5), AND COPY:MISC.MACROS
           (728). COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470),
           COPY:CMDAREADSECT (531/19), COPY:GLOBALS (1026/3), AND
           COPY:BJPDSCT (650/3).
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONTAINS DISK MANAGER CHANGES AND BUG FIXES.
           ***********************************************************************************
0          Referenced by comments of: 577/6, 589/2, 655/4 
00577/002A  MACHINE CHECK RECOVERY   370 MCHCCH      OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00577/003   MACHINE CHECK RECOVERY   370 LOGGER      SA  G          S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.37.SA.055(1)    607
            5.0T2   567  MACHINE_CHECK_RECOVERY.37.SA.003   1 LINE     80    4 PAGE UBC            MTA       MAR. 21, 1975  01:55:46
            5.0T5    12                       
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/3), AND COPY:PSA (162).
           THIS PROGRAM HAS NEVER BEEN USED AT UM.
00577/004   MACHINE CHECK RECOVERY   370 LOGGER      OC  G          S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.37.OC.056(1)    608
            5.0T2   568  MACHINE_CHECK_RECOVERY.37.OC.004   1 LINE     80    3 PAGE UBC            MTA       MAR. 21, 1975  01:55:49
            5.0T5    13                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00577/005A  MACHINE CHECK RECOVERY   MACROS          SM  G          MTA:MCHMAC                                                      
            5.0T2   569  MACHINE_CHECK_RECOVERY.MA.SM.005   1 LINE     72   29 PAGE UM   MTA                 JULY 03, 1981  15:37:42
            5.0T5    14  MTA.:MCHMAC          
0          MACROS FOR ASSEMBLING EREP AND MACHINE CHECK RECOVERY.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CHANGED FOR STC'S PM2 PROGRAM AND OTHER STUFF.
           ***********************************************************************************
0          Referenced by comments of: 531/7, 577/1, 577/6, 589/2, 589/4, 589/5, 589/6, 589/8, 655/4 
00577/006A  MACHINE CHECK RECOVERY   MCHSUBR         SA  G          MTA:MCHSUBR(1,999)                                              
            5.0T2   570  MACHINE_CHECK_RECOVERY.MC.SA.006   1 LINE     78   12 PAGE UM   MTA                 JULY 03, 1981  15:37:46
            5.0T5    15  MTA.:MCHSUBR         
0          MCHCCH (577/1) 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/3), COPY:LLMPSEQU
           (087), COPY:PSA (162), AND *CNFGINFODSECT (654).  ASSEMBLE USING MCHMAC (577/5) AND
           COPY:SETPARM (653).
00577/007A  MACHINE CHECK RECOVERY   MCHSUBR         OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00577/008   MACHINE CHECK RECOVERY   GETLOGS         SA  G          MTA:GETLOGS(1000)                                               
            5.0T2   571  MACHINE_CHECK_RECOVERY.GE.SA.008   1 LINE     69    3 PAGE UM   MTA                 JULY 03, 1981  15:37:48
            5.0T5    16  MTA.:GETLOGS         
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.
00577/009   MACHINE CHECK RECOVERY   GETLOGS         OC  G          MTA:GETLOGS(1,999)                                              
            5.0T2   572  MACHINE_CHECK_RECOVERY.GE.OC.009   1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  15:37:49
            5.0T5    17                       
00577/010   MACHINE CHECK RECOVERY   INIT:MCFILE     D            # INIT:MCFILE                                                     
                                                                                    UM   MTA                                        
                         INIT:MCFILE@E        
0          LOG FILE USED BY THE CMDSTAT PICKUP PROGRAM (*CMD) TO SAVE TYPE 10 (MACHINE
           AND CHANNEL CHECK) RECORDS.
0          Referenced by comments of: 531/5, 655/3 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00578/001A  RSF                      D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=RSF                         
            5.0T4   374  RSF.D5.0_MASTER.SA.001             1 LINE     80   90 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:16:07
            5.0T10  278                       
0          REALLY SHARED FILES (RSF) PORTION OF MTS. COPIES *GFINFODSECT (593),
           COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3). ASSEMBLE USING
           COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND COPY:FILE.MACROS
           (482/45).
0          Referenced by comments of: 42/2, 143/1, 593/1 
00578/002A  RSF                      UPDATE          UC  G          MTS:RSFUPD                                                      
            5.0T4   375  RSF.UPDATE.UC.002                  1 LINE     78   16 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:16:10
            5.0T10  279  MTS:RSFUPD           
0          UPDATE TO PRODUCE CURRENT SOURCE.
           UPDATE USES $CONTROL *IN* POSN=RSF.
00578/003A  RSF                                      OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00578/004A  RSF                                      L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=RSF.LIST                   
            5.0T4   376  RSF..L.004                         1 LINE    133  228 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:16:17
            5.0T10  280                       
00579/001A  LOW CORE SYMBOL TABLES   SYSDEFS         SA  G          MTS:SYSDEFS(1,999)                                              
            5.0T4   377  LOW_CORE_SYMBOL_TABLES.SY.SA.001   1 LINE     70    4 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:21
            5.0T10  281  MTS:SYSDEFS          
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/3).
0          Referenced by comments of: 682/36, 806/1 
00579/002A  LOW CORE SYMBOL TABLES   SYSDEFS         OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       MTA                              
0          Object part of Resident System (468)
00579/003   LOW CORE SYMBOL TABLES   COPY:SYSDEFS    OC  G          COPY:SYSDEFS                                                    
            5.0T4   378  LOW_CORE_SYMBOL_TABLES.CO.OC.003   1 LINE     24    1 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:22
            5.0T10  282  COPY:SYSDEFS         
0          CONTAINS THE 3 LOADER CARDS:
                 RIP  SYSDEFS 
1                                                                                               MON AUG 05/96   18:37:45   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                LCS            LCSYMBOL
                 LCS            SYSDEFS 
0          Referenced by comments of: 9/4, 67/40, 482/61, 534/6, 655/5, 682/40, 682/45, 752/5, 769/15, 804/2, 821/11, 1030/3,
                 1070/4 
00579/004C  LOW CORE SYMBOL TABLES   CCDEFS          SA  G          MTS:CCDEFS(1,999)                                               
            5.0T4   379  LOW_CORE_SYMBOL_TABLES.CC.SA.004   1 LINE     70    1 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:23
            5.0T10  283  MTS:CCDEFS           
0          Contains source for a low core symbol table which is CC-callable from system
           routines.
00579/005C  LOW CORE SYMBOL TABLES   CCDEFS          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       MTA                              
0          Object part of Resident System (468)
00579/006C  LOW CORE SYMBOL TABLES   COPY:CCDEFS     OC  G          COPY:CCDEFS                                                     
            5.0T4   380  LOW_CORE_SYMBOL_TABLES.CO.OC.006   1 LINE     24    1 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:25
            5.0T10  284  COPY:CCDEFS          
0          Contains 3 loader cards:
              RIP  CCDEFS 
              LCS            LCSYMBOL
              LCS            CCDEFS 
00579/007C  LOW CORE SYMBOL TABLES   CCSYMBOL        SA  G          MTS:CCSYMBOL(1,999)                                             
            5.0T4   381  LOW_CORE_SYMBOL_TABLES.CC.SA.007   1 LINE     71    1 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:26
            5.0T10  285  MTS:CCSYMBOL         
0          Contains source for a low core symbol table which is CC-callable from user
           routines.
            
           ****************************************************************************
           D5.0 version:
            
           Currently, even the user routines are only callable in system mode, but this
           may change if and when we agree to release the Coding Conventions to the
           "public" and provide entries in the gate (4000) for the CC routines (or get
           rid of the gate completely).
           ****************************************************************************
00579/008C  LOW CORE SYMBOL TABLES   CCSYMBOL        OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       MTA                              
0          Object part of Resident System (468)
00579/009C  LOW CORE SYMBOL TABLES   COPY:CCSYMBOL   OC  G          COPY:CCSYMBOL                                                   
            5.0T4   382  LOW_CORE_SYMBOL_TABLES.CO.OC.009   1 LINE     24    1 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:27
            5.0T10  286  COPY:CCSYMBOL        
0          Contains 3 loader cards:
              RIP  CCSYMBOL
1                                                                                               MON AUG 05/96   18:37:45   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             LCS            LCSYMBOL
              LCS            CCSYMBOL
0          Referenced by comments of: 1051/19, 1051/21, 1070/4 
00579/010C  LOW CORE SYMBOL TABLES   COPY:DEFS       OC  G          COPY:DEFS                                                       
            5.0T4   383  LOW_CORE_SYMBOL_TABLES.CO.OC.010   1 LINE     24    1 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:28
            5.0T10  287  COPY:DEFS            
0          Contains the following loader cards:
              RIP  SYSDEFS 
              RIP  CCSYMBOL
              RIP  CCDEFS 
              RIP  MNTRLCS
              RIP  MNTRPRV
              LCS            LCSYMBOL
              LCS            SYSDEFS 
              LCS            CCSYMBOL
              LCS            CCDEFS 
              LCS            MNTRLCS
              LCSPR          MNTRPRV
0          Referenced by comments of: 682/23, 724/2, 823/20 
00579/011C  LOW CORE SYMBOL TABLES   COPY:ZDEFS      OC  G          COPY:ZDEFS                                                      
            5.0T4   384  LOW_CORE_SYMBOL_TABLES.CO.OC.011   1 LINE     24    1 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:29
            5.0T10  288  COPY:ZDEFS           
0          Contains ALI records to equate some of the "Z" symbols, e.g., ZREAD, to
           the corresponding LCSYMBOL name READ.
00579/012C  LOW CORE SYMBOL TABLES   COPY:MNTRDEFS   OC  G          COPY:MNTRDEFS                                                   
            5.0T4   385  LOW_CORE_SYMBOL_TABLES.CO.OC.012   1 LINE     24    1 PAGE UM   MTS       MTA       AUG. 09, 1981  23:16:30
            5.0T10  289  COPY:MNTRDEFS        
0          Contains the following loader cards:
            
            RIP  SYSDEFS 
            RIP  MNTRLCS
            RIP  MNTRPRV 
            LCS            LCSYMBOL
            LCS            SYSDEFS 
            LCS            MNTRLCS
            LCSPR          MNTRPRV
00580/001A *INDEX                                    SP  O  INDX    S0027 DISTRB FSNAME=INDEX                                       
            5.0T2   573  INDEX..SP.001                      1 LINE     80   16 PAGE UM   ENGLE               FEB. 04, 1981  14:37:35
            5.0T5    18                       
0          PROGRAM TO PRODUCE MANUAL INDICES.
           WILL PRODUCE INDEX AS TEXT/360 INPUT, FORMAT INPUT, OR REGULAR PRINTED OUTPUT.
0          Referenced by comments of: 512/5, 573/4, 575/3, 665/3, 669/3, 675/3, 676/3, 683/3, 717/3, 733/3, 741/3, 748/3,
                 766/3, 805/3 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00580/002A *INDEX                                    UC  O          S0027 DISTRB FSNAME=INDEXUPD                                    
            5.0T2   574  INDEX..UC.002                      1 LINE     72    1 PAGE UM   ENGLE               FEB. 04, 1981  14:38:59
            5.0T5    19                       
00580/003A *INDEX                                    OC  O          *INDEX                                                          
            5.0T2   575  INDEX..OC.003                      1 LINE  29694   11 PAGE UM   ENGLE               JULY 03, 1981  15:38:10
            5.0T5    20  *INDEX               
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00581/001   INDEXGT                                  SA  G        # (OBSOLETE)                                                      
            D3T5      5  INDEXGT..SA.1                      1 LINE     80    3 PAGE UM                       AUG. 02, 1973  00:15.05
00582/001   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                 SOURCE          SP             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_A.SP.001(1)             621
            5.0T2   576  KWIC/360.PHASE_A.SP.001            1 LINE     80   30 PAGE UM   DWB                 JUNE 04, 1975  22:19:07
            5.0T5    21                       
0          Modified version of IBM program 360D-06.7.014. Paper documentation was
           included with Distribution 4.0 and is available upon request from Don
           Boettner at UM.
            
           Source for phases A through D, the SCAN2 and TRANS subroutines, and input for
           test run as follows:
            
              Lines 1068-1083 are primary stopwords
              Lines 1084-1085 are secondary stopwords
              Lines 1086-LAST are input cards
00583/002   KWIC/360                 PHASE A ET AL   OC             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_A.OC.002(1)             622
            5.0T2   577  KWIC/360.PHASE_A.OC.002            1 SEQ      80    7 PAGE UM   DWB                 JULY 28, 1977  03:22:37
            5.0T5    22                       
0          Object for Phase A, SCAN2 subroutine, and TRANS subroutine.
           Ends with a "$CONTINUE WITH *PL1LIB" card.
00583/003   KWIC/360                 PHASE B         OC             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_B.OC.004(1)             623
            5.0T2   578  KWIC/360.PHASE_B.OC.004            1 SEQ      80    3 PAGE UM   DWB                 JULY 28, 1977  03:22:39
            5.0T5    23                       
0          Ends with a "$CONTINUE WITH *PL1LIB" card.
00583/004   KWIC/360                 PHASE C         OC             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_C.OC.006(1)             624
            5.0T2   579  KWIC/360.PHASE_C.OC.006            1 SEQ      80    4 PAGE UM   DWB                 JULY 28, 1977  03:22:42
            5.0T5    24                       
0          Ends with a "$CONTINUE WITH *PL1LIB" card.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00583/005   KWIC/360                 PHASE D         OC             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_D.OC.008(1)             625
            5.0T2   580  KWIC/360.PHASE_D.OC.008            1 SEQ      80    4 PAGE UM   DWB                 JULY 28, 1977  03:22:44
            5.0T5    25                       
0          Ends with a "$CONTINUE WITH *PL1LIB" card.
00584/001   QUIC                     PHASE 1         SP             S0564 D4T2 VLO FSNAME=QUIC.PHASE_1.SP.001(1)                 626
            5.0T2   581  QUIC.PHASE_1.SP.001                1 LINE     81   35 PAGE UM   DWB                 MAY  13, 1976  20:59:32
            5.0T5    26                       
0          This is the IBM program 360D-06.7.022. It is used as follows: run Phase 1
           (QUIC1), then *SORT (303), then Phase 2 (QUIC2). Paper documentation was
           enclosed with Distribution 3.0 and is available upon request from Don
           Boettner at UM.
            
           The source for Phase 1 is in lines 252 through 1249.
           The source for Phase 2 is in lines 1347 through 1496.
           Test data is in lines 1269 through 1320.
00584/002   QUIC                     PHASE 1         OC             S0564 D4T2 VLO FSNAME=QUIC.PHASE_1.OC.002(1)                 627
            5.0T2   582  QUIC.PHASE_1.OC.002                1 LINE     80   21 PAGE UM   DWB                 JULY 28, 1977  03:23:21
            5.0T5    27                       
00584/003   QUIC                     PHASE 2         OC             S0564 D4T2 VLO FSNAME=QUIC.PHASE_2.OC.004(1)                 628
            5.0T2   583  QUIC.PHASE_2.OC.004                1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  03:23:22
            5.0T5    28                       
00585/001   CALC CLS                                 SA  G          S1430 4.3T1 VLO FSNAME=CALC_CLS..SA.001(1)                   531
            5.0T2   584  CALC_CLS..SA.001                   1 LINE     92   54 PAGE UM   FRONCZAK            APR. 05, 1980  18:18:15
            5.0T5    29                       
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/3). LINES 1,5 CONTAIN MTS COMMANDS FOR 
           ASSEMBLY.
00585/002   CALC CLS                                 OC  G          *CLSCALC                                                        
            5.0T2   585  CALC_CLS..OC.002                   1 LINE     80    5 PAGE UM   FRONCZAK            JULY 03, 1981  15:38:26
            5.0T5    30  *CLSCALC             
00586/001   COST SUBR                                SA  G          S0564 D4T2 VLO FSNAME=COST_SUBR..SA.001(1)                   631
            5.0T2   586  COST_SUBR..SA.001                  1 LINE     80    8 PAGE UM   ENGLE               JAN. 25, 1977  15:31:03
            5.0T5    31                       
0          SUBROUTINE TO COMPUTE CURRENT COST OF RUN.  (E.G. CALLED BY MTS FOR $DISPLAY $).
           COPIES ACCFORMAT (104/1), AND GRDEF (104/72).
00586/002   COST SUBR                                OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   ENGLE                                      
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00587/001   RESEQUENCING PGM                         SA  G          MTS:RSEQ(1,999)                                              632
            5.0T2   587  RESEQUENCING_PGM..SA.001           1 LINE     69    3 PAGE UBC  HOGG      DWB       JULY 03, 1981  15:38:28
            5.0T5    32  MTS.:RSEQ            
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)                                                  
            5.0T2   588  RESEQUENCING_PGM..OC.002           1 LINE     80    2 PAGE UBC  HOGG      DWB       JULY 03, 1981  15:38:30
            5.0T5    33                       
00588/001   INTERCOM                                 SA     EAIC  # (OBSOLETE)                                                      
            D4T2    634  INTERCOM..SA.001                   1 LINE     80   13 PAGE UM                       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.
00589/001   CHANNEL CHECK RECOVERY   360/67          SA  G        # (OBSOLETE)                                                      
            D4T2    635  CHANNEL_CHECK_RECOVERY.36.SA.001   1 LINE     80    8 PAGE UM                       FEB. 13, 1975  23:53:49
00589/002   CHANNEL CHECK RECOVERY   370 CCHSUBR     SA  G          S0564 D4T2 VLO FSNAME=CHANNEL_CHECK_RECOVERY.37.SA.003(1)    636
            5.0T2   589  CHANNEL_CHECK_RECOVERY.37.SA.002   1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  03:32:09
            5.0T5    34                       
0          MCHCCH (577/1) 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/4), IGFC70 (589/5), IGFC80 (589/6), OR A#VCCH47 (589/8).
           THESE ARE REFERENCED WITH WXTRNS AND MAY BE DELETED FROM THE SYSTEM IF NOT
           NEEDED.  ASSEMBLE USING MCHMAC (577/5).
           360/67 I/O INBOARD ERROR RECORDING.  MODIFIED FROM TSS/360.
0          Referenced by comments of: 589/8 
00589/003   CHANNEL CHECK RECOVERY   370 CCHSUBR     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00589/004   CHANNEL CHECK RECOVERY   IGFC60          SA             S0938 FSAVE2 VLO FSNAME=VS2CCH(1)                            128
            5.0T2   590  CHANNEL_CHECK_RECOVERY.IG.SA.004   1 LINE     80   26 PAGE UM   MTA                 NOV. 08, 1975  00:31:31
            5.0T5    35                       
0          VS2 SUBROUTINE TO CONVERT A 2860 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/5).
1                                                                                               MON AUG 05/96   18:37:45   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: 589/2, 589/5, 589/6, 589/7, 655/4 
00589/005   CHANNEL CHECK RECOVERY   IGFC70          SA           # (PART OF IGFC60)                                                
                                                                                    UM   MTA                                        
0          VS2 SUBROUTINE TO CONVERT A 2870 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/5).
            
           Part of (589/4).
0          Referenced by comments of: 589/2, 589/7, 655/4 
00589/006   CHANNEL CHECK RECOVERY   IGFC80          SA           # (PART OF IGFC60)                                                
                                                                                    UM   MTA                                        
0          VS2 SUBROUTINE TO CONVERT A 2880 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/5).
            
           Part of (589/4).
0          Referenced by comments of: 589/2, 589/7, 655/4 
00589/007   CHANNEL CHECK RECOVERY   VS2CCH          OC           # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          OBJECT FOR (589/4), (589/5), AND (589/6).
           Object part of Resident System (468)
00589/008   CHANNEL CHECK RECOVERY   A#VCCH47        SA  G          MTA:470CCH(1,999)                                               
            5.0T2   591  CHANNEL_CHECK_RECOVERY.A#.SA.008   1 LINE     72   11 PAGE UM   MTA                 JULY 03, 1981  15:39:23
            5.0T5    36  MTA.:470CCH          
0          SUBROUTINE CALLED BY CCHSUBR (589/2) 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/5).
0          Referenced by comments of: 589/2, 655/4, 655/5 
00589/009   CHANNEL CHECK RECOVERY   A#VCCH47        OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00590/001  *SPITBOL                  MAIN UPDATE     UU  G          S1143 D4.1T1 VLO FSNAME=SPITBOL.MAIN_UPDATE.UU.001(1)        360
            5.0T2   592  SPITBOL.MAIN_UPDATE.UU.001         1 LINE     72   13 PAGE UM   SWARTZ              MAY  13, 1978  17:48:20
            5.0T5    37                       
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. COPIES DEFLMOD (590/3) AND WORK AREA (590/4).
            
           **************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          D5.0 VERSION:
            
           THESE UPDATES DO NOT INCLUDE THE MOST RECENT UPDATES FROM UBC.
           **************************************************************************
0          Referenced by comments of: 678/4 
00590/002  *SPITBOL                  XFACE UPDATE    UU  G          S1143 D4.1T1 VLO FSNAME=SPITBOL.XFACE_UPDATE.UU.002(1)       361
            5.0T2   593  SPITBOL.XFACE_UPDATE.UU.002        1 LINE     72   40 PAGE UM   SWARTZ              MAY  13, 1978  17:48:22
            5.0T5    38                       
0          UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6.
           COPIES DEFLMOD (590/3) AND WORK AREA (590/4).
00590/003  *SPITBOL                  DEFLMOD         SA  G          S1143 D4.1T1 VLO FSNAME=SPITBOL.DEFLMOD.SA.003(1)            362
            5.0T2   594  SPITBOL.DEFLMOD.SA.003             1 LINE     39    1 PAGE UM   SWARTZ              MAY  13, 1978  17:48:26
            5.0T5    39                       
0          COPY SECTION TO SET INSTALLATION AND COMPILER/LIBRARY GLOBAL VARIABLES.
0          Referenced by comments of: 590/1, 590/2 
00590/004  *SPITBOL                  WORK AREA       SA  G          S1143 D4.1T1 VLO FSNAME=SPITBOL.WORK_AREA.SA.004(1)          363
            5.0T2   595  SPITBOL.WORK_AREA.SA.004           1 LINE     80    3 PAGE UM   SWARTZ              MAY  13, 1978  17:48:27
            5.0T5    40                       
0          COPY SECTION OF SPITBOL WORK AREA.
0          Referenced by comments of: 590/1, 590/2 
00590/005  *SPITBOL                  ZAP CONVERT     SS  G          S0564 D4T2 VLO FSNAME=SPITBOL.ZAP_CONVERT.SS.003(1)          641
            5.0T2   596  SPITBOL.ZAP_CONVERT.SS.005         1 LINE     72    1 PAGE UM   SWARTZ              JULY 28, 1977  03:34:16
            5.0T5    41                       
0          SNOBOL PROGRAM TO CONVERT SPITBOL SUPERZAP DECKS INTO MTS COM AND REP LOADER CARDS.
00590/006  *SPITBOL                  *SPITBOL        OC  G          *SPITBOL                                                        
            5.0T2   597  SPITBOL.?SPITBOL.OC.006            1 SEQ      24    1 PAGE UM   SWARTZ              AUG. 06, 1981  03:58:18
            5.0T5    42                       
0          LOADER CARDS TO FORCE REFERENCE TO THE SHARED VM SPITBOL.
00590/007  *SPITBOL                  ETC:SPITDEFLIB  OL  G          ETC:SPITDEFLIB                                                  
            5.0T2   598  SPITBOL.ETC:SPITDEFLIB.OL.007      1 LINE     24    1 PAGE UM   SWARTZ              JULY 20, 1977  03:40:47
            5.0T5    43                       
0          LOADER CARDS USED AS A DEFAULT LIBRARY FOR THE SPITBOL LOAD FUNCTION TO
           FORCE REFERENCE TO EFL AND LCSYMBOLS.
00590/008  *SPITBOL                  *SPITERR        M              *SPITERR                                                        
            5.0T2   599  SPITBOL.*SPITERR.M.008             1 LINE    175    4 PAGE UM   SWARTZ              JULY 03, 1981  15:39:36
            5.0T5    44  *SPITERR             
0          SPITBOL ERROR MESSAGES.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00590/009  *SPITBOL                  *SPITDEBUG      SS  O          *SPITDEBUG                                                      
            5.0T2   600  SPITBOL.*SPITDEBUG.SS.009          1 LINE    111    4 PAGE UM   SWARTZ              JULY 03, 1981  15:39:37
            5.0T5    45  *SPITDEBUG           
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 (590/30).  USE THE "HELP" COMMAND TO EXPLAIN FUNCTIONS.
0          Referenced by comments of: 590/32, 1070/5 
00590/010  *SPITBOL                  *SPITLIB        OL  O        # *SPITLIB                                                        
                                                                                    UM   SWARTZ                                     
0          *SPITLIB CANNOT BE DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS.
0          Referenced by comments of: 1070/6 
00590/011  *SPITBOL                  UNSP CMD        SA  G          S1153 UNSP VLO FSNAME=SCMD.S                                    
            5.0T2   601  SPITBOL.UNSP_CMD.SA.011            1 LINE     80    3 PAGE UM   UNSP                DEC. 23, 1975  19:33:48
            5.0T5    46                       
0          THIS FOLLOWING SUBCOMPONENTS ARE THE SOURCE FOR THE "UNSUPPORTED" SPITBOL
           FUNCTION LIBRARY, UNSP:SPITLIB (590/30). THESE FUNCTIONS SHOULD NOT BE 
           CONFUSED WITH THOSE IN *SPITLIB.
00590/012  *SPITBOL                  UNSP CREATE     SA  G  SCRE    S1153 UNSP VLO FSNAME=SCREATE.S                                 
            5.0T2   602  SPITBOL.UNSP_CREATE.SA.012         1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:34:35
            5.0T5    47                       
00590/013  *SPITBOL                  UNSP CREPLY     SA  G  SCRP    S1153 UNSP VLO FSNAME=SCREPLY.S                                 
            5.0T2   603  SPITBOL.UNSP_CREPLY.SA.013         1 LINE     80    2 PAGE UM   UNSP                SEP. 01, 1978  08:19:41
            5.0T5    48                       
00590/014  *SPITBOL                  UNSP GDINFO     SA  G  SGDI    S1153 UNSP VLO FSNAME=SGDINFO.S                                 
            5.0T2   604  SPITBOL.UNSP_GDINFO.SA.014         1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:34:40
            5.0T5    49                       
0          ASSEMBLE USING UNSP:MACLIB (685/3).
00590/015  *SPITBOL                  UNSP GETFD      SA  G  SGET    S1153 UNSP VLO FSNAME=SGETFD.S                                  
            5.0T2   605  SPITBOL.UNSP_GETFD.SA.015          1 LINE     80    3 PAGE UM   UNSP                SEP. 02, 1976  12:34:44
            5.0T5    50                       
0          ASSEMBLE USING UNSP:MACLIB (685/3).
00590/016  *SPITBOL                  UNSP GUINFO     SA  G  SGUI    S1153 UNSP VLO FSNAME=SGUINFO.S                                 
            5.0T2   606  SPITBOL.UNSP_GUINFO.SA.016         1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:34:51
            5.0T5    51                       
0          ASSEMBLE USING UNSP:MACLIB (685/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00590/017  *SPITBOL                  UNSP MTSCMD     SA  G  SMTS    S1153 UNSP VLO FSNAME=SMTSCMD.S                                 
            5.0T2   607  SPITBOL.UNSP_MTSCMD.SA.017         1 LINE     80    3 PAGE UM   UNSP                DEC. 23, 1975  19:34:03
            5.0T5    52                       
0          ASSEMBLE USING UNSP:MACLIB (685/3).
00590/018  *SPITBOL                  UNSP READ       SA  G  SREA    S1153 UNSP VLO FSNAME=SREAD.S                                   
            5.0T2   608  SPITBOL.UNSP_READ.SA.018           1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:35:05
            5.0T5    53                       
0          ASSEMBLE USING UNSP:MACLIB (685/3).
00590/019  *SPITBOL                  UNSP SETPFX     SA  G  SSET    S1153 UNSP VLO FSNAME=SSETPFX.S                                 
            5.0T2   609  SPITBOL.UNSP_SETPFX.SA.019         1 LINE     80    3 PAGE UM   UNSP                JAN. 13, 1976  11:29:00
            5.0T5    54                       
0          ASSEMBLE USING UNSP:MACLIB (685/3).
00590/020  *SPITBOL                  UNSP SNS        SA  G  SSNS    S1153 UNSP VLO FSNAME=SNS.S                                     
            5.0T2   610  SPITBOL.UNSP_SNS.SA.020            1 LINE     80    3 PAGE UM   UNSP                SEP. 02, 1976  12:34:54
            5.0T5    55                       
0          ASSEMBLE USING UNSP:MACLIB (685/3).
00590/021  *SPITBOL                  UNSP WRITE      SA  G  SWRI    S1153 UNSP VLO FSNAME=SWRITE.S                                  
            5.0T2   611  SPITBOL.UNSP_WRITE.SA.021          1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:35:12
            5.0T5    56                       
0          ASSEMBLE USING UNSP:MACLIB (685/3).
00590/022  *SPITBOL                  UNSP SNOOP      SA  G  SSNO    S1153 UNSP VLO FSNAME=SSNOOP.S                                  
            5.0T2   612  SPITBOL.UNSP_SNOOP.SA.022          1 LINE     80    3 PAGE UM   UNSP                JULY 12, 1976  13:42:24
            5.0T5    57                       
00590/023  *SPITBOL                  UNSP SPITATTN   SA  G  SATN    S1153 UNSP VLO FSNAME=SPITATTN.S                                
            5.0T2   613  SPITBOL.UNSP_SPITATTN.SA.023       1 LINE     80    5 PAGE UM   UNSP                NOV. 30, 1976  14:22:13
            5.0T5    58                       
00590/024  *SPITBOL                  UNSP SGETRC     SA  G  SGRC    S1153 UNSP VLO FSNAME=SGETRC.S                                  
            5.0T2   614  SPITBOL.UNSP_SGETRC.SA.024         1 LINE     80    1 PAGE UM   UNSP                SEP. 02, 1976  12:34:47
            5.0T5    59                       
00590/025  *SPITBOL                  UNSP SPUTRC     SA  G  SPRC    S1153 UNSP VLO FSNAME=SPUTRC.S                                  
            5.0T2   615  SPITBOL.UNSP_SPUTRC.SA.025         1 LINE     80    1 PAGE UM   UNSP                SEP. 02, 1976  12:35:01
            5.0T5    60                       
00590/026  *SPITBOL                  UNSP STI        SA  G  STIA    S1153 UNSP VLO FSNAME=STI.S                                     
            5.0T2   616  SPITBOL.UNSP_STI.SA.026            1 LINE     80    2 PAGE UM   UNSP                SEP. 02, 1976  12:35:09
            5.0T5    61                       
0          "STR" IS AN ALTERNATE ENTRY.  ASSEMBLE USING UNSP:MACLIB (685/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00590/027  *SPITBOL                  UNSP ITR        SA  G  ITRA    S1153 UNSP VLO FSNAME=ITR.S                                     
            5.0T2   617  SPITBOL.UNSP_ITR.SA.027            1 LINE     80    1 PAGE UM   UNSP                SEP. 02, 1976  12:35:20
            5.0T5    62                       
0          "RTI" IS AN ALTERNATE ENTRY.
00590/028  *SPITBOL                  UNSP ITS        SA  G  ITSA    S1153 UNSP VLO FSNAME=ITS.S                                     
            5.0T2   618  SPITBOL.UNSP_ITS.SA.028            1 LINE     80    1 PAGE UM   UNSP                SEP. 02, 1976  12:35:16
            5.0T5    63                       
0          "RTS" IS AN ALTERNATE ENTRY.
00590/029  *SPITBOL                  UNSP SETLIO     SA  G          S1153 UNSP VLO FSNAME=SSETLIO.S                                 
            5.0T2   619  SPITBOL.UNSP_SETLIO.SA.029         1 LINE     66    1 PAGE UM   UNSP                FEB. 23, 1979  04:51:29
            5.0T5    64                       
0          SPITBOL ROUTINE WHICH CALLS THE MTS SETLIO SUBROUTINE.  OBJECT IS IN
           UNSP:SPITLIB (590/30).
00590/030  *SPITBOL                  UNSP LIBRARY    OL  G          UNSP:SPITLIB                                                    
            5.0T2   620  SPITBOL.UNSP_LIBRARY.OL.030        1 LINE   1382    5 PAGE UM   UNSP                JULY 03, 1981  15:45:25
            5.0T5    65  UNSP:SPITLIB         
0          Referenced by comments of: 590/9, 590/11, 590/29, 590/31, 678/1, 737/15, 1042/70, 1070/5 
00590/031A *SPITBOL                  UNSP LIBRARY    WF             S1153 UNSP VLO FSNAME=SPITLIB.FMT                               
            5.0T2   621  SPITBOL.UNSP_LIBRARY.WF.031        1 LINE     85    7 PAGE UM   UNSP                JUNE 27, 1981  22:03:02
            5.0T5    66                       
0          A WRITEUP FOR THE ROUTINES IN UNSP:SPITLIB (590/30).
00590/032  *SPITBOL                  CONVSPIT        SS  G          UNSP:CONVSPIT(1000)                                             
            5.0T2   622  SPITBOL.CONVSPIT.SS.032            1 LINE     53    1 PAGE UM   UNSP                JULY 03, 1981  15:45:42
            5.0T5    67                       
0          AN INTERACTIVE SPITBOL. USES *SPITLIB (NOT DISTRIBUTED) AND *SPITDEBUG
           (590/9).
00590/033  *SPITBOL                  CONVSPIT        OE  G          UNSP:CONVSPIT(1,999)                                            
            5.0T2   623  SPITBOL.CONVSPIT.OE.033            1 LINE  10408    6 PAGE UM   UNSP                JULY 03, 1981  15:45:44
            5.0T5    68  UNSP:CONVSPIT        
00591/001   CFDUB SUBR                               SA  G          S0564 D4T2 VLO FSNAME=CFDUB_SUBR..SA.001(1)                  665
            5.0T2   624  CFDUB_SUBR..SA.001                 1 LINE     80    2 PAGE UM   MTA                 JULY 28, 1977  03:46:29
            5.0T5    69                       
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        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00592/001A  OPERATORS MANUAL                         WF             W225:OPRML.FMT                                                  
            5.0T2   625  OPERATORS_MANUAL..WF.001           1 LINE    251  159 PAGE UM   DONNELLY            JULY 03, 1981  15:45:47
            5.0T5    70                       
0          MTS OPERATOR'S MANUAL.
0          Referenced by comments of: 50/3, 387/22, 502/1, 610/1, 615/20, 615/41, 615/46, 642/1, 642/3, 642/9, 642/14 
00593/001A *GFINFODSECT                              SA  G          *GFINFODSECT                                                    
            5.0T2   626  GFINFODSECT..SA.001                1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  15:46:58
            5.0T5    71  *GFINFODSECT         
0          COPY SECTION FOR DSECTS DEFINING INFORMATION REGIONS USED IN CONJUNCTION WITH THE
           GFINFO SUBROUTINE, PART OF RSF (578).
0          Referenced by comments of: 67/23, 465/1, 502/1, 529/1, 531/7, 548/1, 548/2, 578/1, 630/1, 1019/2 
00594/001  *GDINFODSECT                              SA  G          *GDINFODSECT                                                    
            5.0T2   627  GDINFODSECT..SA.001                1 LINE     80    2 PAGE UM   MTS       OGDEN     JULY 03, 1981  15:46:59
            5.0T5    72  *GDINFODSECT         
0          COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE.
0          Referenced by comments of: 57/1, 64/1, 101/1, 278/3, 283/1, 291/1, 314/1, 400/14, 400/15, 410/1, 485/34, 495/1,
                 496/1, 498/83, 506/7, 506/8, 513/1, 529/1, 531/7, 531/14, 540/10, 545/3, 545/4, 545/11, 548/1, 551/1, 553/1,
                 595/6, 619/23, 627/1, 634/7, 638/1, 648/1, 655/1, 655/4, 677/1, 680/1, 682/18, 706/6, 709/1, 721/1, 721/2,
                 721/3, 721/6, 721/9, 721/12, 721/18, 727/1, 737/3, 738/1, 746/1, 749/1, 752/1, 771/1, 813/13, 814/2, 823/19,
                 1002/15, 1002/23, 1005/1, 1019/2, 1021/7, 1051/5, 1051/6, 1051/7, 1051/8, 1067/1, 3011/3, 3024/1 
00595/001   APL - GMRL               INSTALLATION    P              S0564 D4T2 VLO FSNAME=APL_-_GMRL.INSTALLATION.P.001(1)       669
            5.0T2   628  APL_-_GMRL.INSTALLATION.P.001      1 LINE     73    1 PAGE UM   TIFFANY             JULY 16, 1973  01:42.51
            5.0T5    73                       
0          THIS IS THE GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE, APL, NOT TO BE
           CONFUSED WITH COMPONENT *APL (465). 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.
            
           *****************************************************************************
           D5.0 version:
            
           Unless we hear any major complaints, this will be the final distribution of
           General Motor's Associative Programming Language.
           *****************************************************************************
0          Referenced by comments of: 595/1 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/002   APL - GMRL               *APLGM          OE  G          *APLGM                                                          
            5.0T2   629  APL_-_GMRL.*APLGM.OE.002           1 SEQ    2436    2 PAGE UM   TIFFANY             JULY 03, 1981  15:47:01
            5.0T5    74  *APLGM               
0          COMPONENTS (595/2) THROUGH (595/5) ARE THE FOUR APL OBJECT FILES AS DESCRIBED
           IN CCMEMO 236, SEE (595/93).
0          Referenced by comments of: 595/1, 595/2 
00595/003   APL - GMRL               *APLTRAN        OE  G          *APLTRAN                                                        
            5.0T2   630  APL_-_GMRL.*APLTRAN.OE.003         1 SEQ   32767   47 PAGE UM   TIFFANY             JULY 03, 1981  15:47:01
            5.0T5    75  *APLTRAN             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/004   APL - GMRL               *APLLIB         OL  G          *APLLIB                                                         
            5.0T2   631  APL_-_GMRL.*APLLIB.OL.004          1 SEQ    4222   21 PAGE UM   TIFFANY             JULY 03, 1981  15:47:04
            5.0T5    76  *APLLIB              
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/005   APL - GMRL               *APLEDCL        OE  G          *APLEDCL                                                        
            5.0T2   632  APL_-_GMRL.*APLEDCL.OE.005         1 SEQ   10704    7 PAGE UM   TIFFANY             JULY 03, 1981  15:47:05
            5.0T5    77  *APLEDCL             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
0          Referenced by comments of: 595/2 
00595/006   APL - GMRL               APLLL0          SA  G          S1430 4.3T1 VLO FSNAME=APL_-_GMRL.APLLL0.SA.006(1)           542
            5.0T2   633  APL_-_GMRL.APLLL0.SA.006           1 LINE     95    4 PAGE UM   TIFFANY             DEC. 21, 1979  09:31:21
            5.0T5    78                       
0          THE SOURCE FOR *APLGM.  ASSEMBLE USING *SYSMAC. COPIES *GDINFODCEST (594).
00595/007   APL - GMRL               XAPL            SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XAPL.SP.007(1)              675
            5.0T2   634  APL_-_GMRL.XAPL.SP.007             1 LINE     72    6 PAGE UM   TIFFANY             JULY 16, 1973  01:45.18
            5.0T5    79                       
0          COMPONENTS (595/7) THROUGH (595/48) ARE THE SOURCE FOR *APLTRAN.
0          Referenced by comments of: 595/7 
00595/008   APL - GMRL               MINITERM        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MINITERM.SP.008(1)          676
            5.0T2   635  APL_-_GMRL.MINITERM.SP.008         1 LINE     73    4 PAGE UM   TIFFANY             JULY 16, 1973  01:45.20
            5.0T5    80                       
00595/009   APL - GMRL               MAPLGET         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLGET.SP.009(1)           677
            5.0T2   636  APL_-_GMRL.MAPLGET.SP.009          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:45.23
            5.0T5    81                       
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/010   APL - GMRL               MCARDGET        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCARDGET.SP.010(1)          678
            5.0T2   637  APL_-_GMRL.MCARDGET.SP.010         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.26
            5.0T5    82                       
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/011   APL - GMRL               MCHMOVE         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHMOVE.SP.011(1)           679
            5.0T2   638  APL_-_GMRL.MCHMOVE.SP.011          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.30
            5.0T5    83                       
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/012   APL - GMRL               MCHSCAN         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHSCAN.SP.012(1)           680
            5.0T2   639  APL_-_GMRL.MCHSCAN.SP.012          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.33
            5.0T5    84                       
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/013   APL - GMRL               MAPLGOOF        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLGOOF.SP.013(1)          681
            5.0T2   640  APL_-_GMRL.MAPLGOOF.SP.013         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.36
            5.0T5    85                       
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/014   APL - GMRL               MAPLPUT         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLPUT.SP.014(1)           682
            5.0T2   641  APL_-_GMRL.MAPLPUT.SP.014          1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.39
            5.0T5    86                       
00595/015   APL - GMRL               MCARDPUT        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCARDPUT.SP.015(1)          683
            5.0T2   642  APL_-_GMRL.MCARDPUT.SP.015         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.42
            5.0T5    87                       
00595/016   APL - GMRL               MAPLNAME        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLNAME.SP.016(1)          684
            5.0T2   643  APL_-_GMRL.MAPLNAME.SP.016         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.46
            5.0T5    88                       
00595/017   APL - GMRL               MCHNAM1         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHNAM1.SP.017(1)           685
            5.0T2   644  APL_-_GMRL.MCHNAM1.SP.017          1 LINE     71    2 PAGE UM   TIFFANY             JULY 16, 1973  01:45.49
            5.0T5    89                       
00595/018   APL - GMRL               MCHNAM2         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHNAM2.SP.018(1)           686
            5.0T2   645  APL_-_GMRL.MCHNAM2.SP.018          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.52
            5.0T5    90                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/019   APL - GMRL               MCHNAM3         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHNAM3.SP.019(1)           687
            5.0T2   646  APL_-_GMRL.MCHNAM3.SP.019          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.55
            5.0T5    91                       
00595/020   APL - GMRL               MBEGPRC         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MBEGPRC.SP.020(1)           688
            5.0T2   647  APL_-_GMRL.MBEGPRC.SP.020          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.59
            5.0T5    92                       
00595/021   APL - GMRL               MDIAGNS         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MDIAGNS.SP.021(1)           689
            5.0T2   648  APL_-_GMRL.MDIAGNS.SP.021          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.02
            5.0T5    93                       
00595/022   APL - GMRL               MENTDCL         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MENTDCL.SP.022(1)           690
            5.0T2   649  APL_-_GMRL.MENTDCL.SP.022          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.05
            5.0T5    94                       
00595/023   APL - GMRL               MSCOPE01        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE01.SP.023(1)          691
            5.0T2   650  APL_-_GMRL.MSCOPE01.SP.023         1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.08
            5.0T5    95                       
00595/024   APL - GMRL               MSCOPE02        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE02.SP.024(1)          692
            5.0T2   651  APL_-_GMRL.MSCOPE02.SP.024         1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.11
            5.0T5    96                       
00595/025   APL - GMRL               MSCOPE03        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE03.SP.025(1)          693
            5.0T2   652  APL_-_GMRL.MSCOPE03.SP.025         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.15
            5.0T5    97                       
00595/026   APL - GMRL               MSCOPE04        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE04.SP.026(1)          694
            5.0T2   653  APL_-_GMRL.MSCOPE04.SP.026         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.18
            5.0T5    98                       
00595/027   APL - GMRL               MSCOPE05        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE05.SP.027(1)          695
            5.0T2   654  APL_-_GMRL.MSCOPE05.SP.027         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.21
            5.0T5    99                       
00595/028   APL - GMRL               MSCOPE06        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE06.SP.028(1)          696
            5.0T2   655  APL_-_GMRL.MSCOPE06.SP.028         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.25
            5.0T5   100                       
00595/029   APL - GMRL               MSUBDCL         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSUBDCL.SP.029(1)           697
            5.0T2   656  APL_-_GMRL.MSUBDCL.SP.029          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.28
            5.0T5   101                       
00595/030   APL - GMRL               MXCREATE        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXCREATE.SP.030(1)          698
            5.0T2   657  APL_-_GMRL.MXCREATE.SP.030         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.31
            5.0T5   102                       
00595/031   APL - GMRL               MXDCL           SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXDCL.SP.031(1)             699
            5.0T2   658  APL_-_GMRL.MXDCL.SP.031            1 LINE     72    8 PAGE UM   TIFFANY             JULY 16, 1973  01:46.35
            5.0T5   103                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/032   APL - GMRL               MXDCL1          SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXDCL1.SP.032(1)            700
            5.0T2   659  APL_-_GMRL.MXDCL1.SP.032           1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.38
            5.0T5   104                       
00595/033   APL - GMRL               MXDCL2          SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXDCL2.SP.033(1)            701
            5.0T2   660  APL_-_GMRL.MXDCL2.SP.033           1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.41
            5.0T5   105                       
00595/034   APL - GMRL               MXDELETE        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXDELETE.SP.034(1)          702
            5.0T2   661  APL_-_GMRL.MXDELETE.SP.034         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.44
            5.0T5   106                       
00595/035   APL - GMRL               MXEND           SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXEND.SP.035(1)             703
            5.0T2   662  APL_-_GMRL.MXEND.SP.035            1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.47
            5.0T5   107                       
00595/036   APL - GMRL               MXFIND          SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXFIND.SP.036(1)            704
            5.0T2   663  APL_-_GMRL.MXFIND.SP.036           1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.51
            5.0T5   108                       
00595/037   APL - GMRL               MXFIND1         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXFIND1.SP.037(1)           705
            5.0T2   664  APL_-_GMRL.MXFIND1.SP.037          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.54
            5.0T5   109                       
00595/038   APL - GMRL               MXINSERT        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXINSERT.SP.038(1)          706
            5.0T2   665  APL_-_GMRL.MXINSERT.SP.038         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.57
            5.0T5   110                       
00595/039   APL - GMRL               MXLET           SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXLET.SP.039(1)             707
            5.0T2   666  APL_-_GMRL.MXLET.SP.039            1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.00
            5.0T5   111                       
00595/040   APL - GMRL               MXON            SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXON.SP.040(1)              708
            5.0T2   667  APL_-_GMRL.MXON.SP.040             1 LINE     71    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.03
            5.0T5   112                       
00595/041   APL - GMRL               MXPLI           SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXPLI.SP.041(1)             709
            5.0T2   668  APL_-_GMRL.MXPLI.SP.041            1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:47.06
            5.0T5   113                       
00595/042   APL - GMRL               MXQUEST         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXQUEST.SP.042(1)           710
            5.0T2   669  APL_-_GMRL.MXQUEST.SP.042          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:47.09
            5.0T5   114                       
00595/043   APL - GMRL               MXREMOVE        SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXREMOVE.SP.043(1)          711
            5.0T2   670  APL_-_GMRL.MXREMOVE.SP.043         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.12
            5.0T5   115                       
00595/044   APL - GMRL               MX4EACH         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MX4EACH.SP.044(1)           712
            5.0T2   671  APL_-_GMRL.MX4EACH.SP.044          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.15
            5.0T5   116                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/045   APL - GMRL               MAPLGO          SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLGO.SP.045(1)            713
            5.0T2   672  APL_-_GMRL.MAPLGO.SP.045           1 LINE     68    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.18
            5.0T5   117                       
00595/046   APL - GMRL               XPLEMES         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLEMES.SP.046(1)           714
            5.0T2   673  APL_-_GMRL.XPLEMES.SP.046          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.22
            5.0T5   118                       
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB.
0          Referenced by comments of: 595/49 
00595/047   APL - GMRL               MXXLOCSET       SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXXLOCSET.SA.047(1)         715
            5.0T2   674  APL_-_GMRL.MXXLOCSET.SA.047        1 LINE     67    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.25
            5.0T5   119                       
0          ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88).
00595/048   APL - GMRL               XPLFORM         SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFORM.SA.048(1)           716
            5.0T2   675  APL_-_GMRL.XPLFORM.SA.048          1 LINE     71    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.28
            5.0T5   120                       
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB.  ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88).
0          Referenced by comments of: 595/7, 595/49 
00595/049   APL - GMRL               XPLCONA         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLCONA.SP.049(1)           717
            5.0T2   676  APL_-_GMRL.XPLCONA.SP.049          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.31
            5.0T5   121                       
0          COMPONENTS (595/49) THROUGH (595/86) PLUS (595/46) AND (595/48) ARE THE
           SOURCE FOR *APLLIB.
0          Referenced by comments of: 595/49 
00595/050   APL - GMRL               XPLCON          SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLCON.SP.050(1)            718
            5.0T2   677  APL_-_GMRL.XPLCON.SP.050           1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:47.34
            5.0T5   122                       
00595/051   APL - GMRL               XPLCRT1         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLCRT1.SP.051(1)           719
            5.0T2   678  APL_-_GMRL.XPLCRT1.SP.051          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.38
            5.0T5   123                       
00595/052   APL - GMRL               XPLCRT2         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLCRT2.SP.052(1)           720
            5.0T2   679  APL_-_GMRL.XPLCRT2.SP.052          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.41
            5.0T5   124                       
00595/053   APL - GMRL               XPLDEL1         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLDEL1.SP.053(1)           721
            5.0T2   680  APL_-_GMRL.XPLDEL1.SP.053          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.44
            5.0T5   125                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/054   APL - GMRL               XPLDEL2         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLDEL2.SP.054(1)           722
            5.0T2   681  APL_-_GMRL.XPLDEL2.SP.054          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.47
            5.0T5   126                       
00595/055   APL - GMRL               XPLDEL3         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLDEL3.SP.055(1)           723
            5.0T2   682  APL_-_GMRL.XPLDEL3.SP.055          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.51
            5.0T5   127                       
00595/056   APL - GMRL               XPLESET         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLESET.SP.056(1)           724
            5.0T2   683  APL_-_GMRL.XPLESET.SP.056          1 LINE     63    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.54
            5.0T5   128                       
00595/057   APL - GMRL               XPLEVAR         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLEVAR.SP.057(1)           725
            5.0T2   684  APL_-_GMRL.XPLEVAR.SP.057          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.00
            5.0T5   129                       
00595/058   APL - GMRL               XPLFND1         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFND1.SP.058(1)           726
            5.0T2   685  APL_-_GMRL.XPLFND1.SP.058          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.03
            5.0T5   130                       
00595/059   APL - GMRL               XPLFND2         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFND2.SP.059(1)           727
            5.0T2   686  APL_-_GMRL.XPLFND2.SP.059          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.07
            5.0T5   131                       
00595/060   APL - GMRL               XPLFND3         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFND3.SP.060(1)           728
            5.0T2   687  APL_-_GMRL.XPLFND3.SP.060          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.10
            5.0T5   132                       
00595/061   APL - GMRL               XPLGO           SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLGO.SP.061(1)             729
            5.0T2   688  APL_-_GMRL.XPLGO.SP.061            1 LINE     68    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.13
            5.0T5   133                       
00595/062   APL - GMRL               XPLGARB         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLGARB.SP.062(1)           730
            5.0T2   689  APL_-_GMRL.XPLGARB.SP.062          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.16
            5.0T5   134                       
00595/063   APL - GMRL               XPLNUMB         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLNUMB.SP.063(1)           731
            5.0T2   690  APL_-_GMRL.XPLNUMB.SP.063          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.19
            5.0T5   135                       
00595/064   APL - GMRL               XPLINDX         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLINDX.SP.064(1)           732
            5.0T2   691  APL_-_GMRL.XPLINDX.SP.064          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.23
            5.0T5   136                       
00595/065   APL - GMRL               XPLNOBL         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLNOBL.SP.065(1)           733
            5.0T2   692  APL_-_GMRL.XPLNOBL.SP.065          1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.26
            5.0T5   137                       
00595/066   APL - GMRL               XPLNSRT         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLNSRT.SP.066(1)           734
            5.0T2   693  APL_-_GMRL.XPLNSRT.SP.066          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:48.29
            5.0T5   138                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/067   APL - GMRL               XPLOWNI         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLOWNI.SP.067(1)           735
            5.0T2   694  APL_-_GMRL.XPLOWNI.SP.067          1 LINE     72    1 PAGE UM   TIFFANY             MAY  05, 1975  17:39:10
            5.0T5   139                       
00595/068   APL - GMRL               XPLOWRS         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLOWRS.SP.068(1)           736
            5.0T2   695  APL_-_GMRL.XPLOWRS.SP.068          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.35
            5.0T5   140                       
00595/069   APL - GMRL               XPLREL0         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLREL0.SP.069(1)           737
            5.0T2   696  APL_-_GMRL.XPLREL0.SP.069          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.38
            5.0T5   141                       
00595/070   APL - GMRL               XPLREL1         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLREL1.SP.070(1)           738
            5.0T2   697  APL_-_GMRL.XPLREL1.SP.070          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.42
            5.0T5   142                       
00595/071   APL - GMRL               XPLSNAM         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLSNAM.SP.071(1)           739
            5.0T2   698  APL_-_GMRL.XPLSNAM.SP.071          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.45
            5.0T5   143                       
00595/072   APL - GMRL               XPLRMV1         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLRMV1.SP.072(1)           740
            5.0T2   699  APL_-_GMRL.XPLRMV1.SP.072          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:48.48
            5.0T5   144                       
00595/073   APL - GMRL               XPLRMV2         SP  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLRMV2.SP.073(1)           741
            5.0T2   700  APL_-_GMRL.XPLRMV2.SP.073          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.51
            5.0T5   145                       
00595/074   APL - GMRL               XPLTYPE         SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLTYPE.SA.074(1)           742
            5.0T2   701  APL_-_GMRL.XPLTYPE.SA.074          1 LINE     59    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.55
            5.0T5   146                       
0          COMPONENTS (595/74) THROUGH (595/86) SHOULD BE ASSEMBLED WITH *SYSMAC AND
           PL1MACLIB (595/88).
0          Referenced by comments of: 595/74 
00595/075   APL - GMRL               XPLUDAT         SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLUDAT.SA.075(1)           743
            5.0T2   702  APL_-_GMRL.XPLUDAT.SA.075          1 LINE     72    7 PAGE UM   TIFFANY             JULY 16, 1973  01:48.58
            5.0T5   147                       
00595/076   APL - GMRL               XPLADDR         SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLADDR.SA.076(1)           744
            5.0T2   703  APL_-_GMRL.XPLADDR.SA.076          1 LINE     40    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.01
            5.0T5   148                       
00595/077   APL - GMRL               XPLALOC         SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLALOC.SA.077(1)           745
            5.0T2   704  APL_-_GMRL.XPLALOC.SA.077          1 LINE     72    3 PAGE UM   TIFFANY             SEP. 27, 1974  12:40.15
            5.0T5   149                       
00595/078   APL - GMRL               XPLDREC         SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLDREC.SA.078(1)           746
            5.0T2   705  APL_-_GMRL.XPLDREC.SA.078          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:49.07
            5.0T5   150                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/079   APL - GMRL               XPLEV           SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLEV.SA.079(1)             747
            5.0T2   706  APL_-_GMRL.XPLEV.SA.079            1 LINE     56    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.11
            5.0T5   151                       
00595/080   APL - GMRL               XPLFREE         SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFREE.SA.080(1)           748
            5.0T2   707  APL_-_GMRL.XPLFREE.SA.080          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.14
            5.0T5   152                       
00595/081   APL - GMRL               XPLOC           SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLOC.SA.081(1)             749
            5.0T2   708  APL_-_GMRL.XPLOC.SA.081            1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:49.20
            5.0T5   153                       
00595/082   APL - GMRL               XIRMIN          SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XIRMIN.SA.082(1)            750
            5.0T2   709  APL_-_GMRL.XIRMIN.SA.082           1 LINE     72    9 PAGE UM   TIFFANY             JULY 16, 1973  01:49.23
            5.0T5   154                       
00595/083   APL - GMRL               XIRMOUT         SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.XIRMOUT.SA.083(1)           751
            5.0T2   710  APL_-_GMRL.XIRMOUT.SA.083          1 LINE     72    9 PAGE UM   TIFFANY             JULY 16, 1973  01:49.26
            5.0T5   155                       
00595/084   APL - GMRL               RRIN            SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.RRIN.SA.084(1)              752
            5.0T2   711  APL_-_GMRL.RRIN.SA.084             1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:49.29
            5.0T5   156                       
00595/085   APL - GMRL               RROUT           SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.RROUT.SA.085(1)             753
            5.0T2   712  APL_-_GMRL.RROUT.SA.085            1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:49.32
            5.0T5   157                       
00595/086   APL - GMRL               SYSVM           SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.SYSVM.SA.086(1)             754
            5.0T2   713  APL_-_GMRL.SYSVM.SA.086            1 LINE     69    8 PAGE UM   TIFFANY             OCT. 13, 1976  18:05:24
            5.0T5   158                       
0          Copies *CNFGINFODSECT (654).
0          Referenced by comments of: 595/49, 595/74 
00595/087   APL - GMRL               CHGSCR          SA  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.CHGSCR.SA.087(1)            755
            5.0T2   714  APL_-_GMRL.CHGSCR.SA.087           1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.38
            5.0T5   159                       
0          COPY SECTION USED BY SEVERAL MODULES IN *APLLIB.
00595/088   APL - GMRL               PL1MACLIB       SM  G          S0564 D4T2 VLO FSNAME=APL_-_GMRL.PL1MACLIB.SM.088(1)         756
            5.0T2   715  APL_-_GMRL.PL1MACLIB.SM.088        1 LINE     80   15 PAGE UM   TIFFANY             JULY 16, 1973  01:49.58
            5.0T5   160                       
0          MACRO LIBRARY REQUIRED BY ASSEMBLY LANGUAGE MODULES IN *APLTRAN AND *APLLIB.
0          Referenced by comments of: 595/47, 595/48, 595/74 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00595/089   APL - GMRL               BLDTRAN         C              S0564 D4T2 VLO FSNAME=APL_-_GMRL.BLDTRAN.C.089(1)            757
            5.0T2   716  APL_-_GMRL.BLDTRAN.C.089           1 LINE     82    1 PAGE UM   TIFFANY             JULY 16, 1973  01:50.08
            5.0T5   161                       
0          A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLTRAN.
           HAS MANY  "$CONTINUE WITH" LINES.
00595/090   APL - GMRL               BLDLIB          C              S0564 D4T2 VLO FSNAME=APL_-_GMRL.BLDLIB.C.090(1)             758
            5.0T2   717  APL_-_GMRL.BLDLIB.C.090            1 LINE     74    1 PAGE UM   TIFFANY             JULY 16, 1973  01:50.17
            5.0T5   162                       
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          S0564 D4T2 VLO FSNAME=APL_-_GMRL.APLTRAN.SEP.OE.091(1)       759
            5.0T2   718  APL_-_GMRL.APLTRAN.SEP.OE.091      1 SEQ   11606   54 PAGE UM   TIFFANY             JULY 16, 1973  01:51.03
            5.0T5   163                       
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          S0564 D4T2 VLO FSNAME=APL_-_GMRL.APLEDCL.S.SP.092(1)         760
            5.0T2   719  APL_-_GMRL.APLEDCL.S.SP.092        1 LINE     72    4 PAGE UM   TIFFANY             MAY  05, 1975  17:39:07
            5.0T5   164                       
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).
0          Referenced by comments of: 595/1 
00595/093   APL - GMRL               MEMO 236        WF             S0564 D4T2 VLO FSNAME=APL_-_GMRL.MEMO_236.WF.093(1)          761
            5.0T2   720  APL_-_GMRL.MEMO_236.WF.093         1 LINE    114    8 PAGE UM   TIFFANY             JULY 17, 1973  17:39.33
            5.0T5   165                       
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).
0          Referenced by comments of: 595/2 
00596/001   ZAP                                      SA           # (OBSOLETE)                                                      
            D3.1T1  455  ZAP..SA.1                          1 LINE     80   13 PAGE UM                       MAR. 06, 1974  22:30.58
0          Obsoleted by RAMROD (1019)
00597/001   CHKVTOC                                               # (PART OF FILE SYSTEM RECOVERY)                                  
                                                                                    UM                                              
0          Part of File System Recovery (682/20) and (682/21)
00598/001A  DASDI                    BASE SOURCE     SA  G          FILE:DASDI(-10000,-1)                                           
            5.0T2   721  DASDI.BASE_SOURCE.SA.001           1 LINE     80   45 PAGE UM   HELFFRICH           AUG. 06, 1981  04:00:11
            5.0T5   166  FILE:DASDI           
0          PROGRAM TO VAM2- OR VAMX-FORMAT DASDI 2311, 2314, 3330, 333B, 3340, 3344, AND 3350 DISKS.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          MARKS 3330-11 DISKS AS "333B" IN LABEL ACCORDING TO TSS CONVENTION. ASSEMBLE
           USING COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), AND *SYSMAC.  INPUT
           DESCRIBED IN SOURCE COMMENTS.
0          Referenced by comments of: 598/2, 682/5 
00598/002C  DASDI                    UPDATE          UC  G          FILE:DASDI(1000)                                                
            5.0T2   722  DASDI.UPDATE.UC.002                1 LINE     74    1 PAGE UM   HELFFRICH           AUG. 06, 1981  04:00:22
            5.0T5   167                       
0          UPDATE DECK TO BE APPLIED TO (598/1) TO YIELD CURRENT SOURCE.
00598/003A  DASDI                    OBJECT          OC  G          FILE:DASDI(1,999)                                               
            5.0T2   723  DASDI.OBJECT.OC.003                1 LINE     80   14 PAGE UM   HELFFRICH           AUG. 06, 1981  04:00:25
            5.0T5   168                       
00599/001A  CHONID                                   SA  G  CHON    FILE:CHONID(1,999)                                              
            5.0T2   724  CHONID..SA.001                     1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  15:48:14
            5.0T5   169  FILE:CHONID          
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/45).
           SEE COMP (682/6) FOR A WRITEUP.
0          Referenced by comments of: 682/6 
00599/002A  CHONID                                   OC  G          FILE:CHONID(1000)                                               
            5.0T2   725  CHONID..OC.002                     1 LINE     80    1 PAGE UM   HELFFRICH           JULY 03, 1981  15:48:15
            5.0T5   170                       
00600/001A  SDS CLS                  CLSSOU          SA  G          W059:SDSCLSSOU                                                  
            5.0T2   726  SDS_CLS.CLSSOU.SA.001              1 LINE     75  175 PAGE UM   VALERIO             JULY 03, 1981  15:48:15
            5.0T5   171                       
0          SDS, THE SYMBOLIC DEBUGGING SYSTEM.
            
           (600/1) IS THE SOURCE FOR THE CLS INTERFACE TO SDS.  IT COPIES *CNFGINFODSECT
           (654), COPY:GLOBALS (1026/3), SDSCONSTANT (600/14), AND SDSPSECT (600/12).
           ASSEMBLE USING *SYSMAC, SDSMACROS (600/11), AND COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 539/7, 568/1, 600/1, 600/2, 721/18 
00600/002   SDS CLS                  CLS             OC  G          W059:SDSCLS                                                     
            5.0T2   727  SDS_CLS.CLS.OC.002                 1 LINE     80   58 PAGE UM   VALERIO             JULY 03, 1981  15:48:28
            5.0T5   172                       
0          OBJECT FOR (600/1).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00600/003A  SDS CLS                  CLI             SA  G          W059:SDSCLISOU                                                  
            5.0T2   728  SDS_CLS.CLI.SA.003                 1 LINE     72   85 PAGE UM   VALERIO             JULY 03, 1981  15:48:32
            5.0T5   173                       
0          THE SDS COMMAND LANGUAGE INTERPRETER.  COPIES SDSBT (600/13), SDSCONSTANT (600/14),
           AND SDSPSECT (600/12). ASSEMBLE USING SDSMACROS (600/11), COPY:MTS.MACROS
           (344/3), AND *SYSMAC.
00600/004   SDS CLS                  CLI             OC  G          W059:SDSCLI                                                     
            5.0T2   729  SDS_CLS.CLI.OC.004                 1 LINE     80   34 PAGE UM   VALERIO             JULY 03, 1981  15:48:39
            5.0T5   174                       
00600/005   SDS CLS                  IOC             SA  G          W059:SDSIOCSOU                                                  
            5.0T2   730  SDS_CLS.IOC.SA.005                 1 LINE     80   18 PAGE UM   VALERIO             JULY 03, 1981  15:48:43
            5.0T5   175                       
0          THE SDS I/O CONTROL MODULE.  COPIES SDSPSECT (600/12), SDSCONSTANT
           (600/14), AND SDSBT (600/13).  ASSEMBLE USING SDSMACROS (600/11),
           COPY:MTS.MACROS (344/3), AND *SYSMAC.
00600/006   SDS CLS                  IOC             OC  G          W059:SDSIOC                                                     
            5.0T2   731  SDS_CLS.IOC.OC.006                 1 LINE     80   14 PAGE UM   VALERIO             JULY 03, 1981  15:48:45
            5.0T5   176                       
00600/007   SDS CLS                  SIMULATOR       SA  G          W059:SDSSIMLSOU                                                 
            5.0T2   732  SDS_CLS.SIMULATOR.SA.007           1 LINE     70   30 PAGE UM   VALERIO             JULY 03, 1981  15:48:46
            5.0T5   177                       
0          THE SDS INSTRUCTION SIMULATOR.  COPIES SDSPSECT (600/12) AND
           *CNFGINFODSECT (654).  ASSEMBLE USING SDSMACROS (600/11) AND
           COPY:MTS.MACROS (344/3).
00600/008   SDS CLS                  SIMULATOR       OC  G          W059:SDSSIML                                                    
            5.0T2   733  SDS_CLS.SIMULATOR.OC.008           1 LINE     80   18 PAGE UM   VALERIO             JULY 03, 1981  15:48:49
            5.0T5   178                       
00600/009A  SDS CLS                  EDITOR          SA  G          W059:SDSEDTRSOU                                                 
            5.0T2   734  SDS_CLS.EDITOR.SA.009              1 LINE     72   38 PAGE UM   VALERIO             JULY 03, 1981  15:48:51
            5.0T5   179                       
0          THE SDS EDITOR.  COPIES SDSBT (600/13), SDSCONSTANT (600/14), AND SDSPSECT (600/12).
           ASSEMBLE USING SDSMACROS (600/11), COPY:MTS.MACROS (344/3), AND *SYSMAC.
00600/010   SDS CLS                  EDITOR          OC  G          W059:SDSEDTR                                                    
            5.0T2   735  SDS_CLS.EDITOR.OC.010              1 LINE     80   18 PAGE UM   VALERIO             JULY 03, 1981  15:48:54
            5.0T5   180                       
00600/011   SDS CLS                  SDSMACROS       SM  G  SDSM    W059:SDSMACROS                                                  
            5.0T2   736  SDS_CLS.SDSMACROS.SM.011           1 LINE     80   14 PAGE UM   VALERIO             JULY 03, 1981  15:48:56
            5.0T5   181                       
0          SDS MACRO LIBRARY.
0          Referenced by comments of: 600/1, 600/3, 600/5, 600/7, 600/9 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00600/012   SDS CLS                  SDSPSECT        SA  G          W059:SDSPSECT                                                   
            5.0T2   737  SDS_CLS.SDSPSECT.SA.012            1 LINE     72   38 PAGE UM   VALERIO             JULY 03, 1981  15:48:57
            5.0T5   182                       
0          COPY SECTION FOR SDS DSECTS.
0          Referenced by comments of: 600/1, 600/3, 600/5, 600/7, 600/9 
00600/013   SDS CLS                  SDSBT           SA  G          W059:SDSBT                                                      
            5.0T2   738  SDS_CLS.SDSBT.SA.013               1 LINE     70    3 PAGE UM   VALERIO             JULY 03, 1981  15:49:00
            5.0T5   183                       
0          COPY SECTION FOR BRANCH TABLES.
0          Referenced by comments of: 600/3, 600/5, 600/9 
00600/014   SDS CLS                  SDSCONSTANT     SA  G          W059:SDSCONSTANT                                                
            5.0T2   739  SDS_CLS.SDSCONSTANT.SA.014         1 LINE     68    1 PAGE UM   VALERIO             JULY 03, 1981  15:49:01
            5.0T5   184                       
0          COPY SECTION FOR CONSTANTS.
0          Referenced by comments of: 600/1, 600/3, 600/5, 600/9 
00600/015A  SDS CLS                  OBJECT          OE  G          *CLSSDS                                                         
            5.0T2   740  SDS_CLS.OBJECT.OE.015              1 LINE  32767   88 PAGE UM   VALERIO             JULY 03, 1981  15:49:02
            5.0T5   185  *CLSSDS              
0          THE SDS OBJECT IS LOADED INTO SHARED VM BY PISTLE AT IPL.
00600/016   SDS CLS                  TEST PROGRAM    C              W059:ASMSDSTEST                                                 
            5.0T2   741  SDS_CLS.TEST_PROGRAM.C.016         1 LINE     63    1 PAGE UM   VALERIO             JULY 03, 1981  15:49:07
            5.0T5   186                       
0          SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAMS IN (600/17).
00600/017A  SDS CLS                  TEST PGM 1      SA             W059:SDSTEST.S                                                  
            5.0T2   742  SDS_CLS.TEST_PGM_1.SA.017          1 LINE     63    6 PAGE UM   VALERIO             JULY 03, 1981  15:49:08
            5.0T5   187                       
0          Referenced by comments of: 600/16 
00600/018   SDS CLS                  TEST PGM 1      OC             W059:SDSTEST.O                                                  
            5.0T2   743  SDS_CLS.TEST_PGM_1.OC.018          1 LINE     80    8 PAGE UM   VALERIO             JULY 03, 1981  15:49:09
            5.0T5   188                       
00600/019   SDS CLS                  TEST PGM 2      SP             W059:PL1TESTSOU                                                 
            5.0T2   744  SDS_CLS.TEST_PGM_2.SP.019          1 LINE     92    5 PAGE UM   VALERIO             JULY 03, 1981  15:49:10
            5.0T5   189                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00600/020   SDS CLS                  TEST PGM 2      OC             W059:PL1TEST                                                    
            5.0T2   745  SDS_CLS.TEST_PGM_2.OC.020          1 LINE     80   14 PAGE UM   VALERIO             JULY 03, 1981  15:49:11
            5.0T5   190                       
00601/001   SLT INSTRUCTION DIAGRAM                  P              S0564 D4T2 VLO FSNAME=SLT_INSTRUCTION_DIAGRAM..P.(1)         788
            5.0T2   746  SLT_INSTRUCTION_DIAGRAM..P.001     1 LINE     75    1 PAGE UM   ?                   AUG. 02, 1973  00:33.08
            5.0T5   191                       
0          PRINTER DIAGRAM SHOWING OPERATION OF SYSTEM/360 SLT (SEARCH LIST) INSTRUCTION.
00602/001   NOT-RESEQUENCER                          SS             S0564 D4T2 VLO FSNAME=NOT-RESEQUENCER..SS.(1)                789
            5.0T2   747  NOT-RESEQUENCER..SS.001            1 LINE     63    2 PAGE UM   DWB                 JULY 28, 1977  03:55:16
            5.0T5   192                       
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.
            
           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                                                # (PART OF UNIT CHECK ROUTINES)                                   
                                                                                    UM                                              
0          Part of Unit Check Routines (787/5).
0          Referenced by comments of: 787/1 
00604/001   PRNTCNTS                                              # (PART OF SYSTEM WATCHERS)                                       
                                                                                    UM                                              
0          Part of System Watchers (540/3).
00605/001A  TWAIT SUBR               D5 SOURCE       SA  G          S0699 D3TAPE POSN=TWAIT.D5                                      
            5.0T4   386  TWAIT_SUBR.D5_SOURCE.SA.001        1 LINE     80    3 PAGE UM   MTA                 AUG. 09, 1981  23:16:40
            5.0T10  290                       
0          USER CALLABLE SUBROUTINE TO WAIT FOR A SPECIFIED REAL TIME INTERVAL AND THEN RETURN.
0          Referenced by comments of: 606/1 
00605/002C  TWAIT SUBR               UPDATE          UC  G          MTA:TWAIT.U                                                     
            5.0T4   387  TWAIT_SUBR.UPDATE.UC.002           1 LINE     65    1 PAGE UM   MTA                 AUG. 09, 1981  23:16:40
            5.0T10  291                       
0          Updates TWAIT from D4.0 source to D5.0 source.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00605/003A  TWAIT SUBR                               OC  G          SEG2:TWAIT                                                      
            5.0T4   388  TWAIT_SUBR..OC.003                 1 LINE     80    1 PAGE UM   MTA                 AUG. 09, 1981  23:16:41
            5.0T10  292  SEG2:TWAIT           
00606/001   TICALL SUBR                              SA  G          S0564 D4T2 VLO FSNAME=TICALL_SUBR..SA.001(1)                 793
            5.0T2   748  TICALL_SUBR..SA.001                1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  04:02:05
            5.0T5   193                       
0          SUBROUTINE TO PROVIDE AN INTERFACE TO THE MTS TIMER INTERRUPT SUBROUTINES (605) FROM FORTRAN PROGRAMS.
00606/002   TICALL SUBR                              OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   MTA                                        
0          Object part of *LIBRARY (524/1)
00607/001   STIMER SUBR                              SA  G          S0564 D4T2 VLO FSNAME=STIMER_SUBR..SA.001(1)                 794
            5.0T2   749  STIMER_SUBR..SA.001                1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  04:02:07
            5.0T5   194                       
0          SUBROUTINE TO PROVIDE MTS SUPPORT FOR THE OS/ 360 STIMER AND TTIMER MACROS
           WHICH ARE AVAILABLE IN *SYSMAC. SEE (545/30) IN FAKEOS FOR A TEST PROGRAM.
00607/002   STIMER SUBR                              OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   MTA                                        
0          Object part of *LIBRARY (524/1)
00608/001  *MVC                                      SA  G  MVC     W032:MVCSOU4.0                                                  
            5.0T2   750  MVC..SA.001                        1 LINE     80   38 PAGE UM   EMERY               JULY 03, 1981  15:49:21
            5.0T5   195                       
0          RECORD REFORMATTING PROGRAM.
00608/002  *MVC                                      OC  G          *MVC                                                            
            5.0T2   751  MVC..OC.002                        1 LINE     80    4 PAGE UM   EMERY               JULY 03, 1981  15:49:24
            5.0T5   196  *MVC                 
00609/001   7330 CCW SCANNER                                      # (OBSOLETE)                                                      
            D4T2    797  7330_CCW_SCANNER..SA.001           1 LINE     80    5 PAGE UM                       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.
00610/001A  FILE SAVE TAPE COPY                      SA             RSTR:FSTAPECOPY(1000)                                           
            5.0T2   752  FILE_SAVE_TAPE_COPY..SA.001        1 LINE     74   16 PAGE UM   HELFFRICH           JULY 03, 1981  15:49:25
            5.0T5   197  RSTR:FSTAPECOPY      
0          PROGRAM TO MAKE COPIES OF FILESAVE TAPES, AS PRODUCED BY (067).  WILL OPTIONALLY
           MAKE A 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.  COPIES *CNFGINFODSECT (654).
           ASSEMBLE WITH THE FILESAVE MACROS (067/31).
            
           ***************************************************************************
           D5.0 changes:
1                                                                                               MON AUG 05/96   18:37:45   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           
           Fixed bug causing stream date checking to fail if tapes being copied
           crossed midnight when saved.
           ***************************************************************************
0          Referenced by comments of: 67/1 
00610/002A  FILE SAVE TAPE COPY                      OC             RSTR:FSTAPECOPY(1,999)                                          
            5.0T2   753  FILE_SAVE_TAPE_COPY..OC.002        1 LINE     80   15 PAGE UM   HELFFRICH           JULY 03, 1981  15:49:30
            5.0T5   198                       
00610/003A  FILE SAVE TAPE COPY      *FSC            C              *FSC                                                            
            5.0T2   754  FILE_SAVE_TAPE_COPY.*FSC.C.003     1 LINE     71    1 PAGE UM   HELFFRICH           JULY 03, 1981  15:49:34
            5.0T5   199  RSTR:*FSC            
0          COMMAND FILE TO START THE FILESAVE TAPE COPY PROGRAM.  INVOKED BY ENTERING
           "MTS *FSC" ON THE OPERATOR'S CONSOLE.
00611/001   LOCKSTAT                                              # (OBSOLETE)                                                      
            D4T2    802  LOCKSTAT..SA.001                   1 LINE     80    6 PAGE UM                       AUG. 02, 1973  00:36.13
0          PROGRAM TO PRINT LOCK BYTE COUNTS AND TIMES FROM THE SUPERVISOR (045).
00612/001   LETGO SUBR                               SA  G          S1143 D4.1T1 VLO FSNAME=LETGO_SUBR..SA.001(1)                376
            5.0T2   755  LETGO_SUBR..SA.001                 1 LINE     80    5 PAGE UM   WSG                 APR. 21, 1978  18:32:23
            5.0T5   200                       
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        # (PART OF *LIBRARY)                                              
                                                                                    UM   WSG                                        
0          Object part of *LIBRARY (524/1)
00613/001   LONGREAD                                 SA  S          S0564 D4T2 VLO FSNAME=LONGREAD..SA.001(1)                    805
            5.0T2   756  LONGREAD..SA.001                   1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:36.19
            5.0T5   201                       
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          S0564 D4T2 VLO FSNAME=LONGREAD..OC.002(1)                    806
            5.0T2   757  LONGREAD..OC.002                   1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:36.21
            5.0T5   202                       
00614/001   START JOB                                             # (OBSOLETE)                                                      
            D3T5    184  START_JOB..SA.1                    1 LINE     80    1 PAGE UM                       AUG. 02, 1973  00:36.23
0          Obsoleted by the $SYSTEMSTATUS command.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00615/001   PLOT SYSTEM              MACROS          SM  G          W030:CCMACROS                                                   
            5.0T2   758  PLOT_SYSTEM.MACROS.SM.001          1 LINE     80    3 PAGE UM   LIFT                JULY 03, 1981  15:49:40
            5.0T5   203                       
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/1, 615/3 
00615/002   PLOT SYSTEM              PLTBGN          SA  G          W030:PLTBGN                                                     
            5.0T2   759  PLOT_SYSTEM.PLTBGN.SA.002          1 LINE     71   14 PAGE UM   LIFT                JULY 03, 1981  15:49:41
            5.0T5   204                       
0          SUBROUTINE IN *PLOTSYS.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 615/9 
00615/003   PLOT SYSTEM              ASM             SA  G          W030:CCASM                                                      
            5.0T2   760  PLOT_SYSTEM.ASM.SA.003             1 LINE     80   36 PAGE UM   LIFT                JULY 03, 1981  15:49:47
            5.0T5   205                       
0          SUBROUTINES IN *PLOTSYS.  ASSEMBLE USING PLOT MACROS (615/1) AND *SYSMAC.
0          Referenced by comments of: 615/9 
00615/004A  PLOT SYSTEM              FORT            SF  G          W030:CCFORT                                                     
            5.0T2   761  PLOT_SYSTEM.FORT.SF.004            1 LINE     76   17 PAGE UM   LIFT                JULY 03, 1981  15:49:52
            5.0T5   206                       
0          SUBROUTINES IN *PLOTSYS.
            
           **********************************************************************************
           D5.0 CHANGES (ALREADY DISRIBUTED):
            
           FIXED BUG IN PLGAXS (IN PRINTING OF AXIS VALUES). 
           **********************************************************************************
0          Referenced by comments of: 615/9 
00615/005   PLOT SYSTEM              PSYM            SA  G          W030:PSYM                                                       
            5.0T2   762  PLOT_SYSTEM.PSYM.SA.005            1 LINE     68   14 PAGE UM   LIFT                JULY 03, 1981  15:49:57
            5.0T5   207                       
0          CHARACTER GENERATION ROUTINE WHICH USES 256-CHARACTER ALPHABETS, ALLOWS
           SLANTING OF LETTERS, AND CHANGING PROPORTIONS AND SPACING.  SEE THE
           INSTALLATION INSTRUCTIONS (615/23) FOR AN EXPLANATION OF THE &WHAT ASSEMBLY
           PARAMETER.  COPIES CBDSECT (615/7).
0          Referenced by comments of: 532/1, 615/6, 615/7, 615/9, 615/16, 615/18, 615/21, 615/22 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00615/006   PLOT SYSTEM              PALPHA          SA  G          W030:PALPHA                                                     
            5.0T2   763  PLOT_SYSTEM.PALPHA.SA.006          1 LINE     68   10 PAGE UM   LIFT                JULY 03, 1981  15:49:59
            5.0T5   208                       
0          THIS ROUTINE IS USED WITH PSYM (615/5).  THE STANDARD ALPHABET ACTUALLY RESIDES
           HERE.  HOWEVER, PALPHA CAN OBTAIN ALTERNATE ALPHABETS FROM ETC:PLOTALPHA (615/8)
           OR FROM A USER FILE.  COPIES CBDSECT (615/7). 
0          Referenced by comments of: 615/7, 615/8, 615/9, 615/16, 615/18, 615/21, 615/22 
00615/007   PLOT SYSTEM              CBDSECT         SA  G          W030:CBDSECT                                                    
            5.0T2   764  PLOT_SYSTEM.CBDSECT.SA.007         1 LINE     69    1 PAGE UM   LIFT                JULY 03, 1981  15:50:00
            5.0T5   209                       
0          DSECT COPIED BY PSYM (615/5) AND PALPHA (615/6) WHICH DESCRIBES THE STRUCTURE
           OF CHARACTER SETS (ALPHABETS).
0          Referenced by comments of: 615/5, 615/6 
00615/008   PLOT SYSTEM              ETC:PLOTALPHA   D              ETC:PLOTALPHA                                                   
            5.0T2   765  PLOT_SYSTEM.ETC:PLOTALPHA.D.008    1 LINE  22530   53 PAGE UM   LIFT                JULY 03, 1981  15:50:01
            5.0T5   210  ETC.:PLOTALPHA       
0          A DATA FILE FOR STANDARD SYSTEM CHARACTER SETS (ALPHABETS).  THE FORMAT OF THE
           FILE IS DESCRIBED IN THE SOURCE FOR PALPHA (615/6); THE FORMAT OF THE CHARACTER
           SETS IS DESCRIBED IN MTS VOLUME 11 (AUGUST 1978).
0          Referenced by comments of: 615/6, 3018/135 
00615/009A  PLOT SYSTEM              *PLOTSYS        OL  G          *PLOTSYS                                                        
            5.0T2   766  PLOT_SYSTEM.*PLOTSYS.OL.009        1 LINE   5456   22 PAGE UM   LIFT                JULY 03, 1981  15:50:04
            5.0T5   211  *PLOTSYS             
0          OBJECT LIBRARY GENERATED FROM (615/2) + (615/3) + (615/4) + (615/5) +
           (615/6).
0          Referenced by comments of: 498/12, 498/54, 615/24, 615/26, 681/5, 824/5, 3018/137 
00615/010A  PLOT SYSTEM              PLOTTER         SA  G          W030:PLOTTER                                                    
            5.0T2   767  PLOT_SYSTEM.PLOTTER.SA.010         1 LINE     72   21 PAGE UM   LIFT                JULY 03, 1981  15:50:06
            5.0T5   212                       
0          PLOTTER ROUTINE FOR CALCOMP 936 AND 1051 AND ZIGZAG ROUTINE FOR CALCOMP 936
           ONLY. THESE ROUTINES ARE USED TO READ AND TRANSLATE PDF'S FOR *CCQUEUE
           (615/16) AND SYS:CCP (615/18). SEE THE INSTALLATION INSTRUCTIONS (615/23) FOR
           AN EXPLANATION OF THE &WHAT ASSEMBLY PARAMETER WHICH CONTROLS THE PRODUCTION
           OF DIFFERENT VERSIONS. ASSEMBLE USING PLOT SYSTEM MACROS (615/14).
            
           **********************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in pen block
           of each pen.
           **********************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          Referenced by comments of: 615/11, 615/16, 615/18, 615/21, 615/22 
00615/011A  PLOT SYSTEM              ZIGZAG 1051     SA  G          W030:ZIGZAG                                                     
            5.0T2   768  PLOT_SYSTEM.ZIGZAG_1051.SA.011     1 LINE     80    8 PAGE UM   LIFT                JULY 03, 1981  15:50:13
            5.0T5   213                       
0          THIS SUBROUTINE REPLACES THE ZIGZAG ROUTINE IN (615/10) FOR USE WITH THE
           CALCOMP 1051 PLOTTER.  ASSEMBLE USING THE PLOT SYSTEM MACROS (615/14).
            
           *****************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in pen block
           of each pen.
           *****************************************************************************
0          Referenced by comments of: 615/22 
00615/012   PLOT SYSTEM              ENDPLOT         SA  G          W030:ENDPLOT                                                    
            5.0T2   769  PLOT_SYSTEM.ENDPLOT.SA.012         1 LINE     80    2 PAGE UM   LIFT                JULY 03, 1981  15:50:15
            5.0T5   214                       
0          SUBROUTINE TO PRINT "END OF PLOTS ....." FOR PLOTCON (615/20).
0          Referenced by comments of: 615/21, 615/22 
00615/013   PLOT SYSTEM              TEARLINE        SA  G          W030:TEARLINE                                                   
            5.0T2   770  PLOT_SYSTEM.TEARLINE.SA.013        1 LINE     80    3 PAGE UM   LIFT                JULY 03, 1981  15:50:16
            5.0T5   215                       
0          SUBROUTINE TO PUT SPACE AND DASHED LINES (TEAR HERE) BETWEEN PLOTS.  IT HAS 
           BEEN ADDED AS A SEPARATE SUBROUTINE BECAUSE THE OPERATIONS STAFF AT MICHIGAN
           LIKES TO VARY THIS SORT OF THING.
0          Referenced by comments of: 615/21, 615/22 
00615/014A  PLOT SYSTEM              MACROS          SM  G          W030:PLOTTER.MAC                                                
            5.0T2   771  PLOT_SYSTEM.MACROS.SM.014          1 LINE     67    3 PAGE UM   LIFT                JULY 03, 1981  15:50:17
            5.0T5   216                       
0          MACRO LIBRARY USED BY POST-PROCESSING ROUTINES.
            
           **********************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in 
           pen block of each pen.
           **********************************************************************************
0          Referenced by comments of: 615/10, 615/11, 615/15, 615/17, 615/20, 615/29, 615/31, 615/38, 615/44 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00615/015A  PLOT SYSTEM              *CCQUEUE        SA  G          W030:CCQ                                                        
            5.0T2   772  PLOT_SYSTEM.*CCQUEUE.SA.015        1 LINE     70   20 PAGE UM   LIFT                JULY 03, 1981  15:50:18
            5.0T5   217                       
0          MAIN PROGRAM FOR *CCQUEUE, AND SUBROUTINES CCQCNCL AND PLOTCOST.  COPIES
           COPY:RATEVEC (651/3), COPY:GLOBALS (1026/3), AND COPY:LLMPSEQU (087).
           ASSEMBLE USING COPY:MTS.MACROS (344/3), AND PLOT SYSTEM MACROS (615/14).
            
           **********************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in 
           pen block of each pen.
           **********************************************************************************
0          Referenced by comments of: 615/16 
00615/016A  PLOT SYSTEM              *CCQUEUE        OE  G          *CCQUEUE                                                        
            5.0T2   773  PLOT_SYSTEM.*CCQUEUE.OE.016        1 SEQ    6358    7 PAGE UM   LIFT                JULY 03, 1981  15:50:21
            5.0T5   218  *CCQUEUE             
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/15) + (615/10) + (615/5) + (615/6).
            
           *****************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in pen block
           of each pen.
           *****************************************************************************
0          Referenced by comments of: 615/10 
00615/017A  PLOT SYSTEM              CCP             SA  G          W030:CCP                                                        
            5.0T2   774  PLOT_SYSTEM.CCP.SA.017             1 LINE     68   20 PAGE UM   LIFT                JULY 03, 1981  15:50:22
            5.0T5   219                       
0          MAIN PROGRAM FOR *CCP PLUS SUBROUTINE TAPECON.  COPIES COPY:GLOBALS (1026/3).
           ASSEMBLE USING PLOT SYSTEM MACROS (615/14).
            
           **********************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in 
           pen block of each pen.
           **********************************************************************************
0          Referenced by comments of: 615/18, 615/37 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00615/018A  PLOT SYSTEM              CCP             OE  G          SYS:CCP                                                         
            5.0T2   775  PLOT_SYSTEM.CCP.OE.018             1 LINE   5300    5 PAGE UM   LIFT                JULY 03, 1981  15:50:26
            5.0T5   220  SYS.:CCP             
0          POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/19) USED BY THE SYSTEM
           OPERATOR TO GENERATE PLOT TAPES. CONSISTS OF OBJECT FROM (615/17) + (615/10)
           + (615/5) + (615/6).
            
           *****************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in pen block
           of each pen.
           *****************************************************************************
0          Referenced by comments of: 615/10, 615/19, 615/35 
00615/019   PLOT SYSTEM              *CCP            C              *CCP                                                            
            5.0T2   776  PLOT_SYSTEM.*CCP.C.019             1 LINE     25    1 PAGE UM   LIFT                JULY 03, 1981  15:50:27
            5.0T5   221  *CCP                 
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/18).
0          Referenced by comments of: 615/18, 615/31, 615/33, 615/38 
00615/020A  PLOT SYSTEM              PLOTCON         SA  G          W030:PLOTCON                                                    
            5.0T2   777  PLOT_SYSTEM.PLOTCON.SA.020         1 LINE     70   18 PAGE UM   LIFT                JULY 03, 1981  15:50:27
            5.0T5   222                       
0          PROGRAM USED BY THE OPERATOR TO PLOT THE QUEUED PLOTS ON THE UM ONLINE
           PLOTTER.  SEE THE WRITEUP IN THE OPERATORS' MANUAL (592).  ASSEMBLE USING
           PLOT SYSTEM MACROS (615/14).
            
           **********************************************************************************
           D5.0 CHANGES:
            
           Already distributed on D4.3A:
            
           Fixed bug in error handling.
            
            
           New changes:
            
           Changes in multiple pen support; allows operator to set position
           in pen block of each pen.
           **********************************************************************************
0          Referenced by comments of: 615/12, 615/21, 615/22, 615/36 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00615/021A  PLOT SYSTEM              PLOTCON         OE  G          SYS:PLT36                                                       
            5.0T2   778  PLOT_SYSTEM.PLOTCON.OE.021         1 LINE   4412    8 PAGE UM   LIFT                JULY 03, 1981  15:50:37
            5.0T5   223  SYS.:PLT             
0          OBJECT FOR (615/5), (615/6), (615/10) PLOTTER AND ZIGZAG, (615/12), (615/13),
           AND (615/20). THIS FILE IS FOR USE WITH THE CALCOMP 936.
            
           *****************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in pen block
           of each pen.
           *****************************************************************************
00615/022A  PLOT SYSTEM              PLOTCON         OE  G          SYS:PLT51                                                       
            5.0T2   779  PLOT_SYSTEM.PLOTCON.OE.022         1 LINE   4412    8 PAGE UM   LIFT                JULY 03, 1981  15:50:38
            5.0T5   224                       
0          OBJECT FOR (615/5), (615/6), (615/10) PLOTTER ONLY, (615/11), (615/12),
           (615/13), AND (615/20). THIS FILE IS FOR USE WITH THE CALCOMP 1051. v
           *****************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in pen block
           of each pen.
           *****************************************************************************
00615/023   PLOT SYSTEM              INSTALLATION    P              S0876 CCGHL 'CALCOMP' FSNAME=PLOTINFO                           
            5.0T2   780  PLOT_SYSTEM.INSTALLATION.P.023     1 LINE     71    3 PAGE UM   LIFT                FEB. 20, 1980  19:28:49
            5.0T5   225                       
0          Referenced by comments of: 615/5, 615/10 
00615/024A  PLOT SYSTEM              PDSTOMNET       SA  G          S0981 W114 'W114SAVE' FSNAME=PDSTOMNET.S                        
            5.0T2   781  PLOT_SYSTEM.PDSTOMNET.SA.024       1 LINE     76    8 PAGE UM   EADIE               JUNE 12, 1977  21:56:34
            5.0T5   226                       
0          THIS IS A UTILITY TO CONVERT A PLOT DESCRIPTION SYSTEM, PDS, PLOT FILE TO A
           PLOT FILE IN MERIT NETWORK STANDARD FORM. CONTAINS A $CONTINUE WITH *PLOTSYS
           (615/9) RECORD.
00615/025A  PLOT SYSTEM              *PDSTOMNET      OC  G          *PDSTOMNET                                                      
            5.0T2   782  PLOT_SYSTEM.*PDSTOMNET.OC.025      1 LINE     80    3 PAGE UM   EADIE               JULY 03, 1981  16:02:12
            5.0T5   227  *PDSTOMNET           
0          ENDS WITH "$CONTINUE WITH *PLOTSYS"
00615/026A  PLOT SYSTEM              MNETTOPDS       SA  G          S0981 W114 'W114SAVE' FSNAME=MNETTOPDS.S                        
            5.0T2   783  PLOT_SYSTEM.MNETTOPDS.SA.026       1 LINE     89    5 PAGE UM   EADIE               FEB. 15, 1976  18:12:38
            5.0T5   228                       
0          THIS IS A UTILITY TO CONVERT A MERIT NETWORK STANDARD PLOT FILE TO A PLOT
           DESCRIPTION (PDS) PLOT FILE. CONTAINS A $CONTINUE WITH *PLOTSYS (615/9).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00615/027A  PLOT SYSTEM              *MNETTOPDS      OC  G          *MNETTOPDS                                                      
            5.0T2   784  PLOT_SYSTEM.*MNETTOPDS.OC.027      1 LINE     80    3 PAGE UM   EADIE               JULY 03, 1981  16:02:30
            5.0T5   229  *MNETTOPDS           
0          ENDS WITH "$CONTINUE WITH *PLOTSYS"
00615/028A  PLOT SYSTEM              *CCT            C              *CCT                                                            
            5.0T2   785  PLOT_SYSTEM.*CCT.C.028             1 LINE     23    1 PAGE UM   LIFT                JULY 03, 1981  16:02:30
            5.0T5   230  *CCT                 
0          COMMAND FILE USED TO RUN THE CCT PROGRAM (615/29).  INVOKED BY ENTERING "MTS
           *CCT" ON THE OPERATORS CONSOLE.
            
           **********************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in 
           pen block of each pen.
           **********************************************************************************
00615/029A  PLOT SYSTEM              CCT PGM         SA  G          S0876 CCGHL 'CALCOMP' FSNAME=CCT                                
            5.0T2   786  PLOT_SYSTEM.CCT_PGM.SA.029         1 LINE     80    3 PAGE UM   LIFT                NOV. 02, 1977  12:28:11
            5.0T5   231                       
0          PROGRAM TO COMPUTE AND PRINT THE TIME REQUIRED TO PLOT THE PLOTS CURRENTLY
           IN THE PLOT QUEUE (*CCPFILE).  ASSEMBLE USING PLOT SYSTEM MACROS (615/14).
            
           **********************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in 
           pen block of each pen.
           **********************************************************************************
0          Referenced by comments of: 615/28 
00615/030A  PLOT SYSTEM              CCT PGM         OC  G          SYS:CCT                                                         
            5.0T2   787  PLOT_SYSTEM.CCT_PGM.OC.030         1 LINE     80    1 PAGE UM   LIFT                JULY 03, 1981  16:03:04
            5.0T5   232  SYS.:CCT             
0           
           **********************************************************************************
           D5.0 changes:
            
           Changes in multiple pen support; allows operator to set position in 
           pen block of each pen.
           **********************************************************************************
00615/031   PLOT SYSTEM              PLOTTAPE        SA  G          W030:PLOTTAPE                                                   
            5.0T2   788  PLOT_SYSTEM.PLOTTAPE.SA.031        1 LINE     80    6 PAGE UM   LIFT                JULY 03, 1981  16:03:05
            5.0T5   233                       
0          Program used for two functions:
            
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0           1.  Initializing plot tapes for use by *CCP (615/19), and
            2.  Constructing plot priority information in the file SYS:CCPPRIO (615/33)
                for use by *CCP.
            
           Assemble using PLOT SYSTEM MACROS (615/14).
00615/032   PLOT SYSTEM              PLOTTAPE        OC  G          W030:PLOTTAPE(1000)                                             
            5.0T2   789  PLOT_SYSTEM.PLOTTAPE.OC.032        1 LINE     80    3 PAGE UM   LIFT                JULY 03, 1981  16:03:07
            5.0T5   234                       
00615/033   PLOT SYSTEM              PRIORITY FILE   D              SYS.:CCPPRIO                                                    
            5.0T2   790  PLOT_SYSTEM.PRIORITY_FILE.D.033    1 LINE     88    1 PAGE UM   LIFT                JULY 03, 1981  16:03:08
            5.0T5   235  SYS.:CCPPRIO         
0          FILE CONTAINING PLOT PRIORITY INFORMATION USED BY *CCP (615/19) 
           AND *CCD (615/43).
0          Referenced by comments of: 615/31, 615/44 
00615/034   PLOT SYSTEM              *CCPFILE        D            # *CCPFILE                                                        
                                                                                    UM   LIFT                                       
                         SYS.:*CCPFILE@E      
0          THIS IS THE SYSTEM PLOT QUEUE FILE.
0          Referenced by comments of: 615/35 
00615/035   PLOT SYSTEM              BACKUPQ         D            # SYS:BACKUPQ                                                     
                                                                                    UM   LIFT                                       
                         SYS:BACKUPQ@E        
0          USED BY CCP (615/18) TO BACKUP *CCPFILE (615/34).
00615/036   PLOT SYSTEM              PLOTDIR         D            # SYS:PLOTDIR                                                     
                                                                                    UM   LIFT                                       
                         SYS:PLOTDIR@E        
0          PLOT DIRECTORY FILE USED BY PLOTCON (615/20) TO POINT TO PLOT DATA STORED IN
           OTHER PERMANENT FILES, WHICH IT WILL CREATE.
00615/037   PLOT SYSTEM              PLOTREBAT       D            # SYS:PLOTREBAT                                                   
                                                                                    UM   LIFT                                       
                         SYS:PLOTREBAT@E      
0          DATA WRITTEN INTO THIS FILE BY CCP (615/17) FOR CANCELLED PLOTS IS USED BY
           CCREBATE (632/9) TO GENERATE INPUT RECORDS FOR THE REBATE PROGRAM.
0          Referenced by comments of: 632/9 
00615/038A  PLOT SYSTEM              CCPINIT         SA  G          W030:CCPINIT                                                    
            5.0T2   791  PLOT_SYSTEM.CCPINIT.SA.038         1 LINE     80    6 PAGE UM   LIFT                JULY 03, 1981  16:03:09
            5.0T5   236                       
0          PROGRAM USED BY THE SYSTEM OPERATOR TO INITIALIZE (SET VOLUME LABEL AND IDENT 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0          FILE) PLOT TAPES FOR USE BY *CCP (615/19).  INSTRUCTIONS WITHIN AND IN
           OPERATOR'S MANUAL.  SOURCE IN LINES 1,999.
            
           ASSEMBLE USING PLOT SYSTEM MACROS (615/14).
00615/039A  PLOT SYSTEM              CCPINIT         OC  G          SYS:CCPINIT                                                     
            5.0T2   792  PLOT_SYSTEM.CCPINIT.OC.039         1 LINE     80    3 PAGE UM   LIFT                JULY 03, 1981  16:03:10
            5.0T5   237  SYS.:CCPINIT         
0          Referenced by comments of: 615/40 
00615/040A  PLOT SYSTEM              *CCL            C              *CCL                                                            
            5.0T2   793  PLOT_SYSTEM.*CCL.C.040             1 LINE     40    1 PAGE UM   LIFT                JULY 03, 1981  16:03:11
            5.0T5   238  *CCL                 
0          COMMAND FILE INVOKED BY ENTERING "MTS *CCL" ON OPERATOR'S CONSOLE.  USED BY
           THE SYSTEM OPERATOR TO INITIALIZE PLOT TAPES.  RUNS THE SYS:CCPINIT PROGRAM
           (615/39).
00615/041   PLOT SYSTEM              CCPDEFER        SA  G          S0876 CCGHL 'CALCOMP' FSNAME=CCPDEFER                           
            5.0T2   794  PLOT_SYSTEM.CCPDEFER.SA.041        1 LINE     80    5 PAGE UM   LIFT                APR. 28, 1978  20:17:20
            5.0T5   239                       
0          PROGRAM USED BY SYSTEM OPERATOR TO TELL CCP TO PUT PLOTS FOR CERTAIN CCIDS
           ON "DEFERRED" PLOT TAPE.  INSTRUCTIONS AND DESCRIPTIONS WITHIN, AND IN 
           OPERATOR'S MANUAL (592).  SOURCE IN LINES 1,999.
00615/042   PLOT SYSTEM              CCPDEFER        OC  G          SYS:CCPDEFER                                                    
            5.0T2   795  PLOT_SYSTEM.CCPDEFER.OC.042        1 LINE     80    2 PAGE UM   LIFT                JULY 03, 1981  16:03:14
            5.0T5   240  SYS.:CCPDEFER        
0          Referenced by comments of: 615/43 
00615/043   PLOT SYSTEM              *CCD            C              *CCD                                                            
            5.0T2   796  PLOT_SYSTEM.*CCD.C.043             1 LINE     37    1 PAGE UM   LIFT                JULY 03, 1981  16:03:16
            5.0T5   241  *CCD                 
0          COMMAND FILE INVOKED BY ENTERING "MTS *CCD" ON OPERATOR'S CONSOLE.  USED BY
           THE SYSTEM OPERATOR TO PUT PLOTS FOR CERTAIN CCIDS ON "DEFERRED" PLOT TAPE.
           RUNS THE SYS:CCPDEFER PROGRAM (615/42).
0          Referenced by comments of: 615/33 
00615/044   PLOT SYSTEM              PIDENT          SA  G          S0876 CCGHL 'CALCOMP' FSNAME=PIDENT                             
            5.0T2   797  PLOT_SYSTEM.PIDENT.SA.044          1 LINE     80    4 PAGE UM   LIFT                FEB. 19, 1979  22:09:23
            5.0T5   242                       
0          PROGRAM TO PRINT PLOT TAPE IDENTIFICATION, INCLUDING DATE LAST USED,
           MINIMUM TIME BETWEEN USES, AND THE LINE IN CCPPRIO (615/33) WHICH CONTAINS
           THE PLOT PRIORITY INFORMATION.  SOURCE IN LINES 1,999.  ASSEMBLE USING
           PLOT SYSTEM MACROS (615/14).
0          Referenced by comments of: 615/46 
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00615/045   PLOT SYSTEM              PIDENT          OC  G          SYS:PIDENT                                                      
            5.0T2   798  PLOT_SYSTEM.PIDENT.OC.045          1 LINE     80    1 PAGE UM   LIFT                JULY 03, 1981  16:03:37
            5.0T5   243  SYS.:PIDENT          
00615/046   PLOT SYSTEM              *PLB            C              *PLB                                                            
            5.0T2   799  PLOT_SYSTEM.*PLB.C.046             1 LINE     38    1 PAGE UM   LIFT                JULY 03, 1981  16:03:38
            5.0T5   244  *PLB                 
0          COMMANDS TO RUN PIDENT (615/44) FROM OPERATOR'S CONSOLE.  DOCUMENTATION
           IS IN THE OPERATOR'S MANUAL (592).
00616/001A  TERM USAGE STATISTICS                    SA  G          WSG:DCSTAT(1,999)                                               
            5.0T2   800  TERM_USAGE_STATISTICS..SA.001      1 LINE     72   11 PAGE UM   WSG                 JULY 03, 1981  16:03:38
            5.0T5   245                       
0          Program to compute system usage by various terminal types, classes, and
           speeds. It reads *STATISTICS data and prints the elapsed time, cpu time, CPU
           VMI, and wait VMI for each terminal type and summarizes the by classes of
           terminals. The distributed version is set up for the UM terminal i/o
           configuration.
            
           The file containing the *STATISTICS data may be specified in the PAR field or
           a tape may be specified by giving "PAR=TAPE-vol 'tape id'" where vol is the
           volume name of the tape to be mounted and 'tape id' is the external label.
           Giving "PAR=TAPE" means the tape is unlabeled. If the *STATISTICS tape
           directory system (742) is being used, then
            
              "PAR=DATE=mm-dd -yy¬ ...mm-dd -yy¬¬ ,TIME=hh:mm...hh:mm¬"
            
           should be given to specify a date/time range. If no PAR= is given, the data
           is read from *STATISTICS. Calls the STATIO routine (617/2). Assemble using
           COPY:MTS.MACROS (344/3) and the usage statistics macros (617/3).
0          Referenced by comments of: 616/2 
00616/002A  TERM USAGE STATISTICS                    OC  G          WSG:DCSTAT(1000)                                                
            5.0T2   801  TERM_USAGE_STATISTICS..OC.002      1 LINE     80    8 PAGE UM   WSG                 JULY 03, 1981  16:03:47
            5.0T5   246                       
0          Object from (616/1) + (617/2). Ends with a "$CONTINUE WITH SYS:DIRLIB" card.
00617/001A  USAGE STATISTICS         STAT PGM        SA  G          WSG:STAT(1,999)                                                 
            5.0T2   802  USAGE_STATISTICS.STAT_PGM.SA.001   1 LINE     72    8 PAGE UM   WSG                 JULY 03, 1981  16:03:52
            5.0T5   247                       
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. 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.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
0              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.
               R rdcid             scan for all runs from Remote Data Concentrator
                                   with this rdcid.
            
           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", Memorex 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 'tape id'" where vol is the volume name of the tape to be
           mounted and 'tape id' is the external label. "PAR=TAPE" means the tape is
           unlabeled. Note: if no PAR is given, the tapes will be automatically mounted
           as necessary when the DATE command has been given. The TIME is optional. This
           facility makes use of the tape directory routines (742) and SYS:DIRECTORY
           (050/6), which accesses tape information. If no DATE command has been given,
           *STATISTICS is scanned. Assemble using COPY:MTS.MACROS (344/3) and the usage
           statistics macros (617/3).
0          Referenced by comments of: 617/3, 617/4 
00617/002   USAGE STATISTICS         STATIO SUBR     SA  G          W116:STATTAPE.S                                                 
            5.0T2   803  USAGE_STATISTICS.STATIO_S.SA.002   1 LINE     72   16 PAGE UM   H YOUNG             JULY 03, 1981  16:03:57
            5.0T5   248                       
0          Routine to do I/O to statistics files. There are three EQU's at the front of
           this assembly for FILETBLN, TAPETBLN, and FDUBTBLN which specify the maximum
           number of statistics files, tapes, and tape drives the program can use. The
           distributed version is set for 100, 20, and 10 respectively. This routine
           handles all I/O and mounting of all tapes needed to satisfy the specified
           date/time range. Assemble using (617/3).
0          Referenced by comments of: 616/1, 616/2, 617/3, 617/4 
00617/003   USAGE STATISTICS         MACROS          SM  G          W116:STATLIB                                                    
            5.0T2   804  USAGE_STATISTICS.MACROS.SM.003     1 LINE     72    3 PAGE UM   H YOUNG             JULY 03, 1981  16:04:00
            5.0T5   249                       
0          Macro library for (617/1) and (617/2).
0          Referenced by comments of: 616/1, 617/1, 617/2 
00617/004A  USAGE STATISTICS                         OC  G          W108:STAT                                                       
            5.0T2   805  USAGE_STATISTICS..OC.004           1 LINE     80    6 PAGE UM   WSG                 JULY 03, 1981  16:04:01
            5.0T5   250                       
0          Object from (617/1) + (617/2). Ends with a "$CONTINUE WITH SYS:DIRLIB" card.
00618/001   BUFSTAT                                               # (PART OF BUFALLOC)                                              
                                                                                    UM                                              
0          Part of BUFALLOC (009/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00619/001  *ASMT                     *ASMTSYSMAC     SM  O          *ASMTSYSMAC                                                  499
            5.0T2   806  ASMT.*ASMTSYSMAC.SM.001            1 LINE     73   82 PAGE UM   TIFFANY             JULY 03, 1981  16:04:03
            5.0T5   251  *ASMTSYSMAC          
0          THE IBM TSS/360 ASSEMBLER MODIFIED TO RUN IN MTS.
            
           *ASMTSYSMAC IS THE ASMT VERSION OF *SYSMAC.
            
           ********************************************************************************
           D5.0 version:
            
           Unless we hear any major complaints, this will be the final distribution
           of the IBM TSS/360 Assembler (*ASMT).
           ********************************************************************************
0          Referenced by comments of: 225/1 
00619/002  *ASMT                     MACROS          SM  G          S0564 D4T2 VLO FSNAME=ASMT.MACROS.SM.002(1)                  845
            5.0T2   807  ASMT.MACROS.SM.002                 1 LINE     80   75 PAGE UM   TIFFANY             JUNE 17, 1976  22:40:31
            5.0T5   252                       
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          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.1.SA.003(1)               846
            5.0T2   808  ASMT.PHASE_1.1.SA.003              1 LINE     80   45 PAGE UM   TIFFANY             MAR. 02, 1976  00:11:50
            5.0T5   253                       
0          COMPS (619/3) THROUGH (619/23) SHOULD ALL BE ASSEMBLED USING THE ASMTMACROS
           MACRO LIBRARY (619/2) AND *SYSMAC.
0          Referenced by comments of: 619/2, 619/3 
00619/004  *ASMT                     PHASE 1.2       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.2.SA.004(1)               847
            5.0T2   809  ASMT.PHASE_1.2.SA.004              1 LINE     80   52 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:40
            5.0T5   254                       
00619/005  *ASMT                     PHASE 1.3       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.3.SA.005(1)               848
            5.0T2   810  ASMT.PHASE_1.3.SA.005              1 LINE     80   50 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:45
            5.0T5   255                       
00619/006  *ASMT                     PHASE 1.4       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.4.SA.006(1)               849
            5.0T2   811  ASMT.PHASE_1.4.SA.006              1 LINE     80   42 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:50
            5.0T5   256                       
00619/007  *ASMT                     PHASE 1.5       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.5.SA.007(1)               850
            5.0T2   812  ASMT.PHASE_1.5.SA.007              1 LINE     80   51 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:53
            5.0T5   257                       
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00619/008  *ASMT                     PHASE 1.6       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.6.SA.008(1)               851
            5.0T2   813  ASMT.PHASE_1.6.SA.008              1 LINE     80   48 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:59
            5.0T5   258                       
00619/009  *ASMT                     PHASE 1.7       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.7.SA.009(1)               852
            5.0T2   814  ASMT.PHASE_1.7.SA.009              1 LINE     80   41 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:03
            5.0T5   259                       
00619/010  *ASMT                     PHASE 1.8       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.8.SA.010(1)               853
            5.0T2   815  ASMT.PHASE_1.8.SA.010              1 LINE     80   19 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:07
            5.0T5   260                       
00619/011  *ASMT                     PHASE 1.9       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.9.SA.011(1)               854
            5.0T2   816  ASMT.PHASE_1.9.SA.011              1 LINE     80   10 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:09
            5.0T5   261                       
00619/012  *ASMT                     PHASE 2.1       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_2.1.SA.012(1)               855
            5.0T2   817  ASMT.PHASE_2.1.SA.012              1 LINE     80   30 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:11
            5.0T5   262                       
00619/013  *ASMT                     PHASE 2.2       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_2.2.SA.013(1)               856
            5.0T2   818  ASMT.PHASE_2.2.SA.013              1 LINE     80   42 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:14
            5.0T5   263                       
00619/014  *ASMT                     PHASE 2.3       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_2.3.SA.014(1)               857
            5.0T2   819  ASMT.PHASE_2.3.SA.014              1 LINE     80   20 PAGE UM   TIFFANY             FEB. 11, 1975  01:57:51
            5.0T5   264                       
00619/015  *ASMT                     PHASE 3.1       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHAS1_3.1.SA.015(1)               858
            5.0T2   820  ASMT.PHASE_3.1.SA.015              1 LINE     80   65 PAGE UM   TIFFANY             MAR. 10, 1976  17:14:58
            5.0T5   265                       
00619/016  *ASMT                     PHASE 3.2       SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_3.2.SA.016(1)               859
            5.0T2   821  ASMT.PHASE_3.2.SA.016              1 LINE     80   65 PAGE UM   TIFFANY             FEB. 13, 1976  03:55:40
            5.0T5   266                       
00619/017  *ASMT                     PHASE 4         SA  S          S0564 D4T2 VLO FSNAME=ASMT.PHASE_4.SA.017(1)                 860
            5.0T2   822  ASMT.PHASE_4.SA.017                1 LINE     80   59 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:34
            5.0T5   267                       
00619/018  *ASMT                     ASMTGO          SA  B          S0564 D4T2 VLO FSNAME=ASMT.ASMTGO.SA.018(1)                  861
            5.0T2   823  ASMT.ASMTGO.SA.018                 1 LINE     80    4 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:15
            5.0T5   268                       
00619/019  *ASMT                     ASMTDEFS        SA             S0564 D4T2 VLO FSNAME=ASMT.ASMTDEFS.SA.019(1)                862
            5.0T2   824  ASMT.ASMTDEFS.SA.019               1 LINE     80    4 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:12
            5.0T5   269                       
0          ASMT LOW-CORE SYMBOL TABLE.
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00619/020  *ASMT                     CEVAR           SA  S          S0564 D4T2 VLO FSNAME=ASMT.CEVAR.SA.020(1)                   863
            5.0T2   825  ASMT.CEVAR.SA.020                  1 LINE     80    8 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:34
            5.0T5   270                       
0          ASMT PSECTS.  ASSEMBLE WITH PAR=BATCH.
00619/021  *ASMT                     LPC             SA  O          S0564 D4T2 VLO FSNAME=ASMT.LPC.SA.021(1)                     864
            5.0T2   826  ASMT.LPC.SA.021                    1 LINE     80   20 PAGE UM   TIFFANY             JUNE 01, 1975  23:30:22
            5.0T5   271                       
0          ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT).
00619/022  *ASMT                     OBJ PRODUCER    SA  O          S0564 D4T2 VLO FSNAME=ASMT.OBJ_PRODUCER.SA.022(1)            865
            5.0T2   827  ASMT.OBJ_PRODUCER.SA.022           1 LINE     80   28 PAGE UM   TIFFANY             FEB. 13, 1976  03:55:47
            5.0T5   272                       
0          PROGRAM TO CONVERT TSS OBJECT TO MTS FORMAT OBJECT DECK.
00619/023  *ASMT                     CEVML           SA  O          S1143 D4.1T1 VLO FSNAME=ASMT.CEVML.SA.023(1)                 403
            5.0T2   828  ASMT.CEVML.SA.023                  1 LINE     80   10 PAGE UM   TIFFANY             APR. 24, 1978  01:52:36
            5.0T5   273                       
0          MACRO AND COPY LIBRARY RETRIEVAL.  COPIES *GDINFODSECT (594).
0          Referenced by comments of: 619/2, 619/3 
00619/024  *ASMT                     *ASMT           OE  O          *ASMT                                                           
            5.0T2   829  ASMT.*ASMT.OE.024                  1 LINE  10167   33 PAGE UM   TIFFANY             JULY 03, 1981  16:04:55
            5.0T5   274  *ASMT                
00619/025  *ASMT                     DOCUMENTATION   WF             S0564 D4T2 VLO FSNAME=ASMT.DOCUMENTATION.WF.026(1)           869
            5.0T2   830  ASMT.DOCUMENTATION.WF.025          1 LINE    153    5 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:13
            5.0T5   275                       
0          *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION.  FILE HAS A "$CONTINUE WITH *DUMMY*" LINE.
           NOTE:  THIS FILE HAS COMMANDS AT NEGATIVE LINE NUMBERS.
00619/026  *ASMT                     FRAME           SA  G          S0564 D4T2 VLO FSNAME=ASMT.FRAME.SA.027(1)                   870
            5.0T2   831  ASMT.FRAME.SA.026                  1 LINE     80    4 PAGE UM   TIFFANY             APR. 22, 1977  15:08:31
            5.0T5   276                       
0          SUBROUTINE TO INTERCEPT SCARDS CALLS AND EXPAND "*FRAME" BOXES.  ALSO USABLE
           WITH *ASMG.
00619/027  *ASMT                     FRAME           OE  G          S0564 D4T2 VLO FSNAME=ASMT.FRAME.OE.028(1)                   871
            5.0T2   832  ASMT.FRAME.OE.027                  1 SEQ     862    1 PAGE UM   TIFFANY             APR. 22, 1977  15:08:32
            5.0T5   277                       
00620/001   STAT DSECT               COPY:STATDSECT  SA  G        # (PART OF COPY:MTS.MACROS)                                       
            D4T2    872  STAT_DSECT..SA.                    1 LINE     80    3 PAGE UM                       AUG. 14, 1977  22:00:00
0          THE STAT DSECT IS AVAILABLE FROM THE STATFMT MACRO IN COPY:MTS.MACROS (344/3).
1                                                                                               MON AUG 05/96   18:37:45   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
+         ______________ _____________________
00620/002A  STAT DSECT               GOM STAT DSECT  SG  G          COPY:STATDSECT.SG                                               
            5.0T2   833  STAT_DSECT.GOM_STAT_DSECT.SG.002   1 LINE     95    3 PAGE UM   MTS       OGDEN     JULY 03, 1981  16:04:59
            5.0T5   278  COPY:STATDSECT.SG    
0          GOM VERSION OF *STATISTICS RECORD DSECT.
00621/001A  DIRECT ACCESS ERROR LOG  *DLG            C              *DLG                                                            
            5.0T2   834  DIRECT_ACCESS_ERROR_LOG.*.C.001    1 LINE     39    1 PAGE UM   MTA                 JULY 03, 1981  16:05:00
            5.0T5   279  *DLG                 
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.
00621/002A  DIRECT ACCESS ERROR LOG  READ3330LOG     SA  G          MTA:READ3330LOG(1,999)                                          
            5.0T2   835  DIRECT_ACCESS_ERROR_LOG.R.SA.002   1 LINE     72    4 PAGE UM   MTA                 JULY 03, 1981  16:05:01
            5.0T5   280                       
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/19),
           COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND *CNFGINFODSECT (654).
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 621/1, 621/4, 621/6 
00621/003A  DIRECT ACCESS ERROR LOG  READ3330LOG     OE  G          ETC.:READ3330LOG                                                
            5.0T2   836  DIRECT_ACCESS_ERROR_LOG.R.OE.003   1 SEQ    1188    1 PAGE UM   MTA                 AUG. 21, 1981  05:14:34
            5.0T5   281  ETC.:READ3330LOG     
00621/004A  DIRECT ACCESS ERROR LOG  PRINT UC 3330   SA  G          MTA:PRINTUC3330(1,999)                                          
            5.0T2   837  DIRECT_ACCESS_ERROR_LOG.P.SA.004   1 LINE     57    1 PAGE UM   MTA                 JULY 03, 1981  16:05:03
            5.0T5   282  MTA.:PRINTUC3330     
0          PROGRAM TO READ UNIT CHECK LOG RECORDS, AS SAVED BY READ3330LOG (621/2), OR THE
           UNIT CHECK ROUTINES (787).  READS FROM SCARDS, PRINTS ON SPRINT.  IT IGNORES
           ALL RECORDS THAT ARE NOT OF TYPE 4 OR 25.  "PAR=ERRORS" MEANS TO PRINT ONLY
           THOSE RECORDS WHICH ARE REALLY ERRORS.  CALLS READBFR ROUTINE (709) AND
           PRUC3330 (621/10).  COPIES COPY:CMDAREADSECT (531/19).
0          Referenced by comments of: 621/10 
00621/005A  DIRECT ACCESS ERROR LOG  PRINT UC 3330   OC  G          MTA:PRINTUC3330(1000)                                           
            5.0T2   838  DIRECT_ACCESS_ERROR_LOG.P.OC.005   1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  16:05:05
            5.0T5   283                       
00621/006   DIRECT ACCESS ERROR LOG  CONSOLE WATCH   SA  O          S0564 D4T2 VLO FSNAME=DIRECT_ACCESS_ERROR_LOG.C.SA.006(1)    878
            5.0T2   839  DIRECT_ACCESS_ERROR_LOG.C.SA.006   1 LINE     80    2 PAGE UM   MTA                 AUG. 02, 1973  00:53.48
            5.0T5   284                       
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.
1                                                                                               MON AUG 05/96   18:37:45   Page  389
0  Num   R       Component Name         Subname     Type G Seq ID 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 
00621/007   DIRECT ACCESS ERROR LOG  CONSOLE WATCH   OC  O          S0564 D4T2 VLO FSNAME=DIRECT_ACCESS_ERROR_LOG.C.OC.007(1)    879
            5.0T2   840  DIRECT_ACCESS_ERROR_LOG.C.OC.007   1 LINE     80    1 PAGE UM   MTA                 AUG. 02, 1973  00:53.50
            5.0T5   285                       
00621/008A  DIRECT ACCESS ERROR LOG  SORT AND PRINT  SA  G          MTA:PRINTUC                                                     
            5.0T2   841  DIRECT_ACCESS_ERROR_LOG.S.SA.008   1 LINE     72   13 PAGE UM   MTA                 JULY 03, 1981  16:05:07
            5.0T5   286  MTA.:PRINTUC         
0          PROGRAM TO SORT AND SUMMARIZE UNIT CHECK AND BUFFERED LOG DATA FOR 3330 AND 2305.
           ACCEPTS PAR=2305 (TO PRINT 2305 ERRORS ONLY), OR BOTH (FOR BOTH 2305 AND 3330
           ERRORS).  IF NEITHER 2305 NOR BOTH IS GIVEN, IT PROMPTS.  COPIES COPY:CMDAREADSECT
           (531/19).  CALLS PRUC3330 (621/10) AND JVCT (674).  IGNORES TAPE UNIT CHECK
           RECORDS, USE EREP (655) OR PM2 (820) FOR THEM.
0          Referenced by comments of: 621/10 
00621/009A  DIRECT ACCESS ERROR LOG  SORT AND PRINT  OC  G          MTA:PUC                                                         
            5.0T2   842  DIRECT_ACCESS_ERROR_LOG.S.OC.009   1 LINE   8845    6 PAGE UM   MTA                 JULY 03, 1981  16:05:09
            5.0T5   287  MTA.:PUC             
0          HAS A "$CONTINUE WITH MTA:PRUC3330(1000)+MTS:UBCDATEX RETURN" RECORD.
           THE REFERENCE TO MTS:UBCDATEX IS FOR THE OBJECT FOR JVCT (674).
00621/010A  DIRECT ACCESS ERROR LOG  PRUC3330        SA  G          MTA:PRUC3330(1,999)                                             
            5.0T2   843  DIRECT_ACCESS_ERROR_LOG.P.SA.010   1 LINE     72    4 PAGE UM   MTA                 JULY 03, 1981  16:05:10
            5.0T5   288  MTA.:PRUC3330        
0          SUBROUTINE CALLED BY (621/4) AND (621/8). COPIES COPY:CMDAREADSECT (531/19).
0          Referenced by comments of: 621/4, 621/8 
00621/011A  DIRECT ACCESS ERROR LOG  PRUC3330        OC  G          MTA:PRUC3330(1000)                                              
            5.0T2   844  DIRECT_ACCESS_ERROR_LOG.P.OC.011   1 LINE     80    4 PAGE UM   MTA                 JULY 03, 1981  16:05:11
            5.0T5   289                       
00621/012   DIRECT ACCESS ERROR LOG  INIT:UC3330LOG  D            # INIT:UC3330LOG                                                  
                                                                                    UM   MTA                                        
                         INIT:UC3330LOG@E     
0          LOG FILE USED BY THE CMDSTAT PICKUP PROGRAM, *CMD (531/6), TO SAVE TYPE 4
           AND TYPE 25 UNIT CHECK RECORDS.
0          Referenced by comments of: 531/5, 655/3 
00622/001   FCBDSECT                                 SA           # (OBSOLETE)                                                      
            D3.2T2    7  FCBDSECT..SA.                      1 LINE     80    4 PAGE UM                       MAR. 21, 1975  02:15:34
0          In COPY:MTS.MACROS (344/3)
1                                                                                               MON AUG 05/96   18:37:45   Page  390
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00623/001   FDUBDSECT                                SA           # (OBSOLETE)                                                      
            D3.2T2    8  FDUBDSECT..SA.                     1 LINE     80    3 PAGE UM                       MAR. 21, 1975  02:15:37
0          In COPY:MTS.MACROS (344/3)
00624/001   WOPTRDSECT                               SA           # (OBSOLETE)                                                      
            D3.2T2    9  WOPTRDSECT..SA.                    1 LINE     80    1 PAGE UM                       MAR. 21, 1975  02:15:39
0          In COPY:MTS.MACROS (344/3)
00625/001  *TAPEFIXER                                SA  O          S1237 TAPES 'TAPEFS' FSNAME=TAPEFIXER                           
            5.0T2   845  TAPEFIXER..SA.001                  1 LINE     73   13 PAGE UM   LIFT                SEP. 28, 1977  16:56:00
            5.0T5   290                       
0          PROGRAM TO RECOVER DATA FROM A 9-TRACK LABELED TAPE WHICH HAS BEEN PARTIALLY
           DESTROYED OR CONTAINS UNREADABLE BLOCKS.
00625/002  *TAPEFIXER                                OE  O          *TAPEFIXER                                                      
            5.0T2   846  TAPEFIXER..OE.002                  1 LINE   7503    4 PAGE UM   LIFT                JULY 03, 1981  16:10:53
            5.0T5   291  *TAPEFIXER           
00626/001   ATNTRP SUBR                              SA  G          S0564 D4T2 VLO FSNAME=ATNTRP_SUBR..SA.001(1)                 886
            5.0T2   847  ATNTRP_SUBR..SA.001                1 LINE     80    1 PAGE UM   DWB                 JULY 26, 1974  09:21.43
            5.0T5   292                       
0          SUBROUTINE TO ALLOW FORTRAN USERS TO CALL ATTNTRP.
00626/002   ATNTRP SUBR                              OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   DWB                                        
0          Object part of *LIBRARY (524/1)
00627/001A  GDINF SUBR                               SA  G          S1482 4.3AT1 VLO FSNAME=GDINF_SUBR..SA.001(1)                315
            5.0T2   848  GDINF_SUBR..SA.001                 1 LINE     80    3 PAGE UM   DWB                 OCT. 12, 1980  16:04:48
            5.0T5   293                       
0          SUBROUTINE TO ALLOW FORTRAN USERS TO CALL GDINFO. COPIES *GDINFODSECT (594).
00627/002A  GDINF SUBR                               OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   DWB                                        
0          Object part of *LIBRARY (524/1)
00628/001  *3284RTN                  DSR             SA  B          S1430 4.3T1 VLO FSNAME=3284RTN.DSR.SA.001(1)                 594
            5.0T2   849  3284RTN.DSR.SA.001                 1 LINE     69    2 PAGE UM   OGDEN               JUNE 27, 1979  05:08:41
            5.0T5   294                       
0          DSR FOR IBM 3284, 3286, 3287, AND SIMILAR PRINTERS. USES THE TR3270 TABLES
           (629/12).
0          Referenced by comments of: 629/12 
1                                                                                               MON AUG 05/96   18:37:45   Page  391
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00628/002  *3284RTN                  DSR             OC  B          *3284RTN                                                        
            5.0T2   850  3284RTN.DSR.OC.002                 1 LINE     80    1 PAGE UM   OGDEN               JULY 03, 1981  16:13:01
            5.0T5   295  *3284RTN             
00628/003  *3284RTN                  UNIT CHECK      SA  G          MTS:UC3284(1,999)                                               
            5.0T2   851  3284RTN.UNIT_CHECK.SA.003          1 LINE     72    3 PAGE UM   OGDEN               JULY 03, 1981  16:13:01
            5.0T5   296  MTS.:UC3284          
0          UNIT CHECK ROUTINES FOR IBM 3284, 3286, 3287, AND SIMILAR PRINTERS.
00628/004  *3284RTN                  UNIT CHECK      OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00629/001A *3270RTN                                  SA  G          W163:3270.S                                                     
            5.0T4   389  3270RTN..SA.001                    1 LINE     82  127 PAGE UBC  SAYLE     OGDEN     SEP. 04, 1981  02:59:27
            5.0T10  293                       
0          DSR FOR IBM 3277 (MODELS 1 AND 2), 3278 (MODELS 1, 2, 3, AND 4), 3066,
           AND 3036 DISPLAY TERMINALS.  USES THE TR3270 TABLES (629/12).  ASSEMBLE
           USING COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728).  COPIES
           *CNFGINFODSECT (654).
0          Referenced by comments of: 629/2, 629/4, 629/5, 629/12 
00629/002A *3270RTN                  UPDATE          UC  G          W163:3270UPD                                                    
            5.0T4   390  3270RTN.UPDATE.UC.002              1 LINE    115   64 PAGE UBC  SAYLE     OGDEN     SEP. 04, 1981  02:59:39
            5.0T10  294                       
0          UPDATE TO PRODUCE CURRENT *3270RTN SOURCE FROM D4.2 SOURCE (629/1).
            
00629/003  *3270RTN                  IO3066          SA  G          S1430 4.3T1 VLO FSNAME=3270RTN.IO3066.SA.003(1)              598
            5.0T4   391  3270RTN.IO3066.SA.003              1 LINE     80   14 PAGE UM   OGDEN               JUNE 27, 1979  05:09:55
            5.0T10  295                       
0          SUBROUTINE TO SIMULATE A 3270 ON A 3066 BY INTERPRETING A 3270 CHANNEL
           PROGRAM.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 629/5 
00629/004A *3270RTN                  ACTIVITY SUBR   SA  G          S0683 OGDEN FSNAME=ACTIVITY.S                                   
            5.0T4   392  3270RTN.ACTIVITY_SUBR.SA.004       1 LINE    126   14 PAGE UBC  SAYLE     OGDEN     APR. 28, 1981  14:15:57
            5.0T10  296                       
0          GENERATES %ACTIVITY DISPLAY. CALLED BY (629/1). COPIES COPY:LLMPSEQU (087)
           AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:FILE.MACROS (482/45).
            
           *****************************************************************************
           D5.0 CHANGES:
            
           CHANGES PREVIOUSLY DISTRIBUTED ON D4.3A:
            
1                                                                                               MON AUG 05/96   18:37:45   Page  392
0  Num   R       Component Name         Subname     Type G Seq ID 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          CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT. INSTALL IF AND
           ONLY IF D5.0 UMMPS IS INSTALLED.
            
           NEW CHANGES:
            
           INCLUDES DISK I/O COUNTS.
           *****************************************************************************
0          Referenced by comments of: 413/1, 629/5, 629/8, 647/1 
00629/005A *3270RTN                                  OC  G          *3270RTN                                                        
            5.0T4   393  3270RTN..OC.005                    1 LINE  21004    9 PAGE UBC  SAYLE     OGDEN     SEP. 04, 1981  03:00:53
            5.0T10  297  *3270RTN             
0          OBJECT FOR (629/1), (629/3), AND (629/4).
00629/006  *3270RTN                  GRAB3270        SA  G          S1320 D4.2T2 VLO FSNAME=3270RTN.GRAB3270.SA.004(1)           531
            5.0T4   394  3270RTN.GRAB3270.SA.006            1 LINE     59    1 PAGE UBC  SAYLE     OGDEN     DEC. 03, 1978  04:08:59
            5.0T10  298                       
0          THIS IS THE SHARED TABLE FOR USE WITH THE %GRAB AND %FLIP COMMANDS IN
           THE 3270 DSR.
00629/007  *3270RTN                  GRAB3270        OC  G          SEG2:GRAB3270                                                   
            5.0T4   395  3270RTN.GRAB3270.OC.007            1 LINE     80    1 PAGE UBC  SAYLE     OGDEN     AUG. 09, 1981  23:21:21
            5.0T10  299  SEG2:GRAB3270        
0          THIS OBJECT SHOULD BE LOADED BY PISTLE PRIOR TO LOADING THE 3270 DSR.
00629/008A *3270RTN                  TEST ACTIVITY   SF  G          S0683 OGDEN FSNAME=TACTIVITY.S                                  
            5.0T4   396  3270RTN.TEST_ACTIVITY.SF.008       1 LINE     80    2 PAGE UM   OGDEN               MAR. 28, 1981  01:20:41
            5.0T10  300                       
0          A MAIN PROGRAM WHICH CALLS THE ACTIVITY SUBROUTINE (629/4) AND PRINTS THE
           RESULTS ON SPRINT.  FOR TESTING PURPOSES ONLY.
00629/009A *3270RTN                  TEST ACTIVITY   OC  G          S0683 OGDEN FSNAME=TA                                           
            5.0T4   397  3270RTN.TEST_ACTIVITY.OC.009       1 LINE    360    1 PAGE UM   OGDEN               MAR. 28, 1981  01:20:46
            5.0T10  301                       
00629/010  *3270RTN                  *3066RTN        OC  G          *3066RTN                                                        
            5.0T4   398  3270RTN.?3066RTN.OC.010            1 LINE     24    1 PAGE UBC  SAYLE     OGDEN     AUG. 09, 1981  23:21:37
            5.0T10  302  *3066RTN             
0          CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD.
0          Referenced by comments of: 662/1 
00629/011  *3270RTN                  *3036RTN        OC  G          *3036RTN                                                        
            5.0T4   399  3270RTN.?3036RTN.OC.011            1 LINE     24    1 PAGE UBC  SAYLE     OGDEN     AUG. 09, 1981  23:21:37
            5.0T10  303  *3036RTN             
0          CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD.
1                                                                                               MON AUG 05/96   18:37:45   Page  393
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00629/012  *3270RTN                  TR3270          SA  G          S1430 4.3T1 VLO FSNAME=3270RTN.TR3270.SA.012(1)              602
            5.0T4   400  3270RTN.TR3270.SA.012              1 LINE     72    3 PAGE UM   OGDEN               JUNE 27, 1979  05:08:44
            5.0T10  304                       
0          PROVIDES THE TR AND TRT TABLES USED BY THE 3270 DSR (629/1), THE 3284 DSR
           (628/1), *APC (496), THE SCREEN SUPPORT ROUTINE (811), AND THE OPERATOR JOB
           (634).
0          Referenced by comments of: 628/1, 629/1, 634/1 
00629/013  *3270RTN                  TR3270          OC  G          SEG2:TR3270                                                     
            5.0T4   401  3270RTN.TR3270.OC.013              1 LINE     80    4 PAGE UM   OGDEN               AUG. 09, 1981  23:21:40
            5.0T10  305  SEG2:TR3270          
00629/014C *3270RTN                  MEMO 419        WX             S0672 CCMEMO 'CCMEMOS' FSNAME=M419                              
            5.0T4   402  3270RTN.MEMO_419.WX.014            1 LINE    115   10 PAGE UM   HARTMAN             DEC. 04, 1980  09:52:34
            5.0T10  306                       
00630/001   TRUNCATE                                 SA  G  TRUN    S1153 UNSP VLO FSNAME=TRUNCATE.S                                
            5.0T2   852  TRUNCATE..SA.001                   1 LINE     80    7 PAGE UM   UNSP                MAR. 27, 1976  12:24:30
            5.0T5   297                       
0          SCANS FILES ON USERS ACCOUNT AND TRUNCATES THOSE THAT NEED IT. COPIES
           *GFINFODSECT (593).
00630/002   TRUNCATE                                 OE  G          UNSP:TRUNCATE                                                   
            5.0T2   853  TRUNCATE..OE.002                   1 LINE   2693    4 PAGE UM   UNSP                JULY 03, 1981  16:13:17
            5.0T5   298  UNSP:TRUNCATE        
00630/003A  TRUNCATE                                 WF             S1153 UNSP VLO FSNAME=TRUNCATE.FMT                              
            5.0T2   854  TRUNCATE..WF.003                   1 LINE     67    1 PAGE UM   UNSP                SEP. 15, 1980  16:44:03
            5.0T5   299                       
00631/001D  ACCOUNTING CLS           CLSTV           SA  G  CLST    S0027 DISTRB FSNAME=CLSTV                                       
            5.0T2   855  ACCOUNTING_CLS.CLSTV.SA.001        1 LINE     80    3 PAGE UM   ENGLE               FEB. 04, 1981  12:40:12
            5.0T5   300                       
0          PROGRAM TO PRODUCE CLSTRANSVEC WHICH IS A COPY SECTION FOR ACCCLS. 
           COPIES GRDEF (104/72).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
00631/002D  ACCOUNTING CLS           CLSTV           UC  G          S0027 DISTRB FSNAME=CLSTVUPD                                    
            5.0T2   856  ACCOUNTING_CLS.CLSTV.UC.002        1 LINE     69    1 PAGE UM   ENGLE               FEB. 04, 1981  12:40:20
            5.0T5   301                       
0          Referenced by comments of: 631/4 
00631/003D  ACCOUNTING CLS           CLSTV           OC  G  CLST    S0027 DISTRB FSNAME=CLST                                        
            5.0T2   857  ACCOUNTING_CLS.CLSTV.OC.003        1 LINE     80    3 PAGE UM   ENGLE               FEB. 04, 1981  12:40:26
            5.0T5   302                       
0          Referenced by comments of: 631/5 
1                                                                                               MON AUG 05/96   18:37:45   Page  394
0  Num   R       Component Name         Subname     Type G Seq ID 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/004D  ACCOUNTING CLS           CLSTRANSVEC     SA  G          S0027 DISTRB FSNAME=CLSTRANSVEC                                 
            5.0T2   858  ACCOUNTING_CLS.CLSTRANSVE.SA.004   1 LINE     19    1 PAGE UM   ENGLE               FEB. 04, 1981  12:42:27
            5.0T5   303                       
0          COPY SECTION FOR ACCCLS PRODUCED BY RUNNING CLSTV (631/2).
00631/005D  ACCOUNTING CLS           ACCCLS          SA  G  ACLS    S0027 DISTRB FSNAME=ACCCLS                                      
            5.0T2   859  ACCOUNTING_CLS.ACCCLS.SA.005       1 LINE     80    9 PAGE UM   ENGLE               FEB. 04, 1981  12:45:39
            5.0T5   304                       
0          INTERFACE BETWEEN ACCOUNTING CLS CALL AND ACCMXMAT.
           COPIES GRDEF (104/72) AND CLSTRANSVEC (631/3).
0          Referenced by comments of: 631/15 
00631/006D  ACCOUNTING CLS           ACCCLS          UC  G          S0027 DISTRB FSNAME=ACCCLSUPD                                   
            5.0T2   860  ACCOUNTING_CLS.ACCCLS.UC.006       1 LINE     72    3 PAGE UM   ENGLE               FEB. 04, 1981  12:45:43
            5.0T5   305                       
00631/007D  ACCOUNTING CLS           ACCCLS          OC  G  ACLS    S0027 DISTRB FSNAME=ACLS                                        
            5.0T2   861  ACCOUNTING_CLS.ACCCLS.OC.007       1 LINE     80    3 PAGE UM   ENGLE               FEB. 04, 1981  12:45:48
            5.0T5   306                       
0          Referenced by comments of: 631/23 
00631/008A  ACCOUNTING CLS           ACCMXMAT        SA  G  AMXM    S0027 DISTRB FSNAME=OLDACCMXMAT                                 
            5.0T2   862  ACCOUNTING_CLS.ACCMXMAT.SA.008     1 LINE     80   61 PAGE UM   ENGLE               MAY  19, 1981  11:04:57
            5.0T5   307                       
0          ACCOUNTING MAXIMUM MAINTENANCE (MAIN PROGRAM FOR ACCOUNTING CLS). 
           THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO WHICH A LOG IS WRITTEN.
           COPIES ACCFORMAT (104/1), ACCPROJFMT (104/2), AND COPY:RATEVEC (651/3).
           IF &STAPRJ IS SET TO 1, THE OBJECT FOR ACC:STAPROJECT (104/70) IS PRODUCED.
           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.
0          Referenced by comments of: 631/15, 631/17, 631/18 
00631/009A  ACCOUNTING CLS           ACCMXMAT        UC  G          S0027 DISTRB FSNAME=OLDACCMXMATUPD                              
            5.0T2   863  ACCOUNTING_CLS.ACCMXMAT.UC.009     1 LINE     72    3 PAGE UM   ENGLE               FEB. 04, 1981  12:57:47
            5.0T5   308                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00631/010A  ACCOUNTING CLS           ACCMXMAT        OC  G          S0027 DISTRB FSNAME=OLDAMXM                                     
            5.0T2   864  ACCOUNTING_CLS.ACCMXMAT.OC.010     1 LINE     80   13 PAGE UM   ENGLE               FEB. 04, 1981  13:01:14
            5.0T5   309                       
0          Referenced by comments of: 631/23 
1                                                                                               MON AUG 05/96   18:37:45   Page  395
0  Num   R       Component Name         Subname     Type G Seq ID 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/011   ACCOUNTING CLS           ACUSPRNT        SA  G          S0564 D4T2 VLO FSNAME=ACCOUNTING_CLS.ACUSPRNT.SA.008(1)      906
            5.0T2   865  ACCOUNTING_CLS.ACUSPRNT.SA.011     1 LINE     80    8 PAGE UM   ENGLE               DEC. 15, 1975  14:45:51
            5.0T5   310                       
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: 631/15, 631/20, 631/21 
00631/012   ACCOUNTING CLS           ACUSPRNT        OC  G          S0564 D4T2 VLO FSNAME=ACCOUNTING_CLS.ACUSPRNT.OC.009(1)      907
            5.0T2   866  ACCOUNTING_CLS.ACUSPRNT.OC.012     1 LINE     80    3 PAGE UM   ENGLE               DEC. 15, 1975  14:46:14
            5.0T5   311                       
0          Referenced by comments of: 631/23 
00631/013   ACCOUNTING CLS           FASTIOCK        SA  G          S0564 D4T2 VLO FSNAME=ACCOUNTING_CLS.FASTIOCK.SA.010(1)      908
            5.0T2   867  ACCOUNTING_CLS.FASTIOCK.SA.013     1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:48.35
            5.0T5   312                       
0          SUBROUTINE TO DETERMINE IF AN I/O UNIT IS "FAST."  USED IN ACCOUNTING CLS.  COPIES GRDEF (104/72).
0          Referenced by comments of: 104/1, 631/15 
00631/014   ACCOUNTING CLS           FASTIOCK        OC  G          S0564 D4T2 VLO FSNAME=ACCOUNTING_CLS.FASTIOCK.OC.011(1)      909
            5.0T2   868  ACCOUNTING_CLS.FASTIOCK.OC.014     1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:48.53
            5.0T5   313                       
0          Referenced by comments of: 631/23 
00631/015D  ACCOUNTING CLS           *CLSACC         OE  G          *CLSACC                                                         
            5.0T2   869  ACCOUNTING_CLS.*CLSACC.OE.015      1 SEQ   22250   17 PAGE UM   ENGLE               JULY 03, 1981  16:14:56
            5.0T5   314  *CLSACC              
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/8)
            + GETFILE (104/111) + DIRECTRY (104/62) + ACCIO (104/26) + LOG (104/156) +
           FILENAME (104/60) +ACUSPRNT (631/11) + STATUS (104/18) + FASTIOCK (631/13) +
           IOLOKCK (104/121) + TIMETRP (104/101) + *LCS (164).
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  U/N,R PKEY=*ACC
            
           ******************************************************************************* 
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): 
            
           N.B. THE INCLUSION OF STATUS (104/18) HAS NOT BEEN ANNOUNCED AND
                SPECIFICATIONS ARE SUBJECT TO CHANGE.  IT SHOULD BE CONSIDERED
                EXPERIMENTAL.
            
           INCLUDES NEW ACCMXMAT (631/19) AND NEW ACUSPRNT (631/22).
            
           THIS VERSION (AT UM) DOES NOT PROCESS HIGHPRIO.
1                                                                                               MON AUG 05/96   18:37:45   Page  396
0  Num   R       Component Name         Subname     Type G Seq ID 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          *******************************************************************************
00631/016   ACCOUNTING CLS           *PRJACCSTAT     D              MTS:TST.PRJACCST                                                
            5.0T2   870  ACCOUNTING_CLS.*PRJACCSTA.D.016    1 LINE      1    1 PAGE UM   ENGLE               JULY 03, 1981  16:14:57
            5.0T5   315  *PRJACCSTAT          
0          FILE USED TO HOLD ERROR COMMENTS FROM THE ACCOUNTING MAINTENANCE PROGRAM.
           SHOULD BE PERMITTED:  P/N, WE PKEY=*ACC
00631/017D  ACCOUNTING CLS           NEW ACCMXMAT    SA  G  AMXM    S0027 DISTRB FSNAME=ACCMXMAT                                    
            5.0T2   871  ACCOUNTING_CLS.NEW_ACCMXM.SA.017   1 LINE     80   86 PAGE UM   ENGLE               MAY  14, 1981  10:33:55
            5.0T5   316                       
0          EXPERIMENTAL VERSION  ($ACCOUNTING MANAGEMENT) OF ACCMXMAT (631/8).
           THE MESSAGE "EXPERIMENTAL VERSION. SUBJECT TO CHANGE. SEE
           W013:ACCNEWS (1/  /81)." SHOULD BE CHANGED TO REFLECT
           LOCAL CONDITIONS.
0          Referenced by comments of: 104/70 
00631/018D  ACCOUNTING CLS           NEW ACCMXMAT    UC  G          S0027 DISTRB FSNAME=ACCMXMATUPD                                 
            5.0T2   872  ACCOUNTING_CLS.NEW_ACCMXM.UC.018   1 LINE     73   42 PAGE UM   ENGLE               FEB. 04, 1981  13:20:56
            5.0T5   317                       
0          UPDATES ACCMXMAT SOURCE (631/8) FROM PREVIOUS REGULAR DISTRIBUTION
           TO EXPERIMENTAL VERSION IN CURRENT DISTRIBUTION.
00631/019D  ACCOUNTING CLS           NEW ACCMXMAT    OC  G          S0027 DISTRB FSNAME=AMXM                                        
            5.0T2   873  ACCOUNTING_CLS.NEW_ACCMXM.OC.019   1 LINE     80   27 PAGE UM   ENGLE               FEB. 04, 1981  13:21:14
            5.0T5   318                       
0          Referenced by comments of: 631/15, 631/23 
00631/020D  ACCOUNTING CLS           NEW ACUSPRNT    SA  G  AUPR    S0027 DISTRB FSNAME=ACUSPRNT                                    
            5.0T2   874  ACCOUNTING_CLS.NEW_ACUSPR.SA.020   1 LINE     80   16 PAGE UM   ENGLE               MAY  14, 1981  10:34:06
            5.0T5   319                       
0          EXPERIMENTAL VERSION OF ACUSPRNT (631/11).
00631/021D  ACCOUNTING CLS           NEW ACUSPRNT    UC  G          S0027 DISTRB FSNAME=ACUSPRNTUPD                                 
            5.0T2   875  ACCOUNTING_CLS.NEW_ACUSPR.UC.021   1 LINE     72    8 PAGE UM   ENGLE               FEB. 04, 1981  13:26:35
            5.0T5   320                       
0          UPDATES ACUSPRNT (631/11) FROM PREVIOUS REGULAR DISTRIBUTION TO EXPERIMENTAL
           VERSION IN CURRENT DISTRIBUTION.
00631/022D  ACCOUNTING CLS           NEW ACUSPRNT    OC  G          S0027 DISTRB FSNAME=AUPR                                        
            5.0T2   876  ACCOUNTING_CLS.NEW_ACUSPR.OC.022   1 LINE     80    4 PAGE UM   ENGLE               FEB. 04, 1981  13:26:42
            5.0T5   321                       
0          Referenced by comments of: 104/71, 631/15, 631/23 
1                                                                                               MON AUG 05/96   18:37:45   Page  397
0  Num   R       Component Name         Subname     Type G Seq ID 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/023D  ACCOUNTING CLS           CLSACCGEN       C   G          S0027 DISTRB FSNAME=CLSACCGEN                                   
            5.0T2   877  ACCOUNTING_CLS.CLSACCGEN.C.023     1 LINE     89    1 PAGE UM   ENGLE               FEB. 04, 1981  13:28:07
            5.0T5   322                       
0          SOURCE COMMANDS TO GENERATE THE ACCOUNTING CLS OBJECT WHICH INCLUDES THE 
           EXPERIMENTAL VERSION.  THE FOLLOWING FILES (AND ASSOCIATED COMPONENTS) ARE
           REFERENCED: AMXM (631/19), AUPR (631/22), ACLS (631/7), OLDAMXM (631/10),
           GTFL (104/111), DIR (104/62), AIO (104/26), LOG (104/156), FLNM (104/60),
           OLDAUPR (631/12), STATCLS (104/18), FIOC (631/14), IOLC (104/121), TTRP
           (104/101), AND *LCS (164).  THE RESULTING OBJECT IS PLACED IN THE FILE
           -CLSACC.
00631/024D  ACCOUNTING CLS           ACCNEWS         WF  G          S0027 DISTRB FSNAME=ACCNEWS                                     
            5.0T2   878  ACCOUNTING_CLS.ACCNEWS.WF.024      1 LINE     80    5 PAGE UM   ENGLE               FEB. 04, 1981  13:29:12
            5.0T5   323                       
0          SOURCE TO PRODUCE THE CONTENTS OF W013:ACCNEWS, WHICH DESCRIBES THE
           EXPERIMENTAL VERSION OF $ACCOUNTING ($ACCOUNTING MANAGEMENT).
00632/001A  REBATE                   REBATE          SP  G          S0811 REBATE 'REBATES' FSNAME=REBATE                            
            5.0T2   879  REBATE.REBATE.SP.001               1 LINE     78   26 PAGE UM   LIFT                SEP. 12, 1980  20:08:05
            5.0T5   324                       
0          PROGRAM TO REBATE CHARGES FOR MTS JOBS.
            
           **********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: 
            
           CHANGED TO HANDLE NEW STATISTICS RECORD FORMAT.
           **********************************************************************************
0          Referenced by comments of: 632/2 
00632/002A  REBATE                   REBATE          OC  G          ACC:REBATE                                                      
            5.0T2   880  REBATE.REBATE.OC.002               1 LINE  32767   15 PAGE UM   LIFT                JULY 03, 1981  16:19:57
            5.0T5   325  ACC:REBATE           
0          OBJECT FOR (632/1) PRECEDED BY COMMANDS TO RUN IT. RUN WITH PROT=OFF. LINE 2
           CONTAINS "SPUNCH=BILL:HAND". REPLACE BILL:HAND WITH THE NAME OF THE FILE INTO
           WHICH HAND BILLING RECORDS FOR REBATE RECORDS ARE TO BE PLACED. SEE COMPONENT
           (500/25) FOR A DESCRIPTION OF HAND BILLING.
00632/003   REBATE                   RBATACC         SA  G          S0564 D4T2 VLO FSNAME=REBATE.RBATACC.SA.003(1)               913
            5.0T2   881  REBATE.RBATACC.SA.003              1 LINE     80    6 PAGE UM   ENGLE               DEC. 05, 1975  14:31:44
            5.0T5   326                       
0          SUBROUTINE CALLED BY REBATE TO COMPUTE COST OF REBATE AND TO UPDATE USERS 
           ACCOUNTING RECORD. USED IN ACCLIB (104/42).
           COPIES GRDEF (104/72), COPY:RATEVEC (651/3), AND ACCFORMAT (104/1).
1                                                                                               MON AUG 05/96   18:37:45   Page  398
0  Num   R       Component Name         Subname     Type G Seq ID 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/004   REBATE                   RBATACC         OC  G          S0564 D4T2 VLO FSNAME=REBATE.RBATACC.OC.004(1)               914
            5.0T2   882  REBATE.RBATACC.OC.004              1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  14:43:37
            5.0T5   327                       
0          Referenced by comments of: 104/1 
00632/005   REBATE                   STAREAD         SA  G          S0811 REBATE 'REBATES' FSNAME=STAREAD                           
            5.0T2   883  REBATE.STAREAD.SA.005              1 LINE     77    3 PAGE UM   LIFT                MAR. 07, 1978  16:07:58
            5.0T5   328                       
0          SUBROUTINE CALLED BY REBATE TO READ A RECORD FROM *STATISTICS.
00632/006   REBATE                   STAREAD         OC  G          S0811 REBATE 'REBATES' FSNAME=STAREAD.O                         
            5.0T2   884  REBATE.STAREAD.OC.006              1 LINE     80    2 PAGE UM   LIFT                MAR. 07, 1978  16:08:02
            5.0T5   329                       
0          OBJECT ALSO IN ACCLIB (104/42).
0          Referenced by comments of: 104/1 
00632/007   REBATE                   WRITEUP         WF  G          S0811 REBATE 'REBATES' FSNAME=REBATEWRUP                        
            5.0T2   885  REBATE.WRITEUP.WF.007              1 LINE     80    6 PAGE UM   LIFT                JAN. 03, 1977  22:34:23
            5.0T5   330                       
0          WRITEUP DESCRIBING HOW TO RUN THE REBATE PROGRAM.
00632/008   REBATE                   REQUEST FORM    C              W012:REBATE                                                     
            5.0T2   886  REBATE.REQUEST_FORM.C.008          1 LINE    108    2 PAGE UM   LIFT                JULY 03, 1981  16:20:08
            5.0T5   331                       
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.
00632/009   REBATE                   CCREBATE        SA  G          S0811 REBATE 'REBATES' FSNAME=CCREBATE                          
            5.0T2   887  REBATE.CCREBATE.SA.009             1 LINE     59    2 PAGE UM   LIFT                AUG. 05, 1977  17:02:57
            5.0T5   332                       
0          PROGRAM TO TAKE QUEUE RECORDS FROM SYS:PLOTREBAT (615/37) AND PRODUCE INPUT TO THE
           REBATE PROGRAM.  THE OUTPUT FROM THIS PROGRAM IS WRITTEN INTO ACC:PLOTREBAT (632/11).
0          Referenced by comments of: 615/37, 632/11 
00632/010   REBATE                   CCREBATE        OC  G          ACC:CCREBATE                                                    
            5.0T2   888  REBATE.CCREBATE.OC.010             1 LINE     80    1 PAGE UM   LIFT                JULY 03, 1981  16:20:10
            5.0T5   333  ACC:CCREBATE         
00632/011   REBATE                   ACC:PLOTREBAT   D            # ACC:PLOTREBAT                                                   
                                                                                    UM   LIFT                                       
                         ACC:PLOTREBAT@E      
0          DATA FILE USED FOR OUTPUT FROM CCREBATE (632/9).
0          Referenced by comments of: 632/9 
1                                                                                               MON AUG 05/96   18:37:45   Page  399
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00633/001A *PL1SCAN                  IBM SOURCE      SA  G          S0696 OSSRC6 POSN=PL552                                         
            5.0T2   889  PL1SCAN.IBM_SOURCE.SA.001          1 SEQ      80  220 PAGE UM   TIFFANY             JULY 03, 1981  16:24:25
            5.0T5   334                       
0          IBM OS/360 (RELEASE 21.7) SOURCE FOR PL/I SYNTAX SCANNING PROGRAM.
00633/002A *PL1SCAN                  MTS UPDATE      UU  G          S0410 MTSPL1 'PL1LIB' POSN=PL1SCANUP.D4                         
            5.0T2   890  PL1SCAN.MTS_UPDATE.UU.002          1 SEQ      80    5 PAGE UM   TIFFANY             JULY 03, 1981  16:25:29
            5.0T5   335                       
0          *IEBUPDAT DECK FOR MTS CHANGES.  ASSEMBLE OUTPUT OF UPDATE USING IKM (633/3).
           COPIES IKMBASE (633/4).
00633/003A *PL1SCAN                  IKM             SM  G          S0410 MTSPL1 'PL1LIB' POSN=PL1SCNIKM.D4                         
            5.0T2   891  PL1SCAN.IKM.SM.003                 1 SEQ      80   19 PAGE UM   TIFFANY             JULY 03, 1981  16:25:31
            5.0T5   336                       
0          Referenced by comments of: 633/2 
00633/004A *PL1SCAN                  IKMBASE         SA  G          S0410 MTSPL1 'PL1LIB' POSN=PL1SCNIKMBASE.D4                     
            5.0T2   892  PL1SCAN.IKMBASE.SA.004             1 SEQ      80   10 PAGE UM   TIFFANY             JULY 03, 1981  16:25:33
            5.0T5   337                       
0          A SECTION COPIED BY THE IKM002 MODULE.
0          Referenced by comments of: 633/2 
00633/005A *PL1SCAN                  INTERFACE       SA  G          S0410 MTSPL1 'PL1LIB' POSN=PL1SCAN.S.D4                         
            5.0T2   893  PL1SCAN.INTERFACE.SA.005           1 SEQ      80   20 PAGE UM   TIFFANY             JULY 03, 1981  16:25:35
            5.0T5   338                       
0          MTS INTERFACE MODULE.  ASSEMBLE USING MACROLIB (633/6).
00633/006A *PL1SCAN                  MACROLIB        SM  G          S0564 D4T2 VLO FSNAME=PL1SCAN.MACROLIB.SM.006(1)             924
            5.0T2   894  PL1SCAN.MACROLIB.SM.006            1 LINE     38    1 PAGE UM   TIFFANY             JULY 28, 1977  21:37:37
            5.0T5   339                       
0          Referenced by comments of: 633/5 
00633/007A *PL1SCAN                                  OE  G          *PL1SCAN                                                        
            5.0T2   895  PL1SCAN..OE.007                    1 LINE   4032   11 PAGE UM   TIFFANY             JULY 03, 1981  16:25:39
            5.0T5   340  *PL1SCAN             
0          THIS OBJECT COULD BE LOADED INTO SHARED VM BY PISTLE IF DESIRED.
00634/001A  OPERATOR JOB                             SA  G          S0683 OGDEN FSNAME=OP.S                                         
            5.0T2   896  OPERATOR_JOB..SA.001               1 LINE     80   39 PAGE UM   OGDEN               JUNE 12, 1981  22:37:54
            5.0T5   341                       
0          JOB PROGRAM TO SUPPORT IBM 3270 AS OPERATOR'S CONSOLE. USES THE TR3270 TABLES
           (629/12).  COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), COPY:JOBSTA
           (413/9), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:SETPARM (653) AND COPY:MISC.MACROS (728).
0          Referenced by comments of: 413/1, 629/12, 634/4, 806/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  400
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00634/002A  OPERATOR JOB             UPDATE          UC  G          S0683 OGDEN FSNAME=OPUPD                                        
            5.0T2   897  OPERATOR_JOB.UPDATE.UC.002         1 LINE     91    4 PAGE UM   OGDEN               JUNE 12, 1981  22:44:48
            5.0T5   342                       
00634/003A  OPERATOR JOB                             OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00634/004A  OPERATOR JOB             CONSIO          SA  G          W163:CONSIO(1,999)                                              
            5.0T2   898  OPERATOR_JOB.CONSIO.SA.004         1 LINE     73   11 PAGE UM   OGDEN               JULY 03, 1981  16:25:50
            5.0T5   343                       
0          SUBROUTINE TO DO STAND-ALONE I/O TO A 3270, 1052, OR 3066.  ALSO PROVIDES
           INTERFACE TO OPERATOR JOB (634) IF USED.  IF OPERATOR JOB IS NOT USED, CONSIO
           MAY BE ASSEMBLED WITH &OPERJOB=0 TO REDUCE ITS SIZE.  COPIES COPY:GLOBALS (1026/3),
           COPY:LLMPSEQU (087), AND COPY:PSA (162).  ASSEMBLE USING COPY:SETPARM (653)
           AND COPY:MISC.MACROS (728).
00634/005A  OPERATOR JOB             CONSIO          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00634/006A  OPERATOR JOB             WRITEUP         WF             S0683 OGDEN FSNAME=OP.F                                         
            5.0T2   899  OPERATOR_JOB.WRITEUP.WF.006        1 LINE    143    7 PAGE UM   OGDEN               APR. 07, 1979  02:25:31
            5.0T5   344                       
0          OPERATOR'S GUIDE TO USING THE IBM 3270 OPERATOR'S CONSOLE.
00634/007A  OPERATOR JOB             CONSOLE         SA  G          MTS:CONSOLE(1000)                                               
            5.0T2   900  OPERATOR_JOB.CONSOLE.SA.007        1 LINE     73    4 PAGE UBC  O'REILLY  OGDEN     JULY 03, 1981  16:27:00
            5.0T5   345  MTS:CONSOLE          
0          PROGRAM TO DISPLAY THE OPERATORS' CONSOLE ON A 3270 TYPE TERMINAL. CALLS THE
           SCREEN SUPPORT ROUTINES (811). COPIES *GDINFODSECT (594). ASSEMBLE USING
           COPY:MISC.MACROS (728).
00634/008A  OPERATOR JOB             CONSOLE         OC  G          MTS:CONSOLE(1,999)                                              
            5.0T2   901  OPERATOR_JOB.CONSOLE.OC.008        1 LINE     80    4 PAGE UBC  O'REILLY  OGDEN     JULY 03, 1981  16:27:01
            5.0T5   346                       
00635/001A  FSUB                     D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=FSUB                        
            5.0T4   403  FSUB.D5.0_MASTER.SA.001            1 LINE     80   90 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:41:06
            5.0T10  307                       
0          COMPOSED OF THE FDGET, HOPENIT, GIVEBACK, FILE LOCKING AND UNLOCKING, ETC.
           SECTIONS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).  ASSEMBLE
           USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2 
1                                                                                               MON AUG 05/96   18:37:45   Page  401
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00635/002A  FSUB                     UPDATE          UC  G          MTS:FSUBUPD                                                     
            5.0T4   404  FSUB.UPDATE.UC.002                 1 LINE     80   26 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:44:59
            5.0T10  308                       
0          UPDATE TO PRODUCE CURRENT SOURCE.  UPDATE USES $CONTROL *IN* POSN=FSUB.
00635/003A  FSUB                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00635/004A  FSUB                                     L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=FSUB.LIST                  
            5.0T4   405  FSUB..L.004                        1 LINE    133  231 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:45:21
            5.0T10  309                       
00636/001A  CMDS                     D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=CMDS                        
            5.0T4   406  CMDS.D5.0_MASTER.SA.001            1 LINE     80  191 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:45:28
            5.0T10  310                       
0          MTS COMMAND PROCESSORS. COPIES COPY:LLMPSEQU (087) COPY:GLOBALS (1026/3), AND
           *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2 
00636/002A  CMDS                     UPDATE          UC  G          MTS:CMDSUPD                                                     
            5.0T4   407  CMDS.UPDATE.UC.002                 1 LINE     81   72 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:45:30
            5.0T10  311                       
0          UPDATE TO PRODUCE CURRENT SOURCE.
           UPDATE USES $CONTROL *IN* POSN=CMDS.
00636/003A  CMDS                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00636/004A  CMDS                                     L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=CMDS.LIST                  
            5.0T4   408  CMDS..L.004                        1 LINE    133  510 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:45:57
            5.0T10  312                       
00637/001A  DSRS                     D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=DSRS                        
            5.0T4   409  DSRS.D5.0_MASTER.SA.001            1 LINE     80   68 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:46:05
            5.0T10  313                       
0          MTS INTERNAL DSR'S AND HASP INTERFACE. COPIES COPY:LLMPSEQU (087) AND
           COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2 
1                                                                                               MON AUG 05/96   18:37:45   Page  402
0  Num   R       Component Name         Subname     Type G Seq ID 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/002A  DSRS                     UPDATE          UC  G          MTS:DSRSUPD                                                     
            5.0T4   410  DSRS.UPDATE.UC.002                 1 LINE     79   19 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:46:07
            5.0T10  314                       
0          UPDATE TO PRODUCE CURRENT SOURCE.  UPDATE USES $CONTROL *IN* POSN=DSRS.
0          Referenced by comments of: 16/1 
00637/003C  DSRS                     PAGEPR DJDE     SA  G          MTS:PAGEDJDE                                                    
            5.0T4   411  DSRS.PAGEPR_DJDE.SA.003            1 LINE     65    1 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:46:10
            5.0T10  315                       
0          An assembly which includes the default Xerox 9700 DJDE for use by 
           UNSP:PAGEPR (817).  Can be omitted from the Resident System if UNSP:PAGEPR
           is not used.
00637/004A  DSRS                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00637/005A  DSRS                                     L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=DSRS.LIST                  
            5.0T4   412  DSRS..L.005                        1 LINE    133  174 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:46:15
            5.0T10  316                       
00638/001A  USUB                     D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=USUB                        
            5.0T4   413  USUB.D5.0_MASTER.SA.001            1 LINE     80   95 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:46:34
            5.0T10  317                       
0          MTS USER SUBROUTINES. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3),
           *CNFGINFODSECT (654), AND *GDINFODSECT (594). ASSEMBLE USING
           COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2, 101/2, 680/1 
00638/002A  USUB                     UPDATE          UC  G          MTS:USUBUPD                                                     
            5.0T4   414  USUB.UPDATE.UC.002                 1 LINE     81   59 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:46:36
            5.0T10  318  MTS:USUBUPD          
0          UPDATE TO PRODUCE CURRENT SOURCE.
           UPDATE USES $CONTROL *IN* POSN=USUB.
00638/003A  USUB                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00638/004A  USUB                                     L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=USUB.LIST                  
            5.0T4   415  USUB..L.004                        1 LINE    133  242 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:47:22
            5.0T10  319                       
1                                                                                               MON AUG 05/96   18:37:45   Page  403
0  Num   R       Component Name         Subname     Type G Seq ID 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/001A  DSRI                     D5.0 MASTER     SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=DSRI                        
            5.0T4   416  DSRI.D5.0_MASTER.SA.001            1 LINE     80   38 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:47:27
            5.0T10  320                       
0          MTS DSR INTERFACE. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND
           *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2 
00639/002A  DSRI                     UPDATE          UC  G          MTS:DSRIUPD                                                     
            5.0T4   417  DSRI.UPDATE.UC.002                 1 LINE     79   18 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:47:27
            5.0T10  321                       
0          UPDATE TO PRODUCE CURRENT SOURCE.  UPDATE USES $CONTROL *IN* POSN=DSRI.
00639/003A  DSRI                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00639/004A  DSRI                                     L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=DSRI.LIST                  
            5.0T4   418  DSRI..L.004                        1 LINE    133  101 PAGE UM   MTS       HELFFRICH AUG. 09, 1981  23:47:33
            5.0T10  322                       
00639/005A  DSRI                     WRITEUP         WF             S0683 OGDEN FSNAME=DSR.DOC.F                                    
            5.0T2   902  DSRI.WRITEUP.WF.005                1 LINE    144   14 PAGE UM   MTS       OGDEN     JUNE 12, 1981  12:53:00
            5.0T5   347                       
0          A DESCRIPTION OF THE DEVICE SUPPORT ROUTINE INTERFACE (DSRI/DSR).
00639/006   DSRI                     TESTIO          SA  G          MTS:TESTIO(1,999)                                               
            5.0T2   903  DSRI.TESTIO.SA.006                 1 LINE     65    4 PAGE UM   MTA                 JULY 03, 1981  16:28:09
            5.0T5   348  MTS.:TESTIO          
0          TEST PROGRAM FOR DSR INTERFACE.
0          Referenced by comments of: 639/8, 639/9, 639/10, 639/11 
00639/007   DSRI                     TESTIO          OC  G          MTS:TESTIO(1000)                                                
            5.0T2   904  DSRI.TESTIO.OC.007                 1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  16:28:09
            5.0T5   349                       
00639/008   DSRI                     TESTIO DATA     D              MTS:TESTIODATA                                                  
            5.0T2   905  DSRI.TESTIO_DATA.D.008             1 LINE     44    1 PAGE UM   MTA                 JULY 03, 1981  16:28:10
            5.0T5   350  MTS.:TESTIODATA      
0          COMMANDS TO TESTIO PROGRAM (639/6), READ ON SCARDS.
0          Referenced by comments of: 639/11 
1                                                                                               MON AUG 05/96   18:37:45   Page  404
0  Num   R       Component Name         Subname     Type G Seq ID 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/009   DSRI                     TESTIO FILE 1   D              MTS:TESTIOFILE                                                  
            5.0T2   906  DSRI.TESTIO_FILE_1.D.009           1 LINE      5    1 PAGE UM   MTA                 JULY 03, 1981  16:28:11
            5.0T5   351  MTS.:TESTIOFILE      
0          TESTIO (639/6) TEST FILE NUMBER 1.
00639/010   DSRI                     TESTIO FILE 2   D              MTS:TESTIOFILE2                                                 
            5.0T2   907  DSRI.TESTIO_FILE_2.D.010           1 LINE      5    1 PAGE UM   MTA                 JULY 03, 1981  16:28:12
            5.0T5   352  MTS.:TESTIOFILE2     
0          TESTIO (639/6) TEST FILE NUMBER 2.
00639/011   DSRI                     TESTIO BASE     D              MTS:TESTIOBASE                                                  
            5.0T2   908  DSRI.TESTIO_BASE.D.011             1 LINE    132    3 PAGE UM   MTA                 JULY 03, 1981  16:28:13
            5.0T5   353  MTS.:TESTIOBASE      
0          EXPECTED SPRINT OUTPUT WHEN TESTIO (639/6) IS RUN USING TESTIO DATA (639/8) AS INPUT.
00640/001   MTS.TV                                   SA           # (OBSOLETE)                                                      
            D3.2T2   41  MTS.TV..SA.                        1 LINE     56    1 PAGE UM                       MAR. 21, 1975  02:20:51
0          In COPY:MTS.MACROS (344/3)
00642/001   MERIT UTILITIES          *MNS            C              *MNS                                                            
            5.0T2   909  MERIT_UTILITIES.*MNS.C.001         1 LINE      9    1 PAGE UM   OGDEN               JULY 03, 1981  16:28:14
            5.0T5   354  *MNS                 
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/002A  MERIT UTILITIES          MNS             C              STRT:MNS                                                        
            5.0T2   910  MERIT_UTILITIES.MNS.C.002          1 LINE     67    1 PAGE UM   OGDEN               JULY 03, 1981  16:28:14
            5.0T5   355  STRT:MNS             
0          COMMAND FILE SOURCED TO BY *MNS (642/1).
00642/003   MERIT UTILITIES          *MND            C              *MND                                                            
            5.0T2   911  MERIT_UTILITIES.*MND.C.003         1 LINE      9    1 PAGE UM   OGDEN               JULY 03, 1981  16:28:15
            5.0T5   356  *MND                 
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/004A  MERIT UTILITIES          MND             C              STRT:MND                                                        
            5.0T2   912  MERIT_UTILITIES.MND.C.004          1 LINE     28    1 PAGE UM   OGDEN               JULY 03, 1981  16:28:16
            5.0T5   357  STRT:MND             
0          COMMAND FILE SOURCED TO BY *MND (642/3) WHICH CHANGES MNET:AUTH (642/5) TO
1                                                                                               MON AUG 05/96   18:37:45   Page  405
0  Num   R       Component Name         Subname     Type G Seq ID 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          PREVENT NETWORK ACCESS.
00642/005   MERIT UTILITIES          AUTHORIZATION   D              MNET:AUTH                                                       
            5.0T2   913  MERIT_UTILITIES.AUTHORIZA.D.005    1 LINE     32    1 PAGE UM   OGDEN               JULY 03, 1981  16:28:17
            5.0T5   358  MNET:AUTH            
0          DATA FILE USED TO CONTROL WHICH USERS CAN USE THE NETWORK AND AT WHAT TIMES.
0          Referenced by comments of: 642/4 
00642/006A  MERIT UTILITIES          SETDATE         SF  G          MNET:SETDATE(1000)                                              
            5.0T2   914  MERIT_UTILITIES.SETDATE.SF.006     1 LINE     72    3 PAGE UM   OGDEN               JULY 03, 1981  16:28:17
            5.0T5   359                       
0          MTS PROGRAM TO SET THE TIME AND DATE IN THE MERIT PDP-11.  CALLS THE PAR SUBROUTINE
           FROM UNSP:LIBRARY (685/2).
0          Referenced by comments of: 642/8 
00642/007A  MERIT UTILITIES          SETDATE         OE  G          MNET:SETDATE(1,999)                                             
            5.0T2   915  MERIT_UTILITIES.SETDATE.OE.007     1 LINE   2606    4 PAGE UM   OGDEN               JULY 03, 1981  16:28:18
            5.0T5   360  MNET:SETDATE         
00642/008A  MERIT UTILITIES          SETDATE         WF             S0683 OGDEN FSNAME=SETDATE.F                                    
            5.0T2   916  MERIT_UTILITIES.SETDATE.WF.008     1 LINE     75    2 PAGE UM   OGDEN               MAY  03, 1981  16:08:24
            5.0T5   361                       
0          A DESCRIPTION OF THE SETDATE PROGRAM (642/6).
00642/009   MERIT UTILITIES          *MLD            C              *MLD                                                            
            5.0T2   917  MERIT_UTILITIES.*MLD.C.009         1 LINE     16    1 PAGE UM   OGDEN               JULY 03, 1981  16:28:21
            5.0T5   362  *MLD                 
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/010A  MERIT UTILITIES          RELOAD          C              MNET:RELOAD                                                     
            5.0T2   918  MERIT_UTILITIES.RELOAD.C.010       1 LINE     85    1 PAGE UM   OGDEN               JULY 03, 1981  16:28:22
            5.0T5   363  MNET:RELOAD          
0          COMMAND FILE SOURCED TO BY *MLD (642/9) TO RUN 11LOAD (642/11).
00642/011A  MERIT UTILITIES          11LOAD          SA  G          MNET:11LOAD(1000)                                               
            5.0T4   419  MERIT_UTILITIES.11LOAD.SA.011      1 LINE     73   22 PAGE UM   OGDEN               AUG. 09, 1981  23:47:35
            5.0T10  323                       
0          Referenced by comments of: 642/10, 642/13, 715/37 
1                                                                                               MON AUG 05/96   18:37:45   Page  406
0  Num   R       Component Name         Subname     Type G Seq ID 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/012A  MERIT UTILITIES          11LOAD          OE  G          MNET:11LOAD(1,999)                                              
            5.0T4   420  MERIT_UTILITIES.11LOAD.OE.012      1 LINE     80   13 PAGE UM   OGDEN               AUG. 09, 1981  23:47:41
            5.0T10  324  MNET:11LOAD          
00642/013A  MERIT UTILITIES          11LOAD          WF             S0683 OGDEN FSNAME=11LOAD.F                                     
            5.0T4   421  MERIT_UTILITIES.11LOAD.WF.013      1 LINE    176    3 PAGE UM   OGDEN               MAR. 25, 1977  11:52:19
            5.0T10  325                       
0          THIS IS MERIT MEMO ND-77-288, A DESCRIPTION OF 11LOAD (642/11).
00642/014   MERIT UTILITIES          *MUP            C              *MUP                                                            
            5.0T2   919  MERIT_UTILITIES.*MUP.C.014         1 LINE     39    1 PAGE UM   OGDEN               JULY 03, 1981  16:43:55
            5.0T5   364                       
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/015A  MERIT UTILITIES          MUP             SG  G          S0683 OGDEN FSNAME=MUP.S                                        
            5.0T2   920  MERIT_UTILITIES.MUP.SG.015         1 LINE    111    3 PAGE UM   OGDEN               JAN. 28, 1981  20:41:07
            5.0T5   365                       
0          PROGRAM TO DETERMINE THE STATE OF THE MERIT COMPUTER NETWORK.  CALLS THE CHKDEV
           (734/3), CKMNJOBS (642/16), CKNET (642/17), AND CKAUTH (642/18) SUBROUTINES.
0          Referenced by comments of: 642/14, 642/16, 642/17, 642/18, 642/19, 642/20, 734/3 
00642/016A  MERIT UTILITIES          CKMNJOBS SUBR   SA  G          S0683 OGDEN FSNAME=CKMNJOBS.S                                   
            5.0T2   921  MERIT_UTILITIES.CKMNJOBS.SA.016    1 LINE     72    3 PAGE UM   OGDEN               JUNE 26, 1980  00:09:43
            5.0T5   366                       
0          SUBROUTINE CALLED BY MUP (642/15) TO COUNT THE NUMBER AND TYPE OF UMMPS JOBS
           USING MERIT NETWORK DEVICES.  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU
           (087).
0          Referenced by comments of: 642/15, 642/19 
00642/017   MERIT UTILITIES          CKNET SUBR      SG  G          S1430 4.3T1 VLO FSNAME=MERIT_UTILITIES.CKNET_SUB.SG.017(1)   634
            5.0T2   922  MERIT_UTILITIES.CKNET_SUB.SG.017   1 LINE     99    2 PAGE UM   OGDEN               JULY 28, 1979  13:36:29
            5.0T5   367                       
0          SUBROUTINE CALLED BY MUP (642/15) WHICH ATTEMPTS TO OPEN CONNECTIONS ACROSS
           THE MERIT NETWORK AND WHICH RETURNS ERROR MESSAGES IN CASE OF FAILURE.
0          Referenced by comments of: 642/15, 642/19 
00642/018A  MERIT UTILITIES          CKAUTH SUBR     SA  G          S1482 4.3AT1 VLO FSNAME=MERIT_UTILITIES.CKAUTH_SU.SA.018(1)  348
            5.0T2   923  MERIT_UTILITIES.CKAUTH_SU.SA.018   1 LINE     80    5 PAGE UM   OGDEN               DEC. 04, 1977  23:09:48
            5.0T5   368                       
0          SUBROUTINE CALLED BY MUP (642/15) WHICH CHECKS THE FILE MNET:AUTH.
0          Referenced by comments of: 642/15, 642/19 
1                                                                                               MON AUG 05/96   18:37:45   Page  407
0  Num   R       Component Name         Subname     Type G Seq ID 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/019A  MERIT UTILITIES          MUP             OC  G          MNET:MUP                                                        
            5.0T2   924  MERIT_UTILITIES.MUP.OC.019         1 LINE   2132    5 PAGE UM   OGDEN               JULY 03, 1981  16:49:54
            5.0T5   369                       
0          OBJECT FOR (642/15), (642/16), (642/17), (642/18), AND (734/3).
00642/020A  MERIT UTILITIES          MUP             WF             S0683 OGDEN FSNAME=MUP.F                                        
            5.0T2   925  MERIT_UTILITIES.MUP.WF.020         1 LINE     97    3 PAGE UM   OGDEN               MAY  03, 1981  16:08:29
            5.0T5   370                       
0          A DESCRIPTION OF THE MUP PROGRAM (642/15).
00642/021   MERIT UTILITIES          TNTH            SA  O          S0564 D4T2 VLO FSNAME=MERIT_UTILITIES.TNTH.SA.018(1)         972
            5.0T2   926  MERIT_UTILITIES.TNTH.SA.021        1 LINE     80   24 PAGE UM   OGDEN               APR. 07, 1977  21:50:14
            5.0T5   371                       
0          TEST PROGRAM AND BATCHDSR SUBROUTINE TO RECEIVE NETWORK BATCH JOBS. ASSEMBLE
           WITH PAR=B.
00642/022   MERIT UTILITIES          TNTH            OC  O          MNET:TNTH                                                       
            5.0T2   927  MERIT_UTILITIES.TNTH.OC.022        1 LINE     80    4 PAGE UM   OGDEN               JULY 03, 1981  16:50:45
            5.0T5   372                       
00642/023   MERIT UTILITIES          THTN            SA  G          S0564 D4T2 VLO FSNAME=MERIT_UTILITIES.THTN.SA.020(1)         974
            5.0T2   928  MERIT_UTILITIES.THTN.SA.023        1 LINE     80    7 PAGE UM   OGDEN               MAR. 03, 1977  12:42:11
            5.0T5   373                       
0          TEST PROGRAM TO TRANSMIT NETWORK BATCH JOBS.
00642/024   MERIT UTILITIES          THTN            OC  G          MNET:THTN                                                       
            5.0T2   929  MERIT_UTILITIES.THTN.OC.024        1 LINE     80    3 PAGE UM   OGDEN               JULY 03, 1981  16:50:46
            5.0T5   374                       
00642/025A  MERIT UTILITIES          CONSOLE         SG  G          MNET:CONSOLE(1000)                                              
            5.0T2   930  MERIT_UTILITIES.CONSOLE.SG.025     1 LINE     95    4 PAGE UM   OGDEN               JULY 03, 1981  16:50:47
            5.0T5   375                       
0          A PROGRAM THAT CAN BE $RUN TO SEND COMMANDS TO, AND RECEIVE OUTPUT FROM,
           ALL OF THE MERIT COMMUNICATIONS COMPUTERS.  CALLS THE ATRAP ROUTINES FROM 
           UNSP:LIBRARY (685/2).
00642/026A  MERIT UTILITIES          CONSOLE         OE  G          MNET:CONSOLE(1,999)                                             
            5.0T2   931  MERIT_UTILITIES.CONSOLE.OE.026     1 LINE   4050    4 PAGE UM   OGDEN               JULY 03, 1981  16:50:48
            5.0T5   376                       
00643/001A  PAGLOAD                                  SA  G          MTA:PAGLOAD(1000)                                               
            5.0T2   932  PAGLOAD..SA.001                    1 LINE     70    5 PAGE UM   MTA                 JULY 03, 1981  16:50:49
            5.0T5   377  MTA.:PAGLOAD         
0          A VARIABLE PAGING LOAD GENERATOR. ALSO CHECKS FOR CORRECT PAGES. A
           DESCRIPTION OF THE PARAMETERS IS IN THE SOURCE. ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 196/1, 643/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  408
0  Num   R       Component Name         Subname     Type G Seq ID 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/002A  PAGLOAD                                  OC  G          MTA:PAGLOAD(1,999)                                              
            5.0T2   933  PAGLOAD..OC.002                    1 LINE   1616    2 PAGE UM   MTA                 JULY 03, 1981  16:50:50
            5.0T5   378                       
00643/003   PAGLOAD                  *PAG            C              *PAG                                                            
            5.0T2   934  PAGLOAD.*PAG.C.003                 1 LINE     70    1 PAGE UM   MTA                 JULY 03, 1981  16:50:51
            5.0T5   379  *PAG                 
0          COMMAND FILE USED TO RUN THE PAGLOAD PROGRAM (643/1) TO GENERATE AN
           ARTIFICIAL PAGE LOAD.  INVOKED BY ENTERING "MTS *PAG" ON THE OPERATORS
           CONSOLE.
00644/001   DISK SPACE                                            # (OBSOLETE)                                                      
            D4T2    978  DISK_SPACE..SA.001                 1 LINE     72    3 PAGE UBC                      JULY 28, 1977  21:47:24
0          Obsoleted by *DSK (073).
00645/001   UBCDSECTS                                SA           # (OBSOLETE)                                                      
            D3.2T2   48  UBCDSECTS..SA.                     1 LINE     71    1 PAGE UBC                      MAR. 21, 1975  02:21:05
0          In COPY:MTS.MACROS (344/3)
00646/001   SYSTEM DOCUMENTATION     LECTURE 1       WF             MTS:LECTURE1                                                    
            5.0T2   935  SYSTEM_DOCUMENTATION.LECT.WF.001   1 LINE    153    8 PAGE UM   JWS                 JULY 03, 1981  16:50:52
            5.0T5   380                       
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                                                  
            5.0T2   936  SYSTEM_DOCUMENTATION.VOL.SG.002    1 LINE     97    9 PAGE UM   JWS                 JULY 03, 1981  16:50:53
            5.0T5   381                       
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, WITH PARENS REPRESENTING OPTIONS,
                              C MEANS PRINT CLASSIFICATION INFO,
                              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"
1                                                                                               MON AUG 05/96   18:37:45   Page  409
0  Num   R       Component Name         Subname     Type G Seq ID 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               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                                                    
            5.0T2   937  SYSTEM_DOCUMENTATION.VOL.OC.003    1 LINE     80   13 PAGE UM   JWS                 JULY 03, 1981  16:50:59
            5.0T5   382                       
0          HAS EMBEDDED FILE NAMES FOR "SYS:INTCLASS"  (646/4) AND "SYS:INTDOCDATA" (646/5).
00646/004   SYSTEM DOCUMENTATION     VOL 99 CLASS    D              SYS:INTCLASS                                                    
            5.0T2   938  SYSTEM_DOCUMENTATION.VOL.D.004     1 LINE    101    4 PAGE UM   JWS                 JULY 03, 1981  16:51:00
            5.0T5   383                       
0          DATA FILE CONTAINING THE CLASSIFICATION INFORMATION AND INFORMATION ABOUT THE
           DOCUMENTS.  LINES NUMBERS IN THIS FILE ARE IMPORTANT; HAS NEGATIVE LINE NUMBERS.
0          Referenced by comments of: 646/3, 646/5 
00646/005   SYSTEM DOCUMENTATION     VOL 99 DOC      D              SYS:INTDOCDATA                                                  
            5.0T2   939  SYSTEM_DOCUMENTATION.VOL.D.005     1 LINE    190  240 PAGE UM   JWS                 JULY 03, 1981  16:51:01
            5.0T5   384                       
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.
0          Referenced by comments of: 646/3 
00646/006   SYSTEM DOCUMENTATION     PROTECTION      WF             S0564 D4T2 VLO FSNAME=SYSTEM_DOCUMENTATION.PROT.WF.006(1)    986
            5.0T2   940  SYSTEM_DOCUMENTATION.PROT.WF.006   1 LINE    183   14 PAGE UM   JWS                 JULY 28, 1977  21:48:18
            5.0T5   385                       
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                                                                                               MON AUG 05/96   18:37:45   Page  410
0  Num   R       Component Name         Subname     Type G Seq ID 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/001A  TASKSTAT SUBR                            SA  G          MTS:TASKSTAT(1000)                                              
            5.0T4   422  TASKSTAT_SUBR..SA.001              1 LINE     73   11 PAGE UM   OGDEN               AUG. 09, 1981  23:48:46
            5.0T10  326                       
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                  10 = DORMANT (NO CPU Q)  20 = SNARKED (MTS/TMTS ONLY)
                   1 = PAGE WAIT              11 = JOBSA WAIT          21 = UNUSED AT UM
                   2 = DASD I/O WAIT          12 = CMDSTA WAIT              GETSEG WAIT AT UBC
                   3 = OTHER I/O WAIT (ÂDASD) 13 = OPER WAIT           22 = WAYTSUBR
                   4 = TIME WAIT              14 = INACTIVE JOB TABLE       SLEEPSUB
                   5 = SVC LOCK WAIT          15 = DASD GTUNIT WAIT         WAYTRTN 
                   6 = GTUNIT WAIT (ÂDASD)    16 = HASP WAYT                SLEEPRTN
                   7 = FILE WAIT              17 = INTERTASK WAIT      23 = UNUSED AT UM
                   8 = UNKNOWN WAYT           18 = INTERTASK BUSY           HASP Q AT UBC
                   9 = IDLE                   19 = UNUSED
             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, 15:  INFO = DEVICE LIST POINTER
                FOR CODE 5:             INFO = LOCK NUMBER
                FOR CODES 8, 16:        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/8), THE 3270 DSR %ACTIVITY
           COMMAND (629/4), PWCT PGM (540/27), AND GTUNIT (540/18).  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 RATHER THAN AN OUTPUT ARGUMENT.  COPIES COPY:LLMPSEQU (087), *CNFGINFODSECT
           (654), COPY:GLOBALS (1026/3), AND COPY:JOBSTA (413/9).  ASSEMBLE USING 
           COPY:SETPARM (653). 
            
           *********************************************************************************
           D5.0 VERSION, ALREADY DISTRIBUTED ON D4.3A:
            
           CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT.
           INSTALL IF AND ONLY IF D4.3A  OR D5.0 UMMPS IS INSTALLED.
           ******************************************************************************
0          Referenced by comments of: 45/2, 400/1, 413/1, 540/8, 540/18, 806/1 
00647/002A  TASKSTAT SUBR                            OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   Page  411
0  Num   R       Component Name         Subname     Type G Seq ID 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/001A  EDITOR                   CLS             SA  G          EDIT:ED.MAIN.S                                                  
            5.0T2   941  EDITOR.CLS.SA.001                  1 LINE    147   49 PAGE UM   BURLING             AUG. 06, 1981  04:04:45
            5.0T5   386                       
0          This component is the MTS context Editor with pattern matching and variables.
           The modules in this component must be assembled with *ASMH (737) (*ASMG will
           give warning messages). The following components are required to assemble the
           Editor:
            
                 COPY:ED.MACROS (648/14)
                 COPY:MTS.MACROS (344/3)
                 COPY:CC.MACROS (1054/3)
                 *GDINFODSECT (594)
            
           The following components are used for listing enhancements, and are not strictly
           required, but are referred to by the commands located at the front of each
           source module.
            
                 *PEXIT (775)
                 ALWB:SIDELABEL (747)
                 UNSP:VERLAB (812)
            
           The following additional components are required to run the Editor:
            
                 MTS Macro Low-level symbol table routines (802/2)
                 Screen Support Routines (811)
            
           All source modules in this component contain commands at the front to assemble.
            
           The Editor SUGGEST command allows users to enter suggestions which are logged in
           the file ETC:EDSUGGEST if it exists. ETC:EDSUGGEST should be permitted WE to
           ALL.
            
           ********************************************************************
            
           This sub-component is the Main routine for the Editor. It acquires and
           initializes the global storage, processes attention and program interrupts,
           prints error messages, parses commands and modifiers, and calls the various
           parse and execute routines.
0          Referenced by comments of: 648/9, 812/1 
00648/002A  EDITOR                   CMNDS A TO M    SA  G          EDIT:ED.CMDATOM.S                                               
            5.0T2   942  EDITOR.CMNDS_A_TO_M.SA.002         1 LINE    137   68 PAGE UM   BURLING             AUG. 06, 1981  04:04:52
            5.0T5   387                       
0          This sub-component contains the command parse and execute routines for
           Editor commands beginning with A through M.
00648/003A  EDITOR                   CMNDS N TO Z    SA  G          EDIT:ED.CMDNTOZ.S                                               
            5.0T2   943  EDITOR.CMNDS_N_TO_Z.SA.003         1 LINE    137   32 PAGE UM   BURLING             AUG. 06, 1981  04:04:58
            5.0T5   388                       
0          This sub-component contains the command parse and execute routines for
1                                                                                               MON AUG 05/96   18:37:45   Page  412
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Editor commands beginning with N through Z, excluding Visual Mode commands.
00648/004   EDITOR                   EST SUBR        SA  G          S0564 D4T2 VLO FSNAME=EDITOR.EST_SUBR.SA.002(1)              989
            5.0T2   944  EDITOR.EST_SUBR.SA.004             1 LINE     80    6 PAGE UM   BURLING             JUNE 30, 1977  12:31:56
            5.0T5   389                       
0          This sub-component contains the line number insertion estimation routine
           used by the Editor, *OBJUTIL, and *MACUTIL.  It is used to calculate the
           largest "nice" increment that may be used to insert a specified number of
           lines between two existing lines.
0          Referenced by comments of: 721/1, 738/1, 738/2 
00648/005A  EDITOR                   EXPRESSIONS     SA  G          EDIT:ED.EXPRTNS.S                                               
            5.0T2   945  EDITOR.EXPRESSIONS.SA.005          1 LINE    140   12 PAGE UM   BURLING             AUG. 06, 1981  04:14:03
            5.0T5   390                       
0          This sub-component contains the predefined variable routines and the beginning
           of an expression parser added in anticipation of MTS conditional commands.
            
           ****************************************************************************
           D5.0 changes:
            
           Uses the MTS Command Macro facility symbol table routines (802/1).
           ****************************************************************************
00648/006A  EDITOR                   I/O SUPPORT     SA  G          EDIT:ED.IO.S                                                    
            5.0T2   946  EDITOR.I/O_SUPPORT.SA.006          1 LINE    145   47 PAGE UM   BURLING             AUG. 06, 1981  04:14:10
            5.0T5   391                       
0          This sub-component contains the Editor File Independent I/O routines.
           Aliases for these routines are defined by a COM record in the Editor
           CLS interface.  These routines may be called by user-supplied intermediate
           I/O routines when the Editor is called as a subroutine.
0          Referenced by comments of: 648/10 
00648/007A  EDITOR                   PATTERN         SA  G          EDIT:ED.PATTERN.S                                               
            5.0T2   947  EDITOR.PATTERN.SA.007              1 LINE    137   70 PAGE UM   BURLING             AUG. 06, 1981  04:14:15
            5.0T5   392                       
0          This sub-component contains the Editor Pattern Matching routines.
00648/008A  EDITOR                   PRIMITIV PARSE  SA  G          EDIT:ED.PRPARSE.S                                               
            5.0T2   948  EDITOR.PRIMITIV_PARSE.SA.008       1 LINE    137   43 PAGE UM   BURLING             AUG. 06, 1981  04:14:27
            5.0T5   393                       
0          This sub-component contains the Editor's primitive parsing routines.
00648/009A  EDITOR                   SUBROUTINES     SA  G          EDIT:ED.SUBRTNS.S                                               
            5.0T2   949  EDITOR.SUBROUTINES.SA.009          1 LINE    150   53 PAGE UM   BURLING             AUG. 06, 1981  04:14:31
            5.0T5   394                       
0          This sub-component contains the common Editor subroutines.  It was formerly
1                                                                                               MON AUG 05/96   18:37:45   Page  413
0  Num   R       Component Name         Subname     Type G Seq ID 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          a part of the Editor Main (648/1).
00648/010A  EDITOR                   VIRTUAL FILES   SA  G          EDIT:ED.VF.S                                                    
            5.0T2   950  EDITOR.VIRTUAL_FILES.SA.010        1 LINE    132   13 PAGE UM   BURLING             AUG. 06, 1981  04:14:37
            5.0T5   395                       
0          This sub-component contains the Editor Virtual File routines, 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/6).
00648/011A  EDITOR                   VISUAL CMND     SA  G          EDIT:ED.VISUAL.S                                                
            5.0T2   951  EDITOR.VISUAL_CMND.SA.011          1 LINE    149   28 PAGE UM   BURLING             AUG. 06, 1981  04:14:47
            5.0T5   396                       
0          This sub-component contains the command parse and execute routines for the
           Editor's Visual Mode.
            
           ****************************************************************************
           D5.0 changes:
            
           This is the new visual mode which uses device-independent full-screen
           support.  Requires the Screen Support Routines (811).
           ****************************************************************************
00648/012A  EDITOR                   CLS INTERFACE   SA  G          EDIT:ED.CLS.S                                                   
            5.0T2   952  EDITOR.CLS_INTERFACE.SA.012        1 LINE    129    4 PAGE UM   BURLING             AUG. 06, 1981  04:14:57
            5.0T5   397                       
0          This sub-component is the CLS interface for the MTS $EDIT command. It is called
           using the CLSPLAN calling conventions, and it in turn sets up to call the
           resident EDIT subroutine. It is responsible for parsing off any file name or
           one shot command.
00648/013A  EDITOR                   OBJECT          OC  G          *CLSED                                                          
            5.0T2   953  EDITOR.OBJECT.OC.013               1 LINE  19721  133 PAGE UM   BURLING             AUG. 06, 1981  04:14:58
            5.0T5   398  *CLSED               
0          This sub-component is the file loaded into shared VM by PISTLE at IPL.  It
           contains the object for sub-components 1 through 12, in *OBJUTIL format.
00648/014A  EDITOR                   MACROS          SM  G          COPY:ED.MACROS                                                  
            5.0T2   954  EDITOR.MACROS.SM.014               1 LINE     72   44 PAGE UM   BURLING             AUG. 06, 1981  04:15:06
            5.0T5   399  COPY:ED.MACROS       
0          This sub-component contains macros and COPY sections used by the Editor.
           ************************************************************************
           D5.0 version:
            
           This now contains *only* macros actually used by the editor.
           ************************************************************************
0          Referenced by comments of: 648/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  414
0  Num   R       Component Name         Subname     Type G Seq ID 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/015   EDITOR                   ETC:EDEXPLAIN   M              ETC.:EDEXPLAIN                                                  
            5.0T2   955  EDITOR.ETC:EDEXPLAIN.M.015         1 LINE     72   41 PAGE UM   BURLING             AUG. 06, 1981  04:15:11
            5.0T5   400  ETC.:EDEXPLAIN       
0          This sub-component contains the text used by the Editor's EXPLAIN command.
0          Referenced by comments of: 648/16 
00648/016A  EDITOR                   EXPLAIN GEN     SA  G          EDIT:EXPLAINGEN(1,999)                                          
            5.0T2   956  EDITOR.EXPLAIN_GEN.SA.016          1 LINE     83    3 PAGE UM   BURLING             AUG. 06, 1981  04:15:15
            5.0T5   401                       
0          This sub-component is the source for the program that generates the directory at
           the front of the explain command text file. Works like *MACGEN (293/1) except
           that there is an extra field which contains ending line numbers. EXPLAINGEN
           takes ETC:EDEXPLAIN(1000) (648/15) as SCARDS and produces the directory on
           SPUNCH, which should be assigned to ETC:EDEXPLAIN(1,999).
00648/017A  EDITOR                   EXPLAIN GEN     OC  G          EDIT:EXPLAINGEN(1000)                                           
            5.0T2   957  EDITOR.EXPLAIN_GEN.OC.017          1 LINE     80    2 PAGE UM   BURLING             AUG. 06, 1981  04:15:16
            5.0T5   402                       
00648/018   EDITOR                   *ED PROGRAM     SA  G          EDIT:ED.CALLER.S                                                
            5.0T2   958  EDITOR.?ED_PROGRAM.SA.018          1 LINE    101    3 PAGE UM   BURLING             AUG. 06, 1981  04:15:16
            5.0T5   403                       
0          This sub-component is a program that calls the EDIT subroutine.
           It is useful for debugging the Editor.
00648/019   EDITOR                   *ED PROGRAM     OE  G          EDIT:ED.CALLER                                                  
            5.0T2   959  EDITOR.?ED_PROGRAM.OE.019          1 LINE    956    1 PAGE UM   BURLING             AUG. 06, 1981  04:15:18
            5.0T5   404                       
00648/020A  EDITOR                   CHANGES         WX             EDIT:ED.CHANGES.W                                               
            5.0T2   960  EDITOR.CHANGES.WX.020              1 LINE     77   11 PAGE UM   BURLING             AUG. 06, 1981  04:15:18
            5.0T5   405                       
0          This sub-component contains a list of changes made to the Editor since it
           was last distributed.  Contains commands at the front to generate output
           in -PRINT.
00649/001   SNOBOLTIDY                               SA  G  STID    S1153 UNSP VLO FSNAME=SNOBOLTIDY.S                              
            5.0T2   961  SNOBOLTIDY..SA.001                 1 LINE     80    9 PAGE UM   UNSP                SEP. 30, 1975  11:00:41
            5.0T5   406                       
0          A SNOBOL4 SOURCE TIDYING PROGRAM WHICH ESTABLISHES A CORRESPONDENCE BETWEEN
           MTS LINE NUMBERS AND THE INTERNAL STATEMENT NUMBERS USED BY THE COMPILERS.
00649/002   SNOBOLTIDY                               OE  G          UNSP:SNOBOLTIDY                                                 
            5.0T2   962  SNOBOLTIDY..OE.002                 1 LINE   1382    3 PAGE UM   UNSP                JULY 03, 1981  16:54:06
            5.0T5   407  UNSP:SNOBOLTIDY      
1                                                                                               MON AUG 05/96   18:37:45   Page  415
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00649/003A  SNOBOLTIDY                               WF             S1153 UNSP VLO FSNAME=SNOBOLTIDY.FMT                            
            5.0T2   963  SNOBOLTIDY..WF.003                 1 LINE     82    1 PAGE UM   UNSP                SEP. 15, 1980  16:43:39
            5.0T5   408                       
00650/001A  BJPMOD                                   SA  G          S0683 OGDEN FSNAME=BJPMOD.S                                     
            5.0T4   423  BJPMOD..SA.001                     1 LINE     69    5 PAGE UM   OGDEN               MAR. 28, 1981  00:27:28
            5.0T10  327                       
0          SUBROUTINE CALLED BY SSRTN (413/1) TO DYNAMICALLY ADJUST THE SUPERVISOR PAGING
           PARAMETERS BASED ON THE SYSTEM LOAD.
           COPIES COPY:JOBSTA (413/9), AND COPY:BJPDSCT (650/3).
0          Referenced by comments of: 45/15, 413/1, 540/10 
00650/002A  BJPMOD                                   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00650/003   BJPMOD                   BJP DSECT       SA  G          COPY:BJPDSCT                                                    
            5.0T4   424  BJPMOD.BJP_DSECT.SA.003            1 LINE     69    1 PAGE UM   OGDEN               AUG. 09, 1981  23:50:52
            5.0T10  328  COPY:BJPDSCT         
0          DSECT FOR SUPERVISOR'S BIG JOB PARAMETER VECTOR.
0          Referenced by comments of: 413/1, 540/10, 577/1, 650/1 
00650/004A  BJPMOD                   WRITEUP         WF           # OBSOLETE (REPLACED BY SUPERVISOR SCHEDULING DESCR.)             
            4.3T1   656  BJPMOD.WRITEUP.WF.004              1 LINE     69    3 PAGE UM   OGDEN               MAR. 13, 1980  22:21:24
            4.3T3   114                       
0          Notes on BJPMOD and CPU scheduling - now included in the
           description of supervisor CPU scheduling (45/15). 
00651/001A  RATES                    RATEFILEFMT     SA  G  RTFL    S0027 DISTRB FSNAME=RATEFILEFMT                                 
            5.0T2   964  RATES.RATEFILEFMT.SA.001           1 LINE     80    1 PAGE UM   ENGLE               SEP. 09, 1980  16:38:52
            5.0T5   409                       
0          DESCRIBES MTS RATE LINES IN *RATEFILE.
0          Referenced by comments of: 651/4 
00651/002A  RATES                    RATEFILEFMT     UC  G          S0027 DISTRB FSNAME=RATEFILEFMTUPD                              
            5.0T2   965  RATES.RATEFILEFMT.UC.002           1 LINE     60    1 PAGE UM   ENGLE               SEP. 09, 1980  16:39:02
            5.0T5   410                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00651/003A  RATES                    COPY:RATEVEC    SA  G          COPY:RATEVEC                                                    
            5.0T2   966  RATES.COPY:RATEVEC.SA.003          1 LINE     80    2 PAGE UM   ENGLE               JULY 03, 1981  16:54:43
            5.0T5   411  COPY:RATEVEC         
0          DSECT COPIED UNDER THE NAME "COPY:RATEVEC" TO DESCRIBE "RATEVEC" IN SHARED
           VM AND THE INFORMATION RETURNED BY GETRATES (651/9).
1                                                                                               MON AUG 05/96   18:37:45   Page  416
0  Num   R       Component Name         Subname     Type G Seq ID 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: 71/1, 104/19, 344/1, 615/15, 631/8, 632/3, 651/9, 651/14, 708/1 
00651/004A  RATES                    RATEGEN         SA  G  RGEN    S0027 DISTRB FSNAME=RATEGEN                                     
            5.0T2   967  RATES.RATEGEN.SA.004               1 LINE     80   31 PAGE UM   ENGLE               FEB. 16, 1981  13:22:30
            5.0T5   412                       
0          PROGRAM TO GENERATE *RATEFILE (651/8).  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).
0          Referenced by comments of: 651/8 
00651/005A  RATES                    RATEGEN         OC  G          S0027 DISTRB FSNAME=RGEN                                        
            5.0T2   968  RATES.RATEGEN.OC.005               1 LINE     80   21 PAGE UM   ENGLE               FEB. 16, 1981  13:23:14
            5.0T5   413                       
00651/006   RATES                    RATEPRNT        SA  G          S0564 D4T2 VLO FSNAME=RATES.RATEPRNT.SA.005(1)              1008
            5.0T2   969  RATES.RATEPRNT.SA.006              1 LINE     80    4 PAGE UM   ENGLE               MAY  03, 1974  14:42.03
            5.0T5   414                       
0          PROGRAM TO PRINT THE CONTENTS OF *RATEFILE.  RATE LINES ARE PRINTED AS IF THEY FORMED
           A COLUMN MAJOR MATRIX CONTAINING 3 ROWS.
00651/007   RATES                    RATEPRNT        OC  G          S0564 D4T2 VLO FSNAME=RATES.RATEPRNT.OC.006(1)              1009
            5.0T2   970  RATES.RATEPRNT.OC.007              1 LINE     80    1 PAGE UM   ENGLE               MAY  03, 1974  14:42.23
            5.0T5   415                       
00651/008A  RATES                    *RATEFILE       D   G          MTS:TST.RATEFILE                                                
            5.0T2   971  RATES.?RATEFILE.D.008              1 LINE    222    7 PAGE UM   ENGLE               AUG. 06, 1981  04:15:39
            5.0T5   416  *RATEFILE            
0          FILE USED BY MTS AND BILLING FOR CHARGE RATES.  DOES NOT AGREE WITH DISTRIBUTED
           VERSION OF RATEGEN (651/4)-- HAS EXTRA CHEAP RATES (FREE).
0          Referenced by comments of: 326/1, 651/4, 651/9 
00651/009A  RATES                    GETRATES        SA  G          MTS:GETRATES(1,999)                                             
            5.0T2   972  RATES.GETRATES.SA.009              1 LINE     67    3 PAGE UM   MTA                 JULY 03, 1981  16:55:07
            5.0T5   417  MTS.:GETRATES        
0          SUBROUTINE TO RETURN RATES GIVEN A RATE NUMBER.
           THIS IS THE ONLY PROGRAM OUTSIDE OF THE ACCOUNTING AND BILLING PROGRAMS
           WHICH ACCESSES *RATEFILE (651/8).  COPIES COPY:RATEVEC (651/3).
            
           ***********************************************************************************
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A):
            
           CHANGED FOR V8 RATES AND NEW RATE FILE FORMAT.
           ***********************************************************************************
0          Referenced by comments of: 71/1, 651/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  417
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00651/010A  RATES                    GETRATES        OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00651/011A  RATES                    RATENBR D5 MAS  SA  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=RNBR                        
            5.0T4   425  RATES.RATENBR_D5_MAS.SA.011        1 LINE     80    8 PAGE UM   MTS       MTA       AUG. 09, 1981  23:50:55
            5.0T10  329                       
0          SUBROUTINE TO COMPUTE THE APPROPRIATE RATE NUMBER FOR THE CURRENT JOB. COPIES
           COPY:GLOBALS (1026/3), COPY:LLMPSEQU(100) (087), AND *CNFGINFODSECT (654).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2, 761/1 
00651/012A  RATES                    RATENBR UPD     UC  G          MTS:RNBRUPD                                                     
            5.0T4   426  RATES.RATENBR_UPD.UC.012           1 LINE     79    5 PAGE UM   MTS       MTA       AUG. 09, 1981  23:50:56
            5.0T10  330  MTS.:RNBRUPD         
0          UPDATE TO PRODUCE D5.0 SOURCE FROM D4.0.
           UPDATE USES $CONTROL *IN* POSN=RNBR.
00651/013A  RATES                    RATENBR         OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       MTA                              
0          Object part of Resident System (468)
00651/014   RATES                    RATEVEC         SA  G          MTS:RATEVEC(1,999)                                              
            5.0T2   973  RATES.RATEVEC.SA.014               1 LINE     47    1 PAGE UM   MTA                 JULY 03, 1981  16:55:07
            5.0T5   418  MTS.:RATEVEC         
0          INITIAL VALUES FOR RATE VECTOR.  COPIES COPY:RATEVEC (651/3).
00651/015   RATES                    RATEVEC         OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00651/016   RATES                    DOCUMENTATION   WF             S0938 FSAVE2 VLO FSNAME=VBLRATEDOC(1)                           
            5.0T2   974  RATES.DOCUMENTATION.WF.016         1 LINE    126    5 PAGE UM   MTA                 SEP. 23, 1975  00:16:54
            5.0T5   419                       
0          A WRITEUP DESCRIBING THE MTS VARIABLE RATES IMPLEMENTATION.
00652/001   MTS VOLUME 12            MASTER          WT             S0564 D4T2 VLO FSNAME=MTS_VOLUME_12.MASTER.WT.001(1)        1015
            5.0T2   975  MTS_VOLUME_12.MASTER.WT.001        1 SEQ     132  108 PAGE UM   MANUAL              JULY 28, 1977  21:55:28
            5.0T5   420                       
0          TEXT/360 MASTER FOR VOLUME 12 "PIL/2 IN MTS" OF THE UM MTS MANUALS, DECEMBER 1974.
            
           EDITOR:  RICHARD A. SALISBURY
1                                                                                               MON AUG 05/96   18:37:45   Page  418
0  Num   R       Component Name         Subname     Type G Seq ID 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/002   MTS VOLUME 12            PRINT           PT             S0564 D4T2 VLO FSNAME=MTS_VOLUME_12.PRINT.PT.002(1)         1016
            5.0T2   976  MTS_VOLUME_12.PRINT.PT.002         1 SEQ     132  248 PAGE UM   MANUAL              JULY 28, 1977  21:55:38
            5.0T5   421                       
0          TEXT/360 PRINT FILE.
00653/001   SETPARM                                  SM  G          COPY:SETPARM                                                    
            5.0T2   977  SETPARM.ASMG_VERSION.SM.001        1 LINE     72    3 PAGE UM   MTA                 AUG. 06, 1981  04:17:08
            5.0T5   422  COPY:SETPARM         
0          Macro library containing only the SETPARM and SETPARMH macros which generate
           SET statements for the COPY:GLOBALDEFS (1026/1) symbols based on the SYSPARM
           field given to *ASMG or *ASMH.
            
           The ASMH SETPARMH macro scans SYSPARM for NAME=tval where "NAME" is a symbol
           name, "t" is A, B, D, or E for SETA, SETB, SETC, or EQU assignment, and "val"
           is a value, possibly enclosed in quotes or parens. NAME=tval may be repeated
           and must be separated from previous items using a comma.
            
           For *ASMG, if a program has a SETPARM macro (after copying COPY:GLOBALS)
           and is assembled with PAR=SYSPARM=0001100101023UQV then additional SET
           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'
               &JTBLPOL SETA  2
               &DTBLPOL SETA  3
               &INSTALL SETC  'UQV'
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 45/1, 46/1, 79/1, 135/1, 399/1, 400/1, 482/7, 509/1,
                 540/1, 540/6, 577/1, 577/6, 634/1, 634/4, 647/1, 732/1, 777/1, 1021/1, 1021/4, 1081/1 
00654/001A *CNFGINFODSECT                            SA  G          *CNFGINFODSECT                                                  
            5.0T2   978  CNFGINFODSECT..SA.001              1 LINE     72    4 PAGE UM   MTA                 AUG. 06, 1981  04:17:09
            5.0T5   423  *CNFGINFODSECT       
0          DSECT FOR TABLE DESCRIBING SYSTEM CONFIGURATION (E.G. CPU TYPE AND FEATURES).
0          Referenced by comments of: 1/5, 4/1, 4/4, 9/1, 46/1, 49/1, 67/23, 97/10, 101/1, 104/61, 104/141, 116/1, 135/1,
                 303/1, 303/6, 354/5, 360/1, 400/1, 413/1, 461/1, 482/1, 506/8, 507/2, 509/1, 513/1, 534/3, 540/1, 540/10,
                 545/4, 545/16, 558/1, 559/2, 566/11, 566/26, 577/6, 595/86, 600/1, 600/7, 610/1, 621/2, 629/1, 634/1, 636/1,
                 638/1, 639/1, 647/1, 651/11, 655/4, 671/3, 682/37, 682/39, 721/1, 721/11, 721/18, 729/2, 738/1, 787/3, 787/15,
                 814/4, 1002/13, 1002/23, 1019/1, 1019/3, 1020/1, 3018/29, 3024/13 
1                                                                                               MON AUG 05/96   18:37:45   Page  419
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00655/001C  EREP/370                 DRIVER PROGRAM  SA  G        # (SEE *VSS DRIVER PROGRAM)                                       
                                                                                    UM   MTA                                        
0          Source for the program to call VSS to RUN EREP.  Requires *GDINFODSECT (594).
            
            
           This program is obtained by assembling VSS.DRIVER (1078/39) with SYSPARM=EREP.
0          Referenced by comments of: 621/8 
00655/002C  EREP/370                 DRIVER PROGRAM  OE  G          SYS:EREP                                                        
            5.0T2   979  EREP/370.DRIVER_PROGRAM.OE.002     1 LINE   2077    3 PAGE UM   MTA                 AUG. 21, 1981  05:18:28
            5.0T6     1  SYS:EREP             
0          Requires ETC:VSS (1078/38) and ETC:EREPCMDS (655/3).
00655/003C  EREP/370                 COMMANDS        C              ETC:EREPCMDS                                                    
            5.0T2   980  EREP/370.COMMANDS.C.003            1 LINE     52    1 PAGE UM   MTA                 JULY 03, 1981  16:55:29
            5.0T6     2  ETC:EREPCMDS         
0          VSS (1078) commands to run EREP.  Requires ETC:EREPLIB.VSS (655/6),
           INIT:UC3330LOG (621/12), INIT:MCFILE (577/10), and ETC:CNVTEREP (655/5).
0          Referenced by comments of: 655/2 
00655/004A  EREP/370                 CNVTEREP        SA  O          MTA:CNVTEREP(1,999)                                             
            5.0T2   981  EREP/370.CNVTEREP.SA.004           1 LINE     72   18 PAGE UM   MTA                 JULY 03, 1981  16:55:30
            5.0T6     3  MTA.:CNVTEREP        
0          PROGRAM TO CONVERT LOG RECORDS GENERATED BY MCHCCH (577/1), UCDISK (787/3),
           AND UCTAPE (787/15) TO A FORMAT ACCEPTABLE TO THE IBM EREP PROGRAM WHICH IS
           RUN UNDER *VSS IN MTS. CALLS JVCT (674) AND MAY CALL IGFC60 (589/4), IGFC70
           (589/5), IGFC80 (589/6), IGFCIC, WHICH IS NOT DISTRIBUTED, OR A#VCCH47
           (589/8) IF VERY OLD DATA IS PROCESSED. COPIES COPY:CMDAREADSECT (531/19),
           *GDINFODSECT (594) AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:UC.MACROS
           (787/1) AND MCHMAC (577/5).
            
           **********************************************************************************
           D5.0 CHANGES, SOME ALREADY DISTRIBUTED ON D4.3A:
            
           CHANGED FOR STC'S PM2 PROGRAM (820) AND NEW EREP.
           **********************************************************************************
00655/005A  EREP/370                 CNVTEREP        OE  O          ETC:CNVTEREP                                                    
            5.0T2   982  EREP/370.CNVTEREP.OE.005           1 LINE   8084    4 PAGE UM   MTA                 JULY 03, 1981  16:56:04
            5.0T6     4  ETC:CNVTEREP         
0          CONTAINS A $CONTINUE WITH MTA:470CCH+MTS:UBCDATEX+COPY:SYSDEFS RECORD WHICH
           REFERS TO COMPONENTS (589/8), (674/2), AND (579/3), RESPECTIVELY.
0          Referenced by comments of: 655/3, 820/7 
1                                                                                               MON AUG 05/96   18:37:45   Page  420
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00655/006C  EREP/370                 LIBRARY         OV             ETC:EREPLIB.VSS                                                 
            5.0T2   983  EREP/370.LIBRARY.OV.006            1 LINE  14656  285 PAGE UM   MTA                 JULY 03, 1981  16:56:05
            5.0T6     5  ETC:EREPLIB.VSS      
0          Object in MVS load module form for EREP, in VSS PDS format.
            
           Created from AOSCD and AOSC5 at 8101 + RMS6.1 level using MVS 3.8E
           Linkeditor running in VSS.  Includes FMIDs EER1100 and FER1110. 
            
           "MTS" patched into the system table in IFCEDSUM, IFCMES01, IFCETUL1
             IFCxx470, AND IFCE33XX load modules.
0          Referenced by comments of: 655/3 
00655/007   EREP/370                 470 RMS SOURCE  SA  G          S0699 D3TAPE POSN=EREP470.61.S                                  
            5.0T2   984  EREP/370.470_RMS_SOURCE.SA.007     1 LINE     80  139 PAGE AMD            MTA       AUG. 21, 1981  05:21:47
            5.0T6     6                       
0          Source for the EREP modules to format 470 records.
00655/008   EREP/370                 LINKEDIT INPUT  D              MTA:EREP.LKED                                                   
            5.0T2   985  EREP/370.LINKEDIT_INPUT.D.008      1 LINE     72    6 PAGE UM   MTA                 JULY 03, 1981  17:00:03
            5.0T6     7                       
0          OS/VS LINKEDIT CONTROL CARDS FOR EREP FOR ALL POSSIBLE OPTIONS EXCEPT SSD, 
           WHATEVER THAT IS, I.E. UNION OF ALL POSSIBLE OUTPUT FROM EREP.SGMAC (655/9). 
           CORRESPONDS TO VS2 REL 3.8E AT 8101 LEVEL WITH AMDAHL PTF #Z20184 APPLIED.
0          Referenced by comments of: 655/9 
00655/009   EREP/370                 SYSGEN MACRO    SA  G          MTA:EREP.SGMAC                                               191
            5.0T2   986  EREP/370.SYSGEN_MACRO.SA.009       1 LINE     80   16 PAGE UM   MTA                 JULY 03, 1981  17:00:05
            5.0T6     8                       
0          VS2 REL 3.8E FER1110 EREP SYSGEN MACRO SGIFB400 AT LEVEL 8101 WITH AMDAHL PTF 
           #Z20184 APPLIED.  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/8) IS THE RESULT OF ASSEMBLING AN EDITED VERSION OF THIS.
0          Referenced by comments of: 655/8 
00655/010C  EREP/370                 AOSC5           OV             S0938 FSAVE2 VLO FSNAME=SYS1.AOSC5                              
            5.0T2   987  EREP/370.AOSC5.OV.010              1 LINE  21678  391 PAGE UM   MTA                 APR. 07, 1981  00:26:22
            5.0T6     9                       
0          One of two load module libraries needed to linkedit EREP.  Actually contains
           very little of EREP and much else: 
            
              AOSC5 from the MVS 3.8E IPO tapes with PTF UR00831 (the only PTF to 
              AOSC5 that applies to EREP) applied.  This is at the 8101 level as far
              as EREP is concerned.
1                                                                                               MON AUG 05/96   18:37:45   Page  421
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00655/011C  EREP/370                 AOSCD           OV             S0938 FSAVE2 VLO FSNAME=SYS1.AOSCD                              
            5.0T2   988  EREP/370.AOSCD.OV.011              1 LINE  12288  358 PAGE UM   MTA                 APR. 11, 1981  04:17:49
            5.0T6    10                       
0          One of two load module libraries needed to linkedit EREP.
            
               AOSCD from the MVS 3.8E IPO tapes with all PTFs for EER1100 and FER1110 to the
               8101 level.  Some or all of the following PTFs are included: UR00692,
               UR00620, UR00595, UR01127, UR01116, UR00645, UR00904, UR00712, UR00783,
               UR00844, UR00838, UR00833, UR00907, UR00862, UR00930, UR00679, UR00834,
               UR00604, UR00591, UR00644, UR00711, UR00782, UR00842, UR00909, UR00901,
               UR01098, UR01220, UR01193, UR01238, UR01246, UR01254, UR90009, UR00779.
            
               Also includes the following changes from the Amdahl RMS 6.1 tape:
            
                 IFCEDSUM replaced from #R20170
                 IFCPARM1 patched as indicated in the comments to #R20173
                 IFCFILT2 patched as indicated in the comments to #R20182
                 IFCEI470 replaced from #R20195
                 IFCSI470 replaced from #R20197
                 IFCE0470 replaced from #R20202
                 IFCS0470 replaced from #R20203
                 IFCFILT3 patched as indicated in the comments to #R20208
                 IFCFILT4 patched as indicated in the comments to #R20212
            
               The exact patches are given on hand written notes in MTA's office.  Since
               a PDS in VSS (like in MVS) never reclaims space, all previous versions
               of these modules back to MVS 3.8E are also included in this file if it
               becomes necessary to determine the patches by comparison.
00655/012C  EREP/370                 WRITEUP         P              MTA:EREPINFO                                                    
            5.0T2   989  EREP/370.WRITEUP.P.012             1 LINE     70    1 PAGE UM   MTA                 JULY 03, 1981  17:03:23
            5.0T6    11  MTA:EREPINFO         
0          Description of how to run EREP in MTS.
00656/001   GT40 GRAPHICS SYSTEM     SYST            S   O          S0933 IGDIST FSNAME=GT40.SYST.S                                 
            5.0T2   990  GT40_GRAPHICS_SYSTEM.SYST.S.001    1 LINE     85   33 PAGE UM   EADIE               AUG. 12, 1976  15:57:09
            5.0T6    12                       
0          GRAPHICS OPERATING SYSTEM FOR DEC GT40 DISPLAY.  COPIES GT40 EQUS (656/2).
00656/002   GT40 GRAPHICS SYSTEM     EQUS            S   G          S0981 W114 'W114SAVE' FSNAME=GT40.EQU.C                         
            5.0T2   991  GT40_GRAPHICS_SYSTEM.EQUS.S.002    1 LINE     72    1 PAGE UM   EADIE               APR. 03, 1975  17:27:56
            5.0T6    13                       
0          Referenced by comments of: 656/1 
00656/003   GT40 GRAPHICS SYSTEM     SYST            O   O          S0933 IGDIST FSNAME=GT40.SYST                                   
            5.0T2   992  GT40_GRAPHICS_SYSTEM.SYST.O.003    1 LINE     55    3 PAGE UM   EADIE               MAY  16, 1977  17:49:15
            5.0T6    14                       
0          HAS A "$CONTINUE WITH SBWB:LOADER RETURN" CARD TO PICK UP THE OBJECT FOR
           (656/4).
1                                                                                               MON AUG 05/96   18:37:45   Page  422
0  Num   R       Component Name         Subname     Type G Seq ID 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                                 
            5.0T2   993  GT40_GRAPHICS_SYSTEM.LOAD.S.004    1 LINE     82    3 PAGE UM   EADIE               AUG. 12, 1976  15:57:22
            5.0T6    15                       
0          PROGRAM TO LOAD A DEC GT40 DISPLAY VIA TELEPHONE LINE.
0          Referenced by comments of: 656/3 
00656/005   GT40 GRAPHICS SYSTEM     LOADER          O   G          S0933 IGDIST FSNAME=GT40.LOAD                                   
            5.0T2   994  GT40_GRAPHICS_SYSTEM.LOAD.O.005    1 LINE     76    1 PAGE UM   EADIE               MAY  16, 1977  17:49:13
            5.0T6    16                       
00657/001  *ASCEBCD                                  SA  G          S1430 4.3T1 VLO FSNAME=ASCEBCD..SA.001(1)                    667
            5.0T2   995  ASCEBCD..SA.001                    1 LINE     80    3 PAGE UM   WSG                 JAN. 11, 1980  17:35:45
            5.0T6    17                       
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                                                        
            5.0T2   996  ASCEBCD..OC.002                    1 LINE     80    1 PAGE UM   WSG                 JULY 03, 1981  17:16:47
            5.0T6    18  *ASCEBCD             
00658/001A *EBCDASC                                  SA  G          S1430 4.3T1 VLO FSNAME=EBCDASC..SA.001(1)                    669
            5.0T2   997  EBCDASC..SA.001                    1 LINE     80    5 PAGE UM   WSG                 JAN. 11, 1980  17:37:01
            5.0T6    19                       
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/002A *EBCDASC                                  OC  G          *EBCDASC                                                        
            5.0T2   998  EBCDASC..OC.002                    1 LINE     80    2 PAGE UM   WSG                 JULY 03, 1981  17:16:49
            5.0T6    20  *EBCDASC             
00659/001A  GOM                      COMPILER FTN    SF  G          DWB:GOM.S                                                       
            5.0T2   999  GOM.COMPILER_FTN.SF.001            1 LINE    100  118 PAGE UM   DWB                 JULY 03, 1981  17:16:49
            5.0T6    21                       
0          COMPILER FOR "GOOD OLD MAD" -- A LANGUAGE SIMILAR TO THE 7090 MAD LANGUAGE.
            
           THIS FILE HAS 75 FORTRAN MODULES. SOURCE BEGINS AT LINES 1000, 2000, ...
           75000. "$CONTINUE WITH" FILES: GOM.COMMON (659/8), GOM.COMMOND (659/10),
           GOM.CONTAB (659/12), GOM.MATRIX (659/14), AND GOM.SYMTAB (659/15). NOTE:
           COMPILING THESE WILL PRODUCE THREE WARNING MESSAGES FROM THE COMPILATION OF
           THE STMTYP MODULE, LINES 31000,31999.
0          Referenced by comments of: 659/2, 659/5, 659/25, 798/37 
00659/002A  GOM                      COMPILER FTN    OC  G          DWB:GOM.O                                                       
            5.0T2  1000  GOM.COMPILER_FTN.OC.002            1 LINE  30712  171 PAGE UM   DWB                 JULY 03, 1981  17:16:57
            5.0T6    22  DWB.:GOM.O           
0          OBJECT CORRESPONDING TO (659/1), PLUS THE OBJECT FOR THE MODULE WHOSE SOURCE
1                                                                                               MON AUG 05/96   18:37:45   Page  423
0  Num   R       Component Name         Subname     Type G Seq ID 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          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).
0          Referenced by comments of: 659/2, 659/4 
00659/003A  GOM                      COMPILER GOM    SG  G          DWB:GOM.SG                                                      
            5.0T2  1001  GOM.COMPILER_GOM.SG.003            1 LINE    153   22 PAGE UM   DWB                 JULY 03, 1981  17:17:05
            5.0T6    23                       
0          GOM PIECES OF THE COMPILER, I.E. PORTIONS OF THE COMPILER WRITTEN IN ITSELF.
           REFERENCES CNFGINFO IN LCSYMBOL.  "$CONTINUE WITH" FILES:  GOM.COMMONG (659/9),
           GOM.COMMONDG (659/11), AND GOM.CONTABG (659/13).
0          Referenced by comments of: 659/2, 659/4, 659/16 
00659/004A  GOM                      COMPILER GOM    OC  G          DWB:GOM.OG                                                      
            5.0T2  1002  GOM.COMPILER_GOM.OC.004            1 LINE     80   34 PAGE UM   DWB                 JULY 03, 1981  17:17:09
            5.0T6    24  DWB.:GOM.OG          
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/005A  GOM                      SEQUENCES       SA  G          DWB:GOM.SEQS                                                    
            5.0T2  1003  GOM.SEQUENCES.SA.005               1 LINE    102   54 PAGE UM   DWB                 JULY 03, 1981  17:17:11
            5.0T6    25                       
0          THIS IS NOT EXECUTABLE. THE FORTRAN SOURCE PIECES (659/1) TREAT THIS AS A
           COMMON SECTION THAT IS AN ARRAY OF HALFWORDS.
0          Referenced by comments of: 659/6 
00659/006A  GOM                      SEQUENCES       OC  G          DWB:GOM.SEQS.O                                                  
            5.0T2  1004  GOM.SEQUENCES.OC.006               1 LINE     80   40 PAGE UM   DWB                 JULY 03, 1981  17:17:17
            5.0T6    26  DWB.:GOM.SEQS.O      
0          OBJECT CORRESPONDING TO (659/5).
0          Referenced by comments of: 659/2 
00659/007A  GOM                      OBJECT          OE  G          *GOM                                                            
            5.0T2  1005  GOM.OBJECT.OE.007                  1 LINE  32767   99 PAGE UM   DWB                 JULY 03, 1981  17:17:20
            5.0T6    27  *GOM                 
0          RESULT OF RUNNING *LINKEDIT WITH THE FOLLOWING COMMANDS:
             INCLUDE GOM.O
             INCLUDE GOM.SEQS.O
             INCLUDE GOM.SYMOPG(1000)
             UPDATE GOM.OG
             COMBINE@BC
             PURGE
             $EMPTY *GOM
             PUNCH *GOM
            
           NOTE:  THE UPDATE COMMAND IN THE ABOVE SEQUENCE WILL CAUSE *LINKEDIT TO EMIT A
1                                                                                               MON AUG 05/96   18:37:45   Page  424
0  Num   R       Component Name         Subname     Type G Seq ID 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                 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 *GOM
             PUNCH *GOM
00659/008A  GOM                      COMMON DECLAR   SF  G          DWB:GOM.COMMON                                                  
            5.0T2  1006  GOM.COMMON_DECLAR.SF.008           1 LINE     71    1 PAGE UM   DWB                 JULY 03, 1981  17:17:25
            5.0T6    28                       
0          "$CONTINUE WITH"ED BY ALL FORTRAN MODULES. CONTAINS COMMON DEFINITIONS AND
           COMMON DECLARATIONS.
0          Referenced by comments of: 659/1, 659/9, 659/16, 659/20 
00659/009A  GOM                      COMMON DECLAR   SG  G          DWB:GOM.COMMONG                                                 
            5.0T2  1007  GOM.COMMON_DECLAR.SG.009           1 LINE     85    3 PAGE UM   DWB                 JULY 03, 1981  17:17:26
            5.0T6    29                       
0          GOM "COPY SECTION" EQUIVALENT TO (659/8). "$CONTINUE WITH"ED BY ALL GOM
           MODULES.
0          Referenced by comments of: 659/3, 659/16, 659/20 
00659/010A  GOM                      DEPEND DECLAR   SF  G          DWB:GOM.COMMOND                                                 
            5.0T2  1008  GOM.DEPEND_DECLAR.SF.010           1 LINE     71    1 PAGE UM   DWB                 JULY 03, 1981  17:17:27
            5.0T6    30                       
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, 659/11 
00659/011A  GOM                      DEPEND DECLAR   SG  G          DWB:GOM.COMMONDG                                                
            5.0T2  1009  GOM.DEPEND_DECLAR.SG.011           1 LINE     79    1 PAGE UM   DWB                 JULY 03, 1981  17:17:27
            5.0T6    31                       
0          GOM EQUIVALENT OF (659/10).
0          Referenced by comments of: 659/3 
00659/012A  GOM                      CON TAB DECLAR  SF  G          DWB:GOM.CONTAB                                                  
            5.0T2  1010  GOM.CON_TAB_DECLAR.SF.012          1 LINE     71    1 PAGE UM   DWB                 JULY 03, 1981  17:17:28
            5.0T6    32                       
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, 659/13 
1                                                                                               MON AUG 05/96   18:37:45   Page  425
0  Num   R       Component Name         Subname     Type G Seq ID 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/013A  GOM                      CON TAB DECLAR  SG  G          DWB:GOM.CONTABG                                                 
            5.0T2  1011  GOM.CON_TAB_DECLAR.SG.013          1 LINE     71    1 PAGE UM   DWB                 JULY 03, 1981  17:17:29
            5.0T6    33                       
0          GOM EQUIVALENT OF (659/12).
0          Referenced by comments of: 659/3 
00659/014A  GOM                      TRIPLES TABLE   SF  G          DWB:GOM.MATRIX                                                  
            5.0T2  1012  GOM.TRIPLES_TABLE.SF.014           1 LINE     38    1 PAGE UM   DWB                 JULY 03, 1981  17:17:30
            5.0T6    34                       
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/015   GOM                      SYM TAB DECLAR  SF  G          DWB:GOM.SYMTAB                                                  
            5.0T2  1013  GOM.SYM_TAB_DECLAR.SF.015          1 LINE     69    1 PAGE UM   DWB                 JULY 03, 1981  17:17:31
            5.0T6    35                       
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/016A  GOM                      SYM TAB OPER    SA  G          DWB:GOM.SYMOPG(1,999)                                           
            5.0T2  1014  GOM.SYM_TAB_OPER.SA.016            1 LINE     70    4 PAGE UM   DWB                 JULY 03, 1981  17:17:31
            5.0T6    36                       
0          BUILT-IN OPERATORS FOR GOM VERSION OF THE SYMBOL TABLE ROUTINES IN (659/3).
           THIS DEFINES DATA IN THE COMMON SECTION DECOMP IN (659/8) AND (659/9).
00659/017A  GOM                      SYM TAB OPER    OC  G          DWB:GOM.SYMOPG(1000)                                            
            5.0T2  1015  GOM.SYM_TAB_OPER.OC.017            1 LINE     80   13 PAGE UM   DWB                 JULY 03, 1981  17:17:32
            5.0T6    37                       
00659/018A  GOM                      DATA INIT RTN   SA  G          DWB:GOM.DIN(1,999)                                              
            5.0T2  1016  GOM.DATA_INIT_RTN.SA.018           1 LINE     63    2 PAGE UM   DWB                 JULY 03, 1981  17:17:34
            5.0T6    38                       
0          THE SOURCE FOR THE DATA-INITIALIZATION SUBROUTINE (ENTRY POINT GOMDIN#) USED
           IN REENTRANT AND RECURSIVE ROUTINES.  THIS USED TO BE GENERATED AS PART OF
           EVERY REENTRANT OR RECURSIVE MODULE; IT IS NOW A SEPARATE PIECE, TO CUT THE 
           SIZE DOWN IN CASES WHERE THERE ARE MANY MODULES, E.G. $MESSAGESYSTEM (798).
00659/019A  GOM                      DATA INIT RTN   OC  G        # (PART OF *LIBRARY)                                              
            4.3T1   686  GOM.DATA_INIT_RTN.OC.019           1 LINE     80    1 PAGE UM   DWB                 APR. 05, 1980  19:35:43
            4.3T3   144                       
0          Object part of *LIBRARY (524/1)
1                                                                                               MON AUG 05/96   18:37:45   Page  426
0  Num   R       Component Name         Subname     Type G Seq ID 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/020A  GOM                      COPY SECT CVT   SS  G          DWB:GOM.CONVERT                                                 
            5.0T2  1017  GOM.COPY_SECT_CVT.SS.020           1 LINE     70    1 PAGE UM   DWB                 JULY 03, 1981  17:17:35
            5.0T6    39                       
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/021   GOM                      NEWS FILE       P            # DWB:GOMNEWS                                                     
            4.3T1   687  GOM.NEWS_FILE.P.021                1 LINE     78   22 PAGE UM   DWB                 APR. 05, 1980  19:35:47
            4.3T3   145                       
0          CONTAINS DESCRIPTIONS OF RECENT ADDITIONS TO THE LANGUAGE.
            
           *************************************************************************
           D5.0 comments:
            
           All additions have been incorporated into the D5.0 version of the GOM
           User's Manual (659/22), so this subcomponent is not being distributed 
           this time.
           *************************************************************************
00659/022A  GOM                      USER'S MANUAL   WF             S1551 MENDAL FSNAME=GOM.MANUAL                              1   
            5.0T2  1018  GOM.USER'S_MANUAL.WF.022           1 LINE     99   59 PAGE UM   DWB                 JUNE 17, 1981  16:11:43
            5.0T6    40                       
0          A USER'S MANUAL FOR GOM CONSISTING MOSTLY OF THE OLD 7090 MAD MANUAL CHAPTER
           II WITH DELETIONS, ADDITIONS, AND REVISIONS FOR GOM.
            
           *************************************************************************
           D5.0 version:
            
           Completely revised and updated for D5.0.
           *************************************************************************
0          Referenced by comments of: 659/21 
00659/023   GOM                      DOCUMENTATION   WF             DWB:GOM.PROGWRUP                                                
            5.0T2  1019  GOM.DOCUMENTATION.WF.023           1 LINE    108    4 PAGE UM   DWB                 JULY 03, 1981  17:18:05
            5.0T6    41                       
0          WRITEUP DESCRIBING THE STRUCTURE OF AN OBJECT MODULE PRODUCED BY GOM.
00659/024   GOM                      DOCUMENTATION   WF             DWB:GOM.LISTWRUP                                                
            5.0T2  1020  GOM.DOCUMENTATION.WF.024           1 LINE    120    6 PAGE UM   DWB                 JULY 03, 1981  17:18:06
            5.0T6    42                       
0          WRITEUP DESCRIBING THE INTERNALS OF THE COMPILER AND HOW TO READ THE
           COMPILER LISTINGS.
0          Referenced by comments of: 659/25 
1                                                                                               MON AUG 05/96   18:37:45   Page  427
0  Num   R       Component Name         Subname     Type G Seq ID 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/025   GOM                      DOCUMENTATION   SS  G          DWB:GOM.PEEL                                                    
            5.0T2  1021  GOM.DOCUMENTATION.SS.025           1 LINE     74    1 PAGE UM   DWB                 JULY 03, 1981  17:18:06
            5.0T6    43                       
0          SNOBOL PROGRAM TO READ THROUGH THE FORTRAN SOURCE (659/1) AND PRODUCE THE LISTS
           OF MODULES AND WHAT THEY COPY THAT IS TO BE ATTACHED TO THE END OF THE
           GOM.LISTWRUP WRITEUP (659/24).
00659/026   GOM                      DOCUMENTATION   P              DWB:GOM.COM.DOC                                                 
            5.0T2  1022  GOM.DOCUMENTATION.P.026            1 LINE     70    6 PAGE UM   DWB                 JULY 03, 1981  17:18:07
            5.0T6    44                       
0          CONTAINS EXPLANATION OF EACH SYMBOL IN THE GOM COMMON SECTIONS.
00659/027A  GOM                      READ DATA SUBR  SA  G          DWB:GOM.RDATA(1,999)                                            
            5.0T2  1023  GOM.READ_DATA_SUBR.SA.027          1 LINE     74    8 PAGE UM   DWB                 JULY 03, 1981  17:18:09
            5.0T6    45  DWB:GOM.RDATA        
0          SUBROUTINE CALLED BY "READ DATA" AND "READ AND PRINT DATA" STATEMENTS.
0          Referenced by comments of: 659/36 
00659/028A  GOM                      READ DATA SUBR  OC  G        # (PART OF *LIBRARY)                                              
            4.3AT1  367  GOM.READ_DATA_SUBR.OC.028          1 LINE     80    4 PAGE UM   DWB                 OCT. 12, 1980  16:26:53
            4.3AT2   30                       
0          Object part of *LIBRARY (524/1)
00659/029A  GOM                      PRINT RES SUBR  SA  G          DWB:GOM.PRSLT(1,999)                                            
            5.0T2  1024  GOM.PRINT_RES_SUBR.SA.029          1 LINE     70    7 PAGE UM   DWB                 JULY 03, 1981  17:18:11
            5.0T6    46  DWB:GOM.PRSLT        
0          SUBROUTINE CALLED BY "PRINT RESULTS", "PRINT BCD RESULTS", AND "PRINT HEX
           RESULTS" STATEMENTS.
0          Referenced by comments of: 659/35 
00659/030A  GOM                      PRINT RES SUBR  OC  G        # (PART OF *LIBRARY)                                              
            4.3AT1  369  GOM.PRINT_RES_SUBR.OC.030          1 LINE     80    3 PAGE UM   DWB                 OCT. 12, 1980  16:26:56
            4.3AT2   32                       
0          Object part of *LIBRARY (524/1)
00659/031C  GOM                      ADAPTOR SUBR    SA  G          DWB:GOM.ADPT                                                    
            5.0T2  1025  GOM.ADAPTOR_SUBR.SA.031            1 LINE     81    2 PAGE UM   DWB                 JULY 03, 1981  17:18:13
            5.0T6    47                       
0          An adaptor routine used with "LINKAGE=CLSMTS" routines to convert to the
           Coding Conventions environment. 
00659/032C  GOM                      ADAPTOR SUBR    OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   DWB                                        
0          Object part of *LIBRARY (524/1)
1                                                                                               MON AUG 05/96   18:37:45   Page  428
0  Num   R       Component Name         Subname     Type G Seq ID 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/033   GOM                      TEST PROGRAMS   C   G          DWB:GOM.EXAMP                                                   
            5.0T2  1026  GOM.TEST_PROGRAMS.C.033            1 LINE     43    1 PAGE UM   DWB                 JULY 03, 1981  17:18:14
            5.0T6    48                       
0          COMMANDS FOR A BATCH JOB WHICH COMPILES AND EXECUTES THREE TEST PROGRAMS
           (659/34).
0          Referenced by comments of: 659/34 
00659/034   GOM                      TEST PROGRAMS   SG  G          DWB:TESTMAD                                                     
            5.0T2  1027  GOM.TEST_PROGRAMS.SG.034           1 LINE     85    6 PAGE UM   DWB                 JULY 03, 1981  17:18:15
            5.0T6    49                       
0          A MOTLEY ASSORTMENT OF OLD-MAD PROGRAMS, SOME OF WHICH HAVE BEEN MODIFIED
           FOR GOM AND ARE USED BY GOM.EXAMP (659/33).
0          Referenced by comments of: 659/33 
00659/035   GOM                      TEST PROGRAMS   SA  G          DWB:GOM.PRSLT.T(1,999)                                          
            5.0T2  1028  GOM.TEST_PROGRAMS.SA.035           1 LINE     50    1 PAGE UM   DWB                 JULY 03, 1981  17:18:16
            5.0T6    50                       
0          TEST PROGRAM FOR PRINT RESULTS SUBROUTINE (659/29).
00659/036   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.RDATA.T                                                 
            5.0T2  1029  GOM.TEST_PROGRAMS.SG.036           1 LINE     37    1 PAGE UM   DWB                 JULY 03, 1981  17:18:17
            5.0T6    51                       
0          TEST PROGRAM FOR READ DATA SUBROUTINE (659/27).
00659/037   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST.SDS                                                
            5.0T2  1030  GOM.TEST_PROGRAMS.SG.037           1 LINE     32    1 PAGE UM   DWB                 JULY 03, 1981  17:18:18
            5.0T6    52                       
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/038   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.SIMPLE                                                  
            5.0T2  1031  GOM.TEST_PROGRAMS.SG.038           1 LINE     42    1 PAGE UM   DWB                 JULY 03, 1981  17:18:19
            5.0T6    53                       
0          THIS COMPONENT AND THOSE WHICH FOLLOW ARE MISCELLANEOUS TEST INPUT FOR THE COMPILER.
           THEY ARE (OBVIOUSLY) NOT TO BE EXECUTED AFTER COMPILATION.
00659/039   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST.FN                                                 
            5.0T2  1032  GOM.TEST_PROGRAMS.SG.039           1 LINE     50    1 PAGE UM   DWB                 JULY 03, 1981  17:18:20
            5.0T6    54                       
0          FIFTEEN TEST PROGRAMS STARTING AT LINES 1, 1000, 2000, ... TO TEST EXTERNAL AND
           INTERNAL FUNCTIONS.
1                                                                                               MON AUG 05/96   18:37:45   Page  429
0  Num   R       Component Name         Subname     Type G Seq ID 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/040   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST                                                    
            5.0T2  1033  GOM.TEST_PROGRAMS.SG.040           1 LINE     53    1 PAGE UM   DWB                 JULY 03, 1981  17:18:21
            5.0T6    55                       
00659/041   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST2                                                   
            5.0T2  1034  GOM.TEST_PROGRAMS.SG.041           1 LINE     41    1 PAGE UM   DWB                 JULY 03, 1981  17:18:22
            5.0T6    56                       
00659/042   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST3                                                   
            5.0T2  1035  GOM.TEST_PROGRAMS.SG.042           1 LINE     33    1 PAGE UM   DWB                 JULY 03, 1981  17:18:23
            5.0T6    57                       
00659/043   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST4                                                   
            5.0T2  1036  GOM.TEST_PROGRAMS.SG.043           1 LINE     45    1 PAGE UM   DWB                 JULY 03, 1981  17:18:23
            5.0T6    58                       
0          AN EARLY VERSION OF A PROGRAM WHICH IS USEFUL FOR TESTING ARRAYS OF STATEMENT LABEL
           CONSTANTS.
00659/044   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST5                                                   
            5.0T2  1037  GOM.TEST_PROGRAMS.SG.044           1 LINE     34    1 PAGE UM   DWB                 JULY 03, 1981  17:18:24
            5.0T6    59                       
0          TEST PROGRAM WHICH TESTS VECTOR VALUES AND SHIFTS.
00659/045   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST6                                                   
            5.0T2  1038  GOM.TEST_PROGRAMS.SG.045           1 LINE     30    1 PAGE UM   DWB                 JULY 03, 1981  17:18:25
            5.0T6    60                       
0          TEST PROGRAM WHICH TESTS ARRAY ACCESSING.
00659/046A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST7                                                   
            5.0T2  1039  GOM.TEST_PROGRAMS.SG.046           1 LINE     41    1 PAGE UM   DWB                 JULY 03, 1981  17:18:26
            5.0T6    61                       
0          EIGHT TEST SECTIONS AT LINES 1, 100, 200, ... TO TEST PROGRAM COMMON.
00659/047   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST8                                                   
            5.0T2  1040  GOM.TEST_PROGRAMS.SG.047           1 LINE     30    1 PAGE UM   DWB                 JULY 03, 1981  17:18:27
            5.0T6    62                       
0          TEST PROGRAM WHICH TESTS EXPONENTIATION.
00659/048   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST9                                                   
            5.0T2  1041  GOM.TEST_PROGRAMS.SG.048           1 LINE     51    1 PAGE UM   DWB                 JULY 03, 1981  17:18:28
            5.0T6    63                       
0          TEST PROGRAM WHICH TESTS THE .LOC. AND .IND. OPERATORS.
00659/049   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST10                                                  
            5.0T2  1042  GOM.TEST_PROGRAMS.SG.049           1 LINE     24    1 PAGE UM   DWB                 JULY 03, 1981  17:18:29
            5.0T6    64                       
0          TEST PROGRAM WHICH TESTS SHORT INTEGER AND BYTE INTEGER DATA TYPES.
1                                                                                               MON AUG 05/96   18:37:45   Page  430
0  Num   R       Component Name         Subname     Type G Seq ID 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: 659/52 
00659/050   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST11                                                  
            5.0T2  1043  GOM.TEST_PROGRAMS.SG.050           1 LINE     44    1 PAGE UM   DWB                 JULY 03, 1981  17:18:30
            5.0T6    65                       
0          TEST PROGRAM WHICH TESTS CHARACTER SUBSTRING OPERATION.
00659/051   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST12                                                  
            5.0T2  1044  GOM.TEST_PROGRAMS.SG.051           1 LINE     24    1 PAGE UM   DWB                 JULY 03, 1981  17:18:30
            5.0T6    66                       
0          TEST PROGRAM WHICH TESTS THE "@" CONSTANT QUALIFIER.
00659/052   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST13                                                  
            5.0T2  1045  GOM.TEST_PROGRAMS.SG.052           1 LINE     40    1 PAGE UM   DWB                 JULY 03, 1981  17:18:31
            5.0T6    67                       
0          TEST PROGRAM WHICH TESTS THE ADDRESSING OF NEW DATA TYPES WHEN THEY ARE IN
           PROGRAM COMMON. SAME AS (659/49) EXCEPT ALL VARIABLES ARE IN PROGRAM COMMON.
00659/053   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST14                                                  
            5.0T2  1046  GOM.TEST_PROGRAMS.SG.053           1 LINE     46    1 PAGE UM   DWB                 JULY 03, 1981  17:18:32
            5.0T6    68                       
0          TEST PROGRAM WHICH TESTS THE LONG INTEGER DATA TYPE AND THE .AS. OPERATOR.
00659/054   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST15                                                  
            5.0T2  1047  GOM.TEST_PROGRAMS.SG.054           1 LINE     62    1 PAGE UM   DWB                 JULY 03, 1981  17:18:33
            5.0T6    69                       
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/055   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST16                                                  
            5.0T2  1048  GOM.TEST_PROGRAMS.SG.055           1 LINE     46    1 PAGE UM   DWB                 JULY 03, 1981  17:18:34
            5.0T6    70                       
0          TEST PROGRAM WHICH TESTS "PRINT RESULTS" FOR THE SHORT INTEGER, BYTE INTEGER,
           CHARACTER, AND LONG INTEGER DATA TYPES.
00659/056   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST17                                                  
            5.0T2  1049  GOM.TEST_PROGRAMS.SG.056           1 LINE     45    1 PAGE UM   DWB                 JULY 03, 1981  17:18:35
            5.0T6    71                       
0          TEST PROGRAM WHICH TESTS "READ DATA" FOR VARIED DATA TYPES.
00659/057   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST18                                                  
            5.0T2  1050  GOM.TEST_PROGRAMS.SG.057           1 LINE     52    1 PAGE UM   DWB                 JULY 03, 1981  17:18:36
            5.0T6    72                       
0          SMALL TEST PROGRAM WHICH CHECKS IF LOOP-END TERMINATION IS CORRECT.
1                                                                                               MON AUG 05/96   18:37:45   Page  431
0  Num   R       Component Name         Subname     Type G Seq ID 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/058   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST19                                                  
            5.0T2  1051  GOM.TEST_PROGRAMS.SG.058           1 LINE     53    1 PAGE UM   DWB                 JULY 03, 1981  17:18:37
            5.0T6    73                       
0          TEST PROGRAM WHICH CHECKS THE R-TYPE CALLING SEQUENCE GENERATION.
00659/059   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST20                                                  
            5.0T2  1052  GOM.TEST_PROGRAMS.SG.059           1 LINE     54    1 PAGE UM   DWB                 JULY 03, 1981  17:18:38
            5.0T6    74                       
0          TEST PROGRAM WHICH TESTS DYNAMIC RECORDS, AND ALLOCATE, RELEASE, USING POINTER,
           AND THE .SIZE. OPERATOR.
00659/060   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST21                                                  
            5.0T2  1053  GOM.TEST_PROGRAMS.SG.060           1 LINE     56    1 PAGE UM   DWB                 JULY 03, 1981  17:18:38
            5.0T6    75                       
0          TEST PROGRAM WHICH TESTS RETURN CODE EXTRACTION AND TESTING FOR FORMATTED I/O STATEMENTS.
00659/061   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST22                                                  
            5.0T2  1054  GOM.TEST_PROGRAMS.SG.061           1 LINE     41    1 PAGE UM   DWB                 JULY 03, 1981  17:18:39
            5.0T6    76                       
0          TEST PROGRAM WHICH TESTS ALTERNATE STRING DELIMITERS.
00659/062   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST23                                                  
            5.0T2  1055  GOM.TEST_PROGRAMS.SG.062           1 LINE     33    1 PAGE UM   DWB                 JULY 03, 1981  17:18:40
            5.0T6    77                       
0          TEST PROGRAM WHICH TESTS THE "CONSTANT" STATEMENT.
00659/063   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST24                                                  
            5.0T2  1056  GOM.TEST_PROGRAMS.SG.063           1 LINE     35    1 PAGE UM   DWB                 JULY 03, 1981  17:18:41
            5.0T6    78                       
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/064   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST25                                                  
            5.0T2  1057  GOM.TEST_PROGRAMS.SG.064           1 LINE     31    1 PAGE UM   DWB                 JULY 03, 1981  17:18:42
            5.0T6    79                       
0          TEST PROGRAM WHICH CHECKS SCALAR AND ARRAY STATEMENT LABEL CONSTANTS AS WELL
           AS SCALAR AND ARRAY STATEMENT LABEL VARIABLES.
00659/065   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST26                                                  
            5.0T2  1058  GOM.TEST_PROGRAMS.SG.065           1 LINE     57    1 PAGE UM   DWB                 JULY 03, 1981  17:18:42
            5.0T6    80                       
0          TEST PROGRAM TO SEE IF ILLEGAL UNARY "/" OPERATOR IS CAUGHT.
1                                                                                               MON AUG 05/96   18:37:45   Page  432
0  Num   R       Component Name         Subname     Type G Seq ID 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/066   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST27                                                  
            5.0T2  1059  GOM.TEST_PROGRAMS.SG.066           1 LINE     26    1 PAGE UM   DWB                 JULY 03, 1981  17:18:43
            5.0T6    81                       
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/067   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST28                                                  
            5.0T2  1060  GOM.TEST_PROGRAMS.SG.067           1 LINE     70    1 PAGE UM   DWB                 JULY 03, 1981  17:18:44
            5.0T6    82                       
0          PROGRAM TO TEST THAT TEMPORARIES ARE PROPERLY USED WHEN IT RUNS OUT OF REGISTERS.
00659/068   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST29                                                  
            5.0T2  1061  GOM.TEST_PROGRAMS.SG.068           1 LINE     34    1 PAGE UM   DWB                 JULY 03, 1981  17:18:46
            5.0T6    83                       
0          PROGRAM TO TEST PARSING OF HEX CONSTANTS AND PROPER INSERTION OF SAME AND CHARACTER
           CONSTANTS IN VECTOR VALUES STATEMENTS.
00659/069   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST30                                                  
            5.0T2  1062  GOM.TEST_PROGRAMS.SG.069           1 LINE     67    1 PAGE UM   DWB                 JULY 03, 1981  17:18:47
            5.0T6    84                       
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/070   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST31                                                  
            5.0T2  1063  GOM.TEST_PROGRAMS.SG.070           1 LINE     62    1 PAGE UM   DWB                 JULY 03, 1981  17:18:48
            5.0T6    85                       
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/071A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST32                                                  
            5.0T2  1064  GOM.TEST_PROGRAMS.SG.071           1 LINE     58    1 PAGE UM   DWB                 JULY 03, 1981  17:18:49
            5.0T6    86                       
0          TEST OF FUNCTION CALLS WITH AND WITHOUT
            1.  ARGUMENT LISTS,
            2.  RETURN CODE EXTRACTION, AND
            3.  WHETHER IN EXPRESSION OR STAND-ALONE.
00659/072   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST33                                                  
            5.0T2  1065  GOM.TEST_PROGRAMS.SG.072           1 LINE     66    1 PAGE UM   DWB                 JULY 03, 1981  17:18:50
            5.0T6    87                       
0          TEST FOR FOUR MISCELLANEOUS PROBLEMS.
1                                                                                               MON AUG 05/96   18:37:45   Page  433
0  Num   R       Component Name         Subname     Type G Seq ID 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/073   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST34                                                  
            5.0T2  1066  GOM.TEST_PROGRAMS.SG.073           1 LINE    140    1 PAGE UM   DWB                 JULY 03, 1981  17:18:51
            5.0T6    88                       
0          TEST FOR LONG INPUT LINES IN THE SOURCE (FOR WRAPAROUND ON THE LISTING).
00659/074   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST35                                                  
            5.0T2  1067  GOM.TEST_PROGRAMS.SG.074           1 LINE     74    1 PAGE UM   DWB                 JULY 03, 1981  17:18:52
            5.0T6    89                       
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)...
00659/075   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST36                                                  
            5.0T2  1068  GOM.TEST_PROGRAMS.SG.075           1 LINE     60    1 PAGE UM   DWB                 JULY 03, 1981  17:18:53
            5.0T6    90                       
0          TEST SIMPLE I/O AND FORMATTED I/O WHEN I/O UNIT OR FDUB IS SPECIFIED.
00659/076   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST37                                                  
            5.0T2  1069  GOM.TEST_PROGRAMS.SG.076           1 LINE     61    1 PAGE UM   DWB                 JULY 03, 1981  17:18:54
            5.0T6    91                       
0          TESTS FORMATTED I/O WHEN I/O UNIT OR FDUB IS SPECIFIED AND THERE IS NO SYMBOL TABLE.
00659/077   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST38                                                  
            5.0T2  1070  GOM.TEST_PROGRAMS.SG.077           1 LINE     40    1 PAGE UM   DWB                 JULY 03, 1981  17:18:55
            5.0T6    92                       
0          TESTS FORMAT VARIABLE STATEMENT AND USE OF FORMAT VARIABLES.
00659/078   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST39                                                  
            5.0T2  1071  GOM.TEST_PROGRAMS.SG.078           1 LINE     57    1 PAGE UM   DWB                 JULY 03, 1981  17:18:56
            5.0T6    93                       
0          TESTS LONG INTEGER EXPRESSIONS IN COMPARATIVES.
00659/079   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST40                                                  
            5.0T2  1072  GOM.TEST_PROGRAMS.SG.079           1 LINE     80    1 PAGE UM   DWB                 JULY 03, 1981  17:18:57
            5.0T6    94                       
0          PROGRAM TO TEST SUPERVISOR CALL STATEMENT.
00659/080   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST41                                                  
            5.0T2  1073  GOM.TEST_PROGRAMS.SG.080           1 LINE     67    2 PAGE UM   DWB                 JULY 03, 1981  17:18:58
            5.0T6    95                       
0          THIS IS A PROGRAM WHICH IS REPEATED 15 TIMES TO TEST FOR VARIATIONS OF
           ENTRY SEQUENCES.  VARIATIONS BEGIN AT LINE NUMBERS 1000 TO 15000.  SEE THE 
           COMMENTS IN LINE 1.  HAS SEVERAL $CONTINUE WITH COPY:CLSTV.SG (535/3) RECORDS.
0          Referenced by comments of: 659/83 
1                                                                                               MON AUG 05/96   18:37:45   Page  434
0  Num   R       Component Name         Subname     Type G Seq ID 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/081   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST42                                                  
            5.0T2  1074  GOM.TEST_PROGRAMS.SG.081           1 LINE     39    1 PAGE UM   DWB                 JULY 03, 1981  17:18:59
            5.0T6    96                       
0          PROGRAM TO TEST R-TYPE SUBROUTINE ENTRY.
00659/082   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST43                                                  
            5.0T2  1075  GOM.TEST_PROGRAMS.SG.082           1 LINE     38    1 PAGE UM   DWB                 JULY 03, 1981  17:19:00
            5.0T6    97                       
0          PROGRAM TO TEST FUNCTION ENTRIES WITH VARIABLE NUMBER OF ARGUMENTS.
00659/083   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST44                                                  
            5.0T2  1076  GOM.TEST_PROGRAMS.SG.083           1 LINE     65    2 PAGE UM   DWB                 JULY 03, 1981  17:19:01
            5.0T6    98                       
0          THIS IS THE SAME PROGRAM AS TEST 41 (659/80), BUT EACH OF THE VERSIONS
           HAS GLOBAL AREAS TO TEST AND THE LINKAGE=CLSMTS OPTION HAS BEEN ADDED.
           HAS SEVERAL $CONTINUE WITH COPY:CLSTV.SG (535/3) RECORDS.
00659/084   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST45                                                  
            5.0T2  1077  GOM.TEST_PROGRAMS.SG.084           1 LINE     44    1 PAGE UM   DWB                 JULY 03, 1981  17:19:02
            5.0T6    99                       
0          TEST OF SPECIFYING SUBSTRING AS "BEG|LEN" AS WELL AS "BEG...END".
00659/085   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST46                                                  
            5.0T2  1078  GOM.TEST_PROGRAMS.SG.085           1 LINE     35    1 PAGE UM   DWB                 JULY 03, 1981  17:19:03
            5.0T6   100                       
0          PROGRAM TO TEST THE ITERATE STATEMENT.
00659/086   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST47                                                  
            5.0T2  1079  GOM.TEST_PROGRAMS.SG.086           1 LINE     56    1 PAGE UM   DWB                 JULY 03, 1981  17:19:05
            5.0T6   101                       
0          PROGRAM AND RECURSIVE SUBROUTINE TO TEST STACKSIZE=NNNP OPTION ("RXENTER")
           AND LINKAGE=MTS OPTIONS, RESPECTIVELY.  COMPUTES ACKERMAN'S FUNCTION.
00659/087A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST48                                                  
            5.0T2  1080  GOM.TEST_PROGRAMS.SG.087           1 LINE     56    1 PAGE UM   DWB                 JULY 03, 1981  17:19:06
            5.0T6   102                       
0          PROGRAM TO TEST MULTIPLE-DIMENSIONING CODE.  THIS SHOULD NOT BE RUN.
00659/088   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST49                                                  
            5.0T2  1081  GOM.TEST_PROGRAMS.SG.088           1 LINE     58    1 PAGE UM   DWB                 JULY 03, 1981  17:19:06
            5.0T6   103                       
0          PROGRAM TO TEST MULTIPLE SUBSCRIPTION (SHOULD BE RUN).  NUMBERS THAT ARE
           PRINTED ARE PRODUCED BY ACCESSING THE ARRAYS IN TWO MANNERS (ONCE AS A
           WHOLE STORAGE BLOCK; ONCE BY SUBSCRIPT FOR EACH ELEMENT) AND SHOULD BE
           THE SAME IF SUBSCRIPT CALCULATIONS ARE CORRECT.
1                                                                                               MON AUG 05/96   18:37:45   Page  435
0  Num   R       Component Name         Subname     Type G Seq ID 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/089   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST50                                                  
            5.0T2  1082  GOM.TEST_PROGRAMS.SG.089           1 LINE     48    1 PAGE UM   DWB                 JULY 03, 1981  17:19:07
            5.0T6   104                       
0          PROGRAM TO TEST INCLUDE STATEMENT AND THE IF, ELSEIF, ELSE, ENDIF, LOOP,
           AND ENDLOOP ALTERNATE FORMS.
00659/090   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST51                                                  
            5.0T2  1083  GOM.TEST_PROGRAMS.SG.090           1 LINE     60    1 PAGE UM   DWB                 JULY 03, 1981  17:19:08
            5.0T6   105                       
0          PROGRAM TO TEST LONG INTEGER CONSTANTS AND MODIFIERS.
00659/091   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST52                                                  
            5.0T2  1084  GOM.TEST_PROGRAMS.SG.091           1 LINE     56    1 PAGE UM   DWB                 JULY 03, 1981  17:19:08
            5.0T6   106                       
0          PROGRAM TO TEST PUTTING ITEMS IN VECTOR VALUES STATEMENT FOR PROPER LENGTHS
           AT PROPER DISPLACEMENTS.
00659/092   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST53                                                  
            5.0T2  1085  GOM.TEST_PROGRAMS.SG.092           1 LINE     80    1 PAGE UM   DWB                 JULY 03, 1981  17:19:09
            5.0T6   107                       
0          COMMANDS AND SOURCE OF GOM DRIVER PROGRAM, GOM SUBROUTINE AND PLUS 
           SUBROUTINE TO TEST LINKAGES.  BOTH SUBPROGRAMS PRINT "HELLO THERE".
00659/093   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST54                                                  
            5.0T2  1086  GOM.TEST_PROGRAMS.SG.093           1 LINE     53    1 PAGE UM   DWB                 JULY 03, 1981  17:19:10
            5.0T6   108                       
0          PROGRAM TO TEST LONG (UP TO 24 CHARACTER) VARIABLE NAMES TO SEE IF THEY
           COME OUT RIGHT IN THE OBJECT AND MAP PRINTOUT.
00659/094   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST55                                                  
            5.0T2  1087  GOM.TEST_PROGRAMS.SG.094           1 LINE     43    1 PAGE UM   DWB                 JULY 03, 1981  17:19:11
            5.0T6   109                       
0          PROGRAM TO TEST PASSING FUNCTION NAME CONSTANT TO SUBROUTINE WHICH WILL THEN
           USE IT IN A CALL.
00659/095   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST56                                                  
            5.0T2  1088  GOM.TEST_PROGRAMS.SG.095           1 LINE     72    1 PAGE UM   DWB                 JULY 03, 1981  17:19:12
            5.0T6   110                       
0          PROGRAM TO TEST DYNAMIC RECORDS THAT HAVE "USING POINTER"S THAT SPECIFY THE 
           BASE (ZERO SUBSCRIPT) OF AN ARRAY.  (PREVIOUS RESTRICTION WAS SCALARS ONLY.)
00659/096   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST57                                                  
            5.0T2  1089  GOM.TEST_PROGRAMS.SG.096           1 LINE     36    1 PAGE UM   DWB                 JULY 03, 1981  17:19:13
            5.0T6   111                       
0          PROGRAM TO CHECK PASSING OF ARGUMENTS TO INTERNAL FUNCTIONS BEING REENTRANT
           FOR REENTRANT OR RECURSIVE EXTERNAL FUNCTIONS.
1                                                                                               MON AUG 05/96   18:37:45   Page  436
0  Num   R       Component Name         Subname     Type G Seq ID 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/097   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST58                                                  
            5.0T2  1090  GOM.TEST_PROGRAMS.SG.097           1 LINE     80    7 PAGE UM   DWB                 JULY 03, 1981  17:19:14
            5.0T6   112                       
0          PROGRAM TO TEST HAVING MORE THAN ONE PAGE OF CONSTANTS.
00659/098   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST59                                                  
            5.0T2  1091  GOM.TEST_PROGRAMS.SG.098           1 LINE     35    1 PAGE UM   DWB                 JULY 03, 1981  17:19:15
            5.0T6   113                       
0          PROGRAM TO TEST OPT=1.
00659/099   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST60                                                  
            5.0T2  1092  GOM.TEST_PROGRAMS.SG.099           1 LINE     59    1 PAGE UM   DWB                 JULY 03, 1981  17:19:16
            5.0T6   114                       
0          PROGRAM TO TEST .BIT., .SETBIT., AND .RESETBIT. OPERATORS.
00660/001   MCS-11                   SUPERVISOR      S   G          FEP:SUPER                                                       
            5.0T2  1093  MCS-11.SUPERVISOR.S.001            1 LINE     84   54 PAGE UM   EADIE               JULY 03, 1981  17:19:17
            5.0T6   115                       
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 COMMON (660/6).
0          Referenced by comments of: 660/2, 660/3, 660/17 
00660/002   MCS-11                   DEVICES         S   G          FEP:DEVICES                                                     
            5.0T2  1094  MCS-11.DEVICES.S.002               1 LINE     85  137 PAGE UM   EADIE               JULY 03, 1981  17:19:22
            5.0T6   116                       
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 COMMON (660/6), SUPEREXTRN (660/7), TASKSEXTRN (660/8), AND CC.EBCDIC
           (660/9).
0          Referenced by comments of: 660/3, 660/17 
00660/003   MCS-11                   TASKS           S   G          FEP:TASKS                                                       
            5.0T2  1095  MCS-11.TASKS.S.003                 1 LINE    174  133 PAGE UM   EADIE               JULY 03, 1981  17:19:32
            5.0T6   117                       
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 COMMON (660/6), SUPEREXTRN (660/7), DEVICESEXTRN (660/10), AND 
           CC.EBCDIC (660/9).
0          Referenced by comments of: 660/17 
1                                                                                               MON AUG 05/96   18:37:45   Page  437
0  Num   R       Component Name         Subname     Type G Seq ID 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/004   MCS-11                   TABLES          S   G          FEP:TABLES                                                      
            5.0T2  1096  MCS-11.TABLES.S.004                1 LINE     91   50 PAGE UM   EADIE               JULY 03, 1981  17:19:41
            5.0T6   118                       
0          THIS IS THE TABLES CSECT FOR MCS. IT CONTAINS THE TRANSLATE TABLES FOR THE
           DSR'S IN THE SYSTEM. COPIES COMMON (660/6) AND CC.EBCDIC (660/9).
0          Referenced by comments of: 660/17 
00660/005   MCS-11                   STORAGE         S   G          FEP:STORAGE                                                     
            5.0T2  1097  MCS-11.STORAGE.S.005               1 LINE     74    1 PAGE UM   EADIE               JULY 03, 1981  17:19:45
            5.0T6   119                       
0          THIS IS THE STORAGE CSECT FOR MCS. IT CONTAINS STORAGE DEFINITIONS FOR THE SYSTEM.
00660/006   MCS-11                   COMMON          S   G          FEP:COMMON                                                      
            5.0T2  1098  MCS-11.COMMON.S.006                1 LINE     83   23 PAGE UM   EADIE               JULY 03, 1981  17:19:45
            5.0T6   120                       
0          THIS IS THE COPY SECTION FOR MANY COMPONENTS OF MCS.  IT, IN TURN, COPIES
           WHICHCONC (660/17) TO SET UP CONDITIONAL ASSEMBLY PARAMETERS FOR DATA
           CONCENTRATOR B OR C OR THE REMOTE DATA CONCENTRATOR.
0          Referenced by comments of: 660/1, 660/2, 660/3, 660/4, 660/17 
00660/007   MCS-11                   SUPEREXTRN      S   G          FEP:SUPEREXTRN                                                  
            5.0T2  1099  MCS-11.SUPEREXTRN.S.007            1 LINE     84    3 PAGE UM   EADIE               JULY 03, 1981  17:19:47
            5.0T6   121                       
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          FEP:TASKSEXTRN                                                  
            5.0T2  1100  MCS-11.TASKSEXTRN.S.008            1 LINE     82    1 PAGE UM   EADIE               JULY 03, 1981  17:19:48
            5.0T6   122                       
0          THIS IS COPIED BY SOME CSECTS TO GET EXTERNAL SYMBOLS FOR TASKS.
0          Referenced by comments of: 660/2 
00660/009   MCS-11                   CC.EBCDIC       S   G          FEP:CC.EBCDIC                                                   
            5.0T2  1101  MCS-11.CC.EBCDIC.S.009             1 LINE     62    1 PAGE UM   EADIE               JULY 03, 1981  17:19:49
            5.0T6   123                       
0          THIS IS COPIED BY SOME CSECTS TO GET EQU'S FOR EBCDIC CONTROL CHARACTERS.
0          Referenced by comments of: 660/2, 660/3, 660/4 
00660/010   MCS-11                   DEVICESEXTRN    S   G          FEP:DEVICESEXTRN                                                
            5.0T2  1102  MCS-11.DEVICESEXTRN.S.010          1 LINE     82    3 PAGE UM   EADIE               JULY 03, 1981  17:19:50
            5.0T6   124                       
0          THIS IS COPIED BY CSECTS TO GET EXTERNAL SYMBOLS FOR DEVICES.
1                                                                                               MON AUG 05/96   18:37:45   Page  438
0  Num   R       Component Name         Subname     Type G Seq ID 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/011   MCS-11                   CBJOB           C              FEP:CBJOB                                                       
            5.0T2  1103  MCS-11.CBJOB.C.011                 1 LINE     67    1 PAGE UM   EADIE               JULY 03, 1981  17:19:50
            5.0T6   125                       
0          MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR B.  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).
00660/012   MCS-11                   CCJOB           C              FEP:CCJOB                                                       
            5.0T2  1104  MCS-11.CCJOB.C.012                 1 LINE     67    1 PAGE UM   EADIE               JULY 03, 1981  17:19:51
            5.0T6   126                       
0          MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR C.  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).
00660/013   MCS-11                   CDJOB           C              FEP:CDJOB                                                       
            5.0T2  1105  MCS-11.CDJOB.C.013                 1 LINE     67    1 PAGE UM   EADIE               JULY 03, 1981  17:19:52
            5.0T6   127                       
0          MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR D.  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).
00660/014   MCS-11                   LSIJOB          C              FEP:LSIJOB                                                      
            5.0T2  1106  MCS-11.LSIJOB.C.014                1 LINE     71    1 PAGE UM   EADIE               JULY 03, 1981  17:19:52
            5.0T6   128                       
0          MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR REMOTE DATA CONCENTRATOR.  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).
00660/015   MCS-11                   DEBUG/LOAD      S   G          DIAG:HCOR.S                                                     
            5.0T2  1107  MCS-11.DEBUG/LOAD.S.015            1 LINE     81   30 PAGE UM   EADIE               JULY 03, 1981  17:19:53
            5.0T6   129                       
0          "HIGH CORE" SYSTEM USED IN FRONT END PROCESSOR FOR DEBUGGING AND LOADING.
           DESCRIPTION OF THE PROGRAM IS AT THE FRONT OF THE SOURCE.  COPIES HCORDATA
           (660/16) AND "WHICHCONC", WHICH IS THE SAME AS FEP:WHICHCONC (660/17). 
           ASSEMBLE USING *11ASR (515).
0          Referenced by comments of: 660/16, 660/17 
00660/016   MCS-11                   HCORDATA        S   G          DIAG:HCORDATA                                                   
            5.0T2  1108  MCS-11.HCORDATA.S.016              1 LINE     80    1 PAGE UM   EADIE               JULY 03, 1981  17:19:57
            5.0T6   130                       
0          COPY SECTION USED BY (660/15).
1                                                                                               MON AUG 05/96   18:37:45   Page  439
0  Num   R       Component Name         Subname     Type G Seq ID 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/15 
00660/017   MCS-11                   WHICHCONC       S   G          FEP:WHICHCONC                                                   
            5.0T2  1109  MCS-11.WHICHCONC.S.017             1 LINE     19    1 PAGE UM   EADIE               JULY 03, 1981  17:19:58
            5.0T6   131                       
0          THIS IS COPIED BY DEBUG/LOAD (660/15) AND COMMON (660/6), WHICH IS COPIED
           BY THE SUPERVISOR (660/1), DEVICES (660/2), TASKS (660/3), AND TABLES (660/4). 
           IT CONTAINS TWO LINES:
            
              1) A "SPACE 1" FOR ESTHETICS, AND
            
              2) "&CONC SETC '?'", WHERE ? IS "CB", "CC", "CD", OR "LSI".
0          Referenced by comments of: 660/6, 660/15 
00660/018   MCS-11                   MCP SPEC        PF             MCP:DOCUMENT                                                    
            5.0T2  1110  MCS-11.MCP_SPEC.PF.018             1 LINE     70   13 PAGE UM   EADIE               JULY 03, 1981  17:19:59
            5.0T6   132                       
0          WRITEUP DESCRIBING THE MICHIGAN COMMUNICATIONS PROTOCOL (MCP) USED FOR
           COMPUTER-TO-COMPUTER COMMUNICATIONS AT UM.
00660/019   MCS-11                   MCP EXAMPLE     PF             MCP:EXAMPLE                                                     
            5.0T2  1111  MCS-11.MCP_EXAMPLE.WF.019          1 LINE    135   13 PAGE UM   EADIE               JULY 03, 1981  17:20:02
            5.0T6   133                       
0          SAMPLE TERMINAL SESSION USING MCP.
00661/001   RAMP                                                  # (NO LONGER DISTRIBUTED)                                         
            D4T2   1122  RAMP.RAMPINT.S.001                 1 LINE     88   76 PAGE UM                       JUNE 02, 1976  20:33:19
0          RAMP, THE OPERATING SYSTEM FOR THE UM PDP-8 AND PDP-8E DATA CONCENTRATOR
           FRONT ENDS.  IT WAS DISTRIBUTED FOR THE FINAL TIME ON D4.0, TAPE 2, FILES
           1122 THROUGH 1135.
00662/001  *3066RTN                                               # (SEE *3270RTN)                                                  
                                                                                    UM                                              
0          Part of *3270RTN (629/10).
00663/001  *SIDEDATE                                 SX  O          S0564 D4T2 VLO FSNAME=SIDEDATE..SX.001(1)                   1138
            5.0T2  1112  SIDEDATE..SX.001                   1 LINE     80   10 PAGE UM   SHERRY              AUG. 27, 1976  20:51:39
            5.0T6   134                       
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                                                       
            5.0T2  1113  SIDEDATE..OC.002                   1 LINE    240    8 PAGE UM   SHERRY              JULY 03, 1981  17:20:27
            5.0T6   135  *SIDEDATE            
0          OBJECT ALSO IN *LIBRARY. HAS A "$CONTINUE WITH *EXPLIB" LINE.
1                                                                                               MON AUG 05/96   18:37:45   Page  440
0  Num   R       Component Name         Subname     Type G Seq ID 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 AN INCONSEQUENTIAL REP CARD.
00664/001A  PASCAL/GN                COMPILER        SW  S          PASC:99PASOS01(170001,189999)                                   
            5.0T2  1114  PASCAL/GN.COMPILER.SW.001          1 LINE    100  117 PAGE UM   GREENING            JULY 03, 1981  17:20:28
            5.0T6   136                       
0          OS/360 VERSION OF PASCAL COMPILER (FROM GRENOBLE) CONVERTED TO MTS.
           THIS COMPILER SUPPORTS A DIALECT OF PASCAL SIMILAR TO DECUS AND MDSI PASCAL. 
            
           THIS SUBCOMPONENT IS THE PASCAL SOURCE FOR THE CURRENT COMPILER.
0          Referenced by comments of: 664/2, 792/6 
00664/002A  PASCAL/GN                OBJECT          OE  S          PASC:PAS.OS                                                     
            5.0T2  1115  PASCAL/GN.OBJECT.OE.002            1 LINE  32767   52 PAGE UM   GREENING            JULY 03, 1981  17:21:08
            5.0T6   137                       
0          THIS FILE CONTAINS THE OBJECT FROM (664/1). THE COMPILER REQUIRES AN ERROR
           MESSAGE FILE NAMED PASC:PAS.OS.E, DISTRIBUTED AS (664/5).
0          Referenced by comments of: 664/5 
00664/003   PASCAL/GN                XREF            SW  G          PASC:99PASOS01(100001,109999)                               33  
            5.0T2  1116  PASCAL/GN.XREF.SW.003              1 LINE     73    5 PAGE UM   GREENING            JULY 03, 1981  17:21:11
            5.0T6   138                       
0          PASCAL SOURCE FOR A CROSS-REFERENCE PROGRAM.
           SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS.
0          Referenced by comments of: 664/4 
00664/004   PASCAL/GN                XREF            OC  G          PASC:99PASOS01(90001,99999)                                     
            5.0T2  1117  PASCAL/GN.XREF.OC.004              1 LINE     80    5 PAGE UM   GREENING            JULY 03, 1981  17:21:39
            5.0T6   139                       
0          THIS FILE CONTAINS THE OBJECT FOR (664/3).
00664/005A  PASCAL/GN                ERROR MESSAGES  M              PASC:PAS.OS.E                                                   
            5.0T2  1118  PASCAL/GN.ERROR_MESSAGES.M.005     1 LINE     79    3 PAGE UM   GREENING            JULY 03, 1981  17:22:06
            5.0T6   140                       
0          ERROR MESSAGES REFERENCED BY THE COMPILER FROM THE FILE PASC:PAS.OS (664/2).
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
0          Referenced by comments of: 664/2 
00664/006A  PASCAL/GN                USER MANUAL     WF             PASC:99PASOS01(20001,29999)                                     
            5.0T2  1119  PASCAL/GN.USER_MANUAL.WF.006       1 LINE    107    9 PAGE UM   GREENING            JULY 03, 1981  17:22:07
            5.0T6   141                       
0          PASCAL/GN USER'S MANUAL CONTAINING "HOW TO USE" INFORMATION PLUS SOME INTERNAL
           IMPLEMENTATION NOTES.
1                                                                                               MON AUG 05/96   18:37:45   Page  441
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00665/001A  MTS VOLUME 14            MASTER          WT             S0951 MTSV14 'MTS MANUALS' POSN=NEWM8.V14                       
            5.0T2  1120  MTS_VOLUME_14.MASTER.WT.001        1 SEQ     132  197 PAGE UM   MANUAL              JULY 03, 1981  17:24:35
            5.0T6   142                       
0          TEXT/360 MASTER FOR VOLUME 14 "360/370 ASSEMBLER LANGUAGES IN MTS" OF THE UM MTS
           MANUALS, ISSUED AUGUST 1978, UPDATED OCTOBER 1979, APRIL 1980, AND JAN. 1981.
            
           EDITOR:  RICHARD A. SALISBURY
0          Referenced by comments of: 66/93 
00665/002A  MTS VOLUME 14            PRINT           PT             S0951 MTSV14 'MTS MANUALS' POSN=PRINT8.V14                      
            5.0T2  1121  MTS_VOLUME_14.PRINT.PT.002         1 SEQ     132  375 PAGE UM   MANUAL              JULY 03, 1981  17:24:52
            5.0T6   143                       
0          TEXT/360 PRINT FILE.
00665/003   MTS VOLUME 14            INDEX SOURCE    D              S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_14.INDEX_SOURC.D.003(1)   591
            5.0T2  1122  MTS_VOLUME_14.INDEX_SOURC.D.003    1 SEQ     110    4 PAGE UM   MANUAL              APR. 02, 1979  00:32:20
            5.0T6   144                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 14.
00665/004   MTS VOLUME 14            UPDATE 1        PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_14.UPDATE_1.PT.004(1)      734
            5.0T2  1123  MTS_VOLUME_14.UPDATE_1.PT.004      1 LINE    103   95 PAGE UM   MANUAL              APR. 05, 1980  19:41:05
            5.0T6   145                       
0          THIS IS COMPUTING CENTER MEMO 411 -- "UPDATE 1 TO MTS VOLUME 14,"  (OCTOBER
           1979).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00665/005   MTS VOLUME 14            UPDATE 2        PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_14.UPDATE_2.PT.005(1)      735
            5.0T2  1124  MTS_VOLUME_14.UPDATE_2.PT.005      1 LINE    103    9 PAGE UM   MANUAL              APR. 05, 1980  20:27:36
            5.0T6   146                       
0          THIS IS "UPDATE 2 TO MTS VOLUME 14,"  APRIL 1980.  $COPY TO A TN PRINTER
           USING THE @MCC MODIFIER.
00665/006C  MTS VOLUME 14            UPDATE 3        PT             W073:TNLV14.JAN81                                               
            5.0T2  1125  MTS_VOLUME_14.UPDATE_3.PT.006      1 LINE     76   41 PAGE UM   MANUAL              JULY 03, 1981  17:26:04
            5.0T6   147                       
0          THIS IS "UPDATE 3 TO MTS VOLUME 14," JAN. 1981.
00666/001   AMS SUBR                                 SF  G  AMS     S1223 TAXIR8 FSNAME=AMS.8.S                                     
            5.0T2  1126  AMS_SUBR..SF.001                   1 LINE     80    7 PAGE UM   BRILL               NOV. 16, 1978  10:21:07
            5.0T6   148                       
0          DYNAMIC ARRAY MANAGEMENT FOR FORTRAN PROGRAMS.  COMPILE WITH FTN-G (204) OR H (298).
           SEE MTS VOLUMES 3 OR 6 FOR DESCRIPTION.
00666/002   AMS SUBR                                 OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   BRILL                                      
0          Object part of *LIBRARY (524/1)
1                                                                                               MON AUG 05/96   18:37:45   Page  442
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00667/001   OVERDRIVE                                S*  O          S1430 4.3T1 VLO FSNAME=OVERDRIVE..S*.001(1)                  736
            5.0T2  1127  OVERDRIVE..S*.001                  1 LINE     98   49 PAGE UM   SWARTZ              APR. 05, 1980  20:27:38
            5.0T6   149                       
0          A FORTRAN PREPROCESSOR WHICH IS WRITTEN IN SNOSTORM, SEE (678).
           USES THE SPITBOL LOAD FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB.
            
           FILE CONTAINS MTS COMMANDS AT BEGINNING FOR ASSEMBLING.
0          Referenced by comments of: 551/1, 667/2, 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 
00667/002   OVERDRIVE                                SS  O          S1430 4.3T1 VLO FSNAME=OVERDRIVE..SS.002(1)                  737
            5.0T2  1128  OVERDRIVE..SS.002                  1 LINE     95   53 PAGE UM   SWARTZ              APR. 05, 1980  20:27:47
            5.0T6   150                       
0          INTERMEDIATE SOURCE FOR *OVERDRIVE (667/3).  IN SPITBOL, AS PRODUCED FROM 
           (667/1).
00667/003   OVERDRIVE                                OC  O          *OVERDRIVE                                                      
            5.0T2  1129  OVERDRIVE..OC.003                  1 LINE  32767   50 PAGE UM   SWARTZ              JULY 03, 1981  17:27:32
            5.0T6   151  *OVERDRIVE           
0          HAS A "$CONTINUE WITH *SPITLIB" CARD.
0          Referenced by comments of: 667/2 
00668/001A *TAXIR                    FLECS SOURCE    SF  G  TAX     S1223 TAXIR8 FSNAME=TAXIR.9.S                                   
            5.0T2  1130  TAXIR.FLECS_SOURCE.SF.001          1 LINE     80  207 PAGE UM   BRILL               JULY 30, 1981  15:44:16
            5.0T6   152                       
0          SOURCE FOR THE FLECS PORTION OF THE TAXIR INFORMATION RETRIEVAL SYSTEM,
           VERSION 9. IT SHOULD BE PROCESSED BY THE FLECS PRE-PROCESSOR (673) AND THEN
           COMPILED USING FTN-H (298) WITH PAR=XL (TO GET FUNCTIONS LAND, LOR, LXOR,
           LCOMPL, SHFTR, AND SHFTL COMPILED INLINE).
0          Referenced by comments of: 500/16, 500/19, 500/31 
00668/002C *TAXIR                    FLECS OBJECT    O   G          S1223 TAXIR8 FSNAME=TAXIR.9.O                                   
            5.0T2  1131  TAXIR.FLECS_OBJECT.O.002           1 LINE  10982   64 PAGE UM   BRILL               JULY 30, 1981  15:44:51
            5.0T6   153                       
0          OBJECT FOR FLECS PORTION OF TAXIR, VERSION 9.
00668/003A *TAXIR                    FLECS LISTING   L   G          S1223 TAXIR8 FSNAME=TAXIRFLECSLIST.9                            
            5.0T2  1132  TAXIR.FLECS_LISTING.L.003          1 LINE    121  339 PAGE UM   BRILL               JULY 30, 1981  15:45:03
            5.0T6   154                       
0          FLECS INDENTED LISTING OF TAXIR, VERSION 9.  (OUTPUT LISTING PRODUCED
           BY FLECS.)
1                                                                                               MON AUG 05/96   18:37:45   Page  443
0  Num   R       Component Name         Subname     Type G Seq ID 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/004A *TAXIR                    ASM SOURCE      SA  G  TAX     S1223 TAXIR8 FSNAME=TAXIRASM.9.S                                
            5.0T2  1133  TAXIR.ASM_SOURCE.SA.004            1 LINE     80   25 PAGE UM   BRILL               JULY 30, 1981  15:47:44
            5.0T6   155                       
0          SOURCE FOR THE ASSEMBLY LANGUAGE PORTION OF TAXIR, VERSION 9.
00668/005C *TAXIR                    ASM OBJECT      O   G          S1223 TAXIR8 FSNAME=TAXIRASM.9.O                                
            5.0T2  1134  TAXIR.ASM_OBJECT.O.005             1 LINE     80    3 PAGE UM   BRILL               JULY 30, 1981  15:48:02
            5.0T6   156                       
0          OBJECT FOR ASSEMBLER PORTION OF TAXIR, VERSION 9.
00668/006A *TAXIR                    *TAXIR          OE  G          NEW:TAXIR                                                       
            5.0T2  1135  TAXIR.?TAXIR.OE.006                1 SEQ   32767   45 PAGE UM   BRILL               AUG. 06, 1981  04:23:18
            5.0T6   157  *TAXIR               
0          LINKEDITED OBJECT MODULE FOR VERSION 9 OF TAXIR.
00668/007A *TAXIR                    ETC:TAXERRORS   M              S1223 TAXIR8 FSNAME=TAXIRERRORS.9                               
            5.0T2  1136  TAXIR.ETC:TAXERRORS.M.007          1 LINE     72    3 PAGE UM   BRILL               FEB. 27, 1981  12:21:25
            5.0T6   158  ETC:TAXERRORS        
0          FILE OF ERROR AND BROADCAST MESSAGES USED BY TAXIR, VERSION 9.  THIS FILE
           IS READ @I BY TAXIR, SO LINE NUMBERS ARE IMPORTANT.  THE FIRST LINE NUMBER
           IS -3.  THE FILE SHOULD BE PERMITTED READ TO ALL.
00668/008  *TAXIR                    PRIMER          WF             S1223 TAXIR8 FSNAME=TAXIRPRIMER.3.F                             
            5.0T2  1137  TAXIR.PRIMER.WF.008                1 LINE    221   70 PAGE UM   BRILL               JAN. 24, 1979  14:36:53
            5.0T6   159                       
0          THIS IS THE TAXIR PRIMER, MTS VERSION, THIRD EDITION, AUG. 1978.  IT IS
           MISSING ART WORK AND SPECIAL CHARACTERS ADDED BY HAND BEFORE PUBLICATION.
00668/009C *TAXIR                    MEMO 418        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M418                              
            5.0T2  1138  TAXIR.MEMO_418.WF.009              1 LINE    227   31 PAGE UM   BRILL               MAY  23, 1980  12:13:08
            5.0T6   160                       
0          THIS IS COMPUTING CENTER MEMO 418 -- "TAXIR PRIMER, UPDATE 1."  IT
           SHOULD BE APPLIED TO THE TAXIR PRIMER TO MATCH THE DISTRIBUTED PROGRAM 
           (TAXIR VERSION 9).
00668/010A *TAXIR                    INSTALL GUIDE   P              S1223 TAXIR8 FSNAME=TAXIRINSTGUIDE.9                            
            5.0T2  1139  TAXIR.INSTALL_GUIDE.P.010          1 LINE     87    6 PAGE UM   BRILL               MAR. 26, 1981  13:42:08
            5.0T6   161                       
0          INSTALLATION AND MAINTENANCE GUIDE FOR TAXIR, VERSION 9.
00668/011A *TAXIR                    USE STAT        D            # ETC.:TAXIRMONITOR                                               
            D4.2T1  599  TAXIR.ETC:TAXERRORS.M.005          1 LINE     72    3 PAGE UM   BRILL               JAN. 08, 1979  16:12:13
                         ETC.:TAXIRMONITOR@E  
0          THIS IS A LINE FILE USED BY TAXIR TO RECORD USAGE STATISTICS.  ITS
           CONTENTS ARE NOT DISTRIBUTED SINCE AN EMPTY LINE FILE IS ALL THAT
           IS INITIALLY REQUIRED.  TAXIR MAY BE USED TO ANALYZE THE ACCUMULATED 
1                                                                                               MON AUG 05/96   18:37:45   Page  444
0  Num   R       Component Name         Subname     Type G Seq ID 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          USAGE STATISTICS.  THE FILE SHOULD BE PERMITTED WRITE TO ALL.
00669/001   MTS VOLUME 9             MASTER          WT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_9.MASTER.WT.001(1)         743
            5.0T2  1140  MTS_VOLUME_9.MASTER.WT.001         1 SEQ     132  114 PAGE UM   MANUAL              APR. 05, 1980  20:31:27
            5.0T6   162                       
0          TEXT/360 MASTER FOR VOLUME 9 "SNOBOL 4 IN MTS" OF THE UM MTS MANUALS,
           SEPTEMBER 1975, UPDATED JUNE 1979.
            
           EDITOR:  RICHARD A. SALISBURY
00669/002   MTS VOLUME 9             PRINT           PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_9.PRINT.PT.002(1)          744
            5.0T2  1141  MTS_VOLUME_9.PRINT.PT.002          1 SEQ     132  175 PAGE UM   MANUAL              APR. 05, 1980  20:31:33
            5.0T6   163                       
0          TEXT/360 PRINT FILE.
00669/003   MTS VOLUME 9             INDEX SOURCE    D              S1430 4.3T1 VLO FSNAME=MTS_VOLUME_9.INDEX_SOURCE.D.003(1)    745
            5.0T2  1142  MTS_VOLUME_9.INDEX_SOURCE.D.003    1 SEQ      82    5 PAGE UM   MANUAL              APR. 05, 1980  20:31:36
            5.0T6   164                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 9
00669/004   MTS VOLUME 9             UPDATE 1        PT             S1430 4.3T1 VLO FSNAME=MTS_VOLUME_9.UPDATE_1.PT.004(1)       746
            5.0T2  1143  MTS_VOLUME_9.UPDATE_1.PT.004       1 LINE    108   78 PAGE UM   MANUAL              APR. 05, 1980  20:31:41
            5.0T6   165                       
0          THIS IS COMPUTING CENTER MEMO 401 -- UPDATE 1 TO MTS VOLUME 9,"
           JUNE 1979.  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00670/001   PL1LINK                                  SA           # (OBSOLETE)                                                      
            D4T2   1168  PL1LINK..SA.001                    1 LINE     80    6 PAGE UM                       JULY 28, 1977  23:01:26
0          AN EXPERIMENTAL PROGRAM TO ALLOW DYNAMIC LINKING TO PL1 SUBROUTINES.
00671/001A  FILE RESTORE - FAST      FASTRESTORE     SA  G          RSTR:FASTRESTORE(1000)                                          
            5.0T2  1144  FILE_RESTORE_-_FAST.FASTR.SA.001   1 LINE     72    8 PAGE UM   HELFFRICH           JULY 03, 1981  17:29:27
            5.0T6   166  RSTR:FASTRESTORE     
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) AND (671/3) WORK WITH FILESAVE TAPES WHEN THE ONLINE FILESAVE (067/19) IS
           BEING USED AND THE FILESAVE DIRECTORY "FILEDIR.MAS" IS AVAILABLE TO AID IN
           THE RESTORATION.  (671/1) CALLS THE FASTRSTR SUBROUTINE (671/3); IT TAKES A 
           LIST OF FILES AND AN INDICATION OF WHAT IS TO BE DONE WITH EACH AS PRODUCED
           BY AMALGAMATE (682/38), MOUNTS AND SCANS TAPES, AND CALLS FASTRSTR TO DO THE
           RESTORING. ASSEMBLE WITH THE FILE SAVE MACROS (067/31).
0          Referenced by comments of: 671/1, 671/3, 682/37 
1                                                                                               MON AUG 05/96   18:37:45   Page  445
0  Num   R       Component Name         Subname     Type G Seq ID 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/002A  FILE RESTORE - FAST      FASTRESTORE     OC  G          RSTR:FASTRESTORE(1,999)                                         
            5.0T2  1145  FILE_RESTORE_-_FAST.FASTR.OC.002   1 LINE     80    5 PAGE UM   HELFFRICH           JULY 03, 1981  17:29:30
            5.0T6   167                       
0          HAS A $CONTINUE WITH RSTR:FASTRSTR+COPY:SYSDEFS RECORD.
00671/003A  FILE RESTORE - FAST      FASTRSTR SUBR   SA  G  FRST    RSTR:FASTRSTR(1000)                                             
            5.0T2  1146  FILE_RESTORE_-_FAST.FASTR.SA.003   1 LINE     80   23 PAGE UM   HELFFRICH           JULY 03, 1981  17:29:32
            5.0T6   168  RSTR:FASTRSTR        
0          SUBROUTINE CALLED BY (671/1) TO DO FAST RESTORING.  ASSEMBLE USING COPY:FILE.MACROS
           (482/45) AND THE FILE SAVE MACROS (067/31). COPIES *CNFGINFODSECT (654).
            
           ********************************************************************************
           D5.0 CHANGES:
            
           UPDATED FOR DISK MANAGER (769) SUPPORT.
           ********************************************************************************
0          Referenced by comments of: 671/1 
00671/004A  FILE RESTORE - FAST      FASTRSTR SUBR   OC  G          RSTR:FASTRSTR(1,999)                                            
            5.0T2  1147  FILE_RESTORE_-_FAST.FASTR.OC.004   1 LINE     80    6 PAGE UM   HELFFRICH           JULY 03, 1981  17:29:39
            5.0T6   169                       
00672/001  *WATBOL                   INSTALLATION    WF             S0564 D4T2 VLO FSNAME=WATBOL.INSTALLATION.WF.001(1)         1178
            5.0T2  1148  WATBOL.INSTALLATION.WF.001         1 LINE     78    1 PAGE UM   SWARTZ              NOV. 04, 1976  22:59:17
            5.0T6   170                       
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.
0          Referenced by comments of: 672/30 
00672/002  *WATBOL                   START.S         SA  G          S0564 D4T2 VLO FSNAME=WATBOL.START.S.SA.002(1)              1179
            5.0T2  1149  WATBOL.START.S.SA.002              1 LINE     73    1 PAGE UM   SWARTZ              JULY 15, 1976  03:12:34
            5.0T6   171                       
0          AN INSTALLATION-DEPENDENT PREFIX OF ASSEMBLER GBL'S TO BE PLACED AT THE HEAD
           OF MOST ALL OF THE ASSEMBLER SOURCE GENERATED BY THE FOLLOWING UPDATE DECKS.
00672/003  *WATBOL                   END.S           SA  G          S0564 D4T2 VLO FSNAME=WATBOL.END.S.SA.003(1)                1180
            5.0T2  1150  WATBOL.END.S.SA.003                1 LINE     12    1 PAGE UM   SWARTZ              JULY 15, 1976  03:14:13
            5.0T6   172                       
0          AN ASSEMBLER END CARD TO SUFFIX ASSEMBLIES OF SOURCE GENERATED BY THE FOLLOWING
           UPDATE DECKS.
1                                                                                               MON AUG 05/96   18:37:45   Page  446
0  Num   R       Component Name         Subname     Type G Seq ID 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/004  *WATBOL                   ACCT.U          UU  G          S0564 D4T2 VLO FSNAME=WATBOL.ACCT.U.UU.004(1)               1181
            5.0T2  1151  WATBOL.ACCT.U.UU.004               1 LINE     83    8 PAGE UM   SWARTZ              FEB. 28, 1976  13:35:59
            5.0T6   173                       
0          Referenced by comments of: 672/24 
00672/005  *WATBOL                   DATFX.U         UU  G          S0564 D4T2 VLO FSNAME=WATBOL.DATFX.U.UU.005(1)              1182
            5.0T2  1152  WATBOL.DATFX.U.UU.005              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:08
            5.0T6   174                       
00672/006  *WATBOL                   DEBUG.U         UU  G          S0564 D4T2 VLO FSNAME=WATBOL.DEBUG.U.UU.006(1)              1183
            5.0T2  1153  WATBOL.DEBUG.U.UU.006              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:20
            5.0T6   175                       
00672/007  *WATBOL                   EOSTA.U         UU  G          S0564 D4T2 VLO FSNAME=WATBOL.EOSTA.U.UU.007(1)              1184
            5.0T2  1154  WATBOL.EOSTA.U.UU.007              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:36
            5.0T6   176                       
00672/008  *WATBOL                   FD.U            UU  G          S0564 D4T2 VLO FSNAME=WATBOL.FD.U.UU.008(1)                 1185
            5.0T2  1155  WATBOL.FD.U.UU.008                 1 LINE     78    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:48
            5.0T6   177                       
00672/009  *WATBOL                   JOBJOB.U        UU  G          S0564 D4T2 VLO FSNAME=WATBOL.JOBJOB.U.UU.009(1)             1186
            5.0T2  1156  WATBOL.JOBJOB.U.UU.009             1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:37:06
            5.0T6   178                       
00672/010  *WATBOL                   LOADR.U         UU  G          S0564 D4T2 VLO FSNAME=WATBOL.LOADR.U.UU.010(1)              1187
            5.0T2  1157  WATBOL.LOADR.U.UU.010              1 LINE     72    6 PAGE UM   SWARTZ              FEB. 28, 1976  13:37:23
            5.0T6   179                       
00672/011  *WATBOL                   MAIN.U          UU  G          S0564 D4T2 VLO FSNAME=WATBOL.MAIN.U.UU.011(1)               1188
            5.0T2  1158  WATBOL.MAIN.U.UU.011               1 LINE     81   17 PAGE UM   SWARTZ              FEB. 28, 1976  13:38:08
            5.0T6   180                       
00672/012  *WATBOL                   OPEN.U          UU  G          S0564 D4T2 VLO FSNAME=WATBOL.OPEN.U.UU.012(1)               1189
            5.0T2  1159  WATBOL.OPEN.U.UU.012               1 LINE     72    1 PAGE UM   SWARTZ              NOV. 04, 1976  22:58:48
            5.0T6   181                       
00672/013  *WATBOL                   RINIT.U         UU  G          S0564 D4T2 VLO FSNAME=WATBOL.RINIT.U.UU.013(1)              1190
            5.0T2  1160  WATBOL.RINIT.U.UU.013              1 LINE     72    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:56:43
            5.0T6   182                       
00672/014  *WATBOL                   SD.U            UU  G          S0564 D4T2 VLO FSNAME=WATBOL.SD.U.UU.014(1)                 1191
            5.0T2  1161  WATBOL.SD.U.UU.014                 1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:42:42
            5.0T6   183                       
00672/015  *WATBOL                   SERVICE.U       UU  G          S0564 D4T2 VLO FSNAME=WATBOL.SERVICE.U.UU.015(1)            1192
            5.0T2  1162  WATBOL.SERVICE.U.UU.015            1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:54:31
            5.0T6   184                       
1                                                                                               MON AUG 05/96   18:37:45   Page  447
0  Num   R       Component Name         Subname     Type G Seq ID 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/016  *WATBOL                   SYSINT.U        UU  G          S0564 D4T2 VLO FSNAME=WATBOL.SYSINT.U.UU.016(1)             1193
            5.0T2  1163  WATBOL.SYSINT.U.UU.016             1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:54:51
            5.0T6   185                       
00672/017  *WATBOL                   DIAC.U          UU  G          S0564 D4T2 VLO FSNAME=WATBOL.DIAC.U.UU.017(1)               1194
            5.0T2  1164  WATBOL.DIAC.U.UU.017               1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:55:19
            5.0T6   186                       
00672/018  *WATBOL                   FORMT.U         UU  G          S0564 D4T2 VLO FSNAME=WATBOL.FORMT.U.UU.018(1)              1195
            5.0T2  1165  WATBOL.FORMT.U.UU.018              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:55:51
            5.0T6   187                       
00672/019  *WATBOL                   IOSUP.U         UU  G          S0564 D4T2 VLO FSNAME=WATBOL.IOSUP.U.UU.019(1)              1196
            5.0T2  1166  WATBOL.IOSUP.U.UU.019              1 LINE     73   18 PAGE UM   SWARTZ              JULY 15, 1976  03:33:59
            5.0T6   188                       
00672/020  *WATBOL                   RUN.U           UU  G          S0564 D4T2 VLO FSNAME=WATBOL.RUN.U.UU.020(1)                1197
            5.0T2  1167  WATBOL.RUN.U.UU.020                1 LINE     75    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:00
            5.0T6   189                       
00672/021  *WATBOL                   SORTR.U         UU  G          S0564 D4T2 VLO FSNAME=WATBOL.SORTR.U.UU.021(1)              1198
            5.0T2  1168  WATBOL.SORTR.U.UU.021              1 LINE     72    7 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:18
            5.0T6   190                       
00672/022  *WATBOL                   TRAC.U          UU  G          S0564 D4T2 VLO FSNAME=WATBOL.TRAC.U.UU.022(1)               1199
            5.0T2  1169  WATBOL.TRAC.U.UU.022               1 LINE     72    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:33
            5.0T6   191                       
00672/023  *WATBOL                   TIME.S          SA  G          S0564 D4T2 VLO FSNAME=WATBOL.TIME.S.SA.023(1)               1200
            5.0T2  1170  WATBOL.TIME.S.SA.023               1 LINE     71    3 PAGE UM   SWARTZ              JULY 15, 1976  03:12:51
            5.0T6   192                       
0          Referenced by comments of: 672/24 
00672/024  *WATBOL                   MACROS          SM  G          S0564 D4T2 VLO FSNAME=WATBOL.MACROS.SM.024(1)               1201
            5.0T2  1171  WATBOL.MACROS.SM.024               1 LINE     80   16 PAGE UM   SWARTZ              JULY 15, 1976  03:16:17
            5.0T6   193                       
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.
           *WATBOL REQUIRES THE FILE "ETC:WATPGNTLOG" EXIST FOR LOGGING.
1                                                                                               MON AUG 05/96   18:37:45   Page  448
0  Num   R       Component Name         Subname     Type G Seq ID 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/027  *WATBOL                   LIBRARY GEN     SA  G          S0564 D4T2 VLO FSNAME=WATBOL.LIBRARY_GEN.SA.027(1)          1202
            5.0T2  1172  WATBOL.LIBRARY_GEN.SA.027          1 LINE     80   30 PAGE UM   SWARTZ              JULY 15, 1976  03:15:10
            5.0T6   194                       
0          SOURCE FOR WATBOL LIBRARY GENERATION PROGRAM.  ASSEMBLE USING *SYSMAC.
00672/028  *WATBOL                   LIBRARY GEN     OC  G          *WATBOLLIBGEN                                                   
            5.0T2  1173  WATBOL.LIBRARY_GEN.OC.028          1 SEQ      80    4 PAGE UM   SWARTZ              JULY 03, 1981  17:30:10
            5.0T6   195  *WATBOLLIBGEN        
00672/029  *WATBOL                   LIBRARY         D   G          *WATBOLLIB                                                      
            5.0T2  1174  WATBOL.LIBRARY.D.029               1 LINE     69    4 PAGE UM   SWARTZ              JULY 03, 1981  17:30:11
            5.0T6   196  *WATBOLLIB           
0          DEFAULT UM WATBOL LIBRARY.
00672/030  *WATBOL                   TEST PROGRAMS   S   G          S0564 D4T2 VLO FSNAME=WATBOL.TEST_PROGRAMS.S.031(1)         1206
            5.0T2  1175  WATBOL.TEST_PROGRAMS.S.030         1 LINE     82   49 PAGE UM   SWARTZ              NOV. 10, 1976  20:22:05
            5.0T6   197                       
0          TEST PROGRAM SERIES FOR WATBOL V2L0 COMPILER.  SEE (672/1) FOR INSTRUCTIONS.
00673/001   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=C.FLX                                     
            5.0T2  1176  FLECS.OREGON_SOURCE.SF.001         1 LINE     80   38 PAGE UM   UNSP                DEC. 16, 1974  20:57.44
            5.0T6   198                       
0          UNIVERSITY OF OREGON'S FORTRAN PREPROCESSOR.
            
           A HARDCOPY WRITEUP AND OTHER DOCUMENTATION WAS 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/37).
0          Referenced by comments of: 668/1 
00673/002   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=C.F4                                      
            5.0T2  1177  FLECS.OREGON_SOURCE.SF.002         1 LINE     80   42 PAGE UM   UNSP                DEC. 16, 1974  20:59.11
            5.0T6   199                       
0          FILE 2
00673/003   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=SC.FLX                                    
            5.0T2  1178  FLECS.OREGON_SOURCE.SF.003         1 LINE     80   16 PAGE UM   UNSP                DEC. 16, 1974  20:59.41
            5.0T6   200                       
0          FILE 3
00673/004   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=SC.F4                                     
            5.0T2  1179  FLECS.OREGON_SOURCE.SF.004         1 LINE     80    8 PAGE UM   UNSP                DEC. 16, 1974  21:00.25
            5.0T6   201                       
0          FILE 4
1                                                                                               MON AUG 05/96   18:37:45   Page  449
0  Num   R       Component Name         Subname     Type G Seq ID 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/005   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=M.FLX                                     
            5.0T2  1180  FLECS.OREGON_SOURCE.SF.005         1 LINE     80   22 PAGE UM   UNSP                DEC. 16, 1974  21:01.13
            5.0T6   202                       
0          FILE 5
00673/006   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=M.F4                                      
            5.0T2  1181  FLECS.OREGON_SOURCE.SF.006         1 LINE     80   24 PAGE UM   UNSP                DEC. 16, 1974  21:02.06
            5.0T6   203                       
0          FILE 6
00673/007   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=A.FLX                                     
            5.0T2  1182  FLECS.OREGON_SOURCE.SF.007         1 LINE     80   14 PAGE UM   UNSP                DEC. 16, 1974  21:03.11
            5.0T6   204                       
0          FILE 7
00673/008   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=A.F4                                      
            5.0T2  1183  FLECS.OREGON_SOURCE.SF.008         1 LINE     80   14 PAGE UM   UNSP                DEC. 16, 1974  21:03.58
            5.0T6   205                       
0          FILE 8
00673/009   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=L.FLX                                     
            5.0T2  1184  FLECS.OREGON_SOURCE.SF.009         1 LINE     80   13 PAGE UM   UNSP                DEC. 16, 1974  21:04.46
            5.0T6   206                       
0          FILE 9
00673/010   FLECS                    OREGON SOURCE   SF  O          S1153 UNSP VLO FSNAME=L.F4                                      
            5.0T2  1185  FLECS.OREGON_SOURCE.SF.010         1 LINE     80   11 PAGE UM   UNSP                DEC. 16, 1974  21:05.45
            5.0T6   207                       
0          FILE 10
00673/011   FLECS                    OREGON SOURCE   SA  O          S1153 UNSP VLO FSNAME=ASMFLX.S                                  
            5.0T2  1186  FLECS.OREGON_SOURCE.SA.011         1 LINE     80   13 PAGE UM   UNSP                DEC. 16, 1974  21:06.34
            5.0T6   208                       
0          FILE 11
00673/012   FLECS                    STANDALONE XLT  S   O  FLE     S1153 UNSP VLO FSNAME=F.FLECS                                   
            5.0T2  1187  FLECS.STANDALONE_XLT.S.012         1 LINE     80   49 PAGE UM   UNSP                AUG. 08, 1975  14:16:20
            5.0T6   209                       
0          FILE 12 -- FLECS SOURCE FOR 3 PART MTS STANDALONE TRANSLATOR.
00673/013   FLECS                    STANDALONE XLT  S   O          S1153 UNSP VLO FSNAME=S.FLECS                                   
            5.0T2  1188  FLECS.STANDALONE_XLT.S.013         1 LINE     80   46 PAGE UM   UNSP                AUG. 08, 1975  14:17:31
            5.0T6   210                       
0          FILE 13 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR MTS STANDALONE TRANSLATOR.
1                                                                                               MON AUG 05/96   18:37:45   Page  450
0  Num   R       Component Name         Subname     Type G Seq ID 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/014   FLECS                    STANDALONE XLT  OC  O          S1153 UNSP VLO FSNAME=O.FLECS                                   
            5.0T2  1189  FLECS.STANDALONE_XLT.OC.014        1 LINE    240    9 PAGE UM   UNSP                AUG. 08, 1975  14:18:07
            5.0T6   211                       
0          FILE 14 -- OBJECT FOR MTS STANDALONE TRANSLATOR.
00673/015   FLECS                    STANDALONE XLT  S   O  FLE1    S1153 UNSP VLO FSNAME=F.FLECS.SC                                
            5.0T2  1190  FLECS.STANDALONE_XLT.S.015         1 LINE     80    8 PAGE UM   UNSP                AUG. 08, 1975  14:19:03
            5.0T6   212                       
0          FILE 15 -- FLECS SOURCE FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
           Contains many $CONTINUE WITH SN99:FLX RETURN records, which refer to 
           (673/23).
00673/016   FLECS                    STANDALONE XLT  S   O          S1153 UNSP VLO FSNAME=S.FLECS.SC                                
            5.0T2  1191  FLECS.STANDALONE_XLT.S.016         1 LINE     80   11 PAGE UM   UNSP                AUG. 08, 1975  14:20:41
            5.0T6   213                       
0          FILE 16 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
00673/017   FLECS                    STANDALONE XLT  OC  O          S1153 UNSP VLO FSNAME=O.FLECS.SC                                
            5.0T2  1192  FLECS.STANDALONE_XLT.OC.017        1 LINE    244    5 PAGE UM   UNSP                AUG. 08, 1975  14:22:01
            5.0T6   214                       
0          FILE 17 -- OBJECT FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
00673/018   FLECS                    STANDALONE XLT  OE  O          S1153 UNSP VLO FSNAME=FLECS                                     
            5.0T2  1193  FLECS.STANDALONE_XLT.OE.018        1 SEQ   24628    9 PAGE UM   UNSP                AUG. 08, 1975  14:22:37
            5.0T6   215                       
0          FILE 18 -- LINKEDITED OBJECT FOR MTS STANDALONE TRANSLATOR.
00673/019   FLECS                    STANDALONE XLT  SF  O  FLE2    S1153 UNSP VLO FSNAME=COM.FLECS                                 
            5.0T2  1194  FLECS.STANDALONE_XLT.SF.019        1 LINE     80    2 PAGE UM   UNSP                AUG. 08, 1975  14:23:26
            5.0T6   216                       
0          FILE 19 -- COMMON SECTIONS USED BY STANDALONE TRANSLATOR.
00673/020   FLECS                    FLX WRITEUP     WF             S1153 UNSP VLO FSNAME=F.FFIWR                                   
            5.0T2  1195  FLECS.FLX_WRITEUP.WF.020           1 LINE    244   16 PAGE UM   UNSP                OCT. 08, 1978  22:53:11
            5.0T6   217                       
0          FILE 20 -- FORMAT SOURCE FOR THE FLX MTS INTERFACE WRITEUP.
00673/021   FLECS                    NOTES           P              S1153 UNSP VLO FSNAME=FLECS.NOTES                               
            5.0T2  1196  FLECS.NOTES.P.021                  1 LINE     63    1 PAGE UM   UNSP                MAY  22, 1977  17:34:48
            5.0T6   218                       
0          NOTES DESCRIBING THE CHANGES BETWEEN THIS VERSION AND THE PREVIOUS REDISTRIBUTION.
1                                                                                               MON AUG 05/96   18:37:45   Page  451
0  Num   R       Component Name         Subname     Type G Seq ID 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/022A  FLECS                    USER'S MANUAL   WF             S1153 UNSP VLO FSNAME=FLECS.F                                   
            5.0T2  1197  FLECS.USER'S_MANUAL.WF.022         1 LINE    183   13 PAGE UM   UNSP                SEP. 15, 1980  16:42:54
            5.0T6   219                       
00673/023   FLECS                    FLX             SF  O  FLX     S1153 UNSP VLO FSNAME=COM.FLX                                   
            5.0T2  1198  FLECS.FLX.SF.023                   1 LINE     80    3 PAGE UM   UNSP                MAY  22, 1977  17:37:47
            5.0T6   220                       
0          FILE 23 -- FORTRAN COMMON SECTIONS USED BY FLECS/FORTRAN INTERFACE.
0          Referenced by comments of: 673/15, 673/26, 673/32 
00673/024   FLECS                    FLX             S   O  FLX1    S1153 UNSP VLO FSNAME=F.FLX                                     
            5.0T2  1199  FLECS.FLX.S.024                    1 LINE     80   50 PAGE UM   UNSP                MAY  22, 1977  17:40:01
            5.0T6   221                       
0          FILE 24 -- FLECS SOURCE FOR FLXT TRANSLATOR.
0          Referenced by comments of: 673/27 
00673/025   FLECS                    FLX             S   O  FLX2    S1153 UNSP VLO FSNAME=F.FLX.SC                                  
            5.0T2  1200  FLECS.FLX.S.025                    1 LINE     80    8 PAGE UM   UNSP                MAY  22, 1977  17:41:16
            5.0T6   222                       
0          FILE 25 -- FLECS SOURCE FOR FFI/FLXT INTERFACE.
0          Referenced by comments of: 673/28 
00673/026   FLECS                    FLX             SA  O  FLX3    S1153 UNSP VLO FSNAME=S.FLX.AU                                  
            5.0T2  1201  FLECS.FLX.SA.026                   1 LINE     80   26 PAGE UM   UNSP                MAY  22, 1977  17:46:03
            5.0T6   223                       
0          FILE 26 -- ASSEMBLY SOURCE FOR FLXT UTILITY ROUTINES. COPIES FLX FORTRAN
           COMMON SECTIONS (673/23) AND FLX MACROS (673/31).
0          Referenced by comments of: 673/29 
00673/027   FLECS                    FLX             OC  O          S1153 UNSP VLO FSNAME=O.FLX                                     
            5.0T2  1202  FLECS.FLX.OC.027                   1 LINE   9072    8 PAGE UM   UNSP                MAY  22, 1977  17:44:12
            5.0T6   224                       
0          FILE 27 -- OBJECT FOR F.FLX (673/24).
00673/028   FLECS                    FLX             OC  O          S1153 UNSP VLO FSNAME=O.FLX.SC                                  
            5.0T2  1203  FLECS.FLX.OC.028                   1 LINE   1004    4 PAGE UM   UNSP                MAY  22, 1977  17:45:02
            5.0T6   225                       
0          FILE 28 -- OBJECT FOR F.SC (673/25).
00673/029   FLECS                    FLX             OC  O          S1153 UNSP VLO FSNAME=O.FLX.AU                                  
            5.0T2  1204  FLECS.FLX.OC.029                   1 LINE     80    3 PAGE UM   UNSP                MAY  22, 1977  17:43:04
            5.0T6   226                       
0          FILE 29 -- OBJECT FOR S.AU (673/26).
1                                                                                               MON AUG 05/96   18:37:45   Page  452
0  Num   R       Component Name         Subname     Type G Seq ID 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/030   FLECS                    FLX             OE  O          UNSP:FLXT                                                       
            5.0T2  1205  FLECS.FLX.OE.030                   1 LINE  11124   11 PAGE UM   UNSP                JULY 03, 1981  17:31:38
            5.0T6   227  UNSP:FLXT            
0          FILE 30 -- LINKEDITED OBJECT FOR FLXT, THE TRANSLATOR THAT RUNS UNDER FFI.
00673/031   FLECS                    FLX             SA  O  FLX2    S1153 UNSP VLO FSNAME=FLXDEF                                    
            5.0T2  1206  FLECS.FLX.SA.031                   1 LINE     80    8 PAGE UM   UNSP                MAY  22, 1977  17:41:57
            5.0T6   228                       
0          FILE 31 -- MACROS AND COPY SECTIONS.
0          Referenced by comments of: 673/26, 673/32 
00673/032   FLECS                    FLX             SA  O  FFI     S1153 UNSP VLO FSNAME=S.FFI                                     
            5.0T2  1207  FLECS.FLX.SA.032                   1 LINE     80   77 PAGE UM   UNSP                OCT. 08, 1978  22:50:10
            5.0T6   229                       
0          FILE 32 -- ASSEMBLY SOURCE FOR FFI.  COPIES FLX FORTRAN COMMON SECTIONS
           (673/23) AND FLX MACROS (673/31).
00673/033   FLECS                    FLX             OC  O          S1153 UNSP VLO FSNAME=O.FFI                                     
            5.0T2  1208  FLECS.FLX.OC.033                   1 LINE   1956   12 PAGE UM   UNSP                OCT. 08, 1978  22:51:01
            5.0T6   230                       
00673/034   FLECS                    FLX             OE  O          UNSP:FLX                                                        
            5.0T2  1209  FLECS.FLX.OE.034                   1 LINE   1956    6 PAGE UM   UNSP                JULY 03, 1981  17:31:45
            5.0T6   231  UNSP:FLX             
0          FILE 34 -- LINKEDITED OBJECT FOR FFI.  LINKS TO FLXT AND *FORTRANG OR *FORTRANH.
00673/035   FLECS                    EXAMPLE 1       S   S  FEX1    S1153 UNSP VLO FSNAME=DRKEXAMPLE                                
            5.0T2  1210  FLECS.EXAMPLE_1.S.035              1 LINE     80   25 PAGE UM   UNSP                DEC. 09, 1976  22:36:39
            5.0T6   232                       
0          FILE 35 -- EXAMPLE FLECS PROGRAMS.
00673/036   FLECS                    EXAMPLE 2       S   S  FEX2    S1153 UNSP VLO FSNAME=HBGEXAMPLE                                
            5.0T2  1211  FLECS.EXAMPLE_2.S.036              1 LINE     80   14 PAGE UM   UNSP                JAN. 21, 1976  15:16:56
            5.0T6   233                       
0          FILE 36 -- EXAMPLE FLECS PROGRAM.
00673/037   FLECS                    INSTALLATION    WF             S1153 UNSP VLO FSNAME=FLECSINSTALL.F                            
            5.0T2  1212  FLECS.INSTALLATION.WF.037          1 LINE    145   12 PAGE UM   UNSP                MAY  22, 1977  17:33:57
            5.0T6   234                       
0          FILE 37 -- FORMAT SOURCE FOR THE MTS FLECS INSTALLATION GUIDE.
0          Referenced by comments of: 673/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  453
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00674/001   JVCT SUBR                                SA  G          S0811 REBATE 'REBATES' FSNAME=UBCDATE                           
            5.0T2  1213  JVCT_SUBR..SA.001                  1 LINE     72   10 PAGE UBC  HOGG      LIFT      NOV. 28, 1977  20:58:00
            5.0T6   235                       
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/4, 707/3, 753/4, 3024/31 
00674/002   JVCT SUBR                                OC  G          MTS:UBCDATEX                                                    
            5.0T2  1214  JVCT_SUBR..OC.002                  1 LINE     80    3 PAGE UBC  HOGG      LIFT      JULY 03, 1981  17:31:52
            5.0T6   236  MTS.:UBCDATEX        
0          Referenced by comments of: 655/5 
00675/001   MTS VOLUME 6             MASTER          WT             S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_6.MASTER.WT.001(1)        612
            5.0T2  1215  MTS_VOLUME_6.MASTER.WT.001         1 SEQ     132  360 PAGE UM   MANUAL              APR. 02, 1979  00:42:17
            5.0T6   237                       
0          TEXT/360 MASTER FOR VOLUME 6 "FORTRAN IN MTS" OF THE UM MTS MANUALS, DECEMBER
           1978.
            
           EDITOR:  RICHARD A. SALISBURY
00675/002   MTS VOLUME 6             PRINT           PT             S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_6.PRINT.PT.002(1)         613
            5.0T2  1216  MTS_VOLUME_6.PRINT.PT.002          1 SEQ     132  557 PAGE UM   MANUAL              APR. 02, 1979  00:42:31
            5.0T6   238                       
0          TEXT/360 PRINT FILE.
00675/003   MTS VOLUME 6             INDEX SOURCE    D              S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_6.INDEX_SOURCE.D.003(1)   614
            5.0T2  1217  MTS_VOLUME_6.INDEX_SOURCE.D.003    1 SEQ      82    6 PAGE UM   MANUAL              APR. 02, 1979  00:42:38
            5.0T6   239                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 6.
00676/001   MTS VOLUME 8             MASTER          WT             S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_8.MASTER.WT.001(1)        615
            5.0T2  1218  MTS_VOLUME_8.MASTER.WT.001         1 SEQ     132  100 PAGE UM   MANUAL              APR. 02, 1979  00:43:01
            5.0T6   240                       
0          TEXT/360 MASTER FOR VOLUME 8 "LISP AND SLIP IN MTS" OF THE UM MTS MANUALS,
           JUNE 1976, UPDATED FEBRUARY 1979.
            
           EDITOR:  RICHARD A. SALISBURY
00676/002   MTS VOLUME 8             PRINT           PT             S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_8.PRINT.PT.002(1)         616
            5.0T2  1219  MTS_VOLUME_8.PRINT.PT.002          1 SEQ     132  170 PAGE UM   MANUAL              APR. 02, 1979  00:43:06
            5.0T6   241                       
0          TEXT/360 PRINT FILE.
1                                                                                               MON AUG 05/96   18:37:45   Page  454
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00676/003   MTS VOLUME 8             INDEX SOURCE    D              S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_8.INDEX_SOURCE.D.003(1)   617
            5.0T2  1220  MTS_VOLUME_8.INDEX_SOURCE.D.003    1 SEQ      68    5 PAGE UM   MANUAL              APR. 02, 1979  00:43:08
            5.0T6   242                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 8.
00676/004   MTS VOLUME 8             UPDATE 1        PT             S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_8.UPDATE_1.PT.004(1)      618
            5.0T2  1221  MTS_VOLUME_8.UPDATE_1.PT.004       1 LINE    106   56 PAGE UM   MANUAL              APR. 02, 1979  00:43:09
            5.0T6   243                       
0          THIS IS COMPUTING CENTER MEMO 399 -- "UPDATE 1 TO MTS VOLUME 8," 
           FEBRUARY 1979.  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00677/001A *ENCRYPT                                  SA  O  ENCR    *ENCRYPT(1000)                                                  
            5.0T2  1222  ENCRYPT..SA.001                    1 LINE     80   19 PAGE UM   GREENING            AUG. 06, 1981  04:25:02
            5.0T6   244  *ENCRYPT             
0          PROGRAM TO SCRAMBLE AND UNSCRAMBLE FILES BASED ON A SECRET KEY. ASSEMBLE WITH
           PAR=BATCH USING COPY:CC.MACROS (1054/3) AND COPY:MTS.MACROS (344/3). COPIES
           *GDINFODSECT (594). THIS IS ALSO THE SOURCE FOR THE CRYPT AND CRYPTCC
           SUBROUTINES IN THE RESIDENT SYSTEM.
0          Referenced by comments of: 491/1 
00677/002A *ENCRYPT                                  OE  O          *ENCRYPT(1,999)                                                 
            5.0T2  1223  ENCRYPT..OE.002                    1 LINE   5350    3 PAGE UM   GREENING            AUG. 06, 1981  04:25:05
            5.0T6   245                       
0          OBJECT FOR THE *ENCRYPT MAIN PROGRAM.
00677/003C *ENCRYPT                                  OE  O          SEG2:CRYPT                                                      
            5.0T2  1224  ENCRYPT..OE.003                    1 LINE   1958    1 PAGE UM   GREENING            AUG. 06, 1981  04:25:06
            5.0T6   246  SEG2:CRYPT           
0          OBJECT FOR THE CRYPT AND CRYPTCC SUBROUTINES. LOADED INTO SHARED VM AT IPL BY
           PISTLE.
00678/001   SNOSTORM                 PREPROCESSOR    S*  G          S1430 4.3T1 VLO FSNAME=SNOSTORM.PREPROCESSOR.S*.001(1)       753
            5.0T2  1225  SNOSTORM.PREPROCESSOR.S*.001       1 LINE     99   25 PAGE UM   SWARTZ              APR. 05, 1980  20:32:10
            5.0T6   247                       
0          SNOSTORM IS A PREPROCESSOR FOR THE SNOBOL4 LANGUAGE. IT AUGMENTS SNOBOL4
           WITH THE STRUCTURES IF, LOOP, CASE, AND PROC.
            
           THIS SUBCOMPONENT IS THE SOURCE FOR THE SNOSTORM PREPROCESSOR (678/3), AND
           IS WRITTEN IN THE SNOSTORM LANGUAGE.  FOR THE INITIAL INSTALLATION OF 
           SNOSTORM, THIS FILE IS RUN THROUGH SNOSTORM AND AN INTERMEDIATE SOURCE,
           (678/2), WHICH IS IN SPITBOL, IS PRODUCED.  THIS SUBCOMPONENT USES THE LOAD
           FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB (590/30).
            
           FILE CONTAINS MTS COMMANDS AT BEGINNING FOR COMPILING.
0          Referenced by comments of: 667/1, 678/2, 678/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  455
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00678/002   SNOSTORM                 PREPROCESSOR    SS  G          S1430 4.3T1 VLO FSNAME=SNOSTORM.PREPROCESSOR.SS.002(1)       754
            5.0T2  1226  SNOSTORM.PREPROCESSOR.SS.002       1 LINE     99   17 PAGE UM   SWARTZ              APR. 05, 1980  20:32:27
            5.0T6   248                       
0          THIS IS THE SOURCE FOR THE SNOSTORM PREPROCESSOR, DERIVED BY RUNNING (678/1)
           THROUGH SNOSTORM. THIS FILE IS IN SPITBOL, AND IS USEFUL FOR "BOOTSTRAPPING"
           FOR THE INITIAL INSTALLATION OF SNOSTORM.
0          Referenced by comments of: 678/1, 678/3 
00678/003   SNOSTORM                 PREPROCESSOR    OC  G          ETC:SNOSTORM                                                    
            5.0T2  1227  SNOSTORM.PREPROCESSOR.OC.003       1 LINE  32767   28 PAGE UM   SWARTZ              JULY 03, 1981  17:32:39
            5.0T6   249  ETC:SNOSTORM         
0          THIS IS THE OBJECT FOR THE SNOSTROM PREPROCESSOR (678/1) AND (678/2). IT
           CONTAINS A "$CONTINUE WITH *SPITLIB" RECORD.
0          Referenced by comments of: 678/1, 678/4 
00678/004   SNOSTORM                 MAIN PROGRAM    SA  G          S1430 4.3T1 VLO FSNAME=SNOSTORM.MAIN_PROGRAM.SA.004(1)       756
            5.0T2  1228  SNOSTORM.MAIN_PROGRAM.SA.004       1 LINE     73    3 PAGE UM   SWARTZ              APR. 05, 1980  20:32:32
            5.0T6   250                       
0          THIS IS A SMALL MAIN PROGRAM WHICH LINKS TO THE SNOSTORM PREPROCESSOR (678/3)
           AND THEN TO *SPITBOL (590).
0          Referenced by comments of: 678/5 
00678/005   SNOSTORM                 *SNOSTORM       OE  G          *SNOSTORM                                                       
            5.0T2  1229  SNOSTORM.*SNOSTORM.OE.005          1 LINE   1221    1 PAGE UM   SWARTZ              JULY 03, 1981  17:32:42
            5.0T6   251  *SNOSTORM            
0          THE OBJECT OF (678/4).
00678/006   SNOSTORM                 TEST PGM        S*  O          S1430 4.3T1 VLO FSNAME=SNOSTORM.TEST_PGM.S*.006(1)           758
            5.0T2  1230  SNOSTORM.TEST_PGM.S*.006           1 LINE     74    3 PAGE UM   SWARTZ              APR. 05, 1980  20:32:37
            5.0T6   252                       
00679/001A  INTRO GUIDE: INTRO TO CC                 WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO80.SOU               
            5.0T3     1  INTRO_GUIDE:_INTRO_TO_CC..WF.001   1 LINE    222   56 PAGE UM   MANUAL              AUG. 18, 1980  15:49:20
            5.0T6   253                       
0          FORMAT SOURCE FOR "INTRODUCTION TO THE COMPUTING CENTER," SEPTEMBER 1980.
00679/002A  INTRO GUIDE: INTRO TO CC                 PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO80.OUT               
            5.0T3     2  INTRO_GUIDE:_INTRO_TO_CC..PF.002   1 LINE    135   89 PAGE UM   MANUAL              AUG. 18, 1980  15:52:18
            5.0T6   254                       
0          FORMAT PRINT FILE.
1                                                                                               MON AUG 05/96   18:37:45   Page  456
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00680/001A *CKID                                     SA  G          MTS:CKID.S                                                      
            5.0T3     3  CKID..SA.001                       1 LINE     77    9 PAGE UBC  HOGG      MTA       JULY 03, 1981  17:51:47
            5.0T6   255  MTS.:CKID.S          
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 *GDINFODSECT (594).  REQUIRES COPY:MTS.MACROS (344/3).
           USES THE MTS GETACCRE ROUTINE IN USUB (638) TO READ THE ACCOUNTING FILE.
0          Referenced by comments of: 814/1 
00680/002A *CKID                                     OE  G          *CKID                                                           
            5.0T3     4  CKID..OE.002                       1 LINE   2457    5 PAGE UBC  HOGG      MTA       JULY 03, 1981  17:51:49
            5.0T6   256  *CKID                
0          CONTAINS PRIVATE COPIES OF TIME SUBROUTINE SO THAT THIS PROGRAM CAN BE 
           RUN BEFORE THE POST-IPL SYSTEM IS LOADED SINCE IT USED AT UM FOR THE CCIDS 
           INIT, SYS, STRT, RSTR, ...
00681/001   AUDIO RESP SYS - VOTRAX  INSTALLATION    PT             S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.I.PT.001(1)     53
            5.0T3     5  AUDIO_RESP_SYS_-_VOTRAX.I.PT.001   1 LINE    100    7 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:36
            5.0T6   257                       
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.
0          Referenced by comments of: 116/1 
00681/002   AUDIO RESP SYS - VOTRAX  VTRX            SA  G          S1430 4.3T1 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.V.SA.002(1)   762
            5.0T3     6  AUDIO_RESP_SYS_-_VOTRAX.V.SA.002   1 LINE     81   36 PAGE UM   FRONCZAK            APR. 05, 1980  20:32:46
            5.0T6   258                       
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/3) AND DICTINIT, DICTADD, AND DICTLOOK
           (681/4) AS WELL AS REFERENCING THE VOTRAX VOCABULARY (681/10).
            
           Object part of *PDP8RTN (116/2).
00681/003   AUDIO RESP SYS - VOTRAX  CVTPB           SA  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.C.SA.004(1)     55
            5.0T3     7  AUDIO_RESP_SYS_-_VOTRAX.C.SA.004   1 LINE     71    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:47
            5.0T6   259                       
0          SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION ROUTINE.
            
           Object part of *PDP8RTN (116/2).
0          Referenced by comments of: 681/2, 681/5 
1                                                                                               MON AUG 05/96   18:37:45   Page  457
0  Num   R       Component Name         Subname     Type G Seq ID 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/004   AUDIO RESP SYS - VOTRAX  DICT            SA  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.D.SA.006(1)     56
            5.0T3     8  AUDIO_RESP_SYS_-_VOTRAX.D.SA.006   1 LINE     81   10 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:48
            5.0T6   260                       
0          MORPH DIRECTORY MANIPULATION ROUTINES.
            
           Object part of *PDP8RTN (116/2).
0          Referenced by comments of: 681/2, 681/5 
00681/005   AUDIO RESP SYS - VOTRAX  RVGN            SA  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.R.SA.008(1)     57
            5.0T3     9  AUDIO_RESP_SYS_-_VOTRAX.R.SA.008   1 LINE     67    9 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:53
            5.0T6   261                       
0          PROGRAM TO READ A SYMBOLIC VOCABULARY FILE, E.G. *ARUVOC (681/10), AND
           GENERATE ASSEMBLER INPUT WHICH, WHEN ASSEMBLED, PRODUCES AN OBJECT DECK FOR
           THE TREE STRUCTURE VOCABULARY. THIS PROGRAM CALLS CVTPB (681/3), DICT
           (681/4), RVST (681/7) AND REQUIRES *PLOTSYS (615/9).
0          Referenced by comments of: 681/9, 681/10 
00681/006   AUDIO RESP SYS - VOTRAX  RVGN            OC  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.R.OC.009(1)     58
            5.0T3    10  AUDIO_RESP_SYS_-_VOTRAX.R.OC.009   1 LINE     80    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:54
            5.0T6   262                       
00681/007   AUDIO RESP SYS - VOTRAX  RVST            SF  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.R.SF.010(1)     59
            5.0T3    11  AUDIO_RESP_SYS_-_VOTRAX.R.SF.010   1 LINE     71    4 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:55
            5.0T6   263                       
0          SUBROUTINES TO COMPUTE, PRINT, AND PLOT VOCABULARY STATISTICS.
0          Referenced by comments of: 681/5 
00681/008   AUDIO RESP SYS - VOTRAX  RVST            OC  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.R.OC.011(1)     60
            5.0T3    12  AUDIO_RESP_SYS_-_VOTRAX.R.OC.011   1 LINE    248    5 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:56
            5.0T6   264                       
00681/009   AUDIO RESP SYS - VOTRAX  TREEDEF         SA  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.T.SA.012(1)     61
            5.0T3    13  AUDIO_RESP_SYS_-_VOTRAX.T.SA.012   1 LINE     65    2 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:57
            5.0T6   265                       
0          THE OUTPUT (WHICH IS ASSEMBLER SOURCE) FROM RVGN (681/5) STARTS WITH A COPY
           PSEUDO-OP FOR "W070:VTREEDEF" WHICH COPIES THE INITIAL PART OF THE SOURCE.
00681/010   AUDIO RESP SYS - VOTRAX  VOCABULARY      D              *ARUVOC                                                         
            5.0T3    14  AUDIO_RESP_SYS_-_VOTRAX.V.D.013    1 LINE     95   31 PAGE UM   FRONCZAK            JULY 03, 1981  17:51:57
            5.0T6   266  *ARUVOC              
0          MORPH SYMBOLIC DIRECTORY FOR STANDARD VOTRAX VOCABULARY WHICH, WHEN RUN
           THROUGH RVGN (681/5), PRODUCES THE ASSEMBLER INPUT FOR THE VOCABULARY WHICH,
           WHEN ASSEMBLED, YIELDS THE SHARED VM VOCABULARY OBJECT WHICH IS PART OF
           *PDP8RTN (116/2).
0          Referenced by comments of: 681/2, 681/5 
1                                                                                               MON AUG 05/96   18:37:45   Page  458
0  Num   R       Component Name         Subname     Type G Seq ID 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/011   AUDIO RESP SYS - VOTRAX  VOCAB EDITOR    SF  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.V.SF.015(1)     63
            5.0T3    15  AUDIO_RESP_SYS_-_VOTRAX.V.SF.015   1 LINE     70    2 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:01
            5.0T6   267                       
0          VOTRAX VOCABULARY LINE FILE EDITOR WITH AURAL VERIFICATION.  SEE THE SOURCE
           FOR USAGE DIRECTIONS.
00681/012   AUDIO RESP SYS - VOTRAX  VOCAB EDITOR    OC  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.V.OC.016(1)     64
            5.0T3    16  AUDIO_RESP_SYS_-_VOTRAX.V.OC.016   1 LINE    254    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:02
            5.0T6   268                       
0          CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD. TO USE, EXTRACT THE CSECT
           CVTPB FROM *PDP8RTN (116/2) AND PLACE IT IN A FILE BY THE NAME "VOTRX.CVT.O".
00681/013   AUDIO RESP SYS - VOTRAX  TALK            SF  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.T.SF.017(1)     65
            5.0T3    17  AUDIO_RESP_SYS_-_VOTRAX.T.SF.017   1 LINE     64    1 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:03
            5.0T6   269                       
0          SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION PROGRAM WITH AURAL VERIFICATION.
           SEE THE SOURCE FOR USAGE DIRECTIONS.
00681/014   AUDIO RESP SYS - VOTRAX  TALK            OC  G          S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.T.OC.018(1)     66
            5.0T3    18  AUDIO_RESP_SYS_-_VOTRAX.T.OC.018   1 SEQ     340    1 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:04
            5.0T6   270                       
0          CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD. TO USE, EXTRACT THE CSECT
           CVTPB FROM *PDP8RTN (116/2) AND PLACE IT IN A FILE BY THE NAME "VOTRX.CVT.O".
00681/015   AUDIO RESP SYS - VOTRAX  DSR TEST        SA  G          S1319 D4.2T1 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.D.SA.019(1)  628
            5.0T3    19  AUDIO_RESP_SYS_-_VOTRAX.D.SA.019   1 LINE     72    8 PAGE UM   FRONCZAK            APR. 02, 1979  00:45:49
            5.0T6   271                       
0          PROGRAM TO INDEPENDENTLY TEST THE VOTRAX ROUTINES WHICH ARE CALLED BY PDP8RTN (116).
           SEE THE SOURCE FOR USAGE DIRECTIONS.
00681/016   AUDIO RESP SYS - VOTRAX  DSR TEST        OC  G          S1319 D4.2T1 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.D.OC.020(1)  629
            5.0T3    20  AUDIO_RESP_SYS_-_VOTRAX.D.OC.020   1 LINE     80    3 PAGE UM   FRONCZAK            APR. 02, 1979  00:45:50
            5.0T6   272                       
00681/017   AUDIO RESP SYS - VOTRAX  *ARUDEF         D              *ARUDEF                                                         
            5.0T3    21  AUDIO_RESP_SYS_-_VOTRAX.*.D.021    1 LINE     10    1 PAGE UM   FRONCZAK            JULY 03, 1981  17:52:05
            5.0T6   273  *ARUDEF              
0          PUBLIC TEXT DEFINITION FILE FOR TEXT INSERTION MODE.
00682/001   FILE SYSTEM RECOVERY     DOCUMENTATION   WF             FILE:UBC.DISK.W                                                 
            5.0T3    22  FILE_SYSTEM_RECOVERY.DOCU.WF.001   1 LINE     92    7 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:06
            5.0T6   274  FILE:UBC.DISK.W      
0          THIS COMPONENT CONTAINS A COLLECTION OF REFERENCE INFORMATION AND PROGRAM
           DESCRIPTIONS WHICH CAN BE USED TO RECOVER FROM HARDWARE AND SOFTWARE DISK DISASTERS.
            
           (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
1                                                                                               MON AUG 05/96   18:37:45   Page  459
0  Num   R       Component Name         Subname     Type G Seq ID 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          VARIOUS PIECES OF THIS WRITEUP (682/2) THROUGH (682/17).
0          Referenced by comments of: 482/53, 682/1 
00682/002   FILE SYSTEM RECOVERY     CCATL DESC      WF             FILE:CCATL.W                                                    
            5.0T3    23  FILE_SYSTEM_RECOVERY.CCAT.WF.002   1 LINE     93    2 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:07
            5.0T6   275  FILE:CCATL.W         
0          WRITEUP DESCRIBING THE CCATL PROGRAM (442).
0          Referenced by comments of: 442/1, 682/1 
00682/003   FILE SYSTEM RECOVERY     PM DESC         WF             FILE:PM.W                                                       
            5.0T3    24  FILE_SYSTEM_RECOVERY.PM_D.WF.003   1 LINE     62    2 PAGE UBC  O'REILLY  HELFFRICH JULY 03, 1981  17:52:08
            5.0T6   276  FILE:PM.W            
0          WRITEUP DESCRIBING THE PACK MAP PROGRAM (1030).
0          Referenced by comments of: 1030/1 
00682/004A  FILE SYSTEM RECOVERY     DSKMAN DESC     WF             FILE:DSKMAN.W                                                   
            5.0T3    25  FILE_SYSTEM_RECOVERY.DSKM.WF.004   1 LINE     73    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:09
            5.0T6   277  FILE:DSKMAN.W        
0          WRITEUP DESCRIBING THE DSKMAN (*DSK) PROGRAM (073).
0          Referenced by comments of: 73/3 
00682/005   FILE SYSTEM RECOVERY     DASDI DESC      WF             FILE:DASDI.W                                                    
            5.0T3    26  FILE_SYSTEM_RECOVERY.DASD.WF.005   1 LINE     80    2 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:10
            5.0T6   278  FILE:DASDI.W         
0          WRITEUP DESCRIBING THE 3330 DASDI PROGRAM (598).
00682/006   FILE SYSTEM RECOVERY     CHONID DESC     WF             FILE:CHONID.W                                                   
            5.0T3    27  FILE_SYSTEM_RECOVERY.CHON.WF.006   1 LINE     76    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:10
            5.0T6   279  FILE:CHONID.W        
0          WRITEUP DESCRIBING THE CHONID PROGRAM (599).
0          Referenced by comments of: 599/1 
00682/007A  FILE SYSTEM RECOVERY     FM DESC         WF             FILE:FM.W                                                       
            5.0T3    28  FILE_SYSTEM_RECOVERY.FM_D.WF.007   1 LINE     70    2 PAGE UBC  HOGG      HELFFRICH AUG. 06, 1981  05:16:26
            5.0T6   280  FILE:FM.W            
0          WRITEUP DESCRIBING THE FILE MOVE PROGRAM (1020).
0          Referenced by comments of: 1020/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  460
0  Num   R       Component Name         Subname     Type G Seq ID 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/008A  FILE SYSTEM RECOVERY     CHKVTOC DESC    WF             FILE:CHKVTOC.W                                                  
            5.0T3    29  FILE_SYSTEM_RECOVERY.CHKV.WF.008   1 LINE     73    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:12
            5.0T6   281  FILE:CHKVTOC.W       
0          WRITEUP DESCRIBING THE CHKVTOC PROGRAM (682/20).
0          Referenced by comments of: 682/20 
00682/009A  FILE SYSTEM RECOVERY     TABLMOD DESC    WF             FILE:TABLMOD.W                                                  
            5.0T3    30  FILE_SYSTEM_RECOVERY.TABL.WF.009   1 LINE     76    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:12
            5.0T6   282  FILE:TABLMOD.W       
0          WRITEUP DESCRIBING THE TABLMOD PROGRAM (554).
0          Referenced by comments of: 554/1 
00682/010   FILE SYSTEM RECOVERY     VNTD DESC       WF             FILE:VNTD.W                                                     
            5.0T3    31  FILE_SYSTEM_RECOVERY.VNTD.WF.010   1 LINE     71    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:13
            5.0T6   283  FILE:VNTD.W          
0          WRITEUP DESCRIBING THE VNTD PROGRAM (682/18).
0          Referenced by comments of: 682/18 
00682/011   FILE SYSTEM RECOVERY     FSTEST DESC     WF             FILE:FSTEST.W                                                   
            5.0T3    32  FILE_SYSTEM_RECOVERY.FSTE.WF.011   1 LINE    101    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:14
            5.0T6   284  FILE:FSTEST.W        
0          WRITEUP DESCRIBING THE FSTEST PROGRAM (482/41).
00682/012   FILE SYSTEM RECOVERY     VAMREC DESC     WF             FILE:VAMREC.WRUP                                                
            5.0T3    33  FILE_SYSTEM_RECOVERY.VAMR.WF.012   1 LINE    108    5 PAGE SFU  BENET     HELFFRICH JULY 03, 1981  17:52:15
            5.0T6   285  FILE:VAMREC.WRUP     
0          WRITEUP DESCRIBING THE VAMREC PROGRAM (682/22).
0          Referenced by comments of: 682/22 
00682/013A  FILE SYSTEM RECOVERY     RECOVERING      WF             FILE:RECOVERING                                                 
            5.0T3    34  FILE_SYSTEM_RECOVERY.RECO.WF.013   1 LINE    182    7 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:15
            5.0T6   286  FILE:RECOVERING      
0          DESCRIPTION OF PROCEDURES SUGGESTED FOR RECOVERING FROM DISK DISASTERS.
0          Referenced by comments of: 682/44 
00682/014   FILE SYSTEM RECOVERY     LINE FILE DESC  WF             FILE:DOC.DESC.LNE                                               
            5.0T3    35  FILE_SYSTEM_RECOVERY.LINE.WF.014   1 LINE    136    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:19
            5.0T6   287  FILE:DOC.DESC.LNE    
0          DESCRIPTION OF MTS LINE FILE ORGANIZATION.
1                                                                                               MON AUG 05/96   18:37:45   Page  461
0  Num   R       Component Name         Subname     Type G Seq ID 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/015   FILE SYSTEM RECOVERY     SEQ FILE DESC   WF             FILE:DOC.DESC.SEQ                                               
            5.0T3    36  FILE_SYSTEM_RECOVERY.SEQ.WF.015    1 LINE    130    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:19
            5.0T6   288  FILE:DOC.DESC.SEQ    
0          DESCRIPTION OF MTS SEQ FILE ORGANIZATION.
00682/016   FILE SYSTEM RECOVERY     CAT DESC        WF             FILE:DOC.DESC.CAT                                               
            5.0T3    37  FILE_SYSTEM_RECOVERY.CAT.WF.016    1 LINE    190    7 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:20
            5.0T6   289  FILE:DOC.DESC.CAT    
0          DESCRIPTION OF MTS FILE CATALOG ORGANIZATION.
00682/017   FILE SYSTEM RECOVERY     TAB DESC        WF             FILE:DOC.DESC.TAB                                               
            5.0T3    38  FILE_SYSTEM_RECOVERY.TAB.WF.017    1 LINE    131    5 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:22
            5.0T6   290  FILE:DOC.DESC.TAB    
0          DESCRIPTION OF MTS SHARED FILE TABLE ORGANIZATION.
0          Referenced by comments of: 682/1 
00682/018A  FILE SYSTEM RECOVERY     VNTD            SA  G          FILE:VNTD(1000)                                                 
            5.0T3    39  FILE_SYSTEM_RECOVERY.VNTD.SA.018   1 LINE     80   23 PAGE UM   HELFFRICH           AUG. 06, 1981  05:16:40
            5.0T6   291                       
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. SEE COMP (682/10) FOR A WRITEUP. ASSEMBLE USING
           *SYSMAC AND COPY:FILE.MACROS (482/45). COPIES *GDINFODSECT (594).
0          Referenced by comments of: 451/1, 682/10, 682/26, 682/28 
00682/019A  FILE SYSTEM RECOVERY     VNTD            OC  G          FILE:VNTD(1,998)                                                
            5.0T3    40  FILE_SYSTEM_RECOVERY.VNTD.OC.019   1 LINE     80   10 PAGE UM   HELFFRICH           AUG. 06, 1981  05:16:46
            5.0T6   292  FILE:VNTD            
00682/020A  FILE SYSTEM RECOVERY     CHKVTOC         SA  G          FILE:CHKVTOC(1000)                                              
            5.0T3    41  FILE_SYSTEM_RECOVERY.CHKV.SA.020   1 LINE     72   16 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:30
            5.0T6   293  FILE:CHKVTOC         
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/45)
           AND *SYSMAC.  CALLS VTOCREAD SUBROUTINE (067/3).  SEE COMP (682/8) FOR A WRITEUP.
            
           *********************************************************************************
           D5.0 CHANGES:
            
           This version is considerably changed from the D4.0 version and contains
           Disk Manager (769) support.
           *********************************************************************************
0          Referenced by comments of: 597/1, 682/8 
1                                                                                               MON AUG 05/96   18:37:45   Page  462
0  Num   R       Component Name         Subname     Type G Seq ID 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/021A  FILE SYSTEM RECOVERY     CHKVTOC         OC  G          FILE:CHKVTOC(1,999)                                             
            5.0T3    42  FILE_SYSTEM_RECOVERY.CHKV.OC.021   1 LINE     80    7 PAGE UM   HELFFRICH           JULY 03, 1981  17:52:34
            5.0T6   294                       
0          CONTAINS A "$CONTINUE WITH RSTR:VTOCREAD+COPY:SYSDEFS" LINE.
0          Referenced by comments of: 597/1 
00682/022A  FILE SYSTEM RECOVERY     VAMREC          SA  G          FILE:VAMREC(1000)                                               
            5.0T3    43  FILE_SYSTEM_RECOVERY.VAMR.SA.022   1 LINE     72   64 PAGE SFU  BENET     HELFFRICH AUG. 06, 1981  05:16:57
            5.0T6   295  FILE:VAMREC          
0          THE VAMREC DISK UTILITY.  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).
           ASSEMBLE WITH COPY:FILE.MACROS (482/45), COPY:CC.MACROS (1054/3), COPY:UC.MACROS
           (787/1), AND COPY:MISC.MACROS (728).  SEE COMPONENT (682/12) FOR A WRITEUP.
            
           *********************************************************************************
           D5.0 CHANGES:
            
           This version is considerably changed from D4.0 and has been recoded
           according to coding convention standards.
           *********************************************************************************
0          Referenced by comments of: 682/12, 3030/1 
00682/023A  FILE SYSTEM RECOVERY     VAMREC          OC  G          FILE:VAMREC(1,999)                                              
            5.0T3    44  FILE_SYSTEM_RECOVERY.VAMR.OC.023   1 LINE  22028   21 PAGE SFU  BENET     HELFFRICH AUG. 06, 1981  05:17:23
            5.0T6   296                       
0          HAS $CONTINUE WITH COPY:DEFS (579/10) RECORD.
0          Referenced by comments of: 3030/1 
00682/024A  FILE SYSTEM RECOVERY     FIXEH           SA  G          FILE:FIXEH(1,999)                                               
            5.0T3    45  FILE_SYSTEM_RECOVERY.FIXE.SA.024   1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:44
            5.0T6   297  FILE:FIXEH           
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
           IN-USE) IS CORRECT.  ASSEMBLE USING COPY:FILE.MACROS (482/45).
00682/025A  FILE SYSTEM RECOVERY     FIXEH           OC  G          FILE:FIXEH(1000)                                                
            5.0T3    46  FILE_SYSTEM_RECOVERY.FIXE.OC.025   1 LINE     80    2 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:45
            5.0T6   298                       
00682/026A  FILE SYSTEM RECOVERY     FIXCAT          SA  G          FILE:FIXCAT(1000)                                               
            5.0T3    47  FILE_SYSTEM_RECOVERY.FIXC.SA.026   1 LINE     72    8 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:46
            5.0T6   299  FILE:FIXCAT          
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 AMALGAMATE (682/37).  ASSEMBLE USING COPY:FILE.MACROS (482/45).
1                                                                                               MON AUG 05/96   18:37:45   Page  463
0  Num   R       Component Name         Subname     Type G Seq ID 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/027A  FILE SYSTEM RECOVERY     FIXCAT          OC  G          FILE:FIXCAT(1,999)                                              
            5.0T3    48  FILE_SYSTEM_RECOVERY.FIXC.OC.027   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:52
            5.0T6   300                       
00682/028A  FILE SYSTEM RECOVERY     FIXSD           SA  G          FILE:FIXSD(1,999)                                               
            5.0T3    49  FILE_SYSTEM_RECOVERY.FIXS.SA.028   1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:55
            5.0T6   301  FILE:FIXSD           
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 (682/18) AND PROVIDES AS OUTPUT A LIST OF
           FILES WHICH LOST SHARING INFORMATION.  THIS OUTPUT IS THEN USED FOR INPUT TO
           AMALGAMATE (682/37).  ASSEMBLE USING COPY:FILE.MACROS (482/45).
00682/029A  FILE SYSTEM RECOVERY     FIXSD           OC  G          FILE:FIXSD(1000)                                                
            5.0T3    50  FILE_SYSTEM_RECOVERY.FIXS.OC.029   1 LINE     80    3 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:55
            5.0T6   302                       
00682/030A  FILE SYSTEM RECOVERY     RECATALOG       SA  G  RCAT    FILE:RECATALOG(1,999)                                           
            5.0T3    51  FILE_SYSTEM_RECOVERY.RECA.SA.030   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:56
            5.0T6   303  FILE:RECATALOG       
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/45).
00682/031A  FILE SYSTEM RECOVERY     RECATALOG       OC  G          FILE:RECATALOG(1000)                                            
            5.0T3    52  FILE_SYSTEM_RECOVERY.RECA.OC.031   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:57
            5.0T6   304                       
00682/032A  FILE SYSTEM RECOVERY     CALLDR          SA  G          FILE:CALLDR(1,999)                                              
            5.0T3    53  FILE_SYSTEM_RECOVERY.CALL.SA.032   1 LINE     69    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:58
            5.0T6   305  FILE:CALLDR          
0          PROGRAM WHICH CALLS DESTRYR TO DESTROY FILES.  SEE THE SOURCE FOR USAGE DETAILS.
00682/033A  FILE SYSTEM RECOVERY     CALLDR          OC  G          FILE:CALLDR(1000)                                               
            5.0T3    54  FILE_SYSTEM_RECOVERY.CALL.OC.033   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:53:59
            5.0T6   306                       
00682/034A  FILE SYSTEM RECOVERY     FILES           SA  G          FILE:STARFILES(1,999)                                           
            5.0T3    55  FILE_SYSTEM_RECOVERY.FILE.SA.034   1 LINE     74    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:00
            5.0T6   307  FILE:STARFILES       
0          PROGRAM TO PRINT WHICH USERS FILES HAVE BEEN AFFECTED AND HOW BY A DISK CRASH.
           IT TAKES AS INPUT A DESCRIPTION OF THE DISASTER AND OTHER DATA IN FILE:FILELIST.
           SEE THE SOURCE FOR DETAILS ON THE FORMAT OF THIS FILE.  THE OUTPUT FROM
           AMALGAMATE (682/37) IS BASICALLY WHAT IS USED TO GENERATE THIS DATA FILE WITH
           THE HELP OF *MVC, *COMBINE, THE EDITOR, ETC.
1                                                                                               MON AUG 05/96   18:37:45   Page  464
0  Num   R       Component Name         Subname     Type G Seq ID 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/035A  FILE SYSTEM RECOVERY     FILES           OC  G          FILE:STARFILES(1000)                                            
            5.0T3    56  FILE_SYSTEM_RECOVERY.FILE.OC.035   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:01
            5.0T6   308                       
0          PUT THIS IN *FILES AFTER A DISK CRASH.
00682/036A  FILE SYSTEM RECOVERY     FILE UPDATE     OC  G          FILE:FILEUPD                                                    
            5.0T3    57  FILE_SYSTEM_RECOVERY.FILE.OC.036   1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  17:54:02
            5.0T6   309  FILE:FILEUPD         
0          OBJECT FOR ACCRDWRT (104/35), ACCUPDAT (104/28), AND A DUMMY PRINT ROUTINE,
           PLUS $CONTINUE WITHS FOR ACATALOG (104/115), ACATSUB (104/116), VTOCREAD (067/3),
           TEST DSACC (482/39), ACCLIB (104/42), AND SYSDEFS (579), 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).
            
           CONTAINS REP CARD TO INCREASE SPEED BY KEEPING ACCOUNTING FILES LOCKED MORE.
00682/037A  FILE SYSTEM RECOVERY     AMALGAMATE      SA  G          FILE:AMALGAMATE(1000)                                           
            5.0T3    58  FILE_SYSTEM_RECOVERY.AMAL.SA.037   1 LINE     72    6 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:03
            5.0T6   310  FILE:AMALGAMATE      
0          PROGRAM TO TAKE A LIST OF FILES AND USE "FILEDIR.MAS" TO APPEND TAPE LOCATION
           INFORMATION FOR USE BY FASTRESTORE (671/1).  ALSO COMPARES "FILEDIR.MAS" WITH
           FILE SYSTEM CATALOG TO LOCATE FILES WHOSE DATA IS LOST (NOT ON ANY RESTORE
           TAPES) AND WHOSE SHARING INFORMATION HAS BEEN DAMAGED (ALSO NOT ON ANY RESTORE
           TAPES). CALLS CHKFILE (682/39).  COPIES *CNFGINFODSECT (654). ASSEMBLE WITH THE
           FILE SAVE MACROS (067/31).  NOTE: THE DIRECTORY FILES RSTR:FILEDIR.MAS,
           RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR MUST BE PERMITTED WITH READ ACCESS TO
           FILE&PKEY=DISTASTER.
0          Referenced by comments of: 682/26, 682/28, 682/34, 682/39, 682/44 
00682/038A  FILE SYSTEM RECOVERY     AMALGAMATE      OC  G          FILE:AMALGAMATE(1,999)                                          
            5.0T3    59  FILE_SYSTEM_RECOVERY.AMAL.OC.038   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:04
            5.0T6   311                       
0          HAS A "$CONTINUE WITH MTS:UBCDATEX+FILE:CHKFILE RETURN" LINE.
           THE PKEY OF THIS FILE SHOULD BE "DISASTER".
0          Referenced by comments of: 671/1 
00682/039A  FILE SYSTEM RECOVERY     CHKFILE SUBR    SA  G          FILE:CHKFILE(1000)                                              
            5.0T3    60  FILE_SYSTEM_RECOVERY.CHKF.SA.039   1 LINE     71    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:06
            5.0T6   312  FILE:CHKFILE         
0          ALTERNATE VERSION OF SYSTEM CHKFILE ROUTINE FOR USE BY MERGE (067/23) AND AMALGAMATE
           (682/37).  COPIES *CNFGINFODSECT (654).  ASSEMBLE USING COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 67/23, 682/37, 752/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  465
0  Num   R       Component Name         Subname     Type G Seq ID 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/040A  FILE SYSTEM RECOVERY     CHKFILE SUBR    OC  G          FILE:CHKFILE(1,999)                                             
            5.0T3    61  FILE_SYSTEM_RECOVERY.CHKF.OC.040   1 LINE     80    3 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:07
            5.0T6   313                       
0          CONTAINS A "$CONTINUE WITH COPY:SYSDEFS" (579/3) RECORD.
00682/041A  FILE SYSTEM RECOVERY     CALLRELDSK      SA  G          FILE:CALLRELDSK(1000)                                           
            5.0T3    62  FILE_SYSTEM_RECOVERY.CALL.SA.041   1 LINE     72    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:07
            5.0T6   314  FILE:CALLRELDSK      
0          PROGRAM TO TAKE ACATSUB OUTPUT AND CALL RELDSK TO DESTROY UNCATALOGED FILES.
           ASSEMBLE WITH COPY:FILE.MACROS (482/45).
00682/042A  FILE SYSTEM RECOVERY     CALLRELDSK      OC  G          FILE:CALLRELDSK(1,999)                                          
            5.0T3    63  FILE_SYSTEM_RECOVERY.CALL.OC.042   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:08
            5.0T6   315                       
00682/043   FILE SYSTEM RECOVERY     VAMREC-CHKVTOC  SS  G          FILE:VAMREC->CHKV                                               
            5.0T3    64  FILE_SYSTEM_RECOVERY.VAMR.SS.043   1 LINE     66    1 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:09
            5.0T6   316  FILE:VAMREC->CHKV    
0          SPITBOL PROGRAM TO TAKE DISK I/O ERROR OUTPUT FROM VAMREC AND GENERATE
           CHKVTOC INPUT.  THIS IS TO ALLOW ONE TO LOCATE FILES WHOSE DATA PAGES
           ARE GIVING DATA CHECKS.
00682/044A  FILE SYSTEM RECOVERY     CATDSCBCOMP     SA  G          FILE:CATDSCBCOMP(1,999)                                         
            5.0T3    65  FILE_SYSTEM_RECOVERY.CATD.SA.044   1 LINE     72    8 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:09
            5.0T6   317  FILE:CATDSCBCOMP     
0          PROGRAM TO VERIFY CATALOG/DSCB CONSISTENCY.  IT PRODUCES LISTS TO BE USED
           WITH AMALGAMATE (682/37).  SEE (682/13) FOR COMPLETE INSTRUCTIONS. CALLS
           VTOCREAD (067/3). COPIES COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 104/116 
00682/045A  FILE SYSTEM RECOVERY     CATDSCBCOMP     OC  G          FILE:CATDSCBCOMP(1000)                                          
            5.0T3    66  FILE_SYSTEM_RECOVERY.CATD.OC.045   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  17:54:11
            5.0T6   318                       
0          CONTAINS $CONTINUE WITH RSTR/VTOCREAD (067/3) AND COPY:SYSDEFS (579/3)
           RECORDS.
00683/001   MTS VOLUME 15            MASTER          WT             S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_15.MASTER.WT.001(1)       642
            5.0T3    67  MTS_VOLUME_15.MASTER.WT.001        1 SEQ     132  158 PAGE UM   MANUAL              APR. 02, 1979  00:46:49
            5.0T6   319                       
0          TEXT/360 MASTER FOR VOLUME 15 "FORMAT AND TEXT360" OF THE UM MTS MANUALS,
           APRIL 1977, UPDATED FEBRUARY 1979.
            
           EDITOR:  RICHARD A. SALISBURY
1                                                                                               MON AUG 05/96   18:37:45   Page  466
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00683/002   MTS VOLUME 15            PRINT           PT             S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_15.PRINT.PT.002(1)        643
            5.0T3    68  MTS_VOLUME_15.PRINT.PT.002         1 SEQ     132  277 PAGE UM   MANUAL              APR. 02, 1979  00:47:01
            5.0T6   320                       
0          TEXT/360 PRINT FILE.
00683/003   MTS VOLUME 15            INDEX SOURCE    D              S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_15.INDEX_SOURC.D.003(1)   644
            5.0T3    69  MTS_VOLUME_15.INDEX_SOURC.D.003    1 SEQ     147    5 PAGE UM   MANUAL              APR. 02, 1979  00:47:16
            5.0T6   321                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 15.
00683/004   MTS VOLUME 15            UPDATE 1        PT             S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_15.UPDATE_1.PT.004(1)     645
            5.0T3    70  MTS_VOLUME_15.UPDATE_1.PT.004      1 LINE    133   59 PAGE UM   MANUAL              APR. 02, 1979  00:47:17
            5.0T6   322                       
0          THIS IS COMPUTING CENTER MEMO 396 -- "UPDATE 1 TO MTS VOLUME 15," 
           FEBRUARY 1979.  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00684/001   OXFORD                                   SA  G          S0565 D4T3 VLO FSNAME=OXFORD..SA.001(1)                      111
            5.0T3    71  OXFORD..SA.001                     1 LINE     80   24 PAGE UBC  HOGG      DWB       JULY 28, 1977  23:24:13
            5.0T6   323                       
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
           WXTRN FOR OXFORD AND TESTS IT FOR ZERO TO SKIP THE CALL IF NOT PRESENT.
00684/002   OXFORD                                   OC  G          S0565 D4T3 VLO FSNAME=OXFORD..OC.002(1)                      112
            5.0T3    72  OXFORD..OC.002                     1 LINE     80    3 PAGE UBC  HOGG      DWB       JULY 28, 1977  23:24:15
            5.0T6   324                       
00685/001   UNSUPPORTED SOFTWARE     CATALOG         P              UNSP:CATALOG                                                    
            5.0T3    73  UNSUPPORTED_SOFTWARE.CATA.P.001    1 LINE     68    6 PAGE UM   UNSP                JULY 03, 1981  17:54:35
            5.0T6   325  UNSP:CATALOG         
0          LIST OF UNSP FILES AVAILABLE AT UM.  NOTE:  NOT ALL OF THE ITEMS IN THIS LIST ARE
           INCLUDED IN THE DISTRIBUTION.
00685/002   UNSUPPORTED SOFTWARE     SUBR LIBRARY    OL  O          UNSP:LIBRARY                                                    
            5.0T3    74  UNSUPPORTED_SOFTWARE.SUBR.OL.002   1 LINE   1382    3 PAGE UM   UNSP                AUG. 06, 1981  05:18:10
            5.0T6   326  UNSP:LIBRARY         
0          SUBROUTINE LIBRARY -- ROUTINES INCLUDED SEPARATELY.
0          Referenced by comments of: 108/1, 528/62, 642/6, 642/25, 685/7, 688/2, 689/2, 695/2, 765/1, 773/3, 774/3, 783/14,
                 784/3, 785/2, 785/3, 796/2, 796/5, 797/2, 1052/2 
00685/003   UNSUPPORTED SOFTWARE     MACRO LIBRARY   SM  G          UNSP:MACLIB                                                     
            5.0T3    75  UNSUPPORTED_SOFTWARE.MACR.SM.003   1 LINE     72    5 PAGE UM   UNSP      MTA       JULY 03, 1981  17:54:39
            5.0T6   327  UNSP:MACLIB          
0          MACRO LIBRARY CONTAINING CLCL, MVCL, AND SEXIT MACROS AMONG OTHERS. THESE
           MACROS ARE DESCRIBED IN THE (685/4) WRITEUP.
1                                                                                               MON AUG 05/96   18:37:45   Page  467
0  Num   R       Component Name         Subname     Type G Seq ID 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: 590/14, 590/15, 590/16, 590/17, 590/18, 590/19, 590/20, 590/21, 590/26, 685/4 
00685/004   UNSUPPORTED SOFTWARE     MACRO LIBRARY   WF             S1153 UNSP VLO FSNAME=MACLIB.F                                  
            5.0T3    76  UNSUPPORTED_SOFTWARE.MACR.WF.004   1 LINE     72    4 PAGE UM   UNSP      MTA       JAN. 15, 1979  15:28:38
            5.0T6   328                       
0          A WRITEUP DESCRIBING THE MACROS THAT ARE AVAILABLE IN UNSP:MACLIB (685/3).
0          Referenced by comments of: 685/3, 728/1 
00685/005   UNSUPPORTED SOFTWARE     MACRO TEST PGM  SA             S0938 FSAVE2 VLO FSNAME=MIFMACTEST                              
            5.0T3    77  UNSUPPORTED_SOFTWARE.MACR.SA.005   1 LINE     72    2 PAGE UM   UNSP      MTA       NOV. 02, 1979  23:04:04
            5.0T6   329                       
0          TEST PROGRAM FOR "MIF" MACROS.  COPIES COPY:GLOBALS (1026/3). ASSEMBLE,
           BUT DON'T RUN IT.
00685/006   UNSUPPORTED SOFTWARE     NEWS            P              UNSP:NEWS                                                       
            5.0T3    78  UNSUPPORTED_SOFTWARE.NEWS.P.006    1 LINE     69   14 PAGE UM   UNSP                JULY 03, 1981  17:56:01
            5.0T6   330                       
0          LIST OF MOST CHANGES MADE TO UNSUPPORTED SOFTWARE AT UM.
00685/007A  UNSUPPORTED SOFTWARE     SUBR LIBRARY    P              UNSP:LIBRARY.W                                                  
            5.0T3    79  UNSUPPORTED_SOFTWARE.SUBR.P.007    1 LINE     73    1 PAGE UM   UNSP                JULY 03, 1981  17:56:03
            5.0T6   331                       
0          A WRITEUP FOR UNSP:LIBRARY (685/2).
00686/001A  MICRO CROSS-ASSEMBLER    GENCODE         SA  G          MINI:ASM.GENCODE                                                
            5.0T3    80  MICRO_CROSS-ASSEMBLER.GEN.SA.001   1 LINE     72  111 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:04
            5.0T6   332                       
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. Z80ASR IS A CROSS-ASSEMBLER FOR THE ZILOG Z80 MICROPROCESSOR.
           M6809ASR IS A CROSS-ASSEMBLER FOR THE MOTOROLA 6809 MICROPROCESSOR. THESE
           WERE ORIGINALLY WRITTEN BY CLARK LUBBERS AT UM.
            
           NOTE: ALL SUBCOMPONENTS OF (686) SHOULD BE ASSEMBLED USING *ASMH (737),
           COPY:CC.MACROS (1054/3), MINI:ASM.MACRO (686/21), AND *SYSMAC WITH
           PAR=PEXIT=*PEXIT (775).
            
           THIS SUBCOMPONENT IS THE GENERAL SYSTEM- AND ASSEMBLER-INDEPENDENT CODE.
           COPIES (686/20).
            
           *****************************************************************************
           D5.0 version:
            
           No further work has been done on the UNSP versions since they were last
           distributed and no further work will be done. This distribution contains the
           new GENASM versions of the cross-assemblers which are in MTS public files and
           are documented in (686/34) and (686/35). All Micro Cross-Assembler
1                                                                                               MON AUG 05/96   18:37:45   Page  468
0  Num   R       Component Name         Subname     Type G Seq ID 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          subcomponents which are assembler-independent are common in all cross-
           assembler public files. The specific assembler-dependent components differ
           among the public files.
           *****************************************************************************
0          Referenced by comments of: 686/1 
00686/002A  MICRO CROSS-ASSEMBLER    KWIC            SA  G          MINI:ASM.RMKWIC                                                 
            5.0T3    81  MICRO_CROSS-ASSEMBLER.KWI.SA.002   1 LINE     72   13 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:12
            5.0T6   333                       
0          SYSTEM- AND ASSEMBLER-INDEPENDENT KEYWORD SCANNER ROUTINE.
00686/003A  MICRO CROSS-ASSEMBLER    SYMTAB          SA  G          MINI:ASM.RMSYM                                                  
            5.0T3    82  MICRO_CROSS-ASSEMBLER.SYM.SA.003   1 LINE     81   13 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:14
            5.0T6   334                       
0          SYSTEM- AND ASSEMBLER-INDEPENDENT SYMBOL TABLE ROUTINES.
00686/004A  MICRO CROSS-ASSEMBLER    SYSCODE         SA  G          MINI:ASM.SYSCODE                                                
            5.0T3    83  MICRO_CROSS-ASSEMBLER.SYS.SA.004   1 LINE     72   20 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:15
            5.0T6   335                       
0          MTS-DEPENDENT, ASSEMBLER-INDEPENDENT CODE. COPIES (686/20).
00686/005A  MICRO CROSS-ASSEMBLER    MACROP          SA  G          MINI:ASM.MACROP                                                 
            5.0T3    84  MICRO_CROSS-ASSEMBLER.MAC.SA.005   1 LINE     78   64 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:17
            5.0T6   336                       
0          SYSTEM- AND ASSEMBLER-INDEPENDENT MACRO PROCESSOR.
            
0          Referenced by comments of: 686/33 
00686/006A  MICRO CROSS-ASSEMBLER    EVALEXP         SA  G          MINI:ASM.EVALEXP                                                
            5.0T3    85  MICRO_CROSS-ASSEMBLER.EVA.SA.006   1 LINE     71   28 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:27
            5.0T6   337                       
0          SYSTEM- AND ASSEMBLER-INDEPENDENT, ARITHMETIC/BOOLEAN, TABLE-DRIVEN EXPRESSION
           SCANNER. 
00686/007C  MICRO CROSS-ASSEMBLER    PROCCONS        SA  G          MINI:ASM.PROCCONS                                               
            5.0T3    86  MICRO_CROSS-ASSEMBLER.PRO.SA.007   1 LINE     71   18 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:29
            5.0T6   338                       
0          System-independent, assembler-independent table-driven, data-typed 
           constant evaluator.
0          Referenced by comments of: 686/32 
1                                                                                               MON AUG 05/96   18:37:45   Page  469
0  Num   R       Component Name         Subname     Type G Seq ID 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/008C  MICRO CROSS-ASSEMBLER    BLOCK7          SA  G          MINI:ASM.BLOCK7                                                 
            5.0T3    87  MICRO_CROSS-ASSEMBLER.BLO.SA.008   1 LINE     72    5 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:31
            5.0T6   339                       
0          System-independent, assembler-independent BLOCK LETTER support for the 
           BLOCK pseudo-op.
00686/009A  MICRO CROSS-ASSEMBLER    M6800I          SA  G          MINI:ASM.M6800I                                                 
            5.0T3    88  MICRO_CROSS-ASSEMBLER.M68.SA.009   1 LINE     72   24 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:32
            5.0T6   340                       
0          M6800 SYSTEM-INDEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
00686/010A  MICRO CROSS-ASSEMBLER    M6800MTS        SA  G          MINI:ASM.M6800MTS                                               
            5.0T3    89  MICRO_CROSS-ASSEMBLER.M68.SA.010   1 LINE     72    3 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:34
            5.0T6   341                       
0          M6800 MTS-DEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
00686/011A  MICRO CROSS-ASSEMBLER    M650XI          SA  G          MINI:ASM.M650XI                                                 
            5.0T3    90  MICRO_CROSS-ASSEMBLER.M65.SA.011   1 LINE     72   21 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:34
            5.0T6   342                       
0          MCS650X SYSTEM-INDEPENDENT, ASSEMBLER-INDEPENDENT CODE. COPIES (686/20).
00686/012A  MICRO CROSS-ASSEMBLER    M650XMTS        SA  G          MINI:ASM.M650XMTS                                               
            5.0T3    91  MICRO_CROSS-ASSEMBLER.M65.SA.012   1 LINE     72    3 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:36
            5.0T6   343                       
0          MCS650X MTS-DEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
00686/013A  MICRO CROSS-ASSEMBLER    I8080I          SA  G          MINI:ASM.I8080I                                                 
            5.0T3    92  MICRO_CROSS-ASSEMBLER.I80.SA.013   1 LINE     72   21 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:37
            5.0T6   344                       
0          I8080 SYSTEM-INDEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
00686/014A  MICRO CROSS-ASSEMBLER    I8080MTS        SA  G          MINI:ASM.I8080MTS                                               
            5.0T3    93  MICRO_CROSS-ASSEMBLER.I80.SA.014   1 LINE     72    3 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:39
            5.0T6   345                       
0          I8080 MTS-DEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
00686/015A  MICRO CROSS-ASSEMBLER    Z80I            SA  G          MINI:ASM.Z80I                                                   
            5.0T3    94  MICRO_CROSS-ASSEMBLER.Z80.SA.015   1 LINE     72   28 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:40
            5.0T6   346                       
0          Z80 SYSTEM-INDEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
00686/016A  MICRO CROSS-ASSEMBLER    Z80MTS          SA  G          MINI:ASM.Z80MTS                                                 
            5.0T3    95  MICRO_CROSS-ASSEMBLER.Z80.SA.016   1 LINE     72    3 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:43
            5.0T6   347                       
0          Z80 MTS-DEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
1                                                                                               MON AUG 05/96   18:37:45   Page  470
0  Num   R       Component Name         Subname     Type G Seq ID 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/017A  MICRO CROSS-ASSEMBLER    M6809I          SA  G          MINI:ASM.M6809I                                                 
            5.0T3    96  MICRO_CROSS-ASSEMBLER.M68.SA.017   1 LINE     72   29 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:44
            5.0T6   348                       
0          M6809 SYSTEM-INDEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
00686/018A  MICRO CROSS-ASSEMBLER    M6809MTS        SA  G          MINI:ASM.M6809MTS                                               
            5.0T3    97  MICRO_CROSS-ASSEMBLER.M68.SA.018   1 LINE     72    3 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:46
            5.0T6   349                       
0          M6809 MTS-DEPENDENT AND ASSEMBLER-DEPENDENT CODE. COPIES (686/20).
00686/019A  MICRO CROSS-ASSEMBLER    MESSAGES        M              ETC:GENASMERR                                                   
            5.0T3    98  MICRO_CROSS-ASSEMBLER.MES.M.019    1 LINE     74    4 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:47
            5.0T6   350  ETC:GENASMERR        
0          ERROR MESSAGES.
00686/020A  MICRO CROSS-ASSEMBLER    COPY SECTION    SA  G          MINI:ASM.DSECT                                                  
            5.0T3    99  MICRO_CROSS-ASSEMBLER.COP.SA.020   1 LINE     78   12 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:48
            5.0T6   351                       
0          Referenced by comments of: 686/1, 686/4, 686/9, 686/10, 686/11, 686/12, 686/13, 686/14, 686/15, 686/16, 686/17,
                 686/18 
00686/021A  MICRO CROSS-ASSEMBLER    MACRO LIB       SM  G          MINI:ASM.MACRO                                                  
            5.0T3   100  MICRO_CROSS-ASSEMBLER.MAC.SM.021   1 LINE     72    4 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:49
            5.0T6   352                       
0          Referenced by comments of: 686/1 
00686/022A  MICRO CROSS-ASSEMBLER    M6800ASR        OE  G          *M6800ASR                                                       
            5.0T3   101  MICRO_CROSS-ASSEMBLER.M68.OE.022   1 LINE  32767   19 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:50
            5.0T6   353  *M6800ASR            
0          OBJECT FOR MOTOROLA M6800 MICROPROCESSOR CROSS-ASSEMBLER.
0          Referenced by comments of: 686/27 
00686/023A  MICRO CROSS-ASSEMBLER    MCS650ASR       OE  G          *MCS650XASR                                                     
            5.0T3   102  MICRO_CROSS-ASSEMBLER.MCS.OE.023   1 LINE  32767   18 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:52
            5.0T6   354  *MCS650XASR          
0          OBJECT FOR MCS TECHNOLOGY 6500 SERIES MICROCOMPUTERS CROSS-ASSEMBLER.
0          Referenced by comments of: 686/28 
00686/024A  MICRO CROSS-ASSEMBLER    I8080ASR        OE  G          *I8080ASR                                                       
            5.0T3   103  MICRO_CROSS-ASSEMBLER.I80.OE.024   1 LINE  32767   18 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:53
            5.0T6   355  *I8080ASR            
0          OBJECT FOR INTEL 8080 MICROCOMPUTER CROSS-ASSEMBLER.
0          Referenced by comments of: 686/29, 756/1, 756/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  471
0  Num   R       Component Name         Subname     Type G Seq ID 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/025A  MICRO CROSS-ASSEMBLER    Z80ASR          OE  G          *Z80ASR                                                         
            5.0T3   104  MICRO_CROSS-ASSEMBLER.Z80.OE.025   1 LINE  32767   19 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:55
            5.0T6   356  *Z80ASR              
0          OBJECT FOR ZILOG Z80 MICROPROCESSOR CROSS-ASSEMBLER.
0          Referenced by comments of: 686/30 
00686/026A  MICRO CROSS-ASSEMBLER    M6809ASR        OE  G          *M6809ASR                                                       
            5.0T3   105  MICRO_CROSS-ASSEMBLER.M68.OE.026   1 LINE  32767   19 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:56
            5.0T6   357  *M6809ASR            
0          OBJECT FOR MOTOROLA M6809 MICROCOMPUTER CROSS-ASSEMBLER.
0          Referenced by comments of: 686/31 
00686/027C  MICRO CROSS-ASSEMBLER    M6800TEST       S   G          MINI:M6801ASRTEST                                               
            5.0T3   106  MICRO_CROSS-ASSEMBLER.M68.S.027    1 LINE     68    7 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:58
            5.0T6   358                       
0          Test program for *M6800ASR (686/22).  To test the M6800 operation, nothing
           special is required.  To test the M6801 operation, *M6800ASR must be run
           with PAR=6801.
00686/028C  MICRO CROSS-ASSEMBLER    MCS650XTEST     S   G          MINI:M650XASRTEST                                               
            5.0T3   107  MICRO_CROSS-ASSEMBLER.MCS.S.028    1 LINE     68    7 PAGE UM   FRONCZAK            JULY 03, 1981  17:56:59
            5.0T6   359                       
0          Test program for *MCS650XASR (686/23).
00686/029C  MICRO CROSS-ASSEMBLER    I8080TEST       S   G          MINI:I8080ASRTEST                                               
            5.0T3   108  MICRO_CROSS-ASSEMBLER.I80.S.029    1 LINE     68    6 PAGE UM   FRONCZAK            JULY 03, 1981  17:57:00
            5.0T6   360                       
0          Test program for *I8080ASR (686/24).
00686/030C  MICRO CROSS-ASSEMBLER    Z80TEST         S   G          MINI:Z80ASRTEST                                                 
            5.0T3   109  MICRO_CROSS-ASSEMBLER.Z80.S.030    1 LINE     72   24 PAGE UM   FRONCZAK            JULY 03, 1981  17:57:01
            5.0T6   361                       
0          Test program for *Z80ASR (686/25).
00686/031C  MICRO CROSS-ASSEMBLER    M6809TEST       S   G          MINI:M6809ASRTEST                                               
            5.0T3   110  MICRO_CROSS-ASSEMBLER.M68.S.031    1 LINE     71    9 PAGE UM   FRONCZAK            JULY 03, 1981  17:57:04
            5.0T6   362                       
0          Test program for *M6809ASR (686/26).
00686/032C  MICRO CROSS-ASSEMBLER    CON-TEST        SA  G          MINI:DCSTEST                                                    
            5.0T3   111  MICRO_CROSS-ASSEMBLER.CON.SA.032   1 LINE     73    6 PAGE UM   FRONCZAK            JULY 03, 1981  17:57:05
            5.0T6   363                       
0          Assembler-independent test program for the constant processor, PROCCONS
           (686/7).
1                                                                                               MON AUG 05/96   18:37:45   Page  472
0  Num   R       Component Name         Subname     Type G Seq ID 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/033C  MICRO CROSS-ASSEMBLER    MACROTEST       SA  G          MINI:MACTEST                                                    
            5.0T3   112  MICRO_CROSS-ASSEMBLER.MAC.SA.033   1 LINE     68    7 PAGE UM   FRONCZAK            JULY 03, 1981  17:57:06
            5.0T6   364                       
0          *M6809ASR-dependent test program for the macro processor (686/5).
00686/034A  MICRO CROSS-ASSEMBLER    MANUAL          WF             MINI:ASM.MAN                                                    
            5.0T3   113  MICRO_CROSS-ASSEMBLER.MAN.WF.034   1 LINE     97   40 PAGE UM   FRONCZAK            JULY 03, 1981  17:57:07
            5.0T6   365                       
0          MANUAL FOR USAGE OF MICRO PROCESSOR CROSS-ASSEMBLERS.
            
           *****************************************************************************
           D5.0 version:
            
           The manual is up-to-date as of this distribution.
           *****************************************************************************
0          Referenced by comments of: 686/1, 686/35 
00686/035C  MICRO CROSS-ASSEMBLER    MEMO 422        WF             W098:M422SOURCE                                                 
            5.0T3   114  MICRO_CROSS-ASSEMBLER.MEM.WF.035   1 LINE     97   37 PAGE UM   FRONCZAK            JULY 03, 1981  18:06:51
            5.0T6   366                       
0          This is Computing Center Memo 422 -- "MTS Microprocessor Cross-Assemblers
           User's Guide." It does not reflect all features documented in (686/34).
0          Referenced by comments of: 686/1 
00686/036C  MICRO CROSS-ASSEMBLER    MEMO 423        PF             W098:M423OUTPUT                                                 
            5.0T3   115  MICRO_CROSS-ASSEMBLER.MEM.PF.036   1 LINE     71   50 PAGE UM   FRONCZAK            JULY 03, 1981  18:06:55
            5.0T6   367                       
0          This is Computing Center Memo 423 -- "Zilog Z-80 and TDL Mnemonics."
00686/037C  MICRO CROSS-ASSEMBLER    PMF PROJ FILE   D   G          MINI:PMF_XASM                                                   
            5.0T3   116  MICRO_CROSS-ASSEMBLER.PMF.D.037    1 LINE    195    4 PAGE UM   FRONCZAK            JULY 03, 1981  18:06:59
            5.0T6   368                       
0          PMF (810) project file which facilitates management of all the
           cross-assemblers.  The PMF command "DESCRIBE PROJECT FULLY IN DEPTH" will
           explain the organization.
00687/001   PAR SUBR                                 SA  O          S0683 OGDEN FSNAME=PAR.S                                        
            5.0T3   117  PAR_SUBR..SA.001                   1 LINE     72    1 PAGE UM   OGDEN               MAR. 23, 1978  15:53:44
            5.0T6   369                       
0          SUBROUTINE TO GIVE FORTRAN USERS ACCESS TO THE $RUN PAR STRING.
0          Referenced by comments of: 540/17, 3024/31 
1                                                                                               MON AUG 05/96   18:37:45   Page  473
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00687/002   PAR SUBR                                 OC  O        # (PART OF *LIBRARY)                                              
                                                                                    UM   OGDEN                                      
0          Object part of *LIBRARY (524/1)
00688/001   TRAP SUBR                                SA  O  TRAP    S1153 UNSP VLO FSNAME=TRAP.S                                    
            5.0T3   118  TRAP_SUBR..SA.001                  1 LINE     80    6 PAGE UM   UNSP                OCT. 28, 1975  23:42:21
            5.0T6   370                       
0          EXPANDED VERSION OF UBC'S TRAP ROUTINE WHICH ALLOWS FORTRAN USERS TO FIELD
           PROGRAM INTERRUPTS.
0          Referenced by comments of: 689/1 
00688/002   TRAP SUBR                                OC  O        # (PART OF UNSP:LIBRARY)                                          
                                                                                    UM   UNSP                                       
0          Part of UNSP:LIBRARY (685/2).
00688/003A  TRAP SUBR                                WF             S1153 UNSP VLO FSNAME=PROGTRAP.FMT                              
            5.0T3   119  TRAP_SUBR..WF.003                  1 LINE     71    3 PAGE UM   UNSP                SEP. 15, 1980  16:43:37
            5.0T6   371                       
00689/001   ATRAP SUBR                               SA  O  ATRA    S1153 UNSP VLO FSNAME=ATRAP.S                                   
            5.0T3   120  ATRAP_SUBR..SA.001                 1 LINE     80    5 PAGE UM   UNSP                MAR. 23, 1976  12:19:34
            5.0T6   372                       
0          SIMILAR TO THE TRAP SUBROUTINE (688), BUT ALLOWS FORTRAN USERS TO FIELD
           ATTENTION INTERRUPTS.
0          Referenced by comments of: 540/17 
00689/002   ATRAP SUBR                               OC  O        # (PART OF UNSP:LIBRARY)                                          
                                                                                    UM   UNSP                                       
0          Part of UNSP:LIBRARY (685/2).
00689/003A  ATRAP SUBR                               WF             S1153 UNSP VLO FSNAME=ATTNTRAP.FMT                              
            5.0T3   121  ATRAP_SUBR..WF.003                 1 LINE     71    3 PAGE UM   UNSP                SEP. 15, 1980  16:23:39
            5.0T6   373                       
00690/001   DISASM                                   SA  S  DASM    S1153 UNSP VLO FSNAME=DISASM.S                                  
            5.0T3   122  DISASM..SA.001                     1 LINE     80  147 PAGE UM   UNSP                APR. 15, 1976  01:14:16
            5.0T6   374                       
0          A DISASSEMBLER FROM THE IBM/SHARE CONTRIBUTED PROGRAM LIBRARY (360D-05.3.001)
           VIA UQV.  MODIFIED BY UM.  ASSEMBLE USING *SYSMAC.
00690/002   DISASM                                   OE  S          UNSP:DISASM                                                     
            5.0T3   123  DISASM..OE.002                     1 LINE   3364   16 PAGE UM   UNSP                JULY 03, 1981  18:10:51
            5.0T6   375  UNSP:DISASM          
1                                                                                               MON AUG 05/96   18:37:45   Page  474
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00690/003A  DISASM                                   P              UNSP:DISASM.W                                                   
            5.0T3   124  DISASM..P.003                      1 LINE     67    1 PAGE UM   UNSP                JULY 03, 1981  18:10:52
            5.0T6   376                       
0          VOLUME 3-TYPE USER WRITEUP.
00690/004   DISASM                                   P              S0565 D4T3 VLO FSNAME=DISASM.NOTES.P.003(1)                  140
            5.0T3   125  DISASM..P.004                      1 LINE     61    1 PAGE UM   UNSP                JULY 09, 1976  12:03:21
            5.0T6   377                       
0          NOTES ON THE INTERNALS OF DISASM.
00691/001   PFILES                                                # (OBSOLETE)                                                      
            D4T3    141                                                             UM                                              
0          Obsoleted by $FILESTATUS command.
00692/001   SPELER SUBR                                           # (OBSOLETE)                                                      
            D4T3    143  SPELER_SUBR..SA.001                1 LINE     80    5 PAGE UBC                      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.
00693/001A  TAPEDRIVES                               SA  G  TDRI    S1153 UNSP VLO FSNAME=TAPEDRIVES.S                              
            5.0T3   126  TAPEDRIVES..SA.001                 1 LINE     80    6 PAGE UBC            UNSP      JAN. 21, 1981  18:53:43
            5.0T6   378                       
0          PROGRAM TO PRINT THE NUMBER OF FREE 7- AND 9-TRACK TAPE DRIVES, AND THE
           NUMBER OF JOBS IN THE TAPE QUEUE. COPIES COPY:GLOBALS+COPY:LLMPSEQU,
           COMPONENTS (1026/3) AND (087), RESPECTIVELY.
            
           ****************************************************************************
           D5.0 CHANGES:
            
           Changed to print the number of users in the tape queue.
           ****************************************************************************
0          Referenced by comments of: 806/1 
00693/002A  TAPEDRIVES                               OE  G          UNSP:TAPEDRIVES                                                 
            5.0T3   127  TAPEDRIVES..OE.002                 1 LINE    915    1 PAGE UBC            UNSP      JULY 03, 1981  18:11:34
            5.0T6   379  UNSP:TAPEDRIVES      
00693/003   TAPEDRIVES               *TPS            C              *TPS                                                            
            5.0T3   128  TAPEDRIVES.*TPS.C.003              1 LINE     33    1 PAGE UBC            UNSP      JULY 03, 1981  18:11:35
            5.0T6   380  *TPS                 
0          OPERATOR FILE TO RUN UNSP:TAPEDRIVES.  INVOKED BY ENTERING "MTS *TPS"
           ON OPERATORS CONSOLE.
1                                                                                               MON AUG 05/96   18:37:45   Page  475
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00693/004A  TAPEDRIVES                               P              UNSP:TAPEDRIVES.W                                               
            5.0T3   129  TAPEDRIVES..P.004                  1 LINE     67    1 PAGE UBC            UNSP      JULY 03, 1981  18:11:35
            5.0T6   381                       
00694/001   DOC                                      SF  O  DOC     S1153 UNSP VLO FSNAME=DOC.S                                     
            5.0T3   130  DOC..SF.001                        1 LINE     80    5 PAGE UM   UNSP                OCT. 03, 1975  16:46:13
            5.0T6   382                       
0          A PROGRAM TO HELP PRODUCE PROGRAM AND SUBROUTINE DOCUMENTATION.
0          Referenced by comments of: 694/3, 694/4, 694/5 
00694/002   DOC                                      OE  O          UNSP:DOC                                                        
            5.0T3   131  DOC..OE.002                        1 LINE   2002    3 PAGE UM   UNSP                JULY 03, 1981  18:11:53
            5.0T6   383  UNSP:DOC             
00694/003   DOC                      DOCCOM          D              UNSP:DOCCOM                                                     
            5.0T3   132  DOC.DOCCOM.D.003                   1 LINE     35    1 PAGE UM   UNSP                JULY 03, 1981  18:11:53
            5.0T6   384  UNSP:DOCCOM          
0          A DATA FILE REFERENCED BY (694/1).
00694/004   DOC                      DOCCOM2         D              UNSP:DOCCOM2                                                    
            5.0T3   133  DOC.DOCCOM2.D.004                  1 LINE     31    1 PAGE UM   UNSP                JULY 03, 1981  18:11:54
            5.0T6   385  UNSP:DOCCOM2         
0          A DATA FILE WHICH CAN BE USED WITH (694/1).
00694/005   DOC                      DOCCOM3         D              UNSP:DOCCOM3                                                    
            5.0T3   134  DOC.DOCCOM3.D.005                  1 LINE     31    1 PAGE UM   UNSP                JULY 03, 1981  18:11:55
            5.0T6   386  UNSP:DOCCOM3         
0          A DATA FILE WHICH CAN BE USED WITH (694/1).
00694/006A  DOC                                      WF             S1153 UNSP VLO FSNAME=DOC.FMT                                   
            5.0T3   135  DOC..WF.006                        1 LINE     90    3 PAGE UM   UNSP                SEP. 15, 1980  16:42:49
            5.0T6   387                       
00695/001   SNOOP                    SUBR            SF  G  SNOO    S1153 UNSP VLO FSNAME=SNOOP.S                                   
            5.0T3   136  SNOOP.SUBR.SF.001                  1 LINE     80    3 PAGE UM   UNSP                JAN. 13, 1976  11:28:21
            5.0T7     1                       
0          THIS SUBROUTINE IS CALLED (EITHER DIRECTLY OR VIA CSNOOP) BY MOST OF THE UM
           "UNSUPPORTED" SOFTWARE COMPONENTS TO RECORD PROGRAM USAGE STATISTICS.
00695/002   SNOOP                    SUBR            OC  G        # (PART OF UNSP:LIBRARY)                                          
                                                                                    UM   UNSP                                       
0          Part of UNSP:LIBRARY (685/2).
1                                                                                               MON AUG 05/96   18:37:45   Page  476
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00695/003A  SNOOP                    WRITEUP         WF  G          S1153 UNSP VLO FSNAME=SNOOP.FMT                                 
            5.0T3   137  SNOOP.WRITEUP.WF.003               1 LINE     66    1 PAGE UM   UNSP                SEP. 15, 1980  16:43:41
            5.0T7     2                       
00695/004A  SNOOP                    CSNOOP          SA  O  CSNO    S1153 UNSP VLO FSNAME=CSNOOP.S                                  
            5.0T3   138  SNOOP.CSNOOP.SA.004                1 LINE     80    1 PAGE UM   UNSP                JUNE 21, 1976  13:03:43
            5.0T7     3                       
0          A "MAIN" PROGRAM WHICH CALLS THE SNOOP SUBROUTINE AND THEN CALLS THE REAL
           MAIN PROGRAM.
0          Referenced by comments of: 807/2 
00695/005A  SNOOP                    CSNOOP          OC  O          UNSP:CSNOOP.O                                                   
            5.0T3   139  SNOOP.CSNOOP.OC.005                1 LINE     80    1 PAGE UM   UNSP                JULY 03, 1981  18:13:09
            5.0T7     4  UNSP:CSNOOP.O        
0          Referenced by comments of: 772/2, 773/3 
00696/001   CDCEBCD                                  SA  O  CDCE    S1153 UNSP VLO FSNAME=CDCEBCD.S                                 
            5.0T3   140  CDCEBCD..SA.001                    1 LINE     80    5 PAGE UM   UNSP                JULY 14, 1977  21:18:49
            5.0T7     5                       
0          PROGRAM TO DEBLOCK CDC 6000 SERIES 7-TRACK SCOPE CODED TAPES AND CONVERT THE
           DATA FROM CDC "CONSOLE DISPLAY CODE" INTO EBCDIC. COPIES *SENSEDSECT (3025).
00696/002   CDCEBCD                                  OC  O          UNSP:CDCEBCD                                                    
            5.0T3   141  CDCEBCD..OC.002                    1 LINE     80    3 PAGE UM   UNSP                JULY 03, 1981  18:13:11
            5.0T7     6  UNSP:CDCEBCD         
00696/003A  CDCEBCD                                  WF             S1153 UNSP VLO FSNAME=CDCEBCD.FMT                               
            5.0T3   142  CDCEBCD..WF.003                    1 LINE     68    1 PAGE UM   UNSP                SEP. 15, 1980  16:42:42
            5.0T7     7                       
00697/001   SIGFILE                                  SF  G  SIGF    S1153 UNSP VLO FSNAME=SIGFILE.S                                 
            5.0T3   143  SIGFILE..SF.001                    1 LINE     80    4 PAGE UM   UNSP                JULY 14, 1977  21:18:46
            5.0T7     8                       
0          A PROGRAM, SOMEWHAT LIKE UBC'S PROFILE PROGRAM, WHICH IS DESIGNED TO BE RUN
           FROM SIGFILES.
00697/002   SIGFILE                                  OE  G          UNSP:SIGFILE                                                    
            5.0T3   144  SIGFILE..OE.002                    1 LINE   4632    3 PAGE UM   UNSP                JULY 03, 1981  18:13:47
            5.0T7     9  UNSP:SIGFILE         
00698/001   LIST                                                  # (OBSOLETE)                                                      
            D4T3    158  LIST..SF.001                       1 LINE     80    3 PAGE UM                       JULY 02, 1977  12:29:01
            D4T7    158                       
0          Obsoleted by LISTER (774).
1                                                                                               MON AUG 05/96   18:37:45   Page  477
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00699/001   FTNREP                                   SA  O  FTNR    S1153 UNSP VLO FSNAME=FTNREP.S                                  
            5.0T3   145  FTNREP..SA.001                     1 LINE     80    4 PAGE UM   UNSP                DEC. 01, 1976  22:00:25
            5.0T7    10                       
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).
0          Referenced by comments of: 700/1 
00699/002   FTNREP                                   OE  O          UNSP:FTNREP                                                     
            5.0T3   146  FTNREP..OE.002                     1 LINE   1382    3 PAGE UM   UNSP                JULY 03, 1981  18:13:49
            5.0T7    11  UNSP:FTNREP          
00699/003A  FTNREP                                   WF             S1153 UNSP VLO FSNAME=FTNREP.FMT                                
            5.0T3   147  FTNREP..WF.003                     1 LINE     82    2 PAGE UM   UNSP                SEP. 15, 1980  16:43:01
            5.0T7    12                       
00700/001   OBJREP                                   SA  O  OBJR    S1153 UNSP VLO FSNAME=OBJREP.S                                  
            5.0T3   148  OBJREP..SA.001                     1 LINE     80   16 PAGE UM   UNSP                OCT. 03, 1975  16:46:40
            5.0T7    13                       
0          AN OBJECT FILE EDITOR/UPDATER WHICH IS LINKED TO BY FTNREP (699) OR CAN BE RUN
           DIRECTLY.  NO WRITEUP IS AVAILABLE.
0          Referenced by comments of: 699/1 
00700/002   OBJREP                                   OE  O          UNSP:FTNRE*                                                     
            5.0T3   149  OBJREP..OE.002                     1 LINE   4358    3 PAGE UM   UNSP                JULY 03, 1981  18:14:29
            5.0T7    14  UNSP:FTNRE*          
00701/001   ECMD                                     SF  O  ECMD    S1153 UNSP VLO FSNAME=ECMD.S                                    
            5.0T3   150  ECMD..SF.001                       1 LINE     80   17 PAGE UM   UNSP                JULY 02, 1977  12:23:42
            5.0T7    15                       
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).
00701/002   ECMD                     FSTARTNS SUBR   SA  O  FSTA    S1153 UNSP VLO FSNAME=FSTARTN.S                                 
            5.0T3   151  ECMD.FSTARTNS_SUBR.SA.002          1 LINE     80   18 PAGE UM   UNSP                JULY 10, 1976  17:44:16
            5.0T7    16                       
0          ROUTINES TAKEN FROM $FILESTATUS TO SCAN FILE CATALOG FOR PARTIAL FILENAMES.
0          Referenced by comments of: 701/1 
00701/003   ECMD                                     OE  O          UNSP:ECMD                                                       
            5.0T3   152  ECMD..OE.003                       1 LINE  12684    7 PAGE UM   UNSP                JULY 03, 1981  18:14:32
            5.0T7    17  UNSP:ECMD            
00701/004A  ECMD                                     WF             S1153 UNSP VLO FSNAME=ECMD.FMT                                  
            5.0T3   153  ECMD..WF.004                       1 LINE    135    3 PAGE UM   UNSP                SEP. 15, 1980  16:42:51
            5.0T7    18                       
1                                                                                               MON AUG 05/96   18:37:45   Page  478
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00702/001   MCCTOCC                                  SA  G  MCCT    S1153 UNSP VLO FSNAME=MCCTOCC.S                                 
            5.0T3   154  MCCTOCC..SA.001                    1 LINE     80    3 PAGE UM   UNSP                SEP. 30, 1975  11:00:22
            5.0T7    19                       
0          PROGRAM TO CONVERT MACHINE CARRIAGE CONTROL TO LOGICAL CARRIAGE CONTROL.
00702/002   MCCTOCC                                  OE  G          UNSP:MCCTOCC                                                    
            5.0T3   155  MCCTOCC..OE.002                    1 LINE   1382    3 PAGE UM   UNSP                JULY 03, 1981  18:15:10
            5.0T7    20  UNSP:MCCTOCC         
00702/003A  MCCTOCC                                  WF             S1153 UNSP VLO FSNAME=MCCTOCC.FMT                               
            5.0T3   156  MCCTOCC..WF.003                    1 LINE     72    1 PAGE UM   UNSP                SEP. 15, 1980  16:43:30
            5.0T7    21                       
00703/001   DIGLIB                   PERSYS          SF  G  PERS    S1153 UNSP VLO FSNAME=PERSYS.S                                  
            5.0T3   157  DIGLIB.PERSYS.SF.001               1 LINE     80   16 PAGE UM   UNSP                AUG. 30, 1976  15:52:15
            5.0T7    22                       
0          DIGLIB IS A LIBRARY OF DEVICE INDEPENDENT GRAPHICS (DIG) SUBROUTINES. 
            
           THE PERSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING
           A TWO-DIMENSIONAL VIEW OF A THREE-DIMENSIONAL SURFACE.
00703/002   DIGLIB                   PERSYS WRITEUP  WF  G          S1153 UNSP VLO FSNAME=PERSYS.F                                  
            5.0T3   158  DIGLIB.PERSYS_WRITEUP.WF.002       1 LINE    195   15 PAGE UM   UNSP                AUG. 30, 1976  15:52:33
            5.0T7    23                       
0          CONTAINS A "$CONTINUE WITH PERSYS.S(---)" RECORD.
00703/003   DIGLIB                   CONSYS          SF  G  CONS    S1153 UNSP VLO FSNAME=CONSYS.S                                  
            5.0T3   159  DIGLIB.CONSYS.SF.003               1 LINE     80   18 PAGE UM   UNSP                AUG. 30, 1976  15:51:52
            5.0T7    24                       
0          THE CONSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING
           A CONTOUR MAP.
00703/004   DIGLIB                   CONSYS WRITEUP  WF  G          S1153 UNSP VLO FSNAME=CONSYS.F                                  
            5.0T3   160  DIGLIB.CONSYS_WRITEUP.WF.004       1 LINE    221   17 PAGE UM   UNSP                AUG. 30, 1976  23:21:01
            5.0T7    25                       
0          CONTAINS A "$CONTINUE WITH CONSYS.S(---)" RECORD.
00703/005   DIGLIB                   OBJECT LIB      OL  G          UNSP:DIGLIB                                                     
            5.0T3   161  DIGLIB.OBJECT_LIB.OL.005           1 LINE   5024    7 PAGE UM   UNSP                JULY 03, 1981  18:16:07
            5.0T7    26  UNSP:DIGLIB          
00703/006A  DIGLIB                                   WF             S1153 UNSP VLO FSNAME=DIGLIB.FMT                                
            5.0T3   162  DIGLIB..WF.006                     1 LINE     67    1 PAGE UM   UNSP                SEP. 15, 1980  16:42:45
            5.0T7    27                       
1                                                                                               MON AUG 05/96   18:37:45   Page  479
0  Num   R       Component Name         Subname     Type G Seq ID 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/001   11PAL                    SIMULATOR       SA     SIMU    S1153 UNSP VLO FSNAME=11SIMULATOR.S                             
            5.0T3   163  11PAL.SIMULATOR.SA.001             1 LINE     80   35 PAGE UNE            UNSP      MAY  17, 1977  21:55:21
            5.0T7    28                       
0          A PDP-11 ASSEMBLER AND SIMULATOR WHICH ORIGINALLY CAME FROM THE POLYTECHNIC
           INSTITUTE OF BROOKLYN (NEW YORK) -- ADAPTED FOR MTS BY UNE.
00704/002   11PAL                    ASSEMBLER       SA     ASSE    S1153 UNSP VLO FSNAME=11ASSEMBLER.S                             
            5.0T3   164  11PAL.ASSEMBLER.SA.002             1 LINE     80   63 PAGE UNE            UNSP      MAY  17, 1977  21:55:33
            5.0T7    29                       
00704/003   11PAL                    MONITOR         SA     MONI    S1153 UNSP VLO FSNAME=11MONITOR.S                               
            5.0T3   165  11PAL.MONITOR.SA.003               1 LINE     80   14 PAGE UNE            UNSP      OCT. 22, 1976  12:34:15
            5.0T7    30                       
00704/004   11PAL                    OBJECT          OE             UNSP:11PAL                                                      
            5.0T3   166  11PAL.OBJECT.OE.004                1 LINE  14130    9 PAGE UNE            UNSP      JULY 03, 1981  18:17:02
            5.0T7    31  UNSP:11PAL           
00704/005   11PAL                    WRITEUP         WF             S1153 UNSP VLO FSNAME=11PAL.F                                   
            5.0T3   167  11PAL.WRITEUP.WF.005               1 LINE     95   15 PAGE UNE            UNSP      OCT. 22, 1976  12:33:13
            5.0T7    32                       
00705/001   REPORT GENERATOR                                      # (NOT CURRENTLY DISTRIBUTED)                                     
                                                                                    UM                                              
00706/001A  SIMSCRIPT                SIM25 INSTALL   WF             S1153 UNSP VLO FSNAME=S25INSTALL.F                              
            5.0T3   168  SIMSCRIPT.SIM25_INSTALL.WF.001     1 LINE     71    3 PAGE UM   UNSP                FEB. 26, 1981  09:32:03
            5.0T7    33                       
0          INSTALLATION INSTRUCTIONS FOR THE CACI INC. SIMSCRIPT II.5 COMPILER, RELEASE
           8G, 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.  SOME OF THE FOLLOWING COMPONENTS ARE
           VERSIONS OF COPYRIGHTED CACI SOFTWARE CONVERTED FOR USE WITH MTS.
           WITHOUT PERMISSION FROM CACI INC. REDISTRIBUTION SHOULD BE LIMITED
           TO INSTALLATIONS RECEIVING DISTRIBUTIONS OF MTS. 
            
           ****************************************************************************
           D5.0 version:
            
           Changed to mention addition of (706/10) and (706/11).
           ****************************************************************************
00706/002   SIMSCRIPT                SIM25 SPCOMP    SA  G          S1153 UNSP VLO FSNAME=S25SPCOMP.S                               
            5.0T3   169  SIMSCRIPT.SIM25_SPCOMP.SA.002      1 LINE     80   12 PAGE UM   UNSP                JAN. 04, 1979  05:19:17
            5.0T7    34                       
0          MTS REPLACEMENTS FOR THE STANDARD CACI COMPILER ROUTINES ROPN AND RSET$R.
           ASSEMBLE WITH PAR=BATCH.
1                                                                                               MON AUG 05/96   18:37:45   Page  480
0  Num   R       Component Name         Subname     Type G Seq ID 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/003   SIMSCRIPT                SIM25 SPCOMP    OC  G          S1153 UNSP VLO FSNAME=S25SPCOMP                                 
            5.0T3   170  SIMSCRIPT.SIM25_SPCOMP.OC.003      1 LINE     80    5 PAGE UM   UNSP                JAN. 04, 1979  05:19:20
            5.0T7    35                       
00706/004   SIMSCRIPT                SIM25 SPLIB     SA  G          S1153 UNSP VLO FSNAME=S25SPLIB.S                                
            5.0T3   171  SIMSCRIPT.SIM25_SPLIB.SA.004       1 LINE     80   40 PAGE UM   UNSP                JAN. 04, 1979  05:19:22
            5.0T7    36                       
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          S1153 UNSP VLO FSNAME=S25SPLIB                                  
            5.0T3   172  SIMSCRIPT.SIM25_SPLIB.OC.005       1 LINE     80    9 PAGE UM   UNSP                JAN. 04, 1979  05:20:34
            5.0T7    37                       
00706/006   SIMSCRIPT                SIM25 INTERFAC  SA  G  S25I    S1153 UNSP VLO FSNAME=S25INTER.S                                
            5.0T3   173  SIMSCRIPT.SIM25_INTERFAC.SA.006    1 LINE     80   10 PAGE UM   UNSP                JAN. 04, 1979  05:20:57
            5.0T7    38                       
0          THE MTS TO OS INTERFACE ROUTINES THAT ARE ADDED TO THE STANDARD CACI RUN-TIME
           LIBRARY AND COMPILER ROUTINES.  ASSEMBLE WITH PAR=BATCH.  COPIES *GDINFODSECT 
           (594).
00706/007   SIMSCRIPT                SIM25 INTERFAC  OC  G          S1153 UNSP VLO FSNAME=S25INTER                                  
            5.0T3   174  SIMSCRIPT.SIM25_INTERFAC.OC.007    1 LINE     80    6 PAGE UM   UNSP                JAN. 04, 1979  05:21:07
            5.0T7    39                       
00706/008   SIMSCRIPT                SIM25 MAC       SM  G          S1153 UNSP VLO FSNAME=S25MAC                                    
            5.0T3   175  SIMSCRIPT.SIM25_MAC.SM.008         1 LINE     80   12 PAGE UM   UNSP                JAN. 04, 1979  05:21:19
            5.0T7    40                       
00706/009   SIMSCRIPT                SIM25 CACI COM  OC  G        # S1153 UNSP VLO FSNAME=S25CACICOMP                               
                                                                                    UM   UNSP                                       
0          OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G COMPILER AS
           DISTRIBUTED BY CACI.
0          Referenced by comments of: 706/10 
00706/010C  SIMSCRIPT                LIB PATCH       S   G          S1153 UNSP VLO FSNAME=S25UPLIB.S25                              
            5.0T3   176  SIMSCRIPT.LIB_PATCH.S.010          1 LINE     49    1 PAGE UM   UNSP                FEB. 26, 1981  09:49:00
            5.0T7    41                       
0          A replacement for the CACI subroutine RX$EV$S (a.k.a. X.EV.S) in (706/9).
           Note that the source will generate two object modules. One of these should be
           deleted.
0          Referenced by comments of: 706/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  481
0  Num   R       Component Name         Subname     Type G Seq ID 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/011C  SIMSCRIPT                LIB PATCH       O   G          S1153 UNSP VLO FSNAME=S25UPLIB.OBJ                              
            5.0T3   177  SIMSCRIPT.LIB_PATCH.O.011          1 LINE    272    1 PAGE UM   UNSP                FEB. 26, 1981  09:50:01
            5.0T7    42                       
0          Referenced by comments of: 706/1 
00706/012   SIMSCRIPT                SIM25 COMP      OE  G        # UNSP:SIM25                                                      
                                                                                    UM   UNSP                                       
0          LINKEDITED OBJECT FOR THE MTS VERSION OF THE RELEASE 8G COMPILER.
0          Referenced by comments of: 706/13 
00706/013   SIMSCRIPT                SIM25 MAP       P   G        # S1153 UNSP VLO FSNAME=S25MAP                                    
                                                                                    UM   UNSP                                       
0          MAP OUTPUT FROM *LINKEDIT (297) FOR (706/12).
00706/014   SIMSCRIPT                SIM25 CACI LIB  OC  G        # S1153 UNSP VLO FSNAME=S25CACILIB                                
                                                                                    UM   UNSP                                       
0          OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G RUN-TIME LIBRARY
           AS DISTRIBUTED BY CACI.
00706/015   SIMSCRIPT                SIM25 LIB       OL  G        # UNSP:SIM25LIB                                                   
                                                                                    UM   UNSP                                       
0          MTS VERSION OF THE RELEASE 8G RUN-TIME LIBRARY.
00706/016   SIMSCRIPT                SIM25 ERRMSGS   M              UNSP:SIM25ERR                                                   
            5.0T3   178  SIMSCRIPT.SIM25_ERRMSGS.M.016      1 LINE     79    4 PAGE UM   UNSP                JULY 03, 1981  18:18:42
            5.0T7    43  UNSP:SIM25ERR        
0          ERROR MESSAGE FILE FOR RELEASE 8G.
00706/017   SIMSCRIPT                SIM25 WRITEUP   WF             S1153 UNSP VLO FSNAME=SIM25.F                                   
            5.0T3   179  SIMSCRIPT.SIM25_WRITEUP.WF.017     1 LINE     69    3 PAGE UM   UNSP                JAN. 04, 1979  06:08:16
            5.0T7    44                       
00706/018   SIMSCRIPT                SIM25 TEST 1    S   G          S1153 UNSP VLO FSNAME=S2TEST1                                   
            5.0T3   180  SIMSCRIPT.SIM25_TEST_1.S.018       1 LINE     78    1 PAGE UM   UNSP                JAN. 09, 1979  12:28:22
            5.0T7    45                       
0          FIRST OF THREE SIMSCRIPT SOURCE TEST PROGRAMS. 
00706/019   SIMSCRIPT                SIM25 TEST 2    S   G          S1153 UNSP VLO FSNAME=S2TEST2                                   
            5.0T3   181  SIMSCRIPT.SIM25_TEST_2.S.019       1 LINE     68    1 PAGE UM   UNSP                JAN. 09, 1979  12:28:28
            5.0T7    46                       
00706/020   SIMSCRIPT                SIM25 TEST 3    S   G          S1153 UNSP VLO FSNAME=S2TEST3                                   
            5.0T3   182  SIMSCRIPT.SIM25_TEST_3.S.020       1 LINE     68    1 PAGE UM   UNSP                JAN. 09, 1979  12:28:33
            5.0T7    47                       
0          COMPILE WITH PAR=NEWIF.
1                                                                                               MON AUG 05/96   18:37:45   Page  482
0  Num   R       Component Name         Subname     Type G Seq ID 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/021C  SIMSCRIPT                SAMPLES         S   G          S1153 UNSP VLO FSNAME=S25SAMPLES1                               
            5.0T3   183  SIMSCRIPT.SAMPLES.S.021            1 LINE     80   22 PAGE UM   UNSP                FEB. 26, 1981  09:33:56
            5.0T7    48                       
0          This and the following two subcomponents contain many sample SIMSCRIPT
           programs. The documentation for these is in (706/24).
00706/022C  SIMSCRIPT                SAMPLES         S   G          S1153 UNSP VLO FSNAME=S25SAMPLES2                               
            5.0T3   184  SIMSCRIPT.SAMPLES.S.022            1 LINE     80    5 PAGE UM   UNSP                FEB. 26, 1981  09:34:11
            5.0T7    49                       
00706/023C  SIMSCRIPT                SAMPLES         S   G          S1153 UNSP VLO FSNAME=S25SAMPLES3                               
            5.0T3   185  SIMSCRIPT.SAMPLES.S.023            1 LINE     80   10 PAGE UM   UNSP                FEB. 26, 1981  09:34:18
            5.0T7    50                       
00706/024C  SIMSCRIPT                SAMPLES         P              S1153 UNSP VLO FSNAME=S25SAMPLES                                
            5.0T3   186  SIMSCRIPT.SAMPLES.P.024            1 LINE     82    3 PAGE UM   UNSP                FEB. 26, 1981  09:33:03
            5.0T7    51                       
0          Referenced by comments of: 706/21 
00707/001   RSCAN                                    SA  O          W030:RSCAN                                                      
            5.0T3   187  RSCAN..SA.001                      1 LINE     69   12 PAGE UM   LIFT                JULY 03, 1981  18:19:38
            5.0T7    52                       
0          PROGRAM TO PRINT MTS COMMANDS FOR JOBS BASED ON USER ID, JOB NUMBER, OR MTS
           COMMAND NAME FOR A SET OF TIME/DATE RANGES.
           COPIES COPY:CMDAREADSECT (531/19). ASSEMBLE USING COPY:MTS.MACROS (344/3). 
           RSCAN IS SLOWLY BEING REPLACE BY SCAN (753).
0          Referenced by comments of: 71/1, 707/3 
00707/002   RSCAN                    LISTCMD SUBR    SA  G          S0811 REBATE 'REBATES' FSNAME=LISTCMD                           
            5.0T3   188  RSCAN.LISTCMD_SUBR.SA.002          1 LINE     66    1 PAGE UM   LIFT                NOV. 28, 1977  20:57:17
            5.0T7    53                       
0          SUBROUTINE TO LIST CMDSTAT TYPE 1 (MTS COMMAND) RECORDS.
           COPIES COPY:CMDAREADSECT (531/19).
0          Referenced by comments of: 707/3 
00707/003   RSCAN                                    OC  O          W030:RSCANX                                                     
            5.0T3   189  RSCAN..OC.003                      1 LINE     80   10 PAGE UM   LIFT                JULY 03, 1981  18:19:43
            5.0T7    54                       
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                          
            5.0T3   190  RSCAN.WRITEUP.WF.004               1 LINE     94    3 PAGE UM   LIFT                JAN. 13, 1977  16:33:14
            5.0T7    55                       
0          PRELIMINARY WRITEUP DESCRIBING THE USE OF RSCAN.
1                                                                                               MON AUG 05/96   18:37:45   Page  483
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00708/001   CHARGE SUBR                              SA  G          S0565 D4T3 VLO FSNAME=CHARGE_SUBR..SA.001(1)                 206
            5.0T3   191  CHARGE_SUBR..SA.001                1 LINE     80    7 PAGE UM   ENGLE               JAN. 25, 1977  15:31:23
            5.0T7    56                       
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/72) AND COPY:RATEVEC (651/3).
00708/002   CHARGE SUBR                              OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   ENGLE                                      
0          Object part of Resident System (468)
00709/001   READBFR SUBR                             SA  G          S0565 D4T3 VLO FSNAME=READBFR_SUBR..SA.001(1)                208
            5.0T3   192  READBFR_SUBR..SA.001               1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  23:52:05
            5.0T7    57                       
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/34).
           COPIES *GDINFODSECT (594).
0          Referenced by comments of: 531/34, 621/4, 718/2 
00709/002   READBFR SUBR                             OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UM   MTA                                        
0          Object part of *LIBRARY (524/1)
00710/001   SQUASH                                                # (OBSOLETE)                                                      
            D4T3    209  SQUASH..SA.001                     1 LINE     80    6 PAGE UM                       JULY 28, 1977  23:52:07
0          Obsoleted by *OBJUTIL (721).
00711/001A  COMP CNTR PUBLICATIONS   MEMO LIST       P              *CCMEMOS                                                        
            5.0T3   193  COMP_CNTR_PUBLICATIONS.ME.P.001    1 LINE     70    3 PAGE UM   WOLFSON             JULY 03, 1981  18:19:55
            5.0T7    58  *CCMEMOS             
0          This is the list of current Computing Center Memos.
00711/002A  COMP CNTR PUBLICATIONS   COMP CNTR PUBS  P              *CCPUBLICATIONS                                                 
            5.0T3   194  COMP_CNTR_PUBLICATIONS.CO.P.002    1 LINE     70    2 PAGE UM   WOLFSON             JULY 03, 1981  18:19:56
            5.0T7    59  *CCPUBLICATIONS      
0          This is the list of current Computing Center publications.
00711/003   COMP CNTR PUBLICATIONS   INDEX FUNC      SA  O          S0791 FMTJNK 'FORMAT' FSNAME=INDEX                              
            5.0T3   195  COMP_CNTR_PUBLICATIONS.IN.SA.003   1 LINE     80    7 PAGE UM   LIFT                OCT. 10, 1977  11:14:23
            5.0T7    60                       
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, 711/6 
1                                                                                               MON AUG 05/96   18:37:45   Page  484
0  Num   R       Component Name         Subname     Type G Seq ID 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/004   COMP CNTR PUBLICATIONS   IND FUNC        SG  O          S0791 FMTJNK 'FORMAT' FSNAME=IND                                
            5.0T3   196  COMP_CNTR_PUBLICATIONS.IN.SG.004   1 LINE     80    4 PAGE UM   LIFT                OCT. 10, 1977  11:14:19
            5.0T7    61                       
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, 711/6 
00711/005   COMP CNTR PUBLICATIONS   NRIGHT FUNC     SF  G          S0791 FMTJNK 'FORMAT' FSNAME=NRIGHT                             
            5.0T3   197  COMP_CNTR_PUBLICATIONS.NR.SF.005   1 LINE     53    1 PAGE UM   LIFT                MAY  16, 1977  12:33:05
            5.0T7    62                       
0          *FORMAT NRIGHT "USER-DEFINED FUNCTION" USED IN UM PUBLICATIONS TO GO TO A RIGHT
           HAND PAGE, LEAVING A BLANK PAGE IF NECESSARY.
0          Referenced by comments of: 711/6 
00711/006   COMP CNTR PUBLICATIONS   FUNC LIB        OL  O          ETC:FORMFUN                                                     
            5.0T3   198  COMP_CNTR_PUBLICATIONS.FU.OL.006   1 LINE   1762    3 PAGE UM   LIFT                JULY 03, 1981  18:21:55
            5.0T7    63  ETC.:FORMFUN         
0          OBJECT LIBRARY OF *FORMAT "USER-DEFINED FUNCTIONS" (711/3), (711/4), AND
           (711/5).
0          Referenced by comments of: 461/22 
00711/007   COMP CNTR PUBLICATIONS   TXTF MACROS     WX             W278:MEMO.LAYOUT                                                
            5.0T3   199  COMP_CNTR_PUBLICATIONS.TX.WX.007   1 LINE    115    1 PAGE UM   LIFT                JULY 03, 1981  18:21:56
            5.0T7    64                       
0          Referenced by comments of: 756/4 
00712/001A *RESTORE                  MAIN PGM        SA  G          RSTR:RESTORE(1000)                                              
            5.0T3   200  RESTORE.MAIN_PGM.SA.001            1 LINE     72   13 PAGE UM   HELFFRICH           AUG. 06, 1981  05:24:44
            5.0T7    65  RSTR:RESTORE         
0          USER RUNNABLE PROGRAM TO RESTORE FILES SAVED BY THE SYSTEM ONLINE FILE SAVE
           PROGRAM (067).  CALLS AUTOREST (712/2), AND RSTFMT2 (092/3).  ASSEMBLE USING
           THE FILESAVE MACROS (067/31).  NOTE:  THE DIRECTORY FILES RSTR:FILEDIR.MAS,
           RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR ACCESSED BY THIS PROGRAM MUST BE 
           PERMITTED READ TO PKEY=*RESTORE, UNLIM TO RSTR, AND RW TO PKEY=DEADUCATDES.
            
           *********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           THIS VERSION FIXES A BUG WHICH CAUSED KWSCAN (040) PROMPT INFO NOT TO BE
           CONVERTED TO UPPER CASE.
           *********************************************************************************
0          Referenced by comments of: 67/1, 67/19, 92/3, 712/2, 712/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  485
0  Num   R       Component Name         Subname     Type G Seq ID 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/002A *RESTORE                  AUTOREST SUBR   SA  G          RSTR:AUTOREST(1000)                                             
            5.0T3   201  RESTORE.AUTOREST_SUBR.SA.002       1 LINE     72    6 PAGE UM   HELFFRICH           AUG. 06, 1981  05:25:04
            5.0T7    66  RSTR:AUTOREST        
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 WITH THE
           FILE SAVE MACROS (067/31).
            
           *******************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           THIS VERSION USES THE NEW MOUNT SUBROUTINE (101) TO MOUNT TAPES, AND
           FIXES A BUG IN ATTN HANDLING.
           *******************************************************************************
0          Referenced by comments of: 712/1, 712/3 
00712/003A *RESTORE                  OBJECT          OE  G          *RESTORE                                                        
            5.0T3   202  RESTORE.OBJECT.OE.003              1 LINE   7348    7 PAGE UM   HELFFRICH           AUG. 06, 1981  05:25:07
            5.0T7    67  RSTR:*RESTORE        
0          OBJECT FOR (712/1), (712/2), AND RSTFMT2 (092/3).  NOTE: THE PKEY FOR THIS FILE
           MUST BE *RESTORE.
0          Referenced by comments of: 712/4 
00712/004  *RESTORE                  *RES            C              *RES                                                            
            5.0T3   203  RESTORE.?RES.C.004                 1 LINE     64    1 PAGE UM   HELFFRICH           AUG. 06, 1981  05:25:08
            5.0T7    68  RSTR:*RES            
0          COMMAND FILE TO RUN *RESTORE (712/3) FOR THE OPERATORS.  INVOKED BY ENTERING
           "MTS *RES" ON THE OPERATOR'S CONSOLE.
00713/001   UPTIME                                                # (PART OF SYSTEM WATCHERS)                                       
                                                                                    UM                                              
0          Part of System Watchers (540/24) and (540/25)
00714/001A  INTRO GUIDE: FORMAT                      WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FMT80.SOU                 
            5.0T3   204  INTRO_GUIDE:_FORMAT..WF.001        1 LINE    173   38 PAGE UM   MANUAL              SEP. 30, 1980  13:58:08
            5.0T7    69                       
0          FORMAT SOURCE FOR "INTRODUCTION TO FORMAT," OCT. 1980, THE SECOND IN A SERIES
           OF MTS INTRODUCTORY GUIDES.
00714/002A  INTRO GUIDE: FORMAT                      PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FMT80.OUT                 
            5.0T3   205  INTRO_GUIDE:_FORMAT..PF.002        1 LINE     83   66 PAGE UM   MANUAL              SEP. 30, 1980  13:58:16
            5.0T7    70                       
0          FORMAT PRINT FILE.
1                                                                                               MON AUG 05/96   18:37:45   Page  486
0  Num   R       Component Name         Subname     Type G Seq ID 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/001   MERIT CC SUPPORT         360 EQUS        S   G          K1Y9:360EQUS                                                    
            5.0T3   206  MERIT_CC_SUPPORT.360_EQUS.S.001    1 LINE     84    3 PAGE UM   EADIE               JULY 03, 1981  18:22:29
            5.0T7    71                       
0          --------------------------------------------------------------------
            This component is the source for the Merit Computer Network PDP-11 
            communications computer (CC) support, related utility programs and
            command files.  Included is the necessary PDP-11 code for the CDC
            support as well as for MTS (IBM/Amdahl). Anyone considering
            assembling these components ought to use the ID K1Y9 (it will make 
            life a great deal easier)!
           --------------------------------------------------------------------
            
           (715/1) is the *11ASR source for EQUS which define the hardware 
           registers, CSW, CCW and sense data for the IBM Amdahl channel
           interface.
0          Referenced by comments of: 715/1 
00715/002   MERIT CC SUPPORT         MCS11COM        S   G          K1Y9:MCS11COM                                                   
            5.0T3   207  MERIT_CC_SUPPORT.MCS11COM.S.002    1 LINE    100    9 PAGE UM   EADIE               JULY 03, 1981  18:22:29
            5.0T7    72                       
0          *11ASR source for the copy section for the Merit direct terminal 
           support (Hermes).
00715/003   MERIT CC SUPPORT         LA EQUS         S   G          K1Y9:LAEQUS                                                     
            5.0T3   208  MERIT_CC_SUPPORT.LA_EQUS.S.003     1 LINE     83    4 PAGE UM   EADIE               JULY 03, 1981  18:22:31
            5.0T7    73                       
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          K1Y9:NIMBLK                                                     
            5.0T3   209  MERIT_CC_SUPPORT.NIMBLK_D.S.004    1 LINE     83    2 PAGE UM   EADIE               JULY 03, 1981  18:22:32
            5.0T7    74                       
0          *11ASR source for the DSECT for the terminal access socket (Hermes).
00715/005   MERIT CC SUPPORT         CLI COPY SECT   S   G          K1Y9:CLISTUFF                                                   
            5.0T3   210  MERIT_CC_SUPPORT.CLI_COPY.S.005    1 LINE     78    2 PAGE UM   EADIE               JULY 03, 1981  18:22:33
            5.0T7    75                       
0          *11ASR source for the DSECT and EQUS used by the command language
           interpreter (CLI).
00715/006   MERIT CC SUPPORT         FORMAT EQUS     S   O          K1Y9:FORMATEQUS                                                 
            5.0T3   211  MERIT_CC_SUPPORT.FORMAT_E.S.006    1 LINE     83    3 PAGE UM   EADIE               JULY 03, 1981  18:22:34
            5.0T7    76                       
0          *11ASR source for the EQUS for the output formatting routine (FMTXT).
1                                                                                               MON AUG 05/96   18:37:45   Page  487
0  Num   R       Component Name         Subname     Type G Seq ID 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/007   MERIT CC SUPPORT         IVECTOR DSECT   S   G          K1Y9:IVECTOR                                                    
            5.0T3   212  MERIT_CC_SUPPORT.IVECTOR.S.007     1 LINE     99    2 PAGE UM   EADIE               JULY 03, 1981  18:22:35
            5.0T7    77                       
0          *11ASR source for the host-to-network interface transfer vector.
00715/008   MERIT CC SUPPORT         CCB DSECT       S   G          K1Y9:CCB                                                        
            5.0T3   213  MERIT_CC_SUPPORT.CCB_DSEC.S.008    1 LINE     79    1 PAGE UM   EADIE               JULY 03, 1981  18:22:36
            5.0T7    78                       
0          *11ASR source for the clock control block (CCB).
00715/009   MERIT CC SUPPORT         RQCB DSECT      S   G          K1Y9:RQCB                                                       
            5.0T3   214  MERIT_CC_SUPPORT.RQCB_DSE.S.009    1 LINE    100    1 PAGE UM   EADIE               JULY 03, 1981  18:22:36
            5.0T7    79                       
0          *11ASR source for the record queue control block (RQCB).
00715/010   MERIT CC SUPPORT         OPEN BCB DSECT  S   G          K1Y9:OPENBCB                                                    
            5.0T3   215  MERIT_CC_SUPPORT.OPEN_BCB.S.010    1 LINE     87    1 PAGE UM   EADIE               JULY 03, 1981  18:22:37
            5.0T7    80                       
0          *11ASR source for the open buffer control block. Copies (715/11).
00715/011   MERIT CC SUPPORT         BCB DSECT       S   G          K1Y9:BCB                                                        
            5.0T3   216  MERIT_CC_SUPPORT.BCB_DSEC.S.011    1 LINE     89    1 PAGE UM   EADIE               JULY 03, 1981  18:22:38
            5.0T7    81                       
0          *11ASR source for the buffer control block (BCB).
0          Referenced by comments of: 715/10 
00715/012   MERIT CC SUPPORT         SCB DSECT       S   G          K1Y9:SCB                                                        
            5.0T3   217  MERIT_CC_SUPPORT.SCB_DSEC.S.012    1 LINE     89    3 PAGE UM   EADIE               JULY 03, 1981  18:22:39
            5.0T7    82                       
0          *11ASR source for the socket control block (SCB).
00715/013   MERIT CC SUPPORT         TCB DSECT       S   G          K1Y9:TCB                                                        
            5.0T3   218  MERIT_CC_SUPPORT.TCB_DSEC.S.013    1 LINE     91    1 PAGE UM   EADIE               JULY 03, 1981  18:22:39
            5.0T7    83                       
0          *11ASR source for the task control block (TCB).
00715/014   MERIT CC SUPPORT         GLOBAL EQUS     S   G          K1Y9:EQUS                                                       
            5.0T3   219  MERIT_CC_SUPPORT.GLOBAL_E.S.014    1 LINE     87    5 PAGE UM   EADIE               JULY 03, 1981  18:22:40
            5.0T7    84                       
0          *11ASR source for the global EQUS.
1                                                                                               MON AUG 05/96   18:37:45   Page  488
0  Num   R       Component Name         Subname     Type G Seq ID 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/015   MERIT CC SUPPORT         MACROS          S   G          K1Y9:MACROS                                                     
            5.0T3   220  MERIT_CC_SUPPORT.MACROS.S.015      1 LINE     72    3 PAGE UM   EADIE               JULY 03, 1981  18:22:41
            5.0T7    85                       
0          *11ASR source for the macros.
00715/016   MERIT CC SUPPORT         SWITCHES EQUS   S   G          K1Y9:SWITCHES                                                   
            5.0T3   221  MERIT_CC_SUPPORT.SWITCHES.S.016    1 LINE     90    3 PAGE UM   EADIE               JULY 03, 1981  18:22:42
            5.0T7    86                       
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          K1Y9:CDCEQUS                                                    
            5.0T3   222  MERIT_CC_SUPPORT.CDC_EQUS.S.017    1 LINE     74    3 PAGE UM   EADIE               JULY 03, 1981  18:22:43
            5.0T7    87                       
0          *11ASR source for the EQUS for the CDC hardware interface.
00715/018   MERIT CC SUPPORT         VECTORS         S   G          K1Y9:VECTORS.S                                                  
            5.0T3   223  MERIT_CC_SUPPORT.VECTORS.S.018     1 LINE     93    5 PAGE UM   EADIE               JULY 03, 1981  18:22:44
            5.0T7    88                       
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          K1Y9:SYSTEM.S                                                   
            5.0T3   224  MERIT_CC_SUPPORT.SYSTEM.S.019      1 LINE    134   59 PAGE UM   EADIE               JULY 03, 1981  18:22:45
            5.0T7    89                       
0          *11ASR source for the basic MINOS subroutines.
00715/020   MERIT CC SUPPORT         TAPE            S   G          K1Y9:TAPE.S                                                     
            5.0T3   225  MERIT_CC_SUPPORT.TAPE.S.020        1 LINE     92    4 PAGE UM   EADIE               JULY 03, 1981  18:22:51
            5.0T7    90                       
0          *11ASR source for the paper tape and communications computer (CC)
           "host" support.
00715/021   MERIT CC SUPPORT         TIMER           S   O          K1Y9:TIMER.S                                                    
            5.0T3   226  MERIT_CC_SUPPORT.TIMER.S.021       1 LINE     83    6 PAGE UM   EADIE               JULY 03, 1981  18:22:52
            5.0T7    91                       
0          *11ASR source for the MINOS interval timer support routines.
00715/022   MERIT CC SUPPORT         PARSER          S   G          K1Y9:PARSE.S                                                    
            5.0T3   227  MERIT_CC_SUPPORT.PARSER.S.022      1 LINE     84   16 PAGE UM   EADIE               JULY 03, 1981  18:22:53
            5.0T7    92                       
0          *11ASR source for the MINOS CLI parser.
1                                                                                               MON AUG 05/96   18:37:45   Page  489
0  Num   R       Component Name         Subname     Type G Seq ID 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          K1Y9:CMNDS.S                                                    
            5.0T3   228  MERIT_CC_SUPPORT.COMMANDS.S.023    1 LINE    104   36 PAGE UM   EADIE               JULY 03, 1981  18:22:55
            5.0T7    93                       
0          *11ASR source for the MINOS command definitions and execution routines.
00715/024   MERIT CC SUPPORT         NIM             S   G          K1Y9:NIM.S                                                      
            5.0T3   229  MERIT_CC_SUPPORT.NIM.S.024         1 LINE    138   43 PAGE UM   EADIE               JULY 03, 1981  18:22:59
            5.0T7    94                       
0          *11ASR source for the task time routines for terminal support
           (NIM: network interface module).
00715/025   MERIT CC SUPPORT         NIBBLE          S   G          K1Y9:NIBBLE.S                                                   
            5.0T3   230  MERIT_CC_SUPPORT.NIBBLE.S.025      1 LINE     68    9 PAGE UM   EADIE               JULY 03, 1981  18:23:04
            5.0T7    95                       
0          *11ASR source for the nibble buffer management for terminal support.
00715/026   MERIT CC SUPPORT         SSDST           S   G          K1Y9:SSDST.S                                                    
            5.0T3   231  MERIT_CC_SUPPORT.SSDST.S.026       1 LINE    121   17 PAGE UM   EADIE               JULY 03, 1981  18:23:05
            5.0T7    96                       
0          *11ASR source for the start/stop (asynchronous) device support task 
           (ring sniffer and hang-up detector).
00715/027   MERIT CC SUPPORT         DEVICES         S   G          K1Y9:DEVICES.S                                                  
            5.0T3   232  MERIT_CC_SUPPORT.DEVICES.S.027     1 LINE     85   71 PAGE UM   EADIE               JULY 03, 1981  18:23:07
            5.0T7    97                       
0          *11ASR source for the interrupt routines for the terminal support.
00715/028   MERIT CC SUPPORT         TABLE           S   G          K1Y9:TABLE.S                                                    
            5.0T3   233  MERIT_CC_SUPPORT.TABLE.S.028       1 LINE     91   21 PAGE UM   EADIE               JULY 03, 1981  18:23:13
            5.0T7    98                       
0          *11ASR source for the translate table for 2741 support.
00715/029   MERIT CC SUPPORT         VERSNO          S   G          K1Y9:VERSNO                                                     
            5.0T3   234  MERIT_CC_SUPPORT.VERSNO.S.029      1 LINE     55    1 PAGE UM   EADIE               JULY 03, 1981  18:23:15
            5.0T7    99                       
0          *11ASR source for the code to generate the system version number.
00715/030   MERIT CC SUPPORT         MTS RARE        S   B          K1Y9:MTSRARE.S                                                  
            5.0T3   235  MERIT_CC_SUPPORT.MTS_RARE.S.030    1 LINE     93   19 PAGE UM   EADIE               JULY 03, 1981  18:23:16
            5.0T7   100                       
0          *11ASR source for the MTS-dependent host interface support.
1                                                                                               MON AUG 05/96   18:37:45   Page  490
0  Num   R       Component Name         Subname     Type G Seq ID 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/031   MERIT CC SUPPORT         CDC RARE        S   G          K1Y9:CDCRARE.S                                                  
            5.0T3   236  MERIT_CC_SUPPORT.CDC_RARE.S.031    1 LINE    117   12 PAGE UM   EADIE               JULY 03, 1981  18:23:18
            5.0T7   101                       
0          *11ASR source for the CDC-dependent host interface support.
00715/032   MERIT CC SUPPORT         INP             S   G          K1Y9:INP.S                                                      
            5.0T3   237  MERIT_CC_SUPPORT.INP.S.032         1 LINE    101   25 PAGE UM   EADIE               JULY 03, 1981  18:23:21
            5.0T7   102                       
0          *11ASR source for the Merit internodal protocol support.
00715/033   MERIT CC SUPPORT         SDA             S   G          K1Y9:SDA.S                                                      
            5.0T3   238  MERIT_CC_SUPPORT.SDA.S.033         1 LINE     85   12 PAGE UM   EADIE               JULY 03, 1981  18:23:23
            5.0T7   103                       
0          *11ASR source for the Merit Synchronous Data Adapter support.
00715/034   MERIT CC SUPPORT         GENERATE        C   G          K1Y9:LINK.AN                                                    
            5.0T3   239  MERIT_CC_SUPPORT.GENERATE.C.034    1 LINE     61    1 PAGE UM   EADIE               JULY 03, 1981  18:23:25
            5.0T7   104                       
0          MTS and *LINK11 commands to build a MINOS system for Ann Arbor node.
00715/035   MERIT CC SUPPORT         EVANS           SP  G          K1YZ:EVANS.S(1000,2999)                                         
            5.0T3   240  MERIT_CC_SUPPORT.EVANS.SP.035      1 LINE     73   16 PAGE UM   EADIE               JULY 03, 1981  18:40:30
            5.0T7   105                       
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/36, 715/37 
00715/036   MERIT CC SUPPORT         DMPRD           SA  G          K1YZ:EVANS.S(3000)                                              
            5.0T3   241  MERIT_CC_SUPPORT.DMPRD.SA.036      1 LINE     72    1 PAGE UM   EADIE               JULY 03, 1981  18:40:33
            5.0T7   106                       
0          Subroutine called by EVANS (715/35) to read a PDP-11 core image from
           an FDname and build an internal data structure.
00715/037A  MERIT CC SUPPORT         CRUNCH          C              MNET:CRUNCH                                                     
            5.0T3   242  MERIT_CC_SUPPORT.CRUNCH.C.037      1 LINE    176    1 PAGE UM   EADIE               JULY 03, 1981  18:40:34
            5.0T7   107                       
0          MTS and EVANS (715/35) commands to crunch a dump taken using 11LOAD (642/11).
00715/038   MERIT CC SUPPORT         SDA EQUS        S   G          K1Y9:SDAEQUS                                                    
            5.0T3   243  MERIT_CC_SUPPORT.SDA_EQUS.S.038    1 LINE     74    3 PAGE UM   EADIE               JULY 03, 1981  18:40:35
            5.0T7   108                       
1                                                                                               MON AUG 05/96   18:37:45   Page  491
0  Num   R       Component Name         Subname     Type G Seq ID 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/039   MERIT CC SUPPORT         SDA DSECTS      S   G          K1Y9:SDADSECTS                                                  
            5.0T3   244  MERIT_CC_SUPPORT.SDA_DSEC.S.039    1 LINE     81    4 PAGE UM   EADIE               JULY 03, 1981  18:40:36
            5.0T7   109                       
00715/040   MERIT CC SUPPORT         DO/IF MACROS    SM  G          K1Y9:11SYSMAC                                                   
            5.0T3   245  MERIT_CC_SUPPORT.DO/IF_MA.SM.040   1 LINE     68    3 PAGE UM   EADIE               JULY 03, 1981  18:40:37
            5.0T7   110                       
0          *11ASR MACROS WHICH PROVIDE SIMILAR FACILITIES TO THE "STRUCTURED PROGRAMMING
           MACROS" IN *SYSMAC.
00715/041C  MERIT CC SUPPORT         X25 EQUS        S   G          K1Y9:X25EQUS                                                    
            5.0T3   246  MERIT_CC_SUPPORT.X25_EQUS.S.041    1 LINE     84    3 PAGE UM   EADIE               JULY 03, 1981  18:40:38
            5.0T7   111                       
0          *11ASR source for the X25 EQUS.
00715/042C  MERIT CC SUPPORT         TIMER EQUS      S   G          K1Y9:ITEQUS                                                     
            5.0T3   247  MERIT_CC_SUPPORT.TIMER_EQ.S.042    1 LINE     74    1 PAGE UM   EADIE               JULY 03, 1981  18:40:39
            5.0T7   112                       
0          *11ASR source for the interval timer EQUS.
00715/043C  MERIT CC SUPPORT         MEMORY EQUS     S   G          K1Y9:KTEQUS                                                     
            5.0T3   248  MERIT_CC_SUPPORT.MEMORY_E.S.043    1 LINE     81    4 PAGE UM   EADIE               JULY 03, 1981  18:40:40
            5.0T7   113                       
0          *11ASR source for the memory management EQUS.
00715/044C  MERIT CC SUPPORT         X25             S   G          K1Y9:X25.S                                                      
            5.0T3   249  MERIT_CC_SUPPORT.X25.S.044         1 LINE    107   29 PAGE UM   EADIE               JULY 03, 1981  18:40:41
            5.0T7   114                       
0          *11ASR source for the x.25 support.
00715/045C  MERIT CC SUPPORT         ANN ARBOR       S   G          K1Y9:AN.S                                                       
            5.0T3   250  MERIT_CC_SUPPORT.ANN_ARBO.S.045    1 LINE    102    3 PAGE UM   EADIE               JULY 03, 1981  18:40:44
            5.0T7   115                       
0          *11ASR source for the Ann Arbor node configuration.
00716/001   FILE SAVE - ONLINE                                    # (PART OF FILE SAVE)                                             
                                                                                    UM                                              
0          Part of File Save, component (067).
0          Referenced by comments of: 67/1 
00717/001A  MTS VOLUME 7             MASTER          WT             S0562 MTSV7 'MTS MANUALS' POSN=NEWM3.V7                         
            5.0T3   251  MTS_VOLUME_7.MASTER.WT.001         1 SEQ     132  164 PAGE UM   MANUAL              JULY 03, 1981  18:41:16
            5.0T7   116                       
0          TEXT/360 MASTER FOR VOLUME 7 "PL/I IN MTS" OF THE UM MTS MANUALS, JULY 1977,
           UPDATED FEBRUARY 1979 AND OCTOBER 1980.
1                                                                                               MON AUG 05/96   18:37:45   Page  492
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
           EDITOR:  RICHARD A. SALISBURY
00717/002A  MTS VOLUME 7             PRINT           PT             S0562 MTSV7 'MTS MANUALS' POSN=PRINT3.V7                        
            5.0T3   252  MTS_VOLUME_7.PRINT.PT.002          1 SEQ     132  302 PAGE UM   MANUAL              JULY 03, 1981  18:41:23
            5.0T7   117                       
0          TEXT/360 PRINT FILE.
00717/003   MTS VOLUME 7             INDEX SOURCE    D              S0562 MTSV7 'MTS MANUALS' POSN=V7INDEXSOU.2                     
            5.0T3   253  MTS_VOLUME_7.INDEX_SOURCE.D.003    1 SEQ      77    4 PAGE UM   MANUAL              JULY 03, 1981  18:41:40
            5.0T7   118                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 7.
00717/004   MTS VOLUME 7             UPDATE 1        PT             W073:TNLV7.FEB79                                                
            5.0T3   254  MTS_VOLUME_7.UPDATE_1.PT.004       1 LINE    106  106 PAGE UM   MANUAL              JULY 03, 1981  18:41:41
            5.0T7   119                       
0          THIS IS COMPUTING CENTER MEMO 397 -- "UPDATE 1 TO MTS VOLUME 7," 
           FEBRUARY 1979.  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00717/005A  MTS VOLUME 7             UPDATE 2        PT             W073:TNLV7.OCT80                                                
            5.0T3   255  MTS_VOLUME_7.UPDATE_2.PT.005       1 LINE    147   38 PAGE UM   MANUAL              JULY 03, 1981  18:41:50
            5.0T7   120                       
0          THIS IS UPDATE 2 TO MTS VOLUME 7, OCTOBER 1980.  $COPY TO A TN
           PRINTER USING THE @MCC MODIFIER.
00718/001   TURNAROUND                               SA  O          S0565 D4T3 VLO FSNAME=TURNAROUND..SA.001(1)                  294
            5.0T3   256  TURNAROUND..SA.001                 1 LINE     80   13 PAGE UM   MTA                 JULY 28, 1977  23:57:58
            5.0T7   121                       
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/19).
00718/002   TURNAROUND                               OC  O          S0565 D4T3 VLO FSNAME=TURNAROUND..OC.002(1)                  295
            5.0T3   257  TURNAROUND..OC.002                 1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  23:57:59
            5.0T7   122                       
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          S0565 D4T3 VLO FSNAME=IEBUPDTE_SIMULATOR..SA.001(1)          296
            5.0T3   258  IEBUPDTE_SIMULATOR..SA.001         1 LINE     80   16 PAGE UM   MTA                 JULY 28, 1977  23:58:01
            5.0T7   123                       
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
1                                                                                               MON AUG 05/96   18:37:45   Page  493
0  Num   R       Component Name         Subname     Type G Seq ID 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 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
           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          S0565 D4T3 VLO FSNAME=IEBUPDTE_SIMULATOR..OC.002(1)          297
            5.0T3   259  IEBUPDTE_SIMULATOR..OC.002         1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  23:58:03
            5.0T7   124                       
00720/001   LKEDCONV                                 SA  O          S0565 D4T3 VLO FSNAME=LKEDCONV..SA.001(1)                    298
            5.0T3   260  LKEDCONV..SA.001                   1 LINE     80   60 PAGE SFU  BENET     MTA       JULY 28, 1977  23:58:06
            5.0T7   125                       
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          S0565 D4T3 VLO FSNAME=LKEDCONV..OC.002(1)                    299
            5.0T3   261  LKEDCONV..OC.002                   1 LINE     80   12 PAGE SFU  BENET     MTA       JULY 28, 1977  23:58:18
            5.0T7   126                       
00721/001A *OBJUTIL                  MAIN            SA  G          W067:OBJUTIL.S                                                  
            5.0T3   262  OBJUTIL.MAIN.SA.001                1 LINE     78   23 PAGE UM   SHERRY              JULY 03, 1981  18:42:09
            5.0T7   127                       
0          OBJECT FILE EDITOR MAIN PROGRAM.  CALLS THE EDITOR EST SUBROUTINE (648/4).
           THE NEGATIVE LINES CONTAIN COMMANDS TO ASSEMBLE IT.  COPIES *GDINFODSECT
           (594), *LOADINFODSECT (001/4), AND *CNFGINFODSECT (654).  ASSEMBLE WITH
           *ASMH (737) USING THE OBJUTIL MACROS (721/14) AND (721/15) AND
           *SYSMAC. THE SYSPARM ASSEMBLY PARAMETER MAY BE USED TO SET THE VALUES OF
           THE GLOBAL SET SYMBOLS, FOR EXAMPLE,
                  SYSPARM='SNOOP=0,LOGERR=1,SHARE=UM'
           IF SNOOP=1, STATISTICS RECORDS ARE WRITTEN TO A FILE NAMED ETC:OBJUTIL.STAT.
           IF LOGERR=1, PGNTS ARE LOGGED TO A FILE NAMED ETC:OBJUTIL.ERR.
           IF SHARE=UQV, ALBERTA'S UPDATES WILL BE INCLUDED.
            
           ALL OBJUTIL ROUTINES ARE ASSEMBLED USING THE ASMH LISTING POSTPROCESSOR
           PEXIT (775/1), WHICH REQUIRES THE ASSEMBLY PARAMETER
           PAR=PEXIT=*PEXIT (775).  EACH SOURCE FILE CONTAINS AN "ASMEDIT"
1                                                                                               MON AUG 05/96   18:37:45   Page  494
0  Num   R       Component Name         Subname     Type G Seq ID 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          MACRO CALL TO SUPPORT THIS POSTPROCESSOR.
0          Referenced by comments of: 98/1, 316/1, 389/1, 495/2, 528/39, 710/1, 721/14, 721/16 
00721/002A *OBJUTIL                  COMMANDS        SA  G          W067:OBJU.CMD.S                                                 
            5.0T3   263  OBJUTIL.COMMANDS.SA.002            1 LINE     84   40 PAGE UM   SHERRY              JULY 03, 1981  18:42:16
            5.0T7   128                       
0          COMMAND PROCESSOR ROUTINES.  NEGATIVE LINE NUMBER RANGE CONTAINS $RUN COMMAND
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/14) AND (721/15),
           *GDINFODSECT (594), AND *SYSMAC.
00721/003  *OBJUTIL                  PARSE           SA  G          W067:OBJU.PARSE.S                                               
            5.0T3   264  OBJUTIL.PARSE.SA.003               1 LINE     78   10 PAGE UM   SHERRY              JULY 03, 1981  18:42:20
            5.0T7   129                       
0          ROUTINES FOR PARSING COMMAND LINES.  NEGATIVE LINE NUMBER RANGE CONTAINS
           COMMANDS TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/14) AND (721/15)
            *GDINFODSECT (594), AND *SYSMAC.
00721/004A *OBJUTIL                  PATCH           SA  G          W067:OBJU.PATCH.S                                               
            5.0T3   265  OBJUTIL.PATCH.SA.004               1 LINE     69    4 PAGE UM   SHERRY              JULY 03, 1981  18:42:23
            5.0T7   130                       
0          ROUTINES TO GENERATE REP CARDS. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/14) AND (721/15), AND
           *SYSMAC.
00721/005  *OBJUTIL                  PRINTER         SA  G          W067:OBJU.PRINT.S                                               
            5.0T3   266  OBJUTIL.PRINTER.SA.005             1 LINE     68    6 PAGE UM   SHERRY              JULY 03, 1981  18:42:24
            5.0T7   131                       
0          ROUTINES TO FORMAT AND PRINT OUTPUT LINES. NEGATIVE LINE NUMBER RANGE
           CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACRO LIBRARIES (721/14)
           AND (721/15) AND *SYSMAC.
00721/006A *OBJUTIL                  READSUBR        SA  G          W067:OBJU.READ.S                                                
            5.0T3   267  OBJUTIL.READSUBR.SA.006            1 LINE     83   22 PAGE UM   SHERRY              JULY 03, 1981  18:42:27
            5.0T7   132                       
0          ROUTINES THAT READ OBJECT FILES.  NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/14) AND (721/15), *GDINFODSECT
           (594), AND *SYSMAC.
00721/007  *OBJUTIL                  STORAGE         SA  G          W067:OBJU.STOR.S                                                
            5.0T3   268  OBJUTIL.STORAGE.SA.007             1 LINE     72    5 PAGE UM   SHERRY              JULY 03, 1981  18:42:32
            5.0T7   133                       
0          STORAGE ALLOCATION ROUTINES.  NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/14) AND (721/15) AND *SYSMAC.
1                                                                                               MON AUG 05/96   18:37:45   Page  495
0  Num   R       Component Name         Subname     Type G Seq ID 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/008A *OBJUTIL                  SYMTABLE        SA  G          W067:OBJU.SYMT.S                                                
            5.0T3   269  OBJUTIL.SYMTABLE.SA.008            1 LINE     72    8 PAGE UM   SHERRY              JULY 03, 1981  18:42:33
            5.0T7   134                       
0          SYMBOL TABLE MANAGEMENT ROUTINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/14) AND (721/15) AND *SYSMAC.
00721/009A *OBJUTIL                  WRITING         SA  G          W067:OBJU.WRIT.S                                                
            5.0T3   270  OBJUTIL.WRITING.SA.009             1 LINE     83   19 PAGE UM   SHERRY              JULY 03, 1981  18:42:35
            5.0T7   135                       
0          ROUTINES TO WRITE OBJECT FILES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/14) AND (721/15), *GDINFODSECT
           (594), AND *SYSMAC.
00721/010A *OBJUTIL                  IOCVT SUBR      SA  G          W067:OBJU.IOCVT.S                                               
            5.0T3   271  OBJUTIL.IOCVT_SUBR.SA.010          1 LINE     77   16 PAGE UM   SHERRY              JULY 03, 1981  18:42:40
            5.0T7   136                       
0          I/O CONVERSION ROUTINES FOR THE DISPLAY, MODIFY, AND SCAN COMMANDS.
           SHOULD BE ASSEMBLED WITH *SYSMAC.
00721/011A *OBJUTIL                  OPTIMIZE SUBR   SA  G          W067:OPTIMIZE.S                                                 
            5.0T3   272  OBJUTIL.OPTIMIZE_SUBR.SA.011       1 LINE    101   15 PAGE UM   SHERRY              JULY 03, 1981  18:42:43
            5.0T7   137                       
0          A RE-ENTRANT ROUTINE TO OPTIMIZE OBJECT MODULES FOR OBJUTIL.  THIS IS A NEW
           VERSION WITH A SLIGHTLY CHANGED CALLING SEQUENCE.  SEE THE SOURCE COMMENTS
           FOR DETAILS.  ASSEMBLE WITH OBJUTIL MISC MACROS (721/15). COPIES *CNFGINFODSECT
           (654).
00721/012A *OBJUTIL                  MISC RTNS       SA  G          W067:OBJU.RTN.S                                                 
            5.0T3   273  OBJUTIL.MISC_RTNS.SA.012           1 LINE     72   11 PAGE UM   SHERRY              JULY 03, 1981  18:42:45
            5.0T7   138                       
0          MISCELLANEOUS SUBROUTINES.  THE NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE.  USES THE OBJUTIL MACROS (721/14) AND (721/15), *GDINFODSECT
           (594), AND *SYSMAC. 
00721/013C *OBJUTIL                  EOBJUTIL        SA  G          W067:OBJU.END.S                                                 
            5.0T3   274  OBJUTIL.EOBJUTIL.SA.013            1 LINE     70    1 PAGE UM   SHERRY              JULY 03, 1981  18:42:47
            5.0T7   139                       
0          This file contains the source for a null csect called "EOBJUTIL" that is
           loaded as the last control section of OBJUTIL in shared VM.  It is used to
           mark the end of OBJUTIL for computing symbolic addresses within the program
           in the event of a fatal termination.
00721/014A *OBJUTIL                  OBJUTIL MACROS  SM  G          W067:OBJU.MAC                                                   
            5.0T3   275  OBJUTIL.OBJUTIL_MACROS.SM.014      1 LINE     72   25 PAGE UM   SHERRY              JULY 03, 1981  18:42:48
            5.0T7   140                       
0          OBJECT FILE EDITOR MACROS.  CONTAINS ROUTINE LINKAGE MACROS, MACROS THAT WERE
           FORMERLY IN THE SOURCE OF OBJUTIL (721/1), AND SEVERAL COPY SECTIONS
1                                                                                               MON AUG 05/96   18:37:45   Page  496
0  Num   R       Component Name         Subname     Type G Seq ID 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          INCLUDING THE PSECT DEFINITION, AND DATA STRUCTURE DSECTS.
0          Referenced by comments of: 1/9, 721/1, 721/2, 721/3, 721/4, 721/5, 721/6, 721/7, 721/8, 721/9, 721/12, 721/18,
                 722/1, 757/1 
00721/015A *OBJUTIL                  MISC MACROS     SM  G          W067:MAC                                                        
            5.0T3   276  OBJUTIL.MISC_MACROS.SM.015         1 LINE     72   12 PAGE UM   SHERRY              JULY 03, 1981  18:42:53
            5.0T7   141                       
0          MISCELLANEOUS MACROS.
0          Referenced by comments of: 1/5, 354/5, 721/1, 721/2, 721/3, 721/4, 721/5, 721/6, 721/7, 721/8, 721/9, 721/11,
                 721/12, 721/18, 722/1, 746/1, 747/4, 749/1, 757/1, 775/1 
00721/016A *OBJUTIL                  SHARED OBJECT   OE  G          SEG2:OBJUTIL                                                    
            5.0T3   277  OBJUTIL.SHARED_OBJECT.OE.016       1 LINE  20107   70 PAGE UM   SHERRY              JULY 03, 1981  18:42:55
            5.0T7   142  SEG2:OBJUTIL         
0          OBJECT FOR THE OBJECT FILE EDITOR. LOADED INTO SHARED VM BY PISTLE. DO NOT
           CHANGE THE ORDER OF THE OBJECT MODULES IN THIS FILE. A TABLE USED BY LOGERR
           IN (721/1) DEPENDS ON IT.
00721/017  *OBJUTIL                  *OBJUTIL        OC  G          *OBJUTIL                                                        
            5.0T3   278  OBJUTIL.*OBJUTIL.OC.017            1 LINE     24    1 PAGE UM   SHERRY              JULY 03, 1981  18:43:00
            5.0T7   143  *OBJUTIL             
0          CONTAINS THE APPROPRIATE LOADER CARDS TO FORCE A REFERENCE TO THE SHARED VM
           OBJUTIL.
0          Referenced by comments of: 721/18 
00721/018A *OBJUTIL                  OBJDUMP         SA  O          W067:OBJU.DUMP.S(1,999)                                         
            5.0T3   279  OBJUTIL.OBJDUMP.SA.018             1 LINE     72    8 PAGE UM   SHERRY              JULY 03, 1981  18:43:01
            5.0T7   144                       
0          STAND-ALONE PROGRAM USED WITH SDS (600) TO PRODUCE A SYMBOLIC DUMP FROM
           INFORMATION LOGGED BY *OBJUTIL (721/17) UPON FATAL TERMINATION.  COMMENTS
           IN THE SOURCE FILE DESCRIBE THE USE OF THIS PROGRAM.  THE NEGATIVE LINE
           NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE.  USES THE OBJUTIL MACROS
           (721/14) AND (721/15), COPY:CC.MACROS (1054/3), *CNFGINFODSECT (654),
           *GDINFODSECT (594), AND *SYSMAC.  ASSEMBLE WITH PAR=TEST.
            
           THE OBJECT FOR THIS ROUTINE CAN BE USED VIA $DEBUG DIRECTLY OR XCTL'D TO 
           BY THE PROGRAM DUMPLOAD (721/19).
0          Referenced by comments of: 721/22 
00721/019C *OBJUTIL                  DUMPLOAD        SA  O          W067:OBJU.DUMP.S(1000,1999)                                     
            5.0T3   280  OBJUTIL.DUMPLOAD.SA.019            1 LINE     69    1 PAGE UM   SHERRY              JULY 03, 1981  18:43:09
            5.0T7   145                       
0          Driver program that loads GTSP (721/20) and XCTL's to OBJDUMP in OBJU.DUMPLIB
           (721/22).  Requires *SYSMAC.  Assemble with PAR=TEST.
1                                                                                               MON AUG 05/96   18:37:45   Page  497
0  Num   R       Component Name         Subname     Type G Seq ID 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: 721/18, 721/21 
00721/020C *OBJUTIL                  GTSP            SA  O          W067:OBJU.DUMP.S(2000,2999)                                     
            5.0T3   281  OBJUTIL.GTSP.SA.020                1 LINE     68    1 PAGE UM   SHERRY              JULY 03, 1981  18:43:12
            5.0T7   146                       
0          GETSPACE intercept used by (721/21) in XCTLing to OBJU.DUMPLIB (721/22).
           Requires *SYSMAC. Assemble with PAR=TEST.
0          Referenced by comments of: 721/19 
00721/021A *OBJUTIL                  OBJDUMP         OE  O          W067:OBJU.DUMP                                                  
            5.0T3   282  OBJUTIL.OBJDUMP.OE.021             1 LINE    428    1 PAGE UM   SHERRY              JULY 03, 1981  18:43:15
            5.0T7   147                       
0          OBJECT FOR DUMPLOAD (721/19).
            
           THIS PROGRAM MUST BE RUN FROM SDS AS:
            
                 $DEB OBJU.DUMP  0=ETC:OBJUTIL.ERR  SPRINT=*PRINT*
                 SET ECHO=OFF  OUTPUT=*PRINT*
                 RUN
            
           THE FILE ETC:OBJUTIL.ERR, IF IT EXISTS, IS USED TO COLLECT ERRORS. 
           THIS PROGRAM DOES AN XCTL TO THE ROUTINE OBJDUMP IN (721/22).
0          Referenced by comments of: 721/20 
00721/022C *OBJUTIL                  OBJU.DUMPLIB    OL  O          W067:OBJU.DUMPLIB                                               
            5.0T3   283  OBJUTIL.OBJU.DUMPLIB.OL.022        1 LINE   3088    8 PAGE UM   SHERRY              JULY 03, 1981  18:43:16
            5.0T7   148                       
0          Object library containing OBJDUMP and GTSP which is XCTL'd to by (721/18).
0          Referenced by comments of: 721/19, 721/20, 721/21 
00721/023  *OBJUTIL                  EXPLAIN FILE    M              ETC:OBJUTILEXP                                                  
            5.0T3   284  OBJUTIL.EXPLAIN_FILE.M.023         1 LINE     74   22 PAGE UM   SHERRY              JULY 03, 1981  18:43:17
            5.0T7   149  ETC.:OBJUTILEXP      
0          EXPLAIN COMMAND MESSAGES.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00721/024  *OBJUTIL                  TEST DECK       D              W067:OBJUTIL.T                                                  
            5.0T3   285  OBJUTIL.TEST_DECK.D.024            1 LINE     57    3 PAGE UM   SHERRY              JULY 03, 1981  18:43:19
            5.0T7   150                       
0          THIS FILE CONTAINS SEVERAL TEST STREAMS FOR CHECKING THE OBJECT FILE EDITOR.
           IT IS USED AS FOLLOWS:
            
                  $RUN *OBJUTIL SCARDS=OBJUTIL.T
            
           THE RESULTING OUTPUT IS INSPECTED TO VERIFY THE PROGRAM'S CORRECTNESS.
1                                                                                               MON AUG 05/96   18:37:45   Page  498
0  Num   R       Component Name         Subname     Type G Seq ID 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/025A *OBJUTIL                  CHANGES         WX             W067:OBJUTIL.CX                                                 
            5.0T3   286  OBJUTIL.CHANGES.WX.025             1 LINE     76    6 PAGE UM   SHERRY              JULY 03, 1981  18:43:20
            5.0T7   151                       
0          *TEXTFORM WRITEUP DESCRIBING THE LATEST VERSION OF THE OBJECT FILE EDITOR, INCLUDING
           BUG FIXES AND NEW FEATURES.
00722/001   BLOCKHEADER                              SA  O          W009:BLKHDR.S                                                   
            5.0T3   287  BLOCKHEADER..SA.001                1 LINE    116    5 PAGE UM   SHERRY              JULY 03, 1981  18:43:22
            5.0T7   152  W009:BLKHDR.S        
0          PROGRAM TO PRODUCE BLOCKLETTER HEADERS FOR PRINTED LISTINGS.  WRITES ON 
           SPRINT (DEFAULTING TO *PRINT*).  ACCEPTS THE FOLLOWING PARAMETERS IN THE
           PAR FIELD:  HEADER=STRING, CENTER=STRING, FOOTER=STRING, MCC|LCC (MACHINE
           LOGICAL CARRIAGE CONTROL), AND EJECT (WHICH PRODUCES A PAGE EJECT AFTER
           THE LAST HEADING).  STRING MUST BE < 10 CHARACTERS AND MAY BE ONE OF THE 
           FOLLOWING SPECIAL CODES WHICH CAUSE AN APPROPRIATE TEXT SUBSTITUTION:
            
            <V>  =  MTS VERSION CODE
            <D>  =  CURRENT DATE AS "MM/DD/YY"
            <M>  =  CURRENT MONTH SPELLED OUT
            <Y>  =  CURRENT YEAR SPELLED OUT
            <T>  =  CURRENT TIME SPELLED OUT
           <MDY> =  CURRENT DATE AS "MMMDDYY"
            
           ASSEMBLE USING THE *OBJUTIL MACROS (721/14) AND (721/15) WITH
           PAR=PEXIT=*PEXIT.
0          Referenced by comments of: 531/15 
00722/002   BLOCKHEADER                              OE  O          W009:BLKHDR                                                     
            5.0T3   288  BLOCKHEADER..OE.002                1 LINE   1982    3 PAGE UM   SHERRY              JULY 03, 1981  18:43:23
            5.0T7   153  W009:BLKHDR          
00723/001A  FNAMETRT                                 SA  G          MTS:FNAMETRT(1,999)                                             
            5.0T3   289  FNAMETRT..SA.001                   1 LINE     72    1 PAGE UM   MTS       HELFFRICH JULY 03, 1981  18:43:23
            5.0T7   154                       
0          TRANSLATE TABLE USED BY FNAME TO DECIDE WHAT CHARACTERS ARE LEGAL IN FILE NAMES.
00723/002A  FNAMETRT                                 OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
00724/001A  DISKCOPY                                 SA  G          FILE:DISKCOPY.AS                                                
            5.0T3   290  DISKCOPY..SA.001                   1 LINE     78   31 PAGE UM   HELFFRICH           AUG. 06, 1981  05:26:32
            5.0T7   155  FILE:DISKCOPY.AS     
0          PROGRAM TO COPY THE CONTENTS OF PAGE-FORMATTED DISKS TO DISK OR TAPE.
           INSTRUCTIONS APPEAR AS COMMENTS AT THE BEGINNING OF THE PROGRAM.
           ASSEMBLE USING COPY:FILE.MACROS (482/45), COPY:CC.MACROS (1054/3),
           COPY:UC.MACROS (787/1), AND *SYSMAC.
           THE PROGRAM WILL NOT WORK WITH 2311 AND 2314 DISKS BECAUSE A UNIT 
1                                                                                               MON AUG 05/96   18:37:45   Page  499
0  Num   R       Component Name         Subname     Type G Seq ID 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          CHECK ROUTINE INTERFACE FOR THEM HAS NOT BEEN DEVELOPED.  IT WILL
           NOT WORK FOR 3370-TYPE DISKS EITHER BECAUSE THE TYPE OF CHANNEL
           PROGRAM IS DIFFERENT.
0          Referenced by comments of: 724/2 
00724/002A  DISKCOPY                                 OC  G          FILE:DISKCOPY                                                   
            5.0T3   291  DISKCOPY..OC.002                   1 LINE  32732   29 PAGE UM   HELFFRICH           AUG. 06, 1981  05:26:35
            5.0T7   156  FILE:DISKCOPY        
0          OBJECT FOR (724/1). USES THE UBC SUBTASKING MONITOR (1058) AND REFERENCES
           SYMBOLS IN COPY:DEFS (579/10).
00724/003C  DISKCOPY                 D4.3 VERSION    OC  G          W170:DISKCOPY                                                   
            5.0T4   653  DISKCOPY.D4.3_VERSION.OC.003       1 LINE  32732   70 PAGE UM   HELFFRICH           AUG. 28, 1981  03:00:46
            5.0T11  227                       
0          THIS IS A SPECIAL VERSION OF THE DISKCOPY PROGRAM FOR USE WITH
           THE D4.3 VERSION OF MTS. IT INCLUDES A PRIVATE COPY OF THE
           SUBTASKING MONITOR (1058) AND THE MSG SUBROUTINE (1023).
00725/001   ACCFORMAT                                SA           # (OBSOLETE)                                                      
            RD16T1  217  ACCFORMAT..SA.                     1 LINE     80    4 PAGE UM                       JULY 12, 1979  23:16:57
0          Now part of COPY:MTS.MACROS (344/3).
00726/001   CNFGSOU                                  SA           # (OBSOLETE)                                                      
            D4T3   315   CNFGSOU..SA.001                    1 LINE     80    3 PAGE UM                       JULY 28, 1977  23:59:24
00727/001A *FTNTIDY                  MAIN            SA  G          W062:FTNTIDY.S(1000,4999)                                       
            5.0T3   292  FTNTIDY.MAIN.SA.001                1 LINE     76   49 PAGE UM   TIFFANY             JULY 03, 1981  18:43:31
            5.0T7   157                       
0          REPLACEMENT PROGRAM FOR *TIDY (229) AND *FRISK (533).
            
           ASSEMBLE USING THE FTNTIDY MACLIB (727/8).  COPIES  *GDINFODSECT (594).
            
           >>> NOTE:  *FTNTIDY CURRENTLY UNDERSTANDS FORTRAN 77 (SUBJECT TO CHANGES);
                      E.G., IT PROPERLY INDENTS IF ... ELSEIF ... ENDIF.  NO ATTEMPT
                      IS MADE TO PROCESS INPUT FOR PREPROCESSORS SUCH AS OVERDRIVE,
                      FLECS, RATFOR, AND STRUCTURED WATFIV.
            
            
           *********************************************************************************
           D5.0 CHANGES:
            
           (ALREADY DISTRIBUTED ON D4.3A):
            
             1) VARIOUS BUGS IN FTNTIDY HAVE BEEN FIXED.
            
             2) IF HOLLERITH FIELDS IN FORMAT AND CALL STATEMENTS RUN ACROSS
                A CARD BOUNDARY, THEN THEY START IN THE NEXT CARD.
            
             3) THE PARAMETER NOSPACE HAS BEEN EXTENDED.  IF IT IS SPECIFIED AS
1                                                                                               MON AUG 05/96   18:37:45   Page  500
0  Num   R       Component Name         Subname     Type G Seq ID 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               NOSPACE, THE EFFECT IS SAME AS SPACE=OFF.  THIS MEANS THAT BLANKS
                WILL NOT BE DELETED AND THAT A BLANK IS NOT INSERTED EXCEPT WHERE
                NECESSARY (C.F. INDENT OPTION).  THE FOLLOWING DESCRIBES THE 
                EXTENDED FORM OF NOSPACE OPTION. 
            
                   1.  TO OVERRIDE THE SPACING OPTION FOR A SINGLE FORTRAN
                       STATEMENT, SPECIFY
            
                              NOSPACE=STMT
            
                       WHERE STMT IS A FORTRAN STATEMENT WITH ALL BLANKS 
                       REMOVED.  EXAMPLES ARE:
            
                              NOSPACE=FORMAT
                              NOSPACE=DOUBLEPRECISION
            
                   2.  FOR MORE THAN ONE STATEMENT, THESE CAN BE ENCLOSED
                       WITHIN PARENTHESES, SEPARATED BY COMMAS.
            
                              NOSPACE=(STMT1,STMT2,...)
            
                       AN EXAMPLE IS:
            
                              NOSPACE=(FORMAT,DOUBLEPRECISION)
            
                       THIS WILL OVERRIDE THE SPACING OPTION FOR TWO FORTRAN
                       STATEMENTS FORMAT AND DOUBLE PRECISION.
            
             4) A NEW OPTION HOLQUOTE HAS BEEN ADDED.  IF IT IS ON, FTNTIDY WILL 
                AUTOMATICALLY CONVERT A HOLLERITH FIELD (STRING PRECEDED BY NH 
                WHERE N IS THE NUMBER OF CHARACTERS IN THE STRING) INTO A STRING
                ENCLOSED IN APOSTROPHES.  IF HOLQUOTE IS OFF, LITERAL CONSTANTS WILL
                BE LEFT AS IN THE ORIGINAL FORM.  THE DEFAULT IS HOLQUOTE=ON, SINCE
                ONLY COMPUTERS CAN EASILY COUNT THE NUMBER OF CHARACTERS IN A 
                STRING.
            
           (NEW FOR D5.0):
            
             ALL BUGS FIXED TO DATE.
           *********************************************************************************
0          Referenced by comments of: 229/1, 533/1 
00727/002A *FTNTIDY                  LBLGEN          SA  G          W062:FTNTIDY.S(5000,5999)                                       
            5.0T3   293  FTNTIDY.LBLGEN.SA.002              1 LINE     72    4 PAGE UM   TIFFANY             JULY 03, 1981  18:44:15
            5.0T7   158                       
0          SUBROUTINE TO GENERATE OR RETRIEVE LABELS. ASSEMBLE USING THE FTNTIDY MACLIB
           (727/8).
1                                                                                               MON AUG 05/96   18:37:45   Page  501
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00727/003A *FTNTIDY                  STMTVM          SA  G          W062:FTNTIDY.S(6000,6999)                                       
            5.0T3   294  FTNTIDY.STMTVM.SA.003              1 LINE     72    4 PAGE UM   TIFFANY             JULY 03, 1981  18:44:36
            5.0T7   159                       
0          SUBROUTINE TO INITIALIZE, READ, AND WRITE A VIRTUAL MEMORY I/O FILE.
00727/004A *FTNTIDY                  SWAPLBL         SA  G          W062:FTNTIDY.S(7000,8999)                                       
            5.0T3   295  FTNTIDY.SWAPLBL.SA.004             1 LINE     72   15 PAGE UM   TIFFANY             JULY 03, 1981  18:44:58
            5.0T7   160                       
0          SUBROUTINE TO SWAP LABELS AND TIDY FORTRAN STATEMENTS. ASSEMBLE USING THE
           FTNTIDY MACLIB (727/8).
00727/005A *FTNTIDY                  FCNTABLE        SA  G          W062:FTNTIDY.S(9000,9999)                                       
            5.0T3   296  FTNTIDY.FCNTABLE.SA.005            1 LINE     72    4 PAGE UM   TIFFANY             JULY 03, 1981  18:45:27
            5.0T7   161                       
0          A TABLE OF FORTRAN FUNCTIONS. ASSEMBLE USING THE FTNTIDY MACLIB (727/8).
00727/006A *FTNTIDY                  SPRINT          SA  G          W062:FTNTIDY.S(10000,10999)                                     
            5.0T3   297  FTNTIDY.SPRINT.SA.006              1 LINE     72    4 PAGE UM   TIFFANY             JULY 03, 1981  18:45:47
            5.0T7   162                       
0          FTNTIDY'S OWN SUBROUTINE SPRINT.  CALLS SPRINT#.
00727/007A *FTNTIDY                  FTNREAD         SA  G          W062:FTNTIDY.S(11000,11999)                                     
            5.0T3   298  FTNTIDY.FTNREAD.SA.007             1 LINE     72    9 PAGE UM   TIFFANY             JULY 03, 1981  18:46:08
            5.0T7   163                       
0          AN INPUT ROUTINE THAT EDITS SOURCE ACCORDING TO LINE, EDITED, IBM, OR LONG
           FORMAT. ASSEMBLE USING THE FTNTIDY MACLIB (727/8).
00727/008A *FTNTIDY                  MACLIB          SM  G          W062:FTNTIDYMAC                                                 
            5.0T3   299  FTNTIDY.MACLIB.SM.008              1 LINE     72    6 PAGE UM   TIFFANY             JULY 03, 1981  18:46:30
            5.0T7   164                       
0          Referenced by comments of: 727/1, 727/2, 727/4, 727/5, 727/7 
00727/009A *FTNTIDY                                  OE  G          *FTNTIDY                                                        
            5.0T3   300  FTNTIDY..OE.009                    1 LINE  10644   21 PAGE UM   TIFFANY             JULY 03, 1981  18:46:32
            5.0T7   165  *FTNTIDY             
00728/001A  MISC.MACROS                              SM  G          COPY:MISC.MACROS                                                
            5.0T3   301  MISC.MACROS..SM.001                1 LINE     72    5 PAGE UM   MTA                 JULY 03, 1981  18:46:34
            5.0T7   166  COPY:MISC.MACROS     
0          CONTAINS VARIOUS MISCELLANEOUS SYSTEM MACROS INCLUDING CONSDSCT (THE CONSIO
           DSECT USED BY THE OPERATOR JOB, CONSIO SUBROUTINE, AND CONFIG JOB), IPLTVDCT
           USED BY IPLREAD AND CONFIG, THE MIF MACROS, THE SVCEQU, LOCKSVC, AND UNLKSVC
           MACROS. DOCUMENTATION FOR THE MIF MACROS IS AVAILABLE IN (685/4).
            
           *****************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
1                                                                                               MON AUG 05/96   18:37:45   Page  502
0  Num   R       Component Name         Subname     Type G Seq ID 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 DISK MANAGER CHANGES.
           *****************************************************************************
0          Referenced by comments of: 4/4, 21/1, 45/1, 46/1, 67/2, 79/1, 354/5, 400/1, 509/1, 515/1, 540/8, 577/1, 598/1,
                 629/1, 634/1, 634/4, 634/7, 682/22, 732/1, 769/1, 769/3, 769/5, 769/9, 769/11, 769/13, 769/15, 769/25, 770/1,
                 777/1, 787/11, 787/13, 787/15, 790/2, 790/4, 806/1, 811/3, 1051/16, 1051/20, 1058/8, 3024/1 
00729/001   FIND LABEL               *FLB            C              *FLB                                                            
            5.0T3   302  FIND_LABEL.*FLB.C.001              1 LINE     47    1 PAGE UM   WSG                 JULY 03, 1981  18:46:35
            5.0T7   167  *FLB                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE FNDLBL PROGRAM (729/2).
           INVOKED BY ENTERING MTS *FLB ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 135/1 
00729/002A  FIND LABEL               FNDLBL PGM      SA  G          WSG:FNDLBL(1,999)                                               
            5.0T3   303  FIND_LABEL.FNDLBL_PGM.SA.002       1 LINE     72    4 PAGE UM   WSG                 JULY 03, 1981  18:46:35
            5.0T7   168                       
0          PROGRAM TO READ A TAPE, PRINTING OUT THE VOLUME LABEL AND DENSITY. SOURCE IN
           LINES 1,999. ASSEMBLE USING THE PRINTDUMP MACROS (400/18). COPIES
           *CNFGINFODSECT (654).
            
           *****************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           MODIFIED TO INCORPORATE CHANGES MADE BY RPI TO PRINT INFORMATION ABOUT
           FILESAVE AND DUMP TAPES. IF PAR=>OPER IS GIVEN, IT WILL ALSO PRINT
           INFORMATION ABOUT THE FIRST FILE ON LABELED TAPES.
           *****************************************************************************
0          Referenced by comments of: 729/1 
00729/003A  FIND LABEL               FNDLBL PGM      OC  G          SYS:FNDLBL                                                      
            5.0T3   304  FIND_LABEL.FNDLBL_PGM.OC.003       1 LINE     80    3 PAGE UM   WSG                 JULY 03, 1981  18:46:37
            5.0T7   169  SYS.:FNDLBL          
00730/001A  TSS UTILITIES                            OC  G          MTS:TSS/REL3.UTL                                                
            5.0T3   305  TSS_UTILITIES..OC.001              1 LINE     80   34 PAGE UM   MTA                 JULY 03, 1981  18:46:37
            5.0T7   170                       
0          IPL-able decks for TSS Release 3 utilities (DASDI, DUMP/RESTORE, and VAM2
           utilities). Modified IBM object to allow all 16 channels.
00731/001   CHECKFE SUBR                             SA  G          S1430 4.3T1 VLO FSNAME=CHECKFE_SUBR..SA.001(1)               907
            5.0T3   306  CHECKFE_SUBR..SA.001               1 LINE     80    4 PAGE UM   OGDEN               MAY  22, 1979  07:40:40
            5.0T7   171                       
0          SUBROUTINE CALLED BY SSRTN (413/1) TO CHECK THE STATUS OF THE DATA
           CONCENTRATORS AND THE MERIT PDP-11, STORE THE STATUS CODE IN THE JOBSTA
           VECTOR, AND, OPTIONALLY, START AN MTS JOB IF "BAD" STATUS IS RETURNED.
           CALLS THE FESNIFF SUBROUTINE (731/3).  COPIES COPY:JOBSTA (413/9).
1                                                                                               MON AUG 05/96   18:37:45   Page  503
0  Num   R       Component Name         Subname     Type G Seq ID 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: 45/2, 413/1, 731/3 
00731/002   CHECKFE SUBR                             OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00731/003A  CHECKFE SUBR             FESNIFF SUBR    SA  G          S0683 OGDEN FSNAME=FESNIFF.S                                    
            5.0T3   307  CHECKFE_SUBR.FESNIFF_SUBR.SA.003   1 LINE     72    3 PAGE UM   OGDEN               OCT. 02, 1980  00:42:28
            5.0T7   172                       
0          SUBROUTINE CALLED BY CHECKFE (731/1) AND CHKDEV (734/3) TO ACTUALLY DETERMINE
           THE STATUS OF ONE OF THE DATA CONCENTRATORS OR THE MERIT PDP-11.  COPIES
           COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).
            
           ***********************************************************************************
           D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A):
            
           CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT.
           INSTALL IF AND ONLY IF D4.3A OR D5.0 UMMPS IS INSTALLED.
           ***********************************************************************************
0          Referenced by comments of: 731/1, 734/3 
00731/004A  CHECKFE SUBR             FESNIFF SUBR    OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00731/005   CHECKFE SUBR             *FIXFEP         C              *FIXFEP                                                         
            5.0T3   308  CHECKFE_SUBR.*FIXFEP.C.005         1 LINE     20    1 PAGE UM   OGDEN               JULY 03, 1981  18:48:02
            5.0T7   173  *FIXFEP              
0          OPERATOR FILE STARTED AUTOMATICALLY BY CHECKFE WHEN IT DETECTS SOMETHING 
           ABNORMAL WITH ONE OF THE FRONT END PROCESSORS. $SOURCES TO SYS:FIXFEP (731/6).
0          Referenced by comments of: 731/6 
00731/006A  CHECKFE SUBR             SYS:FIXFEP      C              SYS:FIXFEP                                                      
            5.0T3   309  CHECKFE_SUBR.SYS:FIXFEP.C.006      1 LINE     84    1 PAGE UM   OGDEN               JULY 03, 1981  18:48:03
            5.0T7   174  SYS:FIXFEP           
0          COMMAND FILE $SOURCED TO BY (731/5). $RUNS SYS:HUH (734/4).
0          Referenced by comments of: 731/5 
00731/007   CHECKFE SUBR             SYS:FIXLOG      D            # SYS:FIXLOG                                                      
                                                                                    UM   OGDEN                                      
                         SYS:FIXLOG@E         
0          LOG FILE USED BY SYS:FIXFEP.
1                                                                                               MON AUG 05/96   18:37:45   Page  504
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00732/001A  STOR                                     SA  G  STOR    W170:STOR(1000)                                                 
            5.0T3   310  STOR..SA.001                       1 LINE     80   39 PAGE UM   HELFFRICH           JULY 03, 1981  18:48:04
            5.0T7   175  W170:STOR            
0          STORAGE ALLOCATION ROUTINES (WHICH ARE INDEPENDENT OF MTS).  COPIES COPY:GLOBALS
           (1026/3) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING COPY:MTS.MACROS (344/3),
           COPY:CC.MACROS (1054/3), COPY:MISC.MACROS (728), AND COPY:SETPARM (653).
0          Referenced by comments of: 41/1 
00732/002A  STOR                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
0          Referenced by comments of: 732/3 
00732/003   STOR                     TEST PROGRAM    SA  G          W170:STOR.DUMP(1000)                                            
            5.0T3   311  STOR.TEST_PROGRAM.SA.003           1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  18:48:30
            5.0T7   176  W170:STOR.DUMP       
0          TEST PROGRAM TO BE $DEBUGGED WITH (732/2) TO TEST IT.  STORAGE REQUESTS CAN BE
           SIMULATED BY CHANGING REGISTER CONTENTS AND GOING TO THE ROUTINE ENTRY POINT.
           A CALL TO ROUTINE STORDUMP CAN BE SET UP TO DUMP THE RESULTANT CONTROL BLOCK
           STRUCTURE.  SEE COMMENTS IN LISTING.
00732/004   STOR                     TEST PROGRAM    OC  G          W170:STOR.DUMP(1,999)                                           
            5.0T3   312  STOR.TEST_PROGRAM.OC.004           1 LINE     80    3 PAGE UM   HELFFRICH           JULY 03, 1981  18:48:31
            5.0T7   177                       
00732/005C  STOR                     DUMP PROGRAM    SA  O          W170:STOR.VERIFY(1005)                                          
            5.0T3   313  STOR.DUMP_PROGRAM.SA.005           1 LINE     72    5 PAGE UM   HELFFRICH           JULY 03, 1981  18:48:32
            5.0T7   178                       
0          This program will read a dump tape and check storage control blocks for
           consistency.
00732/006C  STOR                     DUMP PROGRAM    OC  O          W170:STOR.VERIFY(1,999)                                         
            5.0T3   314  STOR.DUMP_PROGRAM.OC.006           1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  18:48:35
            5.0T7   179                       
0          Contains a "$CONTINUE WITH MTS:PRINTDUMP" (400/19) record.
00733/001A  INTRO GUIDE: TERMINALS                   WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERM81.SOU                
            5.0T3   315  INTRO_GUIDE:_TERMINALS..WF.001     1 LINE    102   44 PAGE UM   MANUAL              APR. 28, 1981  15:22:57
            5.0T7   180                       
0          FORMAT SOURCE FOR "INTRODUCTION TO TERMINALS," FEB. 1981.
00733/002A  INTRO GUIDE: TERMINALS                   PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERM81.OUT                
            5.0T3   316  INTRO_GUIDE:_TERMINALS..PF.002     1 LINE     97   96 PAGE UM   MANUAL              APR. 28, 1981  15:24:27
            5.0T7   181                       
0          FORMAT PRINT FILE.
1                                                                                               MON AUG 05/96   18:37:45   Page  505
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00733/003A  INTRO GUIDE: TERMINALS   INDEX           D              S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERM81.INDEX              
            5.0T3   317  INTRO_GUIDE:_TERMINALS.IN.D.003    1 LINE    100    4 PAGE UM   MANUAL              APR. 28, 1981  15:25:37
            5.0T7   182                       
0          INPUT TO *INDEX (580) FOR THE INDEX.
00734/001   HUH                      *HUH            C              *HUH                                                            
            5.0T3   318  HUH.*HUH.C.001                     1 LINE     63    1 PAGE UM   OGDEN               JULY 03, 1981  18:48:45
            5.0T7   183  *HUH                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE HUH PROGRAM (734/2).  INVOKED BY
           ENTERING "MTS *HUH" ON THE OPERATORS CONSOLE.
00734/002   HUH                      HUH PGM         SG  G          S1430 4.3T1 VLO FSNAME=HUH.HUH_PGM.SG.002(1)                 913
            5.0T3   319  HUH.HUH_PGM.SG.002                 1 LINE    106    1 PAGE UM   OGDEN               MAY  22, 1979  07:40:38
            5.0T7   184                       
0          PROGRAM WHICH CALLS THE CHKDEV SUBROUTINE (734/3) TO DETERMINE THE STATUS OF
           THE THREE DATA CONCENTRATORS AND THE MERIT PDP-11.
0          Referenced by comments of: 734/1, 734/3, 734/4 
00734/003   HUH                      CHKDEV SUBR     SA  G          S1430 4.3T1 VLO FSNAME=HUH.CHKDEV_SUBR.SA.003(1)             914
            5.0T3   320  HUH.CHKDEV_SUBR.SA.003             1 LINE     80    3 PAGE UM   OGDEN               MAY  22, 1979  07:40:42
            5.0T7   185                       
0          SUBROUTINE CALLED BY MUP (642/15) AND HUH (734/2) TO DETERMINE THE STATE OF
           THE MERIT PDP-11 OR ONE OF THE DATA CONCENTRATORS AND TO RETURN THE STATE
           AND AN ASSOCIATED TEXT STRING.  CALLS FESNIFF (731/3).
0          Referenced by comments of: 642/15, 642/19, 731/3, 734/2, 734/4 
00734/004   HUH                      SYS.:HUH        OC  G          S1430 4.3T1 VLO FSNAME=HUH..OC.004(1)                        915
            5.0T3   321  HUH.SYS.:HUH.OC.004                1 LINE   1182    3 PAGE UM   OGDEN               APR. 06, 1980  12:37:27
            5.0T7   186                       
0          OBJECT FOR HUH (734/2) AND CHKDEV (734/3).
0          Referenced by comments of: 731/6 
00735/001A  RESOURCES                FILEDEF         D              DBME:RES.FD                                                     
            5.0T3   322  RESOURCES.FILEDEF.D.001            1 LINE     84    9 PAGE UM   OGDEN               JULY 03, 1981  18:48:49
            5.0T7   187                       
0          THE FILE DEFINITION FOR THE SPIRES FILE DBME.RESOURCES,
           A CATALOG OF PROGRAMS, SUBROUTINES, AND DATA FILES AVAILABLE AT
           MICHIGAN COLLEGES AND UNIVERSITIES (UM, WSU, MSU, AND WMU).
           THIS FILE SHOULD BE USED WITH SPIRES 5.0 OR LATER VERSIONS
           ONLY AND SHOULD NOT BE RENUMBERED. ALWAYS COPY @-IC.
1                                                                                               MON AUG 05/96   18:37:45   Page  506
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00735/002   RESOURCES                NOTES           WF             S0683 OGDEN FSNAME=RES.NOTES.F                                  
            5.0T3   323  RESOURCES.NOTES.WF.002             1 LINE     69    2 PAGE UM   OGDEN               MAY  03, 1981  16:09:04
            5.0T7   188                       
0          NOTES ON INSTALLING DBME.RESOURCES.
00735/003A  RESOURCES                /A FILE         D              DBME:RESOURCES/A                                                
            5.0T3   324  RESOURCES./A_FILE.D.003            1 LINE   2048 1104 PAGE UM   OGDEN               JULY 03, 1981  18:49:16
            5.0T7   189                       
0          THE /A FILE FOR DBME.RESOURCES. 
00735/004A  RESOURCES                /Q FILE         D              DBME:RESOURCES/Q                                                
            5.0T3   325  RESOURCES./Q_FILE.D.004            1 LINE   2048    3 PAGE UM   OGDEN               JULY 03, 1981  18:50:23
            5.0T7   190                       
0          THE /Q FILE FOR DBME.RESOURCES.
00735/005A  RESOURCES                FORMATS         D              DBME:RES.FORMATS                                                
            5.0T3   326  RESOURCES.FORMATS.D.005            1 LINE    126   16 PAGE UM   OGDEN               JULY 03, 1981  18:50:23
            5.0T7   191                       
0          THE FORMATS ASSOCIATED WITH DBME.RESOURCES.
           THIS FILE IS ORGANIZED BY 1000S.
00735/006A  RESOURCES                THESAURUS       D              DBME:RES.THE                                                    
            5.0T3   327  RESOURCES.THESAURUS.D.006          1 LINE     87    8 PAGE UM   OGDEN               JULY 03, 1981  18:50:25
            5.0T7   192                       
0          BATCH INPUT USED TO BUILD THE THESAURUS ASSOCIATED WITH
           THE SPIRES SUBFILE RES-SUBJECTS.
00735/007A  RESOURCES                RES-SUBCHK      D              DBME:RES.SUBCHK                                                 
            5.0T3   328  RESOURCES.RES-SUBCHK.D.007         1 LINE    113   11 PAGE UM   OGDEN               JULY 03, 1981  18:50:26
            5.0T7   193                       
0          BATCH INPUT USED TO BUILD THE SPIRES SUBFILE RES-SUBCHK.
00735/008A  RESOURCES                JUG SUB. CODES  P              DBME:RES.SUBJECT                                                
            5.0T3   329  RESOURCES.JUG_SUB._CODES.P.008     1 LINE     72    6 PAGE UM   OGDEN               JULY 03, 1981  18:50:29
            5.0T7   194                       
0          A "READABLE" LIST OF THE MODIFIED JOINT USERS GROUP (JUG)
           SUBJECT CODES.
00736/001   PLM                      PASS 0          SF  O  PLMO    S1153 UNSP VLO FSNAME=PLM80.S                                   
            5.0T3   330  PLM.PASS_0.SF.001                  1 LINE     80    1 PAGE UM   UNSP                DEC. 19, 1977  11:41:29
            5.0T7   195                       
0          THE INTEL PL/M CROSS COMPILER (VERSION 2) FOR THE 8080 MICROPROCESSOR.
           THIS IS A SHORT FORTRAN PROGRAM THAT SETS UP SOME DEFAULT I/O UNIT
           ASSIGNMENTS BY CALLING FTNCMD AND THEN LINKS TO PASS1 (736/3) AND 
           PASS2 (736/5) OF THE COMPILER.
1                                                                                               MON AUG 05/96   18:37:45   Page  507
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00736/002   PLM                      PASS 0          OE  O          UNSP:PLM                                                        
            5.0T3   331  PLM.PASS_0.OE.002                  1 LINE   1162    1 PAGE UM   UNSP                JULY 03, 1981  18:50:54
            5.0T7   196                       
00736/003   PLM                      PASS 1          SF  O        # S1153 UNSP VLO FSNAME=PLM81.S                                   
                                                                                    UM   UNSP                                       
0          PASS 1 OF VERSION 2 OF INTEL'S PL/M CROSS COMPILER.
            
           NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS.
0          Referenced by comments of: 736/1 
00736/004   PLM                      PASS 1          OE  O        # UNSP:PLM81                                                      
                                                                                    UM   UNSP                                       
00736/005   PLM                      PASS 2          SF  O        # S1153 UNSP VLO FSNAME=PLM82.S                                   
                                                                                    UM   UNSP                                       
0          PASS 2 OF VERSION 2 OF INTEL'S PL/M CROSS COMPILER.
            
           NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS.
0          Referenced by comments of: 736/1 
00736/006   PLM                      PASS 2          OE  O        # UNSP:PLM82                                                      
                                                                                    UM   UNSP                                       
00736/007   PLM                      SAMPLE PGM      S   G          UNSP:PLM.SAMPLE                                                 
            5.0T3   332  PLM.SAMPLE_PGM.S.007               1 LINE     72    1 PAGE UM   UNSP                JULY 03, 1981  18:51:08
            5.0T7   197                       
0          A SAMPLE PLM PROGRAM.
00736/008A  PLM                                      WF             S1153 UNSP VLO FSNAME=PLM.FMT                                   
            5.0T3   333  PLM..WF.008                        1 LINE     69    3 PAGE UM   UNSP                SEP. 15, 1980  16:43:33
            5.0T7   198                       
00737/001  *ASMH                     BASIC MATERIAL  O   O        # S0858 'ASMH PTF 21' FMT=FB(3440,80)                         1   
                                                                                    UM   MTA                                        
0          IBM ASMH PROGRAM PRODUCT ASSEMBLER, WHICH CANNOT BE DISTRIBUTED, BUT MUST BE
           OBTAINED DIRECTLY FROM IBM. THE MTS DISTRIBUTION CONSISTS ONLY OF
           DOCUMENTATION AND COMMANDS, PROGRAMS, AND UPDATES TO THE IBM SOURCE TO
           INSTALL ASMH IN MTS. COMPONENTS (737/1) - (737/9) ARE THE OS VERSION WHICH IS
           INTENDED TO BE USED UNDER *FAKEOS TO ASSEMBLE THE MTS VERSION, WHICH BEGINS
           WITH COMPONENT (737/10).
            
           (737/1), THE BASIC MATERIAL, IS THE IBM SUPPLIED TAPE FOR PTF 21 ASMH. THE
           PAPER LABEL ON THE IBM TAPE HAS THE FOLLOWING FORM:
            
                           ***************************
                       ****        5734-AS1           ****
                    ***                                   ***
1                                                                                               MON AUG 05/96   18:37:45   Page  508
0  Num   R       Component Name         Subname     Type G Seq ID 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                 **        LICEN-PROGRAM IBM PROPERTY       **
                 *       COPYRIGHT 1970 IBM CORP.              *
                *                                               *
                *       F0021    PF02                           *
                *     987-G3-30       *****         V05 M00     *
                *   5806171        ***     ***        9TR/1600  *
                *  #0535         **           **         B0064  *
                *****************               *****************
0          Referenced by comments of: 210/1, 511/1, 648/1, 686/1, 721/1, 737/1, 810/13, 822/2, 822/6, 822/11, 822/20, 1038/8 
00737/002  *ASMH                     OS INFO         WF             S1143 D4.1T1 VLO FSNAME=ASMH.OS_INFO.WF.002(1)               577
            5.0T3   334  ASMH.OS_INFO.WF.002                1 LINE     98    2 PAGE UM   MTA                 MAY  13, 1978  18:24:21
            5.0T7   199                       
0          COMPUTING CENTER INTERNAL STAFF MEMO DESCRIBING THE USE OF ASMH UNDER *FAKEOS.
00737/003  *ASMH                     INVOKER         SA  G          S1143 D4.1T1 VLO FSNAME=ASMH.INVOKER.SA.003(1)               578
            5.0T3   335  ASMH.INVOKER.SA.003                1 LINE     71    3 PAGE UM   MTA                 MAY  13, 1978  18:24:22
            5.0T7   200                       
0          PROGRAM TO INVOKE *FAKEOS TO RUN THE OS VERSION OF ASMH. CONTAINS $CONTINUE
           WITH FAKEOS.GBLS (545/19) AND *GDINFODSECT (594) RECORDS. THE OBJECT PROGRAM
           USES NEW:ASMHSYSMAC (737/9), -ASMH#UT1, &ASMHID:ASMHLIB (737/7), AND
           &ASMHID:ASMHBLDL (737/6).
0          Referenced by comments of: 737/6, 737/7 
00737/004  *ASMH                     INVOKER         OE  G          S1143 D4.1T1 VLO FSNAME=ASMH.INVOKER.OE.004(1)               579
            5.0T3   336  ASMH.INVOKER.OE.004                1 SEQ     853    1 PAGE UM   MTA                 MAY  13, 1978  18:24:23
            5.0T7   201                       
00737/005  *ASMH                     BLDL INPUT      D              S1143 D4.1T1 VLO FSNAME=ASMH.BLDL_INPUT.D.005(1)             580
            5.0T3   337  ASMH.BLDL_INPUT.D.005              1 LINE     60    1 PAGE UM   MTA                 MAY  13, 1978  18:24:24
            5.0T7   202                       
0          INPUT TO *FAKEOSCREBLDL (545/42) FOR ASMH OS OBJECT DECKS.
00737/006  *ASMH                     BLDL            D              S1143 D4.1T1 VLO FSNAME=ASMH.BLDL.D.006(1)                   581
            5.0T3   338  ASMH.BLDL.D.006                    1 SEQ     250    1 PAGE UM   MTA                 MAY  13, 1978  18:24:25
            5.0T7   203                       
0          OUTPUT FROM *FAKEOSCREBLDL (545/42) FOR OS VERSION OF ASMH. USED BY ASMHINVK
           (737/3).
0          Referenced by comments of: 737/3 
00737/007  *ASMH                     OS LIBRARY      OL  O        # ETC:ASMHLIB                                                     
                                                                                    UM   MTA                                        
0          OBJECT LIBRARY VERSION OF OS ASMH.  USED BY ASMHINVK (737/3).  THIS FILE
           CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS.
0          Referenced by comments of: 737/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  509
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00737/008  *ASMH                     BLOCK MACROS    SS  O          S0938 FSAVE2 VLO FSNAME=ASMHBLOCKMAC                            
            5.0T3   339  ASMH.BLOCK_MACROS.SS.008           1 LINE     70    1 PAGE UM   MTA                 MAR. 09, 1978  22:41:24
            5.0T7   204                       
0          PROGRAM TO BLOCK A MACRO LIBRARY FOR THE OS VERSION OF ASMH.  THIS MAKES IT RUN
           FASTER AND ALLOWS LARGER LIBRARIES BY USING FEWER LINE NUMBERS.  USES UNSP:SPITLIB.
00737/009  *ASMH                     SYSMAC          SM  G          S1143 D4.1T1 VLO FSNAME=ASMH.SYSMAC.SM.009(1)                583
            5.0T3   340  ASMH.SYSMAC.SM.009                 1 LINE   4000   98 PAGE UM   MTA                 MAY  13, 1978  18:26:10
            5.0T7   205                       
0          VERSION OF *SYSMAC FOR OS ASMH.  THIS AGREED WITH *SYSMAC WHEN IT WAS PRODUCED
           EXCEPT FOR A FEW CHANGES WHICH WORK ONLY IN THE MTS VERSION OF ASMH.
0          Referenced by comments of: 737/1, 737/3, 737/20 
00737/010  *ASMH                     OPTNL MATERIAL  SM  O        # S0991 'ASMH SOURCE' FMT=FB(3440,80)                         1   
                                                                                    UM   MTA                                        
0          SOURCE FOR THE ASMH MACRO LIBRARY.  THIS DOES NOT QUITE AGREE WITH THE OBJECT
           IN THE BASIC MATERIAL.  THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT
           RESTRICTIONS.  THE PAPER LABEL ON THE IBM TAPE HAS THE FOLLOWING FORM:
            
                           ***************************
                       ****        5734-AS1           ****
                    ***                                   ***
                  **        LICEN-PROGRAM IBM PROPERTY       **
                 *       COPYRIGHT 1970 IBM CORP.              *
                *                                               *
                *       7029 OPTIONAL                           *
                *     043-G4-46       *****         V05 M00     *
                *   5806171        ***     ***        9TR/1600  *
                *  #0694         **           **         B0634  *
                *****************               *****************
0          Referenced by comments of: 737/1, 737/23 
00737/011  *ASMH                     OPTNL MATERIAL  SA  O        # S0991 'ASMH SOURCE' FMT=FB(3440,80)                         2   
                                                                                    UM   MTA                                        
0          SOURCE FOR THE OS VERSION OF ASMH.  THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM
           COPYRIGHT RESTRICTIONS.
0          Referenced by comments of: 737/15 
00737/012  *ASMH                     INFO            WF             S1143 D4.1T1 VLO FSNAME=ASMH.INFO.WF.012(1)                  584
            5.0T3   341  ASMH.INFO.WF.012                   1 LINE    140    4 PAGE UM   MTA                 MAY  13, 1978  18:26:16
            5.0T7   206                       
0          MEMO TO COMPUTING CENTER STAFF DESCRIBING THE MTS (NOT *FAKEOS) VERSION OF *ASMH.
0          Referenced by comments of: 737/13 
1                                                                                               MON AUG 05/96   18:37:45   Page  510
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00737/013  *ASMH                     INFO2           WF             S0938 FSAVE2 VLO FSNAME=ASMHINFO2(1)                        448 
            5.0T3   342  ASMH.INFO2.WF.013                  1 LINE     80    2 PAGE UM   MTA                 NOV. 01, 1978  02:17:47
            5.0T7   207                       
0          ADDENDUM TO (737/12).
00737/014  *ASMH                     INFO3           WX             S0938 FSAVE2 VLO FSNAME=ASMHMEMO                            520 
            5.0T3   343  ASMH.INFO3.WX.014                  1 LINE    106    5 PAGE UM   MTA                 NOV. 02, 1979  22:27:02
            5.0T7   208                       
0          A MEMO GIVING DETAILS ABOUT RECENT CHANGES TO *ASMH.
00737/015A *ASMH                     UTILITY         SS  O          MTA:ASMHUTIL                                                    
            5.0T3   344  ASMH.UTILITY.SS.015                1 LINE    117    4 PAGE UM   MTA                 JULY 03, 1981  18:53:42
            5.0T7   209  MTA.:ASMHUTIL        
0          SPITBOL PROGRAM AND MTS COMMANDS TO MAKE ASSEMBLING LESS THAN ALL OF *ASMH POSSIBLE.
           $SOURCE TO IT AND SAY HELP FOR EXPLANATION.  IT KEEPS A LOG OF CHANGES IN ASMHLOG.
           IT ASSUMES THE MACRO UPDATE HAS BEEN DONE.  THE FOLLOWING FILES ARE REFERENCED:
           SYS:ASMHMASTER (737/11), WATF:ASMHMACLIB (737/25), ASMHDIR (737/16), ASMHUPD
           (737/18), ASMHUPDBUGS (737/19), ASMHUPDMTS (737/20), ASMHUPDNUM (737/21), ASMHUPDEXTEN
           (737/22), ASMHOBJ (737/29), VARIOUS SCRATCH FILES, UNSP:SPITLIB (590/30), ASMHLOG, AND
           *CDUPDATE (1036/2).
0          Referenced by comments of: 737/16 
00737/016A *ASMH                     DIR             D              MTA:ASMHDIR                                                     
            5.0T3   345  ASMH.DIR.D.016                     1 LINE    315    3 PAGE UM   MTA                 JULY 03, 1981  18:53:44
            5.0T7   210  MTA.:ASMHDIR         
0          DIRECTORY OF LOCATION OF *ASMH COMPONENTS USED BY ASMHUTIL (737/15).
0          Referenced by comments of: 737/15 
00737/017  *ASMH                     INSTALL         C              MTA:ASMHINSTALL                                                 
            5.0T3   346  ASMH.INSTALL.C.017                 1 LINE     50    1 PAGE UM   MTA                 JULY 03, 1981  18:53:45
            5.0T7   211  MTA.:ASMHINSTALL     
0          COMMANDS TO CREATE A NEW VERSION OF SEG2:ASMH IN -SEG2.
00737/018A *ASMH                     FIRST UPDATE    UC  G          MTA:ASMHUPD                                                     
            5.0T3   347  ASMH.FIRST_UPDATE.UC.018           1 LINE     51    3 PAGE UM   MTA                 JULY 03, 1981  18:53:46
            5.0T7   212  MTA.:ASMHUPD         
0          UPDATE TO GET RID OF THE ./ CARDS AND IRRELEVANT COMPONENTS IN THE SOURCE ON THE
           IBM TAPE.  MUST BE THE FIRST UPDATE APPLIED.  THE OTHERS SHOULD WORK IN ANY ORDER,
           BUT MAY NOT.  THE ORDER USED HERE IS BUGS, MTS, NUM, AND EXTEN.  HAS $CONTINUE
           WITHS TO ASMHUPDBUGS (737/19), ASMHUPDMTS (737/20), ASMHUPDNUM (737/21), AND
           ASMHUPDEXTEN (737/22).
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONVERTED TO A NEW FORMAT.
1                                                                                               MON AUG 05/96   18:37:45   Page  511
0  Num   R       Component Name         Subname     Type G Seq ID 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          ***********************************************************************************
0          Referenced by comments of: 737/15 
00737/019A *ASMH                     BUGS UPDATE     UC  G          MTA:ASMHUPDBUGS                                                 
            5.0T3   348  ASMH.BUGS_UPDATE.UC.019            1 LINE     71   21 PAGE UM   MTA                 JULY 03, 1981  18:53:47
            5.0T7   213  MTA.:ASMHUPDBUGS     
0          UPDATE TO FIX BUGS AND CLEAN UP ASMH, INCLUDING SEVERAL SPEED IMPROVEMENTS.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONVERTED TO A NEW FORMAT.
           ***********************************************************************************
0          Referenced by comments of: 737/15, 737/18 
00737/020A *ASMH                     MTS UPDATE      UC  G          MTA:ASMHUPDMTS                                                  
            5.0T3   349  ASMH.MTS_UPDATE.UC.020             1 LINE     73   29 PAGE UM   MTA                 JULY 03, 1981  18:53:50
            5.0T7   214  MTA.:ASMHUPDMTS      
0          UPDATE TO MAKE ASMH WORK IN MTS.  THREE " COPY *GDINFODSECT" STATEMENTS
           IN THIS FILE MUST BE CHANGED TO " COPY GDDSECT" FOR THE FIRST ASSEMBLY OF
           ASMH (UNDER *FAKEOS) SINCE THE OS VERSION RESTRICTS COPY SECTION NAMES TO
           EIGHT-CHARACTER IDENTIFIERS.  ALSO, A MACRO LIBRARY CONTAINING ASMHSYSMAC 
           (737/9), ASMHMACLIB (737/25), AND GDDSECT, MUST BE BUILT, SINCE ONLY ONE
           MACRO LIBRARY IS ALLOWED BY THE OS VERSION.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONVERTED TO A NEW FORMAT.
           ***********************************************************************************
0          Referenced by comments of: 737/15, 737/18 
00737/021A *ASMH                     NUM UPDATE      UC  G          MTA:ASMHUPDNUM                                                  
            5.0T3   350  ASMH.NUM_UPDATE.UC.021             1 LINE     70    6 PAGE UM   MTA                 JULY 03, 1981  18:53:54
            5.0T7   215  MTA.:ASMHUPDNUM      
0          UPDATE TO ADD NUM OPTION.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONVERTED TO A NEW FORMAT.
           ***********************************************************************************
0          Referenced by comments of: 737/15, 737/18 
1                                                                                               MON AUG 05/96   18:37:45   Page  512
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00737/022A *ASMH                     EXTEN OPTION    UC  G          MTA:ASMHUPDEXTEN                                                
            5.0T3   351  ASMH.EXTEN_OPTION.UC.022           1 LINE     72   12 PAGE UM   MTA                 JULY 03, 1981  18:53:56
            5.0T7   216  MTA.:ASMHUPDEXTEN    
0          UPDATE TO ADD FEATURES CONTROLLED BY EXTEN OPTION.
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONVERTED TO A NEW FORMAT.
           ***********************************************************************************
0          Referenced by comments of: 737/15, 737/18 
00737/023A *ASMH                     MACRO UPDATE    UC  G          MTA:ASMHMACUPD                                                  
            5.0T3   352  ASMH.MACRO_UPDATE.UC.023           1 LINE     78   25 PAGE UM   MTA                 JULY 03, 1981  18:53:58
            5.0T7   217  MTA.:ASMHMACUPD      
0          UPDATE TO PRODUCE THE MTS MACRO LIBRARY FROM THE IBM SOURCE (737/10).
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CONVERTED TO A NEW FORMAT.
           ***********************************************************************************
0          Referenced by comments of: 737/25 
00737/024A *ASMH                     NEW UPDATES     UC  G          MTA:ASMHUPDNEW                                                  
            5.0T3   353  ASMH.NEW_UPDATES.UC.024            1 LINE     78   89 PAGE UM   MTA                 JULY 03, 1981  18:54:02
            5.0T7   218  MTA:ASMHUPDNEW       
0          POST D4.1 UDPATES, IN CHRONOLOGICAL ORDER, TO ASMH.
            
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
               CONVERTED TO A NEW FORMAT.
            
           New changes:
            
               See the comments.
           ***********************************************************************************
00737/025A *ASMH                     MACRO LIBRARY   SM  G        # WATF:ASMHMACLIB                                                 
                                                                                    UM   MTA                                        
0          OUTPUT FROM (737/23) UPDATE.
0          Referenced by comments of: 737/15, 737/20, 737/28 
1                                                                                               MON AUG 05/96   18:37:45   Page  513
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00737/026  *ASMH                     MAIN PGM        SA  G          MTA:ASMHMAIN(1,999)                                             
            5.0T3   354  ASMH.MAIN_PGM.SA.026               1 LINE     38    1 PAGE UM   MTA                 JULY 03, 1981  18:54:09
            5.0T7   219  MTA.:ASMHMAIN        
0          MAIN PROGRAM TO CALL IEV90.  THIS PLUS IEV60 AND IEV61 ARE IN *ASMH.  THE REST
           MAY BE EITHER THERE OR IN SHARED VM.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 737/30 
00737/027  *ASMH                     MAIN PGM        OC  G          MTA:ASMHMAIN(1000)                                              
            5.0T3   355  ASMH.MAIN_PGM.OC.027               1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  18:54:10
            5.0T7   220                       
0          ENDS WITH A "$CONTINUE WITH MTA:ASMHOBJ" RECORD.
00737/028  *ASMH                     OPTIONS ASMBLY  SA  G          S1143 D4.1T1 VLO FSNAME=ASMH.OPTIONS_ASMBLY.SA.024(1)        595
            5.0T3   356  ASMH.OPTIONS_ASMBLY.SA.028         1 LINE     49    1 PAGE UM   MTA                 MAY  13, 1978  18:27:02
            5.0T7   221                       
0          SOURCE FOR THE "SYSGEN OPTIONS" ASSEMBLY WHICH PRODUCES IEV61 WITH LOCAL OPTIONS.
           ASSEMBLE USING ASMHMACLIB (737/25).
00737/029A *ASMH                     OBJECT          OC  G        # MTA:ASMHOBJ                                                     
                                                                                    UM   MTA                                        
0          FULL OBJECT WITH SYM CARDS.  THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT
           RESTRICTIONS.
0          Referenced by comments of: 737/15 
00737/030A *ASMH                     *ASMH           OE  G        # *ASMH                                                           
                                                                                    UM   MTA                                        
0          COMBINED AND PURGED OBJECT OF ASMHMAIN (737/26), IEV60, AND IEV61.  THIS FILE CANNOT
           BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS.
0          Referenced by comments of: 163/13, 775/1, 775/2 
00737/031A *ASMH                     SHARED VM OBJ   OE  G        # SEG2:ASMH                                                       
                                                                                    UM   MTA                                        
0          OBJECT WITHOUT SYM CARDS FOR THE SHARED VM PART OF ASMH.  IT INCLUDES ALL MODULES
           EXCEPT IEV60 AND IEV61.  THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT
           RESTRICTIONS.
00737/032  *ASMH                     TEST PGM #1     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT1                                  
            5.0T3   357  ASMH.TEST_PGM_#1.SA.032            1 LINE     54    1 PAGE UM   MTA                 APR. 17, 1981  16:57:28
            5.0T7   222                       
0          PROGRAM TO TEST SS INSTRUCTIONS.
1                                                                                               MON AUG 05/96   18:37:45   Page  514
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00737/033  *ASMH                     TEST PGM #2     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT2                                  
            5.0T3   358  ASMH.TEST_PGM_#2.SA.033            1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  16:58:57
            5.0T7   223                       
0          PROGRAM TO TEST NEW SYSTEM SET SYMBOLS.  START AT LINE *F.
00737/034  *ASMH                     TEST PGM #3     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT3                                  
            5.0T3   359  ASMH.TEST_PGM_#3.SA.034            1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  16:59:13
            5.0T7   224                       
0          PROGRAM TO TEST LITERALS IN EQU STATEMENTS AND EXPRESSIONS.
00737/035  *ASMH                     TEST PGM #4     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT4                                  
            5.0T3   360  ASMH.TEST_PGM_#4.SA.035            1 LINE     76    1 PAGE UM   MTA                 APR. 17, 1981  16:59:26
            5.0T7   225                       
0          PROGRAM TO TEST LINE NUMBER PRINTING.  START AT LINE *F.
00737/036  *ASMH                     TEST PGM #5     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT5                                  
            5.0T3   361  ASMH.TEST_PGM_#5.SA.036            1 LINE     77    1 PAGE UM   MTA                 APR. 17, 1981  17:26:11
            5.0T7   226                       
0          PROGRAM TO TEST COPY AND LIBRARY MACROS.  START AT LINE 10 AND ASSIGN 0 TO THIS FILE TOO.
00737/037  *ASMH                     TEST PGM #6     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT6                                  
            5.0T3   362  ASMH.TEST_PGM_#6.SA.037            1 LINE     70    1 PAGE UM   MTA                 APR. 17, 1981  17:27:02
            5.0T7   227                       
0          PROGRAM TO TEST OPDEF, INSTSET, AND 360/67 INSTRUCTIONS.
00737/038  *ASMH                     TEST PGM #7     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT7                                  
            5.0T3   363  ASMH.TEST_PGM_#7.SA.038            1 LINE     58    1 PAGE UM   MTA                 APR. 17, 1981  17:27:21
            5.0T7   228                       
0          PROGRAM TO TEST NULL TYPE C CONSTANTS IN DC OR DS STATEMENTS.
00737/039  *ASMH                     TEST PGM #8     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT8                                  
            5.0T3   364  ASMH.TEST_PGM_#8.SA.039            1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:27:42
            5.0T7   229                       
0          PROGRAM TO TEST "*NNN" ON LCLC OR GBLC DECLARATIONS.
00737/040  *ASMH                     TEST PGM #9     SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT9                                  
            5.0T3   365  ASMH.TEST_PGM_#9.SA.040            1 LINE     63    1 PAGE UM   MTA                 APR. 17, 1981  17:27:56
            5.0T7   230                       
0          PROGRAM TO TEST ILLEGAL USE OF & THAT BLOWS THE OS VERSION.  START AT LINE
           10 AND ASSIGN 0 TO THIS FILE. 
00737/041  *ASMH                     TEST PGM #10    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT10                                 
            5.0T3   366  ASMH.TEST_PGM_#10.SA.041           1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:28:15
            5.0T7   231                       
0          PROGRAM TO TEST INNER MACRO DEFINITION.
1                                                                                               MON AUG 05/96   18:37:45   Page  515
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00737/042  *ASMH                     TEST PGM #11    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT11                                 
            5.0T3   367  ASMH.TEST_PGM_#11.SA.042           1 LINE     72    3 PAGE UM   MTA                 APR. 17, 1981  17:28:24
            5.0T7   232                       
0          PROGRAM TO TEST ORDINARY SYMBOLS IN CONDITIONAL ASSEMBLY.
00737/043  *ASMH                     TEST PGM #12    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT12                                 
            5.0T3   368  ASMH.TEST_PGM_#12.SA.043           1 LINE     59    1 PAGE UM   MTA                 APR. 17, 1981  17:28:49
            5.0T7   233                       
0          PROGRAM TO TEST SYM CARDS.
00737/044  *ASMH                     TEST PGM #13    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT13                                 
            5.0T3   369  ASMH.TEST_PGM_#13.SA.044           1 LINE     72    3 PAGE UM   MTA                 APR. 17, 1981  17:29:01
            5.0T7   234                       
0          PROGRAM TO TEST MACRO PARAMETER SCANNING.
00737/045A *ASMH                     TEST PGM #14    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT14                                 
            5.0T3   370  ASMH.TEST_PGM_#14.SA.045           1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:29:15
            5.0T7   235                       
0          PROGRAM TO TEST SERCOM OUTPUT.
00737/046  *ASMH                     TEST PGM #15    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT20                                 
            5.0T3   371  ASMH.TEST_PGM_#15.SA.046           1 LINE     28    1 PAGE UM   MTA                 APR. 17, 1981  17:30:47
            5.0T7   236                       
0          PROGRAM TO TEST INTERMEDIATE TEXT FILE AND PRINT ONLY TEXT.
00737/047  *ASMH                     TEST PGM #16    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT16                                 
            5.0T3   372  ASMH.TEST_PGM_#16.SA.047           1 LINE     45    1 PAGE UM   MTA                 APR. 17, 1981  17:29:45
            5.0T7   237                       
0          PROGRAM TO TEST REDEFINITION OF MACROS.
00737/048  *ASMH                     TEST PGM #17    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT17                                 
            5.0T3   373  ASMH.TEST_PGM_#17.SA.048           1 LINE     61    1 PAGE UM   MTA                 APR. 17, 1981  17:30:00
            5.0T7   238                       
0          PROGRAM TO TEST AREAD.
00737/049  *ASMH                     TEST PGM #18    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT18                                 
            5.0T3   374  ASMH.TEST_PGM_#18.SA.049           1 LINE     53    1 PAGE UM   MTA                 APR. 17, 1981  17:30:11
            5.0T7   239                       
0          PROGRAM TO TEST MSGLEVEL PARAMETER AND SERCOM OUTPUT.  RUN WITH MSGLEVEL=9.
00737/050  *ASMH                     TEST PGM #19    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT19                                 
            5.0T3   375  ASMH.TEST_PGM_#19.SA.050           1 LINE     75    1 PAGE UM   MTA                 APR. 17, 1981  17:30:24
            5.0T7   240                       
0          PROGRAM TO TEST CONTINUATION AT FUNNY PLACES WHICH DON'T WORK IN OS VERSION.
1                                                                                               MON AUG 05/96   18:37:45   Page  516
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00737/051  *ASMH                     TEST PGM #20    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT20                                 
            5.0T3   376  ASMH.TEST_PGM_#20.SA.051           1 LINE     28    1 PAGE UM   MTA                 APR. 17, 1981  17:30:47
            5.0T7   241                       
0          PROGRAM TO TEST REPRO.
00737/052  *ASMH                     TEST PGM #21    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT21                                 
            5.0T3   377  ASMH.TEST_PGM_#21.SA.052           1 LINE     74    2 PAGE UM   MTA                 APR. 17, 1981  17:31:02
            5.0T7   242                       
0          PROGRAM TO TEST MNOTE AND PUNCH.
00737/053  *ASMH                     TEST PGM #22    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT22                                 
            5.0T3   378  ASMH.TEST_PGM_#22.SA.053           1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:31:17
            5.0T7   243                       
0          PROGRAM TO TEST TITLE, EJECT, SPACE, AND PRINT.
00737/054A *ASMH                     TEST PGM #23    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT23                                 
            5.0T3   379  ASMH.TEST_PGM_#23.SA.054           1 LINE     39    1 PAGE UM   MTA                 APR. 17, 1981  17:31:32
            5.0T7   244                       
0          PROGRAM TO TEST RS AND SI INSTRUCTIONS.
00737/055  *ASMH                     TEST PGM #24    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT24                                 
            5.0T3   380  ASMH.TEST_PGM_#24.SA.055           1 LINE     61    1 PAGE UM   MTA                 APR. 17, 1981  17:31:45
            5.0T7   245                       
0          PROGRAM TO TEST ADCONS IN DSECTS.
00737/056  *ASMH                     TEST PGM #25    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT25                                 
            5.0T3   381  ASMH.TEST_PGM_#25.SA.056           1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:32:06
            5.0T7   246                       
0          PROGRAM TO TEST TYPE X, B, AND C CONSTANTS.
00737/057  *ASMH                     TEST PGM #26    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT26                                 
            5.0T3   382  ASMH.TEST_PGM_#26.SA.057           1 LINE     37    1 PAGE UM   MTA                 APR. 17, 1981  17:32:21
            5.0T7   247                       
0          PROGRAM TO TEST EJECT AT BOTTOM OF PAGE WHICH GIVES A BLANK PAGE IN OS VERSION.
00737/058  *ASMH                     TEST PGM #27    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT27                                 
            5.0T3   383  ASMH.TEST_PGM_#27.SA.058           1 LINE     64    1 PAGE UM   MTA                 APR. 17, 1981  17:32:45
            5.0T7   248                       
0          PROGRAM TO TEST TRUNCATED SETC EXPRESSIONS.
00737/059  *ASMH                     TEST PGM #28    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT28                                 
            5.0T3   384  ASMH.TEST_PGM_#28.SA.059           1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:33:01
            5.0T7   249                       
0          PROGRAM TO TEST BLANK CARDS WITH AND WITHOUT LABELS.
1                                                                                               MON AUG 05/96   18:37:45   Page  517
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00737/060  *ASMH                     TEST PGM #29    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT29                                 
            5.0T3   385  ASMH.TEST_PGM_#29.SA.060           1 LINE     55    1 PAGE UM   MTA                 APR. 17, 1981  17:33:10
            5.0T7   250                       
0          PROGRAM TO TEST LENGTH ATTRIBUTE WITH LITERALS, SET SYMBOLS, AND PARAMETERS.
00737/061  *ASMH                     TEST PGM #30    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT30                                 
            5.0T3   386  ASMH.TEST_PGM_#30.SA.061           1 LINE     54    1 PAGE UM   MTA                 APR. 17, 1981  17:33:24
            5.0T7   251                       
0          PROGRAM TO TEST TITLES WITH SET SYMBOLS AND IN MACROS.
00737/062  *ASMH                     TEST PGM #31    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT31                                 
            5.0T3   387  ASMH.TEST_PGM_#31.SA.062           1 LINE     67    1 PAGE UM   MTA                 APR. 17, 1981  17:33:45
            5.0T7   252                       
0          PROGRAM TO TEST MHELP 8 OUTPUT.
00737/063  *ASMH                     TEST PGM #32    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT32                                 
            5.0T3   388  ASMH.TEST_PGM_#32.SA.063           1 LINE     65    1 PAGE UM   MTA                 APR. 17, 1981  17:34:03
            5.0T7   253                       
0          PROGRAM TO TEST UNREFERENCED DXD'S.
00737/064  *ASMH                     TEST PGM #33    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT33                                 
            5.0T3   389  ASMH.TEST_PGM_#33.SA.064           1 LINE     66    1 PAGE UM   MTA                 APR. 17, 1981  17:34:18
            5.0T7   254                       
0          PROGRAM TO TEST EXPRESSIONS IN Q TYPE CONSTANTS.
00737/065  *ASMH                     TEST PGM #34    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT34                                 
            5.0T3   390  ASMH.TEST_PGM_#34.SA.065           1 LINE     72    4 PAGE UM   MTA                 APR. 17, 1981  17:34:33
            5.0T7   255                       
0          PROGRAM TO TEST ORG AND LOCTR.  CONTAINS SEVERAL ASSEMBLIES.
00737/066  *ASMH                     TEST PGM #35    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT35                                 
            5.0T3   391  ASMH.TEST_PGM_#35.SA.066           1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:34:46
            5.0T7   256                       
0          PROGRAM TO TEST TRAILING COMMAS ON VARIOUS ASSEMBLER STATEMENTS.
00737/067  *ASMH                     TEST PGM #36    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT36                                 
            5.0T3   392  ASMH.TEST_PGM_#36.SA.067           1 LINE     58    1 PAGE UM   MTA                 APR. 17, 1981  17:35:16
            5.0T7   257                       
0          TEST PROGRAM FOR PEXIT SUBROUTINE AND PARAMETER AND OCTL. INTENDED TO BE USED
           WITH (737/68).
00737/068  *ASMH                     PEXIT TEST      SA  G          S0938 FSAVE2 VLO FSNAME=ASMH.PEXIT                              
            5.0T3   393  ASMH.PEXIT_TEST.SA.068             1 LINE     80    1 PAGE UM   MTA                 APR. 17, 1981  17:37:23
            5.0T7   258                       
0          SAMPLE PEXIT SUBROUTINE WHICH WRITES ITS PARAMETERS AND LINE AS UNIT 19.
1                                                                                               MON AUG 05/96   18:37:45   Page  518
0  Num   R       Component Name         Subname     Type G Seq ID 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           
           FILE CONTAINS BOTH SOURCE AND OBJECT.
0          Referenced by comments of: 737/67 
00737/069  *ASMH                     TEST PGM #37    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT37                                 
            5.0T3   394  ASMH.TEST_PGM_#37.SA.070           1 LINE     47    1 PAGE UM   MTA                 APR. 17, 1981  17:35:44
            5.0T7   259                       
0          TEST "_" AS AN ALPHEBETIC CHARACTER
00737/070  *ASMH                     TEST PGM #38    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT38                                 
            5.0T3   395  ASMH.TEST_PGM_#38.SA.071           1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:36:09
            5.0T7   260                       
0          TEST CHANGES TO PASS 2 UNDEFINED SYMBOL PROCESSING
00737/071A *ASMH                     TEST PGM #39    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT39                                 
            5.0T3   396  ASMH.TEST_PGM_#39.SA.072           1 LINE     71    3 PAGE UM   MTA                 APR. 17, 1981  17:36:34
            5.0T7   261                       
0          TEST RELOCATABLE AND QUALIFIED USINGS
00737/072  *ASMH                     TEST PGM #40    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT40                                 
            5.0T3   397  ASMH.TEST_PGM_#40.SA.073           1 LINE     64    2 PAGE UM   MTA                 APR. 17, 1981  17:36:47
            5.0T7   262                       
0          TEST PASS2 ERRORS
00737/073A *ASMH                     TEST PGM #41    SA  G          S0938 FSAVE2 VLO FSNAME=ASMHT41                                 
            5.0T3   398  ASMH.TEST_PGM_#41.SA.074           1 LINE     72    1 PAGE UM   MTA                 APR. 17, 1981  17:37:04
            5.0T7   263                       
0          TEST ERROR MESSAGES DURING LOOK AHEAD.
00737/074  *ASMH                     CALLER          SA  G          S1143 D4.1T1 VLO FSNAME=ASMH.CALLER.SA.060(1)                628
            5.0T3   399  ASMH.CALLER.SA.075                 1 LINE     67    1 PAGE UM   MTA                 MAY  13, 1978  18:27:36
            5.0T7   264                       
0          PROGRAM TO TEST DYNAMIC INVOCATION OF ASMH.  ASSEMBLE USING *SYSMAC.
00737/075  *ASMH                     CALLER          OC  G          S1143 D4.1T1 VLO FSNAME=ASMH.CALLER.OC.061(1)                629
            5.0T3   400  ASMH.CALLER.OC.076                 1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  18:27:37
            5.0T7   265                       
00738/001A *MACUTIL                  SOURCE          SA  G          W062:MACUTIL.S                                                  
            5.0T3   401  MACUTIL.SOURCE.SA.001              1 LINE     74   95 PAGE UM   TIFFANY             JULY 03, 1981  19:01:21
            5.0T7   266                       
0          *MACUTIL WAS ADAPTED FROM *OBJUTIL WITH MANY MODIFICATIONS FOR MACROS INSTEAD
           OF OBJECT MODULES; THE COMMAND LANGUAGE IS SIMILAR TO THAT OF *OBJUTIL. THE
           PROGRAM IS REENTRANT AND MAY BE LOADED INTO SHARED VM. *MACUTIL CALLS THE
           EDITOR EST SUBROUTINE (648/4). COMMANDS TO ASSEMBLE ARE AT NEGATIVE LINE
           NUMBERS. ASSEMBLE USING THE MACUTIL MACROS (738/7) AND *SYSMAC. COPIES
1                                                                                               MON AUG 05/96   18:37:45   Page  519
0  Num   R       Component Name         Subname     Type G Seq ID 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          *LOADINFODSECT (001/4), *GDINFODSECT (594) AND *CNFGINFODSECT (654). THE
           SYSTEM PARAMETERS MAY BE SPECIFIED IN THE ASSEMBLY PARAMETER SYSPARM, E.G.,
           SYSPARM='SNOOP=YES,CCID=ETC.'
            
           THE SYSTEM PARAMETERS ARE:
            
                SNOOP=<YES|NO>    GATHER STATISTICS IN THE FILE MACUTIL.STAT
                                  UNDER USER ID CCID.  THE DEFAULT IS YES.
                LOGERR=<YES|NO>   LOG FATAL ERRORS IN THE FILE MACUTIL.ERR
                                  UNDER USER ID CCID.  THE DEFAULT IS YES. 
                CCID=XXXX         USER ID FOR THE EXPLAIN FILE MACUTILEXP, THE 
                                  STATISTICS FILE MACUTIL.STAT, AND THE LOGERR
                                  FILE MACUTIL.ERR.  THE DEFAULT FOR CCID IS 
                                  ETC.
            
           *********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           THIS IS A NEW VERSION OF MACUTIL. IT IS COMPLETELY REWRITTEN AND SHOULD
           BE UPWARDS-COMPATIBLE. THE FOLLOWING CHANGES WERE MADE:
            
                  1.   MACRO NAMES MAY NOW CONTAIN UNDERSCORE CHARACTERS.
                  2.   ANY MACRO NAME NOT CONFORMING TO THE RULES OF*ASMH
                       ORDINARY SYMBOLS WILL BE TREATED AS A COPY SECTION. 
                       EXAMPLES ARE: COPY:PSA, *LLMPSEQU, COPY:LLMPSEQU(100). 
                  3.   ALL MACROS WITHOUT $ENDFILE LINES WILL AUTOMATICALLY
                        HAVE THEM APPENDED.
                  4.   A RENAME BUG HAS BEEN FIXED. 
                  5.   ADDING @ÂHDRGEN@NAME=COPYSECTION SHOULD NOW WORK. 
                  6.   ADDING A MACRO/COPY SECTION TO A LIBRARY THAT HAS ONLY
                       ONE MACRO/COPY SECTION WILL NO LONGER REPLACE THAT
                       SINGLE MACRO/COPY SECTION. 
                  7.   MACRO LIBRARIES WITH DIRECTORY LINE NOT AT LINE 1 ARE
                       NOW RECOGNIZED. 
                  8.   CONTINUED LINES WITH NONBLANKS IN COLUMNS 1-15 ARE
                       DETECTED. 
                  9.   LINES WITH NONBLANKS BEYOND COLUMN 80 ARE ERRORS. 
                 10.   CONTINUATION LINES ARE NOW CHECKED.  FOR EXAMPLE,
                       THE MACRO/MEND, COMMENTS, ETC., CAN BE CONTINUED. 
            
           Minor bugs have been fixed since the D4.3A version.
                     *********************************************************************************
0          Referenced by comments of: 344/3, 1054/3 
00738/002A *MACUTIL                  OBJECT          OE  G          *MACUTIL                                                        
            5.0T3   402  MACUTIL.OBJECT.OE.002              1 LINE  24460   14 PAGE UM   TIFFANY             JULY 03, 1981  19:02:40
            5.0T7   267  *MACUTIL             
0          CONTAINS EDITOR EST SUBROUTINE (648/4). 
1                                                                                               MON AUG 05/96   18:37:45   Page  520
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00738/003  *MACUTIL                  WRITEUP         WT             W062:MACUTIL.W                                                  
            5.0T3   403  MACUTIL.WRITEUP.WT.003             1 LINE    124   13 PAGE UM   TIFFANY             JULY 03, 1981  19:02:42
            5.0T7   268                       
00738/004  *MACUTIL                  GENEXPLAIN      SS  G          W062:GENEXPLAIN.S                                               
            5.0T3   404  MACUTIL.GENEXPLAIN.SS.004          1 LINE     90    3 PAGE UM   TIFFANY             JULY 03, 1981  19:02:46
            5.0T7   269                       
0          SPITBOL SOURCE FOR PROGRAM TO GENERATE EXPLAIN MESSAGE FILE (738/6) FROM 
           TEXT360 PRINT FILE.
0          Referenced by comments of: 738/6 
00738/005  *MACUTIL                  GENEXPLAIN      OE  G          W062:GENEXPLAIN                                                 
            5.0T3   405  MACUTIL.GENEXPLAIN.OE.005          1 LINE  18216    9 PAGE UM   TIFFANY             JULY 03, 1981  19:02:47
            5.0T7   270                       
0          SPITBOL OBJECT FOR GENEXPLAIN.
00738/006  *MACUTIL                  EXPLAIN         M              ETC:MACUTILEXP                                                  
            5.0T3   406  MACUTIL.EXPLAIN.M.006              1 LINE     75   15 PAGE UM   TIFFANY             JULY 03, 1981  19:02:48
            5.0T7   271  ETC.:MACUTILEXP      
0          EXPLAIN MESSAGE FILE GENERATED BY GENEXPLAIN (738/4).
0          Referenced by comments of: 738/4 
00738/007A *MACUTIL                  MACLIB          SM  G          W062:MACU.MAC                                                   
            5.0T3   407  MACUTIL.MACLIB.SM.007              1 LINE     73   16 PAGE UM   TIFFANY             JULY 03, 1981  19:02:49
            5.0T7   272                       
0          MACRO LIBRARY FOR *MACUTIL.
0          Referenced by comments of: 738/1 
00739/001A *LOGPURGE                                 SG  G          S0027 DISTRB FSNAME=LOGPURGE                                    
            5.0T3   408  LOGPURGE..SG.001                   1 LINE    118    3 PAGE UM   ENGLE               APR. 20, 1981  13:07:26
            5.0T7   273                       
0          PROGRAM TO PURGE LINES FROM A LOG FILE AFTER A SPECIFIED RETENTION PERIOD.
           REQUIRES THE DATE OF THE RECORD, WHICH MAY BE MM/DD/YY, OR DAYS, MINUTES,
           SECONDS, OR MICROSECONDS SINCE 1 MARCH 1900, TO BE IN A FIXED POSITION IN
           EACH RECORD. SEE SOURCE FOR RUN INSTRUCTIONS.
0          Referenced by comments of: 104/168, 739/4 
00739/002A *LOGPURGE                                 UC  G          S0027 DISTRB FSNAME=LOGPURGEUPD                                 
            5.0T3   409  LOGPURGE..UC.002                   1 LINE    118    1 PAGE UM   ENGLE               APR. 20, 1981  13:08:06
            5.0T7   274                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
1                                                                                               MON AUG 05/96   18:37:45   Page  521
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00739/003A *LOGPURGE                                 OC  G          S0027 DISTRB FSNAME=LOGP                                        
            5.0T3   410  LOGPURGE..OC.003                   1 LINE     80    4 PAGE UM   ENGLE               APR. 20, 1981  13:08:11
            5.0T7   275                       
00739/004A *LOGPURGE                                 OE  G          *LOGPURGE                                                       
            5.0T3   411  LOGPURGE..OE.004                   1 LINE   2086    2 PAGE UM   ENGLE               JULY 03, 1981  19:03:08
            5.0T7   276  *LOGPURGE            
0          LINKEDITED COMBINATION OF (739/1) AND *LCS (164).
00739/005A *LOGPURGE                 SYS:PURGE       OC             SYS:PURGE                                                       
            5.0T3   412  LOGPURGE.SYS:PURGE.OC.005          1 LINE     31    1 PAGE UM   OGDEN               JULY 03, 1981  19:03:09
            5.0T7   277  SYS:PURGE            
0          This contains a $CONTINUE with *LOGPURGE record and $CONTINUE WITH SEG2:CFE
           and $CONTINUE WITH SEG2:TIME records. These two time routines are normally
           post-IPL loaded. This file allows them work during IPL. Used by *CLN (531/5).
0          Referenced by comments of: 531/5 
00740/001A *CKSIG                                    SG  G          S0027 DISTRB FSNAME=CKSIG                                       
            5.0T3   413  CKSIG..SG.001                      1 LINE     78    9 PAGE UM   ENGLE               FEB. 04, 1981  13:58:25
            5.0T7   278                       
0          PROGRAM TO AUTHENTICATE A SIGNON BY CHECKING ANY OF THE FOLLOWING:  TIME OF
           SIGNON, DAY OF THE WEEK, GUINFO ITEMS, OR SNS DATA FOR *MSOURCE*.  RECORDING
           THE SIGNON IN A LOG FILE AND, FOR PROJECT NUMBERS STARTING WITH "W", 
           REQUESTING VERIFICATION FROM OPER IF THE SIGNON WOULD OTHERWISE FAIL ARE
           OPTIONAL.  SEE SOURCE FOR RUN INSTRUCTIONS.
0          Referenced by comments of: 740/4 
00740/002A *CKSIG                                    UC  G          S0027 DISTRB FSNAME=CKSIGUPD                                    
            5.0T3   414  CKSIG..UC.002                      1 LINE     70    1 PAGE UM   ENGLE               FEB. 04, 1981  13:58:40
            5.0T7   279                       
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00740/003A *CKSIG                                    OC  G          S0027 DISTRB FSNAME=CKSG                                        
            5.0T3   415  CKSIG..OC.003                      1 LINE     80   14 PAGE UM   ENGLE               FEB. 04, 1981  13:59:29
            5.0T7   280                       
00740/004A *CKSIG                                    OE  G          *CKSIG                                                          
            5.0T3   416  CKSIG..OE.004                      1 LINE   8804    6 PAGE UM   ENGLE               JULY 03, 1981  19:03:30
            5.0T7   281  *CKSIG               
0          LINKEDITED COMBINATION OF (740/1) AND *LCS (164).
00741/001A  MTS VOLUME 16            MASTER          WT             S1163 MTSV16 'MTS MANUALS' POSN=NEWM3.V16                       
            5.0T3   417  MTS_VOLUME_16.MASTER.WT.001        1 SEQ     132  285 PAGE UM   MANUAL              JULY 03, 1981  19:06:39
            5.0T7   282                       
0          TEXT/360 MASTER FOR VOLUME 16 "ALGOL W IN MTS" OF THE UM MTS 
           MANUALS, SEPT. 1980.
1                                                                                               MON AUG 05/96   18:37:45   Page  522
0  Num   R       Component Name         Subname     Type G Seq ID 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: 528/1 
00741/002A  MTS VOLUME 16            PRINT           PT             S1163 MTSV16 'MTS MANUALS' POSN=PRINT3.V16                      
            5.0T3   418  MTS_VOLUME_16.PRINT.PT.002         1 SEQ     132  536 PAGE UM   MANUAL              JULY 03, 1981  19:07:01
            5.0T7   283                       
0          TEXT/360 PRINT FILE.
00741/003A  MTS VOLUME 16            INDEX SOURCE    D              S1163 MTSV16 'MTS MANUALS' POSN=V16INDEXSOU.2                   
            5.0T3   419  MTS_VOLUME_16.INDEX_SOURC.D.003    1 SEQ      51   16 PAGE UM   MANUAL              JULY 03, 1981  19:07:49
            5.0T7   284                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 16.
00742/001   TAPE DIRECTORY           MAIN PGM        SG  G          W044:TAPEDIR.S                                                  
            5.0T3   420  TAPE_DIRECTORY.MAIN_PGM.SG.001     1 LINE    130   15 PAGE UM   SALISBURY           JULY 03, 1981  19:07:51
            5.0T7   285                       
0          CONVERSATIONAL PROGRAM TO CREATE AND MAINTAIN A TAPE DIRECTORY. THE USE OF
           THIS PROGRAM IS DESCRIBED BY COMPONENT (742/6).
0          Referenced by comments of: 50/6, 616/1, 617/1, 742/3, 742/4 
00742/002   TAPE DIRECTORY           KWFCN FUNCTION  SG  G          W044:TAPEDIR.SF                                                 
            5.0T3   421  TAPE_DIRECTORY.KWFCN_FUNC.SG.002   1 LINE     90    3 PAGE UM   SALISBURY           JULY 03, 1981  19:08:03
            5.0T7   286                       
0          SOURCE FOR THE KWSCAN FUNCTION, "KWFCN".
0          Referenced by comments of: 742/4 
00742/003   TAPE DIRECTORY           DIRECTORY FUNC  SG  G          W044:DIRLIB.S                                                   
            5.0T3   422  TAPE_DIRECTORY.DIRECTORY.SG.003    1 LINE    126   14 PAGE UM   SALISBURY           JULY 03, 1981  19:08:04
            5.0T7   287                       
0          SUBROUTINE LIBRARY USED TO ACCESS A TAPE DIRECTORY.  MAY BE USED AS A 
           STAND-ALONE SUBROUTINE LIBRARY (THERE ARE MANY ENTRY POINTS) OR IN 
           CONJUNCTION WITH THE TAPE DIRECTORY PROGRAM (742/1).
0          Referenced by comments of: 742/4, 742/5 
00742/004   TAPE DIRECTORY           OBJECT          OC  G          SYS:DIRPROGRAM                                                  
            5.0T3   423  TAPE_DIRECTORY.OBJECT.OC.004       1 LINE     80   28 PAGE UM   SALISBURY           JULY 03, 1981  19:08:18
            5.0T7   288  SYS.:DIRPROGRAM      
0          OBJECT OF (742/1), (742/2), AND (742/3). CONTAINS A $CONTINUE WITH SYS:DIRLIB
           (742/5) RECORD.
00742/005   TAPE DIRECTORY           DIRECTORY FUNC  OC  G          SYS:DIRLIB                                                      
            5.0T3   424  TAPE_DIRECTORY.DIRECTORY.OC.005    1 LINE     80   18 PAGE UM   SALISBURY           JULY 03, 1981  19:08:20
            5.0T7   289  SYS.:DIRLIB          
0          OBJECT OF (742/3), WHICH MAY BE USED SEPARATELY FOR EASY REFERENCE BY OTHER
           SYSTEM COMPONENTS. THE USE OF THIS PROGRAM IS DESCRIBED BY (742/6).
1                                                                                               MON AUG 05/96   18:37:45   Page  523
0  Num   R       Component Name         Subname     Type G Seq ID 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: 50/4, 742/4, 753/4 
00742/006   TAPE DIRECTORY           WRITEUP         WT             W044:DIR.WRITEUP                                                
            5.0T3   425  TAPE_DIRECTORY.WRITEUP.WT.006      1 LINE     93   15 PAGE UM   SALISBURY           JULY 03, 1981  19:08:22
            5.0T7   290                       
0          DESCRIPTION OF THE TAPE DIRECTORY PROGRAM AND FUNCTIONS.
0          Referenced by comments of: 742/1, 742/5, 742/7 
00742/007   TAPE DIRECTORY           WRITEUP         PT             W044:DIR.PRINT                                                  
            5.0T3   426  TAPE_DIRECTORY.WRITEUP.PT.007      1 LINE    132   31 PAGE UM   SALISBURY           JULY 03, 1981  19:08:24
            5.0T7   291                       
0          LINE PRINTER OUTPUT FOR (742/6). COPY TO A TN PRINTER @MCC.
00743/001   HARDWARE CONFIG PLOT                     SF  G  CNFG    W032:CONFIGPLOT                                                 
            5.0T3   427  HARDWARE_CONFIG_PLOT..SF.001       1 LINE     80   49 PAGE UM   EMERY               JULY 03, 1981  19:08:27
            5.0T7   292                       
0          THIS IS THE FORTRAN SOURCE FOR THE MACHINE CONFIGURATION PLOT GENERATION 
           PROGRAM.  IT CONSISTS OF A MAIN PROGRAM, WHICH IS STRONGLY INSTALLATION 
           DEPENDENT, AND VARIOUS SUBROUTINES THAT ARE INSTALLATION INDEPENDENT.  NO 
           ATTEMPT IS MADE TO ISOLATE THE INSTALLATION DEPENDENCIES FROM THE PROGRAM BY 
           PUTTING THEM IN AN AUXILIARY INPUT FILE.  CONSEQUENTLY, ANY INSTALLATION 
           WISHING TO USE THIS PROGRAM WILL HAVE TO MODIFY AND RECOMPILE IT TO SUIT THE 
           LOCAL CONFIGURATION.
00744/001   DAVE.GENLIB              MAIN            S*  O          S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.MAIN.S*.001(1)             36
            5.0T3   428  DAVE.GENLIB.MAIN.S*.001            1 LINE     93    5 PAGE UM   BRILL               APR. 06, 1980  13:09:43
            5.0T7   293                       
0          MAIN PROGRAM, WRITTEN IN *SNOSTORM, TO ANALYZE FORTRAN SUBROUTINES,
           E. G., THOSE IN *LIBRARY (524/1), CALLED BY PROGRAMS FREQUENTLY
           ANALYZED THROUGH *DAVE (765).  THIS FILE ALSO CONTAINS COMMANDS TO 
           COMPILE IT.
0          Referenced by comments of: 744/5 
00744/002   DAVE.GENLIB              ASM SUBRS       SA  O          S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.ASM_SUBRS.SA.002(1)        37
            5.0T3   429  DAVE.GENLIB.ASM_SUBRS.SA.002       1 LINE     67    1 PAGE UM   BRILL               APR. 06, 1980  13:09:46
            5.0T7   294                       
0          ASSEMBLY LANGUAGE SUBROUTINES.  THIS FILE ALSO CONTAINS COMMANDS TO 
           ASSEMBLE IT.
0          Referenced by comments of: 744/4, 744/5 
00744/003   DAVE.GENLIB              FTN SUBRS       SF  O          S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.FTN_SUBRS.SF.003(1)        38
            5.0T3   430  DAVE.GENLIB.FTN_SUBRS.SF.003       1 LINE     81    3 PAGE UM   BRILL               APR. 06, 1980  13:09:48
            5.0T7   295                       
0          FORTRAN LANGUAGE SUBROUTINES.  THIS FILE ALSO CONTAINS THE COMMANDS TO
           COMPILE IT.
1                                                                                               MON AUG 05/96   18:37:45   Page  524
0  Num   R       Component Name         Subname     Type G Seq ID 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: 744/4, 744/5 
00744/004   DAVE.GENLIB              SUBR LIB        OL  O          S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.SUBR_LIB.OL.004(1)         39
            5.0T3   431  DAVE.GENLIB.SUBR_LIB.OL.004        1 LINE   1424    4 PAGE UM   BRILL               APR. 06, 1980  13:09:51
            5.0T7   296                       
0          OBJECT OF (744/2) AND (744/3).
00744/005   DAVE.GENLIB              *DAVE.GENLIB    OE  O          *DAVE.GENLIB                                                    
            5.0T3   432  DAVE.GENLIB.*DAVE.GENLIB.OE.005    1 LINE     80   16 PAGE UM   BRILL               JULY 03, 1981  19:09:02
            5.0T7   297  *DAVE.GENLIB         
0          OBJECT OF (744/1), (744/2), AND (744/3). HAS A $CONTINUE WITH *SPITLIB
           RECORD.
0          Referenced by comments of: 744/6, 744/7 
00744/006   DAVE.GENLIB              *LIBRARY DESCR  D              S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.*LIBRARY_DESC.D.006(1)     41
            5.0T3   433  DAVE.GENLIB.*LIBRARY_DESC.D.006    1 LINE     74   12 PAGE UM   BRILL               APR. 06, 1980  13:09:56
            5.0T7   298                       
0          DATA USED BY *DAVE.GENLIB (744/5) FOR CREATING DAVE.EXT (744/7).  THE DATA
           CONSISTS OF DESCRIPTIONS, IN FORMAT SUITABLE FOR INPUT TO *DAVE.GENLIB, OF
           ALL OF THE FORTRAN-CALLABLE SUBROUTINES IN *LIBRARY (524/1).
0          Referenced by comments of: 744/7 
00744/007   DAVE.GENLIB              DAVE.EXT        D              ETC:DAVE.EXT                                                    
            5.0T3   434  DAVE.GENLIB.DAVE.EXT.D.007         1 LINE   2660    7 PAGE UM   BRILL               JULY 03, 1981  19:11:28
            5.0T7   299  ETC:DAVE.EXT         
0          EXTERNAL SUBROUTINE LIBRARY REQUIRED BY *DAVE (765/2). DAVE.EXT IS CREATED BY
           *DAVE.GENLIB (744/5) USING THE (744/6) DATA.
0          Referenced by comments of: 744/6, 765/2 
00744/008   DAVE.GENLIB              MEMO 402        WF             S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.MEMO_402.WF.008(1)         43
            5.0T3   435  DAVE.GENLIB.MEMO_402.WF.008        1 LINE     70    3 PAGE UM   BRILL               JULY 13, 1979  11:27:39
            5.0T7   300                       
0          THIS IS COMPUTING CENTER MEMO 402 -- "*DAVE.GENLIB".
00745/001A *LALRGEN                                  SP  G          ALWB:LALRGEN.S                                                  
            5.0T3   436  LALRGEN..SP.001                    1 LINE     85   32 PAGE UM   BODWIN              JULY 03, 1981  19:11:30
            5.0T7   301                       
0          SOURCE FOR AN LALR(1) PARSE TABLE GENERATOR. COMPILE WITH 
           PAR=SORMGIN=(2,72,1),MACRO.
0          Referenced by comments of: 1042/83 
1                                                                                               MON AUG 05/96   18:37:45   Page  525
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00745/002A *LALRGEN                                  OE  G          *LALRGEN                                                        
            5.0T3   437  LALRGEN..OE.002                    1 LINE  32767   20 PAGE UM   BODWIN              JULY 03, 1981  19:11:34
            5.0T7   302  *LALRGEN             
0          THIS FILE IS OBTAINED FROM THE PL/1 OBJECT AS FOLLOWS:
            
              $RUN *LINKEDIT
              INCLUDE LALRGEN.O
              RENAME IHESAPC IHESAPE
              INCLUDE@SLI *PL1LIB
              INCLUDE@SLI *LIBRARY
              INCLUDE *LCS
              COMBINE
              PUNCH LALRGEN.L
              STOP
00746/001A  COMPARE                                  SA  G          W062:COMPARE.S                                                  
            5.0T3   438  COMPARE..SA.001                    1 LINE    145   45 PAGE UM   TIFFANY             JULY 03, 1981  19:11:35
            5.0T7   303                       
0          A FAST COMPARISON PROGRAM. ASSEMBLE USING MACROS IN ORDER: THE COMPARE MACROS
           (746/3), OBJUTIL MISCELLANEOUS MACROS (721/15), AND *SYSMAC WITH PEXIT=*PEXIT
           (775). COPIES *GDINFODSECT (594).
            
           *****************************************************************************
           D5.0 version:
            
           New version can generate patterns for *CDUPDATE (1036) programs and also
           *UPDATE (137) output. The (746/4) writeup describes this feature.
           *****************************************************************************
00746/002A  COMPARE                                  OE  G          *COMPARE                                                        
            5.0T3   439  COMPARE..OE.002                    1 LINE  16900   14 PAGE UM   TIFFANY             JULY 03, 1981  19:11:41
            5.0T7   304  *COMPARE             
00746/003   COMPARE                  PROC.MAC        SM  G          W062:PROC.MAC                                                   
            5.0T3   440  COMPARE.PROC.MAC.SM.003            1 LINE     73   13 PAGE UM   TIFFANY             JULY 03, 1981  19:11:43
            5.0T7   305                       
0          CONTAINS MACROS PROC, ENDPROC, RETURN, INVOKE, ETC., USED BY THE ASSEMBLY OF
           OF COMPARE PROGRAM.
0          Referenced by comments of: 746/1, 749/1 
00746/004C  COMPARE                  WRITEUP         WF             W062:COMPARE.ITEM                                               
            5.0T3   441  COMPARE.WRITEUP.WF.004             1 LINE     71    1 PAGE UM   TIFFANY             JULY 03, 1981  19:11:54
            5.0T7   306                       
0          This is a writeup describing the feature which allows *COMPARE to 
           produces CDUPDATE control commands. This feature is not documented
           in the MTS Volume 2 *COMPARE writeup.
0          Referenced by comments of: 746/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  526
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00747/001   SIDELABEL                                S   G          S1431 4.3T2 VLO FSNAME=SIDELABEL..S.001(1)                    48
            5.0T3   442  SIDELABEL..S.001                   1 LINE     88    3 PAGE UM   BODWIN              JULY 12, 1979  23:17:44
            5.0T7   307                       
0          OVERDRIVE SOURCE FOR SIDELABEL, A PROGRAM TO LABEL THE EDGE OF PRINTOUTS.
0          Referenced by comments of: 648/1, 747/3, 811/3, 811/5, 811/7, 811/9 
00747/002   SIDELABEL                                SF  G          S1431 4.3T2 VLO FSNAME=SIDELABEL..SF.002(1)                   49
            5.0T3   443  SIDELABEL..SF.002                  1 LINE     72    3 PAGE UM   BODWIN              JULY 12, 1979  23:17:46
            5.0T7   308                       
0          FORTRAN SOURCE FOR SIDELABEL.
0          Referenced by comments of: 747/3 
00747/003   SIDELABEL                                OE  G          S1431 4.3T2 VLO FSNAME=SIDELABEL..OC.003(1)                   50
            5.0T3   444  SIDELABEL..OE.003                  1 LINE   2290    2 PAGE UM   BODWIN              JULY 12, 1979  23:17:46
            5.0T7   309                       
0          OBJECT OF (747/1) AND (747/2).
0          Referenced by comments of: 498/1, 747/4, 747/5 
00747/004C  SIDELABEL                EDGER           SA  G          W067:EDGER(1000)                                                
            5.0T3   445  SIDELABEL.EDGER.SA.004             1 LINE     72    4 PAGE UM   SHERRY              JULY 03, 1981  19:11:56
            5.0T7   310                       
0          An interface to ALWB:SIDELABEL (747/3) to bypass the extra scan SIDELABEL
           must make to count the number of pages in a listing. Assemble with the
           (721/15) macros with PAR=BATCH,PEXIT=*PEXIT. When $RUN, a page estimate must
           be specified in the PAR field, e.g., PAR=PAGES=120. Program is documented in
           the source comments beginning at line 1022.
00747/005C  SIDELABEL                EDGER           OC  G          W067:EDGER(1,999)                                               
            5.0T3   446  SIDELABEL.EDGER.OC.005             1 LINE   1160    2 PAGE UM   SHERRY              JULY 03, 1981  19:11:58
            5.0T7   311                       
0          Contains a $CONTINUE WITH ALWB:SIDELABEL (747/3) record.
0          Referenced by comments of: 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 
00748/001A  INTRO GUIDE: MTS                         WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.SOU(2)                
            5.0T3   447  INTRO_GUIDE:_MTS..WF.001           1 LINE    154  119 PAGE UM   MANUAL              AUG. 18, 1980  15:44:18
            5.0T7   312                       
0          FORMAT SOURCE FOR "INTRODUCTION TO MTS," SEPTEMBER 1980.
00748/002A  INTRO GUIDE: MTS                         PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.OUT(2)                
            5.0T3   448  INTRO_GUIDE:_MTS..PF.002           1 LINE     81  165 PAGE UM   MANUAL              AUG. 18, 1980  15:46:28
            5.0T7   313                       
0          FORMAT PRINT FILE.
1                                                                                               MON AUG 05/96   18:37:45   Page  527
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00748/003A  INTRO GUIDE: MTS         INDEX           D              S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.INDEX80               
            5.0T3   449  INTRO_GUIDE:_MTS.INDEX.D.003       1 LINE    140   11 PAGE UM   MANUAL              AUG. 18, 1980  15:58:57
            5.0T7   314                       
0          INPUT TO *INDEX (580) FOR THE INDEX TO "INTRODUCTION TO MTS."
00749/001A  MACSCAN                                  SA  G          W062:MACSCAN.S                                                  
            5.0T3   450  MACSCAN..SA.001                    1 LINE     74   17 PAGE UM   UNSP      TIFFANY   JULY 03, 1981  19:12:42
            5.0T7   315                       
0          PROGRAM TO SCAN ASSEMBLY LANGUAGE PROGRAMS AND LIST MACROS AND COPY
           SECTIONS USED. ASSEMBLE WITH THE FOLLOWING MACRO LIBRARIES: 2=W062:PROC.MAC
           (746/3), THE (721/15) *OBJUTIL MACROS, AND *SYSMAC, WITH PEXIT=*PEXIT.
           COPIES *GDINFODSECT (594).
            
           **************************************************************************
           D5.0 version:
            
           Typos corrected in source, but not reassembled.
           **************************************************************************
00749/002   MACSCAN                                  OE  G          UNSP:MACSCAN                                                    
            5.0T3   451  MACSCAN..OE.002                    1 LINE   5698    6 PAGE UM   UNSP      TIFFANY   JULY 03, 1981  19:12:55
            5.0T7   316  UNSP:MACSCAN         
00749/003A  MACSCAN                  360 INSTS       D              UNSP:MACSCAN.360                                                
            5.0T3   452  MACSCAN.360_INSTS.D.003            1 LINE     74    1 PAGE UM   UNSP      TIFFANY   JULY 03, 1981  19:12:56
            5.0T7   317  UNSP:MACSCAN.360     
0          A LIST OF 360 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME.
00749/004A  MACSCAN                  370 INSTS       D              UNSP:MACSCAN.370                                                
            5.0T3   453  MACSCAN.370_INSTS.D.004            1 LINE     74    1 PAGE UM   UNSP      TIFFANY   JULY 03, 1981  19:12:57
            5.0T7   318  UNSP:MACSCAN.370     
0          A LIST OF 370 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME.
00749/005A  MACSCAN                  WRITEUP         WF             W062:MACSCAN.W                                                  
            5.0T3   454  MACSCAN.WRITEUP.WF.005             1 LINE     81    1 PAGE UM   UNSP      TIFFANY   JULY 03, 1981  19:12:58
            5.0T7   319                       
0          FORMAT SOURCE FOR MACSCAN WRITEUP.
00750/001   XREF                                     SS  O          S1153 UNSP VLO FSNAME=XREF.S                                    
            5.0T3   455  XREF..SS.001                       1 LINE    101    3 PAGE UBC  BALLARD   UNSP      DEC. 20, 1978  23:16:56
            5.0T7   320                       
0          A GENERAL CROSS REFERENCE PROGRAM WRITTEN AT UBC.  AT UM, THIS PROGRAM IS
           CLASSIFIED AS UNSUPPORTED SOFTWARE.
1                                                                                               MON AUG 05/96   18:37:45   Page  528
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00750/002   XREF                                     OC  O          UNSP:XREF                                                       
            5.0T3   456  XREF..OC.002                       1 LINE     80    7 PAGE UBC  BALLARD   UNSP      JULY 03, 1981  19:13:12
            5.0T7   321  UNSP:XREF            
0          HAS A $CONTINUE WITH *SPITLIB CARD.
00751/001   ILLBEBACK                                SG  G          S1153 UNSP VLO FSNAME=ILLBEBACK.S                               
            5.0T3   457  ILLBEBACK..SG.001                  1 LINE     76    1 PAGE UM   UNSP                JAN. 02, 1979  17:18:11
            5.0T7   322                       
0          PROGRAM TO LOCK A TERMINAL SESSION.
00751/002   ILLBEBACK                                OC  G          UNSP:ILLBEBACK                                                  
            5.0T3   458  ILLBEBACK..OC.002                  1 LINE     80    1 PAGE UM   UNSP                JULY 03, 1981  19:13:14
            5.0T7   323  UNSP:ILLBEBACK       
00751/003   ILLBEBACK                WRITEUP         WF             S1153 UNSP VLO FSNAME=ILLBEBACK.F                               
            5.0T3   459  ILLBEBACK.WRITEUP.WF.003           1 LINE     67    1 PAGE UM   UNSP                JAN. 09, 1979  16:52:07
            5.0T7   324                       
00752/001   HASP LOG                 COLLECTION PGM  SA  O          W116:HSP.COLLCT.S                                               
            5.0T3   460  HASP_LOG.COLLECTION_PGM.SA.001     1 LINE     75   39 PAGE UM   UNSP      H YOUNG   JULY 03, 1981  19:13:18
            5.0T7   325                       
0          AT UM, THIS PROGRAM IS STARTED AFTER A SYSTEM RELOAD TO EXAMINE FILES CREATED
           BY CMDSTAT (531/1) WITH NAMES OF THE FORM HASPLOGXXXXX.  THESE FILES CONTAIN
           ALL INFORMATION CURRENTLY OUTPUTTED TO THE HASP LOG PRINTER.  THE PROGRAM 
           CONDENSES THE INFORMATION AND PLACES IT INTO FILES HAVING NAMES OF THE FORM
           HSYYMMDDHH WHERE YYMMDDHH IS THE TIME THE FILE IS CREATED.  NORMALLY THERE IS
           ONLY ONE HSYYMMDHH FILE FOR EACH DAY.  THE PROGRAM DESTROYS THE HASPLOGXXXXX
           FILES AS THEY ARE PROCESSED.  THE HSYYMMDDHH FILES ARE KEPT FOR 7 DAYS AND
           THEN DESTROYED. 
            
           IN ADDITION TO THE ABOVE FILES, THE PROGRAM ALSO MAINTAINS THE FOLLOWING
           FILES: 
            
              UNKHSPMSGS -- ALL HASP MESSAGES THAT CAN NOT CURRENTLY BE HANDLED
                            BY THE COLLECTION PROGRAM ARE RECORDED HERE.
            
              HSDEVTBLES -- USED FOR INTERNAL BOOKKEEPING AND TO LET THE
                            RETRIEVAL PROGRAM KNOW WHICH HSYYMMDDHH FILES
                            ARE AVAILABLE.  THE PROGRAM ALSO REQUIRES THAT
                            THIS FILE EXIST SO THAT IT CAN KEEP TRACK OF 
                            THE NEXT JOB ON THE PRINTER, THE PUNCH, ETC.
            
              HLOGPRV    -- THE HASPLOG COLLECTION PROGRAM CALLS CHKFILE (682/39) 
                            TO GET SHARING DESCRIPTORS THAT THE ID WHICH IS
                            RUNNING THE PROGRAM HAS TO THIS FILE.  A USER'S 
                            ACCESS DETERMINES THE AMOUNT AND TYPE OF
                            INFORMATION HE CAN HAVE RETURNED BY HASPLOG.
            
           THE COLLECTION PROGRAM ASSUMES IT IS BEING RUN UNDER THE SAME ID AS THE
           CMDSTAT PROGRAM.  TO START THE PROGRAM SOME HASPLOGXXXXX FILES MUST BE 
           AVAILABLE AS WELL AS EMPTY FILES OF THE FOLLOWING NAMES:  HS78010100,
1                                                                                               MON AUG 05/96   18:37:45   Page  529
0  Num   R       Component Name         Subname     Type G Seq ID 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          UNKHSPMSGS, AND HSDEVTBLES.
            
           ASSEMBLE WITH PAR=BATCH. USES HSP.MACLIB (752/7).
           COPIES *GFINFODSECT (594).
0          Referenced by comments of: 387/19, 752/3, 752/4, 752/7 
00752/002   HASP LOG                 COLLECTION PGM  OC  O          SYS:HLOG                                                        
            5.0T3   461  HASP_LOG.COLLECTION_PGM.OC.002     1 LINE    240   16 PAGE UM   UNSP      H YOUNG   JULY 03, 1981  19:13:21
            5.0T7   326                       
00752/003   HASP LOG                 *HLG            C              *HLG                                                            
            5.0T3   462  HASP_LOG.*HLG.C.003                1 LINE     36    1 PAGE UM   UNSP      H YOUNG   JULY 03, 1981  19:13:23
            5.0T7   327  *HLG                 
0          COMMAND FILE TO RUN THE HASP LOG COLLECTION PROGRAM (752/1).  INVOKED BY
           ENTERING "MTS *HLG" ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 531/7 
00752/004   HASP LOG                 RETRIEVAL PGM   SA  O          W116:HSP.RETRIV.S                                               
            5.0T3   463  HASP_LOG.RETRIEVAL_PGM.SA.004      1 LINE     73   28 PAGE UM   UNSP      H YOUNG   JULY 03, 1981  19:13:24
            5.0T7   328                       
0          PROVIDES INTERACTIVE RETRIEVAL OF INFORMATION ABOUT HASP JOBS.  USES
           FILES WITH NAMES OF THE FORM HSYYMMDDHH AS BUILT BY THE COLLECTION PROGRAM
           (752/1) AND USES THE FILE HSDEVTBLES AS MAINTAINED BY THE COLLECTION 
           PROGRAM TO DETERMINE WHICH HSYYMMDDHH FILES ARE AVAILABLE.  THIS PROGRAM
           ASSUMES THAT THE COLLECTION PROGRAM IS BEING RUN UNDER THE USER ID SYS.
           IF IT IS TO RUN UNDER AN ID OTHER THAN SYS, ALL REFERENCES OF THE FORM "SYS:FDNAME" 
           MUST BE REPLACED WITH ONE OF THE FORM "USERID:FDNAME" WHERE "USERID" IS THE
           USER ID OF THE TASK RUNNING THE COLLECTION PROGRAM. 
            
           ASSEMBLE WITH PAR=BATCH.  USES HSP.MACLIB (752/7). 
0          Referenced by comments of: 752/7 
00752/005   HASP LOG                 RETRIEVAL PGM   OC  O          UNSP:HASPLOG                                                    
            5.0T3   464  HASP_LOG.RETRIEVAL_PGM.OC.005      1 LINE    336   11 PAGE UM   UNSP      H YOUNG   JULY 03, 1981  19:13:26
            5.0T7   329                       
0          REFERENCES IN COPY:SYSDEFS (579/3) MUST BE APPENDED TO THE END.
00752/006   HASP LOG                 RETRIEVAL DOC   P              UNSP:HASPLOG.W                                                  
            5.0T3   465  HASP_LOG.RETRIEVAL_DOC.P.006       1 LINE     84    3 PAGE UM   UNSP      H YOUNG   JULY 03, 1981  19:13:28
            5.0T7   330                       
0          WRITEUP DESCRIBING THE USE OF THE RETRIEVAL PROGRAM.
00752/007   HASP LOG                 MACRO LIB       SM  G          W116:HSP.MACLIB                                                 
            5.0T3   466  HASP_LOG.MACRO_LIB.SM.007          1 LINE     72   13 PAGE UM   UNSP      H YOUNG   JULY 03, 1981  19:13:30
            5.0T7   331                       
0          MACRO LIBRARY USED BY (752/1) AND (752/4).
1                                                                                               MON AUG 05/96   18:37:45   Page  530
0  Num   R       Component Name         Subname     Type G Seq ID 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: 752/1, 752/4 
00753/001   SCAN                     MAIN PGM        SA  O          W030:SCAN                                                       
            5.0T3   467  SCAN.MAIN_PGM.SA.001               1 LINE     69   10 PAGE UM   LIFT                JULY 03, 1981  19:13:32
            5.0T7   332                       
0          MAIN CSECT OF PROGRAM TO SEARCH STATISTICS TAPES FOR RECORDS.  SEARCH
           CRITERIA MAY BE SPECIFIED IN COMMANDS OR BY WRITING SUBROUTINES SCAN WILL
           USE.  IMPLEMENTATION IS FAR FROM COMPLETE (E. G., SEARCHING FOR CMDSTAT
           RECORDS NEEDS TO BE ADDED), BUT WHAT IS IMPLEMENTED WORKS. 
            
           COPIES COPY:CMDAREADSECT (531/19).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           SCAN MACROS (753/5).
0          Referenced by comments of: 707/1, 753/4, 753/5 
00753/002   SCAN                     CSTAT SUBR      SA  O          W030:CSTAT(1,999)                                               
            5.0T3   468  SCAN.CSTAT_SUBR.SA.002             1 LINE     67    4 PAGE UM   LIFT                JULY 03, 1981  19:13:38
            5.0T7   333                       
0          SUBROUTINE FOR SCAN TO HANDLE THE STA COMMAND.  ASSEMBLE USING
           SCAN MACROS (753/5).
0          Referenced by comments of: 753/4, 753/5 
00753/003   SCAN                     CCOPY SUBR      SA  O          W030:CCOPY(1,999)                                               
            5.0T3   469  SCAN.CCOPY_SUBR.SA.003             1 LINE     69    5 PAGE UM   LIFT                JULY 03, 1981  19:13:39
            5.0T7   334                       
0          SUBROUTINE FOR SCAN TO HANDLE COPY AND LIST COMMANDS.
            
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND SCAN MACROS (753/5).
           COPIES COPY:CMDAREADSECT (531/19).
0          Referenced by comments of: 753/4, 753/5 
00753/004   SCAN                     OBJECT          OC  O          W030:SCANX                                                      
            5.0T3   470  SCAN.OBJECT.OC.004                 1 LINE     80   11 PAGE UM   LIFT                JULY 03, 1981  19:13:40
            5.0T7   335                       
0          OBJECT OF SCAN MAIN PROGRAM (753/1) CSTAT SUBROUTINE (753/2),
           LISTSTAT (071), CCOPY SUBROUTINE (753/3), AND JVCT SUBROUTINE (674).
           HAS A $CONTINUE WITH SYS:DIRLIB RETURN (742/5) RECORD.
00753/005   SCAN                     MACRO LIBRARY   SM  O          W030:SCANDS                                                     
            5.0T3   471  SCAN.MACRO_LIBRARY.SM.005          1 LINE     70    1 PAGE UM   LIFT                JULY 03, 1981  19:13:42
            5.0T7   336                       
0          MACRO LIBRARY USED BY (753/1), (753/2), AND (753/3).
0          Referenced by comments of: 753/1, 753/2, 753/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  531
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00753/006   SCAN                     WRITEUP         WX             W030:SCAN.W(1,999)                                              
            5.0T3   472  SCAN.WRITEUP.WX.006                1 LINE     80    4 PAGE UM   LIFT                JULY 03, 1981  19:13:43
            5.0T7   337                       
0          WRITEUP FOR SCAN.  DESCRIBES ONLY WHAT'S ACTUALLY IMPLEMENTED.
00753/007   SCAN                     WRITEUP         PX             W030:SCAN.W(1000)                                               
            5.0T3   473  SCAN.WRITEUP.PX.007                1 LINE     76    5 PAGE UM   LIFT                JULY 03, 1981  19:13:44
            5.0T7   338                       
00754/001   F8ASR                                    SF  O          S1153 UNSP VLO FSNAME=F8ASR.S                                   
            5.0T3   474  F8ASR..SF.001                      1 LINE     79   25 PAGE UM   UNSP                JUNE 23, 1978  20:42:24
            5.0T7   339                       
0          FORTRAN SOURCE FOR A MOSTEK F8 CROSS-ASSEMBLER.
            
           COPIES OF THE "MOSTEK F8 MICROPROCESSOR SOFTWARE SUPPORT
           OPERATIONS MANUAL: FORTRAN IV CROSS ASSEMBLER" (10 PAGES)
           ARE AVAILABLE UPON REQUEST.
00754/002   F8ASR                                    OE  O          UNSP:F8ASR                                                      
            5.0T3   475  F8ASR..OE.002                      1 LINE  11980    7 PAGE UM   UNSP                JULY 03, 1981  19:13:50
            5.0T7   340  UNSP:F8ASR           
00754/003   F8ASR                                    WF             S1319 D4.2T1 VLO FSNAME=F8ASR..WF.003(1)                     810
            5.0T3   476  F8ASR..WF.003                      1 LINE    143   10 PAGE UM   UNSP                APR. 02, 1979  01:10:36
            5.0T7   341                       
0          THIS IS THE "MOSTEK F8 MICROPROCESSOR SOFTWARE SUPPORT
           OPERATIONS MANUAL: FORTRAN IV CROSS ASSEMBLER" (10 PAGES).
00755/001   UM FEP HARDWARE          LAM PGM         S   G          FEP.:LAM                                                        
            5.0T3   477  UM_FEP_HARDWARE.LAM_PGM.S.001      1 LINE     81   24 PAGE UM   TOKARSKI            JULY 03, 1981  19:14:30
            5.0T7   342                       
0          THIS COMPONENT CONTAINS SOFTWARE RELATED TO THE UM DATA CONCENTRATORS (FRONT
           END PROCESSORS).
            
           SOURCE FOR LINE ADAPTER MICROPROCESSOR PROGRAM.  ASSEMBLE USING *11ASR (515).
00755/002   UM FEP HARDWARE          LAM DESC        WF             S0767 'SAVETAPE' FSNAME=LAMMAN.S                                
            5.0T3   478  UM_FEP_HARDWARE.LAM_DESC.WF.002    1 LINE    120   36 PAGE UM   TOKARSKI            JAN. 17, 1979  10:02:27
            5.0T7   343                       
0          MANUAL DESCRIBING LAM HARDWARE AND PROGRAM.
00755/003   UM FEP HARDWARE          CHAN XFACE PGM  S   G          DIAG:IF360PGM                                                   
            5.0T3   479  UM_FEP_HARDWARE.CHAN_XFAC.S.003    1 LINE     87   11 PAGE UM   TOKARSKI            JULY 03, 1981  19:17:27
            5.0T7   344                       
0          MICROPROGRAM FOR 360-CHANNEL-TO-PDP-11-INTERFACE.  ASSEMBLE USING *11ASR (515).
1                                                                                               MON AUG 05/96   18:37:45   Page  532
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00755/004   UM FEP HARDWARE          CHAN XFACE MAN  WF             S0767 'SAVETAPE' FSNAME=360MANUAL                               
            5.0T3   480  UM_FEP_HARDWARE.CHAN_XFAC.WF.004   1 LINE    156   64 PAGE UM   TOKARSKI            MAR. 07, 1974  08:55.40
            5.0T7   345                       
0          MANUAL DESCRIBING CHANNEL INTERFACE PROGRAM.
00756/001   ONTEL SOFTWARE           OP/MCP          S   G          CRT:OPSOU                                                       
            5.0T3   481  ONTEL_SOFTWARE.OP/MCP.S.001        1 LINE    170   72 PAGE UM   CASHMAN             JULY 03, 1981  19:18:42
            5.0T7   346                       
0          SOURCE FOR THE UM ONTEL TERMINAL MICROPROCESS SOFTWARE.  THIS
           SOFTWARE IS COPYRIGHTED, BUT USE BY ANY INSTALLATION RECEIVING
           DISTRIBUTIONS OF MTS IS ALLOWED SUBJECT TO THE FOLLOWING CONDITIONS:
              1) THE COPYRIGHT NOTICE MUST BE INCLUDED IN ALL COPIES. 
              2) USE MUST BE NOT BE FOR PROFIT.
              3) REDISTRIBUTION OF THE SOFTWARE OUTSIDE OF THE MTS COMMUNITY
                 REQUIRES WRITTEN PERMISSION FROM THE UOFM COMPUTING CENTER. 
            
           THERE ARE VARIOUS CONDITIONAL ASSEMBLY PARAMETERS:
            
              1) OPTION='ROM' -- TO RUN IN ROM MEMORY
                 OPTION='RAM' -- TO RUN IN RAM MEMORY
                 OPTION='DOS' -- TO RUN IN RAM UNDER ONTEL'S DISK SYSTEM
            
              2) MACHIN='OP1' -- TO RUN IN OP-1 MACHINE
                 MACHIN='OPR'  -- TO RUN IN OP-1R MACHINE
            
              3) MCP=0 -- USES THE STANDARD DATA CONCENTRATOR PROTOCOL
                 MCP=1 -- USES THE MICHIGAN COMMUNICATIONS PROTOCOL
            
              4) KEY='ONT' -- THE STANDARD ONTEL KEYBOARD LAYOUT
                 KEY='327' -- COURIER-TYPE KEYBOARD LAYOUT
            
              5) SIZE=N -- WHERE N IS THE SIZE OF MEMORY FOR DOS VERSION
                 SIZE=4 -- FOR ROM VERSION WHICH FITS IN 4K OF ROM MEMORY
            
              6) STARPR=0 -- NO EXTRA CODE
                 STARPR=1 -- GENERATE CODE TO DUMP BUFFER TO MTS (%DUMP)
            
              7) DEBUG=ON -- LINK TO RESIDENT KENOBI MONITOR (756/2)
                 DEBUG=OFF -- NO LINK TO MONITOR
            
           ASSEMBLE USING I8080ASR (686/24).  COPIES OP/COMMENTS (756/3).
0          Referenced by comments of: 756/3 
00756/002A  ONTEL SOFTWARE           KENOBI          S   G          CRT:KENOBI                                                      
            5.0T3   482  ONTEL_SOFTWARE.KENOBI.S.002        1 LINE    118   31 PAGE UM   CASHMAN             JULY 03, 1981  19:18:48
            5.0T7   347                       
0          SOURCE FOR THE ONTEL DEBUGGING MONITOR.  THE FOLLOWING ARE CONDITIONAL
           ASSEMBLY PARAMETERS:
            
              1) OPTION='ROM' -- TO RUN IN ROM MEMORY
1                                                                                               MON AUG 05/96   18:37:45   Page  533
0  Num   R       Component Name         Subname     Type G Seq ID 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                OPTION='RAM' -- TO RUN IN RAM MEMORY
            
              2) DEBUG=ON -- KENOBI IS ENTERED FROM 3270 EMULATOR
                 DEBUG=OFF -- MONITOR IS STAND-ALONE
0          Referenced by comments of: 756/1 
00756/003C  ONTEL SOFTWARE           COMMENTS        S   G          CRT:OP/COMMENTS                                                 
            5.0T3   483  ONTEL_SOFTWARE.COMMENTS.S.003      1 LINE     61    1 PAGE UM   CASHMAN             JULY 03, 1981  19:18:52
            5.0T7   348                       
0          Used to print a short comment describing an option of the ONTEL program in
           OPSOU (756/1).  COPY'ed by *I8080ASR (686/24).
0          Referenced by comments of: 756/1 
00756/004   ONTEL SOFTWARE           MEMO 415        WX             S1431 4.3T2 VLO FSNAME=ONTEL_SOFTWARE.MEMO_415.WX.004(1)      60
            5.0T3   484  ONTEL_SOFTWARE.MEMO_415.WX.004     1 LINE     92   10 PAGE UM   HARTMAN             MAR. 26, 1980  09:41:24
            5.0T7   349                       
0          THIS IS COMPUTING CENTER MEMO 415 -- "INTRODUCTION TO THE ONTEL TERMINAL."
           REQUIRES THE (711/7) TEXTFORM MACROS. COMPONENT (756/5) CONTAINS TABLES TO BE
           INSERTED ON PAGE 15 FF. REQUIRES OTHER HAND INSERTED DIAGRAMS, WHICH MAY BE
           OBTAINED FROM THE COMPUTING CENTER PUBLICATIONS OFFICE.
0          Referenced by comments of: 756/5 
00756/005   ONTEL SOFTWARE           MEMO 415        P              S1431 4.3T2 VLO FSNAME=ONTEL_SOFTWARE.MEMO_415.P.005(1)       61
            5.0T3   485  ONTEL_SOFTWARE.MEMO_415.P.005      1 LINE     81    5 PAGE UM   HARTMAN             MAR. 26, 1980  09:47:11
            5.0T7   350                       
0          CONTAINS DIAGRAM TO BE INSERTED ON PAGE 15 FF. OF (756/4).
0          Referenced by comments of: 756/4 
00757/001   SPITPAR                                  SA  G          S1319 D4.2T1 VLO FSNAME=SPITPAR..SA.001(1)                   817
            5.0T3   486  SPITPAR..SA.001                    1 LINE     72    1 PAGE UM   UNSP      SHERRY    JAN. 19, 1979  00:39:56
            5.0T7   351                       
0          A MAIN PROGRAM FOR USE WITH SPITBOL PROGRAMS WHICH ALLOWS THEM TO BE RUN 
           WITH OR WITHOUT THE SEMICOLON IN THE PAR FIELD.  ASSEMBLE USING *OBJUTIL
           MACROS (721/14) AND (721/15).
00757/002   SPITPAR                                  OC  G          UNSP:SPITPAR                                                    
            5.0T3   487  SPITPAR..OC.002                    1 LINE     96    1 PAGE UM   UNSP      SHERRY    JULY 03, 1981  19:18:57
            5.0T7   352  UNSP:SPITPAR         
0          HAS A $CONTINUE WITH *SPITLIB CARD.
00758/001   SOFTCHK                                  SA  G          MTA:SOFTCHK(1,999)                                              
            5.0T3   488  SOFTCHK..SA.001                    1 LINE     72    3 PAGE UM   MTA                 JULY 03, 1981  19:18:58
            5.0T7   353  MTA:SOFTCHK          
0          SOFTCHK JOB PROGRAM TO ENABLE OR DISABLE SOFT MACHINE CHECKS.
1                                                                                               MON AUG 05/96   18:37:45   Page  534
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00758/002   SOFTCHK                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00759/001A  G11 JOB                                  SA  G          S0938 FSAVE2 VLO FSNAME=G11.S                                   
            5.0T3   489  G11_JOB..SA.001                    1 LINE     70    2 PAGE UM   MTA                 JAN. 19, 1981  22:18:16
            5.0T7   354                       
0          LOADS THE CHARACTER AND FORMS CONTROL BUFFERS OF A 3211 PRINTER FOR THE G11
           PRINT TRAIN. ASSUMES 6 LINES PER INCH ON 11 INCH PAPER UNLESS THE "8LPI"
           PARAMETER IS GIVEN, IN WHICH CASE IT ASSUMES 8 LINES PER INCH ON 8.5 INCH
           PAPER.
00759/002A  G11 JOB                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00760/001A  BENCHMARK - BATCH        SCR             C              BNCH:BATCH.SCR                                                  
            5.0T3   490  BENCHMARK_-_BATCH.SCR.C.001        1 LINE     76    1 PAGE UQV            OGDEN     JULY 03, 1981  19:19:58
            5.0T7   355  BNCH:BATCH.SCR       
0          MTS COMMAND FILE TO RUN A BATCH BENCHMARK.
00760/002A  BENCHMARK - BATCH        BATCH SUBMIT    SF  O          BNCH:SUBMIT.S                                                   
            5.0T3   491  BENCHMARK_-_BATCH.BATCH_S.SF.002   1 LINE     80    4 PAGE UQV            OGDEN     JULY 03, 1981  19:19:59
            5.0T7   356  BNCH:SUBMIT.S        
0          PROGRAM TO SUBMIT JOBS TO *BATCH* OR SOME OTHER FDNAME ADDING SIGNON COMMANDS
           AND PASSWORDS. READS A DRIVER FILE. SEE (760/4) FOR AN EXAMPLE. SEE THE
           SOURCE CODE FOR COMMENTS EXPLAINING THE FORMAT.
0          Referenced by comments of: 760/4, 760/5, 760/20 
00760/003A  BENCHMARK - BATCH        SUBMIT          OC  O          BNCH:SUBMIT                                                     
            5.0T3   492  BENCHMARK_-_BATCH.SUBMIT.OC.003    1 LINE   2956    4 PAGE UQV            OGDEN     JULY 03, 1981  19:20:00
            5.0T7   357  BNCH:SUBMIT          
00760/004A  BENCHMARK - BATCH        BATCH DRIVER    D              BNCH:DRIVER                                                     
            5.0T3   493  BENCHMARK_-_BATCH.BATCH_D.D.004    1 LINE     60    2 PAGE UQV            OGDEN     JULY 03, 1981  19:20:01
            5.0T7   358  BNCH:DRIVER          
0          SAMPLE DRIVER FILE FOR BATCH SUBMIT PROGRAM (760/2).
0          Referenced by comments of: 760/2 
00760/005A  BENCHMARK - BATCH        BM00 JOB        C              BNCH:BM00                                                       
            5.0T3   494  BENCHMARK_-_BATCH.BM00_JO.C.005    1 LINE     78    2 PAGE UQV            OGDEN     JULY 03, 1981  19:20:02
            5.0T7   359  BNCH:BM00            
0          BATCH JOB THAT CAN BE SUBMITTED USING SUBMIT (760/2).  ONCE KNOWN AS SUN OR SUP.
1                                                                                               MON AUG 05/96   18:37:45   Page  535
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00760/006   BENCHMARK - BATCH        BM00 DATA       SF  O          BNCH:ADEPT.F                                                    
            5.0T3   495  BENCHMARK_-_BATCH.BM00_DA.SF.006   1 LINE     77   19 PAGE UQV            OGDEN     JULY 03, 1981  19:20:02
            5.0T7   360  BNCH:ADEPT.F         
0          DATA FILE USED BY BM00 JOB.
00760/007   BENCHMARK - BATCH        BM00 DATA       OC  O          BNCH:AX                                                         
            5.0T3   496  BENCHMARK_-_BATCH.BM00_DA.OC.007   1 LINE    240    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:04
            5.0T7   361  BNCH:AX              
0          DATA FILE USED BY BM00 JOB.
00760/008   BENCHMARK - BATCH        BM00 DATA       OC  O          BNCH:CHOLX                                                      
            5.0T3   497  BENCHMARK_-_BATCH.BM00_DA.OC.008   1 LINE     80    9 PAGE UQV            OGDEN     JULY 03, 1981  19:20:05
            5.0T7   362  BNCH:CHOLX           
0          DATA FILE USED BY BM00 JOB.
00760/009   BENCHMARK - BATCH        BM00 DATA       OC  O          BNCH:CX                                                         
            5.0T3   498  BENCHMARK_-_BATCH.BM00_DA.OC.009   1 SEQ      80    2 PAGE UQV            OGDEN     JULY 03, 1981  19:20:06
            5.0T7   363  BNCH:CX              
0          DATA FILE USED BY BM00 JOB.
00760/010   BENCHMARK - BATCH        BM00 DATA       D   O          BNCH:ELASTODATA                                                 
            5.0T3   499  BENCHMARK_-_BATCH.BM00_DA.D.010    1 LINE     80    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:08
            5.0T7   364  BNCH:ELASTODATA      
0          DATA FILE USED BY BM00 JOB.
00760/011   BENCHMARK - BATCH        BM00 DATA       OC  O          BNCH:ELASTOPLAST                                                
            5.0T3   500  BENCHMARK_-_BATCH.BM00_DA.OC.011   1 SEQ   28240   39 PAGE UQV            OGDEN     JULY 03, 1981  19:20:09
            5.0T7   365  BNCH:ELASTOPLAST     
0          DATA FILE USED BY BM00 JOB.
00760/012   BENCHMARK - BATCH        BM00 DATA       SP  O          BNCH:GOMOKU.P                                                   
            5.0T3   501  BENCHMARK_-_BATCH.BM00_DA.SP.012   1 LINE     80    4 PAGE UQV            OGDEN     JULY 03, 1981  19:20:12
            5.0T7   366  BNCH:GOMOKU.P        
0          DATA FILE USED BY BM00 JOB.
00760/013   BENCHMARK - BATCH        BM00 SUBR LIB   OL  O          BNCH:LIBRARY                                                    
            5.0T3   502  BENCHMARK_-_BATCH.BM00_SU.OL.013   1 SEQ   13728  187 PAGE UQV            OGDEN     JULY 03, 1981  19:20:13
            5.0T7   367  BNCH:LIBRARY         
0          SUBROUTINE LIBRARY USED BY BM00 JOB.
00760/014   BENCHMARK - BATCH        BM00 DATA       OC  O          BNCH:PLOT                                                       
            5.0T3   503  BENCHMARK_-_BATCH.BM00_DA.OC.014   1 SEQ     240    7 PAGE UQV            OGDEN     JULY 03, 1981  19:20:18
            5.0T7   368  BNCH:PLOT            
0          DATA FILE USED BY BM00 JOB.
1                                                                                               MON AUG 05/96   18:37:45   Page  536
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00760/015   BENCHMARK - BATCH        BM00 DATA       D   O          BNCH:PLOTDATA                                                   
            5.0T3   504  BENCHMARK_-_BATCH.BM00_DA.D.015    1 LINE     40    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:19
            5.0T7   369  BNCH:PLOTDATA        
0          DATA FILE USED BY BM00 JOB.
00760/016   BENCHMARK - BATCH        BM00 DATA       OC  O          BNCH:PRPLOT                                                     
            5.0T3   505  BENCHMARK_-_BATCH.BM00_DA.OC.016   1 SEQ    4554    9 PAGE UQV            OGDEN     JULY 03, 1981  19:20:20
            5.0T7   370  BNCH:PRPLOT          
0          DATA FILE USED BY BM00 JOB.
00760/017   BENCHMARK - BATCH        BM00 DATA       SP  O          BNCH:STAT.P                                                     
            5.0T3   506  BENCHMARK_-_BATCH.BM00_DA.SP.017   1 LINE     85   10 PAGE UQV            OGDEN     JULY 03, 1981  19:20:21
            5.0T7   371  BNCH:STAT.P          
0          DATA FILE USED BY BM00 JOB.
00760/018   BENCHMARK - BATCH        BM00 DATA       SC  O          BNCH:WATBOL.C                                                   
            5.0T3   507  BENCHMARK_-_BATCH.BM00_DA.SC.018   1 LINE     81   14 PAGE UQV            OGDEN     JULY 03, 1981  19:20:23
            5.0T7   372  BNCH:WATBOL.C        
0          DATA FILE USED BY BM00 JOB.
00760/019   BENCHMARK - BATCH        BM00 DATA       SA  O          BNCH:3270.BENCH.S                                               
            5.0T3   508  BENCHMARK_-_BATCH.BM00_DA.SA.019   1 LINE     80   92 PAGE UQV            OGDEN     JULY 03, 1981  19:20:24
            5.0T7   373  BNCH:3270.BENCH.S    
0          DATA FILE USED BY BM00 JOB.
00760/020   BENCHMARK - BATCH        BM01 JOB        SF  O          BNCH:BM01                                                       
            5.0T3   509  BENCHMARK_-_BATCH.BM01_JO.SF.020   1 LINE     80   17 PAGE UQV            OGDEN     JULY 03, 1981  19:20:30
            5.0T7   374  BNCH:BM01            
0          THE FOLLOWING 49 FILES, BM01-BM26 AND BN01-BN51, ARE BATCH JOBS THAT CAN
           BE SUBMITTED USING SUBMIT (760/2).  ONCE KNOWN AS SAN OR SAP.
00760/021   BENCHMARK - BATCH        BM04 JOB        SF  O          BNCH:BM04                                                       
            5.0T3   510  BENCHMARK_-_BATCH.BM04_JO.SF.021   1 LINE     74    7 PAGE UQV            OGDEN     JULY 03, 1981  19:20:33
            5.0T7   375  BNCH:BM04            
00760/022   BENCHMARK - BATCH        BM05 JOB        SF  O          BNCH:BM05                                                       
            5.0T3   511  BENCHMARK_-_BATCH.BM05_JO.SF.022   1 LINE     80   17 PAGE UQV            OGDEN     JULY 03, 1981  19:20:34
            5.0T7   376  BNCH:BM05            
00760/023   BENCHMARK - BATCH        BM06 JOB        SF  O          BNCH:BM06                                                       
            5.0T3   512  BENCHMARK_-_BATCH.BM06_JO.SF.023   1 LINE     71    2 PAGE UQV            OGDEN     JULY 03, 1981  19:20:36
            5.0T7   377  BNCH:BM06            
00760/024   BENCHMARK - BATCH        BM08 JOB        SF  O          BNCH:BM08                                                       
            5.0T3   513  BENCHMARK_-_BATCH.BM08_JO.SF.024   1 LINE     73    6 PAGE UQV            OGDEN     JULY 03, 1981  19:20:37
            5.0T7   378  BNCH:BM08            
1                                                                                               MON AUG 05/96   18:37:45   Page  537
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00760/025   BENCHMARK - BATCH        BM09 JOB        SF  O          BNCH:BM09                                                       
            5.0T3   514  BENCHMARK_-_BATCH.BM09_JO.SF.025   1 LINE     77    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:38
            5.0T7   379  BNCH:BM09            
00760/026   BENCHMARK - BATCH        BM11 JOB        SF  O          BNCH:BM11                                                       
            5.0T3   515  BENCHMARK_-_BATCH.BM11_JO.SF.026   1 LINE     73    7 PAGE UQV            OGDEN     JULY 03, 1981  19:20:38
            5.0T7   380  BNCH:BM11            
00760/027   BENCHMARK - BATCH        BM12 JOB        SF  O          BNCH:BM12                                                       
            5.0T3   516  BENCHMARK_-_BATCH.BM12_JO.SF.027   1 LINE     69    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:40
            5.0T7   381  BNCH:BM12            
00760/028   BENCHMARK - BATCH        BM13 JOB        SF  O          BNCH:BM13                                                       
            5.0T3   517  BENCHMARK_-_BATCH.BM13_JO.SF.028   1 LINE     72    3 PAGE UQV            OGDEN     JULY 03, 1981  19:20:40
            5.0T7   382  BNCH:BM13            
00760/029   BENCHMARK - BATCH        BM14 JOB        SP  O          BNCH:BM14                                                       
            5.0T3   518  BENCHMARK_-_BATCH.BM14_JO.SP.029   1 LINE     74    2 PAGE UQV            OGDEN     JULY 03, 1981  19:20:41
            5.0T7   383  BNCH:BM14            
00760/030   BENCHMARK - BATCH        BM18 JOB        SF  O          BNCH:BM18                                                       
            5.0T3   519  BENCHMARK_-_BATCH.BM18_JO.SF.030   1 LINE     71    2 PAGE UQV            OGDEN     JULY 03, 1981  19:20:42
            5.0T7   384  BNCH:BM18            
00760/031   BENCHMARK - BATCH        BM19 JOB        SF  O          BNCH:BM19                                                       
            5.0T3   520  BENCHMARK_-_BATCH.BM19_JO.SF.031   1 LINE     69    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:43
            5.0T7   385  BNCH:BM19            
00760/032   BENCHMARK - BATCH        BM20 JOB        SF  O          BNCH:BM20                                                       
            5.0T3   521  BENCHMARK_-_BATCH.BM20_JO.SF.032   1 LINE     72    3 PAGE UQV            OGDEN     JULY 03, 1981  19:20:44
            5.0T7   386  BNCH:BM20            
00760/033   BENCHMARK - BATCH        BM21 JOB        SC  O          BNCH:BM21                                                       
            5.0T3   522  BENCHMARK_-_BATCH.BM21_JO.SC.033   1 LINE     80    4 PAGE UQV            OGDEN     JULY 03, 1981  19:20:45
            5.0T7   387  BNCH:BM21            
00760/034   BENCHMARK - BATCH        BM23 JOB        SP  O          BNCH:BM23                                                       
            5.0T3   523  BENCHMARK_-_BATCH.BM23_JO.SP.034   1 LINE     73   17 PAGE UQV            OGDEN     JULY 03, 1981  19:20:45
            5.0T7   388  BNCH:BM23            
00760/035   BENCHMARK - BATCH        BM26 JOB        SP  O          BNCH:BM26                                                       
            5.0T3   524  BENCHMARK_-_BATCH.BM26_JO.SP.035   1 LINE     73   11 PAGE UQV            OGDEN     JULY 03, 1981  19:20:47
            5.0T7   389  BNCH:BM26            
00760/036   BENCHMARK - BATCH        BN01 JOB        SF  O          BNCH:BN01                                                       
            5.0T3   525  BENCHMARK_-_BATCH.BN01_JO.SF.036   1 LINE     80   58 PAGE UQV            OGDEN     JULY 03, 1981  19:20:49
            5.0T7   390  BNCH:BN01            
00760/037   BENCHMARK - BATCH        BN02 JOB        SF  O          BNCH:BN02                                                       
            5.0T3   526  BENCHMARK_-_BATCH.BN02_JO.SF.037   1 LINE     80    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:53
            5.0T7   391  BNCH:BN02            
1                                                                                               MON AUG 05/96   18:37:45   Page  538
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00760/038   BENCHMARK - BATCH        BN03 JOB        SF  O          BNCH:BN03                                                       
            5.0T3   527  BENCHMARK_-_BATCH.BN03_JO.SF.038   1 LINE     76    9 PAGE UQV            OGDEN     JULY 03, 1981  19:20:54
            5.0T7   392  BNCH:BN03            
00760/039   BENCHMARK - BATCH        BN04 JOB        SF  O          BNCH:BN04                                                       
            5.0T3   528  BENCHMARK_-_BATCH.BN04_JO.SF.039   1 LINE     73    2 PAGE UQV            OGDEN     JULY 03, 1981  19:20:56
            5.0T7   393  BNCH:BN04            
00760/040   BENCHMARK - BATCH        BN05 JOB        SF  O          BNCH:BN05                                                       
            5.0T3   529  BENCHMARK_-_BATCH.BN05_JO.SF.040   1 LINE     80    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:57
            5.0T7   394  BNCH:BN05            
00760/041   BENCHMARK - BATCH        BN06 JOB        SF  O          BNCH:BN06                                                       
            5.0T3   530  BENCHMARK_-_BATCH.BN06_JO.SF.041   1 LINE     73    7 PAGE UQV            OGDEN     JULY 03, 1981  19:20:57
            5.0T7   395  BNCH:BN06            
00760/042   BENCHMARK - BATCH        BN07 JOB        SF  O          BNCH:BN07                                                       
            5.0T3   531  BENCHMARK_-_BATCH.BN07_JO.SF.042   1 LINE     73    2 PAGE UQV            OGDEN     JULY 03, 1981  19:20:58
            5.0T7   396  BNCH:BN07            
00760/043   BENCHMARK - BATCH        BN08 JOB        SF  O          BNCH:BN08                                                       
            5.0T3   532  BENCHMARK_-_BATCH.BN08_JO.SF.043   1 LINE     59    1 PAGE UQV            OGDEN     JULY 03, 1981  19:20:59
            5.0T7   397  BNCH:BN08            
00760/044   BENCHMARK - BATCH        BN09 JOB        SF  O          BNCH:BN09                                                       
            5.0T3   533  BENCHMARK_-_BATCH.BN09_JO.SF.044   1 LINE     80    4 PAGE UQV            OGDEN     JULY 03, 1981  19:21:00
            5.0T7   398  BNCH:BN09            
00760/045   BENCHMARK - BATCH        BN10 JOB        SF  O          BNCH:BN10                                                       
            5.0T3   534  BENCHMARK_-_BATCH.BN10_JO.SF.045   1 LINE     80    3 PAGE UQV            OGDEN     JULY 03, 1981  19:21:01
            5.0T7   399  BNCH:BN10            
00760/046   BENCHMARK - BATCH        BN11 JOB        SF  O          BNCH:BN11                                                       
            5.0T3   535  BENCHMARK_-_BATCH.BN11_JO.SF.046   1 LINE     78    6 PAGE UQV            OGDEN     JULY 03, 1981  19:21:01
            5.0T7   400  BNCH:BN11            
00760/047   BENCHMARK - BATCH        BN12 JOB        SF  O          BNCH:BN12                                                       
            5.0T3   536  BENCHMARK_-_BATCH.BN12_JO.SF.047   1 LINE     69    2 PAGE UQV            OGDEN     JULY 03, 1981  19:21:02
            5.0T7   401  BNCH:BN12            
00760/048   BENCHMARK - BATCH        BN13 JOB        SF  O          BNCH:BN13                                                       
            5.0T3   537  BENCHMARK_-_BATCH.BN13_JO.SF.048   1 LINE     73    3 PAGE UQV            OGDEN     JULY 03, 1981  19:21:03
            5.0T7   402  BNCH:BN13            
00760/049   BENCHMARK - BATCH        BN15 JOB        SF  O          BNCH:BN15                                                       
            5.0T3   538  BENCHMARK_-_BATCH.BN15_JO.SF.049   1 LINE     59    1 PAGE UQV            OGDEN     JULY 03, 1981  19:21:04
            5.0T7   403  BNCH:BN15            
00760/050   BENCHMARK - BATCH        BN16 JOB        SF  O          BNCH:BN16                                                       
            5.0T3   539  BENCHMARK_-_BATCH.BN16_JO.SF.050   1 LINE     75    3 PAGE UQV            OGDEN     JULY 03, 1981  19:21:05
            5.0T7   404  BNCH:BN16            
1                                                                                               MON AUG 05/96   18:37:45   Page  539
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00760/051   BENCHMARK - BATCH        BN17 JOB        SF  O          BNCH:BN17                                                       
            5.0T3   540  BENCHMARK_-_BATCH.BN17_JO.SF.051   1 LINE     80    2 PAGE UQV            OGDEN     JULY 03, 1981  19:21:06
            5.0T7   405  BNCH:BN17            
00760/052   BENCHMARK - BATCH        BN30 JOB        SF  O          BNCH:BN30                                                       
            5.0T3   541  BENCHMARK_-_BATCH.BN30_JO.SF.052   1 LINE     80    4 PAGE UQV            OGDEN     JULY 03, 1981  19:21:06
            5.0T7   406  BNCH:BN30            
00760/053   BENCHMARK - BATCH        BN31 JOB        SF  O          BNCH:BN31                                                       
            5.0T3   542  BENCHMARK_-_BATCH.BN31_JO.SF.053   1 LINE     71    4 PAGE UQV            OGDEN     JULY 03, 1981  19:21:07
            5.0T7   407  BNCH:BN31            
00760/054   BENCHMARK - BATCH        BN32 JOB        SF  O          BNCH:BN32                                                       
            5.0T3   543  BENCHMARK_-_BATCH.BN32_JO.SF.054   1 LINE     80    6 PAGE UQV            OGDEN     JULY 03, 1981  19:21:08
            5.0T7   408  BNCH:BN32            
00760/055   BENCHMARK - BATCH        BN33 JOB        SF  O          BNCH:BN33                                                       
            5.0T3   544  BENCHMARK_-_BATCH.BN33_JO.SF.055   1 LINE     72    3 PAGE UQV            OGDEN     JULY 03, 1981  19:21:09
            5.0T7   409  BNCH:BN33            
00760/056   BENCHMARK - BATCH        BN34 JOB        SF  O          BNCH:BN34                                                       
            5.0T3   545  BENCHMARK_-_BATCH.BN34_JO.SF.056   1 LINE     72    3 PAGE UQV            OGDEN     JULY 03, 1981  19:21:10
            5.0T7   410  BNCH:BN34            
00760/057   BENCHMARK - BATCH        BN35 JOB        SF  O          BNCH:BN35                                                       
            5.0T3   546  BENCHMARK_-_BATCH.BN35_JO.SF.057   1 LINE     72    4 PAGE UQV            OGDEN     JULY 03, 1981  19:21:11
            5.0T7   411  BNCH:BN35            
00760/058   BENCHMARK - BATCH        BN36 JOB        SF  O          BNCH:BN36                                                       
            5.0T3   547  BENCHMARK_-_BATCH.BN36_JO.SF.058   1 LINE     72    2 PAGE UQV            OGDEN     JULY 03, 1981  19:21:12
            5.0T7   412  BNCH:BN36            
00760/059   BENCHMARK - BATCH        BN37 JOB        SF  O          BNCH:BN37                                                       
            5.0T3   548  BENCHMARK_-_BATCH.BN37_JO.SF.059   1 LINE     80    9 PAGE UQV            OGDEN     JULY 03, 1981  19:21:12
            5.0T7   413  BNCH:BN37            
00760/060   BENCHMARK - BATCH        BN38 JOB        SF  O          BNCH:BN38                                                       
            5.0T3   549  BENCHMARK_-_BATCH.BN38_JO.SF.060   1 LINE     80   25 PAGE UQV            OGDEN     JULY 03, 1981  19:21:13
            5.0T7   414  BNCH:BN38            
00760/061   BENCHMARK - BATCH        BN39 JOB        SF  O          BNCH:BN39                                                       
            5.0T3   550  BENCHMARK_-_BATCH.BN39_JO.SF.061   1 LINE     80   15 PAGE UQV            OGDEN     JULY 03, 1981  19:21:15
            5.0T7   415  BNCH:BN39            
00760/062   BENCHMARK - BATCH        BN40 JOB        SF  O          BNCH:BN40                                                       
            5.0T3   551  BENCHMARK_-_BATCH.BN40_JO.SF.062   1 LINE     80   14 PAGE UQV            OGDEN     JULY 03, 1981  19:21:17
            5.0T7   416  BNCH:BN40            
00760/063   BENCHMARK - BATCH        BN41 JOB        SF  O          BNCH:BN41                                                       
            5.0T3   552  BENCHMARK_-_BATCH.BN41_JO.SF.063   1 LINE     80    5 PAGE UQV            OGDEN     JULY 03, 1981  19:21:18
            5.0T7   417  BNCH:BN41            
1                                                                                               MON AUG 05/96   18:37:45   Page  540
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00760/064   BENCHMARK - BATCH        BN42 JOB        SF  O          BNCH:BN42                                                       
            5.0T3   553  BENCHMARK_-_BATCH.BN42_JO.SF.064   1 LINE     72    4 PAGE UQV            OGDEN     JULY 03, 1981  19:21:19
            5.0T7   418  BNCH:BN42            
00760/065   BENCHMARK - BATCH        BN43 JOB        SF  O          BNCH:BN43                                                       
            5.0T3   554  BENCHMARK_-_BATCH.BN43_JO.SF.065   1 LINE     72    3 PAGE UQV            OGDEN     JULY 03, 1981  19:21:20
            5.0T7   419  BNCH:BN43            
00760/066   BENCHMARK - BATCH        BN44 JOB        SF  O          BNCH:BN44                                                       
            5.0T3   555  BENCHMARK_-_BATCH.BN44_JO.SF.066   1 LINE     72    4 PAGE UQV            OGDEN     JULY 03, 1981  19:21:21
            5.0T7   420  BNCH:BN44            
00760/067   BENCHMARK - BATCH        BN50 JOB        SC  O          BNCH:BN50                                                       
            5.0T3   556  BENCHMARK_-_BATCH.BN50_JO.SC.067   1 LINE     73   21 PAGE UQV            OGDEN     JULY 03, 1981  19:21:22
            5.0T7   421  BNCH:BN50            
00760/068   BENCHMARK - BATCH        BN51 JOB        WF  O          BNCH:BN51                                                       
            5.0T3   557  BENCHMARK_-_BATCH.BN51_JO.WF.068   1 LINE     80    4 PAGE UQV            OGDEN     JULY 03, 1981  19:21:24
            5.0T7   422  BNCH:BN51            
00761/001   HARDWIRED TERMINALS      *HWTERM         SA  G          S1431 4.3T2 VLO FSNAME=HARDWIRED_TERMINALS.*HWTE.SA.001(1)    63
            5.0T3   558  HARDWIRED_TERMINALS.*HWTE.SA.001   1 LINE     65    1 PAGE UM   OGDEN               NOV. 16, 1979  14:21:13
            5.0T7   423                       
0          SOURCE FOR CSECT WHICH DEFINES THE LOCATION AND DEFAULT *...* ROUTING
           FOR HARDWIRED TERMINALS.  IN THIS WAY, HARDWIRED TERMINALS LOCATED IN THE
           VICINITY OF RJE STATIONS CAN HAVE *...* OUTPUT ROUTED APPROPRIATELY BY
           DEFAULT.  IN ADDITION, HARDWIRED "EXPRESS" TERMINALS CAN BE IDENTIFIED
           SO THAT USERS OF SUCH TERMINALS CAN BE AUTOMATICALLY REMINDED BY MTS
           AFTER 5 MINUTES THAT THE TERMINAL IS RESERVED FOR EXPRESS USE.
           AS DISTRIBUTED, THIS CSECT CONTAINS NO IDENTIFIED HARDWIRED TERMINALS;
           EACH INSTALLATION HAVING TERMINALS WHICH SHOULD BE IDENTIFIED FOR THESE
           PURPOSES SHOULD REASSEMBLE.
            
           AT MICHIGAN, INFORMATION FROM THIS TABLE IS ALSO USED TO IDENTIFY "HIGH-SPEED
           LINES" IN RATENUMBER (651/11).
            
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 761/3 
00761/002   HARDWIRED TERMINALS      *HWTERM         OC  G          MTS:TST.HWTERM                                                  
            5.0T3   559  HARDWIRED_TERMINALS.*HWTE.OC.002   1 LINE     80    1 PAGE UM   OGDEN               JULY 03, 1981  19:21:25
            5.0T7   424  *HWTERM              
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM AFTER IPL BY PISTLE.
00761/003   HARDWIRED TERMINALS      HWTPRINT        SA  G          S1431 4.3T2 VLO FSNAME=HARDWIRED_TERMINALS.HWTPR.SA.003(1)    65
            5.0T3   560  HARDWIRED_TERMINALS.HWTPR.SA.003   1 LINE     72    1 PAGE UM   OGDEN               APR. 06, 1980  13:22:56
            5.0T7   425                       
0          PROGRAM TO PRINT THE CONTENTS OF THE HARDWIRED TERMINAL TABLE (761/1) CURRENTLY
           IN USE.  CALLS RJECHECK SUBROUTINE (IN HASP).
            
1                                                                                               MON AUG 05/96   18:37:45   Page  541
0  Num   R       Component Name         Subname     Type G Seq ID 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 COPY:MTS.MACROS (344/3).
00761/004   HARDWIRED TERMINALS      HWTPRINT        OC  G          S1431 4.3T2 VLO FSNAME=HARDWIRED_TERMINALS.HWTPR.OC.004(1)    66
            5.0T3   561  HARDWIRED_TERMINALS.HWTPR.OC.004   1 LINE     80    1 PAGE UM   OGDEN               APR. 06, 1980  13:22:59
            5.0T7   426                       
00762/001   FIDS                     COMMAND FILE    C              MTA:FIDSCMD                                                     
            5.0T3   562  FIDS.COMMAND_FILE.C.001            1 LINE     95    1 PAGE UM   MTA                 JULY 03, 1981  19:21:27
            5.0T7   427  MTA:FIDSCMD          
0          COMMANDS TO RUN THE MEMOREX FAULT ISOLATION DIAGNOSTIC SYSTEM, FIDS, IN MTS.
           IT WILL READ INITIALIZATION STATEMENTS, INCLUDING AT LEAST ONE CONFIG
           STATEMENT, FOLLOWED BY ENDC, AND THEN WAIT FOR INPUT. SEE THE (762/9)
           WRITEUP.
00762/002   FIDS                     MAIN PROGRAM    OE           # ETC:FIDS.MAIN                                                   
                                                                                    UM   MTA                                        
0          THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS.
           IT IS THE MAIN PROGRAM OF FIDS.
00762/003   FIDS                     LIBRARY         OL           # ETC:FIDS.LIB                                                    
                                                                                    UM   MTA                                        
0          THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS A
           LIBRARY OF FIDS MODULES SET UP TO RUN IN MTS. CORRESPONDS TO (762/4) AND
           (762/5). CONTAINS REP CARDS TO MAKE FIDS WORK IN *FAKEOS (545):
            
           MODULE MCPINIT:
            REP  000746  01,9003D004,4100B778,41100040,5000B778,D201B79AC03C,9200B797
            REP  000760  01,0A3B,D203C078B780,9803D004,95FFB797,0787,47F07004
            REP  000778  01,00000000,00000001
            
           REPLACES UCB SEARCH WITH A CALL TO SVC 59.  EQUIVALENT TO
            
                   STM    R0,R3,4(RD)
                   LA     R0,PARS
                   LA     R1,X'40'                "GET DEVICE" CODE FOR SVC 59
                   ST     R0,PARS
                   MVC    PARS+34(2),X'FFC'(RB)   BUILD A FAKE OLTEP DEVTAB ENTRY
                   MVI    PARS+31,0
                   SVC    59
                   MVC    X'38'(4,RC),PARS+8      THE UCB ADDRESS
                   LM     R0,R3,4(RD)
                   CLI    PARS+31,255
                   BER    R7                      GOT IT
                   B      4(0,R7)                 NOT AVAILABLE
             PARS  DC     F'0,1'
00762/004   FIDS                     OS OBJECT 1     OC           # S0938 FSAVE2 VLO FSNAME=FIDS.FILE2(2)                       512 
                                                                                    UM   MTA                                        
0          THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS.
           IT IS OS LINKEDIT INPUT FOR FIDS, COPIED FROM FILE 2 OF THE MEMOREX
1                                                                                               MON AUG 05/96   18:37:45   Page  542
0  Num   R       Component Name         Subname     Type G Seq ID 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 CURRENT ON SEPT. 13, 1979.  THIS IS VERSION 2.4 OF FIDS, ACCORDING
           TO THE MESSAGE IT PRINTS WHEN IT IS RUN.
0          Referenced by comments of: 762/3 
00762/005   FIDS                     OS OBJECT 2     OC           # S0938 FSAVE2 VLO FSNAME=FIDS.FILE2(3)                       515 
                                                                                    UM   MTA                                        
0          THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS.
           IT IS AN ADDENDUM FOR 3350S KNOWN AS THE "SKIP DEFECT" VERSION.
0          Referenced by comments of: 762/3 
00762/006   FIDS                     EXIT ROUTINE    OC           # S0938 FSAVE2 VLO FSNAME=FIDS.FILE3(3)                       516 
                                                                                    UM   MTA                                        
0          THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS THE
           OBJECT FOR AN EXIT ROUTINE USED BY OS FIDS TO GET CONTROL IN SUPERVISOR
           STATE. IT IS NOT USED IN MTS OR MVS.
00762/007   FIDS                     BLDL            D              ETC:FIDS.BLDL                                                   
            5.0T3   563  FIDS.BLDL.D.007                    1 SEQ     250    1 PAGE UM   MTA                 JULY 03, 1981  19:21:29
            5.0T7   428  ETC:FIDS.BLDL        
0          BLDL FILE FOR FIDS.  OUTPUT FROM *FAKEOSCREBLDL (545/42).
0          Referenced by comments of: 762/8 
00762/008   FIDS                     BLDL INPUT      D              S0938 FSAVE2 FSNAME=FIDS.BLDLIN                                 
            5.0T3   564  FIDS.BLDL_INPUT.D.008              1 LINE     60    2 PAGE UM   MTA                 MAR. 07, 1980  23:45:47
            5.0T7   429                       
0          INPUT TO *FAKEOSCREBLDL (545/42) TO CREATE (762/7).
00762/009   FIDS                     WRITEUP         WF             S1320 D4.2T2 VLO FSNAME=FIDS.WRITEUP.WF.007(1)                76
            5.0T3   565  FIDS.WRITEUP.WF.009                1 LINE     67    1 PAGE UM   MTA                 APR. 02, 1979  01:26:59
            5.0T7   430                       
0          INSTRUCTIONS FOR RUNNING FIDS IN MTS.
0          Referenced by comments of: 762/1 
00763/001   BLDGPLOT                 SOURCE          SF  G          S0409 'BLDGPLOT' FSNAME=BPRGM                                   
            5.0T3   566  BLDGPLOT.SOURCE.SF.001             1 LINE     77   22 PAGE UM   EMERY               JAN. 03, 1980  13:11:10
            5.0T7   431                       
0          THIS IS THE FORTRAN SOURCE PROGRAM FOR THE UM COMPUTING CENTER BUILDING
           PLOT.  EXECUTION OF THE OBJECT VERSION (763/2) UTILIZES 3 INPUT FILES THAT
           ARE ASSIGNED TO LOGICAL I/O UNITS 2, 3, AND 4.  THE PLOT DESCRIPTION IS
           DIRECTED TO LOGICAL I/O UNIT 9.  THE FIRST INPUT FILE CONTAINS STRUCTURAL
           INFORMATION ABOUT THE BUILDING, THE SECOND CONTAINS PHYSICAL DESCRIPTIONS
           OF THE SIZE OF VARIOUS COMPUTER COMPONENTS AND FURNITURE ITEMS, AND THE
           THIRD CONTAINS INFORMATION ON WHICH COMPONENT IS INSTALLED AT A GIVEN
           BUILDING LOCATION FOR A SPECIFIED TIME PERIOD.
1                                                                                               MON AUG 05/96   18:37:45   Page  543
0  Num   R       Component Name         Subname     Type G Seq ID 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: 763/2 
00763/002   BLDGPLOT                 OBJECT          OC  G          S0409 'BLDGPLOT' FSNAME=BOBJ                                    
            5.0T3   567  BLDGPLOT.OBJECT.OC.002             1 LINE   9522   22 PAGE UM   EMERY               MAR. 12, 1979  12:39:46
            5.0T7   432                       
0          OBJECT FOR BLDGPLOT PROGRAM (763/1).
0          Referenced by comments of: 763/1 
00763/003   BLDGPLOT                 WALLS           D              S0409 'BLDGPLOT' FSNAME=BWALLS                                  
            5.0T3   568  BLDGPLOT.WALLS.D.003               1 LINE     81   24 PAGE UM   EMERY               JAN. 03, 1980  13:15:27
            5.0T7   433                       
0          THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 2 WHEN PRODUCING A PLOT OF
           THE UM COMPUTING CENTER BUILDING.  IT CONTAINS STRUCTURAL INFORMATION ON THE
           WALLS, WINDOWS, ELECTRICAL SERVICE OUTLETS, TELEPHONE SERVICE OUTLETS, ETC.
00763/004   BLDGPLOT                 DEVICES         D              S0409 'BLDGPLOT' FSNAME=BDEV                                    
            5.0T3   569  BLDGPLOT.DEVICES.D.004             1 LINE     94    5 PAGE UM   EMERY               JAN. 03, 1980  13:17:52
            5.0T7   434                       
0          THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 3 WHEN PRODUCING A PLOT OF
           THE UM COMPUTING CENTER BUILDING.  IT CONTAINS INFORMATION ABOUT THE SIZE OF
           VARIOUS COMPUTER COMPONENTS, TERMINALS, FURNITURE ITEMS, ETC.  WHEN APPROPRIATE
           IT ALSO CONTAINS INFORMATION ABOUT THE LOCATION OF CABLE CUTOUTS IN COMPUTER
           COMPONENTS.
00763/005   BLDGPLOT                 DATA            D              S0409 'BLDGPLOT' FSNAME=BDATA                                   
            5.0T3   570  BLDGPLOT.DATA.D.005                1 LINE     79   33 PAGE UM   EMERY               MAR. 09, 1979  12:13:34
            5.0T7   435                       
0          THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 4 WHEN PRODUCING A PLOT OF
           THE UM COMPUTING CENTER BUILDING.  IT CONTAINS INFORMATION ON WHICH COMPUTER
           COMPONENT, DESK, TERMINAL, BOOKCASE, ETC. WAS "INSTALLED" AT A PARTICULAR
           LOCATION IN THE BUILDING FOR A SPECIFIED TIME PERIOD.
0          Referenced by comments of: 763/6 
00763/006   BLDGPLOT                 LABELS          D              S0409 'BLDGPLOT' FSNAME=BLABEL                                  
            5.0T3   571  BLDGPLOT.LABELS.D.006              1 LINE     80    3 PAGE UM   EMERY               JAN. 03, 1980  13:22:05
            5.0T7   436                       
0          THIS FILE MAY BE ASSIGNED TO LOGICAL I/O UNIT 4 WHEN PRODUCING A PLOT OF THE
           UM COMPUTING CENTER BUILDING.  THE FILE CONTAINS INFORMATION DESCRIBING THE
           CONTENT AND LOCATION OF LABELS THAT SHOULD APPEAR IN THE PLOT.  WHEN APPROPRIATE
           IT MAY BE CONCATENATED TO THE DATA FILE (763/5).
00764/001   APPEND                                                # (OBSOLETE)                                                      
            4.3T2    70  APPEND..SS.001                     1 LINE     80    1 PAGE UM                       JAN. 03, 1979  14:01:22
0          Obsoleted by *COMBINE (771).
1                                                                                               MON AUG 05/96   18:37:45   Page  544
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00765/001   DAVE/M                   MAIN            SF  G          S1431 4.3T2 VLO FSNAME=DAVE/M.MAIN.SF.001(1)                  73
            5.0T3   572  DAVE/M.MAIN.SF.001                 1 LINE     72   12 PAGE UM   BRILL               APR. 06, 1980  13:28:02
            5.0T7   437                       
0          DAVE/M IS THE UNIVERSITY OF MICHIGAN'S VERSION OF DAVE, A SOFTWARE TOOL FOR
           GATHERING INFORMATION ABOUT GLOBAL DATA FLOW IN FORTRAN PROGRAMS, AND FOR
           IDENTIFYING THE ANOMALOUS USE OF DATA IN THESE PROGRAMS.  DAVE WAS DEVELOPED
           BY THE UNIVERSITY OF COLORADO.
            
           THIS IS THE MAIN PROGRAM FOR DAVE/M.  COPIES UNSP:LIBRARY (685/2).
0          Referenced by comments of: 744/1, 765/2, 765/3, 765/5, 765/7, 765/9, 765/13 
00765/002   DAVE/M                   *DAVE           OE  G          *DAVE                                                           
            5.0T3   573  DAVE/M.*DAVE.OE.002                1 LINE  19309    9 PAGE UM   BRILL               JULY 03, 1981  19:24:33
            5.0T7   438  *DAVE                
0          OBJECT OF (765/1). DYNAMICALLY LOADS PHASE0 (765/3), PHASE1 (765/5), PHASE2
           (765/7), PHASE3 (765/9) AND DAVE.SUB (765/13). CALLS DAVE.EXT (744/7).
0          Referenced by comments of: 744/7 
00765/003   DAVE/M                   PHASE0          SF  G          S1431 4.3T2 VLO FSNAME=DAVE/M.PHASE0.SF.003(1)                75
            5.0T3   574  DAVE/M.PHASE0.SF.003               1 LINE     73   28 PAGE UM   BRILL               APR. 06, 1980  13:28:06
            5.0T7   439                       
0          SOURCE CODE FOR PHASE 0, WHICH CHECKS FOR PROPER SYNTAX.
           DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1).
0          Referenced by comments of: 765/2 
00765/004   DAVE/M                   PHASE0          OE  G          ETC:DAVE.0                                                      
            5.0T3   575  DAVE/M.PHASE0.OE.004               1 LINE  22894    8 PAGE UM   BRILL               JULY 03, 1981  19:24:36
            5.0T7   440  ETC:DAVE.0           
00765/005   DAVE/M                   PHASE1          SF  G          S1431 4.3T2 VLO FSNAME=DAVE/M.PHASE1.SF.005(1)                77
            5.0T3   576  DAVE/M.PHASE1.SF.005               1 LINE     73   93 PAGE UM   BRILL               APR. 06, 1980  13:28:11
            5.0T7   441                       
0          SOURCE CODE FOR PHASE 1, THE PARSER.
           DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1).
0          Referenced by comments of: 765/2 
00765/006   DAVE/M                   PHASE1          OE  G          ETC:DAVE.1                                                      
            5.0T3   577  DAVE/M.PHASE1.OE.006               1 LINE  32767   22 PAGE UM   BRILL               JULY 03, 1981  19:24:41
            5.0T7   442  ETC:DAVE.1           
00765/007   DAVE/M                   PHASE2          SF  G          S1431 4.3T2 VLO FSNAME=DAVE/M.PHASE2.SF.007(1)                79
            5.0T3   578  DAVE/M.PHASE2.SF.007               1 LINE     73  100 PAGE UM   BRILL               APR. 06, 1980  13:28:43
            5.0T7   443                       
0          SOURCE CODE FOR PHASE 2, THE ANALYZER.
           DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1).
1                                                                                               MON AUG 05/96   18:37:45   Page  545
0  Num   R       Component Name         Subname     Type G Seq ID 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: 765/2 
00765/008   DAVE/M                   PHASE2          OE  G          ETC:DAVE.2                                                      
            5.0T3   579  DAVE/M.PHASE2.OE.008               1 LINE  32767   32 PAGE UM   BRILL               JULY 03, 1981  19:24:47
            5.0T7   444  ETC:DAVE.2           
00765/009   DAVE/M                   PHASE3          SF  G          S1431 4.3T2 VLO FSNAME=DAVE/M.PHASE3.SF.009(1)                81
            5.0T3   580  DAVE/M.PHASE3.SF.009               1 LINE     75   29 PAGE UM   BRILL               APR. 06, 1980  13:29:05
            5.0T7   445                       
0          SOURCE CODE FOR PHASE 3, THE OUTPUT PHASE.
           DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1).
0          Referenced by comments of: 765/2 
00765/010   DAVE/M                   PHASE3          OE  G          ETC:DAVE.3                                                      
            5.0T3   581  DAVE/M.PHASE3.OE.010               1 LINE  32767   16 PAGE UM   BRILL               JULY 03, 1981  19:24:50
            5.0T7   446  ETC:DAVE.3           
00765/011   DAVE/M                   ASM SUBRS       SA  G          S1431 4.3T2 VLO FSNAME=DAVE/M.ASM_SUBRS.SA.011(1)             83
            5.0T3   582  DAVE/M.ASM_SUBRS.SA.011            1 LINE     72    5 PAGE UM   BRILL               APR. 06, 1980  13:29:15
            5.0T7   447                       
0          DAVE ASSEMBLER LANGUAGE SUBROUTINES.
0          Referenced by comments of: 765/13 
00765/012   DAVE/M                   FTN SUBRS       SF  G          S1431 4.3T2 VLO FSNAME=DAVE/M.FTN_SUBRS.SF.012(1)             84
            5.0T3   583  DAVE/M.FTN_SUBRS.SF.012            1 LINE     73   46 PAGE UM   BRILL               APR. 06, 1980  13:29:17
            5.0T7   448                       
0          DAVE FORTRAN LANGUAGE SUBROUTINES.
0          Referenced by comments of: 765/13 
00765/013   DAVE/M                   SUBR LIB        OL  G          ETC:DAVESUB                                                     
            5.0T3   584  DAVE/M.SUBR_LIB.OL.013             1 LINE  32767   17 PAGE UM   BRILL               JULY 03, 1981  19:24:54
            5.0T7   449  ETC:DAVESUB          
0          OBJECT OF (765/11) AND (765/12). DYMANICALLY LOADED BY THE MAIN PROGRAM
           (765/1).
0          Referenced by comments of: 765/2 
00765/014   DAVE/M                   DAVE.CMD        C              S1431 4.3T2 VLO FSNAME=DAVE/M.DAVE.CMD.C.014(1)               86
            5.0T3   585  DAVE/M.DAVE.CMD.C.014              1 LINE     64    1 PAGE UM   BRILL               APR. 06, 1980  13:29:26
            5.0T7   450                       
0          COMMANDS TO CONSTRUCT A DAVE/M SYSTEM.  WHEN THIS FILE IS SOURCED TO, THE
           FORTRAN COMPILER PRODUCES ERROR MESSAGES WHICH SHOULD BE IGNORED.
           DAVE.CMD.LIST (765/15) IS THE OUTPUT GENERATED BY SOURCING TO THIS FILE.
0          Referenced by comments of: 765/15 
1                                                                                               MON AUG 05/96   18:37:45   Page  546
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00765/015   DAVE/M                   DAVE.CMD.LIST   L              S1431 4.3T2 VLO FSNAME=DAVE/M.DAVE.CMD.LIST.L.015(1)          87
            5.0T3   586  DAVE/M.DAVE.CMD.LIST.L.015         1 LINE     96    9 PAGE UM   BRILL               APR. 06, 1980  13:29:28
            5.0T7   451                       
0          OUTPUT GENERATED WHEN (765/14) IS SOURCED TO.
0          Referenced by comments of: 765/14 
00765/016   DAVE/M                   DATA BASE       SF  G          S1431 4.3T2 VLO FSNAME=DAVE/M.DATA_BASE.SF.016(1)             88
            5.0T3   587  DAVE/M.DATA_BASE.SF.016            1 LINE     73   22 PAGE UM   BRILL               APR. 06, 1980  13:29:30
            5.0T7   452                       
0          SOURCE FOR THE PROGRAM USED TO GENERATE DAVE.INIT (765/19), AN INTERNAL
           DATA BASE USED BY DAVE/M.
0          Referenced by comments of: 765/17, 765/19 
00765/017   DAVE/M                   DATA BASE       OE  G          S1431 4.3T2 VLO FSNAME=DAVE/M.DATA_BASE.OE.017(1)             89
            5.0T3   588  DAVE/M.DATA_BASE.OE.017            1 LINE   3160   14 PAGE UM   BRILL               APR. 06, 1980  13:29:33
            5.0T7   453                       
0          OBJECT OF (765/16).
0          Referenced by comments of: 765/18 
00765/018   DAVE/M                   DATA BASE       D              S1431 4.3T2 VLO FSNAME=DAVE/M.DATA_BASE.D.018(1)              90
            5.0T3   589  DAVE/M.DATA_BASE.D.018             1 LINE     67    4 PAGE UM   BRILL               APR. 06, 1980  13:29:35
            5.0T7   454                       
0          INPUT DATA TO BE FED TO (765/17) TO CREATE (765/19).
0          Referenced by comments of: 765/19 
00765/019   DAVE/M                   DATA BASE       D              ETC:DAVE.INIT                                                   
            5.0T3   590  DAVE/M.DATA_BASE.D.019             1 LINE   3256    2 PAGE UM   BRILL               JULY 03, 1981  19:25:00
            5.0T7   455  ETC:DAVE.INIT        
0          THIS IS THE DATA BASE PRODUCED BY THE DAVE/M DATA BASE PROGRAM (765/16), FROM
           DATA IN (765/18).  DAVE.INIT IS USED TO INITIALIZE DAVE/M.
0          Referenced by comments of: 765/16, 765/18 
00765/020   DAVE/M                   TEST PROG       SF  G          S1431 4.3T2 VLO FSNAME=DAVE/M.TEST_PROG.SF.020(1)             92
            5.0T3   591  DAVE/M.TEST_PROG.SF.020            1 LINE     72    3 PAGE UM   BRILL               APR. 06, 1980  13:29:40
            5.0T7   456                       
0          THIS IS A TEST PROGRAM FOR THE DAVE/M SYSTEM.
00765/021   DAVE/M                   DAVE.STAT       D            # W234:DAVE.STAT                                                  
                                                                                    UM   BRILL                                      
0          THIS IS THE LOG FILE WHICH IS REQUIRED BY DAVE/M.  AT MICHIGAN, IT IS CALLED 
           W234:DAVE.STAT.  THIS NAME MAY BE CHANGED BY OTHER INSTALLATIONS.
1                                                                                               MON AUG 05/96   18:37:45   Page  547
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00765/022   DAVE/M                   MEMO 394        WF             S1431 4.3T2 VLO FSNAME=DAVE/M.MEMO_394.WF.022(1)              93
            5.0T3   592  DAVE/M.MEMO_394.WF.022             1 LINE     84   12 PAGE UM   BRILL               MAY  09, 1979  16:33:53
            5.0T7   457                       
0          THIS IS COMPUTING CENTER MEMO 394 -- "*DAVE".
00765/023   DAVE/M                   KNOWN BUGS      P              S1431 4.3T2 VLO FSNAME=DAVE/M.KNOWN_BUGS.P.023(1)             94
            5.0T3   593  DAVE/M.KNOWN_BUGS.P.023            1 LINE     67    1 PAGE UM   BRILL               APR. 06, 1980  13:30:17
            5.0T7   458                       
0          DESCRIPTION OF THE TWO KNOWN BUGS IN DAVE/M. REFERENCES (765/24) AS AN
           EXAMPLE.
00765/024   DAVE/M                   DAVE_BUG1       SF             S1431 4.3T2 VLO FSNAME=DAVE/M.DAVE_BUG1.SF.024(1)             95
            5.0T3   594  DAVE/M.DAVE_BUG1.SF.024            1 LINE     26    1 PAGE UM   BRILL               APR. 06, 1980  13:30:20
            5.0T7   459                       
0          A PROGRAM WHICH CAUSES DAVE/M TO FAIL.
0          Referenced by comments of: 765/23 
00765/025   DAVE/M                   DAVE.INTERNAL   P              S1431 4.3T2 VLO FSNAME=DAVE/M.DAVE.INTERNAL.P.025(1)          96
            5.0T3   595  DAVE/M.DAVE.INTERNAL.P.025         1 LINE     61    3 PAGE UM   BRILL               APR. 06, 1980  13:30:22
            5.0T7   460                       
0          A BRIEF INSTALLATION GUIDE FOR DAVE/M.
00766/001   INTRO GUIDE: MAG TAPES                   WF             S1431 4.3T2 VLO FSNAME=INTRO_GUIDE:_MAG_TAPES..WF.001(1)      97
            5.0T3   596  INTRO_GUIDE:_MAG_TAPES..WF.001     1 LINE    148   59 PAGE UM   MANUAL              AUG. 24, 1979  13:34:58
            5.0T7   461                       
0          FORMAT SOURCE FOR "INTRODUCTION TO MAGNETIC TAPES," SEPTEMBER 1979.
00766/002   INTRO GUIDE: MAG TAPES                   PF             S1431 4.3T2 VLO FSNAME=INTRO_GUIDE:_MAG_TAPES..PF.002(1)      98
            5.0T3   597  INTRO_GUIDE:_MAG_TAPES..PF.002     1 LINE    129   79 PAGE UM   MANUAL              AUG. 24, 1979  13:37:39
            5.0T7   462                       
0          FORMAT PRINT FILE.
00766/003   INTRO GUIDE: MAG TAPES                   D              S1431 4.3T2 VLO FSNAME=INTRO_GUIDE:_MAG_TAPES..D.003(1)       99
            5.0T3   598  INTRO_GUIDE:_MAG_TAPES..D.003      1 LINE     59    6 PAGE UM   MANUAL              AUG. 24, 1979  13:38:44
            5.0T7   463                       
0          INPUT TO *INDEX (580) FOR THE INDEX TO "INTRODUCTION TO MAGNETIC TAPES."
00767/001   SIGLOG                                   SA  O          S1153 UNSP VLO FSNAME=SIGLOG.S                                  
            5.0T3   599  SIGLOG..SA.001                     1 LINE     72    4 PAGE UM   UNSP                AUG. 31, 1979  01:00:49
            5.0T7   464                       
0          SIGLOG IS A PROGRAM INTENDED TO BE RUN FROM A SIGFILE, WHICH RECORDS
           INFORMATION (DATE, TIME, CCID, ETC.) IN A FILE EACH TIME IT IS RUN, OR
           WHICH PRINTS A SORTED COPY OF SUCH A FILE.
1                                                                                               MON AUG 05/96   18:37:45   Page  548
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00767/002   SIGLOG                                   OE  O          UNSP:SIGLOG                                                     
            5.0T3   600  SIGLOG..OE.002                     1 LINE   2819    2 PAGE UM   UNSP                JULY 03, 1981  19:25:15
            5.0T7   465  UNSP:SIGLOG          
00767/003   SIGLOG                                   P              UNSP:SIGLOG.W                                                   
            5.0T3   601  SIGLOG..P.003                      1 LINE     76    3 PAGE UM   UNSP                JULY 03, 1981  19:25:16
            5.0T7   466                       
0          A PRINT FILE CONTAINING A DESCRIPTION OF THE SIGLOG PROGRAM.
00768/001   SIGCHECK$                                SA  O          S1153 UNSP VLO FSNAME=SIGCHECK$.S                               
            5.0T3   602  SIGCHECK$..SA.001                  1 LINE     72    4 PAGE UM   UNSP                AUG. 31, 1979  00:59:45
            5.0T7   467                       
0          A PROGRAM DESIGNED TO BE RUN FROM A SIGFILE, WHICH PUTS A MESSAGE IN A FILE 
           IF THE ACCOUNT BALANCE IS BELOW A SPECIFIED LEVEL.
00768/002   SIGCHECK$                                OE  O          UNSP:SIGCHECK$                                                  
            5.0T3   603  SIGCHECK$..OE.002                  1 LINE   2318    1 PAGE UM   UNSP                JULY 03, 1981  19:25:18
            5.0T7   468  UNSP:SIGCHECK$       
00768/003   SIGCHECK$                                P              UNSP:SIGCHECK$.W                                                
            5.0T3   604  SIGCHECK$..P.003                   1 LINE     77    3 PAGE UM   UNSP                JULY 03, 1981  19:25:20
            5.0T7   469                       
0          A PRINT FILE CONTAINING A DESCRIPTION OF THE SIGCHECK$ PROGRAM.
00769/001A  DISK MANAGER             MAIN            SA  G          DMGR:DM.ABSMAIN.S                                               
            5.0T3   605  DISK_MANAGER.MAIN.SA.001           1 LINE    197    5 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:22
            5.0T7   470                       
0          This is the Disk Manager as run at UM.  The Disk Manager is a central task
           providing disk I/O and locking services for tasks run under UMMPS (045).
           It is similiar in nature to the PDP, the Paging Drum Processor (044), except
           that the Disk Manager provides disk I/O services as opposed to paging services.
            
           This subcomponent is the main program of the MTS Disk Manager for use as
           an absolute task.  The commands for assembling it start at line 1 in the 
           file and may be $SOURCEd to.  Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS
           (1054/3), COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), and 
           COPY:MNTR.MACROS (1058/19). Uses the Version Labeler (812).
0          Referenced by comments of: 3/1, 67/1, 67/3, 80/1, 482/7, 502/4, 502/6, 671/3, 682/20, 769/20, 812/1, 818/1, 1020/1,
                 1030/2 
00769/002C  DISK MANAGER             MAIN            OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   Page  549
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00769/003A  DISK MANAGER             DISPATCH        SA  G          DMGR:DM.DISPTCH.S                                               
            5.0T3   606  DISK_MANAGER.DISPATCH.SA.003       1 LINE    214   15 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:23
            5.0T7   471                       
0          This is the dispatch module of the Disk Manager, which does the following
           things:
            
                  1) adds and deletes disk drives
                  2) sends requests to LOCKMNGR (769/7) for lock and unlock processing
                  3) sorts requests from the supervisor and those received back from
                     the LOCKMNGR to the appropriate DISKLING subtask (769/5)
                  4) requests page-in operations of supervisor (045) for DISKLINGS 
                  5) posts finished requests to supervisor (045).
            
           Contains commands starting at line 1 for assembly and may be $SOURCEd to. 
           Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19),
           COPY:MISC.MACROS (728), COPY:UC.MACROS (787/1), and COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 769/5, 769/24 
00769/004C  DISK MANAGER             DISPATCH        OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00769/005A  DISK MANAGER             DISK INTERFACE  SA  G          DMGR:DM.DISKXF.S                                                
            5.0T3   607  DISK_MANAGER.DISK_INTERFA.SA.005   1 LINE    212   26 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:25
            5.0T7   472                       
0          This is the disk interface of the Disk Manager. It contains the DISKLING,
           IOMNGR, LOGMNGR and DUCKMNGR subtasks.  These subtasks perform the functions listed below.
            
           DISKLING:
                 1) schedules I/O operations to be done from requests for the disk
                    drive.  It services and gives them to IOMNGR subtask (see below) 
                 2) asks for page-in operations of DISPATCH (769/3)
                 3) posts completed requests to DISPATCH
            
           IOMNGR:
                    performs actual I/O and waits for device end for its disk drive
                    (there is one such subtask for each disk drive) 
            
           LOGMNGR:
                    performs read buffered logs for all paths to disks once an hour
            
           DUCKMNGR:
                    performs disk unit check error recovery
            
           Contains commands at line 1 for assembly and may be $SOURCEd to.  Requires
           COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19),
           COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), and COPY:UC.MACROS (787/1).
0          Referenced by comments of: 769/3, 769/24 
1                                                                                               MON AUG 05/96   18:37:45   Page  550
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00769/006C  DISK MANAGER             DISK INTERFACE  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00769/007A  DISK MANAGER             LOCKING         SA  G          DMGR:DM.LOCK.S                                                  
            5.0T3   608  DISK_MANAGER.LOCKING.SA.007        1 LINE    172   26 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:29
            5.0T7   473                       
0          These are the locking routines and the LOCKMNGR subtask, which locks and
           unlocks pages and volumes for requests.  Commands for assembly start at
           line 1 so that the file may be $SOURCEd to.  Requires COPY:DM.MACROS (769/19),
           COPY:CC.MACROS (1054/3), and COPY:MNTR.MACORS (1058/19), COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 769/3, 769/24 
00769/008C  DISK MANAGER             LOCKING         OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00769/009A  DISK MANAGER             INTERTASK XFAC  SA  G          DMGR:DM.ITSKXF.S                                                
            5.0T3   609  DISK_MANAGER.INTERTASK_XF.SA.009   1 LINE    195   23 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:31
            5.0T7   474                       
0          This is the Intertask (1081) Interface.  It waits for messages on the
           intertask network for "Disk Manager Control" and processes the requests
           in those messages.  Commands for assembly are at the front of the file.
           Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS
           (1058/19), COPY:FILE.MACROS (482/45), and COPY:MISC.MACROS (728).
0          Referenced by comments of: 769/24 
00769/010C  DISK MANAGER             INTERTASK XFAC  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00769/011A  DISK MANAGER             MISCELLANEOUS   SA  G          DMGR:DM.MISC.S                                                  
            5.0T3   610  DISK_MANAGER.MISCELLANEOU.SA.011   1 LINE    191    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:34
            5.0T7   475                       
0          This subcomponent consists of miscellaneous subtasks and routines, including
           the EXITMNGR which waits for task exits from the supervisor (045) and creates
           other static tasks.  Commands for assembly start at line 1 so that the
           file may be $SOURCEd to.  Requires COPY:FILE.MACROS (482/45), COPY:MISC.MACROS
           (728), COPY:MNTR.MACROS (1058/19), COPY:DM.MACROS (769/19), and COPY:CC.MACROS
           (1054/3).
0          Referenced by comments of: 769/24 
1                                                                                               MON AUG 05/96   18:37:45   Page  551
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00769/012C  DISK MANAGER             MISCELLANEOUS   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00769/013A  DISK MANAGER             MONITOR RTNS    SA  O          DMGR:DM.MNTR(1000)                                              
            5.0T3   611  DISK_MANAGER.MONITOR_RTNS.SA.013   1 LINE     72   10 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:35
            5.0T7   476                       
0          Disk Manager-specific code to provide the Subtasking Monitor (1058) function
           of allocating and deallocating disk drives.  If used with the MTS test program 
           (769/24), it must be assembled with SYSPARM(TEST). Assemble using COPY:CC.MACROS 
           (1054/3), COPY:MNTR.MACROS (1058/19), COPY:MISC.MACROS (728), COPY:FILE.MACROS
           (482/45), and COPY:DM.MACROS (769/19).
0          Referenced by comments of: 769/24 
00769/014C  DISK MANAGER             MONITOR RTNS    OC  O        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00769/015C  DISK MANAGER             DMGRSTAT JOB    SA  G          DMGR:DM.STATJOB.S                                               
            5.0T3   612  DISK_MANAGER.DMGRSTAT_JOB.SA.015   1 LINE    205   29 PAGE UM   HELFFRICH           AUG. 06, 1981  05:31:48
            5.0T7   477                       
0          This is the job program used to communicate with the Disk Manager. It
           provides for status and control of the Disk Manager via Intertask (1081). It
           also may be run as an MTS program. The entry is DMMTSPGM and should be listed
           in COPY:SYSDEFS (579/3). Assemble with COPY:IT.MACROS (1081/6),
           COPY:CC.MACROS (1054/3), COPY:MISC.MACROS (728), COPY:FILE.MACROS (482/45),
           and COPY:DM.MACROS (769/19). Copies COPY:IT.DSECTS (1081/4).
00769/016C  DISK MANAGER             DMGRSTAT JOB    OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00769/017C  DISK MANAGER             DMGRSTAT JOB    WF  G          DMGR:DM.STATJOB.W                                               
            5.0T3   613  DISK_MANAGER.DMGRSTAT_JOB.WF.017   1 LINE     77    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:39
            5.0T7   478                       
0          This is the writeup for the Disk Manager Stat Job.  The file contains lines at
           the front to run *FORMAT (308) on it. 
00769/018C  DISK MANAGER             DMGRSTAT JOB    OC  G          DMGR:STAT                                                       
            5.0T3   614  DISK_MANAGER.DMGRSTAT_JOB.OC.018   1 LINE     24    1 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:40
            5.0T7   479                       
0          RIP and LCS cards required to load the MTS version of the stat program
           from shared memory.
1                                                                                               MON AUG 05/96   18:37:45   Page  552
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00769/019A  DISK MANAGER             MACROS          SM  G          COPY:DM.MACROS                                                  
            5.0T3   615  DISK_MANAGER.MACROS.SM.019         1 LINE     72   29 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:41
            5.0T7   480  COPY:DM.MACROS       
0          This is the macro library for the MTS Disk Manager. It also contains copy
           sections.
0          Referenced by comments of: 10/1, 45/1, 482/4, 482/7, 769/1, 769/3, 769/5, 769/7, 769/9, 769/11, 769/13, 769/15,
                 769/20, 769/21, 769/23, 769/25 
00769/020A  DISK MANAGER             MTS MAIN        SA  G          DMGR:DM.MTSMAIN.S                                               
            5.0T3   616  DISK_MANAGER.MTS_MAIN.SA.020       1 LINE    174    5 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:44
            5.0T7   481                       
0          This is the MTS version of the main program of the Disk Manager.  It replaces
           the absolute version (769/1) for testing purposes.  It contains the commands to
           assemble it at line 1 and may be $SOURCEd to.  Requires COPY:DM.MACROS (769/19),
           COPY:CC.MACROS (1054/3), COPY:FILE.MACROS (482/45) and COPY:MNTR.MACROS (1058/19).
0          Referenced by comments of: 769/24 
00769/021C  DISK MANAGER             SVC FAKER       SA  G          DMGR:DM.SVCFAKE.S                                               
            5.0T3   617  DISK_MANAGER.SVC_FAKER.SA.021      1 LINE    152    6 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:45
            5.0T7   482                       
0          This is the module to simulate supervisor (045) functions for Disk Manager support
           when the Disk Manager is tested as an MTS program (769/24).  Requires
           COPY:DM.MACROS, (769/19), COPY:CC.MACROS(1054/1), and COPY:MNTR.MACROS(1058/19).
0          Referenced by comments of: 769/22, 769/24 
00769/022C  DISK MANAGER             SHOW QS         SQ  G          DMGR:DM.SHOWQS.S                                                
            5.0T3   618  DISK_MANAGER.SHOW_QS.SQ.022        1 LINE    184    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:47
            5.0T7   483                       
0          This is the SHOW QUEUES subroutine called by SVC FAKER (769/21).  Requires
           (769/23) for compilation.
0          Referenced by comments of: 769/24 
00769/023C  DISK MANAGER             PLUS LIBRARY    SQ  G          DMGR:DM.SOURCELIB                                               
            5.0T3   619  DISK_MANAGER.PLUS_LIBRARY.SQ.023   1 LINE     84    5 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:48
            5.0T7   484                       
0          PLUS source library for DRCB.  If the DRCB definition in (769/19) changes, so
           must this.
0          Referenced by comments of: 769/22 
00769/024A  DISK MANAGER             MTS OBJECT      OE  G          DMGR:DMGR.O                                                     
            5.0T3   620  DISK_MANAGER.MTS_OBJECT.OE.024     1 LINE   9476   42 PAGE UM   HELFFRICH           JULY 03, 1981  19:25:49
            5.0T7   485                       
0          This is the object of (769/3), (769/5), (769/7), (769/9), (769/11), (769/13),
1                                                                                               MON AUG 05/96   18:37:45   Page  553
0  Num   R       Component Name         Subname     Type G Seq ID 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          (769/20), (769/21), (769/22) and a private copy of the CMDSTAT object (531/3),
           for private CMDSTAT drop areas.  It is the version of the Disk Manager which
           may be $RUN as an MTS program for testing.
            
           Should be run along with code for the UBC Subtasking Monitor (1058).
0          Referenced by comments of: 769/13, 769/21 
00769/025C  DISK MANAGER             FAKE DMGR       SA  G          DMGR:FAKEDMGR(1,999)                                            
            5.0T3   621  DISK_MANAGER.FAKE_DMGR.SA.025      1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  19:26:02
            5.0T7   486                       
0          Fake version of the Disk Manager which should be run if the real Disk Manager
           dies in a way that is non-restartable.  This job program accepts incoming
           disk I/O requests and posts them as imcomplete back to the issuing task. 
           Requires COPY:DM.MACROS (769/19), COPY:FILE.MACROS (482/45) and COPY:MISC:MACROS
           (728).
00769/026C  DISK MANAGER             FAKE DMGR       OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00770/001A  DTYPE                                    SA  S  DTYP    MTS:DTYPE(2000)                                                 
            5.0T3   622  DTYPE..SA.001                      1 LINE     80    3 PAGE UM   MTA                 JULY 03, 1981  19:26:03
            5.0T8     1  MTS:DTYPE            
0          A GLP THAT ALLOWS YOU TO CHANGE THE TYPE OF A GIVEN DEVICE (USUALLY TO OR
           FROM TYPE "TEST").   COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           REQUIRES COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728). 
00770/002A  DTYPE                                    OC  S          MTS:DTYPE(1000,1999)                                            
            5.0T3   623  DTYPE..OC.002                      1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  19:26:04
            5.0T8     2                       
00771/001  *COMBINE                                  SA  G          S1210 PASDIS 'PASCAL DIST' FSNAME=COMBINE.ASM                   
            5.0T3   624  COMBINE..SA.001                    1 LINE     81   33 PAGE UM   PICKELMAN           OCT. 18, 1979  01:33:13
            5.0T8     3                       
0          PROGRAM TO COMBINE RECORDS OR PORTIONS OF RECORDS FROM SEVERAL FILES. 
           COPIES *GDINFODSECT (594). ORIGINALLY WRITTEN BY JASON HALM AT UBC. 
            
0          Referenced by comments of: 764/1 
00771/002  *COMBINE                                  OE  G          *COMBINE                                                        
            5.0T3   625  COMBINE..OE.002                    1 LINE  10684    5 PAGE UM   PICKELMAN           JULY 03, 1981  19:31:39
            5.0T8     4  *COMBINE             
00771/003  *COMBINE                  MEMO 412        WF             S1431 4.3T2 VLO FSNAME=COMBINE.MEMO_412.WF.003(1)            111
            5.0T3   626  COMBINE.MEMO_412.WF.003            1 LINE     74    5 PAGE UM   PICKELMAN           FEB. 29, 1980  10:17:12
            5.0T8     5                       
0          THIS IS COMPUTING CENTER MEMO 412 -- "*COMBINE:  A RECORD-COMBINING PROGRAM."
1                                                                                               MON AUG 05/96   18:37:45   Page  554
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00772/001   COUNTW                                   SF  O          S1153 UNSP VLO FSNAME=COUNTW.FTN                                
            5.0T3   627  COUNTW..SF.001                     1 LINE     77    8 PAGE UM   UNSP                OCT. 06, 1979  04:41:28
            5.0T8     6                       
0          A PROGRAM TO SCAN A FILE AND PRINT SOME STATISTICS AND A LIST OF ALL THE WORDS
           FOUND.  WRITTEN BY JOHN COULTHARD AND ALAN MILLER AT UBC. USES 
           UBC LIBRARY ( NOT DISTRIBUTED ).
00772/002   COUNTW                                   OE  O          UNSP:COUNTW                                                     
            5.0T3   628  COUNTW..OE.002                     1 LINE  20832    8 PAGE UM   UNSP                JULY 03, 1981  19:31:43
            5.0T8     7  UNSP:COUNTW          
0          MODIFIED CSNOOP.O (695/5). LINKEDITED OBJECT OF COUNTW, ROUTINES FROM UBC
           LIBRARY, AND A
00772/003   COUNTW                                   WF             S1153 UNSP VLO FSNAME=COUNTW.F                                  
            5.0T3   629  COUNTW..WF.003                     1 LINE    106    8 PAGE UM   UNSP                OCT. 15, 1979  18:41:10
            5.0T8     8                       
00773/001   CONCORD                  FORTRAN SOU     SF  O          S1153 UNSP VLO FSNAME=CONCORD.FTN                               
            5.0T3   630  CONCORD.FORTRAN_SOU.SF.001         1 LINE     68    4 PAGE UM   UNSP                OCT. 06, 1979  04:44:29
            5.0T8     9                       
0          A PROGRAM TO PRINT CONCORDANCES OF MTS FILE.  USES THE CONCORD ASSEMBLER
           ROUTINES (773/2), SOME OF WHICH HAVE THE SAME NAMES AS SOME CHARACTER 
           MANIPULATION ROUTINES IN *LIBRARY (524/1), BUT DIFFERENT FUNCTIONS.
           ORIGINALLY WRITTEN BY JOHN COULTHARD AT UBC.  MODIFIED AT UM SO THAT
           IT DOESN'T USE ROUTINES NOT AVAILABLE HERE.
0          Referenced by comments of: 773/3 
00773/002   CONCORD                  ASSEMBLY SOU    SA  O          S1153 UNSP VLO FSNAME=CONCORD.ASM                               
            5.0T3   631  CONCORD.ASSEMBLY_SOU.SA.002        1 LINE     72    3 PAGE UM   UNSP                OCT. 06, 1979  04:43:32
            5.0T8    10                       
0          Referenced by comments of: 773/1, 773/3 
00773/003   CONCORD                                  OE  O          UNSP:CONCORD                                                    
            5.0T3   632  CONCORD..OE.003                    1 LINE   3264    3 PAGE UM   UNSP                JULY 03, 1981  19:31:48
            5.0T8    11  UNSP:CONCORD         
0          LINKEDITED OBJECT OF FORTRAN AND ASSEMBLER SOURCE, (773/1) AND (773/2), AND A
           MODIFIED VERSION OF CSNOOP.O (695/5). USES UNSP:LIBRARY (685/2).
00773/004   CONCORD                                  WF  O          S1153 UNSP VLO FSNAME=CONCORD.F                                 
            5.0T3   633  CONCORD..WF.004                    1 LINE     67    3 PAGE UM   UNSP                OCT. 06, 1979  04:44:46
            5.0T8    12                       
00774/001C  LISTER                   PLUS SOURCE     SQ  O          S1427 UBC76 VLO                                             545 
            5.0T3   634  LISTER.PLUS_SOURCE.SQ.001          1 LINE     82   26 PAGE UBC  HAYWARD   UNSP      MAY  06, 1980  14:40:01
            5.0T8    13                       
0          THIS PROGRAM PROVIDES FACILITIES FOR MULTICOLUMN LISTING, TITLES, ETC.,
           AND USER-CALLABLE SUBROUTINES.
1                                                                                               MON AUG 05/96   18:37:45   Page  555
0  Num   R       Component Name         Subname     Type G Seq ID 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           
           FOR DETAILS, SEE THE WRITEUP (774/7).  REQIRES (774/5) FOR ASSEMBLY.
            
           *************************************************************************
           D5.0 VERSION:
            
           THIS IS A NEW VERSION OF UBC'S LISTING PROGRAM.  IT IS A COMPLETE
           REWRITE, MOSTLY IN PLUS, USING THE PARSER FOR PARAMETER PROCESSING.
           *************************************************************************
0          Referenced by comments of: 698/1, 774/5 
00774/002A  LISTER                   ASM SOURCE      SA  O          S1427 UBC76 VLO                                             546 
            5.0T3   635  LISTER.ASM_SOURCE.SA.002           1 LINE     68    9 PAGE UBC  HAYWARD   UNSP      MAY  06, 1980  14:40:06
            5.0T8    14                       
0          ASSEMBLER SOURCE FOR VARIOUS INTERFACING ROUTINES.
00774/003A  LISTER                                   OE  O          UNSP:LISTER                                                     
            5.0T3   636  LISTER..OE.003                     1 LINE  32767   14 PAGE UBC  HAYWARD   UNSP      JULY 03, 1981  19:34:06
            5.0T8    15  UNSP:LISTER          
0          Contains a $CONTINUE WITH UNSP:LIBRARY (685/2) record.
0          Referenced by comments of: 774/6 
00774/004C  LISTER                   GRAMMAR         D   O          S1427 UBC76 VLO FSNAME=LISTER.GRAMMAR.S.004                 547 
            5.0T3   637  LISTER.GRAMMAR.D.004               1 LINE     73    5 PAGE UBC  HAYWARD   UNSP      MAY  06, 1980  14:40:07
            5.0T8    16                       
0          GRAMMAR, INPUT TO THE MTS/SPIRES ANALYZER (1076), FOR LISTER OPTIONS
           SPECIFICATION.
00774/005C  LISTER                   SOU LIB         SQ  O          S1427 UBC76 VLO FSNAME=LISTER.SOURCE_LIBR.S+.005            548 
            5.0T3   638  LISTER.SOU_LIB.SQ.005              1 LINE    139    5 PAGE UBC  HAYWARD   UNSP      MAY  06, 1980  14:40:09
            5.0T8    17                       
0          PLUS SOURCE LIBRARY REQUIRED TO COMPILE (774/1).
0          Referenced by comments of: 774/1 
00774/006C  LISTER                   CMDS            C   O          S1427 UBC76 VLO FSNAME=LISTER.CMDS.C.006                    549 
            5.0T3   639  LISTER.CMDS.C.006                  1 LINE    134    4 PAGE UBC  HAYWARD   UNSP      MAY  06, 1980  14:40:11
            5.0T8    18                       
0          COMMAND FILE TO PRODUCE (774/3) BY COMPILING/ASSEMBLING ITS VARIOUS PARTS.
00774/007A  LISTER                                   WF             S1153 UNSP VLO FSNAME=LISTER.F                                  
            5.0T3   640  LISTER..WF.007                     1 LINE     85   15 PAGE UBC  HAYWARD   UNSP      JULY 17, 1980  02:03:40
            5.0T8    19                       
0          FMT SOURCE FOR UBC WRITEUP DESCRIBING THIS VERSION OF LISTER.  REQUIRES
           COPY:JONMACLIBFMT (308/18).
            
1                                                                                               MON AUG 05/96   18:37:45   Page  556
0  Num   R       Component Name         Subname     Type G Seq ID 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 A PRELIMINARY VERSION AND HAS NOT YET BEEN RELEASED AT UBC.
0          Referenced by comments of: 774/1 
00775/001A  PEXIT                                    SA  G          W067:PEXIT.S                                                    
            5.0T3   641  PEXIT..SA.001                      1 LINE    108   25 PAGE UM   SHERRY              JULY 03, 1981  19:34:20
            5.0T8    20                       
0          THIS IS A PRINT EXIT ROUTINE TO BE USED WITH ASSEMBLER H (737/30). IT
           POST-PROCESSES THE LISTINGS PRODUCED BY ASSEMBLER H TO INSERT LEVEL NUMBERS
           FOR THE STRUCTURED PROGRAMMING MACROS IN *SYSMAC AMONG OTHER THINGS. SEE THE
           WRITEUP IN (775/3) FOR A DESCRIPTION OF WHAT IT DOES AND HOW TO USE IT. USES
           THE OBJUTIL MISC MACROS (721/15) AND *SYSMAC. ASSEMBLE WITH *ASMH WITH
           PAR=PEXIT=*PEXIT.
            
           *****************************************************************************
           D5.0 version:
            
           This is a new version, which supports several new ASMEDIT options that are
           described in (775/3).
           *****************************************************************************
0          Referenced by comments of: 135/1, 291/1, 314/1, 498/1, 570/1, 648/1, 686/1, 721/1, 746/1, 813/9, 813/11, 813/13 
00775/002A  PEXIT                                    OE  G          *PEXIT                                                          
            5.0T3   642  PEXIT..OE.002                      1 LINE   9028    4 PAGE UM   SHERRY              JULY 03, 1981  19:34:22
            5.0T8    21  *PEXIT               
0          OBJECT LOADED BY *ASMH (737/30) IF PAR=PEXIT=*PEXIT IS SPECIFIED.
00775/003A  PEXIT                                    WX             W067:PEXIT.WX                                                   
            5.0T3   643  PEXIT..WX.003                      1 LINE     77    3 PAGE UM   SHERRY              JULY 03, 1981  19:34:24
            5.0T8    22                       
0          TEXTFORM WRITEUP DESCRIBING THE ASSEMBLER H PRINT EXIT PEXIT.
0          Referenced by comments of: 775/1, 775/4 
00775/004C  PEXIT                                    PX             W067:PEXIT.DOC                                                  
            5.0T3   644  PEXIT..PX.004                      1 LINE     76    4 PAGE UM   SHERRY              JULY 03, 1981  19:34:24
            5.0T8    23                       
0          Print file corresponding to (775/3).
00776/001  *PFORT                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UM   BRILL                                      
0          THE PFORT VERIFIER, DEVELOPED BY BELL LABORATORIES, CHECKS FORTRAN PROGRAMS
           FOR ADHERENCE TO PFORT, A PORTABLE SUBSET OF THE 1966 VERSION OF AMERICAN
           NATIONAL STANDARD FORTRAN.
            
           UM ACQUIRED PFORT FROM BELL LABS AND MODIFIED IT TO RUN IN MTS.  PFORT IS A
           PROPRIETARY PROGRAM AND HENCE, MAY NOT BE DISTRIBUTED.  ANY INSTALLATION
           DESIRING PFORT MUST REQUEST IT FROM BELL LABS AND PAY THEIR FEE.  THE PFORT
1                                                                                               MON AUG 05/96   18:37:45   Page  557
0  Num   R       Component Name         Subname     Type G Seq ID 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          YOU GET WILL BE A MORE RECENT VERSION THAN THE ONE WE HAVE.  IF YOU SHOULD
           WISH TO SEE THE CHANGES WE MADE, WE WILL SEND YOU A COPY OF THEM, BUT BE 
           WARNED THAT THEY CANNOT BE APPLIED TO THE VERSION OF PFORT YOU'LL GET FROM
           BELL LABS.  AT BEST, OUR CHANGES CAN GIVE YOU A ROUGH IDEA OF THE MODIFICATIONS
           WE MADE.
            
           WE WILL ALSO SEND YOU A COPY OF COMPUTING CENTER MEMO 406, "*PFORT," SHOULD
           YOU REQUEST ONE.  WE DO NOT DISTRIBUTE THIS MEMO BECAUSE IT IS BASED LARGELY
           ON BELL LABS' COPYRIGHTED DOCUMENT.
00777/001A  STARTUP/SHUTDOWN                         SA  G          S1482 4.3AT1 VLO FSNAME=STARTUP/SHUTDOWN..SA.001(1)          473
            5.0T3   645  STARTUP/SHUTDOWN..SA.001           1 LINE     71    3 PAGE UM   OGDEN               OCT. 12, 1980  16:50:22
            5.0T8    24                       
0          THE STARTUP AND SHUTDOWN JOB PROGRAMS.
            
           ASSEMBLE USING COPY:MISC.MACROS (728), COPY:SETPARM (653), COPY:MTS.MACROS
           (344/3).  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
00777/002   STARTUP/SHUTDOWN                         OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00778/001   SIGNONM                                  SA  G          S1431 4.3T2 VLO FSNAME=SIGNONM..SA.001(1)                    127
            5.0T3   646  SIGNONM..SA.001                    1 LINE     71    1 PAGE UM   OGDEN               APR. 06, 1980  13:37:14
            5.0T8    25                       
0          THE SIGNONM (SIGNON MESSAGE) JOB PROGRAM, RECENTLY MOVED OUT OF CMDS AND
           INTO AN ASSEMBLY OF ITS OWN.
           ASSEMBLE USING COPY:MISC.MACROS.
00778/002   SIGNONM                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          Object part of Resident System (468)
00779/001A  TRANSLATE TABLES                         SA  G          W078:TRTABLES.S                                                 
            5.0T3   647  TRANSLATE_TABLES..SA.001           1 LINE     90    4 PAGE UM   BURLING             JULY 03, 1981  19:34:59
            5.0T8    26                       
0          TRANSLATE TABLES USED BY MANY PARTS OF THE SYSTEM.  CONTAINS COMMANDS AT
           FRONT SO THAT IT MAY BE $SOURCED TO.
0          Referenced by comments of: 135/1 
00779/002A  TRANSLATE TABLES                         O   G          SEG2:TRTABLES                                                   
            5.0T3   648  TRANSLATE_TABLES..O.002            1 LINE   2560    3 PAGE UM   BURLING             JULY 03, 1981  19:35:00
            5.0T8    27  SEG2:TRTABLES        
0          OBJECT FOR THE TRANSLATE AND TRANSLATE AND TEST TABLES LOADED BY THE SEGMENT
           2 LOADER.
1                                                                                               MON AUG 05/96   18:37:45   Page  558
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00780/001   MESS                     STUDENT VERS    SF  O          S1073 UNSP FSNAME=MESS3SBSOR                                    
            5.0T3   649  MESS.STUDENT_VERS.SF.001           1 LINE     72   10 PAGE UM   UNSP                DEC. 21, 1974  14:06.40
            5.0T8    28                       
0          THIS COMPONENT IS THE MICHIGAN EXPERIMENTAL SIMULATION SUPERVISOR, MESS, A
           GENERAL SUPERVISOR FOR COMPUTER-SIMULATED EXPERIMENTS. MESS WAS DEVELOPED AT
           THE UNIVERSITY OF MICHIGAN HIGHWAY SAFETY RESEARCH INSTITUTE BY RICHARD
           HALSTEAD-NUSSLOCH, ALONG WITH DANA MAIN AND ROBERT L STOUT. IT IS USED BY THE
           MESS EXPR-SIM EXPERIMENTS (780/13) - (780/33), A COLLECTION OF EXPERIMENTS
           WHICH SIMULATE VARIOUS PSYCHOLOGICAL EXPERIMENTS. IT IS VERY GENERAL AND
           COULD BE USED FOR OTHER TYPES OF EXPERIMENTS.
            
           THIS SUBCOMPONENT CONTAINS THE SOURCE FOR THE "STUDENT" VERSION OF MESS. USES
           THE MESS LIBRARY (780/10).
00780/002   MESS                     STUDENT VERS    OE  O          UNSP:EXPR_MESS3SB                                               
            5.0T3   650  MESS.STUDENT_VERS.OE.002           1 LINE  10454    6 PAGE UM   UNSP                JULY 03, 1981  19:43:03
            5.0T8    29  UNSP:EXPR_MESS3SB    
00780/003   MESS                     INSTRUCT VERS   SF  O          S1073 UNSP FSNAME=MESS3PSOR                                     
            5.0T3   651  MESS.INSTRUCT_VERS.SF.003          1 LINE     72   16 PAGE UM   UNSP                MAY  31, 1975  17:51:05
            5.0T8    30                       
0          THIS IS THE SOURCE FOR THE "INSTRUCTORS'" VERSION OF MESS.  USES THE MESS
           LIBRARY (780/10).
0          Referenced by comments of: 780/13, 780/16, 780/19, 780/22, 780/25, 780/28, 780/31 
00780/004   MESS                     INSTRUCT VERS   OE  O          UNSP:EXPR_MESS3P                                                
            5.0T3   652  MESS.INSTRUCT_VERS.OE.004          1 LINE  18282    9 PAGE UM   UNSP                JULY 03, 1981  19:43:07
            5.0T8    31  UNSP:EXPR_MESS3P     
00780/005   MESS                     CARD VERSION    SF  O          S1073 UNSP FSNAME=MESS3SCSOR                                    
            5.0T3   653  MESS.CARD_VERSION.SF.005           1 LINE     72   10 PAGE UM   UNSP                DEC. 21, 1974  13:58.50
            5.0T8    32                       
0          THIS IS THE SOURCE FOR THE "CARD" VERSION OF MESS.  IT USES ONLY FORMATTED
           READS OF RECORDS UP TO 80 CHARACTER IN LENGTH.  NOT NEEDED ON MTS.
00780/006   MESS                     CARD VERSION    OC  O          S1153 UNSP VLO FSNAME=MESS3SCOBJ                                
            5.0T3   654  MESS.CARD_VERSION.OC.006           1 LINE  14220    7 PAGE UM   UNSP                FEB. 20, 1980  05:40:11
            5.0T8    33                       
00780/007   MESS                     FORMAT RTNS     SF  O          S1073 UNSP FSNAME=FPOUTSOR                                      
            5.0T3   655  MESS.FORMAT_RTNS.SF.007            1 LINE     72    5 PAGE UM   UNSP                MAY  31, 1975  17:52:58
            5.0T8    34                       
0          GENERAL FORMATTING ROUTINES USED BY MESS.
0          Referenced by comments of: 780/10 
1                                                                                               MON AUG 05/96   18:37:45   Page  559
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00780/008   MESS                     NUM & STAT RTN  SF  O          S1073 UNSP FSNAME=LIBSOR                                        
            5.0T3   656  MESS.NUM_&_STAT_RTN.SF.008         1 LINE     74    8 PAGE UM   UNSP                MAY  31, 1975  17:50:48
            5.0T8    35                       
0          NUMERICAL AND STATISTICAL ROUTINES USED BY MESS.
0          Referenced by comments of: 780/10 
00780/009   MESS                     AUX RTNS        SF  O          S1073 UNSP FSNAME=AUXSOR                                        
            5.0T3   657  MESS.AUX_RTNS.SF.009               1 LINE     75   13 PAGE UM   UNSP                MAY  31, 1975  17:46:53
            5.0T8    36                       
0          MISCELLANEOUS AUXILIARY ROUTINES USED BY MESS.
0          Referenced by comments of: 780/10 
00780/010   MESS                     LIBRARY         OL  O          UNSP:EXPR_MESSLIB                                               
            5.0T3   658  MESS.LIBRARY.OL.010                1 LINE   5912   13 PAGE UM   UNSP                JULY 03, 1981  19:43:17
            5.0T8    37  UNSP:EXPR_MESSLIB    
0          THE MESS LIBRARY.  CONTAINS THE OBJECT OF (780/7), (780/8), AND (780/9).
0          Referenced by comments of: 780/1, 780/3 
00780/011   MESS                     INSTALL         P              S1153 UNSP VLO FSNAME=EXPR.COMMENTS                             
            5.0T3   659  MESS.INSTALL.P.011                 1 LINE     67    1 PAGE UM   UNSP                DEC. 13, 1979  02:26:07
            5.0T8    38                       
0          A BRIEF INTRODUCTION TO MESS AND THE EXPR-SIM EXPERIMENTS (780/13) - (780/33),
           INTENDED FOR INSTALLATIONS RECEIVING THIS DISTRIBUTION.
            
           THE FOLLOWING DOCUMENTATION IS AVAILABLE FOR MESS AND EXPER-SIM:
            
                        PROGRAMMER'S GUIDE TO MESS
                        VERSION 3-P, 3-SB, AND 3-SC,
                        BY ROBERT L. STOUT
            
                        EXPR-SIM ON MICHIGAN EXPERIMENTAL 
                        SIMULATION SUPERVISOR (MESS),
                        REVISED EDITION, BY DANA B. MAIN
                        AND RICHARD HALSTEAD-NUSSLOCH
            
           IF YOU ARE INTERESTED IN RECEIVING XEROX COPIES OF THESE DOCUMENTS, 
           SEND YOUR REQUEST TO:
            
                        ELIZABETH SWEET
                        COMPUTING CENTER
                        UNIVERSITY OF MICHIGAN
                        1075 BEAL AVE.
                        ANN ARBOR, MI  48109
1                                                                                               MON AUG 05/96   18:37:45   Page  560
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00780/012   MESS                     WRITEUP         P              UNSP:EXPR.W                                                     
            5.0T3   660  MESS.WRITEUP.P.012                 1 LINE     70    1 PAGE UM   UNSP                JULY 03, 1981  19:43:25
            5.0T8    39                       
0          CONTAINS A DIRECTORY TO THE MESS AND EXPR-SIM (780/13) - (780/33) FILES AT
           UM.
00780/013   MESS                     EXPR-SIM DEMO   O   O          UNSP:EXPR.DEMO                                                  
            5.0T3   661  MESS.EXPR-SIM_DEMO.O.013           1 LINE  15804   21 PAGE UM   UNSP                JULY 03, 1981  19:43:26
            5.0T8    40  UNSP:EXPR.DEMO       
0          A DEMONSTRATION GENERATED USING (780/14) AND (780/15). THIS FILE CONTAINS A
           VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE
           SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE (780/15) THROUGH THE
           INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL
           PROGRAM (780/14).
0          Referenced by comments of: 780/1, 780/11, 780/12, 780/15 
00780/014   MESS                     EXPR-SIM DEMO   SF  O          S1073 UNSP FSNAME=DEMO2SOR                                      
            5.0T3   662  MESS.EXPR-SIM_DEMO.SF.014          1 LINE     72    4 PAGE UM   UNSP                DEC. 21, 1974  14:26.35
            5.0T8    41                       
0          THIS IS THE MODEL PROGRAM FOR A DEMONSTRATION EXPERIMENT.
0          Referenced by comments of: 780/13 
00780/015   MESS                     EXPR-SIM DEMO   D              S1073 UNSP FSNAME=DEMO2DAT1                                     
            5.0T3   663  MESS.EXPR-SIM_DEMO.D.015           1 LINE     64    1 PAGE UM   UNSP                DEC. 21, 1974  14:27.08
            5.0T8    42                       
0          THIS IS THE DATA FOR (780/13).
0          Referenced by comments of: 780/13 
00780/016   MESS                     EXPR-SIM DOPE   O   O          UNSP:EXPR.DOPE                                                  
            5.0T3   664  MESS.EXPR-SIM_DOPE.O.016           1 LINE  15800   20 PAGE UM   UNSP                JULY 03, 1981  19:43:33
            5.0T8    43  UNSP:EXPR.DOPE       
0          THIS IS AN EXPERIMENT ENTITLED "DRUG OBSERVATIONS: PROGRAM FOR EXPERIMENTS."
           IT WAS GENERATED USING (780/17) AND (780/18). THIS FILE CONTAINS A VARIETY OF
           THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION
           DATA, THE RESULT OF RUNNING THE DATA FILE (780/18) THROUGH THE INSTRUCTOR'S
           VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM
           (780/17).
00780/017   MESS                     EXPR-SIM DOPE   SF  O          S1073 UNSP FSNAME=DOPESOR                                       
            5.0T3   665  MESS.EXPR-SIM_DOPE.SF.017          1 LINE     79    5 PAGE UM   UNSP                MAY  31, 1975  17:47:55
            5.0T8    44                       
0          Referenced by comments of: 780/16 
1                                                                                               MON AUG 05/96   18:37:45   Page  561
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00780/018   MESS                     EXPR-SIM DOPE   D              S1073 UNSP FSNAME=DOPEDAT1                                      
            5.0T3   666  MESS.EXPR-SIM_DOPE.D.018           1 LINE     54    1 PAGE UM   UNSP                DEC. 21, 1974  14:23.37
            5.0T8    45                       
0          Referenced by comments of: 780/16 
00780/019   MESS                     EXPR IMPRINT    O   O          UNSP:EXPR.IMPRINT                                               
            5.0T3   667  MESS.EXPR_IMPRINT.O.019            1 LINE  15800   18 PAGE UM   UNSP                JULY 03, 1981  19:43:40
            5.0T8    46  UNSP:EXPR.IMPRINT    
0          AN EXPERIMENT ON IMPRINTING GENERATED USING (780/20) AND (780/21). THIS FILE
           CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE
           $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE
           (780/21) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF
           THE FORTRAN MODEL PROGRAM (780/20).
00780/020   MESS                     EXPR IMPRINT    SF  O          S1073 UNSP FSNAME=IMPSOR                                        
            5.0T3   668  MESS.EXPR_IMPRINT.SF.020           1 LINE     72    3 PAGE UM   UNSP                DEC. 21, 1974  14:06.06
            5.0T8    47                       
0          Referenced by comments of: 780/19 
00780/021   MESS                     EXPR IMPRINT    D              S1073 UNSP FSNAME=IMPDAT1                                       
            5.0T3   669  MESS.EXPR_IMPRINT.D.021            1 LINE     63    1 PAGE UM   UNSP                DEC. 21, 1974  14:22.37
            5.0T8    48                       
0          Referenced by comments of: 780/19 
00780/022   MESS                     EXPR MOTIV      O   O          UNSP:EXPR.MOTIVE                                                
            5.0T3   670  MESS.EXPR_MOTIV.O.022              1 LINE  15800   19 PAGE UM   UNSP                JULY 03, 1981  19:43:49
            5.0T8    49  UNSP:EXPR.MOTIVE     
0          AN EXPERIMENT ON MOTIVATION IN ROUTINE TASKS, GENERATED USING (780/23) AND
           (780/24). CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY
           BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE
           (780/24) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF
           THE FORTRAN MODEL PROGRAM (780/23).
00780/023   MESS                     EXPR MOTIV      SF  O          S1073 UNSP FSNAME=MOTSOR                                        
            5.0T3   671  MESS.EXPR_MOTIV.SF.023             1 LINE     71    3 PAGE UM   UNSP                DEC. 21, 1974  14:09.42
            5.0T8    50                       
0          Referenced by comments of: 780/22 
00780/024   MESS                     EXPR MOTIV      D              S1073 UNSP FSNAME=MOTDAT1                                       
            5.0T3   672  MESS.EXPR_MOTIV.D.024              1 LINE     71    1 PAGE UM   UNSP                DEC. 21, 1974  14:08.33
            5.0T8    51                       
0          Referenced by comments of: 780/22 
1                                                                                               MON AUG 05/96   18:37:45   Page  562
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00780/025   MESS                     EXPR-SIM RATS   O   O          UNSP:EXPR.RATS                                                  
            5.0T3   673  MESS.EXPR-SIM_RATS.O.025           1 LINE  15804   21 PAGE UM   UNSP                JULY 03, 1981  19:43:56
            5.0T8    52  UNSP:EXPR.RATS       
0          AN EXPERIMENT ENTITLED "RATS: SELF-STIMULATION SIMULATION", GENERATED BY
           (780/26) AND (780/27). THIS FILE CONTAINS A VARIETY OF THINGS, INCLUDING MTS
           COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF
           RUNNING THE DATA FILE (780/27) THROUGH THE INSTRUCTOR'S VERSION OF MESS
           (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/26).
00780/026   MESS                     EXPR-SIM RATS   SF  O          S1073 UNSP FSNAME=RATSSOR                                       
            5.0T3   674  MESS.EXPR-SIM_RATS.SF.026          1 LINE     75    5 PAGE UM   UNSP                MAY  31, 1975  17:48:33
            5.0T8    53                       
0          Referenced by comments of: 780/25 
00780/027   MESS                     EXPR-SIM RATS   D              S1073 UNSP FSNAME=RATSDAT1                                      
            5.0T3   675  MESS.EXPR-SIM_RATS.D.027           1 LINE     52    1 PAGE UM   UNSP                DEC. 21, 1974  14:16.50
            5.0T8    54                       
0          Referenced by comments of: 780/25 
00780/028   MESS                     EXPR-SIM SCHIZ  O   O          UNSP:EXPR.SCHIZ                                                 
            5.0T3   676  MESS.EXPR-SIM_SCHIZ.O.028          1 LINE  15800   16 PAGE UM   UNSP                JULY 03, 1981  19:44:02
            5.0T8    55  UNSP:EXPR.SCHIZ      
0          AN EXPERIMENT ENTITLED "THE ETIOLOGY OF SCHIZOPHRENIA", GENERATED USING
           (780/29) AND (780/30). THIS FILE CONTAINS A VARIETY OF THINGS, INCLUDING MTS
           COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF
           RUNNING THE DATA FILE (780/30) THROUGH THE INSTRUCTOR'S VERSION OF MESS
           (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/29).
00780/029   MESS                     EXPR-SIM SCHIZ  SF  O          S1073 UNSP FSNAME=SCHIZSOR                                      
            5.0T3   677  MESS.EXPR-SIM_SCHIZ.SF.029         1 LINE     72    1 PAGE UM   UNSP                DEC. 21, 1974  14:10.48
            5.0T8    56                       
0          Referenced by comments of: 780/28 
00780/030   MESS                     EXPR-SIM SCHIZ  D              S1073 UNSP FSNAME=SCHIZDAT1                                     
            5.0T3   678  MESS.EXPR-SIM_SCHIZ.D.030          1 LINE     67    1 PAGE UM   UNSP                DEC. 21, 1974  14:10.18
            5.0T8    57                       
0          Referenced by comments of: 780/28 
00780/031   MESS                     EXPR SOC FAC    O   O          UNSP:EXPR.SOCFAC                                                
            5.0T3   679  MESS.EXPR_SOC_FAC.O.031            1 LINE  15800   19 PAGE UM   UNSP                JULY 03, 1981  19:44:09
            5.0T8    58  UNSP:EXPR.SOCFAC     
0          AN EXPERIMENT IN SOCIAL FACILITATION, GENERATED USING (780/32) AND (780/33).
           CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE
           $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE
           (780/33) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF
           THE FORTRAN MODEL PROGRAM (780/32).
1                                                                                               MON AUG 05/96   18:37:45   Page  563
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00780/032   MESS                     EXPR SOC FAC    SF  O          S1073 UNSP FSNAME=SFACSOR                                       
            5.0T3   680  MESS.EXPR_SOC_FAC.SF.032           1 LINE     69    4 PAGE UM   UNSP                SEP. 07, 1973  14:40.51
            5.0T8    59                       
0          Referenced by comments of: 780/31 
00780/033   MESS                     EXPR SOC FAC    D              S1073 UNSP FSNAME=SFACDAT1                                      
            5.0T3   681  MESS.EXPR_SOC_FAC.D.033            1 LINE     76    1 PAGE UM   UNSP                SEP. 07, 1973  14:42.30
            5.0T8    60                       
0          Referenced by comments of: 780/1, 780/11, 780/12, 780/31 
00781/001   PASCAL VALIDATION SUITE  TAPE DESC       P            # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.CHARSET                   
                                                                                    UM   PICKELMAN                                  
0          THE PASCAL VALIDATION SUITE IS A SET OF OVER 300 PASCAL PROGRAMS DESIGNED TO
           TEST A COMPILER'S COMPLIANCE WITH THE DRAFT PASCAL STANDARD (SEE THE PASCAL
           NEWS, NO. 16, OCT. 1979).  THE SUITE ITSELF CANNOT BE DISTRIBUTED, BUT MAY BE
           OBTAINED FROM THE FOLLOWING DISTRIBUTORS:
            
             NORTH AMERICA:                    EUROPE:
            
               RICHARD J. CICHELLI               DR. B. WICHMANN 
               ANPA RESEARCH INSTITUTE           NATIONAL PHYSICS LABORATORY 
               BOX 598                           TEDDINGTON, TW11 0LW
               EASTON, PA 18042                  MIDDLESEX
               U.S.A.                            ENGLAND
            
            
           THIS SUBCOMPONENT CONTAINS A DESCRIPTION OF THE PASCAL VALIDATION SUITE 
           DISTRIBUTION TAPE.
0          Referenced by comments of: 792/1 
00781/002   PASCAL VALIDATION SUITE  SKELETON        SW  G        # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SKELETON                  
                                                                                    UM   PICKELMAN                                  
0          A PROGRAM TO LIST, SELECT, OR ADD COMMANDS TO RUN THE (781/4) PROGRAMS.
0          Referenced by comments of: 781/8 
00781/003   PASCAL VALIDATION SUITE  DOCUMENTATION   P            # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.DOCUMENTATION             
                                                                                    UM   PICKELMAN                                  
0          A DESCRIPTION OF THE PASCAL VALIDATION SUITE.
00781/004   PASCAL VALIDATION SUITE  SUITE           SW  G        # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SUITE                     
                                                                                    UM   PICKELMAN                                  
0          THE PASCAL VALIDATION SUITE TEST PROGRAMS.
0          Referenced by comments of: 781/2 
1                                                                                               MON AUG 05/96   18:37:45   Page  564
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00781/005   PASCAL VALIDATION SUITE  STANDARD        P            # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.STANDARD                  
                                                                                    UM   PICKELMAN                                  
0          THE VERSION OF THE DRAFT PASCAL STANDARD TO WHICH THE PASCAL VALIDATION
           SUITE CORRESPONDS.
00781/006   PASCAL VALIDATION SUITE  REPORTS         P            # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.REPORTS                   
                                                                                    UM   PICKELMAN                                  
0          RESULTS OF THE PASCAL VALIDATION SUITE, AS REPORTED TO ITS AUTHORS.
00781/007A  PASCAL VALIDATION SUITE  UM REPORTS      P              S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.360REPORTS                
            5.0T3   682  PASCAL_VALIDATION_SUITE.U.P.007    1 LINE     68    8 PAGE UM   PICKELMAN           JUNE 28, 1980  17:30:19
            5.0T8    61                       
0          RESULTS OF THE PASCAL VALIDATION SUITE AT UM.
            
           ************************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CHANGED TO ADD RESULTS WITH LATEST RPI VERSION OF PASCAL/8000 (783).
           ************************************************************************************
00781/008   PASCAL VALIDATION SUITE  SELECT          UC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SELECT.CDU                
            5.0T3   683  PASCAL_VALIDATION_SUITE.S.UC.008   1 LINE     68    3 PAGE UM   PICKELMAN           FEB. 25, 1980  15:21:19
            5.0T8    62                       
0          UPDATE TO THE SKELETON (781/2).  PRODUCES OBJECT (781/9) FOR USE WITH THE
           PASCAL COMPILERS AVAILABLE UNDER MTS.
00781/009   PASCAL VALIDATION SUITE  SELECT          OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=PVS_SELECT                    
            5.0T3   684  PASCAL_VALIDATION_SUITE.S.OE.009   1 LINE   7532    4 PAGE UM   PICKELMAN           JAN. 21, 1980  15:00:09
            5.0T8    63                       
0          HAS A $CONTINUE WITH UNSP:PAS.SP.RUN (782/55) RECORD.
0          Referenced by comments of: 781/8 
00782/001   PASCAL/SB                OS/COMMENTS     P   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.COMMENTS                 
            5.0T3   685  PASCAL/SB.OS/COMMENTS.P.001        1 LINE     91   16 PAGE UM   UNSP                OCT. 20, 1979  19:26:23
            5.0T8    64                       
0          THIS IS THE STONY BROOK PASCAL COMPILER, RELEASE 3.1. COMPONENTS INCLUDE
           MODULES OF THE OS VERSION AS RECEIVED FROM STONY BROOK (782/1) - (782/35) AND
           THOSE MODIFIED FOR THE MTS VERSION (782/36) - (782/64).
            
           (782/1) IS THE DESCRIPTION, FROM STONY BROOK, OF THE OS VERSION. OTHER
           COMPONENTS WHICH MAY BE HELPFUL IN INSTALLING PASCAL/SB ARE (782/36) AND
           (782/37). TO INSTALL THE SYSTEM AS RUN AT MICHIGAN, RESTORE COMPONENTS
           (782/52), (782/55), AND (782/58); ALONG WITH (782/38) AND (782/39) WHICH ARE
           WRITEUPS; AND (792/3), (792/4), AND (792/5) WHICH ARE TEST PROGRAMS.
            
            
           COMPONENT (792/6) IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES TO
1                                                                                               MON AUG 05/96   18:37:45   Page  565
0  Num   R       Component Name         Subname     Type G Seq ID 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          ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM.
            
           THE STONY BROOK PASCAL COMPILER IS COPYRIGHTED, HOWEVER THERE ARE
           NO RESTRICTIONS UPON ITS USE. IF THE COMPILER IS REDISTRIBUTED
           THERE CAN BE NO FEE FOR ANY OF THE SOFTWARE OR DOCUMENTATION
           FURNISHED BY STONY BROOK. 
0          Referenced by comments of: 782/1, 792/1, 792/6 
00782/002   PASCAL/SB                OS/OMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.OMONITOR.ASM             
            5.0T3   686  PASCAL/SB.OS/OMONITOR.SA.002       1 LINE     80   41 PAGE UM   UNSP                OCT. 20, 1979  19:26:26
            5.0T8    65                       
0          THIS IS THE PASCAL/SB OVERLAY MONITOR, A MUTATION OF XPLSM WHICH SUPPORTS
           THE MULTIPASS ARCHITECTURE OF THE STONY BROOK PASCAL 360 COMPILER.
0          Referenced by comments of: 782/3, 782/4, 782/12, 782/15, 782/17, 782/19, 782/21 
00782/003   PASCAL/SB                OS/OMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASCAL2S.ASM             
            5.0T3   687  PASCAL/SB.OS/OMONITOR.SA.003       1 LINE     80   37 PAGE UM   UNSP                OCT. 20, 1979  19:28:22
            5.0T8    66                       
0          A VERSION OF THE OVERLAY MONITOR (782/2) THAT USES COREFILES AND A "STEP LIB".
00782/004   PASCAL/SB                OS/OMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PA$CAL.ASM               
            5.0T3   688  PASCAL/SB.OS/OMONITOR.SA.004       1 LINE     80   39 PAGE UM   UNSP                OCT. 20, 1979  19:26:39
            5.0T8    67                       
0          THIS FILE CONTAINS A SMALL VERSION OF (782/2). IT IS LOADED IN CONJUNCTION
           WITH OBJECT MODULES PRODUCED BY THE PASCAL LINKER (782/20) AND PROVIDES THE
           RUNTIME ENVIRONMENT NEEDED BY THE DIAGNOSTICS PACKAGE, PMD.
0          Referenced by comments of: 782/7 
00782/005   PASCAL/SB                OS/CORE FILE    SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.COREFILE.ASM             
            5.0T3   689  PASCAL/SB.OS/CORE_FILE.SA.005      1 LINE     72    5 PAGE UM   UNSP                OCT. 20, 1979  19:26:31
            5.0T8    68                       
0          THIS FILE CONTAINS THE ASSEMBLER SOURCE ROUTINE THAT SIMULATES OS/360 QSAM
           FILES BY USING LINKED, IN-CORE STORAGE BLOCKS.
00782/006   PASCAL/SB                OS/RMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONITOR.ASM             
            5.0T3   690  PASCAL/SB.OS/RMONITOR.SA.006       1 LINE     80   41 PAGE UM   UNSP                OCT. 20, 1979  19:26:33
            5.0T8    69                       
0          THIS FILE CONTAINS THE SOURCE CODE FOR THE PASCAL RUN MONITOR, WHICH LOADS
           PASCAL PROGRAMS AND PROVIDES THE RUN-TIME ENVIRONMENT NEEDED FOR THEIR
           EXECUTION.
0          Referenced by comments of: 782/7, 782/8 
1                                                                                               MON AUG 05/96   18:37:45   Page  566
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00782/007   PASCAL/SB                OS/RMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONR2.ASM               
            5.0T3   691  PASCAL/SB.OS/RMONITOR.SA.007       1 LINE     80   36 PAGE UM   UNSP                OCT. 20, 1979  19:28:29
            5.0T8    70                       
0          THE RELEASE 2 VERSION OF THE RUN MONITOR (782/6). THIS IS USED BY THE (782/4)
           VERSION OF THE OVERLAY MONITOR. IT SHOULD BE POSSIBLE TO GET AN EQUIVALENT
           VERSION BY SETTING &INCORE TO 1 AND &ISEXT TO 0, BUT THIS HASN'T BEEN
           CHECKED.
00782/008   PASCAL/SB                OS/RMONITOR     U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONITOR.EDITXPL         
            5.0T3   692  PASCAL/SB.OS/RMONITOR.U.008        1 LINE     63    1 PAGE UM   UNSP                JAN. 22, 1980  14:49:27
            5.0T8    71                       
0          AN EDIT XPL (782/32) UPDATE TO THE RUN MONITOR (782/6).
00782/009   PASCAL/SB                OS/OBJECT       OL  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASCAL.LMODS             
            5.0T3   693  PASCAL/SB.OS/OBJECT.OL.009         1 LINE     80   17 PAGE UM   UNSP                OCT. 20, 1979  19:26:43
            5.0T8    72                       
0          THIS FILE CONTAINS LOAD MODULES TO PROVIDE THE EXECUTION ENVIRONMENTS
           FOR THE STONY BROOK PASCAL COMPILER AND FOR COMPILED PASCAL PROGRAMS.
00782/010   PASCAL/SB                OS/PASS1        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.XPL                
            5.0T3   694  PASCAL/SB.OS/PASS1.SX.010          1 LINE     80   68 PAGE UM   UNSP                OCT. 20, 1979  19:26:46
            5.0T8    73                       
0          THIS FILE CONTAINS THE SOURCE CODE FOR PASS 1 OF THE STONY BROOK PASCAL 360
           COMPILER.  PASS 1 IS RESPONSIBLE FOR LEXICAL AND SYNTACTIC ANALYSIS OF 
           PASCAL PROGRAMS AND PRODUCES ABSTRACT SYTAX TREES AS OUTPUT.
0          Referenced by comments of: 782/11, 782/12, 782/22, 782/23, 782/40 
00782/011   PASCAL/SB                OS/PASS1        U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.EDITXPL            
            5.0T3   695  PASCAL/SB.OS/PASS1.U.011           1 LINE     80    1 PAGE UM   UNSP                OCT. 20, 1979  19:28:34
            5.0T8    74                       
0          AN EDITXPL (782/32) UPDATE TO PASS 1 (782/10).
00782/012   PASCAL/SB                OS/PASS1        O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.OBJ                
            5.0T3   696  PASCAL/SB.OS/PASS1.O.012           1 LINE   7200   32 PAGE UM   UNSP                OCT. 20, 1979  19:26:52
            5.0T8    75                       
0          THIS IS THE OBJECT OF (782/10) WHICH CAN BE USED BY (782/2) AND OTHER
           VERSIONS OF THE XPL SUBMONITOR.
00782/013   PASCAL/SB                OS/PASS2        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.XPL                
            5.0T3   697  PASCAL/SB.OS/PASS2.SX.013          1 LINE     80   97 PAGE UM   UNSP                OCT. 20, 1979  19:26:55
            5.0T8    76                       
0          THIS FILE CONTAINS THE SOURCE CODE FOR PASS 2 OF THE STONY BROOK PASCAL 360
           COMPILER.  PASS 2 IS RESPONSIBLE FOR TYPE CHECKING, AND GENERATING SYMBOLIC
           TRIPLES SUITABLE FOR INTERPRTATION OR FURTHER PROCESSING BY A CODE GENERATOR.
0          Referenced by comments of: 782/14, 782/15, 782/24, 782/25, 782/41 
1                                                                                               MON AUG 05/96   18:37:45   Page  567
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00782/014   PASCAL/SB                OS/PASS2        U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.EDITXPL            
            5.0T3   698  PASCAL/SB.OS/PASS2.U.014           1 LINE     80    4 PAGE UM   UNSP                OCT. 20, 1979  19:28:27
            5.0T8    77                       
0          AN EDITXPL (782/32) UPDATE TO PASS 2 (782/13).
00782/015   PASCAL/SB                OS/PASS2        O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.OBJ                
            5.0T3   699  PASCAL/SB.OS/PASS2.O.015           1 LINE   7200   40 PAGE UM   UNSP                OCT. 20, 1979  19:27:07
            5.0T8    78                       
0          THIS IS THE OBJECT OF (782/13), WHICH CAN BE USED BY (782/2) AND OTHER
           VERSIONS OF THE XPL SUBMONITOR.
00782/016   PASCAL/SB                OS/PASS3        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS3.XPL                
            5.0T3   700  PASCAL/SB.OS/PASS3.SX.016          1 LINE     80   55 PAGE UM   UNSP                OCT. 20, 1979  19:27:12
            5.0T8    79                       
0          THIS FILE CONTAINS THE SOURCE CODE FOR PASS 3 OF THE STONY BROOK PASCAL 360
           COMPILER.  IT TAKES AS INPUT THE SYMBOLIC TRIPLES GENERATED BY PASS 2 AND
           GENERATES MACHINE CODE FOR IBM 360/370 COMPUTERS.
0          Referenced by comments of: 782/17, 782/42 
00782/017   PASCAL/SB                OS/PASS3        O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS3.OBJ                
            5.0T3   701  PASCAL/SB.OS/PASS3.O.017           1 LINE   7200   32 PAGE UM   UNSP                OCT. 20, 1979  19:27:18
            5.0T8    80                       
0          THIS IS THE OBJECT OF (782/16), WHICH CAN BE USED BY (782/2) AND OTHER
           VERSIONS OF THE XPL SUBMONITOR.
00782/018   PASCAL/SB                OS/PMD          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PMD.XPL                  
            5.0T3   702  PASCAL/SB.OS/PMD.SX.018            1 LINE     80   15 PAGE UM   UNSP                OCT. 20, 1979  19:27:22
            5.0T8    81                       
0          THIS FILE CONTAINS THE SOURCE CODE FOR THE POST-MORTEM ANALYSIS ROUTINES,
           PMD.
0          Referenced by comments of: 782/19, 782/43 
00782/019   PASCAL/SB                OS/PMD          O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PMD.OBJ                  
            5.0T3   703  PASCAL/SB.OS/PMD.O.019             1 LINE   7200   12 PAGE UM   UNSP                OCT. 20, 1979  19:27:25
            5.0T8    82                       
0          THIS IS THE OBJECT OF (782/18), WHICH CAN BE USED BY (782/2) AND OTHER 
           VERSIONS OF THE XPL SUBMONITOR.
00782/020   PASCAL/SB                OS/LINKER       SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.LINKER.XPL               
            5.0T3   704  PASCAL/SB.OS/LINKER.SX.020         1 LINE     80   20 PAGE UM   UNSP                OCT. 20, 1979  19:27:28
            5.0T8    83                       
0          THIS FILE CONTAINS THE SOURCE CODE FOR THE STONY BROOK PASCAL LINKER.
0          Referenced by comments of: 782/4, 782/21, 782/44 
1                                                                                               MON AUG 05/96   18:37:45   Page  568
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00782/021   PASCAL/SB                OS/LINKER       O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.LINKER.OBJ               
            5.0T3   705  PASCAL/SB.OS/LINKER.O.021          1 LINE   7200   21 PAGE UM   UNSP                OCT. 20, 1979  19:27:34
            5.0T8    84                       
0          THIS IS THE OBJECT OF (782/20), WHICH CAN BE USED BY (782/2) AND OTHER 
           VERSIONS OF THE XPL SUBMONITOR.
00782/022   PASCAL/SB                OS/PASS1S       U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1S.EDITXPL           
            5.0T3   706  PASCAL/SB.OS/PASS1S.U.022          1 LINE     80    3 PAGE UM   UNSP                OCT. 20, 1979  19:27:37
            5.0T8    85                       
0          THIS FILE CONTAINS AN UPDATE TO (782/10) TO PRODUCE PASS1S, THE "STUDENT"
           VERSION OF THE COMPILER, IMPLEMENTING ONLY STANDARD PASCAL. THE UPDATE SHOULD
           BE APPLIED USING OS/EDITXPL (782/32).
0          Referenced by comments of: 782/23 
00782/023   PASCAL/SB                OS/PASS1S       O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1S.OBJ               
            5.0T3   707  PASCAL/SB.OS/PASS1S.O.023          1 LINE   7200   30 PAGE UM   UNSP                OCT. 20, 1979  19:27:39
            5.0T8    86                       
0          THIS FILE CONTAINS THE XPL OBJECT OF PASS1 (782/10), AS UPDATED BY (782/22).
00782/024   PASCAL/SB                OS/PASS2S       U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2S.EDITXPL           
            5.0T3   708  PASCAL/SB.OS/PASS2S.U.024          1 LINE     80    3 PAGE UM   UNSP                OCT. 20, 1979  19:27:43
            5.0T8    87                       
0          THIS FILE CONTAINS AN UPDATE TO (782/13) TO PRODUCE PASS2S, IMPLEMENTING ONLY
           STANDARD PASCAL. THIS UPDATE SHOULD BE APPLIED USING OS/EDITXPL (782/32).
0          Referenced by comments of: 782/25 
00782/025   PASCAL/SB                OS/PASS2S       O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2S.OBJ               
            5.0T3   709  PASCAL/SB.OS/PASS2S.O.025          1 LINE   7200   35 PAGE UM   UNSP                OCT. 20, 1979  19:27:45
            5.0T8    88                       
0          THIS FILE CONTAINS THE XPL OBJECT OF PASS2 (782/13), AS UPDATED BY (782/24).
00782/026   PASCAL/SB                OS/BNCHMARK     SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.BNCHMARK.PROGRAMS        
            5.0T3   710  PASCAL/SB.OS/BNCHMARK.SW.026       1 LINE     80   12 PAGE UM   UNSP                OCT. 20, 1979  19:27:49
            5.0T8    89                       
0          A SET OF TEST PROGRAMS AND JCL TO TEST PASCAL/SB.
00782/027   PASCAL/SB                OS/XPLSM        SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLSM.ASM                
            5.0T3   711  PASCAL/SB.OS/XPLSM.SA.027          1 LINE     80   38 PAGE UM   UNSP                OCT. 20, 1979  19:27:52
            5.0T8    90                       
0          THIS FILE CONTAINS AN ASSEMBLY LANGUAGE VERSION OF THE XPL SUBMONITOR, XPLSM
           FOR USE WITH (782/29).
1                                                                                               MON AUG 05/96   18:37:45   Page  569
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00782/028   PASCAL/SB                OS/XCOM4        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XCOM4.XPL                
            5.0T3   712  PASCAL/SB.OS/XCOM4.SX.028          1 LINE     80   51 PAGE UM   UNSP                OCT. 20, 1979  19:28:01
            5.0T8    91                       
0          THIS FILE CONTAINS THE SOURCE FOR XCOM4, SEE (782/29).
0          Referenced by comments of: 782/29 
00782/029   PASCAL/SB                OS/XCOM4        O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XCOM4.OBJ                
            5.0T3   713  PASCAL/SB.OS/XCOM4.O.029           1 LINE   7200   30 PAGE UM   UNSP                OCT. 20, 1979  19:27:58
            5.0T8    92                       
0          THIS IS THE OBJECT OF XPL (782/28) THAT HAS BEEN USED TO COMPILE
           THE STONY BROOK PASCAL COMPILER.
0          Referenced by comments of: 782/27, 782/28 
00782/030   PASCAL/SB                OS/XPLIB        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLIB.XPL                
            5.0T3   714  PASCAL/SB.OS/XPLIB.SX.030          1 LINE     80    1 PAGE UM   UNSP                OCT. 20, 1979  19:28:07
            5.0T8    93                       
0          THIS FILE CONTAINS THE SOURCE FOR COMPACTIFY, THE XPL PROCEDURE WHICH IS
           AUTOMATICALLY CONCATENATED ON TO THE FRONT OF EVERY XPL PROGRAM. 
00782/031   PASCAL/SB                OS/XPLXREF      SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLXREF.XPL              
            5.0T3   715  PASCAL/SB.OS/XPLXREF.SX.031        1 LINE     80    9 PAGE UM   UNSP                OCT. 20, 1979  19:28:09
            5.0T8    94                       
0          THIS FILE CONTAINS THE XPL SOURCE FOR A CROSS-REFERENCE LISTINGS PROGRAM FOR
           XPL SOURCE.
00782/032   PASCAL/SB                OS/EDITXPL      SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.EDITXPL.XPL              
            5.0T3   716  PASCAL/SB.OS/EDITXPL.SX.032        1 LINE     80    3 PAGE UM   UNSP                OCT. 20, 1979  19:28:13
            5.0T8    95                       
0          THIS FILE CONTAINS THE XPL SOURCE FOR A CARD-IMAGE EDITOR, TO BE USED TO
           EDIT UPDATE PATCHES INTO THE PASCAL COMPILER SOURCE FILES.
0          Referenced by comments of: 782/8, 782/11, 782/14, 782/22, 782/24, 782/59 
00782/033   PASCAL/SB                OS/EDITXPL      OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.EDITXPL.OBJ              
            5.0T3   717  PASCAL/SB.OS/EDITXPL.OC.033        1 LINE   7200    5 PAGE UM   UNSP                OCT. 20, 1979  19:28:15
            5.0T8    96                       
00782/034   PASCAL/SB                OS/REFORMAT     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.REFORMAT.ASM             
            5.0T3   718  PASCAL/SB.OS/REFORMAT.SA.034       1 LINE     80   10 PAGE UM   UNSP                OCT. 20, 1979  19:28:17
            5.0T8    97                       
0          THIS FILE CONTAINS THE SOURCE OF A UTILITY PROGRAM THAT CAN BE USED TO 
           REFORMAT XPL OBJECT MODULES ONTO A DISK.
1                                                                                               MON AUG 05/96   18:37:45   Page  570
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00782/035   PASCAL/SB                OS/PREFIX       SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PREFIX.XPL               
            5.0T3   719  PASCAL/SB.OS/PREFIX.SX.035         1 LINE     80   11 PAGE UM   UNSP                OCT. 20, 1979  19:28:20
            5.0T8    98                       
0          THIS FILE CONTAINS A COMMON PREFIX EDITOR, A UTILITY PROGRAM DESIGNED TO
           BE USED IN CONJUNCTION WITH THE SEPARATE COMPILATION OF PASCAL PROGRAM 
           MODULES.
0          Referenced by comments of: 782/1 
00782/036A  PASCAL/SB                NOTES           P   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.NOTES                      
            5.0T3   720  PASCAL/SB.NOTES.P.036              1 LINE     67    3 PAGE UM   UNSP                AUG. 12, 1980  17:59:11
            5.0T8    99                       
0          INTERNAL DOCUMENTATION, WITH REFERENCES, FOR PASCAL/SB.
           NOT YET VERY COMPLETE.
0          Referenced by comments of: 782/1 
00782/037A  PASCAL/SB                INSTALL         C   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.INSTALL                    
            5.0T3   721  PASCAL/SB.INSTALL.C.037            1 LINE    235    3 PAGE UM   UNSP                SEP. 22, 1980  15:05:22
            5.0T8   100                       
0          A SOURCE FILE WHICH WILL LINK THE VARIOUS FILES TO FORM SHARED VM AND
           PRIVATE VM VERSIONS OF THE COMPILER, LINKER, AND RUNTIME SUPPORT.  THE
           OBJECT FILES ARE CREATED BY SOURCING TO THE SOURCE FILES DIRECTLY.
0          Referenced by comments of: 782/1 
00782/038   PASCAL/SB                USERS MANUAL    WF  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.USERS_MANUAL               
            5.0T3   722  PASCAL/SB.USERS_MANUAL.WF.038      1 LINE    127   35 PAGE UM   UNSP                NOV. 22, 1979  05:15:49
            5.0T8   101                       
0          USER-LEVEL DOCUMENTATION FOR PASCAL/SB.  NOT YET MODIFIED FOR MTS.
0          Referenced by comments of: 782/1, 782/39 
00782/039A  PASCAL/SB                USERS MANUAL    P              UNSP:PAS.SB.W(*F,999)                                           
            5.0T3   723  PASCAL/SB.USERS_MANUAL.P.039       1 LINE     85    8 PAGE UM   UNSP                JULY 03, 1981  19:48:52
            5.0T8   102                       
0          MTS UPDATES TO THE PASCAL/SB USER'S MANUAL (782/38).
0          Referenced by comments of: 782/1 
00782/040A  PASCAL/SB                PASS 1          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS1                      
            5.0T3   724  PASCAL/SB.PASS_1.SX.040            1 LINE    105   67 PAGE UM   UNSP                AUG. 16, 1980  08:32:09
            5.0T8   103                       
0          THIS IS COMPONENT (782/10), AS MODIFIED FOR MTS.
1                                                                                               MON AUG 05/96   18:37:45   Page  571
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00782/041A  PASCAL/SB                PASS 2          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS2                      
            5.0T3   725  PASCAL/SB.PASS_2.SX.041            1 LINE    113   98 PAGE UM   UNSP                MAR. 18, 1981  12:15:46
            5.0T8   104                       
0          THIS IS COMPONENT (782/13), AS MODIFIED FOR MTS.
00782/042A  PASCAL/SB                PASS 3          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS3                      
            5.0T3   726  PASCAL/SB.PASS_3.SX.042            1 LINE     88   56 PAGE UM   UNSP                MAR. 15, 1981  12:18:07
            5.0T8   105                       
0          THIS IS COMPONENT (782/16), AS MODIFIED FOR MTS.
00782/043A  PASCAL/SB                PMD             SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PMD                        
            5.0T3   727  PASCAL/SB.PMD.SX.043               1 LINE     80   13 PAGE UM   UNSP                SEP. 22, 1980  15:02:45
            5.0T8   106                       
0          THIS IS COMPONENT (782/18), AS MODIFIED FOR MTS.
00782/044A  PASCAL/SB                LINKER          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINKER                     
            5.0T3   728  PASCAL/SB.LINKER.SX.044            1 LINE     91   22 PAGE UM   UNSP                MAR. 12, 1981  02:27:52
            5.0T8   107                       
0          THIS IS COMPONENT (782/20), AS MODIFIED FOR MTS.
00782/045A  PASCAL/SB                XPL             SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.XPL                        
            5.0T3   729  PASCAL/SB.XPL.SX.045               1 LINE     68    6 PAGE UM   UNSP                AUG. 12, 1980  17:40:15
            5.0T8   108                       
0          XPL SUBROUTINES USED BY PASCAL/SB INCLUDING MISCELLANEOUS SUBROUTINES
           USEFUL WHEN PROGRAMMING IN XPL. 
            
           *********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           1.  NOW USES *EXPLIB (495/2), INSTEAD OF ITS OWN VERSION.
           2.  SEVERAL BUGS FIXED.
            
           FOR OTHER CHANGES, SEE UNSP:PASCAL.NEWS (792/6).
           *********************************************************************************
00782/046A  PASCAL/SB                ASM             SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.ASM                        
            5.0T3   730  PASCAL/SB.ASM.SA.046               1 LINE    102   10 PAGE UM   UNSP                AUG. 12, 1980  17:35:37
            5.0T8   109                       
0          ASSEMBLY LANGUAGE SUBROUTINES USED BY PASCAL/SB.  USES THE (782/48) PASCAL
           MACRO LIBRARY.
0          Referenced by comments of: 782/48, 782/61 
00782/047A  PASCAL/SB                PASTIME         SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASTIME                    
            5.0T3   731  PASCAL/SB.PASTIME.SA.047           1 LINE     86   21 PAGE UM   UNSP                MAR. 07, 1981  17:13:42
            5.0T8   110                       
0          THE RUNTIME SUPPORT FOR PASCAL/SB PROGRAMS. USES THE (782/48) PASCAL MACRO
1                                                                                               MON AUG 05/96   18:37:45   Page  572
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          LIBRARY.
00782/048A  PASCAL/SB                MACRO LIB       SM  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.MACLIB                     
            5.0T3   732  PASCAL/SB.MACRO_LIB.SM.048         1 LINE     62    1 PAGE UM   UNSP                AUG. 12, 1980  17:37:07
            5.0T8   111                       
0          A MACRO LIBRARY FOR USE BY THE ASSEMBLER ROUTINES (782/46). 
0          Referenced by comments of: 782/46, 782/47 
00782/049A  PASCAL/SB                LIBRARY         OL  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LIB                        
            5.0T3   733  PASCAL/SB.LIBRARY.OL.049           1 LINE  32767  117 PAGE UM   UNSP                MAR. 18, 1981  12:25:03
            5.0T8   112                       
0          AN OBJECT LIBRARY WITH MODULES FOR EVERYTHING EXCEPT THE 3 EXPL MAIN PROGRAMS
           (782/50), (782/53), AND (782/56), WHICH ALL HAVE TO HAVE THE SAME NAME.
00782/050A  PASCAL/SB                MAIN PROGRAM    SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASCAL                     
            5.0T3   734  PASCAL/SB.MAIN_PROGRAM.SX.050      1 LINE     91    3 PAGE UM   UNSP                AUG. 12, 1980  17:41:59
            5.0T8   113                       
0          XPL MAIN PROGRAM FOR THE COMPILER.
0          Referenced by comments of: 782/49, 782/51 
00782/051A  PASCAL/SB                MAIN PROGRAM    OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_PASCAL                     
            5.0T3   735  PASCAL/SB.MAIN_PROGRAM.OC.051      1 LINE  32767   21 PAGE UM   UNSP                AUG. 12, 1980  17:42:22
            5.0T8   114                       
0          OBJECT OF (782/50).
00782/052A  PASCAL/SB                PASCAL OBJECT   OE  O          UNSP:PAS.SB                                                     
            5.0T3   736  PASCAL/SB.PASCAL_OBJECT.OE.052     1 LINE  32767  127 PAGE UM   UNSP                JULY 03, 1981  19:51:11
            5.0T8   115  UNSP:PAS.SB          
0          LINKEDITED PASCAL COMPILER, READY TO BE $RUN. LOGS USAGE STATISTICS IN
           UNSP:STATS, IF PRESENT, AND INTERRUPTS IN UNSP:PAS.SB.LOG (782/61).
0          Referenced by comments of: 782/1 
00782/053A  PASCAL/SB                RUN             SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.RUN                        
            5.0T3   737  PASCAL/SB.RUN.SX.053               1 LINE     64    1 PAGE UM   UNSP                JUNE 16, 1980  13:22:55
            5.0T8   116                       
0          XPL MAIN PROGRAM FOR RUNTIME SUPPORT, PMD.
0          Referenced by comments of: 782/49 
00782/054A  PASCAL/SB                RUN             OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_RUN                        
            5.0T3   738  PASCAL/SB.RUN.OE.054               1 LINE  11060    5 PAGE UM   UNSP                JUNE 16, 1980  13:23:05
            5.0T8   117                       
1                                                                                               MON AUG 05/96   18:37:45   Page  573
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00782/055A  PASCAL/SB                RUN             OE  O          UNSP:PAS.SB.RUN                                                 
            5.0T3   739  PASCAL/SB.RUN.OE.055               1 LINE  22816   14 PAGE UM   UNSP                JULY 03, 1981  19:51:27
            5.0T8   118  UNSP:PAS.SB.RUN      
0          LINKEDITED VERSION OF RUNTIME SUPPORT, READY TO BE RUN WITH A PASCAL OBJECT
           MODULE.
0          Referenced by comments of: 781/9, 782/1, 784/3 
00782/056   PASCAL/SB                LINK            SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINK                       
            5.0T3   740  PASCAL/SB.LINK.SX.056              1 LINE     63    1 PAGE UM   UNSP                FEB. 10, 1980  17:27:59
            5.0T8   119                       
0          XPL MAIN PROGRAM FOR THE LINKER.
0          Referenced by comments of: 782/49 
00782/057   PASCAL/SB                LINK            OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LINK                       
            5.0T3   741  PASCAL/SB.LINK.OE.057              1 LINE    440    1 PAGE UM   UNSP                FEB. 10, 1980  17:27:25
            5.0T8   120                       
00782/058A  PASCAL/SB                LINK            OE  O          UNSP:PAS.SB.LINK                                                
            5.0T3   742  PASCAL/SB.LINK.OE.058              1 LINE  32767   24 PAGE UM   UNSP                JULY 03, 1981  19:51:57
            5.0T8   121  UNSP:PAS.SB.LINK     
0          LINKEDITED VERSION OF THE LINKER.  $RUN THIS TO COMBINE NON-STANDARD MODULES,
           FORMING STANDARD ONES.
0          Referenced by comments of: 782/1 
00782/059   PASCAL/SB                EDITXPL         UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.EDITXPL.CDU                
            5.0T3   743  PASCAL/SB.EDITXPL.UC.059           1 LINE     84    1 PAGE UM   UNSP                FEB. 25, 1980  09:57:47
            5.0T8   122                       
0          A CDUPDATE TO THE STONY BROOK UPDATE PROGRAM EDITXPL (782/32), WHICH CONVERTS
           IT TO EXPL AND MTS. OBJECT IS IN (782/60).
00782/060   PASCAL/SB                EDITXPL         OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_EDITXPL                    
            5.0T3   744  PASCAL/SB.EDITXPL.OC.060           1 LINE   2540    3 PAGE UM   UNSP                FEB. 25, 1980  09:55:17
            5.0T8   123                       
0          HAS A $CONTINUE WITH *EXPLIB (495/2) RECORD.
0          Referenced by comments of: 782/59 
00782/061   PASCAL/SB                LOG             D            # UNSP:PAS.SB.LOG                                                 
                                                                                    UM   UNSP                                       
                         UNSP:PAS.SB.LOG      
0          THIS IS THE LOG FILE FOR PASCAL/SB. IN THE DISTRIBUTED VERSION OF PASCAL/SB,
           THE LOG FILE, NAMED UNSP:PAS.SB.LOG, MUST BE CREATED. TO CHANGE THIS,
           USERRLOG IN (782/46) MUST BE ALTERED.
0          Referenced by comments of: 782/52 
1                                                                                               MON AUG 05/96   18:37:45   Page  574
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00782/062   PASCAL/SB                TM1.1           WF             S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM1.1                      
            5.0T3   745  PASCAL/SB.TM1.1.WF.062             1 LINE     73    5 PAGE UM   UNSP                SEP. 13, 1979  01:59:59
            5.0T8   124                       
0          THIS IS PASCAL TECHNICAL MEMO 1.1:  "THE STONY BROOK PASCAL/360 COMPILER,"
           A 7-PAGE OVERVIEW OF THE COMPILER.
00782/063   PASCAL/SB                TM5.1           WF             S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM5.1                      
            5.0T3   746  PASCAL/SB.TM5.1.WF.063             1 LINE    136   12 PAGE UM   UNSP                SEP. 13, 1979  02:00:11
            5.0T8   125                       
0          THIS IS PASCAL TECHNICAL MEMO 5.1: "DOCUMENTATION OF INTERNAL STRUCTURE,"
           A 16-PAGE DESCRIPTION OF PASS 1.
00782/064   PASCAL/SB                TM5.2           WF             S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM5.2                      
            5.0T3   747  PASCAL/SB.TM5.2.WF.064             1 LINE     84   31 PAGE UM   UNSP                SEP. 13, 1979  02:00:26
            5.0T8   126                       
0          THIS IS PASCAL TECHNICAL MEMO 5.2:  "PASS 2 - SEMANTIC ANALYSIS AND
           GENERATION OF SYMBOLIC TRIPLES," A 50-PAGE DESCRIPTION OF PASS 2 AND THE
           TRIPLES USED BY PASS 3.
0          Referenced by comments of: 782/1 
00783/001   PASCAL/8000              OS/JCL              O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.JCL...                   
            5.0T3   748  PASCAL/8000.OS/JCL..001            1 LINE     80   10 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:12:25
            5.0T8   127                       
0          THIS IS THE AUSTRIALIAN ATOMIC ENERGY COMMISSION PASCAL/8000 COMPILER, WHICH
           HAS BEEN MODIFIED TO RUN IN MTS. COMPONENTS (783/1) THROUGH (783/10) ARE THE
           COMPONENTS OF THE OS VERSION; (783/11) THROUGH (783/22) ARE COMPONENTS OF THE
           MTS VERSION.
            
           COMPONENT (792/6) IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES TO
           ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM.
            
           THIS COMPONENT CONTAINS OS JCL AND COMMENTS.
0          Referenced by comments of: 781/7, 783/1, 792/1, 792/6 
00783/002   PASCAL/8000              OS/LINK         SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.LINK                     
            5.0T3   749  PASCAL/8000.OS/LINK.SW.002         1 LINE    111   85 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:17:04
            5.0T8   128                       
0          OS OBJECT-MODULE-PRODUCING COMPILER.
0          Referenced by comments of: 783/8 
00783/003   PASCAL/8000              OS/ASM          SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ASM                      
            5.0T3   750  PASCAL/8000.OS/ASM.SA.003          1 LINE     80  172 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:15:18
            5.0T8   129                       
0          OS RUNTIME SUPPORT.
1                                                                                               MON AUG 05/96   18:37:45   Page  575
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00783/004   PASCAL/8000              OS/OBJECT       OL  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.OBJECT                   
            5.0T3   751  PASCAL/8000.OS/OBJECT.OL.004       1 LINE     80   52 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:13:01
            5.0T8   130                       
0          OS LIBRARY WITH OBJECT FOR THE STANDARD COMPILER AND RUNTIME SUPPORT.
00783/005   PASCAL/8000              OS/CMPGO        SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMPGO                    
            5.0T3   752  PASCAL/8000.OS/CMPGO.SW.005        1 LINE    111   80 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:15:56
            5.0T8   131                       
0          OS COMPILE-AND-GO COMPILER AND NONSTANDARD OBJECT MODULE.
0          Referenced by comments of: 783/8 
00783/006   PASCAL/8000              OS/CMP1         OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP1                     
            5.0T3   753  PASCAL/8000.OS/CMP1.OC.006         1 LINE   1024   24 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:13:30
            5.0T8   132                       
0          FILE 1, NONSTANDARD OBJECT, FOR COMPILE AND GO COMPILER.
00783/007   PASCAL/8000              OS/CMP2         OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP2                     
            5.0T3   754  PASCAL/8000.OS/CMP2.OC.007         1 LINE     80    1 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:14:09
            5.0T8   133                       
0          FILE 2 FOR COMPILE AND GO COMPILER.
00783/008   PASCAL/8000              OS/ERRORS       M              S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ERRORS                   
            5.0T3   755  PASCAL/8000.OS/ERRORS.M.008        1 LINE     75    3 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:14:30
            5.0T8   134                       
0          ERROR MESSAGE FILE USED BY BOTH PASCAL/8000 OS COMPILERS (783/2) AND (783/5).
00783/009   PASCAL/8000              EDITOR          SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.EDITOR                   
            5.0T3   756  PASCAL/8000.EDITOR.SW.009          1 LINE     72    4 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:17:43
            5.0T8   135                       
0          AN UPDATING PROGRAM.
00783/010   PASCAL/8000              OS/MANUAL       P              S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.MANUAL                   
            5.0T3   757  PASCAL/8000.OS/MANUAL.P.010        1 LINE     74   44 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:18:01
            5.0T8   136                       
0          A WRITEUP FOR THE OS VERSION OF PASCAL/8000.
0          Referenced by comments of: 783/1 
00783/011   PASCAL/8000              COMMENTS        P              S1210 PASDIS 'PASCAL DIST' FSNAME=8000.COMMENTS                 
            5.0T3   758  PASCAL/8000.COMMENTS.P.011         1 LINE     68    1 PAGE RPI  ABDALI    UNSP      FEB. 10, 1980  17:48:32
            5.0T8   137                       
0          THIS IS A VERY BRIEF DESCRIPTION OF THE AUSTRALIAN ATOMIC ENERGY COMMISSION
           PASCAL/8000 COMPILER, AND THE MTS VERSION THEREOF. SEE ALSO COMP (783/12).
0          Referenced by comments of: 783/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  576
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00783/012A  PASCAL/8000              INSTALL.INFO    P              S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.INSTALL.INFO              
            5.0T3   759  PASCAL/8000.INSTALL.INFO.P.012     1 LINE     74    5 PAGE RPI  ABDALI    UNSP      JUNE 17, 1980  16:00:35
            5.0T8   138                       
0          A DESCRIPTION AND INSTALLATION INSTRUCTIONS FOR THE MTS VERSION OF PASCAL/8000.
0          Referenced by comments of: 783/11 
00783/013A  PASCAL/8000              COMPILER        SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.PAS              
            5.0T3   760  PASCAL/8000.COMPILER.SW.013        1 LINE     80   87 PAGE RPI  ABDALI    UNSP      JUNE 17, 1980  16:01:50
            5.0T8   139                       
0          MTS VERSION OF THE PASCAL/8000 COMPILER.
00783/014A  PASCAL/8000              COMPILER        UC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.CDU              
            5.0T3   761  PASCAL/8000.COMPILER.UC.014        1 LINE     66    3 PAGE RPI  ABDALI    UNSP      JUNE 17, 1980  16:17:30
            5.0T8   140                       
0          AN UPDATE DECK FOR LOCAL CHANGES. ADDS A CALL TO SNOOP IN UNSP:LIBRARY
           (685/2) TO RECORD USAGE STATISTICS IN THE FILE UNSP:STATS, IF IT EXISTS.
           COMPILE WITH PAR=;C=1024 AND T=15 ON AN AMDAHL V/7.
0          Referenced by comments of: 783/20 
00783/015A  PASCAL/8000              COMPILER        OE  O          UNSP:PAS.8000                                                   
            5.0T3   762  PASCAL/8000.COMPILER.OE.015        1 LINE  32767   34 PAGE RPI  ABDALI    UNSP      JULY 03, 1981  19:54:02
            5.0T8   141  UNSP:PAS.8000        
0          CONTAINS A $CONTINUE WITH UNSP:PAS.8000.RUN (783/19) RECORD.
00783/016   PASCAL/8000              RUNMACLIB       SM  O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNMACLIB                 
            5.0T3   763  PASCAL/8000.RUNMACLIB.SM.016       1 LINE     73    3 PAGE RPI  ABDALI    UNSP      MAR. 09, 1979  22:10:53
            5.0T8   142                       
0          Referenced by comments of: 783/17 
00783/017A  PASCAL/8000              RUNTIME         SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNTIME.ASM               
            5.0T3   764  PASCAL/8000.RUNTIME.SA.017         1 LINE     73   47 PAGE RPI  ABDALI    UNSP      JUNE 17, 1980  16:14:37
            5.0T8   143                       
0          THE RUNTIME SUPPORT. ASSEMBLE WITH PAR=BATCH. USES THE (783/16) MACRO
           LIBRARY.
00783/018A  PASCAL/8000              RUNTIME         UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNTIME.CDU               
            5.0T3   765  PASCAL/8000.RUNTIME.UC.018         1 LINE     68    1 PAGE RPI  ABDALI    UNSP      JUNE 17, 1980  16:17:50
            5.0T8   144                       
0           
           *********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           THESE CHANGES ARE LARGELY TO SWITCH FILE NAMES.
           *********************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   Page  577
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00783/019A  PASCAL/8000              RUNTIME         OE  O          UNSP:PAS.8000.RUN                                               
            5.0T3   766  PASCAL/8000.RUNTIME.OE.019         1 LINE  14284    6 PAGE RPI  ABDALI    UNSP      JULY 03, 1981  19:55:20
            5.0T8   145  UNSP:PAS.8000.RUN    
0          Referenced by comments of: 783/15 
00783/020A  PASCAL/8000              ERROR MSGS      M   O          UNSP:PAS.8000.ERR                                               
            5.0T3   767  PASCAL/8000.ERROR_MSGS.M.020       1 LINE     75    3 PAGE RPI  ABDALI    UNSP      JULY 03, 1981  19:55:22
            5.0T8   146  UNSP:PAS.8000.ERR    
0          ERROR MESSAGES USED BY THE (783/14) COMPILER.
00783/021A  PASCAL/8000              MANUAL          P   O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.PASCALMANUAL              
            5.0T3   768  PASCAL/8000.MANUAL.P.021           1 LINE     78   51 PAGE RPI  ABDALI    UNSP      JUNE 17, 1980  16:16:23
            5.0T8   147                       
0          USER LEVEL DESCRIPTION OF THE PASCAL/8000 SYSTEM AND HOW TO USE IT.
00783/022   PASCAL/8000              TEST            SW  G          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.TEST                      
            5.0T3   769  PASCAL/8000.TEST.SW.022            1 LINE     89    9 PAGE RPI  ABDALI    UNSP      SEP. 08, 1979  20:06:13
            5.0T8   148                       
0          SOURCE FILE CONTAINING PASCAL PROGRAMS AND MTS COMMANDS TO TEST THE COMPILER.
0          Referenced by comments of: 783/1 
00784/001   CRLFASCEBC                               SW  G          S1153 UNSP VLO FSNAME=CRLFASCEBC.PAS                            
            5.0T3   770  CRLFASCEBC..SW.001                 1 LINE     64    1 PAGE UM   UNSP                FEB. 14, 1980  16:04:59
            5.0T8   149                       
0          THIS PROGRAM CONVERTS STREAM-ORIENTED ASCII FILES WITH EMBEDDED CARRIAGE
           CONTROL TO RECORD-ORIENTED EBCDIC FILES WITH CARRIAGE CONTROL CHARACTERS IN
           COLUMN 1. THE ASCII CHARACTERS <CR>, <LF>, AND <FF> ARE DELETED AND
           APPROPRIATE CARRIAGE CONTROL CHARACTERS ARE ADDED. COMPONENT (784/4) CONTAINS
           A WRITEUP.
0          Referenced by comments of: 784/2, 784/3 
00784/002   CRLFASCEBC               SUBROUTINE      SA  G          S1153 UNSP VLO FSNAME=CRLFASCEBC.ASM                            
            5.0T3   771  CRLFASCEBC.SUBROUTINE.SA.002       1 LINE     62    1 PAGE UM   UNSP                FEB. 14, 1980  16:05:51
            5.0T8   150                       
0          SUBROUTINE CALLED FROM (784/1) TO DO THE ACTUAL TRANSLATION.
0          Referenced by comments of: 784/3 
00784/003   CRLFASCEBC                               OC  G          UNSP:CRLFASCEBC                                                 
            5.0T3   772  CRLFASCEBC..OC.003                 1 LINE   1358    2 PAGE UM   UNSP                JULY 03, 1981  19:55:52
            5.0T8   151  UNSP:CRLFASCEBC      
0          OBJECT OF (784/1) AND (784/2). CONTAINS A $CONTINUE WITH UNSP:LIBRARY (685/2)
           AND A $CONTINUE WITH UNSP:PAS.SB.RUN (782/55) RECORD.
1                                                                                               MON AUG 05/96   18:37:45   Page  578
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00784/004   CRLFASCEBC               WRITEUP         P              UNSP:CRLFASCEBC.W                                               
            5.0T3   773  CRLFASCEBC.WRITEUP.P.004           1 LINE     71    1 PAGE UM   UNSP                JULY 03, 1981  19:55:53
            5.0T8   152                       
0          Referenced by comments of: 784/1 
00785/001   SOUNDEX                                  SF  G          S1153 UNSP VLO FSNAME=SOUNDEX.FTN                               
            5.0T3   774  SOUNDEX..SF.001                    1 LINE     68    1 PAGE UM   UNSP                FEB. 14, 1980  16:03:28
            5.0T8   153                       
0          THE SOUNDEX SYSTEM IS BASED ON AN ALGORITHM WHICH ENCODES NAMES INTO A 
           FOUR-CHARACTER CODE SO THAT SIMILAR SOUNDING NAMES ARE ENCODED INTO 
           SIMILAR CODES. IT IS USEFUL WHEN EXACT SPELLING OF NAMES IS NOT KNOWN,
           FOR EXAMPLE, IN AIRLINE RESERVATION SYSTEMS.
            
           THIS SUBCOMPONENT CONTAINS A PROGRAM TO READ A LIST OF NAMES AND ENCODE
           THEM.
0          Referenced by comments of: 785/2 
00785/002   SOUNDEX                                  OE  G          UNSP:SOUNDEX                                                    
            5.0T3   775  SOUNDEX..OE.002                    1 LINE    730    1 PAGE UM   UNSP                JULY 03, 1981  19:55:54
            5.0T8   154  UNSP:SOUNDEX         
0          OBJECT OF (785/1). CONTAINS A $CONTINUE WITH UNSP:LIBRARY (685/2) RECORD.
00785/003   SOUNDEX                  SUBROUTINE      SA  G          S1153 UNSP VLO FSNAME=SOUNDEX.ASM                               
            5.0T3   776  SOUNDEX.SUBROUTINE.SA.003          1 LINE     72    2 PAGE UM   UNSP                FEB. 14, 1980  16:02:39
            5.0T8   155                       
0          SUBROUTINE TO ENCODE NAMES USING THE SOUNDEX ALGORITHM.  OBJECT IS IN
           UNSP:LIBRARY (685/2).
00785/004   SOUNDEX                  WRITEUP         P              UNSP:SOUNDEX.W                                                  
            5.0T3   777  SOUNDEX.WRITEUP.P.004              1 LINE     70    1 PAGE UM   UNSP                JULY 03, 1981  19:55:56
            5.0T8   156                       
00786/001   CONSTANTS                                D              UNSP:CONSTANTS                                                  
            5.0T3   778  CONSTANTS..D.001                   1 LINE    126    2 PAGE UM   UNSP                JULY 03, 1981  19:55:57
            5.0T8   157                       
0          A LIST OF COMMONLY SEEN CONSTANTS, EACH CONVERTED IN VARIOUS WAYS. 
00787/001A  UNIT CHECK ROUTINES      MACROS          SM  G          COPY:UC.MACROS                                                  
            5.0T3   779  UNIT_CHECK_ROUTINES.MACRO.SM.001   1 LINE     72    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:55:58
            5.0T8   158  COPY:UC.MACROS       
0          *******************************************************************************
           D5.0 VERSION:
            
           COMPONENT (787) IS A "NEW" COMPONENT, WHICH IS A COMBINATION OF COMPONENTS
           WHICH WERE ALREADY A PART OF THE DRIVER FILE: UC3330, FORMERLY (603), DISKUC,
           FORMERLY A PART OF THE FILE SYSTEM COMPONENT (482), AND TAPEUC, FORMERLY
           (012).
1                                                                                               MON AUG 05/96   18:37:45   Page  579
0  Num   R       Component Name         Subname     Type G Seq ID 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 SUBCOMPONENT IS THE UNIT CHECK ROUTINES MACRO LIBRARY.
0          Referenced by comments of: 23/1, 79/1, 135/1, 621/4, 655/4, 682/22, 724/1, 769/3, 769/5, 787/1, 787/3, 787/5,
                 787/15, 787/17, 1058/2, 1058/3, 1058/4, 1058/5, 1079/10 
00787/002A  UNIT CHECK ROUTINES      DESIGN PAPER    WT             W170:PROTO.PAPER                                                
            5.0T3   780  UNIT_CHECK_ROUTINES.DESIG.WT.002   1 LINE     65    1 PAGE UM   HELFFRICH           JULY 03, 1981  19:55:58
            5.0T8   159                       
0          ARCHITECTURAL DESCRIPTION OF UNIT CHECK ROUTINE INTERFACE AND CHARACTERISTICS.
00787/003A  UNIT CHECK ROUTINES      UCDISK          SA  G          FILE:UCDISK(1000)                                               
            5.0T3   781  UNIT_CHECK_ROUTINES.3330.SA.003    1 LINE     72   20 PAGE UM   HELFFRICH           AUG. 06, 1981  05:35:36
            5.0T8   160  FILE:UCDISK          
0          SUBTASKING MONITOR (1058) COMPATIBLE UNIT CHECK ROUTINES FOR 3330, 3350,
           2301, AND 2305 DEVICES. ASSEMBLE USING COPY:UC.MACROS (787/1). COPIES
           COPY:CMDAREADSECT (531/19) AND *CNFGINFODSECT (654).
            
           *******************************************************************************
           D5.0 CHANGES:
            
           Changes include support for Intel 3805, operating in native mode, and IBM 3370
           disks.
           *******************************************************************************
0          Referenced by comments of: 655/4, 787/5 
00787/004A  UNIT CHECK ROUTINES      UCDISK          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00787/005A  UNIT CHECK ROUTINES      UC3330          SA  G          FILE:UC3330(1000)                                               
            5.0T3   782  UNIT_CHECK_ROUTINES.FRONT.SA.005   1 LINE     72    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:05
            5.0T8   161  FILE:UC3330          
0          FRONT-END TO THE UCDISK ROUTINES (787/3) TO MAKE THEM COMPATIBLE WITH THE OLD
           STYLE ROUTINES IN DISKUC (787/7). COPIES COPY:UC.MACROS (787/1).
0          Referenced by comments of: 603/1 
00787/006A  UNIT CHECK ROUTINES      UC3330          OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00787/007   UNIT CHECK ROUTINES      DISKUC          SA  G          FILE:DASDUC(1000)                                               
            5.0T3   783  UNIT_CHECK_ROUTINES.DASDU.SA.007   1 LINE     72    9 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:07
            5.0T8   162                       
0          "OLD-STYLE" 2311/2314/2321/2301 UNIT CHECK ROUTINES.
1                                                                                               MON AUG 05/96   18:37:45   Page  580
0  Num   R       Component Name         Subname     Type G Seq ID 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: 787/5 
00787/008   UNIT CHECK ROUTINES      DISKUC          OC  G          FILE:DASDUC(1,999)                                              
            5.0T3   784  UNIT_CHECK_ROUTINES.DASDU.OC.008   1 LINE     80    3 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:08
            5.0T8   163  FILE:DASDUC          
00787/009   UNIT CHECK ROUTINES      3330 TESTER     SA  O          FILE:UCDISK.TEST(1000)                                          
            5.0T3   785  UNIT_CHECK_ROUTINES.3330.SA.009    1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:09
            5.0T8   164                       
0          TEST PROGRAM TO DEBUG NEW VERSIONS OF 3330 COMPATIBLE UNIT CHECK ROUTINES.
           ASSEMBLE USING COPY:CC.MACROS (1054/3).  COPIES COPY:CMDAREADSECT (531/19).
00787/010   UNIT CHECK ROUTINES      3330 TESTER     OC  O          FILE:UCDISK.TEST(1,998)                                         
            5.0T3   786  UNIT_CHECK_ROUTINES.3330.OC.010    1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:10
            5.0T8   165                       
00787/011   UNIT CHECK ROUTINES      UC3330 TESTER   SA  O          FILE:UC3330.TEST(1000)                                          
            5.0T3   787  UNIT_CHECK_ROUTINES.UC333.SA.011   1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:11
            5.0T8   166                       
0          TEST PROGRAM TO DEBUG NEW VERSIONS OF UC3330.  ASSEMBLE USING COPY:CC.MACROS
           (1054/3) AND COPY:MISC.MACROS (728). COPIES COPY:CMDAREADSECT (531/19).
00787/012   UNIT CHECK ROUTINES      UC3330 TESTER   OC  O          FILE:UC3330.TEST(1,998)                                         
            5.0T3   788  UNIT_CHECK_ROUTINES.UC333.OC.012   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:12
            5.0T8   167                       
00787/013C  UNIT CHECK ROUTINES      SYNCH TV RTNS   SA  G          W170:UCSYNC(1000)                                               
            5.0T3   789  UNIT_CHECK_ROUTINES.SYNCH.SA.013   1 LINE     70    3 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:13
            5.0T8   168  W170:UCSYNC          
0          Synchronous, i.e., non-Subtasking Monitor (1058), unit check transfer vector
           routines.  Requires COPY:MISC.MACROS (728).
00787/014C  UNIT CHECK ROUTINES      SYNCH TV RTNS   OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00787/015C  UNIT CHECK ROUTINES      TAPE UNIT CHCK  SA  G          TAPE:UCTAPE(1000)                                               
            5.0T3   790  UNIT_CHECK_ROUTINES.TAPE.SA.015    1 LINE     72   22 PAGE UM   HELFFRICH           AUG. 06, 1981  05:35:55
            5.0T8   169  TAPE:UCTAPE          
0          2400 and 3400 series tape unit check routines. Assemble with COPY:UC.MACROS
           (787/1), COPY:CC.MACROS (1054/3), and COPY:MISC.MACROS (728). Copies
           COPY:GLOBALS (1026/3), COPY:CMDAREADSECT (531/19) and *CNFGINFODSECT (654/1).
0          Referenced by comments of: 12/1, 23/1, 79/1, 135/1, 388/1, 655/4, 787/17 
00787/016C  UNIT CHECK ROUTINES      TAPE UNIT CHCK  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          D5.0 versions of HASPLING (388), TPMOVE (023), STAT JOB (079) and 
1                                                                                               MON AUG 05/96   18:37:45   Page  581
0  Num   R       Component Name         Subname     Type G Seq ID 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          TAPERTN (135) require these unit check routines.
           Object part of Resident System (468)
00787/017C  UNIT CHECK ROUTINES      UCTAPE TESTER   SA  G          TAPE:UCTAPE.TEST(1000)                                          
            5.0T3   791  UNIT_CHECK_ROUTINES.UCTAP.SA.017   1 LINE     72    3 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:45
            5.0T8   170                       
0          Test program to debug new versions of (787/15). Assemble with COPY:CC.MACROS
           (1054/3) and COPY:UC.MACROS (787/1). Copies COPY:CMDAREADSECT (531/19).
00787/018C  UNIT CHECK ROUTINES      UCTAPE TESTER   OC  G          TAPE:UCTAPE.TEST(1,999)                                         
            5.0T3   792  UNIT_CHECK_ROUTINES.UCTAP.OC.018   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:56:46
            5.0T8   171                       
00788/001   DUMMY CLS                SOURCE          SA  G          S1431 4.3T2 VLO FSNAME=DUMMY_CLS.SOURCE.SA.001(1)            272
            5.0T3   793  DUMMY_CLS.SOURCE.SA.001            1 LINE     55    1 PAGE UM   OGDEN               APR. 06, 1980  13:58:32
            5.0T8   172                       
0          THIS IS A SIMPLE CLS TO PRINT THE FOLLOWING MESSAGE FOR UNIMPLEMENTED
           COMMANDS:
            
             "THIS COMMAND IS NOT YET IMPLEMENTED"
00788/002   DUMMY CLS                *CLSNEW         OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSNEW              
0          FOR TESTING NEW CLS'S.
00788/003   DUMMY CLS                *CLSNEW2        OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSNEW2             
0          FOR TESTING NEW CLS'S.
00788/004   DUMMY CLS                *CLSNEW3        OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSNEW3             
0          FOR TESTING NEW CLS'S.
00788/005   DUMMY CLS                *CLSLOG         OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSLOG              
0          THIS WILL BE THE $LOG COMMAND FOR FDNAME LOGGING.
00789/001A  SHUTDOWN MESSAGE         *SDM            C              *SDM                                                            
            5.0T3   794  SHUTDOWN_MESSAGE.*SDM.C.001        1 LINE     63    1 PAGE UM   OGDEN               JULY 03, 1981  19:57:12
            5.0T8   173  *SDM                 
0          OPERATOR FILE TO PUT IN SHUTDOWN MESSAGE FOR UM DATA CONCENTRATORS AND
           MERIT COMPUTER NETWORK.
1                                                                                               MON AUG 05/96   18:37:45   Page  582
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00789/002A  SHUTDOWN MESSAGE         SYS:SDM         SG  G          S1482 4.3AT1 VLO FSNAME=SHUTDOWN_MESSAGE.SYS:SDM.SG.002(1)   505
            5.0T3   795  SHUTDOWN_MESSAGE.SYS:SDM.SG.002    1 LINE     77    1 PAGE UM   OGDEN               SEP. 25, 1980  09:39:50
            5.0T8   174                       
0          PROGRAM TO READ A SHUTDOWN MESSAGE FROM THE OPERATORS' CONSOLE AND PLACE
           IT IN THE PDP-11 DATA CONCENTRATORS.
00789/003A  SHUTDOWN MESSAGE         SYS:SDM         OC  G          SYS:SDM                                                         
            5.0T3   796  SHUTDOWN_MESSAGE.SYS:SDM.OC.003    1 LINE   1522    2 PAGE UM   OGDEN               JULY 03, 1981  19:57:21
            5.0T8   175  SYS:SDM              
00789/004A  SHUTDOWN MESSAGE         SYS:MSDM        SG  G          S0683 OGDEN FSNAME=MSDM.S                                       
            5.0T3   797  SHUTDOWN_MESSAGE.SYS:MSDM.SG.004   1 LINE     77    1 PAGE UM   OGDEN               OCT. 13, 1980  08:27:47
            5.0T8   176                       
0          PROGRAM TO READ A SHUTDOWN MESSAGE FROM THE OPERATORS' CONSOLE AND TO
           PLACE IT IN THE MERIT COMPUTER NETWORK PDP-11.
00789/005A  SHUTDOWN MESSAGE         SYS:MSDM        OC  G          SYS:MSDM                                                        
            5.0T3   798  SHUTDOWN_MESSAGE.SYS:MSDM.OC.005   1 LINE   1082    1 PAGE UM   OGDEN               JULY 03, 1981  19:57:47
            5.0T8   177                       
00790/001A  VAMX CONVERSION          DESCRIPTION     WF             FILE:CONVERTING                                                 
            5.0T3   799  VAMX_CONVERSION.DESCRIPTI.WF.001   1 LINE     76    3 PAGE UM   HELFFRICH           JULY 03, 1981  19:57:48
            5.0T8   178  FILE:CONVERTING      
0          WRITEUP DESCRIBING PROCEDURE TO BE FOLLOWED TO CONVERT VAM2 OR OLD-STYLE VAMX
           PACKS TO THE NEW VAMX FORMAT.  THIS SHOULD BE LOOKED AT BEFORE ATTEMPTING TO
           USE THE CONVERSION PROGRAMS.
0          Referenced by comments of: 790/2, 790/4, 790/5, 790/7 
00790/002A  VAMX CONVERSION          PAT/DSCB CONV   SA  O          FILE:CONVV2VX.AS                                                
            5.0T3   800  VAMX_CONVERSION.PAT/DSCB.SA.002    1 LINE     79    6 PAGE UM   HELFFRICH           JULY 03, 1981  19:57:48
            5.0T8   179  FILE:CONVV2VX.AS     
0          THIS IS THE SOURCE, ADAPTED FROM (790/4), TO CONVERT OLD-STYLE VAMX OR VAM2
           TO NEW STYLE VAMX FORMAT. ASSEMBLE USING COPY:FILE.MACROS (482/45) AND
           COPY:MISC.MACROS (728).
            
           WARNING: THIS PROGRAM HAS NEVER BEEN USED TO COMPLETELY CONVERT AN OLD-STYLE
           VAMX PACK OR A VAM2 PACK TO A NEW-STYLE PACK. SEE (790/1).
0          Referenced by comments of: 790/4 
00790/003A  VAMX CONVERSION          PAT/DSCB CONV   OC  O          FILE:CONVV2VX                                                   
            5.0T3   801  VAMX_CONVERSION.PAT/DSCB.OC.003    1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:57:49
            5.0T8   180  FILE:CONVV2VX        
00790/004   VAMX CONVERSION          PAT/DSCB CONV   SA  G          S1431 4.3T2 VLO FSNAME=VAMX_CONVERSION.PAT/DSCB.SA.004(1)    281
            5.0T3   802  VAMX_CONVERSION.PAT/DSCB.SA.004    1 LINE     79    5 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:57
            5.0T8   181                       
0          SOURCE FOR THE VERSION OF THE PROGRAM USED BY UM TO CONVERT FROM V2 TO VX 
1                                                                                               MON AUG 05/96   18:37:45   Page  583
0  Num   R       Component Name         Subname     Type G Seq ID 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          FORMAT.  (790/2) WAS ADAPTED FROM THIS PROGRAM.  SEE (790/1) FOR DETAILS.
           ASSEMBLE USING COPY:FILE.MACROS (482/45) AND COPY:MISC.MACROS (728).
0          Referenced by comments of: 790/2 
00790/005   VAMX CONVERSION          CATALOG CONV    SA  O          FILE:CONV.CAT(1000)                                             
            5.0T3   803  VAMX_CONVERSION.CATALOG_C.SA.005   1 LINE     72   10 PAGE UM   HELFFRICH           JULY 03, 1981  19:57:51
            5.0T8   182  FILE:CONV.CAT        
0          THIS IS THE SOURCE, ADAPTED FROM (790/7) TO CONVERT OLD-STYLE VAMX OR VAM2 TO
           NEW STYLE VAMX FORMAT. SEE (790/1) FOR FURTHER DETAILS.  ASSEMBLE USING
           COPY:FILE.MACROS (482/45).
            
           WARNING:  THIS PROGRAM HAS NEVER BEEN USED TO COMPLETELY CONVERT AN OLD-STYLE
           VAMX PACK OR A VAM2 PACK TO A NEW-STYLE PACK.  SEE (790/1).
0          Referenced by comments of: 790/7 
00790/006   VAMX CONVERSION          CATALOG CONV    OC  O          FILE:CONV.CAT(1,999)                                            
            5.0T3   804  VAMX_CONVERSION.CATALOG_C.OC.006   1 LINE     80    4 PAGE UM   HELFFRICH           JULY 03, 1981  19:57:53
            5.0T8   183                       
00790/007   VAMX CONVERSION          CATALOG CONV    SA  G          S1431 4.3T2 VLO FSNAME=VAMX_CONVERSION.CATALOG_C.SA.007(1)   284
            5.0T3   805  VAMX_CONVERSION.CATALOG_C.SA.007   1 LINE     72   10 PAGE UM   HELFFRICH           APR. 06, 1980  13:59:05
            5.0T8   184                       
0          SOURCE FOR THE VERSION OF THE PROGRAM USED BY UM TO CONVERT FROM V2 TO VX 
           FORMAT.  (790/5) WAS ADAPTED FROM THIS PROGRAM.  SEE (790/1) FOR DETAILS.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 790/5 
00791/001A  DEFAULT                                  SA  G          ALWB:DEFAULT.SA                                                 
            5.0T3   806  DEFAULT..SA.001                    1 LINE     96    3 PAGE UM   BODWIN              JULY 03, 1981  19:57:54
            5.0T8   185                       
0          ROUTINES PAGSLFT AND TIMELFT WHICH RETURN THE MTS PAGE AND TIME LIMITS, THE
           MINIMUM OF LOCAL AND GLOBAL, OR 0 IF NO LIMIT IS IN EFFECT. ASSEMBLE USING
           *SYSMAC.
0          Referenced by comments of: 528/2 
00791/002A  DEFAULT                                  OC  G          ALWB:DEFAULT.OA                                                 
            5.0T3   807  DEFAULT..OC.002                    1 LINE     80    1 PAGE UM   BODWIN              JULY 03, 1981  19:57:55
            5.0T8   186                       
00792/001A  PASCAL FILES             ERRORS          SW  G          S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.ERRORS                 
            5.0T3   808  PASCAL_FILES.ERRORS.SW.001         1 LINE     81   17 PAGE UM   UNSP                APR. 24, 1980  03:15:05
            5.0T8   187                       
0          THIS COMPONENT CONTAINS FILES FOR USE WITH THE VARIOUS PASCAL COMPILERS
           DISTRIBUTED BY MICHIGAN. SEE ALSO THE PASCAL VALIDATION SUITE (781) AND THE
           PASCAL COMPILERS: PASCAL/SB (782), PASCAL/UBC (1052), PASCAL/8000 (783), AND
           PASCAL/SLAC (793).
1                                                                                               MON AUG 05/96   18:37:45   Page  584
0  Num   R       Component Name         Subname     Type G Seq ID 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 SUBCOMPONENT CONTAINS SEVERAL PROGRAMS TO TEST A PASCAL COMPILER'S ERROR
           RECOVERY. SEE "PASCAL SYNTAX ERRORS DATA BASE" BY G. DAVID RIPLEY, APRIL 19,
           1979, AVAILABLE FROM:
            
                   PAUL PICKELMANN
                   COMPUTING CENTER
                   UNIVERSITY OF MICHIGAN
                   1075 BEAL AVE.
                   ANN ARBOR, MI 48109
00792/002A  PASCAL FILES             ERRORS          SW  O          W226:*HARDERRORS                                                
            5.0T3   809  PASCAL_FILES.ERRORS.SW.002         1 LINE     64    1 PAGE UM   UNSP                JULY 03, 1981  19:58:34
            5.0T8   188                       
0          MORE PROGRAMS TO TEST A PASCAL COMPILER'S ERROR RECOVERY. 
00792/003   PASCAL FILES             TEST            SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.PROGRAMS               
            5.0T3   810  PASCAL_FILES.TEST.SW.003           1 LINE     90   48 PAGE UM   UNSP                NOV. 22, 1979  05:40:15
            5.0T8   189                       
0          SEVERAL PASCAL PROGRAMS TO TEST PASCAL/SB.
0          Referenced by comments of: 782/1, 792/4, 792/5 
00792/004   PASCAL FILES             TEST            D   O          S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.DATA                   
            5.0T3   811  PASCAL_FILES.TEST.D.004            1 LINE     68    1 PAGE UM   UNSP                SEP. 13, 1979  01:58:42
            5.0T8   190                       
0          DATA FOR USE WITH (792/3).
0          Referenced by comments of: 782/1, 792/5 
00792/005   PASCAL FILES             TEST            C   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TEST                       
            5.0T3   812  PASCAL_FILES.TEST.C.005            1 LINE     48    3 PAGE UM   UNSP                FEB. 10, 1980  17:29:45
            5.0T8   191                       
0          SOURCE FILE TO TEST THE COMPILER. $CONTINUES WITH (792/3) AND (792/4).
0          Referenced by comments of: 782/1 
00792/006A  PASCAL FILES             PASCAL NEWS     P              UNSP:PASCAL.NEWS                                                
            5.0T3   813  PASCAL_FILES.PASCAL_NEWS.P.006     1 LINE     68   15 PAGE UM   UNSP                JULY 03, 1981  19:59:24
            5.0T8   192                       
0          THIS FILE CONTAINS INFORMATION ABOUT THE CHANGES TO ALL THE PASCAL COMPILERS
           AVAILABLE UNDER UNSP AT UM. CURRENTLY, THOSE COMPILERS INCLUDE PASCAL/UBC
           (1052), PASCAL/SB (782), PASCAL/8000 (783), AND PASCAL/SLAC (793). IT
           CONTAINS NO INFORMATION ABOUT THE GRENOBLE PASCAL (664).
0          Referenced by comments of: 782/1, 782/45, 783/1, 1052/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  585
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00793/001A  PASCAL/SLAC              WRITEUP         P              S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.W                        
            5.0T3   814  PASCAL/SLAC.WRITEUP.P.001          1 LINE     79   35 PAGE UM   UNSP                FEB. 10, 1980  18:09:49
            5.0T8   193                       
0          This is the Stanford Pascal compiler. Pascal/UBC (1052) was based on
           an earlier version of this, but they are totally different. The
           compiler is basically the P4 compiler. An assembler is provided
           which transforms Pcode into 360/370 assembler or object modules. The
           Pascal/SLAC system runs under *FAKEOS (545), but is not currently
           installed at UM. It came to UM by way of Curt Hill at the University
           of Nebraska.
            
           This compiler is copyrighted, but nonprofit use, modification and
           redistribution are spcifically allowed so long as the copyright
           notice is included and no fees are charged. S. Hazeghi of the
           Computation Research Group at the Stanford Linear Accelerator
           Center, Stanford, CA 94305 would like to be kept informed of any
           modifications to the compiler.
            
           This subcomponent is a writeup describing the installation and use
           of the Stanford Pascal compiler and associated programs.
0          Referenced by comments of: 792/1, 792/6 
00793/002A  PASCAL/SLAC              COMPILER        SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.COMPILER                 
            5.0T3   815  PASCAL/SLAC.COMPILER.SW.002        1 LINE     80   71 PAGE UM   UNSP                FEB. 10, 1980  18:01:17
            5.0T8   194                       
0          THIS IS THE SOURCE FOR THE STANFORD PASCAL COMPILER.  IT PRODUCES PCODE
           WHICH IS ASSEMBLED WITH THE PCODE ASSEMBLER (793/5).
00793/003A  PASCAL/SLAC              COMPILER        OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_COMPILER                 
            5.0T3   816  PASCAL/SLAC.COMPILER.OE.003        1 LINE  32767   21 PAGE UM   UNSP                FEB. 10, 1980  18:01:37
            5.0T8   195                       
00793/004A  PASCAL/SLAC              MESSAGES        M   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.MESSAGES                 
            5.0T3   817  PASCAL/SLAC.MESSAGES.M.004         1 LINE     67    3 PAGE UM   UNSP                FEB. 10, 1980  18:30:34
            5.0T8   196                       
0          THE TEXT OF THE SYSTEM ERROR MESSAGES USED BY THE COMPILER AND POSSIBLY BY
           OTHER PARTS OF THE SYSTEM.
00793/005A  PASCAL/SLAC              PCODE ASSMBLER  SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.ASMPCODE                 
            5.0T3   818  PASCAL/SLAC.PCODE_ASSMBLE.SW.005   1 LINE     80   49 PAGE UM   UNSP                FEB. 10, 1980  18:06:54
            5.0T8   197                       
0          THE PCODE ASSEMBLER.  HAS AN OPTION TO PRODUCE OBJECT MODULES OR 360/370 
           ASSEMBLER.
0          Referenced by comments of: 793/2, 793/7, 793/9, 793/10 
1                                                                                               MON AUG 05/96   18:37:45   Page  586
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00793/006A  PASCAL/SLAC              PCODE ASSMBLER  OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_ASMPCODE                 
            5.0T3   819  PASCAL/SLAC.PCODE_ASSMBLE.OE.006   1 LINE  32767   16 PAGE UM   UNSP                FEB. 10, 1980  18:07:24
            5.0T8   198                       
00793/007A  PASCAL/SLAC              MACLIB          SM  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.MACLIB                   
            5.0T3   820  PASCAL/SLAC.MACLIB.SM.007          1 LINE     65    1 PAGE UM   UNSP                FEB. 10, 1980  18:21:10
            5.0T8   199                       
0          MACROS NEEDED TO ASSEMBLE THE CODE PRODUCED BY THE PCODE ASSEMBLER
           (793/5).
00793/008A  PASCAL/SLAC              MONITOR         SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.MONITOR                  
            5.0T3   821  PASCAL/SLAC.MONITOR.SA.008         1 LINE     73   36 PAGE UM   UNSP                FEB. 10, 1980  18:04:06
            5.0T8   200                       
0          THE RUNTIME SUPPORT.  HAS A CONDITIONAL ASSEMBLY OPTION, &SYSTEM, WHICH
           PRODUCES A SMALLER VERSION USED WITH "SYSTEM" PROGRAMS (COMPILER, PROFILER,
           ETC.) BY ELIMINATING ERROR CHECKING, ETC.
            
           HAS A WEAK REFERENCE TO SNAPSHOT DUMP (793/11).
00793/009A  PASCAL/SLAC              MONITOR         OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_MONITOR                  
            5.0T3   822  PASCAL/SLAC.MONITOR.OE.009         1 LINE     80    5 PAGE UM   UNSP                FEB. 10, 1980  18:04:34
            5.0T8   201                       
0          OBJECT OF THE MONITOR (793/5), &SYSTEM=0.
00793/010A  PASCAL/SLAC              MONITOR         OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_MONITOR0                 
            5.0T3   823  PASCAL/SLAC.MONITOR.OE.010         1 LINE     80    5 PAGE UM   UNSP                FEB. 10, 1980  18:04:58
            5.0T8   202                       
0          SYSTEM OBJECT OF THE MONITOR (793/5), &SYSTEM=1.
00793/011A  PASCAL/SLAC              SNAPSHOT        SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.SNAPSHOT                 
            5.0T3   824  PASCAL/SLAC.SNAPSHOT.SW.011        1 LINE     80   10 PAGE UM   UNSP                FEB. 10, 1980  18:15:22
            5.0T8   203                       
0          THE SYMBOLIC DUMP PACKAGE.  IT MAY BE CALLED BY USER PROGRAMS, OR THE SYSTEM
           IN CASE OF A RUN ERROR.
0          Referenced by comments of: 793/8 
00793/012A  PASCAL/SLAC              SNAPSHOT        OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_SNAPSHOT                 
            5.0T3   825  PASCAL/SLAC.SNAPSHOT.OE.012        1 LINE     73    7 PAGE UM   UNSP                FEB. 10, 1980  18:15:39
            5.0T8   204                       
00793/013A  PASCAL/SLAC              PROFILE         SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.PROFILE                  
            5.0T3   826  PASCAL/SLAC.PROFILE.SW.013         1 LINE     80    5 PAGE UM   UNSP                FEB. 10, 1980  18:14:30
            5.0T8   205                       
0          THE PROFILER, WHEN USED WITH THE $F+ COMPILER OPTION, PRODUCES A LISTING
           OF THE PROGRAM WITH EXECUTION COUNTS FOR EACH STATEMENT.
1                                                                                               MON AUG 05/96   18:37:45   Page  587
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00793/014A  PASCAL/SLAC              PROFILE         OE  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_PROFILE                  
            5.0T3   827  PASCAL/SLAC.PROFILE.OE.014         1 LINE  13836    5 PAGE UM   UNSP                FEB. 10, 1980  18:14:59
            5.0T8   206                       
00793/015A  PASCAL/SLAC              TESTLIB         SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.TESTLIB                  
            5.0T3   828  PASCAL/SLAC.TESTLIB.SW.015         1 LINE     80  351 PAGE UM   UNSP                FEB. 10, 1980  18:45:20
            5.0T8   207                       
0          SEVERAL TEST AND UTILITY PROGRAMS WHICH COME WITH THE STANFORD PASCAL
           COMPILER.  SEVERAL OF THESE MAY BE USEFUL WITH OTHER PASCAL COMPILERS
           OR PERHAPS BY THEMSELVES.
00794/001A  SURVEY GENERATOR         COMPILER        SS  G          WSG:SURVEY.SS                                                   
            5.0T3   829  SURVEY_GENERATOR.COMPILER.SS.001   1 LINE    125    7 PAGE UM   WSG                 JULY 03, 1981  20:00:07
            5.0T8   208                       
0          The survey generator consists of a compiler, written in SPITBOL, which will
           compile a survey definition, written in a simple language, into assembly
           language source for a program which, when assembled and run with a run-time
           library, which is an interpreter, will conduct the specified survey
           interactively for a terminal user. The survey description language is
           described in comments at the beginning of the compiler source.
            
           The compiler reads the survey description on SCARDS and produces an assembly
           language program on SPUNCH. The assembly language program should then be
           assembled and the object run together with the run-time library (794/5).
0          Referenced by comments of: 794/3, 794/6 
00794/002A  SURVEY GENERATOR         SIZE150         SA  G          S0792 WSGFS FSNAME=SIZE150                                      
            5.0T3   830  SURVEY_GENERATOR.SIZE150.SA.002    1 LINE     80    1 PAGE UM   WSG                 AUG. 29, 1980  12:06:01
            5.0T8   209                       
0          Program to call a SPITBOL object module with PAR=SIZE=150. It avoids having
           to require the user of the survey generator compiler to specify PAR=SIZE=150
           when running the compiler. Source at lines 1,999; object at 1000.
0          Referenced by comments of: 794/3 
00794/003A  SURVEY GENERATOR         COMPILER        OE  G          WSG:SURVEY                                                      
            5.0T3   831  SURVEY_GENERATOR.COMPILER.OE.003   1 LINE  17468   20 PAGE UM   WSG                 JULY 03, 1981  20:01:05
            5.0T8   210  WSG:SURVEY           
0          Object for (794/2) and (794/1). Ends with a "$CONTINUE WITH *SPITLIB" line.
00794/004A  SURVEY GENERATOR         LIBRARY         SG  G          WSG:SURVEY.SG                                                   
            5.0T3   832  SURVEY_GENERATOR.LIBRARY.SG.004    1 LINE     96    7 PAGE UM   WSG                 JULY 03, 1981  20:01:06
            5.0T8   211                       
0          GOM source for the survey interpreter.
1                                                                                               MON AUG 05/96   18:37:45   Page  588
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00794/005A  SURVEY GENERATOR         LIBRARY         OE  G          WSG:SURVEY.LIB                                                  
            5.0T3   833  SURVEY_GENERATOR.LIBRARY.OE.005    1 LINE  12674    6 PAGE UM   WSG                 JULY 03, 1981  20:01:08
            5.0T8   212  WSG:SURVEY.LIB       
0          Run-time library, i.e., the interpreter.
0          Referenced by comments of: 794/1, 794/6 
00794/006A  SURVEY GENERATOR         UM SURV DES #1  S   G          S0792 WSGFS FSNAME=SURV80.S1                                    
            5.0T3   834  SURVEY_GENERATOR.UM_SURV.S.006     1 LINE     94    9 PAGE UM   WSG                 AUG. 29, 1980  12:36:16
            5.0T8   213                       
0          This file is an example of a fairly large survey description; it is the
           February 1980 General User Survey taken at UM. If you wish to try this
           survey, you should first change the file name on the OUTPUT statement which
           appears near the end of the survey description to the name of an appropriate
           file where the data record produced by running the survey may be written. You
           should then compile the description using (794/1), assemble the result of the
           compilation, and run the resulting assembly object together with (794/5).
0          Referenced by comments of: 794/7, 794/8 
00794/007A  SURVEY GENERATOR         UM SURV DES #2  S   G          S0792 WSGFS FSNAME=SURV80.S2                                    
            5.0T3   835  SURVEY_GENERATOR.UM_SURV.S.007     1 LINE     94    5 PAGE UM   WSG                 AUG. 29, 1980  12:37:01
            5.0T8   214                       
0          This survey description is for the same survey as (794/6), but it has much of
           the verbosity removed so that it can be easily used to enter responses from
           printed copies of the survey. To retain a unique identity to each written
           survey response, they were numbered as received and the number placed in the
           data record in the field used for the MTS user id in the online version. In
           this way, it was possible to go back to the written response later to verify
           that the data was entered correctly and to ensure that the same survey was
           not tabulated more than once. The responses to the printed surveys were
           entered by members of the secretarial staff.
00794/008A  SURVEY GENERATOR         UM SURV PRINT   WF             S0792 WSGFS FSNAME=SURV80.WF                                    
            5.0T3   836  SURVEY_GENERATOR.UM_SURV.WF.008    1 LINE     76    7 PAGE UM   WSG                 AUG. 29, 1980  12:37:28
            5.0T8   215                       
0          FORMAT source for the printed version of the same survey as (794/6).
00794/009A  SURVEY GENERATOR         UM SURV MIDAS   C              S0792 WSGFS FSNAME=SURV80.MIDAS                                 
            5.0T3   837  SURVEY_GENERATOR.UM_SURV.C.009     1 LINE     68    1 PAGE UM   WSG                 AUG. 29, 1980  12:38:19
            5.0T8   216                       
0          MTS and MIDAS commands to analyze the data from the 1980 UM General User
           Survey. It also runs the SURVEY.CVT program (794/10) to extract the MIDAS
           results and convert them to a FORMAT macro suitable for inclusion in a
           writeup describing the results of the survey.
1                                                                                               MON AUG 05/96   18:37:45   Page  589
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00794/010A  SURVEY GENERATOR         SURVEY.CVT PGM  SS             S0792 WSGFS FSNAME=SURVEY.CVT                                   
            5.0T3   838  SURVEY_GENERATOR.SURVEY.C.SS.010   1 LINE    128    1 PAGE UM   WSG                 AUG. 29, 1980  12:33:00
            5.0T8   217                       
0          SPITBOL program to scan through MIDAS output looking for specific numerical
           results and converting them into a FORMAT macro which can be included in
           a writeup describing the results of the analysis.
0          Referenced by comments of: 794/9 
00794/011A  SURVEY GENERATOR         UM SURV RESULT  WF             S0792 WSGFS FSNAME=SURV80.RESULTS.WF                            
            5.0T3   839  SURVEY_GENERATOR.UM_SURV.WF.011    1 LINE    109   10 PAGE UM   WSG                 AUG. 29, 1980  12:41:13
            5.0T8   218                       
0          FORMAT source for the results of the analysis of the UM 1980 General User
           Survey.
00795/001A  CANREPLY DUMMY                           SA  G          UNSP:CANREPLY(*F,0)                                             
            5.0T3   840  CANREPLY_DUMMY..SA.001             1 LINE     22    1 PAGE UM   UNSP                JULY 03, 1981  20:01:19
            5.0T8   219                       
0          THIS IS A DUMMY VERSION OF CANREPLY, DISTRIBUTED AS A PART OF MTS, THAT
           ALWAYS RETURNS FALSE. IT IS INTENDED FOR TESTING PROGRAMS WITH BATCH OPTIONS
           FROM A TERMINAL.
00795/002A  CANREPLY DUMMY                           O   G          UNSP:CANREPLY(1)                                                
            5.0T3   841  CANREPLY_DUMMY..O.002              1 LINE     80    1 PAGE UM   UNSP                JULY 03, 1981  20:01:20
            5.0T8   220                       
00795/003A  CANREPLY DUMMY                           WF             S1153 UNSP VLO FSNAME=CANREPLY.FMT                              
            5.0T3   842  CANREPLY_DUMMY..WF.003             1 LINE     67    1 PAGE UM   UNSP                SEP. 15, 1980  16:24:26
            5.0T8   221                       
00796/001A  ENCODE/DECODE            ENCODE          SA  G          S1153 UNSP VLO FSNAME=ENCODE.ASM                                
            5.0T3   843  ENCODE/DECODE.ENCODE.SA.001        1 LINE     70    4 PAGE UM   UNSP                SEP. 15, 1980  16:42:53
            5.0T8   222                       
0          THIS COMPONENT CONTAINS MODIFIED VERSIONS OF *ENCODE (543) AND *DECODE
           (541) FOR USE WITH REMOTE MINICOMPUTERS.
            
           THIS SUBCOMPONENT CONTAINS THE SOURCE FOR THE MODIFIED *ENCODE.
00796/002A  ENCODE/DECODE            ENCODE          OC  G          UNSP:ENCODE                                                     
            5.0T3   844  ENCODE/DECODE.ENCODE.OC.002        1 LINE   1040    1 PAGE UM   UNSP                JULY 03, 1981  20:01:28
            5.0T8   223                       
0          Contains a $CONTINUE WITH UNSP:LIBRARY (685/2) record.
0          Referenced by comments of: 796/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  590
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00796/003A  ENCODE/DECODE            ENCODE          P              UNSP:ENCODE.W                                                   
            5.0T3   845  ENCODE/DECODE.ENCODE.P.003         1 LINE     75    1 PAGE UM   UNSP                JULY 03, 1981  20:01:29
            5.0T8   224                       
0          A DESCRIPTION OF THE USE OF UNSP:ENCODE (796/2).
00796/004A  ENCODE/DECODE            DECODE          SA  G          S1153 UNSP VLO FSNAME=DECODE.ASM                                
            5.0T3   846  ENCODE/DECODE.DECODE.SA.004        1 LINE     77    3 PAGE UM   UNSP                SEP. 15, 1980  16:42:44
            5.0T8   225                       
0          THIS SUBCOMPONENT CONTAINS THE SOURCE FOR THE MODIFIED *DECODE (541).
00796/005A  ENCODE/DECODE            DECODE          OC  G          UNSP:DECODE                                                     
            5.0T3   847  ENCODE/DECODE.DECODE.OC.005        1 LINE    664    1 PAGE UM   UNSP                JULY 03, 1981  20:01:30
            5.0T8   226                       
0          Contains a $CONTINUE WITH UNSP:LIBRARY (685/2) record.
0          Referenced by comments of: 796/6 
00796/006A  ENCODE/DECODE            DECODE          P   G          UNSP:DECODE.W                                                   
            5.0T3   848  ENCODE/DECODE.DECODE.P.006         1 LINE     75    1 PAGE UM   UNSP                JULY 03, 1981  20:01:31
            5.0T8   227                       
0          A DESCRIPTION OF THE USE OF UNSP:DECODE (796/5).
00796/007A  ENCODE/DECODE            NOTE            P   G          UNSP:ENCODE/DE.W                                                
            5.0T3   849  ENCODE/DECODE.NOTE.P.007           1 LINE     71    3 PAGE UM   UNSP                JULY 03, 1981  20:01:32
            5.0T8   228                       
0          A NOTE DESCRIBING THE USE OF ENCODE AND DECODE AT UM'S SPACE PHYSICS
           RESEARCH LAB.
00797/001A  TRANSLATION ROUTINES                     SA  G          S1153 UNSP VLO FSNAME=TRANSLATE.ASM                             
            5.0T3   850  TRANSLATION_ROUTINES..SA.001       1 LINE     68    1 PAGE UM   UNSP                MAY  22, 1981  07:53:37
            5.0T8   229                       
0          SUBROUTINES FOR USE FROM FORTRAN AND PASCAL WHICH TRANSLATE BUFFERS USING THE
           STANDARD TRANSLATION TABLES CASECONV, ASCEBC, AND EBCASC.
00797/002A  TRANSLATION ROUTINES                     OC  G        # (PART OF UNSP:LIBRARY)                                          
                                                                                    UM   UNSP                                       
0          Part of UNSP:LIBRARY (685/2).
00797/003A  TRANSLATION ROUTINES                     P              UNSP:TRANSLATE.W                                                
            5.0T3   851  TRANSLATION_ROUTINES..P.003        1 LINE     67    1 PAGE UM   UNSP                JULY 03, 1981  20:01:40
            5.0T8   230                       
00798/001A  MESSAGE SYSTEM           INSTALL NOTES   WF  G          MAIL:DIST.NOTES                                                 
            5.0T4   427  MESSAGE_SYSTEM.INSTALL_NO.WF.001   1 LINE     77    3 PAGE UM   STERKEN             AUG. 09, 1981  23:50:58
            5.0T11    1                       
0          This is the official version of $MESSAGESYSTEM. It is now fully supported and
1                                                                                               MON AUG 05/96   18:37:45   Page  591
0  Num   R       Component Name         Subname     Type G Seq ID 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          may be released to users. The MESSAGESYSTEM requires *USERDIRECTORY (821).
            
           It will make it much easier to install the MESSAGESYSTEM if the CCID "MAIL"
           is created. Subcomponents of the MESSAGESYSTEM should be restored to the file
           names used on this distribution.
            
           This subcomponent contains installation notes for $MESSAGESYSTEM.
0          Referenced by comments of: 559/1, 659/18, 798/9 
00798/002A  MESSAGE SYSTEM           CHANGES         WF  G          MAIL:DIST.CHANGES                                               
            5.0T4   428  MESSAGE_SYSTEM.CHANGES.WF.002      1 LINE     56    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:00
            5.0T11    2                       
0          Log of $MESSAGESYSTEM changes since the last distribution. (No changes yet.)
00798/003A  MESSAGE SYSTEM           *CLSMESSAGESYS  OE  G          *CLSMESSAGESYS                                                  
            5.0T4   429  MESSAGE_SYSTEM.?CLSMESSAG.OE.003   1 LINE  11920   33 PAGE UM   STERKEN             AUG. 09, 1981  23:51:01
            5.0T11    3  *CLSMESSAGESYS       
0          The MESSAGESYSTEM CLS object module. This file is loaded into shared VM by
           PISTLE (559). Should be permitted U/R, U MAIL. Contains $CONTINUE WITHS to
           *MESSSUBS (798/4) and SEG2:TIME (360).
0          Referenced by comments of: 798/4, 798/16, 798/21, 798/41 
00798/004C  MESSAGE SYSTEM           *MESSSUBS       OE  G          *MESSSUBS                                                       
            5.0T4   430  MESSAGE_SYSTEM.?MESSSUBS.OE.004    1 LINE  32767   37 PAGE UM   STERKEN             AUG. 09, 1981  23:51:04
            5.0T11    4  *MESSSUBS            
0          MESSAGESYSTEM Subroutine Interface object module. This file is loaded into
           shared VM by PISTLE (559). Should be permitted U/R, U MAIL. *MESSSUBS should
           be loaded before *CLSMESSAGESYS (798/3) by PISTLE (559). Contains a $CONTINUE
           WITH *LIBRARY (524/1) record.
0          Referenced by comments of: 798/3, 798/16, 798/21, 798/39, 798/41 
00798/005A  MESSAGE SYSTEM           MSG CLS         OE  G          MAIL:MESSCLS                                                    
            5.0T4   431  MESSAGE_SYSTEM.MSG_CLS.OE.005      1 LINE  11920   33 PAGE UM   STERKEN             AUG. 09, 1981  23:51:06
            5.0T11    5  MAIL:MESSCLS         
0          A complete set of $MESSAGESYSTEM CLS object modules. (798/10) and (798/11)
           are command files which may be used to compile this component. (798/17) is a
           command file for linkediting it.
0          Referenced by comments of: 798/16, 798/17 
00798/006A  MESSAGE SYSTEM           SUBR INTERFACE  OE  G          MAIL:MESSSUB                                                    
            5.0T4   432  MESSAGE_SYSTEM.SUBR_INTER.OE.006   1 LINE   8231   46 PAGE UM   STERKEN             AUG. 09, 1981  23:51:08
            5.0T11    6  MAIL:MESSSUB         
0          A complete set of $MESSAGESYSTEM subroutine interface object modules.
           (798/12) and (798/13) are command files which may be used to compile this
           subcomponent. (798/18) is a command file for linkediting it.
1                                                                                               MON AUG 05/96   18:37:45   Page  592
0  Num   R       Component Name         Subname     Type G Seq ID 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: 798/16, 798/18 
00798/007C  MESSAGE SYSTEM           *MSGUTIL        OE  G          *MSGUTIL                                                        
            5.0T4   433  MESSAGE_SYSTEM.?MSGUTIL.OE.007     1 LINE  32767   47 PAGE UM   STERKEN             AUG. 09, 1981  23:51:11
            5.0T11    7  *MSGUTIL             
0          Public file version of MSGUTIL (798/8). Loaded by (798/19). This file should
           be permitted U/N, R (PKEY=*MTS.RUN, PKEY=*MTS.FILESTA), with PKEY=*MSGUTIL.
0          Referenced by comments of: 798/14, 798/15, 798/19, 798/20, 798/23, 798/75, 798/77, 798/79, 798/81, 798/95 
00798/008A  MESSAGE SYSTEM           MSGUTIL         OE  G          MAIL:MSGUTIL                                                    
            5.0T4   434  MESSAGE_SYSTEM.MSGUTIL.OE.008      1 LINE  14015   56 PAGE UM   STERKEN             AUG. 09, 1981  23:51:14
            5.0T11    8  MAIL:MSGUTIL         
0          Linkeditted object of the $MESSAGESYSTEM utilities. (798/14) and (798/15) are
           command files which may be used to compile/assemble these components.
           (798/20) is a command file for linkeditting it.
0          Referenced by comments of: 798/7 
00798/009A  MESSAGE SYSTEM           *MESSAGES       D   G        # MTS.:TST.MESSAGES                                               
                                                                                    UM   STERKEN                                    
                         MAIL:*MESSAGES       
0          This is the default system message file, which is not distributed.  The 
           distribution notes (798/1) contain instructions for setting up this
           message file.  It should be permitted U/N, RW (PKEY=*SYS.MESSAGE).
0          Referenced by comments of: 798/107 
00798/010A  MESSAGE SYSTEM           CLS COMPILE     C   G          MAIL:CLS.COMPILE                                                
            5.0T4   435  MESSAGE_SYSTEM.CLS_COMPIL.C.010    1 LINE    128    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:18
            5.0T11    9                       
0          A command file to be $SOURCEd to for compiling all the CLS components.
           Listings are sent to *PRINT*.
0          Referenced by comments of: 798/5 
00798/011A  MESSAGE SYSTEM           CLS COMPILE     C   G          MAIL:CLS.XCOMPILE                                               
            5.0T4   436  MESSAGE_SYSTEM.CLS_COMPIL.C.011    1 LINE    128    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:19
            5.0T11   10                       
0          A command file to be $SOURCEd to for compiling all the CLS components.
           No listings are sent to *PRINT*.
0          Referenced by comments of: 798/5 
00798/012A  MESSAGE SYSTEM           SUBR COMPILE    C   G          MAIL:SUB.COMPILE                                                
            5.0T4   437  MESSAGE_SYSTEM.SUBR_COMPI.C.012    1 LINE    128    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:19
            5.0T11   11                       
0          A command file to be $SOURCEd to for compiling all the MSG subroutine 
1                                                                                               MON AUG 05/96   18:37:45   Page  593
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          components. Listings are sent to *PRINT*.
0          Referenced by comments of: 798/6 
00798/013A  MESSAGE SYSTEM           SUBR COMPILE    C   G          MAIL:SUB.XCOMPILE                                               
            5.0T4   438  MESSAGE_SYSTEM.SUBR_COMPI.C.013    1 LINE    128    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:20
            5.0T11   12                       
0          A command file to be $SOURCEd to for compiling all the MSG subroutine 
           components. No listings are sent to *PRINT*.
0          Referenced by comments of: 798/6 
00798/014A  MESSAGE SYSTEM           UTIL COMPILE    C   G          MAIL:UTIL.COMPILE                                               
            5.0T4   439  MESSAGE_SYSTEM.UTIL_COMPI.C.014    1 LINE    153    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:21
            5.0T11   13                       
0          A command file to be $SOURCEd to for compiling all the *MSGUTIL (798/7) components.
           Listings are sent to *PRINT*.
0          Referenced by comments of: 798/8 
00798/015A  MESSAGE SYSTEM           UTIL COMPILE    D   G          MAIL:UTIL.XCOMPILE                                              
            5.0T4   440  MESSAGE_SYSTEM.UTIL_COMPI.D.015    1 LINE    153    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:22
            5.0T11   14                       
0          A command file to be $SOURCEd to for compiling all the *MSGUTIL (798/7) components.
           No listings are sent to *PRINT*.
0          Referenced by comments of: 798/8 
00798/016A  MESSAGE SYSTEM           LOAD SEG2       C   G          MAIL:SO.LOADSEG2                                                
            5.0T4   441  MESSAGE_SYSTEM.LOAD_SEG2.C.016     1 LINE     66    2 PAGE UM   STERKEN             AUG. 09, 1981  23:51:23
            5.0T11   15                       
0          A command file to be $SOURCEd to for loading a new $MESSAGESYSTEM in shared
           memory. (798/3) and (798/4) are updated. It is assumed that (798/5) and
           (798/6) are already set up.
0          Referenced by comments of: 798/39 
00798/017A  MESSAGE SYSTEM           LINK CLS        C   G          MAIL:SO.LINKCLS                                                 
            5.0T4   442  MESSAGE_SYSTEM.LINK_CLS.C.017      1 LINE     91    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:24
            5.0T11   16                       
0          A command file to be $SOURCEd to for linkediting all the CLS components. The
           linkedited deck is placed in (798/5).
0          Referenced by comments of: 798/5 
1                                                                                               MON AUG 05/96   18:37:45   Page  594
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/018A  MESSAGE SYSTEM           LINK SUBR       C   G          MAIL:SO.LINKSUB                                                 
            5.0T4   443  MESSAGE_SYSTEM.LINK_SUBR.C.018     1 LINE    104    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:25
            5.0T11   17                       
0          A command file to be $SOURCEd to for linkediting all the MSG subroutine
           subcomponents. The linkedited deck is placed in (798/6).
0          Referenced by comments of: 798/6 
00798/019C  MESSAGE SYSTEM           LOAD SUBR       C   G          MAIL:SO.LOADUTIL                                                
            5.0T4   444  MESSAGE_SYSTEM.LOAD_SUBR.C.019     1 LINE     55    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:26
            5.0T11   18                       
0          A command file to be $SOURCEd to for installing a new version of 
           *MSGUTIL (798/7) in the file *MSGUTIL.
0          Referenced by comments of: 798/7 
00798/020A  MESSAGE SYSTEM           LINK UTIL       C   G          MAIL:SO.LINKUTIL                                                
            5.0T4   445  MESSAGE_SYSTEM.LINK_UTIL.C.020     1 LINE    102    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:26
            5.0T11   19                       
0          A command file to be $SOURCEd to for linkediting all the *MSGUTIL components.
           The linkedited deck is placed in *MSGUTIL (798/7).
0          Referenced by comments of: 798/8 
00798/021A  MESSAGE SYSTEM           TEST CLS        C   G          MAIL:SO.CLSTEST                                                 
            5.0T4   446  MESSAGE_SYSTEM.TEST_CLS.C.021      1 LINE     42    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:27
            5.0T11   20                       
0          This is a command file to be $SOURCEd to for $DEBUGging a test version of the
           complete MESSAGESYSTEM: CLS, *CLSMESSAGESYS (798/3), and subroutines,
           *MESSSUBS (798/4).
00798/022C  MESSAGE SYSTEM           TEST CLS        C   G          MAIL:SO.CLSTEST2                                                
            5.0T4   447  MESSAGE_SYSTEM.TEST_CLS.C.022      1 LINE    113    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:28
            5.0T11   21                       
0          A command file to be $SOURCEd to for $DEBUGging just the CLS (using the 
           resident message subroutines).
00798/023A  MESSAGE SYSTEM           TEST UTIL       C   G          MAIL:SO.UTILTEST                                                
            5.0T4   448  MESSAGE_SYSTEM.TEST_UTIL.C.023     1 LINE    133    1 PAGE UM   STERKEN             AUG. 09, 1981  23:51:29
            5.0T11   22                       
0          A command file to be $SOURCEd to for $DEBUGging a test version of *MSGUTIL
           (798/7).
00798/024A  MESSAGE SYSTEM           LIST            C   G          MAIL:SO.FILELIST                                                
            5.0T4   449  MESSAGE_SYSTEM.LIST.C.024          1 LINE    153    3 PAGE UM   STERKEN             AUG. 09, 1981  23:51:31
            5.0T11   23                       
0          A command file to be $SOURCEd to for printing source listings of 
1                                                                                               MON AUG 05/96   18:37:45   Page  595
0  Num   R       Component Name         Subname     Type G Seq ID 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          all of the source components of the MESSAGESYSTEM.
00798/025A  MESSAGE SYSTEM           MAIN            SG  G          MAIL:CLS.MAIN.S                                                 
            5.0T4   450  MESSAGE_SYSTEM.MAIN.SG.025         1 LINE    108   16 PAGE UM   STERKEN             AUG. 09, 1981  23:51:31
            5.0T11   24                       
0          This is the main program for the $MESSAGESYSTEM CLS.
00798/026A  MESSAGE SYSTEM           MAIN            OC  G          MAIL:CLS.MAIN.O                                                 
            5.0T4   451  MESSAGE_SYSTEM.MAIN.OC.026         1 LINE   3616   27 PAGE UM   STERKEN             AUG. 09, 1981  23:52:06
            5.0T11   25                       
00798/027A  MESSAGE SYSTEM           CLS CMDS        SG  G          MAIL:CLS.CMDS.S                                                 
            5.0T4   452  MESSAGE_SYSTEM.CLS_CMDS.SG.027     1 LINE    220   34 PAGE UM   STERKEN             AUG. 09, 1981  23:52:10
            5.0T11   26                       
0          The CLS commands.
00798/028A  MESSAGE SYSTEM           CLS CMDS        OC  G          MAIL:CLS.CMDS.O                                                 
            5.0T4   453  MESSAGE_SYSTEM.CLS_CMDS.OC.028     1 LINE  11920   51 PAGE UM   STERKEN             AUG. 09, 1981  23:53:32
            5.0T11   27                       
00798/029A  MESSAGE SYSTEM           CLS UTIL        SG  G          MAIL:CLS.UTIL.S                                                 
            5.0T4   454  MESSAGE_SYSTEM.CLS_UTIL.SG.029     1 LINE    156   53 PAGE UM   STERKEN             AUG. 09, 1981  23:53:35
            5.0T11   28                       
0          Miscellaneous utility routines used throughout the CLS.
00798/030A  MESSAGE SYSTEM           CLS UTIL        OC  G          MAIL:CLS.UTIL.O                                                 
            5.0T4   455  MESSAGE_SYSTEM.CLS_UTIL.OC.030     1 LINE  11339   90 PAGE UM   STERKEN             AUG. 09, 1981  23:55:13
            5.0T11   29                       
00798/031A  MESSAGE SYSTEM           CLS KWS XFACE   SA  G          MAIL:CLS.KWS.S                                                  
            5.0T4   456  MESSAGE_SYSTEM.CLS_KWS_XF.SA.031   1 LINE    127   30 PAGE UM   STERKEN             AUG. 09, 1981  23:55:19
            5.0T11   30                       
0          Interface to KWSCAN (040) for CLS commands. Assemble with the MESSAGESYSTEM
           macros (798/105) and COPY:MTS.MACROS (344/3), with
           PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for
           assembly.
00798/032A  MESSAGE SYSTEM           CLS KWS XFACE   OC  G          MAIL:CLS.KWS.O                                                  
            5.0T4   457  MESSAGE_SYSTEM.CLS_KWS_XF.OC.032   1 LINE    684   17 PAGE UM   STERKEN             AUG. 09, 1981  23:55:32
            5.0T11   31                       
00798/033A  MESSAGE SYSTEM           CLS ASMB RTNS   SA  G          MAIL:CLS.ASM.S                                                  
            5.0T4   458  MESSAGE_SYSTEM.CLS_ASMB_R.SA.033   1 LINE    127    4 PAGE UM   STERKEN             AUG. 09, 1981  23:55:34
            5.0T11   32                       
0          Miscellaneous assembly routines used by the CLS. Assemble with the
           MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with
           PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for
           assembly.
1                                                                                               MON AUG 05/96   18:37:45   Page  596
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/034A  MESSAGE SYSTEM           CLS ASMB RTNS   OC  G          MAIL:CLS.ASM.O                                                  
            5.0T4   459  MESSAGE_SYSTEM.CLS_ASMB_R.OC.034   1 LINE    256    3 PAGE UM   STERKEN             AUG. 09, 1981  23:55:35
            5.0T11   33                       
00798/035A  MESSAGE SYSTEM           CLS DRIVER      SG  G          MAIL:CLSDRIVER.S                                                
            5.0T4   460  MESSAGE_SYSTEM.CLS_DRIVER.SG.035   1 LINE    102    1 PAGE UM   STERKEN             AUG. 09, 1981  23:55:36
            5.0T11   34                       
0          Used for $DEBUGging $MESSAGESYSTEM.  Fakes CLS environment.
00798/036A  MESSAGE SYSTEM           CLS DRIVER      OC  G          MAIL:CLSDRIVER.O                                                
            5.0T4   461  MESSAGE_SYSTEM.CLS_DRIVER.OC.036   1 LINE     80    2 PAGE UM   STERKEN             AUG. 09, 1981  23:55:37
            5.0T11   35                       
00798/037A  MESSAGE SYSTEM           ENTRY           SA  G          MAIL:CLSINTF.S                                                  
            5.0T4   462  MESSAGE_SYSTEM.ENTRY.SA.037        1 LINE     98    3 PAGE UM   STERKEN             AUG. 09, 1981  23:55:38
            5.0T11   36                       
0          The "real" entry point to $MESSAGESYSTEM. Sets up the stack environment 
           for GOM (659).
00798/038A  MESSAGE SYSTEM           ENTRY           OC  G          MAIL:CLSINTF.O                                                  
            5.0T4   463  MESSAGE_SYSTEM.ENTRY.OC.038        1 LINE     80    2 PAGE UM   STERKEN             AUG. 09, 1981  23:55:39
            5.0T11   37                       
00798/039C  MESSAGE SYSTEM           MSGSUB TV       SA  G          MAIL:MESSSUBS.S                                                 
            5.0T4   464  MESSAGE_SYSTEM.MSGSUB_TV.SA.039    1 LINE     75    1 PAGE UM   STERKEN             AUG. 09, 1981  23:55:40
            5.0T11   38                       
0          Transfer vector placed at the front of *MESSSUBS (798/4) by (798/16). This is
           the entry point to *MESSSUBS. It allows MTS to find all of the subroutines
           with one call during $SIGNON processing.
00798/040C  MESSAGE SYSTEM           MSGSUB TV       OC  G          MAIL:MESSSUBS.O                                                 
            5.0T4   465  MESSAGE_SYSTEM.MSGSUB_TV.OC.040    1 LINE     80    1 PAGE UM   STERKEN             AUG. 09, 1981  23:55:41
            5.0T11   39                       
00798/041C  MESSAGE SYSTEM           MSGLCS          SA  G          MAIL:MESSLCS.S                                                  
            5.0T4   466  MESSAGE_SYSTEM.MSGLCS.SA.041       1 LINE     60    1 PAGE UM   STERKEN             AUG. 09, 1981  23:55:42
            5.0T11   40                       
0          Low-core symbol table included in *MESSSUBS (798/4). Contains entries to
           locate common subroutines needed by both the CLS, *CLSMESSAGESYS (798/3), and
           the subroutines, *MESSSUBS (798/4).
00798/042C  MESSAGE SYSTEM           MSGLCS          OC  G          MAIL:MESSLCS.O                                                  
            5.0T4   467  MESSAGE_SYSTEM.MSGLCS.OC.042       1 LINE     80    1 PAGE UM   STERKEN             AUG. 09, 1981  23:55:43
            5.0T11   41                       
00798/043A  MESSAGE SYSTEM           MSGOPEN         SG  G          MAIL:MSGOPEN.S                                                  
            5.0T4   468  MESSAGE_SYSTEM.MSGOPEN.SG.043      1 LINE    105    2 PAGE UM   STERKEN             AUG. 09, 1981  23:55:43
            5.0T11   42                       
0          The MSGOPEN subroutine.
1                                                                                               MON AUG 05/96   18:37:45   Page  597
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/044A  MESSAGE SYSTEM           MSGOPEN         OC  G          MAIL:MSGOPEN.O                                                  
            5.0T4   469  MESSAGE_SYSTEM.MSGOPEN.OC.044      1 LINE     80    4 PAGE UM   STERKEN             AUG. 09, 1981  23:55:44
            5.0T11   43                       
00798/045A  MESSAGE SYSTEM           MSGCTL          SG  G          MAIL:MSGCTL.S                                                   
            5.0T4   470  MESSAGE_SYSTEM.MSGCTL.SG.045       1 LINE    136   40 PAGE UM   STERKEN             AUG. 09, 1981  23:55:45
            5.0T11   44                       
0          The MSGCTL subroutine.
00798/046A  MESSAGE SYSTEM           MSGCTL          OC  G          MAIL:MSGCTL.O                                                   
            5.0T4   471  MESSAGE_SYSTEM.MSGCTL.OC.046       1 LINE   8047   63 PAGE UM   STERKEN             AUG. 09, 1981  23:57:25
            5.0T11   45                       
00798/047A  MESSAGE SYSTEM           MSGINF          SG  G          MAIL:MSGINF.S                                                   
            5.0T4   472  MESSAGE_SYSTEM.MSGINF.SG.047       1 LINE    114   13 PAGE UM   STERKEN             AUG. 09, 1981  23:57:34
            5.0T11   46                       
0          The MSGINF subroutine.
0          Referenced by comments of: 798/106 
00798/048A  MESSAGE SYSTEM           MSGINF          OC  G          MAIL:MSGINF.O                                                   
            5.0T4   473  MESSAGE_SYSTEM.MSGINF.OC.048       1 LINE     80   16 PAGE UM   STERKEN             AUG. 09, 1981  23:57:55
            5.0T11   47                       
00798/049A  MESSAGE SYSTEM           MSGGET          SG  G          MAIL:MSGGET.S                                                   
            5.0T4   474  MESSAGE_SYSTEM.MSGGET.SG.049       1 LINE    107    3 PAGE UM   STERKEN             AUG. 09, 1981  23:57:57
            5.0T11   48                       
0          The MSGGET subroutine.
00798/050A  MESSAGE SYSTEM           MSGGET          OC  G          MAIL:MSGGET.O                                                   
            5.0T4   475  MESSAGE_SYSTEM.MSGGET.OC.050       1 LINE     80    5 PAGE UM   STERKEN             AUG. 09, 1981  23:57:58
            5.0T11   49                       
00798/051A  MESSAGE SYSTEM           MSGPUT          SG  G          MAIL:MSGPUT.S                                                   
            5.0T4   476  MESSAGE_SYSTEM.MSGPUT.SG.051       1 LINE    107    3 PAGE UM   STERKEN             AUG. 09, 1981  23:57:59
            5.0T11   50                       
0          The MSGPUT subroutine.
00798/052A  MESSAGE SYSTEM           MSGPUT          OC  G          MAIL:MSGPUT.O                                                   
            5.0T4   477  MESSAGE_SYSTEM.MSGPUT.OC.052       1 LINE     80    6 PAGE UM   STERKEN             AUG. 09, 1981  23:58:00
            5.0T11   51                       
00798/053A  MESSAGE SYSTEM           MSGGUI          SG  G          MAIL:MSGGUI.S                                                   
            5.0T4   478  MESSAGE_SYSTEM.MSGGUI.SG.053       1 LINE     97    2 PAGE UM   STERKEN             AUG. 09, 1981  23:58:01
            5.0T11   52                       
0          The MSGGUI subroutine.
1                                                                                               MON AUG 05/96   18:37:45   Page  598
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/054A  MESSAGE SYSTEM           MSGGUI          OC  G          MAIL:MSGGUI.O                                                   
            5.0T4   479  MESSAGE_SYSTEM.MSGGUI.OC.054       1 LINE     80    4 PAGE UM   STERKEN             AUG. 09, 1981  23:58:02
            5.0T11   53                       
00798/055A  MESSAGE SYSTEM           MSGCUI          SG  G          MAIL:MSGCUI.S                                                   
            5.0T4   480  MESSAGE_SYSTEM.MSGCUI.SG.055       1 LINE     97    2 PAGE UM   STERKEN             AUG. 09, 1981  23:58:03
            5.0T11   54                       
0          The MSGCUI subroutine.
00798/056A  MESSAGE SYSTEM           MSGCUI          OC  G          MAIL:MSGCUI.O                                                   
            5.0T4   481  MESSAGE_SYSTEM.MSGCUI.OC.056       1 LINE     80    4 PAGE UM   STERKEN             AUG. 09, 1981  23:58:04
            5.0T11   55                       
00798/057A  MESSAGE SYSTEM           MSGRCV          SG  G          MAIL:MSGRCV.S                                                   
            5.0T4   482  MESSAGE_SYSTEM.MSGRCV.SG.057       1 LINE     34    1 PAGE UM   STERKEN             AUG. 09, 1981  23:58:04
            5.0T11   56                       
0          The MSGRCV subroutine (not written yet).
00798/058A  MESSAGE SYSTEM           MSGRCV          OC  G          MAIL:MSGRCV.O                                                   
            5.0T4   483  MESSAGE_SYSTEM.MSGRCV.OC.058       1 LINE     34    1 PAGE UM   STERKEN             AUG. 09, 1981  23:58:05
            5.0T11   57                       
00798/059A  MESSAGE SYSTEM           MSGSND          SG  G          MAIL:MSGSND.S                                                   
            5.0T4   484  MESSAGE_SYSTEM.MSGSND.SG.059       1 LINE     34    1 PAGE UM   STERKEN             AUG. 09, 1981  23:58:06
            5.0T11   58                       
0          The MSGSND subroutine (not written yet).
00798/060A  MESSAGE SYSTEM           MSGSND          OC  G          MAIL:MSGSND.O                                                   
            5.0T4   485  MESSAGE_SYSTEM.MSGSND.OC.060       1 LINE     34    1 PAGE UM   STERKEN             AUG. 09, 1981  23:58:07
            5.0T11   59                       
00798/061A  MESSAGE SYSTEM           MSGDSP          SG  G          MAIL:MSGDSP.S                                                   
            5.0T4   486  MESSAGE_SYSTEM.MSGDSP.SG.061       1 LINE     34    1 PAGE UM   STERKEN             AUG. 09, 1981  23:58:08
            5.0T11   60                       
0          The MSGDSP subroutine (not written yet).
00798/062A  MESSAGE SYSTEM           MSGDSP          OC  G          MAIL:MSGDSP.O                                                   
            5.0T4   487  MESSAGE_SYSTEM.MSGDSP.OC.062       1 LINE     34    1 PAGE UM   STERKEN             AUG. 09, 1981  23:58:09
            5.0T11   61                       
00798/063A  MESSAGE SYSTEM           SUBR UTILS      SG  G          MAIL:SUB.UTIL.S                                                 
            5.0T4   488  MESSAGE_SYSTEM.SUBR_UTILS.SG.063   1 LINE    171   56 PAGE UM   STERKEN             AUG. 09, 1981  23:58:10
            5.0T11   62                       
0          Miscellaneous utility routines used by the MSG subroutines.
1                                                                                               MON AUG 05/96   18:37:45   Page  599
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/064A  MESSAGE SYSTEM           SUBR UTILS      OC  G          MAIL:SUB.UTIL.O                                                 
            5.0T4   489  MESSAGE_SYSTEM.SUBR_UTILS.OC.064   1 LINE   4076  132 PAGE UM   STERKEN             AUG. 09, 1981  23:59:18
            5.0T11   63                       
00798/065A  MESSAGE SYSTEM           SUB KWS XFACE   SA  G          MAIL:SUB.KWS.S                                                  
            5.0T4   490  MESSAGE_SYSTEM.SUB_KWS_XF.SA.065   1 LINE    127   22 PAGE UM   STERKEN             AUG. 09, 1981  23:59:31
            5.0T11   64                       
0          Interface to KWSCAN (040) for the MSG subroutines. Assemble with the
           MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with
           PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for
           assembly.
00798/066A  MESSAGE SYSTEM           SUB KWS XFACE   OC  G          MAIL:SUB.KWS.O                                                  
            5.0T4   491  MESSAGE_SYSTEM.SUB_KWS_XF.OC.066   1 LINE   1772    9 PAGE UM   STERKEN             AUG. 10, 1981  00:00:15
            5.0T11   65                       
00798/067A  MESSAGE SYSTEM           SUB ASMB RTNS   SA  G          MAIL:SUB.ASM.S                                                  
            5.0T4   492  MESSAGE_SYSTEM.SUB_ASMB_R.SA.067   1 LINE    127   18 PAGE UM   STERKEN             AUG. 10, 1981  00:00:17
            5.0T11   66                       
0          Miscellaneous assembly routines used by the MSG subroutines. The "real" entry
           points for all the MSG subroutines, little adaptor routines that set up the
           stack environment, are in the file. Assemble with the MESSAGESYSTEM macros
           (798/105) and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT,BATCH,TEST.
           Contains commands beginning at line 0 for assembly. Copies COPY:GLOBALS
           (1026/3) and COPY:LLMPSEQU (087).
00798/068A  MESSAGE SYSTEM           SUB ASMB RTNS   OC  G          MAIL:SUB.ASM.O                                                  
            5.0T4   493  MESSAGE_SYSTEM.SUB_ASMB_R.OC.068   1 LINE   1135    8 PAGE UM   STERKEN             AUG. 10, 1981  00:00:22
            5.0T11   67                       
00798/069A  MESSAGE SYSTEM           LIST MNGMNT     SG  G          MAIL:LISTMNGMNT.S                                               
            5.0T4   494  MESSAGE_SYSTEM.LIST_MNGMN.SG.069   1 LINE    125   13 PAGE UM   STERKEN             AUG. 10, 1981  00:00:23
            5.0T11   68                       
0          Miscellaneous list management routines used by the MSG subroutines.
00798/070A  MESSAGE SYSTEM           LIST MNGMNT     O   G          MAIL:LISTMNGMNT.O                                               
            5.0T4   495  MESSAGE_SYSTEM.LIST_MNGMN.O.070    1 LINE     80   26 PAGE UM   STERKEN             AUG. 10, 1981  00:00:41
            5.0T11   69                       
00798/071A  MESSAGE SYSTEM           COMMON UTIL     SG  G          MAIL:COM.UTIL.S                                                 
            5.0T4   496  MESSAGE_SYSTEM.COMMON_UTI.SG.071   1 LINE    198   17 PAGE UM   STERKEN             AUG. 10, 1981  00:00:44
            5.0T11   70                       
0          Miscellaneous utility routines used by both the CLS and the MSG subroutines.
00798/072A  MESSAGE SYSTEM           COMMON UTIL     OC  G          MAIL:COM.UTIL.O                                                 
            5.0T4   497  MESSAGE_SYSTEM.COMMON_UTI.OC.072   1 LINE   1772   28 PAGE UM   STERKEN             AUG. 10, 1981  00:01:01
            5.0T11   71                       
1                                                                                               MON AUG 05/96   18:37:45   Page  600
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/073A  MESSAGE SYSTEM           COMMON ASMB     SA  G          MAIL:COM.ASM.S                                                  
            5.0T4   498  MESSAGE_SYSTEM.COMMON_ASM.SA.073   1 LINE    127   11 PAGE UM   STERKEN             AUG. 10, 1981  00:01:03
            5.0T11   72                       
0          Miscellaneous assembly routines used by both the CLS and the MSG subroutines.
           Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3),
           with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for
           assembly.
00798/074A  MESSAGE SYSTEM           COMMON ASMB     OC  G          MAIL:COM.ASM.O                                                  
            5.0T4   499  MESSAGE_SYSTEM.COMMON_ASM.OC.074   1 LINE     80    6 PAGE UM   STERKEN             AUG. 10, 1981  00:01:06
            5.0T11   73                       
00798/075A  MESSAGE SYSTEM           MSGUTIL MAIN    SG  G          MAIL:MUTIL.MAIN.S                                               
            5.0T4   500  MESSAGE_SYSTEM.MSGUTIL_MA.SG.075   1 LINE    104    4 PAGE UM   STERKEN             AUG. 10, 1981  00:01:08
            5.0T11   74                       
0          "Main program" for *MSGUTIL (798/7).
00798/076A  MESSAGE SYSTEM           MSGUTIL MAIN    OC  G          MAIL:MUTIL.MAIN.O                                               
            5.0T4   501  MESSAGE_SYSTEM.MSGUTIL_MA.OC.076   1 LINE     80    9 PAGE UM   STERKEN             AUG. 10, 1981  00:01:09
            5.0T11   75                       
00798/077A  MESSAGE SYSTEM           MSGUTIL UTIL    SG  G          MAIL:MUTIL.UTIL.S                                               
            5.0T4   502  MESSAGE_SYSTEM.MSGUTIL_UT.SG.077   1 LINE    200   42 PAGE UM   STERKEN             AUG. 10, 1981  00:01:10
            5.0T11   76                       
0          Command processors and miscellaneous utility routines for *MSGUTIL (798/7).
00798/078A  MESSAGE SYSTEM           MSGUTIL UTIL    OC  G          MAIL:MUTIL.UTIL.O                                               
            5.0T4   503  MESSAGE_SYSTEM.MSGUTIL_UT.OC.078   1 LINE   9059   76 PAGE UM   STERKEN             AUG. 10, 1981  00:01:35
            5.0T11   77                       
00798/079A  MESSAGE SYSTEM           MSGUTIL KWS     SA  G          MAIL:MUTIL.KWS.S                                                
            5.0T4   504  MESSAGE_SYSTEM.MSGUTIL_KW.SA.079   1 LINE    131    8 PAGE UM   STERKEN             AUG. 10, 1981  00:01:40
            5.0T11   78                       
0          Miscellaneous KWSCAN (040) interface routines for *MSGUTIL (798/7).
           Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3),
           with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for
           assembly.
00798/080A  MESSAGE SYSTEM           MSGUTIL KWS     OC  G          MAIL:MUTIL.KWS.O                                                
            5.0T4   505  MESSAGE_SYSTEM.MSGUTIL_KW.OC.080   1 LINE     80    5 PAGE UM   STERKEN             AUG. 10, 1981  00:01:42
            5.0T11   79                       
00798/081A  MESSAGE SYSTEM           MSGUTIL ASMB    SA  G          MAIL:MUTIL.ASM.S                                                
            5.0T4   506  MESSAGE_SYSTEM.MSGUTIL_AS.SA.081   1 LINE    152    4 PAGE UM   STERKEN             AUG. 10, 1981  00:01:44
            5.0T11   80                       
0          Miscellaneous assembly routines for *MSGUTIL (798/7). Assemble with the
           MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with
           PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for
           assembly.
1                                                                                               MON AUG 05/96   18:37:45   Page  601
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/082A  MESSAGE SYSTEM           MSGUTIL ASMB    OC  G          MAIL:MUTIL.ASM.O                                                
            5.0T4   507  MESSAGE_SYSTEM.MSGUTIL_AS.OC.082   1 LINE     80    4 PAGE UM   STERKEN             AUG. 10, 1981  00:01:44
            5.0T11   81                       
00798/083A  MESSAGE SYSTEM           CLS DECLARE     SG  G          MAIL:CLS.DECLS                                                  
            5.0T4   508  MESSAGE_SYSTEM.CLS_DECLAR.SG.083   1 LINE     59    1 PAGE UM   STERKEN             AUG. 10, 1981  00:01:45
            5.0T11   82                       
0          "$CONTINUE WITH" file used to include all the standard declarations needed
           by the CLS subcomponents.
00798/084A  MESSAGE SYSTEM           CLS GLOBALS     SG  G          MAIL:CLS.GLOBAL                                                 
            5.0T4   509  MESSAGE_SYSTEM.CLS_GLOBAL.SG.084   1 LINE     80    4 PAGE UM   STERKEN             AUG. 10, 1981  00:01:46
            5.0T11   83                       
0          DECLARATION OF GLOBAL AREA MCLS.
00798/085A  MESSAGE SYSTEM           CLS LOCAL       SG  G          MAIL:CLS.LOCAL                                                  
            5.0T4   510  MESSAGE_SYSTEM.CLS_LOCAL.SG.085    1 LINE     86    5 PAGE UM   STERKEN             AUG. 10, 1981  00:01:47
            5.0T11   84                       
0          Miscellaneous declarations needed by various CLS commands. This file should
           not be renumbered.
00798/086A  MESSAGE SYSTEM           CLS MISC        SG  G          MAIL:CLS.MISC                                                   
            5.0T4   511  MESSAGE_SYSTEM.CLS_MISC.SG.086     1 LINE     71    1 PAGE UM   STERKEN             AUG. 10, 1981  00:01:48
            5.0T11   85                       
0          Miscellaneous dynamic record definitions needed by the CLS.
00798/087A  MESSAGE SYSTEM           CLS CONSTANT    SG  G          MAIL:CLS.CONSTANT                                               
            5.0T4   512  MESSAGE_SYSTEM.CLS_CONSTA.SG.087   1 LINE     91    3 PAGE UM   STERKEN             AUG. 10, 1981  00:01:49
            5.0T11   86                       
0          Miscellaneous constant declarations needed by the CLS.
00798/088A  MESSAGE SYSTEM           SUBR DECLARE    SG  G          MAIL:SUB.DECLS                                                  
            5.0T4   513  MESSAGE_SYSTEM.SUBR_DECLA.SG.088   1 LINE     59    1 PAGE UM   STERKEN             AUG. 10, 1981  00:01:50
            5.0T11   87                       
0          "$CONTINUE WITH" file used to include all the standard declarations needed
           by the MSG subroutine components.
00798/089A  MESSAGE SYSTEM           SUBR GLOBAL     SG  G          MAIL:SUB.GLOBAL                                                 
            5.0T4   514  MESSAGE_SYSTEM.SUBR_GLOBA.SG.089   1 LINE     89    4 PAGE UM   STERKEN             AUG. 10, 1981  00:01:51
            5.0T11   88                       
0          Declaration of global area MSUB (for the MSG subroutines).
00798/090A  MESSAGE SYSTEM           SUBR MISC       SG  G          MAIL:SUB.MISC                                                   
            5.0T4   515  MESSAGE_SYSTEM.SUBR_MISC.SG.090    1 LINE     87    5 PAGE UM   STERKEN             AUG. 10, 1981  00:01:52
            5.0T11   89                       
0          Miscellaneous dynamic record definitions needed by MSG subroutines.
1                                                                                               MON AUG 05/96   18:37:45   Page  602
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/091A  MESSAGE SYSTEM           SUBR CNSTNT     SG  G          MAIL:SUB.CONSTANT                                               
            5.0T4   516  MESSAGE_SYSTEM.SUBR_CNSTN.SG.091   1 LINE     86    2 PAGE UM   STERKEN             AUG. 10, 1981  00:01:53
            5.0T11   90                       
0          Miscellaneous constant declarations needed by the MSG subroutines.
00798/092A  MESSAGE SYSTEM           COMMON MISC     SG  G          MAIL:COM.MISC                                                   
            5.0T4   517  MESSAGE_SYSTEM.COMMON_MIS.SG.092   1 LINE     92    3 PAGE UM   STERKEN             AUG. 10, 1981  00:01:54
            5.0T11   91                       
0          Miscellaneous dynamic record definitions needed by both the CLS and the
           MSG subroutines.
00798/093A  MESSAGE SYSTEM           MISC CONSTANT   SG  G          MAIL:COM.CONSTANT                                               
            5.0T4   518  MESSAGE_SYSTEM.MISC_CONST.SG.093   1 LINE     88    3 PAGE UM   STERKEN             AUG. 10, 1981  00:01:55
            5.0T11   92                       
0          Miscellaneous constant declarations needed by both the CLS and the 
           MSG subroutines.
00798/094A  MESSAGE SYSTEM           GOM DECLARE     SG  G          MAIL:GOM.DECLS                                                  
            5.0T4   519  MESSAGE_SYSTEM.GOM_DECLAR.SG.094   1 LINE     96    3 PAGE UM   STERKEN             AUG. 10, 1981  00:01:55
            5.0T11   93                       
0          Miscellaneous declarations (e.g. for the CLS transfer vector) needed for
           every GOM procedure.
00798/095A  MESSAGE SYSTEM           CLS DOC         WF  G          MAIL:FMT.MSGCLS                                                 
            5.0T4   520  MESSAGE_SYSTEM.CLS_DOC.WF.095      1 LINE    128   16 PAGE UM   STERKEN             AUG. 10, 1981  00:01:56
            5.0T11   94                       
0          *FORMAT (308) source for the $MESSAGESYSTEM CLS documentation.
            
           *************************************************************************
           D5.0 version:
            
           This documentation is a bit out of date. See the preliminary versions of Memo
           424 (798/109) and Memo 425 (798/110) for more recent documentation. This
           subcomponent contains the only existing documentation for *MSGUTIL (798/7).
           *************************************************************************
00798/096A  MESSAGE SYSTEM           SUBR DOC        WF  G          MAIL:FMT.MSGSUBS                                                
            5.0T4   521  MESSAGE_SYSTEM.SUBR_DOC.WF.096     1 LINE    178   22 PAGE UM   STERKEN             AUG. 10, 1981  00:02:15
            5.0T11   95                       
0          *FORMAT (308) source for the current MSG subroutine documentation.
00798/097A  MESSAGE SYSTEM           EXPLAIN FILE    D   G          MAIL:EXPLAINFILE                                                
            5.0T4   522  MESSAGE_SYSTEM.EXPLAIN_FI.D.097    1 LINE     73   17 PAGE UM   STERKEN             AUG. 10, 1981  00:02:28
            5.0T11   96  MAIL:EXPLAINFILE     
0          Text used by the EXPLAIN command.  Should be permitted as follows:
           U/N, R (PKEY=*SYS.MESSAGE, PKEY=*MESSAGESYST).
1                                                                                               MON AUG 05/96   18:37:45   Page  603
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/098A  MESSAGE SYSTEM           CLS MSG SKEL    D   G          MAIL:MCLS.SKELS                                                 
            5.0T4   523  MESSAGE_SYSTEM.CLS_MSG_SK.D.098    1 LINE    188    3 PAGE UM   STERKEN             AUG. 10, 1981  00:02:38
            5.0T11   97  MAIL:MCLS.SKELS      
0          Message "skeletons" for generating CLS messages. Should be permitted U/R.
00798/099A  MESSAGE SYSTEM           MSG SUBR SKEL   D   G          MAIL:MSUB.SKELS                                                 
            5.0T4   524  MESSAGE_SYSTEM.MSG_SUBR_S.D.099    1 LINE    121    4 PAGE UM   STERKEN             AUG. 10, 1981  00:02:39
            5.0T11   98  MAIL:MSUB.SKELS      
0          Message "skeletons" for generating MSG subroutine messages.  Should be permitted U/R.
00798/100A  MESSAGE SYSTEM           CLS DUMPS       D   G        # MAIL:MCLS.DUMPS                                                 
                                                                                    UM   STERKEN                                    
                         MAIL:MCLS.DUMPS@E    
0          File to which dumps for the CLS are written.
           Should be permitted as follows:  U/N, WE PKEY=*MESSAGESYST.
00798/101A  MESSAGE SYSTEM           SUBR DUMPS      D   G        # MAIL:MSUB.DUMPS                                                 
                                                                                    UM   STERKEN                                    
                         MAIL:MSUB.DUMPS@E    
0          File to which dumps for the MSG subroutine are written.
           Should be permitted as follows: U/N, WE PKEY=*SYS.MESSAGE.
00798/102A  MESSAGE SYSTEM           GEN VM SKEL     S*  G          MAIL:GENVMSKEL                                                  
            5.0T4   525  MESSAGE_SYSTEM.GEN_VM_SKE.S?.102   1 LINE     80   13 PAGE UM   STERKEN             AUG. 10, 1981  00:02:40
            5.0T11   99                       
0          GLP to generate an "in-core" list of frequently used messages.  To run
           the program:
            
                     $SOURCE MCLS.SKEL(0)        see (798/103)
                     $SOURCE MSUB.SKEL(0)        see (798/104)
0          Referenced by comments of: 798/103, 798/104 
00798/103A  MESSAGE SYSTEM           MCLSSKEL        OC  G          MAIL:MCLSSKEL                                                   
            5.0T4   526  MESSAGE_SYSTEM.MCLSSKEL.OC.103     1 LINE     80    3 PAGE UM   STERKEN             AUG. 10, 1981  00:02:42
            5.0T11  100                       
0          Generated by (798/102).
0          Referenced by comments of: 798/102 
00798/104A  MESSAGE SYSTEM           MSUBSKEL        OC  G          MAIL:MSUBSKEL                                                   
            5.0T4   527  MESSAGE_SYSTEM.MSUBSKEL.OC.104     1 LINE     80    3 PAGE UM   STERKEN             AUG. 10, 1981  00:02:43
            5.0T11  101                       
0          Generated by (798/102).
0          Referenced by comments of: 798/102 
1                                                                                               MON AUG 05/96   18:37:45   Page  604
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00798/105A  MESSAGE SYSTEM           MACLIB          SM  G          MAIL:MSG.MACLIB                                                 
            5.0T4   528  MESSAGE_SYSTEM.MACLIB.SM.105       1 LINE     72    5 PAGE UM   STERKEN             AUG. 10, 1981  00:02:44
            5.0T11  102                       
0          Macro library used by the CLS and MSG subroutine assembly routines.
0          Referenced by comments of: 798/31, 798/33, 798/65, 798/67, 798/73, 798/79, 798/81 
00798/106C  MESSAGE SYSTEM           *MSGINFDSECT    SA  G          *MSGINFDSECT                                                    
            5.0T4   529  MESSAGE_SYSTEM.?MSGINFDSE.SA.106   1 LINE     67    1 PAGE UM   STERKEN             AUG. 10, 1981  00:02:45
            5.0T11  103  *MSGINFDSECT         
0          An assembly DSECT describing the information in the "msginfo" parameter
           of the MSGINF subroutine (798/47).
00798/107C  MESSAGE SYSTEM           *MSG            C   G          *MSG                                                            
            5.0T4   530  MESSAGE_SYSTEM.?MSG.C.107          1 LINE     64    1 PAGE UM   STERKEN             AUG. 10, 1981  00:02:46
            5.0T11  104  *MSG                 
0          Operator file run every night at 2 am by the Clock Watcher (816) to purge
           old messages from *MESSAGES (798/9).  Keeps a log in the file MAIL:MSG.LOG
           (798/108).  *MSG must be permitted U/R, R PKEY=*JUNK (the *JUNK is necessary).
0          Referenced by comments of: 798/108, 816/6 
00798/108C  MESSAGE SYSTEM           *MSG LOG        D   G        # MAIL:MSG.LOG                                                    
                                                                                    UM   STERKEN                                    
                         MAIL:MSG.LOG@E       
0          Log file written to by *MSG (798/107).
0          Referenced by comments of: 798/107 
00798/109C  MESSAGE SYSTEM           MEMO 424        WF             W073:MESSAGE.INTRO                                              
            5.0T4   531  MESSAGE_SYSTEM.MEMO_424.WF.109     1 LINE     68   15 PAGE UM   MANUAL              AUG. 10, 1981  00:02:47
            5.0T11  105                       
0          This is CCMemo 424, "Introduction to the MTS Message System."
            
           ************************************************************************
           D5.0 version:
            
           This is a preliminary version of CCMemo 424.
           ************************************************************************
0          Referenced by comments of: 798/95 
00798/110C  MESSAGE SYSTEM           MEMO 425        WT             W073:MESSAGE.REF                                                
            5.0T4   532  MESSAGE_SYSTEM.MEMO_425.WT.110     1 LINE     68   15 PAGE UM   MANUAL              AUG. 10, 1981  00:03:14
            5.0T11  106                       
0          This is the prose and text for CCMemo 425, "The MTS Message System."
           Should be concatenated with 798/111 and run through *TEXT360.
            
1                                                                                               MON AUG 05/96   18:37:45   Page  605
0  Num   R       Component Name         Subname     Type G Seq ID 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          ************************************************************************
           D5.0 version:
            
           This is a preliminary version of CCMemo 425.
           ************************************************************************
0          Referenced by comments of: 798/95 
00798/111C  MESSAGE SYSTEM           MEMO 425        WT             W073:MESSAGE.CMDS(1,*L)                                         
            5.0T4   533  MESSAGE_SYSTEM.MEMO_425.WT.111     1 LINE    101   17 PAGE UM   MANUAL              AUG. 10, 1981  00:03:23
            5.0T11  107                       
0          Contains command descriptions for CCMemo 425.  Should be concatenated with
           798/110 and run with *TEXT360.
00799/001C  PAGESTAT                                 SW  G          W034:PAGESTAT.S                                                 
            5.0T3   852  PAGESTAT..SW.001                   1 LINE     90   14 PAGE UM   JWS                 JULY 03, 1981  20:10:28
            5.0T8   231                       
0          PASCAL/UBC (1052) source for a statistics analyzing program.  The PAGESTAT
           program should be $RUN concatenated with the READSTAT subroutine (799/3).
           Uses stat item 19 in the Supervisor (045).  Requires the *ANALYSIS histogram
           subroutine (140/7).
0          Referenced by comments of: 799/3 
00799/002A  PAGESTAT                                 OC  G          W034:PAGESTAT                                                   
            5.0T3   853  PAGESTAT..OC.002                   1 LINE     73   13 PAGE UM   JWS                 JULY 03, 1981  20:10:38
            5.0T8   232                       
0          Contains a $CONTINUE WITH UNSP:PAS.BC.LIB (1052/8) record.
00799/003A  PAGESTAT                 READSTAT SUBR   SA  G          W034:READSTAT.S                                                 
            5.0T3   854  PAGESTAT.READSTAT_SUBR.SA.003      1 LINE     70    3 PAGE UM   JWS                 JULY 03, 1981  20:10:40
            5.0T8   233                       
0          Subroutine required by (799/1).
0          Referenced by comments of: 799/1 
00799/004A  PAGESTAT                 READSTAT SUBR   OC  G          W034:READSTAT                                                   
            5.0T3   855  PAGESTAT.READSTAT_SUBR.OC.004      1 LINE     80    1 PAGE UM   JWS                 JULY 03, 1981  20:10:40
            5.0T8   234                       
00800/001C  CHKPAR                   CHKPAR SUBR     SA  G          S0683 OGDEN FSNAME=CHKPAR.S                                     
            5.0T3   856  CHKPAR.CHKPAR_SUBR.SA.001          1 LINE     68    4 PAGE UBC  MEIR      OGDEN     JAN. 28, 1981  20:39:43
            5.0T8   235                       
0          This is the source for the CHKPAR subroutine which was written at UBC.
           It has been modified at UM to add some more BPI instructions to allow it
           to cope with calls that don't follow OS-type-I(S) calling sequences
           completely (e.g., don't set the VL bit).
1                                                                                               MON AUG 05/96   18:37:45   Page  606
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00800/002C  CHKPAR                   CHKPAR SUBR     OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UBC  MEIR      OGDEN                            
0          Object part of *LIBRARY (524/1)
00800/003C  CHKPAR                   ERRSUB SUBR     SA  G          S0683 OGDEN FSNAME=ERRSUB.S                                     
            5.0T3   857  CHKPAR.ERRSUB_SUBR.SA.003          1 LINE     72    2 PAGE UBC  MEIR      OGDEN     JAN. 28, 1981  20:39:54
            5.0T8   236                       
0          ERRSUB is a replacement for a FORTRAN routine written at UBC.  It was 
           written to avoid using FTNCMD to EQUATE 99=SERCOM and to deal with 
           routine names greater that 6 characters.
00800/004C  CHKPAR                   ERRSUB SUBR     OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UBC  MEIR      OGDEN                            
0          Object part of *LIBRARY (524/1)
00801/001C  NPAR                                     SA  G          S0683 OGDEN FSNAME=NPAR.S                                       
            5.0T3   858  NPAR..SA.001                       1 LINE     68    2 PAGE UBC  MEIR      OGDEN     JAN. 28, 1981  20:40:25
            5.0T8   237                       
0          The NPAR subroutine was written at UBC.  It has been modified at UM
           to add some BPI instructions to allow the routines to cope with calls
           that don't follow OS-type-I(S) calling sequences completely (e.g., don't
           set the VL bit).
00801/002C  NPAR                                     OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UBC  MEIR      OGDEN                            
0          Object part of *LIBRARY (524/1)
00802/001C  COMMAND MACROS           LOW LEVEL SYM   SA  G          W078:MM.LOWSYM.S                                                
            5.0T3   859  COMMAND_MACROS.LOW_LEVEL.SA.001    1 LINE    148    7 PAGE UM   DWB                 JULY 03, 1981  20:10:49
            5.0T8   238                       
0          This is a preliminary version of the MTS Command Macro facility symbol table
           routines. Uses COPY:CC.MACROS (1054/3) and the Command Macros macro library
           (802/3).
0          Referenced by comments of: 648/5 
00802/002C  COMMAND MACROS           LOW LEVEL SYM   OC  G          W078:MM.LOWSYM.O                                                
            5.0T3   860  COMMAND_MACROS.LOW_LEVEL.OC.002    1 LINE    690    2 PAGE UM   DWB                 JULY 03, 1981  20:10:52
            5.0T8   239                       
0          Referenced by comments of: 648/1 
00802/003C  COMMAND MACROS           MACROS          SM  G          W078:MM.MACROS                                                  
            5.0T3   861  COMMAND_MACROS.MACROS.SM.003       1 LINE     73    5 PAGE UM   DWB                 JULY 03, 1981  20:10:53
            5.0T8   240                       
0          This is the macro library for the MTS Command Macro facility.
1                                                                                               MON AUG 05/96   18:37:45   Page  607
0  Num   R       Component Name         Subname     Type G Seq ID 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: 802/1 
00803/001C  INDIRECT COST TABLE                      SA  G          MTS:ICOSTTAB(1,999)                                             
            5.0T3   862  INDIRECT_COST_TABLE..SA.001        1 LINE     73    1 PAGE UM   MTS       OGDEN     JULY 03, 1981  20:10:54
            5.0T8   241                       
0          Contains the source for the Indirect Cost Table used by  TSA.  It is optional
           and if omitted it is assumed there are no indirect costs.
00803/002C  INDIRECT COST TABLE                      OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       OGDEN                            
0          Object part of Resident System (468)
00804/001C  EXITDUMP                                 SA  G          MTS:EXITDUMP(1000)                                              
            5.0T3   863  EXITDUMP..SA.001                   1 LINE     71    4 PAGE UM   OGDEN               JULY 03, 1981  20:10:55
            5.0T8   242                       
0          A program to enable and disable the MTS debugging jobdump in ERRRTN. Copies
           *LOADINFODSECT (001/4).
00804/002C  EXITDUMP                                 OC  G          MTS:EXITDUMP(1,999)                                             
            5.0T3   864  EXITDUMP..OC.002                   1 LINE     80    5 PAGE UM   OGDEN               JULY 03, 1981  20:10:56
            5.0T8   243                       
0          Contains a $CONTINUE WITH COPY:SYSDEFS (579/3) record.
00805/001C  MTS VOLUME 17            MASTER          WT             S1497 MTSV17 'MTS MANUALS' POSN=NEWM1.V17                       
            5.0T3   865  MTS_VOLUME_17.MASTER.WT.001        1 SEQ     132  125 PAGE UM   MANUAL              JULY 03, 1981  20:11:31
            5.0T8   244                       
0          TEXT/360 MASTER FOR VOLUME 17, "INTEGRATED GRAPHICS SYSTEM," OF THE UM
           MTS MANUALS, DECEMBER 1980.
            
           EDITOR:  RICHARD A. SALISBURY
00805/002C  MTS VOLUME 17            PRINT           PT             S1497 MTSV17 'MTS MANUALS' POSN=PRINT1.V17                      
            5.0T3   866  MTS_VOLUME_17.PRINT.PT.002         1 SEQ     132  246 PAGE UM   MANUAL              JULY 03, 1981  20:11:38
            5.0T8   245                       
0          TEXT/360 PRINT FILE.
00805/003C  MTS VOLUME 17            INDEX SOURCE    D              S1497 MTSV17 'MTS MANUALS' POSN=V17INDEXSOU                     
            5.0T3   867  MTS_VOLUME_17.INDEX_SOURC.D.003    1 SEQ      58    7 PAGE UM   MANUAL              JULY 03, 1981  20:11:46
            5.0T8   246                       
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 17.
00805/004C  MTS VOLUME 17            FIGURES         D              S1497 MTSV17 'MTS MANUALS' POSN=V17FIGS                         
            5.0T3   868  MTS_VOLUME_17.FIGURES.D.004        1 SEQ     154    6 PAGE UM   MANUAL              JULY 03, 1981  20:11:49
            5.0T8   247                       
0          PLOT DESCRIPTION FILE (PDS) FOR FIGURES FOR MTS VOLUME 17.
1                                                                                               MON AUG 05/96   18:37:45   Page  608
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00806/001C  TAPE QUEUE                               SA  G          TAPE:TAPEQ.S                                                    
            5.0T3   869  TAPE_QUEUE..SA.001                 1 LINE    144   17 PAGE UM   SHERRY              JULY 03, 1981  20:11:50
            5.0T8   248                       
0          Routine called by the MOUNT CLS (101/1) to queue 9TP tape mount requests.
           Requires D5.0 versions of MOUNT (101), *TAPERTN (135), TASKSTAT (647), SSRTN
           (413/1), SYSTEM STATUS CLS (413/5), SUPERVISOR (045), OPERATOR JOB (634),
           UNSP:TAPEDRIVES (693), and SYSDEFS (579). Uses SVC lock number 6 to update
           shared VM data structure. Defines the entry points MNTQUEUE, MNTQREL,
           MNTQSTAT, MNTQINFO. The comments in the source file describe the calling
           sequences and usage.
            
           Assemble using COPY:CC.MACROS (1054/3), COPY:MISC.MACROS (728), and
           COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT. Copies COPY:GLOBALSETS
           (1026/2), COPY:LLMPSEQU (087), COPY:JOBSTA (413/9), and COPY:MNTQINFDSECT
           (806/3).
0          Referenced by comments of: 101/1, 135/1, 806/3 
00806/002C  TAPE QUEUE                               OE  G          SEG2:TAPEQ                                                      
            5.0T3   870  TAPE_QUEUE..OE.002                 1 LINE   3396    2 PAGE UM   SHERRY              JULY 03, 1981  20:12:15
            5.0T8   249  SEG2:TAPEQ           
0          Object for the tape queueing routines.  Loaded into shared VM after IPL by
           PISTLE, using the IPLCS modifier to resolve WX references by SSRTN (413/1).
00806/003C  TAPE QUEUE               DSECTS          SA  G          COPY:MNTQINFDSECT                                               
            5.0T3   871  TAPE_QUEUE.DSECTS.SA.003           1 LINE     72    1 PAGE UM   SHERRY              JULY 03, 1981  20:12:16
            5.0T8   250                       
0          Dsects describing information returned by the MNTQSTAT and MNTQINFO entry
           points of TAPEQ.  Copied by TAPEQ (806/1), MOUNT CLS (101/1), and SSRTN
           (413/1).
0          Referenced by comments of: 101/1, 413/1, 806/1 
00807/001C  PGFCONVERT                               SW  G          S1153 UNSP VLO FSNAME=PGFCONVERT.PAS                            
            5.0T3   872  PGFCONVERT..SW.001                 1 LINE     95    7 PAGE UM   UNSP                FEB. 17, 1981  14:17:39
            5.0T8   251                       
0          A program to convert files for use with the Xerox 9700.
00807/002C  PGFCONVERT                               OE  G          UNSP:PGFCONVERT                                                 
            5.0T4   534  PGFCONVERT..OE.002                 1 LINE   5568    4 PAGE UM   UNSP                AUG. 10, 1981  00:03:51
            5.0T11  108                       
0          Includes a version of CSNOOP.O (695/4).
00807/003C  PGFCONVERT                               WF  G          S1153 UNSP VLO FSNAME=PGFCONVERT.FMT                            
            5.0T3   873  PGFCONVERT..WF.003                 1 LINE     68    1 PAGE UM   UNSP                FEB. 17, 1981  14:17:50
            5.0T8   252                       
1                                                                                               MON AUG 05/96   18:37:45   Page  609
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00808/001D  TIME ROUTINES                            SA  S          W116:TIM.RELEASE                                                
            5.0T3   874  TIME_ROUTINES..SA.001              1 LINE     78  107 PAGE UM   H YOUNG             JULY 03, 1981  20:12:20
            5.0T8   253                       
0          This is the source for Howard Young's general-purpose time/date routines,
           described in the MTS Development Workshop V Proceedings.
            
           Assemble with PAR=BATCH and 2=TIM.MACRO (808/3).
            
           ******************************************************************************
           D5.0 version:
            
           This is still an experimental version.  We strongly urge you not to make
           extensive use of these routines yet since they will not be compatible with
           the eventual standard ones, especially for input processing.
           ******************************************************************************
0          Referenced by comments of: 809/7 
00808/002D  TIME ROUTINES                            OC  S          SEG2:TIM.RTNS                                                   
            5.0T3   875  TIME_ROUTINES..OC.002              1 LINE  32767   13 PAGE UM   H YOUNG             JULY 03, 1981  20:12:30
            5.0T8   254  SEG2:TIM.RTNS        
0          Referenced by comments of: 816/2 
00808/003D  TIME ROUTINES            MACROS          SM  S          W116:TIM.MACRO                                                  
            5.0T3   876  TIME_ROUTINES.MACROS.SM.003        1 LINE     73    5 PAGE UM   H YOUNG             JULY 03, 1981  20:12:32
            5.0T8   255                       
0          Referenced by comments of: 808/1 
00808/004D  TIME ROUTINES            MESSAGES        M   S          W116:TIM.MSG                                                    
            5.0T3   877  TIME_ROUTINES.MESSAGES.M.004       1 LINE     80    3 PAGE UM   H YOUNG             JULY 03, 1981  20:12:32
            5.0T8   256                       
00809/001C  CREP                     MAIN PGM        SG  G          CREP:CREP.S                                                     
            5.0T3   878  CREP.MAIN_PGM.SG.001               1 LINE    131   33 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:33
            5.0T8   257                       
0          CREP, the Controlled File Replacement and Annotation Facility, monitors and
           controls the replacement of public, SEG2:, NEW:, COPY:, etc., object and data
           files as well as resident, post-IPL system components. (809/16) is a writeup
           describing the organization and file access requirements.
            
           This subcomponent is a GOM main program, which INCLUDEs program common and
           various dynamic record definitions, subcomponents (809/8) through (809/12).
0          Referenced by comments of: 809/7 
00809/002C  CREP                     SUBRS           SG  G          CREP:CREPEXSUBS.S                                               
            5.0T3   879  CREP.SUBRS.SG.002                  1 LINE    111   35 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:37
            5.0T8   258                       
0          These are the CREP GOM subroutines. INCLUDEs program common and various
1                                                                                               MON AUG 05/96   18:37:45   Page  610
0  Num   R       Component Name         Subname     Type G Seq ID 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          dynamic record definitions, subcomponents (809/8) through (809/12).
0          Referenced by comments of: 809/7 
00809/003C  CREP                     KWS SUBR        SA  G          CREP:CREPKWS.S                                                  
            5.0T3   880  CREP.KWS_SUBR.SA.003               1 LINE    100   25 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:41
            5.0T8   259                       
0          CREP's keyword scan interface for CREP command processing.  Assemble
           using COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 809/7 
00809/004C  CREP                     RWCK SUBRS      SA  G          CREP:CREPRWCKSM.S                                               
            5.0T3   881  CREP.RWCK_SUBRS.SA.004             1 LINE    112    1 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:44
            5.0T8   260                       
0          Subroutines to support REWIND# calls and compute backup file checksums.
           Assemble using COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 809/7 
00809/005C  CREP                     SPANBREAK SUBR  SA  G          CREP:SPANBREAK.S                                                
            5.0T3   882  CREP.SPANBREAK_SUBR.SA.005         1 LINE     76    4 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:44
            5.0T8   261                       
0          SPAN and BREAK functions to assist CREP command processing.
0          Referenced by comments of: 809/7 
00809/006C  CREP                     MCHPAT SUBR     SA  G          CREP:BLDMCHPAT.S                                                
            5.0T3   883  CREP.MCHPAT_SUBR.SA.006            1 LINE    104   18 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:45
            5.0T8   262                       
0          Extended version of $FILESTATUS "?" pattern support.  Used for the CREP 
           STATUS command file name pattern processing.  Assemble using COPY:MTS.MACROS
           (344/3).
0          Referenced by comments of: 809/7 
00809/007C  CREP                     OBJECT          OE  G          MTS:CREP                                                        
            5.0T3   884  CREP.OBJECT.OE.007                 1 LINE  32767   45 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:49
            5.0T8   263  MTS:CREP             
0          This is the object of (809/1), (809/2), (809/3), (809/4), (809/5), (809/6),
           and (808/1). SEG2:S2L (559/3) is dynamically loaded when post-IPL components
           are being processed. CREP references SEG2:S2FILES (559/4), SEG2:S2MAP
           (559/10), ETC:CREPHELP (809/13), MTS:CREPDIR (809/14), and MTS:CREPLOG
           (809/15).
0          Referenced by comments of: 809/14, 809/15 
1                                                                                               MON AUG 05/96   18:37:45   Page  611
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00809/008C  CREP                     COMMON          SG  G          CREP:MAINCOMM.S                                                 
            5.0T3   885  CREP.COMMON.SG.008                 1 LINE     92    3 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:52
            5.0T8   264                       
0          GOM COMMON definitions.  "INCLUDEd" in various CREP routines.
0          Referenced by comments of: 809/1, 809/2 
00809/009C  CREP                     CMD DRC         SG  G          CREP:CMDDRC.S                                                   
            5.0T3   886  CREP.CMD_DRC.SG.009                1 LINE     78    4 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:53
            5.0T8   265                       
0          GOM dynamic record definitions for CREP's commands.  "INCLUDEd" in various
           CREP routines.
00809/010C  CREP                     FILE STRUC DRC  SG  G          CREP:CFNDRC.S                                                   
            5.0T3   887  CREP.FILE_STRUC_DRC.SG.010         1 LINE     74    1 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:53
            5.0T8   266                       
0          GOM dynamic record definitions for CREP's internal file information
           structure.  "INCLUDEd" in various CREP routines.
00809/011C  CREP                     DIRLOG DRC      SG  G          CREP:DIRLOGDRC.S                                                
            5.0T3   888  CREP.DIRLOG_DRC.SG.011             1 LINE     78    3 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:54
            5.0T8   267                       
0          GOM dynamic record definitions for the CREP directory and log files.
           "INCLUDEd" in various CREP routines.
00809/012C  CREP                     GD/GFINFO DRC   SG  G          CREP:INFDRC.S                                                   
            5.0T3   889  CREP.GD/GFINFO_DRC.SG.012          1 LINE     71    3 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:55
            5.0T8   268                       
0          GOM dynamic record definitions of GDINFO/GFINFO information.  "INCLUDEd"
           in various CREP routines.
0          Referenced by comments of: 809/1, 809/2 
00809/013C  CREP                     HELP FILE       D   G          ETC:CREPHELP                                                    
            5.0T3   890  CREP.HELP_FILE.D.013               1 LINE     78    5 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:55
            5.0T8   269  ETC:CREPHELP         
0          The CREP help file.  Line numbers in this file are important.
0          Referenced by comments of: 809/7 
00809/014C  CREP                     DIRECTORY FILE  D   G        # MTS:CREPDIR                                                     
                                                                                    UM   FRONCZAK                                   
                         MTS:CREPDIR@E        
0          This is the directory file required by CREP (809/7).
0          Referenced by comments of: 809/7 
1                                                                                               MON AUG 05/96   18:37:45   Page  612
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00809/015C  CREP                     LOG FILE        D   G        # MTS:CREPLOG                                                     
                                                                                    UM   FRONCZAK                                   
                         MTS:CREPLOG@E        
0          This is the log file required by CREP (809/7).
0          Referenced by comments of: 809/7 
00809/016C  CREP                     SYS WRUP        P   G          CREP:CREPSYSORG                                                 
            5.0T3   891  CREP.SYS_WRUP.P.016                1 LINE    107    3 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:57
            5.0T8   270                       
0          System programmer writeup describing the CREP system organization and file
           access requirements.
0          Referenced by comments of: 809/1 
00809/017C  CREP                     USER WRUP       WT  G          CREP:PAPER.CREP                                                 
            5.0T3   892  CREP.USER_WRUP.WT.017              1 LINE    140   10 PAGE UM   FRONCZAK            JULY 03, 1981  20:12:57
            5.0T8   271                       
0          TEXT360 source for the CREP user writeup.
0          Referenced by comments of: 809/18 
00809/018C  CREP                     WRUP GEN        C   G          CREP:T360CREP                                                   
            5.0T3   893  CREP.WRUP_GEN.C.018                1 LINE    104    1 PAGE UM   FRONCZAK            JULY 03, 1981  20:13:06
            5.0T8   272                       
0          TEXT360 procedure to produce the CREP user writeup from (809/17).
00810/001C  PMF                      INSTALLATION    P              PMF:INSTAL.NOTES                                                
            5.0T3   894  PMF.INSTALLATION.P.001             1 LINE     69    3 PAGE UM   HANSEN              JULY 03, 1981  20:13:07
            5.0T8   273                       
0          The Project Management Facility (PMF) is a software tool to help users
           organize and document the components (source, object, listings, data,
           etc.) and procedures (commands) used in the development and installation
           of large scale software packages. 
            
           This subcomponent contains the directions for installing and maintaining
           the PMF.
0          Referenced by comments of: 387/36, 686/37, 810/4, 821/1, 821/2, 821/5, 821/23, 1042/104 
00810/002C  PMF                      WRITEUP         WF             PMF:WRITEUP.S                                                   
            5.0T3   895  PMF.WRITEUP.WF.002                 1 LINE     82   18 PAGE UM   HANSEN              JULY 03, 1981  20:13:10
            5.0T8   274                       
0          *FORMAT (308) source for the PMF writeup.
1                                                                                               MON AUG 05/96   18:37:45   Page  613
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00810/003C  PMF                      WRITEUP         PF             PMF:WRITEUP                                                     
            5.0T3   896  PMF.WRITEUP.PF.003                 1 LINE     69   21 PAGE UM   HANSEN              JULY 03, 1981  20:13:11
            5.0T8   275                       
0          Printer-ready copy of the PMF writeup.  Allow 30 pages to print.
00810/004C  PMF                      CLS             OE  O          *CLSPMF                                                         
            5.0T3   897  PMF.CLS.OE.004                     1 LINE  32767   38 PAGE UM   HANSEN              JULY 03, 1981  20:13:13
            5.0T8   276  *CLSPMF              
0          The complete, linkeditted object for the PMF.  This component may reference
           several other files during execution.  See the installation notes (810/1)
           for details.
0          Referenced by comments of: 810/5, 810/8 
00810/005C  PMF                      RUN             OC  O          PMF:RUN.CURRENT                                                 
            5.0T3   898  PMF.RUN.OC.005                     1 LINE   9368   82 PAGE UM   HANSEN              JULY 03, 1981  20:13:15
            5.0T8   277                       
0          $RUNable version of the PMF.  This component, with selected csects from
           the libraries referenced, was linkeditted to create *CLSPMF (810/4).
           Contains "$CONTINUE WITH" records for the following files:
            
                          PMF:CLSTEST.OA    (810/16)
                          PLUS:CLSPARSER.OL (1076/15)
                          PLUS:CLSOBJLIB    (1042/106)
00810/006C  PMF                      ETC:PMF.HELP    M   G          ETC:PMF.HELP                                                    
            5.0T3   899  PMF.ETC:PMF.HELP.M.006             1 LINE     70   17 PAGE UM   HANSEN              JULY 03, 1981  20:13:20
            5.0T8   278  ETC:PMF.HELP         
0          The primary HELP file referenced by the PMF CLS.
            
           This file has $CONTINUE WITHs to itself, so it should be restored to the
           same name.
00810/007C  PMF                      ETC:PMF.LOG     D            # ETC:PMF.LOG                                                     
                                                                                    UM   HANSEN                                     
0          A place to put PMF usage statistics.  This file must be a line file,
           permitted WE (PKEY=*#PMF, PKEY=*#CLS), but it is not necessary for PMF
           execution.
00810/008C  PMF                      MAP             D              PMF:MAP.CURRENT                                                 
            5.0T3   900  PMF.MAP.D.008                      1 LINE    101    3 PAGE UM   HANSEN              JULY 03, 1981  20:13:22
            5.0T8   279                       
0          The map produced by linkeditting the test version (810/15) to produce
           the CLS (810/4).
1                                                                                               MON AUG 05/96   18:37:45   Page  614
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00810/009C  PMF                      SOURCE LIB      SQ  G          PMF:SOURCELIB                                                   
            5.0T3   901  PMF.SOURCE_LIB.SQ.009              1 LINE     97   16 PAGE UM   HANSEN              JULY 03, 1981  20:13:22
            5.0T8   280                       
0          The PLUS (1042) source library used for compiling the PLUS procedures for 
           the PMF.
00810/010C  PMF                      SOURCE          SQ  O          PMF:PMF.SQ                                                      
            5.0T3   902  PMF.SOURCE.SQ.010                  1 LINE    105   49 PAGE UM   HANSEN              JULY 03, 1981  20:13:25
            5.0T8   281                       
0          PLUS (1042) source for most of the PMF, excluding command processing,
           subtasking, and storage management.
00810/011C  PMF                      CORE            SQ  O          PMF:PMF.CORE                                                    
            5.0T3   903  PMF.CORE.SQ.011                    1 LINE    106   13 PAGE UM   HANSEN              JULY 03, 1981  20:13:28
            5.0T8   282                       
0          PLUS (1042) source for the PMF procedure dealing with subtasking and storage
           management.
00810/012C  PMF                      CMD             SQ  O          PMF:PMF.CMD                                                     
            5.0T3   904  PMF.CMD.SQ.012                     1 LINE    106   36 PAGE UM   HANSEN              JULY 03, 1981  20:13:30
            5.0T8   283                       
0          PLUS (1042) source for the PMF command processor.
00810/013C  PMF                      ASM CODE        SA  O          PMF:PMF.ASM                                                     
            5.0T3   905  PMF.ASM_CODE.SA.013                1 LINE     72    9 PAGE UM   HANSEN              JULY 03, 1981  20:13:34
            5.0T8   284                       
0          Source for the ASMH (737) parts of the PMF.
00810/014C  PMF                      GRAMMAR         D   O          PMF:GRAMMAR                                                     
            5.0T3   906  PMF.GRAMMAR.D.014                  1 LINE     87    9 PAGE UM   HANSEN              JULY 03, 1981  20:13:35
            5.0T8   285                       
0          The grammar for use with the MTS/SPIRES Parser (1076).
00810/015C  PMF                      CLSTEST         SA  O          PMF:CLSTEST.SA                                                  
            5.0T3   907  PMF.CLSTEST.SA.015                 1 LINE     66    1 PAGE UM   HANSEN              JULY 03, 1981  20:13:36
            5.0T8   286                       
0          Source for yet another CLS test driver.
0          Referenced by comments of: 810/8 
00810/016C  PMF                      CLSTEST         OC  O          PMF:CLSTEST.OA                                                  
            5.0T3   908  PMF.CLSTEST.OC.016                 1 LINE     80    3 PAGE UM   HANSEN              JULY 03, 1981  20:13:37
            5.0T8   287                       
0          Object for yet another CLS test driver.
0          Referenced by comments of: 810/5, 810/18 
1                                                                                               MON AUG 05/96   18:37:45   Page  615
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00810/017C  PMF                      PROJECT FILE    D              PMF:PMFX                                                        
            5.0T3   909  PMF.PROJECT_FILE.D.017             1 LINE    164    8 PAGE UM   HANSEN              JULY 03, 1981  20:13:38
            5.0T8   288                       
0          The PMF project file describing the PMF itself.
0          Referenced by comments of: 810/18 
00810/018C  PMF                      MISC            D              PMF:MISC                                                        
            5.0T3   910  PMF.MISC.D.018                     1 LINE     39    1 PAGE UM   HANSEN              JULY 03, 1981  20:13:39
            5.0T8   289                       
0          This file is used by the PMF when using the PMF project file (810/17). It
           contains miscellaneous data used by PMF procedures. Also contains $CONTINUE
           WITH PMF:CLSTEST.OA (810/16), PLUS:CLSPARSER.OL (1076/15), and PLUS:CLSOBJLIB
           (1042/104) records.
00811/001C  SCREEN SUPPORT ROUTINES  SOURCE LIB      SQ  S          CRT:SS.SOURCELIB                                                
            5.0T3   911  SCREEN_SUPPORT_ROUTINES.S.SQ.001   1 LINE    137   11 PAGE UM   CASHMAN             JULY 03, 1981  20:13:40
            5.0T8   290                       
0          The screen support routines provide device independent support for
           3270 type displays, and Ontels running the OP/VIS software. Support
           for other terminals can be added. The screen support routines are
           often called the "9112" routines because their design followed
           proposals taken from papers 12 and 91 at the RPI MTS workshop in
           1980.
            
           These routines are still under active development at UM. They have
           not been released to the public, but are used by the MTS editor and
           several internal programs. Before making extensive changes to these
           routines or attempting to add support for new devices please check
           with Brian Cashman at UM.
            
           This component is the PLUS (1042) source library for all screen
           support routines. Provides all necessary global variable, data
           structure, and subroutine declarations.
0          Referenced by comments of: 629/12, 634/7, 648/1, 648/11, 811/5, 811/7, 811/9, 812/1 
00811/002C  SCREEN SUPPORT ROUTINES  USER LIB        SQ  S          CRT:SS.USERLIB                                                  
            5.0T3   912  SCREEN_SUPPORT_ROUTINES.U.SQ.002   1 LINE    107    3 PAGE UM   CASHMAN             JULY 03, 1981  20:13:52
            5.0T8   291                       
0          PLUS (1042) source library that provides the PLUS declarations for the
           user-callable screen support routines.
00811/003C  SCREEN SUPPORT ROUTINES  ASM ROUTINES    SA  S          CRT:SS.ASMRTNS.S                                                
            5.0T3   913  SCREEN_SUPPORT_ROUTINES.A.SA.003   1 LINE    145    6 PAGE UM   CASHMAN             JULY 03, 1981  20:13:53
            5.0T8   292                       
0          Assembler source to interface device-independent screen support routines to
           the real world.  Uses the Version Labeler (812) and SIDELABEL (747) for listing
           enhancements.  $SOURCE to assemble.  Requires COPY:MTS.MACROS (344/3), 
1                                                                                               MON AUG 05/96   18:37:45   Page  616
0  Num   R       Component Name         Subname     Type G Seq ID 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:CC.MACROS (1054/3), and COPY:MISC.MACROS (728).
0          Referenced by comments of: 811/4 
00811/004C  SCREEN SUPPORT ROUTINES  ASM ROUTINES    OC  S          CRT:SS.ASM.O                                                    
            5.0T3   914  SCREEN_SUPPORT_ROUTINES.A.OC.004   1 LINE     80    4 PAGE UM   CASHMAN             JULY 03, 1981  20:13:55
            5.0T8   293                       
0          Object produced by assembling (811/3).
00811/005C  SCREEN SUPPORT ROUTINES  DI ROUTINES     SQ  S          CRT:SS.DIRTNS.S                                                 
            5.0T3   915  SCREEN_SUPPORT_ROUTINES.D.SQ.005   1 LINE    159   37 PAGE UM   CASHMAN             AUG. 06, 1981  05:40:00
            5.0T8   294                       
0          PLUS (1042) source for screen support device-independent routines. Uses the
           Version Labeler (812) and SIDELABEL (747) for listing enhancements. $SOURCE
           to compile. Requires (811/1) and (1042/4).
0          Referenced by comments of: 811/6 
00811/006C  SCREEN SUPPORT ROUTINES  DI ROUTINES     OC  S          CRT:SS.DI.O                                                     
            5.0T3   916  SCREEN_SUPPORT_ROUTINES.D.OC.006   1 LINE   1084   15 PAGE UM   CASHMAN             AUG. 06, 1981  05:40:05
            5.0T8   295                       
0          Object produced by compiling (811/5).
00811/007C  SCREEN SUPPORT ROUTINES  EURONET DDR     SQ  S          CRT:SS.EURONET.S                                                
            5.0T3   917  SCREEN_SUPPORT_ROUTINES.E.SQ.007   1 LINE    110   15 PAGE UM   CASHMAN             AUG. 06, 1981  05:40:07
            5.0T8   296                       
0          PLUS (1042) source for Euronet (ONTEL) device-dependent routines. Uses the
           Version Labeler (812) and SIDELABEL (747) for listing enhancements. $SOURCE
           to compile. Requires (811/1) and (1042/4).
0          Referenced by comments of: 811/8, 811/10 
00811/008C  SCREEN SUPPORT ROUTINES  EURONET DDR     OC  S          CRT:SS.EURONET.O                                                
            5.0T3   918  SCREEN_SUPPORT_ROUTINES.E.OC.008   1 LINE   1370    8 PAGE UM   CASHMAN             AUG. 06, 1981  05:40:08
            5.0T8   297                       
0          Object produced by compiling (811/7). Due to external name conflicts with the
           IBM 3270 DDR (811/9), this should be linkeditted to remove all entry points
           except DDRONTEL.
00811/009C  SCREEN SUPPORT ROUTINES  3270 DDR        SQ  S          CRT:SS.3270.S                                                   
            5.0T3   919  SCREEN_SUPPORT_ROUTINES.3.SQ.009   1 LINE    232    9 PAGE UM   CASHMAN             JULY 03, 1981  20:15:51
            5.0T8   298                       
0          PLUS (1042) source for IBM 3270 device-dependent routines. Uses the Version
           Labeler (812) and SIDELABEL (747) for listing enhancements. $SOURCE to
           compile. Requires (811/1) and (1042/4).
0          Referenced by comments of: 811/8, 811/10 
1                                                                                               MON AUG 05/96   18:37:45   Page  617
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00811/010C  SCREEN SUPPORT ROUTINES  3270 DDR        OC  S          CRT:SS.3270.O                                                   
            5.0T3   920  SCREEN_SUPPORT_ROUTINES.3.OC.010   1 LINE   1252    8 PAGE UM   CASHMAN             JULY 03, 1981  20:16:06
            5.0T8   299                       
0          Object produced by compiling (811/9). Due to external name conflicts with the
           EURONET DDR (811/7), this should be linkeditted to remove all entry points
           except DDR3270.
00811/011C  SCREEN SUPPORT ROUTINES  OBJECT          OE  S          SEG2:SCREENRTNS                                                 
            5.0T3   921  SCREEN_SUPPORT_ROUTINES.O.OE.011   1 LINE   6032   27 PAGE UM   CASHMAN             JULY 03, 1981  20:16:08
            5.0T8   300  SEG2:SCREENRTNS      
0          This is the object for the screen support routines.  It contains all the
           device-independent components and DDRs.  The DDRs should have their internal
           subroutine names purged to prevent loader conflicts.
00811/012C  SCREEN SUPPORT ROUTINES  WRITEUP         WF  S          CRT:SS.WRITEUP.W                                                
            5.0T3   922  SCREEN_SUPPORT_ROUTINES.W.WF.012   1 LINE    135    5 PAGE UM   CASHMAN             JULY 03, 1981  20:16:10
            5.0T8   301                       
0          *FORMAT input used to generate Screen Support Routines writeup.  $SOURCE to
           produce a writeup.
00812/001C  VERSION LABELER                          SG  G          UNSP:ÂVERLAB.S                                                  
            5.0T3   923  VERSION_LABELER..SG.001            1 LINE    161    3 PAGE UM   UNSP      BURLING   JULY 03, 1981  20:16:11
            5.0T8   302                       
0          This program provides listing enhancements;  it was formerly distributed,
           on D4.0, as a part of *IG (498).
            
           It is used by the Disk Manager (769), *IG (498), the editor (648) and the
           Screen Support Routines (811).
0          Referenced by comments of: 498/1, 648/1, 769/1, 811/3, 811/5, 811/7, 811/9, 822/1, 822/5, 822/9, 822/13, 822/16,
                 822/19 
00812/002C  VERSION LABELER                          OC  G          UNSP:VERLAB                                                     
            5.0T3   924  VERSION_LABELER..OC.002            1 LINE   1904    3 PAGE UM   UNSP      BURLING   JULY 03, 1981  20:16:12
            5.0T8   303                       
00812/003C  VERSION LABELER          WRITEUP         P              UNSP:VERLAB.W                                                   
            5.0T3   925  VERSION_LABELER.WRITEUP.P.003      1 LINE     69    1 PAGE UM   UNSP      BURLING   JULY 03, 1981  20:16:14
            5.0T8   304                       
00813/001C  PL1 OPTIMIZING COMPILER  INSTALL NOTES   WF             PL1:OPTINSTALL                                                  
            5.0T3   926  PL1_OPTIMIZING_COMPILER.I.WF.001   1 LINE     68    4 PAGE UM   TIFFANY             JULY 03, 1981  20:16:15
            5.0T8   305                       
0          Writeup describing how to install the PL1 Optimizing Compiler.
            
           *************************************************************************
           D5.0 version:
            
           This is a preliminary version of the compiler.
1                                                                                               MON AUG 05/96   18:37:45   Page  618
0  Num   R       Component Name         Subname     Type G Seq ID 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          *************************************************************************
0          Referenced by comments of: 233/1 
00813/002C  PL1 OPTIMIZING COMPILER  DESCRIPTION     WF  O          PL1:DESCRIPTION                                                 
            5.0T3   927  PL1_OPTIMIZING_COMPILER.D.WF.002   1 LINE     77    3 PAGE UM   TIFFANY             JULY 03, 1981  20:16:19
            5.0T8   306                       
0          A brief description of the PL1 Optimizing Compiler in MTS.
00813/003C  PL1 OPTIMIZING COMPILER  OBJECT          OE  G        # PL1:OPTIMIZER                                                   
                                                                                    UM   TIFFANY                                    
0          Object of the PL1 Optimizing Compiler.  Due to IBM copyrights restrictions,
           the object cannot be distributed.
0          Referenced by comments of: 813/11, 813/12, 813/14, 813/16 
00813/004C  PL1 OPTIMIZING COMPILER  ETC:OPTPL1LINK  OL  G        # ETC:OPTPL1LINK                                                  
                                                                                    UM   TIFFANY                                    
0          Link library for the PL1 Optimizing Compiler.  Due to IBM copyright
           restrictions, this cannot be distributed.
0          Referenced by comments of: 813/15, 813/17, 813/18, 813/19, 813/20, 813/21, 813/22, 813/23, 813/24, 813/25, 813/26,
                 813/27, 813/28, 813/29, 813/30, 813/31, 813/32, 813/33, 813/34, 813/35, 813/36, 813/37, 813/38, 813/39,
                 813/40, 813/41, 813/42, 813/43, 813/44 
00813/005C  PL1 OPTIMIZING COMPILER  PPOPTIONS       SM  G        # PL1:PPOPTIONS                                                   
                                                                                    UM   TIFFANY                                    
0          Macro library to assemble (813/19) and (813/20). Due to IBM copyright
           restrictions, this cannot be distributed. This comes from options macros,
           file 2 on either the installation tape or the PTF tape, with copy sections
           PLIX1 and PLIX2 renamed as PLIXOPB and PLIXOPC respectively.
0          Referenced by comments of: 813/19, 813/20 
00813/006C  PL1 OPTIMIZING COMPILER  MACLIB          SM  G        # PL1:OPTPL1MAC                                                   
                                                                                    UM   TIFFANY                                    
0          Main macro library for PL1 Optimizing Compiler. Due to IBM copyright
           restrictions, this cannot be distributed. See (813/7) for the MTS update to
           the IBM version.
0          Referenced by comments of: 813/7, 813/16, 813/17, 813/18, 813/21, 813/22, 813/23, 813/24, 813/25, 813/26, 813/27,
                 813/28, 813/29, 813/30, 813/31, 813/32, 813/33, 813/34, 813/35, 813/36, 813/37, 813/38, 813/39, 813/40,
                 813/41, 813/42, 813/43, 813/44 
00813/007C  PL1 OPTIMIZING COMPILER  MACLIB UPD      UC  G          S1516 'PL1 OPTIMIZER' FSNAME=OPTPL1MAC.UP                       
            5.0T3   928  PL1_OPTIMIZING_COMPILER.M.UC.007   1 LINE     64    3 PAGE UM   TIFFANY             MAY  12, 1981  10:59:50
            5.0T8   307                       
0          *CDUPDATE (1036) input to IBM's version of the compiler macros (813/6). Run
1                                                                                               MON AUG 05/96   18:37:45   Page  619
0  Num   R       Component Name         Subname     Type G Seq ID 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          (506/8) on *CDUPDATE output with SPUNCH=OPTPL1MAC (813/6) to get the macro
           library.
0          Referenced by comments of: 813/6 
00813/008C  PL1 OPTIMIZING COMPILER  LOADMAC         SM  G          S1516 'PL1 OPTIMIZER' FSNAME=LOADMAC                            
            5.0T3   929  PL1_OPTIMIZING_COMPILER.L.SM.008   1 LINE     33    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:49:55
            5.0T8   308                       
0          Macros to simulate LOAD, DELETE, LINK, and XCTL.
0          Referenced by comments of: 813/16, 813/17, 813/30, 813/37, 813/43 
00813/009C  PL1 OPTIMIZING COMPILER  OPTLOAD         SA  G          S1516 'PL1 OPTIMIZER' FSNAME=OPTLOAD.S                          
            5.0T3   930  PL1_OPTIMIZING_COMPILER.O.SA.009   1 LINE     72    4 PAGE UM   TIFFANY             MAR. 30, 1981  20:50:17
            5.0T8   309                       
0          Source for slow-loading module used chiefly for debugging the PL1 Optimizing
           Compiler. Assemble with TEST,PEXIT=*PEXIT (775).
0          Referenced by comments of: 813/11 
00813/010C  PL1 OPTIMIZING COMPILER  OPTLOAD         OC  G          S1516 'PL1 OPTIMIZER' FSNAME=OPTLOAD                            
            5.0T3   931  PL1_OPTIMIZING_COMPILER.O.OC.010   1 LINE   1636    3 PAGE UM   TIFFANY             MAR. 30, 1981  20:50:07
            5.0T8   310                       
00813/011C  PL1 OPTIMIZING COMPILER  FASTLOAD        SA  G          S1516 'PL1 OPTIMIZER' FSNAME=FASTLOAD.S                         
            5.0T3   932  PL1_OPTIMIZING_COMPILER.F.SA.011   1 LINE     73   11 PAGE UM   TIFFANY             MAR. 30, 1981  20:50:34
            5.0T8   311                       
0          A much faster version of (813/9). Assemble with PEXIT=*PEXIT (775). Install
           into PL1:OPTIMIZER (813/3).
00813/012C  PL1 OPTIMIZING COMPILER  FASTLOAD        OC  G          S1516 'PL1 OPTIMIZER' FSNAME=FASTLOAD                           
            5.0T3   933  PL1_OPTIMIZING_COMPILER.F.OC.012   1 LINE   4945    5 PAGE UM   TIFFANY             MAR. 30, 1981  20:50:28
            5.0T8   312                       
0          Install this into PL1:OPTIMIZER (813/3).
00813/013C  PL1 OPTIMIZING COMPILER  FIND            SA  G          S1516 'PL1 OPTIMIZER' FSNAME=FIND.S                             
            5.0T3   934  PL1_OPTIMIZING_COMPILER.F.SA.013   1 LINE     68    5 PAGE UM   TIFFANY             MAR. 30, 1981  20:50:52
            5.0T8   313                       
0          Module to find the source for the corresponding %INCLUDE statements. Assemble
           with PEXIT=*PEXIT (775). Copies *GDINFODSECT (594).
00813/014C  PL1 OPTIMIZING COMPILER  FIND            OC  G          S1516 'PL1 OPTIMIZER' FSNAME=FIND                               
            5.0T3   935  PL1_OPTIMIZING_COMPILER.F.OC.014   1 LINE   2045    3 PAGE UM   TIFFANY             MAR. 30, 1981  20:50:46
            5.0T8   314                       
0          Install this into PL1:OPTIMIZER (813/3).
1                                                                                               MON AUG 05/96   18:37:45   Page  620
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00813/015C  PL1 OPTIMIZING COMPILER  IEL0UA LKED     D   G          S1516 'PL1 OPTIMIZER' FSNAME=UA.LKED                            
            5.0T3   936  PL1_OPTIMIZING_COMPILER.I.D.015    1 LINE     66    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:13:40
            5.0T8   315                       
0          This is the *LINKEDIT (297) input to produce from the assembled sources
           IEL0UA1 and IEL0UA2 the compiler phases IEL0UA, IEL0UAY, IEL0UAC,
           IEL0UAE, and IEL0UAT in ETC:OPTPL1LINK (813/4).
0          Referenced by comments of: 813/43 
00813/016C  PL1 OPTIMIZING COMPILER  IEL0AA          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=AA.UP                              
            5.0T3   937  PL1_OPTIMIZING_COMPILER.I.UC.016   1 LINE     69    4 PAGE UM   TIFFANY             MAR. 30, 1981  20:51:07
            5.0T8   316                       
0          *CDUPDATE (1036) input for the source IEL0AA. Assemble with (813/6) and
           (813/8). Install into PL1:OPTIMIZER (813/3).
00813/017C  PL1 OPTIMIZING COMPILER  IEL0AE          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=AE.UP                              
            5.0T3   938  PL1_OPTIMIZING_COMPILER.I.UC.017   1 LINE     67    5 PAGE UM   TIFFANY             APR. 20, 1981  11:01:32
            5.0T8   317                       
0          *CDUPDATE (1036) input for the source IEL0AE. Assemble with (813/6) and
           (813/8). Install into phase IEL0AE in ETC:OPTPL1LINK (813/4).
00813/018C  PL1 OPTIMIZING COMPILER  IEL0AI          SA  G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   TIFFANY                                    
0          Source IEL0AI must be assembled with (813/6) due to change in (813/6).
           Install into phase IEL0AI in ETC:OPTPL1LINK (813/4).
            
           This subcomponent is included only as a reminder that IEL0AI must be
           assembled. There is no MTS update required.
00813/019C  PL1 OPTIMIZING COMPILER  IEL0AS          SA  G          S1516 'PL1 OPTIMIZER' FSNAME=AS.S                               
            5.0T3   939  PL1_OPTIMIZING_COMPILER.I.SA.019   1 LINE     72    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:51:24
            5.0T8   318                       
0          Assemble with (813/5). Install into phase IEL0AS in ETC:OPTPL1LINK (813/4).
0          Referenced by comments of: 813/5 
00813/020C  PL1 OPTIMIZING COMPILER  IEL0AT          SA  G          S1516 'PL1 OPTIMIZER' FSNAME=AT.S                               
            5.0T3   940  PL1_OPTIMIZING_COMPILER.I.SA.020   1 LINE     72    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:51:31
            5.0T8   319                       
0          Assemble with (813/5). Install into phase IEL0AT in ETC:OPTPL1LINK (813/4).
0          Referenced by comments of: 813/5 
00813/021C  PL1 OPTIMIZING COMPILER  IEL0BA          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=BA.UP                              
            5.0T3   941  PL1_OPTIMIZING_COMPILER.I.UC.021   1 LINE     68    3 PAGE UM   TIFFANY             MAR. 30, 1981  20:51:42
            5.0T8   320                       
0          *CDUPDATE (1036) input for source IEL0BA. Assemble with (813/6). Install
1                                                                                               MON AUG 05/96   18:37:45   Page  621
0  Num   R       Component Name         Subname     Type G Seq ID 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          object into phase IEL0BA in ETC:OPTPL1LINK (813/4).
00813/022C  PL1 OPTIMIZING COMPILER  IEL0CA          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=CA.UP                              
            5.0T3   942  PL1_OPTIMIZING_COMPILER.I.UC.022   1 LINE     63    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:51:50
            5.0T8   321                       
0          *CDUPDATE (1036) input for source IEL0CA. Assemble with (813/6). Install
           object into phases IEL0CA1, IEL0CB, IEL0CC in ETC:OPTPL1LINK (813/4). Do not
           install in IEL0CA.
00813/023C  PL1 OPTIMIZING COMPILER  IEL0CA1         UC  G          S1516 'PL1 OPTIMIZER' FSNAME=CA1.UP                             
            5.0T3   943  PL1_OPTIMIZING_COMPILER.I.UC.023   1 LINE     59    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:51:58
            5.0T8   322                       
0          *CDUPDATE (1036) input for source IEL0CA1. Assemble with (813/6). Install
           into phase IEL0CA1 in ETC:OPTPL1LINK (813/4).
00813/024C  PL1 OPTIMIZING COMPILER  IEL0CB          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=CB.UP                              
            5.0T3   944  PL1_OPTIMIZING_COMPILER.I.UC.024   1 LINE     54    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:52:07
            5.0T8   323                       
0          *CDUPDATE (1036) input for source IEL0CB. Assemble with (813/6). Install into
           phase IEL0CB in ETC:OPTPL1LINK (813/4).
00813/025C  PL1 OPTIMIZING COMPILER  IEL0CB2         UC  G          S1516 'PL1 OPTIMIZER' FSNAME=CB2.UP                             
            5.0T3   945  PL1_OPTIMIZING_COMPILER.I.UC.025   1 LINE     43    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:52:17
            5.0T8   324                       
0          *CDUPDATE (1036) input for source IEL0CB2. Assemble with (813/6). Install
           into phase IEL0CB in ETC:OPTPL1LINK (813/4).
00813/026C  PL1 OPTIMIZING COMPILER  IEL0CC          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=CC.UP                              
            5.0T3   946  PL1_OPTIMIZING_COMPILER.I.UC.026   1 LINE     56    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:52:22
            5.0T8   325                       
0          *CDUPDATE (1036) input for source IEL0CC. Assemble with (813/6). Install into
           phase IEL0CC in ETC:OPTPL1LINK (813/4).
00813/027C  PL1 OPTIMIZING COMPILER  IEL0CC2         UC  G          S1516 'PL1 OPTIMIZER' FSNAME=CC2.UP                             
            5.0T3   947  PL1_OPTIMIZING_COMPILER.I.UC.027   1 LINE     44    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:52:32
            5.0T8   326                       
0          *CDUPDATE (1036) input for source IEL0CC2. Assemble with (813/6). Install
           into phase IEL0CC in ETC:OPTPL1LINK (813/4).
00813/028C  PL1 OPTIMIZING COMPILER  IEL0CE1         SA  G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   TIFFANY                                    
0          Source IEL0CE1 must be assembled with (813/6). Install into phase IEL0CE in
           ETC:OPTPL1LINK (813/4). Required due to change in (813/6).
            
           This subcomponent is included only as a reminder that IEL0CE1 must be
           assembled. There is no MTS update required.
1                                                                                               MON AUG 05/96   18:37:45   Page  622
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00813/029C  PL1 OPTIMIZING COMPILER  IEL0CI1         SA  G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   TIFFANY                                    
0          Source IEL0CI1 must be assembled with ETC:OPTPL1LINK (813/4) and (813/6).
           Install into phase IEL0CI in ETC:OPTPL1LINK (813/4). Assembly required due to
           change in (813/6).
            
           This subcomponent is included only as a reminder that IEL0CI1 must be
           assembled. There is no MTS update required.
00813/030C  PL1 OPTIMIZING COMPILER  IEL0CR          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=CR.UP                              
            5.0T3   948  PL1_OPTIMIZING_COMPILER.I.UC.030   1 LINE     36    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:16:53
            5.0T8   327                       
0          *CDUPDATE (1036) input for source IEL0CR. Assemble with (813/6) and (813/8).
           Install into phase IEL0CA in ETC:OPTPL1LINK (813/4).
00813/031C  PL1 OPTIMIZING COMPILER  IEL0EA1         UC  G          S1516 'PL1 OPTIMIZER' FSNAME=EA1.UP                             
            5.0T3   949  PL1_OPTIMIZING_COMPILER.I.UC.031   1 LINE     63    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:52:43
            5.0T8   328                       
0          *CDUPDATE (1036) input for source IEL0EA1. Assemble with (813/6). Install
           into phase IEL0EA in ETC:OPTPL1LINK (813/4).
00813/032C  PL1 OPTIMIZING COMPILER  IEL0EA2         UC  G          S1516 'PL1 OPTIMIZER' FSNAME=EA2.UP                             
            5.0T3   950  PL1_OPTIMIZING_COMPILER.I.UC.032   1 LINE     68    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:52:49
            5.0T8   329                       
0          *CDUPDATE (1036) input for source IEL0EA2. Assemble with (813/6). Install
           into phase IEL0EA in ETC:OPTPL1LINK (813/4).
00813/033C  PL1 OPTIMIZING COMPILER  IEL0EA3         UC  G          S1516 'PL1 OPTIMIZER' FSNAME=EA3.UP                             
            5.0T3   951  PL1_OPTIMIZING_COMPILER.I.UC.033   1 LINE     67    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:53:03
            5.0T8   330                       
0          *CDUPDATE (1036) input for source IEL0EA3. Assemble with (813/6). Install
           into phase IEL0EA in ETC:OPTPL1LINK (813/4).
00813/034C  PL1 OPTIMIZING COMPILER  IEL0IK          SA  G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   TIFFANY                                    
0          Source IEL0IK must be assembled with (813/6). Install into phase IEL0IK in
           ETC:OPTPL1LINK (813/4). Assembly required due to change in (813/6).
            
           This subcomponent is included only as a reminder that IEL0IK must be
           assembled. There is no MTS update required.
00813/035C  PL1 OPTIMIZING COMPILER  IEL0KV          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=KV.UP                              
            5.0T3   952  PL1_OPTIMIZING_COMPILER.I.UC.035   1 LINE     42    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:17:15
            5.0T8   331                       
0          *CDUPDATE (1036) input for source IEL0KV. Assemble with (813/6). Install into
           phase IEL0KV in ETC:OPTPL1LINK (813/4).
1                                                                                               MON AUG 05/96   18:37:45   Page  623
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00813/036C  PL1 OPTIMIZING COMPILER  IEL0OE          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=OE.UP                              
            5.0T3   953  PL1_OPTIMIZING_COMPILER.I.UC.036   1 LINE     66    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:17:21
            5.0T8   332                       
0          *CDUPDATE (1036) input for source IEL0OE. Assemble with (813/6). Install into
           phase IEL0OE in ETC:OPTPL1LINK (813/4).
00813/037C  PL1 OPTIMIZING COMPILER  IEL0PA          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=PA.UP                              
            5.0T3   954  PL1_OPTIMIZING_COMPILER.I.UC.037   1 LINE     60    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:17:28
            5.0T8   333                       
0          *CDUPDATE (1036) input for source IEL0PA. Assemble with (813/6) and (813/8).
           Install into phase IEL0PA in ETC:OPTPL1LINK (813/4).
00813/038C  PL1 OPTIMIZING COMPILER  IEL0PAL2        UC  G          S1516 'PL1 OPTIMIZER' FSNAME=PAL2.UP                            
            5.0T3   955  PL1_OPTIMIZING_COMPILER.I.UC.038   1 LINE     60    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:17:36
            5.0T8   334                       
0          *CDUPDATE (1036) input for source IEL0PAL2. Assemble with (813/6). Install
           into phase IEL0PAL2 in ETC:OPTPL1LINK (813/4). This deletes a reference to
           IEAXPALL, an extended precision simulator.
00813/039C  PL1 OPTIMIZING COMPILER  IEL0PAL3        UC  G          S1516 'PL1 OPTIMIZER' FSNAME=PAL3.UP                            
            5.0T3   956  PL1_OPTIMIZING_COMPILER.I.UC.039   1 LINE     60    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:17:43
            5.0T8   335                       
0          *CDUPDATE (1036) input for source IEL0PAL3. Assemble with (813/6). Install
           into phase IEL0PAL3 in ETC:OPTPL1LINK (813/4). This deletes a reference to
           IEAXPALL, an extended precision simulator.
00813/040C  PL1 OPTIMIZING COMPILER  IEL0PAL5        UC  G          S1516 'PL1 OPTIMIZER' FSNAME=PAL5.UP                            
            5.0T3   957  PL1_OPTIMIZING_COMPILER.I.UC.040   1 LINE     60    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:17:50
            5.0T8   336                       
0          *CDUPDATE (1036) input for source IEL0PAL5. Assemble with (813/6). Install
           into phase IEL0PAL5 in ETC:OPTPL1LINK (813/4). This deletes a reference to
           IEAXPALL, an extended precision simulator.
00813/041C  PL1 OPTIMIZING COMPILER  IEL0SI          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=SI.UP                              
            5.0T3   958  PL1_OPTIMIZING_COMPILER.I.UC.041   1 LINE     62    1 PAGE UM   TIFFANY             MAR. 30, 1981  20:53:12
            5.0T8   337                       
0          *CDUPDATE (1036) input for source IEL0SI. Assemble with (813/6). Install into
           phase IEL0SI in ETC:OPTPL1LINK (813/4).
00813/042C  PL1 OPTIMIZING COMPILER  IEL0SM          UC  G          S1516 'PL1 OPTIMIZER' FSNAME=SM.UP                              
            5.0T3   959  PL1_OPTIMIZING_COMPILER.I.UC.042   1 LINE     56    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:17:56
            5.0T8   338                       
0          *CDUPDATE (1036) input for source IEL0SM. Assemble with (813/6). Install into
           phase IE0SM in ETC:OPTPL1LINK (813/4).
1                                                                                               MON AUG 05/96   18:37:45   Page  624
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00813/043C  PL1 OPTIMIZING COMPILER  IEL0UA1         UC  G          S1516 'PL1 OPTIMIZER' FSNAME=UA1.UP                             
            5.0T3   960  PL1_OPTIMIZING_COMPILER.I.UC.043   1 LINE     34    1 PAGE UM   TIFFANY             MAR. 13, 1981  14:18:05
            5.0T8   339                       
0          *CDUPDATE (1036) input for source IEL0UA1. Assemble with (813/6) and (813/8).
           Use (813/15) to generate various compiler phases and then install them into
           ETC:OPTPL1LINK (813/4).
00813/044C  PL1 OPTIMIZING COMPILER  IEL0UE1         SA  G        # (NOT DISTRIBUTED)                                               
                                                                                    UM   TIFFANY                                    
0          Source IEL0UE1 must be assembled with (813/6) due to a change in (813/6).
           Install into phase IEL0UE in ETC:OPTPL1LINK (813/4).
            
           This subcomponent is included only as a reminder that IEL0UE1 must be
           assembled. There is no MTS update required.
00814/001C  DUMP TAPE PROCESSING     WRITEUP         P              DUMP:DUMP.DOC                                                   
            5.0T3   961  DUMP_TAPE_PROCESSING.WRIT.P.001    1 LINE     68    4 PAGE UM   STERKEN             JULY 03, 1981  20:19:25
            5.0T8   340                       
0              At UM, we have a rotating crew of "fire fighters" who 
           are charged with keeping MTS up and running. 
            
               One of the jobs fire-fighters must do is process job-dumps.
           This involves printing job-dump listings, routing them to
           the appropriate person, and releasing dump tapes.  In an attempt
           to organize this work, we've set up user ID "DUMP" as a place
           to keep track of all of this.
            
               User ID "DUMP" has a "known" password: "DUMP".  Its sigfile
           uses *CKID (680) to screen interactive users, and in batch mode
           it always runs DUMP:DUMP.BATCH (814/10) which prints listings
           of all recent job-dumps.
            
               Whenever a job-dump has occurred, the operators use operator
           job *DMP (814/8) to log the dump.  *DMP runs DUMP:DUMPER (814/3),
           which logs the dump and submits a *BATCH* job to print the listing.
           The receipt number is placed in file DUMP:TAPES (814/7). 
            
               This subcomponent contains further details on the processing of
           dump tapes and fire-fighting duties in general.
            
0          Referenced by comments of: 814/2, 814/9 
00814/002C  DUMP TAPE PROCESSING     DUMPER          SA  G          DUMP:DUMPER.S                                                   
            5.0T3   962  DUMP_TAPE_PROCESSING.DUMP.SA.002   1 LINE     72    4 PAGE UM   STERKEN             JULY 03, 1981  20:19:28
            5.0T8   341                       
0          Program used to print jobdumps via MTS:PRINTDUMP (400/19). See (814/1) for
           details. Copies *SENSEDSECT (3025) and *GDINFODSECT (594).
0          Referenced by comments of: 814/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  625
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00814/003C  DUMP TAPE PROCESSING     DUMPER          OC  G          DUMP:DUMPER                                                     
            5.0T3   963  DUMP_TAPE_PROCESSING.DUMP.OC.003   1 LINE   3348    4 PAGE UM   STERKEN             JULY 03, 1981  20:19:29
            5.0T8   342  DUMP:DUMPER          
0          Object of (814/2). Has a $CONTINUE WITH DUMP:DMPMSG (814/5) record.
0          Referenced by comments of: 814/1, 814/4, 814/6, 814/7, 814/8 
00814/004C  DUMP TAPE PROCESSING     DMPMSG          SA  G          DUMP:DMPMSG.S                                                   
            5.0T3   964  DUMP_TAPE_PROCESSING.DMPM.SA.004   1 LINE     68    3 PAGE UM   STERKEN             JULY 03, 1981  20:19:29
            5.0T8   343                       
0          A subroutine used by (814/3) to read job-dump tape headers. Copies
           *CNFGINFODSECT (654). Assemble using the PRINTDUMP macros (400/18).
00814/005C  DUMP TAPE PROCESSING     DMPMSG          OC  G          DUMP:DMPMSG                                                     
            5.0T3   965  DUMP_TAPE_PROCESSING.DMPM.OC.005   1 LINE     80    1 PAGE UM   STERKEN             JULY 03, 1981  20:19:30
            5.0T8   344  DUMP:DMPMSG          
0          Referenced by comments of: 814/3 
00814/006C  DUMP TAPE PROCESSING     LOG             D            # DUMP:LOG                                                        
                                                                                    UM   STERKEN                                    
                         DUMP:LOG@E           
0          All dumps are logged in this file by (814/3).
00814/007C  DUMP TAPE PROCESSING     LOG             D            # DUMP:TAPES                                                      
                                                                                    UM   STERKEN                                    
                         DUMP:TAPES@E         
0          File used by (814/3) to log a line for each active, unreleased dump tape.
0          Referenced by comments of: 814/1 
00814/008C  DUMP TAPE PROCESSING     *DMP            C   G          *DMP                                                            
            5.0T3   966  DUMP_TAPE_PROCESSING.*DMP.C.008    1 LINE     51    1 PAGE UM   STERKEN             JULY 03, 1981  20:19:31
            5.0T8   345  *DMP                 
0          Operator job which runs (814/3) to log job dumps.
0          Referenced by comments of: 814/1 
00814/009C  DUMP TAPE PROCESSING     BATCH DUMP      SA  G          DUMP:DUMP.BATCH.S                                               
            5.0T3   967  DUMP_TAPE_PROCESSING.BATC.SA.009   1 LINE    144    4 PAGE UM   STERKEN             JULY 03, 1981  20:19:32
            5.0T8   346                       
0          Program to print job dumps via MTS:PRINTDUMP (400/19).  It is run from
           the sigfile (814/12) of the user ID "DUMP" in batch mode.  See (814/1)
           for details.
1                                                                                               MON AUG 05/96   18:37:45   Page  626
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00814/010C  DUMP TAPE PROCESSING     BATCH DUMP      OC  G          DUMP:DUMP.BATCH                                                 
            5.0T3   968  DUMP_TAPE_PROCESSING.BATC.OC.010   1 LINE     80    5 PAGE UM   STERKEN             JULY 03, 1981  20:19:33
            5.0T8   347  DUMP:DUMP.BATCH      
0          Referenced by comments of: 814/1, 814/11 
00814/011C  DUMP TAPE PROCESSING     BATCH DUMP      D              DUMP:DUMP.CMDS                                                  
            5.0T3   969  DUMP_TAPE_PROCESSING.BATC.D.011    1 LINE     68    1 PAGE UM   STERKEN             JULY 03, 1981  20:19:34
            5.0T8   348  DUMP:DUMP.CMDS       
0          Contains commands for MTS:PRINTDUMP (400/19) used by (814/10). This file
           should not be renumbered.
00814/012C  DUMP TAPE PROCESSING     SIGFILE         C              DUMP:SIGFILE                                                    
            5.0T3   970  DUMP_TAPE_PROCESSING.SIGF.C.012    1 LINE     33    1 PAGE UM   STERKEN             JULY 03, 1981  20:19:34
            5.0T8   349  DUMP:SIGFILE         
0          Sigfile for user ID "DUMP".
0          Referenced by comments of: 814/9 
00815/001C  SIDEBYSIDE               SBSPROG         SG  G          S0027 DISTRB FSNAME=SBSPROG                                     
            5.0T3   971  SIDEBYSIDE.SBSPROG.SG.001          1 LINE     70    2 PAGE UM   UNSP      ENGLE     MAY  01, 1981  12:21:33
            5.0T8   350                       
0          Program to place consecutive print pages in a side-by-side format, taking
           logical carriage control into account.
0          Referenced by comments of: 815/4, 815/7 
00815/002   SIDEBYSIDE               SBSPROG         UC           # (NOT CURRENTLY USED)                                            
                                                                                    UM   UNSP      ENGLE                            
0          Updates source from previous regular distribution to current distribution.
00815/003C  SIDEBYSIDE               SBSPROG         OC  G          S0027 DISTRB FSNAME=SBSP                                        
            5.0T3   972  SIDEBYSIDE.SBSPROG.OC.003          1 LINE     80    4 PAGE UM   UNSP      ENGLE     MAY  01, 1981  12:23:06
            5.0T8   351                       
00815/004C  SIDEBYSIDE               SIDBYSID        SG  G          S0027 DISTRB FSNAME=SIDBYSID                                    
            5.0T3   973  SIDEBYSIDE.SIDBYSID.SG.004         1 LINE    114    5 PAGE UM   UNSP      ENGLE     MAY  01, 1981  12:23:42
            5.0T8   352                       
0          Subroutine called by SBSPROG (815/1) to do most of the work.
0          Referenced by comments of: 815/7 
00815/005   SIDEBYSIDE               SIDBYSID        UC  G        # (NOT CURRENTLY USED)                                            
                                                                                    UM   UNSP      ENGLE                            
0          Updates source from previous regular distribution to current distribution.
1                                                                                               MON AUG 05/96   18:37:45   Page  627
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00815/006C  SIDEBYSIDE               SIDBYSID        OC  G          S0027 DISTRB FSNAME=SBS                                         
            5.0T3   974  SIDEBYSIDE.SIDBYSID.OC.006         1 LINE     80    6 PAGE UM   UNSP      ENGLE     MAY  01, 1981  12:24:17
            5.0T8   353                       
00815/007C  SIDEBYSIDE                               OE  G          UNSP:SIDEBYSIDE                                                 
            5.0T3   975  SIDEBYSIDE..OE.007                 1 LINE   8952    4 PAGE UM   UNSP      ENGLE     JULY 03, 1981  20:19:55
            5.0T8   354  UNSP:SIDEBYSIDE      
0          Linkeditted version of SBSPROG (815/1) and SIDBYSID (815/4).
00815/008C  SIDEBYSIDE               WRITEUP         WF             S0027 DISTRB FSNAME=SIDBYSIDWRITEUP                             
            5.0T3   976  SIDEBYSIDE.WRITEUP.WF.008          1 LINE     74    2 PAGE UM   UNSP      ENGLE     APR. 15, 1981  15:41:09
            5.0T8   355                       
0          Source for UNSP:SIDEBYSIDE writeup.
00816/001C  CLOCKWATCHER             MASTER TASK     SA  O          W116:CLK.REL1.S                                                 
            5.0T3   977  CLOCKWATCHER.MASTER_TASK.SA.001    1 LINE     73   35 PAGE UM   H YOUNG             JULY 03, 1981  20:19:59
            5.0T8   356                       
0          This is the Clockwatcher program.  It is used to start up specific tasks at
           specific times.  The following files are required by the Clockwatcher:
            
               CLK.MASTER   -- Holds the run information for the various jobs to
                               be run.
               CLK.DAILY    -- Holds the run schedules for the current day.
               CLK.UNATTEND -- Holds run schedules for jobs delayed due to 
                               unattended mode.
               CLK.AUDIT    -- Traces the Clockwatcher's actions.
            
           Requires the (816/5) macro library.
            
           ********************************************************************************
           D5.0 version:
            
           NOTE:  The submission portion of the task is still under development.  All
           data in CLK.MASTER must currently be entered by hand.  See the (816/7) writeup
           for a description of how to do this.  In addition, a "dummy" version of 
           CLK.MASTER is included in this distribution as (816/6).
           ********************************************************************************
0          Referenced by comments of: 798/107, 816/2, 816/5, 816/6 
00816/002C  CLOCKWATCHER             MASTER TASK     OE  O          SYS:CLOCKWATCHER                                                
            5.0T3   978  CLOCKWATCHER.MASTER_TASK.OE.002    1 LINE   4950   73 PAGE UM   H YOUNG             JULY 03, 1981  20:20:02
            5.0T8   357  SYS:CLOCKWATCHER     
0          Contains the linkedited object for (816/1) and (808/2).
0          Referenced by comments of: 816/3, 816/4 
1                                                                                               MON AUG 05/96   18:37:45   Page  628
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00816/003C  CLOCKWATCHER             *CLK            C   G          *CLK                                                            
            5.0T3   979  CLOCKWATCHER.*CLK.C.003            1 LINE     51    1 PAGE UM   H YOUNG             JULY 03, 1981  20:20:08
            5.0T8   358  *CLK                 
0          Operator file containing commands used to start up the Clockwatcher (816/2).
00816/004C  CLOCKWATCHER             *CLR            C   G          *CLR                                                            
            5.0T3   980  CLOCKWATCHER.*CLR.C.004            1 LINE     35    1 PAGE UM   H YOUNG             JULY 03, 1981  20:20:09
            5.0T8   359  *CLR                 
0          Operator file containing commands used to restart the Clockwatcher (816/2).
00816/005C  CLOCKWATCHER             MACLIB          SM  O          W116:CLK.MACRO                                                  
            5.0T3   981  CLOCKWATCHER.MACLIB.SM.005         1 LINE     72    5 PAGE UM   H YOUNG             JULY 03, 1981  20:20:10
            5.0T8   360                       
0          Macro library required by (816/1).
0          Referenced by comments of: 816/1 
00816/006C  CLOCKWATCHER             CLK.MASTER      D              W116:CLK.MASTER2                                                
            5.0T3   982  CLOCKWATCHER.CLK.MASTER.D.006      1 LINE     72    1 PAGE UM   H YOUNG             JULY 03, 1981  20:20:11
            5.0T8   361                       
0          This is a "dummy" version of the CLK.MASTER file required by (816/1).  It is
           included as an example of how that file should be constructed, and contains
           a run record for *MSG (798/107), the $MESSAGESYSTEM housekeeping job. 
0          Referenced by comments of: 816/1 
00816/007C  CLOCKWATCHER             WRITEUP         P              W116:CLK.DOC                                                    
            5.0T3   983  CLOCKWATCHER.WRITEUP.P.007         1 LINE     76    2 PAGE UM   H YOUNG             JULY 03, 1981  20:20:12
            5.0T8   362                       
0          This is a description of the Clockwatcher, as distributed on D5.0.
0          Referenced by comments of: 816/1 
00817/001C  PAGE PRINTER                             SQ  G          W267:PAGEPR.SQ(1000)                                            
            5.0T3   984  PAGE_PRINTER..SQ.001               1 LINE    221    7 PAGE UM   UNSP      EADIE     JULY 03, 1981  20:20:13
            5.0T8   363                       
0          Source code for the program to send copy via the Merit Network to Wayne 
           State for printing on their Xerox 9700 Page Printer.
            
           Requires the NEW:PLUS.SOURCEL (1042/4) source library.
0          Referenced by comments of: 637/3 
00817/002C  PAGE PRINTER                             OC  G          UNSP:PAGEPR                                                     
            5.0T3   985  PAGE_PRINTER..OC.002               1 LINE   6270    9 PAGE UM   UNSP      EADIE     JULY 03, 1981  20:20:23
            5.0T8   364                       
1                                                                                               MON AUG 05/96   18:37:45   Page  629
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00817/003C  PAGE PRINTER                             D   G          UNSP:PGF                                                        
            5.0T3   986  PAGE_PRINTER..D.003                1 LINE     73    4 PAGE UM   UNSP      EADIE     JULY 03, 1981  20:20:24
            5.0T8   365                       
0          A file of DJDEs used to select various page printer formats and fonts. 
           This file should not be renumbered.
00817/004C  PAGE PRINTER                             D   G          UNSP:PGF.FONTS                                                  
            5.0T3   987  PAGE_PRINTER..D.004                1 LINE    134   53 PAGE UM   UNSP      EADIE     JULY 03, 1981  20:20:25
            5.0T8   366                       
0          A file of sample pages.  To obtain these (if such action is meaningful at
           your site), $RUN UNSP:PAGEPR SCARDS=UNSP:PGF.FONTS.
00817/005C  PAGE PRINTER             WRITEUP         PF             UNSP:PGF.W                                                      
            5.0T3   988  PAGE_PRINTER.WRITEUP.PF.005        1 LINE     77    9 PAGE UM   UNSP      EADIE     JULY 03, 1981  20:20:30
            5.0T8   367                       
00818/001C  PATHDEVICE                               SA  G          DMGR:PATHDEV.S                                                  
            5.0T3   989  PATHDEVICE..SA.001                 1 LINE    117    3 PAGE UM   HELFFRICH           JULY 03, 1981  20:20:32
            5.0T8   368                       
0          Subroutine which will successively return all paths to a device, and whether
           each path is online or not. Used by the Disk Manager (769) and SSRTN (413/1).
           Contains commands which may be $SOURCEd to for assembly. Requires
           COPY:CC.MACROS (1054/3) and COPY:LLMPSEQU (087).
0          Referenced by comments of: 413/1 
00818/002C  PATHDEVICE                               OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   HELFFRICH                                  
0          Object part of Resident System (468)
00819/001C  T11 JOB                                  SA  G          S0938 FSAVE2 VLO FSNAME=T11.S                                   
            5.0T3   990  T11_JOB..SA.001                    1 LINE     70    3 PAGE UM   MTA                 APR. 25, 1981  01:23:41
            5.0T8   369                       
0          Job program to load a 3211 character set and FCB for a T11 print train. 
           Accepts same parameters as P11 (1027).
0          Referenced by comments of: 3/1 
00819/002C  T11 JOB                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTA                                        
0          Object part of Resident System (468)
00820/001C  PM2                      DRIVER          OE  G          SYS:PM2(1,999)                                                  
            5.0T3   991  PM2.DRIVER.OE.001                  1 LINE   1892    3 PAGE UM   MTA                 AUG. 21, 1981  05:42:49
            5.0T8   370                       
0          PM2 is STC's program to format and print disk, tape, and 4305 errors.  It is
           copyrighted and therefore cannot be distributed.  These components have been
1                                                                                               MON AUG 05/96   18:37:45   Page  630
0  Num   R       Component Name         Subname     Type G Seq ID 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          used with version 2.0 of PM2. 
            
           This subcomponent is the driver program for running PM2 under VSS (1078).  It
           is obtained by assembling VSS.DRIVER (1078/39) with PAR=SYSPARM=PM2.
           Contains a $CONTINUE WITH ETC:VSS (1078/38) record.
0          Referenced by comments of: 621/8, 655/4 
00820/002C  PM2                      COMMANDS        C              SYS:PM2(*F,0)                                                   
            5.0T3   992  PM2.COMMANDS.C.002                 1 LINE     22    1 PAGE UM   MTA                 JULY 03, 1981  20:21:49
            5.0T8   371                       
0          Commands to run PM2 under VSS (1078).  Contains only an EXEC command for
           ETC:PM2.CMDS (820/3).
0          Referenced by comments of: 820/3 
00820/003C  PM2                      EXEC            C              ETC:PM2.CMDS                                                    
            5.0T3   993  PM2.EXEC.C.003                     1 LINE    116    2 PAGE UM   MTA                 JULY 03, 1981  20:21:50
            5.0T8   372                       
0          EXEC file for PM2.  Lines 1 - 99 contain commands for running STCPM2FE and 
           and lines 100 - *L contain lines used by SYS:PM2 (820/2) to run STCPM2.
           Requires ETC:PM2.LIB (820/4), ETC:PM2.HST (820/5), and ETC:PM2.CTL (820/7).
0          Referenced by comments of: 820/2 
00820/004C  PM2                      LIBRARY         OL  G        # ETC:PM2.LIB                                                     
                                                                                    UM   MTA                                        
0          Object library for version 2.0 of PM2.  Not distributed due to copyright
           restrictions.
0          Referenced by comments of: 820/3 
00820/005C  PM2                      HISTORY FILE    D            # ETC:PM2.HST                                                     
                                                                                    UM   MTA                                        
0          VSS simulated BDAM file that is used to contain a historical record of the
           last 3 months of errors for each device known to PM2.  Built by STCPM2FE
           using information about the local installation's configuration.
0          Referenced by comments of: 820/3 
00820/006C  PM2                      UM CONFIG       D              MTA:PM2.CONFIG                                                  
            5.0T3   994  PM2.UM_CONFIG.D.006                1 LINE     32    1 PAGE UM   MTA                 JULY 03, 1981  20:21:51
            5.0T8   373                       
0          Input to STCPM2FE to produce the PM2 history file for the UM configuration.
1                                                                                               MON AUG 05/96   18:37:45   Page  631
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00820/007C  PM2                      CNVTEREP CTL    D              ETC:PM2.CTL                                                     
            5.0T3   995  PM2.CNVTEREP_CTL.D.007             1 LINE     92    1 PAGE UM   MTA                 JULY 03, 1981  20:21:52
            5.0T8   374                       
0          Contains 3 lines read by CNVTEREP (655/5) to tell it how and what to convert
           to LOGREC format for PM2.
0          Referenced by comments of: 820/3 
00820/008C  PM2                      OBJECT          OC           # S0938 FSAVE2 VLO FSNAME=STCPM2TAPE.FILE13                       
                                                                                    UM   MTA                                        
0          Object for PM2.  Not distributed due to copyright restrictions.
00820/009C  PM2                      OS JCL                       # S0938 FSAVE2 VLO FSNAME=STCPM2TAPE.FILE14                       
                                                                                    UM   MTA                                        
0          OS JCL for running PM2 in OS/VS.  Not distributed due to copyright restrictions.
00820/010C  PM2                      WRITEUP         WF             MTA:PM2.W                                                       
            5.0T3   996  PM2.WRITEUP.WF.010                 1 LINE     73    1 PAGE UM   MTA                 JULY 03, 1981  20:21:53
            5.0T8   375                       
0          Instructions for running PM2 in MTS.
00821/001C  USERDIRECTORY            PLUS SOURCE     SQ             W274:99UD01                                                     
            5.0T4   535  USERDIRECTORY.PLUS_SOURCE.SQ.001   1 LINE     87   80 PAGE UM   BAUSHKE             AUG. 21, 1981  06:45:41
            5.0T11  109                       
0          This file is all of the PLUS (1042) source for the *USERDIRECTORY program and
           the search subroutines. It is recommended that it be manipulated with the
           Program Management Facility, or PMF (810), using the project file in (821/23).
0          Referenced by comments of: 798/1, 821/2, 821/3, 821/8, 821/11, 821/12 
00821/002C  USERDIRECTORY            DECLARATIONS    SQ  O          W274:99UD02                                                     
            5.0T4   536  USERDIRECTORY.DECLARATION.SQ.002   1 LINE     72   17 PAGE UM   BAUSHKE             AUG. 21, 1981  06:45:50
            5.0T11  110                       
0          This contains the PLUS (1042) source library for the PLUS routines in 
           (821/1).  It can be manipulated using the PMF (810) and (821/6).
0          Referenced by comments of: 821/4 
00821/003C  USERDIRECTORY            MTS LIBRARY     SQ  G          W274:MTS.PLUSLIB                                                
            5.0T4   537  USERDIRECTORY.MTS_LIBRARY.SQ.003   1 LINE     78    9 PAGE UM   BAUSHKE             AUG. 21, 1981  06:45:52
            5.0T11  111                       
0          This file contains various declarations for MTS internal routines.
           Of special note is the CLS Transfer Vector definition.  It is 
           required by component (821/1).
1                                                                                               MON AUG 05/96   18:37:45   Page  632
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00821/004C  USERDIRECTORY            PARSER TYPES    SQ  G          W274:PARSERTYPES                                                
            5.0T4   538  USERDIRECTORY.PARSER_TYPE.SQ.004   1 LINE     68    1 PAGE UM   BAUSHKE             AUG. 21, 1981  06:45:56
            5.0T11  112                       
0          This file is the result of putting (821/6) and (821/7) through the Parser
           (1076). This file is referenced by (821/2). It contains the declarations
           for the semantic actions performed in the name-lookup routines and the
           command language parsers.
00821/005C  USERDIRECTORY            PHONCODE        SA  O          W274:99UD03(1,999)                                              
            5.0T4   539  USERDIRECTORY.PHONCODE.SA.005      1 LINE     69    6 PAGE UM   BAUSHKE             AUG. 21, 1981  06:45:57
            5.0T11  113                       
0          This is the source for the string-to-phonetic-code conversion routine.
           Accessible through the PMF (810).
0          Referenced by comments of: 821/11, 821/12 
00821/006C  USERDIRECTORY            COMMAND SYNTAX  S   O          W274:99UD03(1001,1999)                                          
            5.0T4   540  USERDIRECTORY.COMMAND_SYN.S.006    1 LINE     86    6 PAGE UM   BAUSHKE             AUG. 21, 1981  06:45:59
            5.0T11  114                       
0          This is the UBC Parser (1076) source for the command-language of
           *USERDIRECTORY (821/11). It is PMF module "SYNTAX/S".
0          Referenced by comments of: 821/2, 821/4, 821/11 
00821/007C  USERDIRECTORY            NAME SYNTAX     S   O          W274:99UD03(2001,2999)                                          
            5.0T4   541  USERDIRECTORY.NAME_SYNTAX.S.007    1 LINE     87    2 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:02
            5.0T11  115                       
0          This is the UBC Parser (1076) source for the routine which parses names in
           *USERDIRECTORY (821/11) and for the CLS/user-callable routines.
0          Referenced by comments of: 821/4, 821/11, 821/12 
00821/008C  USERDIRECTORY            UDSET TABLE     SA  G          W274:99UD03(3001,3999)                                          
            5.0T4   542  USERDIRECTORY.UDSET_TABLE.SA.008   1 LINE     27    1 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:04
            5.0T11  116                       
0          Contains a table of constants for use in UDSET and UDGET routines
           in component (821/1).
0          Referenced by comments of: 821/12 
00821/009C  USERDIRECTORY            UDSYMS          SA  G          W274:99UD03(4001,4999)                                          
            5.0T4   543  USERDIRECTORY.UDSYMS.SA.009        1 LINE     72    3 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:06
            5.0T11  117                       
0          Contains the UDSYMS transfer vector and interface code for each of
           the name-search subroutines.
0          Referenced by comments of: 821/12 
1                                                                                               MON AUG 05/96   18:37:45   Page  633
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00821/010C  USERDIRECTORY            SETATTN         SA  G          W274:99UD03(5001,5999)                                          
            5.0T4   544  USERDIRECTORY.SETATTN.SA.010       1 LINE     68    1 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:09
            5.0T11  118                       
0          This contains an attention-interrupt handling routine for use by
           both the command processor for *USERDIRECTORY and the name-search
           subroutines.
0          Referenced by comments of: 821/12 
00821/011C  USERDIRECTORY            *USERDIRECTORY  OE  O          *USERDIRECTORY                                                  
            5.0T4   545  USERDIRECTORY.?USERDIRECT.OE.011   1 LINE  11822   71 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:11
            5.0T11  119  MTS.:*USERDIRECTORY  
0          This is the object of (821/1), (821/5), (821/6), and (821/7). It must be a
           PROT=OFF file to work properly. Contains a $CONTINUE WITH PLUS:PARSER.OL
           (1076/6) + NEW:PLUS.OBJLIB (1042/50) + COPY:SYSDEFS (579/3) record.
            
           **************************************************************************
           D5.0 version:
            
           This version is not fully implemented and contains bugs.
           **************************************************************************
0          Referenced by comments of: 821/6, 821/7, 821/14, 821/16, 821/17, 821/18, 821/19, 821/21, 821/22 
00821/012C  USERDIRECTORY            SEARCH STUFF    OC  O          W274:UD.O                                                       
            5.0T4   546  USERDIRECTORY.SEARCH_STUF.OC.012   1 LINE   6390   27 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:14
            5.0T11  120                       
0          This contains the object for (821/1), (821/5), (821/7), (821/8), (821/9),
           (821/10).
0          Referenced by comments of: 821/13, 821/14, 821/15 
00821/013C  USERDIRECTORY            SEG2 FILE       OE  O          *UDROUTINES                                                     
            5.0T4   547  USERDIRECTORY.SEG2_FILE.OE.013     1 LINE  32767   15 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:16
            5.0T11  121  MTS.:*UDROUTINES     
0          This is the object for the name-search routines and should be loaded into
           shared VM at IPL by PISTLE. It contains the entry point UDSYMS which is a
           transfer vector for the name-search routines. It is a linkeditted version of
           (821/12).
0          Referenced by comments of: 821/15 
00821/014C  USERDIRECTORY            SUB RELEASE     C   G          W274:UD.SUBREL                                                  
            5.0T4   548  USERDIRECTORY.SUB_RELEASE.C.014    1 LINE     65    1 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:17
            5.0T11  122                       
0          This source file is used to create (821/12) from *USERDIRECTORY (821/11). It
           takes object from *USERDIRECTORY (821/11), extracts the appropriate routines,
           and puts the result into the SEARCH STUFF object module (821/12).
1                                                                                               MON AUG 05/96   18:37:45   Page  634
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00821/015C  USERDIRECTORY            SEG2 RELEASE    C   G          W274:UD.INSTALL                                                 
            5.0T4   549  USERDIRECTORY.SEG2_RELEAS.C.015    1 LINE     48    1 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:17
            5.0T11  123                       
0          This source file is used to fill *UDROUTINES (821/13). It takes object from
           the SEARCH STUFF module (821/12), linkedits it, and puts the result into 
           (821/13).
00821/016C  USERDIRECTORY            *MTSUSERS       D   O        # *MTSUSERS                                                       
                                                                                    UM   BAUSHKE                                    
                         *MTSUSERS@E          
0          This file is the master data base for the system user-directory.
           It is constructed by *USERDIRECTORY (821/11).  To initialize this
           file $EMPTY it.
00821/017C  USERDIRECTORY            *MTSUSERS.CCID  D   O        # *MTSUSERS.CCID                                                  
                                                                                    UM   BAUSHKE                                    
                         *MTSUSERS.CCID@E     
0          This file is the ccid-to-nameid data base for the system user- 
           directory.  It is constructed by *USERDIRECTORY (821/11).  To
           initialize, $EMPTY it.
00821/018C  USERDIRECTORY            *MTSUSERS.PROJ  D   O        # *MTSUSERS.PROJ                                                  
                                                                                    UM   BAUSHKE                                    
                         *MTSUSERS.PROJ@E     
0          This file is the projectid-to-nameid data base for the system user- 
           directory.  It is constructed by *USERDIRECTORY (821/11).  To
           initialize, $EMPTY it.
00821/019C  USERDIRECTORY            *MTSUSERS.NAME  D   O        # *MTSUSERS.NAMEID                                                
                                                                                    UM   BAUSHKE                                    
                         *MTSUSERS.NAMEID@E   
0          This file is the sub-nameid-to-nameid data base for the system user- 
           directory.  It is constructed by *USERDIRECTORY (821/11).  To
           initialize, $EMPTY it.
00821/020C  USERDIRECTORY            *MTSUSERS.OTHE  D   O        # *MTSUSERS.OTHER                                                 
                                                                                    UM   BAUSHKE                                    
                         *MTSUSERS.OTHER@E    
0          This file is the data base containing auxiliary information, such
           as business addresses and the like, for the system user-directory.
           To initialize, $EMPTY it.
00821/021C  USERDIRECTORY            ETC.:UD.HELP    D   O          ETC.:UD.HELP                                                    
            5.0T4   550  USERDIRECTORY.ETC.:UD.HEL.D.021    1 LINE     73    7 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:18
            5.0T11  124  ETC.:UD.HELP         
0          Contains help text for *USERDIRECTORY (821/11).
1                                                                                               MON AUG 05/96   18:37:45   Page  635
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00821/022C  USERDIRECTORY            ETC.:UD.MESSAG  D   O          ETC.:UD.MESSAGES                                                
            5.0T4   551  USERDIRECTORY.ETC.:UD.MES.D.022    1 LINE     60    1 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:19
            5.0T11  125  ETC.:UD.MESSAGES     
0          Contains prompt text used by *USERDIRECTORY (821/11).
00821/023C  USERDIRECTORY            PROJECT FILE    D   O          W274:UD                                                         
            5.0T4   552  USERDIRECTORY.PROJECT_FIL.D.023    1 LINE    206    5 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:20
            5.0T11  126                       
0          This is the PMF (810) project file for the USERDIRECTORY routines.
           Documentation for the PMF modules and procedures is available in the project.
0          Referenced by comments of: 821/1 
00821/024C  USERDIRECTORY            DOCUMENTATION   WF  O          W274:99UD04(1000,2999)                                          
            5.0T4   553  USERDIRECTORY.DOCUMENTATI.WF.024   1 LINE    113   13 PAGE UM   BAUSHKE             AUG. 21, 1981  06:46:21
            5.0T11  127                       
0          This contains the documentation for the *USERDIRECTORY program, the 
           search routines, and information about possible future changes.
            
           **************************************************************************
           D5.0 version:
            
           This documentation is out-of-date and incomplete!!!!!!!
           **************************************************************************
00822/001C  FLOPPY DISK SUPPORT      MAIN            SF  G          FLOP:FTST                                                       
            5.0T3   997  FLOPPY_DISK_SUPPORT.MAIN.SF.001    1 LINE     98   15 PAGE UM   CASHMAN             JULY 03, 1981  20:21:54
            5.0T8   376                       
0          $SOURCE FLOP:FTST. FORTRAN source for main program. Uses *OVERDRIVE (667) and
           *FTN (551/3). Also assembles FLOP:FTSTASMH (822/2). VERLAB (812) and EDGER
           (747/5) are used for listing control. Requires FLOP:FLPCOM (822/3).
0          Referenced by comments of: 822/2 
00822/002C  FLOPPY DISK SUPPORT      MAIN            SA  G          FLOP:FTSTASMH                                                   
            5.0T3   998  FLOPPY_DISK_SUPPORT.MAIN.SA.002    1 LINE     68    3 PAGE UM   CASHMAN             JULY 03, 1981  20:21:56
            5.0T8   377                       
0          Assembled with FLOP:FTST (822/1). *ASMH (737) source support routines for
           main program.
0          Referenced by comments of: 822/1 
00822/003C  FLOPPY DISK SUPPORT      MAIN            SF  G          FLOP:FLPCOM                                                     
            5.0T3   999  FLOPPY_DISK_SUPPORT.MAIN.SF.003    1 LINE     68    1 PAGE UM   CASHMAN             JULY 03, 1981  20:21:57
            5.0T8   378                       
0          Common definitions for all floppy routines.
0          Referenced by comments of: 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 
1                                                                                               MON AUG 05/96   18:37:45   Page  636
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00822/004C  FLOPPY DISK SUPPORT      MAIN            OC  G          FLOP:FLOPPY                                                     
            5.0T3  1000  FLOPPY_DISK_SUPPORT.MAIN.OC.004    1 LINE   2814   12 PAGE UM   CASHMAN             JULY 03, 1981  20:21:58
            5.0T8   379                       
0          Main program object. This will load the object of the particular floppy disk
           directory support routine.
00822/005C  FLOPPY DISK SUPPORT      CP/M            SF  G          FLOP:CPM.S                                                      
            5.0T3  1001  FLOPPY_DISK_SUPPORT.CP/M.SF.005    1 LINE     87   18 PAGE UM   CASHMAN             JULY 03, 1981  20:22:01
            5.0T8   380                       
0          CP/M directory type support routines source code. Uses *OVERDRIVE (667) and
           *FTN (551/3). Also assembles (822/6). Uses VERLAB (812) and EDGER (747/5) for
           listing enhancements. Requires FLOP:CPM.EQU (822/7) and FLOP:FLPCOM (822/3).
00822/006C  FLOPPY DISK SUPPORT      CP/M            SA  G          FLOP:CPMASMH                                                    
            5.0T3  1002  FLOPPY_DISK_SUPPORT.CP/M.SA.006    1 LINE     71    3 PAGE UM   CASHMAN             JULY 03, 1981  20:22:08
            5.0T8   381                       
0          CP/M support routines *ASMH (737) source.
0          Referenced by comments of: 822/5 
00822/007C  FLOPPY DISK SUPPORT      CP/M            SF  G          FLOP:CPM.EQU                                                    
            5.0T3  1003  FLOPPY_DISK_SUPPORT.CP/M.SF.007    1 LINE     53    1 PAGE UM   CASHMAN             JULY 03, 1981  20:22:09
            5.0T8   382                       
0          CP/M directory type specific common block definitions.
0          Referenced by comments of: 822/5 
00822/008C  FLOPPY DISK SUPPORT      CP/M            OC  G          FLOP:CPMLIB                                                     
            5.0T3  1004  FLOPPY_DISK_SUPPORT.CP/M.OC.008    1 LINE   2508   13 PAGE UM   CASHMAN             JULY 03, 1981  20:22:10
            5.0T8   383                       
0          Object for CP/M directory type support.
00822/009C  FLOPPY DISK SUPPORT      ICOM            SF  G          FLOP:ICOM.S                                                     
            5.0T3  1005  FLOPPY_DISK_SUPPORT.ICOM.SF.009    1 LINE     87   12 PAGE UM   CASHMAN             JULY 03, 1981  20:22:11
            5.0T8   384                       
0          FORTRAN source for ICOM directory type support. $SOURCE ICOM.S. Also
           assembles ICOMASMH (822/11). Uses *OVERDRIVE (667) and *FTN (551/3). Uses
           VERLAB (812) and EDGER (747/5) for listing enhancements. Requires
           FLOP:ICOM.EQU (822/10) and FLOP:FLPCOM (822/3).
00822/010C  FLOPPY DISK SUPPORT      ICOM            SF  G          FLOP:ICOM.EQU                                                   
            5.0T3  1006  FLOPPY_DISK_SUPPORT.ICOM.SF.010    1 LINE     61    1 PAGE UM   CASHMAN             JULY 03, 1981  20:22:15
            5.0T8   385                       
0          ICOM directory type specific common block definitions.
0          Referenced by comments of: 822/9 
1                                                                                               MON AUG 05/96   18:37:45   Page  637
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00822/011C  FLOPPY DISK SUPPORT      ICOM            SA  G          FLOP:ICOMASMH                                                   
            5.0T3  1007  FLOPPY_DISK_SUPPORT.ICOM.SA.011    1 LINE     71    3 PAGE UM   CASHMAN             JULY 03, 1981  20:22:16
            5.0T8   386                       
0          *ASMH (737) source for ICOM directory type support routines.
0          Referenced by comments of: 822/9, 822/13 
00822/012C  FLOPPY DISK SUPPORT      ICOM            OC  G          FLOP:ICOMLIB                                                    
            5.0T3  1008  FLOPPY_DISK_SUPPORT.ICOM.OC.012    1 LINE   3438   10 PAGE UM   CASHMAN             JULY 03, 1981  20:22:17
            5.0T8   387                       
0          Object for ICOM directory type support routines.
00822/013C  FLOPPY DISK SUPPORT      RT11            SF  G          FLOP:RT11.S                                                     
            5.0T3  1009  FLOPPY_DISK_SUPPORT.RT11.SF.013    1 LINE     87   17 PAGE UM   CASHMAN             JULY 03, 1981  20:22:18
            5.0T8   388                       
0          RT11 directory type source. Uses *OVERDRIVE (667) and *FTN (551/3). Also
           assembles ICOMASMH (822/11). VERLAB (812) and EDGER (747/5) are used for
           listing control. Requires FLOP:RT11EQU (822/14) and FLOP:FLPCOM (822/3).
00822/014C  FLOPPY DISK SUPPORT      RT11            SF  G          FLOP:RT11.EQU                                                   
            5.0T3  1010  FLOPPY_DISK_SUPPORT.RT11.SF.014    1 LINE     48    1 PAGE UM   CASHMAN             JULY 03, 1981  20:22:23
            5.0T8   389                       
0          RT11 directory type specific common block definitions.
0          Referenced by comments of: 822/13 
00822/015C  FLOPPY DISK SUPPORT      RT11            OC  G          FLOP:RT11LIB                                                    
            5.0T3  1011  FLOPPY_DISK_SUPPORT.RT11.OC.015    1 LINE   1654   12 PAGE UM   CASHMAN             JULY 03, 1981  20:22:24
            5.0T8   390                       
0          Object for RT11 directory type support.
00822/016C  FLOPPY DISK SUPPORT      IBM             SF  G          FLOP:IBM.S                                                      
            5.0T3  1012  FLOPPY_DISK_SUPPORT.IBM.SF.016     1 LINE     85   14 PAGE UM   CASHMAN             JULY 03, 1981  20:22:25
            5.0T8   391                       
0          IBM directory type support source code. $SOURCE IBM.S. Uses *OVERDRIVE
           (667) and *FTN (551/3). VERLAB (812) and EDGER (747/5) are used for
           listing control. Requires FLOP:IBM.EQU (822/17) and FLOP:FLPCOM (822/3).
00822/017C  FLOPPY DISK SUPPORT      IBM             SF  G          FLOP:IBM.EQU                                                    
            5.0T3  1013  FLOPPY_DISK_SUPPORT.IBM.SF.017     1 LINE     56    1 PAGE UM   CASHMAN             JULY 03, 1981  20:22:29
            5.0T8   392                       
0          IBM directory type specific common block definitions.
0          Referenced by comments of: 822/16, 822/19 
1                                                                                               MON AUG 05/96   18:37:45   Page  638
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00822/018C  FLOPPY DISK SUPPORT      IBM             OC  G          FLOP:IBMLIB                                                     
            5.0T3  1014  FLOPPY_DISK_SUPPORT.IBM.OC.018     1 LINE   3342   11 PAGE UM   CASHMAN             JULY 03, 1981  20:22:30
            5.0T8   393                       
0          Object for IBM directory type support routines.
00822/019C  FLOPPY DISK SUPPORT      NONE            SF  G          FLOP:NONE.S                                                     
            5.0T3  1015  FLOPPY_DISK_SUPPORT.NONE.SF.019    1 LINE     87    3 PAGE UM   CASHMAN             JULY 03, 1981  20:22:32
            5.0T8   394                       
0          Default directory type source code. $SOURCE NONE.S. Uses *OVERDRIVE (667)
           and *FTN (551/3). VERLAB (812) and EDGER (747/5) are used for listing
           control. Requires FLOP:IBM.EQU (822/17) and FLOP:FLPCOM (822/3).
00822/020C  FLOPPY DISK SUPPORT      NONE            SA  G          FLOP:NONEASMH                                                   
            5.0T3  1016  FLOPPY_DISK_SUPPORT.NONE.SA.020    1 LINE     68    1 PAGE UM   CASHMAN             JULY 03, 1981  20:22:32
            5.0T8   395                       
0          *ASMH (737) default directory type.
00822/021C  FLOPPY DISK SUPPORT      NONE            OE  G          FLOP:NONELIB                                                    
            5.0T3  1017  FLOPPY_DISK_SUPPORT.NONE.OE.021    1 LINE    490    4 PAGE UM   CASHMAN             JULY 03, 1981  20:22:33
            5.0T8   396                       
0          Object for default directory type support routines.
00822/022C  FLOPPY DISK SUPPORT      DSECT           SA  G          *FLOPDSECT                                                      
            5.0T3  1018  FLOPPY_DISK_SUPPORT.DSECT.SA.022   1 LINE     71    1 PAGE UM   CASHMAN             AUG. 06, 1981  05:41:18
            5.0T8   397  *FLOPDSECT           
0          DSECT for floppy disk SNS data.
00823/001C  PASCAL/VS                INSTALL NOTES   P   G          W226:*VS.NOTES                                                  
            5.0T3  1019  PASCAL/VS.INSTALL_NOTES.P.001      1 LINE     68    6 PAGE UM   PICKELMAN           JULY 03, 1981  20:22:34
            5.0T8   398                       
0          IBM's PASCAL/VS compiler, program number 5796-PNQ. Since it is proprietary,
           several subcomponents, i.e, (823/5) through (823/7) and (823/21) through
           (823/42), cannot be distributed. However, (823/8), along with (823/11)
           through (823/19), will generate these from the IBM distribution tape.
            
           There are two version of the compiler. (823/2) runs native under MTS, but
           does not yet support the "%INCLUDE" statement or blocked I/O. (823/20) runs
           under VSS (1078).
0          Referenced by comments of: 825/1 
00823/002C  PASCAL/VS                DRIVER          OE  G          OLD:PASCALVS                                                    
            5.0T3  1020  PASCAL/VS.DRIVER.OE.002            1 LINE  29402    9 PAGE UM   PICKELMAN           JULY 03, 1981  20:22:37
            5.0T8   399                       
0          The PACSAL/VS compiler. Actually just a small program which links to
           ETC:PASVSNEWCOMP (823/6) and ETC:PASVSNEWTRAN (823/7). This is the linkedited
           object of (823/4), (823/3), and (823/13).
1                                                                                               MON AUG 05/96   18:37:45   Page  639
0  Num   R       Component Name         Subname     Type G Seq ID 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: 823/1, 823/12 
00823/003C  PASCAL/VS                RUNTIME         OL  G          OLD:PASCALVSLIB                                                 
            5.0T3  1021  PASCAL/VS.RUNTIME.OL.003           1 LINE  12798   37 PAGE UM   PICKELMAN           JULY 03, 1981  20:22:38
            5.0T8   400                       
0          The runtime support library for programs compiled with PASCAL/VS.  Same
           as (823/24) but without SYM records.
0          Referenced by comments of: 823/2, 823/4, 823/10, 823/11, 825/2 
00823/004C  PASCAL/VS                RUNTIME         OE  G          OLD:PASCALVSNODE                                                
            5.0T3  1022  PASCAL/VS.RUNTIME.OE.004           1 LINE    790    1 PAGE UM   PICKELMAN           JULY 03, 1981  20:22:40
            5.0T8   401                       
0          Dummy versions of the debugging routines for use with completely debugged
           programs.  Contains a $CONTINUE WITH to (823/3).
0          Referenced by comments of: 823/2 
00823/005C  PASCAL/VS                COMPILER        M   G        # ETC:PASVSNEWMESS                                                
                                                                                    UM   PICKELMAN                                  
0          The compiler's error messages. Due to copyright restrictions this
           subcomponent cannot be distributed.
0          Referenced by comments of: 823/1, 823/6, 823/37 
00823/006C  PASCAL/VS                COMPILER        OE  G        # ETC:PASVSNEWCOMP                                                
                                                                                    UM   PICKELMAN                                  
0          Pass1, the "compiler." Converts PASCAL into "UCODE." Requires
           ETC:PASVSNEWMESS (823/5). Due to copyright restrictions this subcomponent
           cannot be distributed.
0          Referenced by comments of: 823/2 
00823/007C  PASCAL/VS                TRANSLATOR      OE  G        # ETC:PASVSNEWTRAN                                                
                                                                                    UM   PICKELMAN                                  
0          Pass2, the "translator." Converts "UCODE" into an S/370 object module.
           Due to copyright restrictions this subcomponent cannot be distributed.
0          Referenced by comments of: 823/1, 823/2 
00823/008C  PASCAL/VS                INSTALL         C   G          S0759 PVSFS VLO FSNAME=VS.INSTALL                               
            5.0T3  1023  PASCAL/VS.INSTALL.C.008            1 LINE     91   13 PAGE UM   PICKELMAN           MAY  12, 1981  22:13:40
            5.0T8   402                       
0          A source file to install PASCAL/VS from the IBM distribution tape. It will
           also generate all of the subcomponents which cannot be distributed. Requires
           several of the subcomponents from (823/11) through (823/19).
0          Referenced by comments of: 823/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  640
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00823/009C  PASCAL/VS                INSTALL         SW  G          S0759 PVSFS VLO FSNAME=VS.LIBUILD                               
            5.0T3  1024  PASCAL/VS.INSTALL.SW.009           1 LINE     68    2 PAGE UM   PICKELMAN           APR. 26, 1981  15:05:57
            5.0T8   403                       
0          A program similar to *IEHMOVE (291), but different. Used to copy the source
           from the IBM distribution tape to an MTS file.
0          Referenced by comments of: 823/11 
00823/010C  PASCAL/VS                INSTALL         OE  G          S0759 PVSFS VLO FSNAME=VS_LIBUILD                               
            5.0T3  1025  PASCAL/VS.INSTALL.OE.010           1 LINE   2796    2 PAGE UM   PICKELMAN           APR. 26, 1981  15:05:53
            5.0T8   404                       
0          Requires (823/3).
00823/011C  PASCAL/VS                INSTALL         OE  G          S0759 PVSFS VLO FSNAME=VS*LIBUILD                               
            5.0T3  1026  PASCAL/VS.INSTALL.OE.011           1 LINE  32767   26 PAGE UM   PICKELMAN           APR. 26, 1981  15:05:54
            5.0T8   405                       
0          Linkedited version of (823/9) and (823/3). 
0          Referenced by comments of: 823/1, 823/8 
00823/012C  PASCAL/VS                DRIVER          SW  G          S0759 PVSFS VLO FSNAME=VS.PASCAL                                
            5.0T3  1027  PASCAL/VS.DRIVER.SW.012            1 LINE     67    1 PAGE UM   PICKELMAN           APR. 26, 1981  15:03:06
            5.0T8   406                       
0          Source for (823/2).
00823/013C  PASCAL/VS                DRIVER          OE  G          S0759 PVSFS VLO FSNAME=PASCAL/VS                                
            5.0T3  1028  PASCAL/VS.DRIVER.OE.013            1 LINE   1382    3 PAGE UM   PICKELMAN           APR. 26, 1981  15:02:54
            5.0T8   407                       
0          Requires VS|LIB (823/24).
0          Referenced by comments of: 823/2 
00823/014C  PASCAL/VS                RUNTIME         SA  G          S0759 PVSFS VLO FSNAME=VS.MTS                                   
            5.0T3  1029  PASCAL/VS.RUNTIME.SA.014           1 LINE     68    6 PAGE UM   PICKELMAN           MAY  12, 1981  22:13:52
            5.0T8   408                       
0          MTS version of several of the system interface routines. Object is in
           (823/24). These have been totally rewritten for MTS.
0          Referenced by comments of: 823/24 
00823/015C  PASCAL/VS                RUNTIME         UC  G          S0759 PVSFS VLO FSNAME=VS.ASM                                   
            5.0T3  1030  PASCAL/VS.RUNTIME.UC.015           1 LINE     66    1 PAGE UM   PICKELMAN           APR. 26, 1981  15:02:56
            5.0T8   409                       
0          Updates to (823/22) for those routines which are changed only slightly for
           MTS.
0          Referenced by comments of: 823/24 
1                                                                                               MON AUG 05/96   18:37:45   Page  641
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00823/016C  PASCAL/VS                COMPILER        UC  G          S0759 PVSFS VLO FSNAME=VS.LINIT                                 
            5.0T3  1031  PASCAL/VS.COMPILER.UC.016          1 LINE     67    1 PAGE UM   PICKELMAN           APR. 26, 1981  15:03:00
            5.0T8   410                       
0          Updates to the module AMPLINIT in the compiler (823/29) for use in MTS.
0          Referenced by comments of: 823/30 
00823/017C  PASCAL/VS                TRANSLATOR      UC  G          S0759 PVSFS VLO FSNAME=VS.TMISC                                 
            5.0T3  1032  PASCAL/VS.TRANSLATOR.UC.017        1 LINE     67    1 PAGE UM   PICKELMAN           APR. 26, 1981  15:03:07
            5.0T8   411                       
0          Updates for the module AMPTMISC in the translator (823/32) for use in MTS.
0          Referenced by comments of: 823/33 
00823/018C  PASCAL/VS                MACLIB          UC  G          S0759 PVSFS VLO FSNAME=VS.MACLIB                                
            5.0T3  1033  PASCAL/VS.MACLIB.UC.018            1 LINE     61    1 PAGE UM   PICKELMAN           APR. 26, 1981  15:03:01
            5.0T8   412                       
0          Updates to the macro library (823/34).
0          Referenced by comments of: 823/35 
00823/019C  PASCAL/VS                VSS             SA  G          S0759 PVSFS VLO FSNAME=VS.VSS                                   
            5.0T3  1034  PASCAL/VS.VSS.SA.019               1 LINE     77    4 PAGE UM   PICKELMAN           APR. 26, 1981  15:03:08
            5.0T8   413                       
0          A program to run the VS version of the compiler using ETC:VSS (1078/38).
           Currently necessary to compile the compiler, or any program which uses
           "%INCLUDE." Copies *GDINFODSECT (594).
0          Referenced by comments of: 823/1, 823/8 
00823/020C  PASCAL/VS                VSS             OE  G          S0759 PVSFS VLO FSNAME=PASCAL/VSS                               
            5.0T3  1035  PASCAL/VS.VSS.OE.020               1 LINE   2206    1 PAGE UM   PICKELMAN           APR. 26, 1981  15:05:09
            5.0T8   414                       
0          Requires ETC:VSS (1078/38) and COPY:DEFS (579/10).
0          Referenced by comments of: 823/1 
00823/021C  PASCAL/VS                RUNTIME         SW  G        # S0759 PVSFS VLO FSNAME=VS/MACRUN                                
                                                                                    UM   PICKELMAN                                  
0          INCLUDE sections used by the runtime support.  Not distributed due to
           copyright restrictions.
0          Referenced by comments of: 823/1, 823/22, 823/23 
00823/022C  PASCAL/VS                RUNTIME         SA  G        # S0759 PVSFS VLO FSNAME=VS/ASM                                   
                                                                                    UM   PICKELMAN                                  
0          The assembler runtime support routines. Not distributed due to copyright
1                                                                                               MON AUG 05/96   18:37:45   Page  642
0  Num   R       Component Name         Subname     Type G Seq ID 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          restrictions.  Requires (823/21).
0          Referenced by comments of: 823/15, 823/24 
00823/023C  PASCAL/VS                RUNTIME         SW  G        # S0759 PVSFS VLO FSNAME=VS/RUN                                   
                                                                                    UM   PICKELMAN                                  
0          The PASCAL runtime support routines. Not distributed due to copyright
           restrictions.  Requires (823/21).
0          Referenced by comments of: 823/24, 823/25 
00823/024C  PASCAL/VS                RUNTIME         OL  G        # S0759 PVSFS VLO FSNAME=VS|LIB                                   
                                                                                    UM   PICKELMAN                                  
0          Object of (823/14), (823/22), (823/23) with updates (823/15) applied, and
           (823/27). Note module AMPXDBUG has been deleted and moved to (823/25). Not
           distributed due to copyright restrictions.
0          Referenced by comments of: 823/3, 823/13, 823/14 
00823/025C  PASCAL/VS                RUNTIME         OC  G        # S0759 PVSFS VLO FSNAME=VS|NODEBUG                               
                                                                                    UM   PICKELMAN                                  
0          Object for module AMPXDBUG in (823/23). Not distributed due to copyright
           restrictions.
0          Referenced by comments of: 823/24 
00823/026C  PASCAL/VS                DEBUGGER        SW  G        # S0759 PVSFS VLO FSNAME=VS/MACDEBUG                              
                                                                                    UM   PICKELMAN                                  
0          INCLUDE sections used by the debugger. Not distributed due to copyright
           restrictions.
0          Referenced by comments of: 823/27, 823/39 
00823/027C  PASCAL/VS                DEBUGGER        SW  G        # S0759 PVSFS VLO FSNAME=VS/DEBUG                                 
                                                                                    UM   PICKELMAN                                  
0          Source for the debugger. Not distribute due to copyright restrictions.
           Requires (823/26).
0          Referenced by comments of: 823/24, 823/38 
00823/028C  PASCAL/VS                COMPILER        SW  G        # S0759 PVSFS VLO FSNAME=VS/MACCOMP                               
                                                                                    UM   PICKELMAN                                  
0          INCLUDES used by the compiler. Not distributed due to copyright restrictions.
0          Referenced by comments of: 823/29, 823/40 
1                                                                                               MON AUG 05/96   18:37:45   Page  643
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00823/029C  PASCAL/VS                COMPILER        SW  G        # S0759 PVSFS VLO FSNAME=VS/COMPILE                               
                                                                                    UM   PICKELMAN                                  
0          The compiler. Not distributed due to copyright restrictions.  Requires
           (823/28).
0          Referenced by comments of: 823/16 
00823/030C  PASCAL/VS                COMPILER        OC  G        # S0759 PVSFS VLO FSNAME=VS|COMPILE                               
                                                                                    UM   PICKELMAN                                  
0          Object of compiler with (823/16) updates applied. Not distributed due to
           copyright restrictions.
00823/031C  PASCAL/VS                TRANSLATOR      SW  G        # S0759 PVSFS VLO FSNAME=VS/MACTRAN                               
                                                                                    UM   PICKELMAN                                  
0          Includes used by the translator. Not distributed due to copyright
           restrictions.
0          Referenced by comments of: 823/32, 823/42 
00823/032C  PASCAL/VS                TRANSLATOR      SW  G        # S0759 PVSFS VLO FSNAME=VS/TRANSLATE                             
                                                                                    UM   PICKELMAN                                  
0          The translator.  Not distributed due to copyright restrictions.  Requires
           (823/31).
0          Referenced by comments of: 823/17 
00823/033C  PASCAL/VS                TRANSLATOR      OC  G        # S0759 PVSFS VLO FSNAME=VS|TRANSLATE                             
                                                                                    UM   PICKELMAN                                  
0          Object of the translator with (823/17) updates applied. Not distributed due to
           copyright restrictions.
00823/034C  PASCAL/VS                MACLIB          SM  G        # S0759 PVSFS VLO FSNAME=VS/MACLIB                                
                                                                                    UM   PICKELMAN                                  
0          The macro library.  Not distributed due to copyright restrictions.
0          Referenced by comments of: 823/18, 823/35, 823/41 
00823/035C  PASCAL/VS                MACLIB          SM  G        # S0759 PVSFS VLO FSNAME=VS|MACLIB                                
                                                                                    UM   PICKELMAN                                  
0          (823/34) with (823/18) updates applied.  Not distributed due to copyright
           restrictions.
00823/036C  PASCAL/VS                VSS             B   G        # S0759 PVSFS VLO FSNAME=VSS/LINKLIB                              
                                                                                    UM   PICKELMAN                                  
0          The VS object for the compiler.  Set up as a VSS (1078) PDS.  Not distributed 
           due to copyright restrictions.
1                                                                                               MON AUG 05/96   18:37:45   Page  644
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00823/037C  PASCAL/VS                VSS             M   G        # S0759 PVSFS VLO FSNAME=VSS/MESSAGES                             
                                                                                    UM   PICKELMAN                                  
0          (823/5) blocked for use with VSS (1078). Not distributed due to copyright
           restrictions.
00823/038C  PASCAL/VS                VSS             SW  G        # S0759 PVSFS VLO FSNAME=VSS/MACRUN                               
                                                                                    UM   PICKELMAN                                  
0          (823/27) set up as a VSS (1078) PDS.  Not distributed due to copyright
           restrictions.
00823/039C  PASCAL/VS                VSS             SW  G        # S0759 PVSFS VLO FSNAME=VSS/MACDEBUG                             
                                                                                    UM   PICKELMAN                                  
0          (823/26) set up as a VSS (1078) PDS.  Not distributed due to copyright
           restrictions.
00823/040C  PASCAL/VS                VSS             SW  G        # S0759 PVSFS VLO FSNAME=VSS/MACCOMP                              
                                                                                    UM   PICKELMAN                                  
0          (823/28) set up as a VSS (1078) PDS.  Not distributed due to copyright
           restrictions.
00823/041C  PASCAL/VS                VSS             SW  G        # S0759 PVSFS VLO FSNAME=VSS/MACLIB                               
                                                                                    UM   PICKELMAN                                  
0          (823/34) set up as a VSS (1078) PDS.  Not distributed due to copyright
           restrictions.
00823/042C  PASCAL/VS                VSS             SW  G        # S0759 PVSFS VLO FSNAME=VSS/MACTRAN                              
                                                                                    UM   PICKELMAN                                  
0          (823/31) set up as a VSS (1078) PDS.  Not distributed due to copyright
           restrictions.
0          Referenced by comments of: 823/1 
00824/001C  NASTRAN                  DRIVER          OC  G          MTA:NAS.DRIVER(1)                                               
            5.0T3  1036  NASTRAN.DRIVER.OC.001              1 LINE     80    4 PAGE UM   MTA                 AUG. 21, 1981  05:44:50
            5.0T8   415                       
0          Driver for running MSC NASTRAN 6.1, dated April 7, 1981, in MTS. Obtained by
           assembling VSS.DRIVER (1078/39) with PAR=SYSPARM=NASTRAN. Will work with
           Version 6.0A and probably with other versions of MSC NASTRAN. Requires
           ETC:VSS (1078/38).
00824/002C  NASTRAN                  COMMANDS        C   G          MTA:NAS.DRIVER(*F,0)                                            
            5.0T3  1037  NASTRAN.COMMANDS.C.002             1 LINE     65    1 PAGE UM   MTA                 JULY 03, 1981  20:25:01
            5.0T8   416                       
0          VSS (1078) commands to run NASTRAN in MTS. Requires (824/3), ETC:SYS1.LINKLIB
           (1078/46), (824/6), and (824/5).
1                                                                                               MON AUG 05/96   18:37:45   Page  645
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00824/003C  NASTRAN                  OBJECT LIBRARY  OL  G        # AERO:NASLIB                                                     
                                                                                    UM   MTA                                        
0          VSS (1078) PDS containing MSC NASTRAN version 6.1 load modules.
            
           This file was created directly from the MSC tape file containing unloaded
           load modules using *IEHMOVE (291) with PAR=VSS. Not distributed due to
           copyright restrictions.
0          Referenced by comments of: 824/2 
00824/004C  NASTRAN                  PLOT PGM        UC  G          MTA:NASTPLOT.UC                                                 
            5.0T3  1038  NASTRAN.PLOT_PGM.UC.004            1 LINE     65    1 PAGE UM   MTA                 JULY 03, 1981  20:25:02
            5.0T8   417                       
0          Updates to make the plot program work in MTS. Should be applied to the
           NASTPLOT member from the UTILSOU data set on the NASTRAN distribution tape.
00824/005C  NASTRAN                  PLOT PGM        OE  G        # AERO:NASTPLOT                                                   
                                                                                    UM   MTA                                        
0          Object includes one assembly language module CFR missing from the NASTPLOT
           member in UTILSOU. The OS version of it works in MTS. Requires *PLOTSYS
           (615/9). Not distributed due to copyright restrictions.
0          Referenced by comments of: 824/2 
00824/006C  NASTRAN                  RFA FILE        D   G        # AERO:NAS.RFA                                                    
                                                                                    UM   MTA                                        
0          VSS (1078) PDS containing NASTRAN Rigid Format Alters, whatever that is.
           Created from unloaded PDS on MSC NASTRAN tape using *IEHMOVE (291) with
           PAR=VSS. Not distributed due to copyright restrictions.
0          Referenced by comments of: 824/2 
00824/007C  NASTRAN                  DEMO            D   G        # MTA:NAS.DEMO1                                                   
                                                                                    UM   MTA                                        
0          Test input to NASTRAN. Not distributed due to copyright restrictions.
00824/008C  NASTRAN                  OS JCL              G        # S0938 FSAVE2 VLO FSNAME=NAS.OSJCL                               
                                                                                    UM   MTA                                        
0          PROC library for NASTRAN in OS/MVS.  Not distributed due to copyright
           restrictions.
00824/009C  NASTRAN                  WRITEUP         WF  G          MTA:NAS.W                                                       
            5.0T3  1039  NASTRAN.WRITEUP.WF.009             1 LINE     72    3 PAGE UM   MTA                 JULY 03, 1981  20:25:03
            5.0T8   418                       
0          Writeup on running NASTRAN in MTS.
1                                                                                               MON AUG 05/96   18:37:45   Page  646
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00825/001C *PASCALTIDY                               SW  O          PASC:PASCALTIDY.S                                               
            5.0T3  1040  PASCALTIDY..SW.001                 1 LINE     97   18 PAGE UM   GREENING            AUG. 06, 1981  05:41:41
            5.0T8   419                       
0          THE SOURCE FOR A PASCAL PROGRAM REFORMATTER. COMPILE USING PASCAL/VS (823).
00825/002C *PASCALTIDY                               OL  O          *PASCALTIDY                                                     
            5.0T3  1041  PASCALTIDY..OL.002                 1 LINE  24660    8 PAGE UM   GREENING            AUG. 06, 1981  05:41:43
            5.0T8   420  *PASCALTIDY          
0          REQUIRES THE PASCAL/VS RUNTIME LIBRARY (823/3).
01000/001A  INTERACTIVE_FORTRAN      INSTALL.PROC    WF  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.INSTA.WF.001             
            5.0T3  1042  INTERACTIVE_FORTRAN.INSTA.WF.001   1 LINE     80    2 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:20:35
            5.0T8   421                       
0          Description of the procedure for installing INTERACTIVE FORTRAN.
            
           *******************************************************************
           D5.0 version:
            
           This is the Spring 1981 version which includes:
            
            -- many bug fixes.
            -- /RERUN command, which reissues the last /RUN command.
            -- /SET AUTOLINE=ON command which causes the FORTRAN source 
               statement to be displayed along with the usual information
               whenever a suspension occurs.
            -- changes to the error printer so that lines longer than the
               screen width are split at a blank and printed on two lines.
               Also, in batch error messages are emphasized in the manner in 
               which FORTRAN I/O messages are emphasized.
           *********************************************************************
01000/002A  INTERACTIVE_FORTRAN      *IF             SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.*IF.SA.002               
            5.0T3  1043  INTERACTIVE_FORTRAN.*IF.SA.002     1 LINE     72    9 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:20:36
            5.0T8   422                       
0          ASSEMBLER source code for routine which calls IF.
            
           May require local mods - read the comments in this module carefully.
            
0          Referenced by comments of: 1000/5, 1000/6, 1000/7 
01000/003A  INTERACTIVE_FORTRAN      *IF             OE  G          *IF                                                             
            5.0T3  1044  INTERACTIVE_FORTRAN.?IF.OE.003     1 LINE  32767   56 PAGE UBC  O'REILLY  HANSEN    AUG. 06, 1981  05:41:54
            5.0T8   423  *IF                  
0          This is the user-runnable *IF object. Lines 1,999 contain the IF calling
           routine. If *IF is to be loaded into shared memory, lines 1,999 should be
           placed in *IF with two cards appended:
            
                       LCS LCSYMBOL
1                                                                                               MON AUG 05/96   18:37:45   Page  647
0  Num   R       Component Name         Subname     Type G Seq ID 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                      LDT
            
           Lines 1000,*L should be placed in SEG2:IF following a COM.IF record, and the
           LDT card should be removed. Lines 1000,*L have been squashed, combined, and
           purged by the linkage editor.
01000/004A  INTERACTIVE_FORTRAN      MACLIB          SM  G          FORT:IF.MACLIB                                                  
            5.0T3  1045  INTERACTIVE_FORTRAN.MACLI.SM.004   1 LINE     83   66 PAGE UBC  O'REILLY  HANSEN    JULY 03, 1981  20:26:48
            5.0T8   424                       
0          Macro library containing macros and 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. Any IF module can be assembled 
           by using *ASMH and specifying 0=*SYSMAC and 2=MACLIB.
01000/005A  INTERACTIVE_FORTRAN      ELMQQSV         M   G          ETC:IF.ELMQQSV                                                  
            5.0T3  1046  INTERACTIVE_FORTRAN.ELMQQ.M.005    1 LINE    108   45 PAGE UBC  O'REILLY  HANSEN    JULY 03, 1981  20:26:54
            5.0T8   425  ETC:IF.ELMQQSV       
0          IF error message file - must be implemented @i.
           The negative line number 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 *IF (1000/2) for more information.
            
           Line -1 of this file should be changed to contain the local
           person to contact in case of a problem.
01000/006A  INTERACTIVE_FORTRAN      ETC:IF.DUMP     D   G        # ETC:IF.DUMP                                                     
            RD15    452  INTERACTIVE_FORTRAN.DUMPS.M.06     1 SEQ      72    3 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:31:50
                         ETC:IF.DUMP@E        
0          File which collects dump information (program interrupts in IF).
           See the comments in *IF (1000/2) 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
1                                                                                               MON AUG 05/96   18:37:45   Page  648
0  Num   R       Component Name         Subname     Type G Seq ID 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                     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 subcomponent (1000/20).
01000/007A  INTERACTIVE_FORTRAN      EXPLAIN         M   G          ETC:IF.EXPLAIN                                                  
            5.0T3  1047  INTERACTIVE_FORTRAN.EXPLA.M.007    1 LINE     79   23 PAGE UBC  O'REILLY  HANSEN    JULY 03, 1981  20:26:58
            5.0T8   426  ETC:IF.EXPLAIN       
0          IF command explain file; see the comments in *IF (1000/2)
           for further information. This file is generated by using the FORMAT
           source for the IF manual (1000/9) 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      ETC:IF.STAT     D   G        # ETC:IF.STAT                                                     
            RD15    454  INTERACTIVE_FORTRAN.STATIS.M.08    1 LINE     62  109 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:31:53
                         ETC:IF.STAT@E        
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.
0          Referenced by comments of: 1000/37, 1000/39 
01000/009   INTERACTIVE_FORTRAN      WRITEUP         WF  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.WRITE.WF.010             
            5.0T3  1048  INTERACTIVE_FORTRAN.WRITE.WF.009   1 LINE     93   58 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:21:28
            5.0T8   427                       
0          This is the FORMAT source for the IF writeup.
0          Referenced by comments of: 1000/7 
01000/010   INTERACTIVE_FORTRAN      WRITEUP         PF  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.WRITE.PF.011             
            5.0T3  1049  INTERACTIVE_FORTRAN.WRITE.PF.010   1 LINE    117  101 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:21:38
            5.0T8   428                       
0          This is the IF writeup, suitable for copying to a printer.
01000/011   INTERACTIVE_FORTRAN      TEST.VERSION    OC  G          FORT:IF.TEST                                                    
            5.0T3  1050  INTERACTIVE_FORTRAN.TEST..OC.011   1 LINE  32767   63 PAGE UBC  O'REILLY  HANSEN    JULY 03, 1981  20:27:15
            5.0T8   429                       
0          Test version of IF.  All of the object modules comprising the
           re-entrant processor, source in (1000/12) through (1000/32) and
1                                                                                               MON AUG 05/96   18:37:45   Page  649
0  Num   R       Component Name         Subname     Type G Seq ID 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          (1000/35), are in this file. They are squashed but not combined
           or purged so that individual csects are still accessible and
           replaceable. A shared VM version of IF is created by COMBINing
           and PURGing the object decks in this file using the LINKAGE 
           EDITOR (297).
01000/012   INTERACTIVE_FORTRAN      DIRECT          SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.DIREC.SA.013             
            5.0T3  1051  INTERACTIVE_FORTRAN.DIREC.SA.012   1 LINE     80   35 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:22:36
            5.0T8   430                       
0          MAIN COMMAND PROCESSOR; APPEARS IN |MAP AS DIR.
0          Referenced by comments of: 1000/11 
01000/013   INTERACTIVE_FORTRAN      EL              SA  G          S1520 UBC81 VLO FSNAME=INTERACTIVE_FORTRAN.EL.SA.014            
            5.0T3  1052  INTERACTIVE_FORTRAN.EL.SA.013      1 LINE     72   25 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:22:39
            5.0T8   431                       
0          Error message printer; appears in |MAP as EL.
01000/014   INTERACTIVE_FORTRAN      GSC             SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.GSC.SA.015               
            5.0T3  1053  INTERACTIVE_FORTRAN.GSC.SA.014     1 LINE     79   36 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:22:41
            5.0T8   432                       
0          Semantic code generator; appears in |MAP as GENCODE.
01000/015   INTERACTIVE_FORTRAN      IFRD            SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.IFRD.SA.016              
            5.0T3  1054  INTERACTIVE_FORTRAN.IFRD.SA.015    1 LINE     72   18 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:22:44
            5.0T8   433                       
0          Free format input routine; appears in |MAP as IFRDCODE.
01000/016   INTERACTIVE_FORTRAN      INT             SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.INT.SA.017               
            5.0T3  1055  INTERACTIVE_FORTRAN.INT.SA.016     1 LINE     72  226 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:22:46
            5.0T8   434                       
0          The interpreter.
           Appears in |MAP as INTE.
01000/017   INTERACTIVE_FORTRAN      IS              SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.IS.SA.018                
            5.0T3  1056  INTERACTIVE_FORTRAN.IS.SA.017      1 LINE     80   43 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:05
            5.0T8   435                       
0          Semantic checking routine; appears in |MAP as SIMLATOR.
01000/018   INTERACTIVE_FORTRAN      LEX             SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.LEX.SA.019               
            5.0T3  1057  INTERACTIVE_FORTRAN.LEX.SA.018     1 LINE     79   28 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:08
            5.0T8   436                       
0          Lexical scanner; appears in |MAP as LEX.
1                                                                                               MON AUG 05/96   18:37:45   Page  650
0  Num   R       Component Name         Subname     Type G Seq ID 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/019   INTERACTIVE_FORTRAN      LIN             SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.LIN.SA.020               
            5.0T3  1058  INTERACTIVE_FORTRAN.LIN.SA.019     1 LINE     79   26 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:11
            5.0T8   437                       
0          Lexical scanner input routine; appears in |MAP as LIN.
01000/020   INTERACTIVE_FORTRAN      MDEBUG          SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.MDEBU.SA.021             
            5.0T3  1059  INTERACTIVE_FORTRAN.MDEBU.SA.020   1 LINE     80   31 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:13
            5.0T8   438                       
0          Built-in SDS-like debugging facility; documentation is a separate component
           (1000/33).  Has BREAKPOINTs, ATPOINTs, and an instruction
           simulator much like SDS. Appears in |MAP as MDG.
0          Referenced by comments of: 1000/6, 1000/33 
01000/021   INTERACTIVE_FORTRAN      MON             SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.MON.SA.022               
            5.0T3  1060  INTERACTIVE_FORTRAN.MON.SA.021     1 LINE     80   15 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:17
            5.0T8   439                       
0          Compiler monitor; contains entry point named "IF".
           appears in |MAP as MON.
01000/022   INTERACTIVE_FORTRAN      OUT             SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.OUT.SA.023               
            5.0T3  1061  INTERACTIVE_FORTRAN.OUT.SA.022     1 LINE     79   31 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:19
            5.0T8   440                       
0          Another command processor; appears in |MAP as SUBOUT.
            
           Note: This module copies the interpreter dsects.
01000/023   INTERACTIVE_FORTRAN      PARSE           SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.PARSE.SA.024             
            5.0T3  1062  INTERACTIVE_FORTRAN.PARSE.SA.023   1 LINE     79   49 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:23
            5.0T8   441                       
0          The parser;  appears in |MAP as PARSER.
01000/024   INTERACTIVE_FORTRAN      SCOM            SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SCOM.SA.025              
            5.0T3  1063  INTERACTIVE_FORTRAN.SCOM.SA.024    1 LINE     72   23 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:27
            5.0T8   442                       
0          COMMON routine; appears in |MAP as SCOM#.
01000/025   INTERACTIVE_FORTRAN      SEQV            SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SEQV.SA.026              
            5.0T3  1064  INTERACTIVE_FORTRAN.SEQV.SA.025    1 LINE     79   18 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:30
            5.0T8   443                       
0          EQUIVALENCE routine; appears in |MAP as SEQV#.
01000/026   INTERACTIVE_FORTRAN      SIM             SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SIM.SA.027               
            5.0T3  1065  INTERACTIVE_FORTRAN.SIM.SA.026     1 LINE     78   19 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:32
            5.0T8   444                       
0          compilation monitor; appears in |MAP as SIM.
1                                                                                               MON AUG 05/96   18:37:45   Page  651
0  Num   R       Component Name         Subname     Type G Seq ID 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/027   INTERACTIVE_FORTRAN      SLABEL          SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SLABE.SA.028             
            5.0T3  1066  INTERACTIVE_FORTRAN.SLABE.SA.027   1 LINE     72   10 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:33
            5.0T8   445                       
0          Label checking routine; appears in |MAP as SLABEL.
01000/028   INTERACTIVE_FORTRAN      SPACE           SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SPACE.SA.029             
            5.0T3  1067  INTERACTIVE_FORTRAN.SPACE.SA.028   1 LINE     78   19 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:34
            5.0T8   446                       
0          Virtual memory management; appears in |MAP as CORE.
01000/029   INTERACTIVE_FORTRAN      SYMBOL          SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SYMBO.SA.030             
            5.0T3  1068  INTERACTIVE_FORTRAN.SYMBO.SA.029   1 LINE     79   32 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:36
            5.0T8   447                       
0          Symbol table routines; appears in |MAP as SYMBOL.
01000/030   INTERACTIVE_FORTRAN      TPUT            SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.TPUT.SA.031              
            5.0T3  1069  INTERACTIVE_FORTRAN.TPUT.SA.030    1 LINE     80   22 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:39
            5.0T8   448                       
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/031   INTERACTIVE_FORTRAN      XLOADER         SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.XLOAD.SA.032             
            5.0T3  1070  INTERACTIVE_FORTRAN.XLOAD.SA.031   1 LINE     80   95 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:41
            5.0T8   449                       
0          IF's external loader and interface to UMLOAD.
           Appears in |MAP as XLD.
01000/032   INTERACTIVE_FORTRAN      FUNCTIONS       SA  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.FUNCT.SA.033             
            5.0T3  1071  INTERACTIVE_FORTRAN.FUNCT.SA.032   1 LINE     80    7 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:55
            5.0T8   450                       
0          Code for ELEMENTARY FUNCTIONS not found in EFL (525); these are typically
           the "in-line" FORTRAN functions. This also serves as the error monitor for 
           EFL. IF uses the standard system EFL library (525) and standard system 
           FORTRAN I/O support (1002).
0          Referenced by comments of: 1000/11 
01000/033   INTERACTIVE_FORTRAN      MDEBUG          WF  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.MDEBU.WF.034             
            5.0T3  1072  INTERACTIVE_FORTRAN.MDEBU.WF.033   1 LINE     89    8 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:56
            5.0T8   451                       
0          Documentation for MDEBUG, the IF SDS-like debugging facility (1000/20).
0          Referenced by comments of: 1000/20 
1                                                                                               MON AUG 05/96   18:37:45   Page  652
0  Num   R       Component Name         Subname     Type G Seq ID 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/034   INTERACTIVE_FORTRAN      CALLINGIF       WF  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.CALLI.WF.035             
            5.0T3  1073  INTERACTIVE_FORTRAN.CALLI.WF.034   1 LINE     87    4 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:23:57
            5.0T8   452                       
0          WRITEUP DESCRIBING HOW TO CALL RESIDENT IF AS A SUBROUTINE.
01000/035A  INTERACTIVE_FORTRAN      EDITOR          SA  G          FORT:IF.EDITOR                                                  
            5.0T3  1074  INTERACTIVE_FORTRAN.EDITO.SA.035   1 LINE     80   30 PAGE UBC  O'REILLY  HANSEN    AUG. 06, 1981  05:43:11
            5.0T8   453                       
0          This is the interface to the MTS editor.
            
           NOTE:  The ED.MAC component (1000/36) is required as an additional macro
           library to assemble this component.
0          Referenced by comments of: 1000/11, 1000/36 
01000/036C  INTERACTIVE_FORTRAN      ED.MAC          SM  G          S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.ED.MA.SM.037             
            5.0T3  1075  INTERACTIVE_FORTRAN.ED.MA.SM.036   1 LINE     72   26 PAGE UBC  O'REILLY  HANSEN    FEB. 26, 1981  10:24:00
            5.0T8   454                       
0          Old version of structured macros that are required to assemble the
           EDITOR subcomponent (1000/35).
0          Referenced by comments of: 1000/35 
01000/037C  INTERACTIVE_FORTRAN      STATSCAN        SQ  O          FORT:IF.STATSCAN(1000,2999)                                     
            5.0T3  1076  INTERACTIVE_FORTRAN.STATS.SQ.037   1 LINE    117   12 PAGE UM   HANSEN              JULY 03, 1981  20:28:17
            5.0T8   455                       
0          PLUS (1042) source for a program to summarize information in the IF
           statistics file (1000/8).  Refers to (1000/8) and (1000/40).  It is
           self-describing with a HELP command.
0          Referenced by comments of: 1000/38, 1000/39 
01000/038C  INTERACTIVE_FORTRAN      STATSCAN        SA  O          W167:HELP(1,999)                                                
            5.0T3  1077  INTERACTIVE_FORTRAN.STATS.SA.038   1 LINE     64    1 PAGE UM   HANSEN              JULY 03, 1981  20:28:21
            5.0T8   456                       
0          Assembly source for the HELP subroutine used by (1000/37).
0          Referenced by comments of: 1000/39 
01000/039C  INTERACTIVE_FORTRAN      STATSCAN        OC  O          FORT:IF.STATSCAN(1,999)                                         
            5.0T3  1078  INTERACTIVE_FORTRAN.STATS.OC.039   1 LINE   4076   13 PAGE UM   HANSEN              JULY 03, 1981  20:28:22
            5.0T8   457                       
0          Object for (1000/37) and (1000/38). Refers to (1000/8) and (1000/40).  Contains
           a $CONTINUE WITH NEW:PLUS.OBJLIB (1042/50) record.
0          Referenced by comments of: 1000/40 
1                                                                                               MON AUG 05/96   18:37:45   Page  653
0  Num   R       Component Name         Subname     Type G Seq ID 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/040C  INTERACTIVE_FORTRAN      STATSCAN        D   O          FORT:IF.STATHELP                                                
            5.0T3  1079  INTERACTIVE_FORTRAN.STATS.D.040    1 LINE     65    1 PAGE UM   HANSEN              JULY 03, 1981  20:28:25
            5.0T8   458                       
0          The HELP file used by (1000/39).
0          Referenced by comments of: 1000/37, 1000/39 
01002/001A  FIX                      USER_OBJECT     OC  G          NEW:FIO                                                         
            5.0T3  1080  FIX.USER_OBJECT.OC.001             1 LINE  32767   20 PAGE UBC  TIFFANY             JULY 03, 1981  20:28:25
            5.0T8   459                       
0          This is the unlinked object file containing SYM records. This file should not
           be used for the shared VM load as it does not include the necessary low core
           symbol table nor the COM record for PISTLE.
            
           ------------------- MAY 1979 UBC COMMENTS ---------------
            
           This is VERSION 1.9 of FIX.
            
           This distribution does NOT include WSU's extended precision updates.
            
           This version sent with the following GLOBAL symbols set:
                &ID = 'ETC.'     &SEP = ':'   &FILEPFX = 'NEW.'
            
           We had hoped that this would be our official version, but it isn't yet. It
           has been our test version since May 13, 1979 and is scheduled to become
           permanent on Aug. 1, 1979.
            
           ****************************************************************************
            This is the UM version.
           ****************************************************************************
0          Referenced by comments of: 422/1, 1000/32, 3023/9 
01002/002A  FIX                      SHARED_OBJECT   OE  G          SEG2:FIX                                                        
            5.0T3  1081  FIX.SHARED_OBJECT.OE.002           1 LINE  32767   22 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:28:27
            5.0T8   460  SEG2:FIX             
0          This is the linkeditted version containing all necessary items for inclusion
           as the resident version.
            
           ------------------- May 1979 ---------------
            
            ***************************************************************************
            
            This is the UM version. Contains a REP card.
            ****************************************************************************
01002/003   FIX                      MESSAGE         M   G          ETC:FIX.MESSAGES                                                
            5.0T3  1082  FIX.MESSAGE.M.003                  1 LINE    190    6 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:28:29
            5.0T8   461  ETC:FIX.MESSAGES     
0          This is the message file for all FIX error messages. The name of this file is
1                                                                                               MON AUG 05/96   18:37:45   Page  654
0  Num   R       Component Name         Subname     Type G Seq ID 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          determined by the setting of items in the GLOBALS copy section:
           FDNAME=&ID.&SEP.&FILEPFX.MESSAGES.
            
           This is an indexed file and must be restored @I.
            
           ------------------- May 1979 ---------------
            
           Some of the messages have been changed to upper/lower case. This will
           continue as time permits.
            
            ****************************************************************************
            
            This is the UM version.
            ****************************************************************************
01002/004A  FIX                      EXPLAIN         D   G          ETC:FIX.EXPLAIN                                                 
            5.0T3  1083  FIX.EXPLAIN.D.004                  1 LINE     70    8 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:28:30
            5.0T8   462  ETC:FIX.EXPLAIN      
0          This file contains the text for the EXPLAIN command. The name of this file is
           determined by the setting of items in the GLOBALS copy section:
           FDNAME=&ID.&SEP.&FILEPFX.EXPLAIN.
            
           This is an indexed file and must be restored @I.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
            
           This is the UM version.
           ****************************************************************************
            
           *****************************************************************************
           D5.0 changes, already distributed on D4.3A:
            
           Text is now in mixed case.
           *****************************************************************************
01002/005   FIX                      FIX_PSECT       SA  G          ETC:FIX.FIODSCT                                                 
            5.0T3  1084  FIX.FIX_PSECT.SA.005               1 LINE     72   11 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:28:32
            5.0T8   463  ETC:FIX.FIODSCT      
0          The main FIX PSECT. Required as a separate file for system dumps for mnemonic
           dumping via PRDSCT. The name of this file is determined by the setting of
           items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.FIODSCT.
            
           ------------------- May 1979 ---------------
0          Referenced by comments of: 1002/12, 3023/9 
1                                                                                               MON AUG 05/96   18:37:45   Page  655
0  Num   R       Component Name         Subname     Type G Seq ID 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/006   FIX                      UNIT_PSECT      SA  G          ETC:FIX.UNITDSCT                                                
            5.0T3  1085  FIX.UNIT_PSECT.SA.006              1 LINE     72    3 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:28:34
            5.0T8   464  ETC:FIX.UNITDSCT     
0          The FIX unit dsect. Required as a separate file for system dumps for mnemonic
           dumping via PRDSCT. The name of this file is determined by the setting of
           items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.UNITDSCT.
            
           ------------------- May 1979 ---------------
0          Referenced by comments of: 1002/12 
01002/007   FIX                      NEWS            P              S1431 4.3T2 VLO FSNAME=FIX.NEWS.SA.007(1)                    293
            5.0T3  1086  FIX.NEWS.P.007                     1 LINE     63    2 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:45:37
            5.0T8   465                       
0          The UBC news file regarding changes in the FORTRAN status.
            
           ------------------- May 1979 ---------------
01002/008A  FIX                      DOCUMENTATION   WF  B          S1515 UBC80 FSNAME=FIX.DOCUMENTATION.WF.008(1)              42  
            5.0T3  1087  FIX.DOCUMENTATION.WF.008           1 LINE    145   72 PAGE UBC  STEVENS   TIFFANY   FEB. 23, 1981  19:29:39
            5.0T8   466                       
0          The UBC document describing FIX. 
            
           ------------------- May 1979 ---------------
01002/009A  FIX                      DOCUMENTATION   PF  B          S1515 UBC80 FSNAME=FIX.DOCUMENTATION.PF.009(1)              43  
            5.0T3  1088  FIX.DOCUMENTATION.PF.009           1 LINE    132  103 PAGE UBC  STEVENS   TIFFANY   FEB. 23, 1981  19:29:44
            5.0T8   467                       
0          The print ready version of the UBC documentation. 
            
           ------------------- May 1979 ---------------
01002/010   FIX                      INTERNAL_DOC    WF  G          S1431 4.3T2 VLO FSNAME=FIX.INTERNAL_DOC.WF.010(1)            296
            5.0T3  1089  FIX.INTERNAL_DOC.WF.010            1 LINE     80   30 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:45:59
            5.0T8   468                       
0          The *FMT source for the internal documentation describing how FIX is put
           together.
            
           ------------------- May 1979 ---------------
01002/011   FIX                      INTERNAL_DOC    PF  G          S1431 4.3T2 VLO FSNAME=FIX.INTERNAL_DOC.PF.011(1)            297
            5.0T3  1090  FIX.INTERNAL_DOC.PF.011            1 LINE     69   41 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:04
            5.0T8   469                       
0          The print ready version of the internal documentation.
            
           ------------------- May 1979 ---------------
1                                                                                               MON AUG 05/96   18:37:45   Page  656
0  Num   R       Component Name         Subname     Type G Seq ID 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/012A  FIX                      MACRO_LIBRARY   SM  G          W062:FIX.MACLIB                                                 
            5.0T3  1091  FIX.MACRO_LIBRARY.SM.012           1 LINE     80   16 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:29:41
            5.0T8   470                       
0          The macro library to be used with all assemblies. Only two copy sections are
           not included here - FIODSCT (1002/5) and UNITDSCT (1002/6). These should
           be restored as separate files.
            
           ------------------- May 1979 ---------------
            
           The copy section GLOBALS has been updated for other installations as per
           their requests. We have not had any requests from RPI or Brazil in this
           regard and have not yet added these - hopefully we can add one as "standard",
           perhaps UM?, and reduce the number of different types.
            
           A new macro ADRYTEST has been added to test the addressability of a given
           address. Used mainly by FIODEBUG.
            
           ****************************************************************************
           This is the UM version.
           ****************************************************************************
            
           **************************************************************************
           D5.0 version:
            
           New return code added for LOADF:
            
                 -5:  Loading aborted by attention interrupt.
           **************************************************************************
0          Referenced by comments of: 1002/13, 1002/14, 1002/15, 1002/16, 1002/17, 1002/18, 1002/19, 1002/20, 1002/21, 1002/22,
                 1002/23, 1002/25, 1002/27, 1002/28 
01002/013   FIX                      INIT            SA  G          S1431 4.3T2 VLO FSNAME=FIX.INIT.SA.013(1)                    299
            5.0T3  1092  FIX.INIT.SA.013                    1 LINE     87    6 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:17
            5.0T8   471                       
0          The PSECT initializer routine. This routine contains the entry points
           FIXINIT, UINIT, and UINITI.
            
           The first call to FIXINIT causes the PSECT to be initialized, FIXINITI,
           including the default &ID as specified in the GLOBALS copy section. If your
           defaults are the same as UBC, except for &ID then just re-assemble this
           module and replace in the distributed object module.
            
           The PSECT may also be re-initialized via a call to FIXINITI.
            
           The code to acquire and initialize a unit dsect is also contained in this
           module, UINIT.
            
           The entry FIXEND is called to restore all necessary things before returning
           to the FORTRAN program. Currently this consists of restoring the floating
           point registers.
            
1                                                                                               MON AUG 05/96   18:37:45   Page  657
0  Num   R       Component Name         Subname     Type G Seq ID 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          Dependent on the setting of the assembly flag &DEBUG, this module also
           collects statistics of usage. This was useful during the growing stage of
           FIX.
            
           All source routines which STEVENS is responsible for will have untidied
           Assembler source lines except for new releases. The purpose of this is to
           leave an "audit" trail of changes made to the particular routine. This is my
           own "checkpoint" feature which few, if any, others use. If it bothers you, I
           will send only tidied source in the future.
            
           ------------------- May 1979 ---------------
            
           ********************************************************************
           Copies *CNFGINFODSECT (654). Assemble using the FIX MACRO LIBRARY (1002/12).
           ********************************************************************
01002/014   FIX                      FTN_TRANSFER    SA  G          S1431 4.3T2 VLO FSNAME=FIX.FTN_TRANSFER.SA.014(1)            300
            5.0T3  1093  FIX.FTN_TRANSFER.SA.014            1 LINE     81   17 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:18
            5.0T8   472                       
0          This is the FIX version of IBM's IBCOM#. The initial transfer vector is
           included along with the code to perform unformatted I/O. The define file
           entry DIOCS# is also included in this module.
            
           Programs which store information in the area after the initial transfer
           vector, e.g. SNOBOL, will not work with a resident version of FIX. They will
           have to run with a non-resident version of FIX. Space has been left in the
           transfer vector for those routines which use this area for various purposes.
            
           Two extra words have been added to the transfer vector:
               1. An entry for IF, Interactive Fortran.
               2. An entry for STOP from the error monitor.
           As well, the FTNX branch has been added to the table.
            
           This should be the first loaded routine. On program interrupts, ERRMON uses
           the address of IBCOM and end of ERRMON to determine if the interrupt occurred
           in FIX.
            
           Most FORTRAN I/O calls are made to this module via a transfer vector. Only
           calls not made are NAMELIST, DEBUG, FTNCMD.
            
           ------------------- May 1979 ---------------
            
           ********************************************************************
           Assemble using the FIX MACRO LIBRARY (1002/12).
           ********************************************************************
01002/015   FIX                      UNIT_CONTROL    SA  G          S1431 4.3T2 VLO FSNAME=FIX.UNIT_CONTROL.SA.015(1)            301
            5.0T3  1094  FIX.UNIT_CONTROL.SA.015            1 LINE     83   21 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:21
            5.0T8   473                       
0          This is the source code for the FIX version of IBM's FIOCS# known as the
           "UNIT CONTROL ROUTINES", UCR. Calls to UCR are via direct calls rather than
           IBM's transfer vector method.
1                                                                                               MON AUG 05/96   18:37:45   Page  658
0  Num   R       Component Name         Subname     Type G Seq ID 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           
           All I/O to FORTRAN units is done through this module.
            
           Processing of $ENDFILE records is determined by the &ENDFILE global symbol in
           the GLOBALS copy section.
            
            
           ------------------- May 1979 ---------------
            
           The following changes have been made to the unit control routines since the
           last distribution:
            
             1. Problems with indexed I/O and concatenated files have forced us to
                disallow this feature to users. All indexed I/O is now done with
                explicit and implicit concatenation turned off.
             2. A check has been made for no error message returned by GDINFO on an
                error return from READ or WRITE; the TAPE DSR returns no message for
                RC=4 on write.
            
           ****************************************************************************
           Copies *GDINFODSECT (594). Assemble using the FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
0          Referenced by comments of: 1002/28 
01002/016   FIX                      FORMAT_IO       SA  G          S1431 4.3T2 VLO FSNAME=FIX.FORMAT_IO.SA.016(1)               302
            5.0T3  1095  FIX.FORMAT_IO.SA.016               1 LINE     72   32 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:46:23
            5.0T8   474                       
0          The module for decoding compiled formats and performing the necessary
           conversions.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           Assemble using the FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
01002/017   FIX                      VARIABLE_FMT    SA  G          S1431 4.3T2 VLO FSNAME=FIX.VARIABLE_FMT.SA.017(1)            303
            5.0T3  1096  FIX.VARIABLE_FMT.SA.017            1 LINE     72   16 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:46:28
            5.0T8   475                       
0          The module for decoding variable formats. List-directed I/O implemented here
           by checking for "*" as first character of the format. If true, then flag set
           to call LSTDIO instead of FINIT.
            
           The format is saved to be able to check for duplicate calls with the same
           format to save decoding time. Only one level save.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           Assemble using the FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
1                                                                                               MON AUG 05/96   18:37:45   Page  659
0  Num   R       Component Name         Subname     Type G Seq ID 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/018   FIX                      MISCELLANEOUS   SA  G          S1431 4.3T2 VLO FSNAME=FIX.MISCELLANEOUS.SA.018(1)           304
            5.0T3  1097  FIX.MISCELLANEOUS.SA.018           1 LINE     78   11 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:30
            5.0T8   476                       
0          This source file contains a number of small miscellaneous routines. UM's
           original SETxxx routines are mostly implemented as dummy routines. IBM's
           SLITE/SLITET/DVCHK/OVFLOW are also included.
            
           FIX's space allocation/de-allocation routines are included here as well as
           the routine to decode the initial FORTRAN parameter list.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           Assemble using the FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
0          Referenced by comments of: 1002/28 
01002/019   FIX                      LIST_DIRECTED   SA  G          S1431 4.3T2 VLO FSNAME=FIX.LIST_DIRECTED.SA.019(1)           305
            5.0T3  1098  FIX.LIST_DIRECTED.SA.019           1 LINE     72   21 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:46:31
            5.0T8   477                       
0          The module for implementing FTNH-X list-directed I/O. Control is passed to
           this routine from IBCOM# if a variable format which contains an "*" as the
           first character is detected.
            
           Provision is made to call this routine if using FTNX via the LDFIO# entry
           point, contained in IBCOM, for "true" list directed I/O. Both calls yield
           identical results.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           Assemble using the FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
01002/020   FIX                      NAMELIST        SA  G          S1431 4.3T2 VLO FSNAME=FIX.NAMELIST.SA.020(1)                306
            5.0T3  1099  FIX.NAMELIST.SA.020                1 LINE     91   27 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:37
            5.0T8   478                       
0          The module for implementing NAMELIST read and NAMELIST write statements.
            
           Two types of NAMELIST formats are supported - IBM fixed format and UBC's free
           format.
              1. IBM format is assumed (input) if "&" found in col. 2 of the first
                 record.
              2. FREE format is assumed otherwise. Blanks and commas serve as delimiters
                 in this case.
            
           Either format may be set via the appropriate SET command in FTNCMD.
            
           ------------------- May 1979 ---------------
            
1                                                                                               MON AUG 05/96   18:37:45   Page  660
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          The following changes have been made to NAMELIST since the last distribution:
              1. The number of subscripts is now checked for correctness. Two new error
                 messages have been added for this purpose: too few subscripts
                 specified, too many specified.
              2. The output field width of real numbers has been increased to 16.8 from
                 16.7 to allow maximum values to be read in correctly.
            
            
           ****************************************************************************
           Assemble using the FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
01002/021   FIX                      DEBUG           SA  G          S1431 4.3T2 VLO FSNAME=FIX.DEBUG.SA.021(1)                   307
            5.0T3  1100  FIX.DEBUG.SA.021                   1 LINE     81   11 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:42
            5.0T8   479                       
0          The module for the FORTRAN DEBUG package which has been implemented in much
           the same manner as IBM. Exceptions are:
              1. When an output line must be saved then space is acquired for each
                 output line rather than in chunks and cramming.
              2. Undefined values are detected and printed as "U"'s.
              3. SUBTRACE feature extended to print the name of the routine.
              4. DISPLAY command uses a special entry point into NAMELIST to print the
                 data.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           Assemble using the FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
01002/022   FIX                      LLXU_FORTRAN    SA  G          S1431 4.3T2 VLO FSNAME=FIX.LLXU_FORTRAN.SA.022(1)            308
            5.0T3  1101  FIX.LLXU_FORTRAN.SA.022            1 LINE     91   13 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:43
            5.0T8   480                       
0          The module for dynamic linking in FORTRAN written by UM.
            
           Depending on the setting of the merge flag in the loading call, FIX either
           obtains a fresh PSECT or uses the current one.
            
           Since UBC has not released the full calls to the system loader routines, only
           a subset of these calls are available to FORTRAN users. This option is
           controlled by the &LLXUX global symbol in copy section GLOBALS.
            
           ------------------- May 1979 ---------------
            
           The following changes have been made to LLXUF since the last distribution:
              1. Conditional assembly statements have been corrected to yield proper
                 code for those who use &LLXUX=1.
              2. LOADF return codes are now defined via a global SETC array to allow
                 each installation to have their own. Unfortunately, UBC had documented
                 them differently than UM and in fact, differently than implemented.
                 This led to 3 separate sets.
            
1                                                                                               MON AUG 05/96   18:37:45   Page  661
0  Num   R       Component Name         Subname     Type G Seq ID 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 the FIX MACROS (1002/12).
            
           **************************************************************************
           D5.0 version:
            
           New return code added for LOADF:
            
                 -5:  Loading aborted by attention interrupt.
           **************************************************************************
0          Referenced by comments of: 1002/28 
01002/023   FIX                      ERROR_MONITOR   SA  G          S1431 4.3T2 VLO FSNAME=FIX.ERROR_MONITOR.SA.023(1)           309
            5.0T3  1102  FIX.ERROR_MONITOR.SA.023           1 LINE     85  102 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:46:45
            5.0T8   481                       
0          The main part of the FORTRAN I/O error monitor. The error monitor is called
           via FTNCMD, user call, or from within FIX, error call. It is called initially
           by FIXINIT to set up the program interrupt exit unless one has already been
           set up.
            
           The subroutine DEFAULTS is called to initialize the default setting of
           undefined units. Whenever an error occurs, the table contained in the
           ERROR_TABLE is referenced to determine the actions required by this error.
            
           This should be the last module in the object file so that the determination
           of whether an interrupt occurred within FIX. IBCOM# should be the first one.
            
           ------------------- May 1979 ---------------
            
           The following changes have been made to FIODEBUG since the last distribution:
              1. The check for legal space has been made more rigorous so that programs
                 running in an unprotected system don't think that segment 0 is
                 addressable, e.g. virtual machines.
              2. SET SEMIFREE=ON/OFF has been added to allow turning off the default
                 "free-format" input.
              3. Abbreviations have been standardized.
              4. FTNCMD multiple substitution bug fixed.
              5. QUERY command returns FDname with trailing blank.
              6. The system now prints MAP/GRs/FPRs instead of ERRMON.
              7. A reasonable message is issued when intervening actions prevent
                 prompting for replacement of an input line with an error.
              8. A bug in the printing of a variable format in the debug output was
                 fixed.
            
           ********************************************************************
           Copies *GDINFODSECT (594) and *CNFGINFODSECT (654). Assemble using the FIX
           MACROS (1002/12).
           ********************************************************************
0          Referenced by comments of: 1002/28 
1                                                                                               MON AUG 05/96   18:37:45   Page  662
0  Num   R       Component Name         Subname     Type G Seq ID 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/024   FIX                      UNIT_DEFAULTS   SA  G          S1431 4.3T2 VLO FSNAME=FIX.UNIT_DEFAULTS.SA.024(1)           310
            5.0T3  1103  FIX.UNIT_DEFAULTS.SA.024           1 LINE     49    1 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:47:00
            5.0T8   482                       
0          The subroutine to the error monitor to set unit defaults. The current status
           of this is to set the following defaults:
                  unit 5 - *SOURCE*
                  unit 6 - *SINK*
            
           ------------------- May 1979 ---------------
01002/025   FIX                      ERROR_TABLE     SA  G          S1431 4.3T2 VLO FSNAME=FIX.ERROR_TABLE.SA.025(1)             311
            5.0T3  1104  FIX.ERROR_TABLE.SA.025             1 LINE     64    2 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:47:01
            5.0T8   483                       
0          The external error table, to allow adding/changing of errors without needing
           to re-assemble the whole error monitor.
            
           To change the action of one or more errors, make the appropriate change(s) to
           the error macro call in MACLIB and re-assemble this module.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           Assemble using the FIX MACROS (1002/12).
           ****************************************************************************
01002/026   FIX                      DUMP            SA  G          S1431 4.3T2 VLO FSNAME=FIX.DUMP.SA.026(1)                    312
            5.0T3  1105  FIX.DUMP.SA.026                    1 LINE     72    7 PAGE UBC  O'REILLY  TIFFANY   DEC. 07, 1978  11:04:22
            5.0T8   484                       
0          SOURCE TO IMPLEMENT FORTRAN DUMP/PDUMP. RESIDES IN THE GENERAL LIBRARY AS IT
           IS NOT USED VERY MUCH.
01002/027   FIX                      LCS_SOURCE      SA  G          S1431 4.3T2 VLO FSNAME=FIX.LCS_SOURCE.SA.027(1)              313
            5.0T3  1106  FIX.LCS_SOURCE.SA.027              1 LINE     84    1 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:47:02
            5.0T8   485                       
0          The source for generating the low core symbol table for all required FIX
           entry points. There is room at the end for an extra 12 entry points if
           required for patching purposes.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           Assemble using the FIX MACROS (1002/12).
           ****************************************************************************
01002/028A  FIX                      UM_UPDATES      UC  G          W062:FIX.UP                                                     
            5.0T3  1107  FIX.UM_UPDATES.UC.028              1 LINE     68    4 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:37:10
            5.0T8   486                       
0          This file contains UM'S updates to the various subcomponents of UBC'S FIX and
           the FIX MACRO LIBRARY. Current subcomponents which are updated include:
1                                                                                               MON AUG 05/96   18:37:45   Page  663
0  Num   R       Component Name         Subname     Type G Seq ID 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. MISCELLANEOUS   (1002/18)
             2. MACRO_LIBRARY   (1002/12)
             3. ERROR_MONITOR   (1002/23)
             4. UNIT_CONTROL    (1002/15)
             5. LLXU_FORTRAN    (1002/22)
            
           **************************************************************************
           D5.0 version:
            
           New return code added for LOADF:
            
                 -5:  Loading aborted by attention interrupt.
           **************************************************************************
01003/001   TAPEAID                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          This component, which is not currently installed at UM, is a general utility
           program for interactive manipulation of tapes.
01004/001   DSRMON                                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DSR
           MONITOR PROGRAM FOR TESTING OUT DSR'S.
01005/001   FREAD SUBR               FREAD#          SA  G          S0565 D4T3 VLO FSNAME=FREAD_SUBR.FREAD#.SA.001(1)            389
            5.0T3  1108  FREAD_SUBR.FREAD#.SA.001           1 LINE     77   52 PAGE UBC  STEVENS   TIFFANY   JUNE 15, 1977  09:37:11
            5.0T8   487                       
0          THIS IS THE REENTRANT PART OF FREAD, THE FREE FORMAT INPUT FACILITY.  COPIES
           THE FREAD.COPY COPY SECTION (1005/5) AND *GDINFODSECT (594).
0          Referenced by comments of: 1005/3, 1005/5 
01005/002   FREAD SUBR               FREAD#          OC  G          SEG2:FREAD                                                      
            5.0T3  1109  FREAD_SUBR.FREAD#.OC.002           1 LINE     80   11 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:37:28
            5.0T8   488  SEG2:FREAD           
0          THIS OBJECT IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE.
01005/003   FREAD SUBR               FREAD           SA  G          S0565 D4T3 VLO FSNAME=FREAD_SUBR.FREAD.SA.003(1)             391
            5.0T3  1110  FREAD_SUBR.FREAD.SA.003            1 LINE     77    3 PAGE UBC  STEVENS   TIFFANY   MAY  12, 1977  16:17:34
            5.0T8   489                       
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).
0          Referenced by comments of: 1005/5 
1                                                                                               MON AUG 05/96   18:37:45   Page  664
0  Num   R       Component Name         Subname     Type G Seq ID 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/004   FREAD SUBR               FREAD           OC  G        # (PART OF *LIBRARY)                                              
                                                                                    UBC  STEVENS   TIFFANY                          
0          Object part of *LIBRARY (524/1)
01005/005   FREAD SUBR               FREAD.COPY      SA  G          S0565 D4T3 VLO FSNAME=FREAD_SUBR.FREAD.COPY.SA.005(1)        392
            5.0T3  1111  FREAD_SUBR.FREAD.COPY.SA.005       1 LINE     72    4 PAGE UBC  STEVENS   TIFFANY   JUNE 13, 1977  11:51:56
            5.0T8   490                       
0          COPY SECTION USED BY (1005/1) AND (1005/3).
0          Referenced by comments of: 1005/1, 1005/3 
01006/001   PRDSCT                                   SA             S1143 D4.1T1 VLO FSNAME=PRDSCT..SA.001(1)                    650
            5.0T3  1112  PRDSCT..SA.001                     1 LINE     83   21 PAGE UBC  STEVENS   TIFFANY   MAY  13, 1978  18:28:15
            5.0T8   491                       
0          ROUTINE TO PRINT A FORMATTED DUMP OF A DSECT.
            
           *****************************************************************************
           D5.0 version:
            
           Should be assembled using the UBC Macros, which are no longer distributed by
           UM.  The version found on D4.0 tape D4T3, file 421 is the correct version to
           use.
           *****************************************************************************
01006/002   PRDSCT                                   OE             ETC:FIX.PRDSCT                                                  
            5.0T3  1113  PRDSCT..OE.002                     1 LINE   5843    3 PAGE UBC  STEVENS   TIFFANY   JULY 03, 1981  20:37:32
            5.0T8   492  ETC:FIX.PRDSCT       
01007/001   ROBJ                                                  # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           REPLACE OBJECT MODULES BY NAME.
01008/001   PATCH                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           PATCH OBJECT MODULES FREE-FORMAT OR REP RECORD INPUT.
01009/001   RUN                                                   # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           EXECUTE PROGRAMS FROM A LIBRARY OF PROGRAMS, SO THAT USERS NEED TO MAINTAIN
           ONLY A SINGLE FILE OF PROGRAMS.  THIS IN TURN DECREASES THE NUMBER OF FILES
           TO MAINTAIN AND REMEMBER.
1                                                                                               MON AUG 05/96   18:37:45   Page  665
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01011/001   ALIST                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN 
           ASSEMBLY/FORTRAN LIST PROGRAM.
01012/001A  UNITS                    D5.0 JOB PGM    SA  G          S0699 D3TAPE POSN=UNITS.D5                                      
            5.0T4   554  UNITS.D5.0_JOB_PGM.SA.001          1 LINE     80   36 PAGE UBC  BERRYMAN  MTA       AUG. 10, 1981  00:05:44
            5.0T11  128                       
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/3) AND COPY:LLMPSEQU (087).
           ASSEMBLE USING DMPLST.MACROS (400/18).
0          Referenced by comments of: 490/1, 1012/4 
01012/002C  UNITS                    UPDATE          UC  G          MTA:UNITS.U                                                     
            5.0T4   555  UNITS.UPDATE.UC.002                1 LINE    105    4 PAGE UBC  BERRYMAN  MTA       AUG. 10, 1981  00:05:45
            5.0T11  129                       
0          Update to bring D4.3 UNITS to D5.0.
01012/003A  UNITS                    JOB PROGRAM     OC  G        # (PART OF RESIDENT SYSTEM)                                       
            D4T3    396  UNITS.JOB_PROGRAM.OC.002           1 LINE     80    6 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:11:35
0          Object part of Resident System (468)
0          Referenced by comments of: 1012/1 
01012/004A  UNITS                    MTS PROGRAM     SA  G          MTA:UNITS.MTS.S                                                 
            5.0T4   556  UNITS.MTS_PROGRAM.SA.004           1 LINE     69    3 PAGE UBC  BERRYMAN  MTA       AUG. 10, 1981  00:05:46
            5.0T11  130                       
0          MTS PROGRAM TO FORMAT PARAMETERS AND CALL THE UNITS SUBROUTINE (1012/1).
01012/005A  UNITS                    MTS PROGRAM     OE  G          MTA:UNITS.O                                                     
            5.0T4   557  UNITS.MTS_PROGRAM.OE.005           1 LINE   1119    1 PAGE UBC  BERRYMAN  MTA       AUG. 10, 1981  00:05:47
            5.0T11  131  MTA.:UNITS.O         
0          MUST BE RUN WITH PROT=OFF UNLESS A SET OF TABLES IS CONCATENATED WITH IT.
01012/006C  UNITS                    WRITEUP         WF             MTA:UNITS.W                                                     
            5.0T4   558  UNITS.WRITEUP.WF.006               1 LINE     72    3 PAGE UBC  BERRYMAN  MTA       AUG. 10, 1981  00:05:48
            5.0T11  132                       
0          Description of input to UNITS and most messages it prints.
01014/001   MARKIV                                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A DATA
           MANAGEMENT REPORT GENERATION PROGRAM.
1                                                                                               MON AUG 05/96   18:37:45   Page  666
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01015/001   ROTOF                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO
           REORDER LINES IN A SEQUENTIAL FILE AND TO REORDER FILES ON A TAPE.
01016/001   STEVENS MACRO LIB                        SM             S1200 RD15T1 VLO FSNAME=STEVENS.MACRO.LIB..SM.01(1)         513 
            5.0T3  1114  STEVENS_MACRO_LIB..SM.001          1 LINE     73   20 PAGE UBC  STEVENS   DWB       AUG. 30, 1978  22:42:26
            5.0T8   493                       
0          MACROS NEEDED BY *APC (496).
01019/001A  RAMROD                   SERVICE MODULE  SA  G          MTS:RAMROD.SR.S(1)                                              
            5.0T3  1115  RAMROD.SERVICE_MODULE.SA.001       1 LINE     72   53 PAGE UBC  BERRYMAN  MTA       JULY 03, 1981  20:44:47
            5.0T8   494  MTS.:RAMROD.SR.S     
0          SERVICE ROUTINES FOR RAMROD. ASSEMBLE USING RAMROD MACROS (1019/4). COPIES
           *CNFGINFODSECT (654).
0          Referenced by comments of: 596/1, 1019/5 
01019/002   RAMROD                   INTER           SA  G          MTS:RAMROD.CS.S(1)                                              
            5.0T3  1116  RAMROD.INTER.SA.002                1 LINE     80   88 PAGE UBC  BERRYMAN  MTA       JULY 03, 1981  20:44:55
            5.0T8   495  MTS.:RAMROD.CS.S     
0          SOURCE FOR THE RAMROD COMMAND LANGUAGE INTERPRETER. REQUIRES THE EXISTENCE OF
           A FILE, PRESENTLY NAMED MTS:RAMRODLOG BY DEFAULT, BUT SETABLE, WHICH IS
           PERMITTED AT LEAST WRITE-EXTEND FOR ITS TRANSACTION LOG. IT ALSO REQUIRES AN
           EXPLAIN FILE (1019/6). ALL FILENAMES OF THIS SORT ARE ASSEMBLY PARAMETERS.
           COPIES *GFINFODSECT (593) AND *GDINFODSECT (594). ASSEMBLE USING
           RAMROD.MACROS (1019/4).
0          Referenced by comments of: 1019/5 
01019/003C  RAMROD                   GSFS            SA  G          MTS:RAMROD.GSFS(1000)                                           
            5.0T3  1117  RAMROD.GSFS.SA.003                 1 LINE     70    3 PAGE UBC  BERRYMAN  MTA       AUG. 06, 1981  05:44:05
            5.0T8   496  MTS:RAMROD.GSFS      
0          Interface to GETSPACE/FREESPACE that allows multiple segment requests. Copies
           *CNFGINFODSECT (654).
01019/004   RAMROD                   MACROS          SM  G          MTS:RAMROD.MACS                                                 
            5.0T3  1118  RAMROD.MACROS.SM.004               1 LINE     72    4 PAGE UBC  BERRYMAN  MTA       JULY 03, 1981  20:45:38
            5.0T8   497  MTS.:RAMROD.MACS     
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/7 
1                                                                                               MON AUG 05/96   18:37:45   Page  667
0  Num   R       Component Name         Subname     Type G Seq ID 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/005A  RAMROD                   OBJECT          OC  G          MTS:RAMROD                                                      
            5.0T3  1119  RAMROD.OBJECT.OC.005               1 LINE   4069   53 PAGE UBC  BERRYMAN  MTA       AUG. 06, 1981  05:44:15
            5.0T8   498  MTS.:RAMROD          
0          CONTAINS THE OBJECT FOR THE COMMAND LANGUAGE INTERPRETER (1019/2) AND THE
           SERVICE MODULE (1019/1).
01019/006   RAMROD                   EXPLAIN         M              MTS:RAMRODEXP                                                   
            5.0T3  1120  RAMROD.EXPLAIN.M.006               1 LINE     79    3 PAGE UBC  BERRYMAN  MTA       JULY 03, 1981  20:45:44
            5.0T8   499  MTS.:RAMRODEXP       
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/007   RAMROD                   DUMP            SA  G          MTS:RRDMP.S                                                     
            5.0T3  1121  RAMROD.DUMP.SA.007                 1 LINE     72    8 PAGE UBC  BERRYMAN  MTA       JULY 03, 1981  20:45:45
            5.0T8   500  MTS.:RRDMP.S         
0          RAMROD FILE DIRECTORY DUMP PROGRAM.  ASSEMBLE USING RAMROD MACROS (1019/4).
01019/008   RAMROD                   DUMP            OC  G          MTS:RRDMP                                                       
            5.0T3  1122  RAMROD.DUMP.OC.008                 1 LINE     80    7 PAGE UBC  BERRYMAN  MTA       JULY 03, 1981  20:45:47
            5.0T8   501  MTS.:RRDMP           
01019/009   RAMROD                   INTRO           WF             S0565 D4T3 VLO FSNAME=RAMROD.INTRO.WF.008(1)                 407
            5.0T3  1123  RAMROD.INTRO.WF.009                1 LINE     79    4 PAGE UBC  HOGG      MTA       MAR. 22, 1976  14:33:16
            5.0T8   502                       
0          INTRODUCTION TO RAMROD AND IPL READER (1021).  RELEVANT MAINLY TO INSTALLATIONS
           CONVERTING FROM PRE-IPLREADER VERSIONS OF RAMROD.
0          Referenced by comments of: 1021/1 
01019/010   RAMROD                   WRITEUP         WF             MTS:RAMROD.W                                                    
            5.0T3  1124  RAMROD.WRITEUP.WF.010              1 LINE    115   11 PAGE UBC  BERRYMAN  MTA       JULY 03, 1981  20:45:52
            5.0T8   503  MTS.:RAMROD.W        
0          WRITEUP DESCRIBING THE RAMROD UTILITY.
01019/011   RAMROD                   MTS:RAMRODLOG   D            # MTS:RAMRODLOG                                                   
                                                                                    UBC  BERRYMAN  MTA                              
                         MTS:RAMRODLOG@E      
0          RAMROD LOG FILE.
01020/001A  FILE MOVE                                SA  G          FILE:FM.S                                                       
            5.0T3  1125  FILE_MOVE..SA.001                  1 LINE    106   12 PAGE UBC  HOGG      HELFFRICH AUG. 06, 1981  05:44:34
            5.0T8   504  FILE:FM.S            
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
1                                                                                               MON AUG 05/96   18:37:45   Page  668
0  Num   R       Component Name         Subname     Type G Seq ID 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          (482/45). Copies *CNFGINFODSECT (654).
            
            
           ********************************************************************************
           D5.0 changes:
            
           Changed for Disk Manager (769) support, to add the VOL= parameter
           so that a file may be created on a particular volume, to add the
           NODATA parameter so that a file may be created but left empty, and
           to add the LSTCHG= parameter to cause it to check to see if the file
           has been changed since the specified date.
           ********************************************************************************
0          Referenced by comments of: 461/24, 682/7, 3024/36, 3024/39 
01020/002A  FILE MOVE                                OC  G          FILE:FM                                                         
            5.0T3  1126  FILE_MOVE..OC.002                  1 LINE   5498    5 PAGE UBC  HOGG      HELFFRICH AUG. 06, 1981  05:44:40
            5.0T8   505  FILE:FM              
01021/001A  IPL READER               5.0 IPLBOOT     SA  G          S0699 D3TAPE POSN=IPLBOOT.D5                                    
            5.0T4   559  IPL_READER.5.0_IPLBOOT.SA.001      1 LINE     80   32 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:25
            5.0T11  133                       
0          SEE COMP (1019/9) FOR AN INTRODUCTORY WRITEUP ON RAMROD AND THE IPL READER.
            
           THIS IS A BOOTSTRAP PROGRAM FOR THE IPLREADER.  COPIES COPY:GLOBALS (1026/3),
           COPY:LLMPSEQU (087), AND COPY:PSA (162).  ASSEMBLE USING COPY:SETPARM (653) AND
           COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 4/4, 1019/9, 1021/7 
01021/002A  IPL READER               IPLBOOT UPD     UC  G          MTS:IPLBOOT.S(*F,-1)                                            
            5.0T4   560  IPL_READER.IPLBOOT_UPD.UC.002      1 LINE     72   10 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:26
            5.0T11  134  MTS:IPLBOOT.S        
0          UPDATE TO PRODUCE THE CURRENT VERSION OF IPLBOOT, BASED ON THE D4.2 SOURCE.
01021/003A  IPL READER               IPLBOOT         OC  G          MTS:IPLBOOT.O                                                   
            5.0T4   561  IPL_READER.IPLBOOT.OC.003          1 LINE     80    3 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:31
            5.0T11  135  MTS.:IPLBOOT.O       
01021/004A  IPL READER               5.0 IPLREAD     SA  G          S0699 D3TAPE POSN=IPLREAD.D5                                    
            5.0T4   562  IPL_READER.5.0_IPLREAD.SA.004      1 LINE     80  116 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:34
            5.0T11  136                       
0          MAIN PART OF IPL READER.  COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND
           COPY:PSA (162).  ASSEMBLE USING COPY:SETPARM (653) AND COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 1021/7 
1                                                                                               MON AUG 05/96   18:37:45   Page  669
0  Num   R       Component Name         Subname     Type G Seq ID 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/005A  IPL READER               IPLREAD UPD     UC  G          MTS:IPLREAD.S(*F,-1)                                            
            5.0T4   563  IPL_READER.IPLREAD_UPD.UC.005      1 LINE     76    9 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:37
            5.0T11  137  MTS:IPLREAD.S        
0          UPDATE TO PRODUCE THE CURRENT VERSION OF IPLREAD, BASED ON THE D4.2 SOURCE.
01021/006A  IPL READER               IPLREAD         OC  G          MTS:IPLREAD.O                                                   
            5.0T4   564  IPL_READER.IPLREAD.OC.006          1 LINE     80    9 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:45
            5.0T11  138  MTS.:IPLREAD.O       
01021/007A  IPL READER               5.0 IPLINIT     SA  G          S0699 D3TAPE POSN=IPLINIT.D5                                    
            5.0T4   565  IPL_READER.5.0_IPLINIT.SA.007      1 LINE     80   29 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:47
            5.0T11  139                       
0          PROGRAM TO WRITE IPLBOOT (1021/1), IPLREAD (1021/4), AND UMLOAD (001/1) ON A
           DISK OR TAPE IN SELF LOADING FORM. COPIES *GDINFODSECT (594). ASSEMBLE USING
           COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 1021/10 
01021/008A  IPL READER               IPLINIT UPD     UC  G          MTS:IPLINIT.S(*F,-1)                                            
            5.0T4   566  IPL_READER.IPLINIT_UPD.UC.008      1 LINE     72   11 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:48
            5.0T11  140  MTS.:IPLINIT.S       
0          UPDATE TO PRODUCE THE CURRENT VERSION OF IPLINIT, BASED ON THE D4.0 SOURCE.
01021/009A  IPL READER               IPLINIT         OC  G          MTS:IPLINIT.O                                                   
            5.0T4   567  IPL_READER.IPLINIT.OC.009          1 LINE     80    9 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:06:51
            5.0T11  141  MTS.:IPLINIT.O       
0          OBJECT REQUIRES IPLGTUM (1021/10) AND RSTR:VTOCREAD (067/3) TO RUN.  MUST
           BE RUN WITH PROT=OFF. 
01021/010   IPL READER               IPLGTUM         SA  G          S0565 D4T3 VLO FSNAME=IPL_READER.IPLGTUM.SA.007(1)           417
            5.0T4   568  IPL_READER.IPLGTUM.SA.010          1 LINE     72    3 PAGE UBC  O'REILLY  MTA       JULY 29, 1977  00:14:25
            5.0T11  142                       
0          SUBROUTINE TO LOAD UMLOAD (001/1) FOR IPLINIT (1021/7).
0          Referenced by comments of: 1021/9 
01021/011   IPL READER               IPLGTUM         OC  G          MTS:IPLGTUM.O                                                   
            5.0T4   569  IPL_READER.IPLGTUM.OC.011          1 LINE     80    1 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:10:00
            5.0T11  143  MTS.:IPLGTUM.O       
01021/012A  IPL READER               WRITEUP         WF             MTS:IPLREAD.W                                                   
            5.0T4   570  IPL_READER.WRITEUP.WF.012          1 LINE     71    8 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:10:01
            5.0T11  144  MTS.:IPLREAD.W       
0          DESCRIPTION OF IPL READER.
1                                                                                               MON AUG 05/96   18:37:45   Page  670
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01023/001A  MSG ROUTINE                              SA             W267:MSG.S                                                      
            5.0T3  1127  MSG_ROUTINE..SA.001                1 LINE    131   61 PAGE UBC  SAYLE     EADIE     JULY 03, 1981  20:46:00
            5.0T8   506                       
0          Source for MSG routine.  This is a reentrant general-purpose
           message routine with a variety of features. the routine is 
           mainly designed to be used with macros 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
                             COPY:CC.MACROS (1054/3). 
              COPY's         *LOADINFODSECT (001/4).
0          Referenced by comments of: 1/5, 101/3, 724/3 
01023/002A  MSG ROUTINE                              OC           # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UBC  SAYLE     EADIE                            
0          Object part of Resident System (468)
01023/003A  MSG ROUTINE              PICTURE         SA  G          W267:PIC.S(1)                                                   
            5.0T3  1128  MSG_ROUTINE.PICTURE.SA.003         1 LINE     72    6 PAGE UBC  SAYLE     EADIE     JULY 03, 1981  20:46:08
            5.0T8   507                       
0          "PICTURE" PROCESSING CSECT FOR MSG ROUTINE.
           ASSEMBLE USING *SYSMAC AND COPY:CC.MACROS (1054/3).
01024/001   UBC MACROS                               SM           # (NOT DISTRIBUTED)                                               
            D4T3    421  UBC_MACROS..SM.                    1 LINE     73   10 PAGE UBC  STEVENS             JULY 29, 1977  00:14:36
0          UBC COMPUTING CENTRE STAFF MACRO LIBRARY. THIS COMPONENT IS NOT DISTRIBUTED
           BY UM.
01025/001   LCS_PRINTER                                           # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE
           WHICH ALLOWS ONE TO LIST THE CONTENTS OF VARIOUS LOW-CORE SYMBOL TABLES.
01026/001A  GLOBAL SYSTEM PARS       GLOBALDEFS      SA  G          COPY:GLOBALDEFS                                                 
            5.0T3  1129  GLOBAL_SYSTEM_PARS.GLOBAL.SA.001   1 LINE     80    2 PAGE UM   MTA                 JULY 03, 1981  20:46:09
            5.0T8   508  COPY:GLOBALDEFS      
0          CONTAINS GBL DEFINITIONS FOR:
            
                  &S370       SYSTEM/370 -- MUST BE ON
                  &OC3066     3066 CONSOLE PRESENT
                  &CRTY       ITEL 7830 COMMAND RETRY -- MUST BE OFF
                  &SIMPLEX    SINGLE PROCESSOR -- MUST BE ON
                  &OPERJOB    OPERATOR JOB BEING USED
                  &PROT       PROTECTION
1                                                                                               MON AUG 05/96   18:37:45   Page  671
0  Num   R       Component Name         Subname     Type G Seq ID 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                 &AMD470     AMDAHL 470
                  &BLKMPX     BLOCK MULTIPLEXOR CHANNEL -- MUST BE ON
                  &IO370      370 I/O INSTRUCTIONS -- MUST BE ON
                  &NOSLT      NO SEARCH LIST INSTRUCTION -- MUST BE ON
                  &OMR        2501 OMR FEATURE
                  &JTBLPOL    POOL ENTRIES IN JOB TABLE
                  &DTBLPOL    POOL ENTRIES IN DEVICE TABLE
                  &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
                  &INSTALL    THE INSTALLATION'S SHARE CODE
                  &SYSPROJ    INITIAL SUBSTRINGS FOR THOSE PROJECTS
                              THAT BELONG TO SYSTEM PROGRAMMERS.
                  &IPLPROJ    INITIAL SUBSTRINGS FOR THOSE PROJECTS 
                              FOR WHICH THE ACCOUNTING RECORD 
                              IN USE BIT CAN BE IGNORED.
                  &UQVNTPT    ON IF USING UQV NOTE/POINT FORMAT
                              FOR SEQUENTIAL FILES
                  &TTALLY     ON TO GET SYSTEM TIME TALLY
0          Referenced by comments of: 4/1, 42/1, 45/1, 101/1, 116/1, 135/1, 400/1, 545/3, 570/1, 653/1 
01026/002A  GLOBAL SYSTEM PARS       GLOBALSETS      SA  G          COPY:GLOBALSETS                                                 
            5.0T3  1130  GLOBAL_SYSTEM_PARS.GLOBAL.SA.002   1 LINE     80    1 PAGE UM   MTA                 JULY 03, 1981  20:46:10
            5.0T8   509  COPY:GLOBALSETS      
0          THIS FILE DEFINES VALUES FOR THE SYMBOLS IN GLOBALDEFS AS APPROPRIATE FOR THE UM AMDAHL
           470 VERSION OF MTS.
0          Referenced by comments of: 4/1, 42/1, 45/1, 101/1, 116/1, 135/1, 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8,
                 387/26, 387/29, 387/31, 387/34, 400/1, 545/3, 570/1, 806/1, 1070/1 
01026/003   GLOBAL SYSTEM PARS       GLOBALS         SA  G          COPY:GLOBALS                                                    
            5.0T3  1131  GLOBAL_SYSTEM_PARS.GLOBAL.SA.003   1 LINE     37    1 PAGE UM   MTA                 JULY 03, 1981  20:46:10
            5.0T8   510  COPY:GLOBALS         
0          CONTAINS:  $CONTINUE WITH COPY:GLOBALDEFS RETURN
                      $CONTINUE WITH COPY:GLOBALSETS RETURN
0          Referenced by comments of: 5/1, 7/1, 8/1, 9/1, 9/3, 10/1, 19/1, 21/1, 24/1, 40/1, 44/1, 46/1, 79/1, 80/1, 87/1,
                 162/1, 198/1, 353/2, 354/1, 354/5, 388/1, 399/1, 400/5, 400/16, 413/1, 464/1, 482/4, 482/7, 500/50, 507/2,
                 509/1, 513/1, 531/1, 531/7, 531/14, 539/1, 540/1, 540/3, 540/6, 540/8, 540/10, 540/12, 540/18, 540/27, 545/16,
                 554/1, 554/3, 577/1, 577/3, 577/6, 578/1, 579/1, 600/1, 615/15, 615/17, 621/2, 629/4, 634/1, 634/4, 635/1,
                 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/11, 682/22, 685/5, 693/1, 731/3, 732/1, 770/1, 777/1, 787/15,
                 798/67, 1012/1, 1021/1, 1021/4, 1079/10, 1081/1, 1081/12, 1081/13, 1081/14, 1081/15, 1081/16, 3024/1, 4000/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  672
0  Num   R       Component Name         Subname     Type G Seq ID 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/001A  P11 JOB                                  SA  G          S0938 FSAVE2 VLO FSNAME=P11.S                                   
            5.0T3  1132  P11_JOB..SA.001                    1 LINE     70    2 PAGE UBC            MTA       JAN. 19, 1981  22:18:38
            5.0T8   511                       
0          JOB PROGRAM TO LOAD THE CHARACTER AND CARRIAGE CONTROL BUFFERS OF A 3211
           PRINTER FOR THE P11 PRINT TRAIN.  LOADS FCB FOR 6 LINES PER INCH ON 11
           INCH PAPER UNLESS THE "8LPI" PARAMETER IS GIVEN, IN WHICH CASE IT LOADS
           FOR 8 LINES PER INCH ON 8.5 INCH PAPER.
0          Referenced by comments of: 819/1 
01027/002A  P11 JOB                                  OC  G        # (PART OF RESIDENT SYSTEM)                                       
            D4T3    427  P11_JOB..OC.002                    1 LINE     80    1 PAGE UBC            MTA       MAR. 15, 1975  16:00:44
0          Object part of Resident System (468)
01028/001   STAND-ALONE DUMP         IPL MODULE      SA             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.IPL_MODU.SA.001(1)    429
            5.0T3  1133  STAND-ALONE_DUMP.IPL_MODU.SA.001   1 LINE     72    5 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:44:58
            5.0T8   512                       
0          ASSEMBLER SOURCE FOR STAND-ALONE DUMP PROGRAM. THIS VERSION, JAN 1977,
           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. IT WON'T WORK ON A MACHINE WITH
           16 MEGABYTES OF REAL MEMORY.
0          Referenced by comments of: 1028/2 
01028/002   STAND-ALONE DUMP         IPL MODULE      OC             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.IPL_MODU.OC.002(1)    430
            5.0T3  1134  STAND-ALONE_DUMP.IPL_MODU.OC.002   1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:00
            5.0T8   513                       
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             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.MAIN.SP.003(1)        431
            5.0T3  1135  STAND-ALONE_DUMP.MAIN.SP.003       1 LINE     88    4 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:01
            5.0T8   514                       
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).
0          Referenced by comments of: 1028/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  673
0  Num   R       Component Name         Subname     Type G Seq ID 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/004   STAND-ALONE DUMP         MAIN            OC             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.MAIN.OC.004(1)        432
            5.0T3  1136  STAND-ALONE_DUMP.MAIN.OC.004       1 LINE     80    9 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:06
            5.0T8   515                       
01028/005   STAND-ALONE DUMP         PSD.PT          SA             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.PSD.PT.SA.005(1)      433
            5.0T3  1137  STAND-ALONE_DUMP.PSD.PT.SA.005     1 LINE     61    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:03
            5.0T8   516                       
0          SOURCE FOR THE PL/1-TO-PRTRACE INTERFACE FOR THE STAND-ALONE DUMP PRINT PROGRAM.
01028/006   STAND-ALONE DUMP         PSD.PT          OC             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.PSD.PT.OC.006(1)      434
            5.0T3  1138  STAND-ALONE_DUMP.PSD.PT.OC.006     1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:09
            5.0T8   517                       
01028/007   STAND-ALONE DUMP         PSD.CT          SA             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.PSD.CT.SA.007(1)      435
            5.0T3  1139  STAND-ALONE_DUMP.PSD.CT.SA.007     1 LINE     72    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:04
            5.0T8   518                       
0          SOURCE FOR THE TIME-CONVERTING SUBROUTINE USED BY THE STAND-ALONE DUMP PRINTER.
01028/008   STAND-ALONE DUMP         PSD.CT          OC             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.PSD.CT.OC.008(1)      436
            5.0T3  1140  STAND-ALONE_DUMP.PSD.CT.OC.008     1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:12
            5.0T8   519                       
01028/009   STAND-ALONE DUMP         COMPLETE PROG   OE             S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.COMPLETE.OE.009(1)    437
            5.0T3  1141  STAND-ALONE_DUMP.COMPLETE.OE.009   1 SEQ   10118    8 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:13
            5.0T8   520                       
0          LINKEDITED VERSION OF THE STAND-ALONE-DUMP PRINT PROGRAM INCLUDING ALL THE
           REQUIRED JUNK AND A $CONTINUE WITH *PL1LIB.
0          Referenced by comments of: 1028/1, 1028/3 
01030/001A  PACK MAP                 BASE SOURCE     SA  G  PM      FILE:PM(-10000,-1)                                              
            5.0T3  1142  PACK_MAP.BASE_SOURCE.SA.001        1 LINE     80   26 PAGE UBC  O'REILLY  HELFFRICH JULY 03, 1981  20:47:24
            5.0T8   521  FILE:PM              
0          PROGRAM TO PRINT COMPLETE MAP OF A PAGE-FORMATTED DISK PACK.  FOR INSTRUCTIONS
           ON USAGE, SEE COMMENTS AT BEGINNING OF THE SOURCE. CALLS VTOCREAD (067/3) 
           AND THE SORT SUBROUTINE (303/5).  ASSEMBLE USING COPY:FILE.MACROS (482/45).
           SEE COMP (682/3) FOR A WRITEUP.
0          Referenced by comments of: 682/3, 1030/2 
01030/002A  PACK MAP                 UPDATE          UC  G          FILE:PM(1000)                                                   
            5.0T3  1143  PACK_MAP.UPDATE.UC.002             1 LINE     68    1 PAGE UBC  O'REILLY  HELFFRICH JULY 03, 1981  20:47:27
            5.0T8   522                       
0          UPDATE DECK FOR (1030/1) TO YIELD CURRENT SOURCE.
            
           ************************************************************************
           D5.0 version:
            
           Updated for Disk Manager (769) support.
1                                                                                               MON AUG 05/96   18:37:45   Page  674
0  Num   R       Component Name         Subname     Type G Seq ID 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          ************************************************************************
01030/003A  PACK MAP                                 OC  G          FILE:PM(0,999)                                                  
            5.0T3  1144  PACK_MAP..OC.003                   1 LINE     82    5 PAGE UBC  O'REILLY  HELFFRICH JULY 03, 1981  20:47:28
            5.0T8   523                       
0          OBJECT FOR PACKMAP. CONTAINS "$CONTINUE WITH RSTR:VTOCREAD+COPY:SYSDEFS"
           (067/3) AND (579/3) RECORD.
01031/001   FO                                                    # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE "FILE
           OPTIMIZER" PROGRAM, WHICH WAS WRITTEN TO OPTIMIZE THE AMOUNT OF FILE SPACE
           USED BY A FILE.
01032/001   BCPL                     INSTALL_GUIDE   P   O          S1431 4.3T2 VLO FSNAME=BCPL.INSTALL_GUIDE.P.001(1)           333
            5.0T3  1145  BCPL.INSTALL_GUIDE.P.001           1 LINE     79    1 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:38
            5.0T9     1                       
0          THIS VERSION OF BCPL, WRITTEN AT UNE, IS DERIVED FROM A RECENT VERSION OF THE
           CAMBRIDGE COMPILER. THE LIBRARY HAS BEEN COMPLETELY REWRITTEN ALMOST ENTIRELY
           IN BCPL, AND INCLUDES VARIOUS MTS-SPECIFIC FEATURES SUCH AS ACCESS TO LINE
           NUMBERS.
            
           THIS COMPILER CAN GENERATE AN INTERNAL SYMBOL TABLE, WHICH IS USED BY A
           LIBRARY POST-MORTEM ROUTINE TO GIVE SYMBOLIC DUMPS.
            
           VARIOUS UTILITIES ARE PROVIDED, SUCH AS A SOURCE RE-FORMATTER, TIDY
           (1032/16), A CROSS-REFERENCE PROGRAM (1032/18) THAT HANDLES SCOPES CORRECTLY,
           AND AN INTERACTIVE DEBUGGING SYSTEM (1032/12).
            
           THE INSTALLATION GUIDE (1032/1) TELLS HOW TO INSTALL AND RECOMPILE THE
           VARIOUS SUBCOMPONENTS OF THE SYSTEM.
0          Referenced by comments of: 1032/1 
01032/002   BCPL                     CHANGELOG       P   O          S1431 4.3T2 VLO FSNAME=BCPL.CHANGELOG.P.002(1)               334
            5.0T3  1146  BCPL.CHANGELOG.P.002               1 LINE     74    1 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:20
            5.0T9     2                       
0          A CHRONOLOGICAL LIST OF CHANGES TO THE UNE BCPL SYSTEM.  (THIS IS ONE OF 
           THE COMPONENTS SENT FROM UNE, AND DETAILS THE CHANGES THAT WERE MADE
           AT NEWCASTLE, NOT THE CHANGES MADE AT UM.)
01032/003   BCPL                     COMMENTS        P              S1153 UNSP VLO FSNAME=BCPL.COMMENTS                             
            5.0T3  1147  BCPL.COMMENTS.P.003                1 LINE     66    1 PAGE UM   UNSP                DEC. 08, 1979  20:00:45
            5.0T9     3                       
0          A BRIEF DESCRIPTION OF THE CHANGES BETWEEN UNE AND UM (MOSTLY FILENAMES).
1                                                                                               MON AUG 05/96   18:37:45   Page  675
0  Num   R       Component Name         Subname     Type G Seq ID 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/004   BCPL                     INSTALL         C              S1153 UNSP VLO FSNAME=BCPL.INSTALL                              
            5.0T3  1148  BCPL.INSTALL.C.004                 1 LINE     94    3 PAGE UM   UNSP                DEC. 08, 1979  20:00:49
            5.0T9     4                       
0          THE COMMANDS USED TO INSTALL BCPL AT UM.
01032/005   BCPL                     COMPILER        S   O          S1431 4.3T2 VLO FSNAME=BCPL.COMPILER.S.005(1)                337
            5.0T3  1149  BCPL.COMPILER.S.005                1 LINE    117   48 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:42
            5.0T9     5                       
0          CONTAINS ALL THE COMPILER MODULES (WRITTEN IN BCPL), AND THEIR
           ASSOCIATED HEADER FILES, AS A 'PDS' WHERE LINES 1-99 CONTAIN
           THE MODULE NAME, AND THE CORRESPONDING LINE NUMBER RANGE FOR THE SOURCE.
            
           TO COMPILE, THE HEADER FILES MUST BE EXTRACTED INTO REAL MTS FILES,
           IN ORDER THAT THE 'GET' COMMANDS WILL WORK.
            
0          Referenced by comments of: 1032/14 
01032/006   BCPL                     COMPILER        OE  O          UNSP:BCPL.COMPILER                                              
            5.0T3  1150  BCPL.COMPILER.OE.006               1 LINE   9496   20 PAGE UNE  HEAL      UNSP      JULY 03, 1981  20:47:47
            5.0T9     6  UNSP:BCPL.COMPILER   
0          OBJECT OF THE COMPILER - $CONTINUES WITH USNP:BCPL.LIBRARY (1032/7).
01032/007   BCPL                     LIBRARY         S   O          S1431 4.3T2 VLO FSNAME=BCPL.LIBRARY.S.007(1)                 339
            5.0T3  1151  BCPL.LIBRARY.S.007                 1 LINE    124   48 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:02
            5.0T9     7                       
0          SOURCE OF LIBRARY AS A 'PDS'. WRITTEN IN BCPL.
0          Referenced by comments of: 1032/6, 1032/8, 1032/10, 1032/11 
01032/008   BCPL                     LIBRARY         UC  O          S1153 UNSP VLO FSNAME=BCPL.BCPLSYS                              
            5.0T3  1152  BCPL.LIBRARY.UC.008                1 LINE     62    1 PAGE UM   UNSP                DEC. 08, 1979  20:00:42
            5.0T9     8                       
0          AN UPDATE TO SECTION BCPLSYS IN THE LIBRARY SOURCE (1032/7).  USES GPSECT IN THE
           RESIDENT SYSTEM TO GET AROUND PROTECTION-INDUCED CHANGES IN SCANSTOR (ALSO IN 
           THE RESIDENT SYSTEM).
0          Referenced by comments of: 1032/11 
01032/009   BCPL                     LIBRARY         S   O          UNSP:BCPL.LIBHDR                                                
            5.0T3  1153  BCPL.LIBRARY.S.009                 1 LINE     57    2 PAGE UNE  HEAL      UNSP      JULY 03, 1981  20:47:51
            5.0T9     9  UNSP:BCPL.LIBHDR     
0          HEADER FILE FOR LIBRARY, WRITTEN IN BCPL.
0          Referenced by comments of: 1032/11 
1                                                                                               MON AUG 05/96   18:37:45   Page  676
0  Num   R       Component Name         Subname     Type G Seq ID 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/010   BCPL                     LIBRARY         S   O          UNSP:BCPL.STREAMH                                               
            5.0T3  1154  BCPL.LIBRARY.S.010                 1 LINE     90    2 PAGE UNE  HEAL      UNSP      JULY 03, 1981  20:47:52
            5.0T9    10  UNSP:BCPL.STREAMH    
0          HEADER GIVING INTERNAL STRUCTURE OF BCPL STREAMS - NEEDED BY UNSP:BCPL.LIBRARY
           (1032/7) AND ADVANCED USERS ONLY.  WRITTEN IN BCPL.
0          Referenced by comments of: 1032/11 
01032/011   BCPL                     LIBRARY         OL  O          UNSP:BCPL.LIBRARY                                               
            5.0T3  1155  BCPL.LIBRARY.OL.011                1 LINE  14056   12 PAGE UNE  HEAL      UNSP      JULY 03, 1981  20:47:54
            5.0T9    11  UNSP:BCPL.LIBRARY    
0          BCPL LIBRARY, THE LINKEDITED OBJECT OF (1032/7), (1032/8), (1032/9), AND (1032/10).
           CONTAINS SECTIONS BCPLSYS, BCPLIO, BCPLRLIB, BCPLBLIB, BCPLFLIB, AND BCPLMISC.
           ALSO CONTAINS BCPLPM AND GLOBUSE, WHICH ARE USED BY THE DEBUGGER (1032/12),
           BUT FOR WHICH WE DID NOT RECEIVE SOURCE FROM UNE. 
0          Referenced by comments of: 1032/13, 1032/17, 1032/19, 1032/21 
01032/012   BCPL                     DEBUGGER        S   O          S1431 4.3T2 VLO FSNAME=BCPL.DEBUGGER.S.012(1)                344
            5.0T3  1156  BCPL.DEBUGGER.S.012                1 LINE     91   19 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:51
            5.0T9    12                       
0          SOURCE OF DEBUGGING SYSTEM, WRITTEN IN BCPL.
0          Referenced by comments of: 1032/1, 1032/11, 1032/14, 1032/21 
01032/013   BCPL                     DEBUGGER        OE  O          UNSP:BCPL.DEBUG                                                 
            5.0T3  1157  BCPL.DEBUGGER.OE.013               1 LINE  14328    9 PAGE UNE  HEAL      UNSP      JULY 03, 1981  20:47:57
            5.0T9    13  UNSP:BCPL.DEBUG      
0          WORKING OBJECT OF THE DEBUGGER. $CONTINUES WITH UNSP:BCPL.LIBRARY (1032/11).
01032/014   BCPL                     BCPLOPTS        S   O          S1431 4.3T2 VLO FSNAME=BCPL.BCPLOPTS.S.014(1)                346
            5.0T3  1158  BCPL.BCPLOPTS.S.014                1 LINE     92    7 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:20
            5.0T9    14                       
0          SET OF ROUTINES BORROWED FROM LEXICAL ANALYSER IN THE COMPILER (1032/5)
           FOR READING USER OPTIONS IN PROGRAMS.  WRITTEN IN BCPL. USED BY THE 
           DEBUGGER (1032/12).
01032/015   BCPL                     MACROS          SM  O          S1431 4.3T2 VLO FSNAME=BCPL.MACROS.SM.015(1)                 347
            5.0T3  1159  BCPL.MACROS.SM.015                 1 LINE     80   13 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:00
            5.0T9    15                       
0          MACRO LIBRARY FOR USE IN ASSEMBLING THE ASSEMBLER PARTS OF THE
           LIBRARY - I. E., BCPLSYS, BCPLFLIB, BCPLRLIB.
01032/016   BCPL                     TIDY            S   O          S1431 4.3T2 VLO FSNAME=BCPL.TIDY.S.016(1)                    348
            5.0T3  1160  BCPL.TIDY.S.016                    1 LINE    100   21 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:12
            5.0T9    16                       
0          SOURCE OF SOURCE RE-FORMATTER PROGRAM, TIDY.  WRITTEN IN BCPL.
1                                                                                               MON AUG 05/96   18:37:45   Page  677
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1032/1, 1032/17, 1032/21 
01032/017   BCPL                     TIDY            OE  O          UNSP:BCPL.TIDY                                                  
            5.0T3  1161  BCPL.TIDY.OE.017                   1 LINE   6640    8 PAGE UNE  HEAL      UNSP      JULY 03, 1981  20:48:01
            5.0T9    17  UNSP:BCPL.TIDY       
0          OBJECT OF (1032/16).  $CONTINUES WITH UNSP:BCPL.LIBRARY (1032/11).
01032/018   BCPL                     XREFFER         S   O          S1431 4.3T2 VLO FSNAME=BCPL.XREFFER.S.018(1)                 350
            5.0T3  1162  BCPL.XREFFER.S.018                 1 LINE    101   16 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:17
            5.0T9    18                       
0          SOURCE FOR THE BCPL CROSS-REFERENCER.  WRITTEN IN BCPL.
0          Referenced by comments of: 1032/1, 1032/21 
01032/019   BCPL                     XREFFER         OE  O          UNSP:BCPL.XREF                                                  
            5.0T3  1163  BCPL.XREFFER.OE.019                1 LINE   6488    6 PAGE UNE  HEAL      UNSP      JULY 03, 1981  20:48:04
            5.0T9    19  UNSP:BCPL.XREF       
0          OBJECT OF THE BCPL CROSS-REFERENCER.  $CONTINUES WITH UNCP:BCPL.LIBRARY
           (1032/11).
01032/020   BCPL                     MANUAL          P   O          S1431 4.3T2 VLO FSNAME=BCPL.MANUAL.P.020(1)                  352
            5.0T3  1164  BCPL.MANUAL.P.020                  1 LINE     74   25 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:55
            5.0T9    20                       
0          THIS IS A PRINT FILE CONTAINING THE BCPL MANUAL WRITTEN AT CAMBRIDGE,
           WHICH DESCRIBES BCPL WITH OS DEPENDENCIES.
01032/021   BCPL                     USERGUIDE       WX  O          S1431 4.3T2 VLO FSNAME=BCPL.USERGUIDE.WX.021(1)              353
            5.0T3  1165  BCPL.USERGUIDE.WX.021              1 LINE    111   12 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:49
            5.0T9    21                       
0          TEXTFORM SOURCE OF A MANUAL ENTITLED 'HOW TO USE BCPL IN MTS.'  THIS
           MANUAL IS A GUIDE TO THE USE OF BCPL IN MTS, AND MTS-SPECIFIC PARTS
           OF THE LIBRARY (1032/11).  IT ALSO CONTAINS DOCUMENTATION FOR THE
           DEBUGGER (1032/12), XREF (1032/18), AND TIDY PROGRAMS (1032/16).
            
           THE TEXTFORM LAYOUT USED TO PRODUCE THIS AT UNE WAS NOT DISTRIBUTED,
           SO A PRINT FILE (1032/22) IS ALSO BEING INCLUDED.
0          Referenced by comments of: 1032/22 
01032/022   BCPL                     USERGUIDE       P   O          UNSP:BCPL.W                                                     
            5.0T3  1166  BCPL.USERGUIDE.P.022               1 LINE     80   38 PAGE UNE  HEAL      UNSP      JULY 03, 1981  20:48:08
            5.0T9    22                       
0          A PRINT FILE FOR (1032/21).
0          Referenced by comments of: 1032/21 
1                                                                                               MON AUG 05/96   18:37:45   Page  678
0  Num   R       Component Name         Subname     Type G Seq ID 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/001   COURSEWRITER                                          # (NOT INSTALLED AT UM)                                           
            D4T3    458  COURSEWRITER.COURSES.M.001         1 LINE     74    1 PAGE UBC  OSTERLIN            JUNE 04, 1976  10:38:04
0          THE MTS IMPLEMENTATION OF COURSEWRITER WAS NOT DONE BY THE UBC COMPUTING
           CENTRE, BUT BY BILL WEBB OF THE UBC DEPARTMENT OF ANIMAL RESOURCE ECOLOGY.
           THERE IS CURRENTLY NOT A WORKING VERSION OF COURSEWRITER INSTALLED AT MICHIGAN.
01034/001   MACEDIT                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL
           PURPOSE ASSEMBLER UTILITY PROGRAM.
01035/001   LANGUAGE                                              # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE
           LANGUAGES DATA BASE FOR ALL LANGUAGES AVAILABLE AT UBC.
01036/001A  CONTEXT-DIRECTED UPDATE  OBJECT          OE  G          *CDUPDATE                                                       
            5.0T3  1167  CONTEXT-DIRECTED_UPDATE.O.OE.001   1 LINE  32767   21 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:11
            5.0T9    23  *CDUPDATE            
0          ************************************************************************
           D5.0 version:
            
           This is a complete, self-contained object for CDUPDATE version 2.2. 
           This version contains various changes, including a change in the 
           definition of /EDIT.  The change can be installed in three stages,
           obtained by setting the compiler option VERSION to 2.1, 2.15, or 2.2
           This object has VERSION=2.15 as the default, which means that
           /EDITs behave as in version 1.0, which is incompatible with versions 2.0
           and 2.1. A warning message is issued for those /EDITs that may be processed
           differently.  The next distribution of CDUPDATE will have VERSION=2.2.
            
           To change the default version, modify the constant Default_Version at
           line 822 in (1036/2) to the value 2000 for version 2.0, to 2100 for version 2.1,
           2150 for version 2.15, or 2200 for version 2.2.  In version 2.1, /EDITs
           behave as in version 2.0, but will give a warning message for any that will
           be incompatible for VERSION>=2.15.
            
           Component (1036/7) contains a note describing the changes since version 2.0.
           (1036/4) contains a revised writeup. 
            
           The complete CDUPDATE program consists of the object for the 
           PLUS program, the parser tables generated by ANALYZER, together with
           the parser and PLUS:OBJLIB. 
           It can be produced with *LINKEDIT via the following commands:
            
              INCLUDE NEW:PLUS.OBJLIB ONLY PLUSMAIN
              INCLUDE object-for-CDUPDATE
              INCLUDE object-for-tables
              INCLUDE@SLI PLUS:PARSER.OL (or wherever parser lives)
              INCLUDE@SLI NEW:PLUS.OBJLIB
1                                                                                               MON AUG 05/96   18:37:45   Page  679
0  Num   R       Component Name         Subname     Type G Seq ID 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             (COMBINE) if desired
              RENAME PLUSMAIN CDUPDATE
              PUNCH CDUPDATE 
            
           (I would prefer that you do not purge external symbols from the object module,
           although it may be combined.  The external symbols will appear in the error 
           message resulting from bugs in CDUPDATE, and are very useful to me in 
           interpreting problems.)
            
           Note that the distributed object has PLUS run-time checking enabled
           (for parser and object library as well as CDUPDATE).
            
           A further 10-15% reduction in CPU use can be obtained by compiling
           everything with %Check:=False specified. 
            
           For the present, however, I would recommend leaving 
           the checking enabled. 
           ******************************************************************************
0          Referenced by comments of: 308/21, 746/1, 813/7, 813/16, 813/17, 813/21, 813/22, 813/23, 813/24, 813/25, 813/26,
                 813/27, 813/30, 813/31, 813/32, 813/33, 813/35, 813/36, 813/37, 813/38, 813/39, 813/40, 813/41, 813/42,
                 813/43, 1054/2, 4200/1 
01036/002A  CONTEXT-DIRECTED UPDATE  SOURCE          SQ  G          W067:CDUPDATE.S                                                 
            5.0T3  1168  CONTEXT-DIRECTED_UPDATE.S.SQ.002   1 LINE     86   79 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:13
            5.0T9    24                       
0          PLUS source for CDUPDATE program. 
            
           This includes declarations generated by the analyzer for the grammar. 
           If the grammar is changed, the appropriate lines of this file must be 
           changed also. 
            
           Compiling this program requires the parser library -  specify
              0=PLUS:PARSER.SQL+NEW:PLUS.SOURCEL (comps. (1076/9) and (1042/4) or
                                                  local equivalent)
0          Referenced by comments of: 737/15, 1036/1 
01036/003C  CONTEXT-DIRECTED UPDATE  GRAMMAR         S   G          W067:CDUPDATE.G                                                 
            5.0T3  1169  CONTEXT-DIRECTED_UPDATE.G.S.003    1 LINE     91    5 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:19
            5.0T9    25                       
0          Grammar, input to UBC analyzer, defining CDUPDATE commands etc.
            
01036/004C  CONTEXT-DIRECTED UPDATE  WRITEUP         WF             W067:CDUPDATE.WF                                                
            5.0T3  1170  CONTEXT-DIRECTED_UPDATE.W.WF.004   1 LINE    105   16 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:20
            5.0T9    26                       
0          Revised writeup describing CDUPDATE.  It describes the changes provided 
           by version 2.2, and also has improved descriptions of the /BUFFER 
           command (which wasn't too well understood in the last version), and some
           examples.
1                                                                                               MON AUG 05/96   18:37:45   Page  680
0  Num   R       Component Name         Subname     Type G Seq ID 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           
           Note that it is in *FORMAT (308) this time.  It uses JON:MACLIB (here referred to
           by its UM name of COPY:JONMACLIBFMT (308/18).
0          Referenced by comments of: 1036/1 
01036/005A  CONTEXT-DIRECTED UPDATE  WRITEUP         PF             W067:CDUPDATE.P                                                 
            5.0T3  1171  CONTEXT-DIRECTED_UPDATE.W.PF.005   1 LINE     69   20 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:22
            5.0T9    27                       
0          $COPY-able writeup for CDUPDATE, 25 pages.
01036/006C  CONTEXT-DIRECTED UPDATE  CDUPCONV        SS  O          W067:CDUPCONV.S                                                 
            5.0T3  1172  CONTEXT-DIRECTED_UPDATE.C.SS.006   1 LINE    107    5 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:24
            5.0T9    28                       
0          Spitbol GLP that can be used to convert old-style CDUPDATE (version 1.0) files
           to new ones (version 2.0).
0          Referenced by comments of: 1036/7 
01036/007C  CONTEXT-DIRECTED UPDATE  CDUPCONV        OE  O          NEW:CDUPCONV                                                    
            5.0T3  1173  CONTEXT-DIRECTED_UPDATE.C.OE.007   1 LINE  13584    7 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:25
            5.0T9    29                       
0          Object for (1036/6).
0          Referenced by comments of: 1036/1 
01036/008C  CONTEXT-DIRECTED UPDATE  MEMO            WF             W067:CDUP.MEMO.WF                                               
            5.0T3  1174  CONTEXT-DIRECTED_UPDATE.M.WF.008   1 LINE     69    3 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:25
            5.0T9    30                       
0          *FORMAT (308) source for a UBC memo to staff describing the differences between CDUPDATE
           version 2.2 and version 2.0.
            
           Requires COPY:JONMACLIB (308/18).
0          Referenced by comments of: 1036/9 
01036/009C  CONTEXT-DIRECTED UPDATE  MEMO            PF             W067:CDUP.MEMO.P                                                
            5.0T3  1175  CONTEXT-DIRECTED_UPDATE.M.PF.009   1 LINE     69    3 PAGE UBC  BALLARD   SHERRY    JULY 03, 1981  20:48:26
            5.0T9    31                       
0          Printer-ready output from (1036/8).
01037/001   FORTRAN MESSAGE ROUTINE                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A
           FORTRAN-CALLABLE MESSAGE ROUTINE.
1                                                                                               MON AUG 05/96   18:37:45   Page  681
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01038/001A  REPORT GENERATOR         DESCRIP         SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.DESCRIP.SA.001         
            5.0T3  1176  REPORT_GENERATOR.DESCRIP.SA.001    1 LINE     81   16 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:24:16
            5.0T9    32                       
0          All RG source programs copy the RG copy section (1038/10). All but (1038/7)
           assemble it as a dsect.
            
           Phase 1 of RG which performs the following functions:
             1.  data initialization , parameter scanning
             2.  process ITEM , ENTRY , and FIELD commands
            
           See the internal documentation manual for older changes to various parts of
           the actual code of this and other source subcomponents. Component (1038/12)
           is unchanged since last saved Feb 14, 1977.
01038/002A  REPORT GENERATOR         COMPILE         SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.COMPILE.SA.002         
            5.0T3  1177  REPORT_GENERATOR.COMPILE.SA.002    1 LINE     79   16 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:24:22
            5.0T9    33                       
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.
01038/003A  REPORT GENERATOR         ACTION          SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.ACTION.SA.003          
            5.0T3  1178  REPORT_GENERATOR.ACTION.SA.003     1 LINE     78   17 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:24:34
            5.0T9    34                       
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.
01038/004A  REPORT GENERATOR         PRINT           SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.PRINT.SA.004           
            5.0T3  1179  REPORT_GENERATOR.PRINT.SA.004      1 LINE     74   13 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:24:39
            5.0T9    35                       
0          Phase 4 of RG which performs the following functions:
             PRINT prints the required reports. PRINT , TITLE , CALL , TABLE all
               are handled here.
01038/005A  REPORT GENERATOR         SUBS            SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.SUBS.SA.005            
            5.0T3  1180  REPORT_GENERATOR.SUBS.SA.005       1 LINE     72    5 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:24:44
            5.0T9    36                       
0          External subroutines to handle overflow and capitalization for PRINT.
           Made external because of base register problems and use of registers.
01038/006A  REPORT GENERATOR         SUBROUTINES     SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.SUBROUTI.SA.006        
            5.0T3  1181  REPORT_GENERATOR.SUBROUTI.SA.006   1 LINE     72   21 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:24:54
            5.0T9    37                       
0          Subroutines used by RG - all called by " BALR LINK,LINK "
             SCAN    -  get another field
             SSCAN   -   "     "      "   ( special field)
             GNUMBER -  get a numeric field
1                                                                                               MON AUG 05/96   18:37:45   Page  682
0  Num   R       Component Name         Subname     Type G Seq ID 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            GFIELD  -  get a field
             FNAME   -  insure field is a legal field
             NUM     -  convert a field to numeric
01038/007A  REPORT GENERATOR         DATA            SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.DATA.SA.007            
            5.0T3  1182  REPORT_GENERATOR.DATA.SA.007       1 LINE     72    1 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:24:47
            5.0T9    38                       
0          Generates the PSECT as a CSECT to define all required constants.
           Copies COPYSEC (1038/10), as do all other RG source routines.
0          Referenced by comments of: 1038/1, 1038/10 
01038/008A  REPORT GENERATOR         OUTPUT          SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.OUTPUT.SA.008          
            5.0T3  1183  REPORT_GENERATOR.OUTPUT.SA.008     1 LINE     72    5 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:24:51
            5.0T9    39                       
0          Routine to output error comments (mark) and output formatting
           to SPRINT and echoing of input lines if requested.
            
           This subcomponent must be assembled with *ASMG (066) or fixed to
           work with *ASMH (737).
01038/009C  REPORT GENERATOR         INSERT_SORT     SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.INSERT_S.SA.009        
            5.0T3  1184  REPORT_GENERATOR.INSERT_S.SA.009   1 LINE     69   20 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:25:00
            5.0T9    40                       
0          Insertion sort added for greater efficiency.
            Acquires sorting tree space in pieces independently of RG's space
            management and statistics; hence memory usage reported by RG is
            often much less than before.
            This sort is general-purpose and can be used outside RG.  The 
            initial source comment serves as documentation.
            
           ******************************************************************
           D5.0 version:
            
           This new subcomponent gets alignment errors when assembled, but it
           seems to work.
           ******************************************************************
01038/010A  REPORT GENERATOR         COPYSEC         SA  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.COPYSEC.SA.010         
            5.0T3  1185  REPORT_GENERATOR.COPYSEC.SA.010    1 LINE     72   10 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:25:40
            5.0T9    41                       
0          Copy section copied by all RG source programs. All but DATA (1038/7) assemble
           it as a DSECT.
0          Referenced by comments of: 1038/1, 1038/7 
1                                                                                               MON AUG 05/96   18:37:45   Page  683
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01038/011A  REPORT GENERATOR         MACLIB          SM  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.MACLIB.SM.011          
            5.0T3  1186  REPORT_GENERATOR.MACLIB.SM.011     1 LINE     72    8 PAGE UBC  BUCKLAND  UNSP      NOV. 15, 1978  14:25:50
            5.0T9    42                       
0          Macro library used by all RG source routines.
01038/012A  REPORT GENERATOR         INTERNAL DOC    WF  O          S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.INTERNAL.WF.012        
            5.0T3  1187  REPORT_GENERATOR.INTERNAL.WF.012   1 LINE     81    8 PAGE UBC  BUCKLAND  UNSP      FEB. 14, 1977  08:58:39
            5.0T9    43                       
0          Requires "NO SUPER" and "NO KEYPUNCH" control FORMAT control cards.  Uses
           JONMACLIB (308/18).
            
           ************************************************************************
           D5.0 version:
            
           This subcomponent is unchanged since last saved Feb 14, 1977.
           ************************************************************************
0          Referenced by comments of: 1038/1 
01038/013   REPORT GENERATOR         USER WRITEUP    WF             S1319 D4.2T1 VLO FSNAME=REPORT_GENERATOR.USER_WRI.WF.015(1)  691
            5.0T3  1188  REPORT_GENERATOR.USER_WRI.WF.013   1 LINE    101   43 PAGE UBC  BUCKLAND  UNSP      OCT. 01, 1978  16:49:14
            5.0T9    44                       
01038/014A  REPORT GENERATOR         OBJECT          OC  O          UNSP:RG                                                         
            5.0T3  1189  REPORT_GENERATOR.OBJECT.OC.014     1 LINE   7298   11 PAGE UBC  BUCKLAND  UNSP      JULY 03, 1981  20:54:19
            5.0T9    45  UNSP:RG              
0          -----------------
           The following items are the major changes from previous versions:
             - *COMMENT command allowed in master file descriptions;
             - Output record lengths of greater than 132 characters supported;
             - "PRINT ALL FIELDS WITH FIELDNAME" added for debugging purposes.
               This prints each fieldname and its contents;
             - "REST ARE SAME" phrase allowed in the DECODE command;
             - New parameters added:
                 . NOCONTROL which does not use carriage control on output,
                 . SIZE=N to set the number of pages of VM to use;
             - Macros may be terminate by "$ENDFILE" and may be nested up to
               five levels;
             - "WHEN FIELDNAME CHANGES" phrase supported in the PRINT command;
             - TABLE command now supports titles;
           -------------78-08-24--------
           Several bugs fixed.
           -------------78-12-01--------
             (See also UBC's November/78 Newsletter)
             - Several more bugs fixed;
             - No more arithmetic operators (+-*/) in field names;
             - No more field starting columns > 256:
             - String may now terminate fields, e.g.
                 FIELD FIRST IS TERMINATED BY 'DIVIDER'
             - 'ORDER PERMUTED' now treats any initial alphabetic character
               including lowercase as starting new word;
1                                                                                               MON AUG 05/96   18:37:45   Page  684
0  Num   R       Component Name         Subname     Type G Seq ID 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 more null literals in 'WHEN' specifications;
             - New date "SYSCHARDATE" in 'MMM DD, 19YY' form;
             - 'PRINT ALL FIELDS WITH OVERFLOW' now allowed;
             - Capitalization now recognizes all standard sentence ends.
           -----------------
01038/015A  REPORT GENERATOR         TEST PROGRAMS   C              S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.TEST_PRO.C.015         
            5.0T3  1190  REPORT_GENERATOR.TEST_PRO.C.015    1 LINE    349   41 PAGE UBC  BUCKLAND  UNSP      JUNE 12, 1979  14:48:01
            5.0T9    46                       
0          A series of test programs to test out your version of RG under CCID=RG1.
           $SOURCE the file to perform the tests.
01038/016   REPORT GENERATOR         UM EXAMPLE      C              UNSP:RG.EXAMPLE                                                 
            5.0T3  1191  REPORT_GENERATOR.UM_EXAMP.C.016    1 LINE    128    3 PAGE UBC  BUCKLAND  UNSP      JULY 03, 1981  20:54:24
            5.0T9    47  UNSP:RG.EXAMPLE      
0          A file that can be $SOURCEd to to produce a sample RG run.
01039/001   READPAGE                                              # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A DISK
           UTILITY TO READ ANY PAGE ON ANY VOLUME ANY NUMBER OF TIMES.
01040/001   DISK                                                  # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN UMMPS
           JOB TO LOCK A PUBLIC VOLUME SO THAT IT CAN BE MOVED TO ANOTHER DRIVER, OR
           POSSIBLY ANOTHER CONTROL UNIT.
01041/001C  RESOURCE MANAGER         DSP LIBRARY     OL  O          TMTS:DSPLIBRARY                                                 
            5.0T3  1192  RESOURCE_MANAGER.DSP_LIBR.OL.001   1 LINE   5438   21 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:24
            5.0T9    48  TMTS:DSPLIBRARY      
0          Object library containing DSPs and DSP support routines. This library
           contains: The DSP PRV initialization routines (1041/2); the DSP expanded form
           message table (1041/3); the DSP interface (1041/4); the DSP service routines
           (1041/5); the Intertask line DSP (1041/6); the intertask node DSP (1041/7);
           and the DSP table (1041/8). The Subtasking Monitor (1058) is required to run
           DSPs.
0          Referenced by comments of: 1051/1, 1051/17, 1051/19, 1051/21 
01041/002C  RESOURCE MANAGER         DSP PRV INIT    SA  O          TMTS:DSPPRV(1000)                                               
            5.0T3  1193  RESOURCE_MANAGER.DSP_PRV.SA.002    1 LINE     79    3 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:26
            5.0T9    49                       
0          Pseudo-register initialization for the DSP portion of the transfer vector.
           Also contains LCS and LCSPR tables for DSP-related routines. Assemble with
           COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and the DSP macros
           (1041/9).
1                                                                                               MON AUG 05/96   18:37:45   Page  685
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1041/1 
01041/003C  RESOURCE MANAGER         DSP EFMS        SA  O          TMTS:DSPEFMS(1000)                                              
            5.0T3  1194  RESOURCE_MANAGER.DSP_EFMS.SA.003   1 LINE     67    3 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:27
            5.0T9    50                       
0          DSP expanded-form messages. Assemble with COPY:MNTR.MACROS (1058/19) and
           COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 1041/1 
01041/004C  RESOURCE MANAGER         DSP INTERFACE   SA  O          TMTS:DSPINTERFACE(1000)                                         
            5.0T3  1195  RESOURCE_MANAGER.DSP_INTE.SA.004   1 LINE     79   18 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:28
            5.0T9    51                       
0          DSP interface routine. Assemble with COPY:MNTR.MACROS (1058/19),
           COPY:CC.MACROS (1054/3), and the DSP macros (1041/9).
0          Referenced by comments of: 1041/1 
01041/005C  RESOURCE MANAGER         DSP SRVC RTNS   SA  O          TMTS:DSPSERV(1000)                                              
            5.0T3  1196  RESOURCE_MANAGER.DSP_SRVC.SA.005   1 LINE     70   10 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:34
            5.0T9    52                       
0          DSP service routines. Assemble with COPY:MNTR.MACROS (1058/19),
           COPY:CC.MACROS (1054/3), COPY:FILE.MACROS (482/45), and the DSP macros
           (1041/9).
0          Referenced by comments of: 1041/1 
01041/006C  RESOURCE MANAGER         ITSK LINE DSP   SA  O          TMTS:DSPITLN(1000)                                              
            5.0T3  1197  RESOURCE_MANAGER.ITSK_LIN.SA.006   1 LINE     78   13 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:35
            5.0T9    53                       
0          The intertask line DSP. Assemble with COPY:CC.MACROS (1054/3),
           COPY:MNTR.MACROS (1058/19), and the DSP macros (1041/9).
0          Referenced by comments of: 1041/1 
01041/007C  RESOURCE MANAGER         ITSK NODE DSP   SA  O          TMTS:DSPITSK(1000)                                              
            5.0T3  1198  RESOURCE_MANAGER.ITSK_NOD.SA.007   1 LINE     78   14 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:38
            5.0T9    54                       
0          The intertask node DSP. Assemble with COPY:CC.MACROS (1054/3),
           COPY:MNTR.MACROS (1058/19), and the DSP macros (1041/9).
0          Referenced by comments of: 1041/1 
01041/008C  RESOURCE MANAGER         DSP TABLE       SA  O          TMTS:DSPTABLE(1000)                                             
            5.0T3  1199  RESOURCE_MANAGER.DSP_TABL.SA.008   1 LINE     72    1 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:41
            5.0T9    55                       
0          The DSP table. Contains entries only for the intertask line and node DSPs.
           Assemble with the DSP macros (1041/9).
1                                                                                               MON AUG 05/96   18:37:45   Page  686
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1041/1 
01041/009C  RESOURCE MANAGER         DSP MACROS      SM  O          DMGR:DSP.MACROS                                                 
            5.0T3  1200  RESOURCE_MANAGER.DSP_MACR.SM.009   1 LINE     78    8 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:42
            5.0T9    56                       
0          DSP macro library.
0          Referenced by comments of: 1041/2, 1041/4, 1041/5, 1041/6, 1041/7, 1041/8, 1051/5, 1051/9, 1051/16, 1051/20 
01041/010C  RESOURCE MANAGER         MSG EXPANSION   SA  G          DMGR:MNTRMMSG(1000)                                             
            5.0T3  1201  RESOURCE_MANAGER.MSG_EXPA.SA.010   1 LINE     68   13 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:44
            5.0T9    57  DMGR:MNTRMMSG        
0          This is the message expand routine, used to expand canonical form messages.
           Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 1051/1, 1051/17, 1051/21, 1079/1 
01041/011C  RESOURCE MANAGER         MSG EXPANSION   OC  O          DMGR:MNTRMMSG(1,999)                                            
            5.0T3  1202  RESOURCE_MANAGER.MSG_EXPA.OC.011   1 LINE     80    6 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:47
            5.0T9    58                       
0          Object for 1041/10.
01041/012C  RESOURCE MANAGER         RM ROUTINES     SA  O          DMGR:MNTRMETC(1000)                                             
            5.0T3  1203  RESOURCE_MANAGER.RM_ROUTI.SA.012   1 LINE     70    4 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:49
            5.0T9    59                       
0          Resource Manager service routines:  RMGTFILE, RMFRFILE, RMMESSG, RMMSGOUT.
           Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and
           COPY:FILE.MACROS (482/45).
01041/013C  RESOURCE MANAGER         RM ROUTINES     OC  O          DMGR:MNTRMETC(1,999)                                            
            5.0T3  1204  RESOURCE_MANAGER.RM_ROUTI.OC.013   1 LINE     80    3 PAGE UBC  BOWLER    HELFFRICH JULY 03, 1981  20:54:50
            5.0T9    60                       
0          Object for 1041/12.
01042/001A  PLUS_470                 COMPILER        OE  O          NEW:PLUS                                                        
            5.0T3  1205  PLUS_470.COMPILER.OE.001           1 LINE  32767   85 PAGE UBC  BALLARD   HANSEN    JULY 03, 1981  20:54:50
            5.0T9    61  NEW:PLUS             
0           *******************************************************************
            *                         P L U S                                 *
            *           COPYRIGHT 1979 ALAN BALLARD AND PAUL WHALEY           *
            *******************************************************************
            
           There are no restrictions on the use of PLUS by installations
           receiving distributions of MTS, but PLUS may not be redistributed
           to installations outside of the MTS community without permission
           from Alan Ballard and Paul Whaley at UBC. 
            
           This is the current, complete, linkeditted version of the compiler. 
1                                                                                               MON AUG 05/96   18:37:45   Page  687
0  Num   R       Component Name         Subname     Type G Seq ID 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 refers to files ETC:PLUSMESSAGES (1042/3), NEW:PLUS.SOURCEL (1042/4) and
           ETC:PLUSLOG (the PLUS compiler statistics file, which is not distributed).
            
           See installation notes (1042/66) for details. 
            
            
           ******************************************************************************
           D5.0 version:
            
           Contains changes to STRING.S (1042/11) and STREAM (1042/36), which are not
           found in the source or the unlinkeditted object (1042/2).
           ******************************************************************************
0          Referenced by comments of: 498/116, 810/9, 810/10, 810/11, 810/12, 811/1, 811/2, 811/5, 811/7, 811/9, 821/1, 821/2,
                 1000/37, 1042/2 
01042/002   PLUS_470                 COMPILER        OC  O          S1431 4.3T2 VLO FSNAME=PLUS_470.COMPILER.OC.002(1)           357
            5.0T3  1206  PLUS_470.COMPILER.OC.002           1 LINE  13440  109 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:00:32
            5.0T9    62                       
0          This is the current, complete unlinkeditted version of the compiler.
           It is identical to (1042/1), except that it references PLUS:PLUSMESSAGE>
           rather than ETC:PLUSMESSAGES (1042/3), PLUS:SOURCELIB instead of
           NEW:PLUS.SOURCEL (1042/4), and PLUS:PLUSLOG instead of ETC:PLUSLOG
           (the PLUS compiler statistics file, which is not distributed).
            
           See installation notes (1042/66)  for details. 
0          Referenced by comments of: 1042/1 
01042/003   PLUS_470                 MESSAGES        M              ETC:PLUSMESSAGES                                                
            5.0T3  1207  PLUS_470.MESSAGES.M.003            1 LINE    113    6 PAGE UBC  BALLARD   HANSEN    JULY 03, 1981  20:54:59
            5.0T9    63  ETC:PLUSMESSAGES     
0          Message file accessed by the compiler.
           Install as ccid:PLUSMESSAGES for linkeditted version of compiler, 
           and as ccid:PLUSMESSAGE> for the test version of the compiler, if used. 
            
           See installation notes (1042/66) for details. 
            
0          Referenced by comments of: 1042/1, 1042/2 
01042/004A  PLUS_470                 SOURCELIB       SQ  O          NEW:PLUS.SOURCEL                                                
            5.0T3  1208  PLUS_470.SOURCELIB.SQ.004          1 LINE     76   27 PAGE UBC  BALLARD   HANSEN    JULY 03, 1981  20:55:01
            5.0T9    64  NEW:PLUS.SOURCEL     
0          This is the version of the source library assumed if unit 0 is not specified
           when running the compiler.
            
           The library contains a number of useful declarations. Basically, the contents
           are: a) Some useful types such as Integer, Boolean, etc. b) Definitions of
           some 370/470 machine characteristics, such as the word size, the operation
1                                                                                               MON AUG 05/96   18:37:45   Page  688
0  Num   R       Component Name         Subname     Type G Seq ID 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          codes, etc. c) Declarations for the standard run-time support. d)
           Declarations for the useful routines in PLUS:OBJLIB. e) Declarations for most
           of the MTS system subroutines.
            
           A preliminary writeup (1042/59) is included with this distribution.
0          Referenced by comments of: 811/5, 811/7, 811/9, 817/1, 1036/2, 1042/1, 1042/2, 1042/43, 1042/50, 1042/54, 1042/59,
                 1042/60, 1042/72, 1042/101, 1042/107, 1076/3 
01042/005   PLUS_470                 LISTING         L              S1431 4.3T2 VLO FSNAME=PLUS_470.LISTING.L.005(1)             360
            5.0T3  1209  PLUS_470.LISTING.L.005             1 LINE    155  679 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:00:47
            5.0T9    65                       
0          Complete source listing for current version of compiler.
           $COPY to printer with PAGES=800. 
01042/006   PLUS_470                 SOURCE          S   O          S1431 4.3T2 VLO FSNAME=PLUS_470.SOURCE.S.006(1)              361
            5.0T3  1210  PLUS_470.SOURCE.S.006              1 LINE     41    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:44
            5.0T9    66                       
0          This is a file containing $CONTINUE WITHS to INCLUDE the entire source for
           the PLUS compiler.
01042/007   PLUS_470                 MAIN            SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.MAIN.S+.007(1)               362
            5.0T3  1211  PLUS_470.MAIN.SQ.007               1 LINE     68    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:47
            5.0T9    67                       
0          Compiler main program and initialization/termination.
01042/008   PLUS_470                 VERSION NUMBER  SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.VERSION_NUMBER.S+.008(1)     363
            5.0T3  1212  PLUS_470.VERSION_NUMBER.SQ.008     1 LINE     68    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:50
            5.0T9    68                       
0          This routine just returns the current compiler version number. It is
           recompiled when the version number in GLOBALLIB (1042/44) is changed.
01042/009   PLUS_470                 TRAP            SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.TRAP.S+.009(1)               364
            5.0T3  1213  PLUS_470.TRAP.SQ.009               1 LINE     81    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:53
            5.0T9    69                       
0          Compiler program interrupt handler.
01042/010   PLUS_470                 TABLE RTNS      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.TABLE_RTNS.S+.010(1)         365
            5.0T3  1214  PLUS_470.TABLE_RTNS.SQ.010         1 LINE     70    9 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:56
            5.0T9    70                       
0          Routines used by compiler to allocate and maintain variable-size
           arrays and tables. 
01042/011   PLUS_470                 STRING          SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.STRING.S+.011(1)             366
            5.0T3  1215  PLUS_470.STRING.SQ.011             1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:59
            5.0T9    71                       
0          Compiler string-table processing routines.
1                                                                                               MON AUG 05/96   18:37:45   Page  689
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1042/1 
01042/012   PLUS_470                 MESSAGE RTNS    SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.MESSAGE_RTNS.S+.012(1)       367
            5.0T3  1216  PLUS_470.MESSAGE_RTNS.SQ.012       1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:02
            5.0T9    72                       
0          Routines which build and print compiler messages.
01042/013   PLUS_470                 CONVERT         SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.CONVERT.S+.013(1)            368
            5.0T3  1217  PLUS_470.CONVERT.SQ.013            1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:05
            5.0T9    73                       
0          Various routines which convert things to character strings, mostly
           for printing in messages. 
01042/014   PLUS_470                 CONST RTNS      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.CONST_RTNS.S+.014(1)         369
            5.0T3  1218  PLUS_470.CONST_RTNS.SQ.014         1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:08
            5.0T9    74                       
0          Constant processing routines.
01042/015   PLUS_470                 I/O RTNS        SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.I/O_RTNS.S+.015(1)           370
            5.0T3  1219  PLUS_470.I/O_RTNS.SQ.015           1 LINE     68    8 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:12
            5.0T9    75                       
0          I/O interfacing routines.
01042/016   PLUS_470                 INCLUDE         SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.INCLUDE.S+.016(1)            371
            5.0T3  1220  PLUS_470.INCLUDE.SQ.016            1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:15
            5.0T9    76                       
0          Routines for processing source libraries, %Include.
01042/017   PLUS_470                 SCANNER         SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.SCANNER.S+.017(1)            372
            5.0T3  1221  PLUS_470.SCANNER.SQ.017            1 LINE     68   12 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:18
            5.0T9    77                       
0          Input scanner.
01042/018   PLUS_470                 PARAGRAPHER     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.PARAGRAPHER.S+.018(1)        373
            5.0T3  1222  PLUS_470.PARAGRAPHER.SQ.018        1 LINE     92    9 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:22
            5.0T9    78                       
0          Source paragrapher.
01042/019   PLUS_470                 PARSER          SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.PARSER.S+.019(1)             374
            5.0T3  1223  PLUS_470.PARSER.SQ.019             1 LINE     68    8 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:25
            5.0T9    79                       
0          Input parser.  This is driven by tables (1042/48) generated 
           by the UBC LALR(1) analyzer (1042/99).
0          Referenced by comments of: 1042/89 
1                                                                                               MON AUG 05/96   18:37:45   Page  690
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/020   PLUS_470                 SYMBOL_TABLE    SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.SYMBOL_TABLE.S+.020(1)       375
            5.0T3  1224  PLUS_470.SYMBOL_TABLE.SQ.020       1 LINE     95    6 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:29
            5.0T9    80                       
0          Symbol table processing routines.
01042/021   PLUS_470                 EXT NAME RTNS   SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.EXT_NAME_RTNS.S+.021(1)      376
            5.0T3  1225  PLUS_470.EXT_NAME_RTNS.SQ.021      1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:32
            5.0T9    81                       
0          Routines which maintain a table of external names for cross-checking
           if two routines/globals result in same ESDname.  Also, used to 
           print out index at end of compilation. 
01042/022   PLUS_470                 EXTERNAL        SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.EXTERNAL.S+.022(1)           377
            5.0T3  1226  PLUS_470.EXTERNAL.SQ.022           1 LINE     68    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:35
            5.0T9    82                       
0          Pass 1 semantics for compilation units (procedures, globals).
01042/023   PLUS_470                 MACROS          SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.MACROS.S+.023(1)             378
            5.0T3  1227  PLUS_470.MACROS.SQ.023             1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:38
            5.0T9    83                       
0          Pass 1 semantics for macro definition and expansion.
01042/024   PLUS_470                 TYPES           SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.TYPES.S+.024(1)              379
            5.0T3  1228  PLUS_470.TYPES.SQ.024              1 LINE     78   21 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:41
            5.0T9    84                       
0          Pass 1 semantics for processing type definitions.
01042/025   PLUS_470                 VARIABLES       SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.VARIABLES.S+.025(1)          380
            5.0T3  1229  PLUS_470.VARIABLES.SQ.025          1 LINE    137    9 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:46
            5.0T9    85                       
0          Pass 1 semantics for processing variables.
01042/026   PLUS_470                 DECLARATIONS    SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.DECLARATIONS.S+.026(1)       381
            5.0T3  1230  PLUS_470.DECLARATIONS.SQ.026       1 LINE     68    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:49
            5.0T9    86                       
0          Pass 1 semantics for processing declarations.
01042/027   PLUS_470                 STATEMENTS      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.STATEMENTS.S+.027(1)         382
            5.0T3  1231  PLUS_470.STATEMENTS.SQ.027         1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:53
            5.0T9    87                       
0          Pass 1 semantics for processing statements.
1                                                                                               MON AUG 05/96   18:37:45   Page  691
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/028   PLUS_470                 EXPRESSIONS     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.EXPRESSIONS.S+.028(1)        383
            5.0T3  1232  PLUS_470.EXPRESSIONS.SQ.028        1 LINE     68   36 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:56
            5.0T9    88                       
0          Pass 1 semantics for processing expressions.
01042/029   PLUS_470                 CONTROL_STRUCT  SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.CONTROL_STRUCT.S+.029(1)     384
            5.0T3  1233  PLUS_470.CONTROL_STRUCT.SQ.029     1 LINE     68    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:02
            5.0T9    89                       
0          Pass 1 semantics for processing control structures.
01042/030   PLUS_470                 TREE            SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.TREE.S+.030(1)               385
            5.0T3  1234  PLUS_470.TREE.SQ.030               1 LINE     68   12 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:06
            5.0T9    90                       
0          Pass 1 routines used to build intermediate code tree.
01042/031   PLUS_470                 ERRORS          SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.ERRORS.S+.031(1)             386
            5.0T3  1235  PLUS_470.ERRORS.SQ.031             1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:09
            5.0T9    91                       
0          Pass 1 error recovery semantics.
01042/032   PLUS_470                 VIRTUAL         SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.VIRTUAL.S+.032(1)            387
            5.0T3  1236  PLUS_470.VIRTUAL.SQ.032            1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:12
            5.0T9    92                       
0          Routines to process "virtual registers".
01042/033   PLUS_470                 STREAM          SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.STREAM.S+.033(1)             388
            5.0T3  1237  PLUS_470.STREAM.SQ.033             1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:15
            5.0T9    93                       
0          Routines for maintaining the "stream code" array.
01042/034   PLUS_470                 TEMPORARIES     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.TEMPORARIES.S+.034(1)        389
            5.0T3  1238  PLUS_470.TEMPORARIES.SQ.034        1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:18
            5.0T9    94                       
0          Temporary manangement routines.
01042/035   PLUS_470                 SDS SYMS        SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.SDS_SYMS.S+.035(1)           390
            5.0T3  1239  PLUS_470.SDS_SYMS.SQ.035           1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:21
            5.0T9    95                       
0          Routines to generate SYM records from symbol and variable table 
           information. 
01042/036   PLUS_470                 STREAM GEN      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.STREAM_GEN.S+.036(1)         391
            5.0T3  1240  PLUS_470.STREAM_GEN.SQ.036         1 LINE     68   40 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:25
            5.0T9    96                       
0          Pass which tours the tree and produces "stream code".
1                                                                                               MON AUG 05/96   18:37:45   Page  692
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1042/1 
01042/037   PLUS_470                 STREAM UTIL     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.STREAM_UTIL.S+.037(1)        392
            5.0T3  1241  PLUS_470.STREAM_UTIL.SQ.037        1 LINE     68   19 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:31
            5.0T9    97                       
0          Auxiliary routines used by stream code generation.
01042/038   PLUS_470                 CONST TABLE     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.CONST_TABLE.S+.038(1)        393
            5.0T3  1242  PLUS_470.CONST_TABLE.SQ.038        1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:35
            5.0T9    98                       
0          Routines which manage the constant table used for constants emitted
           during code generation. 
01042/039   PLUS_470                 STREAM OPT      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.STREAM_OPT.S+.039(1)         394
            5.0T3  1243  PLUS_470.STREAM_OPT.SQ.039         1 LINE     68    8 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:39
            5.0T9    99                       
0          Optimization performed on the stream code.
           (Currently, combination of "virtual registers", redundant branch removal,
           unreachable code removal) 
01042/040   PLUS_470                 OBJECT GEN      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_GEN.S+.040(1)         395
            5.0T3  1244  PLUS_470.OBJECT_GEN.SQ.040         1 LINE     68   18 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:42
            5.0T9   100                       
0          Routines which tour stream code and produce object code.
01042/041   PLUS_470                 OBJECT EMIT     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_EMIT.S+.041(1)        396
            5.0T3  1245  PLUS_470.OBJECT_EMIT.SQ.041        1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:47
            5.0T9   101                       
0          Routines which emit object code by calling object module
           building routines (1042/55). 
01042/042   PLUS_470                 OBJECT LIST     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_LIST.S+.042(1)        397
            5.0T3  1246  PLUS_470.OBJECT_LIST.SQ.042        1 LINE     68    6 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:50
            5.0T9   102                       
0          Routines which produce the listing of emitted object code.
01042/043   PLUS_470                 PLUSLIB         SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.PLUSLIB.S+.043(1)            398
            5.0T3  1247  PLUS_470.PLUSLIB.SQ.043            1 LINE     39    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:54
            5.0T9   103                       
0          Source library used to compile any of the PLUS compiler source
           components.  This file simply contains $CONTINUE WITH's for 
           the actual libraries used, namely
            
              SUEN:PARSDECLLIB (1042/49)
              PLUS:LALRPARSE*SL (1042/85)
              PLUS:OBJRTNS*SL (1042/55)
              SUEN:GLOBALLIB (1042/44)
1                                                                                               MON AUG 05/96   18:37:45   Page  693
0  Num   R       Component Name         Subname     Type G Seq ID 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             SUEN:PROCDECLLIB (1042/45)
              NEW:PLUS.SOURCEL (1042/4)
01042/044   PLUS_470                 GLOBALLIB       SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.GLOBALLIB.S+.044(1)          399
            5.0T3  1248  PLUS_470.GLOBALLIB.SQ.044          1 LINE     92   27 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:57
            5.0T9   104                       
0          PLUS library containing global blocks, types, etc. that are required by
           more than one of the source files. 
0          Referenced by comments of: 1042/8, 1042/43 
01042/045   PLUS_470                 PROCDECLLIB     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.PROCDECLLIB.S+.045(1)        400
            5.0T3  1249  PLUS_470.PROCDECLLIB.SQ.045        1 LINE     68   28 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:04
            5.0T9   105                       
0          Library containing procedure declarations for all procedures constituting
           the PLUS compiler. 
           (Except, currently, for a few that are in GLOBALLIB for historical 
           reasons.)
0          Referenced by comments of: 1042/43 
01042/046   PLUS_470                 COMPILER INT    SA  O          S1431 4.3T2 VLO FSNAME=PLUS_470.COMPILER_INT.SA.046(1)       401
            5.0T3  1250  PLUS_470.COMPILER_INT.SA.046       1 LINE     68    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:10
            5.0T9   106                       
0          Assembler interface routine for running the PLUS compiler.  Allocates
           and initializes the stack and pseudo-register vector
           and calls the main routine of the compiler. 
01042/047   PLUS_470                 GRAMMAR         S              S1431 4.3T2 VLO FSNAME=PLUS_470.GRAMMAR.S.047(1)             402
            5.0T3  1251  PLUS_470.GRAMMAR.S.047             1 LINE    112    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:13
            5.0T9   107                       
0          Grammar for PLUS used as input to the LALR analyzer (1042/99)
           to produce the distributed parser tables (1042/48).
            
           The convention is used that non-terminals are surrounded by quotes.
0          Referenced by comments of: 1042/83 
01042/048   PLUS_470                 PARSER TABLES   OC  G          S1431 4.3T2 VLO FSNAME=PLUS_470.PARSER_TABLES.OC.048(1)      403
            5.0T3  1252  PLUS_470.PARSER_TABLES.OC.048      1 LINE    254    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:16
            5.0T9   108                       
0          Parser tables generated by UBC LALR (1042/99) from PLUS grammar.
0          Referenced by comments of: 1042/19, 1042/47 
1                                                                                               MON AUG 05/96   18:37:45   Page  694
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/049   PLUS_470                 PARSER DECLS    SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.PARSER_DECLS.S+.049(1)       404
            5.0T3  1253  PLUS_470.PARSER_DECLS.SQ.049       1 LINE     98    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:19
            5.0T9   109                       
0          PLUS source library generated by UBC LALR (1042/99) containing
           declarations for production names, symbol names, tables sizes.
0          Referenced by comments of: 1042/43 
01042/050A  PLUS_470                 LIBRARY         OL  O          NEW:PLUS.OBJLIB                                                 
            5.0T3  1254  PLUS_470.LIBRARY.OL.050            1 LINE   3190    6 PAGE UBC  BALLARD   HANSEN    JULY 03, 1981  20:55:49
            5.0T9   110  NEW:PLUS.OBJLIB      
0          Object library containing object code for various useful routines
           (source in PLUS:LIB*S (1042/51)),  some small assembler interface routines
           (source in PLUS:LIB*SA (1042/52)).  Includes the standard run-time support 
           for allocating the stack and handling run-time errors.
            
           Declarations for all routines in the library are in the default 
           source library, NEW:PLUS.SOURCEL (1042/4).
            
           A first pass at documentation for these routines is now included as 
           (1042/59).
            
0          Referenced by comments of: 461/5, 461/7, 498/117, 498/123, 821/11, 1000/39, 1042/52, 1042/72, 1042/81, 1042/99,
                 1042/106, 1076/1 
01042/051   PLUS_470                 LIBRARY         SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LIBRARY.S+.051(1)            406
            5.0T3  1255  PLUS_470.LIBRARY.SQ.051            1 LINE     86   18 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:25
            5.0T9   111                       
0          PLUS source for some useful routines.
0          Referenced by comments of: 1042/50, 1042/105 
01042/052   PLUS_470                 LIBRARY         SA  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LIBRARY.SA.052(1)            407
            5.0T3  1256  PLUS_470.LIBRARY.SA.052            1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:29
            5.0T9   112                       
0          Assembler source for a few interfacing routines that are
           included in NEW:PLUS.OBJLIB (1042/50). 
            
           Now sets up pseudo-register vector.
            
0          Referenced by comments of: 1042/50, 1042/104 
01042/053   PLUS_470                 LIBRARY         L              S1431 4.3T2 VLO FSNAME=PLUS_470.LIBRARY.L.053(1)             408
            5.0T3  1257  PLUS_470.LIBRARY.L.053             1 LINE    133   62 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:32
            5.0T9   113                       
0          Listing of PLUS library routines.
           $COPY with PAGES=100.
1                                                                                               MON AUG 05/96   18:37:45   Page  695
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/054   PLUS_470                 OBJECT RTNS     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_RTNS.S+.054(1)        409
            5.0T3  1258  PLUS_470.OBJECT_RTNS.SQ.054        1 LINE     68   13 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:39
            5.0T9   114                       
0          Routines that can be used to build and punch MTS object modules. 
            
           These have been separated out from the PLUS compiler so they can 
           used by other programs too.  Currently, they are used by
           the UBC LALR analyzer (1042/99) and by the "Spires" Analyzer (1076).
            
           The routines require some storage management routines.  A set 
           are provided in PLUS:UTILITY*OL (1042/74), although these are
           not used by the PLUS compiler, which has its own. The PLUS compiler 
           also does not use the routine Punch_Record which is included
           in this file. 
            
           To compile these routines, unit 0 must specify the following 
           three libraries:
               PLUS:OBJRTNS*SL  (1042/55)
               PLUS:UTILITY*SL  (1042/73)
               NEW:PLUS.SOURCEL (1042/4)
            
0          Referenced by comments of: 1042/55, 1042/72 
01042/055   PLUS_470                 OBJECT RTNS     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_RTNS.S+.055(1)        410
            5.0T3  1259  PLUS_470.OBJECT_RTNS.SQ.055        1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:43
            5.0T9   115                       
0          Library containing declarations for the object module routines
           (1042/54).  This library is required to compile the routines or 
           to compile any program using the routines. 
0          Referenced by comments of: 1042/41, 1042/43, 1042/54, 1042/101, 1076/3 
01042/056   PLUS_470                 OBJECT RTNS     OL  O          S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_RTNS.OL.056(1)        411
            5.0T3  1260  PLUS_470.OBJECT_RTNS.OL.056        1 LINE    992    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:46
            5.0T9   116                       
0          Object library containing the PLUS object module routines. 
0          Referenced by comments of: 1042/95, 1042/99, 1076/1 
01042/057   PLUS_470                 WRITEUP         WF             S1431 4.3T2 VLO FSNAME=PLUS_470.WRITEUP.WF.057(1)            412
            5.0T3  1261  PLUS_470.WRITEUP.WF.057            1 LINE    146   52 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:50
            5.0T9   117                       
0          FMT source for PLUS writeup.
            
           Contains reference to JON:MACLIB at line 1, which will need changing
           elsewhere.
            
           Note: JON:MACLIB is distributed by UM (308/18).
1                                                                                               MON AUG 05/96   18:37:45   Page  696
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1042/62 
01042/058   PLUS_470                 WRITEUP         PF             S1431 4.3T2 VLO FSNAME=PLUS_470.WRITEUP.PF.058(1)            413
            5.0T3  1262  PLUS_470.WRITEUP.PF.058            1 LINE     77   66 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:09
            5.0T9   118                       
0          $COPYable form of PLUS writeup.  Allow 100 pages, TN printer.
01042/059   PLUS_470                 LIB WRITEUP     WX             S1431 4.3T2 VLO FSNAME=PLUS_470.LIB_WRITEUP.WX.059(1)        414
            5.0T3  1263  PLUS_470.LIB_WRITEUP.WX.059        1 LINE     95   34 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:19
            5.0T9   119                       
0          Textform source for preliminary version of writeup 
           describing NEW:PLUS.SOURCEL (1042/4) contents. 
            
           Since RD16, this has been extended to include documentation 
           on system subroutines declarations from NEW:PLUS.SOURCEL.
            
           Note it contains $CONTINUE WITH TXTF:TXTF.PROLOG
           which must be changed elsewhere. 
            
           (TXTF.PROLOG IS DISTRIBUTED BY MICHIGAN AS UNSP:JONMACLIBTXT (3018/174).
            
           Ignore the large number of error messages generated when 
           this is run through Textform. 
0          Referenced by comments of: 1042/4, 1042/50 
01042/060   PLUS_470                 LIB WRITEUP     PX             S1431 4.3T2 VLO FSNAME=PLUS_470.LIB_WRITEUP.PX.060(1)        415
            5.0T3  1264  PLUS_470.LIB_WRITEUP.PX.060        1 LINE     69   15 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:26
            5.0T9   120                       
0          $COPYable form of writeup for NEW:PLUS.SOURCEL (1042/4).
           Allow 100 pages, TN printer. 
01042/061   PLUS_470                 BUGLIST         P              S1431 4.3T2 VLO FSNAME=PLUS_470.BUGLIST.P.061(1)             416
            5.0T3  1265  PLUS_470.BUGLIST.P.061             1 LINE     68    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:31
            5.0T9   121                       
0          Description of current known bugs in the compiler.
01042/062   PLUS_470                 NEWS            P              S1431 4.3T2 VLO FSNAME=PLUS_470.NEWS.P.062(1)                417
            5.0T3  1266  PLUS_470.NEWS.P.062                1 LINE     72    6 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:34
            5.0T9   122                       
0          Current news file for PLUS.
            
           This describes all changes that have been made since the 
           first (D4.2) distribution of PLUS.
            
           The PLUS writeup  (1042/57) has been updated to incorporate all
           changes described in this file. 
            
1                                                                                               MON AUG 05/96   18:37:45   Page  697
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/063   PLUS_470                 WORKLIST        P              S1431 4.3T2 VLO FSNAME=PLUS_470.WORKLIST.P.063(1)            418
            5.0T3  1267  PLUS_470.WORKLIST.P.063            1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:37
            5.0T9   123                       
0          This is a file containing a list of things we hope to do
           with PLUS. 
            
           This is intended for use by the PLUS implementors, and is 
           probably not very comprehensible to anyone else, but
           may give some idea of current plans. 
01042/064   PLUS_470                 CHANGELOG       P              S1431 4.3T2 VLO FSNAME=PLUS_470.CHANGELOG.P.064(1)           419
            5.0T3  1268  PLUS_470.CHANGELOG.P.064           1 LINE     73    6 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:40
            5.0T9   124                       
0          This file contains a history of (almost) all changes 
           to the compiler since the first (D4.2) distribution. 
            
           It is mainly of interest to the compiler implementors,
           since the NEWS file details the changes that are visible
           to users of PLUS. 
01042/065   PLUS_470                 DIST LETTER     PF             S1431 4.3T2 VLO FSNAME=PLUS_470.DIST_LETTER.PF.065(1)        420
            5.0T3  1269  PLUS_470.DIST_LETTER.PF.065        1 LINE     69    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:44
            5.0T9   125                       
0          This is a covering letter to Jim Hansen which accompanies this
           distribution of PLUS. 
            
           It describes the current status, and expresses
           our  wishes regarding distribution and maintenance of the 
           compiler. 
            
           All installations receiving PLUS should read this. 
            
01042/066   PLUS_470                 INSTALL NOTES   P              S1431 4.3T2 VLO FSNAME=PLUS_470.INSTALL_NOTES.P.066(1)       421
            5.0T3  1270  PLUS_470.INSTALL_NOTES.P.066       1 LINE     76    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:47
            5.0T9   126                       
0          Instructions for installing PLUS.
           Slightly revised for second distribution. 
0          Referenced by comments of: 1042/1, 1042/2, 1042/3 
01042/067   PLUS_470                 BOOTSTRAP       C              S1431 4.3T2 VLO FSNAME=PLUS_470.BOOTSTRAP.C.067(1)           422
            5.0T3  1271  PLUS_470.BOOTSTRAP.C.067           1 LINE    159    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:50
            5.0T9   127                       
0          This file contains a complete sample batch job to compile the entire
           PLUS compiler, then verify the compilation by using it to recompile 
           itself again. 
            
           This procedure is used at UBC when installing a new version. 
1                                                                                               MON AUG 05/96   18:37:45   Page  698
0  Num   R       Component Name         Subname     Type G Seq ID 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 installation notes, and $COMMENT lines in the command file.
01042/068   PLUS_470                 ROLLOVER        C              S1431 4.3T2 VLO FSNAME=PLUS_470.ROLLOVER.C.068(1)            423
            5.0T3  1272  PLUS_470.ROLLOVER.C.068            1 LINE     68    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:54
            5.0T9   128                       
0          Batch job used after generating a new private version of the PLUS
           compiler (as with SUEN:BOOT), to install it as the new 
           public version, producing appropriate backup etc. 
01042/069   PLUS_470                 COMPARE         SS  G          S0656 PLUS FSNAME=PLUS_470.COMPARE.SS.64(1)                   64
            5.0T3  1273  PLUS_470.COMPARE.SS.069            1 LINE     62    1 PAGE UBC  BALLARD   HANSEN    JAN. 09, 1979  13:26:05
            5.0T9   129                       
0          This is a SPITBOL GLP which we use in bootstrapping a new version of the
           compiler, to verify that the first compilation and the second one resulted
           in the same object decks.  It just compares the two files, ignoring END 
           records.
            
           Note: 
           This program will probably require changing if it is to be 
           used elsewhere since it uses a library routine MTSLNR() which probably isn't in 
           anybody else's Spitbol in order to get the source line number of lines 
           read. 
            
           Unchanged since D4.2 distribution of PLUS. 
01042/070   PLUS_470                 LIBRARY GENERA  SS  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LIBRARY_GENERA.SS.073(1)     426
            5.0T3  1274  PLUS_470.LIBRARY_GENERA.SS.070     1 LINE    157    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:22
            5.0T9   130                       
0          Another Spitbol GLP, again requiring the UBC routine to get at
           MTS line numbers, and also local routines for interfacing to 
           read and write. 
            
           We use this one to regenerate a PLUS library from an old one -- 
           useful for cleaning up the line numbers, or recreating it if the 
           file is accidently renumbered.
            
           For use at other installations, could be changed to use routines in 
           UNSP:SPITLIB (590/30). 
            
           Unchanged from the RD16 version.
01042/071   PLUS_470                 HANOI           SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.HANOI.S+.074(1)              427
            5.0T3  1275  PLUS_470.HANOI.SQ.071              1 LINE     68    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:25
            5.0T9   131                       
0          Simple example of PLUS program that performs Towers of Hanoi.
1                                                                                               MON AUG 05/96   18:37:45   Page  699
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/072   PLUS_470                 UTILITY RTNS    SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.UTILITY_RTNS.S+.075(1)       428
            5.0T3  1276  PLUS_470.UTILITY_RTNS.SQ.072       1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:28
            5.0T9   132                       
0          This is source for a collection of auxiliary PLUS subroutines that
           are getting used in various places, but which we don't think belong 
           in NEW:PLUS.OBJLIB (1042/50).  
            
           The routines currently in this file are various procedures for 
           allocating arrays and linked lists. 
            
           Used in this distribution by the LALR analyzer (1042/99) and
           the Spires Analyzer (1076). 
            
           These routines, or substitutes for them, are required by the 
           object module punching routines (1042/54).  (Note the compiler
           provides substitutes -- it does not uses these ones.)
            
           Compile with 0=UTILITY*SL+NEW:PLUS.SOURCEL
                          (1042/73)    (1042/4)
0          Referenced by comments of: 1042/74 
01042/073   PLUS_470                 UTILITY RTNS    SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.UTILITY_RTNS.S+.076(1)       429
            5.0T3  1277  PLUS_470.UTILITY_RTNS.SQ.073       1 LINE     68    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:31
            5.0T9   133                       
0          PLUS Source library containing the declarations for the above routines.
            
           Used when compiling the routines, or by any program that uses the 
           routines.
            
0          Referenced by comments of: 1042/54, 1042/72, 1042/101, 1076/1, 1076/3 
01042/074   PLUS_470                 UTILITY RTNS    OL  O          S1431 4.3T2 VLO FSNAME=PLUS_470.UTILITY_RTNS.OL.077(1)       430
            5.0T3  1278  PLUS_470.UTILITY_RTNS.OL.074       1 LINE    292    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:34
            5.0T9   134                       
0          Object library containing the utility routines from (1042/72).
0          Referenced by comments of: 1042/54, 1042/99 
01042/075   PLUS_470                 SUPERVISOR LIB  SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.SUPERVISOR_LIB.S+.078(1)     431
            5.0T3  1279  PLUS_470.SUPERVISOR_LIB.SQ.075     1 LINE     72    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:37
            5.0T9   135                       
0          UBC plans eventually to produce a series of libraries paralleling
           the assembler libraries for the various components of the system.
           (UBC now keeps all system copy sections in one of a small number of 
           libraries.)
            
           These libraries will contain PLUS definitions of the various internal 
           control blocks, internal entry poins of the system, etc. 
1                                                                                               MON AUG 05/96   18:37:45   Page  700
0  Num   R       Component Name         Subname     Type G Seq ID 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 subcomponent, in the file COPY:SUPER*42SQL at UBC, will contain
           supervisor-related definitions corresponding to the file COPY:SUPER*42M at UBC). 
            
           Currently, however, all it contains is constant definitions for all the
           UMMPS SVC's, and a very rough description of the job table. 
            
0          Referenced by comments of: 1077/1 
01042/076   PLUS_470                 DSP LIB         SQ  S          S1431 4.3T2 VLO FSNAME=PLUS_470.DSP_LIB.S+.079(1)            432
            5.0T3  1280  PLUS_470.DSP_LIB.SQ.076            1 LINE     68    3 PAGE UBC  O'REILLY  HANSEN    SEP. 27, 1979  22:06:40
            5.0T9   136                       
0          This is a PLUS source library defining resource-manager DSP entry 
           points and control blocks. 
            
           It is preliminary and has never been used.  Distributed here in case
           it is of any interest to anyone elsewhere. 
            
01042/077   PLUS_470                 INTERTASK LIB   SQ  S          S1431 4.3T2 VLO FSNAME=PLUS_470.INTERTASK_LIB.S+.080(1)      433
            5.0T3  1281  PLUS_470.INTERTASK_LIB.SQ.077      1 LINE     68    3 PAGE UBC  O'REILLY  HANSEN    SEP. 27, 1979  22:06:44
            5.0T9   137                       
0          This is a PLUS source library containing intertask-related definitions. 
            
           It is preliminary and has never been used.  Distributed here in case
           it is of any interest to anyone elsewhere. 
01042/078   PLUS_470                 MONITOR LIB     SQ  S          S1431 4.3T2 VLO FSNAME=PLUS_470.MONITOR_LIB.S+.081(1)        434
            5.0T3  1282  PLUS_470.MONITOR_LIB.SQ.078        1 LINE     68    5 PAGE UBC  O'REILLY  HANSEN    SEP. 27, 1979  22:06:47
            5.0T9   138                       
0          This is a PLUS source library containing definitions of the resource
           manager monitor procedures and control blocks. 
            
           It is preliminary and has never been used.  Distributed here in case
           it is of any interest to anyone elsewhere. 
01042/079A  PLUS_470                 STATSCAN        SQ  O          PLUS:STATSCAN(1000,9999)                                        
            5.0T3  1283  PLUS_470.STATSCAN.SQ.079           1 LINE    101   13 PAGE UM   HANSEN              JULY 03, 1981  20:57:30
            5.0T9   139                       
0          THIS IS A PROGRAM WHICH MAY BE USED INTERACTIVELY TO ANALYZE THE PLUS
           COMPILER STATISTICS FILE (AT MICHIGAN, THIS FILE IS CALLED ETC:PLUSLOG).
           DOCUMENTATION FOR STATSCAN IS IN STATSCAN HELP (1042/82).
0          Referenced by comments of: 1042/81 
1                                                                                               MON AUG 05/96   18:37:45   Page  701
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/080A  PLUS_470                 STATSCN GRAMMR  S   G          PLUS:STATSCAN(10000)                                            
            5.0T3  1284  PLUS_470.STATSCN_GRAMMR.S.080      1 LINE     83    3 PAGE UM   HANSEN              JULY 03, 1981  20:57:34
            5.0T9   140                       
0          GRAMMAR FOR THE UBC ANALYZER (1076) USED TO PRODUCE PARSER TABLES INCLUDED IN
           (1042/81).
0          Referenced by comments of: 1042/81, 1042/103 
01042/081A  PLUS_470                 STATSCAN        O   O          PLUS:STATSCAN(1,999)                                            
            5.0T3  1285  PLUS_470.STATSCAN.O.081            1 LINE   3344   12 PAGE UM   HANSEN              JULY 03, 1981  20:57:38
            5.0T9   141                       
0          OBJECT OF (1042/79) AND (1042/80). MUST BE COMPILED WITH THE PLUS COMPILER
           VERSION 15 (OCTOBER 1979).
            
           $CONTINUES WITH PLUS:PARSER.OL (1076/6) AND NEW:PLUS.OBJLIB (1042/50).
           USES THE STATSCAN HELP FILE (1042/82) AND ETC:PLUSLOG (THE PLUS
           COMPILER STATISTICS FILE, WHICH IS NOT DISTRIBUTED).
0          Referenced by comments of: 1042/80, 1042/82 
01042/082A  PLUS_470                 STATSCAN HELP   D              PLUS:STATSCANHELP                                               
            5.0T3  1286  PLUS_470.STATSCAN_HELP.D.082       1 LINE     68    2 PAGE UM   HANSEN              JULY 03, 1981  20:57:41
            5.0T9   142                       
0          HELP FILE FOR THE PLUS STATISTICS FILE SCANNER (1042/81).
0          Referenced by comments of: 1042/79, 1042/81 
01042/083   PLUS_470                 LALR WRITEUP    WF             S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_WRITEUP.WF.086(1)       439
            5.0T3  1287  PLUS_470.LALR_WRITEUP.WF.083       1 LINE     66    3 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:05
            5.0T9   143                       
0          LALR (1042/83) - (1042/102), a program similar to *LALRGEN (745), produces
           syntax tables, and some auxiliary PLUS declarations from a BNF grammar. The
           grammar must be LALR(1).
            
           It is the only LALR(1) grammar UBC knows of that will correctly process the
           PLUS grammar (1042/47).
            
           UBC hopes to rewrite the lookahead algorithm sometime to use the efficient
           calculation described in SIGPLAN Symposium on Compiler Construction, SIGPLAN
           Notices, Vol. 14, number 8.
            
           This subcomponent contains FMT source for brief notes describing input and
           output from LALR. It assumes the reader is familiar with similar programs.
            
           Uses COPY:JONMACLIBFMT (308/18).
0          Referenced by comments of: 1042/83 
1                                                                                               MON AUG 05/96   18:37:45   Page  702
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/084   PLUS_470                 LALR WRITEUP    PF             S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_WRITEUP.PF.087(1)       440
            5.0T3  1288  PLUS_470.LALR_WRITEUP.PF.084       1 LINE     69    3 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:13
            5.0T9   144                       
0          $COPYable writeup for LALR (5 pages)
01042/085   PLUS_470                 LALR DECLAR     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_DECLAR.S+.088(1)        441
            5.0T3  1289  PLUS_470.LALR_DECLAR.SQ.085        1 LINE     68    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:16
            5.0T9   145                       
0          PLUS source library containing the definition of the parser tables. 
0          Referenced by comments of: 1042/43, 1042/101 
01042/086   PLUS_470                 LALR SOURCE     S   O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_SOURCE.S.089(1)         442
            5.0T3  1290  PLUS_470.LALR_SOURCE.S.086         1 LINE     35    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:20
            5.0T9   146                       
0          Components (1042/87) to (1042/96) are PLUS source for the LALR analyzer.
            
           This file contains just a series of $CONTINUE WITH's specifying 
           all the files  constituting the analyzer. 
            
           The pieces of the analyzer may be compiled independently or all
           concatenated together and compiled at once. Compiling 
           any of the pieces requires several PLUS source libraries.  Component
           (1042/101) $CONTINUES WITH all the required libraries. 
01042/087   PLUS_470                 LALR MAIN       SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_MAIN.S+.090(1)          443
            5.0T3  1291  PLUS_470.LALR_MAIN.SQ.087          1 LINE     68    4 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:26
            5.0T9   147                       
0          LALR main program and initialization and some auxiliary procedures.
0          Referenced by comments of: 1042/86, 1042/99 
01042/088   PLUS_470                 LALR INPUT      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_INPUT.S+.091(1)         444
            5.0T3  1292  PLUS_470.LALR_INPUT.SQ.088         1 LINE     68    4 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:36
            5.0T9   148                       
0          Input reading and scanning components. 
01042/089   PLUS_470                 LALR PARSER     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_PARSER.S+.092(1)        445
            5.0T3  1293  PLUS_470.LALR_PARSER.SQ.089        1 LINE     68    4 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:48
            5.0T9   149                       
0          LALR analyzer input parser. 
            
           This file contains the procedures to parse and recover from syntax errors
           in the input to LALR. 
            
           It serves as an example of the structure of the parser required 
           by the tables generated by LALR. 
            
1                                                                                               MON AUG 05/96   18:37:45   Page  703
0  Num   R       Component Name         Subname     Type G Seq ID 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 PLUS compiler has its own version (1042/19). 
            
01042/090   PLUS_470                 LALR PRINT      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_PRINT.S+.093(1)         446
            5.0T3  1294  PLUS_470.LALR_PRINT.SQ.090         1 LINE     68    6 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:51
            5.0T9   150                       
0          This component produces listing of the grammar, and other 
           printed output produced by LALR.
01042/091   PLUS_470                 LALR LR0        SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_LR0.S+.094(1)           447
            5.0T3  1295  PLUS_470.LALR_LR0.SQ.091           1 LINE     68    5 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:55
            5.0T9   151                       
0          Procedures to produce the LR(0) machine from the grammar.
01042/092   PLUS_470                 LALR SLR1       SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_SLR1.S+.095(1)          448
            5.0T3  1296  PLUS_470.LALR_SLR1.SQ.092          1 LINE     68    3 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:58
            5.0T9   152                       
0          Procedures to try SLR(1) lookahead. 
01042/093   PLUS_470                 LALR LALR1      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_LALR1.S+.096(1)         449
            5.0T3  1297  PLUS_470.LALR_LALR1.SQ.093         1 LINE     68    8 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:01
            5.0T9   153                       
0          Procedures to try LALR(1) lookahead. 
01042/094   PLUS_470                 LALR MATRX GEN  SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_MATRX_GEN.S+.097(1)     450
            5.0T3  1298  PLUS_470.LALR_MATRX_GEN.SQ.094     1 LINE     68    7 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:15
            5.0T9   154                       
0          LALR generates tables which represent the parser 
           in a matrix form (intended to improve parser speed at some 
           cost in space).  These procedures compute the matrix 
           representation.
01042/095   PLUS_470                 LALR PUNCH      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_PUNCH.S+.098(1)         451
            5.0T3  1299  PLUS_470.LALR_PUNCH.SQ.095         1 LINE     68    7 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:18
            5.0T9   155                       
0          Routines to generate object module from the matrix 
           representation.  The routines in component (1042/56)
           are used. 
01042/096   PLUS_470                 LALR MEMBER     SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_MEMBER.S+.099(1)        452
            5.0T3  1300  PLUS_470.LALR_MEMBER.SQ.096        1 LINE     67    2 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:22
            5.0T9   156                       
0          These routines generate an output PLUS library containing 
           declarations for use when writing programs to use the 
           parser tables. 
            
1                                                                                               MON AUG 05/96   18:37:45   Page  704
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1042/86, 1042/99 
01042/097   PLUS_470                 LALR GRAMMAR    S   O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_GRAMMAR.S.100(1)        453
            5.0T3  1301  PLUS_470.LALR_GRAMMAR.S.097        1 LINE     56    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:25
            5.0T9   157                       
0          Simple grammar in the form required by LALR 
           defining the input to LALR.
0          Referenced by comments of: 1042/98, 1042/99, 1042/100 
01042/098   PLUS_470                 LALR GRAMMAR    OC  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_GRAMMAR.OC.101(1)       454
            5.0T3  1302  PLUS_470.LALR_GRAMMAR.OC.098       1 LINE    136    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:28
            5.0T9   158                       
0          Syntax tables generated by LALR for the grammar in (1042/97). This
           object deck is part of LALR. 
01042/099   PLUS_470                 LALR OBJECT     OE  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_OBJECT.OE.102(1)        455
            5.0T3  1303  PLUS_470.LALR_OBJECT.OE.099        1 LINE  32767   17 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:08:54
            5.0T9   159                       
0          This is the complete, linkeditted object for the UBC LALR analyzer. 
            
           The complete program consists of:
            
              object from (1042/87) through (1042/96)
              object generated by LALR from grammar (1042/97)
              object module routines (1042/56) (INCLUDE@SLI)
              Utility routines (1042/74) (INCLUDE@SLI)
              NEW:PLUS.OBJLIB  (1042/50) (INCLUDE@SLI)
0          Referenced by comments of: 1042/19, 1042/47, 1042/48, 1042/49, 1042/54, 1042/72 
01042/100   PLUS_470                 LALR DECLS      SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_DECLS.S+.103(1)         456
            5.0T3  1304  PLUS_470.LALR_DECLS.SQ.100         1 LINE     71    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:31
            5.0T9   160                       
0          PLUS source library generated by LALR from the grammar in (1042/97).
0          Referenced by comments of: 1042/101 
01042/101   PLUS_470                 LALR SOU LIB    SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_SOU_LIB.S+.104(1)       457
            5.0T3  1305  PLUS_470.LALR_SOU_LIB.SQ.101       1 LINE     39    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:34
            5.0T9   161                       
0          This file just contains $CONTINUE WITH's for the set 
           of libraries required to compile any of the files constituting the 
           analyzer.
            
           These are:
              LALR*SL (1042/102)
              LALRDECL*SL (1042/100)
              PLUS:LALRPARSE*SL (1042/85)
1                                                                                               MON AUG 05/96   18:37:45   Page  705
0  Num   R       Component Name         Subname     Type G Seq ID 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             PLUS:UTILITY*SL (1042/73)
              PLUS:OBJRTNS*SL (1042/55)
              NEW:PLUS.SOURCEL (1042/4)
0          Referenced by comments of: 1042/86 
01042/102   PLUS_470                 LALR SOU LIB    SQ  O          S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_SOU_LIB.S+.105(1)       458
            5.0T3  1306  PLUS_470.LALR_SOU_LIB.SQ.102       1 LINE     68    7 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:38
            5.0T9   162                       
0          PLUS source library containing declarations required by more than 
           one of the files constituting LALR. 
0          Referenced by comments of: 1042/83, 1042/101 
01042/103A  PLUS_470                 PSTAT                          PLUS:PSTAT.SQD                                                  
            5.0T3  1307  PLUS_470.PSTAT..103                1 LINE     68    1 PAGE UM   HANSEN              JULY 03, 1981  20:57:54
            5.0T9   163                       
0          PLUS DECLARATIONS EMITTED BY PLUS:ANALYZER (1076/1) WHEN GIVEN THE STATSCAN
           GRAMMAR (1042/80).
01042/104C  PLUS_470                 CLSOBJLIB       SA  S          PLUS:CLSOBJLIB.SA                                               
            5.0T3  1308  PLUS_470.CLSOBJLIB.SA.104          1 LINE     68    4 PAGE UM   HANSEN              JULY 03, 1981  20:57:55
            5.0T9   164                       
0          These assembler routines are similar to those in (1042/52) except that they
           were designed for use with a CLS using a copy of the CLS transfer vector in
           a PLUS global.  They were used to develop the PMF (810), but are included only
           for completeness, since the PMF has its own copy of most of these routines.
0          Referenced by comments of: 810/18, 1042/106 
01042/105C  PLUS_470                 CLSOBJLIB       SQ  O          PLUS:CLSOBJLIB.SQ                                               
            5.0T3  1309  PLUS_470.CLSOBJLIB.SQ.105          1 LINE     86   17 PAGE UM   HANSEN              JULY 03, 1981  20:57:56
            5.0T9   165                       
0          PLUS source for the CLS-callable versions of the routines in (1042/51).
           Uses a copy of the transfer vector in a PLUS global.  Compile with
           (1042/107).
0          Referenced by comments of: 1042/106 
01042/106C  PLUS_470                 CLSOBJLIB       OL  O          PLUS:CLSOBJLIB                                                  
            5.0T3  1310  PLUS_470.CLSOBJLIB.OL.106          1 LINE   3068   11 PAGE UM   HANSEN              JULY 03, 1981  20:57:58
            5.0T9   166                       
0          Object for (1042/104) and (1042/105). Similar to (1042/50), but uses a transfer
           vector copied to a PLUS global.
0          Referenced by comments of: 810/5 
1                                                                                               MON AUG 05/96   18:37:45   Page  706
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01042/107C  PLUS_470                 CLSSOURCELIB    S   O          PLUS:CLSSOURCELIB                                               
            5.0T3  1311  PLUS_470.CLSSOURCELIB.S.107        1 LINE     85   30 PAGE UM   HANSEN              JULY 03, 1981  20:57:59
            5.0T9   167                       
0          Similar to (1042/4), but for CLS's, including declarations for CLSTV and
           CLSPARM.  Expects the transfer vector to be copied to a PLUS global.
0          Referenced by comments of: 1042/105, 1076/14 
01043/001   JVCT                                                  # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           CONVERT A BCD TIME/DATE TO JULIAN MICROSECONDS SINCE MARCH 1, 1900.
01044/001   JMSBTDR                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           CONVERT FROM JULIAN MICROSECONDS TO BINARY GREGORIAN TIME, A FORMAT IN
           WHICH EACH COMPONENT OF THE TIME (YEAR, MONTH, DAY, HOUR, MINUTE, AND SO
           ON) HAS ITS OWN FULLWORD.
01045/001   BTDJMSR                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           CONVERT FROM BINARY GREGORIAN TIME TO STANDARD MTS JULIAN MICROSECONDS.
01046/001   DAYDAT                                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           CONVERT MM-DD-YY TO MMM DD, YYYY.
01047/001   PRINTER DSR                                           # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A NEW
           1403/1443 PRINTER DSR.
01048/001   S                                                     # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE
           TO PRINT THE NEAREST RESIDENT SYMBOL GIVEN AN ADDRESS OR THE ADDRESS NEAREST
           A GIVEN SYMBOL.
01049/001   PRINT_MODIFIERS                                       # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           PRINT THE INTEGER/HEXADECIMAL EQUIVALENTS OF A GIVEN SET OF MODIFIERS.
1                                                                                               MON AUG 05/96   18:37:45   Page  707
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01050/001   PLUS-11                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
01051/001C  VIRTUAL I/O              OBJECT          OL  O          TMTS:VDVLIBRARY                                                 
            5.0T3  1312  VIRTUAL_I/O.OBJECT.OL.001          1 LINE   7940   44 PAGE UBC  BERRYMAN  HELFFRICH AUG. 06, 1981  05:47:17
            5.0T9   168  TMTS:VDVLIBRARY      
0          This component contains routines used to implement virtual devices. It is
           used by the UBC Virtual Machine (1079), VSS (1078), and other components.
            
           The virtual channel and device object is present in a loader library format
           for applications which need to use only a subset of the devices which can be
           simulated.
            
           Note that in order to use virtual 2501 reader or virtual 3270, the Resource
           Manager Intertask line and node DSPs are used, and hence the object for the
           DSP library (1041/1), the CFM routine (1041/10), and the Subtasking Monitor
           (1058) must also be present.
0          Referenced by comments of: 1051/19, 1051/21, 1078/27, 1079/1 
01051/002C  VIRTUAL I/O              MACROS          SM  O          TMTS:VDV.MACROS                                                 
            5.0T3  1313  VIRTUAL_I/O.MACROS.SM.002          1 LINE     80   20 PAGE UBC  BERRYMAN  HELFFRICH AUG. 06, 1981  05:47:22
            5.0T9   169                       
0          Macro library used for assembling the virtual channel, I/O devices, and 
           disk file simulator.
0          Referenced by comments of: 1051/3, 1051/4, 1051/5, 1051/6, 1051/7, 1051/8, 1051/9, 1051/10, 1051/11, 1051/12,
                 1051/13, 1051/14, 1051/15, 1051/16, 1051/18, 1051/20 
01051/003C  VIRTUAL I/O              VCHANNEL        SA  O          TMTS:VDVCHANNEL(1000)                                           
            5.0T3  1314  VIRTUAL_I/O.VCHANNEL.SA.003        1 LINE     80   39 PAGE UBC  BERRYMAN  HELFFRICH AUG. 06, 1981  05:47:25
            5.0T9   170                       
0          This routine is the virtual channel, which simulates a subset of the IBM 370
           I/O channel functions. Assemble with COPY:CC.MACROS (1054/3) and the Virtual
           I/O macros (1051/2).
01051/004C  VIRTUAL I/O              VDV1052         SA  O          TMTS:VDV1052(1000)                                              
            5.0T3  1315  VIRTUAL_I/O.VDV1052.SA.004         1 LINE     79    7 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:47:32
            5.0T9   171                       
0          Routine to simulate a 1052 device or equivalent. Assemble with
           COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual
           Machine macros (1079/11).
0          Referenced by comments of: 1051/20 
01051/005C  VIRTUAL I/O              VDV3270         SA  O          TMTS:VDV3270(1000)                                              
            5.0T3  1316  VIRTUAL_I/O.VDV3270.SA.005         1 LINE     78   12 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:47:33
            5.0T9   172                       
0          Routine to simulate an IBM 3270 device using intertask to talk to a program
1                                                                                               MON AUG 05/96   18:37:45   Page  708
0  Num   R       Component Name         Subname     Type G Seq ID 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          running in another task. The other program simulates the device using 3270
           binary I/O. Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros
           (1051/2), the UBC Virtual Machine macros (1079/11), and the DSP macros
           (1041/9). Copies *GDINFODSECT (594).
01051/006C  VIRTUAL I/O              VDV1403         SA  O          TMTS:VDV1403(1000)                                              
            5.0T3  1317  VIRTUAL_I/O.VDV1403.SA.006         1 LINE     72   10 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:47:36
            5.0T9   173                       
0          Routine to simulate an IBM 1403 device or equivalent. Assemble with
           COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual
           Machine macros (1079/11). Copies *GDINFODSECT (594).
01051/007C  VIRTUAL I/O              VDV2540         SA  O          TMTS:VDV2540(1000)                                              
            5.0T3  1318  VIRTUAL_I/O.VDV2540.SA.007         1 LINE     78    9 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:47:37
            5.0T9   174                       
0          Routine to simulate an IBM 2540 device or equivalent. Assemble with
           COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual
           Machine macros (1079/11). Copies *GDINFODSECT (594).
01051/008C  VIRTUAL I/O              VDV3420         SA  O          TMTS:VDV3420(1000)                                              
            5.0T3  1319  VIRTUAL_I/O.VDV3420.SA.008         1 LINE     72   13 PAGE UBC  WHALEY    HELFFRICH AUG. 06, 1981  05:47:39
            5.0T9   175                       
0          Routine to simulate an IBM 3420 device or equivalent. Assemble with
           COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual
           Machine macros (1079/11). Copies *GDINFODSECT (594).
01051/009C  VIRTUAL I/O              VDV2501         SA  O          TMTS:VDV2501(1000)                                              
            5.0T3  1320  VIRTUAL_I/O.VDV2501.SA.009         1 LINE     72   16 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:47:42
            5.0T9   176                       
0          This is a special virtual device that accepts file names from an intertask
           network and submits the contents of the file to the virtual machine as if it
           were a card deck put in a 2501 reader device. The virtual device was written
           to allow jobs to be submitted to an operating system running in the virtual
           machine. See notes at the front of the component. Assemble with
           COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), the UBC Virtual
           Machine macros (1079/11), and the DSP macros (1041/9).
0          Referenced by comments of: 1051/16 
01051/010C  VIRTUAL I/O              VDV2701         SA  O          TMTS:VDV2701(1000)                                              
            5.0T3  1321  VIRTUAL_I/O.VDV2701.SA.010         1 LINE     68    7 PAGE UBC  O'REILLY  HELFFRICH AUG. 06, 1981  05:47:47
            5.0T9   177                       
0          Routine to simulate 2701/PDA as used by UBC's Front End Processors. Calls the
           virtual PDP/11 (1051/11). Assemble with COPY:CC.MACROS (1054/3), the Virtual
           I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11).
0          Referenced by comments of: 1051/11 
1                                                                                               MON AUG 05/96   18:37:45   Page  709
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01051/011C  VIRTUAL I/O              VDVUBCFEP       SA  S          TMTS:VDVUBCFEP(1000)                                            
            5.0T3  1322  VIRTUAL_I/O.VDVUBCFEP.SA.011       1 LINE     68   19 PAGE UBC  O'REILLY  HELFFRICH AUG. 06, 1981  05:47:49
            5.0T9   178                       
0          Routine to simulate communication with a UBC PDP11/40 FEP using UBC's FEP
           protocol. Called by the virtual 2701 routines (1051/10). Assemble with
           COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and COPY:FECP.LIB*M,
           which was not distributed by UBC.
0          Referenced by comments of: 1051/10 
01051/012C  VIRTUAL I/O              VDVDASD         SA  O          TMTS:VDVDASD(1000)                                              
            5.0T3  1323  VIRTUAL_I/O.VDVDASD.SA.012         1 LINE     81   16 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:47:52
            5.0T9   179                       
0          This routine interprets CCWs for IBM 3330 and 3350 device types and calls the
           disk file simulator (1051/14) to do the actual simulation. Assemble using
           COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual
           Machine macros (1079/11).
01051/013C  VIRTUAL I/O              VDV2305         SA  O          TMTS:VDV2305(1000)                                              
            5.0T3  1324  VIRTUAL_I/O.VDV2305.SA.013         1 LINE     72   15 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:47:54
            5.0T9   180                       
0          This routine interprets CCWs for IBM 2305 devices and calls the disk file
           simulator (1051/14) to do the actual simulation. Assemble using
           COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual
           Machine macros (1079/11).
01051/014C  VIRTUAL I/O              VDVDFS          SA  O          TMTS:VDVDFS(1000)                                               
            5.0T3  1325  VIRTUAL_I/O.VDVDFS.SA.014          1 LINE     80   59 PAGE UBC  BERRYMAN  HELFFRICH AUG. 06, 1981  05:47:57
            5.0T9   181                       
0          Disk file simulator routines. Used by 1051/12 and 1051/13. These routines
           simulate 3330-type disk devices using a line file data structure which must
           by initialized by the preformat program (1051/19). Assemble using
           COPY:CC.MACROS (1054/3) and the Virtual I/O macros (1051/2).
0          Referenced by comments of: 1051/12, 1051/13 
01051/015C  VIRTUAL I/O              VDV3370         SA  O          TMTS:VDV3370(1000)                                              
            5.0T3  1326  VIRTUAL_I/O.VDV3370.SA.015         1 LINE     72   15 PAGE RPI  MCKENNEY  HELFFRICH AUG. 06, 1981  05:48:05
            5.0T9   182                       
0          This routine simulates an IBM 3370 disk. Assemble with COPY:CC.MACROS (1054/3),
           the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros
           (1079/11).
01051/016C  VIRTUAL I/O              2501 SUBMIT     SA  O          TMTS:VDV2501SLAVE(1000)                                         
            5.0T3  1327  VIRTUAL_I/O.2501_SUBMIT.SA.016     1 LINE     72    5 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:48:08
            5.0T9   183                       
0          This is a test program to submit file names, or jobs, over an intertask
           network to the virtual 2501 reader (1051/9). Assemble using COPY:CC.MACROS
1                                                                                               MON AUG 05/96   18:37:45   Page  710
0  Num   R       Component Name         Subname     Type G Seq ID 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          (1054/3), COPY:MNTR.MACROS (1058/19), and the DSP macros (1041/9), the UBC
           Virtual Machine macros (1079/11), the virtual I/O macros (1051/2),
           COPY:IT:MACROS (1081/6), and COPY:MISC.MACROS (728).  Copies
           COPY:IT.DSECTS (1081/4).
0          Referenced by comments of: 1051/17 
01051/017C  VIRTUAL I/O              2501 SUBMIT     OC  O          TMTS:VDV2501SLAVE(1,999)                                        
            5.0T3  1328  VIRTUAL_I/O.2501_SUBMIT.OC.017     1 LINE     80    5 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:48:10
            5.0T9   184                       
0          Object for (1051/16). Must be run with the Subtasking Monitor (1058), along
           with the Resource Manager DSP Libary (1041/1), and the CFM routine (1041/10).
01051/018C  VIRTUAL I/O              PREFMT          SA  O          TMTS:VDVPREFMT(1000)                                            
            5.0T3  1329  VIRTUAL_I/O.PREFMT.SA.018          1 LINE     69    4 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:48:11
            5.0T9   185                       
0          Program that calls the disk file simulator routines to write standard
           record 0 on each track of an empty virtual disk file. It also contains
           an option to format an empty virtual disk file for use as a 2305 paging
           device.  Assemble with COPY:CC.MACROS (1054/3) and the Virtual I/O macros
           (1051/2). 
0          Referenced by comments of: 1051/19 
01051/019C  VIRTUAL I/O              PREFMT          OC  O          TMTS:VDVPREFMT(1,999)                                           
            5.0T3  1330  VIRTUAL_I/O.PREFMT.OC.019          1 LINE     80    3 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:48:12
            5.0T9   186                       
0          Object for (1051/18). Must be run along with (1051/1) and the DSP library
           (1041/1). Requires COPY:CCSYMBOL (579/9).
0          Referenced by comments of: 1051/14 
01051/020C  VIRTUAL I/O              3270 SLAVE      SA  G          TMTS:VDV3270SLAVE(1000)                                         
            5.0T3  1331  VIRTUAL_I/O.3270_SLAVE.SA.020      1 LINE     72    9 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:48:13
            5.0T9   187                       
0          Companion program to (1051/4). See (1079/12) for description. This program
           talks over an intertask line to the virtual 3270 device in the virtual machine
           and simulates a 3270 using binary I/O to the *MSOURCE* device. Assemble using
           COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), the DSP macros (1041/9),
           the UBC Virtual Machine macros (1079/11), the Virtual I/O macros (1051/2),
           COPY:IT.MACROS (1081/6), and COPY:MISC.MACROS (728).  Copies
           COPY:IT.DSECTS (1081/4).
01051/021C  VIRTUAL I/O              3270 SLAVE      OC  G          TMTS:VDV3270SLAVE(1,999)                                        
            5.0T3  1332  VIRTUAL_I/O.3270_SLAVE.OC.021      1 LINE     80    8 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:48:18
            5.0T9   188                       
0          Requires the Virtual I/O routines (1051/1), the Subtasking Monitor (1058),
           the Resource Manager DSP library (1041/1), the CFM routine (1041/10), and
           COPY:CCSYMBOL (579/9).
1                                                                                               MON AUG 05/96   18:37:45   Page  711
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01052/001   PASCAL/UBC               COMPILER        SW  O          S1431 4.3T2 VLO FSNAME=PASCAL/UBC.COMPILER.SW.001(1)         460
            5.0T3  1333  PASCAL/UBC.COMPILER.SW.001         1 LINE     94  198 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:25:53
            5.0T9   189                       
0          This is the source for the UBC Pascal compiler. Subcomponent
           (1052/2) is an update to this source for three local changes.
           This component contains several copyright notices, but UBC places
           no special restrictions on its use other than those normally
           associated with distributions of MTS.
            
           Subcomponents (1052/11) and (1052/12) contain further information
           about how to install the system.
            
           Component (792/6) is a print file containing information about
           the changes to all the Pascal compilers available under UNSP at
           UM.
0          Referenced by comments of: 792/1, 792/6, 793/1, 799/1, 1052/3 
01052/002   PASCAL/UBC               COMPILER        UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.PASCAL.CDU                
            5.0T3  1334  PASCAL/UBC.COMPILER.UC.002         1 LINE     68    1 PAGE UBC  JOLLIFFE  UNSP      FEB. 25, 1980  09:52:52
            5.0T9   190                       
0          THE UM UPDATES TO THE COMPILER.
            
           THE NAME OF THE RUNTIME LIBRARY (1052/8) IS "UNSP:PAS.BC.LIB".
           THE NAME OF THE ERROR STATISTICS FILE (1052/10) IS "UNSP:PAS.BC.ERR".
           CALLS SNOOP IN UNSP:LIBRARY (685/2) TO RECORD USAGE IN THE FILE UNSP:STATS,
              IF IT EXISTS.
0          Referenced by comments of: 1052/1, 1052/3 
01052/003   PASCAL/UBC               COMPILER        OE  O          UNSP:PAS.BC                                                     
            5.0T3  1335  PASCAL/UBC.COMPILER.OE.003         1 LINE  32767   73 PAGE UBC  JOLLIFFE  UNSP      JULY 03, 1981  20:59:07
            5.0T9   191  UNSP:PAS.BC          
0          THIS IS THE LINKEDITED OBJECT OF THE PASCAL COMPILER (1052/1), WITH THE
           (1052/2) UPDATE APPLIED, AND THE RUNTIME SUPPORT LIBRARY (1052/8).
01052/004   PASCAL/UBC               MONITOR SRC     SA  O          S1367 UBC75 FSNAME=UBC_PASCAL.MON*SA.SA.003                 34  
            5.0T3  1336  PASCAL/UBC.MONITOR_SRC.SA.004      1 LINE     73   36 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:14:11
            5.0T9   192                       
0          THIS FILE CONTAINS THE RUNTIME LIBRARY ASSEMBLER SOURCE MODULES.
           THESE ROUTINES DO LOW LEVEL I/O AND PASCAL PROGRAM INITIALIZATION.
           THE OBJECT OF THIS SUBCOMPONENT IS IN THE (1052/8) LIBRARY.
0          Referenced by comments of: 1052/8 
01052/005A  PASCAL/UBC               MONITOR UPD     UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.MONITOR.CDU               
            5.0T3  1337  PASCAL/UBC.MONITOR_UPD.UC.005      1 LINE     63    1 PAGE UM   UNSP                APR. 24, 1980  03:59:22
            5.0T9   193                       
0           
1                                                                                               MON AUG 05/96   18:37:45   Page  712
0  Num   R       Component Name         Subname     Type G Seq ID 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          *********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           TIME LIMIT EXCEEDED IS NO LONGER A FATAL ERROR.
           *********************************************************************************
0          Referenced by comments of: 1052/8 
01052/006   PASCAL/UBC               LIB SRC         SW  O          S1431 4.3T2 VLO FSNAME=PASCAL/UBC.LIB_SRC.SW.006(1)          465
            5.0T3  1338  PASCAL/UBC.LIB_SRC.SW.006          1 LINE     94   14 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:25:17
            5.0T9   194                       
0          THIS FILE CONTAINS THE RUNTIME LIBRARY (1052/8) SOURCE MODULES, WRITTEN IN
           PASCAL.  MOST OF THE ROUTINES ARE HIGH LEVEL I/O ROUTINES.
0          Referenced by comments of: 1052/8 
01052/007   PASCAL/UBC               DEBUG SRC       SW  O          S1431 4.3T2 VLO FSNAME=PASCAL/UBC.DEBUG_SRC.SW.007(1)        466
            5.0T3  1339  PASCAL/UBC.DEBUG_SRC.SW.007        1 LINE     82   58 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:25:24
            5.0T9   195                       
0          THIS FILE CONTAINS THE SOURCE CODE, WRITTEN IN PASCAL, FOR THE PASCAL
           POST-MORTEM ANALYSIS (PMD) PACKAGE.
0          Referenced by comments of: 1052/8, 1052/9 
01052/008A  PASCAL/UBC               RUNTIME LIB     OL  O          UNSP:PAS.BC.LIB                                                 
            5.0T3  1340  PASCAL/UBC.RUNTIME_LIB.OL.008      1 LINE   5846   50 PAGE UBC  JOLLIFFE  UNSP      JULY 03, 1981  21:00:42
            5.0T9   196  UNSP:PAS.BC.LIB      
0          THIS IS THE PASCAL RUNTIME LIBRARY.  IT CONTAINS THE OBJECT OF (1052/4) WITH
           THE (1052/5) UPDATE APPLIED, (1052/6), AND (1052/7). COMPONENT (1052/12) CONTAINS
           COMMANDS TO ASSEMBLE THE LIBRARY.
0          Referenced by comments of: 799/2, 1052/2, 1052/3, 1052/4, 1052/6, 1052/9, 1052/12 
01052/009   PASCAL/UBC               DEBUG.LOAD      OC  O          UNSP:PAS.BC.DEBUG                                               
            5.0T3  1341  PASCAL/UBC.DEBUG.LOAD.OC.009       1 LINE     30    1 PAGE UBC  JOLLIFFE  UNSP      JULY 03, 1981  21:00:46
            5.0T9   197  UNSP:PAS.BC.DEBUG    
0          THIS FILE CONTAINS ONLY AN ENT RECORD AND A $CONTINUE WITH UNSP:PAS.BC.LIB
           RECORD. IT IS LOADED BY THE RUNTIME LIBRARY (1052/8) WHEN THE DEBUGGER
           (1052/7) IS CALLED.
01052/010   PASCAL/UBC               ERRORLOG        D              S1431 4.3T2 VLO FSNAME=PASCAL/UBC.ERRORLOG.D.010(1)          469
            5.0T3  1342  PASCAL/UBC.ERRORLOG.D.010          1 LINE     76    4 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:26:49
            5.0T9   198                       
0          IF THIS FILE IS CREATED WITH THE NAME 'UNSP:PAS.BC.ERR' AND WITH THE GIVEN
           FORMAT, THE COMPILER WILL RECORD STATISTICS ABOUT THE ERROR MESSAGES IT
           ISSUES. IF THE FILE DOESN'T EXIST, NO LOGGING IS DONE. AS DISTRIBUTED,
           THE ERROR COUNTS ARE ZERO.  THE LINE NUMBERS IN THIS FILE ARE IMPORTANT,
           SINCE IT ALSO CONTAINS THE TEXT OF THE ERROR MESSAGES IN THE NEGATIVE
           LINE NUMBER RANGE.
1                                                                                               MON AUG 05/96   18:37:45   Page  713
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1052/2 
01052/011   PASCAL/UBC               COMMENTS        P              S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.COMMENTS                  
            5.0T3  1343  PASCAL/UBC.COMMENTS.P.011          1 LINE     68    3 PAGE UBC  JOLLIFFE  UNSP      FEB. 10, 1980  17:43:44
            5.0T9   199                       
0          THIS FILE CONTAINS A DESCRIPTION OF SOME OF THE FILES ON THE PASCAL
           DISTRIBUTION TAPE RECEIVED FROM UBC.
0          Referenced by comments of: 1052/1 
01052/012   PASCAL/UBC               INSTALL         C              S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.INSTALL                   
            5.0T3  1344  PASCAL/UBC.INSTALL.C.012           1 LINE     79    3 PAGE UM   UNSP                DEC. 04, 1979  06:42:18
            5.0T9   200                       
0          THESE ARE THE MTS COMMANDS USED TO INSTALL PASCAL/UBC AT UM.  THERE ARE SOME
           INSTALLATION-DEPENDENCIES (LIKE TAPE RACK NUMBERS) WHICH WILL NEED TO BE
           CHANGED AT OTHER INSTALLATION. CONTAINS A $CONTINUE WITH UNSP:PAS.BC.LIB
           (1052/8) RECORD.
0          Referenced by comments of: 1052/1, 1052/8 
01052/013A  PASCAL/UBC               MANUAL          P              UNSP:PAS.BC.W                                                   
            5.0T3  1345  PASCAL/UBC.MANUAL.P.013            1 LINE     71   80 PAGE UBC  JOLLIFFE  UNSP      JULY 03, 1981  21:01:33
            5.0T9   201                       
0          "PASCAL/UBC USER'S GUIDE" (SEPT. 1979 EDITION).
01053/001  *NUMLIB                                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
01054/001A  CODING CONVENTIONS       D5.0 MASTER     SM  G          S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=CC_MACROS                   
            5.0T3  1346  CODING_CONVENTIONS.D5.0_M.SM.001   1 LINE     80  104 PAGE UM   MTS       MTA       AUG. 06, 1981  05:49:49
            5.0T9   202                       
0          BASE SOURCE FOR THE NEW MTS CODING CONVENTION MACRO LIBRARY.
            
           *******************************************************************************
           D5.0 version:
            
           This version of COPY:CC.MACROS uses R12 as the current stack pointer.  (This
           is the agreed-upon R12 AND R13 register convention.)
           Other changes were made, as well. See the comments in update file.
           *******************************************************************************
0          Referenced by comments of: 1054/3 
01054/002A  CODING CONVENTIONS       UPDATE          UC  G          MTS.:CCMACROSUPD                                                
            5.0T3  1347  CODING_CONVENTIONS.UPDATE.UC.002   1 LINE    106   33 PAGE UM   MTS       MTA       AUG. 06, 1981  05:49:51
            5.0T9   203                       
0          MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE.
           THE UPDATED SOURCE, WHEN RUN THROUGH *MACUTIL, WILL PRODUCE THE
           CURRENT MACRO LIBRARY (1054/3).
1                                                                                               MON AUG 05/96   18:37:45   Page  714
0  Num   R       Component Name         Subname     Type G Seq ID 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           
           All changes to the Coding Convention Macros should be made using *CDUPDATE
           (1036) and Mike Alexander at UM should be kept informed.
0          Referenced by comments of: 1054/3 
01054/003A  CODING CONVENTIONS       COPY:CC.MACROS  SM  G          COPY:CC.MACROS                                                  
            5.0T3  1348  CODING_CONVENTIONS.COPY:C.SM.003   1 LINE     72   63 PAGE UM   MTS       MTA       AUG. 06, 1981  05:49:57
            5.0T9   204  COPY:CC.MACROS       
0          THIS IS "COPY:CC.MACROS" WHICH IS PRODUCED BY *MACUTIL (738), USING AS INPUT
           THE OUTPUT FROM THE *CDUPDATE RUN OF (1054/2) AGAINST (1054/1).
0          Referenced by comments of: 42/1, 79/1, 101/1, 135/1, 198/1, 354/1, 354/5, 400/5, 400/14, 458/89, 464/1, 498/1,
                 513/1, 539/1, 540/27, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1, 648/1, 651/11, 677/1, 682/22, 686/1, 721/18,
                 724/1, 732/1, 769/1, 769/3, 769/5, 769/7, 769/9, 769/11, 769/13, 769/15, 769/20, 787/9, 787/11, 787/15,
                 787/17, 802/1, 806/1, 811/3, 818/1, 1023/1, 1023/3, 1041/2, 1041/3, 1041/4, 1041/5, 1041/6, 1041/7, 1041/10,
                 1041/12, 1051/3, 1051/4, 1051/5, 1051/6, 1051/7, 1051/8, 1051/9, 1051/10, 1051/11, 1051/12, 1051/13, 1051/14,
                 1051/15, 1051/16, 1051/18, 1051/20, 1054/2, 1058/1, 1058/2, 1058/3, 1058/4, 1058/5, 1058/6, 1058/7, 1058/8,
                 1058/10, 1058/12, 1058/17, 1067/2, 1070/3, 1079/2, 1079/3, 1079/4, 1079/5, 1079/6, 1079/7, 1079/8, 1079/9,
                 1079/10, 4000/1 
01054/004   CODING CONVENTIONS       WRITEUP         WF             MTA:CC.W                                                        
            5.0T3  1349  CODING_CONVENTIONS.WRITEU.WF.004   1 LINE     96   10 PAGE UM   MTS       MTA       AUG. 06, 1981  05:50:04
            5.0T9   205                       
0          WRITEUP DESCRIBING CODING CONVENTIONS MACROS.
01055/001   UBC FEP (PDP-11)                                      # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE UBC FRONT-END
           PROCESSOR SOFTWARE.
01056/001   MM                                                    # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE MESSAGE MULTIPLEXOR.
01057/001   UBC FEPDSR                                            # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE UBC FRONT-END
           PROCESSOR DSR.
01058/001A  SUBTASKING MONITOR       MNTR            SA  G          DMGR:MNTMNTR(1000)                                              
            5.0T3  1350  SUBTASKING_MONITOR.MNTR.SA.001     1 LINE     72   29 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:06
            5.0T9   206                       
0          Subtasking Monitor initialization and management routines. 
           Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 724/2, 724/3, 769/13, 769/24, 787/3, 787/13, 1041/1, 1051/1, 1051/17, 1051/21, 1058/9,
                 1079/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  715
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01058/002A  SUBTASKING MONITOR       WAIT            SA  G          DMGR:MNTWAIT(1000)                                              
            5.0T3  1351  SUBTASKING_MONITOR.WAIT.SA.002     1 LINE     72   25 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:16
            5.0T9   207                       
0          Subtasking Monitor wait routines. 
           Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and
           COPY:UC.MACROS (787/1).
0          Referenced by comments of: 1058/8, 1058/12 
01058/003A  SUBTASKING MONITOR       SERV            SA  G          DMGR:MNTSERV(1000)                                              
            5.0T3  1352  SUBTASKING_MONITOR.SERV.SA.003     1 LINE     72   13 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:23
            5.0T9   208                       
0          Subtasking Monitor service routines, including STRTIO, HALTIO, SENDIT, CNCLIT
           and DVSTAT. These routines may also be user in a non-monitor environment.
            
           Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and
           COPY:UC.MACROS (787/1).
01058/004A  SUBTASKING MONITOR       PRVI            SA  G          DMGR:MNTPRV(1000)                                               
            5.0T3  1353  SUBTASKING_MONITOR.PRVI.SA.004     1 LINE     72    4 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:26
            5.0T9   209                       
0          Pseudo-register vector initialization routine and LCSPR table. 
           Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and
           COPY:UC.MACROS (787/1).
01058/005A  SUBTASKING MONITOR       UNND            SA  G          DMGR:MNTUNND(1000)                                              
            5.0T3  1354  SUBTASKING_MONITOR.UNND.SA.005     1 LINE     72   12 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:29
            5.0T9   210                       
0          Subtasking Monitor routines to allocate/de-allocate real devices, and
           intertask networks and nodes. Also include are the routines to do
           this in an MTS environment.
            
           Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and
           COPY:UC.MACROS (787/1).
01058/006A  SUBTASKING MONITOR       ONUNIT          SA  G          DMGR:MNTONUNIT(1000)                                            
            5.0T3  1355  SUBTASKING_MONITOR.ONUNIT.SA.006   1 LINE     71    5 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:32
            5.0T9   211                       
0          Subtasking monitor routines to specify and invoke PGNT and MSG units.
            
           Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3).
01058/007A  SUBTASKING MONITOR       GSFS            SA  G          DMGR:MNTGTFR(1000)                                              
            5.0T3  1356  SUBTASKING_MONITOR.GSFS.SA.007     1 LINE     72   18 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:33
            5.0T9   212                       
0          Subtasking monitor space allocation/de-allocation routines.
           Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3).
1                                                                                               MON AUG 05/96   18:37:45   Page  716
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01058/008C  SUBTASKING MONITOR       MTS WAIT        SA  G          DMGR:MNTMTWAIT(000)                                             
            5.0T3  1357  SUBTASKING_MONITOR.MTS_WA.SA.008   1 LINE    137    3 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:38
            5.0T9   213                       
0          This is the MTS version of the RMWAIT routine, which is part of WAIT
           (1058/2). MTS WAIT needs to be loaded past the symbol 'ENDOFMTS' in order for
           ATTN and timer interrupts to occur. Since MTS suppresses all such interrupts
           below 'ENDOFMTS', a version of the monitor in real memory, segment 0, is
           mostly uninterruptable if it ever waits. Requires COPY:MNTR.MACROS (1058/19),
           COPY:CC.MACROS (1054/3), and COPY:MISC.MACROS (728).
0          Referenced by comments of: 1058/9 
01058/009A  SUBTASKING MONITOR       MONITOR OBJ     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UBC  BOWLER    HELFFRICH                        
0          The object for (1058/1) through (1058/8).  These are separate RAMROD decks
           of the same name as the source. Note that the object for (1058/8) must come
           after the RAMROD deck "MTS" in order to function properly.
           Object part of Resident System (468)
0          Referenced by comments of: 1058/18 
01058/010A  SUBTASKING MONITOR       MDUMP           SA  G          DMGR:MNTDUMP(1000)                                              
            5.0T3  1358  SUBTASKING_MONITOR.MDUMP.SA.010    1 LINE     73   10 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:39
            5.0T9   214                       
0          Routine to produce a formatted dump of subtasking monitor control blocks
           when running in an MTS environment.
            
           Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3).
01058/011A  SUBTASKING MONITOR       MDUMP           OC  G          DMGR:MNTDUMP(1,999)                                             
            5.0T3  1359  SUBTASKING_MONITOR.MDUMP.OC.011    1 LINE     80   11 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:41
            5.0T9   215                       
0          Referenced by comments of: 1058/18 
01058/012C  SUBTASKING MONITOR       SYNCH WAIT      SA  O          DMGR:MNTSYNCWAIT(1000)                                          
            5.0T3  1360  SUBTASKING_MONITOR.SYNCH.SA.012    1 LINE     72    6 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:43
            5.0T9   216                       
0          Monitor subroutines which can replace the asynchronous wait routines (1058/2)
           if synchronous operation is desired.  Doing this means the monitor need not
           be running, that is, MNTINIT or MNTMTSI need not be called.
           Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3).
01058/013C  SUBTASKING MONITOR       SYNCH WAIT      OC  O          DMGR:MNTSYNCWAIT(1,999)                                         
            5.0T3  1361  SUBTASKING_MONITOR.SYNCH.OC.013    1 LINE     80    4 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:45
            5.0T9   217                       
1                                                                                               MON AUG 05/96   18:37:45   Page  717
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01058/014C  SUBTASKING MONITOR       CHANGE LIST     P              DMGR:MNTNOTES                                                   
            5.0T3  1362  SUBTASKING_MONITOR.CHANGE.P.014    1 LINE     68   11 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:47
            5.0T9   218                       
0          Description of UM modifications to subtasking monitor.  This should be 
           consulted when comparing versions of the monitor, as it contains a
           very detailed list of changes and reasons for them.
0          Referenced by comments of: 1058/15 
01058/015A  SUBTASKING MONITOR       DOCUMENTATION   WF             DMGR:MNTWRITEUP.F                                               
            5.0T3  1363  SUBTASKING_MONITOR.DOCUME.WF.015   1 LINE     89   21 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:50
            5.0T9   219                       
0          A much revised, although unedited, writeup.  This still needs a lot of work,
           and has not been brought up-to-date. See (1058/14) for further differences.
           Requires COPY:JONMACLIBFMT (308/18).
01058/016A  SUBTASKING MONITOR       DOCUMENTATION   PF             DMGR:MNTWRITEUP                                                 
            5.0T3  1364  SUBTASKING_MONITOR.DOCUME.PF.016   1 LINE    133   37 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:56
            5.0T9   220                       
0          $COPYable writeup for the Subtasking Monitor.
01058/017C  SUBTASKING MONITOR       TEST PROGRAM    SA  G          DMGR:MNTTEST(1000)                                              
            5.0T3  1365  SUBTASKING_MONITOR.TEST_P.SA.017   1 LINE     71    6 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:50:59
            5.0T9   221                       
0          Test program for Subtasking Monitor.  It is strongly recommended that you
           run this program to assure yourself that the monitor is properly installed.
           Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3).
01058/018C  SUBTASKING MONITOR       TEST PROGRAM    OC  G          DMGR:MNTTEST(1,999)                                             
            5.0T3  1366  SUBTASKING_MONITOR.TEST_P.OC.018   1 LINE     80    7 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:51:02
            5.0T9   222                       
0          To use this, the object must be run along with (1058/11) and the resident
           system monitor object (1058/9).
01058/019A  SUBTASKING MONITOR       MNTR MACROS     SM  G          COPY:MNTR.MACROS                                                
            5.0T3  1367  SUBTASKING_MONITOR.MNTR_M.SM.019   1 LINE     73   23 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:51:04
            5.0T9   223  COPY:MNTR.MACROS     
0          The macros and copy sections associated with the Subtasking Monitor.
0          Referenced by comments of: 769/1, 769/3, 769/5, 769/7, 769/9, 769/11, 769/13, 769/20, 1041/2, 1041/3, 1041/4,
                 1041/5, 1041/6, 1041/7, 1041/10, 1041/12, 1051/16, 1051/20, 1058/1, 1058/2, 1058/3, 1058/4, 1058/5, 1058/6,
                 1058/7, 1058/8, 1058/10, 1058/12, 1058/17, 1079/2, 1079/3, 1079/4, 1079/5, 1079/6, 1079/7, 1079/8, 1079/10 
01059/001   GENERAL_TRANSLATOR                                    # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL
           TRANSLATING ROUTINE WHICH OBSOLETES *EBCASC, *ASCEBC, *BCDEBCD, AND *EBCBCD,
1                                                                                               MON AUG 05/96   18:37:45   Page  718
0  Num   R       Component Name         Subname     Type G Seq ID 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 WELL AS PROVIDING SOME NEW TRANSLATING FEATURES.
01060/001   FILE_CREATE                                           # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE
           TO ATTEMPT TO CREATE ONE OR MORE FILES AND TO CAUSE THE USER TO BE SIGNED
           OFF IF ANY OF THE FILE CREATE ATTEMPTS FAIL.
01061/001   PROFILE                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, ESTABLISHES DEFAULTS
           FROM A SIGFILE.
01062/001   UBC FEP INTERFACE                                     # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
01064/001   PDADSR                                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A RUDIMENTARY
           DSR WHICH WILL COMMUNICATE WITH UBC'S PDP-11 FEP OVER THE SINGLE-ADDRESS 2701
           INTERFACE.
01065/001   UBC FEP LOAD & DUMP                                   # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE ROM BOOTSTRAP
           LOADER FOR THE UBC PDP-11S.
01066/001   SWAT                                                  # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE MTS
           DEBUGGING MONITOR.
01067/001A  TAPESHARE                MAIN PGM        SA  G          S1237 TAPES 'TAPEFS' FSNAME=TAPESHARE                           
            5.0T3  1368  TAPESHARE.MAIN_PGM.SA.001          1 LINE     80    5 PAGE UBC  WHALEY    UNSP      MAY  06, 1980  13:19:56
            5.0T9   224                       
0          PROGRAM TO ALLOW USERS TO CONTROL WHICH OF THEIR TAPES CAN BE READ FROM, OR
           OPTIONALLY WRITTEN ON, BY OTHER USERS. THIS UM VERSION OF TAPESHARE PARSES
           RACK NAMES BY USING THE INITIAL NON-NUMERIC PART OF THE NAME (PREFIXED BY
           "ETC.:TAPE") AS THE NAME OF A FILE WHICH CONTAINS THE DATA INDICATING TAPE
           ACCESS RESTRICTIONS. FOR EXAMPLE, FOR RACK NAME "C1000" TAPESHARE WILL ACCESS
           FILE ETC.:TAPEC TO SEE IF C1000 CAN BE MOUNTED BY THE REQUESTING USER (AND IN
           WHAT WAY). IF THE FILE IN QUESTION DOES NOT EXIST (NO SUCH FILES EXIST ON THE
           DISTRIBUTED TEST PACK), THEN ACCESS TO THE TAPE IS ALWAYS ALLOWED. IF THE
           FILE DOES EXIST, BUT IS NOT ACCESSIBLE BY THE USER TRYING TO MOUNT THE TAPE,
           THEN THE MOUNT IS NOT ALLOWED.
            
           THE MAIN PROGRAM CALLS TSHARESUB (1067/2). COPIES *GDINFODSECT (594).
            
1                                                                                               MON AUG 05/96   18:37:45   Page  719
0  Num   R       Component Name         Subname     Type G Seq ID 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          **********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CHANGED FOR GR12 <-> GR13 CCMACROS CHANGE.
           **********************************************************************************
0          Referenced by comments of: 1067/4 
01067/002A  TAPESHARE                TSHARESUB       SA  G          S1237 TAPES 'TAPEFS' FSNAME=TSHARESUB                           
            5.0T3  1369  TAPESHARE.TSHARESUB.SA.002         1 LINE     73   44 PAGE UBC  WHALEY    UNSP      MAY  06, 1980  13:19:10
            5.0T9   225                       
0          SUBROUTINE THAT DOES MOST OF THE WORK.  INSTALLATIONS MAY WANT TO CHANGE
           THE FOLLOWING THINGS BEFORE USING:
            
             1) LIST OF PRIVILEGED IDS
             2) "PRJNO" AND "P" MIGHT BE CHANGED TO "DEPT"
                AND "D"
            
           ASSEMBLE USING COPY:CC.MACROS (1054/3).
            
           **********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           CHANGED FOR GR12 <-> GR13 CCMACROS CHANGE.
           **********************************************************************************
0          Referenced by comments of: 1067/1, 1067/4 
01067/003   TAPESHARE                ATTNQ           SA  G          S1237 TAPES 'TAPEFS' FSNAME=TS.ATTNQ                            
            5.0T3  1370  TAPESHARE.ATTNQ.SA.003             1 LINE     80    2 PAGE UBC  WHALEY    UNSP      DEC. 22, 1978  13:26:17
            5.0T9   226                       
0          ATTENTION TRAPPING ROUTINES FOR USE BY INSTALLATIONS WHICH DO NOT HAVE UBC'S
           ATTNQ, ATTNTEST, AND ATTNNOQ. SOURCE IN LINES 1,999.
0          Referenced by comments of: 1067/4 
01067/004A  TAPESHARE                                OE  G          UNSP:TAPESHARE                                                  
            5.0T3  1371  TAPESHARE..OE.004                  1 LINE  14788    5 PAGE UBC  WHALEY    UNSP      JULY 03, 1981  21:04:10
            5.0T9   227  UNSP:TAPESHARE       
0          LINKEDITED OBJECT OF TAPESHARE (1067/1), TSHARESUB (1067/2), AND ATTNQ
           (1067/3).
0          Referenced by comments of: 1067/8 
01067/005A  TAPESHARE                CHECK SUBR      SA  G          S1237 TAPES 'TAPEFS' FSNAME=TSCHECK                             
            5.0T3  1372  TAPESHARE.CHECK_SUBR.SA.005        1 LINE     80    6 PAGE UBC  WHALEY    UNSP      AUG. 19, 1980  12:19:48
            5.0T9   228                       
0          SUBROUTINE CALLED BY MOUNT (101) TO CHECK ACCESS TO A TAPE.  MOUNT HAS A
           WXTRN FOR IT.  OBJECT IS IN *CLSMOUNT(101/2).  ASSEMBLE USING COPY:MTS.MACROS
           (344/3).
1                                                                                               MON AUG 05/96   18:37:45   Page  720
0  Num   R       Component Name         Subname     Type G Seq ID 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           
           ***************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           FIXED BUG IN GETSPACE CALL.
           ***************************************************************************
0          Referenced by comments of: 101/1, 101/2, 101/3 
01067/006A  TAPESHARE                CHECK SUBR      OC  G        # (PART OF *CLSMOUNT)                                             
                                                                                    UBC  WHALEY    UNSP                             
0          Part of *CLSMOUNT (101/2)
01067/007   TAPESHARE                TSHELP          D              ETC:TSHELP                                                      
            5.0T3  1373  TAPESHARE.TSHELP.D.007             1 LINE     70    3 PAGE UBC  WHALEY    UNSP      JULY 03, 1981  21:04:16
            5.0T9   229  ETC.:TSHELP          
0          TEXT FOR TAPESHARE'S HELP COMMAND.
01067/008   TAPESHARE                TSHAREID        D            # ETC.:TSHAREID                                                   
                                                                                    UBC  WHALEY    UNSP                             
                         ETC.:TSHAREID@E      
0          DATA FILE USED BY UNSP:TAPESHARE (1067/4) WHICH LISTS THE TAPES OWNED BY EACH USER.
           THIS FILE IS EMPTY ON THE TEST PACK, WHICH MEANS THAT THERE ARE NO TAPES
           OWNED BY ANYBODY AND IF TAPES ARE ADDED, THE CORRESPONDING ETC:TAPEx FILE(S)
           MUST BE CREATED FIRST. USER ID "MTS." MAY BE USED TO PERFORM SUCH TAPE
           LIBRARIAN FUNCTIONS.
01067/009   TAPESHARE                TSMANUAL        P              S1237 TAPES 'TAPEFS' FSNAME=TS.LIBRMANUAL                       
            5.0T3  1374  TAPESHARE.TSMANUAL.P.009           1 LINE     76    4 PAGE UBC  WHALEY    UNSP      DEC. 22, 1978  13:03:50
            5.0T9   230                       
0          TAPESHARE MANUAL FOR TAPE LIBRARIAN. INCLUDES PRIVILEGED COMMANDS.
01067/010   TAPESHARE                WRITEUP         WT             S1237 TAPES 'TAPEFS' FSNAME=TS.V2WRITEUP                        
            5.0T3  1375  TAPESHARE.WRITEUP.WT.010           1 LINE     71    3 PAGE UBC  WHALEY    UNSP      JULY 02, 1979  22:14:34
            5.0T9   231                       
0          VOLUME 2 STYLE USER WRITEUP.
01067/011   TAPESHARE                WRITEUP         PT             UNSP:TAPESHARE.W                                                
            5.0T3  1376  TAPESHARE.WRITEUP.PT.011           1 LINE     84    4 PAGE UBC  WHALEY    UNSP      JULY 03, 1981  21:04:26
            5.0T9   232  UNSP:TAPESHARE.W     
01067/012A  TAPESHARE                *TSH            C              *TSH                                                            
            5.0T3  1377  TAPESHARE.*TSH.C.012               1 LINE     68    1 PAGE UBC  WHALEY    UNSP      JULY 03, 1981  21:04:28
            5.0T9   233  *TSH                 
0          OPERATOR FILE TO RUN UNSP:TAPESHARE.  INVOKED BY ENTERING "MTS *TSH"
           ON OPERATORS CONSOLE.
1                                                                                               MON AUG 05/96   18:37:45   Page  721
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01069/001   FAKE MM                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS A UTILITY WRITTEN TO
           TEST THE UBC FEP PROTOCOL.
01070/001C  SYSTEM TIMETALLY         TTTABLES        SA  G          MTS:TTTABLES(1,999)                                             
            5.0T3  1378  SYSTEM_TIMETALLY.TTTABLES.SA.001   1 LINE     68    1 PAGE UM   OGDEN               JULY 03, 1981  21:04:29
            5.0T9   234  MTS:TTTABLES         
0          Fixed storage and tables describing the timetally bins.  Used by CONFIG
           (046) and UMMPS (045) if &TTALLY=1 in COPY:GLOBALSETS (1026/2). 
            
           **************************************************************************
           D5.0 version:
            
           This version is based on the UBC Supervisor timetally, but not much is
           really common between the two.
           **************************************************************************
01070/002C  SYSTEM TIMETALLY         TTTABLES        OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   OGDEN                                      
0          May be removed from the resident system even if CONFIG (046) and UMMPS
           (045) are assembled with &TTALLY=1.
           Object part of Resident System (468)
01070/003C  SYSTEM TIMETALLY         TTPRINT         SA  O          MTS:TTPRINT(1000)                                               
            5.0T3  1379  SYSTEM_TIMETALLY.TTPRINT.SA.003    1 LINE     73    4 PAGE UM   OGDEN               JULY 03, 1981  21:04:29
            5.0T9   235                       
0          Program to print the results of the system timetally.  Requires an object
           deck produced by TTMAP (1070/5). Requires COPY:UMMPS.MACROS (045/14), 
           COPY:MTS.MACROS (344/3), and COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 1070/5 
01070/004C  SYSTEM TIMETALLY         TTPRINT         OC  O          MTS:TTPRINT(1,999)                                              
            5.0T3  1380  SYSTEM_TIMETALLY.TTPRINT.OC.004    1 LINE     80    5 PAGE UM   OGDEN               JULY 03, 1981  21:04:31
            5.0T9   236  MTS:TTPRINT          
0          Contains a $CONTINUE WITH COPY:CCSYMBOL+COPY:SYSDEFS reference to (579/9)
           and (579/3).
01070/005C  SYSTEM TIMETALLY         TTMAP           SS  G          MTS:TTMAP(1000)                                                 
            5.0T3  1381  SYSTEM_TIMETALLY.TTMAP.SS.005      1 LINE     68    1 PAGE UM   OGDEN               JULY 03, 1981  21:04:33
            5.0T9   237                       
0          Program to read SEG2:S2MAP (559/10) and produce an object file for use with
           TTPRINT (1070/3).  Uses *SPITDEBUG (590/9) and the ITS routine from
           UNSP:SPITLIB (590/30).
0          Referenced by comments of: 1070/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  722
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01070/006C  SYSTEM TIMETALLY         TTMAP           OC  G          MTS:TTMAP(1,999)                                                
            5.0T3  1382  SYSTEM_TIMETALLY.TTMAP.OC.006      1 LINE     80   11 PAGE UM   OGDEN               JULY 03, 1981  21:04:35
            5.0T9   238  MTS:TTMAP            
0          Contains a $CONTINUE WITH *SPITLIB (590/10).
01070/007C  SYSTEM TIMETALLY         TTRESULTS       P              S0683 OGDEN FSNAME=TTRESULTS                                    
            5.0T3  1383  SYSTEM_TIMETALLY.TTRESULT.P.007    1 LINE    122   95 PAGE UM   OGDEN               MAR. 28, 1981  00:25:47
            5.0T9   239                       
0          Sample results from the system timetally at UM.
01071/001   3066_JOB                                              # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
01072/001   UBC TAPE CATALOGUE                                    # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
01073/001   SENSE.DATA.INTERPRETER                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
01074/001   DYNAMIC_STORAGE                                       # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
01075/001   TAPE_REPORT                                           # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
01076/001A  MTS/SPIRES PARSER        ANALYZER        OE  O          PLUS:ANALYZER                                                   
            5.0T3  1384  MTS/SPIRES_PARSER.ANALYZE.OE.001   1 LINE  32767   14 PAGE UBC  BALLARD   HANSEN    JULY 03, 1981  21:04:41
            5.0T9   240                       
0          This is complete, linkeditted Analyzer.
           It is a replacement for the Spires analyzer. The input language
           processed is completely different.
            
           The program contains a reference to the file
           CODE:ANAL.SYSTERM (1076/2). This is a directory defining the 
           system terminals that are to be recognized.  The reference can
           be changed with the editor. 
            
           The complete object consists of:
            
               PLUS object from ANALYZER*SQ  (1076/3)
               ANALYZER object for Analyzer grammar (1076/5)
               parser routines from PARSER*OL (1076/6) (INCLUDE@SLI) 
               object module building routines (1042/56)  (INCLUDE@SLI) 
               auxiliary table management rtns (1042/73)  (INCLUDE@SLI)
               NEW:PLUS.OBJLIB  (1042/50)  (INCLUDE@SLI)
0          Referenced by comments of: 498/116, 774/4, 810/14, 821/4, 821/6, 821/7, 1042/54, 1042/72, 1042/80, 1042/103, 1076/3 
1                                                                                               MON AUG 05/96   18:37:45   Page  723
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01076/002A  MTS/SPIRES PARSER        SYS TERMINALS   D              PLUS:ANAL.SYSTERM                                               
            5.0T3  1385  MTS/SPIRES_PARSER.SYS_TER.D.002    1 LINE     33    1 PAGE UBC  BALLARD   HANSEN    JULY 03, 1981  21:04:42
            5.0T9   241                       
0          This file is read by the Analyzer during initialization to define
           the names and corresponding numbers for the currently allowed
           system terminals. 
            
           It contains simply a series of PLUS constant declarations.  These 
           declarations are the goal symbol definitions generated by the Analyzer
           from the grammar defining the syntax of system terminals (1076/10). 
            
0          Referenced by comments of: 1076/1, 1076/10 
01076/003   MTS/SPIRES PARSER        ANALYZER SRC    SQ  O          S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.ANALYZE.S+.003(1)   498
            5.0T3  1386  MTS/SPIRES_PARSER.ANALYZE.SQ.003   1 LINE     75   18 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:15
            5.0T9   242                       
0          PLUS source for the Analyzer. 
            
           Compile this with the following libraries (concatenate together on unit 0):
              PARSER*SQL (1076/9)
              PLUS:OBJRTNS*SL (1042/55)
              PLUS:UTILITY*SL (1042/73)
              NEW:PLUS.SOURCEL  (1042/4)
            
           See (1076/1) for description of all the pieces that make up the
           Analyzer. 
0          Referenced by comments of: 1076/1 
01076/004   MTS/SPIRES PARSER        GRAMMAR         S   O          S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.GRAMMAR.S.004(1)    499
            5.0T3  1387  MTS/SPIRES_PARSER.GRAMMAR.S.004    1 LINE    107    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:19
            5.0T9   243                       
0          Grammar (input to the Analyzer) defining the 
           analyzer input language. 
            
           The grammar defines three goals, used for parsing
           the "system terminals directory", the PAR field from the RUN command, 
           and the actual input grammar. 
01076/005   MTS/SPIRES PARSER        GRAMMAR OBJ     OE  O          S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.GRAMMAR.OC.005(1)   500
            5.0T3  1388  MTS/SPIRES_PARSER.GRAMMAR.OE.005   1 LINE   1431    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:23
            5.0T9   244                       
0          Object code generated by current version of the Analyzer from the 
           current Analyzer grammar. 
0          Referenced by comments of: 1076/1 
1                                                                                               MON AUG 05/96   18:37:45   Page  724
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01076/006A  MTS/SPIRES PARSER        PARSER          OL  G          PLUS:PARSER.OL                                                  
            5.0T4   571  MTS/SPIRES_PARSER.PARSER.OL.006    1 LINE   3262   12 PAGE UBC  BALLARD   HANSEN    AUG. 10, 1981  00:10:03
            5.0T11  145  PLUS:PARSER.OL       
0          A COPY OF UBC'S PARSER OBJECT LIBRARY WITH A FEW BUGS FIXED AND FILE NAMES CHANGED
           FOR UM INSTALLATION.
0          Referenced by comments of: 461/5, 461/7, 498/123, 821/11, 1042/81, 1076/1 
01076/007A  MTS/SPIRES PARSER        PARSER HELP     D              PLUS:PARSE.HELP                                                 
            5.0T3  1389  MTS/SPIRES_PARSER.PARSER.D.007     1 LINE     71    1 PAGE UBC  BALLARD   HANSEN    JULY 03, 1981  21:04:50
            5.0T9   245  PLUS:PARSER.HELP     
0          This is a help file used by the parser in responding
           to HELP requests during the built-in error correction 
           process. 
            
0          Referenced by comments of: 1076/8, 1076/14, 1076/15 
01076/008A  MTS/SPIRES PARSER        PARSER SRC      SQ  G          PLUS:PARSER.SQ                                                  
            5.0T3  1390  MTS/SPIRES_PARSER.PARSER.SQ.008    1 LINE    101   24 PAGE UBC  BALLARD   HANSEN    JULY 03, 1981  21:04:50
            5.0T9   246                       
0          A COPY OF UBC'S PARSER WITH A FEW BUGS FIXED.  REFERS TO PLUS:PARSE.HELP (1076/7).
0          Referenced by comments of: 1076/10, 1076/14 
01076/009   MTS/SPIRES PARSER        PARSER LIB      SQ  O          S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.PARSER.S+.009(1)    504
            5.0T3  1391  MTS/SPIRES_PARSER.PARSER.SQ.009    1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:38
            5.0T9   247                       
0          This is a PLUS source library containing the definitions of 
           the various parser routines and types. 
            
           It is required to compile the parser, and any PLUS program 
           using the parser. 
0          Referenced by comments of: 1036/2, 1076/3, 1076/14 
01076/010   MTS/SPIRES PARSER        SYS TERMINALS   S   O          S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.SYS_TER.S.010(1)    505
            5.0T3  1392  MTS/SPIRES_PARSER.SYS_TER.S.010    1 LINE     92    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:42
            5.0T9   248                       
0          This is the grammar which defines the currently implemented system
           terminals. 
           The object produced by the analyzer for this grammar is added to 
           the parser library, in effect forming part of the parser. 
           The semantics for these terminals are in the procedure 
           System_Semantics in (1076/8).
            
           Note that the declarations produced by the Analyzer from this 
           grammar are inserted in (1076/8), and that a copy of the
           constant declarations is placed in (1076/2) to define
1                                                                                               MON AUG 05/96   18:37:45   Page  725
0  Num   R       Component Name         Subname     Type G Seq ID 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 system terminals to the Analyzer. 
            
0          Referenced by comments of: 1076/2, 1076/11 
01076/011   MTS/SPIRES PARSER        SYS TERMINALS   OE  O          S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.SYS_TER.OC.011(1)   506
            5.0T3  1393  MTS/SPIRES_PARSER.SYS_TER.OE.011   1 LINE    660    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:45
            5.0T9   249                       
0          Object generated by Analyzer for the system terminals grammar (1076/10).
01076/012   MTS/SPIRES PARSER        WRITEUP         WX             S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.WRITEUP.WX.012(1)   507
            5.0T3  1394  MTS/SPIRES_PARSER.WRITEUP.WX.012   1 LINE    114   26 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:48
            5.0T9   250                       
0          Textform source for writeup on the parser. 
            
           Note file contains $CONTINUE WITH TXTF:TXTF.PROLOG
           which must be changed for use elsewhere. 
           (TXTF.PROLOG is distributed by Michigan as UNSP:JONMACLIBTXT (3018/174).
            
           Ignore the large number of error messages generated when this is run 
           through Textform. 
01076/013   MTS/SPIRES PARSER        WRITEUP         PX             S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.WRITEUP.PX.013(1)   508
            5.0T3  1395  MTS/SPIRES_PARSER.WRITEUP.PX.013   1 LINE     79   35 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:53
            5.0T9   251                       
0          $COPYable form of parser writeup.  Allow 60 pages, TN printer. 
01076/014C  MTS/SPIRES PARSER        CLS SOURCE      SQ  O          PLUS:CLSPARSER.SQ                                               
            5.0T3  1396  MTS/SPIRES_PARSER.CLS_SOU.SQ.014   1 LINE    101   24 PAGE UM   HANSEN              JULY 03, 1981  21:04:57
            5.0T9   252                       
0          Similar to (1076/8), but modified to be compiled with the CLS version of the
           PLUS source library (1042/107).  Refers to PLUS:PARSE.HELP (1076/7).  Compile 
           with parser library (1076/9).
0          Referenced by comments of: 1076/15 
01076/015C  MTS/SPIRES PARSER        CLS OBJECT      OL  O          PLUS:CLSPARSER.OL                                               
            5.0T3  1397  MTS/SPIRES_PARSER.CLS_OBJ.OL.015   1 LINE   3282   13 PAGE UM   HANSEN              JULY 03, 1981  21:05:00
            5.0T9   253                       
0          Object library generated from (1076/14).  Refers to PLUS:PARSE.HELP (1076/7).
0          Referenced by comments of: 810/5, 810/18 
01077/001A  SETUP                    SOURCE          SQ  G          S1153 UNSP VLO FSNAME=SIGSETUP.PLUS                             
            5.0T3  1398  SETUP.SOURCE.SQ.001                1 LINE    121   22 PAGE UBC  BALLARD   UNSP      SEP. 19, 1980  13:01:02
            5.0T9   254                       
0          PROGRAM FOR SELECTIVE EXECUTION OF MTS COMMANDS AND DEVICE COMMANDS (OF MOST
           USE IN SIGFILES).  COMMANDS IN LINES 0 THROUGH 0.9 INDICATE HOW THIS COMPONENT
1                                                                                               MON AUG 05/96   18:37:45   Page  726
0  Num   R       Component Name         Subname     Type G Seq ID 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          SHOULD BE INSTALLED.
            
           NEEDS GRAMMAR (1077/3) AND THE PLUS SUPERVISOR LIBRARY (1042/75).
            
           ***********************************************************************************
           D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A:
            
           THE D4.3A CHANGES WERE ADDED BY RICK BLOCK (UM) TO ADD FUNCTIONS FOR GFINFO
           ITEMS, E.G., "EMPTY(FILE)" AND "LASTCHANGE(FILE)".
           ***********************************************************************************
01077/002A  SETUP                    OBJECT          OE  G          UNSP:SIGSETUP                                                   
            5.0T3  1399  SETUP.OBJECT.OE.002                1 LINE  32767   11 PAGE UBC  BALLARD   UNSP      JULY 03, 1981  21:05:11
            5.0T9   255  UNSP:SIGSETUP        
0          CONTAINS A "$CONTINUE WITH *LIBRARY" RECORD.
01077/003A  SETUP                    GRAMMAR         D              S1153 UNSP VLO FSNAME=SIGSETUP.GRAMMER                          
            5.0T3  1400  SETUP.GRAMMAR.D.003                1 LINE    100    3 PAGE UBC  BALLARD   UNSP      SEP. 19, 1980  13:01:54
            5.0T9   256                       
0          Referenced by comments of: 1077/1 
01077/004A  SETUP                    WRITEUP         WF             S1153 UNSP VLO FSNAME=SIGSETUP.F                                
            5.0T3  1401  SETUP.WRITEUP.WF.004               1 LINE     99    5 PAGE UBC  BALLARD   UNSP      AUG. 12, 1980  16:51:17
            5.0T9   257                       
0          Requires COPY:JONMACLIBFMT (308/18).
01077/005C  SETUP                    EXAMPLE         D              UNSP:SIGSETUP.EX                                                
            5.0T3  1402  SETUP.EXAMPLE.D.005                1 LINE     66    1 PAGE UM   UNSP                JULY 03, 1981  21:05:17
            5.0T9   258                       
01078/001C *VSS                      MAIN            UC  O          S1472 RPI02 VLO FSNAME=VSS.MAIN.UC.002(1)                     51
            5.0T4   572  VSS.MAIN.UC.001                    1 LINE     72    5 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:33
            5.0T11  146                       
0          This version of VSS is based on the version in the RPI section of
           D4.3A with modifications made at UM.  Most components have two 
           update decks, NEITHER of which is an "official" update to VSS.
           These changes are being merged into the official version by UBC, but
           will not be ready in time for D5.0.  Since several components on 
           D5.0 require a version of VSS, this unofficial version is being
           distributed.  It will be superceeded later by an official version.
            
           + Updates to VSS MAIN routine, still based on UBC Dec/79 source
           +  (also included). Includes a few minor fixes since the version
           +  available at the Workshop.
           + 
           + Assemble this, and other VSS components, with:
           +  2=COPY:STANDARD.NEW (or any CC macros with the R12/R13 switch)
           +  3=VSS.:VSS.M    (1078/025)+(1078/26)+(1078/35)
           +  4=V370:DFS.M    (1078/024)
           +  5=V370:XCP.M    (1078/027)
1                                                                                               MON AUG 05/96   18:37:45   Page  727
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          +  6=VSS.:VSMAC    (1078/028)
0          Referenced by comments of: 291/1, 545/36, 655/3, 820/1, 820/2, 823/1, 823/36, 823/37, 823/38, 823/39, 823/40,
                 823/41, 823/42, 824/2, 824/3, 824/6, 1051/1, 1078/29 
01078/002C *VSS                      COMMANDS        UC  O          S1472 RPI02 VLO FSNAME=VSS.COMMANDS.UC.003(1)                 52
            5.0T4   573  VSS.COMMANDS.UC.002                1 LINE     78    5 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:35
            5.0T11  147                       
0          + Updates to VSS CoMmanDS interpreter.
0          Referenced by comments of: 1078/30 
01078/003C *VSS                      SERV            UC  O          S1472 RPI02 VLO FSNAME=VSS.SERV.UC.004(1)                     53
            5.0T4   574  VSS.SERV.UC.003                    1 LINE     74   16 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:37
            5.0T11  148                       
0          + Updates to VSS SERVice routines.
0          Referenced by comments of: 1078/31 
01078/004C *VSS                      SVCS            UC  O          S1472 RPI02 VLO FSNAME=VSS.SVCS.UC.005(1)                     54
            5.0T4   575  VSS.SVCS.UC.004                    1 LINE     75   17 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:40
            5.0T11  149                       
0          + Updates to VSS SVC simulation.
0          Referenced by comments of: 1078/32 
01078/005C *VSS                      BDAM            UC  O          S1472 RPI02 VLO FSNAME=VSS.BDAM.UC.006(1)                     55
            5.0T4   576  VSS.BDAM.UC.005                    1 LINE     72    3 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:41
            5.0T11  150                       
0          + Update to VSS BDAM simulation.
           + Should be unchanged since version available at the Workshop.
01078/006C *VSS                      QSAM            UC  O          S1472 RPI02 VLO FSNAME=VSS.QSAM.UC.007(1)                     56
            5.0T4   577  VSS.QSAM.UC.006                    1 LINE     74    9 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:42
            5.0T11  151                       
0          + Updates to VSS QSAM simulation.
01078/007C *VSS                      BSAM            UC  O          S1472 RPI02 VLO FSNAME=VSS.BSAM.UC.008(1)                     57
            5.0T4   578  VSS.BSAM.UC.007                    1 LINE     75    4 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:45
            5.0T11  152                       
0          + Updates to VSS BSAM support.
           + Should be unchanged since the version available at the Workshop.
0          Referenced by comments of: 1078/33 
1                                                                                               MON AUG 05/96   18:37:45   Page  728
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01078/008C *VSS                      RESIDENT RTNS   UC  O          S1472 RPI02 VLO FSNAME=VSS.RESIDENT_RTNS.UC.009(1)            58
            5.0T4   579  VSS.RESIDENT_RTNS.UC.008           1 LINE     71    2 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:46
            5.0T11  153                       
0          + Update to VSS RESident Routines.
0          Referenced by comments of: 1078/34 
01078/009C *VSS                      KEYS            UC  O          S1472 RPI02 VLO FSNAME=VSS.KEYS.UC.012(1)                     59
            5.0T4   580  VSS.KEYS.UC.009                    1 LINE     78   12 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:47
            5.0T11  154                       
0          + Update to KEYed-file routines. Should be identical to that available
           +  at the Workshop.
            
           NOTE: Although this claims to be an update to the KEYS routine,
           it came from a file called VSS:VSSISAM.UC at RPI, which is the 
           same file that the ISAM update (1078/10) came from.  Beware.
01078/010C *VSS                      ISAM            UC  O          S1472 RPI02 VLO FSNAME=VSS.ISAM.UC.022(1)                     61
            5.0T4   581  VSS.ISAM.UC.010                    1 LINE     78   12 PAGE RPI  MCKENNEY  MTA       SEP. 10, 1980  10:41:50
            5.0T11  155                       
0          + Update to ISAM simulation.
0          Referenced by comments of: 1078/9 
01078/011C *VSS                      MAIN            SA  O          S1472 RPI02 VLO FSNAME=VSS.MAIN.SA.052(1)                     62
            5.0T4   582  VSS.MAIN.SA.011                    1 LINE     72   17 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:51
            5.0T11  156                       
0          + The following source decks are from UBC in Dec/79,
           + (the same as those available at the Workshop), on which
           + all the above updates are based.
01078/012C *VSS                      COMMANDS        SA  O          S1472 RPI02 VLO FSNAME=VSS.COMMANDS.SA.053(1)                 63
            5.0T4   583  VSS.COMMANDS.SA.012                1 LINE     77   46 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:53
            5.0T11  157                       
01078/013C *VSS                      SERV            SA  O          S1472 RPI02 VLO FSNAME=VSS.SERV.SA.054(1)                     64
            5.0T4   584  VSS.SERV.SA.013                    1 LINE     72   47 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:41:57
            5.0T11  158                       
01078/014C *VSS                      SVCS            SA  O          S1472 RPI02 VLO FSNAME=VSS.SVCS.SA.055(1)                     65
            5.0T4   585  VSS.SVCS.SA.014                    1 LINE     73   75 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:01
            5.0T11  159                       
01078/015C *VSS                      BDAM            SA  O          S1472 RPI02 VLO FSNAME=VSS.BDAM.SA.056(1)                     66
            5.0T4   586  VSS.BDAM.SA.015                    1 LINE     71    9 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:07
            5.0T11  160                       
1                                                                                               MON AUG 05/96   18:37:45   Page  729
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01078/016C *VSS                      QSAM            SA  O          S1472 RPI02 VLO FSNAME=VSS.QSAM.SA.057(1)                     67
            5.0T4   587  VSS.QSAM.SA.016                    1 LINE     72   11 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:08
            5.0T11  161                       
01078/017C *VSS                      BSAM            SA  O          S1472 RPI02 VLO FSNAME=VSS.BSAM.SA.058(1)                     68
            5.0T4   588  VSS.BSAM.SA.017                    1 LINE     74   12 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:09
            5.0T11  162                       
01078/018C *VSS                      RESIDENT ROUTI  SA  O          S1472 RPI02 VLO FSNAME=VSS.RESIDENT_ROUTI.SA.059(1)           69
            5.0T4   589  VSS.RESIDENT_ROUTI.SA.018          1 LINE     68    4 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:10
            5.0T11  163                       
01078/019C *VSS                      KEYS            SA  O          S1472 RPI02 VLO FSNAME=VSS.KEYS.SA.062(1)                     72
            5.0T4   590  VSS.KEYS.SA.019                    1 LINE     72   16 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:23
            5.0T11  164                       
0          + Dec/79 source for VSS Keyed-file routines used by ISAM support.
           ASDFASDF
01078/020C *VSS                      ISAM            SA  O          S1472 RPI02 VLO FSNAME=VSS.ISAM.SA.072(1)                     76
            5.0T4   591  VSS.ISAM.SA.020                    1 LINE     72    9 PAGE RPI  MCKENNEY  MTA       SEP. 10, 1980  10:42:31
            5.0T11  165                       
0          + (B)ISAM simulation - OPEN, READ/WRITE, SETL, ESETL.
01078/021C *VSS                      XCP             SA  O          S1472 RPI02 VLO FSNAME=VSS.XCP.SA.060(1)                      70
            5.0T4   592  VSS.XCP.SA.021                     1 LINE     72   34 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:11
            5.0T11  166                       
0          + Virtual channel. (May have changed component number since RD16.)
           + Same as that available at the Workshop. NOT the same as that 
           + distributed by UBC in May/80 (Maybe someday...);
           + but distributed under this component since this version is the
           + one VSS still expects.
0          Referenced by comments of: 1078/23, 1078/27 
01078/022C *VSS                      DISK SIM        SA  O          S1472 RPI02 VLO FSNAME=VSS.DISK_SIM.SA.061(1)                 71
            5.0T4   593  VSS.DISK_SIM.SA.022                1 LINE     80   58 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:14
            5.0T11  167                       
0          + Disk file simulation routines. Same as that for UBC Virtual
           + Machine, circa Sep/79. NOT the same as that distributed for
           + the Virtual Machine in May/80. (Maybe someday..);
           + but this version is the one VSS still expects.
0          Referenced by comments of: 1078/24 
01078/023C *VSS                      VIRTUAL DISK R  SA  O          S1472 RPI02 VLO FSNAME=VSS.VIRTUAL_DISK_R.SA.063(1)           73
            5.0T4   594  VSS.VIRTUAL_DISK_R.SA.023          1 LINE     72   14 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:24
            5.0T11  168                       
0          + Virtual disk routines, suitable for connecting to the
           + virtual channel (1078/21). Same as that for the UBC Virtual
1                                                                                               MON AUG 05/96   18:37:45   Page  730
0  Num   R       Component Name         Subname     Type G Seq ID 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          + Machine, circa Sep/79. NOT the same as that distributed by
           + UBC for the Virtual Machine in May/80, but is the one
           + VSS still expects at this point.
01078/024C *VSS                      DFS MACROS      SM  O          S1472 RPI02 VLO FSNAME=VSS.DFS_MACROS.SA.064(1)               74
            5.0T4   595  VSS.DFS_MACROS.SM.024              1 LINE     74   11 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:28
            5.0T11  169                       
0          + Macros for Disk File Simulation routines (1078/22).
           + Same as that for the UBC Virtual Machine, circa Sep/79.
           + NOT the same as that distributed by UBC for the Virtual
           + Machine in May/80, but is the version VSS currently
           + expects (which is why this one appears under this component).
0          Referenced by comments of: 1078/1 
01078/025C *VSS                      MACROS          SM  O          S1472 RPI02 VLO FSNAME=VSS.MACROS.SM.065(1)                   75
            5.0T4   596  VSS.MACROS.SM.025                  1 LINE     72   16 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:30
            5.0T11  170                       
0          + Current VSS macro library at RPI.
           + Should be unchanged since the version available at the Workshop.
0          Referenced by comments of: 1078/1 
01078/026C *VSS                      MACRO UPDATE    UC  O          S1472 RPI02 VLO FSNAME=VSS.MACRO_UPDATE.UC.081(1)             77
            5.0T4   597  VSS.MACRO_UPDATE.UC.026            1 LINE     99    1 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:32
            5.0T11  171                       
0          + Updates to VSS macros. My attempt to turn RPI's updates
           + (originally applied with the editor) into CDUPDATEs.
           + Should be identical to those available at the Workshop.
0          Referenced by comments of: 1078/35 
01078/027C *VSS                      XCP MACROS      SM  O          S1472 RPI02 VLO FSNAME=VSS.XCP_MACROS.SA.082(1)               78
            5.0T4   598  VSS.XCP_MACROS.SM.027              1 LINE     68   10 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:32
            5.0T11  172                       
0          + Macros for virtual channel (1078/21). Same as those for
           + the UBC Virtual Machine, circa Sep/79.
           + NOT the same as those distributed by UBC for the Virtual
           + Machine in May/80, but is the version that VSS still
           + expects, so it is included under this component, rather than
           + (1051).
0          Referenced by comments of: 1078/1 
01078/028C *VSS                      VSMACROS        SM  O          S1472 RPI02 VLO FSNAME=VSS.VSMACROS.SM.085(1)                 79
            5.0T4   599  VSS.VSMACROS.SM.028                1 LINE     72  359 PAGE RPI  BOWLER    MTA       SEP. 10, 1980  10:42:33
            5.0T11  173                       
0          + A more-or-less version of the OS public macros, taken
           + from CMS release 5.0 (I think).
1                                                                                               MON AUG 05/96   18:37:45   Page  731
0  Num   R       Component Name         Subname     Type G Seq ID 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: 1078/1 
01078/029C *VSS                      MAIN UPDATE 2   UC  O          MTA:VSS.MAIN.UC                                                 
            5.0T4   600  VSS.MAIN_UPDATE_2.UC.029           1 LINE     73    2 PAGE UM   MTA                 AUG. 10, 1981  00:14:55
            5.0T11  174                       
0          UM updates to the VSS main program. Apply after (1078/1). Fixes
           various bugs, no major new features added.
01078/030C *VSS                      COMMANDS UPD 2  UC  O          MTA:VSS.CMDS.UC                                                 
            5.0T4   601  VSS.COMMANDS_UPD_2.UC.030          1 LINE     78    3 PAGE UM   MTA                 AUG. 10, 1981  00:14:57
            5.0T11  175                       
0          UM updates to the VSS commands module. Apply after (1078/2). Fixes bugs
           and extends simulation of VS control blocks.  Only new feature is NOCHECK
           parameter on DSDEF command which defers opening the FDUB until the DSDEF
           is really needed.  Can save a lot of time if there are many DSDEFS
           referring to temporary files, only some of which are needed in any
           given run.
01078/031C *VSS                      SERV UPDATE 2   UC  O          MTA:VSS.SERV.UC                                                 
            5.0T4   602  VSS.SERV_UPDATE_2.UC.031           1 LINE     75    9 PAGE UM   MTA                 AUG. 10, 1981  00:14:58
            5.0T11  176                       
0          UM updates to the VSS service routines. Apply after (1078/3). Fixes bugs and
           improves PDS simulation in several ways.
              1. A PDS can have more than 32767 bytes of directory information. As many
                 lines of directory info as necessary will be written sequentially after
                 line 0.
              2. An empty line file behaves exactly like a PDS with no members.
              3. A new format PDS in which the directory entries are stored in 256 byte
                 records in exactly the same format as they would be in VS is supported.
                 This allows programs that read, and perhaps write, the directory using
                 BSAM or QSAM to work. There is a program, CNVTPDS, (1078/41) to convert
                 the old format to the new format. An empty file is initialized in the
                 old format, which is still fully supported.
01078/032C *VSS                      SVCS UPDATE 2   UC  O          MTA:VSS.SVCS.UC                                                 
            5.0T4   603  VSS.SVCS_UPDATE_2.UC.032           1 LINE     75   11 PAGE UM   MTA                 AUG. 10, 1981  00:15:00
            5.0T11  177                       
0          UM updates to the VSS SVC simulator. Apply after (1078/4). Fixes bugs and
           improve the simulation of several SVCS.
              1. OBTAIN simulation added.
              2. RDJFCB improved, but still not very good.
              3. TPUT/TGET/STAX added. There was code there before, but obviously never
                 tried.
              4. Changes for the PDS simulation mentioned above.
              5. Type T CLOSE calls CLOSEFIL so the file will really be T-CLOSED.
              6. CLOSE skips the call to DELLNR if DISP=MOD so two or more DDNAMES can
                 be assigned to the same MTS file without loosing the output from all
                 but one of them as long as they are all DISP=MOD.
1                                                                                               MON AUG 05/96   18:37:45   Page  732
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01078/033C *VSS                      BSAM UPDATE 2   UC  O          MTA:VSS.BSAM.UC                                                 
            5.0T4   604  VSS.BSAM_UPDATE_2.UC.033           1 LINE     76    6 PAGE UM   MTA                 AUG. 10, 1981  00:15:03
            5.0T11  178                       
0          UM updates to the VSS BSAM simulator. Apply after (1078/7). Fixes bugs
           mostly related to BSAM reads and writes of a simulated disk data set.
01078/034C *VSS                      RES RTNS UPD 2  UC  O          MTA:VSS.RESR.UC                                                 
            5.0T4   605  VSS.RES_RTNS_UPD_2.UC.034          1 LINE     71    1 PAGE UM   MTA                 AUG. 10, 1981  00:15:04
            5.0T11  179                       
0          UM updates to the VSS resident routines. Apply after (1078/8). Makes
           IECPCNVT set the return code.
01078/035C *VSS                      MACROS UPD 2    UC  O          MTA:VSS.M.UC                                                    
            5.0T4   606  VSS.MACROS_UPD_2.UC.035            1 LINE     72    3 PAGE UM   MTA                 AUG. 10, 1981  00:15:06
            5.0T11  180                       
0          UM updates to the VSS macros. Apply after (1078/26). Miscellaneous updates
           related to other changes and changes the system type field in the CVT to
           claim we are MVS (ha) so NASTRAN will work.
01078/036C *VSS                      SVCTRP          SA  O          MTA:VSS.SVCTRP(1,999)                                           
            5.0T4   607  VSS.SVCTRP.SA.036                  1 LINE     72    4 PAGE UM   MTA                 AUG. 10, 1981  00:15:07
            5.0T11  181                       
0          Source for non-resident version of SVCTRP, in case the resident version
           is not in D5.0.  This version of VSS will work with either (I think).
01078/037C *VSS                      FAKE MSGCC      SA  O          MTA:FAKEMSGCC(1,999)                                            
            5.0T4   608  VSS.FAKE_MSGCC.SA.037              1 LINE     59    1 PAGE UM   MTA                 AUG. 10, 1981  00:15:08
            5.0T11  182                       
0          Source (all 6 lines of it) for a fake version of MSGCC that calls MSG.  This
           is required because all the stacks used by VSS (and it uses an impressive
           number of them) are only 2048 bytes long (which length is hand coded in
           various obscure dark corners of VSS) and this is too short to call MSGCC.
01078/038C *VSS                      OBJECT          OE  O          ETC:VSS                                                         
            5.0T4   609  VSS.OBJECT.OE.038                  1 LINE  31618   33 PAGE UM   MTA                 AUG. 10, 1981  00:15:09
            5.0T11  183  ETC:VSS              
0          The object, without SYM cards but with a directory at line 0, for all
           of VSS with all updates above applied.  Any module not changed at
           UM is taken from the object file for the "new" version of VSS in
           the RPI section of D4.3A.
0          Referenced by comments of: 655/2, 820/1, 823/19, 823/20, 824/1 
01078/039C *VSS                      DRIVER PROGRAM  SA  O          MTA:VSS.DRIVER                                                  
            5.0T4   610  VSS.DRIVER_PROGRAM.SA.039          1 LINE     72    8 PAGE UM   MTA                 AUG. 10, 1981  00:15:11
            5.0T11  184  MTA:VSS.DRIVER       
0          Source for a driver program to call VSS to run various programs.  Assemble
1                                                                                               MON AUG 05/96   18:37:45   Page  733
0  Num   R       Component Name         Subname     Type G Seq ID 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=pgm-name where "pgm-name" may be "EREP", "PM2", or 
           "NASTRAN" to get a driver program appropriate to each of these programs.
           This program reads commands from a file whose name is selected depending
           on the value of SYSPARM and passes them to VSSCMD.  In addition to the
           commands recognized by VSS it also recognizes two commands:
            
             DEFAULT  UNIT=Fdname   defaults MTS I/O unit "UNIT" to "FDname"
            
             LINK  FDname (PAR=param)   links to "FDname".  This allows one to run
                                        MTS programs not in DAT mode.
            
           If no SYSPARM is given, it defaults to NASTRAN. 
            
           The object for the three versions of this is with the appropriate 
           component.
0          Referenced by comments of: 655/1, 820/1, 824/1 
01078/040C *VSS                      CONVERT PDS     SA  O          MTA:VSS.CNVTPDS(1,999)                                          
            5.0T4   611  VSS.CONVERT_PDS.SA.040             1 LINE     72    3 PAGE UM   MTA                 AUG. 10, 1981  00:15:15
            5.0T11  185                       
0          Program to convert an old format VSS PDS to the new format in which the
           directory is stored exactly like it would be in VS.  Assign unit 0 to
           the line file containing the old format PDS.
01078/041C *VSS                      CONVERT PDS     OC  O          MTA:VSS.CNVTPDS(1000)                                           
            5.0T4   612  VSS.CONVERT_PDS.OC.041             1 LINE     80    4 PAGE UM   MTA                 AUG. 10, 1981  00:15:16
            5.0T11  186  MTA:VSS.CNVTPDS      
0          Referenced by comments of: 1078/31 
01078/042C *VSS                      PDS BUILD       SQ  O          MTA:VSS.PDSBUILD(1,999)                                         
            5.0T4   613  VSS.PDS_BUILD.SQ.042               1 LINE     83    9 PAGE UM   MTA                 AUG. 10, 1981  00:15:18
            5.0T11  187                       
0          Comments from the source:
            
               Build a VSS partitioned data set.
               Input format is 
                   member-definition
                   member-definition
                        .
                        .
                        .
                    (end-of-file)
               where "member-definition" is
                    /MEMBER=member-name
                    (first record of member)
                    (second record of member)
                        .
                        .
                        .
                    /END-MEMBER  (this is optional.)
1                                                                                               MON AUG 05/96   18:37:45   Page  734
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0              where "member-name" is an eight-or-fewer-character name.
               Additionally, the command
                    /ALIAS=member-name
               may appear anywhere inside a member-definition.
               A L S O ,  the IBM IEBUPDTTE commands
                    ./   ADD   ...,MEMBER=member-name,...
                    ./   ADD   ...,NAME=member-name,...
               may be used instead of /MEMBER commands. 
               Also, 
                   ./  ALIAS   ...,MEMBER=member-name,...
                   ./  ALIAS   ...,NAME=member-name,...
               may be used instead of /ALIAS.
               Also, 
                   /.  ENDUP
               will be treated as an end-of-file on input.          */
            
           Probably reads SCARDS and writes 0 or SPUNCH?
01078/043C *VSS                      PDS BUILD       OC  O          MTA:VSS.PDSBUILD(1000)                                          
            5.0T4   614  VSS.PDS_BUILD.OC.043               1 LINE   3072    6 PAGE UM   MTA                 AUG. 10, 1981  00:15:20
            5.0T11  188  MTA:VSS.PDSBUILD     
01078/044C *VSS                      LOG FILE        D   O        # ETC:VSSLOG                                                      
                                                                                    UM   MTA                                        
                         ETC:VSSLOG           
0           
           One line for each use of VSS.  Don't let it fill up since VSS apparently
           dies when it is full.
01078/045C *VSS                      WRITE UP        PF  O          W116:VSS.WRITU.P                                                
            5.0T4   615  VSS.WRITE_UP.PF.045                1 LINE     71   28 PAGE UM   MTA                 AUG. 10, 1981  00:15:22
            5.0T11  189  MTA:VSS.WRITEUP      
0          This describes the last official UBC version of VSS.  There is no write
           up describing the RPI or UM changes.
01078/046C *VSS                      MVS LINKLIB     O   G          ETC:SYS1.LINKLIB                                                
            5.0T4   616  VSS.MVS_LINKLIB.O.046              1 LINE  32767 1560 PAGE UM   MTA                 AUG. 10, 1981  00:15:26
            5.0T11  190  ETC:SYS1.LINKLIB     
0          This is a VSS PDS containing a copy of SYS1.LINKLIB from MVS.  It contains
           many utility programs that can be run in VSS, although some particularly
           useful ones won't (eg, AMBSPZAP).
            
           It was created from file 9 on tape M8ERES of the MVS 3.8E
           IPO distribution by *IEHMOVE.  It contains all members of 
           SYS1.LINKLIB. 
0          Referenced by comments of: 824/2 
1                                                                                               MON AUG 05/96   18:37:45   Page  735
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01079/001C  UBC VIRTUAL MACHINE      OBJECT          OC  G          TMTS:VMN                                                        
            5.0T3  1403  UBC_VIRTUAL_MACHINE.OBJEC.OC.001   1 LINE   6008   71 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:51:43
            5.0T9   259  TMTS:VMN             
0          Virtual Machine program based on the Subtasking Monitor. This version derives
           from the UBC version of May 1981 from the Vancouver Workshop.
            
           This version of the virtual machine does not need to be run with PROT=OFF
           unless privileged services are being requested, such as the attachment of
           real devices to the virtual machine. This version uses the UMMPS virtual
           machine support for >1Mb virtual machines.
            
           This virtual machine also requires the Virtual I/O component (1051) and
           almost needless to say, the Subtasking Monitor (1058) along with the Resource
           Manager CFM routines (1041/10). This file should have a pkey of TMTS:VMN.
            
           *****************************************************************************
           D5.0 version:
            
           UM changes to this include updating it to interface to the subtasking monitor
           more cleanly, and the fixing of some minor bugs.
           *****************************************************************************
0          Referenced by comments of: 1051/1 
01079/002C  UBC VIRTUAL MACHINE      MAIN            SA  G          TMTS:VM_MAIN(1000)                                              
            5.0T3  1404  UBC_VIRTUAL_MACHINE.MAIN.SA.002    1 LINE     79   18 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:51:50
            5.0T9   260                       
0          Initialization and main subtask. Assemble with the UBC Virtual Machine macros
           (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19).
01079/003C  UBC VIRTUAL MACHINE      CMND            SA  O          TMTS:VM_CMND(10000)                                             
            5.0T3  1405  UBC_VIRTUAL_MACHINE.CMND.SA.003    1 LINE     79   50 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:51:55
            5.0T9   261                       
0          Command reader and processing routines. Assemble with the UBC Virtual Machine
           macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19).
01079/004C  UBC VIRTUAL MACHINE      PRIV            SA  G          TMTS:VM_PRIV(1000)                                              
            5.0T3  1406  UBC_VIRTUAL_MACHINE.PRIV.SA.004    1 LINE     80   21 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:07
            5.0T9   262                       
0          Privileged instruction simulation. Assemble with the UBC Virtual Machine
           macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19).
01079/005C  UBC VIRTUAL MACHINE      SERV            SA  O          TMTS:VM_SERV(1000)                                              
            5.0T3  1407  UBC_VIRTUAL_MACHINE.SERV.SA.005    1 LINE     79   25 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:11
            5.0T9   263                       
0          Service subroutines. Assemble with the UBC Virtual Machine macros (1079/11),
           COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19).
1                                                                                               MON AUG 05/96   18:37:45   Page  736
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01079/006C  UBC VIRTUAL MACHINE      SUBT            SA  O          TMTS:VM_SUBT(1000)                                              
            5.0T3  1408  UBC_VIRTUAL_MACHINE.SUBT.SA.006    1 LINE     79   10 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:14
            5.0T9   264                       
0          Subtasks for timers and I/O devices. Assemble with the UBC Virtual Machine
           macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19).
01079/007C  UBC VIRTUAL MACHINE      VDEV            SA  O          TMTS:VM_VDEV(1000)                                              
            5.0T3  1409  UBC_VIRTUAL_MACHINE.VDEV.SA.007    1 LINE     79    6 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:17
            5.0T9   265                       
0          Virtual device device-dependent interface. Assemble with the UBC Virtual
           Machine macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS
           (1058/19).
01079/008C  UBC VIRTUAL MACHINE      VM370SIM        SA  O          TMTS:VM_VM370SIM(1000)                                          
            5.0T3  1410  UBC_VIRTUAL_MACHINE.VM370.SA.008   1 LINE     79   10 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:19
            5.0T9   266                       
0          Diagnose instruction simulation routine for simulating a pseudo-VM/370
           environment. Assemble with the UBC Virtual Machine macros (1079/11),
           COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19).
01079/009C  UBC VIRTUAL MACHINE      MODL            SA  G          TMTS:VM_MODL(1000)                                              
            5.0T3  1411  UBC_VIRTUAL_MACHINE.MODL.SA.009    1 LINE     72    4 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:21
            5.0T9   267                       
0          Virtual machine model-dependent routines. This assembly is intended to
           contain the virtual machine routines that are model-dependent, specifically,
           the routines that do machine check logouts and simulation of non-VM/370
           diagnose instructions. Assemble with the UBC Virtual Machine macros (1079/11)
           and COPY:CC.MACROS (1054/3).
01079/010C  UBC VIRTUAL MACHINE      GETD            SA  O          TMTS:VM_GETD(1000)                                              
            5.0T3  1412  UBC_VIRTUAL_MACHINE.GETD.SA.010    1 LINE     77    4 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:22
            5.0T9   268                       
0          This is a special routine called by the virtual machine when attaching a
           disk. Its function is to determine if the disk belongs to the MTS file
           system. Copies COPY:GLOBALS (1026/3) and COPY:LLMPSEQU (087). Assemble with
           the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3),
           COPY:MNTR.MACROS (1058/19), COPY:FILE.MACROS (482/45), and COPY:UC.MACROS
           (787/1).
01079/011C  UBC VIRTUAL MACHINE      MACLIB          SM  G          TMTS:VM_MACROS                                                  
            5.0T3  1413  UBC_VIRTUAL_MACHINE.MACLI.SM.011   1 LINE     80   12 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:23
            5.0T9   269                       
0          UBC Virtual Machine macros.
0          Referenced by comments of: 1051/4, 1051/5, 1051/6, 1051/7, 1051/8, 1051/9, 1051/10, 1051/12, 1051/13, 1051/15,
                 1051/16, 1051/20, 1079/2, 1079/3, 1079/4, 1079/5, 1079/6, 1079/7, 1079/8, 1079/9, 1079/10 
1                                                                                               MON AUG 05/96   18:37:45   Page  737
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01079/012C  UBC VIRTUAL MACHINE      WRITEUP         WF             TMTS:VM_WRITEUP(10000)                                          
            5.0T3  1414  UBC_VIRTUAL_MACHINE.WRITE.WF.012   1 LINE    106   18 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:25
            5.0T9   270                       
0          *FORMAT (308) source for the UBC Virtual Machine writeup.
0          Referenced by comments of: 1051/20, 1079/13 
01079/013C  UBC VIRTUAL MACHINE      WRITEUP         PF  G          TMTS:VM_WRITEUP(1,9999)                                         
            5.0T3  1415  UBC_VIRTUAL_MACHINE.WRITE.PF.013   1 LINE    140   23 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:32
            5.0T9   271                       
0          $COPYable writeup produced by running *FORMAT (308) on (1079/12). 
01079/014C  UBC VIRTUAL MACHINE      HELP FILE       D   G          ETC:VM_HELP                                                     
            5.0T3  1416  UBC_VIRTUAL_MACHINE.HELP.D.014     1 LINE     71    7 PAGE UBC  BOWLER    HELFFRICH AUG. 06, 1981  05:52:40
            5.0T9   272                       
0          Help file accessed by virtual machine HELP command. Must be permitted READ to
           PKEY=TMTS:VMN.
01081/001A  INTERTASK                                SA  G          S0699 D3TAPE POSN=IT.D5                                         
            5.0T4   617  INTERTASK..SA.001                  1 LINE     80   76 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:16:48
            5.0T11  191                       
0          SUBROUTINE CALLED BY UMMPS (045/1) TO HANDLE THE INTERTASK SVC. COPIES
           LLMPSEQU (087), COPY:GLOBALS (1026/3), COPY:IT.DSECTS (1081/4), COPY:PSA
           (162), AND COPY:IT.COPY_SECT (1081/5). ASSEMBLE WITH COPY:UMMPS.MACROS
           (045/14) AND COPY:IT.MACROS (1081/6) AND COPY:SETPARM (653).
0          Referenced by comments of: 3/1, 400/16, 769/9, 769/15, 1081/5 
01081/002C  INTERTASK                                UC  G          MTA:IT.U                                                        
            5.0T4   618  INTERTASK..UC.002                  1 LINE     67    1 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:16:50
            5.0T11  192                       
0          Update to D4.3 version to produce current version. 
01081/003A  INTERTASK                                OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UBC  O'REILLY  MTA                              
0           
           ***********************************************************************************
           D5.0 CHANGES, SOME ALREADY DISTRIBUTED ON D4.3A:
            
           MUST BE REASSEMBLED (WITH THE SAME SOURCE) FOR THE DISK MANAGER.
           FIXED TWO SERIOUS BUGS FOUND BY UBC.
           ***********************************************************************************
           Object part of Resident System (468)
1                                                                                               MON AUG 05/96   18:37:45   Page  738
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01081/004   INTERTASK                COPY SECTION 1  SA  G          COPY:IT.DSECTS                                                  
            5.0T4   619  INTERTASK.COPY_SECTION_1.SA.004    1 LINE     72    7 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:16:51
            5.0T11  193  COPY:IT.DSECTS       
0          THIS IS A COPY SECTION THAT SHOULD BE COPIED BY ANY ASSEMBLER 
           PROGRAM THAT USES INTERTASK.  IT CONTAINS EQUATES FOR THE 
           VARIOUS INTERTASK OPERATION CODES AND FLAGS, AND ALSO CONTAINS
           A VARIETY OF DSECTS INTENDED TO BE USED WITH THE SEND, SET EXIT,
           LIST, AND SENSE OPERATIONS.  THE INTERTASK MACROS (1081/6) 
           REQUIRE THE EQUATES IN THIS COPY SECTION.
0          Referenced by comments of: 769/15, 1051/16, 1051/20, 1081/1, 1081/9, 1081/12, 1081/13, 1081/14, 1081/15, 1081/16,
                 1081/22, 1081/24, 1081/26 
01081/005   INTERTASK                COPY SECTION 2  SM  G          COPY:IT.COPY_SECT                                               
            5.0T4   620  INTERTASK.COPY_SECTION_2.SM.005    1 LINE     71    7 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:16:52
            5.0T11  194  COPY:IT.COPY_SECT    
0          THIS IS A COPY SECTION THAT IS COPIED ONLY BY THE INTERTASK
           SUBROUTINE ITSELF (1081/1) AND BY THE PRINT DUMP SUBROUTINE FOR
           INTERTASK (400/16). IT DEFINES DATA STRUCTURES INTERNAL TO
           INTERTASK.
0          Referenced by comments of: 400/16, 1081/1 
01081/006A  INTERTASK                MACROS          SA  G          COPY:IT.MACROS                                                  
            5.0T4   621  INTERTASK.MACROS.SA.006            1 LINE     72   19 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:16:54
            5.0T11  195  COPY:IT.MACROS       
0          MACROS TO CALL INTERTASK SVC.
0          Referenced by comments of: 769/15, 1051/16, 1051/20, 1081/1, 1081/4, 1081/13, 1081/14, 1081/15, 1081/16 
01081/007   INTERTASK                WRITEUP         WF             S1431 4.3T2 VLO FSNAME=INTERTASK.WRITEUP.WF.006(1)           517
            5.0T4   622  INTERTASK.WRITEUP.WF.007           1 LINE     96   19 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:42:24
            5.0T11  196                       
0          A WRITEUP DESCRIBING HOW TO USE INTERTASK.
0          Referenced by comments of: 1081/8 
01081/008   INTERTASK                WRITEUP         PF             S1431 4.3T2 VLO FSNAME=INTERTASK.WRITEUP.PF.007(1)           518
            5.0T4   623  INTERTASK.WRITEUP.PF.008           1 LINE     71   22 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:42:32
            5.0T11  197                       
0          PRINT FILE FOR (1081/7).
01081/009A  INTERTASK                JOB PROGRAM     SA  G          MTA:IT.JOBPGM.S                                                 
            5.0T4   624  INTERTASK.JOB_PROGRAM.SA.009       1 LINE     76   11 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:22:06
            5.0T11  198  MTA:IT.JOBPGM.S      
0          THIS IS THE SOURCE CODE FOR THE INTERTASK JOB PROGRAM.
           THE JOB PROGRAM DOES NOT PROCESS JOB PARAMETERS, BUT RATHER
           READS COMMANDS DIRECTLY FROM THE CONSOLE.  CURRENTLY, THERE
1                                                                                               MON AUG 05/96   18:37:45   Page  739
0  Num   R       Component Name         Subname     Type G Seq ID 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          ARE ONLY 2 COMMANDS: LIST AND SENSE.
            
           LIST
            
              FUNCTION: TO OBTAIN A LIST OF THE NAMES OF ALL
                        NETWORKS IN EXISTENCE.  THE LIST COMMAND
                        DOES NOT TAKE PARAMETERS.
            
           SENSE NET-NAME <MODIFIERS>
            
              FUNCTION: TO SENSE A PARTICULAR NETWORK.  THE NETWORK NAME
                        MUST BE SPECIFIED.  A SUMMARY OF THE INFORMATION
                        IN THE NETWORK CONTROL BLOCK AND ONE LINE OF 
                        INFORMATION PER NODE IS PRINTED.  THE INFORMATION
                        IN THE SUMMARY IS SELF-EXPLANATORY.  THE INFORMATION
                        IN THE NODE DESCRIPTORS IS LARGELY SELF-EXPLANATORY
                        EXCEPT, PERHAPS, FOR THE INFORMATION APPEARING
                        UNDER THE COLUMN HEADING "STATUS".  THIS INFORMATION
                        APPEARS AS A SERIES OF LETTERS; THE LETTERS SHOULD
                        BE INTERPRETED AS FOLLOWS:
                            D -> MEANS NODE HAS BEEN DELETED
                            X -> MEANS NODE HAS AN EXIT SET
                            S -> MEANS EXIT IS SYNCHRONOUS
                            Q -> MEANS NODE HAS A NONEMPTY QUEUE
                                 OF MSGS, RECEIPTS, AND NOTIFICATIONS
                            B -> MEANS NODE HAS BEEN BLASTED
            
                        THE OPTIONAL MODIFIERS ARE:
                            NOHEADER -> TO SUPPRESS THE PRINTING OF
                                        THE SUMMARY OF THE INFORMATION
                                        FROM THE NETWORK CONTROL BLOCK
                            NONODES  -> TO SUPPRESS THE PRINTING OF
                                        THE INDIVIDUAL NODE DESCRIPTORS
            
                        NOTE THAT THIS PROGRAM IS ALSO RUNNABLE DIRECTLY AS
                        A NORMAL MTS PROGRAM.
            
           REQUIRES COPY:IT.DSECTS (1081/4).
01081/010A  INTERTASK                JOB PROGRAM     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UBC  O'REILLY  MTA                              
0          Object part of Resident System (468)
01081/011C  INTERTASK                JOB PROGRAM     OC  G          MTS:IT                                                          
            5.0T4   625  INTERTASK.JOB_PROGRAM.OC.011       1 LINE     24    1 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:22:08
            5.0T11  199  MTS:IT               
0          Contains loader control cards to run the IT job program with an MTS RUN
           command.
1                                                                                               MON AUG 05/96   18:37:45   Page  740
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01081/012   INTERTASK                ITX             SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.ITX.SA.011(1)               521
            5.0T4   626  INTERTASK.ITX.SA.012               1 LINE     69   13 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:29
            5.0T11  200                       
0          THIS IS THE SOURCE CODE FOR THE INTERTASK EXERCISER MONITOR.
            
           THE INTERTASK EXERCISER IS A FACILITY FOR STARTING UP AN
           ARBITRARY NUMBER OF REAL TASKS WHICH USE THE INTERTASK FACILITY.
            
           WHAT NETWORKS ARE CREATED AND WHICH INTERTASK OPERATIONS ARE
           USED IS DEFINED BY THE SET OF REPERTOIRE ROUTINES WHICH ARE
           LOADED ALONG WITH THE INTERTASK EXERCISER MONITOR.
            
           THE PURPOSE OF THE MONITOR IS TO DETERMINE WHICH REPERTOIRE
           ROUTINES ARE LOADED, AND TO CONTROL THEIR EXECUTION (WHICH
           MAY BE OVERLAPPED IF REPERTOIRE ROUTINES CHOOSE TO DO THINGS
           ASYNCHRONOUSLY).  IN ESSENCE, THE MONITOR IS A REPERTOIRE
           ROUTINE DISPATCHER.
            
           THE MONITOR IS COMMAND DRIVEN.  THERE ARE CURRENTLY 3 COMMANDS:
           MTS, STOP, AND EXECUTE.  FOR A DESCRIPTION OF THESE COMMANDS,
           REFER TO THE SOURCE LISTING.
            
           REQUIRES THE MSG MACROS IN *SYSMAC, COPY:GLOBALS (1026/3),
           AND COPY:IT.DSECTS (1081/4).
0          Referenced by comments of: 1081/17, 1081/20 
01081/013   INTERTASK                ITX #001        SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.ITX_#001.SA.012(1)          522
            5.0T4   627  INTERTASK.ITX_#001.SA.013          1 LINE     80    9 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:41
            5.0T11  201                       
0          THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #001.  THIS ROUTINE
           ONLY USES SYNCHRONOUS INTERTASK OPERATIONS.
            
           REQUIRES THE MSG MACROS IN *SYSMAC, COPY:IT.MACROS (1081/6),
           COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4).
01081/014   INTERTASK                ITX #002        SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.ITX_#002.SA.013(1)          523
            5.0T4   628  INTERTASK.ITX_#002.SA.014          1 LINE     80    9 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:45
            5.0T11  202                       
0          THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #002.  THIS ROUTINE
           ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS.
            
           REQUIRES THE MSG MACROS IN *SYSMAC, COPY:IT.MACROS (1081/6),
           COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4).
01081/015   INTERTASK                ITX #003        SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.ITX_#003.SA.014(1)          524
            5.0T4   629  INTERTASK.ITX_#003.SA.015          1 LINE     80   10 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:52
            5.0T11  203                       
0          THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #003.  THIS ROUTINE
           ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS AND USES RANDOM MESSAGE 
1                                                                                               MON AUG 05/96   18:37:45   Page  741
0  Num   R       Component Name         Subname     Type G Seq ID 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          LENGTHS AND EXIT BUFFER LENGTHS.
            
           REQUIRES THE MSG MACROS IN *SYSMAC, COPY:IT.MACROS (1081/6),
           COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4).
01081/016   INTERTASK                ITX #004        SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.ITX_#004.SA.015(1)          525
            5.0T4   630  INTERTASK.ITX_#004.SA.016          1 LINE     80   11 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:56
            5.0T11  204                       
0          THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #004.  THIS ROUTINE
           ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS, USES RANDOM MESSAGE 
           LENGTHS AND EXIT BUFFER LENGTHS, AND EXERCISES A FEW OF THE OTHER MORE 
           OBSCURE INTERTASK OPERATIONS LIKE CANCEL MESSAGE, CANCEL EXIT, AND
           CHANGE NODE ACCESS.
            
           REQUIRES THE MSG MACROS IN *SYSMAC, COPY:IT.MACROS (1081/6),
           COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4).
0          Referenced by comments of: 1081/17 
01081/017   INTERTASK                ITX             OC  G          SYS:ITX                                                         
            5.0T4   631  INTERTASK.ITX.OC.017               1 LINE     80   17 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:22:14
            5.0T11  205  SYS:ITX              
0          OBJECT FOR (1081/12) THROUGH (1081/16) AND (1081/21).
            
           NOTE:  THIS ALL CAME FROM UBC55 AND THE SOURCE AND OBJECT DO NOT AGREE,
                  BUT THIS FILE WORKS. CONTAINS REP CARDS.
01081/018   INTERTASK                ITX             C              *ITX                                                            
            5.0T4   632  INTERTASK.ITX.C.018                1 LINE     24    1 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:22:15
            5.0T11  206  *ITX                 
0          COMMAND FILE TO START 5 TASKS RUNNING ITX FOR 5000 CALLS TO EACH
           #NNN ROUTINE.  USES SYS:ITXCMD (1081/19).
01081/019   INTERTASK                ITX             C              SYS:ITXCMD                                                      
            5.0T4   633  INTERTASK.ITX.C.019                1 LINE     44    1 PAGE UBC  O'REILLY  MTA       AUG. 10, 1981  00:22:16
            5.0T11  207  SYS:ITXCMD           
0          Referenced by comments of: 1081/18 
01081/020   INTERTASK                GETMSG          SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.GETMSG.SA.019(1)            529
            5.0T4   634  INTERTASK.GETMSG.SA.020            1 LINE     68    4 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:14
            5.0T11  208                       
0          THIS IS THE SOURCE CODE FOR A UTILITY PROGRAM WHICH WILL RETURN AN ERROR
           MESSAGE GIVEN GR0 AND GR1 FROM AN INTERTASK OPERATION.  THE CODE IS 
           REENTRANT AND IS INTENDED SOME DAY TO BE PART OF THE RESIDENT SYSTEM.
           SEE THE SOURCE LISTING FOR DETAILS.
            
           CURRENTLY, IT IS USED BY INTERTASK ITX (1081/12).
1                                                                                               MON AUG 05/96   18:37:45   Page  742
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01081/021   INTERTASK                GETMSG          OC  G          S1431 4.3T2 VLO FSNAME=INTERTASK.GETMSG.OC.020(1)            530
            5.0T4   635  INTERTASK.GETMSG.OC.021            1 LINE     80    3 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:15
            5.0T11  209                       
0          Referenced by comments of: 1081/17 
01081/022   INTERTASK                XITPTR          SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.XITPTR.SA.021(1)            531
            5.0T4   636  INTERTASK.XITPTR.SA.022            1 LINE     71    4 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:17
            5.0T11  210                       
0          THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF AN
           EXIT BUFFER IN A READABLE FORMAT.  THIS PROGRAM IS INTENDED TO BE USED FOR
           DEBUGGING PROGRAMS THAT USE INTERTASK. COPIES COPY:IT.DSECTS (1081/4). 
           ASSEMBLE USING THE MSG MACROS IN *SYSMAC.
01081/023   INTERTASK                XITPTR          OC  G          S1431 4.3T2 VLO FSNAME=INTERTASK.XITPTR.OC.022(1)            532
            5.0T4   637  INTERTASK.XITPTR.OC.023            1 LINE     80    3 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:19
            5.0T11  211                       
01081/024   INTERTASK                SNSPTR          SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.SNSPTR.SA.023(1)            533
            5.0T4   638  INTERTASK.SNSPTR.SA.024            1 LINE     68    3 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:21
            5.0T11  212                       
0          THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF A
           BUFFER AS RETURNED BY AN INTERTASK SENSE OPERATION IN A READABLE FORMAT.
           THIS PROGRAM IS INTENDED TO BE USED FOR DEBUGGING PROGRAMS THAT USE
           INTERTASK.  COPIES COPY:IT.DSECTS (1081/4).  ASSEMBLE USING THE MSG MACROS
           IN *SYSMAC.
01081/025   INTERTASK                SNSPTR          OC  G          S1431 4.3T2 VLO FSNAME=INTERTASK.SNSPTR.OC.024(1)            534
            5.0T4   639  INTERTASK.SNSPTR.OC.025            1 LINE     80    3 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:23
            5.0T11  213                       
01081/026   INTERTASK                LSTPTR          SA  G          S1431 4.3T2 VLO FSNAME=INTERTASK.LSTPTR.SA.025(1)            535
            5.0T4   640  INTERTASK.LSTPTR.SA.026            1 LINE     68    2 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:25
            5.0T11  214                       
0          THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF A
           BUFFER AS RETURNED BY AN INTERTASK LIST OPERATION IN A READABLE FORMAT.
           THIS PROGRAM IS INTENDED TO BE USED FOR DEBUGGING PROGRAMS THAT USE
           INTERTASK.  COPIES COPY:IT.DSECTS (1081/4).  ASSEMBLE USING THE MSG MACROS
           IN *SYSMAC.
01081/027   INTERTASK                LSTPTR          OC  G          S1431 4.3T2 VLO FSNAME=INTERTASK.LSTPTR.OC.026(1)            536
            5.0T4   641  INTERTASK.LSTPTR.OC.027            1 LINE     80    1 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:27
            5.0T11  215                       
01082/001   INDIRECT/RCMSG ROUTINES                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SET OF
           SUBROUTINES USED BY THE UBC MAIL SYSTEM.  THE SUBROUTINES PROVIDE ERROR
           MESSAGES FOR MOST OF THE MAIL SYSTEM (OS-CALLABLE) SUBROUTINES.
1                                                                                               MON AUG 05/96   18:37:45   Page  743
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
01083/001   MESSAGE FACILITY                                      # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE 
           RESOURCE MANAGER MESSAGE FACILITY.
01084/001   UBC TIME ROUTINES                                     # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SET OF
           TIME AND DATE ROUTINES, WRITTEN IN PLUS.
02001/001   UNEMAIL                                               # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A MAIL 
           SYSTEM WRITTEN FOR SIGFILE USE.
02002/001   DIABLO                                                # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           TO DRIVE A DIABLO PRINTER.
02004/001   NUNET                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
02005/001   PRIVATE_DISKS                                         # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE UNE
           PRIVATE DISK SCHEME.
02006/001  *TOTPAGES                                              # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, LISTS FREE
           SPACE ON A NAMED VOLUME, OR ON ALL PUBLIC DISKS IF NO PARAMETER IS GIVEN.
02008/001   DEVSNIFF                                              # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS PART OF
           UNE'S IPL SEQUENCE.  IT NOTES PRIVATE VOLUMES ALREADY MOUNTED AT IPL IN
           SHARED STORAGE TABLE.
02013/001   ASM.PREP                                              # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN
           ASSEMBLER PREPROCESSOR.
1                                                                                               MON AUG 05/96   18:37:45   Page  744
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
02015/001   LONG                                                  # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PACKAGE
           TO DO INTEGER ARITHMETIC ON VERY LARGE NUMBERS.
03003/001   SPIRES                                                # (NOT DISTRIBUTED ON D5.0, SEE D4.1)                             
                                                                                    UM   STERKEN                                    
0          Due to timing considerations, SPIRES is not being sent out on Distribution
           5.0.  A distribution of a new version of SPIRES, based on a new version
           from Stanford with changes by various MTS sites, will be available in the
           next few months.  The University of Alberta will be distributing the new
           version, which will henceforth be incorporated into the UM driver file and
           distributed on subsequent MTS system distributions.
            
           We believe that all components in Distribution 5.0 requiring SPIRES will
           run on the SPIRES currently being used at your site.  If you have any
           problems, please contact Elizabeth Sweet at the University of Michigan
           Computing Center.
03006/001  *PL1SYN                                                # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
03007/001   APLUTIL                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
03011/001  *FLOWCHART                IBM SOURCE      SA  O          S0565 D4T3 VLO FSNAME=FLOWCHART.IBM_SOURCE.SA.001(1)         681
            5.0T3  1417  FLOWCHART.IBM_SOURCE.SA.001        1 SEQ      80  387 PAGE UQV  WARD      DWB       OCT. 10, 1974  12:28.56
            5.0T9   273                       
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, 3011/3 
03011/002  *FLOWCHART                MTS UPDATE      UU  O          S1143 D4.1T1 VLO FSNAME=FLOWCHART.MTS_UPDATE.UU.002(1)       825
            5.0T3  1418  FLOWCHART.MTS_UPDATE.UU.002        1 LINE     72   42 PAGE UQV  WARD      DWB       APR. 03, 1978  20:17:23
            5.0T9   274                       
0          *UPDATE DECK TO PRODUCE MTS VERSION OF FLOWCHART FROM ORIGINAL IBM SOURCE (3011/1).
0          Referenced by comments of: 3011/3 
03011/003  *FLOWCHART                MTS SOURCE      SA  O          S1143 D4.1T1 VLO FSNAME=FLOWCHART.MTS_SOURCE.SA.003(1)       826
            5.0T3  1419  FLOWCHART.MTS_SOURCE.SA.003        1 LINE     80  359 PAGE UQV  WARD      DWB       JAN. 09, 1978  18:10:51
            5.0T9   275                       
0          RESULT OF APPLYING ABOVE UPDATE (3011/2) TO IBM SOURCE (3011/1). COPIES
           *GDINFODSECT (594).
0          Referenced by comments of: 3011/4 
1                                                                                               MON AUG 05/96   18:37:45   Page  745
0  Num   R       Component Name         Subname     Type G Seq ID 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/004  *FLOWCHART                OBJECT          OC  O          S1143 D4.1T1 VLO FSNAME=FLOWCHART.OBJECT.OC.004(1)           827
            5.0T3  1420  FLOWCHART.OBJECT.OC.004            1 LINE   2846   51 PAGE UQV  WARD      DWB       APR. 03, 1978  20:17:11
            5.0T9   276                       
0          OBJECT FROM ASSEMBLY OF MTS SOURCE (3011/3).
0          Referenced by comments of: 3011/5 
03011/005  *FLOWCHART                MTS OBJECT      OE  O          *FLOWCHART                                                      
            5.0T3  1421  FLOWCHART.MTS_OBJECT.OE.005        1 LINE  25588   18 PAGE UQV  WARD      DWB       JULY 03, 1981  21:07:23
            5.0T9   277  *FLOWCHART           
0          LINK-EDITED RESULT FROM ABOVE OBJECT (3011/4).
03011/006  *FLOWCHART                TEST 1          D              DWB:FLOWCHART.T1                                                
            5.0T3  1422  FLOWCHART.TEST_1.D.006             1 LINE     72    1 PAGE UQV  WARD      DWB       JULY 03, 1981  21:07:24
            5.0T9   278  DWB.:FLOWCHART.T1    
0          THIS COMPONENT AND THE NEXT 5 ARE *FLOWCHART TEST PROGRAMS.
03011/007  *FLOWCHART                TEST 2          D              DWB:FLOWCHART.T2                                                
            5.0T3  1423  FLOWCHART.TEST_2.D.007             1 LINE     62    1 PAGE UQV  WARD      DWB       JULY 03, 1981  21:07:25
            5.0T9   279  DWB.:FLOWCHART.T2    
03011/008  *FLOWCHART                TEST 3          D              DWB:FLOWCHART.T3                                                
            5.0T3  1424  FLOWCHART.TEST_3.D.008             1 LINE     75    1 PAGE UQV  WARD      DWB       JULY 03, 1981  21:07:26
            5.0T9   280  DWB.:FLOWCHART.T3    
03011/009  *FLOWCHART                TEST 4          D              DWB:FLOWCHART.T4                                                
            5.0T3  1425  FLOWCHART.TEST_4.D.009             1 LINE     68    1 PAGE UQV  WARD      DWB       JULY 03, 1981  21:07:27
            5.0T9   281  DWB.:FLOWCHART.T4    
03011/010  *FLOWCHART                TEST 5          D              DWB:FLOWCHART.T5                                                
            5.0T3  1426  FLOWCHART.TEST_5.D.010             1 LINE     62    1 PAGE UQV  WARD      DWB       JULY 03, 1981  21:07:27
            5.0T9   282  DWB.:FLOWCHART.T5    
03011/011  *FLOWCHART                TEST 6          D              DWB:FLOWCHART.T6                                                
            5.0T3  1427  FLOWCHART.TEST_6.D.011             1 LINE     72    4 PAGE UQV  WARD      DWB       JULY 03, 1981  21:07:28
            5.0T9   283  DWB.:FLOWCHART.T6    
03012/001   TYPESET                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.Y
03013/001   ALGOL68C                                              # (NOT INSTALLED AT UM)                                           
            D4T3    690  ALGOL68C.COMPILER.OE.001           1 SEQ   32767   45 PAGE UQV  MAILLOUX            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.
            
            
            
           NOTE: THIS VERSION HAS NOT BEEN INSTALLED AT UM AS OF 1 APR/81.
1                                                                                               MON AUG 05/96   18:37:45   Page  746
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03014/001   UQV FEP                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE 360 SIDEY
           OF THE UQV FRONT END DSR.
03016/001   APLSV                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE SV
           VERSION OF APL.
03017/001  *DES                                                   # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DATA
           ENTRY SYSTEM, A HOME-GROWN VERSION OF VIDEO 370.
03018/001   TEXTFORM                 DESIGN SPECS    WF           # (NOT DISTRIBUTED BY UQV)                                        
                                                                                    UQV  TXTFGROUP LIFT                             
0          TEXTFORM is a registered trademark of the University of Alberta.
            
           TEXTFORM is copyrighted by the University of Alberta.
           Redistribution to installations other than those receiving
           distribution 5.0 of MTS requires written permission. 
            
           This is the final version of the TEXTFORM design specifications.
            
           The members of the "TXTFGROUP" are:
                Grant Crawford
                Dave Holberton
                Earl Culham
                Debbie Reinhart
            
           ******************************************************************
           D5.0 version:
            
           This is TEXTFORM Version 1.1.
           ******************************************************************
0          Referenced by comments of: 3018/2 
03018/002   TEXTFORM                 DESIGN SPECS    PF           # (NOT DISTRIBUTED BY UQV)                                        
                                                                                    UQV  TXTFGROUP LIFT                             
0          Printer copy of (3018/1).
03018/003   TEXTFORM                 RESTORE         C              TXTF:CREATES                                                    
            5.0T4     1  TEXTFORM.RESTORE.C.003             1 LINE     73    4 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:17:07
            5.0T9   284                       
0          For installations installing TEXTFORM for the first time: 
            
1                                                                                               MON AUG 05/96   18:37:45   Page  747
0  Num   R       Component Name         Subname     Type G Seq ID 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              Component (3018/5), the Internals Manual, should be printed, 
               and the section entitled "Installation Guide" should be
               read before proceeding further.
            
           For installations who already have TEXTFORM running:
            
               Component (3018/5), the Internals Manual, lines 1 to 1278
               should be printed. However you may print the whole manual
               if you wish since it has been updated since Version .97.
               Read the section entitled "Installation Guide" before
               proceeding further. There are changes.
03018/004   TEXTFORM                 INTERNALS       WX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTERNALS.WX.004        
            5.0T4     2  TEXTFORM.INTERNALS.WX.004          1 LINE    255  306 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:49:56
            5.0T9   285                       
0          This is the PLM - set up for the 1403.
           The first few lines of the file contain notes on the options 
           available, but what you need (the whole thing) is produced
           by the defaults.
0          Referenced by comments of: 3018/5, 3018/12, 3018/61, 3018/81, 3018/123, 3018/124, 3018/125, 3018/126, 3018/155,
                 3018/160, 3018/161, 3018/162 
03018/005   TEXTFORM                 INTERNALS       PX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTERNALS.PX.005        
            5.0T4     3  TEXTFORM.INTERNALS.PX.005          1 LINE    108 1036 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:50:48
            5.0T9   286                       
0          Print file for (3018/4) - about 1000 pages of TN.
           The Table of Contents is at the end of the print file.
0          Referenced by comments of: 3018/3 
03018/006   TEXTFORM                 INTRODUCTION    WX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTRODUCTION.WX.006     
            5.0T4     4  TEXTFORM.INTRODUCTION.WX.006       1 LINE    229   56 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:53:00
            5.0T9   287                       
0          The INTRODUCTION manual - set up for the 1403.
03018/007   TEXTFORM                 USERS           WX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.USERS.WX.007            
            5.0T4     5  TEXTFORM.USERS.WX.007              1 LINE    236   58 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:54:31
            5.0T9   288                       
0          The USERS manual - set up for the 1403.
03018/008   TEXTFORM                 REFERENCE       WX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.REFERENCE.WX.008        
            5.0T4     6  TEXTFORM.REFERENCE.WX.008          1 LINE    210   49 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:55:40
            5.0T9   289                       
0          The REFERENCE manual - set up for the 1403.
           (Note - Due to a bug in the handling of large structures, it will
           not run successfully.)
1                                                                                               MON AUG 05/96   18:37:45   Page  748
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/009   TEXTFORM                 LAYOUT_DEF      WX           # (NOT AVAILABLE YET)                                             
                                                                                    UQV  TXTFGROUP LIFT                             
0          The layout definition manual will go here.
03018/010A  TEXTFORM                 *TEXTFORM       OE  G          *TEXTFORM                                                       
            5.0T4     7  TEXTFORM.*TEXTFORM.OE.010          1 LINE   9440   69 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:17:51
            5.0T9   290  *TEXTFORM            
0          TEXTFORM object.
0          Referenced by comments of: 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/23, 3018/27,
                 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/42, 3018/47, 3018/49, 3018/51, 3018/52, 3018/53, 3018/54,
                 3018/55, 3018/56, 3018/63, 3018/64, 3018/66, 3018/77, 3018/115, 3018/116, 3018/117 
03018/011   TEXTFORM                 TXTFMSGS        M              ETC:TXTFMSGS                                                    
            5.0T4     8  TEXTFORM.TXTFMSGS.M.011            1 LINE     88    7 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:17:55
            5.0T9   291  ETC:TXTFMSGS         
0          ERROR MESSAGES.
03018/012   TEXTFORM                 AMWID           SA  G          TXTF:AMWID.S                                                    
            5.0T4     9  TEXTFORM.AMWID.SA.012              1 LINE     80   16 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:17:56
            5.0T9   292                       
0          PROGRAM FOR BUILDING AM748 PHOTOTYPESETTER WIDTH TABLES.  SEE THE INTERNALS
           MANUAL (3018/4) FOR A DESCRIPTION.
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
03018/013   TEXTFORM                 AM748N          SA  G          TXTF:AM748N.S                                                   
            5.0T4    10  TEXTFORM.AM748N.SA.013             1 LINE     80   54 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:17:58
            5.0T9   293                       
0          AM748 PHOTOTYPESETTER OUTPUT DEVICE PROCESSOR (OD).  COPIES GBLC (3018/120),
           GBLS (3018/22), AND XODTGETM (3018/144).  OBJECT IN TXTFODS (3018/156).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/014   TEXTFORM                 ATPAC           SA  G          TXTF:ATPAC.S                                                    
            5.0T4    11  TEXTFORM.ATPAC.SA.014              1 LINE     80   11 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:05
            5.0T9   294                       
0          CONTAINS THE ATEXEC, ATERASE, ATINS, ATRAINS, ATRAERS, ECQSTRG, AND EXDG
           SUBROUTINES FOR AT-POINT PROCESSING.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
03018/015   TEXTFORM                 CHPAC           SA  G          TXTF:CHPAC.S                                                    
            5.0T4    12  TEXTFORM.CHPAC.SA.015              1 LINE     80   36 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:06
            5.0T9   295                       
0          CONTAINS THE GETVAL, RETVAL, SETATTR, SETVAL, GETPV, SECHG, PSVTAB, ASSIGN,
           HCHANGE, AND ERSVTAB SUBROUTINES FOR SYMBOL TABLE PROCESSING.  OBJECT IN
           *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
1                                                                                               MON AUG 05/96   18:37:45   Page  749
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/016   TEXTFORM                 CONVPAC         SA  G          TXTF:CONVPAC.S                                                  
            5.0T4    13  TEXTFORM.CONVPAC.SA.016            1 LINE     80   46 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:09
            5.0T9   296                       
0          CONTAINS SUBROUTINES FOR CASE, LANGUAGE, STRING, AND NUMBER CONVERSION.
           OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/017   TEXTFORM                 CWKDAY          SA  G          TXTF:CWKDAY.S                                                   
            5.0T4    14  TEXTFORM.CWKDAY.SA.017             1 LINE     80    4 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:13
            5.0T9   297                       
0          CONTAINS DATA AND TIME SUBROUTINE.  OBJECT IN (3018/77) AND *TEXTFORM
           (3018/10).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
0          Referenced by comments of: 3018/77 
03018/018   TEXTFORM                 DEVPAC          SA  G          TXTF:DEVPAC.S                                                   
            5.0T4    15  TEXTFORM.DEVPAC.SA.018             1 LINE     80   12 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:14
            5.0T9   298                       
0          COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
           OBJECT IN *TEXTFORM (3018/10).
03018/019   TEXTFORM                 EXPAC           SA  G          TXTF:EXPAC.S                                                    
            5.0T4    16  TEXTFORM.EXPAC.SA.019              1 LINE     80   74 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:15
            5.0T9   299                       
0          CONTAINS THE TXTFDRVR, GCI, PARSER, COMDEXEC SUBROUTINES AND FRIENDS. 
           OBJECT IN  *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS
           (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/152 
03018/020   TEXTFORM                 EXPRPAC         SA  G          TXTF:EXPRPAC.S                                                  
            5.0T4    17  TEXTFORM.EXPRPAC.SA.020            1 LINE     80   27 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:21
            5.0T9   300                       
0          CONTAINS THE EVALUATE, EXPREV, AND EXEVAL SUBROUTINES FOR EXPRESSION
           EVALUATION.  OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120)
           AND GBLS (3018/22). 
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
03018/021   TEXTFORM                 FUNPAC          SA  G          TXTF:FUNPAC.S                                                   
            5.0T4    18  TEXTFORM.FUNPAC.SA.021             1 LINE     80   34 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:23
            5.0T9   301                       
0          TEXTFORM FUNCTIONS.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
1                                                                                               MON AUG 05/96   18:37:45   Page  750
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/022   TEXTFORM                 GBLS            SA  G          TXTF:GBLS                                                       
            5.0T4    19  TEXTFORM.GBLS.SA.022               1 LINE     80    7 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:27
            5.0T9   302                       
0          COPY SECTION OF GLOBAL SYMBOLS INCLUDING INSTALLATION OPTIONS.  COPIES 
           GBLD (3018/119). COPIED BY MANY TEXTFORM SUBCOMPONENTS.
0          Referenced by comments of: 3018/13, 3018/14, 3018/15, 3018/16, 3018/18, 3018/19, 3018/20, 3018/21, 3018/23, 3018/24,
                 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36,
                 3018/37, 3018/38, 3018/41, 3018/42, 3018/44, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51,
                 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/115, 3018/116, 3018/117, 3018/136, 3018/137, 3018/147,
                 3018/149, 3018/151, 3018/152, 3018/158, 3018/171 
03018/023   TEXTFORM                 GFDSTAR         SA  G          TXTF:GFDSTAR.S                                                  
            5.0T4    20  TEXTFORM.GFDSTAR.SA.023            1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:28
            5.0T9   303                       
0          CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON 
           TEXTFORM REFERENCED/LOADED FILES.  THIS IS THE PUBLIC FILE (OWNER ETC:)
           VERSION. COPIES GBLC (3018/120) AND GBLS (3018/22).  OBJECT IN (3018/66) AND 
           *TEXTFORM (3018/10). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
0          Referenced by comments of: 3018/66 
03018/024   TEXTFORM                 GFDN            SA  G          TXTF:GFDN.S                                                     
            5.0T4    21  TEXTFORM.GFDN.SA.024               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:29
            5.0T9   304                       
0          CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON
           TEXTFORM REFERENCED/LOADED FILES.  THIS IS THE NEW: VERSION.  COPIES 
           GBLC (3018/120) AND GBLS (3018/22).  OBJECT IN (3018/67).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
0          Referenced by comments of: 3018/67 
03018/025   TEXTFORM                 GFDO            SA  G          TXTF:GFDO.S                                                     
            5.0T4    22  TEXTFORM.GFDO.SA.025               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:29
            5.0T9   305                       
0          CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON
           TEXTFORM REFERENCED/LOADED FILES.  THIS IS THE OLD: VERSION.  COPIES 
           GBLC (3018/120) AND GBLS (3018/22).  OBJECT IN (3018/65).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
0          Referenced by comments of: 3018/65 
03018/026   TEXTFORM                 GFDT            SA  G          TXTF:GFDT.S                                                     
            5.0T4    23  TEXTFORM.GFDT.SA.026               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:30
            5.0T9   306                       
0          CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON 
           TEXTFORM REFERENCED/LOADED FILES.  THIS IS THE TXTF: VERSION.  COPIES 
           (3018/120) AND GBLS (3018/22).  OBJECT IN (3018/68).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
1                                                                                               MON AUG 05/96   18:37:45   Page  751
0  Num   R       Component Name         Subname     Type G Seq ID 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: 3018/68 
03018/027   TEXTFORM                 GOPAC           SA  G          TXTF:GOPAC.S                                                    
            5.0T4    24  TEXTFORM.GOPAC.SA.027              1 LINE     80   23 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:30
            5.0T9   307                       
0          CONTAINS THE TXTFINIT AND TXTFTERM SUBROUTINES TO INITIALIZE AND TERMINATE
           TEXTFORM. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND 
           GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
03018/028   TEXTFORM                 HYPAC           SA  G          TXTF:HYPAC.S                                                    
            5.0T4    25  TEXTFORM.HYPAC.SA.028              1 LINE     80   56 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:33
            5.0T9   308                       
0          CONTAINS HYPHENATION SUBROUTINES.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
03018/029   TEXTFORM                 INTRFACE        SA  G          TXTF:INTRFACE.S                                                 
            5.0T4    26  TEXTFORM.INTRFACE.SA.029           1 LINE     80    8 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:37
            5.0T9   309                       
0          CONTAINS THE INTERFACE TO SYSTEM SUBROUTINES.  OBJECT IN *TEXTFORM (3018/10).
           COPIES *CNFGINFODSECT (654), GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 
03018/030   TEXTFORM                 LISTPAC         SA  G          TXTF:LISTPAC.S                                                  
            5.0T4    27  TEXTFORM.LISTPAC.SA.030            1 LINE     80   10 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:39
            5.0T9   310                       
0          CONTAINS THE LISTER, ALTLIST, CHLIST, CR, AND XREFIT SUBROUTINES FOR SOURCE
           LISTING.  OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS 
           (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/031   TEXTFORM                 MACPAC          SA  G          TXTF:MACPAC.S                                                   
            5.0T4    28  TEXTFORM.MACPAC.SA.031             1 LINE     80   47 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:40
            5.0T9   311                       
0          CONTAINS THE TXTFINPT SUBROUTINE AND FRIENDS FOR INPUT GETTING, AND 
           THE ROUTINES FOR, IF, WHILE, EXECUTE PROCESSING, ETC.  OBJECT IN
           *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/032   TEXTFORM                 NPP             SA  G          TXTF:NPP.S                                                      
            5.0T4    29  TEXTFORM.NPP.SA.032                1 LINE     80   56 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:44
            5.0T9   312                       
0          CONTAINS THE PAGEPROC SUBROUTINE FOR PAGE PROCESSING.  OBJECT IN
           *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
1                                                                                               MON AUG 05/96   18:37:45   Page  752
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/033   TEXTFORM                 NUCLEUS CSECT   SA  G          TXTF:NUCLEUS.S                                                  
            5.0T4    30  TEXTFORM.NUCLEUS_CSECT.SA.033      1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:48
            5.0T9   313                       
0          THIS IS THE NUCLEUS CSECT WHICH CONTAINS ALL OF THE VALUES THAT TEXTFORM
           NEEDS TO KEEP TRACK OF WHAT'S WHAT.  COPIES THE NUCLEUS DSECT (3018/118),
           GBLC (3018/120), AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND
           3=DSECTS (3018/60).
03018/034   TEXTFORM                 OD.AJ832        SA  G          TXTF:OD.AJ832.S                                                 
            5.0T4    31  TEXTFORM.OD.AJ832.SA.034           1 LINE     80   31 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:49
            5.0T9   314                       
0          THE OUTPUT DEVICE PROCESSOR FOR THE ANDERSON-JACOBSON 832 TERMINAL.  OBJECT
           IN TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), AND XODTGETM
           (3018/144). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/035   TEXTFORM                 OD.DECWR        SA  G          TXTF:OD.DECWR.S                                                 
            5.0T4    32  TEXTFORM.OD.DECWR.SA.035           1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:53
            5.0T9   315                       
0          THE OUTPUT DEVICE PROCESSOR FOR THE DECWRITER TERMINAL.  OBJECT IN 
           TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), OD.1403.M
           (3018/40), AND XODTGETM (3018/144).  ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/40 
03018/036   TEXTFORM                 OD.DOC          SA  G          TXTF:OD.DOC.S                                                   
            5.0T4    33  TEXTFORM.OD.DOC.SA.036             1 LINE     86   22 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:54
            5.0T9   316                       
0          CONTAINS THE ODDOC SUBROUTINE WHICH PRODUCES OUTPUT DEVICE AND FONT
           DESCRIPTIONS.  USES TXTF.ODW (3018/58) AS DATA.  OBJECT IN (3018/162).
           COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59)
           AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/58, 3018/162 
03018/037   TEXTFORM                 OD.SKEL         SA  G          TXTF:OD.SKEL.S                                                  
            5.0T4    34  TEXTFORM.OD.SKEL.SA.037            1 LINE     80   14 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:56
            5.0T9   317                       
0          SKELETON FOR OUTPUT DEVICE PROCESSORS.  USEFUL AS A BASIS FOR WRITING AN OD.
           COPIES XODTGETM (3018/144), GBLC (3018/120), AND GBLS (3018/22).  ASSEMBLE
           WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/038   TEXTFORM                 OD.TBLGEN       SA  G          TXTF:OD.TBLGEN.S                                                
            5.0T4    35  TEXTFORM.OD.TBLGEN.SA.038          1 LINE     80   29 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:18:58
            5.0T9   318                       
0          CONTAINS THE GENTAB SUBROUTINE WHICH PRODUCES OUTPUT DEVICE PROCESSOR WIDTH
           TABLES.  COPIES GBLS (3018/22), AND GBLC (3018/120). ASSEMBLE WITH 2=MACROS
           (3018/59) AND 3=DSECTS (3018/60). OBJECT IN (3018/160).
1                                                                                               MON AUG 05/96   18:37:45   Page  753
0  Num   R       Component Name         Subname     Type G Seq ID 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: 3018/57, 3018/91, 3018/95, 3018/96, 3018/97, 3018/98, 3018/99, 3018/100, 3018/101,
                 3018/104, 3018/106, 3018/109, 3018/124, 3018/138, 3018/139, 3018/140, 3018/141, 3018/142, 3018/143, 3018/150,
                 3018/159, 3018/160 
03018/039   TEXTFORM                 OD.1403.D       SA  G          TXTF:OD.1403.D.S                                                
            5.0T4    36  TEXTFORM.OD.1403.D.SA.039          1 LINE     81    7 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:01
            5.0T9   319                       
0          DSECTS FOR OUTPUT DEVICE PROCESSORS FOR IBM 1403-COMPATIBLE PRINTERS.  COPIED 
           BY (3018/40) AND (3018/43).
            
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
0          Referenced by comments of: 3018/40, 3018/43 
03018/040   TEXTFORM                 OD.1403.M       SA  G          TXTF:OD.1403.M.S                                                
            5.0T4    37  TEXTFORM.OD.1403.M.SA.040          1 LINE     81   57 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:02
            5.0T9   320                       
0          CODE FOR OUTPUT DEVICE PROCESSORS FOR IBM 1403-COMPATIBLE PRINTERS.  COPIES 
           (3018/39). COPIED BY (3018/35), (3018/41), (3018/44), (3018/45), AND (3018/46).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/35, 3018/39, 3018/41, 3018/44, 3018/45, 3018/46 
03018/041   TEXTFORM                 OD.1403         SA  G          TXTF:OD.1403.S                                                  
            5.0T4    38  TEXTFORM.OD.1403.SA.041            1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:10
            5.0T9   321                       
0          OUTPUT DEVICE PROCESSOR FOR IBM 1403.  OBJECT IN TXTFODS (3018/156).
           COPIES GBLC (3018/120), GBLS (3018/22), XODTGETM (3018/144), AND OD.1403.M
           (3018/40). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/40 
03018/042   TEXTFORM                 ODM             SA  G          TXTF:ODM.S                                                      
            5.0T4    39  TEXTFORM.ODM.SA.042                1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:11
            5.0T9   322                       
0          CONTAINS TXTFODCM, THE OUTPUT DEVICE LOADER.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLS (3018/22) AND ODPD.M (3018/43). ASSEMBLE WITH 2=MACROS (3018/59)
           AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/43, 3018/147 
03018/043   TEXTFORM                 ODPD.M          SA  G          TXTF:ODPD.M.S                                                   
            5.0T4    40  TEXTFORM.ODPD.M.SA.043             1 LINE     80   20 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:11
            5.0T9   323                       
0          COPIES (3018/39). COPIED BY ODM (3018/42) AND PDM (3018/47).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/39, 3018/42, 3018/47 
1                                                                                               MON AUG 05/96   18:37:45   Page  754
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/044   TEXTFORM                 OSOD.1403       SA  G          TXTF:OSOD.1403.S                                                
            5.0T4    41  TEXTFORM.OSOD.1403.SA.044          1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:13
            5.0T9   324                       
0          IBM 1403 PRINTER OUTPUT DEVICE PROCESSOR FOR OS.  COPIES OD.1403.M (3018/40).
           OBJECT IN TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), AND
           XODTGETM (3018/144). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/40 
03018/045   TEXTFORM                 OSPD.1403       SA  G          TXTF:OSPD.1403.S                                                
            5.0T4    42  TEXTFORM.OSPD.1403.SA.045          1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:13
            5.0T9   325                       
0          IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR OS.  COPIES OD.1403.M (3018/40),
           XODTGETM.S (3018/144), GBLS (3018/22), AND GBLC (3018/120).  OBJECT IN
           TXTFODS (3018/156). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/40 
03018/046   TEXTFORM                 PD.1403         SA  G          TXTF:PD.1403.S                                                  
            5.0T4    43  TEXTFORM.PD.1403.SA.046            1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:14
            5.0T9   326                       
0          IBM 1403 PRINTER PROOF DEVICE PROCESSOR. COPIES OD.1403.M (3018/40),
           XODTGETM.S (3018/144), GBLS (3018/22), AND GBLC (3018/120).  OBJECT IN
           TXTFODS (3018/156). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/40 
03018/047   TEXTFORM                 PDM             SA  G          TXTF:PDM.S                                                      
            5.0T4    44  TEXTFORM.PDM.SA.047                1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:15
            5.0T9   327                       
0          CONTAINS TXTFPDCM, THE PROOF DEVICE LOADER.  COPIES GBLS (3018/22),
           GBLC (3018/120), AND ODPD.M (3018/43).  OBJECT IN *TEXTFORM (3018/10).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/43, 3018/147 
03018/048   TEXTFORM                 PPEXT           SA  G          TXTF:PPEXT.S                                                    
            5.0T4    45  TEXTFORM.PPEXT.SA.048              1 LINE     80   16 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:15
            5.0T9   328                       
0          CONTAINS THE CALLPUSH AND CALLPOP SUBROUTINES TO CALL PUSH AND POP, 
           AND PPUNDO, THE INTERNAL PAGE DUMPER. COPIES GBLC (3018/120) AND GBLS
           (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/049   TEXTFORM                 PPPAC           SA  G          TXTF:PPPAC.S                                                    
            5.0T4    46  TEXTFORM.PPPAC.SA.049              1 LINE     80   40 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:17
            5.0T9   329                       
0          CONTAINS THE PAGE AND TEXT PROCESSING SUBROUTINES.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
1                                                                                               MON AUG 05/96   18:37:45   Page  755
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/050   TEXTFORM                 PROOF           SA  G          TXTF:PROOF.S                                                    
            5.0T4    47  TEXTFORM.PROOF.SA.050              1 LINE     81   53 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:21
            5.0T9   330                       
0          IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR THE AM748 AND APS5 
           PHOTOTYPESETTERS. OBJECT IN TXTFODS (3018/156). COPIES GBLC (3018/120),
           GBLS (3018/22), AND XODTGETM (3018/144). ASSEMBLE WITH 2=MACROS (3018/59)
           AND 3=DSECTS (3018/60).
03018/051   TEXTFORM                 SCPAC           SA  G          TXTF:SCPAC.S                                                    
            5.0T4    48  TEXTFORM.SCPAC.SA.051              1 LINE     81   67 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:26
            5.0T9   331                       
0          CONTAINS MANY SUBROUTINES FOR COMMAND PROCESSING, ETC.  OBJECT IN 
           *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/052   TEXTFORM                 SSPAC           SA  G          TXTF:SSPAC.S                                                    
            5.0T4    49  TEXTFORM.SSPAC.SA.052              1 LINE     80   14 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:33
            5.0T9   332                       
0          CONTAINS THE REPACK, CRECHECK, DESCHECK, TSKIP, CONVMSG, FIXFDUBS, AND 
           SATRACE SUBROUTINES (MISCELLANEOUS UTILITIES).  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND
           3=DSECTS (3018/60).
03018/053   TEXTFORM                 STPAC           SA  G          TXTF:STPAC.S                                                    
            5.0T4    50  TEXTFORM.STPAC.SA.053              1 LINE     80   49 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:34
            5.0T9   333                       
0          CONTAINS THE ATXRSYMB AND READSYMB SUBROUTINES AND FRIENDS FOR SYMBOL TABLE
           AND LAYOUT PROCESSING.  OBJECT IN *TEXTFORM (3018/10).  COPIES GBLC
           (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/054   TEXTFORM                 SYSPAC          SA  G          TXTF:SYSPAC.S                                                   
            5.0T4    51  TEXTFORM.SYSPAC.SA.054             1 LINE     72   18 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:39
            5.0T9   334                       
0          CONTAINS THE ERROR, TIMER, ATTN, AND PGNT SUBROUTINES.  OBJECT IN 
           *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/055   TEXTFORM                 TEXTFORM        SA  G          TXTF:TEXTFORM.S                                                 
            5.0T4    52  TEXTFORM.TEXTFORM.SA.055           1 LINE     80    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:41
            5.0T9   335                       
0          CONTAINS TEXTFORM, THE MAIN CSECT.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
1                                                                                               MON AUG 05/96   18:37:45   Page  756
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/056   TEXTFORM                 TP              SA  G          TXTF:TP.S                                                       
            5.0T4    53  TEXTFORM.TP.SA.056                 1 LINE     80   32 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:42
            5.0T9   336                       
0          CONTAINS TEXTPROC, THE TEXT PROCESSOR.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/057   TEXTFORM                 ODT.TN.IWD      D   G          TXTF:ODT.TN.IWD                                                 
            5.0T4    54  TEXTFORM.ODT.TN.IWD.D.057          1 LINE     65    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:45
            5.0T9   337                       
0          CONTAINS WIDTH TABLES, INPUT TO GENTAB (3018/38) FOR THE IBM 1403 PRINTER
           OUTPUT DEVICE PROCESSOR, TN PRINT TRAIN.
03018/058   TEXTFORM                 TXTF.ODW        D   G          TXTF:TXTF.ODW                                                   
            5.0T4    55  TEXTFORM.TXTF.ODW.D.058            1 LINE    118    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:46
            5.0T9   338                       
0          DESCRIPTIONS OF OUTPUT DEVICES AND FONTS.  USED BY OD.DOC (3018/36).
0          Referenced by comments of: 3018/36 
03018/059   TEXTFORM                 MACROS          SM  G          TXTF:MACROS                                                     
            5.0T4    56  TEXTFORM.MACROS.SM.059             1 LINE     81   96 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:19:47
            5.0T9   339                       
0          MOST TEXTFORM SUBCOMPONENTS REQUIRE THIS MACRO LIBRARY FOR ASSEMBLY.
0          Referenced by comments of: 3018/12, 3018/13, 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21,
                 3018/23, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34,
                 3018/35, 3018/36, 3018/37, 3018/38, 3018/40, 3018/41, 3018/42, 3018/43, 3018/44, 3018/45, 3018/46, 3018/47,
                 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/79, 3018/115, 3018/116,
                 3018/117, 3018/128, 3018/136, 3018/137, 3018/147, 3018/149, 3018/151, 3018/152, 3018/158 
03018/060   TEXTFORM                 DSECTS          SM  G          TXTF:DSECTS                                                     
            5.0T4    57  TEXTFORM.DSECTS.SM.060             1 LINE     80   46 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:00
            5.0T9   340                       
0          MOST TEXTFORM SUBCOMPONENTS REQUIRE THIS DSECT LIBRARY FOR ASSEMBLY.
0          Referenced by comments of: 3018/12, 3018/13, 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21,
                 3018/23, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34,
                 3018/35, 3018/36, 3018/37, 3018/38, 3018/40, 3018/41, 3018/42, 3018/43, 3018/44, 3018/45, 3018/46, 3018/47,
                 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/79, 3018/115, 3018/116,
                 3018/117, 3018/128, 3018/136, 3018/137, 3018/147, 3018/149, 3018/151, 3018/152, 3018/158, 3018/171 
03018/061   TEXTFORM                 SYMBIN          D   G          TXTF:SYMBIN                                                     
            5.0T4    58  TEXTFORM.SYMBIN.D.061              1 LINE    255   21 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:06
            5.0T9   341                       
0          TEXTFORM INPUT TO BUILD THE SYMBOL TABLE ("ENVIRONMENT") IN (3018/63).  SEE THE
           INTERNALS MANUAL (3018/4) FOR INSTRUCTIONS.
1                                                                                               MON AUG 05/96   18:37:45   Page  757
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/062   TEXTFORM                 BOOTSYMB        D   G          TXTF:BOOTSYMB                                                   
            5.0T4    59  TEXTFORM.BOOTSYMB.D.062            1 LINE   4096    4 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:08
            5.0T9   342                       
0          THE BOOTSTRAP SYMBOL TABLE (<BILDON>, <COMMAND>, <WNST>).
03018/063   TEXTFORM                 ENVIRONMENT     D   G          ETC:TXTFENVIR                                                   
            5.0T4    60  TEXTFORM.ENVIRONMENT.D.063         1 LINE  32000   19 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:08
            5.0T9   343  ETC:TXTFENVIR        
0          THE SYMBOL TABLE USED IN RUNNING *TEXTFORM (3018/10).
0          Referenced by comments of: 3018/61 
03018/064   TEXTFORM                 TXTFLAYOUTS     D   G          ETC:TXTFLAYOUTS                                                 
            5.0T4    61  TEXTFORM.TXTFLAYOUTS.D.064         1 LINE    252   68 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:09
            5.0T9   344  ETC:TXTFLAYOUTS      
0          THE LAYOUTS USED BY *TEXTFORM (3018/10).
03018/065   TEXTFORM                 GFDO            OC  G          TXTF:GFDO.O                                                     
            5.0T4    62  TEXTFORM.GFDO.OC.065               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:14
            5.0T9   345                       
0          OBJECT OF (3018/25).
0          Referenced by comments of: 3018/25 
03018/066   TEXTFORM                 GFDSTAR         OC  G          TXTF:GFDSTAR.O                                                  
            5.0T4    63  TEXTFORM.GFDSTAR.OC.066            1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:15
            5.0T9   346                       
0          OBJECT OF (3018/23).  THIS IS THE VERSION IN *TEXTFORM (3018/10).
0          Referenced by comments of: 3018/23 
03018/067   TEXTFORM                 GFDN            OC  G          TXTF:GFDN.O                                                     
            5.0T4    64  TEXTFORM.GFDN.OC.067               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:16
            5.0T9   347                       
0          OBJECT OF (3018/24).
0          Referenced by comments of: 3018/24 
03018/068   TEXTFORM                 GFDT            OC  G          TXTF:GFDT.O                                                     
            5.0T4    65  TEXTFORM.GFDT.OC.068               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:17
            5.0T9   348                       
0          OBJECT OF (3018/26).
0          Referenced by comments of: 3018/26 
1                                                                                               MON AUG 05/96   18:37:45   Page  758
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/069   TEXTFORM                 NEWOLD          C              TXTF:NEWOLD                                                     
            5.0T4    66  TEXTFORM.NEWOLD.C.069              1 LINE     85    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:18
            5.0T9   349                       
0          COMMANDS TO CREATE A VERSION OF TEXTFORM UNDER OLD:, FROM THE PUBLIC
           FILE VERSION.
03018/070   TEXTFORM                 NEWPUB          C              TXTF:NEWPUB                                                     
            5.0T4    67  TEXTFORM.NEWPUB.C.070              1 LINE     45    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:19
            5.0T9   350                       
0          COMMANDS TO COPY THE FILE TXTF:TEXTFORM TO *TEXTFORM AND MAKE AN ENTRY TO
           THE FILE LINKLOG.
03018/071   TEXTFORM                 NEWSTAR         C              TXTF:NEWSTAR                                                    
            5.0T4    68  TEXTFORM.NEWSTAR.C.071             1 LINE     85    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:19
            5.0T9   351                       
0          COMMANDS TO CREATE THE PUBLIC FILE VERSION OF TEXTFORM FROM THE NEW: VERSION.
03018/072   TEXTFORM                 NEWNEW          C              TXTF:NEWNEW                                                     
            5.0T4    69  TEXTFORM.NEWNEW.C.072              1 LINE     81    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:20
            5.0T9   352                       
0          COMMANDS TO CREATE A VERSION OF TEXTFORM UNDER NEW: FROM FILES UNDER TXTF:.
03018/073   TEXTFORM                 PERCOLATE       C            # TXTF:PERCOLATE                                                  
                                                                                    UQV  TXTFGROUP LIFT                             
0          This file is not distributed because it is full of $EXEC commands 
           which none of you have.
03018/074   TEXTFORM                 LIB             C   G          S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LIB.C.075               
            5.0T4    70  TEXTFORM.LIB.C.074                 1 LINE     75    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:59:40
            5.0T9   353                       
03018/075   TEXTFORM                 LINK            C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LINK.C.076              
            5.0T4    71  TEXTFORM.LINK.C.075                1 LINE     40    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:59:41
            5.0T9   354                       
03018/076   TEXTFORM                 XCSYMB          C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.XCSYMB.C.077            
            5.0T4    72  TEXTFORM.XCSYMB.C.076              1 LINE     29    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:59:41
            5.0T9   355                       
0          COMMANDS TO COPY ENVIR2 --> TXTFENVIR --> OLDENVIR (THE SYMBOL TABLE).
03018/077   TEXTFORM                 CWKDAY          OC  G          TXTF:CWKDAY.O                                                   
            5.0T4    73  TEXTFORM.CWKDAY.OC.077             1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:38
            5.0T9   356                       
0          OBJECT OF (3018/17). ALSO INCLUDED IN *TEXTFORM (3018/10). 
0          Referenced by comments of: 3018/17 
1                                                                                               MON AUG 05/96   18:37:45   Page  759
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/078   TEXTFORM                 LOGJOB          C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LOGJOB.C.079            
            5.0T4    74  TEXTFORM.LOGJOB.C.078              1 LINE    111    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:59:43
            5.0T9   357                       
0          COMMANDS TO *FS TO SAVE ETC:TXTFLOG (3018/163).
0          Referenced by comments of: 3018/79, 3018/163 
03018/079   TEXTFORM                 LOG             SA  G          TXTF:LOG.S                                                      
            5.0T4    75  TEXTFORM.LOG.SA.079                1 LINE     69    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:40
            5.0T9   358                       
0          PROGRAM WHICH DECIDES WHEN TO START LOGJOB (3018/78).  READS (3018/78).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/80 
03018/080   TEXTFORM                 LOG             OC  G          TXTF:LOG.O                                                      
            5.0T4    76  TEXTFORM.LOG.OC.080                1 LINE     80    2 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:40
            5.0T9   359                       
0          OBJECT OF (3018/79).
03018/081   TEXTFORM                 LAY.SKEL        D   G          TXTF:LAY.SKEL                                                   
            5.0T4    77  TEXTFORM.LAY.SKEL.D.081            1 LINE    229    6 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:41
            5.0T9   360                       
0          A SKELETON, OR SAMPLE, FOR BUILDING LAYOUTS.  SEE "HOW TO BUILD A LAYOUT"
           IN THE INTERNALS MANUAL (3018/4).
03018/082   TEXTFORM                 LAY.THES        D   G          TXTF:LAY.THES                                                   
            5.0T4    78  TEXTFORM.LAY.THES.D.082            1 LINE    197    6 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:43
            5.0T9   361                       
0          THE THESIS LAYOUT.
03018/083   TEXTFORM                 LAY.TUT         D   G          TXTF:LAY.TUT                                                    
            5.0T4    79  TEXTFORM.LAY.TUT.D.083             1 LINE    229    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:44
            5.0T9   362                       
0          THE TUTORIAL LAYOUT.
03018/084   TEXTFORM                 LAY.NEWS        D   G          TXTF:LAY.NEWS                                                   
            5.0T4    80  TEXTFORM.LAY.NEWS.D.084            1 LINE    136    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:45
            5.0T9   363                       
0          THE NEWSLETTER LAYOUT.
03018/085   TEXTFORM                 LAY.OUT         D   G          TXTF:LAY.OUT                                                    
            5.0T4    81  TEXTFORM.LAY.OUT.D.085             1 LINE    198    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:45
            5.0T9   364                       
0          This used to be Layout REPORT, but it is now Layout OUTLINE.
1                                                                                               MON AUG 05/96   18:37:45   Page  760
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/086   TEXTFORM                 LAY.REF         D   G          TXTF:LAY.REF                                                    
            5.0T4    82  TEXTFORM.LAY.REF.D.086             1 LINE    229    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:46
            5.0T9   365                       
0          THE REFERENCE LAYOUT.
03018/087   TEXTFORM                 LAY.TECH        D   G          TXTF:LAY.TECH                                                   
            5.0T4    83  TEXTFORM.LAY.TECH.D.087            1 LINE    229    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:47
            5.0T9   366                       
0          THE TECHNICAL LAYOUT.
03018/088   TEXTFORM                 LAY.UBC         D   G          TXTF:LAY.UBC                                                    
            5.0T4    84  TEXTFORM.LAY.UBC.D.088             1 LINE    188    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:48
            5.0T9   367                       
0          LAYOUT UBC.
03018/089   TEXTFORM                 LAY.UM          D   O          TXTF:LAY.UM                                                     
            5.0T4    85  TEXTFORM.LAY.UM.D.089              1 LINE    158    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:48
            5.0T9   368                       
0          LAYOUT UM. THIS NEEDS SOME CHANGES, BUT IT DOES WORK.
03018/090   TEXTFORM                 HYPHDICT        D   G          ETC:TXTFHYPHDICT                                                
            5.0T4    86  TEXTFORM.HYPHDICT.D.090            1 LINE     22    4 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:49
            5.0T9   369  ETC:TXTFHYPHDICT     
0          THE HYPHENATION DICTIONARY.
03018/091   TEXTFORM                 WIDTHS          D   G          ETC:TXTFWIDS                                                    
            5.0T4    87  TEXTFORM.WIDTHS.D.091              1 LINE   1702  192 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:20:51
            5.0T9   370  ETC:TXTFWIDS         
0          WIDTH TABLES "LIBRARY" FOR OUTPUT PROCESSORS, AS CREATED BY TBLGEN (3018/38).
0          Referenced by comments of: 3018/171 
03018/092   TEXTFORM                 FUNCDEFS        D   G          TXTF:SYSFUNCS                                                   
            5.0T4    88  TEXTFORM.FUNCDEFS.D.092            1 LINE    137    8 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:00
            5.0T9   371                       
03018/093   TEXTFORM                 NEWOBJ          OC  G          TXTF:NEWSYS                                                     
            5.0T4    89  TEXTFORM.NEWOBJ.OC.093             1 LINE     33    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:01
            5.0T9   372                       
0          CONTAINS A COM CARD, AND $CONTINUE WITHS FOR THE OBJECT MODULES IN 
           TEXTFORM.  USED BY BUILD (3018/111).
03018/094   TEXTFORM                 BUILD.SUPP      C              TXTF:BUILD.SUPP                                                 
            5.0T4    90  TEXTFORM.BUILD.SUPP.C.094          1 LINE    129    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:02
            5.0T9   373                       
0          REFERS TO "*FORTG".
1                                                                                               MON AUG 05/96   18:37:45   Page  761
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/095   TEXTFORM                 ODT.AJ.IWD      D              TXTF:ODT.AJ.IWD                                                 
            5.0T4    91  TEXTFORM.ODT.AJ.IWD.D.095          1 LINE     58    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:03
            5.0T9   374                       
0          GENTAB (3018/38) INPUT FOR ANDERSON-JACOBSON 832 TERMINAL 
           WIDTH/INTERNAL TABLES.
03018/096   TEXTFORM                 ODT.ALA.IWD     D              TXTF:ODT.ALA.IWD                                                
            5.0T4    92  TEXTFORM.ODT.ALA.IWD.D.096         1 LINE     65    4 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:04
            5.0T9   375                       
0          GENTAB (3018/38) INPUT FOR IBM 1403 PRINTER ALA PRINT TRAIN WIDTH/INTERNAL
           TABLES.
03018/097   TEXTFORM                 ODT.AMM.IWD     D              TXTF:ODT.AMM.IWD                                                
            5.0T4    93  TEXTFORM.ODT.AMM.IWD.D.097         1 LINE    107   22 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:04
            5.0T9   376                       
0          GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER MATH DISK WIDTH/INTERNAL
           TABLES.
03018/098   TEXTFORM                 ODT.AMS.IWD     D              TXTF:ODT.AMS.IWD                                                
            5.0T4    94  TEXTFORM.ODT.AMS.IWD.D.098         1 LINE     79   17 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:06
            5.0T9   377                       
0          GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER SCHOOLBOOK DISK
           WIDTH/INTERNAL TABLES.
03018/099   TEXTFORM                 ODT.AMT.IWD     D              TXTF:ODT.AMT.IWD                                                
            5.0T4    95  TEXTFORM.ODT.AMT.IWD.D.099         1 LINE     79   15 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:08
            5.0T9   378                       
0          GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER TIMES-ROMAN DISK 
           WIDTH/INTERNAL TABLES.
03018/100   TEXTFORM                 ODT.AMU.IWD     D              TXTF:ODT.AMU.IWD                                                
            5.0T4    96  TEXTFORM.ODT.AMU.IWD.D.100         1 LINE     79   17 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:10
            5.0T9   379                       
0          GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER UNIVERS DISK 
           WIDTH/INTERNAL TABLES.
03018/101   TEXTFORM                 ODT.APL.IWD     D              TXTF:ODT.APL.IWD                                                
            5.0T4    97  TEXTFORM.ODT.APL.IWD.D.101         1 LINE     67    4 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:11
            5.0T10    1                       
0          GENTAB (3018/38) INPUT FOR IBM 1403 PRINTER APL PRINT TRAIN WIDTH/INTERNAL
           TABLES.
03018/102   TEXTFORM                 ODT.CHK         D              TXTF:ODT.CHK                                                    
            5.0T4    98  TEXTFORM.ODT.CHK.D.102             1 LINE     86    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:12
            5.0T10    2                       
1                                                                                               MON AUG 05/96   18:37:45   Page  762
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/103   TEXTFORM                 ODT.CHSPCN      D            # TXTF:ODT.CHSPCN                                                 
                                                                                    UQV  TXTFGROUP LIFT                             
0          No longer required.
03018/104   TEXTFORM                 ODT.DECWR.IW    D              TXTF:ODT.DECWR.IW                                               
            5.0T4    99  TEXTFORM.ODT.DECWR.IW.D.104        1 LINE     65    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:13
            5.0T10    3                       
0          GENTAB (3018/38) INPUT FOR DECWRITER TERMINAL WIDTH/INTERNAL TABLES.
03018/105   TEXTFORM                 ODT.DSECT.CH    C              TXTF:ODT.DSECT.CH                                               
            5.0T4   100  TEXTFORM.ODT.DSECT.CH.C.105        1 LINE     71    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:14
            5.0T10    4                       
0          COMMANDS TO GENERATE WIDTH AND INTERNAL TABLES FOR OUTPUT DEVICE AND PROOF 
           PROCESSORS.  DTC302 TERMINAL SUPPORT IS NOT YET INCLUDED. CONTAINS MANY 
           $CONTINUE WITH RECORDS FOR TEXTFORM SOURCE COMPONENTS (SOME OF WHICH HAVE 
           NOT BEEN DISTRIBUTED BY UQV).
03018/106   TEXTFORM                 ODT.P1403M.I    D              TXTF:ODT.P1403M.I                                               
            5.0T4   101  TEXTFORM.ODT.P1403M.I.D.106        1 LINE     65   10 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:15
            5.0T10    5                       
0          GENTAB (3018/38) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF DEVICE
           PROCESSOR FOR AM748 PHOTOTYPESETTER MATH DISK.
03018/107   TEXTFORM                 ODT.P1403S.I    D            # TXTF:ODT.P1403S.I                                               
                                                                                    UQV  TXTFGROUP LIFT                             
0          This information is now included in (3018/109).
03018/108   TEXTFORM                 ODT.P1403T.I    D            # TXTF:ODT.P1403T.I                                               
                                                                                    UQV  TXTFGROUP LIFT                             
0          This information is now included in (3018/109).
03018/109   TEXTFORM                 ODT.P1403U.I    D              TXTF:ODT.P1403U.I                                               
            5.0T4   102  TEXTFORM.ODT.P1403U.I.D.109        1 LINE     68    7 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:16
            5.0T10    6                       
0          GENTAB (3018/38) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF
           DEVICE PROCESSOR FOR AM748 PHOTOTYPESETTER DISKS.
0          Referenced by comments of: 3018/107, 3018/108 
03018/110   TEXTFORM                 PERMITS         C              TXTF:PERMITS                                                    
            5.0T4   103  TEXTFORM.PERMITS.C.110             1 LINE     70    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:17
            5.0T10    7                       
0          COMMANDS TO CREATE AND PERMIT FILES NEEDED FOR A NEW: VERSION OF TEXTFORM.
1                                                                                               MON AUG 05/96   18:37:45   Page  763
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/111   TEXTFORM                 BUILD           C              TXTF:BUILD                                                      
            5.0T4   104  TEXTFORM.BUILD.C.111               1 LINE    679    8 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:18
            5.0T10    8                       
0          Command file to assemble all of TEXTFORM.
0          Referenced by comments of: 3018/93 
03018/112   TEXTFORM                 PUBLISH CRSE    WX             TXTF:PUB.OUT                                                    
            5.0T4   105  TEXTFORM.PUBLISH_CRSE.WX.112       1 LINE    121    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:19
            5.0T10    9                       
0          MATERIAL FOR COMPUTER ASSISTED PUBLISHING WITH TEXTFORM COURSE.
03018/113   TEXTFORM                 AM CHAR TEST    WX             TXTF:AMCST                                                      
            5.0T4   106  TEXTFORM.AM_CHAR_TEST.WX.113       1 LINE    124    4 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:19
            5.0T10   10                       
0          AM748 PHOTOTYPESETTER DESCRIPTION.
03018/114   TEXTFORM                 APS CHAR TEST   WX             TXTF:APSCST                                                     
            5.0T4   107  TEXTFORM.APS_CHAR_TEST.WX.114      1 LINE    132    7 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:20
            5.0T10   11                       
0          APS5 PHOTOTYPESETTER DESCRIPTION.
03018/115   TEXTFORM                 CMDPAC          SA  G          TXTF:CMDPAC.S                                                   
            5.0T4   108  TEXTFORM.CMDPAC.SA.115             1 LINE     80   20 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:21
            5.0T10   12                       
0          INTERNAL PAGE COMMAND BUILDER SUBROUTINES.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/116   TEXTFORM                 PPDPAC          SA  G          TXTF:PPDPAC.S                                                   
            5.0T4   109  TEXTFORM.PPDPAC.SA.116             1 LINE     80   18 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:23
            5.0T10   13                       
0          LOGICAL BACKSPACE, TABLE PRINTER, AND OTHER SUBROUTINES.  OBJECT IN
           *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22).
           ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/117   TEXTFORM                 LPPAC           SA  G          TXTF:LPPAC.S                                                    
            5.0T4   110  TEXTFORM.LPPAC.SA.117              1 LINE     80   48 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:25
            5.0T10   14                       
0          TABLE AND LOGICAL PAGE SUBROUTINES.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59)
           AND 3=DSECTS (3018/60).
03018/118   TEXTFORM                 NUCLEUS DSECT   SA  G          TXTF:NUCLEUS                                                    
            5.0T4   111  TEXTFORM.NUCLEUS_DSECT.SA.118      1 LINE     81   35 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:28
            5.0T10   15                       
0          CONTAINS THE NUCLEUS DSECT, WHICH IS COPIED BY MOST PARTS OF TEXTFORM
1                                                                                               MON AUG 05/96   18:37:45   Page  764
0  Num   R       Component Name         Subname     Type G Seq ID 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          VIA THE TENTER MACRO.
0          Referenced by comments of: 3018/33 
03018/119   TEXTFORM                 GBLD            SA  G          TXTF:GBLD                                                       
            5.0T4   112  TEXTFORM.GBLD.SA.119               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:33
            5.0T10   16                       
0          CONTAINS GLOBAL SYMBOL DEFINITIONS, WHICH ARE COPIED BY MANY TEXTFORM
           SUBCOMPONENTS.
0          Referenced by comments of: 3018/22, 3018/120 
03018/120   TEXTFORM                 GBLC            SA  G          TXTF:GBLC                                                       
            5.0T4   113  TEXTFORM.GBLC.SA.120               1 LINE     80    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:34
            5.0T10   17                       
0          COMMENTS DESCRIBING SYMBOLS IN GBLD (3018/119).  THIS IS COPIED BY MANY
           TEXTFORM SUBCOMPONENTS.
0          Referenced by comments of: 3018/13, 3018/14, 3018/15, 3018/16, 3018/18, 3018/19, 3018/20, 3018/21, 3018/23, 3018/24,
                 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36,
                 3018/37, 3018/38, 3018/41, 3018/44, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52,
                 3018/53, 3018/54, 3018/55, 3018/56, 3018/115, 3018/116, 3018/117, 3018/136, 3018/137, 3018/147, 3018/149,
                 3018/151, 3018/152, 3018/158 
03018/121   TEXTFORM                 FILES           C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.FILES.C.124             
            5.0T4   114  TEXTFORM.FILES.C.121               1 LINE     70    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  22:01:19
            5.0T10   18                       
0          PROTOTYPE FOR COMMAND FILE TO COPY FILES BETWEEN NEW:, OLD:, AND ETC:.  USE
           $EDIT TO PUT IN THE IDS.
03018/122   TEXTFORM                 XCWID           C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.XCWID.C.125             
            5.0T4   115  TEXTFORM.XCWID.C.122               1 LINE     72    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  22:01:19
            5.0T10   19                       
0          COMMANDS TO COPY TXTFWIDS --> TXTFWIDS --> OLDTWIDS (THE WIDTH TABLES).
03018/123   TEXTFORM                 APSWID          D              TXTF:APS.WID.D                                                  
            5.0T4   116  TEXTFORM.APSWID.D.123              1 LINE    400   11 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:48
            5.0T10   20                       
0          CHARACTER WIDTHS FOR THE APS5 PHOTOTYPESETTER.  SEE THE INTERNALS MANUAL
           (3018/4) FOR A DESCRIPTION.
03018/124   TEXTFORM                 APSWID          C              TXTF:APSWID.C                                                   
            5.0T4   117  TEXTFORM.APSWID.C.124              1 LINE     98    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:49
            5.0T10   21                       
0          COMMANDS TO CREATE GENTAB (3018/38) INPUT FOR THE APS5 PHOTOTYPESETTER.
           SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION.
1                                                                                               MON AUG 05/96   18:37:45   Page  765
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/125   TEXTFORM                 APSCOM          D              TXTF:APSKOM.C                                                   
            5.0T4   118  TEXTFORM.APSCOM.D.125              1 LINE     93    8 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:21:50
            5.0T10   22                       
0          APS5 PHOTOTYPESETTER CHARACTER NAMES.  SEE THE INTERNALS MANUAL
           (3018/4) FOR A DESCRIPTION.
03018/126   TEXTFORM                 APSMERGE        SF  G          S1089 UQV36 FSNAME=TEXTFORM.APSMERGE.SF.129                     
            5.0T4   119  TEXTFORM.APSMERGE.SF.126           1 LINE     80   17 PAGE UQV  TXTFGROUP LIFT      FEB. 29, 1980  10:02:13
            5.0T10   23                       
0          PROGRAM USED IN CONSTRUCTING APS5 PHOTOTYPESETTER WIDTH/INTERNAL TABLES.
           SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION.
0          Referenced by comments of: 3018/153 
03018/127   TEXTFORM                 APSDUMP         SF  G          TXTF:APSDMP.FS                                                  
            5.0T4   120  TEXTFORM.APSDUMP.SF.127            1 LINE     58    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:13
            5.0T10   24                       
03018/128   TEXTFORM                 APSDUMP         SA  G          TXTF:APSDMP.S                                                   
            5.0T4   121  TEXTFORM.APSDUMP.SA.128            1 LINE     72    7 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:14
            5.0T10   25                       
0          ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/129   TEXTFORM                 APSREPAGE       SF  G          S1089 UQV36 FSNAME=TEXTFORM.APS5_REPAGER.SF.132                 
            5.0T4   122  TEXTFORM.APSREPAGE.SF.129          1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      FEB. 29, 1980  10:02:19
            5.0T10   26                       
03018/130   TEXTFORM                 LAY.APA         D              TXTF:LAY.APA                                                    
            5.0T4   123  TEXTFORM.LAY.APA.D.130             1 LINE    248    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:16
            5.0T10   27                       
0          LAYOUT APA.
03018/131   TEXTFORM                 LAY.JPAL        D              TXTF:LAY.JPAL                                                   
            5.0T4   124  TEXTFORM.LAY.JPAL.D.131            1 LINE    223    4 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:17
            5.0T10   28                       
0          LAYOUT JPALEON.
03018/132   TEXTFORM                 LAY.NUM         D              TXTF:LAY.NUM                                                    
            5.0T4   125  TEXTFORM.LAY.NUM.D.132             1 LINE    250    6 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:17
            5.0T10   29                       
0          LAYOUT NUMERATE. (LOCATION OF DOCUMENTATION UNKNOWN.)
03018/133   TEXTFORM                 LAY.SPI         D              TXTF:LAY.SPI                                                    
            5.0T4   126  TEXTFORM.LAY.SPI.D.133             1 LINE    229    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:18
            5.0T10   30                       
0          LAYOUT SPIRES.
1                                                                                               MON AUG 05/96   18:37:45   Page  766
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/134   TEXTFORM                 LAY.THENUM      D              TXTF:LAY.THENUM                                                 
            5.0T4   127  TEXTFORM.LAY.THENUM.D.134          1 LINE    197    6 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:19
            5.0T10   31                       
0          LAYOUT THESISNUMERATE.
03018/135   TEXTFORM                 LISTCALCHARS    SF  G          S1089 UQV36 FSNAME=TEXTFORM.LISTCALCHARS.SF.138                 
            5.0T4   128  TEXTFORM.LISTCALCHARS.SF.135       1 LINE     73    4 PAGE UQV  TXTFGROUP LIFT      FEB. 29, 1980  10:02:33
            5.0T10   32                       
0          PROGRAM TO PRODUCE WIDTH/INTERNAL TABLES FOR THE CALCOMP OUPUT DEVICE
           PROCESSOR (3018/137).  READS ETC:PLOTALPHA (615/8).
0          Referenced by comments of: 3018/155 
03018/136   TEXTFORM                 OD.APS5         SA  G          TXTF:OD.APS5.S                                                  
            5.0T4   129  TEXTFORM.OD.APS5.SA.136            1 LINE     81   56 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:21
            5.0T10   33                       
0          OUTPUT DEVICE PROCESSOR FOR THE APS5 PHOTOTYPESETTER.  OBJECT IS IN 
           TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), AND
           XODGETM (3018/144). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/137   TEXTFORM                 OD.CALCOMP      SA  G          TXTF:OD.CALCOMP.S                                               
            5.0T4   130  TEXTFORM.OD.CALCOMP.SA.137         1 LINE     80   28 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:26
            5.0T10   34                       
0          CALCOMP OUTPUT DEVICE PROCESSOR.  USES UM'S PLOTSYS (615/9); OTHER INSTALLATIONS
           MAY HAVE TO MAKE MINOR CHANGES SO THAT IT WILL WORK. COPIES XODGETM (3018/144),
           GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/135 
03018/138   TEXTFORM                 ODT.AMC.IWD     D              TXTF:ODT.AMC.IWD                                                
            5.0T4   131  TEXTFORM.ODT.AMC.IWD.D.138         1 LINE     79   16 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:28
            5.0T10   35                       
0          GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER CHELMSFORD DISK
           WIDTH/INTERNAL TABLES.
03018/139   TEXTFORM                 ODT.CALC.ID     D              TXTF:ODT.CALC.ID                                                
            5.0T4   132  TEXTFORM.ODT.CALC.ID.D.139         1 LINE     91   37 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:30
            5.0T10   36                       
0          GENTAB (3018/38) INPUT FOR CALCOMP OUTPUT DEVICE PROCESSOR INTERNAL TABLES.
03018/140   TEXTFORM                 ODT.SKEL.IWD    D              TXTF:ODT.SKEL.IWD                                               
            5.0T4   133  TEXTFORM.ODT.SKEL.IWD.D.140        1 LINE     65    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:33
            5.0T10   37                       
0          GENTAB (3018/38) INPUT FOR SKELETON OR SAMPLE WIDTH/INTERNAL TABLES.
           USEFUL WHEN WRITING A NEW OUTPUT DEVICE PROCESSOR.
1                                                                                               MON AUG 05/96   18:37:45   Page  767
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/141   TEXTFORM                 ODT.APS.ID      D              TXTF:ODT.APS.ID                                                 
            5.0T4   134  TEXTFORM.ODT.APS.ID.D.141          1 LINE     56  192 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:34
            5.0T10   38                       
0          GENTAB (3018/38) INPUT FOR INTERNAL TABLES FOR APS5 PHOTOTYPESETTER
           OUTPUT DEVICE PROCESSOR.
03018/142   TEXTFORM                 ODT.APS.WD      D              TXTF:ODT.APS.WD                                                 
            5.0T4   135  TEXTFORM.ODT.APS.WD.D.142          1 LINE     56  188 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:46
            5.0T10   39                       
0          GENTAB (3018/38) INPUT FOR WIDTH TABLES FOR APS5 PHOTOTYPESETTER
           OUTPUT DEVICE PROCESSOR.
03018/143   TEXTFORM                 ODT.PAPS.IWD    D              TXTF:ODT.PAPS.IWD                                               
            5.0T4   136  TEXTFORM.ODT.PAPS.IWD.D.143        1 LINE     73   19 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:57
            5.0T10   40                       
0          GENTAB (3018/38) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF
           DEVICE FOR APS5 OUTPUT DEVICE PROCESSOR.
03018/144   TEXTFORM                 ODPDTESTMACS    SA  G          TXTF:XODTGETM.S                                                 
            5.0T4   137  TEXTFORM.ODPDTESTMACS.SA.144       1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:27:59
            5.0T10   41                       
0          THIS IS A FILE WHICH CURRENTLY CONTAINS ONLY COMMENTS, BUT WHICH IS INTENDED
           TO CONTAIN MACROS AND/OR COPY SECTIONS COPIED BY OUTPUT DEVICE AND PROOF
           DEVICE PROCESSORS.
0          Referenced by comments of: 3018/13, 3018/34, 3018/35, 3018/37, 3018/41, 3018/44, 3018/45, 3018/46, 3018/50, 3018/136,
                 3018/137 
03018/145   TEXTFORM                 AJDITTO         SF  G          S1089 UQV36 FSNAME=TEXTFORM.AJDITTO.SF.148                      
            5.0T4   138  TEXTFORM.AJDITTO.SF.145            1 LINE     71    4 PAGE UQV  TXTFGROUP LIFT      FEB. 29, 1980  10:03:53
            5.0T10   42                       
0          AN *DITTO-LIKE PROGRAM FOR TEXTFORM OUTPUT TO THE ANDERSON-JACOBSON
           832 TERMINAL.
0          Referenced by comments of: 3018/146 
03018/146   TEXTFORM                 AJDITTO         WX             S1089 UQV36 FSNAME=TEXTFORM.AJDITTO.WX.149                      
            5.0T4   139  TEXTFORM.AJDITTO.WX.146            1 LINE    144    3 PAGE UQV  TXTFGROUP LIFT      FEB. 29, 1980  10:03:55
            5.0T10   43                       
0          DOCUMENTATION FOR (3018/145).
03018/147   TEXTFORM                 WIDCONV         SA  G          TXTF:WIDCONV.S                                                  
            5.0T4   140  TEXTFORM.WIDCONV.SA.147            1 LINE     80   20 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:06
            5.0T10   44                       
0          FUNCTION WHICH TAKES WIDTH/INTERNAL TABLES AND ADDS DIRECTORY
           INFORMATION REQUIRED BY TXTFODCM (3018/42) AND TXTFPDCM (3018/47).
           COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59)
1                                                                                               MON AUG 05/96   18:37:45   Page  768
0  Num   R       Component Name         Subname     Type G Seq ID 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          AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/148, 3018/149, 3018/161 
03018/148   TEXTFORM                 WIDCONV         D              TXTF:WCONV.D                                                    
            5.0T4   141  TEXTFORM.WIDCONV.D.148             1 LINE    681    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:08
            5.0T10   45                       
0          DATA FOR WIDCONV (3018/147).
03018/149   TEXTFORM                 WIDPAC          SA  O          TXTF:WIDPAC.S                                                   
            5.0T4   142  TEXTFORM.WIDPAC.SA.149             1 LINE     80   22 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:09
            5.0T10   46                       
0          CPRDNET (ETC.) USED BY WIDCONV (3018/147). COPIES GBLC (3018/120), AND 
           GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
03018/150   TEXTFORM                 ODT.CALC.WD     D              TXTF:ODT.CALC.WD                                                
            5.0T4   143  TEXTFORM.ODT.CALC.WD.D.150         1 LINE     95   37 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:11
            5.0T10   47                       
0          GENTAB (3018/38) INPUT FOR CALCOMP OUTPUT DEVICE PROCESSOR WIDTH TABLES.
03018/151   TEXTFORM                 FNCHI           SA  G          TXTF:FNCHI.S                                                    
            5.0T4   144  TEXTFORM.FNCHI.SA.151              1 LINE     80   23 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:14
            5.0T10   48                       
0          CONTAINS THE FONTINFO AND CHARINFO SUBROUTINES TO GET FONT OR CHARACTER
           INFORMATION.  OBJECT IN TXTFFNS (3018/157). COPIES GBLC (3018/120) AND 
           GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/157 
03018/152   TEXTFORM                 GETDATA         SA  G          TXTF:GTXTDAT.S                                                  
            5.0T4   145  TEXTFORM.GETDATA.SA.152            1 LINE     80    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:16
            5.0T10   49                       
0          CONTAINS THE GTXTDAT SUBROUTINES TO READ TEXT FROM GUSER AND PASS IT TO
           TXTFDRVR, IN (3018/19).  OBJECT IN TXTFFNS (3018/157). COPIES GBLC (3018/120)
           AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60).
0          Referenced by comments of: 3018/157 
03018/153   TEXTFORM                 APS.DCT.D       D              TXTF:APS.DCT.D                                                  
            5.0T4   146  TEXTFORM.APS.DCT.D.D.153           1 LINE    279    5 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:17
            5.0T10   50                       
0          DATA TO APSMERG (3018/126).
03018/154   TEXTFORM                 CALCWID         C              TXTF:CALCWID.C                                                  
            5.0T4   147  TEXTFORM.CALCWID.C.154             1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:18
            5.0T10   51                       
1                                                                                               MON AUG 05/96   18:37:45   Page  769
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/155   TEXTFORM                 CALC.ID         D              TXTF:CALC.ID                                                    
            5.0T4   148  TEXTFORM.CALC.ID.D.155             1 LINE     85   45 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:19
            5.0T10   52                       
0          DATA TO LISTCALCHARS (3018/135).  SEE THE INTERNALS MANUAL (3018/4) FOR
           A DESCRIPTION.
03018/156A  TEXTFORM                 TXTFODS         OL  O          ETC:TXTFODS                                                     
            5.0T4   149  TEXTFORM.TXTFODS.OL.156            1 LINE  10130   23 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:23
            5.0T10   53  ETC:TXTFODS          
0          OBJECT OF ALL OUTPUT DEVICE PROCESSORS.
0          Referenced by comments of: 3018/13, 3018/34, 3018/35, 3018/41, 3018/44, 3018/45, 3018/46, 3018/50, 3018/136, 3018/158 
03018/157   TEXTFORM                 TXTFFNS         OL  G          ETC:TXTFFNS                                                     
            5.0T4   150  TEXTFORM.TXTFFNS.OL.157            1 LINE   2128    3 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:25
            5.0T10   54  ETC:TXTFFNS          
0          CONTAINS THE FONTINFO, CHARINFO AND TXTDAT SUBROUTINES. SOURCE IN 
           (3018/151) AND (3018/152).
0          Referenced by comments of: 3018/151, 3018/152 
03018/158A  TEXTFORM                 OD.DTC302       SA  O          TXTF:OD.DTC302.S                                                
            5.0T4   151  TEXTFORM.OD.DTC302.SA.158          1 LINE     72   18 PAGE UM   LIFT                JULY 03, 1981  21:28:26
            5.0T10   55                       
0          OUTPUT DEVICE PROCESSOR FOR A DTC302 AND DIABLO 1620 "DAISY-WHEEL" TERMINALS
           AND NEC SPINWRITER S520.  HAS 1/60TH INCH HORIZONTAL.  THE FOLLOWING FEATURES
           ARE NOT YET IMPLEMENTED:  SUBSCRIPTS, SUPERSCRIPTS, 1/48TH INCH VERTICAL UNIT,
           SPECIAL CHARACTERS, MID-PAGE WHEEL CHANGES, AND OTHERS.  SEE ASSEMBLY 
           PARAMETER &WHICH TO GET TERMINAL TYPE.
            
           OBJECT IN TXTFODS (3018/156).
            
           ASSEMBLE USING *ASMH WITH 2=MACROS (3018/59), 3=DSECTS (3018/60).
           COPIES GBLC (3018/120) AND GBLS (3018/22).
03018/159   TEXTFORM                 DTC302 TABLES   D              TXTF:WIDDTC302                                                  
            5.0T4   152  TEXTFORM.DTC302_TABLES.D.159       1 LINE     64    1 PAGE UM   LIFT                JULY 03, 1981  21:28:28
            5.0T10   56                       
0          WIDTH TABLES FOR DTC302. PROCESS WITH TBLGEN (3018/38).
           NEEDS IMPROVEMENTS, BUT USABLE AS IS.
03018/160   TEXTFORM                 OD.TBLGEN       OC  G          TXTF:OD.TBLGEN.O                                                
            5.0T4   153  TEXTFORM.OD.TBLGEN.OC.160          1 LINE     80   14 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:29
            5.0T10   57                       
0          OBJECT OF (3018/38).  EXECUTES AS A TEXTFORM FUNCTION.  SEE THE INTERNALS
           MANUAL (3018/4) FOR A DESCRIPTION.
0          Referenced by comments of: 3018/38 
1                                                                                               MON AUG 05/96   18:37:45   Page  770
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/161   TEXTFORM                 WIDCONV         OC  G          TXTF:WIDCONV.O                                                  
            5.0T4   154  TEXTFORM.WIDCONV.OC.161            1 LINE     80   10 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:30
            5.0T10   58                       
0          OBJECT OF (3018/147).  EXECUTES AS A TEXTFORM FUNCTION.  SEE THE INTERNALS
           MANUAL (3018/4) FOR A DESCRIPTION.
03018/162   TEXTFORM                 OD.DOC          OC  G          TXTF:OD.DOC.O                                                   
            5.0T4   155  TEXTFORM.OD.DOC.OC.162             1 LINE     80   10 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:32
            5.0T10   59                       
0          OBJECT OF (3018/36).  EXECUTES AS A TEXTFORM FUNCTION.  SEE THE INTERNALS
           MANUAL (3018/4) FOR A DESCRIPTION.
0          Referenced by comments of: 3018/36 
03018/163   TEXTFORM                 TXTFLOG         D            # ETC:TXTFLOG                                                     
                                                                                    UQV  TXTFGROUP LIFT                             
                         ETC:TXTFLOG@E        
0          LOG FILE WRITTEN BY *TEXTFORM FOR EACH RUN OF *TEXTFORM BY A USER.  CONTENTS
           SAVED ON TAPE BY WEEKLY PROCEDURE.  SEE LOGJOB (3018/78). THIS SHOULD BE
           PERMITTED WE (PKEY=NEW:TEXTFORM,PKEY=*TEXTFORM,PKEY=OLD:TEXTFORM).
0          Referenced by comments of: 3018/78, 3018/164, 3018/166, 3018/167 
03018/164   TEXTFORM                 LOG             SA  G          TXTF:LOG.S                                                      
            5.0T4   156  TEXTFORM.LOG.SA.164                1 LINE     69    3 PAGE UM   LIFT      LIFT      JULY 03, 1981  21:28:33
            5.0T10   60                       
0          THIS IS THE LOGSAVING PROGRAM DEVELOPED AND USED BY UM.  IT DETERMINES
           IF ETC:TXTFLOG (3018/163), THE TEXTFORM STATISTICS FILE, SHOULD BE
           SAVED, BASED ON THE TIME OF THE LAST SAVE.  IF THE PROGRAM DETERMINES
           THAT THE STATISTICS FILE SHOULD BE SAVED, IT SUBMITS A BATCH JOB,
           (3018/169, WHICH WILL RUN THE LOGSAVE PROGRAM, (3018/167), TO SAVE THE
           STATISTICS FILE ON TAPE.  IT ALSO REPORTS ERRORS WHICH OCCURRED WHILE
           SAVING ETC:TXTFLOG.
03018/165   TEXTFORM                 LOG             OC  G          TXTF:LOG.O                                                      
            5.0T4   157  TEXTFORM.LOG.OC.165                1 LINE     80    2 PAGE UM   LIFT      LIFT      JULY 03, 1981  21:28:34
            5.0T10   61                       
03018/166   TEXTFORM                 LOGJOB          C   G          TXTF:LOGSAVEJOB                                                 
            5.0T4   158  TEXTFORM.LOGJOB.C.166              1 LINE     53    1 PAGE UM   LIFT      LIFT      JULY 03, 1981  21:28:35
            5.0T10   62                       
0          BATCH JOB TO SAVE ETC:TXTFLOG (3018/163), THE TEXTFORM STATISTICS FILE, ON
           TAPE. THESE COMMANDS RUN THE LOGSAVE PROGRAM (3018/167). NEGATIVE LINE
           NUMBERS CONTAIN INFORMATION USED BY LOGSAVE. THE PASSWORD MUST BE SUPPLIED ON
           LINE 2 AND THE MOUNT COMMAND ON LINE -1 MUST BE MODIFIED BEFORE IT IS
           ACTUALLY USED.
0          Referenced by comments of: 3018/167 
1                                                                                               MON AUG 05/96   18:37:45   Page  771
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/167   TEXTFORM                 LOGSAVE         SA  G          S1089 UQV36 FSNAME=TEXTFORM.LOGSAVE.SA.260                      
            5.0T4   159  TEXTFORM.LOGSAVE.SA.167            1 LINE     67    4 PAGE UM   LIFT      LIFT      FEB. 29, 1980  10:08:11
            5.0T10   63                       
0          PROGRAM TO SAVE ETC:TXTFLOG (3018/163), THE TEXTFORM STATISTICS FILE, ON
           TAPE.  THE PROGRAM IS RUN BY COMMANDS IN (3018/166).
0          Referenced by comments of: 3018/164, 3018/166 
03018/168   TEXTFORM                 LOGSAVE         OC  G          S1089 UQV36 FSNAME=TEXTFORM.LOGSAVE.OC.261                      
            5.0T4   160  TEXTFORM.LOGSAVE.OC.168            1 LINE     80    2 PAGE UM   LIFT      LIFT      FEB. 29, 1980  10:08:12
            5.0T10   64                       
03018/169   TEXTFORM                 BUGS            P              TXTF:TEXTFORM.BUG                                               
            5.0T4   161  TEXTFORM.BUGS.P.169                1 LINE     68    1 PAGE UQV  TXTFGROUP LIFT      JULY 03, 1981  21:28:58
            5.0T10   65                       
0          LIST OF SOME VERSION 1 BUGS.
03018/170   TEXTFORM                 INSTNOTES       WX             S1089 UQV36 FSNAME=TEXTFORM.INSTALL_GUIDE.WX.266                
            5.0T4   162  TEXTFORM.INSTNOTES.WX.170          1 LINE     89    4 PAGE UM   LIFT                FEB. 29, 1980  10:08:27
            5.0T10   66                       
0          NOTES COMPILED WHILE INSTALLING VERSION 1 OF TEXTFORM AT UM.
03018/171   TEXTFORM                 WIDUTIL         SA  S          TXTF:WIDUTIL                                                    
            5.0T4   163  TEXTFORM.WIDUTIL.SA.171            1 LINE     72   14 PAGE UM   LIFT                JULY 03, 1981  21:29:02
            5.0T10   67                       
0          OBJUTIL FOR OUTPUT PROCESSOR WIDTH TABLE LIBRARIES, E.G., ETC:TXTFWIDS
           (3018/91).  THIS IS A STAND-ALONE PROGRAM.  ASSEMBLE WITH 2=DSECTS (3018/60).
           COPIES GBLS (3018/22). THIS IS A PRELIMINARY VERSION.
03018/172   TEXTFORM                 WIDUTIL         OC  S          TXTF:WIDUTILX                                                   
            5.0T4   164  TEXTFORM.WIDUTIL.OC.172            1 LINE     80    5 PAGE UM   LIFT                JULY 03, 1981  21:29:05
            5.0T10   68                       
03018/173   TEXTFORM                 WIDUTIL         WX             TXTF:WWIDUTIL                                                   
            5.0T4   165  TEXTFORM.WIDUTIL.WX.173            1 LINE     72    4 PAGE UM   LIFT                JULY 03, 1981  21:29:06
            5.0T10   69                       
0          USAGE AND INTERNALS WRITEUP FOR THE PRELIMINARY VERSION OF WIDUTIL.
03018/174   TEXTFORM                 MACROS          WX  S          COPY:JONMACLIBTXT                                               
            5.0T4   166  TEXTFORM.MACROS.WX.174             1 LINE    143    7 PAGE UBC  DUKE      UNSP      JULY 03, 1981  21:29:06
            5.0T10   70                       
0          THIS FILE CONTAINS A LARGE NUMBER OF TEXTFORM MACROS, ETC. DEVELOPED BY 
           JON NIGHTINGALE AND TINA DUKE TO CORRESPOND TO JON:MACLIB WHICH IS
           DISTRIBUTED BY UM AS (308/18), FOR PRODUCING DOCUMENTS IN UBC STYLE.
            
           THIS IS A PRELIMINARY VERSION.
0          Referenced by comments of: 1042/59, 1076/12 
1                                                                                               MON AUG 05/96   18:37:45   Page  772
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03018/175   TEXTFORM                 LAY.TYNE        D   O          S1431 4.3T2 VLO FSNAME=TEXTFORM.LAY.TYNE.D.178(1)            553
            5.0T4   167  TEXTFORM.LAY.TYNE.D.175            1 LINE    160    9 PAGE UNE  HUNTER    LIFT      FEB. 09, 1980  16:08:43
            5.0T10   71                       
0          NUMAC documentation group standards layout.
03018/176   TEXTFORM                 LAY.DEE         D   O          S1431 4.3T2 VLO FSNAME=TEXTFORM.LAY.DEE.D.179(1)             554
            5.0T4   168  TEXTFORM.LAY.DEE.D.176             1 LINE    187    9 PAGE UNE  HUNTER    LIFT      FEB. 09, 1980  16:08:49
            5.0T10   72                       
0          NUMAC general layout with numbered headings.
03019/001   VAM748                                                # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO
           SIMULATE THE AM748 ON A LINE PRINTER.
03020/001   FASTSET                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO
           CONVERT EBCDIC TEXT (PLUS A BUNCH OF CONTROLS) TO AM748 PHOTOTYPESETTER INPUT.
03021/001   SETUP-DECK MAKER                                      # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO
           GENERATE SETUP DECKS USING VARYING CARD STOCKS.
03023/001  *ASSIST                   SERVICE MODULE  SA  G          S0565 D4T3 VLO FSNAME=ASSIST.SERVICE_MODULE.SA.003(1)        724
            5.0T4   169  ASSIST.SERVICE_MODULE.SA.001       1 LINE     80  143 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:17
            5.0T10   73                       
0          BASE SOURCE FOR ASSIST SERVICE MODULE (I.E., I/O, MAIN PROGRAM, INTERRUPTS,
           ETC.). ASSEMBLE WITH ASSISTMACLIB (3023/10).
0          Referenced by comments of: 309/1, 3023/2, 3023/10 
03023/002  *ASSIST                   SERVICE MODULE  UU  G          S1320 D4.2T2 VLO FSNAME=ASSIST.SERVICE_MODULE.UU.002(1)      424
            5.0T4   170  ASSIST.SERVICE_MODULE.UU.002       1 LINE     72   30 PAGE UQV            BODWIN    DEC. 17, 1978  15:40:57
            5.0T10   74                       
0          UPDATE TO BE APPLIED TO (3023/1) TO YIELD SERVICE MODULE SOURCE.  ASSEMBLE
           UPDATED SOURCE USING ASSISTMACLIB (3023/10).
0          Referenced by comments of: 3023/11 
03023/003  *ASSIST                   ASSEMBLER       SA  G          S0565 D4T3 VLO FSNAME=ASSIST.ASSEMBLER.SA.005(1)             726
            5.0T4   171  ASSIST.ASSEMBLER.SA.003            1 LINE     80  185 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:35
            5.0T10   75                       
0          BASE SOURCE FOR ASSEMBLER OF THE ASSIST PACKAGE.
1                                                                                               MON AUG 05/96   18:37:45   Page  773
0  Num   R       Component Name         Subname     Type G Seq ID 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/4, 3023/10 
03023/004  *ASSIST                   ASSEMBLER       UU  G          S1320 D4.2T2 VLO FSNAME=ASSIST.ASSEMBLER.UU.004(1)           425
            5.0T4   172  ASSIST.ASSEMBLER.UU.004            1 LINE     72    7 PAGE UQV            BODWIN    DEC. 17, 1978  15:41:04
            5.0T10   76                       
0          UPDATE TO BE APPLIED TO (3023/3) TO YIELD ASSEMBLER SOURCE.  ASSEMBLE UPDATED
           SOURCE USING ASSISTMACLIB (3023/10).
0          Referenced by comments of: 3023/11 
03023/005  *ASSIST                   MACRO PHASE     SA  G          S0565 D4T3 VLO FSNAME=ASSIST.MACRO_PHASE.SA.007(1)           728
            5.0T4   173  ASSIST.MACRO_PHASE.SA.005          1 LINE     80  139 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:59
            5.0T10   77                       
0          BASE SOURCE FOR MACRO PROCESSOR OF ASSIST PACKAGE.
0          Referenced by comments of: 3023/6, 3023/10 
03023/006  *ASSIST                   MACRO PHASE     UU  G          S1320 D4.2T2 VLO FSNAME=ASSIST.MACRO_PHASE.UU.006(1)         426
            5.0T4   174  ASSIST.MACRO_PHASE.UU.006          1 LINE     72    1 PAGE UQV            BODWIN    DEC. 17, 1978  15:41:09
            5.0T10   78                       
0          UPDATE TO BE APPLIED TO (3023/5) TO YIELD MACRO PROCESSOR SOURCE.  ASSEMBLE
           UPDATED SOURCE USING ASSISTMACLIB (3023/10).
0          Referenced by comments of: 3023/11 
03023/007  *ASSIST                   SIMULATOR       SA  G          S1320 D4.2T2 VLO FSNAME=ASSIST.SIMULATOR.SA.007(1)           427
            5.0T4   175  ASSIST.SIMULATOR.SA.007            1 LINE     80   74 PAGE UQV            BODWIN    FEB. 12, 1979  16:01:18
            5.0T10   79                       
0          Referenced by comments of: 3023/8 
03023/008  *ASSIST                   SIMULATOR       UU  G          S1320 D4.2T2 VLO FSNAME=ASSIST.SIMULATOR.UU.008(1)           428
            5.0T4   176  ASSIST.SIMULATOR.UU.008            1 LINE     72    5 PAGE UQV            BODWIN    DEC. 17, 1978  15:41:37
            5.0T10   80                       
0          UPDATE TO BE APPLIED TO (3023/7) TO YIELD SIMULATOR SOURCE.
0          Referenced by comments of: 3023/11 
03023/009  *ASSIST                   INTERFACE       SA  G          S1320 D4.2T2 VLO FSNAME=ASSIST.INTERFACE.SA.009(1)           429
            5.0T4   177  ASSIST.INTERFACE.SA.009            1 LINE     80    5 PAGE UQV            BODWIN    DEC. 17, 1978  15:50:37
            5.0T10   81                       
0          INTERFACE TO FIX (1002) FOR ASSIST I/O. COPIES FIODSECT (1002/5).
0          Referenced by comments of: 3023/11 
1                                                                                               MON AUG 05/96   18:37:45   Page  774
0  Num   R       Component Name         Subname     Type G Seq ID 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/010  *ASSIST                   MACRO LIB       SM  G          S1320 D4.2T2 VLO FSNAME=ASSIST.MACRO_LIB.SM.010(1)           430
            5.0T4   178  ASSIST.MACRO_LIB.SM.010            1 LINE     80  108 PAGE UQV            BODWIN    DEC. 18, 1978  15:22:02
            5.0T10   82                       
0          MACRO LIBRARY USED BY UPDATED (3023/1), (3023/3), AND (3023/5).  INCLUDES THE OLD,
           NO LONGER DISTRIBUTED, SOURCE1 (SUNDRIES) AS A COPY SECTION.  OLD SOURCE1
           UPDATES INCLUDED.
0          Referenced by comments of: 3023/1, 3023/2, 3023/4, 3023/6, 3023/11 
03023/011A *ASSIST                   *ASSIST         OE  G          *ASSIST                                                         
            5.0T4   179  ASSIST.*ASSIST.OE.011              1 SEQ   28760   16 PAGE UQV            BODWIN    JULY 03, 1981  21:31:21
            5.0T10   83  *ASSIST              
0          CURRENT, LINKEDITED ASSIST OBJECT COMPRISED OF OBJECT FROM (3023/2), (3023/4), 
           (3023/6), (3023/8), (3023/9), AND (3023/10). THE SYSTEM MACRO LIBRARY FEATURE (3023/6)
           REFERENCES THE FILE *ASSISTMAC (3023/12). HAS A $CONTINUE WITH *LIBRARY RECORD.
0          Referenced by comments of: 3023/12 
03023/012  *ASSIST                   *ASSISTMAC      SM             *ASSISTMAC                                                      
            5.0T4   180  ASSIST.*ASSISTMAC.SM.012           1 LINE     72    5 PAGE UQV            BODWIN    JULY 03, 1981  21:31:22
            5.0T10   84  *ASSISTMAC           
0          ASSIST "SYSTEM" MACRO LIBRARY, REFERENCED BY (3023/11).
0          Referenced by comments of: 3023/11 
03023/013  *ASSIST                   TEST PROGRAMS   SA             S0565 D4T3 VLO FSNAME=ASSIST.TEST_PROGRAMS.SA.014(1)         735
            5.0T4   181  ASSIST.TEST_PROGRAMS.SA.013        1 LINE     73    9 PAGE UQV            BODWIN    JUNE 10, 1977  13:20:14
            5.0T10   85                       
0          TEST PROGRAMS TO EXERCISE ALL FEATURES OF ASSIST.
03024/001A  BENCHMARK - TERMINAL     DSR             SA  G          BNCH:DSR.S                                                      
            5.0T4   182  BENCHMARK_-_TERMINAL.DSR.SA.001    1 LINE     72   30 PAGE UM   OGDEN               JULY 03, 1981  21:31:24
            5.0T10   86  BNCH:DSR.S           
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:GLOBALS
           (1026/3), COPY:LLMPSEQU(100) (087), COPY:CDCADSECT (3024/25), *GDINFODSECT
           (594), *SENSEDSECT (3025), and COPY:BNCHSTATDSCT (3024/98). ASSEMBLE USING
           COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728).
0          Referenced by comments of: 3024/5, 3024/23, 3024/30, 3024/98 
03024/002A  BENCHMARK - TERMINAL     DSR             OC  G          *BNCHRTN                                                        
            5.0T4   183  BENCHMARK_-_TERMINAL.DSR.OC.002    1 LINE     80    5 PAGE UM   OGDEN               JULY 03, 1981  21:31:30
            5.0T10   87  *BNCHRTN             
1                                                                                               MON AUG 05/96   18:37:45   Page  775
0  Num   R       Component Name         Subname     Type G Seq ID 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/003A  BENCHMARK - TERMINAL     MONITOR         SA  G          BNCH:MONITOR.S                                                  
            5.0T4   184  BENCHMARK_-_TERMINAL.MONI.SA.003   1 LINE     72   10 PAGE UM   OGDEN               JULY 03, 1981  21:31:30
            5.0T10   88  BNCH:MONITOR.S       
0          PROGRAM TO CONTROL BENCHMARK RUNS.  COPIES COPY:CDCADSECT (3024/25) AND COPY:JOBSTA (413/9).
0          Referenced by comments of: 3024/23, 3024/27, 3024/29 
03024/004A  BENCHMARK - TERMINAL     MONITOR         OC  G          BNCH:MONITOR                                                    
            5.0T4   185  BENCHMARK_-_TERMINAL.MONI.OC.004   1 LINE   4700    6 PAGE UM   OGDEN               JULY 03, 1981  21:31:33
            5.0T10   89  BNCH:MONITOR         
03024/005   BENCHMARK - TERMINAL     ANALYSIS        SF  O          BNCH:ANALYSIS.S                                                 
            5.0T4   186  BENCHMARK_-_TERMINAL.ANAL.SF.005   1 LINE     73    3 PAGE UM   OGDEN               JULY 03, 1981  21:31:35
            5.0T10   90  BNCH:ANALYSIS.S      
0          PROGRAM TO PRINT THE DATA COLLECTED BY (3024/1).
03024/006   BENCHMARK - TERMINAL     ANALYSIS        OC  O          BNCH:ANALYSIS                                                   
            5.0T4   187  BENCHMARK_-_TERMINAL.ANAL.OC.006   1 LINE   1668    4 PAGE UM   OGDEN               JULY 03, 1981  21:31:36
            5.0T10   91  BNCH:ANALYSIS        
03024/007   BENCHMARK - TERMINAL     SCRIPT POINTER  D              *SCRIPTPTRFILE                                                  
            5.0T4   188  BENCHMARK_-_TERMINAL.SCRI.D.007    1 LINE     24    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:36
            5.0T10   92  *SCRIPTPTRFILE       
0          DATA FILE USED BY MTS TO MAP THE PSEUDO-DEVICE NAMES *SN* INTO SCRIPT FILE NAMES.
03024/008A  BENCHMARK - TERMINAL     SCRIPT 1        C              *SCRIPT1                                                        
            5.0T4   189  BENCHMARK_-_TERMINAL.SCRI.C.008    1 LINE     90    3 PAGE UM   OGDEN               JULY 03, 1981  21:31:37
            5.0T10   93  *SCRIPT1             
0          SCRIPT WHICH USES EDITOR FAST INSERT MODE.
03024/009   BENCHMARK - TERMINAL     SCRIPT 2        C              *SCRIPT2                                                        
            5.0T4   190  BENCHMARK_-_TERMINAL.SCRI.C.009    1 LINE     40    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:38
            5.0T10   94  *SCRIPT2             
0          SCRIPT WHICH USES THE EDITOR.
03024/010   BENCHMARK - TERMINAL     SCRIPT 3        C              *SCRIPT3                                                        
            5.0T4   191  BENCHMARK_-_TERMINAL.SCRI.C.010    1 LINE     56    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:39
            5.0T10   95  *SCRIPT3             
0          SCRIPT WHICH ENTERS, COMPILES, AND RUNS THE ETEST (COMPUTE E TO 2500 DECIMAL
           PLACES) PROGRAM.
03024/011A  BENCHMARK - TERMINAL     SCRIPT 4        C              *SCRIPT4                                                        
            5.0T4   192  BENCHMARK_-_TERMINAL.SCRI.C.011    1 LINE     58    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:39
            5.0T10   96  *SCRIPT4             
0          INTERACTIVE FORTRAN (IF) SCRIPT.
1                                                                                               MON AUG 05/96   18:37:45   Page  776
0  Num   R       Component Name         Subname     Type G Seq ID 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/012   BENCHMARK - TERMINAL     SCRIPT 5        C              *SCRIPT5                                                        
            5.0T4   193  BENCHMARK_-_TERMINAL.SCRI.C.012    1 LINE     86    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:40
            5.0T10   97  *SCRIPT5             
0          ASSEMBLER SCRIPT.
03024/013   BENCHMARK - TERMINAL     SCRIPT 5 DATA   SA             BNCH:WSG.TAPE                                                   
            5.0T4   194  BENCHMARK_-_TERMINAL.SCRI.SA.013   1 LINE     72   47 PAGE UM   OGDEN               JULY 03, 1981  21:31:41
            5.0T10   98  BNCH:WSG.TAPE        
0          ASSEMBLY SOURCE FOR PROGRAM ASSEMBLED BY SCRIPT 5. REQUIRES (3024/99),
           (3024/100), AND (3024/102). COPIES *CNFGINFODSECT (654).
0          Referenced by comments of: 3024/99, 3024/100, 3024/101, 3024/102 
03024/014A  BENCHMARK - TERMINAL     SCRIPT 6        C              *SCRIPT6                                                        
            5.0T4   195  BENCHMARK_-_TERMINAL.SCRI.C.014    1 LINE     40    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:47
            5.0T10   99  *SCRIPT6             
0          FAST FOURIER TRANSFORM SCRIPT.
03024/015   BENCHMARK - TERMINAL     SCRIPT 6 PGM    SF  G          S0565 D4T3 VLO FSNAME=BENCHMARK.SCRIPT_6_PGM.SF.015(1)       750
            5.0T4   196  BENCHMARK_-_TERMINAL.SCRI.SF.015   1 LINE     71    6 PAGE UM   OGDEN               AUG. 28, 1975  17:00:57
            5.0T10  100                       
0          DOUBLE PRECISION FFT PROGRAM IN FTN H WHICH IS RUN BY SCRIPT 6.
0          Referenced by comments of: 3024/17 
03024/016   BENCHMARK - TERMINAL     SCRIPT 6 PGM    OE  G          BNCH:FFT.HD                                                     
            5.0T4   197  BENCHMARK_-_TERMINAL.SCRI.OE.016   1 SEQ    1440    2 PAGE UM   OGDEN               JULY 03, 1981  21:31:50
            5.0T10  101  BNCH:FFT.HD          
03024/017   BENCHMARK - TERMINAL     SCRIPT 6 DATA   D              BNCH:FFT.DATA                                                   
            5.0T4   198  BENCHMARK_-_TERMINAL.SCRI.D.017    1 LINE     11    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:51
            5.0T10  102  BNCH:FFT.DATA        
0          DATA FOR SCRIPT 6 FFT PROGRAM (3024/15).
03024/018A  BENCHMARK - TERMINAL     SCRIPT 7        C              *SCRIPT7                                                        
            5.0T4   199  BENCHMARK_-_TERMINAL.SCRI.C.018    1 LINE     51    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:52
            5.0T10  103  *SCRIPT7             
0          BIG FORTRAN SCRIPT.
03024/019   BENCHMARK - TERMINAL     SCRIPT 7 PGM    SF  G          BNCH:SCRIPT7PGM                                                 
            5.0T4   200  BENCHMARK_-_TERMINAL.SCRI.SF.019   1 LINE     72    4 PAGE UM   OGDEN               JULY 03, 1981  21:31:53
            5.0T10  104  BNCH:SCRIPT7PGM      
0          PROGRAM USED BY SCRIPT 7.
1                                                                                               MON AUG 05/96   18:37:45   Page  777
0  Num   R       Component Name         Subname     Type G Seq ID 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/020A  BENCHMARK - TERMINAL     SCRIPT 8        C              *SCRIPT8                                                        
            5.0T4   201  BENCHMARK_-_TERMINAL.SCRI.C.020    1 LINE     69    1 PAGE UM   OGDEN               JULY 03, 1981  21:31:53
            5.0T10  105  *SCRIPT8             
0          TAXIR SCRIPT.
03024/021   BENCHMARK - TERMINAL     SCRIPT 8 DATA   D              BNCH:USE.T                                                      
            5.0T4   202  BENCHMARK_-_TERMINAL.SCRI.D.021    1 LINE  32764   92 PAGE UM   OGDEN               JULY 03, 1981  21:31:54
            5.0T10  106  BNCH:USE.T           
03024/022   BENCHMARK - TERMINAL     SCRIPT 9        C              *SCRIPT9                                                        
            5.0T4   203  BENCHMARK_-_TERMINAL.SCRI.C.022    1 LINE     36    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:00
            5.0T10  107  *SCRIPT9             
0          PAGELOAD SCRIPT.  NOT NORMALLY USED IN TERMINAL BENCHMARKS.
03024/023   BENCHMARK - TERMINAL     COMM AREA       SA  G          BNCH:SEG2.S                                                     
            5.0T4   204  BENCHMARK_-_TERMINAL.COMM.SA.023   1 LINE     69    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:00
            5.0T10  108  BNCH:SEG2.S          
0          COMMUNICATIONS AREA USED BY BNCH:DSR.S (3024/1) AND BNCH:MONITOR.S (3024/3).  MUST BE
           LOADED INTO SHARED VM PRIOR TO RUNNING BNCH:MONITOR.  COPIES COPY:CDCADSECT (3024/25).
03024/024   BENCHMARK - TERMINAL     COMM AREA       OC  G          BNCH:SEG2                                                       
            5.0T4   205  BENCHMARK_-_TERMINAL.COMM.OC.024   1 LINE     80    4 PAGE UM   OGDEN               JULY 03, 1981  21:32:01
            5.0T10  109  BNCH:SEG2            
03024/025   BENCHMARK - TERMINAL     CDCADSECT       SA  G          COPY:CDCADSECT                                                  
            5.0T4   206  BENCHMARK_-_TERMINAL.CDCA.SA.025   1 LINE     60    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:02
            5.0T10  110  COPY:CDCADSECT       
0          COPY SECTION DESCRIBING THE FORMAT OF AN ENTRY IN THE COMMUNICATIONS AREA.
0          Referenced by comments of: 3024/1, 3024/3, 3024/23 
03024/026A  BENCHMARK - TERMINAL     SOURCE FILE     C              BNCH:SCR                                                        
            5.0T4   207  BENCHMARK_-_TERMINAL.SOUR.C.026    1 LINE     76    2 PAGE UM   OGDEN               JULY 03, 1981  21:32:03
            5.0T10  111  BNCH:SCR             
0          COMMAND FILE TO RUN A TERMINAL BENCHMARK.
0          Referenced by comments of: 3024/27 
03024/027A  BENCHMARK - TERMINAL     START COMMANDS  D              BNCH:CMDS                                                       
            5.0T4   208  BENCHMARK_-_TERMINAL.STAR.D.027    1 LINE      9    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:03
            5.0T10  112  BNCH:CMDS            
0          BNCH:MONITOR (3024/3) START COMMANDS, USED BY BNCH:SCR (3024/26).
03024/028   BENCHMARK - TERMINAL     TEST SCRIPTS    C              BNCH:TEST                                                       
            5.0T4   209  BENCHMARK_-_TERMINAL.TEST.C.028    1 LINE     62    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:04
            5.0T10  113  BNCH:TEST            
0          COMMAND FILE TO PRODUCE A PRINTED COPY OF THE EXECUTION OF ONE OF THE SCRIPTS
1                                                                                               MON AUG 05/96   18:37:45   Page  778
0  Num   R       Component Name         Subname     Type G Seq ID 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          TO CHECK THAT IT WORKS CORRECTLY.
03024/029   BENCHMARK - TERMINAL     MON WRITEUP     WF             BNCH:MONITOR.F                                                  
            5.0T4   210  BENCHMARK_-_TERMINAL.MON.WF.029    1 LINE    129    5 PAGE UM   OGDEN               JULY 03, 1981  21:32:05
            5.0T10  114  BNCH:MONITOR.F       
0          WRITEUP DESCRIBING BNCH:MONITOR (3024/3).
03024/030   BENCHMARK - TERMINAL     DSR WRITEUP     WF             BNCH:DSR.F                                                      
            5.0T4   211  BENCHMARK_-_TERMINAL.DSR.WF.030    1 LINE     97    6 PAGE UM   OGDEN               JULY 03, 1981  21:32:06
            5.0T10  115  BNCH:DSR.F           
0          WRITEUP DESCRIBING THE BENCHMARK DSR (3024/1).
03024/031   BENCHMARK - TERMINAL     STATSUM         SG  G          BNCH:STATSUM.S                                                  
            5.0T4   212  BENCHMARK_-_TERMINAL.STAT.SG.031   1 LINE    104    3 PAGE UM   OGDEN               JULY 03, 1981  21:32:07
            5.0T10  116  BNCH:STATSUM.S       
0          PROGRAM TO READ *STATISTICS DATA AND PRODUCE MEAN, SD, MIN, AND MAX FIGURES
           BY SCRIPT FOR CPU TIME, VMI, WAIT VMI, AND ELAPSED TIME.  CALLS THE PAR
           SUBR (687/1), THE JVCT SUBR (674), AND THE BECORI SUBR WHICH IS PART OF
           NAAS:IMSL (NOT CURRENTLY DISTRIBUTED).
03024/032   BENCHMARK - TERMINAL     STATSUM         OE  G          BNCH:STATSUM                                                    
            5.0T4   213  BENCHMARK_-_TERMINAL.STAT.OE.032   1 LINE   3770    5 PAGE UM   OGDEN               JULY 03, 1981  21:32:08
            5.0T10  117  BNCH:STATSUM         
03024/033   BENCHMARK - TERMINAL     BNCH:STATS      D            # BNCH:STATS                                                      
                                                                                    UM   OGDEN                                      
                         BNCH:STATS@E         
0          FILE USED TO COLLECT DATA DURING BENCHMARK RUNS.
03024/034   BENCHMARK - TERMINAL     BNCH:OUTPUT     D            # BNCH:OUTPUT                                                     
                                                                                    UM   OGDEN                                      
                         BNCH:OUTPUT@E        
0          FILE USED TO SAVE OUTPUT WHILE TESTING BENCHMARK SCRIPTS.
03024/035   BENCHMARK - TERMINAL     BNCH:TSTATS     D            # BNCH:TSTATS                                                     
                                                                                    UM   OGDEN                                      
                         BNCH:TSTATS@E        
0          FILE USED TO SAVE DSR STATISTICS WHILE TESTING BENCHMARK SCRIPTS.
03024/036A  BENCHMARK - TERMINAL     CRE FM INPUT    C              BNCH:CREFMINPUT                                              459
            5.0T4   214  BENCHMARK_-_TERMINAL.CRE.C.036     1 LINE     67    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:08
            5.0T10  118  BNCH:CREFMINPUT      
0          COMMAND FILE THAT MAY BE $SOURCED TO TO CREATE FILEMOVE (1020) INPUT AS
           THE FIRST STEP IN MOVING FROM A ONE-PACK TO A MULTI-PACK SYSTEM.
1                                                                                               MON AUG 05/96   18:37:45   Page  779
0  Num   R       Component Name         Subname     Type G Seq ID 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/037A  BENCHMARK - TERMINAL     LISTFILES       SA  G          BNCH:LISTFILES.S                                             460
            5.0T4   215  BENCHMARK_-_TERMINAL.LIST.SA.037   1 LINE     72    2 PAGE UM   OGDEN               JULY 03, 1981  21:32:09
            5.0T10  119  BNCH:LISTFILES.S     
0          PROGRAM TO PROCURE A LIST OF ALL FILES IN THE FILE SYSTEM ON SPUNCH.
           ASSEMBLE USING COPY:FILE.MACROS (482/45).
0          Referenced by comments of: 3024/39 
03024/038A  BENCHMARK - TERMINAL     LISTFILES       OC  G          BNCH:LISTFILES                                                  
            5.0T4   216  BENCHMARK_-_TERMINAL.LIST.OC.038   1 LINE     80    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:10
            5.0T10  120  BNCH:LISTFILES       
03024/039   BENCHMARK - TERMINAL     ASSIGNVOL       SS  G          BNCH:ASSIGNVOL.S                                                
            5.0T4   217  BENCHMARK_-_TERMINAL.ASSI.SS.039   1 LINE     66    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:11
            5.0T10  121  BNCH:ASSIGNVOL.S     
0          PROGRAM WHICH TAKES A VOLUME NAME PREFIX AND MAXIMUM VOLUME NUMBER PLUS THE
           FILE LIST PRODUCED BY THE LISTFILE PROGRAM (3024/37) AND PROCURES OUTPUT
           THAT CAN BE USED AS INPUT TO FILEMOVE (1020).
03024/040   BENCHMARK - TERMINAL     ASSIGNVOL       OC  G          BNCH:ASSIGNVOL                                                  
            5.0T4   218  BENCHMARK_-_TERMINAL.ASSI.OC.040   1 LINE     80    4 PAGE UM   OGDEN               JULY 03, 1981  21:32:12
            5.0T10  122  BNCH:ASSIGNVOL       
0          HAS A $CONTINUE WITH *SPITLIB CARD.
03024/041C  BENCHMARK - TERMINAL                     OC           # BNCH:ANOV.                                                      
                                                                                    UM   OGDEN                                      
0          Subcomponents (3024/41) through (3024/93) are MIDAS files (not MIDAS input)
           used by (3024/94) through (3024/96).  They cannot be distributed due to
           Stat Lab restrictions.
0          Referenced by comments of: 3024/41 
03024/042C  BENCHMARK - TERMINAL                     OC           # BNCH:AUTO.                                                      
                                                                                    UM   OGDEN                                      
03024/043C  BENCHMARK - TERMINAL                     OE           # BNCH:CANO.                                                      
                                                                                    UM   OGDEN                                      
03024/044C  BENCHMARK - TERMINAL                     OE           # BNCH:CLUS.                                                      
                                                                                    UM   OGDEN                                      
03024/045C  BENCHMARK - TERMINAL                     OC           # BNCH:CODE.                                                      
                                                                                    UM   OGDEN                                      
03024/046C  BENCHMARK - TERMINAL                     OE           # BNCH:COMP.                                                      
                                                                                    UM   OGDEN                                      
1                                                                                               MON AUG 05/96   18:37:45   Page  780
0  Num   R       Component Name         Subname     Type G Seq ID 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/047C  BENCHMARK - TERMINAL                     D            # BNCH:CONTROL                                                    
                                                                                    UM   OGDEN                                      
03024/048C  BENCHMARK - TERMINAL                     OE           # BNCH:CORR.                                                      
                                                                                    UM   OGDEN                                      
03024/049C  BENCHMARK - TERMINAL                     OC           # BNCH:COVA.                                                      
                                                                                    UM   OGDEN                                      
03024/050C  BENCHMARK - TERMINAL                     OC           # BNCH:CROS.                                                      
                                                                                    UM   OGDEN                                      
03024/051C  BENCHMARK - TERMINAL                     OC           # BNCH:DESC.                                                      
                                                                                    UM   OGDEN                                      
03024/052C  BENCHMARK - TERMINAL                     OE           # BNCH:DISC.                                                      
                                                                                    UM   OGDEN                                      
03024/053C  BENCHMARK - TERMINAL                     OE           # BNCH:DISP.                                                      
                                                                                    UM   OGDEN                                      
03024/054C  BENCHMARK - TERMINAL                     OE           # BNCH:DIST.                                                      
                                                                                    UM   OGDEN                                      
03024/055C  BENCHMARK - TERMINAL                     OE           # BNCH:DOCUMENTOR                                                 
                                                                                    UM   OGDEN                                      
03024/056C  BENCHMARK - TERMINAL                     OE           # BNCH:DUMP                                                       
                                                                                    UM   OGDEN                                      
03024/057C  BENCHMARK - TERMINAL                     D            # BNCH:ERRORS                                                     
                                                                                    UM   OGDEN                                      
03024/058C  BENCHMARK - TERMINAL                     OC           # BNCH:FACT.                                                      
                                                                                    UM   OGDEN                                      
03024/059C  BENCHMARK - TERMINAL                     OE           # BNCH:GENE.                                                      
                                                                                    UM   OGDEN                                      
03024/060C  BENCHMARK - TERMINAL                     OE           # BNCH:HIST.                                                      
                                                                                    UM   OGDEN                                      
03024/061C  BENCHMARK - TERMINAL                     OC           # BNCH:ICOMP                                                      
                                                                                    UM   OGDEN                                      
03024/062C  BENCHMARK - TERMINAL                     OC           # BNCH:KSAM.                                                      
                                                                                    UM   OGDEN                                      
03024/063C  BENCHMARK - TERMINAL                     OE           # BNCH:MANO.                                                      
                                                                                    UM   OGDEN                                      
1                                                                                               MON AUG 05/96   18:37:45   Page  781
0  Num   R       Component Name         Subname     Type G Seq ID 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/064C  BENCHMARK - TERMINAL                     OE           # BNCH:MCOR.                                                      
                                                                                    UM   OGDEN                                      
03024/065C  BENCHMARK - TERMINAL                     OE           # BNCH:MIDAS                                                      
                                                                                    UM   OGDEN                                      
03024/066C  BENCHMARK - TERMINAL                     OE           # BNCH:MISS.                                                      
                                                                                    UM   OGDEN                                      
03024/067C  BENCHMARK - TERMINAL                     OC           # BNCH:ONEW.                                                      
                                                                                    UM   OGDEN                                      
03024/068C  BENCHMARK - TERMINAL                     OE           # BNCH:OSIR.                                                      
                                                                                    UM   OGDEN                                      
03024/069C  BENCHMARK - TERMINAL                     OE           # BNCH:PAIR.                                                      
                                                                                    UM   OGDEN                                      
03024/070C  BENCHMARK - TERMINAL                     OC           # BNCH:PLOT.                                                      
                                                                                    UM   OGDEN                                      
03024/071C  BENCHMARK - TERMINAL                     OC           # BNCH:POLY.                                                      
                                                                                    UM   OGDEN                                      
03024/072C  BENCHMARK - TERMINAL                     OC           # BNCH:PRIN.                                                      
                                                                                    UM   OGDEN                                      
03024/073C  BENCHMARK - TERMINAL                     OE           # BNCH:PROF.                                                      
                                                                                    UM   OGDEN                                      
03024/074C  BENCHMARK - TERMINAL                     OE           # BNCH:RCOR.                                                      
                                                                                    UM   OGDEN                                      
03024/075C  BENCHMARK - TERMINAL                     OE           # BNCH:READ.                                                      
                                                                                    UM   OGDEN                                      
03024/076C  BENCHMARK - TERMINAL                     OC           # BNCH:REGR.                                                      
                                                                                    UM   OGDEN                                      
03024/077C  BENCHMARK - TERMINAL                     OC           # BNCH:ROTA.                                                      
                                                                                    UM   OGDEN                                      
03024/078C  BENCHMARK - TERMINAL                     OE           # BNCH:RPAI.                                                      
                                                                                    UM   OGDEN                                      
03024/079C  BENCHMARK - TERMINAL                     OE           # BNCH:SAVE.                                                      
                                                                                    UM   OGDEN                                      
03024/080C  BENCHMARK - TERMINAL                     OE           # BNCH:SCAT.                                                      
                                                                                    UM   OGDEN                                      
1                                                                                               MON AUG 05/96   18:37:45   Page  782
0  Num   R       Component Name         Subname     Type G Seq ID 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/081C  BENCHMARK - TERMINAL                     OE           # BNCH:SELE.                                                      
                                                                                    UM   OGDEN                                      
03024/082C  BENCHMARK - TERMINAL                     OE           # BNCH:SEPA.                                                      
                                                                                    UM   OGDEN                                      
03024/083C  BENCHMARK - TERMINAL                     OC           # BNCH:SETXY                                                      
                                                                                    UM   OGDEN                                      
03024/084C  BENCHMARK - TERMINAL                     OC           # BNCH:SIMU.                                                      
                                                                                    UM   OGDEN                                      
03024/085C  BENCHMARK - TERMINAL                     OE           # BNCH:SPEC.                                                      
                                                                                    UM   OGDEN                                      
03024/086C  BENCHMARK - TERMINAL                     OE           # BNCH:STUD.                                                      
                                                                                    UM   OGDEN                                      
03024/087C  BENCHMARK - TERMINAL                     D            # BNCH:TALENT*                                                    
                                                                                    UM   OGDEN                                      
03024/088C  BENCHMARK - TERMINAL                     OC           # BNCH:TIME                                                       
                                                                                    UM   OGDEN                                      
03024/089C  BENCHMARK - TERMINAL                     OE           # BNCH:TRAN.                                                      
                                                                                    UM   OGDEN                                      
03024/090C  BENCHMARK - TERMINAL                     OC           # BNCH:TSQU.                                                      
                                                                                    UM   OGDEN                                      
03024/091C  BENCHMARK - TERMINAL                     OC           # BNCH:TWOS.                                                      
                                                                                    UM   OGDEN                                      
03024/092C  BENCHMARK - TERMINAL                     OE           # BNCH:TWOW.                                                      
                                                                                    UM   OGDEN                                      
03024/093C  BENCHMARK - TERMINAL                     OC           # BNCH:WRIT.                                                      
                                                                                    UM   OGDEN                                      
0          Referenced by comments of: 3024/41 
03024/094C  BENCHMARK - TERMINAL     MIDAS SCRIPTS   C              *SCRIPT1M                                                       
            5.0T4   219  BENCHMARK_-_TERMINAL.MIDA.C.094    1 LINE     42    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:13
            5.0T10  123  *SCRIPT1M            
0          Requires (3024/97).
0          Referenced by comments of: 3024/41, 3024/97 
03024/095C  BENCHMARK - TERMINAL     MIDAS SCRIPTS   C              *SCRIPT2M                                                       
            5.0T4   220  BENCHMARK_-_TERMINAL.MIDA.C.095    1 LINE     38    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:14
            5.0T10  124  *SCRIPT2M            
1                                                                                               MON AUG 05/96   18:37:45   Page  783
0  Num   R       Component Name         Subname     Type G Seq ID 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/096C  BENCHMARK - TERMINAL     MIDAS SCRIPTS   C              *SCRIPT3M                                                       
            5.0T4   221  BENCHMARK_-_TERMINAL.MIDA.C.096    1 LINE     38    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:15
            5.0T10  125  *SCRIPT3M            
0          Referenced by comments of: 3024/41 
03024/097C  BENCHMARK - TERMINAL     MIDAS DATA      D              BNCH:MIDAS_1_DATA                                               
            5.0T4   222  BENCHMARK_-_TERMINAL.MIDA.D.097    1 LINE   1232    4 PAGE UM   OGDEN               JULY 03, 1981  21:32:16
            5.0T10  126  BNCH:MIDAS_1_DATA    
0          A data file required by *SCRIPT1M (3024/94).
0          Referenced by comments of: 3024/94 
03024/098C  BENCHMARK - TERMINAL     COPY SECTION    SA             COPY:BNCHSTATDSCT                                               
            5.0T4   223  BENCHMARK_-_TERMINAL.COPY.SA.098   1 LINE     68    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:17
            5.0T10  127  COPY:BNCHSTATDSCT    
0          A copy section used by the Terminal Benchmark DSR (3024/1).  It describes
           the statistics record produced by (3024/1).
0          Referenced by comments of: 3024/1 
03024/099C  BENCHMARK - TERMINAL     GLOBALDEFS      SA             BNCH:GLOBALDEFS                                                 
            5.0T4   224  BENCHMARK_-_TERMINAL.GLOB.SA.099   1 LINE     80    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:18
            5.0T10  128  BNCH:GLOBALDEFS      
0          Required by (3024/13).
0          Referenced by comments of: 3024/13, 3024/101 
03024/100C  BENCHMARK - TERMINAL     GLOBALSETS      SA             BNCH:GLOBALSETS                                                 
            5.0T4   225  BENCHMARK_-_TERMINAL.GLOB.SA.100   1 LINE     80    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:19
            5.0T10  129  BNCH:GLOBALSETS      
0          Required by (3024/13).
0          Referenced by comments of: 3024/13, 3024/101 
03024/101C  BENCHMARK - TERMINAL     GLOBALS         SA             BNCH:GLOBALS                                                    
            5.0T4   226  BENCHMARK_-_TERMINAL.GLOB.SA.101   1 LINE     37    1 PAGE UM   OGDEN               JULY 03, 1981  21:32:20
            5.0T10  130  BNCH:GLOBALS         
0          Required by (3024/13). Contains $CONTINUE WITHs to BNCH:GLOBALDEFS (3024/99)
           and BNCH:GLOBALSETS (3024/100).
03024/102C  BENCHMARK - TERMINAL     LLMPSEQU        SA             BNCH:LLMPSEQU                                                   
            5.0T4   227  BENCHMARK_-_TERMINAL.LLMP.SA.102   1 LINE     72    9 PAGE UM   OGDEN               JULY 03, 1981  21:32:21
            5.0T10  131  BNCH:LLMPSEQU        
0          Required by (3024/13).
0          Referenced by comments of: 3024/13 
1                                                                                               MON AUG 05/96   18:37:45   Page  784
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
03025/001A *SENSEDSECT                               SA  G          *SENSEDSECT                                                     
            5.0T4   228  SENSEDSECT..SA.001                 1 LINE     80    4 PAGE SFU  BENET     OGDEN     JULY 03, 1981  21:32:22
            5.0T10  132  *SENSEDSECT          
0          UQV DSECT FOR MAG TAPE SNS DATA -- NOW EXTENDED BY UM TO ADD SNS DATA FOR *...*.
            
           *****************************************************************************
           D5.0 CHANGES:
            
           ADDED A FIELD FOR *TAPERTN (135).
           *****************************************************************************
0          Referenced by comments of: 101/1, 135/1, 291/1, 314/1, 340/1, 489/1, 496/1, 513/1, 545/3, 553/1, 696/1, 814/2,
                 3024/1 
03028/001   PATCHSYS                                              # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO
           DYNAMICALLY PATCH THE SYSTEM AT POST-IPL TIME.
03030/001   VAMREC                                                # (PART OF FILE SYSTEM RECOVERY)                                  
                                                                                    UQV                                             
0          Part of File System Recovery, (682/22) and (682/23)
03031/001   LKED CONVERTER                                        # (OBSOLETED BY VSS)                                              
                                                                                    UQV                                             
0          THIS IS A PROGRAM THAT WILL READ OS LINKAGE EDITOR INPUT OR THE COMBINED
           OBJECT AND MEMBER-RECORD FILES OUTPUT BY *UNLINKER (562).
03036/001   C+                                                    # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE C+
           SYSTEM PROGRAMMING LANGUAGE.
03037/001   METRIC                                                # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           FOR DISPLAYING INFORMATION ABOUT SYSTEM ACTIVITY.
03038/001   MOVECAT                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A FILE
           SYSTEM UTILITY FOR MAKING AN EXACT COPY OF THE FILE SYSTME CATALOG.
03043/001   FILE RELOCATE                                         # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SMALL
1                                                                                               MON AUG 05/96   18:37:45   Page  785
0  Num   R       Component Name         Subname     Type G Seq ID 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          UTILITY TO MOVE FILES FROM ONE PACK TO ANOTHER, USED BY THE OPERATIONS
           STAFF AT UQV.
03045/001   SCB DOCUMENTOR                                        # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE SYSTEM
           CONTROL BLOCK DESCRIPTOR SYSTEM.
03046/001   XEROX 9700 JSL                                        # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE JOBS
           DESCRIPTION SOURCE FOR THE XEROX 9700.
03047/001   XEROX 9700 FSL                                        # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE FORMS
           LANGUAGE SOURCE FILES FOR THE XEROX 9700.
03048/001   XEROX 9700 FNT                                        # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE XEROX
           9700 FONTS.
03050/001   PAGE PRINTER SUBRTN                                   # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
03051/001   PAGE PRINTER TBLS                                     # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
03053/001   FPAPRTN                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DSR
           FOR THE FLOATING POINT SYSTEMS 190L ARRAY PROCESSOR.
03054/001   APSUB                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A NEW PART
           OF MTS TO DEAL WITH THE ARRAY PROCESSOR.
03055/001   AP SOFTWARE                                           # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS
           UPDATES TO FLOATING POINT SYSTEMS SOFTWARE.
1                                                                                               MON AUG 05/96   18:37:45   Page  786
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
04000/001A  GATE                     D5.0 MASTER     SA  G  GATE    S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=GATE                        
            5.0T4   642  GATE.D5.0_MASTER.SA.001            1 LINE     80   22 PAGE UM   MTS       HELFFRICH AUG. 10, 1981  00:22:42
            5.0T11  216                       
0          GATE, WHICH REPLACES LCSYMBOL (043), 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/3).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 42/2, 43/1, 354/7, 509/3, 579/7, 4000/6 
04000/002A  GATE                     UPDATE          UC  G          MTS:GATEUPD                                                     
            5.0T4   643  GATE.UPDATE.UC.002                 1 LINE     80   10 PAGE UM   MTS       HELFFRICH AUG. 10, 1981  00:22:43
            5.0T11  217                       
0          UPDATE TO PRODUCE CURRENT SOURCE.  UPDATE USES $CONTROL *IN* POSN=GATE.
04000/003A  GATE                                     OC  G        # (PART OF RESIDENT SYSTEM)                                       
                                                                                    UM   MTS       HELFFRICH                        
0          Object part of Resident System (468)
04000/004A  GATE                                     L              S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=GATE.LIST                  
            5.0T4   644  GATE..L.004                        1 LINE    133  199 PAGE UM   MTS       HELFFRICH AUG. 10, 1981  00:22:52
            5.0T11  218                       
04000/005   GATE                     STAT FILES      P              S1320 D4.2T2 VLO FSNAME=GATE.STAT_FILES.P.005(1)             465
            5.0T4   229  GATE.STAT_FILES.P.005              1 LINE     73    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:43
            5.0T10  133                       
0          SUBCOMPONENTS (4000/5) THROUGH (4000/46) COMPRISE THE UNIVERSITY OF MICHIGAN
           GATE STATISTICS COLLECTION FACILITY.
            
           STAT FILES (4000/5) IS A PRINT FILE CONTAINING A LIST OF ALL FILES,
           TOGETHER WITH A DESCRIPTION OF THEIR CONTENTS, WHICH MAKE UP THE 
           COLLECTION FACILITY.
0          Referenced by comments of: 4000/5 
04000/006   GATE                     STAT UPDATE     UC  G          S1320 D4.2T2 VLO FSNAME=GATE.STAT_UPDATE.UC.006(1)           466
            5.0T4   230  GATE.STAT_UPDATE.UC.006            1 LINE     68    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:45
            5.0T10  134                       
0          CONTAINS UPDATE DECKS FOR APPLYING THE GATE STATISTICS COLLECTION FACILITY
           TO THE GATE (4000/1).  ALSO UPDATES THE GATE SOURCE TO WORK WITH ASSEMBLER H.
1                                                                                               MON AUG 05/96   18:37:45   Page  787
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
04000/007   GATE                     STATON          SA  G          S1320 D4.2T2 VLO FSNAME=GATE.STATON.SA.007(1)                467
            5.0T4   231  GATE.STATON.SA.007                 1 LINE     69    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:47
            5.0T10  135                       
0          CONTAINS ASSEMBLY LANGUAGE SOURCE FOR THE STATON PROGRAM, WHICH ACTIVATES
           THE COUNTERS IN THE GATE.  STATON CALLS THE LOADSVM SUBROUTINE ENTRY POINT 
           TO PISTLE (559/2). 
04000/008   GATE                     STATON          OC  G          S1320 D4.2T2 VLO FSNAME=GATE.STATON.OC.008(1)                468
            5.0T4   232  GATE.STATON.OC.008                 1 LINE     80    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:49
            5.0T10  136                       
0           
04000/009   GATE                     GATESTAT CSECT  SA  G          S1320 D4.2T2 VLO FSNAME=GATE.GATESTAT_CSECT.SA.009(1)        469
            5.0T4   233  GATE.GATESTAT_CSECT.SA.009         1 LINE     72    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:51
            5.0T10  137                       
0          THIS IS THE ASSEMBLY LANGUAGE SOURCE FOR THE GATESTAT CSECT, WHICH IS
           LOADED INTO SHARED VM TO PROVIDE A PLACE FOR THE GATE TO MAINTAIN ITS
           USE COUNTERS. 
04000/010   GATE                     GATESTAT CSECT  OC  G          S1320 D4.2T2 VLO FSNAME=GATE.GATESTAT_CSECT.OC.010(1)        470
            5.0T4   234  GATE.GATESTAT_CSECT.OC.010         1 LINE     80    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:53
            5.0T10  138                       
04000/011   GATE                     STATOFF         SA  G          S1320 D4.2T2 VLO FSNAME=GATE.STATOFF.SA.011(1)               471
            5.0T4   235  GATE.STATOFF.SA.011                1 LINE     68    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:55
            5.0T10  139                       
0          THIS IS THE ASSEMBLY LANGUAGE SOURCE FOR THE STATOFF PROGRAM, WHICH IS
           USED TO DEACTIVATE THE USE COUNTERS IN THE GATE.  COPIES COPY:SYSDEFS.
04000/012   GATE                     STATOFF         OC  G          S1320 D4.2T2 VLO FSNAME=GATE.STATOFF.OC.012(1)               472
            5.0T4   236  GATE.STATOFF.OC.012                1 LINE     80    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:57
            5.0T10  140                       
04000/013   GATE                     STAT REC MAIN   SF  G          S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_MAIN.SF.013(1)         473
            5.0T4   237  GATE.STAT_REC_MAIN.SF.013          1 LINE     63    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:59
            5.0T10  141                       
0          FORTRAN SOURCE FOR THE MAIN PROGRAM OF THE GATE STATISTICS RECORDING
           SYSTEM. 
0          Referenced by comments of: 4000/35, 4000/37, 4000/39 
04000/014   GATE                     STAT REC MAIN   OC  G          S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_MAIN.OC.014(1)         474
            5.0T4   238  GATE.STAT_REC_MAIN.OC.014          1 LINE     90    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:01
            5.0T10  142                       
1                                                                                               MON AUG 05/96   18:37:45   Page  788
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
04000/015   GATE                     GETUSR SUBR     SF  G          S1320 D4.2T2 VLO FSNAME=GATE.GETUSR_SUBR.SF.015(1)           475
            5.0T4   239  GATE.GETUSR_SUBR.SF.015            1 LINE     68    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:03
            5.0T10  143                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM GETUSR SUBROUTINE, WHICH
           GETS PARAMETER VALUES FROM THE USER.  USES COMMON AREAS FROM FTN COMMON 
           (4000/35).
04000/016   GATE                     GETUSR SUBR     OE  G          S1320 D4.2T2 VLO FSNAME=GATE.GETUSR_SUBR.OE.016(1)           476
            5.0T4   240  GATE.GETUSR_SUBR.OE.016            1 LINE    692    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:05
            5.0T10  144                       
04000/017   GATE                     INIT SUBR       SF  G          S1320 D4.2T2 VLO FSNAME=GATE.INIT_SUBR.SF.017(1)             477
            5.0T4   241  GATE.INIT_SUBR.SF.017              1 LINE     67    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:07
            5.0T10  145                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM INIT SUBROUTINE.  THIS
           SUBROUTINE PROMPTS THE USER FOR RUN-TIME PARAMETER VALUES, INITIALIZES
           THE SYMBOL TABLE, AND WRITES THE HEADER FOR MIDAS OUTPUT.  USES COMMON 
           AREAS FROM FTN COMMON (4000/35).
04000/018   GATE                     INIT SUBR       OC  G          S1320 D4.2T2 VLO FSNAME=GATE.INIT_SUBR.OC.018(1)             478
            5.0T4   242  GATE.INIT_SUBR.OC.018              1 LINE    166    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:09
            5.0T10  146                       
04000/019   GATE                     PUTHDR SUBR     SF  G          S1320 D4.2T2 VLO FSNAME=GATE.PUTHDR_SUBR.SF.019(1)           479
            5.0T4   243  GATE.PUTHDR_SUBR.SF.019            1 LINE     61    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:11
            5.0T10  147                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTHDR SUBROUTINE, WHICH
           PUTS OUT A HEADER IN THE MIDAS STATISTICS FILE.  THE HEADER INCLUDES A
           TIME STAMP AND MIDAS RUN AND READ COMMANDS.  USES COMMON AREAS DEFINED 
           BY FTN COMMON (4000/35). 
04000/020   GATE                     PUTHDR SUBR     OE  G          S1320 D4.2T2 VLO FSNAME=GATE.PUTHDR_SUBR.OE.020(1)           480
            5.0T4   244  GATE.PUTHDR_SUBR.OE.020            1 LINE   1332    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:14
            5.0T10  148                       
04000/021   GATE                     PUTMID SUBR     SF  G          S1320 D4.2T2 VLO FSNAME=GATE.PUTMID_SUBR.SF.021(1)           481
            5.0T4   245  GATE.PUTMID_SUBR.SF.021            1 LINE     60    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:16
            5.0T10  149                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTMID SUBROUTINE, WHICH
           PUTS OUT USE STATISTICS IN MIDAS-COMPATIBLE FORMAT.  USES COMMON AREAS 
           DEFINED BY FTN COMMON (4000/35). 
04000/022   GATE                     PUTMID SUBR     OE  G          S1320 D4.2T2 VLO FSNAME=GATE.PUTMID_SUBR.OE.022(1)           482
            5.0T4   246  GATE.PUTMID_SUBR.OE.022            1 LINE    340    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:18
            5.0T10  150                       
1                                                                                               MON AUG 05/96   18:37:45   Page  789
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
04000/023   GATE                     PUTUSR SUBR     SF  G          S1320 D4.2T2 VLO FSNAME=GATE.PUTUSR_SUBR.SF.023(1)           483
            5.0T4   247  GATE.PUTUSR_SUBR.SF.023            1 LINE     63    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:20
            5.0T10  151                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTUSR SUBROUTINE, WHICH
           PUTS OUT USE STATISTICS ON A TERMINAL.  USES COMMON AREA DEFINED BY FTN 
           COMMON (4000/35). 
04000/024   GATE                     PUTUSR SUBR     OE  G          S1320 D4.2T2 VLO FSNAME=GATE.PUTUSR_SUBR.OE.024(1)           484
            5.0T4   248  GATE.PUTUSR_SUBR.OE.024            1 LINE    348    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:22
            5.0T10  152                       
04000/025   GATE                     SAMPLE SUBR     SF  G          S1320 D4.2T2 VLO FSNAME=GATE.SAMPLE_SUBR.SF.025(1)           485
            5.0T4   249  GATE.SAMPLE_SUBR.SF.025            1 LINE     67    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:24
            5.0T10  153                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM SAMPLE SUBROUTINE, WHICH
           SETS UP TIMER INTERRUPTS AND EXAMINES AND WRITES OUT USE COUNTERS FOR EACH
           TIME PERIOD.  USES COMMON AREAS DEFINED BY FTN COMMON (4000/35).
04000/026   GATE                     SAMPLE SUBR     OE  G          S1320 D4.2T2 VLO FSNAME=GATE.SAMPLE_SUBR.OE.026(1)           486
            5.0T4   250  GATE.SAMPLE_SUBR.OE.026            1 LINE    630    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:26
            5.0T10  154                       
04000/027   GATE                     TBLDEF SUBR     SF  G          S1320 D4.2T2 VLO FSNAME=GATE.TBLDEF_SUBR.SF.027(1)           487
            5.0T4   251  GATE.TBLDEF_SUBR.SF.027            1 LINE     65    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:28
            5.0T10  155                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM TBLDEF SUBROUTINE, WHICH
           INITIALIZES THE SYMBOL TABLES USING ONLY THOSE ROUTINES WHOSE COUNTERS
           HAVE BEEN INCREMENTED FROM THEIR INITIAL VALUES.  USES COMMON AREAS 
           DEFINED BY FTN COMMON (4000/35). 
04000/028   GATE                     TBLDEF SUBR     OE  G          S1320 D4.2T2 VLO FSNAME=GATE.TBLDEF_SUBR.OE.028(1)           488
            5.0T4   252  GATE.TBLDEF_SUBR.OE.028            1 LINE    394    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:30
            5.0T10  156                       
04000/029   GATE                     TBLUSR SUBR     SF  G          S1320 D4.2T2 VLO FSNAME=GATE.TBLUSR_SUBR.SF.029(1)           489
            5.0T4   253  GATE.TBLUSR_SUBR.SF.029            1 LINE     68    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:32
            5.0T10  157                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM TBLUSR SUBROUTINE, WHICH
           READS FROM THE USER A LIST OF ROUTINES TO MONITOR.  IT INITIALIZES THE
           TABLES BASED ON THIS LIST. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 
04000/030   GATE                     TBLUSR SUBR     OE  G          S1320 D4.2T2 VLO FSNAME=GATE.TBLUSR_SUBR.OE.030(1)           490
            5.0T4   254  GATE.TBLUSR_SUBR.OE.030            1 LINE    856    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:34
            5.0T10  158                       
0          Referenced by comments of: 4000/35 
1                                                                                               MON AUG 05/96   18:37:45   Page  790
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
04000/031   GATE                     DBLMATH SUBR    SA  G          S1320 D4.2T2 VLO FSNAME=GATE.DBLMATH_SUBR.SA.031(1)          491
            5.0T4   255  GATE.DBLMATH_SUBR.SA.031           1 LINE     72    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:36
            5.0T10  159                       
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM DOUBLE-WORD MATH
           ROUTINES.
04000/032   GATE                     DBLMATH SUBR    OC  G          S1320 D4.2T2 VLO FSNAME=GATE.DBLMATH_SUBR.OC.032(1)          492
            5.0T4   256  GATE.DBLMATH_SUBR.OC.032           1 LINE     80    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:38
            5.0T10  160                       
04000/033   GATE                     GETSTAT SUBR    SA  G          S1320 D4.2T2 VLO FSNAME=GATE.GETSTAT_SUBR.SA.033(1)          493
            5.0T4   257  GATE.GETSTAT_SUBR.SA.033           1 LINE     73    8 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:40
            5.0T10  161                       
0          SOURCE FOR SEVERAL LOW-LEVEL STATISTICS ACCESS ROUTINES, WHICH ARE USED
           BY THE GATE STATISTICS RECORDING SYSTEM TO ACCESS THE COUNTS OF GATE
           ACTIVITY.  COPIES COPY:JOBSTA (413/9).
04000/034   GATE                     GETSTAT SUBR    OC  G          S1320 D4.2T2 VLO FSNAME=GATE.GETSTAT_SUBR.OC.034(1)          494
            5.0T4   258  GATE.GETSTAT_SUBR.OC.034           1 LINE     80    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:43
            5.0T10  162                       
0          Referenced by comments of: 4000/37, 4000/39 
04000/035   GATE                     FTN COMMON      SF  G          S1320 D4.2T2 VLO FSNAME=GATE.FTN_COMMON.SF.035(1)            495
            5.0T4   259  GATE.FTN_COMMON.SF.035             1 LINE     66    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:45
            5.0T10  163                       
0          SOURCE FOR FORTRAN COMMON AREA DEFINITIONS USED BY ALL FORTRAN SUBROUTINES
           (4000/13) THROUGH (4000/30) IN THE GATE STATISTICS RECORDING SYSTEM.
0          Referenced by comments of: 4000/15, 4000/17, 4000/19, 4000/21, 4000/23, 4000/25, 4000/27, 4000/29, 4000/36, 4000/38 
04000/036   GATE                     STAT REC USER   SF  G          S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_USER.SF.036(1)         496
            5.0T4   260  GATE.STAT_REC_USER.SF.036          1 LINE     52    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:47
            5.0T10  164                       
0          SOURCE FOR FORTRAN BLOCK DATA WHICH ASSIGNS LOGICAL I/O UNITS FOR CONVENIENT
           USE FROM A TERMINAL.  USES COMMON AREAS FROM FTN COMMON (4000/35). 
0          Referenced by comments of: 4000/37 
04000/037   GATE                     STAT REC USER   OC  G          S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_USER.OC.037(1)         497
            5.0T4   261  GATE.STAT_REC_USER.OC.037          1 LINE     72    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:49
            5.0T10  165                       
0          OBJECT FILE FOR THE GATE STATISTICS RECORDING SYSTEM (4000/13) THROUGH
           (4000/34) IN A FORM WHICH CAN BE $RUN. THE OBJECT FOR (4000/36) IS INCLUDED,
           ALONG WITH $CONTINUE WITHS FOR ALL OTHER FILES IN THE GATE STATISTICS
           RECORDING SYSTEM (4000/13) THROUGH (4000/34) AND A "$CONTINUE WITH
           COPY:SYSDEFS RETURN" LINE.
0          Referenced by comments of: 4000/39 
1                                                                                               MON AUG 05/96   18:37:45   Page  791
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
04000/038   GATE                     STAT REC OPER   SF  G          S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_OPER.SF.038(1)         498
            5.0T4   262  GATE.STAT_REC_OPER.SF.038          1 LINE     52    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:51
            5.0T10  166                       
0          SOURCE FOR FORTRAN BLOCK DATA WHICH ASSIGNS LOGICAL I/O UNITS FOR USE
           WITH *GSA (4000/40).  USES COMMON AREAS FROM FTN COMMON (4000/35).
04000/039   GATE                     STAT REC OPER   OC  G          S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_OPER.OC.039(1)         499
            5.0T4   263  GATE.STAT_REC_OPER.OC.039          1 LINE     72    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:53
            5.0T10  167                       
0          OBJECT FILE FOR THE GATE STATISTICS RECORDING SYSTEM (4000/13) THROUGH
           (4000/34) IN A FORM WHICH CAN BE $RUN. SAME AS (4000/37) EXCEPT THAT I/O
           UNITS ARE ASSIGNED FOR USE WITH *GSA.
04000/040   GATE                     *GSA            C              S1320 D4.2T2 VLO FSNAME=GATE.*GSA.C.040(1)                   500
            5.0T4   264  GATE.*GSA.C.040                    1 LINE     77    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:55
            5.0T10  168                       
0          COMMAND FILE TO ACTIVATE THE GATE STATISTICS COLLECTION SYSTEM.  CONTAINS A
           "$CONTINUE WITH MTS:GS.STATPARS RETURN" LINE.
0          Referenced by comments of: 4000/38, 4000/44 
04000/041   GATE                     LOCK            D            # SYS:GS.LOCK                                                     
                                                                                    UM   HELFFRICH                                  
0          EMPTY FILE USED BY *GSA.
04000/042   GATE                     NEWSTAT         D            # SYS:GS.NEWSTAT                                                  
                                                                                    UM   HELFFRICH                                  
0          EMPTY FILE USED BY *GSA.
04000/043   GATE                     OLDSTAT         D            # SYS:GS.OLDSTAT                                                  
                                                                                    UM   HELFFRICH                                  
0          EMPTY FILE USED BY *GSA.
04000/044   GATE                     STAT PARAMS     D              S1320 D4.2T2 VLO FSNAME=GATE.STAT_PARAMS.D.044(1)            501
            5.0T4   265  GATE.STAT_PARAMS.D.044             1 LINE     56    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:58
            5.0T10  169                       
0          CONTAINS PARAMETERS READ BY THE STATISTICS RECORDING SYSTEM WHEN IT IS 
           STARTED BY USING THE OPERATOR FILE *GSA (4000/40).  CONTAINS A LIST OF
           PARAMETERS NORMALLY SUPPLIED BY THE USER IF THE STATISTICS RECORDING IS RUN 
           FROM A TERMINAL.
04000/045   GATE                     *GSD            C              S1320 D4.2T2 VLO FSNAME=GATE.*GSD.C.045(1)                   502
            5.0T4   266  GATE.*GSD.C.045                    1 LINE     55    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:59
            5.0T10  170                       
0          COMMAND FILE TO DEACTIVATE THE GATE STATISTICS COLLECTION SYSTEM.
1                                                                                               MON AUG 05/96   18:37:45   Page  792
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
04000/046   GATE                     WRITEUP         WF             S1320 D4.2T2 VLO FSNAME=GATE.WRITEUP.WF.046(1)               503
            5.0T4   267  GATE.WRITEUP.WF.046                1 LINE     97    9 PAGE UM   HELFFRICH           SEP. 27, 1978  00:02:01
            5.0T10  171                       
0          STRUCTURAL DESCRIPTION AND USER'S GUIDE TO THE GATESTAT GATE STATISTICS
           COLLECTION SYSTEM.
0          Referenced by comments of: 4000/5 
04001/001   NONPRIV KWIC                                          # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT IS NOT INSTALLED AT MICHIGAN.
04003/001   DUMPER                                                # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           TO DUMP THE DUMPS FROM THE PAGING DISK TO TAPE, WHICH IS INPUT TO THE
           PRINTDUMP PROGRAM (400).
04009/001   ACCESS                                                # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SUBROUTINE
           TO RETURN ACCESS INFORMATION ABOUT A FILE.
04010/001   SVMR                                                  # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS
           GETSVM, FEESVM, AND SCANSVM, STORAGE MANAGEMENT SUBROUTINES FOR SHARED
           VIRTUAL MEMORY.
0          Referenced by comments of: 4011/1 
04011/001   SVMTABLE                                              # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS THE 
           CONTROL BLOCK FOR SVMR (4010).
04014/001   WHIZBANG                                              # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT IS NOT INSTALLED AT MICHIGAN.
04200/001   UNCDUPDATE                                            # (NOT DISTRIBUTED)                                               
                                                                                    RPI                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           TO COMPARE TWO FILES AND OUTPUT THEIR DIFFERENCES IN THE FORM OF *CDUPDATE
           (1036) CONTROL STATEMENTS AND INSERTION RECORDS.
1                                                                                               MON AUG 05/96   18:37:45   Page  793
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
04201/001   RPI REMOTE OPCONSOLE                                  # (NOT DISTRIBUTED)                                               
                                                                                    RPI                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE RPI
           REMOTE OPERATOR'S CONSOLE PROGRAM.
04222/001   FILE MOVER                                            # (NOT DISTRIBUTED)                                               
                                                                                    RPI                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           TO MOVE FILES FROM ONE VOLUME TO ANOTHER.
04240/001   STUDENT IPL ROUTINE                                   # (NOT DISTRIBUTED)                                               
                                                                                    RPI                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN IPL
           LOADER FOR USE WITH ST360 (472).
04241/001   3277 SCREEN I/O ROUTINE                               # (NOT DISTRIBUTED)                                               
                                                                                    RPI                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS
           SUBROUTINES TO CREATE SCREEN FIELDS, READ SCREEN FIELDS, UPDATE SCREEN FIELDS,
           AND INTERCEPT THE ATTENTION KEYS.
04242/001   LCLPRINT                                              # (NOT DISTRIBUTED)                                               
                                                                                    RPI                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           WHICH SUPPORTS THE COURIER 8700 PRINTERS AS NON-SPOOLED PRINT-STATIONS AT
           REMOTE TERMINAL SITES.
04401/001   PN3203 JOB                                            # (NOT DISTRIBUTED)                                               
                                                                                    SFU                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE JOB
           THAT LOADS THE UCSB AND FCB BUFFERS FOR THE 3203-4 PRINTER WITH A PN PRINT
           TRAIN.
04403/001   DIVMIXED                                              # (NOT DISTRIBUTED)                                               
                                                                                    SFU                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS USED TO
           PERFORM MIXED PRECISION DIVISION WHEN A NORMAL DIVISION FAILS.
